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

162 AppendixB
Sample Programs
COBOL II Program
001000$CONTROL CROSSREF,SYMDEBUG
001100*----------------------------------------------------*
001200 IDENTIFICATION DIVISION.
001300*----------------------------------------------------*
001400 PROGRAM-ID.
001500 AUTHOR.
001600 INSTALLATION.
001700 DATE-WRITTEN.
001800 DATE-COMPILED.
001900*
002000 REMARKS.
002100*
002200*----------------------------------------------------*
002300 ENVIRONMENT DIVISION.
002400*----------------------------------------------------*
002500 CONFIGURATION SECTION.
002600 SOURCE-COMPUTER. HP 3000.
002700 OBJECT-COMPUTER. HP 3000.
002800 SPECIAL-NAMES.
002900 CONDITION-CODE IS CCODE.
003000*
003100*----------------------------------------------------*
003200 DATA DIVISION.
003300*----------------------------------------------------*
003400*
003500*----------------------------------------------------*
003600 WORKING-STORAGE SECTION.
003700*----------------------------------------------------*
003800*
003900 01 INTRINSIC-COMP.
004000 05 TPID PIC S9(4) COMP.
004100 05 TRACEON PIC S9(4) COMP VALUE +1.
004200 05 LENGTH-REMOTE-TP-NAME PIC S9(4) COMP VALUE +4.
004300 05 RESOURCE-ID PIC S9(4) COMP.
004400 05 TRANS-LENGTH PIC S9(4) COMP VALUE +30.
004500 05 RECEIVE-LENGTH PIC S9(4) COMP.
004600 05 WHAT-RECEIVED PIC S9(4) COMP.
004700 05 FULL-RECORD PIC S9(4) COMP VALUE +80.
004800 05 REQ-TO-SEND-REC PIC S9(4) COMP.
004900 05 DATA-COMPLETE PIC S9(4) COMP VALUE +1.
005000 05 SEND-RECEIVED PIC S9(4) COMP VALUE +4.
005100 05 DEALLOCATE-TYPE PIC S9(4) COMP VALUE +0.
005200 05 TRANSLATE-TO-EBCDIC PIC S9(4) COMP VALUE +2.
005300 05 TRANSLATE-TO-ASCII PIC S9(4) COMP VALUE +1.
005400*
005500 01 INTRINSIC-STATUS PIC S9(8) COMP.
005600 01 INTRINSIC-STATUS-ALL REDEFINES INTRINSIC-STATUS.
005700 05 INTRINSIC-STATUS-INFO PIC S9(4) COMP.
005800 05 INTRINSIC-STATUS-SUBSYS PIC S9(4) COMP.
005900*
006000 01 RETURN-CODE.
006100 05 ALLOCATE-RTRNCD PIC X(5).