JCL-Drawer : Dessin généré de JOBTST01

// ligne à ignorer car située avant une carte JOB //JOBTST01 JOB (COMPTA),'PROGRAMMEUR',CLASS=A,MSGCLASS=B, // COND=(8,GE),USER=USERTST,PASSWORD=PASSTST, // PRTY=8,REGION=2048K,TIME=1,NOTIFY=USERTST, // RESTART=* //************************************************************ //* JOBTST01 : JOBLIB en INCLUDE * //* -1er step 2 fichiers 3 sysins * //* -Suivi d'1 step en INCLUDE MEMBER à dessiner comme un * //* programme (selon paramétrage) * //* -Suivi de 2 steps avec 1 même DDNAME (SYSUT1) en entrée * //* et en sortie selon le PGM * //************************************************************ // INCLUDE MEMBER=JOBLIBTS //* //* 1er prog : test d'une sysin importante //STEP01 EXEC PGM=PRGTST01,REGION=2048K,TIME=10 commSTEP01 //STEPLIB DD DSN=TST.STPLIB.LOAD1,DISP=SHR //* 40 lignes de parametres //SYSIN DD * parametre en sysin 00 parametre en sysin 01 parametre en sysin 02 parametre en sysin 03 parametre en sysin 04 parametre en sysin 05 parametre en sysin 06 parametre en sysin 07 parametre en sysin 08 parametre en sysin 09 parametre en sysin 10 parametre en sysin 11 parametre en sysin 12 parametre en sysin 13 parametre en sysin 14 parametre en sysin 15 parametre en sysin 16 parametre en sysin 17 parametre en sysin 18 parametre en sysin 19 parametre en sysin 20 parametre en sysin 21 parametre en sysin 22 parametre en sysin 23 parametre en sysin 24 parametre en sysin 25 parametre en sysin 26 parametre en sysin 27 parametre en sysin 28 parametre en sysin 29 parametre en sysin 30 parametre en sysin 31 parametre en sysin 32 parametre en sysin 33 parametre en sysin 34 parametre en sysin 35 parametre en sysin 36 parametre en sysin 37 parametre en sysin 38 parametre en sysin 39 /* //ENTREE1 DD DSN=TST.JOBTST01.STEP01.ENTREE1,DISP=SHR commENTREE1 //ENTREE2 DD * sysin de 0035 caratères de long --- sur 2 lignes //PARAM1 DD * ligne 1 = debut ligne 2 = suite ligne 3 = suite ligne 4 = suite ligne 5 = suite ligne 6 = fin //SORTIE1 DD DSN=TST.JOBTST01.STEP01.SORTIE1, commSORTIE1 // DISP=(NEW,CATLG),DCB=*.ENTREE1, // SPACE=(TRKS,(1,10)) comm2SORTIE1 //* //* Attention à l'INCLUDE MEMBER (à gérer comme un PGM) //* l'optimisation doit relier les 2 fichiers sans remonter //* le STEP02 à cause de la SYSIN trop grosse //STEP02 INCLUDE MEMBER=JB01ST02 //* //STEP03 EXEC RECOPIE,PROG=ICEGENER //SYSIN DD DUMMY //SYSUT1 DD DSN=TST.JOBTST01.STEP03.SYSUT1, // DISP=SHR //SYSUT2 DD DSN=TST.JOBTST01.STEP03.SYSUT2, // DISP=SHR //* DISP=(NEW,CATLG,DELETE), //* UNIT=TSTUNIT, //* SPACE=(TRK,(10,100),RLSE), //* DCB=(RECFM=FBA,LRECL=132,BLKSIZE=0,DSORG=PS), //* LABEL=RETPD=0365 //STEP04 EXEC PGM=IEFBR14 //SYSUT1 DD DSN=TST.JOBTST01.STEP04.SYSUT1, // DISP=SHR //