Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Explain what ICETOOL will do for trailer count

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
esaccy
Currently Banned

New User


Joined: 19 Feb 2005
Posts: 22

PostPosted: Fri May 27, 2011 2:37 pm    Post subject: Explain what ICETOOL will do for trailer count
Reply with quote

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
View user's profile Send private message

Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Fri May 27, 2011 2:44 pm    Post subject:
Reply with quote

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.. icon_smile.gif ..But I was expecting this from OP itself as being 6 year old to this forum.. icon_sad.gif >>
Back to top
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Fri May 27, 2011 2:47 pm    Post subject:
Reply with quote

Ohhh.. Its .. Expat...
Back to top
View user's profile Send private message
esaccy
Currently Banned

New User


Joined: 19 Feb 2005
Posts: 22

PostPosted: Fri May 27, 2011 3:04 pm    Post subject:
Reply with quote

Thanks.
Can you please suggest the segment what does
TRAILER1=(12,6,7:COUNT-1=(M11,LENGTH=6))
mean for
?
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7232

PostPosted: Fri May 27, 2011 4:03 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Fri May 27, 2011 4:38 pm    Post subject:
Reply with quote

esaccy wrote:
Thanks.
Can you please suggest the segment what does
TRAILER1=(12,6,7:COUNT-1=(M11,LENGTH=6))
mean for
?


I suggest you read through complete DFSORT book but for now here is the link for outfil trailer
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CG50/2.6.8.3?DT=20100628091856
Back to top
View user's profile Send private message
esaccy
Currently Banned

New User


Joined: 19 Feb 2005
Posts: 22

PostPosted: Mon May 30, 2011 9:32 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Escapa

Senior Member


Joined: 16 Feb 2007
Posts: 1399
Location: IL, USA

PostPosted: Tue May 31, 2011 2:24 am    Post subject:
Reply with quote

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
View user's profile Send private message
esaccy
Currently Banned

New User


Joined: 19 Feb 2005
Posts: 22

PostPosted: Tue May 31, 2011 10:29 am    Post subject:
Reply with quote

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
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Tue May 31, 2011 11:12 am    Post subject:
Reply with quote

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
View user's profile Send private message
esaccy
Currently Banned

New User


Joined: 19 Feb 2005
Posts: 22

PostPosted: Tue May 31, 2011 1:08 pm    Post subject:
Reply with quote

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
View user's profile Send private message
esaccy
Currently Banned

New User


Joined: 19 Feb 2005
Posts: 22

PostPosted: Tue May 31, 2011 1:20 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Guest







PostPosted: Tue May 31, 2011 1:41 pm    Post subject:
Reply with quote

Hi,
Consider this as the input for this sort job:
Code:

H               
A               
B               
5               
T0000000000000004


The CTL1 will produce the following output:
Code:

000004000004


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 icon_smile.gif or might be my guess is wrong....

Devil13
Back to top
esaccy
Currently Banned

New User


Joined: 19 Feb 2005
Posts: 22

PostPosted: Tue May 31, 2011 4:02 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
No new posts How to delete second instance from Fl... Gunapala CN DFSORT/ICETOOL 6 Tue Oct 18, 2016 11:42 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts ICETOOL/SYNCSORT - SYSPRINT output nartcr DFSORT/ICETOOL 17 Wed Oct 05, 2016 10:46 pm
No new posts Get Record count in summary record fo... Atul Banke DFSORT/ICETOOL 21 Fri Sep 23, 2016 4:17 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us