* /* START OF SPECIFICATIONS **** 00050000 * 00100000 *01* MODULE-NAME = SOLICIT 00150000 * 00300000 *01* DESCRIPTIVE-NAME = SOLICIT USER MACRO 00350000 * 00400000 *01* COPYRIGHT = NONE 00450000 * 00500000 *01* STATUS = RELEASE 1 00550000 * 00600000 *01* FUNCTION = THE SOLICIT MACRO IS USED TO INITIATE READ-AHEAD 00650000 * WITHOUT PASSING DATA TO THE APPLICATION. THE AMOUNT OF READ 00700000 * IS DETERMINED BY THE PROCESSING OPTIONS MSG,TRANS, CONT, OR 00750000 * APPL RSP. 00800000 * 00820000 *01* NOTES = A SOLICIT OPERATION IS COMPLETE WHEN THE ACCESS METHOD 00900000 * HAS RECEIVED THE REQUEST. 00910000 * 00950000 * THIS MACRO GENERATES NO CODE ITSELF, BUT INVOKES AN INNER 00970000 * MACRO (IHBRDWRA) TO GENERATE CODE TO MODIFY THE RPL AND LINK 00990000 * TO THE INTERFACE ROUTINE THAT WILL BEGIN PROCESSING THE REQUEST. 00994000 * 00998000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 01000000 * 01050000 *02* DEPENDENCIES = THE FOLLOWING FIELDS MUST BE INITIALIZED BEFORE 01100000 * THE MACRO IS EXECUTED OR BY RPL MODIFIERS ON THE MACRO 01150000 * NODE (OR EQUIVALENTLY ARG) (NEEDED IF OPTCD=SPEC) 01200000 * OPTCD (SYN|ASYN, ED/DC, SPEC|ANY) 01250000 * (ECBLST|EXIT|LEVENT|GEVENT) 01260000 * 01280000 *02* RESTRICTIONS = NONE 01300000 * 01320000 *02* REGISTER-CONVENTIONS = NONE 01400000 * 01500000 *02* PATCH-LABEL = NONE 01600000 * 01620000 *01* MODULE-TYPE = MACRO 01700000 * 01710000 *02* PROCESSOR = ASSEM-370R 01720000 * 01740000 *02* MACRO-SIZE = FOUR STATEMENTS 01742000 * 01746000 *02* ATTRIBUTES = LIST-EXEC 01748000 * 01748400 *01* ENTRY-POINT = NA 01748800 * 01749200 *01* EXIT-NORMAL = NA 01749600 * 01749700 *01* EXIT-ERROR = NA 01749800 * 01749900 *01* EXTERNAL-REFERENCES = NONE 01766600 * 01866600 *01* TABLES = NONE 01938300 * 01938400 *01* INNER-MACROS = IHBRDWRA 01938600 * 01998600 *01* SYSTEM-MACROS = NONE 02008600 * 02108600 *01* CHANGE-ACTIVITY = AS-FOLLOWS 02128600 * NEW MACRO - FIRST RELEASE 31 DOS/VS 02148600 * 03 OS/VS1 02168600 * 03 OS/VS2 02172600 * 02176600 **** END OF SPECIFICATIONS ***/ 02180600 MACRO 02188600 &NAME SOLICIT &RPL=,&ACB=,&ECB=,&EXIT=,&ARG=,&POST=, *02288600 &OPTCD=,&AREA=,&AREALEN=,&AAREA=,&AAREALN=,&RECLEN=, *02388600 &ARECLEN=,&BRANCH= 02488600 .*A-000000-999999 @DL03HLQ 02988600 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 03038600 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 03088600 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 03138600 .BYPASS ANOP 03188600 &NAME IHBRDWRA RPL=&RPL,ACB=&ACB,ECB=&ECB,EXIT=&EXIT, *06220000 ARG=&ARG,OPTCD=&OPTCD,AREA=&AREA,POST=&POST, *06240000 AREALEN=&AREALEN,RECLEN=&RECLEN,ARECLEN=&ARECLEN, *06260000 AAREA=&AAREA,AAREALN=&AAREALN,IHBRW=30,BRANCH=&BRANCH 06280000 MEND 06400000