EXEC DLI 文

ここに示す EXEC DLI 文およびオプションは EXEC DLI プリプロセッサでサポートされます。このプリプロセッサはこれらの文を CBLTDLI 呼び出しに変換します。すべての EXEC DLI 文がサポートされるとは限りませんが、EXEC DLI プリプロセッサは有効な構文をチェックします。サポートされない EXEC DLI 文は、デバッグ中またはランタイムで実行されません。Visual COBOL は、OSVS および VS COBOL II 方言の両方をサポートします。

注：EXEC DLI/END-EXEC 文に埋め込まれるコメントまたは空白行を含まず、1 つの EXEC DLI/END-EXEC 文に対して 400 までの入力行を指定できます。

ACCEPT
            STATUSGROUP(A)

CHECKPOINT | CHKP 
            ID(area)  |  ID("literal")

DELETE | DLET
          [ USING  PCB(expression) ]
          [ VARIABLE ]
            SEGMENT(name)  |  SEGMENT((area))
          [ SEGLENGTH(expression) ]
            FROM(area)

DEQ
            LOCKCLASS(data_value)

GET UNIQUE  |  GUGET NEXT  |  GNGET NEXT IN PARENT  |  GNP
               [ USING  PCB(expression) ]
          [ KEYFEEDBACK(area) [ FEEDBACKLEN(expression) ] ]
            INTO(reference)

各親セグメントの場合 (オプション)

               [ VARIABLE ]
               [ FIRST  |  LAST  |  CURRENT ]
                 SEGMENT(name)  |  SEGMENT((area))
               [ SEGLENGTH(expression) ]
               [ OFFSET(expression) ]
               [ INTO(area) ]
               [ LOCKED ]
               [ SETPARENT ]
               [ WHERE(qualification statement)
               [ FIELDLENGTH(expression) ] ]
               [ KEYS(area) [ KEYLENGTH(expression) ] ]

オブジェクトセグメントの場合 (GN および GNP ではオプション)

               [ VARIABLE ]
               [ FIRST  |  LAST ]
                 SEGMENT(name)  |  SEGMENT((area))
               [ SEGLENGTH(expression) ]
               [ OFFSET(expression) ]
               [ INTO(area) ]
               [ LOCKED ]
               [ SETPARENT ]
               [ WHERE(qualification statement)
               [ FIELDLENGTH(expression) ] ]
               [ KEYS(area) [ KEYLENGTH(expression) ] ]

INSERT  |  ISRT
          [ USING  PCB(expression) ]

各親セグメントの場合 (オプション)

               [ VARIABLE ]
               [ FIRST  |  LAST  |  CURRENT ]
                 SEGMENT(name)  |  SEGMENT((area))
               [ SEGLENGTH(expression) ]
               [ OFFSET(expression) ]
               [ FROM(area) ]
               [ WHERE(qualification statement)
               [ FIELDLENGTH(expression) ] ]
               [ KEYS(area) [ KEYLENGTH(expression) ] ]

オブジェクトセグメントの場合 (必須)

               [ VARIABLE ]
               [ FIRST  |  LAST ]
                 SEGMENT(name)  |  SEGMENT((area))
               [ SEGLENGTH(expression) ]
               [ OFFSET(expression) ]
               [ FROM(area) ]

LOAD
          [ USING  PCB(expression) ]
               [ VARIABLE ]
                 SEGMENT(name)  |  SEGMENT((area))
               [ SEGLENGTH(expression) ]
               [ OFFSET(expression) ]
               [ FROM(area) ]

LOG
            FROM(area)
                 LENGTH(expression)

QUERY
            PCB(expression)

REFRESH
            DBQUERY

REPLACE | REPL
          [ USING  PCB(expression) ]

各親セグメントの場合 (オプション)

               [ VARIABLE ]
                 SEGMENT(name)  |  SEGMENT((area))
               [ SEGLENGTH(expression) ]
               [ FROM(area) ]

各オブジェクトセグメントの場合 (必須)

               [ VARIABLE ]
                 SEGMENT(name)  |  SEGMENT((area))
               [ SEGLENGTH(expression) ]
               [ FROM(area) ]

RETRIEVE
            USING  PCB(expression)
                 KEYFEEDBACK(area)
                 FEEDBACKLEN(expression)

ROLB

ROLL

ROLS
            TOKEN(token)
            AREA(data_area)

SCHEDULE | SCHD
            PSB(name)  |  PSB((area))

SETS
            TOKEN(token)
            AREA(data_area)

SETU
            TOKEN(token)
            AREA(data_area)

STATISTICS | STAT
          [ USING PCB(expression) ]
                 INTO(area)
               [ LENGTH(expression) ]
               [ VSAM | NOVSAM ]
               [ FORMATTED | UNFORMATTED | SUMMARY ]

SYMBOLIC CHECKPOINT | SYMCHKP
            ID(chkptid)  |  ID("literal")
               [ AREA1(area1)  LENGTH1(expression1) ]
               [ AREA2(area2)  LENGTH2(expression2) ]
               [ AREA3(area3)  LENGTH3(expression3) ]
               [ AREA4(area4)  LENGTH4(expression4) ]
               [ AREA5(area5)  LENGTH5(expression5) ]
               [ AREA6(area6)  LENGTH6(expression6) ]
               [ AREA7(area7)  LENGTH7(expression7) ]

TERMINATE | TERM

XRST
          [ ID(chkpid)  |  ID("literal") ]
               [ MAXLENGTH(expression) ]
               [ AREA1(area1)  LENGTH1(expression1) ]
               [ AREA2(area2)  LENGTH2(expression2) ]
               [ AREA3(area3)  LENGTH3(expression3) ]
               [ AREA4(area4)  LENGTH4(expression4) ]
               [ AREA5(area5)  LENGTH5(expression5) ]
               [ AREA6(area6)  LENGTH6(expression6) ]
               [ AREA7(area7)  LENGTH7(expression7) ]