VOS3インタフェースに従った形式でコマンド行に指定した引数を受け取る方法を,次に示します。
VOS3インタフェースに従った形式の場合の引数の受け取りの例
:
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE1.
DATA DIVISION.
:
LINKAGE SECTION.
01 PARM-1.
02 PLEN PIC 9(4) USAGE COMP. …1.
02 PTAB OCCURS 10 TIMES. …2.
03 PTYPE PIC X(3).
03 PCOUNT PIC 9(3).
03 PCOMMA PIC X(1).
PROCEDURE DIVISION USING PARM-1.
IF PLEN = 0 THEN
(引数の指定がないときの処理)
ELSE
(引数の指定があるときの処理)
END-IF.
: