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
 

 

Report to be generatd

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

New User


Joined: 24 Jun 2007
Posts: 57
Location: US

PostPosted: Fri May 09, 2008 1:23 am    Post subject: Report to be generatd
Reply with quote

Hi,

Can any one help me creating the below report using DFSORT?

Code:
//*******  THE INPUT:                             
//*                                               
ZIP   NAME PRTINTED ONLINE/BATCH                 
//*                                               
09094 JP1   Y          O                         
09094 JP2   Y          O                         
09094 JP3   Y          O                         
09094 JP4   Y          B                         
09094 JP4   N                                     
09099 GP    Y          B                         
09102 DJ    Y          B                         
09102 VK1   Y          O                         
09102 VK2   Y          B                         
09102 VK3   Y          O                         
09104 VK3   N                                     
09104 VK3   N                                     
09104 VK3   N                                     
//*                                               
//****** THE RESULT SHOULD BE :                   
//*                                               
 MASS CARD PRINTED ZIP STAT - POV -   REPORT     
ZIP PRINTED-ONLINE  PRINTED-BATCH TOT-PRINTED     
//*                                               
09094     3            1             4           
09099     1            0             1           
09102     2            2             4           
TOTAL     6            3             9           
Back to top
View user's profile Send private message

Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Fri May 09, 2008 1:40 am    Post subject:
Reply with quote

Are you sure you are using DFSORT and not Syncsort?
Back to top
View user's profile Send private message
jpdeshai

New User


Joined: 24 Jun 2007
Posts: 57
Location: US

PostPosted: Fri May 09, 2008 1:42 am    Post subject:
Reply with quote

our shop has both. I was trying with SYNCSORT. but not able to do as SLICE was not supporting completely.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri May 09, 2008 2:21 am    Post subject:
Reply with quote

Quote:
SLICE was not supporting completely


I assume you mean SPLICE, but SPLICE isn't needed for this task.

You didn't explain anything about the "rules" for getting your report, so I'm just guessing that you want to remove any records that don't have O or B in position 24, and then get section totals and report totals for O and B separately for each Zip. I'm also assuming that your input records have RECFM=FB and LRECL=80. Lastly, I'm assuming that you got the output wrong for the 09099 line.

If all of my assumptions are true, then you can use this DFSORT job to produce the report you want:

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=...  output file (FB/80)
//SYSIN    DD    *
  OPTION COPY
  OMIT COND=(24,1,SS,NE,C'O,B')
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:8C'0',89:8C'0',97:8C'0')),
    IFTHEN=(WHEN=(24,1,CH,EQ,C'O'),OVERLAY=(88:C'1',104:C'1')),
    IFTHEN=(WHEN=(24,1,CH,EQ,C'B'),OVERLAY=(96:C'1',104:C'1'))
 OUTFIL NODETAIL,REMOVECC,
   HEADER1=(' MASS CARD PRINTED ZIP STAT - POV -   REPORT',/,
     'ZIP PRINTED-ONLINE  PRINTED-BATCH TOT-PRINTED'),
   BUILD=(1,80),
   SECTIONS=(1,5,
     TRAILER3=(1,5,
       11:TOT=(81,8,ZD,M10,LENGTH=8),
       26:TOT=(89,8,ZD,M10,LENGTH=8),
       38:TOT=(97,8,ZD,M10,LENGTH=8))),
   TRAILER1=('TOTAL',
       11:TOT=(81,8,ZD,M10,LENGTH=8),
       26:TOT=(89,8,ZD,M10,LENGTH=8),
       38:TOT=(97,8,ZD,M10,LENGTH=8))
/*


SORTOUT would have:

Code:

 MASS CARD PRINTED ZIP STAT - POV -   REPORT
ZIP PRINTED-ONLINE  PRINTED-BATCH TOT-PRINTED
09094            3              1           4
09099            0              1           1
09102            2              2           4
TOTAL            5              4           9


In the future, please explain what you want in reasonable detail so people don't have to guess.
Back to top
View user's profile Send private message
jpdeshai

New User


Joined: 24 Jun 2007
Posts: 57
Location: US

PostPosted: Fri May 09, 2008 2:41 am    Post subject:
Reply with quote

Hi Frank,

SOrry for not explaining the Requirement.
But it is working perfeclty as we require.

Thanks a lot.
Back to top
View user's profile Send private message
jpdeshai

New User


Joined: 24 Jun 2007
Posts: 57
Location: US

PostPosted: Fri May 09, 2008 8:32 pm    Post subject:
Reply with quote

Frank,

Could you pleeeease explain me about OVERLAY? In the Manuals I can see that it just OVERLAYS the values. But how it is accumulating in my SOrt Card? Not able to understand.

Thanks,
JP
Back to top
View user's profile Send private message
jpdeshai

New User


Joined: 24 Jun 2007
Posts: 57
Location: US

PostPosted: Fri May 09, 2008 8:48 pm    Post subject:
Reply with quote

Frank, Got the answer...from ur "what is new in dfsort manual." thanks.

your manuals are too good..keep it up.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Fri May 09, 2008 9:12 pm    Post subject:
Reply with quote

I'm glad you figured it out yourself.
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 Detailed Transaction History report f... Kyle Carroll CICS 5 Tue Oct 18, 2016 12:42 am
No new posts Easytrieve - Report writing - Only 1 ... Abhi Nature CA Products 2 Wed Sep 14, 2016 11:40 am
No new posts Daily report to be extracted from CA ... polymathtarun DFSORT/ICETOOL 5 Mon Jul 11, 2016 4:33 pm
No new posts Report view in Mobile devices Robert Sample All Other Mainframe Topics 0 Thu Jun 23, 2016 7:05 pm
No new posts COBOL Report view in Mobile devices balaji81_k COBOL Programming 4 Thu Jun 23, 2016 6:41 pm


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