Sysins et DSN sur les mêmes cartes DD.
Code JCL
//JOBTST02 JOB (COMPTA),'PROGRAMMEUR',CLASS=A,MSGCLASS=B,
// COND=(8,GE),USER=USERTST,PASSWORD=PASSTST,
// PRTY=8,REGION=2048K,TIME=1,NOTIFY=USERTST,
// RESTART=*
//************************************************************
//* JOBTST02 : desalloc/alloc en DSN et en SYSIN *
//* + SYSIN de 4 fichiers *
//* La joblib n'est pas à signaler dans le dessin *
//* 1 ligne JCL mis en commentaire *
//* Fichier de travail sans DSN *
//* Substitution de DFSRRC00 par les noms des programmes IMS *
//************************************************************
//*
//GJOBLIB INCLUDE MEMBER=JOBLBTS2 include JOBLBTS2 à ne pas développer
//*
//DESALL01 EXEC PGM=IDCAMS
//MYLOG DD SYSOUT=*,
// LRECL=133,BLKSIZE=13300,DSORG=PS,RECFM=FB
//SYSIN DD *
DELETE TST.JOBTST02.STEP03.SORTIE1
//*
//* allocation d'un fichier en SYSIN : détection d'IDCAMS
//*
//TSTALLSY EXEC PGM=IDCAMS
//SYSIN DD *
DELETE TST.JOBTST02.STEP03.TSTVSAM -
PURGE
SET MAXCC = 00
DEFINE CLUSTER(NAME(TST.JOBTST02.STEP03.TSTVSAM) -
TRACKS(10,100) -
TO(&MYVAR) -
KEYS(005 010) -
RECORDSIZE(00100 01000) -
SHAREOPTIONS(2 3) -
) -
DATA (CONTROLINTERVALSIZE(04096)) -
INDEX (CONTROLINTERVALSIZE(02048))
//*
//************************************************************
//* desalloc/prealloc d'1 fichier et SYSIN de 4 fichiers *
//************************************************************
//ALLOC02 EXEC PGM=IEFBR14,COND=(8,LT,DESALL01)
//OUT1 DD DSN=TST.JOBTST02.STEP03.SORTIE1,
//* DISP=SHR carte de JCL en commentaire associée à OUT1
// DISP=(NEW,CATLG,DELETE),
// RECFM=FB,LRECL=80,BLKSIZE=8000, comm OUT1
// SPACE=(TRKS,(1,10))
//*
//* ------------- PGM IMS lancé en DLI -------------------
//STEP03 EXEC PGM=DFSRRC00,COND=(8,LT,ALLOC2),REGION=2048K,TIME=10,
// PARM='DLI,PGMTST02,PSBTST02,,,,,,,,,IMSTST,,,,Y'
//STEPLIB DD DSN=TST.STPLIB.LOAD1,DISP=SHR
//* commentaire SYSIN : DSN n°1
//SYSIN DD DSN=TST.JOBTST02.STEP03.SYSIN1,DISP=SHR
//* commentaire SYSIN : DSN n°2
// DD DSN=TST.JOBTST02.STEP03.SYSIN2,DISP=SHR
//* commentaire SYSIN : DSN n°3
// DD DSN=TST.JOBTST02.STEP03.SYSIN3,DISP=SHR
//* avec une vrai SYSIN en plus, perdue au milieu des DSN
// DD *
TEST SYSIN INCLUSE DANS UN GROUPE DE DSN EN PARAMETRE
2
3
4
5
6ème ligne
/*
//* commentaire SYSIN : DSN n°4
// DD DSN=TST.JOBTST02.STEP03.SYSIN4,DISP=SHR
//ENTREE1 DD DSN=TST.JOBTST02.STEP03.ENTREE1,DISP=SHR
// DD *
TEST SYSIN sur DDname ENTREE1
//SORTIE1 DD DSN=TST.JOBTST02.STEP03.SORTIE1,DISP=SHR
//* La règle d'allocation en SYSIN doit placer ce DSN en sortie
//ADETERM DD DSN=TST.JOBTST02.STEP03.TSTVSAM,DISP=SHR
//* Pour affichage fenêtre de forcage E/S
//FORCAGE DD DUMMY
//TRAVAIL DD DISP=(NEW,DELETE,DELETE),UNIT=WORKDSK,
// RECFM=FB,LRECL=80,BLKSIZE=8000,
// SPACE=(TRKS,(1,10)) Fichier de travail sans DSN
//*
//* ------------- PGM IMS lancé en BMP -------------------
//STEP04 EXEC PGM=DFSRRC00,
// PARM=(BMP,PGMTST04,PSBTST04,,,,,,,0,0,,,&IMSID,&IMSID.BMP),
//ENTREE1 DD DSN=TST.JOBTST02.STEP03.SORTIE1,DISP=SHR
//*
//************** fin du job JOBTST02 ********************
//