If the resource is recoverable, the forUpdate option locks the record so that it cannot be changed by other programs until a commit occurs. For details on commit processing, see Logical unit of work.
In the following snippet, the code prints information for every order (child segment) in a location (parent segment) for a customer:
while (record1 not endOfFile) try get next inparent record1; onException myErrorHandler(12); end ordersForLocation = ordersForLocation + 1; printOrderDetail(record1); end // end while
Related concepts
DL/I database support
Record types and properties
Related tasks
Syntax diagram for EGL statements and commands
Related reference
#dli directive
add
CICS-related considerations
delete
Exception handling
get
get next
I/O error values
EGL statements
replace
set