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: 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 Changeman get multiple "Browse C... elixir1986 Compuware & Other Tools 4 Fri Jul 14, 2017 1:48 am
No new posts Include/omit with "ALL" pa... mgl DFSORT/ICETOOL 6 Wed Jun 14, 2017 2:31 pm
No new posts How to change 'K' or 'M' use Sort vice_versa DFSORT/ICETOOL 5 Thu May 18, 2017 7:11 am
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts RC 20 for Address ISPEXEC "ISRED... pkmurali CLIST & REXX 3 Sun Apr 16, 2017 11:30 pm


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