Generate PDS member while copying

EXAMPLE:

Copying a Sequential Dataset into a PDS Member

//IEBGENER JOB (12345), CLASS=A, MSGCLASS=X,NOTIFY=&SYSUID
//STEP1 EXEC PGM=IEBGENER
//SYSUT1 DD DSN=T12345.FILE1.PS, DISP=SHR
//SYSUT2 DD DSN=T12345.FILE2.PDS, DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD DD*
        GENERATE MAXNAME=1
        MEMBER NAME = MEMBER1
//

Explanation:

  • EXEC Statement: Executes the IEBGENER utility to copy data.

  • DD Statements:

    • SYSUT1 DD: Specifies the input dataset T12345.FILE1.PS, which is a sequential dataset.

    • SYSUT2 DD: Specifies the output dataset as a partitioned dataset (PDS), T12345.FILE2.PDS, where a new member will be created.

    • SYSPRINT DD: Directs informational messages or logs to system output (SYSOUT=*).

    • SYSOUT DD: Handles general system output, directed to the default system output (SYSOUT=*).

  • SYSIN DD: Uses in-stream data to specify the generation of a new member in the PDS with the following parameters:

    • GENERATE MAXNAME=1: Specifies that one member will be generated.

    • MEMBER NAME=MEMBER1: Creates a member named (MEMBER1) in the partitioned dataset (T12345.FILE2.PDS).

This program uses the IEBGENER utility to copy data from a sequential dataset (T12345.FILE1.PS) into a newly generated member (MEMBER1) within the partitioned dataset (T12345.FILE2.PDS). The (GENERATE) keyword within SYSIN ensures that the member is created with the specified name.

Last updated

Was this helpful?