Fichier JCL pour créer PDS et membre

Question

Comment puis-je écrire un fichier JCL qui va créer un PDS et un membre dans ce même PDS?

Answer 1

Vous pouvez établir le membre dans le nouveau PDS uniquement si vous lui écrivez. Si vous faites quelque chose comme ceci:

//S1  EXEC PGM=IEFBR14          
//PDS  DD DSN=USER.TEST.PDS(NEWMEM),DISP=(NEW,CATLG),  
//   SPACE=(TRK,(1,1,24)),UNIT=DISK,      
//   LRECL=80,RECFM=FB,BLKSIZE=6080 

... vous obtiendrez le PDS catalogué mais le membre ne sera pas sauvé. Si vous exécutez un programme qui écrit dans le membre, par exemple:

//S2  EXEC PGM=IEBGENER          
//SYSUT1 DD *             
//SYSUT2 DD DSN=USER.TEST.PDS(NEWMEM),DISP=(NEW,CATLG),  
//   SPACE=(TRK,(1,1,24)),UNIT=DISK,      
//   LRECL=80,RECFM=FB,BLKSIZE=6080      
//SYSPRINT DD SYSOUT=*           
//SYSIN DD DUMMY 

... alors le membre sera enregistré.

Il semble que vous souhaitiez créer un membre vide pour un travail ou une étape ultérieure. En général, cela est inutile car BPAM va créer un membre s'il n'existe pas et écraser un membre existant s'il le fait.

Answer 2

IEBCOPY fonctionne aussi pour vous. Il est utilisé pour créer un PDS ou pour copier un PDS à un autre partiellement ou complètement en sélectionnant ou en validant les membres nécessaires d'un PDS. Il combine les deux étapes mentionnées ci-dessus en un ... J'espère que je vous ai fait comprendre. Revenez si vous avez besoin de la syntaxe JOB pour cela ..