/********************************************************************/ 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