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.