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
 

 

Syncsort related

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

New User


Joined: 05 Nov 2007
Posts: 11
Location: hyderabad

PostPosted: Tue Mar 25, 2008 1:14 pm    Post subject: Syncsort related
Reply with quote

Hi!

Using Syncsort, from a flat file I hav to do modification on some selected records and has to write all the records(modified as well as untouched records) into output file.

Is it possible in a single step and how?
Back to top
View user's profile Send private message

ParagChouguley

Active User


Joined: 03 Feb 2007
Posts: 175
Location: PUNE(INDIA)

PostPosted: Tue Mar 25, 2008 1:38 pm    Post subject:
Reply with quote

Hi Smita V,
Quote:

Using Syncsort, from a flat file I hav to do modification on some selected records and has to write all the records(modified as well as untouched records) into output file.

Is it possible in a single step and how?


Yes, it is possible. Please give sample input file and sample output along with other info like LRECL and RECFM of file.

--Parag
Back to top
View user's profile Send private message
smita V

New User


Joined: 05 Nov 2007
Posts: 11
Location: hyderabad

PostPosted: Tue Mar 25, 2008 3:36 pm    Post subject:
Reply with quote

Hi Parag!

Input File:

1234abcdef
1235avbtef
1236
1237ujyrtbv
1238

Output file should be ==>

1234abcdef
1235avbtef
1236*****
1237ujyrtb
1238*****

I have to select records from input file which has spaces from 5th byte onwards and have to populate system date value on it.

I tried IFTHEN option but it is not working for me.

Note: We use version 1.2 not 1.3, is that a problem for IFTHEN not to work.

I want to get this done in single step that's why not spliting the file and then merging it.
Back to top
View user's profile Send private message
ParagChouguley

Active User


Joined: 03 Feb 2007
Posts: 175
Location: PUNE(INDIA)

PostPosted: Tue Mar 25, 2008 5:00 pm    Post subject:
Reply with quote

Hi Smita V,
Quote:

I tried IFTHEN option but it is not working for me.

Note: We use version 1.2 not 1.3, is that a problem for IFTHEN not to work.


Hmmm..... I too have no idea about this.
Probably some senior members or syncsort experts will be able to throw some light on this.

Anyway, here is a synctool job that works on my platform and does what you asked for.

Code:


//S1      EXEC PGM=SYNCTOOL                           
//TOOLMSG DD SYSOUT=*                                 
//DFSMSG  DD SYSOUT=*                                 
//IN1     DD *                                       
1234ABCDEF                                           
1235AVBTEF                                           
1236                                                 
1237UJYRTBV                                           
1238                                                 
/*                                                   
//OUT1    DD DSN=OUTPUT-FILE-NAME,                   
//      DSORG=PS,RECFM=FB,SPACE=(CYL,(10,10),RLSE),   
//      DISP=(NEW,CATLG,DELETE)                       
//TOOLIN  DD *                             
    COPY FROM(IN1) TO(OUT1) USING(SRT1)     
/*                                         
//SRT1CNTL DD *                             
    OPTION COPY                             
    OUTREC IFTHEN=(WHEN=(5,8,CH,EQ,C' '),   
            BUILD=(1,4,DATE1,13,68)),       
           IFTHEN=(WHEN=NONE,               
            BUILD=(1,80))                   
/*                                         


Output :
Code:

1234ABCDEF         
1235AVBTEF         
123620080325       
1237UJYRTBV         
123820080325       


--Parag
Back to top
View user's profile Send private message
sril.krishy

Active User


Joined: 30 Jul 2005
Posts: 182
Location: hyderabad

PostPosted: Tue Mar 25, 2008 6:35 pm    Post subject:
Reply with quote

Hi,
Please see the other solution without the IFTHEN.

Code:

//PS020    EXEC PGM=SYNCTOOL                                           
//SYSOUT   DD  SYSOUT=*                                               
//TOOLMSG  DD  SYSOUT=*                                               
//DFSMSG   DD  SYSOUT=*                                               
//IN       DD  *                                                     
1234ABCDEF                                                           
1235AVBTEF                                                           
1236                                                                 
1237UJYRTBV                                                           
1238                                                                 
//T1       DD DSN=&&T1,UNIT=SCRPK,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)   
//T2       DD DSN=&&T2,UNIT=SCRPK,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)   
//OUT2     DD SYSOUT=*                                               
//CON      DD  DSN=*.T1,VOL=REF=*.T1,DISP=SHR                         
//         DD  DSN=*.T2,VOL=REF=*.T2,DISP=SHR                         
//TOOLIN   DD  *                                                     
   COPY FROM(IN) USING(CTL1)                                         
   SORT FROM(CON) TO(OUT2) USING(CTL2)                               
//CTL1CNTL DD  *                                                     
   INREC FIELDS=(1,12,15:SEQNUM,8,ZD,80:X)                           
   OUTFIL FNAMES=T1,                                                 
   INCLUDE=(5,1,CH,EQ,C' '),                                         
   OUTREC=(1,4,DATE1,2X,15,8)                                         
   OUTFIL FNAMES=T2,                                                 
   INCLUDE=(5,1,CH,NE,C' '),                                         
   OUTREC=(1,12,2X,15,8)                                             
//CTL2CNTL DD  *                                                     
   SORT FIELDS=(15,8,CH,A)                                           
   OUTREC FIELDS=(1,14,80:X)                                         


Code:


output (OUT2 ):

1234ABCDEF   
1235AVBTEF   
123620080325
1237UJYRTBV 
123820080325



Thanks
Krishy
Back to top
View user's profile Send private message
Alissa Margulies

SYNCSORT Support


Joined: 25 Jul 2007
Posts: 500
Location: USA

PostPosted: Tue Mar 25, 2008 11:39 pm    Post subject:
Reply with quote

smita V wrote:
I tried IFTHEN option but it is not working for me.

How is it "not working"? Are you getting a syntax error?

Support for IFTHEN was included in SyncSort for z/OS 1.2.1 and later.

If you are running SyncSort for z/OS 1.2.0, then this can still be accomplished in a single pass of the data without using IFTHEN. You can code an INREC statement to add a field at the end of the record which contains the current system date, and then use that field as the replacement value in OUTREC CHANGE.
Back to top
View user's profile Send private message
smita V

New User


Joined: 05 Nov 2007
Posts: 11
Location: hyderabad

PostPosted: Wed Mar 26, 2008 6:52 pm    Post subject: Reply to: Syncsort related
Reply with quote

Hi Krishy,

Thanks, your logic worked perfectly for me...... icon_smile.gif


Hi Alissa,

Our syncsort version is 1.2.0, thats why I was getting Syntax error with IFTHEN..........


Thanks,
Smita
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 5 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