JCL-Drawer : Generated flowchart of JOBTST07

//JOBTST07 JOB (COMPTA),'PROGRAMMEUR',CLASS=A,MSGCLASS=B, // COND=(8,GE),USER=USERTST,PASSWORD=PASSTST, // PRTY=8,REGION=2048K,TIME=1,NOTIFY=USERTST, // RESTART=* //************************************************************ //* JOBTST07 : 2 prog DDnames avec masques * //* [A-Z][A-Z]###R# en entrée et [A-Z][A-Z]###W# en sortie * //* ordres OPC FETCH MEMBER avec condition * //************************************************************ //* commentaire de la joblib //JOBLIB DD DSN=TST.JOBLIB.LOAD1,DISP=SHR //* //* Quelques directives OPC non prise en compte //*%OPC SCAN commentaire //*%OPC SETVAR NOSTP=STEP03 commentaire2 //*%OPC SETFORM OCFRSTC=(YYMMDD) commentaire3 //* //* 1er step : PG007 //* avec un commentaire assez long //* pour décaler le step suivant vers le bas //* long //* long //* long //* long //* long //* long //* long //* long //* long //* long //* long //* long //* long //* long //STEP01 EXEC PGM=PG007 commentaireSTEP01 //STEPLIB DD DSN=TST.STPLIB.LOAD1,DISP=SHR //SYSIN DD * parametre en sysin /* //PG007W1 DD DSN=TST.JOBTST07.STEP01.S1,DISP=SHR commentairePG007K //PG007W2 DD DSN=TST.JOBTST07.STEP01.S2, --> commentairePG007L // DISP=SHR //PG007R0 DD DSN=TST.JOBTST07.STEP01.E1,DISP=SHR commentaire PG007A //PG007R9 DD DSN=TST.JOBTST07.STEP01.E2, --> commentaire PG007B // DISP=SHR //* //* 2eme STEP : FETCH MEMBER de PG010 //*%OPC FETCH MEMBER=PG010 commentaire //*%OPC PHASE=SETUP commentaire2 //*%OPC COMP=((&OYMD1..EQ.&OCFRSTC), //*%OPC (&APPL..EQ.APPL1)) //* //* 3eme STEP : PG008 //STEP02 EXEC PGM=PG008 commentaire //STEPLIB DD DSN=TST.STPLIB.LOAD1,DISP=SHR //SYSIN DD * parametre en sysin /* //PG008W1 DD DSN=TST.JOBTST07.STEP02.S1,DISP=SHR commentaire //PG008W2 DD DSN=TST.JOBTST07.STEP02.S2, <-- commentaire // DISP=SHR //* 3eme STEP : FETCH MEMBER des DSN GPG008A et GPG008B //*PG008R1 DD DSN=TST.JOBTST07.STEP02.E1,DISP=SHR commentaire //*PG008R2 DD DSN=TST.JOBTST07.STEP02.E2, <-- commentaire //* DISP=SHR //*%OPC FETCH MEMBER=PG008E //* PG011 = fetch d'un membre équivalent à un PGM //*%OPC FETCH MEMBER=PG011 //*%OPC PHASE=SETUP //*%OPC COMP=((&OYMD1..EQ.&OCFRSTC), //*%OPC (&APPL..EQ.APPL1)) //PG011W9 DD DSN=TST.JOBTST07.STEP03.S1,DISP=SHR commentaire //* fin du job JOBTST07 -message d'alerte sur le code situé //* après la carte fin de job // //STEP99 EXEC PGM=IEFBR14 step non exécuté ignoré //* commentaire ignoré aussi //* ---------------------------------------------------------