Create Member
Posted: Wed May 06, 2020 2:06 pm
Hello everyone,
I am new in JCL, so that I have the following question and I hope anyone can answer this
I would like to create a new Member in a existing PDS per JCL (inspired by creating new pds in my library). So I wrote the following code to do:
-At first the existing Member is deleted.
-After that there must be my mistake.
...
...
Something is incorrect apropos of the allocation of the space, which is marked with <===.
Thank you very much for your support
Gustav
I am new in JCL, so that I have the following question and I hope anyone can answer this
I would like to create a new Member in a existing PDS per JCL (inspired by creating new pds in my library). So I wrote the following code to do:
-At first the existing Member is deleted.
-After that there must be my mistake.
...
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD DUMMY
//SYSIN DD *
// DELETE ....TEST.Memlist(AUS)
/*
//*
//STEP02 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&SYSUID..TEST.PDS,DISP=SHR
//SYSUT2 DD DSN=&SYSUID..TEST.Memlist(AUS),DISP=SHR
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,0) <===
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSIN DD *
// DELETE ....TEST.Memlist(AUS)
/*
//*
//STEP02 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=&SYSUID..TEST.PDS,DISP=SHR
//SYSUT2 DD DSN=&SYSUID..TEST.Memlist(AUS),DISP=SHR
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,0) <===
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
...
Something is incorrect apropos of the allocation of the space, which is marked with <===.
Thank you very much for your support
Gustav