This file, called DSQCOMMF, is shipped with QMF.
C********************************************************************** 00001000
C FORTRAN include file for Callable Interface (MVS/VM) 00002000
C********************************************************************** 00003000
C Return codes 00004000
INTEGER DSQ_SUCCESS, DSQ_WARNING, DSQ_FAILURE, DSQ_SEVERE 00005000
PARAMETER( 00006000
+ DSQ_SUCCESS = 0, 00007000
+ DSQ_WARNING = 4, 00008000
+ DSQ_FAILURE = 8, 00009000
+ DSQ_SEVERE = 16) 00010000
00011000
C Communications level 00012000
CHARACTER DSQ_CURRENT_COMM_LEVEL*12 00013000
PARAMETER( 00014000
+ DSQ_CURRENT_COMM_LEVEL = 'DSQL>001002<') 00015000
00016000
C Query product IDs 00017000
CHARACTER DSQ_QRW*2, DSQ_QMF*2, DSQ_QM4*2 00018000
PARAMETER( 00019000
+ DSQ_QRW = '01', 00020000
+ DSQ_QMF = '02', 00021000
+ DSQ_QM4 = '03') 00022000
00023000
C Query product release levels 00024000
CHARACTER DSQ_QRW_V1R2*2, DSQ_QRW_V1R3*2, 00025000
+ DSQ_QMF_V2R4*2, DSQ_QMF_V3R1*2, 00026000
+ DSQ_QMF_V3R1M1*2, DSQ_QMF_V3R2*2, 00027000
+ DSQ_QMF_V3R3*2, DSQ_QMF_V6R1*2, 00028000
+ DSQ_QM4_V1R1*2 00029000
PARAMETER( 00030000
+ DSQ_QRW_V1R2 = '01', 00031000
+ DSQ_QRW_V1R3 = '02', 00032000
+ DSQ_QMF_V2R4 = '01', 00033000
+ DSQ_QMF_V3R1 = '02', 00034000
+ DSQ_QMF_V3R1M1 = '03', 00035000
+ DSQ_QMF_V3R2 = '04', 00036000
+ DSQ_QMF_V3R3 = '05', 00037000
+ DSQ_QMF_V6R1 = '06', 00038000
+ DSQ_QM4_V1R1 = '01') 00039000
00040000
C Host variable types 00041000
CHARACTER DSQ_VARIABLE_CHAR*4, DSQ_VARIABLE_FINT*4 00042000
PARAMETER( 00043000
+ DSQ_VARIABLE_CHAR = 'CHAR', 00044000
+ DSQ_VARIABLE_FINT = 'FINT') 00045000
00046000
C Cancel indicator 00047000
CHARACTER DSQ_CANCEL_YES, DSQ_CANCEL_NO 00048000
PARAMETER( 00049000
+ DSQ_CANCEL_YES = '1', 00050000
+ DSQ_CANCEL_NO = '0') 00051000
00052000
CHARACTER DSQCOMM(512) 00053000
INTEGER DSQ_RETURN_CODE, DSQ_INSTANCE_ID 00054000
CHARACTER DSQ_COMM_LEVEL*12, 00055000
+ DSQ_PRODUCT*2, 00056000
+ DSQ_PRODUCT_RELEASE*2, 00057000
+ DSQ_RESERVE1*28, 00058000
+ DSQ_MESSAGE_ID*8, 00059000
+ DSQ_Q_MESSAGE_ID*8, 00060000
+ DSQ_START_PARM_ERROR*8, 00061000
+ DSQ_CANCEL_IND*1, 00062000
+ DSQ_RESERVE2*23, 00063000
+ DSQ_RESERVE3*156, 00064000
+ DSQ_MESSAGE_TEXT*128, 00065000
+ DSQ_Q_MESSAGE_TEXT*128 00066000
00067000
EQUIVALENCE (DSQCOMM( 1), DSQ_RETURN_CODE ), 00068000
+ (DSQCOMM( 5), DSQ_INSTANCE_ID ), 00069000
+ (DSQCOMM( 9), DSQ_COMM_LEVEL ), 00070000
+ (DSQCOMM(21), DSQ_PRODUCT ), 00071000
+ (DSQCOMM(23), DSQ_PRODUCT_RELEASE ), 00072000
+ (DSQCOMM(25), DSQ_RESERVE1 ), 00073000
+ (DSQCOMM(53), DSQ_MESSAGE_ID ), 00074000
+ (DSQCOMM(61), DSQ_Q_MESSAGE_ID ), 00075000
+ (DSQCOMM(69), DSQ_START_PARM_ERROR ), 00076000
+ (DSQCOMM(77), DSQ_CANCEL_IND ), 00077000
+ (DSQCOMM(78), DSQ_RESERVE2 ), 00078000
+ (DSQCOMM(101), DSQ_RESERVE3 ), 00079000
+ (DSQCOMM(257), DSQ_MESSAGE_TEXT ), 00080000
+ (DSQCOMM(385), DSQ_Q_MESSAGE_TEXT ) 00081000
00082000
C Callable Interface Normal and Extended Calls 00083000
EXTERNAL DSQCIF 00084000
EXTERNAL DSQCIFE 00085000