JCL パラメーターへのアクセス
EXEC ステートメントの PARM= キーワードを使用して、JCL から COBOL プログラムにパラメーター・ストリングを渡すことができます。 標準的なCOBOLコーディング、または'CEE3PR2 言語環境®呼び出し可能サービスを呼び出すことによって、これらのパラメータにアクセスすることができる。
COBOL コーディングの使用
システムによってストリングの前に挿入されるハーフワード・パラメーター・リストの長さフィールドを考慮に入れて、 PARM ストリングによって渡される user_parameter データを受け取る LINKAGE
SECTION レコード (level-01) を定義する必要があります。
プログラムは、このフィールド長がゼロではないことをテストし、PARM ストリング・データが実際に渡されていることを検証できます。 例:
LINKAGE SECTION.
01 PARMDATA.
05 STRINGLEN PIC 9(4) USAGE COMP.
05 STRINGPARM PIC X(80).
PROCEDURE DIVISION USING PARMDATA.
IF STRINGLEN > 0 . . .詳細は 、「リンケージセクションのコーディング 」を参照してください。
CEE3PR2 の使用
CEE3PR2 呼び出し可能サービスへのパラメーターを定義する必要があります。その際、パラメーターを PROCEDURE DIVISION USING ステートメントに追加する必要はありません。
WORKING-STORAGE SECTION.
01 PARMLEN PIC S9(9) BINARY.
01 PARMSTR.
02 STR1-LENGTH PIC S9(4) BINARY.
02 STR1-STRING.
03 STR1-CHAR PIC X
OCCURS 0 TO 256 TIMES
DEPENDING ON STR1-LENGTH.
. . .
CALL "CEE3PR2" USING PARMLEN,PARMSTR, FC.CEE3PR2 呼び出し可能なサービスの詳細については 、Language Environment Programming Reference の CEE3PR2 を参照してください。