In this example, sequential input is converted into two partitioned
members. The newly created members are merged into an existing partitioned
data set. User labels on the input data set are passed to the user
exit routine.
//DISKTODK JOB ...
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSNAME=INSET,UNIT=disk,DISP=(OLD,KEEP),
// VOLUME=SER=111112,LABEL=(,SUL)
//SYSUT2 DD DSNAME=EXISTSET,UNIT=disk,DISP=(MOD,KEEP),
// VOLUME=SER=111113
GENERATE MAXNAME=3,MAXGPS=1
EXITS INHDR=ROUT1,INTLR=ROUT2
MEMBER NAME=(MEMX,ALIASX)
GROUP1 RECORD IDENT=(8,'FIRSTMEM',1)
MEMBER NAME=MEMY
The control statements are as follows:
- SYSUT1 DD defines the input data set (INSET). The input data set,
which resides on a disk volume, has standard user labels.
- SYSUT2 DD defines the output partitioned data set (EXISTSET).
The members created during this job step are merged into the partitioned
data set.
- The SYSIN DD statement is omitted. Because the GENERATE line
does not begin with //, the system assumes it is preceded by a //SYSIN
DD * line. SYSIN DD defines the control data set, which follows
in the input stream. The utility control statements are used to create
members from sequential input data; the statements do not specify
any editing.A /* at the end of any DD * data set is unnecessary
because a JCL statement or end of the job stream marks the end of
the input stream data set.
- GENERATE indicates that a maximum of three names and aliases are
included in subsequent MEMBER statements and that one IDENT parameter
appears in a subsequent RECORD statement.
- EXITS defines the user routines that are to process user labels.
- The first MEMBER statement assigns a member name (MEMX) and an
alias (ALIASX) to the first member.
- The RECORD statement identifies the last record to be placed in
the first member. The name of this record (FIRSTMEM) appears in the
first eight positions of the input record.
- The second MEMBER statement assigns a member name (MEMY) to the
second member. The remainder of the input data set is included in
this member.