* /* START OF SPECIFICATIONS **** 00050000 * 00100000 *01* MODULE-NAME = RECEIVE 00150000 * 00200000 *01* DESCRIPTIVE-NAME = RECEIVE USER MACRO 00250000 * 00300000 *01* COPYRIGHT = NONE 00350000 * 00400000 *01* STATUS = RELEASE 1 00450000 * 00500000 *01* FUNCTION = ACCEPTS AN NIR FROM A VTAM QUEUE 00550000 * 00750000 *01* NOTES = THIS MACRO GENERATES NO CODE ITSELF, BUT INVOKES AN INNER 00800000 * MACRO (IHBRDWRA) TO GENERATE CODE TO MODIFY THE RPL AND LINK 00810000 * TO THE INTERFACE ROUTINE THAT WILL BEGIN PROCESSING THE REQUEST. 00820000 * 00850000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 00900000 * 00950000 *02* DEPENDENCIES = NONE 01000000 * 01050000 *02* RESTRICTIONS = NONE 01100000 * 01150000 *02* REGISTER-CONVENTIONS = NONE 01200000 * 01250000 *02* PATCH-LABEL = NONE 01300000 * 01350000 *01* MODULE-TYPE = MACRO 01400000 * 01450000 *02* PROCESSOR = ASSEMBLER 01500000 * 01550000 *02* MACRO-SIZE = 4 STATEMENTS 01600000 * 01650000 *02* ATTRIBUTES = EXEC 01700000 * 01750000 *01* ENTRY-POINT = NA 01800000 * 01850000 *01* EXIT-NORMAL = NA 01900000 * 01950000 *01* EXIT-ERROR = NA 02000000 * 02050000 *01* EXTERNAL-REFERENCES = NONE 02100000 * 02150000 *01* TABLES = NONE 02200000 * 02250000 *01* INNER-MACROS = IHBRDWRA 02300000 * 02350000 *01* SYSTEM-MACROS = NONE 02400000 * 02450000 *01* CHANGE-ACTIVITY = AS-FOLLOWS 02530000 * NEW MACRO - FIRST RELEASE 31 DOS/VS 02540000 * 03 OS/VS1 02542000 * 03 OS/VS2 02544000 * 02550000 **** END OF SPECIFICATIONS ***/ 02600000 * 02650000 * /*IBM OS/VS1 OPERATING SYSTEM 02660000 * VTAM-5741-SC-VTM*/ 02670000 MACRO 02700000 &NAME RECEIVE &ACB=,&AREA=,&AREALEN=,&RECLEN=,&ARG=, *02750000 &AAREA=,&AAREALN=,&ARECLEN=,&ECB=,&EXIT=, *02800000 &BRANCH=,&OPTCD=,&NIB=,&POST=,&SEQNO=, *02850000 &RESPOND=,&CHAIN=,&CONTROL=,&CODESEL=, *02900000 &CHNGDIR=,&SSENSEO=,&USENSEO=,&RTYPE=, *02950000 &STYPE=,&IBSQAC=,&OBSQAC=,&IBSQVAL=, *03000000 &OBSQVAL=,&RPL=,&BRACKET=,&SSENSMO=,&SIGDATA= 03050000 .*A-000000-999999 @DL03H00 03060000 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 03070000 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 03080000 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 03090000 .BYPASS ANOP 03092000 &NAME IHBRDWRA ACB=&ACB,AREA=&AREA,AREALEN=&AREALEN,ARG=&ARG, *03100000 RECLEN=&RECLEN,AAREA=&AAREA,AAREALN=&AAREALN, *03110000 ARECLEN=&ARECLEN,ECB=&ECB,POST=&POST,CODESEL=&CODESEL, *03120000 OPTCD=&OPTCD,NIB=&NIB,BRANCH=&BRANCH,EXIT=&EXIT, *03140000 RESPOND=&RESPOND,CHAIN=&CHAIN,CONTROL=&CONTROL, *03142000 CHNGDIR=&CHNGDIR,SSENSEO=&SSENSEO,SSENSMO=&SSENSMO, *03144000 USENSEO=&USENSEO,RTYPE=&RTYPE,STYPE=&STYPE,RPL=&RPL, *03146000 IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,IBSQVAL=&IBSQVAL, *03148000 OBSQVAL=&OBSQVAL,IHBRW=X'23',BRACKET=&BRACKET, *03148400 SIGDATA=&SIGDATA,SEQNO=&SEQNO 03148800 MEND 03150000