Gestion de PROC instream; utilitaires IDCAMS, IEBGENER, IEBCOPY, ICETOOL.
Code JCL
//JOBTST09 JOB (COMPTA),'PROGRAMMEUR',CLASS=A,MSGCLASS=B,
// COND=(8,GE),USER=USERTST,PASSWORD=PASSTST,
// PRTY=8,REGION=2048K,TIME=1,NOTIFY=USERTST,
// RESTART=*
//************************************************************
//* JOBTST09 : Gestion d'une PROC instream *
//* Déclaration et appel de la PROC *
//* Détection des DDnames en entrée et sortie des *
//* utilitaires IDCAMS, IEBGENER, ICEGENER, ICETOOL, IEBCOPY *
//************************************************************
// JCLLIB ORDER=TST.JOBLIB.LOAD9 ma jcllib
//*déclaration Procédure instream avec 3 paramètres
//PROC09 PROC PROG=,FIC1=,OUT2= pas de valeur par défaut
//ST0901 EXEC PGM=&PROG
//SYSUT1 DD DSN=&FIC1,DISP=SHR
//SYSUT2 DD &OUT2
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
// PEND
//*
//*EXECUTION DE L'UTILITAIRE PRINT-PUNCH DANS UNE PROC
//STEP01 EXEC PROC=PROC09,FIC1='TST.JOBTST09.STEP01.SYSUT1',
// OUT2='SYSOUT=*',PROG=IEBPTPCH
//PROC09.SYSIN DD *
PRINT TYPORG=P0,MAXNAME=1,MAXFLDS=1
RECORD FIELD=(80)
/*
//* Utilitaire IDCAMS, fonction REPRO
//STEP02 EXEC PGM=IDCAMS
//AAAAAA DD DSN=TST.JOBTST09.UTIL.AAAAAA,DISP=SHR outfile
//SYSIN DD *
REPRO INFILE(BBBBBB) -
OUTFILE(AAAAAA)
/*
//BBBBBB DD DSN=TST.JOBTST09.UTIL.BBBBBB,DISP=SHR infile
//*
//* Utilitaire IEBGENER, SYSIN à DUMMY
//STEP03 EXEC PGM=IEBGENER
//SYSUT2 DD DSN=TST.JOBTST09.UTIL.AAAAAA,DISP=SHR outfile
//SYSIN DD DUMMY
//SYSUT1 DD DSN=TST.JOBTST09.UTIL.BBBBBB,DISP=SHR infile
//*
//* Utilitaire IEBCOPY, SYSIN avec INDD et OUTDD
//STEP04 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//AAAAAA DD DISP=SHR,DSN=TST.JOBTST09.UTIL.AAAAAA outfile
//BBBBBB DD DISP=SHR,DSN=TST.JOBTST09.UTIL.BBBBBB infile
//SYSIN DD *
COPY INDD=((BBBBBB,R)),OUTDD=AAAAAA
//*
//* Utilitaire ICETOOL, SYSIN avec FROM et TO
//STEP05 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(BBBBBB) TO(AAAAAA) ON(10,5,CH) HIGHER(3)
/*
//AAAAAA DD DISP=SHR,DSN=TST.JOBTST09.UTIL.AAAAAA outfile
//BBBBBB DD DISP=SHR,DSN=TST.JOBTST09.UTIL.BBBBBB infile
//
