Problema con binario signado

Todo lo relacionado con JCL, manejo de jobs, etc.
Responder
qwe2
Usuario avanzado
Usuario avanzado
Mensajes: 60
Registrado: 21 Ene 2015, 16:13
País: Argentina
Ciudad: CABA
Ocupación: Analista de desarrollo

Problema con binario signado

Mensaje por qwe2 » 07 Jul 2015, 15:41

Buenas, que tal? estoy haciendo un sort para pasar unos valores a char o a un numérico sin signo.
Los campos que me complican la vida son: un S9(4) COMP y otro definido como S9(9) COMP. El primer valor lo puedo pasar bien pero el segundo no me termina de cerrar.

Mi entrada es:

Código: Seleccionar todo

----+----1----+--
 ? ¯/+           
060B6400000000000
0F0C1EFFFFFFFFFFF
-----------------
Hice algo así:

Código: Seleccionar todo

//USORTG22 EXEC SORTC                              
//SYSOUT   DD SYSOUT=*                             
//SORTIN   DD DSN=DM.EVXV.NV.PRUEBA,DISP=SHR       
//SORTOUT  DD DSN=DM.EVXV.NV.PRUEB9,               
//            DISP=(,CATLG),SPACE=(CYL,(1,1),RLSE),
//            DCB=(LRECL=30,BLKSIZE=0,RECFM=FB)    
//SYSIN    DD *                                    
  INREC OVERLAY=(01,02,FI,TO=PD,LENGTH=2, 
                 03,04,FI,TO=PD,LENGTH=5, 
                 30:X)                    
  SORT   FIELDS=(01,07,BI,A)              
  OUTREC FIELDS=(01,02,PD,TO=ZD,LENGTH=4, 
                 03,05,PD,TO=ZD,LENGTH=10,
                 30:X)                    
No estoy muy seguro de que esta resolución sea la mejor, porque por un lado termino con un valor signado y por el otro la doble conversión no me deja muy tranquilo.
Alguien hizo algo parecido alguna vez? saben si hay alguna manera de pasarlo mas facil de FI a UFF?

Responder