Author: murali3955
Subject: File Aid to File Manager conversion
Posted: Thu Nov 24, 2016 3:41 pm (GMT 5.5)
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:
Below is the File Manager card we are trying:
                                                           Â
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.
Please help in converting the File Aid card to File manager.
Thank in Advance for your help and suggestion.
Thanks,
Murali.
Coded
Subject: File Aid to File Manager conversion
Posted: Thu Nov 24, 2016 3:41 pm (GMT 5.5)
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