* /* START OF SPECIFICATIONS **** 00050000 * 00100000 *01* MODULE-NAME = INQUIRE 00150000 * 00200000 *01* DESCRIPTIVE-NAME = INQUIRE 00250000 * 00300000 *01* COPYRIGHT = NONE 00350000 * 00400000 *01* STATUS = RELEASE 1 00450000 * 00500000 *01* FUNCTION = THE INQUIRE MACRO PROVIDES THE APPLICATION 00550000 * PROGRAM WITH A MEANS TO OBTAIN DATA FROM SYSTEM CONTROL BLOCKS 00600000 * WHOSE CONTENTS ARE DETERMINED OUTSIDE OF THE APPLICATIONS 00650000 * CONTROL. A TP SERVICES ROUTINE IS ENTERED AND THE REQUESTED DATA 00700000 * IS PLACED IN THE AREA SPECIFIED. 00750000 * 00800000 *01* NOTES = THIS MACRO GENERATES NO CODE ITSELF, BUT INVOKES AN INNER 00850000 * MACRO (IHBRDWRA) TO GENERATE CODE TO MODIFY THE RPL AND LINK 00860000 * TO THE INTERFACE ROUTINE THAT WILL BEGIN PROCESSING THE REQUEST. 00870000 * 00900000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 00950000 * 01000000 *02* DEPENDENCIES = NONE 01050000 * 01100000 *02* RESTRICTIONS = NONE 01150000 * 01200000 *02* REGISTER-CONVENTIONS = USER PARAMETERS MAY BE SUPPLIED IN 01250000 * REGISTERS 0-15. REGISTERS 0,1,14,15 ARE NOT PRESERVED. REGISTER 01300000 * 15 WILL CONTAIN A RETURN CODE INDICATING SUCCESS OR FAILURE OF 01350000 * THE REQUEST. 01400000 * 01450000 *02* PATCH-LABEL = NONE 01500000 * 01550000 *01* MODULE-TYPE = MACRO 01600000 * 01650000 *02* PROCESSOR = ASSEMBLER 01700000 * 01750000 *02* MACRO-SIZE = FOUR STATEMENTS 01800000 * 01900000 *02* ATTRIBUTES = LIST-EXEC 01950000 * 02000000 *01* ENTRY-POINT = NA 02050000 * 02100000 *01* EXIT-NORMAL = NA 02150000 * 02200000 *01* EXIT-ERROR = NA 02250000 * 02300000 *01* EXTERNAL-REFERENCES = NONE 02350000 * 02400000 *01* TABLES = NONE 04350000 * 04400000 *01* INNER-MACROS = IHBRDWRA 04450000 * 04500000 *01* CHANGE-ACTIVITY = AS-FOLLOWS 04550000 * NEW MACRO - FIRST RELEASE 31 DOS/VS 04600000 * 03 OS/VS1 04650000 * 03 OS/VS2 04660000 * 04700000 **** END OF SPECIFICATIONS ***/ 04750000 * 04800000 */* IBM OPERATING SYSTEM 04850000 * VTAM - 5741 - SC - VTM */ 04900000 MACRO 05550000 &NAME INQUIRE &RPL=,&ACB=,&ECB=,&EXIT=,&ARG=,&SEQNO=,&BRANCH=, *05600000 &OPTCD=,&AREA=,&AREALEN=,&AAREA=,&AAREALN=,&RECLEN=, *05650000 &ARECLEN=,&NIB=,&USENSEO=,&IBSQVAL=,&OBSQVAL=, *05700000 &RESPOND=,&CONTROL=,&CHNGDIR=,&SSENSEO=,&STYPE=, *05710000 &BRACKET=,&SSENSMO=,&POST=,&CODESEL=, *05712000 &RTYPE=,&IBSQAC=,&OBSQAC=,&CHAIN=,&SIGDATA= 05720000 .*A-000000-999999 @DL03HLQ 05730000 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 05740000 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 05742000 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 05744000 .BYPASS ANOP 05746000 &NAME IHBRDWRA RPL=&RPL,ACB=&ACB,ECB=&ECB,EXIT=&EXIT,SEQNO=&SEQNO, *05750000 OPTCD=&OPTCD,AREA=&AREA,IHBRW=26,BRANCH=&BRANCH, *05800000 AREALEN=&AREALEN,RECLEN=&RECLEN,ARECLEN=&ARECLEN, *05850000 RESPOND=&RESPOND,CONTROL=&CONTROL,CHNGDIR=&CHNGDIR, *05860000 SSENSEO=&SSENSEO,STYPE=&STYPE,RTYPE=&RTYPE,ARG=&ARG, *05870000 IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,CHAIN=&CHAIN,POST=&POST, *05880000 USENSEO=&USENSEO,IBSQVAL=&IBSQVAL,OBSQVAL=&OBSQVAL, *05930000 AAREA=&AAREA,AAREALN=&AAREALN,NIB=&NIB,CODESEL=&CODESEL,*05940000 BRACKET=&BRACKET,SSENSMO=&SSENSMO,SIGDATA=&SIGDATA 05942000 MEND 05950000