/*****************************************************************/ 00010000 /* */ 00020000 /* INQUIRY (INQY) CALL OUTPUT */ 00030000 /* */ 00040000 /* THE INQY CALL RETURNS DATA TO THE USER'S I/O AREA BASED */ 00050000 /* ON THE SUBFUNCTION SPECIFIED IN THE AIB. */ 00060000 /* */ 00070000 /* THE FOLLOWING SUBFUNCTIONS RETURN DATA TO THE APPLICATION: */ 00080000 /* 'ENVIRON' - SYSTEM ENVIRONMENT DATA */ 00090000 /* 'NULL' - DATA ASSOCIATED WITH THE PCB NAME */ 00100000 /* THAT WAS PASSED IN THE AIB */ 00110000 /* */ 00120000 /*****************************************************************/ 00130000 /*****************************************************************/ 00140000 /* CHANGE ACTIVITY: */ 00150000 /* PL69056 9/10/90 NEW MACRO */ 00160000 /* */ 00170000 /*****************************************************************/ 00180000 /*****************************************************************/ 00190000 /* */ 00200000 /* ----------------------- */ 00210000 /* SUBFUNCTION = 'ENVIRON' */ 00220000 /* ----------------------- */ 00230000 /* */ 00240000 /*****************************************************************/ 00250000 DECLARE 1 INQENVRN, 00260000 /* IMS IDENTIFIER */ 00270000 3 INQEIMID CHAR(8), 00280000 /* IMS RELEASE LEVEL */ 00290000 3 INQEIMRL FIXED BINARY(31), 00300000 /*****************************************************************/ 00310000 /* CONTROL REGION TYPES: */ 00320000 /* 'BATCH ' - BATCH DATABASE MANAGER */ 00330000 /* 'DB ' - ONLINE DATABASE MANAGER SUBSYSTEM */ 00340000 /* 'DB/DC ' - ONLINE DB AND DC MANAGER SUBSYSTEM */ 00350000 /*****************************************************************/ 00360000 /* CONTROL REGION TYPE */ 00370000 3 INQECRT CHAR(8), 00380000 /*****************************************************************/ 00390000 /* APPLICATION REGION TYPES: */ 00400000 /* 'BATCH ' - BATCH REGION */ 00410000 /* 'BMP ' - BATCH MESSAGE PROCESSING REGION */ 00420000 /* 'DRA ' - DATABASE RESOURCE ADAPTER THREAD */ 00430000 /* 'IFP ' - FAST PATH REGION */ 00440000 /* 'MPP ' - MESSAGE PROCESSING REGION */ 00450000 /*****************************************************************/ 00460000 /* APPLICATION REGION TYPE */ 00470000 3 INQEART CHAR(8), 00480000 /* APPLICATION RGN IDENTIFIER */ 00490000 3 INQEARID FIXED BINARY(31), 00500000 /* APPLICATION PROGRAM NAME */ 00510000 3 INQEPGM CHAR(8), 00520000 /* ALLOCATED PSB NAME */ 00530000 3 INQEPSB CHAR(8), 00540000 /* TRANSACTION NAME */ 00550000 3 INQETRAN CHAR(8), 00560000 /* USER IDENTIFIER */ 00570000 3 INQEUSER CHAR(8), 00580000 /* GROUP NAME */ 00590000 3 INQEGPNM CHAR(8), 00600000 /*****************************************************************/ 00610000 /* STATUS GROUP INDICATOR: */ 00620000 /* ' ' - NO STATUS GROUP WAS INITIALIZED */ 00630000 /* 'A ' - INIT STATUS GROUPA WAS ISSUED */ 00640000 /* 'B ' - INIT STATUS GROUPB WAS ISSUED (IMPLIES GROUPA) */ 00650000 /*****************************************************************/ 00660000 /* HIGHEST STATUS GROUP ID */ 00670000 3 INQESGID CHAR(4), 00680000 /* ADDRESS OF RECOVERY TOKEN STRING MAPPED BY INQERTS */ 00690000 3 INQERTAL POINTER, 00700000 /* ADDRESS OF APPLICATION PARM STRING MAPPED BY INQEAPS */ 00710000 3 INQEAPAL POINTER; 00720000 /* */ 00730000 /*****************************************************************/ 00740000 /* */ 00750000 /* RECOVERY TOKEN STRING DSECT */ 00760000 /* */ 00770000 /*****************************************************************/ 00780000 DECLARE 1 INQERTS, 00790000 /* RECOVERY TOKEN LENGTH */ 00800000 3 INQERTLL FIXED BINARY(15), 00810000 /* START OF RECOVERY TOKEN */ 00820000 3 INQERTKN CHAR(256); 00830000 /*****************************************************************/ 00840000 /* */ 00850000 /* APPLICATION PARAMETER STRING DSECT */ 00860000 /* */ 00870000 /*****************************************************************/ 00880000 DECLARE 1 INQEAPS, 00890000 /* APPL PARM STRING LENGTH */ 00900000 3 INQEAPLL FIXED BINARY(15), 00910000 /* START OF APPL PARM STRING */ 00920000 3 INQEAPRM CHAR(256); 00930000 /*****************************************************************/ 00940000 /* */ 00950000 /* -------------------------------- */ 00960000 /* SUBFUNCTION = 'NULL' (8-BLANKS) */ 00970000 /* -------------------------------- */ 00980000 /* */ 00990000 /* TP PCB (I/O AND ALTERNATE PCB) OUTPUT */ 01000000 /* */ 01010000 /* THE FIRST 8 CHARACTERS DEFINES THE DESTINATION TYPE. */ 01020000 /* EACH TYPE RETURNS DESTINATION RELATED DATA IN A DIFFERENT */ 01030000 /* FORMAT. */ 01040000 /* */ 01050000 /*****************************************************************/ 01060000 DECLARE 1 INQTNULL, 01070000 /*****************************************************************/ 01080000 /* DESTINATION TYPES: */ 01090000 /* 'TERMINAL' - TERMINAL */ 01100000 /* 'TRANSACT' - TRANSACTION */ 01110000 /* 'UNKNOWN ' - DESTINATION TYPE IS NOT AVAILABLE */ 01120000 /*****************************************************************/ 01130000 /* DESTINATION TYPE */ 01140000 3 INQTDEST CHAR(8), 01150000 /* DESTINATION DEPENDANT DATA STARTS HERE */ 01160000 3 INQTDATA, 01170000 /*****************************************************************/ 01180000 /* */ 01190000 /* DESTINATION TYPE = 'TRANSACT' */ 01200000 /* */ 01210000 /*****************************************************************/ 01220000 /*****************************************************************/ 01230000 /* TRANSACTION LOCATION: */ 01240000 /* 'LOCAL ' - TRANSACTION IS DEFINED AS LOCAL */ 01250000 /* 'REMOTE ' - TRANSACTION IS DEFINED AS REMOTE */ 01260000 /*****************************************************************/ 01270000 5 INQTTRLC CHAR(8), 01280000 /* TRANSACTION LOCATION */ 01290000 /*****************************************************************/ 01300000 /* TRANSACTION STATUS: */ 01310000 /* 'STARTED ' - TRANSACTION CAN BE SCHEDULED */ 01320000 /* 'STOPPED ' - TRANSACTION CAN NOT BE SCHEDULED */ 01330000 /*****************************************************************/ 01340000 /* TRANSACTION STATUS */ 01350000 5 INQTTRST CHAR(8), 01360000 /* DESTINATION PSB NAME */ 01370000 5 INQTTPSB CHAR(8), 01380000 /*****************************************************************/ 01390000 /* DESTINATION PROGRAM OR SESSION STATUS */ 01400000 /* ' ' - STATUS NOT AVAILABLE */ 01410000 /* 'STARTED ' - PROGRAM CAN BE SCHEDULED (LOCAL TRAN) */ 01420000 /* 'STOPPED ' - PROGRAM CAN NOT BE SCHEDULED (LOCAL TRAN) */ 01430000 /* 'ACTIVE ' - SESSION IS ACTIVE (REMOTE TRAN) */ 01440000 /* 'INACTIVE' - SESSION IS INACTIVE (REMOTE TRAN) */ 01450000 /*****************************************************************/ 01460000 /* PROGRAM/SESSION STATUS */ 01470000 5 INQTTRPS CHAR(8); 01480000 DECLARE 1 INQTTERM DEFINED INQTNULL, 01490000 3 FILL1 CHAR(8), 01500000 3 FILL2, 01510000 /*****************************************************************/ 01520000 /* */ 01530000 /* DESTINATION TYPE = 'TERMINAL' */ 01540000 /* */ 01550000 /*****************************************************************/ 01560000 /*****************************************************************/ 01570000 /* TERMINAL LOCATION: */ 01580000 /* 'LOCAL ' - TERMINAL IS DEFINED AS LOCAL */ 01590000 /* 'REMOTE ' - TERMINAL IS DEFINED AS REMOTE */ 01600000 /*****************************************************************/ 01610000 /* TERMINAL LOCATION */ 01620000 5 INQTTELC CHAR(8), 01630000 /*****************************************************************/ 01640000 /* QUEUE STATUS: */ 01650000 /* 'STARTED ' - QUEUE CAN ACCEPT WORK */ 01660000 /* 'STOPPED ' - QUEUE CAN NOT ACCEPT WORK */ 01670000 /*****************************************************************/ 01680000 /* QUEUE STATUS */ 01690000 5 INQTTEQS CHAR(8), 01700000 /*****************************************************************/ 01710000 /* SESSION STATUS: */ 01720000 /* ' ' - STATUS NOT AVAILABLE */ 01730000 /* 'ACTIVE ' - SESSION IS ACTIVE */ 01740000 /* 'INACTIVE' - SESSION IS INACTIVE */ 01750000 /*****************************************************************/ 01760000 /* SESSION STATUS */ 01770000 5 INQTTESS CHAR(8); 01780000 /*****************************************************************/ 01790000 /* */ 01800000 /* DESTINATION TYPE = 'UNKNOWN' */ 01810000 /* */ 01820000 /*****************************************************************/ 01830000 /* */ 01840000 /* THIS RESULTS IN NO ADDITIONAL DATA */ 01850000 /* */ 01860000