The Fortran library module replacement tool provides a set of linkage editor REPLACE statements to help you replace all of the runtime library modules when your input to the linkage editor is an existing executable program containing the library modules. The tool supports executable programs created by VS FORTRAN Version 1, VS FORTRAN Version 2, and Language Environment. The source file containing the Fortran library module replacement tool is member AFHWRLK in the CEE.SCEESAMP library.
In Figure 1, the VS FORTRAN Version 2 runtime library modules in the executable program MYLMOD are replaced while retaining the compiled code, using the cataloged procedure CEEWL.
//RELINK EXEC PROC=CEEWL,PGMLIB=MYPDS.LOAD,GOPGM=MYLMOD
//SYSPRINT DD SYSOUT=A
//SAMPLIB DD DSN=CEE.SCEESAMP,DISP=SHR
//USERLMOD DD DSN=MYPDS.LOAD,DISP=OLD
//LKED.SYSIN DD *
INCLUDE SAMPLIB(AFHWRLK)
INCLUDE USERLMOD(MYLMOD)
NAME MYLMOD(R)
/*
Figure 2 shows how you can perform the same replacement under TSO/E, using a CLIST.
PROC 0
CONTROL MSG NOFLUSH NOPROMPT SYMLIST CONLIST
LINK ('CEE.SCEESAMP(AFHWRLK)', +
'MYPDS.LOAD(MYLMOD)') +
LOAD ('MYPDS.LOAD(MYLMOD)') +
LIB ('CEE.SCEELKED') NOTERM