IEBGENER-splitting a sequential file into PDS members

[nipan]

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

[NicC]

What has this to do with the forum FAQ?
Have you read the manual for IEBGENER and looked at the examples?
Do you understand that if no label is assigned to a statement then column 1 must be blank? All your control cards appear to start in column 1.
Why do you HAVE to use IEBGENER? Classroom exercise?

[nipan]

yes my trainer asked me to do so, i will go through the manual and docs. sry for the inconvenience

[enrico-sorichetti]

are You sure that You run the jcl as posted ??

this job gave the correct results

Code: Select all

 000001 //IEB     EXEC PGM=IEBGENER                                             
 000002 //SYSUT1    DD *                                                       
 000003 MEMBER BRANCH                                                           
 000004 PAVAN CSIT                                                             
 000005 MURALI CSIT                                                             
 000006 THIRU ECE                                                               
 000007 RAVI EXE                                                               
 000008 KIRAN MECH                                                             
 000009 AMIL MECH                                                               
 000010 //SYSUT2    DD DISP=(,CATLG),DSN=ENRICO.TEST.PDS1,                     
 000011 //             UNIT=SYSDA,SPACE=(CYL,(1,1,1)),                         
 000012 //             DCB=(RECFM=FB,LRECL=80)                                 
 000013 //SYSIN     DD *                                                       
 000014          GENERATE MAXNAME=9,MAXGPS=9                                   
 000015          MEMBER NAME=CSIT                                               
 000016 GR1      RECORD IDENT=(6,'MURALI',1)                                   
 000017          MEMBER NAME=ECE                                               
 000018 GR2      RECORD IDENT=(4,'RAVI',1)                                     
 000019          MEMBER NAME=MECH                                               
 000020 //SYSPRINT  DD SYSOUT=*                                     


[nipan]

Sorry for the inconvenience, job ran successfully. The records were present in small letters but in jcl i gave in capitals, this was the problem, finally cleared. Once again Sorry for the inconvenience.