Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Help in SYNCSORT

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

New User


Joined: 10 Mar 2005
Posts: 2

PostPosted: Tue Mar 22, 2005 10:21 am    Post subject: Help in SYNCSORT
Reply with quote

Hi all,

I have an input file which looks like this:
Code:
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
00011062                                     0901002005-03-17-06.13.50.000000000
0001106201459758                             0901501002005-03-17-04.39.47.000000
0001106201459758001                          090200POS 1C01459758001           
0001106201459758001001001                    0904000000157300000001
0001106201459758001001002                    0904000000371800000001  00000000000
0001106201459758001001003                    0904000000000100000001  00000000000
0001106301459918                             0901501002005-03-17-05.24.51.000000
0001106301459918001                          090200UPS11D1Z20R66V0144688047     
0001106301459918001001001                    0904000000512200000010
0001106301459918001001002                    0904000000512100000015
0001106301459918001001003                    0904000000466800000001  00000000000
0001106301459918001001004                    0904000000001500000001  00000000000
00011063                                     0909000000106500000001  00000000000


The header record is identified by the number '100' in the 49th column. The trailer record is identified by the number '900' in the 49th column.

There are chances where the header record is not the first record in my input file and the trailer record is not the last record in my input file but Trailer record always appears after header record.

Like this,

Code:
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
0001106201459758                             0901501002005-03-17-04.39.47.000000
0001106201459758001                          090200POS 1C01459758001           
0001106201459758001001001                    0904000000157300000001
0001106201459758001001002                    0904000000371800000001  00000000000
0001106201459758001001003                    0904000000000100000001  00000000000
00011062                                     0901002005-03-17-06.13.50.000000000
0001106301459918                             0901501002005-03-17-05.24.51.000000
0001106301459918001                          090200UPS11D1Z20R66V0144688047     
0001106301459918001001001                    0904000000512200000010
0001106301459918001001002                    0904000000512100000015
0001106301459918001001003                    0904000000466800000001  00000000000
0001106301459918001001004                    0904000000001500000001  00000000000
00011063                                     0909000000106500000001  00000000000
0001106201459758                             0901501002005-03-17-04.39.47.000000
0001106201459758001                          090200POS 1C01459758001           
0001106201459758001001001                    0904000000157300000001
0001106201459758001001002                    0904000000371800000001  00000000000
0001106201459758001001003                    0904000000000100000001  00000000000


In this case I need an output file which contains the header record, the trailer record and the records between the header and trailer records. Records above the header record and records below the trailer record should not be included in the output file.

Output desired if the input file is as shown above:
Code:
00011062                                     0901002005-03-17-06.13.50.000000000
0001106301459918                             0901501002005-03-17-05.24.51.000000
0001106301459918001                          090200UPS11D1Z20R66V0144688047     
0001106301459918001001001                    0904000000512200000010
0001106301459918001001002                    0904000000512100000015
0001106301459918001001003                    0904000000466800000001  00000000000
0001106301459918001001004                    0904000000001500000001  00000000000
00011063                                     0909000000106500000001  00000000000


Can anybody provide me a solution to acheive this using SYNCSORT, Easytrieve or SAS?

Thanks,
Srini
Back to top
View user's profile Send private message

somasundaran_k

Active User


Joined: 03 Jun 2003
Posts: 134

PostPosted: Wed Mar 23, 2005 3:29 am    Post subject:
Reply with quote

Hi Srini
Is there multiple Headers and Trilers in the input file ?
Back to top
View user's profile Send private message
somasundaran_k

Active User


Joined: 03 Jun 2003
Posts: 134

PostPosted: Wed Mar 23, 2005 4:04 am    Post subject:
Reply with quote

Hi Srini
Check this Job using SYNCSORT's SYNCTOOL.
Code:

//STEP1 EXEC  PGM=SYNCTOOL                                         
//TOOLMSG DD SYSOUT=*                                             
//DFSMSG DD SYSOUT=*                                               
//IN DD *                                                         
0001106201459758                             0901501002005-03-17-04
0001106201459758001                          090200POS 1C0145975800
0001106201459758001001001                    0904000000157300000001
0001106201459758001001002                    0904000000371800000001
0001106201459758001001003                    0904000000000100000001
00011062 -- HDR                              0901002005-03-17-06.13
0001106301459918                             0901501002005-03-17-05
0001106301459918001                          090200UPS11D1Z20R66V01
0001106301459918001001001                    0904000000512200000010
0001106301459918001001002                    0904000000512100000015
0001106301459918001001003                    0904000000466800000001   
0001106301459918001001004                    0904000000001500000001   
00011063 -- TRL                              0909000000106500000001   
0001106201459758                             0901501002005-03-17-04   
0001106201459758001                          090200POS 1C0145975800   
0001106201459758001001001                    0904000000157300000001   
0001106201459758001001002                    0904000000371800000001   
0001106201459758001001003                    0904000000000100000001   
/*                                                                   
//T1 DD DSN=&&T1,DISP=(,PASS)                                         
//T2 DD DSN=&&T2,DISP=(,PASS)                                         
//CTL2CNTL DD DSN=*.T1,VOL=REF=*.T1,DISP=SHR                         
//         DD DSN=*.T2,VOL=REF=*.T2,DISP=SHR                         
//OUT DD SYSOUT=*                                                     
//TOOLIN DD *                                                         
  COPY FROM(IN) USING(CTL1)                                           
  COPY FROM(IN) USING(CTL2)                                           
/*                                                                   
//CTL1CNTL DD *                                                       
  INREC FIELDS=(1,80,81:SEQNUM,8,ZD)                           
  OUTFIL FNAMES=T1,INCLUDE=(49,3,CH,EQ,C'100'),                 
    OUTREC=(C' OUTFIL FNAMES=OUT,STARTREC=',81,8,C',',80:X)     
  OUTFIL FNAMES=T2,INCLUDE=(49,3,CH,EQ,C'900'),                 
    OUTREC=(C' ENDREC=',81,8,80:X)                             
/*                                                             

Hth.
-Som
Back to top
View user's profile Send private message
srini_s

New User


Joined: 10 Mar 2005
Posts: 2

PostPosted: Wed Mar 23, 2005 8:42 am    Post subject:
Reply with quote

Hi Som,

Yes there could be multiple headers and trailers in my input file.

Thanks,
Srini
Back to top
View user's profile Send private message
somasundaran_k

Active User


Joined: 03 Jun 2003
Posts: 134

PostPosted: Wed Mar 23, 2005 9:36 pm    Post subject:
Reply with quote

Srini
I don't think we can use SYCSORT to solve this problem. Here is an Easytrieve solution for this.
Code:

//STEP05    EXEC PGM=EZTPA00                       
//STEPLIB   DD DSN=SYS1.EASYPLUS.LOADLIB,DISP=SHR   
//SYSOUT    DD SYSOUT=*                             
//SYSPRINT DD SYSOUT=*                             
//SYSSNAP  DD SYSOUT=*                             
//INFILE   DD DSN=YOUR INPUT FILE,DISP=SHR   
//OUTFILE  DD DSN=YOUR OUTPUT FILE,                 
//             DISP=(NEW,CATLG,DELETE),             
//             UNIT=SYSDA,                         
//             SPACE=(CYL,(1,1),RLSE),             
//             DCB=(RECFM=FB,LRECL=80)             
/*                                                 
//SYSIN     DD *                                   
  FILE INFILE                                       
     IN-REC             01 80  A                   
     PART-1             01 48  A                   
     HDR-TRL            49 03  A
  FILE OUTFILE FB (0  0)                       
     OUT-REC            01 80  A               
                                               
    W-CHECK                 W 01 A VALUE ' '   
  JOB INPUT INFILE                               
    OUT-REC = IN-REC                           
    CASE HDR-TRL                               
         WHEN '100'                             
             W-CHECK = 'Y'                     
         WHEN '900'                             
             PUT OUTFILE                       
             W-CHECK = 'N'                     
    END-CASE                                   
    IF W-CHECK = 'Y'                           
       PUT OUTFILE                             
    END-IF                                     
//*             

hth
-Som
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SYNCSORT SEQNUM and FI fields. nartcr SYNCSORT 7 Sat Jan 21, 2017 4:02 am
No new posts Syncsort Help to group fields sudhakarraju SYNCSORT 6 Thu Dec 29, 2016 1:38 am
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts Syncsort - Hard coded Value in output PORYES SYNCSORT 1 Thu Nov 03, 2016 9:23 am
No new posts Syncsort - NULL in Integer field chec... nartcr SYNCSORT 4 Thu Oct 06, 2016 6:47 am


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