* /* START OF SPECIFICATIONS **** 00350000 * 00400000 *01* MODULE-NAME = SETLOGON 00450000 * 00500000 *01* DESCRIPTIVE-NAME = SETLOGON USER MACRO 00550000 * 00600000 *01* COPYRIGHT = NONE 00650000 * 00700000 *01* STATUS = RELEASE 1 00750000 * 00800000 *01* FUNCTION = THE PURPOSE OF THIS MACRO IS TO INDICATE TO THE SYSTEM 00850000 * THAT NO MORE LOGON REQUESTS ARE TO BE QUEUED FOR THE APPLICATION 00900000 * VIA THE SPECIFIED ACB 00950000 * 01000000 *01* NOTES = THIS OPTION ALLOWS AN APPLICATION ALREADY RECEIVING 01050000 * REQUESTS FOR LOGON TO CLOSE DOWN IN A WAY THAT IS LEAST LIKELY TO 01100000 * CAUSE OPERATOR CONCERN. IF THIS FACILITY IS NOT AVAILABLE, THERE 01150000 * IS POTENTIALLLY A LONG PERIOD OF TIME (FROM THE TIME THE SYSTEM 01200000 * ACCEPTS THE LOGON REQUEST TO WHEN THE ACB IS CLOSED) DURING WHICH 01250000 * FURTHER LOGON REQUESTS ARE QUEUED, ONLY TO BE REJECTED WHEN THE 01300000 * ACB IS CLOSED 01350000 * 01400000 * THIS MACRO GENERATES NO CODE ITSELF, BUT INVOKES AN INNER 01420000 * MACRO (IHBRDWRA) TO GENERATE CODE TO MODIFY THE RPL AND LINK 01430000 * TO THE INTERFACE ROUTINE THAT WILL BEGIN PROCESSING THE REQUEST. 01440000 * 01442000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 01450000 * 01460000 *02* DEPENDENCIES= THE ACB MUST BE OPENED AND BELONG TO THE JOB STEP 01500000 * THAT ISSUED THE SETLOGON 01550000 * 01600000 *02* RESTRICTIONS = NONE 01650000 * 01660000 *02* REGISTER-CONVENTIONS = NONE 01700000 * 01710000 *02* PATCH-LABEL = NONE 01750000 * 01760000 *01* MODULE-TYPE = MACRO 01800000 * 01850000 *02* PROCESSOR = ASSEM-370R 01900000 * 01950000 *02* MACRO-SIZE = FOUR STATEMENTS 02000000 * 02100000 *02* ATTRIBUTES = LIST-EXEC 02150000 * 02200000 *01* ENTRY-POINT = NA 02250000 * 02300000 *01* EXIT-NORMAL = NA 02350000 * 02400000 *01* EXIT-ERROR = NA 02450000 * 02500000 *01* EXTERNAL-REFERENCES = NONE 02550000 * 02560000 *01* TABLES = NONE 02600000 * 02610000 *01* INNER-MACROS = IHBRDWRA 02650000 * 02660000 *01* SYSTEM-MACROS = NONE 02700000 * 02800000 *01* CHANGE-ACTIVITY = AS-FOLLOWS 02850000 * NEW MACRO - FIRST RELEASE 31 DOS/VS 02860000 * 03 OS/VS1 02870000 * 03 OS/VS2 02880000 **** END OF SPECIFICATIONS ***/ 02950000 * 02960000 */* IBM OPERATING SYSTEM 02970000 * VTAM - 5741 - SC - VTM */ 02980000 * 02990000 MACRO 03000000 &NAME SETLOGON &RPL=,&ACB=,&ECB=,&EXIT=,&POST=, *03050000 &OPTCD=,&AREA=,&AREALEN=,&AAREA=,&AAREALN=,&RECLEN=, *03100000 &ARECLEN=,&OBSQVAL=,&IBSQVAL=,&USENSEO=, *03150000 &RESPOND=,&CONTROL=,&CHNGDIR=,&SSENSEO=,&STYPE=, *03200000 &RTYPE=,&IBSQAC=,&OBSQAC=,&CHAIN=, *03250000 &BRACKET=,&SSENSMO=,&SIGDATA=,&BRANCH= 03300000 .*A-000000-999999 @DL03HLQ 03350000 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 03400000 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 03450000 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 03500000 .BYPASS ANOP 03550000 &NAME IHBRDWRA RPL=&RPL,ACB=&ACB,ECB=&ECB,EXIT=&EXIT, *03700000 OPTCD=&OPTCD,AREA=&AREA,POST=&POST, *03750000 AREALEN=&AREALEN,RECLEN=&RECLEN,ARECLEN=&ARECLEN, *03800000 RESPOND=&RESPOND,CONTROL=&CONTROL,CHNGDIR=&CHNGDIR, *03810000 SSENSEO=&SSENSEO,STYPE=&STYPE,RTYPE=&RTYPE, *03820000 IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,CHAIN=&CHAIN, *03830000 OBSQVAL=&OBSQVAL,IBSQVAL=&IBSQVAL,USENSEO=&USENSEO, *03860000 AAREA=&AAREA,AAREALN=&AAREALN,IHBRW=21, *03870000 BRACKET=&BRACKET,SSENSMO=&SSENSMO,SIGDATA=&SIGDATA, *03880000 BRANCH=&BRANCH 03890000 MEND 03900000