* /* START OF SPECIFICATIONS **** 00142000 * 00144000 *01* MODULE-NAME = SIMLOGON 00150000 * 00300000 *01* DESCRIPTIVE-NAME = SIMULATE LOGON MACRO 00350000 * 00400000 *01* COPYRIGHT = NONE 00450000 * 00500000 *01* STATUS = RELEASE 1 00550000 * 00600000 *01* FUNCTION = SIMLOGON PERMITS AN APPLICATION TO REQUEST GENERATION 00650000 * OF A LOG. REQUEST FROM A NODE IDENTIFIED VIA THE RPL REPRESENTING 00700000 * THE SIMULATE LOGON REQUEST. 00750000 * 00850000 *01* NOTE = 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 * 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 * 01938400 *01* INNER-MACROS = IHBRDWRA 01938600 * 01998600 *01* SYSTEM-MACROS = NONE 02008600 * 02028600 *01* CHANGE-ACTIVITY = AS-FOLLOWS 02030600 * NEW MACRO - FIRST RELEASE 31 DOS/VS 02032600 * 03 OS/VS1 02034600 * 03 OS/VS2 02036600 **** END OF SPECIFICATIONS ***/ 02088600 * 02098600 */* IBM OPERATING SYSTEM 02108600 * VTAM - 5741 - SC - VTM */ 02118600 * 02128600 MACRO 02138600 &NAME SIMLOGON &RPL=,&ACB=,&ECB=,&EXIT=,&POST=,&SEQNO=,&CODESEL=, *02188600 &OPTCD=,&AREA=,&AREALEN=,&AAREA=,&AAREALN=,&RECLEN=, *02238600 &RESPOND=,&CONTROL=,&CHNGDIR=,&SSENSEO=,&STYPE=, *02288600 &RTYPE=,&IBSQAC=,&OBSQAC=,&CHAIN=,&BRANCH=, *02338600 &USENSEO=,&IBSQVAL=,&OBSQVAL=, *02388600 &BRACKET=,&SSENSMO=,&ARECLEN=,&NIB=,&SIGDATA= 02438600 .*A-000000-999999 @DL03HLQ 02488600 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 02538600 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 02588600 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 02638600 .BYPASS ANOP 02688600 &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,IHBRW=22, *03058600 IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,CHAIN=&CHAIN,NIB=&NIB, *03068600 USENSEO=&USENSEO,IBSQVAL=&IBSQVAL,OBSQVAL=&OBSQVAL, *03078600 AAREA=&AAREA,AAREALN=&AAREALN,BRANCH=&BRANCH, *03088600 BRACKET=&BRACKET,SSENSMO=&SSENSMO,SIGDATA=&SIGDATA 03090600 MEND 03098600