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