MACRO 00001000
SYSLOCS 00002000
.* THIS MACRO GENERATES SYSTEM COUNTS AND POINTERS 00003000
.* IT IS 'LIVE' IN THE DMKSYS PROGRAM, BUT A 'DSECT' IN ALL OTHERS: 00004000
.* ADD MORE DATA TO THE END, AS NEEDED. 00005000
AIF ('&SYSECT' EQ 'DMKSYS').SYS1 SKIP 'DSECT' IF DMKSYS PRG 00007000
PUSH PRINT 00007200
AIF ('&SYSPARM' NE 'SUP').SLO01 00007400
PRINT OFF,NOGEN 00007600
.SLO01 ANOP 00007800
SYSLOCS DSECT - NOTE: USE ASYSLC = V(DMKSYSLC) TO REFERENCE 00008000
AGO .SYS2 SKIP 'ENTRY' CARDS. 00009000
.SYS1 ANOP @V60BBBC 00010000
.* @V60BBBC 00010020
.* BEFORE GOING ANY FURTHER, LET'S BE SURE ALL THE @V60BBBC 00010040
.* REQUIRED MACROS HAVE BEEN SPECIFIED. @V60BBBC 00010060
GBLC &SY$USR HRC033DK 00010086
GBLC &SY$IPL HRC036DK 00010094
GBLC &SY$OWN HRC036DK 00010096
GBLC &SY$RES @V60BBBC 00010100
GBLC &SY$OPR @V60BBBC 00010120
GBLC &SY$COR @V60BBBC 00010140
GBLC &SY$TIME @V60BBBC 00010160
GBLC &SY$MON @V60BBBC 00010180
GBLC &SY$JRL @V60BBBC 00010200
GBLC &SY$ID HRC108DK 00010210
LCLB &FAIL @V60BBBC 00010220
AIF ('&SY$USR' NE '').OK05 HRC033DK 00010250
&FAIL SETB 1 @V60BBBC 00010260
MNOTE 16,'====> SEVERE ERROR. THE SYSUSR MACRO MUST BE SPECIFI+00010290
ED IN THIS ASSEMBLY. <====' @V60BBBC 00010300
.OK05 ANOP , HRC033DK 00010303
AIF ('&SY$OWN' NE '').OK10 HRC033DK 00010306
&FAIL SETB 1 HRC033DK 00010309
MNOTE 16,'====> SEVERE ERROR. THE SYSOWN MACRO MUST BE SPECIFI+00010312
ED IN THIS ASSEMBLY. <====' HRC033DK 00010315
.OK10 AIF ('&SY$RES' NE '').OK20 @V60BBBC 00010320
&FAIL SETB 1 @V60BBBC 00010340
MNOTE 16,'====> SEVERE ERROR. THE SYSRES MACRO MUST BE SPECIFI+00010360
ED IN THIS ASSEMBLY. <====' @V60BBBC 00010380
.OK20 AIF ('&SY$OPR' NE '').OK30 @V60BBBC 00010400
&FAIL SETB 1 @V60BBBC 00010420
MNOTE 16,'====> SEVERE ERROR. THE SYSOPR MACRO MUST BE SPECIFI+00010440
ED IN THIS ASSEMBLY. <====' @V60BBBC 00010460
.OK30 AIF ('&SY$COR' NE '').OK40 @V60BBBC 00010480
&FAIL SETB 1 @V60BBBC 00010500
MNOTE 16,'====> SEVERE ERROR. THE SYSCOR MACRO MUST BE SPECIFI+00010520
ED IN THIS ASSEMBLY. <====' @V60BBBC 00010540
.OK40 AIF ('&SY$TIME' NE '').OK50 @V60BBBC 00010560
&FAIL SETB 1 @V60BBBC 00010580
MNOTE 16,'====> SEVERE ERROR. THE SYSTIME MACRO MUST BE SPECIF+00010600
IED IN THIS ASSEMBLY. <====' @V60BBBC 00010620
.OK50 AIF ('&SY$MON' NE '').OK60 @V60BBBC 00010640
&FAIL SETB 1 @V60BBBC 00010660
MNOTE 16,'====> SEVERE ERROR. THE SYSMON MACRO MUST BE SPECIFI+00010680
ED IN THIS ASSEMBLY. <====' @V60BBBC 00010700
.OK60 AIF ('&SY$JRL' NE '').OK70 @V60BBBC 00010720
&FAIL SETB 1 @V60BBBC 00010740
MNOTE 16,'====> SEVERE ERROR. THE SYSJRL MACRO MUST BE SPECIFI+00010760
ED IN THIS ASSEMBLY. <====' @V60BBBC 00010780
.OK70 ANOP HRC036DK 00010801
AIF ('&SY$IPL' NE '').OK80 HRC036DK 00010802
MNOTE 4,'SYSIPL MACRO NOT SPECFIED. DEFAULT VALUE OF NO AUTO I+00010803
PL HAS BEEN SET' HRC036DK 00010804
.* HRC036DK 00010805
ENTRY DMKSYSIP AUTO IPL START TYPE HRC036DK 00010806
.* HRC036DK 00010807
DMKSYSIP DC X'00' NO AUTO IPL (DEFAULT) HRC036DK 00010808
.* HRC036DK 00010809
.OK80 ANOP HRC036DK 00010810
AIF ('&SY$ID' NE '').OK90 HRC108DK 00010811
MNOTE 0,'SYSID macro not specified. Default value assumed.' 00010812
.* HRC108DK 00010813
ENTRY DMKSYSIC,DMKSYSIL,DMKSYSID HRC108DK 00010814
.* HRC108DK 00010815
DMKSYSIC DC F'0' Count of entries in SYSID list HRC108DK 00010816
DMKSYSIL DS 0XL14 No list entries HRC108DK 00010817
DMKSYSID DS 0D HRC108DK 00010818
DC CL8' ' Default system id (blank) HRC108DK 00010819
.* HRC108DK 00010820
.OK90 ANOP HRC108DK 00010821
AIF (NOT &FAIL).OK99 HRC108DK 00010822
MEXIT HRC108DK 00010823
.OK99 ANOP ALL PRESENT AND ACCOUNTED FOR HRC036DK 00010850
.* NEED 'ENTRY' CARDS FOR 'DMKSYS' PROGRAM. @V60BBBC 00010860
ENTRY DMKSYSLC 00011000
DMKSYSLC DS 0D - ENTRY POINT FOR 'SYSLOCS' INFORMATION 00012000
SPACE 00013000
ENTRY DMKSYSDT,DMKSYSTM,DMKSYSLW,DMKSYSLG 00014000
ENTRY DMKSYSNM,DMKSYSMA,DMKSYSMU,DMKSYSND 00015000
ENTRY DMKSYSLB,DMKSYSUD,DMKSYSPL 00016000
ENTRY DMKSYSDW 00017000
ENTRY DMKSYSLE,DMKSYSLD,DMKSYSCD,DMKSYSES 00018000
ENTRY DMKSYSCK 00019000
.SYS2 ANOP 00020000
SPACE 00021000
DMKSYSDT DC CL8'MM/DD/YY' - DATE OF SYSTEM LOG MESSAGE 00022000
DMKSYSTM DC CL8'HH:MM:SS' - TIME OF SYSTEM LOG MESSAGE 00023000
DMKSYSLW DC X'00',X'00',CL10' ' WEEKDAY OF SYSTEM LOG MESSAGE 00024000
DMKSYSLG DC A(0) - POINTER TO 1ST LOG MESSAGE BLOCK 00025000
SPACE 2 00026000
DMKSYSNM DC F'0' - CURRENT NUMBER OF USERS ON THE SYSTEM 00027000
DMKSYSMA DC F'0' - MAXIMUM NUMBER OF USERS ALLOWED ON 00028000
DMKSYSMU DC F'0' - MAXIMUM NUMBER OF USERS ON THE SYSTEM 00029000
DMKSYSND DC F'0' - NUMBER OF DIALED USERS ON THE SYSTEM 00030000
SPACE 2 00031000
DMKSYSLB DC A(0) - POINTER TO USER DIRECTORY LOCK BLOCK 00032000
DMKSYSUD DC A(0) - POINTER TO START OF USER DIRECTORY ON SYSRES 00033000
DMKSYSPL DC A(0) - POINTER TO A LIST OF VIRTUAL PAGE BUFFERS 00034000
DC A(0) - RESERVED FOR FUTURE USE 00035000
SPACE 2 00036000
DMKSYSDW DC X'00',X'00',CL10' ' DAY OF WEEK IN HEX & EBCDIC 00037000
SPACE 2 00038000
DMKSYSLE DC X'7B' - DEFAULT LINE-END (POUND-SIGN) 00039000
DMKSYSLD DC X'4A' - DEFAULT LINE-DELETE (CENT-SIGN) 00040000
DMKSYSCD DC X'7C' - DEFAULT CHARACTER-DELETE (AT-SIGN) 00041000
DMKSYSES DC X'7F' - DEFAULT EDIT ESCAPE (DOUBLE-QUOTE-MARK) 00042000
SPACE 2 00043000
DMKSYSLL DC AL1(130,129,72,80) DEFAULT LINE LENGTHS FOR *00044010
3210 & 3215 - 2741 & 1050 - TTY - 3270 & 3066 TERMINALS 00045010
DC XL4'0' - RESERVED FOR FUTURE USE @VA05681 00046100
SPACE 2 00047000
DMKSYSCK DC D'0' - TIME OF DAY CLOCK VALUE LAST STORED *00048000
BY ACCOUNTING, DUMP OR MACHINE CHECK 00049000
SPACE 00050000
AIF ('&SYSECT' NE 'DMKSYS').SYS3 00051000
EJECT 00052000
COPY VMBLOK 00053000
EJECT 00054000
COPY DEVTYPES 00055000
CPCOLD EQU X'01' HRC036DK 00055200
CPWARM EQU X'02' HRC036DK 00055400
CPCKPT EQU X'20' HRC036DK 00055600
CPFORCE EQU X'40' HRC036DK 00055800
SPACE 1 00056000
.SYS3 ANOP 00057000
AIF ('&SYSECT' EQ 'DMKSYS').SLO02 00057150
EJECT 00057300
POP PRINT 00057450
SPACE 00057600
.SLO02 ANOP 00057750
MEND 00058000