Shared Thread COBOL Example

Shared tread COBOL example.
000100 ID DIVISION. 000200 PROGRAM-ID. RSHIVP2. 000300 AUTHOR. RAI1 000400 INSTALLATION. RELATIONAL ARCHITECTS INTL. 000500 DATE-WRITTEN. AUGUST, 1993. 000600 DATE-COMPILED. 000700* 000800* THIS COBOL APPLICATION ILLUSTRATES THE OPTION TO A SHARE 000900* A Db2 CONNECTION AND APPLICATION PLAN THREAD BETWEEN A 001000* USER PROGRAM WRITTEN IN A COMPILED LANGUAGE LIKE COBOL 001100* WITH A COMPILED RLX EXEC. 001200 005100 ENVIRONMENT DIVISION. 005200 CONFIGURATION SECTION. 005300 SOURCE-COMPUTER. IBM-3090. 005400 OBJECT-COMPUTER. IBM-3090. 005500 005600 DATA DIVISION. 005700 WORKING-STORAGE SECTION. 005800 005900 77 ISPF-BUFFER-LENGTH PIC S9(9) COMP VALUE 62. 006000 006100* INVOKE THE COMPILED RLX REXX EXEC NAMED RSHREX2 AND USE THE 006200* Db2 CONNECTION AND PLAN THREAD PREVIOUSLY ESTABLISHED 006300* BY RLX/CAF FOR THE RSHIVP2 APPLICATION. THE RLXPGM 006400* PARAMETER SHOULD IDENTIFY THE RLX STATIC SQL LOAD MODULE 006500* (NAMED RSHREX2S) PRODUCED BY RLX/COMPILE. 006600 006700 01 ISPF-BUFFER. 006800 05 FILLER PIC X(25) VALUE 006900 'SELECT CMD(RLXS RSHREX2 '. 007000 05 FILLER PIC X(16) VALUE 007100 'RLXPGM(RSHREX2S)'. 007200 05 FILLER PIC X(21) VALUE 007300 'RLXMODE(SHARE_THREAD)'. 007400 007500 PROCEDURE DIVISION. 007600 DISPLAY 'RSHIVP2 DRIVER MODULE ENTERED' 007700 DISPLAY 'RSHIVP2 - CALLING COBOL SUBPROGRAM RSHCOBOL'. 007800 CALL 'RSHCOBOL'. 007900 008000 DISPLAY 'RSHIVP2 - CALLING COMPILED RLX PROGRAM RSHREX2'. 008100 CALL 'ISPEXEC' USING ISPF-BUFFER-LENGTH 008200 ISPF-BUFFER. 008300 008400 DISPLAY 'RSHIVP2 - PROCESSING COMPLETED'. 008500 GOBACK.