PreviousDBUTIL - Interactive DB Calls Assembler ProgramsNext"

Chapter 10: EXEC DLI Statements

This chapter lists the statements supported by the EXEC DLI preprocessor.

10.1 Supported Statements

Listed here are the EXEC DLI statements and options which are supported by the preprocessor. These statements are translated internally into a call to CBLTDLI.

For all of these EXEC DLI statements, both the OSVS and VS COBOL II dialects are supported.

 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  |  GU
GET NEXT  |  GN
GET 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) ]
 

10.2 Unsupported Statements

Some EXEC DLI statements might not be supported, but the EXEC DLI preprocessor processes the statement and checks for valid syntax. When these statements are executed, by using either Run or Debug, they execute but they do not do anything meaningful and therefore do not disturb program execution.

10.3 Other Limitations

A maximum of 400 input lines can be specified for one EXEC DLI/END-EXEC statement. This maximum does not include comments or blank lines that may be placed within an EXEC DLI/END-EXEC statement.


Copyright © 1999 MERANT International Limited. All rights reserved.
This document and the proprietary marks and names used herein are protected by international law.

PreviousDBUTIL - Interactive DB Calls Assembler ProgramsNext"