File logic



Support for NetApp SyncSort for z/OS, Visual SyncSort, SYNCINIT, SYNCLIST and SYNCTOOL

File logic

Postby kiran_wiproblr » Wed Feb 15, 2012 10:08 pm

Would some one help me out?
Could some one provide me the sort card for below requirement?

The below are the 2 input data sets

Lay out of input file-1
Input file-1 has the key from 1st position to 7th position

Lay out of input file-1I
input file-2 contains one record 3 in consecutive rows (3 rows=1 recorded)
Key starts on 2nd position of first row of the record

Criteria to get the required data
If key matches with input files then I want some numeric data which is there next to next line (last line/3rd row of the record) of file2 from 13th position to 20th position (say FIELD-A), and yesterdays date(mm/dd/yy)

Expected output is
FIELD-A yesterdays date(mm/dd/yy)


Input File-1
----+----1
KEY1111


Input File-2
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
.KEY1111 SOME-1 TEXT..............
SOME-2 TEXT......................                                                 
SOME-3 TEXT 11.22.33.
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
.KEY1111 SOME-4 TEXT...............
SOME-5 TEXT..............                                                 .
SOME-6 TEXT 44.55.66.


Expected output is
11.22.33  02/14/12
44.55.66  02/14/12
kiran_wiproblr
 
Posts: 21
Joined: Fri Feb 10, 2012 11:10 pm
Has thanked: 0 time
Been thanked: 0 time

Re: File logic

 

Re: File logic

Postby bodatrinadh » Thu Feb 16, 2012 4:51 pm

Kiran,

Here is the code...

//STEP1    EXEC PGM=SORT                                         
//SYSOUT   DD SYSOUT=*                                           
//SYSPRINT DD SYSOUT=*                                           
//SORTIN DD *                                                     
.KEY1111 SOME-1 TEXT..............                               
SOME-2 TEXT......................                                 
SOME-3 TEXT 11.22.33.                                             
.KEY1111 SOME-4 TEXT...............                               
SOME-5 TEXT..............                                         
SOME-6 TEXT 44.55.66.                                             
.KEY1112 SOME-4 TEXT...............                               
SOME-5 TEXT..............                                         
SOME-6 TEXT 01.23.12.                                             
//SORTOUT DD DSN=&&TEMP1,DISP=(,PASS),SPACE=(CYL,(1,1),RLSE)     
//SYSIN  DD *                                                     
 INREC IFTHEN=(WHEN=GROUP,RECORDS=3,PUSH=(81:ID=8,89:SEQ=1)),     
       IFTHEN=(WHEN=(89,1,ZD,EQ,1),BUILD=(2,7,73Z,81,9)),         
       IFTHEN=(WHEN=(89,1,ZD,EQ,3),BUILD=(7Z,13,8,65Z,81,9)),     
       IFTHEN=(WHEN=NONE,BUILD=(80Z,81,8))                       
  SORT FIELDS=(81,8,ZD,A)                                           
  SUM FIELDS=(1,8,BI,9,8,BI,17,8,BI,25,8,BI,33,8,BI,41,8,BI,49,8,BI)
//*                                                                 
//STEP2    EXEC PGM=SORT                                           
//SYSOUT   DD SYSOUT=*                                             
//SYSPRINT DD SYSOUT=*                                             
//SORTJNF1 DD *                                                     
KEY1111                                                             
//SORTJNF2 DD DISP=OLD,DSN=&&TEMP1                                 
//SORTOUT DD SYSOUT=*                                               
//SYSIN   DD *                                                     
  JOINKEYS FILE=F1,FIELDS=(1,7,A)                                   
  JOINKEYS FILE=F2,FIELDS=(1,7,A)                                   
  REFORMAT FIELDS=(F2:1,20)                                         
  SORT FIELDS=COPY                                                 
  OUTREC FIELDS=(8,8,X,DATE-1)               


output of step1 :-
KEY111111.22.33 
KEY111144.55.66 
KEY111201.23.12 


output of step2 :-
11.22.33 02/15/12
44.55.66 02/15/12



Thanks
-3nadh
Thanks
-3nadh
User avatar
bodatrinadh
 
Posts: 67
Joined: Thu Jan 12, 2012 9:05 pm
Has thanked: 0 time
Been thanked: 4 times


Return to Syncsort/Synctool

 


  • Related topics
    Replies
    Views
    Last post