必要に応じ、オリジナルのCOBOLのバッチアプリケーション資材の退避を行ってください。
本作業は、開発環境で行います。
C:\> D:
D:\> cd d:\ijobdev\sample\filemodel
D:\> xcopy /S /K /O /I /Q src src_org
D:\> |
COBOLのバッチアプリケーションを編集します。
下の“太字”が編集箇所です。入力パラメタの追加とそのパラメタ値を出力するように編集しています。
C:\> D:
D:\> cd d:\ijobdev\sample\filemodel\src\KAKUNIN
D:\> type KAKUNIN.cob
000010**************************************************************************
000020* All rights reserved, Copyright (C) Fujitsu Ltd. 2008 *
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.
D:\> |
C:\> D:
D:\> cd d:\ijobdev\sample\filemodel\src\TYUUMON
D:\> type TYUUMON.cob
000010**************************************************************************
000020* All rights reserved, Copyright (C) Fujitsu Ltd. 2008 *
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.
D:\> |
C:\> D:
D:\> cd d:\ijobdev\sample\filemodel\src\SYOHIN
D:\> type SYOHIN.cob
000010**************************************************************************
000020* All rights reserved, Copyright (C) Fujitsu Ltd. 2008 *
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.
D:\> |
C:\> D:
D:\> cd d:\ijobdev\sample\filemodel\src\HATYUU
D:\> type HATYUU.cob
000010**************************************************************************
000020* All rights reserved, Copyright (C) Fujitsu Ltd. 2008 *
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.
D:\> |
