Interstage Job Workload Server チュートリアルガイド

I.1.1 主プログラムの作成

COBOLのバッチアプリケーションの呼び出しを行う主プログラムを作成します。以下に示すのは“KAKUNIN.cob”を動作させるための主プログラムです。他のCOBOLのバッチアプリケーション用の主プログラムについても、“太字”をそれぞれ“TYUUMON”、“SYOHIN”、“HATYUU”に変更し、“TYUUMON_DRIVER.cob”、“SYOHIN_DRIVER.cob”、“HATYUU_DRIVER.cob”を作成してください。

■KAKUNIN_DRIVER.cob

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. KAKUNIN_DRIVER.
000030
000040 ENVIRONMENT      DIVISION.
000050
000060 CONFIGURATION    SECTION.
000070
000080 SPECIAL-NAMES.
000090
000100
000110 DATA DIVISION.
000120 WORKING-STORAGE SECTION.
000130
000140 COPY "KAKUNINPar.cbl".
000150
000160 LINKAGE SECTION.
000170
000180 PROCEDURE DIVISION .
000190
000200     DISPLAY "[DRIVER] start ".
000210
000220     MOVE "SIVALUE" TO inArg.
000230
000240     DISPLAY "[DRIVER] call KAKUNIN inArg = " inArg .
000250     
000260     CALL "KAKUNIN" USING inArg.
000270
000280     DISPLAY "[DRIVER] end  PROGRAM-STATUS = " PROGRAM-STATUS .
000290
000300     EXIT PROGRAM.
000310
000320 END PROGRAM KAKUNIN_DRIVER.