The DB-EXIT facility accesses database records or logical records directly within type 7 process logic. The DB-EXIT facility is invoked in type 7 process logic with either a CALL DB-EXIT statement or a series of MOVE statements followed by a branch to DB-EXIT, as follows:
017010 CALL DB-EXIT ('FIRST','EMPLOYEE ','DEPT-EMPLOYEE ')
or
017010 MOVE 'FIRST' TO ARG1
017 MOVE 'EMPLOYEE ' TO ARG2
017 MOVE 'DEPT-EMPLOYEE ' TO ARG3
017 B DB-EXIT
|
Copyright © 2014 CA.
All rights reserved.
|
|