OCCURS DEPENDING ON など、可変長の区域を作成するステートメントは、WORKING-STORAGE SECTION 内では注意して使用する必要があります。 宣言のセクションで EXEC CICS コマンドを使用しないでください。 領域B (12 から 71 カラム) で、EXEC CICS と END-EXEC の両方のステートメントを開始しま...
添字、指標、部分参照またはOCCURS DEPENDING ON句を含む項目を参照している場合、それらが参照範囲を超えていないか。 CALL文などで受渡しを行うパラメーターが存在する場合、パラメーターの属性が引渡し側と受取り側で一致しているか(特に長さ)。
01 REC-1. 05 FIELD-1 OCCURS 1 TO 100 TIMES DEPENDING ON WS-COUNT. 10 WS-A PIC X(05). 10 WS-B PIC X(05). In the above example FIELD-1 is a variable length table. FIELD-1 can have 1 to 100 records. The actual number of records depends on WS-COUNT value. ...
DEPENDING ON～単独成行、从 28 列开始书写。ON 从 39 列开始书写、数据名从 41 列开始书写。 MODE、CONTAINS、RECORD、VARYING 从 37 列开始书写。记录的形式、0、STANDARD 从 47 列开始书写。 RECORDS 从 50 列开始书写。 COPY 从 12 列开始书写。登録集(拷贝句)的原文名与 COPY 之间空 2 列。 SUPPRESS...
記号名CL(n)記号。 可変長。 ...参照フラグCL1記号またはデータ名参照の場合: C' ' ブランクは参照のみの意味 C'M' 修正参照フラグ プロシージャー型記号参照の場合: C'A' ALTER(procedure-name) C'D' GO TO(procedure-name)DEPENDING ON ...
21 10 ARGS PIC X OCCURS 0 TO 9999 DEPENDING ON ARGC. 22 * 23 01 SERVER-INIT-STATUS. 24 COPY TPSTATUS. 25 *** 26 PROCEDURE DIVISION USING CMD-LINE SERVER-INIT-STATUS. 27 A-000. 28 MOVE LENGTH OF LOGMSG TO LOGMSG-LEN. 29 *** 30 * There are ...
In this post we will try to explore a sample program, which creates a variable length file using the COBOL Occurs Depending on clause. I am assuming that you are familiar with the clause and its function so we wont delve into detailed explanation and COBOL syntax but rather explain the use...
21 10 ARGS PIC X OCCURS 0 TO 9999 DEPENDING ON ARGC. 22 * 23 01 SERVER-INIT-STATUS. 24 COPY TPSTATUS. 25 *** 26 PROCEDURE DIVISION USING CMD-LINE SERVER-INIT-STATUS. 27 A-000. 28 MOVE LENGTH OF LOGMSG TO LOGMSG-LEN. 29 *** 30 * There are ...