|
View previous topic :: View next topic
|
| Author |
Message |
murali3955
New User
Joined: 25 Nov 2009
Posts: 11
Location: Chennai
|
|
|
|
Hi,
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.
Below is the existing File Aid card:
| Code: |
$$DD01 COPYALL IF=(1,NE,C'XXXX'),
IF=(150,EQ,C'B,D,S,P'),
RA=(1,100,C" ",C" "),
IF=(150,EQ,C'B,D,S,M,M1,M2,2Z,P,V,F'),
RA=(1,100,C" ", C" "),
IF=(150,EQ,C'B,D,S'),
RA=(1,100,C" ", C" ") |
Below is the File Manager card we are trying:
| Code: |
$$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.
Thanks,
Murali.
Coded |
|
| Back to top |
|
 |
Nic Clouston
Global Moderator
Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK
|
|
|
|
If that is Rexx code then remove the ',' that is after the first ')' and see if that helps. Does File Manager support '\' as NOT?
Use the code tags when posting stuff from the screen. |
|
| Back to top |
|
|
bam390
New User
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. |
|
| Back to top |
|
|
bam390
New User
Joined: 22 Oct 2016
Posts: 3
Location: Kingsport, TN
|
|
|
|
Look into the capabilities of DFSORT by googling "Sort Tricks".
Sort Tricks:
|
|
| Back to top |
|
|
Robert Sample
Global Moderator
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. |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
