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
 

 

Accumulate the amounts in various fields

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
rakeshnaredlla

New User


Joined: 04 Aug 2008
Posts: 26
Location: Hyderabad

PostPosted: Sat Sep 27, 2008 12:38 am    Post subject: Accumulate the amounts in various fields
Reply with quote

Hi

Requirement 1:
My requirement is to accumulate the amounts of various fields and display . The fields are declared as s9(9)v99. The requirement also states that of these fields I need to excluding one field from getting accumulated into the remaining fields and have to accumulate it seperatly and display.The input file has record lenght of 419 and these fields
start from cols pos 307 and ends at cols pos 372 excluding the record count in the below mentioned example.Each field has a lenght of 11 . I even have to display the record count. I need to use the DFSORT or SYNCSORT here.Please find the example below.

Input data
Code:

record counts    field1   field2    field3      field4   field5   field6 
         1     -220.00     0.00      0.00        0.00     0.00     0.00
         2        0.00   100.00      0.00        0.00     0.00     0.00
         3        0.00     0.00    500.00        0.00     0.00     0.00
         4        0.00     0.00      0.00      100.00     0.00     0.00
         5        0.00     0.00      0.00        0.00   200.00     0.00
         6        0.00     0.00      0.00        0.00     0.00   100.00
         7      900.00     0.00      0.00        0.00     0.00     0.00
         8        0.00     0.00    100.00        0.00     0.00     0.00
Output should appear like this:

Code:
Record count = 8
Gross amounts (field1+field2+field4+field5+field6) = 1180.00
Gross amount in field3=600.00


field3 starts at cols pos 329 and ends at 339.


Requirement2:
I need to sort the above Input file so that all the least amounts should appear at end of the file.We never know which field has the least amount.

Please provide me the sysin cards for the above ..2 requirement.
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: Sat Sep 27, 2008 3:35 am    Post subject:
Reply with quote

Here's a DFSORT job that will do what you asked for Requirement 1. I didn't know what you wanted for the length of the output records, so I used 70.

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file (FB/419)
//SORTOUT DD DSN=..  output file (FB/70)
//SYSIN    DD    *
  OPTION COPY
  INREC OVERLAY=(420:307,11,SFF,ADD,318,11,SFF,ADD,
    340,11,SFF,ADD,351,11,SFF,ADD,362,11,SFF,TO=ZD,LENGTH=11)
  OUTFIL REMOVECC,NODETAIL,
    BUILD=(70X),
    TRAILER1=('Record count = ',COUNT=(EDIT=(IIT)),/,
    'Gross amounts (field1+field2+field4+field5+field6) =',
      TOT=(420,11,ZD,EDIT=(IIIIIIIIT.TT)),/,
    'Gross amount in field3 =',
      TOT=(329,11,SFF,EDIT=(IIIIIIIIT.TT)))
/*


SORTOUT would have:

Code:

Record count =   8                                               
Gross amounts (field1+field2+field4+field5+field6) =     1180.00
Gross amount in field3 =      600.00                             


I don't understand your requirement 2. Different records have different least amounts for the different fields, so what does it mean when you say "the least amounts should appear at end of the file". Do you want one output record with the minimum amount for each field or what?

Show an example of input records with minimums other than 0.00 and the expected output, and explain the rules for getting from input to output.
Back to top
View user's profile Send private message
rakeshnaredlla

New User


Joined: 04 Aug 2008
Posts: 26
Location: Hyderabad

PostPosted: Sat Sep 27, 2008 4:02 am    Post subject: Reply to: Accumulate the amounts in various fields
Reply with quote

Frank I want to sort the inputfile in descending order so that all negative amount should come at the end of the file. Please find the example below
Input data
Code:
record counts    field1   field2    field3      field4   field5   field6 
         1       -10.00    0.00      0.00        0.00     0.00     0.00
         2        0.00     100.00    0.00        0.00     0.00     0.00
         3        0.00     0.00      -100.00     0.00     0.00     0.00
         4        0.00     0.00      0.00        -500.00  0.00     0.00
         5        0.00     0.00      0.00        0.00     -200.00  0.00
         6        0.00     0.00      0.00        0.00     0.00     -300.00
         7        900.00   0.00      0.00        0.00     0.00     0.00
         8        0.00     0.00      0.00        -110.00  0.00     0.00

Output data
Code:
record counts    field1   field2    field3      field4   field5   field6 
         1        900.00   0.00      0.00        0.00     0.00     0.00
         2        0.00     100.00    0.00        0.00     0.00     0.00 
         3       -10.00    0.00      0.00        0.00     0.00     0.00 
         4        0.00     0.00     -100.00      0.00     0.00     0.00
         5        0.00     0.00      0.00        -110.00  0.00     0.00
         6        0.00     0.00      0.00        0.00     -200.00  0.00
         7        0.00     0.00      0.00        0.00     0.00     -300.00
         8        0.00     0.00      0.00        -500.00  0.00     0.00           
         
Back to top
View user's profile Send private message
rakeshnaredlla

New User


Joined: 04 Aug 2008
Posts: 26
Location: Hyderabad

PostPosted: Sat Sep 27, 2008 4:36 am    Post subject: Reply to: Accumulate the amounts in various fields
Reply with quote

Frank Thankq for the Sysin card I tried to use this sysin card .When I checking for any syntax errors in the JCL I am getting an error which is below:
8 DSS10065E PARAMETER 'TO' IS UNIDENTIFIED.
8 DSS10065E PARAMETER 'LENGTH' IS UNIDENTIFIED.


I am Suspecting this might be a verison problem.

I even tried with the below sysin card :
INREC OVERLAY=(420:307,11,SFF,ZD,11,ADD,318,11,SFF,ZD,11,ADD,
340,11,SFF,ZD,11,ADD,351,11,SFF,ZD,11,ADD,362,11,SFF,ZD,11)


But it didn't work .I am getting a SYNTAX Error .

Please let me know your thoughts on this .
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Sep 27, 2008 4:43 am    Post subject:
Reply with quote

Hello,

Did you submit the job or did you only try to run it thru some jcl checker?

If you did not submit the job, do so now and post back if there are any problems. Most JCL checkers do not know all of the valid syntax for the sort and so throw "errors" that are not necessarily errors.
Back to top
View user's profile Send private message
rakeshnaredlla

New User


Joined: 04 Aug 2008
Posts: 26
Location: Hyderabad

PostPosted: Sat Sep 27, 2008 5:45 am    Post subject: Reply to: Accumulate the amounts in various fields
Reply with quote

I was using the JCL checker....After Submitting the JOB I am getting the desired output now...
Thanqqqqq.....
Back to top
View user's profile Send private message
quanzhong

New User


Joined: 12 Aug 2008
Posts: 46
Location: china

PostPosted: Sat Sep 27, 2008 8:30 am    Post subject:
Reply with quote

Hi, frank,

for requirement 1
Code:

    'Gross amounts (field1+field2+field4+field5+field6) =',
      TOT=(420,11,ZD,EDIT=(IIIIIIIIT.TT)),/,
    'Gross amount in field3 =',
      TOT=(329,11,SFF,EDIT=(IIIIIIIIT.TT)))

there many fileds, so the TOT's length maybe over 11, is there any way to code it more flexible? thanks
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2284
Location: @my desk

PostPosted: Sat Sep 27, 2008 10:01 am    Post subject:
Reply with quote

quanzhong,

You can always modify it to increase the number of EDITed characters so as to accomodate more digits
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: Sat Sep 27, 2008 9:36 pm    Post subject:
Reply with quote

Quote:
I want to sort the inputfile in descending order so that all negative amount should come at the end of the file


Assuming there is only one non-zero number per record as shown in your example, which is the only way it would make sense, you can use a DFSORT job like the following to do what you asked for:

Code:

//S1    EXEC  PGM=ICEMAN
//SYSOUT    DD  SYSOUT=*
//SORTIN DD DSN=...  input file (FB/419)
//SORTOUT DD DSN=..  output file (FB/419)
//SYSIN    DD    *
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(420:11C'0')),
    IFTHEN=(WHEN=(307,11,SFF,NE,0),OVERLAY=(420:307,11)),
    IFTHEN=(WHEN=(318,11,SFF,NE,0),OVERLAY=(420:318,11)),
    IFTHEN=(WHEN=(329,11,SFF,NE,0),OVERLAY=(420:329,11)),
    IFTHEN=(WHEN=(340,11,SFF,NE,0),OVERLAY=(420:340,11)),
    IFTHEN=(WHEN=(351,11,SFF,NE,0),OVERLAY=(420:351,11)),
    IFTHEN=(WHEN=(362,11,SFF,NE,0),OVERLAY=(420:362,11))
  SORT FIELDS=(420,11,SFF,D)
  OUTREC BUILD=(1,419)
/*


Note that you could do both of your requirements in one ICETOOL job.
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: Sat Sep 27, 2008 9:43 pm    Post subject:
Reply with quote

Quote:
there many fileds, so the TOT's length maybe over 11, is there any way to code it more flexible?


EDIT can handle up to 31 digits. From your latest input example, it appears that your totals might be negative, so you'll probably want a sign too. If you want the totals to have a sign and 15 digits, you could use this:

Code:

  OPTION COPY                                                 
  INREC OVERLAY=(420:307,11,SFF,ADD,318,11,SFF,ADD,           
    340,11,SFF,ADD,351,11,SFF,ADD,362,11,SFF,TO=ZD,LENGTH=11) 
  OUTFIL REMOVECC,NODETAIL,                                   
    BUILD=(70X),                                               
    TRAILER1=('Record count = ',COUNT=(EDIT=(IIT)),/,         
    'Gross amounts (field1+field2+field4+field5+field6) =',   
      TOT=(420,11,ZD,EDIT=(SIIIIIIIIIIIIT.TT),SIGNS=(,-)),/,   
    'Gross amount in field3 =',                               
      TOT=(329,11,SFF,EDIT=(SIIIIIIIIIIIIT.TT),SIGNS=(,-)))   
/*
Back to top
View user's profile Send private message
rakeshnaredlla

New User


Joined: 04 Aug 2008
Posts: 26
Location: Hyderabad

PostPosted: Mon Sep 29, 2008 12:49 pm    Post subject: Reply to: Accumulate the amounts in various fields
Reply with quote

Frank

The sysin you supplied is failing . I am not getting the desired output.

Please find the requirement

I have to accumulate the amounts of all the records excluding one field which I have mentioned at Cols pos 329.


Please find the input which i have used
Code:
---1----+----2----+----3----+----4----+----5----+----6----+----7---
***************************** Top of Data *************************
0000000000{0000000000{0000099990{0000000000{0000000000{0000000000{
0000000000{0000450000{0000000000{0000000000{0000000000{0000000000{
0000000000{0000000000{0000000000{0000070000{0000000000{0000000000{
0000000000{0000000000{0000000000{0000000000{0000010000}0000000000{
0000000000{0000000000{0000000000{0000000000{0000000000{0000020000}
0000000000{0000002000{0000000000{0000000000{0000000000{0000000000{


The output which I am getting is

Code:
RECORD COUNT =   6                                                    ,
GROSS AMOUNTS (FIELD1+FIELD2+FIELD4+FIELD5+FIELD6) =           552.00 ,
GROSS AMOUNT IN FIELD3 =          9999.00                             ,



The desired output is
Code:
RECORD COUNT =   6                                                    ,
GROSS AMOUNTS (FIELD1+FIELD2+FIELD4+FIELD5+FIELD6) =           49200.00 ,
GROSS AMOUNT IN FIELD3 =          9999.00                             ,


Please let me know your feedback
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: Mon Sep 29, 2008 10:02 pm    Post subject:
Reply with quote

Sigh.

Garbage in, garbage out!!

You showed your example input records as having values in the form sddddddddd.dd, so I used SFF format to handle them. But the latest example you show indicates that your input records really have plain ZD values, so you need to use ZD format to handle them. I can only go by what you tell me.

Given that you really have ZD values, the control statements should be as follows:

Code:

  OPTION COPY
  INREC OVERLAY=(420:307,11,ZD,ADD,318,11,ZD,ADD,
    340,11,ZD,ADD,351,11,ZD,ADD,362,11,ZD,TO=ZD,LENGTH=11)
  OUTFIL REMOVECC,NODETAIL,
    BUILD=(70X),
    TRAILER1=('Record count = ',COUNT=(EDIT=(IIT)),/,
    'Gross amounts (field1+field2+field4+field5+field6) =',
      TOT=(420,11,ZD,EDIT=(IIIIIIIIT.TT)),/,
      TOT=(420,11,ZD,EDIT=(SIIIIIIIIIIIIT.TT),SIGNS=(,-)),/,
    'Gross amount in field3 =',
      TOT=(329,11,ZD,EDIT=(SIIIIIIIIIIIIT.TT),SIGNS=(,-)))
Back to top
View user's profile Send private message
rakeshnaredlla

New User


Joined: 04 Aug 2008
Posts: 26
Location: Hyderabad

PostPosted: Tue Sep 30, 2008 8:22 pm    Post subject: Reply to: Accumulate the amounts in various fields
Reply with quote

Thank You FranK, Its working now. Thanks a lot .................. icon_biggrin.gif icon_biggrin.gif
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 -> JCL & VSAM 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 write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts Sum Fields ballaswaroop DFSORT/ICETOOL 4 Tue May 02, 2017 11:07 am
No new posts DFSORT MUL FIELDS tspr52 DFSORT/ICETOOL 16 Fri Mar 03, 2017 11:53 pm
No new posts Sort two file having same field, one ... himanshu malik DFSORT/ICETOOL 7 Thu Feb 02, 2017 10:09 am


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