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
 

 

Do A "Change All" With Batch Insync (Macro4)

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

New User


Joined: 13 Oct 2007
Posts: 19
Location: Fort Worth, Tx USA

PostPosted: Thu Apr 16, 2009 1:51 am    Post subject: Do A "Change All" With Batch Insync (Macro4)
Reply with quote

For a regular sequential file, I need to convert a hex character located anywhere within a column range to spaces using Batch Insync (do not want to have to write a program for that). The field contains free form text so the hex string is not always in the same column of that column range. Some records, of course, will not need changing because the hex string does not always occur in every record.

My question is: how can I do this with Batch Insync. I have tried to use SEARCHDATA to locate the field but SEARCHDATA seems to be looking in only one starting column number.

//STEP1 EXEC PGM=INSYNC,PARM=MVS,REGION=0M,TIME=999
//STEPLIB DD DISP=SHR,DSN=MVS2.INSYNC.LOADLIB
//*
//#ELIBDD DD DISP=SHR,DSN=MVS2.INSYNC.ELIB
//SYSTSPRT DD SYSOUT=*
//#LOG DD SYSOUT=*
//#PRINT DD SYSOUT=*
//#STATS DD SYSOUT=*
//#INDD DD DSN=.... (input file)
//#OUTDD DD DSN=... (output file)
//#PARM DD *
FUNCTION=CHANGE
INDD=#INDD
OUTDD=#OUTDD
RDW=OFF
LINESPERPAGE=065
SEARCHDATA=(00044,001,EQ,X'25')
Back to top
View user's profile Send private message

manihcl85
Warnings : 1

New User


Joined: 11 Jan 2007
Posts: 52
Location: chennai

PostPosted: Thu Apr 16, 2009 3:26 pm    Post subject:
Reply with quote

Hi,

You can use the below commeand to change the occurance between column 10 and column 20

change all x'25' x'40' 10 20

Thanks
Manikandan
Back to top
View user's profile Send private message
luis_pr

New User


Joined: 13 Oct 2007
Posts: 19
Location: Fort Worth, Tx USA

PostPosted: Thu Apr 16, 2009 6:15 pm    Post subject:
Reply with quote

It sounds as if you are thinking along the lines of doing this in SPF Edit Mode, Manikandan. I have to do this using Batch Insync
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu Apr 16, 2009 6:17 pm    Post subject:
Reply with quote

Quote:
I have to do this using Batch Insync


Then why don't you look at the documentation?
Back to top
View user's profile Send private message
karupps

New User


Joined: 02 May 2007
Posts: 4
Location: London

PostPosted: Tue Oct 13, 2009 1:04 pm    Post subject: Reply to: Do A "Change All" With Batch Insync (Mac
Reply with quote

Hi,

You can do like this.

FUNCTION=CHANGE
REPLACEDATA=(0,1,EQ,X'00',X'40')
SETRC4=0

k
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 Fail to change physical VSAM filename... jacobdng CICS 6 Fri Jan 20, 2017 12:36 pm
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
This topic is locked: you cannot edit posts or make replies. MIPS reduction for Batch job Virendra Shambharkar All Other Mainframe Topics 8 Mon Nov 07, 2016 4:02 pm
No new posts Amount field is getting corrupted whe... thesumitk SYNCSORT 5 Tue Oct 18, 2016 8:20 pm
No new posts DB2 Streaming Batch Processing Problem Manshadi DB2 4 Sat Sep 24, 2016 12:14 pm


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