Handling of a high size sysin as parameter of a step.
JCL code
// 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
//