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

166 AppendixB
Sample Programs
COBOL II Program
020500 IF QUIT-SW IS EQUAL TO YES-SW
020600 GO TO 102099-EXIT.
020700*
020800 PERFORM 202000-RECEIVE-DATA.
020900*
021000 102099-EXIT.
021100 EXIT.
021200*
021300*----------------------------------------------------*
021400 103000-END-HOUSEKEEPING SECTION.
021500*----------------------------------------------------*
021600* This section deallocates the conversation and calls
021700* TPEnded to free the resources used by the local TP.
021800*
021900 CALL INTRINSIC "MCDEALLOCATE" USING RESOURCE-ID,
022000 DEALLOCATE-TYPE,
022100 INTRINSIC-STATUS.
022200 IF INTRINSIC-STATUS IS NOT EQUAL TO ZERO
022300 MOVE INTRINSIC-STATUS-INFO TO DEALLOCATE-RTRNCD
022400 DISPLAY DEALLOCATE-ERR-MSG,DEALLOCATE-RTRNCD.
022500*
022600 CALL INTRINSIC "TPENDED" USING TPID,
022700 INTRINSIC-STATUS.
022800 IF INTRINSIC-STATUS IS NOT EQUAL TO ZERO
022900 MOVE INTRINSIC-STATUS-INFO TO ENDED-RTRNCD
023000 DISPLAY ENDED-ERR-MSG,ENDED-RTRNCD.
023100*
023200 103099-EXIT.
023300 EXIT.
023400*
023500*----------------------------------------------------*
023600 201000-SEND-DATA SECTION.
023700*----------------------------------------------------*
023800* This section translates the data received from the
023900* user’s screen into EBCDIC and sends it to the remote TP.
024000*
024100 CALL INTRINSIC "CTRANSLATE" USING TRANSLATE-TO-EBCDIC,
024200 TRANS-DATA,
024300 TRANS-DATA,
024400 TRANS-LENGTH.
024500 IF CCODE << ZERO
024600 DISPLAY CTRANSLATE-ERR-MSG,
024700 "CCL - TRANS-DATA NOT TRANSLATED"
024800 MOVE YES-SW TO QUIT-SW
024900 GO TO 201099-EXIT.
025000*
025100 CALL INTRINSIC "MCSENDDATA" USING RESOURCE-ID,
025200 TRANS-DATA,
025300 TRANS-LENGTH,
025400 REQ-TO-SEND-REC,
025500 INTRINSIC-STATUS.
025600 IF INTRINSIC-STATUS IS NOT EQUAL TO ZERO