Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search 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
Author Message
smita V

New User


Joined: 05 Nov 2007
Posts: 4
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
References
ParagChouguley

Active User


Joined: 03 Feb 2007
Posts: 156
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: 4
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: 156
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: 162
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: 252
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: 4
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
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL All times are GMT + 6 Hours
Page 1 of 1