Portal | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
anatol

Active User

Joined: 20 May 2010
Posts: 121

 Posted: Thu Oct 03, 2013 3:16 am    Post subject: Create totals from negative and positive values Hi, Please help me: I have file with 3 columns A - flag, B - amount, C- amount. this is sample: F 100 200 K -10 100 K 30 -30 F -15 -20 F 20 -15 K 10 10 I need neg & pos totals by flags: Flag column B (+) column B(-) column C (+) column C (-) F 120 -15 200 -35 K 40 -10 110 -30 is it possible in sort or icetool? Thanks.

anatol

Active User

Joined: 20 May 2010
Posts: 121

Posted: Thu Oct 03, 2013 3:47 am    Post subject: Reply to: Create totals from negative and positive values

better in code - to see the positions

 Code: F    100   200   K    -10   100   K     30   -30   F    -15   -20   F     20   -15   K     10    10

I need:

 Code: FLAG COLUMN B (+) COLUMN B(-) COLUMN C (+) COLUMN C (-)          F       120         -15           200          -35                K        40         -10           110          -30
Skolusu

Senior Member

Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

 Posted: Thu Oct 03, 2013 4:13 am    Post subject: anatol, It is tough to provide solutions with least details. You haven't mentioned anything about 1. The LRECL or RECFM of the Input/Output file 2. The length of each field to be summed. 3. The format of the field to be summed is it display or binary zoned decimal or packed decimal fields? Assuming your input is display numeric fields(SFF) format, you can follow the below steps to get the desired results. 1. Create Key + 4slots of Packed decimal zeros and put the numeric values at the end say pos 81. 2. Use INREC IFTHEN to check for the values at position 81 for the length of the each field to find a space or plus sign for positive numeric values and then OVERLAY the 1 zero packed decimal slot with the value at 81 treating it as SFF and code HIT=NEXT for validating all the fields 3.Use another IFTHEN to check for the values at position 81 for the length of the each field to find a minus sign for negative numeric values and then OVERLAY the 2nd zero packed decimal slot with the value at 81 treating it as SFF and code HIT=NEXT for validating all the fields 4. Repeat step 2 and 3 for the next field which is at 87. 5. Sort on the key 6. SUM on the 4 PD slots 7. Using OUTREC convert the PD fields to readable format using edit masks
anatol

Active User

Joined: 20 May 2010
Posts: 121