IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

File Aid to File Manager conversion


 
IBM Mainframe Forums -> IBM Tools
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
murali3955

New User


Joined: 25 Nov 2009
Posts: 11
Location: Chennai

PostPosted: Thu Nov 24, 2016 3:41 pm
Reply with quote

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
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2431
Location: Hampshire, UK

PostPosted: Fri Nov 25, 2016 3:21 am
Reply with quote

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
View user's profile Send private message
bam390

New User


Joined: 22 Oct 2016
Posts: 2
Location: Gray, TN

PostPosted: Sat Nov 26, 2016 5:29 pm
Reply with quote

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
View user's profile Send private message
bam390

New User


Joined: 22 Oct 2016
Posts: 2
Location: Gray, TN

PostPosted: Sat Nov 26, 2016 5:41 pm
Reply with quote

Look into the capabilities of DFSORT by googling "Sort Tricks".

Sort Tricks:






Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8566
Location: Dubuque, Iowa, USA

PostPosted: Sat Nov 26, 2016 8:48 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> IBM Tools
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts COBOL VS SORT Utility for file format... COBOL Programming 6
No new posts How to find which file contains my se... DFSORT/ICETOOL 6
No new posts IGZ0035S THERE WAS AN UNSUCCESSFUL OP... COBOL Programming 3
No new posts Date format conversion DFSORT/ICETOOL 4
No new posts Hex Value - vb file replace old date ... DFSORT/ICETOOL 14

Back to Top