1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
|
//LANCE1 JOB (XXXx,Y),LANC1,MSGCLASS=K,CLASS=D
//* SELECTION DU PREMIER JOB DE LA LISTE
//SELECT EXEC PGM=IDCAMS
//LISTE DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE(ZZLIST0)
//PREMIER DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE(ZZCART2)
//SYSIN DD *
REPRO INFILE(LISTE) OUTFILE(PREMIER) COUNT(1)
//* FIN DU LANCEUR SI PLUS DE JCL DANS LA LISTE ELAGUEE
// IF RC = 4 THEN
//MSGFIN1 EXEC PGM=SYSAPPEL,
// PARM='SE ''FIN NORMALE DU LANCEUR'',USER=(&SYSUID)'
//MSGFIN2 EXEC PGM=SYSAPPEL,
// PARM='SE ''FIN NORMALE DU LANCEUR'',USER=(&SYSUID)'
//MSGFIN3 EXEC PGM=SYSAPPEL,
// PARM='SE ''FIN NORMALE DU LANCEUR'',USER=(&SYSUID)'
// ENDIF
//* RECONSTITUTION DU LANCEUR2
//CRELANC2 EXEC PGM=IDCAMS
//CARTES DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE(ZZCART1)
// DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE(ZZCART2)
// DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE(ZZCART3)
//LANC2 DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE($LANCE2)
//SYSPRINT DD SYSOUT=X
//SYSIN DD *
REPRO INFILE(CARTES) OUTFILE(LANC2)
//* RECOPIE DE LA LISTE ELAGUEE HORMIS LE PREMIER
//HORMIS EXEC PGM=IDCAMS
//LISTE DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE(ZZLIST0)
//SAUF1 DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE(ZZLIST1)
//SYSPRINT DD SYSOUT=X
//SYSIN DD *
REPRO INFILE(LISTE) OUTFILE(SAUF1) SKIP(1)
IF MAXCC = 12 THEN SET MAXCC = 1
//* RECOPIE SUR ZZLIST0 ==> PRET A RECOMMENCER
//NEWLIST0 EXEC PGM=IDCAMS,COND=(1,LE,HORMIS)
//LIST1 DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE(ZZLIST1)
//LIST0 DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE(ZZLIST0)
//SYSPRINT DD SYSOUT=X
//SYSIN DD *
REPRO INFILE(LIST1) OUTFILE(LIST0)
//* SOUMISSION DU LANCEUR 2
//SOUMET2 EXEC PGM=IEBGENER,COND=(1,LE,HORMIS)
//SYSOUT DD SYSOUT=X
//SYSPRINT DD SYSOUT=X
//SYSUT1 DD DISP=SHR,DSN=USER.RE7.INTEGRAT.MOE($LANCE2)
//SYSUT2 DD SYSOUT=(,INTRDR),DCB=(RECFM=FB,LRECL=80)
//SYSIN DD DUMMY
//* |
Partager