* /* START OF SPECIFICATIONS **** 00050000 * 00100000 *01* MODULE-NAME = OPNDST 00150000 * 00300000 *01* DESCRIPTIVE-NAME = OPEN DESTINATION MACRO 00350000 * 00400000 *01* COPYRIGHT = NONE 00450000 * 00500000 *01* STATUS = RELEASE 1 00550000 * 00600000 *01* FUNCTION = OPNDST PERMITS A VTAM APPLICATION PROGRAM TO REQUEST 00650000 * CONNECTION TO NODES IDENTIFIED VIA THE RPL REPRESENTING THE OPEN 00700000 * DESTINATION REQUEST. 00750000 * 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 TO 00910000 * THE INTERFACE ROUTINE THAT WILL BEGIN PROCESSING THE REQUEST. 00920000 * 00950000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 01000000 * 01050000 *02* DEPENDENCIES = NONE 01100000 * 01150000 *02* RESTRICTIONS = NONE 01300000 * 01350000 *02* REGISTER-CONVENTIONS = NONE 01400000 * 01450000 *02* PATCH-LABEL = NONE 01600000 * 01650000 *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 * 01816600 *01* TABLES = NONE 01938300 * 01938500 *01* INNER-MACROS = IHBRDWRA 01938600 * 01998600 *01* CHANGE-ACTIVITY = AS-FOLLOWS 02008600 * NEW MACRO - FIRST RELEASE 31 DOS/VS 02018600 * 03 OS/VS1 02028600 * 03 OS/VS2 02030600 * 02038600 **** END OF SPECIFICATIONS ***/ 02088600 */* IBM OPERATIOG SYSTEM 02098600 * VTAM - 5741 - SC - VTM */ 02108600 MACRO 02138600 &NAME OPNDST &RPL=,&ACB=,&ECB=,&EXIT=,&BRANCH=,&CODESEL=, *02188600 &OPTCD=,&AREA=,&AREALEN=,&AAREA=,&AAREALN=,&RECLEN=, *02238600 &RESPOND=,&CONTROL=,&CHNGDIR=,&SSENSEO=,&STYPE=, *02288600 &RTYPE=,&IBSQAC=,&OBSQAC=,&CHAIN=,&OBSQVAL=,&SEQNO=, *02338600 &BRACKET=,&SSENSMO=,&POST=, *02348600 &ARECLEN=,&NIB=,&IBSQVAL=,&USENSEO=,&SIGDATA= 02388600 .*A-000000-999999 @DL03HLQ 02438600 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 02488600 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 02538600 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 02588600 .BYPASS ANOP 02638600 &NAME IHBRDWRA RPL=&RPL,ACB=&ACB,ECB=&ECB,EXIT=&EXIT,SEQNO=&SEQNO, *02938600 OPTCD=&OPTCD,AREA=&AREA,POST=&POST,CODESEL=&CODESEL, *02988600 AREALEN=&AREALEN,RECLEN=&RECLEN,ARECLEN=&ARECLEN, *03038600 RESPOND=&RESPOND,CONTROL=&CONTROL,CHNGDIR=&CHNGDIR, *03048600 SSENSEO=&SSENSEO,STYPE=&STYPE,RTYPE=&RTYPE,NIB=&NIB, *03058600 IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,CHAIN=&CHAIN,IHBRW=23, *03068600 IBSQVAL=&IBSQVAL,OBSQVAL=&OBSQVAL,USENSEO=&USENSEO, *03078600 AAREA=&AAREA,AAREALN=&AAREALN,BRANCH=&BRANCH, *03088600 BRACKET=&BRACKET,SSENSMO=&SSENSMO,SIGDATA=&SIGDATA 03090600 MEND 03098600