[Sintaxis] SORT - colar datos registro precedente

[SwimPiii]

Buenos días Coboleros,

Tengo la siguiente duda respecto a si es posible o no realizar lo siguiente:

Partiendo de un fichero de entrada A, cuyo formato es: tipo registro (2) + datos (n) + ID (10)

Entrada

01.....0000000001
01.....0000000002
01.....0000000003
02.....0000000000
02.....0000000000
01.....0000000004
02.....0000000000

Quisiera poder conseguir un fichero B con el siguiente formato:

Salida

01.....0000000001 0000000001
01.....0000000002 0000000002
01.....0000000003 0000000003
02.....0000000000 0000000003
02.....0000000000 0000000003
01.....0000000004 0000000004
02.....0000000000 0000000004

El sentido de esto es que necesito que los registros cuyo tipo sea distinto de '01', lleven al final el ID de su tipo de registro '01' anterior. Es como si los '02' estuvieran "englobados" en los tipo '01'.

No sé si esto se puede hacer con un paso de SORT, ICETOOL o herramienta similar. Sabría abordarlo con Easytrieve, pero estoy intentando aprender algo nuevo sobre SORT.

Mil gracias de antemano a todos!

Un saludo!

[JCantero]

Para el ejemplo que has puesto si no he entendido mal, no hace falta un sort

La fd del fichero entrada:

           01 reg-entrada.
               02 id-e pic xx.
        * suponiendo que n = 40
               02 datos-e pic x(40).
               02 cadena1-e pic x(10).

La fd del fichero salida:

           01 reg-salida.
               02 id-s pic xx.
        * suponiendo que n = 40
               02 datos-s pic x(40).
               02 cadena1-s pic x(10).
               02 cadena2-s pic x(10).

La variable de working cadena tendria el ultimo leido
y fs- entrada file status del fichero entrada

           01  cadena pic x(10).
           02 fs-entrada            pic xx.
              88 esta-entrada             value '00' '02'.
              88 n-esta-entrada           value '23'.
              88 fin-entrada              value '46'  '10'.
              88 bloqueado-entrada        value '99' '90'.
              88 f-bloqueado-entrada      value '38' '93'.
              88 f-noexiste-entrada       value '35'.

Y ya un bucle para leer el fichero entrada hasta el final

                  open input entrada
                  open output salida
                  initialize reg-entrada 
                  move '0000000000' to cadena
                  read entrada next record  end-read
                  perform until fin-entrada
                      initialize reg-salida
                      move reg-entrada to reg-salida
                      if id-e = '01' then
                           move cadena1-e to cadena
                      end-if
                      move cadena to cadena2-s
                      write reg-salida end-write
                      initialize reg-entrada 
                      read entrada next record  end-read
                  end-perform.
                  close entrada salida.
        

Esto es salvo error u omision, Pero eso seria la idea

[SwimPiii]

Muchas gracias por tu respuesta!

No, la cuestión es que debería hacerlo mediante la herramienta SORT, para evitar la subida de programas COBOL.

¿Se os ocurre cómo?

Un saludo y mil gracias!

[JCantero]

"para evitar la subida de programas COBOL." ?

No entiendo lo que dices. Desarrolla el objetivo del fichero de salida.

Si deseas utilizar "sort" seria un bucle parecido cambiando el write por release y luego realizar un bucle de lectura con return. Ademas meter un criterio de oden que no acabo de entender.

Lo quieres hacer en cobol, en un script .bat (windows), script en linux, c, php, java, js, .... ?

[SwimPiii]

Buenas,

Lo que estoy intentando es, mediante la herramienta SORT (o ICETOOL o ICEMAN), en un paso de JCL, obtener el fichero de salida a partir del de entrada.

La dificultad recae en que necesito que los registros '02' lleven la referencia correcta. Dicha referencia correcta es la perteneciente al registro '01' anterior. Pero claro, pueden existir 'n' registros 02 pertenecientes al mismo 01.

Cito otro ejemplo

Entrada

01.....0000000001
01.....0000000002
01.....0000000003
02.....0000000000
02.....0000000000
02.....0000000000
01.....0000000004
02.....0000000000
02.....0000000000
01.....0000000005
02.....0000000000
02.....0000000000
02.....0000000000
02.....0000000000

Salida

01.....0000000001 0000000001
01.....0000000002 0000000002
01.....0000000003 0000000003
02.....0000000000 0000000003
02.....0000000000 0000000003
02.....0000000000 0000000003
01.....0000000004 0000000004
02.....0000000000 0000000004
02.....0000000000 0000000004
01.....0000000005 0000000005
02.....0000000000 0000000005
02.....0000000000 0000000005
02.....0000000000 0000000005
02.....0000000000 0000000005

Muchas gracias!

Un saludo

[Kuk]

@SwimPiii, no puedes hacerlo con SORT. Debes pasar por ICETOOL, echale un ojo a la documentación del mismo y busca GROUP.
ICETOOL es una herramienta hiperpoderosa, pero un tanto compleja.

Mira este ejemplo, para darte una idea: [Sintaxis] ICETOOL - un ejemplo batsante potente - COBOL Foro

Sobre todo esta parte:

OUTREC IFTHEN=(WHEN=GROUP,
    BEGIN=(51,1,ZD,EQ,0),
    END=(51,1,ZD,EQ,6),
    PUSH=(7:52,17))

Si lo quieres hacer por herramienta IBM si o si, no te queda otra.

Lo que se podría hacer tambien es via varios steps de SORT, pero sería más bien una chapuza, aunque funcionar funcionaría, yo creo.

Llevo tiempo sin tocar el JCL