Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

File Aid to File Manager conversion

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
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    Post subject: File Aid to File Manager conversion
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: 1715
Location: UK

PostPosted: Fri Nov 25, 2016 3:21 am    Post subject:
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    Post subject: suggestion - Rexx
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    Post subject: suggestion - DFSORT and SORT Tool
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: 7913
Location: Bellevue, IA

PostPosted: Sat Nov 26, 2016 8:48 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts SQZ pipe delimited file with 1 column... Rick Silvers DFSORT/ICETOOL 2 Sun Nov 06, 2016 8:11 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us