Gestion des commentaires; DD en entrée et sortie détectés par masques de nom.
Code JCL
//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
//* ---------------------------------------------------------
