この付録では、ロード・モジュール内の現行ライブラリー・ルーチンを言語環境プログラム・ライブラ リー・ルーチンで置き換える方法を示す JCL の例を示します。SCEESAMP データ・セットに、OS/VS COBOL または VS COBOL II ロード・モジュールを再リンク ・エディットするときに役立つ 3 つのサンプル・ジョブ (IGZWRLKA、IGZWRLKB、およ び IGZRLKC) が入っています。
//********************************************************************* //* * //* 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) /*
ここで、 1 および 2 は以下のものを表します。
1
| REPLACE ILBOABN |
REPLACE ILBOD26 |
REPLACE ILBOSDB |
2
| REPLACE IGZCA2D |
REPLACE IGZCONVX |
REPLACE IGZENRT |