//SOLER21J JOB CLASS=A, 00010000 // MSGCLASS=X, 00020000 // NOTIFY=&SYSUID, 00030000 // TIME=(0,5), 00040000 // RESTART=STEP0 00050000 //JOBLIB DD DSN=SOLERI.FORM.LOADBATC,DISP=SHR 00060000 // DD DSN=SYS1.SCEERUN,DISP=SHR 00070000 //**** 00080000 //** STEP 0 : PREPARATION DU FICHIER KSDS 00090000 //**** 00100000 //STEP0 EXEC PGM=IDCAMS 00110000 //SYSIN DD * 00120000 DELETE (SOLER21.KSDS.FCOMPTE) - 00130000 CLUSTER 00140000 DEFINE CLUSTER ( - 00150000 NAME (SOLER21.KSDS.FCOMPTE) - 00160000 VOLUMES (DISK03) - 00170000 TRACKS (1,1) - 00180000 RECORDSIZE (50 50) - 00190000 KEYS (10, 0) - 00200000 INDEXED ) 00210000 REPRO INDATASET (SOLER21.QSAM.FCOMPTE) - 00211000 OUTDATASET (SOLER21.KSDS.FCOMPTE) 00212000 DEFINE ALTERNATEINDEX ( - 00220000 NAME (SOLER21.AIX.FCOMPTE) - 00230000 RELATE (SOLER21.KSDS.FCOMPTE) - 00240000 RECORDSIZE (110,250) - 00241000 VOLUMES (DISK03) - 00250000 KEYS (20 10) - 00260000 TRACKS (1,1) ) 00270000 BLDINDEX - 00271000 INDATASET (SOLER21.KSDS.FCOMPTE) - 00272000 OUTDATASET (SOLER21.AIX.FCOMPTE) 00273000 DEFINE PATH ( - 00280000 NAME (SOLER21.PATH.FCOMPTE) - 00290000 PATHENTRY (SOLER21.AIX.FCOMPTE) - 00300000 UPDATE ) 00310000 //SYSPRINT DD SYSOUT=* 00370000 //**** 00380000 //** STEP 1 : IMPRESSION DU FICHIER D'ENTREE 00390000 //**** 00400000 //STEP1 EXEC PGM=IDCAMS 00410000 //SYSIN DD * 00420000 PRINT INDATASET (SOLER21.KSDS.FCOMPTE) 00430000 PRINT INDATASET (SOLER21.AIX.FCOMPTE) 00431000 //SYSPRINT DD SYSOUT=* 00440000 //**** 00450000 //** STEP 2 : TRAITEMENT 00460000 //**** 00470000 //STEP2 EXEC PGM=COBTP215 00480000 //CPT DD DSN=SOLER21.KSDS.FCOMPTE, 00490000 // DISP=OLD 00500000 //CPT1 DD DSN=SOLER21.PATH.FCOMPTE, 00501000 // DISP=OLD 00502000 //ETAT DD SYSOUT=* 00510000 //SYSOUT DD SYSOUT=* 00520000 //SYSIN DD * 00530000 AASTRUC BENOIT 00000000010000000005 00540000 ASUPERMAN 00000000010000000015 00550000 AASTRUC BENOIT 00000000140000000020 00560000 ASUPERMAN 00000000160000000050 00570000 BASTRUC BENOIT AA AB P 00580000 BSUPERMAN AA BA P 00590000 BASTRUC BENOIT BB PP P 00600000 BSUPERMAN LL ZZ P 00610000 // 00620000 //**** 00630000 //** STEP 3 : AFFICHAGE DU CONTENU DE KSDS 00640000 //**** 00650000 //STEP3 EXEC PGM=IDCAMS 00660000 //SYSPRINT DD SYSOUT=* 00670000 //SYSIN DD * 00680000 PRINT INDATASET (SOLER21.KSDS.FCOMPTE) 00690000 //* FIN 00700000 //* 00710001 //SOLER21J JOB CLASS=A, 00720001 // MSGCLASS=X, 00730001 // NOTIFY=&SYSUID, 00740001 // TIME=(0,1) 00750001 //JOBLIB DD DSN=SOLERI.FORM.LOADBATC,DISP=SHR 00760001 // DD DSN=SYS1.SCEERUN,DISP=SHR 00770001 //* STEP 1 00780001 //STEP1 EXEC PGM=COBTP213 00790001 //*MVTS DD DUMMY 00800001 //MVTS DD DSN=SOLER21.QSAM.FICMVTS, 00810001 // DISP=OLD 00820001 //CPTIN DD DSN=SOLER21.QSAM.FICCPTE, 00830001 // DISP=OLD 00840001 //CPTOUT DD SYSOUT=* 00850001 //ETAT DD SYSOUT=* 00860001 //SYSOUT DD SYSOUT=* 00870001 //* STEP 2 00880001 // IF (STEP1.RC=0) THEN 00890001 //STEP2 EXEC PGM=IEBGENER, 00900001 // COND=(4,EQ,STEP1) 00910001 //SYSPRINT DD SYSOUT=* 00920001 //SYSIN DD DUMMY 00930001 //SYSUT1 DD DSN=SOLER21.QSAM.FICMVTS, 00940001 // DISP=OLD 00950001 //SYSUT2 DD SYSOUT=* 00960001 // ENDIF 00970001 //******* 00980001 //SOLER21J JOB CLASS=A, 00990001 // MSGCLASS=X, 01000001 // NOTIFY=&SYSUID, 01010001 // TIME=(0,1), 01020001 // RESTART=STEP0 01030001 //JOBLIB DD DSN=SOLERI.FORM.LOADBATC,DISP=SHR 01040001 // DD DSN=SYS1.SCEERUN,DISP=SHR 01050001 //**** 01060001 //** STEP 0 : EFFACER LE FICHIER FICCPTS 01070001 //**** 01080001 //STEP0 EXEC PGM=IEFBR14 01090001 //DD1 DD DSN=SOLER21.QSAM.FICCPTS, 01100001 // DISP=(OLD,DELETE) 01110001 //**** 01120001 //** STEP 1 : LE TRI 01130001 //**** 01140001 //STEP1 EXEC PGM=SORT 01150001 //SORTIN DD DSN=SOLER15.QSAM.FICMVTS,DISP=SHR 01160001 // DD DSN=SOLER16.QSAM.FICMVTS,DISP=SHR 01170001 // DD DSN=SOLER17.QSAM.FICMVTS,DISP=SHR 01180001 // DD DSN=SOLER18.QSAM.FICMVTS,DISP=SHR 01190001 // DD DSN=SOLER19.QSAM.FICMVTS,DISP=SHR 01200001 // DD DSN=SOLER20.QSAM.FICMVTS,DISP=SHR 01210001 // DD DSN=SOLER21.QSAM.FICMVTS,DISP=SHR 01220001 // DD DSN=SOLER22.QSAM.FICMVTS,DISP=SHR 01230001 // DD DSN=SOLER23.QSAM.FICMVTS,DISP=SHR 01240001 // DD DSN=SOLER24.QSAM.FICMVTS,DISP=SHR 01250001 // DD DSN=SOLER25.QSAM.FICMVTS,DISP=SHR 01260001 // DD DSN=SOLER26.QSAM.FICMVTS,DISP=SHR 01270001 //SORTOUT DD DSN=&&TMP21, 01280001 // DISP=(NEW,PASS), 01290001 // UNIT=SYSDA, 01300001 // SPACE=(TRK,(1,1)) 01310001 //SYSIN DD * 01320001 SORT FIELDS=(1,10,CH,A,11,8,CH,A) 01330001 //SORTMSG DD SYSOUT=* 01340001 //* 01350001 //**** 01360001 //SYSOUT DD SYSOUT=* 01370001 //** STEP 2 : TRAITEMENT 01380001 //**** 01390001 //STEP2 EXEC PGM=COBTP213 01400001 //*MVTS DD DUMMY 01410001 //MVTS DD DSN=&&TMP21,DISP=(OLD,PASS) 01420001 //CPTIN DD DSN=SOLER22.QSAM.FICCPTE, 01430001 // DISP=OLD 01440001 //CPTOUT DD DSN=SOLER21.QSAM.FICCPTS, 01450001 // DISP=(NEW,CATLG,CATLG), 01460001 // UNIT=3380,VOL=SER=DISK03, 01470001 // SPACE=(TRK,(1,0)), 01480001 // DCB=(RECFM=FB,LRECL=40) 01490001 //ETAT DD SYSOUT=* 01500001 //SYSOUT DD SYSOUT=* 01510001 //**** 01520001 //** STEP 3 : RECOPIE DE L'ENTREE 01530001 //**** 01540001 // IF (STEP2.RC=0) THEN 01550001 //STEP3 EXEC PGM=IEBGENER, 01560001 // COND=(4,EQ,STEP1) 01570001 //SYSPRINT DD SYSOUT=* 01580001 //SYSIN DD DUMMY 01590001 //SYSUT1 DD DSN=&&TMP21, 01600001 // DISP=(OLD,PASS) 01610001 //SYSUT2 DD SYSOUT=* 01620001 // ENDIF 01630001 //**************************** 01640001 //SOLER21J JOB CLASS=A, 01650001 // MSGCLASS=X, 01660001 // NOTIFY=&SYSUID, 01670001 // TIME=(0,3), 01680001 // RESTART=STEP1 01690001 //JOBLIB DD DSN=SOLERI.FORM.LOADBATC,DISP=SHR 01700001 // DD DSN=SYS1.SCEERUN,DISP=SHR 01710001 //**** 01720001 //** STEP 0 : PREPARATION DU FICHIER KSDS 01730001 //**** 01740001 //STEP0 EXEC PGM=IDCAMS 01750001 //SYSIN DD * 01760001 DELETE (SOLER21.KSDS.FCOMPTE) - 01770001 CLUSTER 01780001 DEFINE CLUSTER ( - 01790001 NAME (SOLER21.KSDS.FCOMPTE) - 01800001 VOLUMES (DISK03) - 01810001 TRACKS (1,0) - 01820001 RECORDSIZE (50 50) - 01830001 KEYS (10, 0) - 01840001 INDEXED ) 01850001 REPRO INDATASET (SOLER21.QSAM.FCOMPTE) - 01860001 OUTDATASET (SOLER21.KSDS.FCOMPTE) 01870001 PRINT INDATASET (SOLER21.KSDS.FCOMPTE) 01880001 //SYSPRINT DD SYSOUT=* 01890001 //**** 01900001 //** STEP 1 : LE TR 01910001 //**** 01920001 //STEP1 EXEC PGM=SORT 01930001 //SYSOUT DD SYSOUT=* 01940001 //SORTIN DD DSN=SOLER21.QSAM.TRANS,DISP=SHR 01950001 //* DD DSN=SOLER15.QSAM.TRAN,DISP=SHR 01960001 //* DD DSN=SOLER16.QSAM.FICMVTS,DISP=SHR 01970001 //* DD DSN=SOLER17.QSAM.FICMVTS,DISP=SHR 01980001 //* DD DSN=SOLER18.QSAM.FICMVTS,DISP=SHR 01990001 //* DD DSN=SOLER19.QSAM.FICMVTS,DISP=SHR 02000001 //* DD DSN=SOLER20.QSAM.FICMVTS,DISP=SHR 02010001 // DD DSN=SOLER22.QSAM.FICTRANS,DISP=SHR 02020001 // DD DSN=SOLER23.QSAM.TRANSAC,DISP=SHR 02030001 //* DD DSN=SOLER24.QSAM.FICMVTS,DISP=SHR 02040001 //* DD DSN=SOLER25.QSAM.FICMVTS,DISP=SHR 02050001 //* DD DSN=SOLER26.QSAM.FICMVTS,DISP=SHR 02060001 //SORTOUT DD DSN=&&TMP21, 02070001 // DISP=(NEW,PASS), 02080001 // UNIT=SYSDA, 02090001 // SPACE=(TRK,(1,1)) 02100001 //SYSIN DD * 02110001 SORT FIELDS=(1,10,CH,A) 02120001 //SORTMSG DD SYSOUT=* 02130001 //* 02140001 //**** 02150001 //** STEP 2 : TRAITEMENT 02160001 //**** 02170001 //STEP2 EXEC PGM=COBTP214 02180001 //TRANS DD DSN=&&TMP21,DISP=(OLD,PASS) 02190001 //CPT DD DSN=SOLER21.KSDS.FCOMPTE, 02200001 // DISP=OLD 02210001 //*TRANS DD DSN=SOLER23.QSAM.TRANSAC, 02220001 //* DISP=OLD 02230001 //ETAT DD SYSOUT=* 02240001 //SYSOUT DD SYSOUT=* 02250001 //**** 02260001 //** STEP 3 : AFFICHAGE DU CONTENU DE KSDS 02270001 //**** 02280001 //STEP3 EXEC PGM=IDCAMS 02290001 //SYSPRINT DD SYSOUT=* 02300001 //SYSIN DD * 02310001 PRINT INDATASET (SOLER21.KSDS.FCOMPTE) 02320001 //* FIN 02330001 //************** 02340001 //SOLER21J JOB CLASS=A, 02350001 // MSGCLASS=X, 02360001 // NOTIFY=&SYSUID, 02370001 // TIME=(0,5), 02380001 // RESTART=STEP0 02390001 //JOBLIB DD DSN=SOLERI.FORM.LOADBATC,DISP=SHR 02400001 // DD DSN=SYS1.SCEERUN,DISP=SHR 02410001 //**** 02420001 //** STEP 0 : PREPARATION DU FICHIER KSDS 02430001 //**** 02440001 //STEP0 EXEC PGM=IDCAMS 02450001 //SYSIN DD * 02460001 DELETE (SOLER21.KSDS.FCOMPTE) - 02470001 CLUSTER 02480001 DEFINE CLUSTER ( - 02490001 NAME (SOLER21.KSDS.FCOMPTE) - 02500001 VOLUMES (DISK03) - 02510001 TRACKS (1,1) - 02520001 RECORDSIZE (50 50) - 02530001 KEYS (10, 0) - 02540001 INDEXED ) 02550001 REPRO INDATASET (SOLER21.QSAM.FCOMPTE) - 02560001 OUTDATASET (SOLER21.KSDS.FCOMPTE) 02570001 DEFINE ALTERNATEINDEX ( - 02580001 NAME (SOLER21.AIX.FCOMPTE) - 02590001 RELATE (SOLER21.KSDS.FCOMPTE) - 02600001 RECORDSIZE (110,250) - 02610001 VOLUMES (DISK03) - 02620001 KEYS (20 10) - 02630001 TRACKS (1,1) ) 02640001 BLDINDEX - 02650001 INDATASET (SOLER21.KSDS.FCOMPTE) - 02660001 OUTDATASET (SOLER21.AIX.FCOMPTE) 02670001 DEFINE PATH ( - 02680001 NAME (SOLER21.PATH.FCOMPTE) - 02690001 PATHENTRY (SOLER21.AIX.FCOMPTE) - 02700001 UPDATE ) 02710001 //SYSPRINT DD SYSOUT=* 02720001 //**** 02730001 //** STEP 1 : IMPRESSION DU FICHIER D'ENTREE 02740001 //**** 02750001 //STEP1 EXEC PGM=IDCAMS 02760001 //SYSIN DD * 02770001 PRINT INDATASET (SOLER21.KSDS.FCOMPTE) 02780001 PRINT INDATASET (SOLER21.AIX.FCOMPTE) 02790001 //SYSPRINT DD SYSOUT=* 02800001 //**** 02810001 //** STEP 2 : TRAITEMENT 02820001 //**** 02830001 //STEP2 EXEC PGM=COBTP215 02840001 //CPT DD DSN=SOLER21.KSDS.FCOMPTE, 02850001 // DISP=OLD 02860001 //CPT1 DD DSN=SOLER21.PATH.FCOMPTE, 02870001 // DISP=OLD 02880001 //ETAT DD SYSOUT=* 02890001 //SYSOUT DD SYSOUT=* 02900001 //SYSIN DD * 02910001 AASTRUC BENOIT 00000000010000000005 02920001 ASUPERMAN 00000000010000000015 02930001 AASTRUC BENOIT 00000000140000000020 02940001 ASUPERMAN 00000000160000000050 02950001 BASTRUC BENOIT AA AB P 02960001 BSUPERMAN AA BA P 02970001 BASTRUC BENOIT BB PP P 02980001 BSUPERMAN LL ZZ P 02990001 // 03000001 //**** 03010001 //** STEP 3 : AFFICHAGE DU CONTENU DE KSDS 03020001 //**** 03030001 //STEP3 EXEC PGM=IDCAMS 03040001 //SYSPRINT DD SYSOUT=* 03050001 //SYSIN DD * 03060001 PRINT INDATASET (SOLER21.KSDS.FCOMPTE) 03070001 //* FIN 03080001