IBM Mainframe Forum

by **MitchellSTL** » Wed Apr 01, 2015 10:53 pm

I want to change copy positions 5,4 to 1,4 when the date (11,10) is 2015-03-26 and the field #1 (1,4) is "0001"

Input

Select all

0001|7150|2015-03-26
0001|1510|2015-03-26
1800|1800|2015-03-26
7300|7300|2015-03-24

Output

Select all

7150|7150|2015-03-26
1510|1510|2015-03-26
1800|1800|2015-03-26
7300|7300|2015-03-24

What I've tried (and it failed) was:

Select all

$$FILEM DSU INPUT=FILEIN,
$$FILEM PROC=*
IF SUBSTR(INREC,11,10) == '2015-03-26' THEN
IF SUBSTR(INREC,1,4) == '0001' THEN
OUTREC = CHG(OUTREC,'0001',(SUBSTR(INREC,26,4)),1,1)
RETURN
/+

Error message:

Select all

IBM File Manager for z/OS
133 +++ OUTREC = CHG(OUTREC,'0001',(SUBSTR(INREC,26,4)),1,1)
4 +++ CALL FMPRC
IRX0043I Error running FMNINTEX, line 133: Routine not found
FMNBB382 REXX exec terminated with RC 20043
FMNBB283 43683 record(s) read from input data set
FMNBB434 0 record(s) updated

IBM Mainframe Forum

File Manager - DSU

File Manager - DSU