* /* START OF SPECIFICATIONS **** 00050000 * 00100000 *01* MODULE-NAME = RESETSR 00150000 * 00300000 *01* DESCRIPTIVE-NAME = RESETSR USER MACRO 00350000 * 00400000 *01* COPYRIGHT = NONE 00450000 * 00500000 *01* STATUS = RELEASE 1 00550000 * 00600000 *01* FUNCTION = RETURNS A SEND OR RECEIVE RPL TO THE USER 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 * 01060000 *02* DEPENDENCIES = NONE 01100000 * 01260000 *02* RESTRICTIONS = NONE 01300000 * 01350000 *02* REGISTER-CONVENTIONS = NONE 01400000 * 01560000 *02* PATCH-LABEL = NONE 01600000 * 01660000 *01 MODULE-TYPE = MACRO 01710000 * 01760000 *02* PROCESSOR = ASSEMBLER 01770000 * 01790000 *02* MACRO-SIZE = 4 STATEMENTS 01792000 * 01796000 *02* ATTRIBUTES = EXEC 01798000 * 01798400 *01* ENTRY-POINT = NA 01798800 * 01799200 *01* EXIT-NORMAL = NA 01799600 * 01799700 *01* EXIT-ERROR = NA 01799800 * 01799900 *01* EXTERNAL-REFERENCES = NONE 01816600 * 01826600 *01* TABLES = NONE 01872100 * 01878700 *01* INNER-MACROS = IHBRDWRA 01880700 * 01881200 *01* SYSTEM-MACROS = NONE 01881300 * 01886000 *01* CHANGE-ACTIVITY = AS-FOLLOWS 01888000 * NEW MACRO - FIRST RELEASE 31 DOS/VS 01890000 * 03 OS/VS1 01890400 * 03 OS/VS2 01890500 * 01890600 **** END OF SPECIFICATIONS ***/ 01890800 * 01895400 * /*IBM OS/VS1 OPERATING SYSTEM 01897400 * VTAM-5741-SC-VTM*/ 01899400 MACRO 01900000 &NAME RESETSR &ACB=,&AREA=,&AREALEN=,&RECLEN=,&ARG=,&CODESEL=, *01950000 &AAREA=,&AAREALN=,&ARECLEN=,&ECB=,&EXIT=,&SEQNO=, *02000000 &BRANCH=,&OPTCD=,&NIB=,&POST=, *02050000 &RESPOND=,&CHAIN=,&CONTROL=, *02100000 &CHNGDIR=,&SSENSEO=,&USENSEO=,&RTYPE=, *02150000 &STYPE=,&IBSQAC=,&OBSQAC=,&IBSQVAL=, *02200000 &OBSQVAL=,&RPL=,&BRACKET=,&SSENSMO=,&SIGDATA= 02250000 .*A-000000-999999 @DL03H00 02260000 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 02270000 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 02280000 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 02290000 .BYPASS ANOP 02292000 &NAME IHBRDWRA ACB=&ACB,AREA=&AREA,AREALEN=&AREALEN,ARG=&ARG, *02300000 RECLEN=&RECLEN,AAREA=&AAREA,AAREALN=&AAREALN, *02310000 ARECLEN=&ARECLEN,ECB=&ECB,EXIT=&EXIT,NIB=&NIB, *02320000 OPTCD=&OPTCD,BRANCH=&BRANCH,POST=&POST,SEQNO=&SEQNO, *02340000 RESPOND=&RESPOND,CHAIN=&CHAIN,CONTROL=&CONTROL, *02342000 CHNGDIR=&CHNGDIR,SSENSEO=&SSENSEO,SSENSMO=&SSENSMO, *02344000 USENSEO=&USENSEO,RTYPE=&RTYPE,STYPE=&STYPE,RPL=&RPL, *02346000 IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,IBSQVAL=&IBSQVAL, *02348000 OBSQVAL=&OBSQVAL,BRACKET=&BRACKET,IHBRW=X'24', *02348400 SIGDATA=&SIGDATA,CODESEL=&CODESEL 02348800 MEND 02350000