IBM Mainframe Forum

[jsnyder2914]

Is there a simple way, using Find/Change or another method in File-Manager Batch, to do the following two functions?

1. Unconditionally change ANY existing value in a column to a specific new value.
For example, overlay anything in column 1 with an 'X'

2. Unconditionally change ANY 'Non-Blank' value (regardless of the value) in a column to a specific new value.
For example, if column 1 is greater than spaces, overlay it with an 'X'

I don't think I can use "C string1 string2", because 'string1' can contain various values.

We had File-Aid (which could do this with the REPL function), but have been forced to switch to File-Manager.

Thanks

[Thampy]

Hi,
You can use the Filemanager Fastrexx function OVLY_OUT to overlay the record. In Fastrexx mode, Filemanager performs all processing internally and does not invoke the Rexx language interpreter.

Requirement 1

//STEP010 EXEC PGM=FILEMGR,REGION=4M
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD *
ABCD
01234
CDVV
D4454
//*
//DDOUT DD SYSOUT=*
//SYSIN DD *
$$FILEM DSC INPUT=DD01,PROC=*
OVLY_OUT('X',1,1)
/*

Output
XBCD
X1234
XCDVV
X4454

Requirement 2

//STEP010 EXEC PGM=FILEMGR,REGION=4M
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD *
ABCD
01234
CDVV
D4454
//*
//DDOUT DD SYSOUT=*
//SYSIN DD *
$$FILEM DSC INPUT=DD01,PROC=*
IF FLD(1,1,C) > ' ' THEN
OVLY_OUT('X',1,1)
/*

OutputXBCD
X1234
CDVV
X4454