* /* START OF SPECIFICATIONS ****                                       00050000
*                                                                       00100000
*01*  MODULE-NAME = SEND                                                00150000
*                                                                       00300000
*01*  DESCRIPTIVE-NAME = SEND USER MACRO                                00350000
*                                                                       00400000
*01*  COPYRIGHT = NONE                                                  00450000
*                                                                       00500000
*01*  STATUS = RELEASE 1                                                00550000
*                                                                       00600000
*01*  FUNCTION = CAUSES TRANSMISSION OF A SINGLE NIR                    00650000
*                                                                       00850000
*01*  NOTES = THIS MACRO GENERATES NO CODE ITSELF, BUT INVOKES AN INNER 00900000
*     MACRO (IHBRDWRA) TO GENERATE CODE TO MODIFY THE RPL AND LINK      00910000
*     TO THE INTERFACE ROUTINE THAT WILL BEGIN PROCESSING THE REQUEST.  00920000
*                                                                       00950000
*02*    CHARACTER-CODE-DEPENDENCIES = NONE                              01000000
*                                                                       01050000
*02*    DEPENDENCIES = NONE                                             01100000
*                                                                       01250000
*02*    RESTRICTIONS = NONE                                             01300000
*                                                                       01350000
*02*    REGISTER-CONVENTIONS = NONE                                     01400000
*                                                                       01550000
*02*    PATCH-LABEL = NONE                                              01600000
*                                                                       01650000
*01*  MODULE-TYPE = MACRO                                               01700000
*                                                                       01710000
*02*    PROCESSOR = ASSEMBLER                                           01720000
*                                                                       01740000
*02*    MACRO-SIZE = 4 STATEMENTS                                       01742000
*                                                                       01746000
*02*    ATTRIBUTES = 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
*                                                                       01776600
*01*  TABLES = NONE                                                     01892700
*                                                                       01893500
*01*  INNER-MACROS = IHBRDWRA                                           01893900
*                                                                       01894100
*01*  SYSTEM-MACROS = NONE                                              01894200
*                                                                       01920900
*01*  CHANGE-ACTIVITY = AS-FOLLOWS                                      01922900
*                       NEW MACRO - FIRST RELEASE 03@X103HPC            01924900
*                                                   03  OS/VS1          01926900
*                                                   03  OS/VS2          01927300
*                                                                       01927600
**** END OF SPECIFICATIONS ***/                                         01944300
*                                                                       01994300
* /*IBM OS/VS1 OPERATING SYSTEM                                         02014300
*   VTAM-5741-SC-VTM*/                                                  02024300
         MACRO                                                          02044300
&NAME    SEND  &ACB=,&AREA=,&AREALEN=,&RECLEN=,&ARG=,&CODESEL=,        *02094300
               &AAREA=,&AAREALN=,&ARECLEN=,&ECB=,&EXIT=,&SEQNO=,       *02144300
               &BRANCH=,&OPTCD=,&NIB=,&POST=,                          *02194300
               &RESPOND=,&CHAIN=,&CONTROL=,                            *02244300
               &CHNGDIR=,&SSENSEO=,&USENSEO=,&RTYPE=,                  *02294300
               &STYPE=,&IBSQAC=,&OBSQAC=,&IBSQVAL=,                    *02344300
               &OBSQVAL=,&RPL=,&BRACKET=,&SSENSMO=,&SIGDATA=            02394300
.*A-000000-999999                                              @DL03H00 02404300
         AIF   (N'&SYSLIST EQ 0).BYPASS    POSITIONAL OPERANDS INVALID  02414300
         MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED '      02424300
         MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED'             02434300
.BYPASS  ANOP                                                           02436300
&NAME    IHBRDWRA ACB=&ACB,AREA=&AREA,AREALEN=&AREALEN,ARG=&ARG,       *02444300
               RECLEN=&RECLEN,AAREA=&AAREA,AAREALN=&AAREALN,           *02494300
               ARECLEN=&ARECLEN,ECB=&ECB,EXIT=&EXIT,BRACKET=&BRACKET,  *02504300
               OPTCD=&OPTCD,NIB=&NIB,RPL=&RPL,POST=&POST,SEQNO=&SEQNO, *02524300
               RESPOND=&RESPOND,CHAIN=&CHAIN,CONTROL=&CONTROL,         *02534300
               CHNGDIR=&CHNGDIR,SSENSEO=&SSENSEO,SSENSMO=&SSENSMO,     *02536300
               USENSEO=&USENSEO,RTYPE=&RTYPE,STYPE=&STYPE,             *02538300
               IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,IBSQVAL=&IBSQVAL,         *02540300
               OBSQVAL=&OBSQVAL,IHBRW=X'22',BRANCH=&BRANCH,            *02542700
               SIGDATA=&SIGDATA,CODESEL=&CODESEL                        02543100
         MEND                                                           02544300