*–––––––––––––––––––––––––––––––––––––––*
* STORED PROCEDURE COMMUNICATION AREA *
*–––––––––––––––––––––––––––––––––––––––*
03 SPAREA.
05 SPHEADER PIC X(8).
05 SPRESRVD PIC X(33).
05 SPTRCOPT PIC X.
05 SPSTATUS PIC X(2).
05 SPCODE PIC X(8).
05 SPFORMAT PIC X(3).
05 SPMODE PIC X(6).
05 SPRC PIC X(3).
05 SPFROM USAGE IS POINTER.
05 SPINTO REDEFINES SPFROM USAGE IS POINTER.
05 SPSQLDA REDEFINES SPINTO USAGE IS POINTER.
05 SPVARTXT USAGE IS POINTER.
05 SPVARTAB USAGE IS POINTER.
05 SPROWS PIC S9(8) COMP.
05 SPMAXLEN PIC S9(4) COMP.
05 SPRECLEN REDEFINES SPMAXLEN PIC S9(4) COMP.
05 SPVARLEN PIC S9(4) COMP.
05 SPPREFIX PIC X.
05 SPMSG PIC X(100).
05 FILLER PIC X(3).
05 SPSQL USAGE IS POINTER.
05 SPATTACH PIC X(8).
05 SPUSERID PIC X(8).
05 SPPWD PIC X(8).
05 SPCMPOPT PIC X(1).
05 SPIND PIC X(1).
05 SPDATE PIC X(8).
05 SPTIME PIC X(8).
05 SPCONFIG PIC(4).
05 SPSERVER PIC(30).
05 FILLER PIC X(32).
