Change File Manager to File Aid

[glovesey]

Hi, I have the code below:

Code: Select all

//*                                                       
//* AMEND PRODUCTION ATTRIBUTES TO ACCEPTANCE ATTRIBUTES 
//*                                                       
//FILEMGR  EXEC PGM=FMNMAIN                               
//STEPLIB  DD DSN=SYS5.FMN.SFMNMOD1,DISP=SHR             
//*        DD DSN=IGY.SIGYCOMP,DISP=SHR                   
//DDIN     DD DSN=MOVE.OPCC.UNLOAD,DISP=SHR               
//SYSPRINT DD SYSOUT=*                                   
//FMNTSPRT DD SYSOUT=*                                   
//SYSTERM  DD SYSOUT=*                                   
//SYSIN    DD DSN=UUZZ.LIVE.TWS.PARMLIB(LIVEPARA),DISP=SHR

This makes changes on a dataset(s) based on the contents of the LIVEPARA file.

We used to have file manager and now we only have File Aid. I was hoping that somebody could help with the conversion or let me know how to do this another way.

[glovesey]

An example from the LIVEPARA file is:

Code: Select all

££FILEM FCH ,                               
££FILEM MEMBER=*,                           
££FILEM PACK=ASIS,                         
££FILEM INPUT=DDIN                         
CHANGE "HUMPROD    " "TESTHUMPROD"         
CHANGE "VALTO(071231)" ,                   
"VALTO(711231)"                             
CHANGE "VALTO(991231)" ,                   
"VALTO(711231)"                             
CHANGE "ACTION(ADD)" " "                   
FIND "OPTIONS"                             
CHANGE " '" "'"                             


Any help appreciated......

[Ed Goodman]

Basic 'change all' in place in FileManager becomes EditAll (or EA) with the UPDATE command

Code: Select all

$$DD01 UPDATEALL MAXENT=5000,                                   
              EA=(1,0,C'01',C'ADAMS          '),             
              EA=(1,0,C'02',C'ALLEN          '),             
              EA=(1,0,C'03',C'ASHLAND        '),             
              EA=(1,0,C'04',C'ASHTABULA      '),             
              EA=(1,0,C'05',C'ATHENS         '),             
              EA=(1,0,C'06',C'AUGLAIZE       '),             
              EA=(1,0,C'07',C'BELMONT        '),             
              EA=(1,0,C'08',C'BROWN          ')             


EA=(1,0 means find it anywhere on the line and change all of them.

UPDATE with the ALL suffix means to select all members in the PDS and edit them in place.

You WILL have to change the DD name for the input dataset to 'DD01' instad of 'DDIN'
//DD01 DD DSN=MOVE.OPCC.UNLOAD,DISP=SHR

The MAXENT allocates some extra memory for all of the change commands, so you may need to increase your region parm for the step.