De: [email protected] <[email protected]> Em nome de Rene BRANDT via groups.io
Enviada em: sexta-feira, 25 de outubro de 2024 19:04
Para: [email protected]
Assunto: Re: [H390-MVS] JCL Expert

here is the JCL i used with my version :

//S1 EXEC PGM=LISTLIB,PARM='your library'
//STEPLIB DD DSN=your loadlib,DISP=SHR
//SYSOUT DD SYSOUT=H
//LIB DD DSN=same as parm=,DISP=SHR,
// DCB=(RECFM=U,BLKSIZE=256,LRECL=256)
//FJCL DD SYSOUT=(A,INTRDR)

LISTLIB reads the directory and create a DD with le name of the library(member) that goes in the FJCL which returns in jes and there the IEBGENER builds the SYSUT2 with the data of each member and this file has to retrun to jes with TYPRUN=SCAN for each member
so you can build SYSUT2 with :
//JOBN JOB ....,
// TYPRUN=SCAN
//IEBG EXEC PGM=IEBGENER
//SYSUT1 DD DATA,DLM=ZZ
// DD DSN=your library(member),DISP=SHR ===> that is created by the LISTIB
ZZ
//SYSUT2 DD SYSOUT=(A,INTRDR)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY

and all these lines for each member

HTH
搁别苍é