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

E.1.1 COBOLのバッチアプリケーションの編集

必要に応じ、オリジナルのCOBOLのバッチアプリケーション資材の退避を行ってください。

# cd /export/home/ijob/sample/filemodel
# cp -rp src src_org
# cp -rp myapp myapp_org
#

作業は、ログインした一般ユーザで行ってください。

COBOLのバッチアプリケーションを編集します。
下の“太字”が編集箇所です。入力パラメタの追加とそのパラメタ値を出力するように編集しています。

# cd /export/home/ijob/sample/filemodel/src/KAKUNIN
# cat KAKUNIN.cob
000010**************************************************************************
000020* All rights reserved, Copyright (C) Fujitsu Ltd. 2006                   *
000030*                                                                        *
000040* ファイル名                                                             *
000050*   KAKUNIN.cob                                                          *

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
省略
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

000740 COPY "KAKUNINPar.cbl".
000750
000760
000770 PROCEDURE DIVISION USING INARG1 INARG2.
000780
000790     DISPLAY "[KAKUNIN] start".
000800     DISPLAY "[KAKUNIN] PARAM1=" INARG1.
000810     DISPLAY "[KAKUNIN] PARAM2=" INARG2.
000820
000830

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
省略
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

002280*
002290 END PROGRAM KAKUNIN.
#

 

# cd /export/home/ijob/sample/filemodel/src/TYUUMON
# cat TYUUMON.cob
000010**************************************************************************
000020* All rights reserved, Copyright (C) Fujitsu Ltd. 2006                   *
000030*                                                                        *
000040* ファイル名                                                             *
000050*   TYUUMON.cob                                                          *

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
省略
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

000810 COPY "TYUUMONPar.cbl".
000820
000830
000840
000850 PROCEDURE DIVISION USING INARG1 INARG2.
000860
000870     DISPLAY "[TYUUMON] start".
000880     DISPLAY "[TYUUMON] PARAM1=" INARG1.
000890     DISPLAY "[TYUUMON] PARAM2=" INARG2.
000900

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
省略
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

002600*
002610 END PROGRAM TYUUMON.
#

 

# cd /export/home/ijob/sample/filemodel/src/SYOHIN
# cat SYOHIN.cob
000010**************************************************************************
000020* All rights reserved, Copyright (C) Fujitsu Ltd. 2006                   *
000030*                                                                        *
000040* ファイル名                                                             *
000050*   SYOHIN.cob                                                           *

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
省略
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

000790 COPY "SYOHINPar.cbl".
000800
000810
000820
000830 PROCEDURE DIVISION USING INARG1 INARG2.
000840
000850     DISPLAY "[SYOHIN] start".
000860     DISPLAY "[SYOHIN] PARAM1=" INARG1.
000870     DISPLAY "[SYOHIN] PARAM2=" INARG2.
000880

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
省略
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

002820*
002830 END PROGRAM SYOHIN.
#

 

# cd /export/home/ijob/sample/filemodel/src/HATYUU
# cat HATYUU.cob
000010**************************************************************************
000020* All rights reserved, Copyright (C) Fujitsu Ltd. 2006                   *
000030*                                                                        *
000040* ファイル名                                                             *
000050*   HATYUU.cob                                                           *

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
省略
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

000960 COPY "HATYUUPar.cbl".
000970
000980
000990
001000 PROCEDURE DIVISION USING INARG1 INARG2.
001010
001020     DISPLAY "[HATYUU] start".
001030     DISPLAY "[HATYUU] PARAM1=" INARG1.
001040     DISPLAY "[HATYUU] PARAM2=" INARG2.
001050

〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
省略
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

003410*
003420 END PROGRAM HATYUU.
#