Consulta IEBGENER o SORT

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

Consulta IEBGENER o SORT

Mensaje por qwe2 » 30 Oct 2017, 11:23

Buenas, que tal? Voy directo al grano:
Estoy haciendo un cruce de archivos por Sort JOINKEYS y luego de cruzar esos 2 archivos a la salida tengo que agregarle informacion de un tercer archivo. O sea al cruce de A y B le tengo que agregar una fecha que viene en un tercer archivo (llamemosle C). Esta fecha se la tengo que agregar a todos los registros del cruce de AyB. Se les ocurre alguna manera simple de hacerlo?
En un comienzo pense en hacer otro JOINKEYS pero el archivo C no tiene las claves que tiene el A y B. Ademas es un registro solo el del C.
Agradecere cualquier consejo!
Saludos :sombrero:

qwe2
Usuario avanzado
Usuario avanzado
Mensajes: 60
Registrado: 21 Ene 2015, 16:13
País: Argentina
Ciudad: CABA
Ocupación: Analista de desarrollo

Re: Consulta IEBGENER o SORT

Mensaje por qwe2 » 30 Oct 2017, 14:22

Me respondo yo solo, al final hice un JOINKEYS comun pero antes le agregue a cada archivo un '1' al final del registro y en el JOIN lo tome como clave. Me termino dando lo que yo queria.

Código: Seleccionar todo

//PASO0080 EXEC PGM=SORT                                             
//SYSPRINT DD SYSOUT=*                                               
//SYSOUT   DD SYSOUT=*                                               
//APA      DD DSN=ENTRADA1
//PRC      DD DSN=ENTRADA2
//SALIDA   DD DSN=SALIDA
//            DISP=(,CATLG,DELETE),UNIT=SYSDA,                       
//            SPACE=(CYL,(100,100),RLSE),                            
//            DCB=(LRECL=193,RECFM=FB,BLKSIZE=0)                     
//SYSIN    DD *                                                      
  JOINKEYS F1=APA,FIELDS=(194,1,A),SORTED                            
  JOINKEYS F2=PRC,FIELDS=(011,1,A),SORTED                            
  REFORMAT FIELDS=(F1:01,194,F2:1,11)                                
  OPTION COPY                                                        
  OUTFIL FNAMES=SALIDA,IFTHEN=(WHEN=INIT,                            
                            OVERLAY=(130:195,10)),                   
                       IFTHEN=(WHEN=INIT,BUILD=(1,193))              
//JNF1CNTL DD *                                                      
  INREC OVERLAY=(194:C'1')                                           
//JNF2CNTL DD *                                                      
  INREC OVERLAY=(011:C'1')                                           
//                                                                   
Lo dejo por si alguno lo quiere ver.

Responder