* /* START OF SPECIFICATIONS **** 00050000 * 00100000 *01* MODULE-NAME = RCVCMD 00150000 * 00200000 *01* DESCRIPTIVE-NAME = RECEIVE OPERATOR MESSAGE MACRO 00250000 * 00300000 *01* COPYRIGHT = NONE 00350000 * 00400000 *01* STATUS = RELEASE 2 00450000 * 00500000 *01* FUNCTION = ENABLES AN APPLICATION TO 00550000 * RECEIVE MESSAGES FROM VTAM. 00600000 * 00610000 *01* NOTES = THIS MACRO GENERATES NO CODE ITSELF, BUT INVOKES AN INNER 00650000 * MACRO (IHBRDWRA) TO GENERATE CODE TO MODIFY THE RPL AND LINK 00700000 * TO THE INTERFACE ROUTINE THAT WILL BEGIN PROCESSING THE REQUEST. 00750000 * 00800000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 00850000 * 00900000 *02* DEPENDENCIES = NONE 00950000 * 01000000 *02* RESTRICTIONS = NONE 01050000 * 01100000 *02* REGISTER-CONVENTIONS = NONE 01150000 * 01200000 *02* PATCH-LABEL = NONE 01250000 * 01300000 *01* MODULE-TYPE = MACRO 01350000 * 01400000 *02* PROCESSOR = ASSEMBLER 01450000 * 01500000 *02* MACRO-SIZE = 4 STATEMENTS 01550000 * 01600000 *02* ATTRIBUTES = EXEC 01650000 * 01700000 *01* ENTRY-POINT = NA 01750000 * 01800000 *01* EXIT-NORMAL = NA 01850000 * 01900000 *01* EXIT-ERROR = NA 01950000 * 02000000 *01* EXTERNAL-REFERENCES = NONE 02050000 * 02100000 *01* TABLES = NONE 02150000 * 02200000 *01* INNER-MACROS = IHBRDWRA 02250000 * 02300000 *01* SYSTEM-MACROS = NONE 02350000 * 02400000 *01* CHANGE-ACTIVITY = AS-FOLLOWS 02450000 * NEW MACRO - SECOND RELEASE 33 DOS/VS 02500000 * 05 OS/VS1 02550000 * 04 OS/VS2 02600000 * 02650000 **** END OF SPECIFICATIONS ***/ 02700000 * 02750000 * /*IBM OPERATING SYSTEM 02800000 * VTAM-5745-SC-VTM*/ 02850000 MACRO 02900000 &NAME RCVCMD &ACB=,&AREA=,&AREALEN=,&RECLEN=,&ARG=,&CODESEL=, *02950000 &AAREA=,&AAREALN=,&ARECLEN=,&ECB=,&EXIT=,&SEQNO=, *03000000 &BRANCH=,&OPTCD=,&NIB=,&POST=, *03050000 &RESPOND=,&CHAIN=,&CONTROL=, *03100000 &CHNGDIR=,&SSENSEO=,&USENSEO=,&RTYPE=, *03150000 &STYPE=,&IBSQAC=,&OBSQAC=,&IBSQVAL=, *03200000 &OBSQVAL=,&RPL=,&BRACKET=,&SSENSMO=,&SIGDATA= 03250000 .*A-000000-999999 @D33CKD3 03300000 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 03350000 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 03400000 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 03450000 .BYPASS ANOP 03500000 &NAME IHBRDWRA ACB=&ACB,AREA=&AREA,AREALEN=&AREALEN,ARG=&ARG, *03550000 RECLEN=&RECLEN,AAREA=&AAREA,AAREALN=&AAREALN, *03600000 ARECLEN=&ARECLEN,ECB=&ECB,EXIT=&EXIT,BRACKET=&BRACKET, *03650000 OPTCD=&OPTCD,NIB=&NIB,RPL=&RPL,POST=&POST,SEQNO=&SEQNO, *03700000 RESPOND=&RESPOND,CHAIN=&CHAIN,CONTROL=&CONTROL, *03750000 CHNGDIR=&CHNGDIR,SSENSEO=&SSENSEO,SSENSMO=&SSENSMO, *03800000 USENSEO=&USENSEO,RTYPE=&RTYPE,STYPE=&STYPE, *03850000 IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,IBSQVAL=&IBSQVAL, *03900000 OBSQVAL=&OBSQVAL,IHBRW=X'28',BRANCH=&BRANCH, *03950000 SIGDATA=&SIGDATA,CODESEL=&CODESEL 04000000 MEND 04050000