Archivo JCL para crear PDS y miembro

Question

¿Cómo puedo escribir un archivo JCL que creará un PDS y un miembro dentro de ese mismo PDS?

Answer 1

Puede establecer el miembro en el nuevo PDS solo si escribe en él. Si hace algo como esto:

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

... obtendrá el PDS catalogado pero el miembro no se guardará. Si ejecuta un programa que escribe en el miembro, por ejemplo:

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

... el miembro se guardará.

Parece que desea crear un miembro vacío para un trabajo o paso posterior. Normalmente esto es innecesario ya que BPAM creará un miembro si no existe y sobrescribirá un miembro existente si lo hace.

Answer 2

IEBCOPY funciona también para usted. Se usa para crear un PDS o para copiar un PDS a otro parcial o completamente al seleccionar u omitir los miembros requeridos de un PDS. Combina ambos pasos mencionados anteriormente en uno ... Espero haberte dejado claro. Regrese si necesita sintaxis JOB para eso ...