* /* START OF SPECIFICATIONS **** 00050000 * 00100000 *01* MODULE-NAME = SESSIONC 00150000 * 00300000 *01* DESCRIPTIVE-NAME = SESSIONC USER MACRO 00350000 * 00400000 *01* COPYRIGHT = NONE 00450000 * 00500000 *01* STATUS = RELEASE 1 00550000 * 00950000 *01* FUNCTION = 00960000 * 00970000 *01* NOTES = THIS MACRO GENERATES NO CODE ITSELF, BUT INVOKES AN INNER 00980000 * MACRO (IHBRDWRA) TO GENERATE CODE TO MODIFY THE RPL AND LINK 00990000 * TO THE INTERFACE ROUTINE THAT WILL BEGIN PROCESSING THE REQUEST. 00992000 * 00994000 *02* CHARACTER-CODE-DEPENDENCIES = NONE 01000000 * 01050000 *02* DEPENDENCIES = NONE 01100000 * 01250000 *02* RESTRICTIONS = NONE 01300000 * 01350000 *02* REGISTER-CONVENTIONS = NONE 01400000 * 01550000 *02* PATCH-LABEL = NONE 01600000 * 01650000 *01* MODULE-TYPE = MACRO 01662000 * 01664000 *02* PROCESSOR = ASSEMBLER 01670000 * 01680000 *02* MACRO-SIZE = 4 STATEMENTS 01690000 * 01692000 *02* ATTRIBUTES = EXEC 01694000 * 01696000 *01* ENTRY-POINT = NA 01698000 * 01698400 *01* EXIT-NORMAL = NA 01698800 * 01699200 *01* EXIT-ERROR = NA 01699600 * 01699700 *01* EXTERNAL-REFERENCES = NONE 01699800 * 01699900 *01* TABLES = NONE 01703200 * 01705200 *01* INNER-MACROS = IHBRDWRA 01707200 * 01709200 *01* SYSTEM-MACROS = NONE 01709600 * 01709700 *01* CHANGE-ACTIVITY = AS-FOLLOWS 01709800 * NEW MACRO - FIRST RELEASE 31 DOS/VS 01750000 * 03 OS/VS1 01800000 * 03 OS/VS2 01850000 * 01927600 **** END OF SPECIFICATIONS ***/ 01944300 * 01954300 * /*IBM OS/VS1 OPERATING SYSTEM 01956300 * VTAM-5741-SC-VTM*/ 01958300 MACRO 01964300 &NAME SESSIONC &ACB=,&AREA=,&AREALEN=,&RECLEN=,&ARG=,&SEQNO=, *02014300 &AAREA=,&AAREALN=,&ARECLEN=,&ECB=,&EXIT=,&CODESEL=, *02064300 &BRANCH=,&OPTCD=,&NIB=,&POST=, *02244300 &RESPOND=,&CHAIN=,&CONTROL=, *02344300 &CHNGDIR=,&SSENSEO=,&USENSEO=,&RTYPE=, *02394300 &STYPE=,&IBSQAC=,&OBSQAC=,&IBSQVAL=, *02444300 &OBSQVAL=,&RPL=,&BRACKET=,&SSENSMO=,&SIGDATA= 02494300 .*A-000000-999999 @DL03H00 02496300 AIF (N'&SYSLIST EQ 0).BYPASS POSITIONAL OPERANDS INVALID 02498300 MNOTE ,'APPARENT POSITIONAL OPERANDS HAVE BEEN DETECTED ' 02500300 MNOTE ,'NONE ARE EXPECTED AND ALL WILL BE IGNORED' 02502300 .BYPASS ANOP 02502700 &NAME IHBRDWRA ACB=&ACB,AREA=&AREA,AREALEN=&AREALEN,ARG=&ARG, *02504300 RECLEN=&RECLEN,AAREA=&AAREA,AAREALN=&AAREALN, *02514300 ARECLEN=&ARECLEN,ECB=&ECB,EXIT=&EXIT,BRACKET=&BRACKET, *02524300 OPTCD=&OPTCD,BRANCH=&BRANCH,POST=&POST,SEQNO=&SEQNO, *02536300 RESPOND=&RESPOND,CHAIN=&CHAIN,CONTROL=&CONTROL, *02538300 CHNGDIR=&CHNGDIR,SSENSEO=&SSENSEO,SSENSMO=&SSENSMO, *02540300 USENSEO=&USENSEO,RTYPE=&RTYPE,STYPE=&STYPE, *02542300 IBSQAC=&IBSQAC,OBSQAC=&OBSQAC,IBSQVAL=&IBSQVAL, *02542700 OBSQVAL=&OBSQVAL,IHBRW=X'25',RPL=&RPL,NIB=&NIB, *02543100 SIGDATA=&SIGDATA,CODESEL=&CODESEL 02543500 MEND 02544300