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 blank(fill with ) out one column on a cond

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL
Author Message
Mohit Verma

New User


Joined: 19 Mar 2008
Posts: 1
Location: Providence

PostPosted: Mon May 19, 2008 8:34 pm    Post subject: syncsort blank(fill with ) out one column on a cond
Reply with quote

I have a file containing 1.2 Million records. I need to space out (replace with blanks) i.e. x'40' on a set of columns if the value on that column is not a particular numeric value for ex 5.
Back to top
View user's profile Send private message
References
rajatbagga

Active User


Joined: 11 Mar 2007
Posts: 133
Location: india

PostPosted: Mon May 19, 2008 11:21 pm    Post subject: Re: syncsort blank(fill with ) out one column on a cond
Reply with quote

Hi Mohit,

Mohit Verma wrote:
to space out (replace with blanks) i.e. x'40' on a set of columns


What are the those column positions?

Mohit Verma wrote:
if the value on that column is not a particular numeric value for ex 5.


How do you identify which numeric value should be present in that column?

Its better if you can show us with an example what exactly you need...

Regards,
Rajat
Back to top
View user's profile Send private message
Alissa Margulies

SYNCSORT Support


Joined: 25 Jul 2007
Posts: 249
Location: USA

PostPosted: Tue May 20, 2008 12:49 am    Post subject:
Reply with quote

Mohit Verma,

Without knowing your record layout or format, here is a basic example that you can modify for your needs:

Code:
//SORT1 EXEC PGM=SORT         
//SORTIN DD *                 
AAAAA                         
BBBB5                         
CCCC5                         
DDDD2                         
EEEEE                         
FFFF8                         
//SORTOUT DD SYSOUT=*         
//SYSOUT DD SYSOUT=*         
//SYSIN DD *                 
 INREC IFTHEN=(WHEN=(5,1,CH,NE,C'5'),OVERLAY=(5:X'40'))   
 SORT FIELDS=COPY                                         
/*     

This is the output produced:
Code:
AAAA   
BBBB5   
CCCC5   
DDDD   
EEEE   
FFFF   


If this does not meet your needs, then please be more specific and provide sample input and output.
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