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 revisionNext revisionBoth sides next revision | ||
parsec_autogen.com_and_a_sample_execution [2019/10/23 18:28] – mmacgregor | parsec_autogen.com_and_a_sample_execution [2021/10/12 17:54] – mmacgregor | ||
---|---|---|---|
Line 1: | Line 1: | ||
====== Information ====== | ====== Information ====== | ||
- | The following document is a more user friendly method of using AUTOGEN.COM and being able to easily visualize the proposed changes. | + | 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 ====== | ====== Procedure ====== | ||
Line 8: | Line 8: | ||
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 < |
- | Press < | + | 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 hit ENTER to get the original AUTOGEN report. | ||
parsec_autogen.com_and_a_sample_execution.txt · Last modified: 2021/10/12 17:58 by mmacgregor