This routine obtains logical implication of two items of data.
Specification
01 data-name-1 (Arbitrary item of data.) 01 data-name-2 (Arbitrary item of data.) 01 data-length PIC 9(9) COMP-5. 01 status-code PIC S9(4) COMP-5.
CALL "CBL_IMP" USING data-name-1 data-name-2 BY VALUE data-length RETURNING status-code.
Interface
Specifies an item of data to obtain logical implication.
Specifies the other item of data to obtain logical implication. The result is stored in this area.
Specifies the length of data-name-1 and data-name-2.
Return code
The return code is set in the status-code specified in the RETURNING clause.
0: Successful
Other than 0: Failure