This communications area changed between Version 2 Release 4 and Version 3.2. QMF ships this file as DSQCOMMA.
MACRO 00001000
DSQCOMMA 00002000
********************************************************************** 00003000
* Callable Interface - variable constants * 00004000
********************************************************************** 00005000
* 00006000
* Communications Level ID 00007000
* 00008000
DSQ_CURRENT_COMM_LEVEL DC CL12'DSQL>001002<' 00009000
* 00010000
* Query Product IDs 00011000
* 00012000
DSQ_QRW DC C'01' 00013000
DSQ_QMF DC C'02' 00014000
DSQ_QM4 DC C'03' 00015000
* 00016000
* Query Product Release IDs 00017000
* 00018000
DSQ_QRW_V1R2 DC C'01' 00019000
DSQ_QRW_V1R3 DC C'02' 00020000
DSQ_QMF_V2R4 DC C'01' 00021000
DSQ_QMF_V3R1 DC C'02' 00022000
DSQ_QMF_V3R1M1 DC C'03' 00023000
DSQ_QMF_V3R2 DC C'04' 00024000
DSQ_QMF_V3R3 DC C'05' 00025000
DSQ_QMF_V6R1 DC C'06' 00026000
DSQ_QM4_V1R1 DC C'01' 00027000
* 00028000
* Extended parameter data types 00029000
* 00030000
DSQ_VARIABLE_CHAR DC C'CHAR' 00031000
DSQ_VARIABLE_FINT DC C'FINT' 00032000
* 00033000
* Return codes 00034000
* 00035000
DSQ_SUCCESS EQU 0 00036000
DSQ_WARNING EQU 4 00037000
DSQ_FAILURE EQU 8 00038000
DSQ_SEVERE EQU 16 00039000
* 00040000
* Instance ID values 00041000
* 00042000
DSQ_CONTINUE EQU 0 00043000
* 00044000
* Cancel indicator 00045000
* 00046000
DSQ_CANCEL_YES EQU C'1' 00047000
DSQ_CANCEL_NO EQU C'0' 00048000
* 00049000
* 00050000
DSQ_INTERACTIVE EQU C'1' 00051000
DSQ_BATCH EQU C'2' 00052000
* 00053000
DSQ_YES EQU C'1' 00054000
DSQ_NO EQU C'2' 00055000
* 00056000
********************************************************************** 00057000
* Callable Interface Communications Area * 00058000
********************************************************************** 00059000
DSQCOMM DSECT 00060000
DSQ_RETURN_CODE DS F FUNCTION RETURN CODE 00061000
DSQ_INSTANCE_ID DS F ID ESTABLISHED IN START CMD 00062000
DSQ_COMM_LEVEL DS CL12 COMMUNICATIONS LEVEL ID 00063000
DSQ_PRODUCT DS CL2 QUERY PRODUCT ID 00064000
DSQ_PRODUCT_RELEASE DS CL2 QUERY PRODUCT RELEASE ID 00065000
DSQ_RESERVE1 DS CL28 RESERVED 00066000
DSQ_MESSAGE_ID DS CL8 COMPLETION MESSAGE ID 00067000
DSQ_Q_MESSAGE_ID DS CL8 QUERY MESSAGE ID 00068000
DSQ_START_PARM_ERROR DS CL8 START PARAMETER IN ERROR 00069000
DSQ_CANCEL_IND DS C CMD CANCEL INDICATOR 00070000
DSQ_RESERVE2 DS CL23 RESERVED 00071000
DSQ_RESERVE3 DS CL156 RESERVED 00072000
DSQ_MESSAGE_TEXT DS CL128 COMPLETION MESSAGE 00073000
DSQ_Q_MESSAGE_TEXT DS CL128 QUERY MESSAGE 00074000
SPACE 1 00075000
DSQCOMM_LEN EQU *-DSQCOMM LENGTH OF DSQCOMM AREA 00076000
MEND 00077000