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

//JOBTST08 JOB (COMPTA),'PROGRAMMEUR',CLASS=A,MSGCLASS=B, // COND=(8,GE),USER=USERTST,PASSWORD=PASSTST, // PRTY=8,REGION=2048K,TIME=1,NOTIFY=USERTST, // RESTART=* //************************************************************ //* JOBTST08 : 1 prog avec de la DATA en entrée * //* suivi d'1 prog avec plusieurs SYSIN hautes et larges * //* placées en entrée avec des fichiers dans le même DD * //* ...ou pas * //************************************************************ //JOBLIB DD DSN=TST.JOBLIB.LOAD8,DISP=SHR //* //STEP01 EXEC PGM=PG008 commentaireSTEP01 //STEPLIB DD DSN=TST.STPLIB.LOAD8,DISP=SHR //SYSIN DD * parametre en sysin /* //PG008W1 DD DSN=TST.JOBTST08.STEP01.S1,DISP=SHR commentairePG008K //PG008W2 DD DSN=TST.JOBTST08.STEP01.S2, --> commentairePG008L // DISP=SHR //PGDATA DD DATA,DLM='@@' //Ceci n'est pas une ligne de JCL c'est de la DATA à gérer comme de la SYSIN //dans le dessin du job. // /* //Le délimiteur @@ termine le flux de DATA sur la ligne ci-dessous @@ //PG008R1 DD DSN=TST.JOBTST08.STEP01.E1,DISP=SHR commentaire PG008A //PG008R2 DD DSN=TST.JOBTST08.STEP01.E2, --> commentaire PG008B // DISP=SHR //* second step décalé vers le bas à cause de la sysin forcée en entrée //STEP02 EXEC PGM=PG0082 //SYSUT1 DD * param en SYSUT1 ligne 01 param en SYSUT1 ligne 02 param en SYSUT1 ligne 03 param en SYSUT1 ligne 04 param en SYSUT1 ligne 05 param en SYSUT1 ligne 06 param en SYSUT1 ligne 07 param en SYSUT1 ligne 08 param en SYSUT1 ligne 09 param en SYSUT1 ligne 10 param en SYSUT1 ligne 11 param en SYSUT1 ligne 12 param en SYSUT1 ligne 13 //ENTREE DD DSN=TST.JOBTST08.STEP02.ENTREE,DISP=SHR // DD * parametre long-long-long-long-long suivant en ENTREE ligne 01 parametre long-long-long-long-long suivant en ENTREE ligne 02 parametre long-long-long-long-long suivant en ENTREE ligne 03 //ENTREE2 DD DSN=TST.JOBTST08.STEP02.ENTREE2,DISP=SHR //ENTREE3 DD DSN=TST.JOBTST08.STEP02.ENTREE3,DISP=SHR //ENTREE4 DD DSN=TST.JOBTST08.STEP02.ENTREE4,DISP=SHR //SYSUT2 DD DSN=TST.JOBTST08.STEP02.SYSUT2,DISP=SHR //SYSIN DD * TRAITEMENT //* ----------------------fin du job JOBTST08