This appendix provides an example of JCL that shows how to replace the current library routines in a load module with the Language Environment library routines. The SCEESAMP data set contains 3 sample jobs (IGZWRLKA, IGZWRLKB, and IGZRLKC) to assist in relink-editing OS/VS COBOL or VS COBOL II load modules.
//********************************************************************* //* * //* RELINK A LOAD MODULE THAT HAS BOTH OS/VS COBOL PROGRAMS * //* AND VS COBOL II PROGRAMS WITH Language Environment. * //* * //********************************************************************* //* //LINK EXEC PGM=IEWL,PARM='LIST,MAP,XREF' //SYSPRINT DD SYSOUT=* //********************************************************************* //* CHANGE 'ZZZZZZ.SCEELKED' IN THE FOLLOWING DD STATEMENT TO * //* THE Language Environment SCEELKED DATA SET NAME. * //* * //* CHANGE 'XXXXXX' IN THE FOLLOWING DD STATEMENT TO * //* THE DATA SET NAME WHICH CONTAINS THE LOAD MODULE. * //* * //* CHANGE 'YYYYYY' IN THE FOLLOWING DD STATEMENT TO * //* THE DATA SET NAME WHICH THE RELINK-EDITED LOAD * //* MODULE SHOULD BE SAVED INTO. * //* * //********************************************************************* //SYSLIB DD DSN=ZZZZZZ.SCEELKED,DISP=SHR //LOADLIB DD DSN=XXXXXX,DISP=SHR //SYSLMOD DD DSN=YYYYYY,DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,2)),DISP=NEW //********************************************************************* //* CHANGE 'UUUUUU' IN THE FOLLOWING INCLUDE STATEMENT * //* TO THE LOAD MODULE NAME. * //* * //* CHANGE 'VVVVVV' IN THE FOLLOWING NAME STATEMENT TO * //* THE RELINK-EDITED LOAD MODULE NAME. * //* * //* CHANGE 'EEEEEE' IN THE FOLLOWING ENTRY STATEMENT TO * //* THE RELINK-EDITED LOAD MODULE ENTRY POINT NAME OR * //* OMIT THE ENTRY STATEMENT IF IT IS NOT REQUIRED. * //* * //********************************************************************* //SYSLIN DD * REPLACE ILBOxxxx 1 . . . REPLACE IGZxxxx 2 . . . INCLUDE LOADLIB(UUUUUU) ENTRY EEEEEE NAME VVVVVV(R) /*
Where 1 and 2 represent the following:
1
| REPLACE ILBOABN |
REPLACE ILBOD26 |
REPLACE ILBOSDB |
2
| REPLACE IGZCA2D |
REPLACE IGZCONVX |
REPLACE IGZENRT |