16.2.3 引数の受け取り方法(VOS3インタフェースに従った形式の場合)
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. :
-
受け取った引数の長さが格納されます。
-
受け取った引数の値が格納されます。
受け取った引数の長さがPTABの長さ未満の場合は,PLENに指定した長さ分のデータだけを保証します。また,受け取った値の長さがPLENに指定した長さを超える場合は,PTABの長さ分のデータだけを保証します。
-
- 規則
-
-
COBOLプログラムのコンパイル時に,-Main,V3オプションを指定する必要があります。
-
コマンド行中の実行可能ファイル名の後に指定した文字列だけが,引数として渡されます。引数が空白文字を含む場合は,引用符(")で囲む必要があります。
-
受け取る引数の長さは100バイト以内でなければなりません。100バイトを超える文字列を指定した場合,先頭から100バイトまでが有効となります。
-