MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Summing up a particular group of records into a single row?

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
rgcmohan
Beginner


Joined: 30 Jun 2017
Posts: 5
Topics: 3

PostPosted: Mon Nov 13, 2017 12:55 pm    Post subject: Summing up a particular group of records into a single row? Reply with quote

Need help with summing up a particular group of records into a single row.

Description:
Output file is created from a mainframe report thru sort card, my requirement is to sum the rows with T52, T61 On column 64 into a single row

We tried the below Sort code, but it was populating zero for other rows which have to be empty.

Input:

Code:

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
***************************** Top of Data ******************************
              72                 NOVEMBER 27 2017          SOR T44     
                         101,111 NOVEMBER 27 2017          SOR T46     
         688,616                 NOVEMBER 27 2017          SOR T45     
                  34,433,316,245 NOVEMBER 27 2017          SOR T47     
           6,666                 NOVEMBER 27 2017          SOR T48     
                      66,666,663 NOVEMBER 27 2017          SOR T49     
           5,421                 NOVEMBER 27 2017          SOR T50     
           2,344                 NOVEMBER 27 2017          SOR T51     
             685                 NOVEMBER 27 2017          SOR T52     
              87                 NOVEMBER 27 2017          SOR T52     
               4                 NOVEMBER 27 2017          SOR T52     
              31                 NOVEMBER 27 2017          SOR T53     
                         777,777 NOVEMBER 27 2017          SOR T55     
         678,987                 NOVEMBER 27 2017          SOR T54     
                   9,999,999,999 NOVEMBER 27 2017          SOR T56     
             449                 NOVEMBER 27 2017          SOR T57     
                      41,194,660 NOVEMBER 27 2017          SOR T58     
           1,111                 NOVEMBER 27 2017          SOR T59     
             444                 NOVEMBER 27 2017          SOR T60     
             111                 NOVEMBER 27 2017          SOR T61     
              70                 NOVEMBER 27 2017          SOR T61     
               0                 NOVEMBER 27 2017          SOR T61     
 


Sort card used:




Code:
   
OPTION COPY                               
OUTFIL FNAMES=SORTOUT,REMOVECC,NODETAIL,   
       SECTIONS=(60,8,                     
       TRAILER3=(9X,                       
                 TOT=(10,07,UFF, ,EDIT=(III,IIT)),         
                 2X,                       
                 19,14,                   
                 1X,                       
                 34,17,                   
                 9X,                       
                 60,8,                     
                 6X))                     



Reqiured Output:

Code:

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
***************************** Top of Data ******************************
              72                 NOVEMBER 27 2017          SOR T44     
                         101,111 NOVEMBER 27 2017          SOR T46     
         688,616                 NOVEMBER 27 2017          SOR T45     
                  34,433,316,245 NOVEMBER 27 2017          SOR T47     
           6,666                 NOVEMBER 27 2017          SOR T48     
                      66,666,663 NOVEMBER 27 2017          SOR T49     
           5,421                 NOVEMBER 27 2017          SOR T50     
           2,344                 NOVEMBER 27 2017          SOR T51     
             776                 NOVEMBER 27 2017          SOR T52     
              31                 NOVEMBER 27 2017          SOR T53     
                         777,777 NOVEMBER 27 2017          SOR T55     
         678,987                 NOVEMBER 27 2017          SOR T54     
                   9,999,999,999 NOVEMBER 27 2017          SOR T56     
             449                 NOVEMBER 27 2017          SOR T57     
                      41,194,660 NOVEMBER 27 2017          SOR T58     
           1,111                 NOVEMBER 27 2017          SOR T59     
             444                 NOVEMBER 27 2017          SOR T60     
             181                 NOVEMBER 27 2017          SOR T61     

Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12358
Topics: 75
Location: San Jose

PostPosted: Mon Nov 13, 2017 4:32 pm    Post subject: Reply with quote

rgcmohan,

Replace the T in the edit mask with I if you don't want to have zeroes printed out.
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Suchay
Beginner


Joined: 29 Jun 2017
Posts: 43
Topics: 9

PostPosted: Mon Nov 13, 2017 4:38 pm    Post subject: Reply with quote

Kolusu,

Incase we have all zeroes for T61, we need the zero displayed,
We need to sum up the values in columns 10,7 ,only for the rows appearing thrice

Code:


----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
***************************** Top of Data ******************************
              72                 NOVEMBER 27 2017          SOR T44     
                         101,111 NOVEMBER 27 2017          SOR T46     
         688,616                 NOVEMBER 27 2017          SOR T45     
                  34,433,316,245 NOVEMBER 27 2017          SOR T47     
           6,666                 NOVEMBER 27 2017          SOR T48     
                      66,666,663 NOVEMBER 27 2017          SOR T49     
           5,421                 NOVEMBER 27 2017          SOR T50     
           2,344                 NOVEMBER 27 2017          SOR T51     
             685                 NOVEMBER 27 2017          SOR T52     
              87                 NOVEMBER 27 2017          SOR T52     
               4                 NOVEMBER 27 2017          SOR T52     
              31                 NOVEMBER 27 2017          SOR T53     
                         777,777 NOVEMBER 27 2017          SOR T55     
         678,987                 NOVEMBER 27 2017          SOR T54     
                   9,999,999,999 NOVEMBER 27 2017          SOR T56     
             449                 NOVEMBER 27 2017          SOR T57     
                      41,194,660 NOVEMBER 27 2017          SOR T58     
           1,111                 NOVEMBER 27 2017          SOR T59     
             444                 NOVEMBER 27 2017          SOR T60     
               0                 NOVEMBER 27 2017          SOR T61     
               0                NOVEMBER 27 2017           SOR T61     
               0                 NOVEMBER 27 2017          SOR T61
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12358
Topics: 75
Location: San Jose

PostPosted: Wed Nov 15, 2017 10:43 am    Post subject: Reply with quote

Suchay wrote:
Kolusu,

Incase we have all zeroes for T61, we need the zero displayed,
We need to sum up the values in columns 10,7 ,only for the rows appearing thrice


Suchay,

What do you do if there are 2 duplicates? or more than 3 duplicates? some thing like this?
Code:


  385                 NOVEMBER 27 2017          SOR T76   
   57                 NOVEMBER 27 2017          SOR T76

  185                 NOVEMBER 27 2017          SOR T78   
   25                 NOVEMBER 27 2017          SOR T78
  285                 NOVEMBER 27 2017          SOR T78   
   37                 NOVEMBER 27 2017          SOR T78




Do you ignore them?
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Suchay
Beginner


Joined: 29 Jun 2017
Posts: 43
Topics: 9

PostPosted: Wed Nov 15, 2017 11:45 am    Post subject: Reply with quote

Kolusu,

There is no chance of duplicates, since the input is created from Sort step out of mainframe report and we create 3 instances for T52, T61 and other rows will have only one instance . We need to sum columns(10,7) which has an value >= zero.

Regards,
Suchay
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12358
Topics: 75
Location: San Jose

PostPosted: Wed Nov 15, 2017 11:53 am    Post subject: Reply with quote

Suchay wrote:
Kolusu,

There is no chance of duplicates, since the input is created from Sort step out of mainframe report and we create 3 instances for T52, T61 and other rows will have only one instance . We need to sum columns(10,7) which has an value >= zero.

Regards,
Suchay


Why can't the summation be done in the same sort step? Why do you need another step to create sum the 3 instances?
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Suchay
Beginner


Joined: 29 Jun 2017
Posts: 43
Topics: 9

PostPosted: Wed Nov 15, 2017 1:40 pm    Post subject: Reply with quote

Kolusu,

Quote:

Why do you need another step to create sum the 3 instances?


We need to pick these three rows 91-120, 121-150,OVER-150 and
total the count,amount, so we created each row with SOR T16, so we could sum it up in the next step


Part of the report below for summing up
Code:


0---------------------------------------------------- PPPPPPPPP SADSSSDS
              UNNSN      DDDDDDS      AMOUNT       COUNT   UUUUUUUU     
            -------  ------------  ------------  ------- ------------ -
 OBSEESED                                                               
            SSSSS DDDDDDD CCCCCCC              COUNT     AMOUNT         
            ----- ------- -------             ------- ------------     
 OBSEESED                              1-30                   654       
 WAVES                                31-60                   654       
 CURRENT                              61-90                   654       
 % SHORE                             91-120                   654       
                                    121-150                   654       
              X      Y       Z     OVER-150         1       2,615       
            ----- ------- -------             ------- ------------



Below was the whole sort card for the file creation for NEWYOR 01 alone
same build would be repeated for NEWYOR 02 03 04 05 06 07.

Code:

  OPTION COPY                                                   
  INREC IFTHEN=(WHEN=GROUP,                                     
                BEGIN=(2,4,CH,EQ,C'FOR:'),                     
                PUSH(134:7,17)),                 $ DATE         
                                                               
        IFTHEN=(WHEN=GROUP,                                     
                BEGIN=(2,08,SS,EQ,C'NEWYOR :,*** COMP'),       
                PUSH(151:10,2,23,2)),                 
                                                               
        IFTHEN=(WHEN=GROUP,                                     
                BEGIN=(71,06,CH,EQ,C'SELEC1'),                 
                END=(2,9,CH,EQ,C'EEEEEE P'),                   
                PUSH(156:71,05)),                   
                                                               
        IFTHEN=(WHEN=GROUP,                                     
                BEGIN=(72,06,CH,EQ,C'SELEC2'),                   
                END=(2,9,CH,EQ,C'TOTAL X’),                   
                PUSH(156:72,05)),     

 IFTHEN=(WHEN=GROUP,                                         
   BEGIN=(2,06,CH,EQ,C'WAVES',AND,041,1,CH,EQ,C'-'),   
         RECORDS=5,PUSH=(162:2,6))         

 OUTFIL FNAMES=SORTOUT,IFOUTLEN=133,                           
        INCLUDE=((151,2,SS,EQ,C'01,06,07,08',AND,               
                  002,7,SS,EQ,C' RRRRRRR, EEEEEE',AND,           
                  153,1,CH,EQ,C'  ',AND,                       
                  156,5,CH,EQ,C'SELEC2'),OR,                     
                                                               
                 (151,2,SS,EQ,C'25,29',AND,                     
                  002,7,SS,EQ,C'RRRRRRR, EEEEEE',AND,           
                  153,1,CH,EQ,C'  ',AND,                       
                  156,5,CH,EQ,C'SELEC1'),OR,                     
                                                               
                 (151,2,SS,EQ,C'01,06,07,08,25,29',AND,         
                  002,7,CH,EQ,C'TOTAL P',AND,                   
                  153,2,CH,EQ,C'  '),OR,                       
                                                               
                 (162,6,CH,EQ,C'WAVES',AND,                   
                  153,1,CH,EQ,C'  '),OR,                       
                                                               
                 (151,3,CH,EQ,C'AN*',AND,       
                 156,5,CH,EQ,C'SELEC2',AND,                       
                 002,5,SS,EQ,C'NEW L,REVER,TERMI,PAYED,ENDIN')),         
IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,2,9,CH,EQ,C' RRRRRRR'),   
 BUILD=(9X,                                                   
        22,07,UFF,EDIT=(III,IIT),                 
        17X,                                                   
        134,17,                               
        9X,                                                   
        C'SOR T8',                                             
        68X,/,                                                 
        18X,                                                   
        63,14,UFF,EDIT=(II,III,III,IIT),         
        1X,                                                   
        134,17,                               
        9X,                                                   
        C'SOR T10',                                           
        67X)),                                                 
                                                               
IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,2,9,CH,EQ,C’ EEEEEE P'),   
 BUILD=(9X,                                                   
        22,07,UFF,EDIT=(III,IIT),                 
                  17X,                                                 
                 134,17,                               
                 9X,                                                   
                 C'SOR T9',                                           
                 68X,/,                                               
                 18X,                                                 
                 63,14,UFF,EDIT=(II,III,III,IIT),       
                 1X,                                                   
                 134,17,                               
                 9X,                                                   
                 C'SOR T11',                                           
                 67X)),                                               
                                                                       
         IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,2,9,CH,EQ,C'TOTAL PXX'), 
          BUILD=(6X,                                                   
                 65,10,UFF,EDIT=(II,III,IIT),             
                 17X,                                                 
                 134,17,                             
                 9X,                                                 
                 C'SOR T12',                                         
                 67X,/,                                               
                 17X,                                                 
                 78,15,UFF,EDIT=(III,III,III,IIT),     
                 1X,                                                 
                 134,17,                             
                 9X,                                                 
                 C'SOR T13',                                         
                 67X)),                                               
                                                                     
         IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,                         
                       2,6,CH,EQ,C'WAVES'),                         
          BUILD=(9X,                                                 
                 47,07,UFF,EDIT=(III,IIT),               
                 17X,                                                 
                 134,17,                             
                 9X,                                                 
                    C'SOR T14',                                           
             67X)),                                                 
                                                                   
     IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,                           
                   2,9,CH,EQ,C' CURRENT'),                         
      BUILD=(9X,                                                   
             47,07,UFF,EDIT=(III,IIT),                 
             17X,                                                   
             134,17,                               
             9X,                                                   
             C'SOR T15',                                           
             67X)),                                                 
                                                                   
     IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,                           
                   4,5,CH,EQ,C' SHORE'),                         
      BUILD=(9X,                                                   
             47,07,UFF,EDIT=(III,IIT),                 
             17X,                         
                 134,17,                           
                 9X,                               
                 C'SOR T16',                       
                 67X)),     
                       
          IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,     
                       36,8,CH,EQ,C' 121-150'),   
           BUILD=(9X,                                                 
                  47,07,UFF,EDIT=(III,IIT),             
                  17X,                                               
                  134,17,                             $ DATE         
                  9X,                                                 
                  C'SOR T16',                                         
                  67X)),                                             
                                           
         IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,     
                       36,8,CH,EQ,C'OVER-150'),   
           BUILD=(9X,                                                 
                  47,07,UFF,EDIT=(III,IIT),             
                  17X,                                               
                  134,17,                             $ DATE         
                  9X,                                                 
                  C'SOR T16',                                         
                  67X))                                             
                         
                             
Back to top
View user's profile Send private message
Suchay
Beginner


Joined: 29 Jun 2017
Posts: 43
Topics: 9

PostPosted: Wed Nov 15, 2017 1:41 pm    Post subject: Reply with quote

Same build would be repeated but SOR T would differ for each newyor
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12358
Topics: 75
Location: San Jose

PostPosted: Wed Nov 15, 2017 3:44 pm    Post subject: Reply with quote

Suchay wrote:
Same build would be repeated but SOR T would differ for each newyor


Suchay,

Why are you complicating a simple request? Why do you need to change the SORT card for every year, you can process ALL years or a Single year without ever bothering to change the sort card.

The input you show does not truly match the control cards you have. Show me the original input file.

Do you need the intermediate file that you show in this topic or go straight to the summation of 3 records?
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Suchay
Beginner


Joined: 29 Jun 2017
Posts: 43
Topics: 9

PostPosted: Wed Nov 15, 2017 5:25 pm    Post subject: Reply with quote

Kolusu,

Quote:

Why are you complicating a simple request? Why do you need to change the SORT card for every year, you can process ALL years or a Single year without ever bothering to change the sort card.


It is the regions not the year (01, 02, 03, 04, 05, 06, 07 ) and it is single sort card , we get the report monthly we need to extract the records for each region and each region has it own set of SOR T**.

I have provided region 01 since the sort card is long.


Quote:

Do you need the intermediate file that you show in this topic or go straight to the summation of 3 records?

if we can sum it up the 3 records straight, it would be good

Quote:

The input you show does not truly match the control cards you have. Show me the original input file.

It is an report so I edited the records to be summed up, below is the one for Newyork 01 and last page for total of all regions

Code:
                       Count       Amount       aMOUNT1               SELEC2 READY         RRRR YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 rrrrrrrrrrrr        666,666  11,111,111,111   3,333,333,333  11,111,111,111  10,101,010,108    .86    1.11  16 26 20
 MONmoN MON                                       72,222,222      72,222,222
 NEW NEW NEW           7,536     197,037,905                     197,037,905     114,961,261    .77    1.57  36  1 35
 RRRRRRRRR                19         505,849           7,420         498,429         289,452    .67    1.32  36  1 35
 TTTTTTTTTTTT          5,783     149,524,212      52,722,101      96,802,111      89,032,370    .96    1.92  36 32  4
 RERRRRRRRRRR
 PAYPPPPPP             1,548      43,465,416      14,004,334      29,461,082      25,428,791   1.54    2.32  37 29  7
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 EEEEEE PORTFOLIO    689,495  17,987,966,563   3,347,942,436  14,640,024,127  10,806,680,966    .86    1.71  36 17 19
0                              ------------------------------------------- TOTAL P        ------------------------------------------
0                             
                                  UNITS          BOOK SELEC2     bbbbbbbb       BOOK           cOUNT        aMT       Yld
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------
 TOTAL TTTTTTTTTTT                                                2,860          55,469,811     703,301      14,909,981,850     1.78
 TOTAL CCCCCCCCC LLLLLL
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------
 TOTAL PXXXXXXXXX                                                 2,860          55,469,811     703,301      14,909,981,850     1.78

1REPT01                                                   Report main Header                                            PAGE   176
0FOR: NOVEMBER 10 2017                                   Summary Report                          NOVEMBER 10 2017   20:39:55
0NEWYORK:01
0---------------------------------------------------- aDMIN ------------------------------------------------------

               MTD         MTD          YTD
              coUNT      AMOUNT       AMOUNT     UNITS   UNEAR          IN PROCESS     LTD EAR                 coUNT             coUNT 
            -------  ------------  ------------  ------- ------------ ------------ ------------              ------            ------
                                                                                                 
 SHORE         1,111       11,111      999,999                                                   
                                                                                               


0------------       XXX --------             --------------------------------- -------- YYY---------------------------

            SSSSS DDDDDDD CCCCCCC               COUNT     AMOUNT                       aMOUNT          PER       aMOUNT          PER
            ----- ------- -------             ------- ------------                 ---------------  -------  ---------------  -------
 OBSEESED                              1-30    12,091   1,111,444                     222,222,222     1.03      255,658,243     1.71
 WAVES                                31-60     8,161   2,111,111                     176,050,667     1.95      168,673,478     1.13
 CURRENT                              61-90     9,999     444,779                      43,623,593      .18       41,747,959      .28
 % SHORE                             91-120       511     222,551                      11,481,406      .17       10,980,654      .07
                                    121-150        63      11,697                       1,306,419      .01        1,236,396      .01
              X      Y       Z     OVER-150         7       8,172                         145,445                   111,111
            ----- ------- -------             ------- ------------                 ---------------  -------  ---------------  -------

1REPT01                                               Report main Header                                            PAGE   177
0FOR: NOVEMBER 10 2017                                Summary Report                          NOVEMBER 10 2017   20:39:55
0*** COMPAN        ***
0-------------------------------------------------------- PORTFOLIO SUMMARY ---------------------------------------------------------

                     Count       Amount       aMOUNT1                 SELEC1  READY            RRRR   YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 NEW L            13,136     273,302,139      13,404,626     259,897,512     185,121,900   5.28    5.28  18  4 13
 MONmoN MON                        7,191,667       1,075,621       6,116,046
 NEW NEW NEW           1,178      27,589,646       1,633,672      25,955,975      16,800,230   5.28    5.28  18  1 17
 REVERRRRR                 1          29,728           1,598          28,130          19,153   5.28    5.28  18  3 15
 TERMITTTTTTT
 REVERRRRRRRR
 PAYEDPPPP               507      10,154,058         402,470       9,751,588       7,525,282   5.27    5.27  18  8  9
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 ENDIN  PORTFOLIO     13,806     283,516,332      13,558,609     269,957,723     194,377,696   5.28    5.28  18  5 13

0                    ---------------------------------- PPPPPPPPP SADSSSDS  -----------------------------------
                       Count       Amount       aMOUNT1               SELEC2 READY         RRRR YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 rrrrrrrrrrrr        666,666  11,111,111,111   3,333,333,333  11,111,111,111  10,101,010,108    .86    1.11  16 26 20
 MONmoN MON                                       72,222,222      72,222,222
 NEW NEW NEW           7,536     197,037,905                     197,037,905     114,961,261    .77    1.57  36  1 35
 REVERRRRR                19         505,849           7,420         498,429         289,452    .67    1.32  36  1 35
 TERMITTTTTTT          5,783     149,524,212      52,722,101      96,802,111      89,032,370    .96    1.92  36 32  4
 RERRRRRRRRRR
 PAYEDPPPP             1,548      43,465,416      14,004,334      29,461,082      25,428,791   1.54    2.32  37 29  7
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 EEEEEE PORTFOLIO    689,495  17,987,966,563   3,347,942,436  14,640,024,127  10,806,680,966    .86    1.71  36 17 19
0                              ------------------------------------------- TOTAL P        ------------------------------------------
0                             
                                  UNITS          BOOK SELEC2     bbbbbbbb       BOOK           cOUNT        aMT       Yld
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------
 TOTAL TTTTTTTTTTT                                                2,860          55,469,811     703,301      14,909,981,850     1.78
 TOTAL CCCCCCCCC LLLLLL
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------
 TOTAL PXXXXXXXXX                                                 2,860          55,469,811     703,301      14,909,981,850     1.78
[/quote]
Back to top
View user's profile Send private message
Suchay
Beginner


Joined: 29 Jun 2017
Posts: 43
Topics: 9

PostPosted: Wed Nov 15, 2017 5:27 pm    Post subject: Reply with quote

Please use the below one
Code:

1REPT01                                               Report main Header                                            PAGE   175
0FOR: NOVEMBER 10 2017                                Summary Report                          NOVEMBER 10 2017   20:39:55
0NEWYORK:01
0-------------------------------------------------------- PORTFOLIO SUMMARY ---------------------------------------------------------

                     Count       Amount       aMOUNT1                 SELEC1  READY            RRRR   YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 rrrrrrrrrrrr         13,136     273,302,139      13,404,626     259,897,512     185,121,900   5.28    5.28  18  4 13
 MONmoN MON                        7,191,667       1,075,621       6,116,046
 NEW NEW NEW           1,178      27,589,646       1,633,672      25,955,975      16,800,230   5.28    5.28  18  1 17
 RRRRRRRRR                 1          29,728           1,598          28,130          19,153   5.28    5.28  18  3 15
 TTTTTTTTTTTT
 RERRRRRRRRRR
 PAYPPPPPP               507      10,154,058         402,470       9,751,588       7,525,282   5.27    5.27  18  8  9
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 EEEEEE PORTFOLIO     13,806     283,516,332      13,558,609     269,957,723     194,377,696   5.28    5.28  18  5 13

0                    ---------------------------------- PPPPPPPPP SADSSSDS  -----------------------------------
                       Count       Amount       aMOUNT1               SELEC2 READY         RRRR YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 rrrrrrrrrrrr        666,666  11,111,111,111   3,333,333,333  11,111,111,111  10,101,010,108    .86    1.11  16 26 20
 MONmoN MON                                       72,222,222      72,222,222
 NEW NEW NEW           7,536     197,037,905                     197,037,905     114,961,261    .77    1.57  36  1 35
 RRRRRRRRR                19         505,849           7,420         498,429         289,452    .67    1.32  36  1 35
 TTTTTTTTTTTT          5,783     149,524,212      52,722,101      96,802,111      89,032,370    .96    1.92  36 32  4
 RERRRRRRRRRR
 PAYPPPPPP             1,548      43,465,416      14,004,334      29,461,082      25,428,791   1.54    2.32  37 29  7
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 EEEEEE PORTFOLIO    689,495  17,987,966,563   3,347,942,436  14,640,024,127  10,806,680,966    .86    1.71  36 17 19
0                              ------------------------------------------- TOTAL P        ------------------------------------------
0                             
                                  UNITS          BOOK SELEC2     bbbbbbbb       BOOK           cOUNT        aMT       Yld
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------
 TOTAL TTTTTTTTTTT                                                2,860          55,469,811     703,301      14,909,981,850     1.78
 TOTAL CCCCCCCCC LLLLLL
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------
 TOTAL PXXXXXXXXX                                                 2,860          55,469,811     703,301      14,909,981,850     1.78

1REPT01                                                   Report main Header                                            PAGE   176
0FOR: NOVEMBER 10 2017                                   Summary Report                          NOVEMBER 10 2017   20:39:55
0NEWYORK:01
0---------------------------------------------------- aDMIN ------------------------------------------------------

               MTD         MTD          YTD
              coUNT      AMOUNT       AMOUNT     UNITS   UNEAR          IN PROCESS     LTD EAR                 coUNT             coUNT 
            -------  ------------  ------------  ------- ------------ ------------ ------------              ------            ------
                                                                                                 
 SHORE         1,111       11,111      999,999                                                   
                                                                                               


0------------       XXX --------             --------------------------------- -------- YYY---------------------------

            SSSSS DDDDDDD CCCCCCC               COUNT     AMOUNT                       aMOUNT          PER       aMOUNT          PER
            ----- ------- -------             ------- ------------                 ---------------  -------  ---------------  -------
 OBSEESED                              1-30    12,091   1,111,444                     222,222,222     1.03      255,658,243     1.71
 WAVES                                31-60     8,161   2,111,111                     176,050,667     1.95      168,673,478     1.13
 CURRENT                              61-90     9,999     444,779                      43,623,593      .18       41,747,959      .28
 % SHORE                             91-120       511     222,551                      11,481,406      .17       10,980,654      .07
                                    121-150        63      11,697                       1,306,419      .01        1,236,396      .01
              X      Y       Z     OVER-150         7       8,172                         145,445                   111,111
            ----- ------- -------             ------- ------------                 ---------------  -------  ---------------  -------

1REPT01                                               Report main Header                                            PAGE   177
0FOR: NOVEMBER 10 2017                                Summary Report                          NOVEMBER 10 2017   20:39:55
0*** COMPAN        ***
0-------------------------------------------------------- PORTFOLIO SUMMARY ---------------------------------------------------------

                     Count       Amount       aMOUNT1                 SELEC1  READY            RRRR   YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 NEW L            13,136     273,302,139      13,404,626     259,897,512     185,121,900   5.28    5.28  18  4 13
 MONmoN MON                        7,191,667       1,075,621       6,116,046
 NEW NEW NEW           1,178      27,589,646       1,633,672      25,955,975      16,800,230   5.28    5.28  18  1 17
 REVERRRRR                 1          29,728           1,598          28,130          19,153   5.28    5.28  18  3 15
 TERMITTTTTTT
 REVERRRRRRRR
 PAYEDPPPP               507      10,154,058         402,470       9,751,588       7,525,282   5.27    5.27  18  8  9
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 ENDIN  PORTFOLIO     13,806     283,516,332      13,558,609     269,957,723     194,377,696   5.28    5.28  18  5 13

0                    ---------------------------------- PPPPPPPPP SADSSSDS  -----------------------------------
                       Count       Amount       aMOUNT1               SELEC2 READY         RRRR YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 rrrrrrrrrrrr        666,666  11,111,111,111   3,333,333,333  11,111,111,111  10,101,010,108    .86    1.11  16 26 20
 MONmoN MON                                       72,222,222      72,222,222
 NEW NEW NEW           7,536     197,037,905                     197,037,905     114,961,261    .77    1.57  36  1 35
 REVERRRRR                19         505,849           7,420         498,429         289,452    .67    1.32  36  1 35
 TERMITTTTTTT          5,783     149,524,212      52,722,101      96,802,111      89,032,370    .96    1.92  36 32  4
 RERRRRRRRRRR
 PAYEDPPPP             1,548      43,465,416      14,004,334      29,461,082      25,428,791   1.54    2.32  37 29  7
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 EEEEEE PORTFOLIO    689,495  17,987,966,563   3,347,942,436  14,640,024,127  10,806,680,966    .86    1.71  36 17 19
0                              ------------------------------------------- TOTAL P        ------------------------------------------
0                             
                                  UNITS          BOOK SELEC2     bbbbbbbb       BOOK           cOUNT        aMT       Yld
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------
 TOTAL TTTTTTTTTTT                                                2,860          55,469,811     703,301      14,909,981,850     1.78
 TOTAL CCCCCCCCC LLLLLL
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------
 TOTAL PXXXXXXXXX                                                 2,860          55,469,811     703,301      14,909,981,850     1.78
[/code]
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12358
Topics: 75
Location: San Jose

PostPosted: Thu Nov 16, 2017 10:26 am    Post subject: Reply with quote

Suchay wrote:
Kolusu,

It is the regions not the year (01, 02, 03, 04, 05, 06, 07 ) and it is single sort card , we get the report monthly we need to extract the records for each region and each region has it own set of SOR T**.

I have provided region 01 since the sort card is long.


Suchay,

It does not matter whether it is a region or year as you can dynamically pass parms via JPn format and with a simple Change command you can populate the different Tnn values based on the region.

Just for your info whoever wrote that sort card has a round about way of doing things. They are wasting a lot of resources. There are so many gross errors that makes no sense. For example the WHEN=GROUP for SELEC1 and SELEC2 and you push 5 bytes(SELEC) but in the OUTFIL you check for SELEC1 and SELEC2.
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Suchay
Beginner


Joined: 29 Jun 2017
Posts: 43
Topics: 9

PostPosted: Mon Nov 27, 2017 12:07 pm    Post subject: Reply with quote

Kolusu,

I have fixed the report and the sortcard

Code:

1REPT01                                               Report main Header                                            PAGE   175
0FOR: NOVEMBER 10 2017                                Summary Report                          NOVEMBER 10 2017   20:39:55
0NEWYORK:01
0-------------------------------------------------------- PORTFOLIO SUMMARY ---------------------------------------------------------


                     Count       Amount       aMOUNT1                 SELEC1  READY            RRRR   YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 rrrrrrrrrrrr         13,136     273,302,139      13,404,626     259,897,512     185,121,900   5.28    5.28  18  4 13
 MONmoN MON                        7,191,667       1,075,621       6,116,046
 NEW NEW NEW           1,178      27,589,646       1,633,672      25,955,975      16,800,230   5.28    5.28  18  1 17
 RRRRRRRRR                 1          29,728           1,598          28,130          19,153   5.28    5.28  18  3 15
 TTTTTTTTTTTT
 RERRRRRRRRRR
 PAYPPPPPP               507      10,154,058         402,470       9,751,588       7,525,282   5.27    5.27  18  8  9
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 EEEEEE PORTFOLIO     13,806     283,516,332      13,558,609     269,957,723     194,377,696   5.28    5.28  18  5 13

0                    ---------------------------------- PPPPPPPPP SADSSSDS  -----------------------------------
                       Count       Amount       aMOUNT1               SELEC2 READY         RRRR YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 rrrrrrrrrrrr        666,666  11,111,111,111   3,333,333,333  11,111,111,111  10,101,010,108    .86    1.11  16 26 20
 MONmoN MON                                       72,222,222      72,222,222
 NEW NEW NEW           7,536     197,037,905                     197,037,905     114,961,261    .77    1.57  36  1 35
 RRRRRRRRR                19         505,849           7,420         498,429         289,452    .67    1.32  36  1 35
 TTTTTTTTTTTT          5,783     149,524,212      52,722,101      96,802,111      89,032,370    .96    1.92  36 32  4
 RERRRRRRRRRR
 PAYPPPPPP             1,548      43,465,416      14,004,334      29,461,082      25,428,791   1.54    2.32  37 29  7
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 EEEEEE PORTFOLIO    689,495  17,987,966,563   3,347,942,436  14,640,024,127  10,806,680,966    .86    1.71  36 17 19
0                              ------------------------------------------- TOTAL P        ------------------------------------------
0
                                  UNITS          BOOK SELEC2     bbbbbbbb       BOOK           cOUNT        aMT       Yld
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------

 TOTAL TTTTTTTTTTT                                                2,860          55,469,811     703,301      14,909,981,850     1.78
 TOTAL CCCCCCCCC LLLLLL
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------

 TOTAL PXXXXXXXXX                                                 2,860          55,469,811     703,301      14,909,981,850     1.78

1REPT01                                                   Report main Header                                            PAGE   176
0FOR: NOVEMBER 10 2017                                   Summary Report                          NOVEMBER 10 2017   20:39:55
0NEWYORK:01
0---------------------------------------------------- aDMIN ------------------------------------------------------

               MTD         MTD          YTD
              coUNT      AMOUNT       AMOUNT     UNITS   UNEAR          IN PROCESS     LTD EAR                 coUNT             coUN
T
            -------  ------------  ------------  ------- ------------ ------------ ------------              ------            ------


 SHORE         1,111       11,111      999,999



0------------       XXX --------             --------------------------------- -------- YYY---------------------------

            SSSSS DDDDDDD CCCCCCC               COUNT     AMOUNT                       aMOUNT          PER       aMOUNT          PER
            ----- ------- -------             ------- ------------                 ---------------  -------  ---------------  -------

 OBSEESED                              1-30    12,091   1,111,444                     222,222,222     1.03      255,658,243     1.71
 WAVES                                31-60     8,161   2,111,111                     176,050,667     1.95      168,673,478     1.13
 CURRENT                              61-90     9,999     444,779                      43,623,593      .18       41,747,959      .28
 % SHORE                             91-120       511     222,551                      11,481,406      .17       10,980,654      .07
                                    121-150        63      11,697                       1,306,419      .01        1,236,396      .01
              X      Y       Z     OVER-150         7       8,172                         145,445                   111,111
            ----- ------- -------             ------- ------------                 ---------------  -------  ---------------  -------


1REPT01                                               Report main Header                                            PAGE   177
0FOR: NOVEMBER 10 2017                                Summary Report                          NOVEMBER 10 2017   20:39:55
0*** COMPAN        ***
0-------------------------------------------------------- PORTFOLIO SUMMARY ---------------------------------------------------------


                     Count       Amount       aMOUNT1                 SELEC1  READY            RRRR   YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 NEW L            13,136     273,302,139      13,404,626     259,897,512     185,121,900   5.28    5.28  18  4 13
 MONmoN MON                        7,191,667       1,075,621       6,116,046
 NEW NEW NEW           1,178      27,589,646       1,633,672      25,955,975      16,800,230   5.28    5.28  18  1 17
 REVERRRRR                 1          29,728           1,598          28,130          19,153   5.28    5.28  18  3 15
 TERMITTTTTTT
 REVERRRRRRRR
 PAYEDPPPP               507      10,154,058         402,470       9,751,588       7,525,282   5.27    5.27  18  8  9
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 ENDIN  PORTFOLIO     13,806     283,516,332      13,558,609     269,957,723     194,377,696   5.28    5.28  18  5 13

0                    ---------------------------------- PPPPPPPPP SADSSSDS  -----------------------------------
                       Count       Amount       aMOUNT1               SELEC2 READY         RRRR YYYYY   RR XX MM
                     -------  --------------  --------------  --------------  --------------  -----  ------  --------
 rrrrrrrrrrrr        666,666  11,111,111,111   3,333,333,333  11,111,111,111  10,101,010,108    .86    1.11  16 26 20
 MONmoN MON                                       72,222,222      72,222,222
 NEW NEW NEW           7,536     197,037,905                     197,037,905     114,961,261    .77    1.57  36  1 35
 REVERRRRR                19         505,849           7,420         498,429         289,452    .67    1.32  36  1 35
 TERMITTTTTTT          5,783     149,524,212      52,722,101      96,802,111      89,032,370    .96    1.92  36 32  4
 RERRRRRRRRRR
 PAYEDPPPP             1,548      43,465,416      14,004,334      29,461,082      25,428,791   1.54    2.32  37 29  7
 TRTRTRTRTR IN
 TRTRTRTRTR  OUT
 EEEEEE PORTFOLIO    689,495  17,987,966,563   3,347,942,436  14,640,024,127  10,806,680,966    .86    1.71  36 17 19
0                              ------------------------------------------- TOTAL P        ------------------------------------------
0
                                  UNITS          BOOK SELEC2     bbbbbbbb       BOOK           cOUNT        aMT       Yld
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------

 TOTAL TTTTTTTTTTT                                                2,860          55,469,811     703,301      14,909,981,850     1.78
 TOTAL CCCCCCCCC LLLLLL
                               -----------   ----------------   ----------   ---------------    -------      ---------------  -------

 TOTAL PXXXXXXXXX                                                 2,860          55,469,811     703,301      14,909,981,850     1.78


Sort card
Code:

   OPTION COPY                                                       
   INREC IFTHEN=(WHEN=GROUP,                                         
                 BEGIN=(2,4,CH,EQ,C'FOR:'),                         
                 PUSH(134:7,17)),                 $ DATE             
                                                                     
         IFTHEN=(WHEN=GROUP,                                         
                 BEGIN=(2,08,SS,EQ,C'NEWYORK:,*** COMP'),           
                 PUSH(151:10,2,23,2)),                               
                                                                     
         IFTHEN=(WHEN=GROUP,                                         
                 BEGIN=(71,06,CH,EQ,C'SELEC1'),                     
                 END=(2,9,CH,EQ,C'EEEEEE PO'),                       
                 PUSH(156:71,06)),                                   
                                                                     
         IFTHEN=(WHEN=GROUP,                                         
                 BEGIN=(71,06,CH,EQ,C'SELEC2'),                     
                 END=(2,9,CH,EQ,C'TOTAL PXX'),                       
                 PUSH(156:71,06)),                                   
                                                                     
   IFTHEN=(WHEN=GROUP,   
    BEGIN=(2,06,CH,EQ,C'WAVES',AND,041,1,CH,EQ,C'-'),               
          RECORDS=5,PUSH=(162:2,6))                                 
                                                                     
    OUTFIL FNAMES=SORTOUT,IFOUTLEN=133,                             
         INCLUDE=((151,2,SS,EQ,C'01,06,07,08',AND,                   
                   002,7,SS,EQ,C'RRRRRRR,EEEEEE ',AND,               
                   153,1,CH,EQ,C'  ',AND,                           
                   156,6,CH,EQ,C'SELEC2'),OR,                       
                                                                     
                  (151,2,SS,EQ,C'25,29',AND,                         
                   002,7,SS,EQ,C'RRRRRRR, EEEEEE',AND,               
                   153,1,CH,EQ,C'  ',AND,                           
                   156,6,CH,EQ,C'SELEC1'),OR,                       
                                                                     
                  (151,2,SS,EQ,C'01,06,07,08,25,29',AND,             
                   002,7,CH,EQ,C'TOTAL P',AND,                       
                   153,2,CH,EQ,C'  '),OR,                           
                  (162,6,CH,EQ,C'WAVES',AND,                         
                   153,1,CH,EQ,C'  '),OR,         
                                                                 
                (151,2,CH,EQ,C'AN',AND,                           
                156,6,CH,EQ,C'SELEC2',AND,                       
                002,5,SS,EQ,C'NEW N,REVER,TERMI,PAYED,EEEEE')),   
                                                                 
   IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,2,9,CH,EQ,C'RRRRRRRRR'),   
   BUILD=(9X,                                                     
        22,07,UFF,EDIT=(III,IIT),                                 
        17X,                                                     
        134,17,                                                   
        9X,                                                       
        C'SOR T8',                                               
        68X,/,                                                   
        18X,                                                     
        63,14,UFF,EDIT=(II,III,III,IIT),                         
        1X,                                                       
        134,17,                                                   
        9X,                                                       
        C'SOR T10',                                               
        67X)),                                                   
                 
     IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,2,9,CH,EQ,C'EEEEEE PO'),   
    BUILD=(9X,                                                     
         22,07,UFF,EDIT=(III,IIT),                                 
                   17X,                                           
                  134,17,                                         
                  9X,                                             
                  C'SOR T9',                                       
                  68X,/,                                           
                  18X,                                             
                  63,14,UFF,EDIT=(II,III,III,IIT),                 
                  1X,                                             
                  134,17,                                         
                  9X,                                             
                  C'SOR T11',                                     
                  67X)),                                           
                     
   IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,2,9,CH,EQ,C'TOTAL PXX'),
   BUILD=(6X,                                                 
                  65,10,UFF,EDIT=(II,III,IIT),                 
                  17X,                                         
                  134,17,                                     
                  9X,                                         
                  C'SOR T12',                                 
                  67X,/,                                       
                  17X,                                         
                  78,15,UFF,EDIT=(III,III,III,IIT),           
                  1X,                                         
                  134,17,                                     
                  9X,                                         
                  C'SOR T13',                                 
                  67X)),                                       
                                             
        IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,                 
                         2,6,CH,EQ,C'WAVES'),               
            BUILD=(9X,                                       
                   47,07,UFF,EDIT=(III,IIT),                 
                   17X,                                     
                   134,17,                                   
                   9X,                                       
                      C'SOR T14',                           
               67X)),                                       
         IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,               
                       2,7,CH,EQ,C'CURRENT'),               
          BUILD=(9X,                                         
                 47,07,UFF,EDIT=(III,IIT),                   
                 17X,                                       
                 134,17,                                     
                 9X,                                         
                 C'SOR T15',                                 
                 67X)),                     
       IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,                         
                       4,5,CH,EQ,C'SHORE'),                         
          BUILD=(9X,                                                 
                 47,07,UFF,EDIT=(III,IIT),                           
                 17X,                                               
                     134,17,                                         
                     9X,                                             
                     C'SOR T16',                                     
                     67X)),                                         
           IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,                     
                          36,8,CH,EQ,C' 121-150'),                   
              BUILD=(9X,                                             
                     47,07,UFF,EDIT=(III,IIT),                       
                     17X,                                           
                     134,17,                             $ DATE     
                     9X,                                             
                     C'SOR T16',                                     
                     67X)),                                         
               
           IFTHEN=(WHEN=(151,2,CH,EQ,C'01',AND,                   
                          36,8,CH,EQ,C'OVER-150'),               
              BUILD=(9X,                                         
                     47,07,UFF,EDIT=(III,IIT),                   
                     17X,                                         
                     134,17,                             $ DATE   
                     9X,                                         
                     C'SOR T16',                                 
                     67X)),                                       
         IFTHEN=(WHEN=(151,2,CH,EQ,C'AN',                         
                       AND,2,5,CH,EQ,C'NEW N'),                   
          BUILD=(18X,                                             
                 31,14,UFF,EDIT=(II,III,III,IIT),    $ UNITS     
                 1X,                                             
                 134,17,                             $ DATE       
                 9X,                                             
                 C'SOR T4',                                       
                 68X)),                                           
                                                                     
         IFTHEN=(WHEN=(151,2,CH,EQ,C'AN',AND,                       
                       2,5,CH,EQ,C'REVER'),                         
          BUILD=(9X,                                                 
                 22,07,UFF,EDIT=(III,IIT),            $ UNITS       
                 17X,                                               
                 134,17,                             $ DATE         
                 9X,                                                 
                 C'SOR T2',                                         
                 68X,/,                                             
                 18X,                                               
                 31,14,UFF,EDIT=(II,III,III,IIT),     $ AMT         
                 1X,                                                 
                 134,17,                             $ DATE         
                 9X,                                                 
                 C'SOR T5',                                         
                 68X)),                                             
          IFTHEN=(WHEN=(151,2,CH,EQ,C'AN',AND,                     
                       2,5,CH,EQ,C'TERMI'),                       
          BUILD=(18X,                                             
                 31,14,UFF,EDIT=(II,III,III,IIT),     $ AMT       
                 1X,                                               
                 134,17,                             $ DATE       
                 9X,                                               
                 C'SOR T6',                                       
                 68X)),                                           
                                                                   
         IFTHEN=(WHEN=(151,2,CH,EQ,C'AN',AND,                     
                        2,5,CH,EQ,C'PAYED'),                       
          BUILD=(18X,                                             
                 31,14,UFF,EDIT=(II,III,III,IIT),     $ AMT       
                 1X,                                               
                 134,17,                             $ DATE       
                 9X,                                               
                 C'SOR T7',                                       
                 68X)),                                           
                                                                   
                                                                   
                                                                 
         IFTHEN=(WHEN=(151,2,CH,EQ,C'AN',AND,                     
                       2,5,CH,EQ,C'EEEEE'),                       
          BUILD=(9X,                                             
                 22,07,UFF,EDIT=(III,IIT),            $ UNITS     
                 17X,                                             
                 134,17,                             $ DATE       
                 9X,                                             
                 C'SOR T3',                                       
                 68X))                                           
                     


Output produced out of the above sortcard
Code:

***************************** Top of Data *****************************
              19                 NOVEMBER 10 2017          SOR T8     
                         498,429 NOVEMBER 10 2017          SOR T10     
         689,495                 NOVEMBER 10 2017          SOR T9     
                  14,640,024,127 NOVEMBER 10 2017          SOR T11     
           2,860                 NOVEMBER 10 2017          SOR T12     
                      55,469,811 NOVEMBER 10 2017          SOR T13     
           8,161                 NOVEMBER 10 2017          SOR T14     
           9,999                 NOVEMBER 10 2017          SOR T15     
             511                 NOVEMBER 10 2017          SOR T16     
              63                 NOVEMBER 10 2017          SOR T16     
               7                 NOVEMBER 10 2017          SOR T16     
                     197,037,905 NOVEMBER 10 2017          SOR T4     
              19                 NOVEMBER 10 2017          SOR T2     
                         505,849 NOVEMBER 10 2017          SOR T5     
                     149,524,212 NOVEMBER 10 2017          SOR T6     
                      43,465,416 NOVEMBER 10 2017          SOR T7     
         689,495                 NOVEMBER 10 2017          SOR T3     



We need to Sum T16 part alone

Thank you,
Suchay
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12358
Topics: 75
Location: San Jose

PostPosted: Mon Nov 27, 2017 4:09 pm    Post subject: Reply with quote

Suchay,

Here is an untested version that will give you the summation of t16 records. You can avoid the multiple IFTHEN statements on OUTFIL using symbols and CHANGE command, but I am not going to spend anymore time on fine tuning it. you should work on it and make it universal that you don't need to change the control cards for every year or region.

Code:

//SYSIN    DD *                                                   
   INREC IFTHEN=(WHEN=GROUP,                                     
                 BEGIN=(2,08,SS,EQ,C'NEWYORK:,*** COMP'),         
                 PUSH(134:10,2,23,2)),                           
                                                                 
         IFTHEN=(WHEN=INIT,                                       
         OVERLAY=(138:SEQNUM,8,ZD,                               
                  146:36,8,CHANGE=(3,                             
                           C' 121-150',C'TS2',                   
                           C'OVER-150',C'TS3'),                   
                            NOMATCH=(C' '),                       
                  146:04,5,CHANGE=(3,                             
                           C'SHORE',C'TS1'),                     
                           NOMATCH=(146,3),                       
                  150:47,7,UFF,PD,LENGTH=4)),                     
                                                                 
         IFTHEN=(WHEN=GROUP,                                     
                 BEGIN=(146,3,CH,EQ,C'TS1'),                     
                   END=(146,3,CH,EQ,C'TS3'),                     
                 PUSH(138:138,8))                                 
                                                                 
   SORT FIELDS=(138,08,CH,A)                                     
                                                                 
   SUM FIELDS=(150,4,PD)                                         
                                                                 
   OUTREC IFTHEN=(WHEN=GROUP,                                       
                BEGIN=(2,4,CH,EQ,C'FOR:'),                           
                PUSH(155:7,17)),                             
                                                                     
        IFTHEN=(WHEN=GROUP,                                         
                BEGIN=(71,5,CH,EQ,C'SELEC'),                         
                  END=(01,1,CH,EQ,C'0'),                             
                PUSH(173:71,06)),                                   
                                                                     
        IFTHEN=(WHEN=GROUP,                                         
               BEGIN=(02,6,CH,EQ,C'WAVES',AND,                       
                      41,1,CH,EQ,C'-'),                             
            RECORDS=3,PUSH=(180:2,6))                               
                                                                     
    OUTFIL FNAMES=SORTOUT,IFOUTLEN=133,                             
    INCLUDE=((134,2,SS,EQ,C'01,06,07,08',AND,                       
              002,7,SS,EQ,C'RRRRRRR,EEEEEE ',AND,                   
              136,2,CH,EQ,C'  ',AND,                                 
              173,6,CH,EQ,C'SELEC2'),OR,                             
                                                                     
             (134,2,SS,EQ,C'25,29',AND,                             
              002,7,SS,EQ,C'RRRRRRR,EEEEEE ',AND,                   
              136,2,CH,EQ,C'  ',AND,                                 
              173,6,CH,EQ,C'SELEC1'),OR,                             
                                                                     
             (134,2,SS,EQ,C'01,06,07,08,25,29',AND,                 
              002,7,CH,EQ,C'TOTAL P',AND,                           
              136,2,CH,EQ,C'  '),OR,                                 
             (180,6,CH,EQ,C'WAVES',AND,                             
              136,2,CH,EQ,C'  '),OR,                                 
                                                                     
             (134,2,CH,EQ,C'AN',AND,                                 
              173,6,CH,EQ,C'SELEC2',AND,                             
              002,5,SS,EQ,C'NEW N,REVER,TERMI,PAYED,EEEEE')),       
             
   IFTHEN=(WHEN=(134,2,CH,EQ,C'01',AND,           
                 002,9,CH,EQ,C'RRRRRRRRR'),       
   BUILD=(10:022,07,UFF,EDIT=(III,IIT),           
          34:155,17,                               
          60:C'SOR T8 ',/,                         
          19:63,14,UFF,EDIT=(II,III,III,IIT),     
          34:155,17,                               
          60:C'SOR T10')),                         
                                                   
   IFTHEN=(WHEN=(134,2,CH,EQ,C'01',AND,           
                 002,9,CH,EQ,C'EEEEEE PO'),       
   BUILD=(10:022,07,UFF,EDIT=(III,IIT),           
          34:155,17,                               
          60:C'SOR T9 ',/,                         
          19:63,14,UFF,EDIT=(II,III,III,IIT),     
          34:155,17,                               
          60:C'SOR T11')),                         
                                                   
   IFTHEN=(WHEN=(134,2,CH,EQ,C'01',AND,           
                 002,9,CH,EQ,C'TOTAL PXX'),       
   BUILD=(07:065,10,UFF,EDIT=(II,III,IIT),         
          34:155,17,                               
          60:C'SOR T12',/,                         
          18:78,15,UFF,EDIT=(III,III,III,IIT),     
          34:155,17,                               
          60:C'SOR T13')),                         
                                                   
   IFTHEN=(WHEN=(134,2,CH,EQ,C'01',AND,           
                 002,6,CH,EQ,C'WAVES'),           
   BUILD=(10:047,07,UFF,EDIT=(III,IIT),           
          34:155,17,                               
          60:C'SOR T14')),                         
                                                   
   IFTHEN=(WHEN=(134,2,CH,EQ,C'01',AND,           
                 002,7,CH,EQ,C'CURRENT'),         
   BUILD=(10:047,07,UFF,EDIT=(III,IIT),           
          34:155,17,                               
          60:C'SOR T15')),                         

   IFTHEN=(WHEN=(134,2,CH,EQ,C'01',AND,         
                 004,5,CH,EQ,C'SHORE'),         
   BUILD=(10:150,04,PD,EDIT=(III,IIT),           
          34:155,17,                             
          60:C'SOR T16')),                       
                                                 
   IFTHEN=(WHEN=(134,2,CH,EQ,C'AN',AND,         
                 002,5,CH,EQ,C'NEW N'),         
   BUILD=(19:31,14,UFF,EDIT=(II,III,III,IIT),   
          34:155,17,                             
          60:C'SOR T4 ')),                       
                                                 
   IFTHEN=(WHEN=(134,2,CH,EQ,C'AN',AND,         
                 002,5,CH,EQ,C'REVER'),         
   BUILD=(10:22,07,UFF,EDIT=(III,IIT),           
          34:155,17,                             
          60:C'SOR T2 ',/,                       
          19:31,14,UFF,EDIT=(II,III,III,IIT),   
          34:155,17,                             
          60:C'SOR T5 ')),                       
                                                 
   IFTHEN=(WHEN=(134,2,CH,EQ,C'AN',AND,         
                 002,5,CH,EQ,C'TERMI'),         
   BUILD=(19:31,14,UFF,EDIT=(II,III,III,IIT),   
          34:155,17,                             
          60:C'SOR T6 ')),                       
                                                 
   IFTHEN=(WHEN=(134,2,CH,EQ,C'AN',AND,         
                 002,5,CH,EQ,C'PAYED'),         
   BUILD=(19:31,14,UFF,EDIT=(II,III,III,IIT),   
          34:155,17,                             
          60:C'SOR T7 ')),                       
                                                 
   IFTHEN=(WHEN=(134,2,CH,EQ,C'AN',AND,         
                 002,5,CH,EQ,C'EEEEE'),         
   BUILD=(10:22,07,UFF,EDIT=(III,IIT),           
          34:155,17,                             
          60:C'SOR T3 '))                       
//* 

_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Suchay
Beginner


Joined: 29 Jun 2017
Posts: 43
Topics: 9

PostPosted: Mon Dec 04, 2017 3:37 pm    Post subject: Reply with quote

Kolusu,

Thank you for the help. SORT card worked good and we got the results, working on symbols and CHANGE command.

regards,
Suchay
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group