Please explain me me how this code is working



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

Please explain me me how this code is working

Postby 127534 » Tue Aug 14, 2007 2:54 pm

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
/*
127534
 
Posts: 1
Joined: Tue Aug 14, 2007 2:48 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Please explain me this excerpt of code.

Postby CICS Guy » Tue Aug 14, 2007 4:37 pm

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?
CICS Guy
 
Posts: 246
Joined: Wed Jun 20, 2007 4:08 am
Has thanked: 0 time
Been thanked: 0 time

Re: Please explain me this excerpt of code.

Postby abkumarch » Tue Oct 30, 2007 8:18 pm

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.
abkumarch
 
Posts: 21
Joined: Tue Oct 30, 2007 3:14 am
Has thanked: 0 time
Been thanked: 0 time

Re: Please explain me this excerpt of code.

Postby CICS Guy » Wed Oct 31, 2007 10:00 pm

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.....
CICS Guy
 
Posts: 246
Joined: Wed Jun 20, 2007 4:08 am
Has thanked: 0 time
Been thanked: 0 time


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post