* /* START OF SPECIFICATIONS **** 00110000 * 00160000 *01* MODULE-NAME = EXECRPL 00210000 * 00260000 *01* DESCRIPTIVE-NAME = EXECRPL USER MACRO 00310000 * 00360000 *01* COPYRIGHT = NONE 00410000 * 00460000 *01* STATUS = RELEASE 1 00510000 * 00560000 *01* FUNCTION = THE PURPOSE OF THIS MACRO IS TO INDICATE TO THE SYSTEM 00610000 * THAT A RETRY WILL BE ATTEMPTED AT EXECUTING THE RPL 00660000 * 00760000 *01* NOTES = THIS OPTION ALLOWS AN APPLICATION TO TRY AGAIN TO MODIFY 00810000 * AN RPL THAT WAS PREVIOUSLY ACTIVE. THIS RETRY MACRO MAY NOT BE 00820000 * USED IN CONJUNCTION WITH THE CHECK MACRO 00870000 * 01160000 * THIS MACRO GENERATES NO CODE ITSELF, BUT INVOKES AN INNER 01210000 * MACRO (IHBRDWRA) TO GENERATE CODE TO MODIFY THE RPL AND LINK 01260000 * TO THE INTERFACE ROUTINE THAT WILL BEGIN PROCESSING THE REQUEST. 01310000 * 01360000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 01410000 * 01460000 *02* DEPENDENCIES= THE ACB MUST BE OPENED AND BELONG TO THE JOB STEP 01510000 * THAT ISSUED THE EXECRPL 01560000 * 01610000 *02* RESTRICTIONS = NONE 01660000 * 01710000 *02* REGISTER-CONVENTIONS = NONE 01760000 * 01810000 *02* PATCH-LABEL = NONE 01860000 * 01910000 *01* MODULE-TYPE = MACRO 01960000 * 02010000 *02* PROCESSOR = ASSEM-370R 02060000 * 02110000 *02* MACRO-SIZE = FOUR STATEMENTS 02160000 * 02210000 *02* ATTRIBUTES = LIST-EXEC 02260000 * 02310000 *01* ENTRY-POINT = NA 02360000 * 02410000 *01* EXIT-NORMAL = NA 02460000 * 02510000 *01* EXIT-ERROR = NA 02560000 * 02610000 *01* EXTERNAL-REFERENCES = NONE 02660000 * 02710000 *01* TABLES = NONE 02760000 * 02810000 *01* INNER-MACROS = IHBRDWRA 02860000 * 02910000 *01* SYSTEM-MACROS = NONE 02960000 * 03010000 *01* CHANGE-ACTIVITY = AS-FOLLOWS 03060000 * NEW MACRO - FIRST RELEASE 31 DOS/VS 03110000 * 03 OS/VS1 03160000 * 03 OS/VS2 03210000 **** END OF SPECIFICATIONS ***/ 03260000 MACRO 03310000 &NAME EXECRPL &RPL=,&ACB=,&ECB=,&EXIT=,&BRANCH=,&CODESEL=,&NIB=, *03360000 &OPTCD=,&AREA=,&AREALEN=,&AAREA=,&AAREALN=,&RECLEN=, *03410000 &ARECLEN=,&OBSQVAL=,&IBSQVAL=,&USENSEO=,&SEQNO=, *03460000 &RESPOND=,&CONTROL=,&CHNGDIR=,&SSENSEO=,&STYPE=, *03510000 &RTYPE=,&IBSQAC=,&OBSQAC=,&CHAIN=,&POST=, *03560000 &BRACKET=,&SSENSMO=,&SIGDATA= 03610000 .*A-000000-999999 @DL03hmv 03660000 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 03670000 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 03680000 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 03690000 .BYPASS ANOP 03700000 &NAME IHBRDWRA RPL=&RPL,ACB=&ACB,ECB=&ECB,EXIT=&EXIT,IHBRW=X'26', *03710000 OPTCD=&OPTCD,AREA=&AREA,BRACKET=&BRACKET,SEQNO=&SEQNO, *03760000 AREALEN=&AREALEN,RECLEN=&RECLEN,ARECLEN=&ARECLEN, *03810000 RESPOND=&RESPOND,CONTROL=&CONTROL,CHNGDIR=&CHNGDIR, *03860000 SSENSEO=&SSENSEO,STYPE=&STYPE,RTYPE=&RTYPE,POST=&POST, *03910000 IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,CHAIN=&CHAIN,NIB=&NIB, *03960000 OBSQVAL=&OBSQVAL,IBSQVAL=&IBSQVAL,USENSEO=&USENSEO, *04010000 AAREA=&AAREA,AAREALN=&AAREALN,SSENSMO=&SSENSMO, *04060000 SIGDATA=&SIGDATA,BRANCH=&BRANCH,CODESEL=&CODESEL 04110000 MEND 04160000