EXEC DLI Statements

These EXEC DLI statements and options are supported by the EXEC DLI preprocessor, which translates them into CBLTDLI calls. Not all EXEC DLI statements are supported; however, the EXEC DLI preprocessor does check for valid syntax. Unsupported EXEC DLI statements are not executed during debug or at run time. Enterprise Developer supports both the OSVS and VS COBOL II dialects.

Important: To compile IMS code that contains EXEC DLI statements, you must specify the CICSECM EXECDLI directive. See CICS Compiler Directive Options for more information.

Note: You can specify a maximum of 400 input lines for one EXEC DLI/END-EXEC statement, not including comments or blank lines embedded within an EXEC DLI/END-EXEC statement.

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)

For each parent segment (optional)

               [ 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) ] ]

For the object segment ( optional for GN and 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) ]

For each parent segment (optional)

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

For the object segment (required)

               [ 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) ]

For each parent segment (optional)

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

For each object segment (required)

               [ 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) ]