*/*** START OF SPECIFICATIONS **** 00050000 * 00100000 *01* MODULE-NAME = INTRPRET 00150000 * 00200000 *01* DESCRIPTIVE-NAME = INTERPRET 00250000 * 00300000 *01* COPYRIGHT = NONE 00350000 * 00400000 *01* STATUS = RELEASE 1 00450000 * 00500000 *01* FUNCTION = THE PURPOSE OF THE INTRPRET MACRO IS TO RETURN 00550000 * INTERPRETED LOGON DATA TO THE APPLICATION. 00600000 * THE PROVISION OF THIS FACILITY ALLOWS AN INSTALLATION TO SPECIFY 00650000 * MORE THAN ONE LOGON MESSAGE. WHEN A LOGON MESSAGE IS RECEIVED, 00700000 * INTERPRET IS ISSUED AGAINST IT, AND THE APPLICATION WILL RECEIVE 00750000 * A SINGLE MESSAGE. THUS AN APPLICATION IS ONLY REQUIRED TO HANDLE 00800000 * ONE MESSAGE TYPE FOR LOGONS. 00810000 * 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 * 01050000 *02* DEPENDENCIES = NONE 01100000 * 01150000 *02* RESTRICTIONS = NONE 01200000 * 01250000 *02* REGISTER-CONVENTIONS = USER PARAMETERS MAY BE SUPPLIED IN 01300000 * REGISTERS 0-15. REGISTERS 0,1,14,15 ARE NOT PRESERVED. 01350000 * REGISTER 15 WILL CONTAIN A RETURN CODE INDICATION SUCCESS OR 01400000 * FAILURE OF THE REQUEST. 01410000 * 01550000 *02* PATCH-LABEL = NONE 01600000 * 01650000 *01* MODULE-TYPE = MACRO 01700000 * 01750000 *02* PROCESSOR = ASSEMBLER 01800000 * 01850000 *02* MACRO-SIZE = FOUR STATEMENTS 01900000 * 02000000 *02* ATTRIBUTES = LIST-EXEC 02050000 * 02100000 *01* ENTRY-POINT = NA 02150000 * 02200000 *01* EXIT-NORMAL = NA 02250000 * 02300000 *01* EXIT-ERROR = NA 02350000 * 02400000 *01* EXTERNAL-REFERENCES = NONE 02450000 * 02500000 *01* TABLES = NONE 04450000 * 04500000 *01* INNER-MACROS = IHBRDWRA 04550000 * 04600000 *01* SYSTEM-MACROS = NONE 04650000 * 04800000 *01* CHANGE-ACTIVITY = AS-FOLLOWS 04810000 * NEW MACRO - FIRST RELEASE 31 DOS/VS 04820000 * 03 OS/VS1 04830000 * 03 OS/VS2 04840000 **** END OF SPECIFICATIONS ***/ 04850000 * 04900000 */* IBM OPERATING SYSTEM 04950000 * VTAM - 5741 - SC - VTM */ 05000000 * 05050000 MACRO 05650000 &NAME INTRPRET &RPL=,&ACB=,&ECB=,&EXIT=,&ARG=,&POST=,&BRANCH=, *05700000 &OPTCD=,&AREA=,&AREALEN=,&AAREA=,&AAREALN=,&RECLEN=, *05750000 &RESPOND=,&CONTROL=,&CHNGDIR=,&SSENSEO=,&STYPE=,&SEQNO=,*05760000 &RTYPE=,&IBSQAC=,&OBSQAC=,&CHAIN=,&BRACKET=,&CODESEL=, *05770000 &USENSEO=,&IBSQVAL=,&OBSQVAL=,&SSENSMO=, *05780000 &ARECLEN=,&NIB=,&SIGDATA= 05800000 .*A-000000-999999 @DL03HLQ 05802000 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 05804000 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 05806000 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 05808000 .BYPASS ANOP 05808400 &NAME IHBRDWRA RPL=&RPL,ACB=&ACB,ECB=&ECB,EXIT=&EXIT,AREA=&AREA, *05810000 OPTCD=&OPTCD,POST=&POST,SEQNO=&SEQNO,CODESEL=&CODESEL, *05820000 AREALEN=&AREALEN,RECLEN=&RECLEN,ARECLEN=&ARECLEN, *05830000 RESPOND=&RESPOND,CONTROL=&CONTROL,CHNGDIR=&CHNGDIR, *05832000 SSENSEO=&SSENSEO,STYPE=&STYPE,RTYPE=&RTYPE,ARG=&ARG, *05834000 IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,CHAIN=&CHAIN,NIB=&NIB, *05836000 USENSEO=&USENSEO,IBSQVAL=&IBSQVAL,OBSQVAL=&OBSQVAL, *05838000 AAREA=&AAREA,AAREALN=&AAREALN,BRANCH=&BRANCH,IHBRW=27, *05840000 BRACKET=&BRACKET,SSENSMO=&SSENSMO,SIGDATA=&SIGDATA 05842000 MEND 05850000