/********************************************************************/ 00001000
/* PL/I include for Query Callable Interface (MVS/VM) */ 00002000
/********************************************************************/ 00003000
00004000
/* Structure declare for Communications Area */ 00005000
DCL 00006000
1 DSQCOMM, 00007000
3 DSQ_RETURN_CODE FIXED BIN(31), /* function return code */ 00008000
3 DSQ_INSTANCE_ID FIXED BIN(31), /* start ID */ 00009000
3 DSQ_COMM_LEVEL CHAR(12), /* communications level */ 00010000
3 DSQ_PRODUCT CHAR(2), /* query product id */ 00011000
3 DSQ_PRODUCT_RELEASE CHAR(2), /* query product release */ 00012000
3 DSQ_RESERVE1 CHAR(28), /* reserved */ 00013000
3 DSQ_MESSAGE_ID CHAR(8), /* completion message ID */ 00014000
3 DSQ_Q_MESSAGE_ID CHAR(8), /* query message ID */ 00015000
3 DSQ_START_PARM_ERROR CHAR(8), /* start parms in error */ 00016000
3 DSQ_CANCEL_IND CHAR(1), /* cmd cancel indicator */ 00017000
/* 1 = cancelled, 0 = not cancelled*/ 00018000
3 DSQ_RESERVE2 CHAR(23), /* reserved */ 00019000
3 DSQ_RESERVE3 CHAR(156), /* reserved */ 00020000
3 DSQ_MESSAGE_TEXT CHAR(128), /* QMF command message */ 00021000
3 DSQ_Q_MESSAGE_TEXT CHAR(128); /* QMF query message */ 00022000
00023000
/* Return Codes */ 00024000
DCL 00025000
DSQ_SUCCESS FIXED BIN(31) INIT(0) STATIC, 00026000
DSQ_WARNING FIXED BIN(31) INIT(4) STATIC, 00027000
DSQ_FAILURE FIXED BIN(31) INIT(8) STATIC, 00028000
DSQ_SEVERE FIXED BIN(31) INIT(16) STATIC; 00029000
00030000
/* Communications Level */ 00031000
DCL 00032000
DSQ_CURRENT_COMM_LEVEL CHAR(12) INIT('DSQL>001002<') STATIC; 00033000
00034000
/* Query Product ID */ 00035000
DCL 00036000
DSQ_QRW CHAR(2) INIT('01') STATIC, 00037000
DSQ_QMF CHAR(2) INIT('02') STATIC, 00038000
DSQ_QM4 CHAR(2) INIT('03') STATIC; 00039000
00040000
/* Query Product Release ID */ 00041000
DCL 00042000
DSQ_QRW_V1R2 CHAR(2) INIT('01') STATIC, 00043000
DSQ_QRW_V1R3 CHAR(2) INIT('02') STATIC, 00044000
DSQ_QMF_V2R4 CHAR(2) INIT('01') STATIC, 00045000
DSQ_QMF_V3R1 CHAR(2) INIT('02') STATIC, 00046000
DSQ_QMF_V3R1M1 CHAR(2) INIT('03') STATIC, 00047000
DSQ_QMF_V3R2 CHAR(2) INIT('04') STATIC, 00048000
DSQ_QMF_V3R3 CHAR(2) INIT('05') STATIC, 00049000
DSQ_QMF_V6R1 CHAR(2) INIT('06') STATIC, 00050000
DSQ_QM4_V1R1 CHAR(2) INIT('01') STATIC; 00051000
00052000
/* Cancelled Indicator */ 00053000
DCL 00054000
DSQ_CANCEL_YES CHAR(1) INIT('1') STATIC, 00055000
DSQ_CANCEL_NO CHAR(1) INIT('0') STATIC; 00056000
00057000
/* Variable Types */ 00058000
DCL 00059000
DSQ_VARIABLE_CHAR CHAR(4) INIT('CHAR') STATIC, 00060000
DSQ_VARIABLE_FINT CHAR(4) INIT('FINT') STATIC; 00061000
00062000
/* Mode */ 00063000
DCL 00064000
DSQ_INTERACTIVE CHAR(1) INIT('1') STATIC, 00065000
DSQ_BATCH CHAR(1) INIT('2') STATIC; 00066000
00067000
/* Yes or No */ 00068000
DCL 00069000
DSQ_YES CHAR(1) INIT('1') STATIC, 00070000
DSQ_NO CHAR(1) INIT('2') STATIC; 00071000
00072000
/* Query Interface Entry Point */ 00073000
DCL 00074000
DSQCIPL ENTRY (*, /* interface block */ 00075000
FIXED BIN(31), /* length of command */ 00076000
CHAR(*)) /* command string */ 00077000
EXTERNAL OPTIONS(ASSEMBLER); 00078000
DCL 00079000
DSQCIPX ENTRY (*, /* interface block */ 00080000
FIXED BIN(31), /* length of command */ 00081000
CHAR(*), /* command string */ 00082000
FIXED BIN(31), /* # of command keywords */ 00083000
*, /* length of keyword */ 00084000
*, /* keyword string */ 00085000
*, /* length of value */ 00086000
*, /* value of keyword */ 00087000
CHAR(4)) /* data type of value */ 00088000
EXTERNAL OPTIONS(ASSEMBLER); 00089000