Debates de AS400 > Campo en un fichero de 2000 posiciones

Aprender con los mejores expertos
Compartir lo que sabes
Disfrutar de la biblioteca compartida

Foro de AS400

147 Debates | 3 Documentos | 1 Vídeo | 1 Blog | 236 Miembros

Debates >

Campo en un fichero de 2000 posiciones

Joan Barcelona, España Ver su 1 debate		Escrito por Joan el 13/12/2007 Buenos dias, tengo un problema, hay un fichero que tiene definido un campo de 2. 000 posiciones, y tengo que tratar los datos que estan en las posiciones, 502 a 509. Lo he intetado creando una DS y no me permite, tanbién haciendo en calculo un movel de 512 posiciones y btampoco me lo permite. Alguien sabe como hacerlo? Gracias y un saludo.
		Responder > Citar \| Ver mensaje

Escrito por Apalo1961 el 06/01/2008

Hola, tal vez puedas utilizar un archivo lógico; ahí tienes un ejemplo:

      *---------------------------------------------------------------*
      * (LF) Lógico con substring
      *---------------------------------------------------------------*
                                            UNIQUE
      *---------------------------------------------------------------*
                R FAREG                     PFILE(ARCHIVO)
                  CAMPO1         4   I      SST(CAMPOX 1 4)
                                            COLHDG("Texto cabecera")
                  CAMPO2
      *---------------------------------------------------------------*
                K CAMPO1
                K CAMPO2
      *---------------------------------------------------------------*

Responder >

Citar |

Ver mensaje

Escrito por Ros el 21/02/2008

Se hace con una ds, tepaso una que tengo de 5000 caracteres en un desencadenador.

IPREGIS              DS
*NOMBRE DE ARCHIVO FISICO
I                                        1 10 XFNAME
*BIBLIOTECA DEL ARCHIVO FISICO
I                                       11 20 XLNAME
*NOMBRE DE MIEMBRO
I                                       21 30 XMNAME
*EVENTO ACTIVADOR
I                                       31 31 XTEVEN
*HORA ACTIVADOR
I                                       32 32 XTTIME
*NIVEL DE BLOQUEO DE COMPROMISO
I                                       33 33 XCMTLC
*RESERVADO
I                                       34 36 XFILL1
*CCSID
I                                    B 37 400XCCSID
*RESERVADO
I                                       41 48 XFILL2

      *DESPLAZAMIENTO AL REGISTRO ORIGINAL
     I                                    B 49 520XOLDOF
      *LONGITUD DEL REGISTRO ORIGINAL
     I                                    B 53 560XOLDLE
      *DESPLAZAMIENTO A CORRELACION BYTES NULOS DE ARCHIVO ORIGINAL
     I                                    B 57 600XONOFF
      *LONGITUD DE LA CORRELACION DE BYTES NULOS
     I                                    B 61 640XNLEN
      *DESPLAZAMIENTO AL NUEVO REGISTRO
     I                                    B 65 680XNOFF
      *LONGITUD DEL REGISTRO NUEVO
     I                                    B 69 720XNEWLE
      *DESPLAZAMIENTO A CORRELACION BYTES NULOS DE REGISTRO NUEVO
     I                                    B 73 760XNNOFF
      *LONGITUD DE LA CORRELACION DE BYTES NULOS
     I                                    B 77 800XNNLEN
      *RESERVADO
     I                                       81 96 XFILL3
      *RESTO
     I                                       97 200 XRES01
     I                                      201 400 XRES02
     I                                      401 600 XRES03
     I                                      601 800 XRES04
     I                                      8011000 XRES05

I                                     10011200 XRES06
I                                     12011400 XRES07
I                                     14011600 XRES08
I                                     16011800 XRES09
I                                     18012000 XRES10
I                                     20012200 XRES11
I                                     22012400 XRES12
I                                     24012600 XRES13
I                                     26012800 XRES14
I                                     28013000 XRES15
I                                     30013200 XRES16
I                                     32013400 XRES17
I                                     34013600 XRES18
I                                     36013800 XRES19
I                                     38014000 XRES20
I                                     40014200 XRES21
I                                     42014400 XRES22
I                                     44014600 XRES23
I                                     46014800 XRES24
I                                     48015000 XRES25

Responder >

Citar |

Ver mensaje

Responder

Al escribir en el debate:

Repasa la ortografía y no escribas en formato SMS.
Lee el texto dos veces antes de publicar.
No escribas todo en mayúsculas o negritas.