SQL/MP Programming Manual for COBOL

Error and Status Reporting
HP NonStop SQL/MP Programming Manual for COBOL—529758-003
9-3
Sharing Structures
For more information about versions of NonStop SQL/MP, see the SQL/MP Version
Management Guide.
Sharing Structures
Sharing a single SQLCA and SQLSA structure among subprograms of a host program
saves a large amount of memory space. The SQLCA structure is 430 bytes. The
pre-R330 SQLSA structure is 838 bytes, and the R330 SQLSA structure is 1790 bytes.
A program with many subprograms that contain embedded SQL can consume
enormous amounts of memory space for the multiple structures alone.
The COBOL external object generated by the INCLUDE SQLCA EXTERNAL directive
is:
01 SQLCA EXTERNAL.
02 EYE-CATCHER PIC X(2).
02 VERSION PIC S9(4) COMP.
02 NUM-ERR-ENTRIES PIC S9(4) COMP.
02 PARAMS-BUFFER-LEN PIC S9(4) COMP.
02 SRC-NAME-BUFFER-LEN PIC S9(4) COMP.
02 NUM-ERRORS PIC S9(4) COMP.
02 NEXT-P-OFFSET PIC S9(4) COMP.
02 FLAGS PIC S9(4) COMP.
02 PROCEDURE-ID PIC X(32).
02 USER-LINE-NUMBER PIC S9(9) COMP.
02 SYNTAX-ERR-LOC PIC S9(4) COMP.
02 ERROR-LOCATION PIC X(40).
02 ROWS PIC S9(9) COMP.
02 COST PIC S9(18) COMP.
02 SQLCA-RESERVED PIC X(40).
02 ERRORS-ALL.
03 SQL-ERROR OCCURS 7 TIMES.
04 ERRCODE PIC S9(4) COMP.
04 SUBSYSTEM-ID PIC X.
04 SUPPRESS-DISPLAY PIC X.
04 PARAMS-OFFSET PIC S9(4) COMP.
04 PARAMS-COUNT PIC S9(4) COMP.
04 ARRIVAL-SEQ PIC S9(4) COMP.
02 SQLCODEA REDEFINES ERRORS-ALL.
03 SQLCODE PIC S9(4) COMP.
03 FILLER PIC X(68).
02 PARAMS-BUFFER PIC X(180).
02 SRC-NAME-BUFFER PIC X(34).
The COBOL external object generated by the INCLUDE SQLSA EXTERNAL directive
is:
01 SQLSA EXTERNAL.
02 EYE-CATCHER PIC X(2).
02 VERSION PIC S9(4) COMP.
02 DML.
03 NUM-TABLES PIC 9(4) COMP.
03 STATS OCCURS 16 TIMES.