Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 6968
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 Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts Generate public-private key in batch ... vasanthz All Other Mainframe Topics 3 Fri Sep 15, 2017 9:20 am
No new posts Working with hex values in Filemanage... Emile Straker IBM Tools 0 Tue Sep 12, 2017 1:42 am
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us