User Tools

Site Tools


parsec_autogen.com_and_a_sample_execution

Differences

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

Link to this comparison view

Both sides previous revisionPrevious revision
Next revision
Previous revision
parsec_autogen.com_and_a_sample_execution [2019/07/06 07:14] mmacgregorparsec_autogen.com_and_a_sample_execution [2021/10/12 17:58] (current) 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. 
 +It will show you the original display that AUTOGEN generatesbut also provide a table of information containing the parameters that are being recommended for change, the old value of the parameter, the new proposed value of the parameter, the difference between those values, and the default value of the procedure. 
 + 
 +Errors may occur during the copy/paste of this document, so test it in a safe place before using it in production.
  
 ====== Procedure ====== ====== Procedure ======
Line 7: Line 11:
 Create a command procedure with the following information: 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 ======
      
 This is a sample run of the procedure: This is a sample run of the procedure:
 +<code>$ @parsec_autogen
 +You have sufficient privileges to continue.
  
-  $ @PARSEC_AUTOGEN + 
-  @sys$update:autogen savparams setparams +      The CTRL-Y is being blocked in this procedure. Please be patient 
-  %AUTOGEN-I-BEGIN, SAVPARAMS phase is beginning. +      and wait for the "Do you wish to keep these changes [Y]?" question 
-  %AUTOGEN-I-FEEDBACK, Gathering feedback +      and answer no. 
-  %AUTOGEN-I-NEWFILE, A new version of SYS$SYSTEM:AGEN$FEEDBACK.DAT+ 
 +      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.         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.         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.         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.         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 +****************** 
-        . +%AUTOGEN-W-REPORT, Warnings were detected by AUTOGEN.  Please review the
-        Extending +
-            SYS$SYSROOT:[SYSEXE]PAGEFILE.SYS +
-        by 200000 blocks required 11 seconds.  This suggests that +
-        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 +
-        high-water marking, the suggested commands are: +
-        . +
-        $ SET VOLUME/NOHIGH SYS$SYSTEM +
-        $ MCR SYSGEN CREATE SYS$SYSROOT:[SYSEXE]PAGEFILE.SYS /SIZE = 25165800 +
-        $ SET VOLUME/HIGH SYS$SYSTEM +
-        . +
-        The system must then be rebooted in order to use the extended file size. +
-  Computed size: 3298481;  current size: 3206816 +
-  %SYSGEN-I-EXTENDED, CLASS3$DKA100:[SYS0.SYSEXE]SYSDUMP.DMP;3 extended +
-  Computed size: 102000;  current size: 124000 +
-  %SYSGEN-I-CREATED, SYS$SYSROOT:[SYSEXE]SWAPFILE.SYS;2 created +
-  . +
-  ****************** +
-  %AUTOGEN-W-REPORT, Warnings were detected by AUTOGEN.  Please review the+
         information given in the file SYS$SYSTEM:AGEN$PARAMS.REPORT         information given in the file SYS$SYSTEM:AGEN$PARAMS.REPORT
-  ****************** +****************** 
-  . + 
-  %AUTOGEN-I-REPORT, AUTOGEN has produced some informational messages which+%AUTOGEN-I-REPORT, AUTOGEN has produced some informational messages which
         have been stored in the file SYS$SYSTEM:AGEN$PARAMS.REPORT.  You may         have been stored in the file SYS$SYSTEM:AGEN$PARAMS.REPORT.  You may
         wish to review the information in that file.         wish to review the information in that file.
-  . + 
-  %AUTOGEN-I-END, GENFILES phase has successfully completed. +%AUTOGEN-I-END, GENFILES phase has successfully completed. 
-  %AUTOGEN-I-BEGIN, SETPARAMS phase is beginning. +%AUTOGEN-I-BEGIN, SETPARAMS phase is beginning. 
-  %AUTOGEN-I-SYSGEN, parameters modified +%AUTOGEN-I-SYSGEN, parameters modified 
-  %AUTOGEN-I-END, SETPARAMS phase has successfully completed. +%AUTOGEN-I-END, SETPARAMS phase has successfully completed. 
-  . +Press <RETURN> to review reports 
-  Press <RETURN> to review reports + 
-  Parameter name            Old value  New value Difference    Default +Parameter name               Old value  New value Difference    Default 
-  GBLSECTIONS                    1620       1570        -50       1024 +MAXPROCESSCNT                   185        167        -18         32 
-  MAXPROCESSCNT                   997        797       -200         32 +PROCSECTCNT                     512        128       -384        128 
-  SYSMWCNT                      14918      13516      -1402       8192 +SYSMWCNT                       8601       8438       -163       8192 
-  NPAGEDYN                   28966912   27525120   -1441792    4194304 +NPAGEDYN                   33153024   31498240   -1654784    4194304 
-  NPAGEVIR                  149430272  149422080      -8192   16777216 +NPAGEVIR                  173146112  166166528   -6979584   16777216 
-  PAGEDYN                    12722176   11534336   -1187840    4194304 +PAGEDYN                     7340032    7200768    -139264    4194304 
-  MPW_LOLIMIT                    2985       2385       -600        256 +CHANNELCNT                     2560        512      -2048        512 
-  LOCKIDTBL                      3840       3636       -204       3840 +MPW_LOLIMIT                     549        495        -54        256 
-  RESHASHTBL                     4096      16384      12288         64 +LOCKIDTBL                     19918      17051      -2867       3840 
-  LOCKDIRWT                                  0         -1          0 +RESHASHTBL                    16384      32768      16384         64 
-  MSCP_SERVE_ALL                    4          2         -2          4 +LNMSHASHTBL                     512       1024        512        512 
-  STARTUP_P2                      PDC        VDC +BALSETCNT                       183        165        -18         30 
-  GH_EXEC_CODE                   4352       4096       -256       4096 +GBLPAGES                    4324845    4305741     -19104     131072 
-  GH_RES_CODE                    6570       5376      -1194       5120 +MPW_THRESH                     1098        990       -108         16 
-  GH_RES_DATA                     512        384       -128        512 +ACP_HDRCACHE                   1098        990       -108         36 
-  BALSETCNT                       995        795       -200         30 +ACP_QUOCACHE                    185        167        -18         64 
-  GBLPAGES                   25579391   25654822      75431     131072 +PIXSCAN                          18         16         -         1 
-  MPW_THRESH                     5970       4770      -1200         16 + **End-of-File** | PREV/NEXT=Scroll, INS/REM=Pan, SELECT=80/132, Q=Quit 
-  LGI_BRK_DISUSER                   1          0         -1          0 + 
-  PQL_DWSDEFAULT                68918      77278       8360      32768 + 
-  PQL_MWSDEFAULT                68918      77278       8360      16384 +SYS$SYSROOT:[SYSEXE]AGEN$PARAMS.REPORT;107     24 blocks     12-OCT-2021 11:03:0 
-  PQL_DWSQUOTA                 137836     154556      16720      65536 + 
-  ACP_QUOCACHE                    997        797       -200         64 +    Page file calculations: 
-  ACP_SYSACC                       29         23         -6          8 + 
-  PIXSCAN                          80         79         -         1 +        PAGEFILE information: 
-  **End-of-File** | PREV/NEXT=Scroll, INS/REM=Pan, SELECT=80/132, Q=Quit +        Feedback information. 
-  Do you wish to keep these changes [Y]?+           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: 
 + 
 +        SWAPFILE information: 
 +        Feedback information. 
 +           Old value was 100000, New value is 100000 
 +           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> 
 + 
 +NOTE: After the differences are displayed, you will need to hit ENTER to get the original AUTOGEN report. Otherwise the final section will not be displayed.
  
  
parsec_autogen.com_and_a_sample_execution.1562397295.txt.gz · Last modified: 2019/07/06 07:14 by mmacgregor

Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki