7 lines
296 B
COBOL
7 lines
296 B
COBOL
*> DB bridge common variables
|
|
*> Include in WORKING-STORAGE SECTION with COPY DB-COMMON.
|
|
01 WS-SQL-STR PIC X(2048).
|
|
01 WS-SQLCODE PIC S9(9) COMP-5.
|
|
01 WS-COL-IDX PIC S9(9) COMP-5.
|
|
01 WS-COL-LEN PIC S9(9) COMP-5.
|