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

 Merging records and calculating TOTALS - SyncSort Goto page 1, 2, 3  Next
Author Message
venkata.ravi

New User

Joined: 09 May 2005
Posts: 30
Location: Hyderabad

Posted: Mon Mar 25, 2013 12:34 pm    Post subject: Merging records and calculating TOTALS - SyncSort

Hi All,

I have divided the requirement into 3 parts. RQ#1, RQ#2 and RQ#3.

This thread is attached with the 2 files named "Input.txt" and "Merge Records - Example.xls".
Input.txt is the actual input in text format, whose columns are of fixed length as shown below.
Merge Records - Example.xls has 4 worksheets namely "Input", "RQ1 Output", "RQ2 Output" and "RQ3 Output".

The input file has some sample records whose structure is as follows: The file is attached in the form of notepad.
 Code: COL1      --   1,20 COL2   --   21,20 COL3   --   168,10 COL4   --   41,10 COL5   --   149,5 COL6   --   111,10 COL7   --   101,10 COL8   --   121,20 COL9   --   141,8 COL10   --   154,8 COL11   --   162,6 COL12   --   51,50

RQ#1: Sort the records in a user specific order for COL1.
Required order of COL1 is ** EVALUATIONE, POPULAR, CONTRIBUTION, TOSS and others if any **

RQ#2: Add COL11 together and concatenate COL12 values if all other COL's (COL1 to COL10) are identical.
While concatenating the trailing spaces for COL12 need to be elimited and COL12 length should be increased from 50 to 200.

RQ#3: Add a new row for every set of COL1, COL2 and COL3 and give a name to the set as 'TOTAL : ' SUM(COL11)
Also add an empty row after every TOTAL. This is for better readability of the report.
The string 'TOTAL' starts at position 110 and the SUM(COUNT) starts from position at 121.

Code'd, attachments deleted

Bill Woodger

Moderator Emeritus

Joined: 09 Mar 2011
Posts: 7312
Location: Inside the Matrix

 Posted: Mon Mar 25, 2013 1:00 pm    Post subject: Reply to: Merging records and calculating TOTALS - SyncSort Please don't post attachments. Many people are not allowed to download, and most people won't bother. If you have something to show, use the Code tags and the Preview button, please.
Bill Woodger

Moderator Emeritus

Joined: 09 Mar 2011
Posts: 7312
Location: Inside the Matrix

 Posted: Mon Mar 25, 2013 1:19 pm    Post subject: Reply to: Merging records and calculating TOTALS - SyncSort What we want is sample input which accurately reflects the possibilities of your data, not all your data. And the expected output for that input, and the output you have received from what you have attempted, and the Control Cards which generated that output.
venkata.ravi

New User

Joined: 09 May 2005
Posts: 30
Location: Hyderabad

Posted: Mon Mar 25, 2013 2:16 pm    Post subject:

Sample Input File:
 Code: CONTRIBUTION        INCIRCLE            RECEIVED  ALTER     MT   N/A       6899                                  20130306000150ALTER CONTRIBUTION        INCIRCLE            RECEIVED  ALTER     PAN  N/A       4664                                  20130306001265ALTER CONTRIBUTION        OUTCIRCLE           SENT      ALTER     MT   N/A       6899                                  20130306000150SMS CONTRIBUTION        OUTCIRCLE           SENT      ALTER     PAN  N/A       4664                                  20130306001265ALTER EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  N/A       4664      TP6                         20130306000010T EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  2430      N/A       TP6                         20130306000061A EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  4664      4664      TP6                         20130306002074A EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  4664      4664      TP6                         20130306000478T EVALUATIONE         OUTCIRCLE           NOT SENT  EVENT     AEN  4664      N/A       TP6                         20130306000022E EVALUATIONE         OUTCIRCLE           NOT SENT  SCHEDULED AEN  2430      2430      TP6                         20130306000009S EVALUATIONE         OUTCIRCLE           SENT      AUMT      AEN  4664      4664                                  20130306000002A EVALUATIONE         OUTCIRCLE           SENT      AUMT      AEN  4664      4664      TP6                         20130306000461A EVALUATIONE         OUTCIRCLE           SENT      SCHEDULED AEN  4664      4664      TP6                         20130306000702S GENERIC LOG MSGSERV OUTCIRCLE                     CEBODLWR                 N/A                           CEBODLWR20130306000173LOGGING EXECUTION STAT GENERIC LOG MSGSERV OUTCIRCLE                     CEBODLWR                 N/A                           CEBODLWR20130307000005LOGGING EXECUTION STAT POPULAR             INCIRCLE            RECEIVED  FOCUS     PFC  N/A       4664                                  20130305000006FOCUS POPULAR             INCIRCLE            RECEIVED  FOCUS     PFC  N/A       4664                                  20130306000015FOCUS POPULAR             OUTCIRCLE           SENT      ALTER     PAN  N/A       4664                                  20130306001266ALTER POPULAR             OUTCIRCLE           SENT      FOCUS     PFN  N/A       7826                                  20130306000049FOCUS POPULAR             OUTCIRCLE           SENT      FOCUS     PFN  N/A       7826                                  20130306000022RWF TOSS                OUTCIRCLE           I         AUMT           4700                                            20130305084208N/A TOSS                OUTCIRCLE           I         AUMT           4700                                            20130306012519N/A TOSS                OUTCIRCLE           N         AUMT           3543      N/A       CH                  0000000020130305999999VSK.QATLAS.MAINT.TOPR.CONS.PUBSUB TOSS                OUTCIRCLE           N         AUMT           3543      N/A       CH                  9999999920130305999999TP6.RWF.OUT TOSS                OUTCIRCLE           N         AUST           3543      N/A       CH                  9999999920130305019553TP6.RWF.OUT TOSS                OUTCIRCLE           N         AUST           3543      N/A       CH                  9999999920130306003740TP6.RWF.OUT TOSS                OUTCIRCLE           N         EVBR           2430      2430      CH                          20130306045274N/A TOSS                OUTCIRCLE           N         EVBR           2430      2430      CH                          20130307004418N/A TOSS                OUTCIRCLE           Y         EVBR      N/A  4664      4664      CH                  TOPRMOBL20130305000012TSS.G9999.TP6.EVENTS.P70Q TOSS                OUTCIRCLE           Y         EVBR      N/A  4664      4664      CH                  TOPRMOBL20130305000012TSS.G9999.TP6.EVENTS.XFER.P70Q

Output File looks like:

 Code: EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  N/A       4664      TP6                         20130306000010T EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  2430      N/A       TP6                         20130306000061A EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  4664      4664      TP6                         20130306002552A,T                                           TOTAL  :   2623 EVALUATIONE         OUTCIRCLE           NOT SENT  EVENT     AEN  4664      N/A       TP6                         20130306000022E EVALUATIONE         OUTCIRCLE           NOT SENT  SCHEDULED AEN  2430      2430      TP6                         20130306000009S                                           TOTAL  :     31 EVALUATIONE         OUTCIRCLE           SENT      AUMT      AEN  4664      4664                                  20130306000002A EVALUATIONE         OUTCIRCLE           SENT      AUMT      AEN  4664      4664      TP6                         20130306000461A EVALUATIONE         OUTCIRCLE           SENT      SCHEDULED AEN  4664      4664      TP6                         20130306000702S                                           TOTAL  :   1165 POPULAR             INCIRCLE            RECEIVED  FOCUS     PFC  N/A       4664                                  20130305000006FOCUS POPULAR             INCIRCLE            RECEIVED  FOCUS     PFC  N/A       4664                                  20130306000015FOCUS                                           TOTAL  :     21 POPULAR             OUTCIRCLE           SENT      ALTER     PAN  N/A       4664                                  20130306001266ALTER POPULAR             OUTCIRCLE           SENT      FOCUS     PFN  N/A       7826                                  20130306000071FOCUS,RWF                                           TOTAL  :   1337 CONTRIBUTION        INCIRCLE            RECEIVED  ALTER     MT   N/A       6899                                  20130306000150ALTER CONTRIBUTION        INCIRCLE            RECEIVED  ALTER     PAN  N/A       4664                                  20130306001265ALTER                                           TOTAL  :   1415 CONTRIBUTION        OUTCIRCLE           SENT      ALTER     MT   N/A       6899                                  20130306000150SMS CONTRIBUTION        OUTCIRCLE           SENT      ALTER     PAN  N/A       4664                                  20130306001265ALTER                                           TOTAL  :   1415 TOSS                OUTCIRCLE           I         AUMT           4700                                            20130305084208N/A TOSS                OUTCIRCLE           I         AUMT           4700                                            20130306012519N/A                                           TOTAL  :  96727 TOSS                OUTCIRCLE           N         AUMT           3543      N/A       CH                  0000000020130305199998VSK.QATLAS.MAINT.TOPR.CONS.PUBSUB,TP6.RWF.OUT TOSS                OUTCIRCLE           N         AUST           3543      N/A       CH                  9999999920130305019553TP6.RWF.OUT TOSS                OUTCIRCLE           N         AUST           3543      N/A       CH                  9999999920130306003740TP6.RWF.OUT TOSS                OUTCIRCLE           N         EVBR           2430      2430      CH                          20130306045274N/A TOSS                OUTCIRCLE           N         EVBR           2430      2430      CH                          20130307004418N/A                                           TOTAL  : 272983 TOSS                OUTCIRCLE           Y         EVBR      N/A  4664      4664      CH                  TOPRMOBL20130305000024TSS.G9999.TP6.EVENTS.P70Q,TSS.G9999.TP6.EVENTS.XFER.P70Q                                           TOTAL  :     24   GENERIC LOG MSGSERV OUTCIRCLE                     CEBODLWR                 N/A                           CEBODLWR20130306000173LOGGING EXECUTION STAT GENERIC LOG MSGSERV OUTCIRCLE                     CEBODLWR                 N/A                           CEBODLWR20130307000005LOGGING EXECUTION STAT                                           TOTAL  :    178
Bill Woodger

Moderator Emeritus

Joined: 09 Mar 2011
Posts: 7312
Location: Inside the Matrix

 Posted: Mon Mar 25, 2013 3:55 pm    Post subject: Reply to: Merging records and calculating TOTALS - SyncSort venkata.ravi, Just getting the information out of you is becoming a very extended process. Is that the smallest amount of data which represents your file? How do you want to supply the "outsorting" values? What do you mean by "concatenating COL 12", and the other processing for COL 12? Your third requirement is very simple with OUTFIL reporting, have a look at SECTIONS and TRAILER3.
venkata.ravi

New User

Joined: 09 May 2005
Posts: 30
Location: Hyderabad

Posted: Mon Mar 25, 2013 4:42 pm    Post subject:

Hi Bill,

I'm sorry for the inconvenience caused with the insufficient information. I prepared the excel sheet with the example for each RQ specified above, but you removed them and suggested to provide only the sample input data.

RQ#2: Concatenation of COL12 means,
Let's consider the records from the input file
 Code: EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  4664      4664      TP6                         20130306002074A EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  4664      4664      TP6                         20130306000478T

These two records looks same all the way from COL1 to COL10, but the COL12 has different values in them. Now, I like to merge those records in the following way.
 Code: EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  4664      4664      TP6                         20130306002552A,T

Note: Values in COL12 'A' and 'T' are concatenated together with ',' as a seperator by removing the trailing spaces. Besides this the COL11 values 2074 and 478 are added and resulted 2552 in the merged record.
Bill Woodger

Moderator Emeritus

Joined: 09 Mar 2011
Posts: 7312
Location: Inside the Matrix

 Posted: Mon Mar 25, 2013 4:51 pm    Post subject: Reply to: Merging records and calculating TOTALS - SyncSort Well, you can leave everything in spreadsheets and full copies of your file, provide no descriptions of mappings from input to output, and do whatever you actually want. You'll just vastly reduce your chance of any useful replies. Up to you. In addition to the other unanswered questions, how many records can be consolidated in the way you have described. What are the RECFM and LRECL of your files? Is your final output for printing?
venkata.ravi

New User

Joined: 09 May 2005
Posts: 30
Location: Hyderabad

Posted: Mon Mar 25, 2013 5:16 pm    Post subject:

RECFM of both the input and output files are FB.
LRECL of Input file is 177
LRECL of Output file is 327.

 Quote: how many records can be consolidated in the way you have described.

Yes, the actul length of COL12 is 50 characters. But, in reality the actual data in that column will be varies from 1 to 25 characters, rest of them are just spaces. So, to accommodate the concatenated values the length of the COL12 in the output file will be increased from 50 to 200.

In my example, I just mentioned only 2 identical records with different COL12 values. But In pracice, there might be more than two records, we need to consolidate/merge them into a single record.
Bill Woodger

Moderator Emeritus

Joined: 09 Mar 2011
Posts: 7312
Location: Inside the Matrix

 Posted: Mon Mar 25, 2013 5:33 pm    Post subject: Reply to: Merging records and calculating TOTALS - SyncSort So a maximum of four records can be concatenated?
venkata.ravi

New User

Joined: 09 May 2005
Posts: 30
Location: Hyderabad

 Posted: Mon Mar 25, 2013 5:39 pm    Post subject: Ofcourse, Yes.
mkk157

Active User

Joined: 17 May 2006
Posts: 310

 Posted: Tue Mar 26, 2013 9:42 pm    Post subject: Hi Bill, Can you please provide us sort card for this requirement ?
enrico-sorichetti

Senior Member

Joined: 14 Mar 2007
Posts: 10700
Location: italy

Posted: Tue Mar 26, 2013 11:03 pm    Post subject: Reply to: Merging records and calculating TOTALS - SyncSort

 Quote: Can you please provide us sort card for this requirement ?

since You are not the topic starter why do You meddle?
saiprasadh

Active User

Joined: 20 Sep 2006
Posts: 154
Location: US

Posted: Wed Mar 27, 2013 3:57 am    Post subject:

Venkata Ravi,

I used DFSORT for your requirement. You can search for equivalent SYNCSORT command to achieve the result using SYNCSORT.

 Code: //STEP0100 EXEC PGM=ICETOOL                                              //TOOLMSG  DD SYSOUT=*                                                  //DFSMSG   DD SYSOUT=*                                                  //IN        DD DSN=,DISP=SHR                        //OUT       DD DSN=,                                  //             DISP=(NEW,CATLG,DELETE),                                  //             UNIT=SYSDA,                                              //             SPACE=(CYL,(100,200),RLSE),                              //             DCB=(LRECL=802,RECFM=FB)                                  //TOOLIN   DD *                                                            SPLICE FROM(IN) TO(OUT) ON(1,121,CH) WITHANY KEEPNODUPS USING(CTL1) -   WITH(201,200) WITH(401,200) WITH(601,200)                              //*                                                                      //CTL1CNTL DD *                                                            SORT FIELDS=(1,121,CH,A)                                                INREC IFTHEN=(WHEN=INIT,                                                     OVERLAY=(801:SEQNUM,2,ZD,RESTART=(1,121))),                             IFTHEN=(WHEN=(801,2,ZD,EQ,02),                                           OVERLAY=(201:1,200)),                                                   IFTHEN=(WHEN=(801,2,ZD,EQ,03),                                           OVERLAY=(401:1,200)),                                                   IFTHEN=(WHEN=(801,2,ZD,EQ,04),                                           OVERLAY=(601:1,200))                                                OUTFIL IFTHEN=(WHEN=(201,200,CH,EQ,C' ',AND,                                                 401,200,CH,EQ,C' ',AND,601,200,CH,EQ,C' '),               BUILD=(1:1,200)),                                                       IFTHEN=(WHEN=(1,200,CH,NE,C' ',AND,                                                 201,200,CH,NE,C' ',AND,                                                 401,200,CH,EQ,C' ',AND,                                                 601,200,CH,EQ,C' '),                                         BUILD=(1:1,121,                                                              122:122,6,ZD,ADD,322,6,ZD,EDIT=(TTTTTT),                                128:128,50,178:C',',179:328,50,                                          802:X)),                                                           IFTHEN=(WHEN=(1,200,CH,NE,C' ',AND,                                                 201,200,CH,NE,C' ',AND,                                                 401,200,CH,NE,C' ',AND,601,200,CH,EQ,C' '),                 BUILD=(1:1,121,                                                              122:122,6,ZD,ADD,(322,6,ZD,ADD,522,6,ZD),EDIT=(TTTTTT),                  128:128,50,178:C',',179:328,50,229:C',',                                230:528,50,802:X))                                /*                                                              //*                                                            //STEP020 EXEC PGM=SORT                                        //SYSPRINT  DD SYSOUT=*                                        //SYSOUT    DD SYSOUT=*                                        //SORTIN    DD DSN=,                          //             DISP=SHR                                        //SORTOUT   DD DSN=,                        //             DISP=(NEW,CATLG,DELETE),                        //             UNIT=SYSDA,                                      //             SPACE=(CYL,(100,200),RLSE),                      //             DCB=(*.SORTIN,LRECL=327,RECFM=FB)                //SYSIN  DD  *                                                   SORT FIELDS=(328,1,ZD,A,1,50,CH,A)                             INREC IFTHEN=(WHEN=INIT,                                             BUILD=(1:1,127,128:128,200,SQZ=(SHIFT=LEFT),328:C'5')),        IFTHEN=(WHEN=(1,1,CH,EQ,C'E'),                                 OVERLAY=(328:C'1')),                                           IFTHEN=(WHEN=(1,1,CH,EQ,C'P'),                                 OVERLAY=(328:C'2')),                                               IFTHEN=(WHEN=(1,1,CH,EQ,C'C'),                                     OVERLAY=(328:C'3')),                                               IFTHEN=(WHEN=(1,1,CH,EQ,C'T'),                                     OVERLAY=(328:C'4'))                                           OUTFIL FNAMES=SORTOUT,REMOVECC,                                     SECTIONS=(1,50,                                                     TRAILER3=(110:C'TOTAL     :',121:TOT=(122,6,ZD,EDIT=(TTTTTTT)),/,            1:327X))                                                /*

Output:
 Code: EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  N/A       4664      TP6                         20130306000010T EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  2430      N/A       TP6                         20130306000061A EVALUATIONE         INCIRCLE            RECEIVED  AUMT      AEN  4664      4664      TP6                         20130306002552A,T                                                                                                              TOTAL     :0002623 EVALUATIONE         OUTCIRCLE           NOT SENT  EVENT     AEN  4664      N/A       TP6                         20130306000022E EVALUATIONE         OUTCIRCLE           NOT SENT  SCHEDULED AEN  2430      2430      TP6                         20130306000009S                                                                                                              TOTAL     :0000031 EVALUATIONE         OUTCIRCLE           SENT      AUMT      AEN  4664      4664                                  20130306000002A EVALUATIONE         OUTCIRCLE           SENT      AUMT      AEN  4664      4664      TP6                         20130306000461A EVALUATIONE         OUTCIRCLE           SENT      SCHEDULED AEN  4664      4664      TP6                         20130306000702S                                                                                                              TOTAL     :0001165 POPULAR             INCIRCLE            RECEIVED  FOCUS     PFC  N/A       4664                                  20130305000006FOCUS POPULAR             INCIRCLE            RECEIVED  FOCUS     PFC  N/A       4664                                  20130306000015FOCUS                                                                                                              TOTAL     :0000021 POPULAR             OUTCIRCLE           SENT      ALTER     PAN  N/A       4664                                  20130306001266ALTER POPULAR             OUTCIRCLE           SENT      FOCUS     PFN  N/A       7826                                  20130306000071FOCUS,RWF                                                                                                              TOTAL     :0001337 CONTRIBUTION        INCIRCLE            RECEIVED  ALTER     MT   N/A       6899                                  20130306000150ALTER CONTRIBUTION        INCIRCLE            RECEIVED  ALTER     PAN  N/A       4664                                  20130306001265ALTER                                                                                                              TOTAL     :0001415 CONTRIBUTION        OUTCIRCLE           SENT      ALTER     MT   N/A       6899                                  20130306000150SMS CONTRIBUTION        OUTCIRCLE           SENT      ALTER     PAN  N/A       4664                                  20130306001265ALTER                                                                                                              TOTAL     :0001415 TOSS                OUTCIRCLE           I         AUMT           4700                                            20130305084208N/A TOSS                OUTCIRCLE           I         AUMT           4700                                            20130306012519N/A                                                                                                              TOTAL     :0096727 TOSS                OUTCIRCLE           N         AUMT           3543      N/A       CH                  0000000020130305999999VSK.QATLAS.MAINT.TOPR.CONS.PUBSUB TOSS                OUTCIRCLE           N         AUMT           3543      N/A       CH                  9999999920130305999999TP6.RWF.OUT TOSS                OUTCIRCLE           N         AUST           3543      N/A       CH                  9999999920130305019553TP6.RWF.OUT TOSS                OUTCIRCLE           N         AUST           3543      N/A       CH                  9999999920130306003740TP6.RWF.OUT TOSS                OUTCIRCLE           N         EVBR           2430      2430      CH                          20130306045274N/A TOSS                OUTCIRCLE           N         EVBR           2430      2430      CH                          20130307004418N/A                                                                                                              TOTAL     :2072983 TOSS                OUTCIRCLE           Y         EVBR      N/A  4664      4664      CH                  TOPRMOBL20130305000024TSS.G9999.TP6.EVENTS.P70Q,TSS.G9999.TP6.EVENTS.XFER.P70Q                                                                                                              TOTAL     :0000024 GENERIC LOG MSGSERV OUTCIRCLE                     CEBODLWR                 N/A                           CEBODLWR20130306000173LOGGINGEXECUTIONSTAT GENERIC LOG MSGSERV OUTCIRCLE                     CEBODLWR                 N/A                           CEBODLWR20130307000005LOGGINGEXECUTIONSTAT                                                                                                              TOTAL     :0000178 
Skolusu

Senior Member

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

Posted: Wed Mar 27, 2013 5:00 am    Post subject:

 saiprasadh wrote: Venkata Ravi, I used DFSORT for your requirement. You can search for equivalent SYNCSORT command to achieve the result using SYNCSORT.

Saiprasadh,

I really appreciate your enthusiasm to help but you need to understand DFSORT a little bit more to post solutions on behalf of DFSORT.

INREC is processed even before SORT happens, so your Job will NOT work if the data is NOT sorted. You already have the data sorted on the key (1 thru 127) and hence your job worked even though you are using INREC to number the duplicates. Jumble up the data and see how the job fails.

The order of DFSORT processing is explained here

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA60/1.5.4

And for the record the above solution can be achieved easily without splice and another pass of data.
saiprasadh

Active User

Joined: 20 Sep 2006
Posts: 154
Location: US

 Posted: Wed Mar 27, 2013 6:31 am    Post subject: Skolusu, Thanks for pointing out my mistake.
Bill Woodger

Moderator Emeritus

Joined: 09 Mar 2011
Posts: 7312
Location: Inside the Matrix

 Posted: Wed Mar 27, 2013 6:42 pm    Post subject: Reply to: Merging records and calculating TOTALS - SyncSort Well, there's still no answer to the "outsorting" for the first part of the requirement. If you look at OUTFIL SECTIONS that should be able to give you the summed value of COL 11 (you'll need NODETAIL). You can have multiple "breaks", so you can do your COL1-3 total as well (it should come first). The "consolidation" you can do with WHEN=GROUP, and a sequence number. Then a GROUP for for different sequence numbers to put the data into extended areas of the record, then what Sai has provided to "squeeze" the results appropriately. Here is an example of using the GROUP to consolidate data. There are others. Search for GROUP and RECORDS, for instance.
bodatrinadh

Active User

Joined: 05 Jan 2007
Posts: 101
Location: chennai (India)

Posted: Wed Mar 27, 2013 8:32 pm    Post subject: Reply to: Merging records and calculating TOTALS - SyncSort

Hi Venkat,

Try this...

 Code: //STEP01 EXEC PGM=SORT                          //SYSPRINT DD SYSOUT=* //SYSOUT   DD SYSOUT=* //SORTOUT  DD DISP=(NEW,PASS),SPACE=(CYL,1),DSN=&&OUT1                  //SORTIN   DD DISP=SHR,DSN=<>                        //SYSIN   DD *                                                            INREC IFTHEN=(WHEN=INIT,OVERLAY=(190:SEQNUM,2,ZD,RESTART=(1,122))),            IFTHEN=(WHEN=(1,1,CH,EQ,C'E'),                                                 OVERLAY=(178:C'1')),                                                     IFTHEN=(WHEN=(1,1,CH,EQ,C'P'),                                           OVERLAY=(178:C'2')),                                                     IFTHEN=(WHEN=(1,1,CH,EQ,C'C'),                                           OVERLAY=(178:C'3')),                                                     IFTHEN=(WHEN=(1,1,CH,EQ,C'T'),                                           OVERLAY=(178:C'4')),                                                     IFTHEN=(WHEN=(1,1,CH,EQ,C'G'),                                           OVERLAY=(178:C'5'))                                        SORT FIELDS=(178,1,A,01,20,A,21,20,A,41,10,A,51,10,A,61,5,A,                    66,10,A,76,10,A,86,20,A,106,8,A,114,8,A,190,2,D),FORMAT=CH      OUTREC IFTHEN=(WHEN=GROUP,BEGIN=(190,2,ZD,EQ,+2),PUSH=(200:128,30),                     END=(190,2,ZD,EQ,+1))                                  //*                                                                      //STEP02 EXEC PGM=SORT                                                  //SYSPRINT DD SYSOUT=*                                                  //SYSOUT   DD SYSOUT=*                                                  //SORTOUT  DD DISP=(NEW,PASS),SPACE=(CYL,1),DSN=&&OUT2                  //SORTIN   DD DISP=SHR,DSN=&&OUT1                                        //SYSIN   DD *                                                            SORT FIELDS=(178,1,A,01,20,A,21,20,A,41,10,A,51,10,A,61,5,A,                    66,10,A,76,10,A,86,20,A,106,8,A,114,8,A,190,2,A),FORMAT=CH      OUTREC OVERLAY=(190:2X,231:97X) //*                                                                      //STEP03 EXEC PGM=SORT                                                  //SYSPRINT DD SYSOUT=*                                                  //SYSOUT   DD SYSOUT=*                                                  //SORTOUT  DD SYSOUT=*                                                  //SORTIN   DD DISP=SHR,DSN=&&OUT2                                        //SYSIN   DD *                                                            SORT FIELDS=(178,1,A,01,20,A,21,20,A,41,10,A,51,10,A,61,5,A,                       66,10,A,76,10,A,86,20,A,106,8,A,114,8,A),FORMAT=CH            SUM FIELDS=(122,6,ZD)                                                    OUTREC IFTHEN=(WHEN=(200,1,CH,NE,C' '),                                                 BUILD=(1,154,C',',200,30,97X)),                                 IFTHEN=(WHEN=(178,1,CH,NE,C' '),                                               OVERLAY=(178:1X))                                          OUTFIL REMOVECC,SECTIONS=(1,50,TRAILER3=(44:C'TOTAL     :',                                57:TOT=(122,6,ZD,EDIT=(IIIIT)),/,327X)),                     FINDREP=(IN=C' ',OUT=C'',STARTPOS=129)

Thanks
-3nadh
Skolusu

Senior Member

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

 Posted: Wed Mar 27, 2013 10:33 pm    Post subject: bodatrinadh, Did you get a chance to read about what I wrote about INREC processing before SORT and numbering the duplicate records? http://www.ibmmainframes.com/viewtopic.php?p=309767#309767
bodatrinadh

Active User

Joined: 05 Jan 2007
Posts: 101
Location: chennai (India)

 Posted: Thu Mar 28, 2013 10:23 am    Post subject: Reply to: Merging records and calculating TOTALS - SyncSort Hi Skolusu, I saw the comments which you replied to saiprasad... But the input given by TS is a sorted one..And i assumed the same. Yes, You are right. If the data is jumbled, my sort code won't work. It needs little modification. Thanks -3nadh
venkata.ravi

New User

Joined: 09 May 2005
Posts: 30
Location: Hyderabad

 Posted: Thu Mar 28, 2013 11:10 am    Post subject: Hi saiprasadh and SKolusu, Thanks for inputs using DFSORT. But I have only SYNCSORT at my site. Please provide me sort card using SYNCSORT. It would be even helpful, if I can get the syncsort manuals. I referred their website syncsort.com as well, But couldn't get any doc.
 All times are GMT + 6 HoursGoto page 1, 2, 3  Next
 Page 1 of 3

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics Group selective VB records - Trailer ... Premnath_TJ DFSORT/ICETOOL 12 Sun Sep 13, 2020 3:38 am SORT the records based on the second ... Ramsee SYNCSORT 1 Wed Aug 19, 2020 3:01 pm to Insert Rows from File1 to File 2 ... Arun_Tupili DFSORT/ICETOOL 1 Thu Aug 13, 2020 6:22 pm Retrieve multiple records with metaco... Jose Juan J CA Products 0 Sat Jul 25, 2020 1:36 am Populating Date and Sequence numer in... PORYES SYNCSORT 11 Thu Jul 16, 2020 5:01 pm

 © 2003-2020 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us