|
View previous topic :: View next topic
|
| Author |
Message |
esaccy
Currently Banned
New User
Joined: 19 Feb 2005
Posts: 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 2007
Posts: 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 2007
Posts: 1399
Location: IL, USA
|
|
|
|
| Ohhh.. Its .. Expat... |
|
| Back to top |
|
|
esaccy
Currently Banned
New User
Joined: 19 Feb 2005
Posts: 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 2011
Posts: 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 2007
Posts: 1399
Location: IL, USA
|
|
| Back to top |
|
|
esaccy
Currently Banned
New User
Joined: 19 Feb 2005
Posts: 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 2007
Posts: 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 2005
Posts: 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 2006
Posts: 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 2005
Posts: 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 2005
Posts: 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 2005
Posts: 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 |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
