Change File Manager to File Aid



Compuware's data management products: File-AID for IMS, File-AID/MVS, File-AID for DB2 and DBA-XPERT for DB2

Change File Manager to File Aid

Postby glovesey » 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.
glovesey
 
Posts: 2
Joined: Mon Mar 03, 2014 7:09 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Change File Manager to File Aid

Postby glovesey » Mon Mar 03, 2014 7:27 pm

An example from the LIVEPARA file is:

££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......
glovesey
 
Posts: 2
Joined: Mon Mar 03, 2014 7:09 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Change File Manager to File Aid

Postby Ed Goodman » Mon Mar 03, 2014 9:42 pm

Basic 'change all' in place in FileManager becomes EditAll (or EA) with the UPDATE command
$$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.
Ed Goodman
 
Posts: 341
Joined: Thu Feb 24, 2011 12:05 am
Has thanked: 3 times
Been thanked: 17 times


Return to File-AID

 


  • Related topics
    Replies
    Views
    Last post