View previous topic :: View next topic
Author
Message
esaccy Currently Banned New User Joined: 19 Feb 2005Posts: 22
Hi,
Can you please explain what this JCL will do
Code:
STEP0010 EXEC PGM=ICETOOL,COND=(0,NE)
*
INCLUDE MEMBER=SLBDFSRT
*
TOOLMSG DD SYSOUT=*
DFSMSG DD SYSOUT=*
TOOLIN DD DSN=ALC.ACPD.PARMLIB(DCZUP03A),
DISP=SHR
CTL1CNTL DD DSN=ALC.ACPD.PARMLIB(DCZUP03B),
DISP=SHR
CTL2CNTL DD DSN=ALC.ACPD.PARMLIB(DCZUP03C),
DISP=SHR
*
INFILE DD DSN=&HLQ..CZ.PDCZTR01.S010F01(0),
DISP=SHR
*
OUTFIL1 DD DSN=&&TEMP01,
DISP=(,PASS),
UNIT=SYSDA,
SPACE=(TRK,(1,1),RLSE)
*
SYSIN DD DUMMY
SYSPRINT DD SYSOUT=*
IOCOUNTS DD SYSOUT=*,OUTLIM=1000
SYSOUT DD SYSOUT=*
ABENDAID DD SYSOUT=*
SYSUDUMP DD SYSOUT=*
SNAPSHOT DD SYSOUT=*
Code:
TOOLIN is
COPY FROM(INFILE) USING(CTL1)
COUNT FROM(OUTFIL1) EMPTY USING(CTL2)
CTL1CNTL is
OUTFIL FNAMES=OUTFIL1,REMOVECC,NODETAIL,
TRAILER1=(12,6,7:COUNT-1=(M11,LENGTH=6))
CTL2CNTL is
INCLUDE COND=(5,6,ZD,EQ,11,6,ZD)
Colour change from something barely visible to use the code tags instead - Expat
Back to top
Escapa Senior Member Joined: 16 Feb 2007Posts: 1399 Location: IL, USA
Set return code 0 if count of the detail records(excluding trailer record) in the input file matches with count value in the trailer record else set return code 12...
<<looks sombody has been kind to reformat above to understand it better.. ..But I was expecting this from OP itself as being 6 year old to this forum.. >>
Back to top
Escapa Senior Member Joined: 16 Feb 2007Posts: 1399 Location: IL, USA
Ohhh.. Its .. Expat...
Back to top
esaccy Currently Banned New User Joined: 19 Feb 2005Posts: 22
Thanks.
Can you please suggest the segment what does
TRAILER1=(12,6,7:COUNT-1=(M11,LENGTH=6))
mean for
?
Back to top
Bill Woodger Moderator Emeritus Joined: 09 Mar 2011Posts: 7309 Location: Inside the Matrix
Try to look back at this week's postings, a very similar thing came up, I suspect it will give you what you want.
Back to top
Escapa Senior Member Joined: 16 Feb 2007Posts: 1399 Location: IL, USA
Back to top
esaccy Currently Banned New User Joined: 19 Feb 2005Posts: 22
Hi
I have read the lik\nk ,but still some help is needed for me.
from the below
CTL1CNTL is
OUTFIL FNAMES=OUTFIL1,REMOVECC,NODETAIL,
TRAILER1=(12,6,7:COUNT-1=(M11,LENGTH=6))
CTL2CNTL is
INCLUDE COND=(5,6,ZD,EQ,11,6,ZD)
I can understand count-1 ,that is giving the count of the records excluding trailer and in M11 format.
But i cant understand why TRAILER1=(12,6 is there?
Another thing the
INCLUDE COND=(5,6,ZD,EQ,11,6,ZD) is also not understood
Can anybody please explain this
Back to top
Escapa Senior Member Joined: 16 Feb 2007Posts: 1399 Location: IL, USA
Quote:
But i cant understand why TRAILER1=(12,6 is there?
You already have count at 12,6 in trailer record which you are trying to validate.
Quote:
Another thing the
INCLUDE COND=(5,6,ZD,EQ,11,6,ZD) is also not understood
Can anybody please explain this
What you dont understand here?
Back to top
esaccy Currently Banned New User Joined: 19 Feb 2005Posts: 22
Please find my i/p file.
"Mr","Doctra","jkascscaj","isccsl",jdhdj"
"Mr","sbjs","bjjwfk","bjsjsc","bjscjscxx"
"Mr","fjwj","bjccbb","bdhjjk","ndjdjdbn"
TRAILER000003
(1)Can you plesase explain how TRAILER1=(12,6 is taken,
I think only if we know the count is single digit then we can go for 12,6.Please clarify.
(2)Then
INCLUDE COND=(5,6,ZD,EQ,11,6,ZD)
Why 5,6 and 11,6 positions are compared for ? Please clarify this also
Back to top
gcicchet Senior Member Joined: 28 Jul 2006Posts: 1702 Location: Australia
Hi,
is your input file FB or VB.
If VB you need to add 4 bytes for the RDW.
Also, check what's written to OUTFIL1, this will assist you immensely.
Gerry
Back to top
esaccy Currently Banned New User Joined: 19 Feb 2005Posts: 22
Hi
My file is FB file
I am totally confused with the positions they have used
TRAILER1=(12,6
Can you please help
Back to top
esaccy Currently Banned New User Joined: 19 Feb 2005Posts: 22
Hi
Can anybody explain What the fiollowing will do general
TOOLIN is
COPY FROM(INFILE) USING(CTL1)
COUNT FROM(OUTFIL1) EMPTY USING(CTL2)
CTL1CNTL is
OUTFIL FNAMES=OUTFIL1,REMOVECC,NODETAIL,
TRAILER1=(12,6,7:COUNT-1=(M11,LENGTH=6))
CTL2CNTL is
INCLUDE COND=(5,6,ZD,EQ,11,6,ZD)
Because i am confused what TRAILER1=(12,6,7:COUNT-1=(M11,LENGTH=6)) will do? I assume it will fetch the six characters from position 12 of input file and then from 7th chjaracter it will print the count of records in 6chars(excluding trailer).
But According to my i/p file it is not correct.
Can anybode also explain what
INCLUDE COND=(5,6,ZD,EQ,11,6,ZD) will do at this point(i.e after trailer1)
Back to top
Guest
Hi,
Consider this as the input for this sort job:
Code:
H
A
B
5
T0000000000000004
The CTL1 will produce the following output:
if the CTL2 was coded as
Code:
INCLUDE COND=(1,6,ZD,EQ,7,6,ZD)
the RC will be 0 since the resulting criteria is met
if the CTL2 was coded as
Code:
INCLUDE COND=(1,6,ZD,NE,7,6,ZD)
the RC will be 12
I believe the sort card was written for VB file or might be my guess is wrong....
Devil13
Back to top
esaccy Currently Banned New User Joined: 19 Feb 2005Posts: 22
Thanks a lot devil13
I also beleive there might be a wrror in type.it should be VB
Thanks for clearing my doubt in a more simpler way
Back to top
Please enable JavaScript!