//Ydd1 JOB SC0668dd,
//         CLASS=A,
//         MSGCLASS=X
//*
//*-------------------------------------------------------------------*//
//*                                                                   *//
//*  Adding 4 Members to a Library Using IEBGENER with IDENTs         *//
//*                                                                   *//
//*-------------------------------------------------------------------*//
//*
//         EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  *
10101010rec  1
11000000rec  2
11111111rec  3       mem1
22222222rec  4       mem2
30000000rec  5
30004000rec  6
33333333rec  7       mem3
44400000rec  8
44488888rec  9       mem4
/*
//SYSUT2   DD  DSN=SC066825.NOLABEL,
//             DISP=OLD
//SYSIN    DD  *
 GENERATE MAXNAME=4,                                                   *
          MAXGPS=3
 MEMBER NAME=MEM1
 RECORD IDENT=(8,'11111111',1)
 MEMBER NAME=MEM2
 RECORD IDENT=(8,'22222222',1)
 MEMBER NAME=MEM3
 RECORD IDENT=(8,'33333333',1)
 MEMBER NAME=MEM4
/*
//