LU 6.2 API Application Programmer's Reference Guide (30294-90008)

168 AppendixB
Sample Programs
COBOL II Program
030900 DISPLAY WHAT-RECEIVED-MSG,DISPLAY-WHAT-RECEIVED
031000 MOVE YES-SW TO QUIT-SW
031100 GO TO 202099-EXIT.
031200*
031300 CALL INTRINSIC "CTRANSLATE" USING TRANSLATE-TO-ASCII,
031400 MASTER-DATA,
031500 MASTER-DATA,
031600 RECEIVE-LENGTH.
031700 IF CCODE << ZERO
031800 DISPLAY CTRANSLATE-ERR-MSG,
031900 "CCL - MASTER-DATA NOT TRANSLATED"
032000 MOVE YES-SW TO QUIT-SW
032100 GO TO 202099-EXIT.
032200*
032300 IF RECEIVE-LENGTH IS EQUAL TO FULL-RECORD
032400 PERFORM 301000-DISPLAY-ACCEPTANCE
032500 ELSE
032600 PERFORM 302000-DISPLAY-ERROR-MESSAGE.
032700*
032800 202099-EXIT.
032900 EXIT.
033000*
033100*----------------------------------------------------*
033200 301000-DISPLAY-ACCEPTANCE SECTION.
033300*----------------------------------------------------*
033400* This section evaluates the Risk Code received from
033500* the remote TP to determine whether to approve or deny
033600* credit, and then it writes a message to the user's terminal.
033700*
033800 IF RISK-CODE-MASTER IS LESS THAN ACCEPT-CODE
033900 DISPLAY "CREDIT DENIED"
034000 ELSE
034100 DISPLAY "CREDIT APPROVED".
034200*
034300 PERFORM 401000-QUIT-SCREEN.
034400*
034500 301099-EXIT.
034600 EXIT.
034700*