IEBGENER-splitting a sequential file into PDS members
Posted: Wed Feb 01, 2012 12:03 pm
hi i have a record like below
000001 member branch
000002 pavan csit
000003 murali csit
000004 thiru ece
000005 ravi ece
000006 kiran mech
000007 anil mech
now i have to split these records into 3 members of PDS based on their branch, i have to use IEBGENER only.
i tried like this
000100 //AB808yyZ JOB (xxxx),PAVAN,CLASS=E,MSGCLASS=Z,NOTIFY=AB808yy
000200 //STEP1 EXEC PGM=IEBGENER
000300 //SYSPRINT DD SYSOUT=A
000400 //SYSUT1 DD DSNAME=USER.SHARE.PAVAN.TEST.UTI.A,
000500 // DISP=SHR
000600 //SYSUT2 DD DSNAME=USER.SHARE.PAVAN.TEST.UTI.B,DISP=(MOD,KEEP)
000700 //* DISP=(,KEEP),SPACE=(TRK,(10,5,5)),
000800 //* DCB=(RECFM=FB,LRECL=80,BLKSIZE=2000)
000900 //SYSIN DD *
001000 GENERATE MAXNAME=3,MAXGPS=2
001100 MEMBER NAME=CSIT
001200 GROUP1 RECORD IDENT=(6,'MURALI',1)
001300 MEMBER NAME=ECE
001400 GROUP2 RECORD IDENT=(4,'RAVI',1)
001500 MEMBER NAME=MECH
001600 /*
but i am getting output only one member as csit having all records,
please help me with this
000001 member branch
000002 pavan csit
000003 murali csit
000004 thiru ece
000005 ravi ece
000006 kiran mech
000007 anil mech
now i have to split these records into 3 members of PDS based on their branch, i have to use IEBGENER only.
i tried like this
000100 //AB808yyZ JOB (xxxx),PAVAN,CLASS=E,MSGCLASS=Z,NOTIFY=AB808yy
000200 //STEP1 EXEC PGM=IEBGENER
000300 //SYSPRINT DD SYSOUT=A
000400 //SYSUT1 DD DSNAME=USER.SHARE.PAVAN.TEST.UTI.A,
000500 // DISP=SHR
000600 //SYSUT2 DD DSNAME=USER.SHARE.PAVAN.TEST.UTI.B,DISP=(MOD,KEEP)
000700 //* DISP=(,KEEP),SPACE=(TRK,(10,5,5)),
000800 //* DCB=(RECFM=FB,LRECL=80,BLKSIZE=2000)
000900 //SYSIN DD *
001000 GENERATE MAXNAME=3,MAXGPS=2
001100 MEMBER NAME=CSIT
001200 GROUP1 RECORD IDENT=(6,'MURALI',1)
001300 MEMBER NAME=ECE
001400 GROUP2 RECORD IDENT=(4,'RAVI',1)
001500 MEMBER NAME=MECH
001600 /*
but i am getting output only one member as csit having all records,
please help me with this