Page 1 of 1

Please explain me me how this code is working

PostPosted: Tue Aug 14, 2007 2:54 pm
by 127534
PLease could somebody explain me how this code is working

CREATE A PARTITIONED DATA SET FROM A SEQUENTIAL INPUT
//TAPEDISK JOB
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=A
//SYSUT1 DD DSN=INSET,UNIT=tape,LABEL=(,SL),
// DISP=(OLD,KEEP),VOLUME=SER=001234
//SYSUT2 DD DSN=NEWSET,UNIT=disk,
// DISP=(,KEEP),VOLUME=SER=111112,
// SPACE=(TRK,(10,5,5)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=2000)
//SYSIN DD *
GENERATE MAXNAME=3,MAXGPS=2
MEMBER NAME=MEMBER1
GROUP1 RECORD IDENT=(8,'FIRSTMEM',1)
MEMBER NAME=MEMBER2
GROUP2 RECORD IDENT=(8,'SECNDMEM',1)
MEMBER NAME=MEMBER3
/*

Re: Please explain me this excerpt of code.

PostPosted: Tue Aug 14, 2007 4:37 pm
by CICS Guy
Take a look at IEBGENER Utility Control Statements, it looks to me like a PDS(E?) is being created and two members are being loaded from a tape dataset.....
What do you think?

Re: Please explain me this excerpt of code.

PostPosted: Tue Oct 30, 2007 8:18 pm
by abkumarch
this code is reformatting yr input file to 3 members with different names

records up to 11111111 in the ist col will b moved to mem 1, 11111111 to 22222222 to mem 2 and rest to mem 3.

Re: Please explain me this excerpt of code.

PostPosted: Wed Oct 31, 2007 10:00 pm
by CICS Guy
abkumarch wrote:this code is reformatting yr input file to 3 members with different names
OK, that makes sense.....
records up to 11111111 in the ist col will b moved to mem 1, 11111111 to 22222222 to mem 2 and rest to mem 3.
Where the heck did this come from? If your statement was reworded by replacing the "11111111" by "FIRSTMEM" and the "22222222" by "SECNDMEM" (8 characters beginning at position 1) it might make some sort of sense.....