IBM Mainframe Forum

Posted: **Mon Mar 03, 2014 7:18 pm**

Hi, I have the code below:

//*
//* 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.

Posted: **Mon Mar 03, 2014 7:27 pm**

An example from the LIVEPARA file is:

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......

Posted: **Mon Mar 03, 2014 9:42 pm**

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

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.

IBM Mainframe Forum

Change File Manager to File Aid

Change File Manager to File Aid

Re: Change File Manager to File Aid

Re: Change File Manager to File Aid