1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| //***************************************************************
//** EXTRACTION DES NOMS DE FICHIER ****************
//***************************************************************
//TRI01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=FRHPERM.JOBDELZZ.LISTCP
//SORTOUT DD DISP=(,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),RECFM=FB,LRECL=80,
// DSN=FRHPERM.JOBDELZZ.LISTCPP1.EPUR01
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,9,CH,EQ,C'V0NONVSAM')
OUTREC FIELDS=(19,69,70:SEQNUM,8,PD,78:C' ')
//TRI04 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=FRHPERM.DATE02
//SORTOUT DD DISP=(,CATLG,DELETE),
// SPACE=(CYL,(10,10),RLSE),RECFM=FB,LRECL=80,
// DSN=FRHPERM.DATE03
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(38,1,CH,EQ,C'Q'),
PUSH=(45:38,6))
OUTREC FIELDS=(45,6,70:SEQNUM,8,PD,78:C' ')
//***************************************************************
//** JOINTURE DES FICHIERS NOMS ET DATE (AU FORMAT QYYQQQ ***
//***************************************************************
//JOINTURE EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//IN01 DD DSN=FRHPERM.JOBDELZZ.LISTCPP1.EPUR01,DISP=SHR
//IN02 DD DSN=FRHPERM.DATE03,DISP=SHR
//SORTOUT DD DSN=FRHPERM.T1,DISP=OLD
//SYSIN DD *
JOINKEYS F1=IN01,FIELDS=(70,8,A),SORTED
JOINKEYS F2=IN02,FIELDS=(70,8,A),SORTED
JOIN UNPAIRED
REFORMAT FIELDS=(F1:1,44,F2:1,6,F2:7,30)
OPTION COPY
/* |
Partager