At our site File Aid has been retired and we are using File Manager now. Team had already converted the Batch jobs from File Aid to File Manager. They missed out some of the Online components.
From Online CICS screen when the user enters the details and hits Enter, a batch job is submitted through Internal Reader. This batch job uses File Aid for processing. Fortunately there are no users using the screen, so we have some time to convert to File Manager.
$$FILEM DSC INPUT=DD01,
$$FILEM OUTPUT=DD01O,
$$FILEM PROC=*
IF FLDO(1,'\==',"XXXX"),
& FLDO(150,'==',"B,D,S,P")
THEN DO
CHG_OUT(" ", " ",0,1,100)
END
IF FLDO(150,'==',"B,D,S,M,M1,M2,2Z,P,V,F")
THEN DO
CHG_OUT(" "," ",0,1,100)
END
IF FLDO(150,'==',"B,D,S")
THEN DO
CHG_OUT(" "," ",0,1,100)
END
/+
1) File Aid is retired, so we are unable to test how the above File Aid card will work. But read manuals to know how the card will work.
2) We scanned all our components to identify similar kind of File Aid card, but couldn't find any
3) We tried to identify corresponding File Manager syntax and use it in a batch job. Not sure if we have used corresponding File Manager syntax. We are getting error when submitting the job.
Code:
9 +++ IF FLDO(1,'\==',"XXXX"),& FLDO(150,'==',"B,D,S,P")
13I Error running FMNINTEX, line 9: Invalid character in program
382 REXX exec terminated with RC 20013
Please help in converting the File Aid card to File manager.
Thank in Advance for your help and suggestion.
Joined: 22 Oct 2016 Posts: 3 Location: Kingsport, TN
One suggestion - If you already know plain Rexx under TSO, You might want to consider converting the File Aid jobs to IKJEFT01/Rexx .
This would be viable if the sizes of the data are not too large. The File Manager FASTREXX is meant to handle large amounts of data. But FASTREXX does require some relearning if you are a IKJEFT01/Rexx programmer.
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
Code:
IF=(150,EQ,C'B,D,S,M,M1,M2,2Z,P,V,F'),
This line of File Aid is comparing the one - or two - bytes starting at 150 against B, against D, against S, and so forth. In other words, it is a short way to use OR statements. File Aid is not comparing anything after byte 151 with this command. RA in File Aid is REPLACE ALL.
I would expect you need to use File Manager filtering to replicate the File Aid code (or use something other than File Manager such as DFSORT or REXX).
I would think the question is how the File Aid code was not converted before the product was not available any more.
