Differences

This shows you the differences between two versions of the page.

--- parsec_autogen.com_and_a_sample_execution [2019/07/06 06:49] – created mmacgregor
+++ parsec_autogen.com_and_a_sample_execution [2021/10/12 17:54] – mmacgregor
@@ Line 1: / Line 1: @@
+====== Information ======
-This is a work in progress, it is not finished yet.
+The following document is a more user friendly method of using AUTOGEN.COM and being able to easily visualize the proposed changes. Errors may occur during the copy/paste of this document, so test it in a safe place before using it in production.
 ====== Procedure ======
@@ Line 7: / Line 8: @@
 Create a command procedure with the following information:
-  $! My_autogen.com
+<code>$! parsec_autogen.com
-  $!
+$!
-  $! This procedure executesautogen.com and displays the report to the user
+$! This procedure executes autogen.com and displays the report to the user
-  $! Along with a list of changed parameters
+$! Along with a list of changed parameters
-  $! If the system has been up 14 days or more, it will save feedback information
+$! If the system has been up 14 days or more, it will save feedback information
-  $! And use it, otherwise it will use previously saved feedback information.
+$! And use it, otherwise it will use previously saved feedback information.
-  $!
+$!
-  $ define /user_mode sys$output sys$scratch:params.inf_old
+$! Check privs
-  $ mcr sysgen
+$!
-    use active
+$ privs_needed = "sysprv,cmkrnl,oper"
-    show/all
+$ svprv = f$setprv (privs_needed)
-    show/special
+$ cur_prv = f$privilege(privs_needed)
-    use current
+$ if cur_prv .eqs. "FALSE"
-    write sys$scratch:vmssys.parsec
+$ then
-  $!
+$    write sys$output "You have insufficient privileges for this procedure."
-  $ call uptime
+$    exit
-  $ if uptime_days .ge. 14
+$ else
-  $    then start = "savparams"
+$    write sys$output "You have sufficient privileges to continue."
-  $    else start = "getdata"
+$ endif
-  $    endif
+$!
-  $ if p1 .nes. "" then start = p1
+$! Block CNTL-Y
-  $ if start .nes. "NONE"
+$!
-  $ then
+$ type sys$input
-  $       if p2 .eqs. "" then p2 = "setparams"
-  $       write sys$output "@sys$update:autogen ''start' ''p2' ''p3'"
-  $       svprv = f$setprv ("sysprv,cmkrnl")
+      The CTRL-Y is being blocked in this procedure. Please be patient
-  $       @sys$update:autogen 'start' 'p2' 'p3'
+      and wait for the "Do you wish to keep these changes [Y]?" question
-  $       svprv = f$setprv (svprv)
+      and answer no.
-  $ endif
-  $!
+      This is being done to prevent accidental changes of the system
-  $ define /user_mode sys$output sys$scratch:params.inf_new
+      parameters that will affect the next reboot when you intended
-  $ mcr sysgen
+      to exit the procedure.
-    use current
-    show/all
-    show/special
+$ set nocontrol=y
-  $!
+$
-  $ close /nolog in1
+$ define /user_mode sys$output sys$scratch:params.inf_old
-  $ close /nolog in2
+$ mcr sysgen
-  $ close /nolog out
+  use active
-  $ open /read in1 sys$scratch:params.inf_new
+  show/all
-  $ open /read in2 sys$scratch:params.inf_old
+  show/special
-  $ open /write out sys$scratch:params.inf_dif
+  use current
-  $ write out "Parameter name               Old value  New value Difference    Default"
+  write sys$scratch:vmssys.parsec
-  $next_diff:
+$!
-  $ read in1 /end=done_diff rec1
+$ call uptime
-  $ read in2 rec2
+$ if uptime_days .ge. 14
-  $ if rec1 .eqs. rec2 then goto next_diff
+$    then start = "savparams"
-  $ if f$extract (2, 9, rec1) .eqs. "Parameter" then goto next_diff
+$    else start = "getdata"
-  $ rec1 = f$edit (rec1, "trim")
+$    endif
-  $ pname = f$element (0, " ", rec1)
+$ if p1 .nes. "" then start = p1
-  $ if pname .eqs. "internal" then goto next_diff
+$ if start .nes. "NONE"
-  $ mode = f$extract (f$length(rec1)-5, 5, rec1)
+$ then
-  $ if mode .eqs. "Ascii"
+$       if p2 .eqs. "" then p2 = "setparams"
-  $ then
+$       write sys$output "@sys$update:autogen ''start' ''p2' ''p3'"
-  $       pnew = f$edit (f$element (1, """", rec1), "trim")
+$       svprv = f$setprv ("sysprv,cmkrnl")
-  $       pnew = f$extract (f$length(pnew), 10, "          " + pnew)
+$       @sys$update:autogen 'start' 'p2' 'p3'
-  $       pdef = f$edit (f$element (3, """", rec1), "trim")
+$       svprv = f$setprv (svprv)
-  $       pdef = f$extract (f$length(pdef), 10, "          " + pdef)
+$ endif
-  $       pold = f$edit (f$element (1, """", rec2), "trim")
+$!
-  $       pold = f$extract (f$length(pold), 10, "          " + pold)
+$ define /user_mode sys$output sys$scratch:params.inf_new
-  $       write out f$fao ("!24AS !10AS !10AS            !10AS", pname, pold, pnew, pdef)
+$ mcr sysgen
-  $ else
+  use current
-  $       rec1 = f$edit (rec1, "compress")
+  show/all
-  $       pnew = f$integer (f$element (1, " ", rec1))
+  show/special
-  $       pdef = f$interer (f$element (2, " ", rec1))
+$!
-  $       rec2 = f$edit (rec2, "trim,compress")
+$ close /nolog in1
-  $       pold = f$integer (f$element (1, " ", rec2))
+$ close /nolog in2
-  $       diff = f$fao ("!10SL", f$integer(pnew) - f$integer(pold))
+$ close /nolog out
-  $       write out f$fao ("!24AS !10UL !10UL !AS !10UL", pname, pold, pnew, diff,pdef)
+$ open /read in1 sys$scratch:params.inf_new
-  $ endif
+$ open /read in2 sys$scratch:params.inf_old
-  $ goto next_diff
+$ open /write out sys$scratch:params.inf_dif
-  $done_diff:
+$ write out "Parameter name               Old value  New value Difference    Default"
-  $ close in1
+$next_diff:
-  $ close in2
+$ read in1 /end=done_diff rec1
-  $ delete sys$scratch:params.inf_new;*
+$ read in2 rec2
-  $ delete sys$scratch:params.inf_old;*
+$ if rec1 .eqs. rec2 then goto next_diff
-  $ close out
+$ if f$extract (2, 9, rec1) .eqs. "Parameter" then goto next_diff
-  $ if start .nes. "NONE" then -
+$ rec1 = f$edit (rec1, "trim")
-    read sys$command recl/prompt="Press <RETURN> to review reports "
+$ pname = f$element (0, " ", rec1)
-  $ type /page=save sys$scratch:params.inf_dif,sys$system:agen$params.report
+$ if pname .eqs. "internal" then goto next_diff
-  $ if start .nes. "NONE"
+$ mode = f$extract (f$length(rec1)-5, 5, rec1)
-  $ then
+$ if mode .eqs. "Ascii"
-  $       read sys$command recl/prompt="Do you wish to keep these changes [Y]? "
+$ then
-  $       if recl .nes. "" .and. .not. recl
+$       pnew = f$edit (f$element (1, """", rec1), "trim")
-  $       then
+$       pnew = f$extract (f$length(pnew), 10, "          " + pnew)
-  $               mcr sysgen
+$       pdef = f$edit (f$element (3, """", rec1), "trim")
-    use sys$scratch:vmssys.parsec
+$       pdef = f$extract (f$length(pdef), 10, "          " + pdef)
-    write current
+$       pold = f$edit (f$element (1, """", rec2), "trim")
-  $       endif
+$       pold = f$extract (f$length(pold), 10, "          " + pold)
-  $ endif
+$       write out f$fao ("!24AS !10AS !10AS            !10AS", pname, pold, pnew, pdef)
-  $ delete sys$scratch:params.inf_dif;*,sys$scratch:vmssys.parsec;*
+$ else
-  $ exit
+$       rec1 = f$edit (rec1, "compress")
-  $!
+$       pnew = f$integer (f$element (1, " ", rec1))
-  $! Support routine
+$       pdef = f$interer (f$element (2, " ", rec1))
-  $uptime:
+$       rec2 = f$edit (rec2, "trim,compress")
-  $ subroutine
+$       pold = f$integer (f$element (1, " ", rec2))
-  $! UPTIME.COM
+$       diff = f$fao ("!10SL", f$integer(pnew) - f$integer(pold))
-  $!
+$       write out f$fao ("!24AS !10UL !10UL !AS !10UL", pname, pold, pnew, diff,pdef)
-  $! This procedure gets system current uptime from a SHOW SYSTEM command
+$ endif
-  $! And stores the value in some global symbols.
+$ goto next_diff
-  $!
+$done_diff:
-  $ show system /output=uptime.dat
+$ close in1
-  $ open /read /share=read inf uptime.dat
+$ close in2
-  $!OpenVMS V6.2-1H3  on node PARIS   4-FEB-1999 10:11:36:.03  Uptime  10 18:48:48
+$ delete sys$scratch:params.inf_new;*
-  $ read inf upt
+$ delete sys$scratch:params.inf_old;*
-  $ close inf
+$ close out
-  $ delete /nolog uptime.dat;*
+$ if start .nes. "NONE" then -
-  $ x = f$locate ("Uptime", upt)
+  read sys$command recl/prompt="Press <RETURN> to review reports "
-  $ upt = f$extract (x+7, 9999, upt)
+$ type /page=save sys$scratch:params.inf_dif,sys$system:agen$params.report
-  $ uptime == f$edit (upt, "trim,compress")
+$ if start .nes. "NONE"
-  $ uptime_days == f$integer (f$element (0, " ", uptime))
+$ then
-  $ x = f$element (0, ":", uptime)
+$       read sys$command recl/prompt="Do you wish to keep these changes [Y]? "
-  $ uptime_hours == uptime_days * 24 + f$integer (f$element (1, " ", x))
+$       if recl .nes. "" .and. .not. recl
-  $ if p1 .nes. "" then -
+$       then
-  write sys$output "''f$getsyi("nodename")' has been up ''uptime'"
+$               mcr sysgen
-  $ exit
+  use sys$scratch:vmssys.parsec
-  $ endsubroutine
+  write current
+$       endif
+$ endif
+$ delete sys$scratch:params.inf_dif;*,sys$scratch:vmssys.parsec;*
+$ exit
+$!
+$! Support routine
+$uptime:
+$ subroutine
+$! UPTIME.COM
+$!
+$! This procedure gets system current uptime from a SHOW SYSTEM command
+$! And stores the value in some global symbols.
+$!
+$ show system /output=uptime.dat
+$ open /read /share=read inf uptime.dat
+$!OpenVMS V6.2-1H3  on node PARIS   4-FEB-1999 10:11:36:.03  Uptime  10 18:48:48
+$ read inf upt
+$ close inf
+$ delete /nolog uptime.dat;*
+$ x = f$locate ("Uptime", upt)
+$ upt = f$extract (x+7, 9999, upt)
+$ uptime == f$edit (upt, "trim,compress")
+$ uptime_days == f$integer (f$element (0, " ", uptime))
+$ x = f$element (0, ":", uptime)
+$ uptime_hours == uptime_days * 24 + f$integer (f$element (1, " ", x))
+$ if p1 .nes. "" then -
+write sys$output "''f$getsyi("nodename")' has been up ''uptime'"
+$ exit
+$ endsubroutine</code>
+====== Sample Run ======
-  CLASS3  > @parsec_autogen
+This is a sample run of the procedure:
-  @sys$update:autogen savparams setparams
+<code>$ @parsec_autogen
-  %AUTOGEN-I-BEGIN, SAVPARAMS phase is beginning.
+You have sufficient privileges to continue.
-  %AUTOGEN-I-FEEDBACK, Gathering feedback
-  %AUTOGEN-I-NEWFILE, A new version of SYS$SYSTEM:AGEN$FEEDBACK.DAT
+      The CTRL-Y is being blocked in this procedure. Please be patient
+      and wait for the "Do you wish to keep these changes [Y]?" question
+      and answer no.
+      This is being done to prevent accidental changes of the system
+      parameters that will affect the next reboot when you intended
+      to exit the procedure.
+@sys$update:autogen savparams setparams
+%AUTOGEN-I-BEGIN, SAVPARAMS phase is beginning.
+%AUTOGEN-I-FEEDBACK, Gathering feedback
+%AUTOGEN-I-NEWFILE, A new version of SYS$SYSTEM:AGEN$FEEDBACK.DAT
         has been created. You may wish to purge this file.
-  %AUTOGEN-I-END, SAVPARAMS phase has successfully completed.
+%AUTOGEN-I-END, SAVPARAMS phase has successfully completed.
-  %AUTOGEN-I-BEGIN, GETDATA phase is beginning.
+%AUTOGEN-I-BEGIN, GETDATA phase is beginning.
-  %AUTOGEN-I-NEWFILE, A new version of SYS$SYSTEM:PARAMS.DAT has been created.
+%AUTOGEN-I-NEWFILE, A new version of SYS$SYSTEM:PARAMS.DAT has been created.
         You may wish to purge this file.
-  %AUTOGEN-I-END, GETDATA phase has successfully completed.
+%AUTOGEN-I-END, GETDATA phase has successfully completed.
-  %AUTOGEN-I-BEGIN, GENPARAMS phase is beginning.
+%AUTOGEN-I-BEGIN, GENPARAMS phase is beginning.
-  %AUTOGEN-I-NEWFILE, A new version of SYS$MANAGER:VMSIMAGES.DAT has been created.
+%AUTOGEN-I-NEWFILE, A new version of SYS$MANAGER:VMSIMAGES.DAT has been created.
         You may wish to purge this file.
-  %AUTOGEN-I-NEWFILE, A new version of SYS$SYSTEM:SETPARAMS.DAT has been created.
+%AUTOGEN-I-NEWFILE, A new version of SYS$SYSTEM:SETPARAMS.DAT has been created.
         You may wish to purge this file.
-  %AUTOGEN-I-END, GENPARAMS phase has successfully completed.
+%AUTOGEN-I-END, GENPARAMS phase has successfully completed.
-  %AUTOGEN-I-BEGIN, GENFILES phase is beginning.
+%AUTOGEN-I-BEGIN, GENFILES phase is beginning.
-  Computed size: 25165800;  current size: 1404604
-  %SYSGEN-I-EXTENDED, SYS$SYSROOT:[SYSEXE]PAGEFILE.SYS;1 extended
-        Extending
+******************
-            SYS$SYSROOT:[SYSEXE]PAGEFILE.SYS
+%AUTOGEN-W-REPORT, Warnings were detected by AUTOGEN.  Please review the
-        by 200000 blocks required 11 seconds.  This suggests that
+        information given in the file SYS$SYSTEM:AGEN$PARAMS.REPORT
-        high-water marking is currently enabled for this volume.  AUTOGEN
+******************
-        will not extend the file further at this time.
-        If your security environment allows you to temporarily disable
+%AUTOGEN-I-REPORT, AUTOGEN has produced some informational messages which
-        high-water marking, the suggested commands are:
+        have been stored in the file SYS$SYSTEM:AGEN$PARAMS.REPORT.  You may
+        wish to review the information in that file.
-        $ SET VOLUME/NOHIGH SYS$SYSTEM
+%AUTOGEN-I-END, GENFILES phase has successfully completed.
-        $ MCR SYSGEN CREATE SYS$SYSROOT:[SYSEXE]PAGEFILE.SYS /SIZE = 25165800
+%AUTOGEN-I-BEGIN, SETPARAMS phase is beginning.
-        $ SET VOLUME/HIGH SYS$SYSTEM
+%AUTOGEN-I-SYSGEN, parameters modified
+%AUTOGEN-I-END, SETPARAMS phase has successfully completed.
+Press <RETURN> to review reports
-        The system must then be rebooted in order to use the extended file size.
+Parameter name               Old value  New value Difference    Default
-  Computed size: 3298481;  current size: 3206816
+MAXPROCESSCNT                   185        167        -18         32
-  %SYSGEN-I-EXTENDED, CLASS3$DKA100:[SYS0.SYSEXE]SYSDUMP.DMP;3 extended
+PROCSECTCNT                     512        128       -384        128
-  Computed size: 102000;  current size: 124000
+SYSMWCNT                       8601       8438       -163       8192
-  %SYSGEN-I-CREATED, SYS$SYSROOT:[SYSEXE]SWAPFILE.SYS;2 created
+NPAGEDYN                   33153024   31498240   -1654784    4194304
+NPAGEVIR                  173146112  166166528   -6979584   16777216
+PAGEDYN                     7340032    7200768    -139264    4194304
+CHANNELCNT                     2560        512      -2048        512
+MPW_LOLIMIT                     549        495        -54        256
+LOCKIDTBL                     19918      17051      -2867       3840
+RESHASHTBL                    16384      32768      16384         64
+LNMSHASHTBL                     512       1024        512        512
+BALSETCNT                       183        165        -18         30
+GBLPAGES                    4324845    4305741     -19104     131072
+MPW_THRESH                     1098        990       -108         16
+ACP_HDRCACHE                   1098        990       -108         36
+ACP_QUOCACHE                    185        167        -18         64
+PIXSCAN                          18         16         -2          1
+ **End-of-File** | PREV/NEXT=Scroll, INS/REM=Pan, SELECT=80/132, Q=Quit
-  ******************
-  %AUTOGEN-W-REPORT, Warnings were detected by AUTOGEN.  Please review the
-        information given in the file SYS$SYSTEM:AGEN$PARAMS.REPORT
-  ******************
-  %AUTOGEN-I-REPORT, AUTOGEN has produced some informational messages which
+SYS$SYSROOT:[SYSEXE]AGEN$PARAMS.REPORT;107     24 blocks     12-OCT-2021 11:03:0
-        have been stored in the file SYS$SYSTEM:AGEN$PARAMS.REPORT.  You may
-        wish to review the information in that file.
+    Page file calculations:
+        PAGEFILE information:
+        Feedback information.
+           Old value was 4201700, New value is 4201700
+           Maximum observed usage: 0
+        Override Information - parameter calculation has been overridden.
+           The calculated value was 3986700.  The new value is 4201700.
+           PAGEFILE calculation has been set to current size by user.
+           PAGEFILE will not be modified. The file size is within 10%.
+    Swap file calculations:
-  %AUTOGEN-I-END, GENFILES phase has successfully completed.
+        SWAPFILE information:
-  %AUTOGEN-I-BEGIN, SETPARAMS phase is beginning.
+        Feedback information.
-  %AUTOGEN-I-SYSGEN, parameters modified
+           Old value was 100000, New value is 100000
-  %AUTOGEN-I-END, SETPARAMS phase has successfully completed.
+           Maximum observed usage: 0
+        Override Information - parameter calculation has been overridden.
+           The calculated value was 21400.  The new value is 100000.
+           SWAPFILE calculation has been set to current size by user.
+           SWAPFILE will not be modified. The file size is within 10%.
+Do you wish to keep these changes [Y]?  </code>
-  Press <RETURN> to review reports
+NOTE: After the differences are displayed, you hit ENTER to get the original AUTOGEN report.
-  Parameter name            Old value  New value Difference    Default
-  GBLSECTIONS                    1620       1570        -50       1024
-  MAXPROCESSCNT                   997        797       -200         32
-  SYSMWCNT                      14918      13516      -1402       8192
-  NPAGEDYN                   28966912   27525120   -1441792    4194304
-  NPAGEVIR                  149430272  149422080      -8192   16777216
-  PAGEDYN                    12722176   11534336   -1187840    4194304
-  MPW_LOLIMIT                    2985       2385       -600        256
-  LOCKIDTBL                      3840       3636       -204       3840
-  RESHASHTBL                     4096      16384      12288         64
-  LOCKDIRWT                         1          0         -1          0
-  MSCP_SERVE_ALL                    4          2         -2          4
-  STARTUP_P2                      PDC        VDC
-  GH_EXEC_CODE                   4352       4096       -256       4096
-  GH_RES_CODE                    6570       5376      -1194       5120
-  GH_RES_DATA                     512        384       -128        512
-  BALSETCNT                       995        795       -200         30
-  GBLPAGES                   25579391   25654822      75431     131072
-  MPW_THRESH                     5970       4770      -1200         16
-  LGI_BRK_DISUSER                   1          0         -1          0
-  PQL_DWSDEFAULT                68918      77278       8360      32768
-  PQL_MWSDEFAULT                68918      77278       8360      16384
-  PQL_DWSQUOTA                 137836     154556      16720      65536
-  ACP_QUOCACHE                    997        797       -200         64
-  ACP_SYSACC                       29         23         -6          8
-  PIXSCAN                          80         79         -1          1
-  **End-of-File** | PREV/NEXT=Scroll, INS/REM=Pan, SELECT=80/132, Q=Quit
-  Do you wish to keep these changes [Y]?