//SOLER21J JOB 'GCOM211',MSGCLASS=X,CLASS=A, 00010025 // MSGLEVEL=(1,1),NOTIFY=&SYSUID, 00050022 // TIME=(0,5), 00051022 // RESTART=STEP1 00060031 //JOBLIB DD DISP=SHR,DSN=SOLERI.FORM.LOADBATC 00090022 // DD DISP=SHR,DSN=SYS1.SCEERUN 00110017 //** 00120030 //* STEP0 : SETTING THE FILES 00130030 //** 00140030 //STEP0 EXEC PGM=IDCAMS 00150030 //SYSIN DD * 00160030 DELETE (SOLER21.QSAM.GCOMSTP) 00170030 //SYSPRINT DD SYSOUT=* 00190030 //** 00230022 //* STEP1 : LAUNCH GCOM211 00240022 //** 00250022 //STEP1 EXEC PGM=GCOM211 00260022 //GCOMBCF DD DSN=SOLER21.QSAM.GCOMBCF,DISP=SHR 00261023 //GCOMSTK DD DSN=SOLER21.QSAM.GCOMSTK,DISP=SHR 00280023 //*GCOMSTP DD DSN=SOLER21.QSAM.GCOMSTP,DISP=SHR 00291031 //GCOMSTP DD SYSOUT=* 00292031 //SYSIN DD * 00293018 00001010105A TEST L,NC 1 5 00294032 00001010104B TEST L,NC 2 10 00295027 00001010101B TEST L,NC 3 55 00297027 00002010105C TEST C,NL 1 10 00298028 00002020105C TEST C,NL 2 10 00299028 00003010105C TEST C,NL 3 10 00300028 00004010105D TEST C,L,- 02 00310032 00004010105D TEST C,L,= 10 00311029 00004010105D TEST C,L,+ 15 00312029 00005010105E TEST C,L,=,MAJ 10 00313033 /* 00320000 //SYSOUT DD SYSOUT=* 00390000 //GCOMA01 DD SYSOUT=* 00391023 //GCOMSMAJ DD SYSOUT=* 00392000 //SYSOUT DD SYSOUT=* 00393000 // 00410000 //USER02P2 JOB 'GCOM032',RESTART=*,MSGCLASS=X,CLASS=A, 00420034 // TIME=(0,5),MSGLEVEL=(1,1),NOTIFY=&SYSUID 00430034 //* 00440034 //JOBLIB DD DISP=SHR,DSN=PRODUCT.GESCOM.LOAD 00450034 // DD DISP=SHR,DSN=SYS1.SCEERUN 00460034 //STEP0 EXEC PGM=SORT 00470034 //SORTIN DD DSN=USER02.QSAM.GCOMCMDJ,DISP=SHR 00480034 //SORTOUT DD DSN=&&GCOMCMD,DISP=(,PASS),UNIT=SYSDA, 00490034 // SPACE=(TRK,(1,1)) 00500034 //SYSIN DD * 00510034 SORT FIELDS=(15,6,CH,A) 00520034 //SYSOUT DD SYSOUT=* 00530034 //SORTMSG DD SYSOUT=* 00540034 //STEP1 EXEC PGM=GCOM032 00550034 //GCOMCMD DD DSN=&&GCOMCMD,DISP=(OLD,DELETE) 00560034 //GCOMSTP DD DSN=USER02.QSAM.GCOMSTP,DISP=SHR 00570034 //GCOMSTK DD DSN=USER02.QSAM.GCOMSTK,DISP=SHR 00580034 //GCOMCMDL DD DSN=USER02.QSAM.GCOMCMDL,DISP=(,CATLG,DELETE), 00590034 // UNIT=3380,VOL=SER=DISK05,SPACE=(TRK,(1,1)), 00600034 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS) 00610034 //GCOMCMDN DD DSN=USER02.QSAM.GCOMCMDN,DISP=(,CATLG,DELETE), 00620034 // UNIT=3380,VOL=SER=DISK05,SPACE=(TRK,(1,1)), 00630034 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS) 00640034 //SYSOUT DD SYSOUT=* 00650034 /* 00660034 //USER02P3 JOB 'GCOM033',RESTART=*,MSGCLASS=X,CLASS=A, 00670034 // TIME=(0,2),MSGLEVEL=(1,1),NOTIFY=&SYSUID 00680034 //JOBLIB DD DISP=SHR,DSN=PRODUCT.GESCOM.LOAD 00690034 // DD DISP=SHR,DSN=SYS1.SCEERUN 00700034 //STEP1 EXEC PGM=IEBGENER 00710034 //SYSUT1 DD DSN=USER02.QSAM.GCOMART,DISP=SHR 00720034 //SYSUT2 DD DSN=&&GCOMART,DISP=(,PASS),UNIT=SYSDA, 00730034 // SPACE=(TRK,(3,1)),DCB=(LRECL=81,RECFM=FB,BLKSIZE=0) 00740034 //SYSIN DD * 00750034 GENERATE MAXFLDS=1 00760034 RECORD FIELD=(81,1,,1) 00770034 //SYSPRINT DD SYSOUT=* 00780034 //STEP2 EXEC PGM=IDCAMS 00790034 //SYSPRINT DD SYSOUT=* 00800034 //SYSIN DD * 00810034 DELETE (USER02.QSAM.GCOMCMDA) NONVSAM 00820034 SET MAXCC=0 00830034 /* 00840034 //STEP3 EXEC PGM=GCOM033 00850034 //GCOMCMDN DD DSN=USER02.QSAM.GCOMCMDN,DISP=SHR 00860034 //GCOMART DD DSN=&&GCOMART,DISP=(OLD,DELETE) 00870034 //GCOMBCF DD DSN=USER02.QSAM.GCOMBCF,DISP=SHR 00880034 //GCOMCMDA DD DSN=USER02.QSAM.GCOMCMDA,DISP=(NEW,CATLG,DELETE), 00890034 // UNIT=3380,VOL=SER=DISK05,SPACE=(TRK,(1,1)), 00900034 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PS) 00910034 //GCOMA03 DD SYSOUT=* 00920034 //SYSOUT DD SYSOUT=* 00930034 /* 00940034 //SOLER21J JOB 'GCOM214',CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1), 00950034 // TIME=(0,9),NOTIFY=&SYSUID 00960034 //JOBLIB DD DISP=SHR,DSN=SOLERI.FORM.LOADBATC 00970034 // DD DSN=SYS1.SCEERUN,DISP=SHR 00980034 //STEP1 EXEC PGM=IDCAMS 00990034 //SYSPRINT DD SYSOUT=* 01000034 //SYSIN DD * 01010034 DELETE SOLER21.KSDS.GCOMFOUR 01020034 //STEP2 EXEC PGM=IDCAMS 01030034 //SYSPRINT DD SYSOUT=* 01040034 //SYSIN DD * 01050034 DEFINE CLUSTER (NAME(SOLER21.KSDS.GCOMFOUR)- 01060034 VOLUMES(DISK05) - 01070034 TRACKS(1 1) - 01080034 RECORDSIZE(305 305) - 01090034 INDEXED - 01100034 KEYS(5 0)) 01110034 //STEP3 EXEC PGM=IDCAMS 01120034 //SYSPRINT DD SYSOUT=* 01130034 //SYSIN DD * 01140034 REPRO INDATASET (SOLER21.QSAM.GCOMFOUR) - 01150034 OUTDATASET (SOLER21.KSDS.GCOMFOUR) 01160034 PRINT INDATASET (SOLER21.QSAM.GCOMFOUR) CHARACTER 01170034 PRINT INDATASET (SOLER21.KSDS.GCOMFOUR) CHARACTER 01180034 //** 01190034 //* STEP1 : LAUNCH GCOM214 01200034 //** 01210034 //STEP1 EXEC PGM=GCOM214 01220034 //GCOMBCF DD DSN=SOLER21.QSAM.GCOMBCF,DISP=SHR 01230034 //GCOMFOUR DD DSN=SOLER21.KSDS.GCOMFOUR,DISP=SHR 01240034 //ETAT104 DD SYSOUT=* 01250034 //SYSOUT DD SYSOUT=* 01260034 /* 01270034 //SOLER10B JOB 'GCOM035',CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1), 01280034 // TIME=(0,9),NOTIFY=SOLER10 01290034 //JOBLIB DD DSN=SOLERI.FORM.LOADBATC,DISP=SHR 01300034 // DD DSN=SYS1.SCEERUN,DISP=SHR 01310034 //STEP1 EXEC PGM=IDCAMS 01320034 //SYSPRINT DD SYSOUT=* 01330034 //SYSIN DD * 01340034 DELETE SOLER10.KSDS.GCOMCLI 01350034 //STEP2 EXEC PGM=IDCAMS 01360034 //SYSPRINT DD SYSOUT=* 01370034 //SYSIN DD * 01380034 DEFINE CLUSTER (NAME(SOLER10.KSDS.GCOMCLI)- 01390034 VOLUMES(DISK01) - 01400034 TRACKS(1 1) - 01410034 RECORDSIZE(305 305) - 01420034 INDEXED - 01430034 KEYS(5 0)) 01440034 //STEP3 EXEC PGM=IDCAMS 01450034 //SYSPRINT DD SYSOUT=* 01460034 //SYSIN DD * 01470034 REPRO INDATASET (SOLER10.QSAM.GCOMCLI) - 01480034 OUTDATASET (SOLER10.KSDS.GCOMCLI) 01490034 PRINT INDATASET (SOLER10.QSAM.GCOMCLI) CHARACTER 01500034 PRINT INDATASET (SOLER10.KSDS.GCOMCLI) CHARACTER 01510034 //GCOM035 EXEC PGM=GCOM035 01520034 //GCOMCMDL DD DSN=SOLER17.QSAM.GCOMCMDL,DISP=SHR 01530034 //GCOMCLI DD DSN=SOLER10.KSDS.GCOMCLI,DISP=SHR 01540034 //GCOMBDL DD SYSOUT=* 01550034 //GCOMA05 DD SYSOUT=* 01560034 //SYSOUT DD SYSOUT=* 01570034 /* 01580034 //SOLER101 JOB 'GCOM031', 01590034 // RESTART=*, 01600034 // MSGCLASS=X, 01610034 // CLASS=A, 01620034 // TIME=(0,6), 01630034 // MSGLEVEL=(1,1), 01640034 // NOTIFY=SOLER10 01650034 //* 01660034 //JOBLIB DD DISP=SHR, 01670034 // DSN=SOLERI.FORM.LOADBATC 01680034 // DD DISP=SHR, 01690034 // DSN=SYS1.SCEERUN 01700034 //* 01710034 //* SORT GCOMBCF 01720034 //* 01730034 //STEP0 EXEC PGM=SORT 01740034 //SORTIN DD DSN=SOLER10.QSAM.GCOMBCFA,DISP=SHR 01750034 //SORTOUT DD DSN=SOLER17.QSAM.GCOMBCF,DISP=SHR 01760034 //SYSIN DD * 01770034 SORT FIELDS=(1,5,CH,A) 01780034 //SYSOUT DD SYSOUT=* 01790034 //SORTMSG DD SYSOUT=* 01800034 //* 01810034 //* LAUNCH GCOM031 01820034 //* 01830034 //STEP1 EXEC PGM=GCOM031 01840034 //GCOMBCFA DD DSN=SOLER10.QSAM.GCOMBCFA, 01850034 // DISP=SHR 01860034 //GCOMBCF DD DSN=SOLER17.QSAM.GCOMBCF, 01870034 // DISP=SHR 01880034 //GCOMSTK DD DSN=SOLER17.QSAM.GCOMSTK, 01890034 // DISP=SHR 01900034 //GCOMSTP DD DSN=SOLER17.QSAM.GCOMSTP, 01910034 // DISP=SHR 01920034 //SYSIN DD * 01930034 00001010104 ARTICLE N1 20 01940034 00002010104 ARTICLE N2 12 01950034 00003010104 ARTICLE N3 25 01960034 00004010104 ARTICLE N9 30 01970034 /* 01980034 //SYSOUT DD SYSOUT=* 01990034 //GCOMA01 DD SYSOUT=* 02000034 //GCOMSMAJ DD SYSOUT=* 02010034 //SYSOUT DD SYSOUT=* 02020034 /* 02030034 // 02040034 //SOLER102 JOB 'GCOM032', 02050034 // RESTART=*, 02060034 // MSGCLASS=X, 02070034 // CLASS=A, 02080034 // TIME=(0,5), 02090034 // MSGLEVEL=(1,1), 02100034 // NOTIFY=SOLER10 02110034 //* 02120034 //JOBLIB DD DISP=SHR, 02130034 // DSN=SOLERI.FORM.LOADBATC 02140034 // DD DISP=SHR, 02150034 // DSN=SYS1.SCEERUN 02160034 //STEP0 EXEC PGM=SORT 02170034 //SORTIN DD DSN=SOLER10.QSAM.GCOMCMDJ,DISP=SHR 02180034 //SORTOUT DD DSN=SOLER10.QSAM.GCOMCMD,DISP=SHR 02190034 //SYSIN DD * 02200034 SORT FIELDS=(15,6,CH,A) 02210034 //SYSOUT DD SYSOUT=* 02220034 //SORTMSG DD SYSOUT=* 02230034 //STEP1 EXEC PGM=GCOM032 02240034 //GCOMCMD DD DSN=SOLER10.QSAM.GCOMCMD, 02250034 // DISP=SHR 02260034 //GCOMCMDJ DD DSN=SOLER10.QSAM.GCOMCMDJ, 02270034 // DISP=SHR 02280034 //GCOMSTP DD DSN=SOLER17.QSAM.GCOMSTP, 02290034 // DISP=SHR 02300034 //GCOMSTK DD DSN=SOLER17.QSAM.GCOMSTK, 02310034 // DISP=SHR 02320034 //GCOMCMDL DD DSN=SOLER17.QSAM.GCOMCMDL, 02330034 // DISP=SHR 02340034 //GCOMCMDN DD DSN=SOLER17.QSAM.GCOMCMDN, 02350034 // DISP=SHR 02360034 //SYSOUT DD SYSOUT=* 02370034 /* 02380034 //SOLER103 JOB 'GCOM033', 02390034 // RESTART=*, 02400034 // MSGCLASS=X, 02410034 // CLASS=A, 02420034 // TIME=(0,2), 02430034 // MSGLEVEL=(1,1), 02440034 // NOTIFY=SOLER10 02450034 //JOBLIB DD DISP=SHR, 02460034 // DSN=SOLERI.FORM.LOADBATC 02470034 // DD DISP=SHR, 02480034 // DSN=SYS1.SCEERUN 02490034 //STEP1 EXEC PGM=GCOM033 02500034 //GCOMCMDN DD DSN=SOLER17.QSAM.GCOMCMDN, 02510034 // DISP=SHR 02520034 //GCOMART DD DSN=SOLER10.QSAM.GCOMART, 02530034 // DISP=SHR 02540034 //GCOMBCF DD DSN=SOLER17.QSAM.GCOMBCF, 02550034 // DISP=SHR 02560034 //GCOMCMDA DD DSN=SOLER17.QSAM.GCOMCMDA, 02570034 // DISP=SHR 02580034 //GCOMA03 DD SYSOUT=* 02590034 //SYSOUT DD SYSOUT=* 02600034 /* 02610034 //SOLER10B JOB 'GCOM034',CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1), 02620034 // TIME=(0,9),NOTIFY=SOLER10 02630034 //JOBLIB DD DSN=SOLERI.FORM.LOADBATC,DISP=SHR 02640034 // DD DSN=SYS1.SCEERUN,DISP=SHR 02650034 //STEP1 EXEC PGM=IDCAMS 02660034 //SYSPRINT DD SYSOUT=* 02670034 //SYSIN DD * 02680034 DELETE SOLER10.KSDS.GCOMFOUR 02690034 //STEP2 EXEC PGM=IDCAMS 02700034 //SYSPRINT DD SYSOUT=* 02710034 //SYSIN DD * 02720034 DEFINE CLUSTER (NAME(SOLER10.KSDS.GCOMFOUR)- 02730034 VOLUMES(DISK01) - 02740034 TRACKS(1 1) - 02750034 RECORDSIZE(305 305) - 02760034 INDEXED - 02770034 KEYS(5 0)) 02780034 //STEP3 EXEC PGM=IDCAMS 02790034 //SYSPRINT DD SYSOUT=* 02800034 //SYSIN DD * 02810034 REPRO INDATASET (SOLER10.QSAM.GCOMFOUR) - 02820034 OUTDATASET (SOLER10.KSDS.GCOMFOUR) 02830034 PRINT INDATASET (SOLER10.QSAM.GCOMFOUR) CHARACTER 02840034 PRINT INDATASET (SOLER10.KSDS.GCOMFOUR) CHARACTER 02850034 //GCOM034 EXEC PGM=GCOM034 02860034 //GCOMBCF DD DSN=SOLER17.QSAM.GCOMBCF,DISP=SHR 02870034 //GCOMFOUR DD DSN=SOLER10.KSDS.GCOMFOUR,DISP=SHR 02880034 //GCOMBCFB DD DSN=SOLER17.QSAM.GCOMBCFB,DISP=SHR 02890034 //ETAT104 DD SYSOUT=* 02900034 //GCOMA04 DD SYSOUT=* 02910034 //SYSOUT DD SYSOUT=* 02920034 /* 02930034 //SOLER10B JOB 'GCOM035',CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1), 02940034 // TIME=(0,9),NOTIFY=SOLER10 02950034 //JOBLIB DD DSN=SOLERI.FORM.LOADBATC,DISP=SHR 02960034 // DD DSN=SYS1.SCEERUN,DISP=SHR 02970034 //STEP1 EXEC PGM=IDCAMS 02980034 //SYSPRINT DD SYSOUT=* 02990034 //SYSIN DD * 03000034 DELETE SOLER10.KSDS.GCOMCLI 03010034 //STEP2 EXEC PGM=IDCAMS 03020034 //SYSPRINT DD SYSOUT=* 03030034 //SYSIN DD * 03040034 DEFINE CLUSTER (NAME(SOLER10.KSDS.GCOMCLI)- 03050034 VOLUMES(DISK01) - 03060034 TRACKS(1 1) - 03070034 RECORDSIZE(305 305) - 03080034 INDEXED - 03090034 KEYS(5 0)) 03100034 //STEP3 EXEC PGM=IDCAMS 03110034 //SYSPRINT DD SYSOUT=* 03120034 //SYSIN DD * 03130034 REPRO INDATASET (SOLER10.QSAM.GCOMCLI) - 03140034 OUTDATASET (SOLER10.KSDS.GCOMCLI) 03150034 PRINT INDATASET (SOLER10.QSAM.GCOMCLI) CHARACTER 03160034 PRINT INDATASET (SOLER10.KSDS.GCOMCLI) CHARACTER 03170034 //GCOM035 EXEC PGM=GCOM035 03180034 //GCOMCMDL DD DSN=SOLER17.QSAM.GCOMCMDL,DISP=SHR 03190034 //GCOMCLI DD DSN=SOLER10.KSDS.GCOMCLI,DISP=SHR 03200034 //GCOMBDL DD SYSOUT=* 03210034 //GCOMA05 DD SYSOUT=* 03220034 //SYSOUT DD SYSOUT=* 03230034 /* 03240034