This include file is called DSQCOMMB and is shipped with QMF.
************************************************************* 00001000
* COBOL INCLUDE FOR QUERY CALLABLE INTERFACE (MVS/VM) 00002000
************************************************************* 00003000
00004000
* STRUCTURE DECLARE FOR COMMUNICATIONS AREA 00005000
00006000
01 DSQCOMM. 00007000
00008000
03 DSQ-RETURN-CODE PIC 9(8) USAGE IS COMP. 00009000
* FUNCTION RETURN CODE * 00010000
03 DSQ-INSTANCE-ID PIC 9(8) USAGE IS COMP. 00011000
* IDENTIFIER FROM START CMD * 00012000
03 DSQ-COMM-LEVEL PIC X(12). 00013000
* COMMUNICATIONS LEVEL * 00014000
03 DSQ-PRODUCT PIC X(2). 00015000
* QUERY PRODUCT ID * 00016000
03 DSQ-PRODUCT-RELEASE PIC X(2). 00017000
* QUERY PRODUCT RELEASE * 00018000
03 DSQ-RESERVE1 PIC X(28). 00019000
* RESERVED AREA * 00020000
03 DSQ-MESSAGE-ID PIC X(8). 00021000
* COMPLETION MESSAGE ID * 00022000
03 DSQ-Q-MESSAGE-ID PIC X(8). 00023000
* QUERY MESSAGE ID * 00024000
03 DSQ-START-PARM-ERROR PIC X(8). 00025000
* START PARAMETER IN ERROR * 00026000
03 DSQ-CANCEL-IND PIC X(1). 00027000
* 1 = COMMAND CANCELLED * 00028000
* 0 = COMMAND NOT CANCELLED * 00029000
03 DSQ-RESERVE2 PIC X(23). 00030000
* RESERVED AREA * 00031000
03 DSQ-RESERVE3 PIC X(156). 00032000
* RESERVED AREA * 00033000
03 DSQ-MESSAGE-TEXT PIC X(128). 00034000
* QMF MESSAGE TEXT * 00035000
03 DSQ-Q-MESSAGE-TEXT PIC X(128). 00036000
* QMF QUERY MESSAGE TEXT * 00037000
* 512 BYTES TOTAL * 00038000
00039000
00040000
* VALUES FOR DSQ-RETURN-CODE 00041000
00042000
01 DSQ-SUCCESS PIC 9(8) USAGE IS COMP VALUE 0. 00043000
01 DSQ-WARNING PIC 9(8) USAGE IS COMP VALUE 4. 00044000
01 DSQ-FAILURE PIC 9(8) USAGE IS COMP VALUE 8. 00045000
01 DSQ-SEVERE PIC 9(8) USAGE IS COMP VALUE 16. 00046000
00047000
* VALUES FOR DSQ-INSTANCE-ID 00048000
00049000
01 DSQ-CONTINUE PIC 9(8) USAGE IS COMP VALUE 0. 00050000
00051000
* VALUES FOR DSQ-COMM-LEVEL 00052000
00053000
01 DSQ-CURRENT-COMM-LEVEL PIC X(12) VALUE "DSQL>001002<". 00054000
00055000
* VALUES FOR DSQ-PRODUCT 00056000
00057000
01 DSQ-QRW PIC X(2) VALUE "01". 00058000
01 DSQ-QMF PIC X(2) VALUE "02". 00059000
01 DSQ-QM4 PIC X(2) VALUE "03". 00060000
00061000
* VALUES FOR DSQ-PRODUCT-RELEASE 00062000
00063000
01 DSQ-QRW-V1R2 PIC X(2) VALUE "01". 00064000
01 DSQ-QRW-V1R3 PIC X(2) VALUE "02". 00065000
01 DSQ-QMF-V2R4 PIC X(2) VALUE "01". 00066000
01 DSQ-QMF-V3R1 PIC X(2) VALUE "02". 00067000
01 DSQ-QMF-V3R1M1 PIC X(2) VALUE "03". 00068000
01 DSQ-QMF-V3R2 PIC X(2) VALUE "04". 00069000
01 DSQ-QMF-V3R3 PIC X(2) VALUE "05". 00070000
01 DSQ-QMF-V6R1 PIC X(2) VALUE "06". 00071000
01 DSQ-QM4-V1R1 PIC X(2) VALUE "01". 00072000
00073000
* VALUES FOR DSQ-CANCEL-INDE 00074000
00075000
01 DSQ-CANCEL-YES PIC X(1) VALUE "1". 00076000
01 DSQ-CANCEL-NO PIC X(1) VALUE "0". 00077000
00078000
* VALUES FOR MODE 00079000
00080000
01 DSQ-INTERACTIVE PIC X(1) VALUE "1". 00081000
01 DSQ-BATCH PIC X(1) VALUE "2". 00082000
00083000
* VALUES YES AND NO 00084000
00085000
01 DSQ-YES PIC X(1) VALUE "1". 00086000
01 DSQ-NO PIC X(1) VALUE "2". 00087000
00088000
* CALLABLE INTERFACE PROGRAM NAME 00089000
00090000
01 DSQCIB PIC X(6) VALUE "DSQCIB". 00091000
00092000
* VALUES FOR VARIABLE TYPE ON CALL PARAMETER 00093000
00094000
01 DSQ-VARIABLE-CHAR PIC X(4) VALUE "CHAR". 00095000
01 DSQ-VARIABLE-FINT PIC X(4) VALUE "FINT". 00096000