parsec_autogen.com_and_a_sample_execution
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
parsec_autogen.com_and_a_sample_execution [2019/07/06 07:14] – mmacgregor | parsec_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 |
+ | It will show you the original display that AUTOGEN generates, but 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: | ||
- | | + | < |
- | $! | + | $! |
- | $! This procedure | + | $! This procedure |
- | $! 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: | + | $! Check privs |
- | $ mcr sysgen | + | $! |
- | use active | + | $ privs_needed = " |
- | show/all | + | $ svprv = f$setprv (privs_needed) |
- | show/ | + | $ cur_prv = f$privilege(privs_needed) |
- | use current | + | $ if cur_prv .eqs. " |
- | write sys$scratch: | + | $ then |
- | $! | + | $ write sys$output "You have insufficient privileges for this procedure." |
- | $ call uptime | + | $ exit |
- | $ if uptime_days .ge. 14 | + | $ else |
- | $ then start = " | + | $ write sys$output "You have sufficient privileges to continue." |
- | $ else start = " | + | $ endif |
- | $ endif | + | $! |
- | $ if p1 .nes. "" | + | $! Block CNTL-Y |
- | $ if start .nes. " | + | $! |
- | $ then | + | $ type sys$input |
- | $ if p2 .eqs. "" | + | |
- | $ write sys$output " | + | |
- | $ svprv = f$setprv (" | + | 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 |
- | $ 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: | + | parameters that will affect the next reboot when you intended |
- | $ mcr sysgen | + | to exit the procedure. |
- | use current | + | |
- | show/all | + | |
- | show/ | + | $ set nocontrol=y |
- | $! | + | $ |
- | $ close /nolog in1 | + | $ define /user_mode sys$output sys$scratch: |
- | $ close /nolog in2 | + | $ mcr sysgen |
- | $ close /nolog out | + | use active |
- | $ open /read in1 sys$scratch: | + | show/all |
- | $ open /read in2 sys$scratch: | + | show/ |
- | $ open /write out sys$scratch: | + | use current |
- | $ write out " | + | write sys$scratch: |
- | $next_diff: | + | $! |
- | $ read in1 / | + | $ call uptime |
- | $ read in2 rec2 | + | $ if uptime_days .ge. 14 |
- | $ if rec1 .eqs. rec2 then goto next_diff | + | $ then start = " |
- | $ if f$extract (2, 9, rec1) .eqs. " | + | $ else start = " |
- | $ rec1 = f$edit (rec1, " | + | $ endif |
- | $ pname = f$element (0, " ", rec1) | + | $ if p1 .nes. "" |
- | $ if pname .eqs. " | + | $ if start .nes. " |
- | $ mode = f$extract (f$length(rec1)-5, | + | $ then |
- | $ if mode .eqs. " | + | $ if p2 .eqs. "" |
- | $ then | + | $ write sys$output " |
- | $ pnew = f$edit (f$element (1, """", | + | $ svprv = f$setprv (" |
- | $ pnew = f$extract (f$length(pnew), | + | $ |
- | $ pdef = f$edit (f$element (3, """", | + | $ svprv = f$setprv (svprv) |
- | $ pdef = f$extract (f$length(pdef), | + | $ endif |
- | $ pold = f$edit (f$element (1, """", | + | $! |
- | $ pold = f$extract (f$length(pold), | + | $ define /user_mode sys$output sys$scratch: |
- | $ write out f$fao (" | + | $ mcr sysgen |
- | $ else | + | use current |
- | $ rec1 = f$edit (rec1, " | + | show/all |
- | $ pnew = f$integer (f$element (1, " ", rec1)) | + | show/ |
- | $ pdef = f$interer (f$element (2, " ", rec1)) | + | $! |
- | $ rec2 = f$edit (rec2, " | + | $ close /nolog in1 |
- | $ pold = f$integer (f$element (1, " ", rec2)) | + | $ close /nolog in2 |
- | $ diff = f$fao (" | + | $ close /nolog out |
- | $ write out f$fao (" | + | $ open /read in1 sys$scratch: |
- | $ endif | + | $ open /read in2 sys$scratch: |
- | $ goto next_diff | + | $ open /write out sys$scratch: |
- | $done_diff: | + | $ write out " |
- | $ close in1 | + | $next_diff: |
- | $ close in2 | + | $ read in1 / |
- | $ delete sys$scratch: | + | $ read in2 rec2 |
- | $ delete sys$scratch: | + | $ if rec1 .eqs. rec2 then goto next_diff |
- | $ close out | + | $ if f$extract (2, 9, rec1) .eqs. " |
- | $ if start .nes. " | + | $ rec1 = f$edit (rec1, " |
- | read sys$command recl/ | + | $ pname = f$element (0, " ", rec1) |
- | $ type /page=save sys$scratch: | + | $ if pname .eqs. " |
- | $ if start .nes. " | + | $ mode = f$extract (f$length(rec1)-5, |
- | $ then | + | $ if mode .eqs. " |
- | $ read sys$command recl/ | + | $ then |
- | $ if recl .nes. "" | + | $ pnew = f$edit (f$element (1, """", |
- | $ | + | $ pnew = f$extract (f$length(pnew), |
- | $ mcr sysgen | + | $ pdef = f$edit (f$element (3, """", |
- | use sys$scratch: | + | $ pdef = f$extract (f$length(pdef), |
- | write current | + | $ pold = f$edit (f$element (1, """", |
- | $ | + | $ pold = f$extract (f$length(pold), |
- | $ endif | + | $ write out f$fao (" |
- | $ delete sys$scratch: | + | $ else |
- | $ exit | + | $ rec1 = f$edit (rec1, " |
- | $! | + | $ pnew = f$integer (f$element (1, " ", rec1)) |
- | $! Support routine | + | $ pdef = f$interer (f$element (2, " ", rec1)) |
- | $uptime: | + | $ rec2 = f$edit (rec2, " |
- | $ subroutine | + | $ pold = f$integer (f$element (1, " ", rec2)) |
- | $! UPTIME.COM | + | $ diff = f$fao (" |
- | $! | + | $ write out f$fao (" |
- | $! 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 / | + | $ close in1 |
- | $ open /read /share=read inf uptime.dat | + | $ close in2 |
- | $!OpenVMS V6.2-1H3 | + | $ delete sys$scratch: |
- | $ read inf upt | + | $ delete sys$scratch: |
- | $ close inf | + | $ close out |
- | $ delete /nolog uptime.dat; | + | $ if start .nes. " |
- | $ x = f$locate (" | + | read sys$command recl/ |
- | $ upt = f$extract (x+7, 9999, upt) | + | $ type /page=save sys$scratch: |
- | $ uptime == f$edit (upt, " | + | $ if start .nes. " |
- | $ uptime_days == f$integer (f$element (0, " ", uptime)) | + | $ then |
- | $ x = f$element (0, ":", | + | $ read sys$command recl/ |
- | $ uptime_hours == uptime_days * 24 + f$integer (f$element (1, " ", x)) | + | $ if recl .nes. "" |
- | $ if p1 .nes. "" | + | $ |
- | write sys$output "'' | + | $ mcr sysgen |
- | $ exit | + | use sys$scratch: |
- | $ endsubroutine | + | write current |
+ | $ | ||
+ | $ endif | ||
+ | $ delete sys$scratch: | ||
+ | $ 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 / | ||
+ | $ open /read /share=read inf uptime.dat | ||
+ | $!OpenVMS V6.2-1H3 | ||
+ | $ read inf upt | ||
+ | $ close inf | ||
+ | $ delete /nolog uptime.dat; | ||
+ | $ x = f$locate (" | ||
+ | $ upt = f$extract (x+7, 9999, upt) | ||
+ | $ uptime == f$edit (upt, " | ||
+ | $ uptime_days == f$integer (f$element (0, " ", uptime)) | ||
+ | $ x = f$element (0, ":", | ||
+ | $ uptime_hours == uptime_days * 24 + f$integer (f$element (1, " ", x)) | ||
+ | $ if p1 .nes. "" | ||
+ | write sys$output "'' | ||
+ | $ exit | ||
+ | $ endsubroutine</ | ||
+ | |||
+ | ====== Sample Run ====== | ||
| | ||
This is a sample run of the procedure: | This is a sample run of the procedure: | ||
+ | < | ||
+ | You have sufficient privileges to continue. | ||
- | $ @PARSEC_AUTOGEN | + | |
- | @sys$update: | + | The CTRL-Y is being blocked in this procedure. Please be patient |
- | %AUTOGEN-I-BEGIN, | + | and wait for the "Do you wish to keep these changes [Y]?" question |
- | %AUTOGEN-I-FEEDBACK, | + | and answer no. |
- | %AUTOGEN-I-NEWFILE, | + | |
+ | 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-I-BEGIN, | ||
+ | %AUTOGEN-I-FEEDBACK, | ||
+ | %AUTOGEN-I-NEWFILE, | ||
has been created. You may wish to purge this file. | has been created. You may wish to purge this file. | ||
- | | + | %AUTOGEN-I-END, |
- | %AUTOGEN-I-BEGIN, | + | %AUTOGEN-I-BEGIN, |
- | %AUTOGEN-I-NEWFILE, | + | %AUTOGEN-I-NEWFILE, |
You may wish to purge this file. | You may wish to purge this file. | ||
- | | + | %AUTOGEN-I-END, |
- | %AUTOGEN-I-BEGIN, | + | %AUTOGEN-I-BEGIN, |
- | %AUTOGEN-I-NEWFILE, | + | %AUTOGEN-I-NEWFILE, |
You may wish to purge this file. | You may wish to purge this file. | ||
- | | + | %AUTOGEN-I-NEWFILE, |
You may wish to purge this file. | You may wish to purge this file. | ||
- | | + | %AUTOGEN-I-END, |
- | %AUTOGEN-I-BEGIN, | + | %AUTOGEN-I-BEGIN, |
- | | + | |
- | | + | ****************** |
- | . | + | %AUTOGEN-W-REPORT, |
- | Extending | + | |
- | SYS$SYSROOT: | + | |
- | by 200000 blocks required 11 seconds. | + | |
- | high-water marking is currently enabled for this volume. | + | |
- | 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/ | + | |
- | $ MCR SYSGEN CREATE SYS$SYSROOT: | + | |
- | $ SET VOLUME/HIGH SYS$SYSTEM | + | |
- | . | + | |
- | The system must then be rebooted in order to use the extended file size. | + | |
- | Computed size: 3298481; | + | |
- | %SYSGEN-I-EXTENDED, | + | |
- | Computed size: 102000; | + | |
- | %SYSGEN-I-CREATED, | + | |
- | . | + | |
- | | + | |
- | %AUTOGEN-W-REPORT, | + | |
information given in the file SYS$SYSTEM: | information given in the file SYS$SYSTEM: | ||
- | | + | ****************** |
- | . | + | |
- | %AUTOGEN-I-REPORT, | + | %AUTOGEN-I-REPORT, |
have been stored in the file SYS$SYSTEM: | have been stored in the file SYS$SYSTEM: | ||
wish to review the information in that file. | wish to review the information in that file. | ||
- | . | + | |
- | %AUTOGEN-I-END, | + | %AUTOGEN-I-END, |
- | %AUTOGEN-I-BEGIN, | + | %AUTOGEN-I-BEGIN, |
- | %AUTOGEN-I-SYSGEN, | + | %AUTOGEN-I-SYSGEN, |
- | %AUTOGEN-I-END, | + | %AUTOGEN-I-END, |
- | . | + | Press < |
- | | + | |
- | Parameter name Old value New value Difference | + | Parameter name |
- | | + | MAXPROCESSCNT |
- | | + | PROCSECTCNT |
- | SYSMWCNT | + | SYSMWCNT |
- | NPAGEDYN | + | NPAGEDYN |
- | NPAGEVIR | + | NPAGEVIR |
- | PAGEDYN | + | PAGEDYN |
- | MPW_LOLIMIT | + | CHANNELCNT |
- | LOCKIDTBL | + | MPW_LOLIMIT |
- | RESHASHTBL | + | LOCKIDTBL |
- | | + | RESHASHTBL |
- | MSCP_SERVE_ALL | + | LNMSHASHTBL |
- | STARTUP_P2 | + | BALSETCNT |
- | GH_EXEC_CODE | + | GBLPAGES |
- | GH_RES_CODE | + | MPW_THRESH |
- | GH_RES_DATA | + | ACP_HDRCACHE |
- | BALSETCNT | + | ACP_QUOCACHE |
- | GBLPAGES | + | PIXSCAN |
- | MPW_THRESH | + | |
- | | + | |
- | | + | |
- | PQL_MWSDEFAULT | + | SYS$SYSROOT: |
- | PQL_DWSQUOTA | + | |
- | | + | Page file calculations: |
- | | + | |
- | | + | PAGEFILE information: |
- | **End-of-File** | PREV/ | + | Feedback information. |
- | Do you wish to keep these changes [Y]? | + | Old value was 4201700, New value is 4201700 |
+ | | ||
+ | Override Information - parameter calculation has been overridden. | ||
+ | The calculated value was 3986700. | ||
+ | | ||
+ | | ||
+ | |||
+ | Swap file calculations: | ||
+ | |||
+ | SWAPFILE information: | ||
+ | Feedback information. | ||
+ | Old value was 100000, New value is 100000 | ||
+ | | ||
+ | Override Information - parameter calculation has been overridden. | ||
+ | The calculated value was 21400. | ||
+ | | ||
+ | | ||
+ | Do you wish to keep these changes [Y]? </ | ||
+ | |||
+ | 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