DSQCOMM for COBOL
The interface communications area file for the COBOL language is named DSQCOMMB.
The DSQCOMMB include file shown here, is provided with QMF:
*************************************************************
* COBOL INCLUDE FOR QUERY CALLABLE INTERFACE
*************************************************************
* STRUCTURE DECLARE FOR COMMUNICATIONS AREA
01 DSQCOMM.
03 DSQ-RETURN-CODE PIC 9(8) USAGE IS COMP.
* FUNCTION RETURN CODE *
03 DSQ-INSTANCE-ID PIC 9(8) USAGE IS COMP.
* IDENTIFIER FROM START CMD *
03 DSQ-COMM-LEVEL PIC X(12).
* COMMUNICATIONS LEVEL *
03 DSQ-PRODUCT PIC X(2).
* QUERY PRODUCT ID *
03 DSQ-PRODUCT-RELEASE PIC X(2).
* QUERY PRODUCT RELEASE *
03 DSQ-RESERVE1 PIC X(28).
* RESERVED AREA *
03 DSQ-MESSAGE-ID PIC X(8).
* COMPLETION MESSAGE ID *
03 DSQ-Q-MESSAGE-ID PIC X(8).
* QUERY MESSAGE ID *
03 DSQ-START-PARM-ERROR PIC X(8).
* START PARAMETER IN ERROR *
03 DSQ-CANCEL-IND PIC X(1).
* 1 = COMMAND CANCELLED *
* 0 = COMMAND NOT CANCELLED *
03 DSQ-RESERVE2 PIC X(23).
* RESERVED AREA *
03 DSQ-RESERVE3 PIC X(156).
* RESERVED AREA *
03 DSQ-MESSAGE-TEXT PIC X(128).
* QMF MESSAGE TEXT *
03 DSQ-Q-MESSAGE-TEXT PIC X(128).
* QMF QUERY MESSAGE TEXT *
* 512 BYTES TOTAL *
* VALUES FOR DSQ-RETURN-CODE
01 DSQ-SUCCESS PIC 9(8) USAGE IS COMP VALUE 0.
01 DSQ-WARNING PIC 9(8) USAGE IS COMP VALUE 4.
01 DSQ-FAILURE PIC 9(8) USAGE IS COMP VALUE 8.
01 DSQ-SEVERE PIC 9(8) USAGE IS COMP VALUE 16.
* VALUES FOR DSQ-INSTANCE-ID
01 DSQ-CONTINUE PIC 9(8) USAGE IS COMP VALUE 0.
* VALUES FOR DSQ-COMM-LEVEL
01 DSQ-CURRENT-COMM-LEVEL PIC X(12) VALUE "DSQL>001002<".
* VALUES FOR DSQ-PRODUCT
01 DSQ-QRW PIC X(2) VALUE "01".
01 DSQ-QMF PIC X(2) VALUE "02".
01 DSQ-QM4 PIC X(2) VALUE "03".
* VALUES FOR DSQ-PRODUCT-RELEASE
01 DSQ-QRW-V1R2 PIC X(2) VALUE "01".
01 DSQ-QRW-V1R3 PIC X(2) VALUE "02".
01 DSQ-QMF-V2R4 PIC X(2) VALUE "01".
01 DSQ-QMF-V3R1 PIC X(2) VALUE "02".
01 DSQ-QMF-V3R1M1 PIC X(2) VALUE "03".
01 DSQ-QMF-V3R2 PIC X(2) VALUE "04".
01 DSQ-QMF-V3R3 PIC X(2) VALUE "05".
01 DSQ-QMF-V6R1 PIC X(2) VALUE "06".
01 DSQ-QMF-V7R1 PIC X(2) VALUE "07".
01 DSQ-QM4-V1R1 PIC X(2) VALUE "01".
01 DSQ-QMF-V7R2 PIC X(2) VALUE "08".
01 DSQ-QMF-V8R1 PIC X(2) VALUE "09".
01 DSQ-QMF-V9R1 PIC X(2) VALUE "10".
01 DSQ-QMF-V10R1 PIC X(2) VALUE "11".
01 DSQ-QMF-V11R1 PIC X(2) VALUE "12".
01 DSQ-QMF-V11R2 PIC X(2) VALUE "13".
01 DSQ-QMF-V12R1 PIC X(2) VALUE "14".
01 DSQ-QMF-V13R1 PIC X(2) VALUE "15".
* VALUES FOR DSQ-CANCEL-IND
01 DSQ-CANCEL-YES PIC X(1) VALUE "1".
01 DSQ-CANCEL-NO PIC X(1) VALUE "0".
* VALUES FOR MODE
01 DSQ-INTERACTIVE PIC X(1) VALUE "1".
01 DSQ-BATCH PIC X(1) VALUE "2".
* VALUES YES AND NO
01 DSQ-YES PIC X(1) VALUE "1".
01 DSQ-NO PIC X(1) VALUE "2".
* CALLABLE INTERFACE PROGRAM NAME
01 DSQCIB PIC X(6) VALUE "DSQCIB".
* VALUES FOR VARIABLE TYPE ON CALL PARAMETER
01 DSQ-VARIABLE-CHAR PIC X(4) VALUE "CHAR".
01 DSQ-VARIABLE-FINT PIC X(4) VALUE "FINT".