lunes, 24 de octubre de 2016

Sort vol 2.4: OUTREC. Rellenar con espacios.

Hace unas semanas un compi me comentó que le daba error al rellenar 18000 espacios al final de un registro escribiendo 18000X. Nunca me había planteado si había un límite, pues nunca había tenido que rellenar semejante cantidad de posiciones. Descubrimos que efectivamente no se puede xd

La verdad es que si leemos el manual de OUTREC de IBM lo dice claramente, pero son esas cosas que solo lees cuando tienes un error (mal!).

Aquí tenéis lo que dice IBM al respecto:

Es decir, que como mucho podemos decirle que incluya 4095 espacios. Y que si necesitamos más, hagamos repeticiones hasta el número deseado :D

Os dejo el ejemplo de OUTREC completo:
//SORT01   EXEC PGM=SORT                                    
//SORTIN   DD DSN=FICHERO.DE.ENTRADA,DISP=SHR
//SORTOUT  DD DSN=FICHERO.DE.SALIDA,                     
//            DISP=(,CATLG,DELETE),                         
//            SPACE=(CYL,(200,50),RLSE),                    
//            DCB=(RECFM=FB,LRECL=8395,BLKSIZE=0)           
//SYSOUT   DD SYSOUT=*                                      
//SYSIN    DD *                                             

   SORT FIELDS=COPY
   OUTREC FIELDS=(1:C'TEXTO',6:1,200,206:4095X,4095X)

Y os lo cuento para que no se me olvide :-)

No hay comentarios: