DSQCOMM for Assembler
The Assembler interface communications area file is named DSQCOMMA.
The DSQCOMMA file is provided in the QMF1310.SDSQSAPn library (where n is a national language identifier). A copy of the file is shown here:
MACRO
DSQCOMMA
**********************************************************************
* Callable interface - variable constants *
**********************************************************************
*
* Communications Level ID
*
DSQ_CURRENT_COMM_LEVEL DC CL12'DSQL>001002<'
*
* Query Product IDs
*
DSQ_QRW DC C'01'
DSQ_QMF DC C'02'
DSQ_QM4 DC C'03'
*
* Query Product Release IDs
*
DSQ_QRW_V1R2 DC C'01'
DSQ_QRW_V1R3 DC C'02'
DSQ_QMF_V2R4 DC C'01'
DSQ_QMF_V3R1 DC C'02'
DSQ_QMF_V3R1M1 DC C'03'
DSQ_QMF_V3R2 DC C'04'
DSQ_QMF_V3R3 DC C'05'
DSQ_QMF_V6R1 DC C'06'
DSQ_QMF_V7R1 DC C'07'
DSQ_QM4_V1R1 DC C'01'
DSQ_QMF_V7R2 DC C'08'
DSQ_QMF_V8R1 DC C'09'
DSQ_QMF_V9R1 DC C'10'
DSQ_QMF_V10R1 DC C'11'
DSQ_QMF_V11R1 DC C'12'
DSQ_QMF_V11R2 DC C'13'
DSQ_QMF_V12R1 DC C'14'
DSQ_QMF_V13R1 DC C'15'
*
* Extended parameter data types
*
DSQ_VARIABLE_CHAR DC C'CHAR'
DSQ_VARIABLE_FINT DC C'FINT'
*
* Return codes
*
DSQ_SUCCESS EQU 0
DSQ_WARNING EQU 4
DSQ_FAILURE EQU 8
DSQ_SEVERE EQU 16
*
* Instance ID values
*
DSQ_CONTINUE EQU 0
*
* Cancel indicator
*
DSQ_CANCEL_YES EQU C'1'
DSQ_CANCEL_NO EQU C'0'
*
*
DSQ_INTERACTIVE EQU C'1'
DSQ_BATCH EQU C'2'
*
DSQ_YES EQU C'1'
DSQ_NO EQU C'2'
*
**********************************************************************
* Callable interface communications area *
**********************************************************************
DSQCOMM DSECT
DSQ_RETURN_CODE DS F FUNCTION RETURN CODE
DSQ_INSTANCE_ID DS F ID ESTABLISHED IN START CMD
DSQ_COMM_LEVEL DS CL12 COMMUNICATIONS LEVEL ID
DSQ_PRODUCT DS CL2 QUERY PRODUCT ID
DSQ_PRODUCT_RELEASE DS CL2 QUERY PRODUCT RELEASE ID
DSQ_RESERVE1 DS CL28 RESERVED
DSQ_MESSAGE_ID DS CL8 COMPLETION MESSAGE ID
DSQ_Q_MESSAGE_ID DS CL8 QUERY MESSAGE ID
DSQ_START_PARM_ERROR DS CL8 START PARAMETER IN ERROR
DSQ_CANCEL_IND DS C CMD CANCEL INDICATOR
DSQ_RESERVE2 DS CL23 RESERVED
DSQ_RESERVE3 DS CL156 RESERVED
DSQ_MESSAGE_TEXT DS CL128 COMPLETION MESSAGE
DSQ_Q_MESSAGE_TEXT DS CL128 QUERY MESSAGE
SPACE 1
DSQCOMM_LEN EQU *-DSQCOMM LENGTH OF DSQCOMM AREA
MEND