IEFBR14 Create PDS Example

Allocate Datasets Tutorial   

Scenario - Create a PDS using the IEFBR14 utility.

JCL -

----+----1----+----2----+----3----+----4----+----5----+
//MATEPKP  JOB (123),'MTH',CLASS=A,MSGCLASS=A,
//             MSGLEVEL=(1,1),NOTIFY=&SYSUID 
//*
//STEP01   EXEC PGM=IEFBR14
//DD1      DD DSN=MATEPK.IEFBR14.PDS,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(10,10,10),RLSE),
//            UNIT=SYSDA,VOLUME=SER=DEVHD4,
//            DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=800)

Output -

Go to Spool (SDSF -> ST) and verify the status in the JESYSMSG DDname of the corresponding job.

Allocate PDS Status

Explaining Example -

  • DISP=(NEW,CATLG,DELETE) - specifies creates the new file.
  • DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=800) - Specifies the PDS file with record length 80 and block size 800.
  • IEF142I MATEPKP STEP01 - STEP WAS EXECUTED - COND CODE 0000 - Specifies the STEP01 completed successfully.
  • MATEPK.IEFBR14.PDS  CATALOGED - Specifies the MATEPK.IEFBR14.PDS successfully created and cataloged.