***************************************************************** 00010001 * * 00020001 * INQUIRY (INQY) CALL OUTPUT * 00030001 * * 00040001 * THE INQY CALL RETURNS DATA TO THE USER'S I/O AREA BASED * 00050001 * ON THE SUBFUNCTION SPECIFIED IN THE AIB. * 00060001 * * 00070001 * THE FOLLOWING SUBFUNCTIONS RETURN DATA TO THE APPLICATION: * 00080001 * 'ENVIRON' - SYSTEM ENVIRONMENT DATA * 00090001 * 'NULL' - DATA ASSOCIATED WITH THE PCB NAME * 00100001 * THAT WAS PASSED IN THE AIB * 00110001 * * 00120001 ***************************************************************** 00130001 ***************************************************************** 00140001 * CHANGE ACTIVITY: * 00150001 * PL69056 9/10/90 NEW MACRO * 00160001 * * 00170001 ***************************************************************** 00180001 ***************************************************************** 00190001 * * 00200001 * ----------------------- * 00210001 * SUBFUNCTION = 'ENVIRON' * 00220001 * ----------------------- * 00230001 * * 00240001 ***************************************************************** 00250001 01 INQENVRN. 00260001 * IMS IDENTIFIER 00261001 03 INQEIMID PIC X(8). 00270001 * IMS RELEASE LEVEL 00280001 03 INQEIMRL PIC S9(8) COMP SYNC. 00290001 ***************************************************************** 00300001 * CONTROL REGION TYPES: * 00310001 * 'BATCH ' - BATCH DATABASE MANAGER * 00320001 * 'DB ' - ONLINE DATABASE MANAGER SUBSYSTEM * 00330001 * 'DB/DC ' - ONLINE DB AND DC MANAGER SUBSYSTEM * 00340001 ***************************************************************** 00350001 * CONTROL REGION TYPE 00351001 03 INQECRT PIC X(8). 00360001 88 INQECRT-BATCH VALUE 'BATCH '. 00361001 88 INQECRT-DB VALUE 'DB '. 00362001 88 INQECRT-DBDC VALUE 'DB/DC '. 00363001 ***************************************************************** 00370001 * APPLICATION REGION TYPES: * 00380001 * 'BATCH ' - BATCH REGION * 00390001 * 'BMP ' - BATCH MESSAGE PROCESSING REGION * 00400001 * 'DRA ' - DATABASE RESOURCE ADAPTER THREAD * 00410001 * 'IFP ' - FAST PATH REGION * 00420001 * 'MPP ' - MESSAGE PROCESSING REGION * 00430001 ***************************************************************** 00440001 * APPLICATION REGION TYPE 00451001 03 INQEART PIC X(8). 00452001 88 INQEART-BATCH VALUE 'BATCH '. 00453001 88 INQEART-BMP VALUE 'BMP '. 00454001 88 INQEART-DRA VALUE 'DRA '. 00455001 88 INQEART-IFP VALUE 'IFP '. 00456001 88 INQEART-MPP VALUE 'MPP '. 00457001 * APPLICATION RGN IDENTIFIER 00461001 03 INQEARID PIC S9(8) COMP SYNC. 00462001 * APPLICATION PROGRAM NAME 00471001 03 INQEPGM PIC X(8). 00472001 * ALLOCATED PSB NAME 00481001 03 INQEPSB PIC X(8). 00482001 * TRANSACTION NAME 00491001 03 INQETRAN PIC X(8). 00492001 * USER IDENTIFIER 00501001 03 INQEUSER PIC X(8). 00502001 * GROUP NAME 00511001 03 INQEGPNM PIC X(8). 00512001 ***************************************************************** 00520001 * STATUS GROUP INDICATOR: * 00530001 * ' ' - NO STATUS GROUP WAS INITIALIZED * 00540001 * 'A ' - INIT STATUS GROUPA WAS ISSUED * 00550001 * 'B ' - INIT STATUS GROUPB WAS ISSUED (IMPLIES GROUPA) * 00560001 ***************************************************************** 00570001 * HIGHEST STATUS GROUP ID 00581001 03 INQESGID PIC X(4). 00582001 88 INQESGID-NO-STATUS-GP-INIT VALUE ' '. 00583001 88 INQESGID-INIT-GROUPA VALUE 'A '. 00584001 88 INQESGID-INIT-GROUPA-AND-B VALUE 'B '. 00585001 * ADDRESS OF RECOVERY TOKEN STRING MAPPED BY INQERTS 00591001 03 INQERTAL POINTER. 00592001 * ADDRESS OF APPLICATION PARM STRING MAPPED BY INQEAPS 00620001 03 INQEAPAL POINTER. 00621001 00630001 ***************************************************************** 00640001 * * 00650001 * RECOVERY TOKEN STRING DSECT * 00660001 * * 00670001 ***************************************************************** 00680001 01 INQERTS. 00690001 * RECOVERY TOKEN LENGTH 00691001 03 INQERTLL PIC S9(4) COMP. 00700001 * START OF RECOVERY TOKEN 00701001 * (LENGTH MAY NOT BE SUFFICIENT, 00701101 * THIS IS COBOL INTERPRETATION OF EQU *, TRUE LENGTH RECORDED 00702001 * IN INQERTLL). 00703001 03 INQERTKN PIC X(256). 00710001 ***************************************************************** 00720001 * * 00730001 * APPLICATION PARAMETER STRING DSECT * 00740001 * * 00750001 ***************************************************************** 00760001 01 INQEAPS. 00791001 * APPL PARM STRING LENGTH 00792001 03 INQEAPLL PIC S9(4) COMP. 00793001 * START OF APPL PARM STRING 00794001 * (LENGTH MAY NOT BE SUFFICIENT, 00795001 * THIS IS COBOL INTERPRETATION OF EQU *, TRUE LENGTH RECORDED 00796001 * IN INQEAPLL). 00797001 03 INQEAPRM PIC X(256). 00798001 00799001 ***************************************************************** 00800001 * * 00810001 * -------------------------------- * 00820001 * SUBFUNCTION = 'NULL' (8-BLANKS) * 00830001 * -------------------------------- * 00840001 * * 00850001 * TP PCB (I/O AND ALTERNATE PCB) OUTPUT * 00860001 * * 00870001 * THE FIRST 8 CHARACTERS DEFINES THE DESTINATION TYPE. * 00880001 * EACH TYPE RETURNS DESTINATION RELATED DATA IN A DIFFERENT * 00890001 * FORMAT. * 00900001 * * 00910001 ***************************************************************** 00920001 01 INQTNULL. 00930001 ***************************************************************** 00940001 * DESTINATION TYPES: * 00950001 * 'TERMINAL' - TERMINAL * 00960001 * 'TRANSACT' - TRANSACTION * 00970001 * 'UNKNOWN ' - DESTINATION TYPE IS NOT AVAILABLE * 00980001 ***************************************************************** 00990001 * DESTINATION TYPE 01001001 03 INQTDEST PIC X(8). 01002001 88 INQTDEST-TERMINAL VALUE 'TERMINAL'. 01003001 88 INQTDEST-TRANSACT VALUE 'TRANSACT'. 01003101 88 INQTDEST-UNKNOWN VALUE 'UNKNOWN '. 01003201 * DESTINATION DEPENDANT DATA STARTS HERE 01004001 03 INQTDATA. 01010001 ***************************************************************** 01011001 * * 01012001 * DESTINATION TYPE = 'TRANSACT' * 01013001 * * 01014001 ***************************************************************** 01015001 ***************************************************************** 01017001 * TRANSACTION LOCATION: * 01018001 * 'LOCAL ' - TRANSACTION IS DEFINED AS LOCAL * 01019001 * 'REMOTE ' - TRANSACTION IS DEFINED AS REMOTE * 01019101 ***************************************************************** 01019201 05 INQTTRLC PIC X(8). 01019301 88 INQTTRLC-LOCAL VALUE 'LOCAL '. 01019401 88 INQTTRLC-REMOTE VALUE 'REMOTE '. 01019501 * TRANSACTION LOCATION 01019601 ***************************************************************** 01019701 * TRANSACTION STATUS: * 01019801 * 'STARTED ' - TRANSACTION CAN BE SCHEDULED * 01019901 * 'STOPPED ' - TRANSACTION CAN NOT BE SCHEDULED * 01020001 ***************************************************************** 01020101 * TRANSACTION STATUS 01020201 05 INQTTRST PIC X(8). 01020301 88 INQTTRST-STARTED VALUE 'STARTED '. 01020401 88 INQTTRST-STOPPED VALUE 'STOPPED '. 01020501 * DESTINATION PSB NAME 01020601 05 INQTTPSB PIC X(8). 01020701 ***************************************************************** 01020801 * DESTINATION PROGRAM OR SESSION STATUS * 01020901 * ' ' - STATUS NOT AVAILABLE * 01021001 * 'STARTED ' - PROGRAM CAN BE SCHEDULED (LOCAL TRAN) * 01021101 * 'STOPPED ' - PROGRAM CAN NOT BE SCHEDULED (LOCAL TRAN) * 01021201 * 'ACTIVE ' - SESSION IS ACTIVE (REMOTE TRAN) * 01021301 * 'INACTIVE' - SESSION IS INACTIVE (REMOTE TRAN) * 01021401 ***************************************************************** 01021501 * PROGRAM/SESSION STATUS 01021601 05 INQTTRPS PIC X(8). 01021701 88 INQTTRPS-NOT-AVAIL VALUE ' '. 01021801 88 INQTTRPS-STARTED VALUE 'STARTED '. 01021901 88 INQTTRPS-STOPPED VALUE 'STOPPED '. 01022001 88 INQTTRPS-ACTIVE VALUE 'ACTIVE '. 01022101 88 INQTTRPS-INACTIVE VALUE 'INACTIVE'. 01022201 ***************************************************************** 01023001 * * 01030001 * DESTINATION TYPE = 'TERMINAL' * 01040001 * * 01050001 ***************************************************************** 01060001 03 FILLER REDEFINES INQTDATA. 01070001 ***************************************************************** 01080001 * TERMINAL LOCATION: * 01090001 * 'LOCAL ' - TERMINAL IS DEFINED AS LOCAL * 01100001 * 'REMOTE ' - TERMINAL IS DEFINED AS REMOTE * 01110001 ***************************************************************** 01120001 * TERMINAL LOCATION 01131001 05 INQTTELC PIC X(8). 01132001 88 INQTTELC-LOCAL VALUE 'LOCAL '. 01133001 88 INQTTELC-REMOTE VALUE 'REMOTE '. 01134001 ***************************************************************** 01140001 * QUEUE STATUS: * 01150001 * 'STARTED ' - QUEUE CAN ACCEPT WORK * 01160001 * 'STOPPED ' - QUEUE CAN NOT ACCEPT WORK * 01170001 ***************************************************************** 01180001 * QUEUE STATUS 01191001 05 INQTTEQS PIC X(8). 01192001 88 INQTTEQS-STARTED VALUE 'STARTED '. 01193001 88 INQTTEQS-STOPPED VALUE 'STOPPED '. 01194001 ***************************************************************** 01200001 * SESSION STATUS: * 01210001 * ' ' - STATUS NOT AVAILABLE * 01220001 * 'ACTIVE ' - SESSION IS ACTIVE * 01230001 * 'INACTIVE' - SESSION IS INACTIVE * 01240001 ***************************************************************** 01250001 * SESSION STATUS 01261001 05 INQTTESS PIC X(8). 01262001 88 INQTTESS-NOT-AVAIL VALUE ' '. 01263001 88 INQTTESS-ACTIVE VALUE 'ACTIVE '. 01264001 88 INQTTESS-INACTIVE VALUE 'INACTIVE'. 01265001 ***************************************************************** 01570001 * * 01580001 * DESTINATION TYPE = 'UNKNOWN' * 01590001 * * 01600001 ***************************************************************** 01610001 * 01611001 * THIS RESULTS IN NO ADDITIONAL DATA 01612001 * 01613001