File JCL per creare PDS e membro

Question

Come posso scrivere un file JCL che creerà un PDS e un membro all'interno dello stesso PDS?

Answer 1

È possibile stabilire il membro nel nuovo PDS solo se si scrive su di esso. Se si fa qualcosa di simile:

//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 

... si otterrà il catalogo PDS ma il membro non verrà salvato. Se si esegue un programma che scrive sul membro, ad esempio:

//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 

... quindi il membro verrà salvato.

Sembra che si desideri creare un membro vuoto per un lavoro o un passaggio successivo. In genere questo non è necessario poiché BPAM crea un membro se non esiste e sovrascrive un membro esistente se lo fa.

Answer 2

IEBCOPY funziona anche per te. Viene utilizzato per creare un PDS o per copiare un PDS in un altro parzialmente o completamente selezionando o omettendo i memebers richiesti di un PDS. Combina entrambi i passaggi sopra citati in uno ... Spero di averti chiarito. Torna se hai bisogno di sintassi JOB per quello.