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
 

 

change a column from one character to another character.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
killms

New User


Joined: 17 Sep 2003
Posts: 16

PostPosted: Wed Apr 26, 2006 10:53 am    Post subject: change a column from one character to another character.
Reply with quote

hi,
I have a VSAM file in which the column 63 is value: 0 or 1 or 2 or 3.
Now, I want to change all the records in this file with 63 column are set to '1' where the 63 column values '0' now.
I.E. if there is a record in which the 63 column is '0', then change the record into '1' and other columns are kept unchanged.

Could ICEMAN do this job?
Back to top
View user's profile Send private message

priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1452
Location: Chicago, IL

PostPosted: Wed Apr 26, 2006 3:24 pm    Post subject: Re: change a column from one character to another character.
Reply with quote

You can use this DFSORT/ICETOOL job:

Code:
//S0P0 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=VSAM.FILE.NAME
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD DSN=VSAM.FILE.NAME
//TOOLIN DD *
COPY FROM(IN) TO(T1) VSAMTYPE(F) USING(CTL1)
COPY FROM(T1) TO(OUT)
/*
//CTL1CNTL DD *
   OUTREC IFTHEN=(WHEN=(63,1,EQ,C'0'),OVERLAY=(63:C'1'))
/*


Regards,
Priyesh.
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts the use of 'B3'x character in a panel Pedro TSO/ISPF 1 Thu Feb 16, 2017 3:09 am
No new posts Fail to change physical VSAM filename... jacobdng CICS 7 Fri Jan 20, 2017 12:36 pm
This topic is locked: you cannot edit posts or make replies. DB2 query Using Recursion, Converting... smilewithashu2 DB2 3 Tue Jan 03, 2017 12:50 pm
No new posts SQZ pipe delimited file with 1 column... Rick Silvers DFSORT/ICETOOL 6 Sun Nov 06, 2016 8:11 pm
This topic is locked: you cannot edit posts or make replies. Checking wether a string starts from ... sundaram.naveen CLIST & REXX 9 Thu Oct 06, 2016 11:56 am


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