COBOL2002 ユーザーズガイド


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.
                    :
  1. 受け取った引数の長さが格納されます。

  2. 受け取った引数の値が格納されます。

    受け取った引数の長さがPTABの長さ未満の場合は,PLENに指定した長さ分のデータだけを保証します。また,受け取った値の長さがPLENに指定した長さを超える場合は,PTABの長さ分のデータだけを保証します。

規則
  • COBOLプログラムのコンパイル時に,-Main,V3オプションを指定する必要があります。

  • コマンド行中の実行可能ファイル名の後に指定した文字列だけが,引数として渡されます。引数が空白文字を含む場合は,引用符(")で囲む必要があります。

  • 受け取る引数の長さは100バイト以内でなければなりません。100バイトを超える文字列を指定した場合,先頭から100バイトまでが有効となります。