w$JPI021.A0JPI021.ABACKUP/NOASSIST/COMMENT=VAX/VMS SPKITBLD Procedure/INTER/LOG/VERIFY *.* WORK8:[RJACK]JPI021.A/LABEL=(JPI)/SAVE/BLOCK=9000/GROUP=25VAX/VMS SPKITBLD Procedure RJACK L@`͒V5.5 _BHAK::  _$11$DUA30: V5.5-2 $"*[RJACK.JPI.021.EXTERNAL]JPI.COB;20+,L1 ./L 4-J0123KPWO56`7Ÿ̒89GLHJ IDENTIFICATION DIVISION.PROGRAM-ID. JPI.5AUTHOR. RJJ, Digital Equipment Corporation, Nashua NH.INSTALLATION. Information Design & Consulting.8DATE-WRITTEN. 8-MAR-1991 15:28:15 (Revised 25-Apr-1995)C*******************************************************************C* Digital does not warrant that the System Management Example *C* provided herein will meet customers' requirements, operate *C* without interruption or be error free. *C******************************************************************** Revision History:* (* 25-Apr-1995 V2.1-3D* Documentation fixes to the jpi.hlp(* 01-Dec-1994 V2.1-2P* Bug fix in the cld file. Sorts on basepriority3* were not working.(* 05-Apr-1994 V2.1-1J* Allow basepriority values from 0 thru 63M* since OpenVMS VAX uses 0-31 and OpenVMS AXP,* uses 0-63.N* 04-Apr-1994 Terminate the remote JPI session if the readO* from the remote session returns a blank line.O* This indicates an abnormal termination of the5* remote JPI session.(* 20-MAR-1994 V2.1-1I* Because of a 'problem' with the $getjpiO* implementation of USERNAME with $process_scanN* on OpenVMS VAX, an explicate "*" is appendedO* to any username keyword(s) as supplied by theJ* the user. Although this 'problem' is notJ* evident on OpenVMX AXP, the problem willK* show itself if a jpi/username= command isM* issued within a mixed architecture cluster.L* This code workaround will be eliminated inL* a future version of JPI when the 'problem'I* has been resolved on OpenVMS VAX by the8* VMS engineering group.(* 19-MAR-1994 V2.1-1L* If not a cluster member and if a /nodenameI* was specified, then check to see if theF* nodename keyword matches the currentL* nodename. This is an explicate test as theK* $process_scan service IGNORE any nodenameI* keywords if issued from a non-clustered'* node.(* 19-MAR-1994 V2.1-1N* Abort if a /PRIVILEGE keyword does not match<* a valid OpenVMS privilege.(* 18-MAR-1994 V2.1-1I* Change jpi$_procpriv to jpi$_curpriv toH* accurately reflect the current processM* privileges. jpi$_procpriv was returning theN* actual current privs(VMS bug?) and I want toM* be certain that if/when this 'bug' is fixedM* that JPI continues to function as expected.(* 17-MAR-1994 V2.1-1O* Only allow basepriority values from 0 thru 16O* and check MAX and MIN for valid combinations.(* 17-MAR-1994 V2.1-1N* Update the privilege keywords to match thoseE* in OpenVMS V6.1, total of 39 privs.(* 16-MAR-1994 V2.1-1K* Increase Software version field on headerD* from 6 to 10 characters in length.(* 15-MAR-1994 V2.1-1K* Display Hardward type on header line 1 as6* ALPHA/VMS or VAX/VMS&* 16-FEB-1994 V2.1L* Changed all display format 2 statements toI* format 1 for DEC COBOL V1.1. Tested andD* built properly on OpenVMS AXP T6.1(* 07-JAN-1994 V2.0-1J* Fixed problem with adding /noterm to the;* remote_dcl_line variable.(* 06-JAN-1994 V2.0-1M* Added code to remove any passwords from theN* DCL command line when a /selection qualifier,* is present&* 03-JAN-1994 V2.0G* Made capable of doing remote lookups.&* 16-OCT-1993 V1.4I* Allow the use of logicals for nodename.L* The nodename can be a logical search list.O* Each parsed nodename counts against the limitN* Increased # of nodename values from 10 to 50(* 8-OCT-1993 V1.3-5O* Issue an implied /swap if an explicate /imageI* is specified. May be overridden with an>* explicate /noswap qualifier.(* 8-OCT-1993 V1.3-4H* Add sort keys for TERMINAL and JOBTYPE(* 8-OCT-1993 V1.3-3P* Allow the specification of non-blank terminalsJ* with a /term=any or /term=all qualifier.(* 21-SEP-1993 V1.3-2>* Added /hw_name functionality(* 20-SEP-1993 V1.3-1?* Added /terminal functionality * 18-SEP-1993 V1.31* Added /jobtype functionality"* 4-DEC-1991 V1.2-1C* Use the CLD to screen out improperly specified<* privilege names on the /priv qualifier. * 3-DEC-1991 V1.2>* Added qualifier /symbols which will allow=* the user to assign symbols equal to each=* line of detail output. These symbols are;* of the form jpi$detail_line_nnnn where:* nnnn is a right justified zero filled;* 4 didget integer beginning with 1. The;* total number of detail lines processed9* is set in the symbol jpi$item_count."* 29-JUL-1991 V1.1-6B* If jpi$state_flag is indicating an outswapped;* process, don't assume the user did not=* specify the /swap qualifier. We may haveB* an outswapped process which has no associated * image name."* 21-JUN-1991 V1.1-59* Immediately after each $getjpi call,=* check the returned length value for each9* item field and load appropriate fill:* characters to that field in the avent7* that no data was returned (as in a:* suspended process). Lack of this code5* This was causing such process to9* 'inherit' values from the previously'* displayed process."* 21-JUN-1991 V1.1-4>* In the event that a process is suspended,=* simply display all available information3* C$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20 d" for that process and continue."* 21-JUN-1991 V1.1-3>* Don't wait for System Resources. Doing so;* was causing the process to enter MWAIT:* under certain circumstances. One such;* was when a remote $getjpi is requested9* and no processes match the selection9* critera and the users' bytlm is less!* than 30,000."* 21-JUN-199 V1.1-2=* Check the IO Status Block on the $getjpi<* call to be SURE that the system service<* returns valid information. Don't simply;* reply on the return call status in R0."* 17-APR-199 V1.1-1B* Code added for backend selection of imagename@* as supplied by the user. Wildcards accepted@* and up to 10 imagenames allowed in standard"* input format."* 16-APR-199 V1.1-0=* Added code to allow backend selection ofA* processes running with specified privileges.A* User can specify a list of privileges (up to?* 10). Privileges can be concatenated with +E* signs if within quotes. (ie. ("sysnam+readall").D* In this case a match occurs only if the process<* has BOTH sysnam and readall privileges.?* This must be a backend selection since the:* $process_scan system service priority3* selection mechanism is broken.=* BTW: This backend selection accomplishesC* more than the $process_scan priority selection=* will when fixed. This backend selection >* allows you to select processes that have 5* a combination of privileges set."* 12-APR-199 V1.0-3?* Don't abort on ss$_nopriv status after the8* $getjpi call. This will allow is to=* match on GROUP processes if the user has&* GROUP priviledge."* 8-APR-199 V1.0-2>* Performance enhancement. If the user does<* not specify any options, don't call the@* $process_scan service. This will also allow>* use to display the swapper process on the * local node."* 06-Apr-199 V1.0-1;* Bug Fix. Check only first byte of mode<* value, was checking the entire value in:* the evaluate statement at parse_mode.<* change static minimun to minimum on the0* default value for priority.)* Now at version 1.0-1D* 22-MAR-199 Ordered the qualifier parsing paragraphs7* to provide improved response time.:* 9-MAR-1991 Changed all parsing to utilize2* CLI routines. Built the CLD file.* P*------------------------------------------------------------------------------*0* user tailored nondynamic system status displayP*------------------------------------------------------------------------------** How to build this program:-* 1) compile a macro module per the following .LIBRARY /sys$library:lib/ $PRVDEF GLOBAL $LNMDEF GLOBAL $PSLDEF GLOBAL $STATEDEF GLOBAL $JPIDEF GLOBAL $PSCANDEF GLOBAL $FSCNDEF GLOBAL .END* 2) compile this programG* 3) then link this program and the macro module object files together.*P*------------------------------------------------------------------------------**8* |----------+--------+--------+------|8* output display | FIELD | OFFSET | LENGTH | DATA |8* format | | | | TYPE |8* |----------+--------+--------+------|N* | PID | 0 | 8 | NU | (NU = Numeric String)8* |----------+--------+--------+------|8* | TERMINAL | 9 | 7 | D |8* |----------+--------+--------+------|8* | USERNAME | 17 | 12 | D |8* |----------+--------+--------+------|8* | PROCESS | 30 | 13 | D |8* |----------+--------+--------+------|8* | IMAGE | 44 | 12 | D |8* |----------+--------+--------+------|H* | PRIB | 57 | 2 | NU | (base priority)8* |----------+--------+--------+------|K* | WSSIZE | 60 | 5 | NU | (working set size)8* |----------+--------+--------+------|8* | STATE | 66 | 5 | D |8* |----------+--------+--------+------|8* | MODE | 72 | 1 | D |8* |----------+--------+--------+------|8* | NODENAME | 74 | 6 | D |8* |----------+--------+--------+------|*P*-------------------------------------------------------------------------------* display sample:P*-------------------------------------------------------------------------------R* Job/Process Information from VAX/VMS V5.3-1 E* From node MYNODE (VAX 8800) at 13-MAR-1991 16:43:33.02 * R* PID Term Username Process Name Image Name PriB Work State M Node R* --------------------------------------------------------------------------------R* 2B201312 ....... FAMI........ DBG$2B202495. DEBUGSHR.... 4 2304 HIB I MYNODER* 2B200C54 ....... FAMI........ DECW$TE_249.. DECW$TERMINA 5 2847 LEF O MYNODER* 2B201A6C TWA75:. FAMI........ FAMI......... TPU......... 4 2560 HIB I MYNODER* 2B202495 ....... FAMI........ FAMI_1....... JPI......... 4 1024 CUR I MYNODE* A* Total of 4 Processes using 8735 pages (4 mb) of physical memory* P*-------------------------------------------------------------------------------ENVIRONMENT DIVISION.CONFIGURATION SECTION.SOURCE-COMPUTER. VAX WITH DEBUGGING MODE.OBJECT-COMPUTER.SPECIAL-NAMES.- LINE-PRINTER IS REMOTE_NODE_SPECIFICATION' SYMBOLIC CHARACTERS null_byte IS 1.INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT DISPLAY-FILE assign to "jpi.lis" ORGANIZATION IS SEQUENTIAL. SELECT REMOTE-FILE assign to "0::""0=JPI"""( ORGANIZATION IS RELATIVE& ACCESS MODE IS DYNAMIC0 RELATIVE KEY IS REMOTE_FILE_KEY.DATA DIVISION. FILE SECTION.FD DISPLAY-FILE# VALUE OF ID IS OUTPUT_FILE.01 FAO_OUTBUF PIC X(80).FD REMOTE-FILE* VALUE OF ID IS REMOTE_FILE_RECORD.#01 REMOTE_RECORD PIC X(255).working-storage section./*01 previous_item_count_string pic x(06)."01 symbol_length comp pic 9(04).(01 previous_item_count comp pic 9(09). 01 jpi_detail_line pic x(255).01 imagename_selection., 03 image_selection_flag comp pic 9(04). 88 image_selection value 1.& 03 select_image occurs 10 times.# 05 select_imagename pic x(128)., 05 select_imagename_length comp pic 9(04).*01 username_symbol_length comp pic 9(09).+01 symbol_counter comp pic 9(09) value 0.:01 outrtn comp pic s9(09) value external lib$put_output.801 inrtn comp pic s9(09) value external lib$get_input.>01 cldrtn comp pic s9(09) value external jpicld.K* The ORDER of priv_stuff is IMPERATIVE. It matches $prvdef in startlet.mlb8* changing the order will corrupt the /priv information.01 priv_stuff. 05 pic x(16) value "CMKRNL". 05 pic x(16) value "CMEXEC". 05 pic x(16) value "SYSNAM". 05 pic x(16) value "GRPNAM".! 05 pic x(16) value "ALLSPOOL". 05 pic x(16) value "DETACH".! 05 pic x(16) value "DIAGNOSE".I 05 pic x(16) value "LOG_IO".U 05 pic x(16) value "GROUP". 05 pic x(16) value "NOACNT".N 05 pic x(16) value "PRMCEB".. 05 pic x(16) value "PRMMBX".: 05 pic x(16) value "PSWAPM".* 05 pic x(16) value "SETPRI".* 05 pic x(16) value "SETPRV".i 05 pic x(16) value "TMPMBX".y 05 pic x(16) value "WORLD". 05 pic x(16) value "MOUNT". 05 pic x(16) value "OPER". 05 pic x(16) value "EXQUOTA". 05 pic x(16) value "NETMBX".  05 pic x(16) value "VOLPRzG$$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20""O".* 05 pic x(16) value "PHY_IO".* 05 pic x(16) value "BUGCHK".  05 pic x(16) value "PRMGBL".  05 pic x(16) value "SYSGBL".  05 pic x(16) value "PFNMAP".  05 pic x(16) value "SHMEM". 05 pic x(16) value "SYSPRV".  05 pic x(16) value "BYPASS".  05 pic x(16) value "SYSLCK".o 05 pic x(16) value "SHARE". 05 pic x(16) value "UPGRADE"." 05 pic x(16) value "DOWNGRADE". 05 pic x(16) value "GRPPRV". 05 pic x(16) value "READALL". 05 pic x(16) value "IMPORT".  05 pic x(16) value "AUDIT".! 05 pic x(16) value "SECURITY". 01 redefines priv_stuff.6> 03 privnames occurs 64 times indexed by index1 pic x(16).,01 privnames_index comp pic 9(09) value 1."01 privname_flag comp pic 9(04). 88 goodprivname value 0. 88 badprivname value 1.s,01 priv_match_flag comp pic 9(04) value 2. 88 priv_match value 1.s# 88 priv_match_all value 2. % 88 priv_nomatch value 0 2 3. ' 88 priv_match_all_fail value 3.g 01 filler. $ 03 parse_privs occurs 5 times.! 05 parse_priv_name pic x(16).% 05 parse_priv_delimiter pic x(01).O( 05 parse_priv_counter comp pic 9(04).01 curpriv_bitmap pic x(64). 01 filler.m 03 occurs 64 times. 05 privbit comp pic 9(09). ) 05 privbit_flag comp pic 9(02) value 0. & 03 privbit_index comp pic 9(09). 01 stuff.@ 03 passnumber comp pic 9(04) value 1.@ 88 passone value 1.@ 88 passtwo value 2.D 03 search_string pic x(03) value "/RC".' 03 options_parsed comp pic 9(09).e( 03 options_counter comp pic 9(09).! 03 command_line pic x(80).n8 03 defaults occurs 20 times pic x(64) value spaces./ 03 defaults_index comp pic 9(09) value 0.1? 03 help_flags comp pic 9(09) value external hlp$m_prompt.t1 03 check_privs_flag comp pic 9(02) value 0.  88 check_privs value 1. 88 dontcheck_privs value 0. 4 03 show_selection_flag comp pic 9(02) value 0. 88 show_selection value 1." 88 dontshow_selection value 0.1 03 jpi_inswap_flag comp pic 9(02) value 0.  88 jpi_noinswap value 0.G 88 jpi_inswap value 1. 1 03 jpi_symbols_flag comp pic 9(02) value 0.o 88 jpi_nosymbols value 0.  88 jpi_symbols value 1.+ 03 sort_flag comp pic 9(02) value 0.  88 dosort value 1. 88 nosort value 0.s- 03 header_flag comp pic 9(02) value 1.  88 header value 1. 88 noheader value 0. . 03 trailer_flag comp pic 9(02) value 1. 88 trailer value 1. 88 notrailer value 0./ 03 summary_flag comp pic 9(02) value 0.o 88 summary value 1. 88 nosummary value 0.; 03 revised_dcl$line pic x(130). ; 03 dcl$line pic x(130). : 03 dcl$line_length comp pic 9(09).: 03 string_length comp pic 9(09).: 03 string_trimmed_length comp pic 9(09).$ 03 cli$get_value pic x(130).- 03 cli$get_value_length comp pic 9(04).u; 03 possible_logical_name pic x(130). : 03 possible_logical_name_length comp pic 9(04).+ 03 logical_name_index comp pic 9(04).a, 03 logical_name_search comp pic 9(04).B 03 node_specified_flag comp pic 9(04) value 0.: 88 node_not_specified value 0.: 88 node_specified value 1.' 03 general_index comp pic 9(04).t( 03 general_index2 comp pic 9(04).) 03 offset_position comp pic 9(09). 0 03 file_output_flag comp pic 9(04) value 2. 88 file_output value 1.  88 display_output value 2.SH 03 pscan$m_wildcard comp pic 9(09) value external pscan$m_wildcard.? 03 pscan$m_eql comp pic 9(09) value external pscan$m_eql. ? 03 pscan$m_geq comp pic 9(09) value external pscan$m_geq. ? 03 pscan$m_neq comp pic 9(09) value external pscan$m_neq. ? 03 pscan$m_leq comp pic 9(09) value external pscan$m_leq. = 03 pscan$m_or comp pic 9(09) value external pscan$m_or. Q 03 pscan$m_case_blind comp pic 9(09) value external pscan$m_case_blind.1( 03 substring_index comp pic 9(09)." 03 dummy_string pic x(128).' 03 dummy_longword comp pic 9(09). ) 03 nodename_wildcard comp pic 9(09). 2 03 remote_wssize pic 9(05).- 03 total_wssize comp pic 9(09) value 0. - 03 total_memory comp pic 9(09) value 0.l1 03 displayed_process_counter comp pic 9(09). < 03 pscan$_getjpi_buffer_size comp pic 9(09) value 2000.01 sort_key_descriptions. 03 username_sort_key.0 05 comp pic 9(04) value external dsc$k_dtype_t.3 05 username_sort_key_order comp pic 9(04) value 0.  05 comp pic 9(04) value 17. 05 comp pic 9(04) value 12. 03 process_sort_key. 0 05 comp pic 9(04) value external dsc$k_dtype_t.2 05 process_sort_key_order comp pic 9(04) value 0. 05 comp pic 9(04) value 30. 05 comp pic 9(04) value 13. 03 nodename_sort_key.0 05 comp pic 9(04) value external dsc$k_dtype_t.3 05 nodename_sort_key_order comp pic 9(04) value 0.  05 comp pic 9(04) value 74. 05 comp pic 9(04) value 06. 03 imagname_sort_key.0 05 comp pic 9(04) value external dsc$k_dtype_t.3 05 imagname_sort_key_order comp pic 9(04) value 0.f 05 comp pic 9(04) value 44. 05 comp pic 9(04) value 12. 03 prib_sort_key.0 05 comp pic 9(04) value external dsc$k_dtype_t./ 05 prib_sort_key_order comp pic 9(04) value 0._ 05 comp pic 9(04) value 57. 05 comp pic 9(04) value 02. 03 state_sort_key. 0 05 comp pic 9(04) value external dsc$k_dtype_t.0 05 state_sort_key_order comp pic 9(04) value 0. 05 comp pic 9(04) value 66. 05 comp pic 9(04) value 05. 03 term_sort_key.0 05 comp pic 9(04) value external dsc$k_dtype_t./ 05 term_sort_key_order comp pic 9(04) value 0.  05 comp pic 9(04) value 09. 05 comp pic 9(04) value 07. 03 wssize_sort_key.0 05 comp pic 9(04) value external dsc$k_dtype_t.1 05 wssize_sort_key_order comp pic 9(04) value 0.  05 comp pic 9(04) value 60. 05 comp pic 9(04) value 05. 03 pid_sort_key.j0 05 comp pic 9(04) value external dsc$k_dtype_t.. 05 pid_sort_key_order comp pic 9(04) value 0. 05 comp pic 9(04) value 00. 05 comp pic 9(04) value 08. 03 mode_sort_key.0 05 comp pic 9(04) value external dsc$k_dtype_t./ 05 mode_sort_key_order comp pic 9(04) value 0.1 05 comp pic 9(04) value 72. 05 comp pic 9(04) value 01.01 sort_key_buffer.* 03 sort_keys comp pic 9(04) value 1.; 03 sort_key occurs 1 to 8 times depending on sort_keys.e$ 05 filler1 comp pic 9(04).$ 05 filler2 comp pic 9(04).$ 05 filler3 comp pic 9(04).$ 05 filler4 comp pic 9(04).201 sort_longest_record comp pic 9(04) value 80.01 filescan-item-list. 02 item-filescan-imagname.t5 03 filescan-imagname_length comp pic 9(04). 5 03 comp pic 9(04) value external fscn$_name.c5 03 filescan-imagname_address comp pic 9(09). # 02 comp pic 9(09) value 0.01 pscan-item-list. 02 item-getjpi_buffer_size.% 03 comp pic 9(04) value 0.sF 03 comp pic 9(04) value external pscan$_getjpi_buffer_size.G 03 pointer value reference pscan$_getjpi_buffer_size. % 03 comp pic 9(09) value 0.h, 02 item-pscan-prib-min occurs 63 times.& 03 comp pic 9(04) value 0.8 03 comp pic 9(04) value external pscan$_prib./ 03 prib_value comp pic 9(09) value 4. F 03 pscan_prib_flag comp pic 9(09) value external pscan$m_or.* 02 item-pscan-prcnam occurs 10 times.8 03 pscan_prcnam_length comp pic 9(04) value 1.: 03 comp pic 9(04) value external pscan$_prcnam.0 03 pscan_prcnam_pointer pointer.G 03 pscan_prcnam_flag comp pic 9(09) value external pscan$m_or.s( 02 item-pscan-term occurs 10 times.6 03 pscan_term_length comp pic 9(04) value 1.< 03 comp pic 9(04) value external pscan$_terminal.0 03 pscan_term_pointer pointer.E 03 pscan_term_flag comp pic 9(09) value external pscan$m_or. * 02 item-pscan-hwname occurs 10 times.8 03 pscan_hwname_length comp pic 9(04) value 1.; 03 comp pic 9(04) value external pscan$_hw_name. 0 03 pscan_hwname_pointer pointer.G 03 pscan_hwname_flag comp pic 9(09) value external pscan$m_or.  02 it($JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20A"3em-pscan-mode.% 03 comp pic 9(04) value 0.08 03 comp pic 9(04) value external pscan$_mode.I 03 pscan_mode1 comp pic 9(09) value external jpi$k_interactive.E 03 pscan_mode_flag comp pic 9(09) value external pscan$m_or. % 03 comp pic 9(04) value 0. 8 03 comp pic 9(04) value external pscan$_mode.C 03 pscan_mode2 comp pic 9(09) value external jpi$k_batch. E 03 pscan_mode_flag comp pic 9(09) value external pscan$m_or.m% 03 comp pic 9(04) value 0. 8 03 comp pic 9(04) value external pscan$_mode.D 03 pscan_mode3 comp pic 9(09) value external jpi$k_network.E 03 pscan_mode_flag comp pic 9(09) value external pscan$m_or.c% 03 comp pic 9(04) value 0. 8 03 comp pic 9(04) value external pscan$_mode.C 03 pscan_mode4 comp pic 9(09) value external jpi$k_other. F 03 pscan_mode_flag comp pic 9(09) value external pscan$m_eql. 02 item-pscan-jobtype.v% 03 comp pic 9(04) value 0. ; 03 comp pic 9(04) value external pscan$_jobtype.uE 03 pscan_jobtype1 comp pic 9(09) value external jpi$k_local.H 03 pscan_jobtype_flag comp pic 9(09) value external pscan$m_or.% 03 comp pic 9(04) value 0.-; 03 comp pic 9(04) value external pscan$_jobtype.hF 03 pscan_jobtype2 comp pic 9(09) value external jpi$k_dialup.H 03 pscan_jobtype_flag comp pic 9(09) value external pscan$m_or.% 03 comp pic 9(04) value 0.i; 03 comp pic 9(04) value external pscan$_jobtype.nF 03 pscan_jobtype3 comp pic 9(09) value external jpi$k_remote.H 03 pscan_jobtype_flag comp pic 9(09) value external pscan$m_or.% 03 comp pic 9(04) value 0. ; 03 comp pic 9(04) value external pscan$_jobtype.cE 03 pscan_jobtype4 comp pic 9(09) value external jpi$k_batch.lH 03 pscan_jobtype_flag comp pic 9(09) value external pscan$m_or.% 03 comp pic 9(04) value 0.a; 03 comp pic 9(04) value external pscan$_jobtype.sG 03 pscan_jobtype5 comp pic 9(09) value external jpi$k_network.H 03 pscan_jobtype_flag comp pic 9(09) value external pscan$m_or.% 03 comp pic 9(04) value 0.-; 03 comp pic 9(04) value external pscan$_jobtype.eH 03 pscan_jobtype6 comp pic 9(09) value external jpi$k_detached.I 03 pscan_jobtype_flag comp pic 9(09) value external pscan$m_eql.o, 02 item-pscan-username occurs 10 times.9 03 pscan_username_length comp pic 9(04) value 1.L< 03 comp pic 9(04) value external pscan$_username.+ 03 pscan_username_pointer pointer. I 03 pscan_username_flag comp pic 9(09) value external pscan$m_or.e, 02 item-pscan-nodename occurs 50 times.9 03 pscan_nodename_length comp pic 9(04) value 1. < 03 comp pic 9(04) value external pscan$_nodename.+ 03 pscan_nodename_pointer pointer.I 03 pscan_nodename_flag comp pic 9(09) value external pscan$m_or. % 02 comp pic 9(09) value 0.01 trnlnm-item-list.D 02 item-trnlnm.$ 03 comp pic 9(04) value 4.5 03 comp pic 9(04) value external lnm$_index. 7 03 pointer value reference lnm$index. > 03 pointer value reference lnm$index_length.& 03 comp pic 9(04) value 255.6 03 comp pic 9(04) value external lnm$_string.: 03 pointer value reference trnlnm$_name.A 03 pointer value reference trnlnm$_name_length.# 02 comp pic 9(09) value 0. 01 getsyi-item-list.  02 item-getsyi-nodename.-$ 03 comp pic 9(04) value 6.8 03 comp pic 9(04) value external syi$_nodename.= 03 pointer value reference getsyi_nodename. D 03 pointer value reference getsyi_nodename_length. 02 item-getsyi-version.$ 03 comp pic 9(04) value 8.7 03 comp pic 9(04) value external syi$_version. < 03 pointer value reference getsyi_version.C 03 pointer value reference getsyi_version_length.-# 02 item-getsyi-cluster-member. $ 03 comp pic 9(04) value 1.> 03 comp pic 9(04) value external syi$_cluster_member.C 03 pointer value reference getsyi_cluster_member.-J 03 pointer value reference getsyi_cluster_member_length. 02 item-getsyi-cpu.$ 03 comp pic 9(04) value 4.3 03 comp pic 9(04) value external syi$_cpu.18 03 pointer value reference getsyi_cpu.? 03 pointer value reference getsyi_cpu_length.  02 item-getsyi-hw_name.% 03 comp pic 9(04) value 31.-7 03 comp pic 9(04) value external syi$_hw_name.-< 03 pointer value reference getsyi_hw_name.C 03 pointer value reference getsyi_hw_name_length..# 02 comp pic 9(09) value 0.201 getjpi-item-list.B 02 item-jpi$control_flags..$ 03 comp pic 9(04) value 4.D 03 comp pic 9(04) value external jpi$_getjpi_control_flags.? 03 pointer value reference jpi_control_flags. F 03 pointer value reference jpi_control_flags_length. 02 item-username.% 03 comp pic 9(04) value 12.8 03 comp pic 9(04) value external jpi$_username.= 03 pointer value reference getjpi_username.T= 03 pointer value reference username_length.b 02 item-prcnam.% 03 comp pic 9(04) value 15.I6 03 comp pic 9(04) value external jpi$_prcnam.4 03 pointer value reference prcnam.; 03 pointer value reference prcnam_length.  02 item-nodename.$ 03 comp pic 9(04) value 6.8 03 comp pic 9(04) value external jpi$_nodename.= 03 pointer value reference getjpi_nodename.C= 03 pointer value reference nodename_length.C 02 item-pid.O$ 03 comp pic 9(04) value 4.3 03 comp pic 9(04) value external jpi$_pid.(1 03 pointer value reference pid.o8 03 pointer value reference pid_length. 02 item-jpi$terminal.$ 03 comp pic 9(04) value 7.8 03 comp pic 9(04) value external jpi$_terminal.: 03 pointer value reference jpi$terminal.A 03 pointer value reference jpi$terminal_length.e 02 item-imagname.& 03 comp pic 9(04) value 128.8 03 comp pic 9(04) value external jpi$_imagname.6 03 pointer value reference imagname.= 03 pointer value reference imagname_length.  02 item-prib.$ 03 comp pic 9(04) value 4.4 03 comp pic 9(04) value external jpi$_prib.2 03 pointer value reference prib.9 03 pointer value reference prib_length.a 02 item-wssize.$ 03 comp pic 9(04) value 4.6 03 comp pic 9(04) value external jpi$_wssize.4 03 pointer value reference wssize.; 03 pointer value reference wssize_length.i 02 item-state..$ 03 comp pic 9(04) value 4.5 03 comp pic 9(04) value external jpi$_state.P< 03 pointer value reference jpi$state_flag.C 03 pointer value reference jpi$state_flag_length.u 02 item-jpi$mode.$ 03 comp pic 9(04) value 4.4 03 comp pic 9(04) value external jpi$_mode.; 03 pointer value reference jpi$mode_flag.B 03 pointer value reference jpi$mode_flag_length. 02 item-jpi$curpriv.H$ 03 comp pic 9(04) value 8.7 03 comp pic 9(04) value external jpi$_curpriv. > 03 pointer value reference jpi$curpriv_flag.E 03 pointer value reference jpi$curpriv_flag_length.S# 02 comp pic 9(09) value 0.E01 descriptors.6R 03 jpi_version pic x(25) value "JPI V2.1-1, March 1994".# 03 filescan-imagname pic x(128).. 03 fao_jpi_dline_directives pic x(128) value "!XL !7 !12 !13 !12 !2UL !5UL !5AS !1AS !6AS".w 03 fao_jpi_hline1_directives pic x(068) value "!/!19* Job/Process Information from !0UL!128%CALPHA!%EVAX!%F/VMS !AS". T 03 fao_jpi_hline2_directives pic x(033) value "!13* From node !AS (!AS) at !%D!/". 03 fao_jpi_hline3_directives pic x(128) value "PID Term Username Process Name Image Name PriB Work State M Node".n8 03 fao_jpi_hline4_directives pic x(005) value "!80*-".y 03 fao`M$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20h"D_jpi_tline1_directives pic x(070) value "!/Total of !UL Processes using !UL pages (!UL mb) of physical memory!/". = 03 fao_jpi_sline_directives pic x(011) value "!14AS !60AS".p 03 fao_outlen comp pic 9(04).2 03 saved_fao_outbuf pic x(80). 03 output_file pic x(128).$ 03 remote_file_record pic x(128). 03 remote_file_key pic 9(04).! 03 previous_pid comp pic 9(09).  03 pid comp pic 9(09). 03 pid_length comp pic 9(09).& 03 pidctx comp pic s9(09) value -1. 03 jpi$terminal pic x(07). ( 03 jpi$terminal_length comp pic 9(09). 03 imagname pic x(128). $ 03 imagname_length comp pic 9(09).! 03 prib comp pic 9(09). ! 03 prib_length comp pic 9(09).9 03 wssize comp pic 9(09)." 03 wssize_length comp pic 9(09).# 03 jpi$state_flag comp pic 9(09).3* 03 jpi$state_flag_length comp pic 9(09).<* job scheduler states from $statedef in sys$library:lib.mlb< 03 sch$c_colpg comp pic 9(09) value external sch$c_colpg.< 03 sch$c_mwait comp pic 9(09) value external sch$c_mwait.8 03 sch$c_cef comp pic 9(09) value external sch$c_cef.8 03 sch$c_pfw comp pic 9(09) value external sch$c_pfw.8 03 sch$c_lef comp pic 9(09) value external sch$c_lef.: 03 sch$c_lefo comp pic 9(09) value external sch$c_lefo.8 03 sch$c_hib comp pic 9(09) value external sch$c_hib.: 03 sch$c_hibo comp pic 9(09) value external sch$c_hibo.: 03 sch$c_susp comp pic 9(09) value external sch$c_susp.< 03 sch$c_suspo comp pic 9(09) value external sch$c_suspo.8 03 sch$c_fpg comp pic 9(09) value external sch$c_fpg.8 03 sch$c_com comp pic 9(09) value external sch$c_com.: 03 sch$c_como comp pic 9(09) value external sch$c_como.8 03 sch$c_cur comp pic 9(09) value external sch$c_cur.*8G 03 jpi$k_interactive comp pic 9(09) value external jpi$k_interactive.i< 03 jpi$k_local comp pic 9(09) value external jpi$k_local.= 03 jpi$k_dialup comp pic 9(09) value external jpi$k_dialup. = 03 jpi$k_remote comp pic 9(09) value external jpi$k_remote. < 03 jpi$k_batch comp pic 9(09) value external jpi$k_batch.? 03 jpi$k_network comp pic 9(09) value external jpi$k_network..A 03 jpi$k_detached comp pic 9(09) value external jpi$k_detached.l< 03 jpi$k_other comp pic 9(09) value external jpi$k_other. 03 jpi$state pic x(05). " 03 jpi$mode_flag comp pic 9(09).) 03 jpi$mode_flag_length comp pic 9(09).s% 03 jpi$curpriv_flag comp pic 9(18).e 03 redefines jpi$curpriv_flag.) 05 jpi$curpriv_flag1 comp pic 9(09).f) 05 jpi$curpriv_flag2 comp pic 9(09).8, 03 jpi$curpriv_flag_length comp pic 9(18).$ 03 jpi$mode_length comp pic 9(09).$ 03 jpi$mode pic x(01) value "*".+ 03 getsyi_cluster_member comp pic 9(09).c1 03 getsyi_cluster_member_length comp pic 9(09).a+ 03 getsyi_cpu comp pic 9(09).i( 03 getsyi_cpu_length comp pic 9(09). 03 getsyi_version pic x(10).x* 03 getsyi_version_length comp pic 9(09). 03 getsyi_hw_name pic x(31).p* 03 getsyi_hw_name_length comp pic 9(09). 03 getjpi_username pic x(12). 03 last_username pic x(64).) 03 last_username_length comp pic 9(09). " 03 prib_minimum comp pic s9(09)." 03 prib_maximum comp pic s9(09).9 03 pscan_username pic x(64) occurs 10 times value "*".s$ 03 username_length comp pic 9(09).6 03 pscan_term pic x(08) occurs 10 times value "*". 03 last_term pic x(64). % 03 last_term_length comp pic 9(09).m7 03 pscan_hwname pic x(64) occurs 10 times value "*".o 03 last_hwname pic x(128).' 03 last_hwname_length comp pic 9(09).3 03 last_prcnam pic x(64).v' 03 last_prcnam_length comp pic 9(09).97 03 pscan_prcnam pic x(16) occurs 10 times value "*".c 03 prcnam pic x(15)." 03 prcnam_length comp pic 9(09).! 03 last_jobtype comp pic 9(09).. 03 last_mode comp pic 9(09).  03 last_flag comp pic 9(09).$ 03 last_nodename pic x(64).) 03 last_nodename_length comp pic 9(09).p/ 03 pscan_nodename pic x(64) occurs 50 times. 03 getsyi_nodename pic x(06).+ 03 getsyi_nodename_length comp pic 9(09).0 03 getjpi_nodename pic x(06).$ 03 nodename_length comp pic 9(09).2 03 number_of_remote_nodes comp pic 9(04).) 03 remote_nodes occurs 25 times.rG 05 remote_nodename pic x(64) value spaces.: 05 remote_nodename_length comp pic 9(04).6 03 number_of_remote_clusters comp pic 9(04)., 03 remote_clusters occurs 25 times.F 05 remote_clustername pic x(64) value spaces.9 05 remote_cluster_length comp pic 9(04).): 03 lnm$index comp pic 9(09) value 0.2 03 lnm$index_length comp pic 9(09).3 03 trnlnm$_name pic x(255). 2 03 trnlnm$_name_length comp pic 9(09).5 03 lib$find_file_context comp pic 9(09) value zero.o 03 foreign_string pic x(80).p* 03 foreign_string_length comp pic 9(04). 01 filler.92 03 remaining_length comp pic 9(09).2 03 exit_perform comp pic 9(09).2 03 starting_pos comp pic 9(09).2 03 receiving_pos comp pic 9(09).2 03 password_lit_written comp pic 9(04).2 03 string_offset comp pic 9(09).\01 remote_dcl_line pic x(130) value "jpi/notrailer/noheader/nosymbols".;01 remote_dcl_line_count comp pic 9(09) value 32.c201 temp_string pic x(80).201 temp_string_count comp pic 9(04).A01 remote_qualifier_present_flag comp pic 9(04) value 0.: 88 dont_build_remote_dcl_line value 0.: 88 build_remote_dcl_line value 1.:01 activity_type comp pic 9(09).: 88 open_file value 1.: 88 close_file value 2.: 88 read_record value 3.: 88 write_record value 4.#01 call_status comp pic s9(09). , 88 ss$_nopriv value external ss$_nopriv.4 88 ss$_nomorenode value external ss$_nomorenode.4 88 ss$_nomoreproc value external ss$_nomoreproc.2 88 ss$_endoffile value external ss$_endoffile.2 88 sor$_badlogic value external sor$_badlogic.0 88 sor$_bad_key value external sor$_bad_key.0 88 sor$_bad_lrl value external sor$_bad_lrl.4 88 sor$_bad_merge value external sor$_bad_merge.2 88 sor$_bad_type value external sor$_bad_type.2 88 sor$_enddiags value external sor$_enddiags.4 88 sor$_insvirmem value external sor$_insvirmem.4 88 sor$_keyambinc value external sor$_keyambinc.0 88 sor$_key_len value external sor$_key_len.2 88 sor$_lrl_miss value external sor$_lrl_miss.2 88 sor$_nodupexc value external sor$_nodupexc.0 88 sor$_num_key value external sor$_num_key.2 88 sor$_rtnerror value external sor$_rtnerror.0 88 sor$_sort_on value external sor$_sort_on.4 88 sor$_stableexc value external sor$_stableexc.2 88 sor$_syserror value external sor$_syserror.4 88 sor$_undoption value external sor$_undoption.0 88 str$_nomatch value external str$_nomatch., 88 str$_match value external str$_match.01 jpi$_control_flags./ 03 jpi_control_flags_length comp pic 9(09)._) 03 jpi_control_flags comp pic 9(09).aS 03 jpi$m_no_target_inswap comp pic 9(09) value external jpi$m_no_target_inswap. M 03 jpi$m_no_target_ast comp pic 9(09) value external jpi$m_no_target_ast._Z 03 jpi$m_ignore_target_status comp pic 9(09) value external jpi$m_ignore_target_status.01 cli$_status comp pic 9(09)._. 88 CLI$_ABSENT value external CLI$_ABSENT.0 88 CLI$_NEGATED value external CLI$_NEGATED.. 88 CLI$_LOCNEG value external CLI$_LOCNEG.0 88 CLI$_PRESENT value external CLI$_PRESENT.4 88 CLI$_DEFAULTED value external CLI$_DEFAULTED.. 88 CLI$_CONCAT value external CLI$_CONCAT.0 88 CLI$_LOCPRES value external CLI$_LOCPRES., 88 CLI$_COMMA value external CLI$_COMMA.. 88 CLI$_NORMAL value external CLI$_NORMAL.01 cli_values.; 03 CLI_ABSENT comp pic 9(09) value external CLI$_ABSENT. = 03 CLI_NEGATED comp pic 9(09) value external CLI$_NEGATED.0; 03 CLI_LOCNEG comp pic 9(09) value external CLI$_LOCNEG.p= 03 CLI_PRESENT comp pic 9(09) value external CLI$_PRESENT.fA 03 CLI_DEFAULTED comp pic 9(09) value external CLI$_DEFAULTED.p; 03 CLI_CONCAT comp pic 9(09) value external CLI$_CONCAT.a= 03 CLI_LOCPRES comp pic 9(09) value external CLI$_LOCPRES.x: 03 CLI_COMMA comp pic 9(09) value external CLI$_COMMA.; 03 CLI_NORMAL comp pic 9(09) value external CLI$_NORMAL.v*01 calling_m)$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20x"Uode_flag comp pic 9(09).A 88 called_from_interactive value external jpi$k_interactive. ; 88 called_from_local value external jpi$k_local.< 88 called_from_dialup value external jpi$k_dialup.< 88 called_from_remote value external jpi$k_remote.; 88 called_from_batch value external jpi$k_batch. = 88 called_from_network value external jpi$k_network.> 88 called_from_detached value external jpi$k_detached.; 88 called_from_other value external jpi$k_other. 01 system_service_flags.% 03 efn comp pic 9(09) value 0.a 03 iosb comp pic 9(18). 03 redefines iosb.( 05 iosb_status comp pic s9(09)./ 05 comp pic 9(09).p01 status_codes.B 03 status$normal comp pic s9(09) value external ss$_normal.B 03 status$nopriv comp pic s9(09) value external ss$_nopriv.G 03 status$nomorenode comp pic s9(09) value external ss$_nomorenode.oG 03 status$nomoreproc comp pic s9(09) value external ss$_nomoreproc.vB 03 status$exbytlm comp pic s9(09) value external ss$_exbytlm.F 03 status$suspended comp pic s9(09) value external ss$_suspended.O******************************************************************************* PROCEDURE DIVISION.0O*******************************************************************************uMAIN-PROGRAM SECTION.. setup_things.s!* display "" erase screen.u call "sys$setrwm" using by value 1 giving call_status. perform check_call_status.r call "lib$get_ef" using by reference efn giving call_status.check_operating_mode.n call "sys$getjpiw" usingr by value efn omitted omittedr! by reference getjpi-item-listr by reference iosb2 omittedn omitteds giving call_status. perform check_call_status.p0 move jpi$mode_flag to calling_mode_flag.get_system_information.n call "sys$getsyi" using omittedr omitted omitteda! by reference getsyi-item-liste omitteda omitted omitted  giving call_status.! move 0 to getsyi_version_length.mE inspect getsyi_version tallying getsyi_version_length for characters0 before initial space.=* if called from network, open the link and grab the dcl line  if called_from_network then! move 1 to activity_typep call "jpibas" - using by descriptor "sys$net"r0 by reference activity_type. by reference call_status end-call* if call_status is not equal to 1 then% perform check_call_statuso stop run end-if! move 3 to activity_typev call "jpibas"m3 using by descriptor remote_dcl_liney0 by reference activity_type. by reference call_status end-call* if call_status is not equal to 1 then% perform check_call_status  stop run end-if$ call "cli$dcl_parse" using= by descriptor remote_dcl_liney/ by value cldrtna' omittede' omitted ' omittedl giving call_status end-call end-if._ call "cli$get_value" using2 by descriptor "$line"  by descriptor cli$get_value % by reference cli$get_value_lengthy giving cli$_status.< inspect cli$get_value tallying options_counter for all "/".F string cli$get_value(1:cli$get_value_length) delimited by size$ "/" delimited by size into dcl$line.5 move cli$get_value_length to dcl$line_length. setup_prib_defaults.) move pscan$m_eql to pscan_prib_flag(63).nS perform with test after varying general_index from 1 by 1 until general_index = 63e1 move general_index to prib_value(general_index)r end-perform. setup_swap_defaults.Q compute jpi_control_flags = jpi$m_no_target_inswap + jpi$m_ignore_target_status. setup_sort_defaults.' move username_sort_key to sort_key(1).setup_username_defaults.2 move pscan$m_wildcard to pscan_username_flag(10).] perform with test after varying general_index from 1 by 1 until general_index is equal to 10rZ set pscan_username_pointer(general_index) to reference of pscan_username(general_index) end-perform. setup_nodename_defaults.] perform with test after varying general_index from 1 by 1 until general_index is equal to 50ca set pscan_nodename_pointer(general_index) to reference of pscan_nodename(general_index)38 move getsyi_nodename to pscan_nodename(general_index)F move getsyi_nodename_length to pscan_nodename_length(general_index) end-perform.e# move 0 to pscan_nodename_flag(50). setup_prcnam_defaults.] perform with test after varying general_index from 1 by 1 until general_index is equal to 10 ] set pscan_prcnam_pointer(general_index) to reference of pscan_prcnam(general_index) end-perform. 0 move pscan$m_wildcard to pscan_prcnam_flag(10).setup_term_defaults.] perform with test after varying general_index from 1 by 1 until general_index is equal to 10 Y set pscan_term_pointer(general_index) to reference of pscan_term(general_index)v end-perform.j. move pscan$m_wildcard to pscan_term_flag(10).setup_hwname_defaults.] perform with test after varying general_index from 1 by 1 until general_index is equal to 109] set pscan_hwname_pointer(general_index) to reference of pscan_hwname(general_index) end-perform. 0 move pscan$m_wildcard to pscan_hwname_flag(10).P********************************************************************************parse_remote_nodename.E if called_from_network then go to parse_remote_nodename_exit. = if options_parsed = options_counter then go to process_scan.  call "cli$present" usinga by descriptor "rnodename"0 giving cli$_status. evaluate cli$_present$ when true add 1 to options_parsedG move 1 to remote_qualifier_present_flagt. when false go to parse_remote_nodename_exit end-evaluate.9 move 0 to general_index.parse_remote_nodename_1. add 1 to general_index..R if general_index is greater than 25 then go to parse_remote_nodename_exit.parse_remote_nodename_2.( evaluate logical_name_search = 1 when true% call "sys$trnlnm" using  omittedg4 by descriptor "LNM$FILE_DEV"[ by descriptor possible_logical_name(1:possible_logical_name_length)3 omittedp5 by reference trnlnm-item-listn giving call_status= evaluate trnlnm$_name_length = 0, lnm$index > 0  when false anyE( add 1 to lnm$indexO move trnlnm$_name(1:trnlnm$_name_length) to cli$get_valueaF move trnlnm$_name_length to cli$get_value_lengthC inspect cli$get_value converting ":" to spaceS when true truee) move 0 to lnm$indexr3 move 0 to logical_name_searchA3 go to parse_remote_nodename_2  when true false) move 0 to lnm$index13 move 0 to logical_name_search 8 end-evaluate  when false5( call "cli$get_value" using1 by descriptor "rnodename"s by descriptor cli$get_value$ by reference cli$get_value_length giving cli$_status" evaluate cli$_absent when trueF compute number_of_remote_nodes = general_index - 14 go to parse_remote_nodename_exit when false 1 move 1 to logical_name_searchp? move cli$get_value to possible_logical_name.M move cli$get_value_length to possible_logical_name_length 1 go to parse_remote_nodename_2  end-evaluate end-evaluate. = move cli$get_value to remote_nodename(general_index).0K move cli$get_value_length to remote_nodename_length(general_index).j& go to parse_remote_nodename_1.parse_remote_nodename_exit.a exit.sP********************************************************************************parse_remote_cluster.cD K0a$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20"f if called_from_network then go to parse_remote_cluster_exit.= if options_parsed = options_counter then go to process_scan.t call "cli$present" usingc by descriptor "rcluster" giving cli$_status. evaluate cli$_present$ when true add 1 to options_parsedG move 1 to remote_qualifier_present_flag - when false go to parse_remote_cluster_exitc end-evaluate.a move 0 to general_index.& move 0 to logical_name_search.parse_remote_cluster_1.f add 1 to general_index. Q if general_index is greater than 25 then go to parse_remote_cluster_exit.mparse_remote_cluster_2.x( evaluate logical_name_search = 1 when true% call "sys$trnlnm" usingi omittedj4 by descriptor "LNM$FILE_DEV"[ by descriptor possible_logical_name(1:possible_logical_name_length)0 omittedl5 by reference trnlnm-item-list9 giving call_status= evaluate trnlnm$_name_length = 0, lnm$index > 0. when false any9( add 1 to lnm$indexO move trnlnm$_name(1:trnlnm$_name_length) to cli$get_value0F move trnlnm$_name_length to cli$get_value_lengthC inspect cli$get_value converting ":" to spacej when true trueu) move 0 to lnm$indexu3 move 0 to logical_name_searche2 go to parse_remote_cluster_2 when true false) move 0 to lnm$indexm3 move 0 to logical_name_searchp8 end-evaluate  when falseg( call "cli$get_value" using0 by descriptor "rcluster" by descriptor cli$get_value$ by reference cli$get_value_length giving cli$_status" evaluate cli$_absent when trueI compute number_of_remote_clusters = general_index - 1_3 go to parse_remote_cluster_exit6 when false"1 move 1 to logical_name_searchn? move cli$get_value to possible_logical_namecM move cli$get_value_length to possible_logical_name_lengtho0 go to parse_remote_cluster_2 end-evaluate end-evaluate.@ move cli$get_value to remote_clustername(general_index).J move cli$get_value_length to remote_cluster_length(general_index).% go to parse_remote_cluster_1. parse_remote_cluster_exit. exit.9P********************************************************************************parse_nodename. = if options_parsed = options_counter then go to process_scan.n call "cli$present" using0 by descriptor "nodename" giving cli$_status. evaluate cli$_present$ when true add 1 to options_parsed= move 1 to node_specified_flagbE move getsyi_nodename to last_nodenametS move getsyi_nodename_length to last_nodename_length & when false call "cli$present" using$ by descriptor "cluster"2 giving cli$_status if not cli$_present then add 1 to defaults_indexe+ string "/NODENAME=" delimited by size ' getsyi_nodename delimited by sizec# into defaults(defaults_index) ! go to parse_nodename_exit end-if= move 1 to node_specified_flag ! move "*" to pscan_nodename(1)3& move 1 to pscan_nodename_length(1)B compute pscan_nodename_flag(1) = pscan$m_wildcard + pscan$m_or go to parse_nodename_exitr end-evaluate. move 0 to general_index.parse_nodename_1.n add 1 to general_index. K if general_index is greater than 50 then go to parse_nodename_exit. parse_nodename_2.9( evaluate logical_name_search = 1 when true% call "sys$trnlnm" using( omitted 4 by descriptor "LNM$FILE_DEV"[ by descriptor possible_logical_name(1:possible_logical_name_length)  omitted15 by reference trnlnm-item-liste giving call_status= evaluate trnlnm$_name_length = 0, lnm$index > 09 when false anyl( add 1 to lnm$indexO move trnlnm$_name(1:trnlnm$_name_length) to cli$get_value F move trnlnm$_name_length to cli$get_value_lengthC inspect cli$get_value converting ":" to space W perform parse_nodename_wildcard thru parse_nodename_wildcard_exite when true true ) move 0 to lnm$indexi3 move 0 to logical_name_searchi, go to parse_nodename_2 when true false) move 0 to lnm$index$3 move 0 to logical_name_search_W perform parse_nodename_wildcard thru parse_nodename_wildcard_exit8 end-evaluate  when falsex( call "cli$get_value" using0 by descriptor "nodename" by descriptor cli$get_value$ by reference cli$get_value_length giving cli$_status" evaluate cli$_absent when true7 move last_nodename to cli$get_valuetE move last_nodename_length to cli$get_value_length. when false 1 move 1 to logical_name_searche? move cli$get_value to possible_logical_nameoM move cli$get_value_length to possible_logical_name_lengthr* go to parse_nodename_2 end-evaluate end-evaluate.s, move cli$get_value to last_nodename.: move cli$get_value_length to last_nodename_length.< move cli$get_value to pscan_nodename(general_index).J move cli$get_value_length to pscan_nodename_length(general_index).< add last_flag to pscan_nodename_flag(general_index). go to parse_nodename_1. parse_nodename_wildcard. move 0 to last_flag.- call "str$find_first_substring" usingnC by descriptor cli$get_value(1:cli$get_value_length)N+ by reference dummy_longwordG. by reference nodename_wildcard! by descriptor "%"! by descriptor "*"C giving call_status.U" evaluate nodename_wildcard when 1A2 when 2 add pscan$m_wildcard to last_flag end-evaluate.Pparse_nodename_wildcard_exit.x exit._parse_nodename_exit. exit.eP********************************************************************************parse_username.= if options_parsed = options_counter then go to process_scan. call "cli$present" using( by descriptor "username" giving cli$_status. evaluate cli$_present$ when true add 1 to options_parsed% when false add 1 to defaults_indexD2 move "/USERNAME=*" to defaults(defaults_index) go to parse_username_exit_ end-evaluate.L if dont_build_remote_dcl_line then go to parse_username_string_exit. move 1 to starting_pos.Mparse_username_string.! call "str$position" usingm. by descriptor dcl$line* by descriptor "/U"2 by reference starting_pos giving call_status.e evaluate call_status = 0 when true continue> when false compute starting_pos = call_status + 13 go to parse_username_stringe end-evaluate.u' move zero to temp_string_count._0 inspect dcl$line(starting_pos:) tallying> temp_string_count for characters before initial "/".% subtract 1 from starting_pos.m# add 1 to temp_string_count.c) evaluate remote_dcl_line = spaces X when true move dcl$line(starting_pos:temp_string_count) to remote_dcl_lineG move temp_string_count to remote_dcl_line_count$Y when false string remote_dcl_line(1:remote_dcl_line_count) delimited by size$Y dcl$line(starting_pos:temp_string_count) delimited by sizei/ &$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20ԛ"w into remote_dcl_linesF add temp_string_count to remote_dcl_line_count end-evaluate.9parse_username_string_exit.n] perform with test after varying general_index from 1 by 1 until general_index is equal to 10D call "cli$get_value" using* by descriptor "username" by descriptor cli$get_valueu% by reference cli$get_value_lengths giving cli$_status  evaluate cli$_absents1 when true move last_username to cli$get_value.4 move last_username_length to cli$get_value_lengthT when false string cli$get_value(1:cli$get_value_length) delimited by size- "*" delimited by size * into cli$get_value5 add 1 to cli$get_value_length; move cli$get_value to last_usernameoF move cli$get_value_length to last_username_length end-evaluateg6 move cli$get_value to pscan_username(general_index)D move cli$get_value_length to pscan_username_length(general_index) evaluate general_index < 10X when true compute pscan_username_flag(general_index) = pscan$m_or + pscan$m_wildcardL when false compute pscan_username_flag(general_index) = pscan$m_wildcard end-evaluate end-perform.rparse_username_exit. exit. parse_output.i= if options_parsed = options_counter then go to process_scan.d call "cli$present" using  by descriptor "output" giving cli$_status. evaluate cli$_present$ when true add 1 to options_parsed% when false go to parse_output_exito end-evaluate. call "cli$get_value" using_ by descriptor "output" by descriptor output_file omitted  giving cli$_status.( if cli$_absent then go to process_scan. move 1 to file_output_flag. open output display-file.parse_output_exit. exit. [*------------------------------------------------------------------------------------------aZ* This section will setup a table for a post $getjpi call test against matching imagename.Y* Currently the $process_scan does not support an process imagename selection critera andp7* therefore necessitates this post call selection test.v/* INSERTED CODE: By RJJ on 17-APR-1991 10:13:37t[*------------------------------------------------------------------------------------------ parse_imagename.= if options_parsed = options_counter then go to process_scan.l call "cli$present" usingo by descriptor "imagename"l giving cli$_status. evaluate cli$_present$ when true add 1 to options_parsed9 move 1 to jpi_inswap_flag  move 0 to jpi_control_flagsv% when false add 1 to defaults_index 3 move "/IMAGENAME=*" to defaults(defaults_index) go to parse_imagename_exit end-evaluate.M if dont_build_remote_dcl_line then go to parse_imagename_string_exit.o move 1 to starting_pos.lparse_imagename_string.g! call "str$position" usingi. by descriptor dcl$line* by descriptor "/I"2 by reference starting_pos giving call_status.u evaluate call_status = 0 when true continue> when false compute starting_pos = call_status + 14 go to parse_imagename_string end-evaluate.q' move zero to temp_string_count.(0 inspect dcl$line(starting_pos:) tallying> temp_string_count for characters before initial "/".% subtract 1 from starting_pos.o# add 1 to temp_string_count. ) evaluate remote_dcl_line = spacesrX when true move dcl$line(starting_pos:temp_string_count) to remote_dcl_lineG move temp_string_count to remote_dcl_line_countoY when false string remote_dcl_line(1:remote_dcl_line_count) delimited by sizerY dcl$line(starting_pos:temp_string_count) delimited by sized/ into remote_dcl_lineiF add temp_string_count to remote_dcl_line_count end-evaluate._parse_imagename_string_exit.n perform with test after varying general_index from 1 by 1 until (general_index is equal to 10) or cli$_absent call "cli$get_value" using_ by descriptor "imagename"r by descriptor cli$get_valued% by reference cli$get_value_lengthd giving cli$_status(8 move cli$get_value to select_imagename(general_index)F move cli$get_value_length to select_imagename_length(general_index) end-perform._parse_imagename_exit.i exit.f parse_mode.a= if options_parsed = options_counter then go to process_scan.d call "cli$present" using by descriptor "mode" giving cli$_status. evaluate cli$_present$ when true add 1 to options_parsed% when false add 1 to defaults_indexaN move "/MODE=(INTERACTIVE,BATCH,NETWORK,OTHER)" to defaults(defaults_index) go to parse_mode_exite end-evaluate.H if dont_build_remote_dcl_line then go to parse_mode_string_exit. move 1 to starting_pos.sparse_mode_string.! call "str$position" usinga. by descriptor dcl$line* by descriptor "/M"2 by reference starting_pos giving call_status.n evaluate call_status = 0 when true continue> when false compute starting_pos = call_status + 1/ go to parse_mode_stringr end-evaluate."' move zero to temp_string_count. 0 inspect dcl$line(starting_pos:) tallying> temp_string_count for characters before initial "/".% subtract 1 from starting_pos.g# add 1 to temp_string_count.p) evaluate remote_dcl_line = spacesnX when true move dcl$line(starting_pos:temp_string_count) to remote_dcl_lineG move temp_string_count to remote_dcl_line_count Y when false string remote_dcl_line(1:remote_dcl_line_count) delimited by size$Y dcl$line(starting_pos:temp_string_count) delimited by size / into remote_dcl_line"F add temp_string_count to remote_dcl_line_count end-evaluate. parse_mode_string_exit.oparse_mode_value.\ perform with test after varying general_index from 1 by 1 until general_index is equal to 4 call "cli$get_value" usinge by descriptor "mode" by descriptor cli$get_value % by reference cli$get_value_length  giving cli$_status  evaluate cli$_absent  when true continue* when false evaluate cli$get_value(1:1)- when "A" evaluate general_index = 1 % when true go to parse_mode_exit 6 when false move jpi$k_interactive to pscan_mode1: move jpi$k_batch to pscan_mode2: move jpi$k_network to pscan_mode3: move jpi$k_other to pscan_mode4 go to parse_mode_exit end-evaluatea0 when "I" move jpi$k_interactive to last_mode* when "B" move jpi$k_batch to last_mode, when "N" move jpi$k_network to last_mode* when "O" move jpi$k_other to last_mode end-evaluaten end-evaluate  evaluate general_indexn( when 1 move last_mode to pscan_mode1( when 2 move last_mode to pscan_mode2( when 3 move last_mode to pscan_mode3( when 4 move last_mode to pscan_mode4 end-evaluate end-perform.sparse_mode_exit. exit. parse_jobtype.= if options_parsed = options_counter then go to process_scan.* call "cli$present" usingt by descriptor "jobtype"n giving cli$_status. evaluate cli$_present$ when true add 1 to options_parsed% when false add 1 to defaults_indexe\ move "/JOBTYPE=(LOCAL,DIALUP,REMOTE,BATCH,NETWORK,DETACHED)" to defaults(defaults_index) go to parse_jobtype_exit end-evaluate.K if dont_build_remote_dcl_line then go to parse_jobtype_string_exit.o move 1 to starting_pos. parse_jobtype_string. ! call "str$position" using . by descriptor dcl$line* by descriptor "/J"2 by reference starting_pos giving call_status.x evaluate call_status = 0 when true continue> when false compute starting_pos = call_status + 12 go to parse_jobtype_string end-evaluate.L' move zero to temp_string_count.d0 inspect dcl$line(starting_pos:) tallying> temp_string_count for characters before initial "/".% subtract 1 from st ym6$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20I"arting_pos.9# add 1 to temp_string_count. ) evaluate remote_dcl_line = spaces0X when true move dcl$line(starting_pos:temp_string_count) to remote_dcl_lineG move temp_string_count to remote_dcl_line_counteY when false string remote_dcl_line(1:remote_dcl_line_count) delimited by size Y dcl$line(starting_pos:temp_string_count) delimited by size/ into remote_dcl_line F add temp_string_count to remote_dcl_line_count end-evaluate.rparse_jobtype_string_exit.parse_jobtype_value.\ perform with test after varying general_index from 1 by 1 until general_index is equal to 6 call "cli$get_value" using  by descriptor "jobtype"  by descriptor cli$get_valuee% by reference cli$get_value_length  giving cli$_status" evaluate cli$_absentt when true continue* when false evaluate cli$get_value(1:1)- when "A" evaluate general_index = 1( when true go to parse_jobtype_exit6 when false move jpi$k_local to pscan_jobtype1: move jpi$k_dialup to pscan_jobtype2: move jpi$k_remote to pscan_jobtype3: move jpi$k_batch to pscan_jobtype4: move jpi$k_network to pscan_jobtype5: move jpi$k_detached to pscan_jobtype6 go to parse_jobtype_exit end-evaluatev- when "L" move jpi$k_local to last_jobtypei. when "R" move jpi$k_remote to last_jobtype- when "B" move jpi$k_batch to last_jobtypel/ when "N" move jpi$k_network to last_jobtype_( when "D" evaluate cli$get_value(1:2)2 when "DE" move jpi$k_detached to last_jobtype0 when "DI" move jpi$k_dialup to last_jobtype end-evaluate  end-evaluateo end-evaluatee evaluate general_indexl. when 1 move last_jobtype to pscan_jobtype1. when 2 move last_jobtype to pscan_jobtype2. when 3 move last_jobtype to pscan_jobtype3. when 4 move last_jobtype to pscan_jobtype4. when 5 move last_jobtype to pscan_jobtype5. when 6 move last_jobtype to pscan_jobtype6 end-evaluate end-perform.oparse_jobtype_exit._ exit.n parse_sort.f= if options_parsed = options_counter then go to process_scan.s' if summary then go to parse_sort_exit.i call "cli$present" usingc by descriptor "sort" giving cli$_status. evaluate cli$_statusM* when cli_present add 1 to options_parsed move 1 to sort_flag  move 1 to sort_keysi) when cli_absent add 1 to defaults_index. move "/NOSORT" to defaults(defaults_index) go to parse_sort_exit* when cli_negated add 1 to options_parsed go to parse_sort_exit( end-evaluate. parse_keys.e- if sort_keys > 8 then go to parse_keys_exit.o call "cli$get_value" usingd by descriptor "sort" by descriptor cli$get_valuee% by reference cli$get_value_length giving cli$_status. evaluate cli$_absent sort_keysp& when true 1 add 1 to defaults_index? move "/SORT=USERNAME=ASCENDING" to defaults(defaults_index)  go to parse_keys_exitm& when true any go to parse_keys_exit end-evaluate. evaluate cli$get_value(1:1)0 when "I" call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)  by reference dummy_longword " by reference nodename_wildcard by descriptor "=D" giving call_statust evaluate nodename_wildcardn- when 1 move 1 to imagname_sort_key_order  end-evaluatel0 move imagname_sort_key to sort_key(sort_keys) when "J"0 when "M" call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)g by reference dummy_longword " by reference nodename_wildcard by descriptor "=D" giving call_status  evaluate nodename_wildcardr) when 1 move 1 to mode_sort_key_order  end-evaluatee, move mode_sort_key to sort_key(sort_keys)0 when "N" call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)  by reference dummy_longword " by reference nodename_wildcard by descriptor "=D" giving call_statuse evaluate nodename_wildcard - when 1 move 1 to nodename_sort_key_ordern end-evaluate0 move nodename_sort_key to sort_key(sort_keys)7 when "P" if cli$get_value(1:3) is equal to "PRO" thene* call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)b by reference dummy_longword" by reference nodename_wildcard by descriptor "=D" giving call_statusw evaluate nodename_wildcarde. when 1 move 1 to process_sort_key_order end-evaluatee1 move process_sort_key to sort_key(sort_keys) end-if / if cli$get_value(1:3) is equal to "PRI" thenc* call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)t by reference dummy_longword_" by reference nodename_wildcard by descriptor "=D" giving call_status evaluate nodename_wildcardo+ when 1 move 1 to prib_sort_key_ordero end-evaluaten. move prib_sort_key to sort_key(sort_keys) end-if / if cli$get_value(1:2) is equal to "PI" theng* call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)g by reference dummy_longworda" by reference nodename_wildcard by descriptor "=D" giving call_statusl evaluate nodename_wildcardn* when 1 move 1 to pid_sort_key_order end-evaluatee- move pid_sort_key to sort_key(sort_keys)w end-if 0 when "S" call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)  by reference dummy_longwordU" by reference nodename_wildcard by descriptor "=D" giving call_statusm evaluate nodename_wildcard * when 1 move 1 to state_sort_key_order end-evaluatea- move state_sort_key to sort_key(sort_keys)*0 when "T" call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)t by reference dummy_longwordc" by reference nodename_wildcard by descriptor "=D" giving call_status. evaluate nodename_wildcardn) when 1 move 1 to term_sort_key_ordere end-evaluatet, move term_sort_key to sort_key(sort_keys)0 when "U" call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)g by reference dummy_longword" by reference nodename_wildcard by descriptor "=D" giving call_statusn evaluate nodename_wildcard - when 1 move 1 to username_sort_key_order  end-evaluate/0 move username_sort_key to sort_key(sort_keys)0 when "W" call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)  by reference dummy_longwordi" by reference nodename_wildcard by descriptor "=D" giving call_status  evaluate nodename_wildcarde+ when 1 move 1 to wssize_sort_key_order  end-evaluate_. move wssize_sort_key to sort_key(sort_keys) end-evaluate. add 1 to sort_keys. go to parse_keys.parse_keys_exit. if dosort then_ call "sor$begin_sort" using by reference sort_key_buffer$ by reference sort_longest_record omittedt omittedo omittedi omitted omitted omittedi omittede giving call_status  end-if.parse_sort_exit. exit._ parse_prcnam.c= if options_parsed = options_counter then go to process_scan.  call "cli$present" using_ by descriptor "process"z giving cli$_status. evaluate cli$_present$ when true add 1 to options_parsed% when false add 1 to defaults_indext1 move "/PROCESS=*" to defaults(defaults_index)t go to parse_prcnam_exitv end-evaluate.J if dont_build_remote_dcl_line then go to parse_prcnam_string_exit. move 1 to starting_pos.nparse_prcnam_string.! call "str$position" usingc. by descriptor dcl$line, by descriptor "/PRO"2 by reference starting_pos giving call_status.h evaluate call_status = 0 when true continue> when false compute starting_pos = call_status + 11 go to parse_prcnam_string  end-evaluate. ' move zero to temp_string_count. 0 inspect dcl$line(starting_pos:) tallying> temp_string_count for characters before initial "/".% subtract 1 from starting_pos._# add 1 to temp_string_count.)) evaluate remote_dcl_li 'Z$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20"ne = spacesrX when true move dcl$line(starting_pos:temp_string_count) to remote_dcl_lineG move temp_string_count to remote_dcl_line_counteY when false string remote_dcl_line(1:remote_dcl_line_count) delimited by sizeoY dcl$line(starting_pos:temp_string_count) delimited by sizer/ into remote_dcl_linesF add temp_string_count to remote_dcl_line_count end-evaluate.dparse_prcnam_string_exit.n] perform with test after varying general_index from 1 by 1 until general_index is equal to 10o call "cli$get_value" usingu by descriptor "process"v by descriptor cli$get_value % by reference cli$get_value_lengthl giving cli$_statusu evaluate cli$_absent_/ when true move last_prcnam to cli$get_value-2 move last_prcnam_length to cli$get_value_length4 when false call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length) by reference dummy_longwords" by reference nodename_wildcard by descriptor "%"  by descriptor "*"t giving call_status  evaluate nodename_wildcard when 1. when 2 move pscan$m_wildcard to last_flag" when other move 0 to last_flag end-evaluate-$ move cli$get_value to last_prcnam2 move cli$get_value_length to last_prcnam_length end-evaluate 4 move cli$get_value to pscan_prcnam(general_index)B move cli$get_value_length to pscan_prcnam_length(general_index) evaluate general_index < 10O when true compute pscan_prcnam_flag(general_index) = last_flag + pscan$m_or C when false compute pscan_prcnam_flag(general_index) = last_flagd end-evaluatea end-perform.xparse_prcnam_exit. exit.d parse_term.e= if options_parsed = options_counter then go to process_scan.e call "cli$present" using_ by descriptor "terminal" giving cli$_status. evaluate cli$_status * when cli_present add 1 to options_parsed) when cli_absent add 1 to defaults_index 2 move "/TERMINAL=*" to defaults(defaults_index) go to parse_term_exita* when cli_negated add 1 to options_parsed8 move spaces to last_term; move 64 to last_term_length_> evaluate build_remote_dcl_linem when true string remote_dcl_line(1:remote_dcl_line_count) delimited by sizenN "/NOTERM" delimited by size@ into remote_dcl_lineJ add 7 to remote_dcl_line_countH go to parse_term_string_exit- end-evaluatee< go to parse_term_string_exit end-evaluate.H if dont_build_remote_dcl_line then go to parse_term_string_exit. move 1 to starting_pos.iparse_term_string.! call "str$position" usingt. by descriptor dcl$line+ by descriptor "/TE"t2 by reference starting_pos giving call_status._ evaluate call_status = 0 when true continue> when false compute starting_pos = call_status + 1/ go to parse_term_string$ end-evaluate.g' move zero to temp_string_count.u0 inspect dcl$line(starting_pos:) tallying> temp_string_count for characters before initial "/".% subtract 1 from starting_pos.r# add 1 to temp_string_count.i) evaluate remote_dcl_line = spacesX when true move dcl$line(starting_pos:temp_string_count) to remote_dcl_lineG move temp_string_count to remote_dcl_line_countOY when false string remote_dcl_line(1:remote_dcl_line_count) delimited by size Y dcl$line(starting_pos:temp_string_count) delimited by sizeg/ into remote_dcl_lineiF add temp_string_count to remote_dcl_line_count end-evaluate.pparse_term_string_exit. ] perform with test after varying general_index from 1 by 1 until general_index is equal to 10= call "cli$get_value" usingt by descriptor "terminal" by descriptor cli$get_values% by reference cli$get_value_lengths giving cli$_status  evaluate cli$_absento- when true move last_term to cli$get_value 0 move last_term_length to cli$get_value_length4 when false call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)t by reference dummy_longwordm" by reference nodename_wildcard by descriptor "%"n by descriptor "*"i giving call_status_ evaluate nodename_wildcardo when 1. when 2 move pscan$m_wildcard to last_flag" when other move 0 to last_flag end-evaluatec< evaluate cli$get_value(1:4) = "NONE"E when true move spaces to cli$get_value G move 8 to cli$get_value_length_$ end-evaluate3 evaluate cli$get_value(1:3)e# when "ANY"rD when "ALL" move spaces to cli$get_valueF move 8 to cli$get_value_lengthE move pscan$m_neq to last_flags$ end-evaluate7 move cli$get_value to last_term(> move cli$get_value_length to last_term_length end-evaluate_2 move cli$get_value to pscan_term(general_index)@ move cli$get_value_length to pscan_term_length(general_index) evaluate general_index < 10M when true compute pscan_term_flag(general_index) = last_flag + pscan$m_or A when false compute pscan_term_flag(general_index) = last_flag end-evaluate end-perform.vparse_term_exit. exit.m parse_hwname.o= if options_parsed = options_counter then go to process_scan.h call "cli$present" usingl by descriptor "hw_name"  giving cli$_status. evaluate cli$_present0 when true add 1 to options_parsed0 when false add 1 to defaults_index1 move "/HW_NAME=*" to defaults(defaults_index)o go to parse_hwname_exit end-evaluate.J if dont_build_remote_dcl_line then go to parse_hwname_string_exit. move 1 to starting_pos.parse_hwname_string.! call "str$position" using. by descriptor dcl$line+ by descriptor "/HW"l2 by reference starting_pos giving call_status.R evaluate call_status = 0 when true continue> when false compute starting_pos = call_status + 11 go to parse_hwname_string  end-evaluate.o' move zero to temp_string_count.n0 inspect dcl$line(starting_pos:) tallying> temp_string_count for characters before initial "/".% subtract 1 from starting_pos.# add 1 to temp_string_count. ) evaluate remote_dcl_line = spacesuX when true move dcl$line(starting_pos:temp_string_count) to remote_dcl_lineG move temp_string_count to remote_dcl_line_count Y when false string remote_dcl_line(1:remote_dcl_line_count) delimited by size Y dcl$line(starting_pos:temp_string_count) delimited by sizes/ into remote_dcl_line F add temp_string_count to remote_dcl_line_count end-evaluate.iparse_hwname_string_exit.e] perform with test after varying general_index from 1 by 1 until general_index is equal to 10  call "cli$get_value" usingm by descriptor "hw_name"  by descriptor cli$get_value % by reference cli$get_value_lengthg giving cli$_statusz evaluate cli$_absent / when true move last_hwname to cli$get_value 2 move last_hwname_length to cli$get_value_length when falsea( call "str$upcase" using by descriptor cli$get_valuer by descriptor cli$get_valuet# giving call_statusl6 call "str$find_first_substring" using7 by descriptor cli$get_value(1:cli$get_value_length)t by reference dummy_longworda" by reference nodename_wildcard by descriptor "%"  by descriptor "*"$ giving call_status  evaluate nodename_wildc n$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20pq"arde when 1. when 2 move pscan$m_wildcard to last_flag, when other move pscan$m_eql to last_flag end-evaluate 9 move cli$get_value to last_hwname @ move cli$get_value_length to last_hwname_length end-evaluatet4 move cli$get_value to pscan_hwname(general_index)B move cli$get_value_length to pscan_hwname_length(general_index) evaluate general_index < 10d when true compute pscan_hwname_flag(general_index) = last_flag + pscan$m_or + pscan$m_case_blindX when false compute pscan_hwname_flag(general_index) = last_flag + pscan$m_case_blind end-evaluatew end-perform.tparse_hwname_exit. exit.$ parse_prib.= if options_parsed = options_counter then go to process_scan.D call "cli$present" usingt by descriptor "BASEPRIORITY" giving cli$_status. if not cli$_present thena add 1 to defaults_indexJ move "/BASEPRIORITY=(MINIMUM=0,MAXIMUM=63)" to defaults(defaults_index) go to parse_prib_exit end-if. add 1 to options_parsed.vH if dont_build_remote_dcl_line then go to parse_prib_string_exit. move 1 to starting_pos.yparse_prib_string.! call "str$position" usinga. by descriptor dcl$line* by descriptor "/B"2 by reference starting_pos giving call_status.s evaluate call_status = 0 when true continue> when false compute starting_pos = call_status + 1/ go to parse_prib_stringc end-evaluate.u' move zero to temp_string_count.s0 inspect dcl$line(starting_pos:) tallying> temp_string_count for characters before initial "/".% subtract 1 from starting_pos.o# add 1 to temp_string_count.t) evaluate remote_dcl_line = spacessX when true move dcl$line(starting_pos:temp_string_count) to remote_dcl_lineG move temp_string_count to remote_dcl_line_countdY when false string remote_dcl_line(1:remote_dcl_line_count) delimited by size Y dcl$line(starting_pos:temp_string_count) delimited by sizel/ into remote_dcl_line_F add temp_string_count to remote_dcl_line_count end-evaluate.mparse_prib_string_exit.r call "cli$present" using ( by descriptor "basepriority.minimum" giving cli$_status. if cli$_present then  call "cli$get_value" usinge( by descriptor "basepriority.minimum" by descriptor cli$get_valueh% by reference cli$get_value_length_ giving cli$_statusy# call "ots$cvt_ti_l" usingaK by descriptor cli$get_value(1:cli$get_value_length)d1 by reference prib_minimum  omitted giving call_status elser move 0 to prib_minimumm add 1 to defaults_index= move "/BASEPRIORITY=MINIMUN=0" to defaults(defaults_index) end-if. call "cli$present" using$( by descriptor "basepriority.maximum" giving cli$_status. if cli$_present thend call "cli$get_value" usingv( by descriptor "basepriority.maximum" by descriptor cli$get_valuee% by reference cli$get_value_length giving cli$_statuse# call "ots$cvt_ti_l" usingiK by descriptor cli$get_value(1:cli$get_value_length)r1 by reference prib_maximume omittede giving call_status elsed move 63 to prib_maximum add 1 to defaults_index> move "/BASEPRIORITY=MAXIMUM=63" to defaults(defaults_index) end-if. if prib_minimum < 0 thenP display "JPI-F-INVQUAVAL, MINIMUM value out of range on /BASEPRIORITY" display "" stop run else if prib_maximum > 63 thenP display "JPI-F-INVQUAVAL, MAXIMUM value out of range on /BASEPRIORITY" display "" stop run end-if.G if (prib_minimum > prib_maximum) or (prib_maximum < prib_minimum) then1h display "JPI-F-INVQUAVAL, Invalid combination of MINIMUM and MINIMUM values for /BASEPRIORITY" display "" stop run end-if.S perform with test after varying general_index from 1 by 1 until general_index = 63l' if general_index < prib_minimum thenm3 move prib_minimum to prib_value(general_index) end-ifo' if general_index > prib_maximum thena3 move prib_maximum to prib_value(general_index)_ end-ifd end-perform.aparse_prib_exit. exit.yparse_summary.= if options_parsed = options_counter then go to process_scan." call "cli$present" usingl by descriptor "summary"e giving cli$_status. if cli$_present then  add 1 to options_parsed move 1 to summary_flag end-if.parse_summary_exit.u exit.e parse_header. = if options_parsed = options_counter then go to process_scan.v call "cli$present" usingy by descriptor "HEADER" giving cli$_status. evaluate cli$_statuss) when cli_absent add 1 to defaults_indexh. move "/HEADER" to defaults(defaults_index) go to parse_header_exit * when cli_present add 1 to options_parsed* when cli_negated add 1 to options_parsed move 0 to header_flage end-evaluate.parse_header_exit. exit.sparse_trailer.= if options_parsed = options_counter then go to process_scan.s+* if summary then go to parse_trailer_exit.g call "cli$present" usingn by descriptor "trailer"n giving cli$_status. evaluate cli$_statusn) when cli_absent add 1 to defaults_indexr/ move "/TRAILER" to defaults(defaults_index)  go to parse_trailer_exit* when cli_present add 1 to options_parsed* when cli_negated add 1 to options_parsed move 0 to trailer_flag end-evaluate.parse_trailer_exit.y exit.d parse_swap.i= if options_parsed = options_counter then go to process_scan.  call "cli$present" usinga by descriptor "swap" giving cli$_status. evaluate cli$_status* when cli_present add 1 to options_parsed move 1 to jpi_inswap_flagu move 0 to jpi_control_flagsoA evaluate remote_dcl_line = spacesnO when true move "/swap" to remote_dcl_lineoO move 5 to remote_dcl_line_counttq when false string remote_dcl_line(1:remote_dcl_line_count) delimited by sizesP "/swap" delimited by sizeG into remote_dcl_linehN add 5 to remote_dcl_line_count, end-evaluate) when cli_absent add 1 to defaults_index.3 evaluate jpi_inswaprT when true move "/SWAP" to defaults(defaults_index): when false move "/NOSWAP" to defaults(defaults_index)f compute jpi_control_flags = jpi$m_no_target_inswap + jpi$m_ignore_target_status, end-evaluate go to parse_swap_exit0* when cli_negated add 1 to options_parsedS compute jpi_control_flags = jpi$m_no_target_inswap + jpi$m_ignore_target_status A evaluate remote_dcl_line = spacestQ when true move "/noswap" to remote_dcl_linepO move 7 to remote_dcl_line_countgq when false string remote_dcl_line(1:remote_dcl_line_count) delimited by sizeoR "/noswap" delimited by sizeG into remote_dcl_line N add 7 to remote_dcl_line_count, end-evaluate go to parse_swap_exit  end-evaluate.parse_swap_exit. exit.oparse_symbols.= if options_parsed = options_counter then go to process_scan.c call "cli$present" usingd by descriptor "symbols" giving cli$_status. evaluate cli$_statusx* when cli_present add 1 to options_parsed move 1 to jpi_symbols_flag) when cli_absent add 1 to defaults_indexd1 move "/NOSYMBOLS" to defaults(defaults_index)v go to parse_symbols_exit* when cli_negated add 1 to options_parsed go to parse_symbols_exit end-evaluate. if jpi_symbols then call "lib$get_symbol" using! by descriptor "jpi$item_count"n+ by descriptor previous_item_count_stringl by refere ;$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20}nce symbol_length omitted giving call_statusr evaluate symbol_length > 0dU when true move previous_item_count_string(1:symbol_length) to previous_item_countl/ when false move zero to previous_item_countc end-evaluate end-if.parse_symbols_exit.g exit.a parse_help.v= if options_parsed = options_counter then go to process_scan.  call "cli$present" usinge by descriptor "help" giving cli$_status. evaluate cli$_status * when cli_present add 1 to options_parsed call "lbr$output_help" using by value outrtnt by reference general_index by descriptor "jpi"c by descriptor "helplib"e by reference help_flagsx by value inrtn giving call_status stop run* when cli_negated add 1 to options_parsed' when cli_absent go to parse_help_exit  end-evaluate.parse_help_exit. exit. parse_privilege.@ if options_parsed = options_counter then go to parse_selection. call "cli$present" usinga by descriptor "privilege"o giving cli$_status. evaluate cli$_statuse* when cli_present add 1 to options_parsed move 1 to check_privs_flag) when cli_absent add 1 to defaults_index 5 move "/PRIVILEGE=ANY" to defaults(defaults_index)  go to parse_privilege_exit end-evaluate.H if dont_build_remote_dcl_line then go to parse_priv_string_exit. move 1 to starting_pos.mparse_priv_string.! call "str$position" usingn. by descriptor dcl$line, by descriptor "/PRI"2 by reference starting_pos giving call_status. evaluate call_status = 0 when true continue> when false compute starting_pos = call_status + 1/ go to parse_priv_string  end-evaluate.t' move zero to temp_string_count.0 inspect dcl$line(starting_pos:) tallying> temp_string_count for characters before initial "/".% subtract 1 from starting_pos.n# add 1 to temp_string_count.d) evaluate remote_dcl_line = spaces X when true move dcl$line(starting_pos:temp_string_count) to remote_dcl_lineG move temp_string_count to remote_dcl_line_countoY when false string remote_dcl_line(1:remote_dcl_line_count) delimited by size Y dcl$line(starting_pos:temp_string_count) delimited by sizet/ into remote_dcl_lineiF add temp_string_count to remote_dcl_line_count end-evaluate.rparse_priv_string_exit. G* The following perform 'maps' the user specified privilege to an indexwL* number equal to the appropriate value of prv_v_privname as seen in $prvdefP* in sys$library:starlet.mlb. This is used later for matching process privileges* against the map.parse_privilege_value. call "cli$get_value" usinge by descriptor "privilege"  by descriptor cli$get_valuet% by reference cli$get_value_length  giving cli$_status.6 if cli$_absent then go to parse_privilege_value_exit. move zero to general_index. call "str$upcase" using by descriptor cli$get_value  by descriptor cli$get_valueg giving call_status.3 unstring cli$get_value delimited by "+" or all " "i] into parse_priv_name(1) delimiter in parse_priv_delimiter(1) count in parse_priv_counter(1)r] parse_priv_name(2) delimiter in parse_priv_delimiter(2) count in parse_priv_counter(2)e] parse_priv_name(3) delimiter in parse_priv_delimiter(3) count in parse_priv_counter(3)c] parse_priv_name(4) delimiter in parse_priv_delimiter(4) count in parse_priv_counter(4)] parse_priv_name(5) delimiter in parse_priv_delimiter(5) count in parse_priv_counter(5)  tallying in general_indexn end-unstring.` perform with test after varying general_index2 from 1 by 1 until general_index2 = general_index move 1 to privnames_index set index1 to 1 * search privnames varying privnames_index! at end move 1 to privname_flag when privnames(privnames_index)(1:parse_priv_counter(general_index2)) = parse_priv_name(general_index2)(1:parse_priv_counter(general_index2)) add 1 to privbit_index6 move privnames_index to privbit(privbit_index): if parse_priv_delimiter(general_index2) = "+" then( move 1 to privbit_flag(privbit_index) end-if end-search end-perform.e if badprivname thenc display "JPI-F-IVKEYW, unrecognized keyword for /PRIVILEGE - check validity and spelling"e  display "" stop runE* display "BAD name for specified privilege ==> " with no advancingr1* display cli$get_value(1:cli$get_value_length)o.* display "Privilege check will be ignored."!* move zero to check_privs_flaga* add 1 to defaults_index_5* move "/PRIVILEGE=ANY" to defaults(defaults_index)a* go to parse_privilege_exit end-if. go to parse_privilege_value.gparse_privilege_value_exit.parse_privilege_exit.p exit.aparse_selection.= if options_parsed = options_counter then go to process_scan.r call "cli$present" using by descriptor "selection"  giving cli$_status. evaluate cli$_status.* when cli_present add 1 to options_parsed! move 1 to show_selection_flagh* when cli_negated add 1 to options_parsed: go to parse_selection_exit, when cli_absent go to parse_selection_exit end-evaluate.- move 1 to starting_pos,receiving_pos.eparse_selection_string.t move 0 to exit_perform! call "str$position" usingn. by descriptor dcl$line3 by descriptor search_string 2 by reference starting_pos giving call_status.  evaluate call_statusQ when 0 compute remaining_length = dcl$line_length - starting_pos + 1ld move dcl$line(starting_pos:remaining_length) to revised_dcl$line(receiving_pos:)P compute receiving_pos = remaining_length + receiving_pos - 1$ evaluate passone< when true move 2 to passnumberC move "/RN" to search_stringiI move revised_dcl$line to dcl$linegM move receiving_pos to dcl$line_lengtheL move 1 to starting_pos,receiving_posD go to parse_selection_stringB when false go to parse_selection_exit end-evaluate( when other add 2 to call_statusM compute remaining_length = call_status - starting_pos + 1_d move dcl$line(starting_pos:remaining_length) to revised_dcl$line(receiving_pos:)9 add remaining_length to receiving_pose: compute starting_pos = call_status + 1 end-evaluate.vL perform with test after varying starting_pos from starting_pos by 1 H until (starting_pos is >= dcl$line_length) or (exit_perform = 1)+ evaluate dcl$line(starting_pos:1)u when "/"d. when ")" move 1 to exit_perform5 when " " evaluate password_lit_written U when 0 move " password" to revised_dcl$line(receiving_pos:9)$6 add 9 to receiving_pos> move 1 to password_lit_written$ end-evaluateZ when '"' move dcl$line(starting_pos:1) to revised_dcl$line(receiving_pos:1). add 1 to receiving_pos5 evaluate password_lit_writtent> when 1 move 0 to password_lit_written$ end-evaluate5 when other evaluate password_lit_writteneb when 0 move dcl$line(starting_pos:1) to revised_dcl$line(receiving_pos:1)4 add 1 to receiving_pos( when 1 continue$ end-evaluate end-evaluate end-perform.L if starting_pos < dcl$line_length then go to parse_selection_string.* move revised_dcl$line to dcl$line.parse_selection_exit. exit.n process_scan.pL* Don't do a local scan if /node or /clu was not specified and a /remote was* specified. RJJ 12/11/93.O if node_not_specified and (remote_nodename(1) is not equal to spaces ord5 remote_clustername(1) is not equal to spaces)d  $JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20;" then' go to process_scan_local_exitl end-if.pP*-------------------------------------------------------------------------------Q* The following few code lines are REQUIRED becuase $process-scan always succeeds M* on a stand-alone node, REGARDLESS of nodename values specified. This is nottF* a problem with $process_scan on a clustered node. Is this a VMS bug?P*-------------------------------------------------------------------------------( if options_counter is greater than zero then2 if pscan_nodename(1) is not equal to "*" then( if getsyi_cluster_member = 0 then * check to see if wildcard match" call "str$match_wild" using5 by descriptor getsyi_nodenamemS by descriptor pscan_nodename(1)(1:pscan_nodename_length(1))  giving call_statust if str$_nomatch_ then- go to process_scan_local_exitl end-if end-if end-if end-if.c** Same check for /hw_name for same reasons( if options_counter is greater than zero then0 if pscan_hwname(1) is not equal to "*" then( if getsyi_cluster_member = 0 then * check to see if wildcard match" call "str$match_wild" using4 by descriptor getsyi_hw_nameO by descriptor pscan_hwname(1)(1:pscan_hwname_length(1))s giving call_statuss if str$_nomatchr then- go to process_scan_local_exitv end-if end-if end-if end-if. P*-------------------------------------------------------------------------------- if options_counter is greater than zero then call "sys$process_scan" using by reference pidctx by reference pscan-item-list giving call_statusA; if call_status is failure then perform check_call_status end-if.J perform get_next_process thru get_next_process_exit until ss$_nomoreproc. if called_from_networke thenc move 4 to activity_type call "jpibas" using by descriptor "end"y by reference activity_type by reference call_status end-callg stop runa end-if.process_scan_local_exit. move 0 to general_index.remote_process_scan.P********************************************************************************N* Access the JPI DECNET object on the remote node and pass the invocation line?* to the process. This will startup jpi.exe on the remote node.OP******************************************************************************** add 1 to general_index.FV if general_index > number_of_remote_nodes then go to remote_process_scan_exit.! call "str$position" usingm< by descriptor remote_nodename(general_index)" by descriptor "::" omittedp giving call_status.e1 if (call_status is greater than zero) andmR call_status is not equal to remote_nodename_length(general_index) thenH compute remote_nodename_length(general_index) = call_status - 1.* move spaces to remote_file_record. call "sys$fao" using& by descriptor "!AS!AS" by reference fao_outlenb" by descriptor remote_file_recorde by descriptor remote_nodename(general_index)(1:remote_nodename_length(general_index))m+ by descriptor "::""0=jpi"""i giving call_status.1* open the network link to the remote jpi object.n move 1 to activity_type. call "jpibas"l6 using by descriptor remote_file_record0 by reference activity_type. by reference call_status end-call.u* perform check_call_status.H if call_status is not equal to 1 then go to remote_process_scan.7* now pass the DCL line to the jpi image for processing move 4 to activity_type. call "jpibas"a3 using by descriptor remote_dcl_line 0 by reference activity_type. by reference call_status giving call_status. remote_process_read_loop.tP********************************************************************************N* Read each record coming back from the remote jpi call. When the last line ofJ* valid data has been sent, the remote jpi.exe will send us the text "end"P********************************************************************************" move spaces to fao_outbuf.8* read a single record as sent from the remote jpi image move 3 to activity_type. call "jpibas"i. using by descriptor fao_outbuf0 by reference activity_type. by reference call_status giving call_status.r)* at end then go to remote_node_closedown evaluate fao_outbuf(1:3) when "end" 3 when "END" go to remote_node_closedowns. when spaces move 1 to starting_pos1 call "str$position" using L by descriptor remote_nodename(general_index)1 by descriptor '"' : by reference starting_pos* giving call_status0 evaluate call_status = 0d when true compute starting_pos = remote_nodename_length(general_index)N when false compute starting_pos = call_status - 1$ end-evaluated display "Fatal Error with the JPI process on remote node " with no advancingN display remote_nodename(general_index)(1:starting_pos)T display "Please check the netserver.log on the remote node."3 go to remote_node_closedowns end-evaluate. ! call "ots$cvt_ti_l" usingl6 by descriptor fao_outbuf(61:5)+ by reference wssizel omitted giving call_status.pI perform display_jpi_line_remote_entry thru display_jpi_line_exit.m' go to remote_process_read_loop. remote_node_closedown. move 2 to activity_type. call "jpibas" using  omittedt* by reference activity_type( by reference call_status end-call. " go to remote_process_scan.remote_process_scan_exit.i move 0 to general_index.remote_cluster_scan.P********************************************************************************N* Access the JPI DECNET object on the remote node and pass the invocation line?* to the process. This will startup jpi.exe on the remote node.tP******************************************************************************** add 1 to general_index.xY if general_index > number_of_remote_clusters then go to remote_cluster_scan_exit.  if general_index = 1 then3 string remote_dcl_line delimited by space2 "/cluster" delimited by size into remote_dcl_line end-if.d! call "str$position" usingS? by descriptor remote_clustername(general_index)h" by descriptor "::" omittedl giving call_status.p1 if (call_status is greater than zero) andbQ call_status is not equal to remote_cluster_length(general_index) then G compute remote_cluster_length(general_index) = call_status - 1. * move spaces to remote_file_record. call "sys$fao" using& by descriptor "!AS!AS" by reference fao_outleno" by descriptor remote_file_recordg by descriptor remote_clustername(general_index)(1:remote_cluster_length(general_index)) + by descriptor "::""0=jpi"""  giving call_status.1* open the network link to the remote jpi object.n move 1 to activity_type. call "jpibas"t6 using by descriptor remote_file_record0 by reference activity_type. by reference call_status end-call.v* perform check_call_status.H if call_status is not equal to 1 then go to remote_cluster_scan.7* now pass the DCL line to the jpi image for processingp move 4 to activity_type. call "jpibas"=3 using by descriptor remote_dcl_linec0 by reference activitb$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20"y_type. by reference call_status giving call_status.premote_cluster_read_loop. P********************************************************************************N* Read each record coming back from the remote jpi call. When the last line ofJ* valid data has been sent, the remote jpi.exe will send us the text "end"P********************************************************************************" move spaces to fao_outbuf.8* read a single record as sent from the remote jpi image move 3 to activity_type. call "jpibas"g. using by descriptor fao_outbuf0 by reference activity_type. by reference call_status giving call_status. ,* at end then go to remote_cluster_closedown evaluate fao_outbuf(1:3) when "end"u6 when "END" go to remote_cluster_closedown. when spaces move 1 to starting_pos1 call "str$position" usingsO by descriptor remote_clustername(general_index)e1 by descriptor '"'p: by reference starting_pos* giving call_status0 evaluate call_status = 0c when true compute starting_pos = remote_cluster_length(general_index)gN when false compute starting_pos = call_status - 1$ end-evaluated display "Fatal Error with the JPI process on remote node " with no advancingQ display remote_clustername(general_index)(1:starting_pos)eT display "Please check the netserver.log on the remote node."6 go to remote_cluster_closedown end-evaluate.a! call "ots$cvt_ti_l" usingc6 by descriptor fao_outbuf(61:5)+ by reference wssizen omitted  giving call_status. I perform display_jpi_line_remote_entry thru display_jpi_line_exit. ' go to remote_cluster_read_loop.$remote_cluster_closedown.o move 2 to activity_type. call "jpibas" using  omitted * by reference activity_type( by reference call_status end-call. " go to remote_cluster_scan.remote_cluster_scan_exit.i if dosort thentB perform display_sorted_records thru display_sorted_records_exit else  if trailer then6 perform display_trailer thru display_trailer_exit end-if( if show_selection thent: perform display_selection thru display_selection_exit end-ifc end-if.( if file_output then close display-file. call "sys$setrwm" using omitted  giving call_status. move spaces to fao_outbuf.  if jpi_symbols then call "sys$fao" usingv by descriptor "!UL" by reference fao_outlen by descriptor fao_outbufa by value symbol_counter giving call_statusr call "lib$set_symbol" using" by descriptor "jpi$item_count"* by descriptor fao_outbuf(1:fao_outlen) omitted giving call_statustG***********************************************************************f&* RJJ added code on 8-DEC-1991 17:31 H* if /summary/symbols is specified then make sure that we delete any/allG* previous jpi$detail_line_nnnn symbols so there won't be any confusionK if summary then move 1 to symbol_counterl else  add 1 to symbol_counter end-if G* End of change 8-DEC-1991 17:32 *************************************d perform with test before_b varying general_index from symbol_counter by 1 until general_index > previous_item_count move spaces to fao_outbuff call "sys$fao" using' by descriptor "JPI$detail_line_!4ZL"a by reference fao_outlen by descriptor fao_outbufp by value general_indexv giving call_status" call "lib$delete_symbol" using) by descriptor fao_outbuf(1:fao_outlen)c omitted giving call_status end-perform end-if. stop run.process_scan_exit. exit.$P********************************************************************************get_next_process.c call "sys$getjpiw" usingt by value efn by reference pidctx omitted ! by reference getjpi-item-listn by reference iosb_ omittedt omittedt giving call_status. evaluate call_statusp when status$nomoreproc0 when status$nopriv go to get_next_process_exit when status$suspended continue' when other if call_status is failure  then perform check_call_statusr end-if end-evaluate.P*-------------------------------------------------------------------------------4* iosb_status; 2472 is nomoreproc; 10772 is excbytlmP*------------------------------------------------------------------------------- evaluate iosb_status  when status$suspendedg when status$normal continue9 when status$nomoreproc move iosb_status to call_status go to get_next_process_exit2 when status$exbytlm go to get_next_process_exit. when other move iosb_status to call_status perform check_call_status end-evaluate.7 if pid is equal to 0 then go to get_next_process_exit.nA* Check for the swapper process which has a totally null usernamec< if username_length = 0 then move spaces to getjpi_username.P*-------------------------------------------------------------------------------O* The following evaluate statement is a workaround, whereas the $getjpi servicexF* will return a success status one too many times on a cluster search.< evaluate previous_pid is not equal to 0, previous_pid = pid- when true, true go to get_next_process_exito& when other move pid to previous_pid end-evaluate.P*-------------------------------------------------------------------------------5 if imagname_length = 0 then move spaces to imagname.s1 if prcnam_length = 0 then move spaces to prcnam.t( if prib_length = 0 then move 0 to prib.< if username_length = 0 then move spaces to getjpi_username.< if nodename_length = 0 then move spaces to getjpi_nodename.= if jpi$terminal_length = 0 then move spaces to jpi$terminal.t, if wssize_length = 0 then move 0 to wssize.< if jpi$state_flag_length = 0 then move 0 to jpi$state_flag.= if jpi$mode_flag_length = 0 then move 9999 to jpi$mode_flag. @ if jpi$curpriv_flag_length = 0 then move 0 to jpi$curpriv_flag. call "sys$filescan" using by descriptor imagname# by reference filescan-item-list omittedd giving call_status. call "str$copy_r" using# by descriptor filescan-imagname ) by reference filescan-imagname_length & by value filescan-imagname_address giving call_status.P*-------------------------------------------------------------------------------* Check for imagename matches.(* Code added 17-APR-1991 10:34:43 by RJJP*-------------------------------------------------------------------------------check_imagename.C if select_imagename_length(1) = 0 then go to check_imagename_exit.eB if filescan-imagname_length = 0 then go to get_next_process_exit. move zero to call_status.V perform with test before varying general_index from 1 by 1 until (general_index = 11)0 or (select_imagename_length(general_index) = 0) or str$_match@ move select_imagename_length(general_index) to general_index2 call "str$match_wild" using@ by descriptor filescan-imagname(1:filescan-imagname_length)D by descriptor select_imagename(general_index)(1:general_index2) giving call_status end-perform. 2 if str$_nomatch then go to get_next_process_exit.check_imagename_exit.- exit.-P*-------------------------------------------------------------------------------Q* This section will check for matches against a list of user specified privilegesS)* Code added: 17-APR-1991 10:37:28 by RJJtP*-------------------------------------------------------------------------------check_privileges.- if check_privs then call "ots$cvt_l_tb" using! by reference jpi$curpriv_flaga by descriptor curpriv_bitmap by value 64) by value 8 giving call_status  move 2 to priv_match_flagp perform with test after varying general_index from 1 by 1 until (general_index = privbit_index) or priv_matchY evaluate curpriv_bitmap((65 - privbit(general_index)):1) privbit_flag(general_index)e' when "1" 0 if priv_match_all theng move 1 to priv_match_flag end-ifo if priv_match_all_fail then move 2 to priv_match_flag end-if* when "1" 1 move 2 I$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20"to priv_match_flag* when "0" 1 move 3 to priv_match_flag* when "0" 0 move 2 to priv_match_flag end-evaluater end-perform3 if priv_nomatch then go to get_next_process_exito end-if.check_privileges_exit. exit.lP*-------------------------------------------------------------------------------format_output./ inspect prcnam replacing all null_byte by ".".s5 inspect jpi$terminal replacing all null_byte by "."._% move zero to username_symbol_length. x inspect getjpi_username tallying username_symbol_length for characters before initial space replacing all space by ".".6 inspect filescan-imagname replacing all space by ".". move spaces to fao_outbuf.- evaluate jpi$mode_flag-- when jpi$k_interactive move "I" to jpi$mode-- when jpi$k_batch move "B" to jpi$mode ) when jpi$k_network move "N" to jpi$moder' when jpi$k_other move "O" to jpi$modei, when other move jpi$mode_flag to jpi$mode end-evaluate. evaluate jpi$state_flag/ when sch$c_colpg move "COLPG" to jpi$statet/ when sch$c_mwait move "MWAIT" to jpi$statel. when sch$c_cef move "CEF" to jpi$state. when sch$c_pfw move "PFW" to jpi$state. when sch$c_lef move "LEF" to jpi$state. when sch$c_lefo move "LEFO" to jpi$state. when sch$c_hib move "HIB" to jpi$state. when sch$c_hibo move "HIBO" to jpi$state. when sch$c_susp move "SUSP" to jpi$state/ when sch$c_suspo move "SUSPO" to jpi$state . when sch$c_fpg move "FPG" to jpi$state. when sch$c_com move "COM" to jpi$state. when sch$c_como move "COMO" to jpi$state. when sch$c_cur move "CUR" to jpi$state' when OTHER move "?????" to jpi$statex end-evaluate.< if (imagname_length is equal to zero) and jpi_noinswap then evaluate jpi$state_flag when sch$c_lefo when sch$c_hibos when sch$c_suspo< when sch$c_como move "-outswapped-" to filescan_imagname end-evaluate.5 perform display_jpi_line thru display_jpi_line_exit. get_next_process_exit. exit. display_header1.7 if summary or noheader then go to display_header_exit.  move spaces to fao_outbuf._ call "sys$fao" using + by descriptor fao_jpi_hline1_directivest by reference fao_outlen" by descriptor fao_outbuf3 by value getsyi_cpu9 by descriptor getsyi_version(1:getsyi_version_length)r giving call_status. if file_output then write fao_outbufe elsee display fao_outbufy end-if.display_header2. move spaces to fao_outbuf.n call "sys$fao" usinge+ by descriptor fao_jpi_hline2_directivesi by reference fao_outlens by descriptor fao_outbuf; by descriptor getsyi_nodename(1:getsyi_nodename_length)n9 by descriptor getsyi_hw_name(1:getsyi_hw_name_length)t by value 0 giving call_status. if file_output then write fao_outbuf  elsea display fao_outbufe end-if.display_header3.. move fao_jpi_hline3_directives to fao_outbuf. if file_output then write fao_outbufl elses display fao_outbufn end-if.display_header4. move spaces to fao_outbuf.y call "sys$fao" usinge+ by descriptor fao_jpi_hline4_directivest by reference fao_outlens by descriptor fao_outbuf by descriptor "" giving call_status. if file_output then write fao_outbufe else  display fao_outbuf  end-if.display_header_exit. exit.display_jpi_line.e' if summary then go to display_summary.h move spaces to fao_outbuf call "sys$fao" using** by descriptor fao_jpi_dline_directives by reference fao_outlent by descriptor fao_outbuf by value pid# by descriptor jpi$terminal(1:7)i' by descriptor getjpi_username(1:12)  by descriptor prcnam(1:13)) by descriptor filescan-imagname(1:12)e by value prib  by value wssizer by descriptor jpi$state  by descriptor jpi$mode! by descriptor getjpi_nodename  giving call_status. if called_from_networke then  move 4 to activity_type* display fao_outbuf call "jpibas" using by descriptor fao_outbuf by reference activity_type by reference call_status end-call  go to display_jpi_line_exit end-if.display_jpi_line_remote_entry.' if summary then go to display_summary.  if dosort then  call "sor$release_rec" using  by descriptor fao_outbuf omitted  giving call_statusl elsel2 if displayed_process_counter is equal to 0 then if header thens1 move fao_outbuf to saved_fao_outbuf 7 perform display_header1 thru display_header_exit_1 move saved_fao_outbuf to fao_outbuf  end-if end-ifF if file_output then write fao_outbuf" elsea display fao_outbuf end-ifp end-if.mdisplay_summary.$ add 1 to displayed_process_counter. add wssize to total_wssize.P********************************************************************************O* setup the symbols here if requested via the /symbols qualifier on the command I* line 27-NOV-1991 15:24:39.91 RJJ. If we're sorting then delay this stepe%* until after then sort is processed.e if summary thent add 1 to symbol_counter else if nosort thens if jpi_symbols then) move fao_outbuf to jpi_detail_linee move spaces to fao_outbuf add 1 to symbol_counter call "sys$fao" using ( by descriptor "JPI$detail_line_!4ZL" by reference fao_outlen  by descriptor fao_outbuf by value symbol_counter  giving call_statuse" call "lib$set_symbol" using* by descriptor fao_outbuf(1:fao_outlen)' by descriptor jpi_detail_line(1:80)* omitted* giving call_statusc end-ifD end-if end-if.P********************************************************************************display_jpi_line_exit. exit.*display_selection. if dontshow_selection then* go to display_selection_exitr end-if. move spaces to fao_outbuf.n call "sys$fao" usings* by descriptor fao_jpi_sline_directives by reference fao_outlen  by descriptor fao_outbuf! by descriptor "Command Line:" " by descriptor revised_dcl$line giving call_status. if file_output then* write fao_outbuf after advancing 1 line elses display fao_outbufy end-if.) if receiving_pos is greater than 60 then  move spaces to fao_outbuf call "sys$fao" using* by descriptor fao_jpi_sline_directives by reference fao_outleno by descriptor fao_outbuf by descriptor " "e' by descriptor revised_dcl$line(61:)  giving call_statust if file_output then write fao_outbuf  elsee display fao_outbufc end-if  end-if.S perform with test after varying general_index from 1 by 1 until general_index = 20y evaluate general_index* when 1 move "Defaults:" to dummy_string) when other move spaces to dummy_stringl end-evaluate move spaces to fao_outbufs call "sys$fao" using* by descriptor fao_jpi_sline_directives by reference fao_outlenn by descriptor fao_outbuf by descriptor dummy_string) by descriptor defaults(general_index)l giving call_status8 if defaults(general_index) is not equal to spaces then if file_output thens write fao_outbuf else display fao_outbuf end-if end-ifq end-perform.odisplay_selection_exit. exit.tdisplay_trailer.B if displayed_process_counter = 0 then go to display_trailer_exit. move spaces to fao_outbuf5 compute total_memory = (total_wssize * 512)/ 1024000  call "sys$fao" usingt+ by descriptor fao_jpi_tline1_directivese by reference fao_outlenc by descriptor fao_outbuf& by value displayed_process_counter by value total_wssize* by value total_memory  giving call_statusn if file_output then write fao_outbufa else  display fao_outbufe end-if.display_trailer_exit.e exit.edisplay_sorted_records.*& if displayed_process_counter = 0 then call "sor$end_sort" using omittede giving call_statusd$ go to display_sorted_records_exit end-if. call "sor$sort_merge" using omitted  giving call_status. if (nosummary and header) thena3 perform display_header1 thru display_header_exit_ end-if.? perform display_sorted_detail thru display_sorted_detail_exit.t if (nosummary and trailer) then4 perform display_trailer thru display_trailer_exit end-if. if show_selection then 8 perform display_selection thru display_selection_exit end-if. call "sor$end_sort" using omitted  giving call_status.display_sorty'&$JPI021.AL1 J"[RJACK.JPI.021.EXTERNAL]JPI.COB;20Ned_records_exit. exit. display_sorted_detail. call "sor$return_rec" using by descriptor fao_outbuf omitted" omitted  giving call_status. if ss$_endoffile then# go to display_sorted_detail_exitl end-if. if file_output then write fao_outbufs else  display fao_outbuf  end-if. if jpi_symbols then% move fao_outbuf to jpi_detail_linex move spaces to fao_outbuf add 1 to symbol_counter call "sys$fao" using( by descriptor "JPI$detail_line_!4ZL" by reference fao_outlenF by descriptor fao_outbuf by value symbol_counterv giving call_status  call "lib$set_symbol" using* by descriptor fao_outbuf(1:fao_outlen)' by descriptor jpi_detail_line(1:80) omitted  giving call_status  end-if. go to display_sorted_detail.rdisplay_sorted_detail_exit.a exit. check_call_status. if call_status is failure then  call "lib$signal" using by value call_status omittede omitted omitted omitted omittedi giving call_status  end-call call "sys$setrwm" using omitted_ giving call_statuse end-call * stop run end-if.ocheck_call_status_exit.i exit. call "jpibas" using  omitted * by reference activity_type( by reference call_status end-call. " go to remote_cluster_scan.remote_cluster_scan_exit.i if dosort thentB perform display_sorted_records thru display_sorted_"*[RJACK.JPI.021.EXTERNAL]JPI.HLP;13+,j%.3/L 4M33`-J0123KPWO456@H'07̒89TLGLHJ1 JPIE Invokes the Job Process Information (JPI) utility, which displays a/ static one-line-per-process information line. 2 Parameters& The JPI command takes no parameters. 2 DescriptionH JPI is a wide area network tool that you can use to create a one-line-D per-process display of information. Depending on the criteria youG select, you can display information about all or specific processes = on local nodes or clusters and on remote nodes or clusters. D Although JPI can extract information from remote nodes and remote H VMSclusters, this feature is available only on nodes that are running I JPI Version 2.0 or higher and that have the JPI DECnet object properly H defined. (Defining the JPI DECnet object is part of the installation procedure.)> JPI displays the following values for each process selected:/ BASEPRIORITY NODENAME* CURRENT STATE PID. CURRENT WORKING SET SIZE PROCESS/ IMAGENAME TERMINAL/ MODE USERNAMEA For a description of each value in this list, refer to $GETJPI5 in the "OpenVMS System Services Reference Manual." Privileges Required F For you to access information for processes within your group, yourH calling process must have the GROUP system privilege. For you to viewD processes outside your group, your process must have WORLD systemF privilege. JPI displays only processes for which you have required  privileges. 2 Qualifiers /BASEPRIORITY /BASEPRIORITY=(keyword[,...])K Allows you to select processes based on the base priority of the process.I If you specify multiple keywords, separate them with commas and enclose the list in parentheses.A Following are explanations of the keywords MINIMUM and MAXIMUM: o MAXIMUM=nI Selects processes that have a base priority equal to or less than the7 specified parameter. The default for MAXIMUM is 63. o MINIMUM=nI Selects processes that have a base priority equal to or greater than : the specified parameter. The default for MINIMUM is 0. o (MINIMUM=n,MAXIMUM=n)E Selects processes that have a base priority within the parameters specified.C To specify a single base priority, specify MINIMUM and MAXIMUM as1 the same value. The default is all priorities.  Examples:, 1) JPI/BASEPRIORITY=(MINIMUM=4,MAXIMUM=10)A The command in this example selects only processes with base! priorities between 4 and 10. 2) JPI/BASEPRIORITY=MINIMUM=9H The command in this example selects processes with base priorities  between 9 and 16. + 3) JPI/BASEPRIORITY=(MINIMUM=4,MAXIMUM=4)G The command in this example selects processes with a base priority of 4./CLUSTER /CLUSTERC Causes JPI to search all cluster nodes for processes matching the> input selection criteria. The CLUSTER option is ignored when& specified from a noncluster system. H You cannot negate this qualifier. Specification of this qualifier will6 produce the same results as specifying /NODENAME=*. ? The /cluster and /nodename qualifiers are mutually exclusive./HEADER /HEADER (default) /NOHEADERF Controls whether a header line is displayed. You cannot specify this( qualifier with the /SUMMARY qualifier./HW_NAME# /HW_NAME=(cpu_hardware_name[,...])F Displays processes running on the specified CPU. The CPU name is theA same value as that returned from the $GETSYI("HW_NAME") lexical= function and the HW_TYPE item on a $ SHOW CLUSTER listing. D You can use the wildcard characters % and * and up to 10 arguments@ within the specification. If you specify multiple CPU hardware: names, separate them with commas and enclose the list in parentheses.B If a CPU hardware name includes one or more spaces, tabs, or theE slash (/) character, you must use quotation marks around the entire name; for example, "*/GPX". A You must use /HW_NAME with either the /NODENAME or the /CLUSTER qualifier.6 The default is all CPU types (that is, /HW_NAME=*). 5 Example: JPI/HW_NAME=("VAX 6000*","*VLC")/CLUSTERF The command in this example selects all processes running on any CPUB on the local cluster either beginning with the value VAX 6000 or& having VLC in the CPU hardware name. /IMAGENAME /IMAGENAME=(IMAGENAME[,...])E Specifies the image name or names to be used as selection criteria.D When you use this qualifier, JPI issues an implied /SWAP. (See the+ description of the the /SWAP qualifier.) @ You can use wildcard characters in image names. If you specifyF multiple image names, separate them with commas and enclose the list in parentheses. D If you use the /IMAGE qualifier, an implied /SWAP is issued to JPIF to ensure that all process image names are available for review. You< can override this implied /SWAP with a /NOSWAP qualifier. 9 The default is all image names (that is, /IMAGENAME=*).% Example: JPI/IMAGENAME=(*SMB*,DOC*)C The command in this example selects all processes that have image@ names containing SMB and all image names that start with DOC. E Performance note: Because the $PROCESS_SCAN system service does notD support an image name selection, JPI performs this selection afterD the $GETJPI system service has been called. As a result, IMAGENAMEF is a costly option in terms of performance; that is, you will noticeG a degradation in display response time when you use this qualifier.) /JOBTYPE /JOBTYPE=(jobtype[,...])A Specifies the process job type or types to be used as selection@ criteria. Possible job types are LOCAL, DIALUP, REMOTE, BATCH, NETWORK, and DETACHED. A You need to enter only enough text to uniquely identify the jobD type. If you specify multiple job types, separate them with commas& and enclose the list in parentheses.7 The default is all job types (that is, /JOBTYPE=ALL).$ Example: JPI/JOBTYPE=(LOCAL,BATCH)C The command in this example selects processes that have the LOCAL! and BATCH job type attributes. /MODE /MODE=(mode[,...])= Specifies the process mode or modes to be used as selection@ criteria. The modes are INTERACTIVE, BATCH, NETWORK and OTHER.F You need to enter only enough text to uniquely identify the mode. IfC you specify multiple modes, separate them with commas and enclose the list in parentheses.0 The default is all $JPI021.Aj%J"[RJACK.JPI.021.EXTERNAL]JPI.HLP;13M3<" modes (that is, /MODE=ALL).' Example: JPI/MODE=(INTERACTIVE,BATCH)E The command in this example displays INTERACTIVE and BATCH process  modes. /NODENAME /NODENAME[=(nodename[,...])]= Specifies the cluster node or nodes to be used as selectionE criteria. You can use DCL wildcard characters in node names. If youD specify multiple node names, separate them with commas and enclose the list in parentheses. > JPI ignores the /NODENAME qualifier when you specify it on aB non-clustered system. You cannot use /NODENAME with the /CLUSTER qualifier. > To retrieve information from the local node when you use theD /RNODENAME or /RCLUSTER qualifier, you must also use the /NODENAME qualifier. F Node name values can be logical names. Only first-level logical nameA translation is performed on logical names; that is, a specifiedD value cannot translate to a logical name that, in turn, translates to another logical name. B You can specify up to 50 node names. If a node name is a logicalB name that points to multiple values, each of these corresponding) values counts against the limit of 50. Example: $ DEFINE CI SNAK,NOLAND,IPM31 $ JPI/NODENAME=(CI,PCDE*)D The JPI command following the definition actually uses up 4 of theF possible 50 node name values -- three for the translated values fromF the logical CI, and one for the wildcarded explicit value of PCDE*. E If you do not specify a node name, the default is the current node.& Example: JPI/NODENAME=(HICCUP,DSWK%)4 The command in this example selects the following:$ o All processes on the node HICCUPE o Processes on nodes with node names that are 5 characters long and' have DSWK as the first 4 characters/OUTPUT /OUTPUT=(filename) /NOOUTPUTA Controls where the output of the command is sent. You must haveD write access to the specified area. The default area for a file is# the current device and directory. /PRIVILEGE /PRIVILEGE=(PRIVILEGE[,...])D Specifies the process privileges to be used as selection criteria.? You cannot use wildcards. If you specify multiple privileges,A separate them with commas and enclose the list in parentheses. C You can concatenate privilege names with the plus (+) sign if youE place quotation marks around concatenated privileges; for example,  "SYSNAM+READALL". ; The default is all image names (that is, /PRIVILEGE=ANY).= Example: JPI/PRIVILEGE=("READALL+GRPPRV",SYSNAM,BYPASS,SYS)B The command in this example finds a process match if the process@ currently has READALL and GRPPRV privileges, as well as SYSNAM5 privilege or BYPASS privilege or SYSPRV privilege. D Privileges available to an authorized process on a VMS Version 6.1 system are the following: K ACNT, ALLSPOOL, ALTPRI, AUDIT, BUGCHK, BYPASS, CMEXEC, CMKRNL, DETACH, I DIAGNOSE, DOWNGRADE, EXQUOTA, GROUP, GRPNAM, GRPPRV, IMPORT, LOG_IO, H MOUNT, NETMBX, OPER, PFNMAP, PHY_IO, PRMCEB, PRMGBL, PRMMBX, PSWAPM,M READALL, SECURITY, SETPRV, SHARE, SHMEM, SYSGBL, SYSLCK, SYSNAM, SYSPRV, # TMPMBX, UPGRADE, VOLPRO, WORLD E Many privileges, with varying degrees of power and potential systemD impact, are available. See the OpenVMS System Manager's Manual for6 a more detailed discussion of available privileges. @ Performance note: Using the /PRIVILEGE qualifier can adversely! affect the performance of JPI. /PROCESS /PROCESS=(process[,...])= Specifies the process name or names to be used as selectionD criteria. You can use wildcard characters in process names. If you? specify multiple process names, separate them with commas and# enclose the list in parentheses. 9 The default is all process names (that is, /PROCESS=*).# Example: JPI/PROCESS=(SYSTEM,JA*)F The command in this example selects all processes with process names@ of SYSTEM and process names that begin with the characters JA. /RCLUSTER /RCLUSTER=(clustername[,...])B Specifies the remote cluster or clusters for which the selectionF criteria apply. If you specify multiple cluster names, separate them3 with commas and enclose the list in parentheses. B JPI will make selections on all nodes currently executing in theE cluster and meeting all other specified selection criteria. As withA the /NODENAME qualifier, these values can be logical names. The& limit for cluster name values is 50.@ You must define the JPI DECnet object on the remote node; thisE object must point to a valid JPI image (Version 2.0 or higher). You> can pass access control information as part of the node nameD specification. In the absence of optional proxy access information@ on the target node or nodes, default DECnet access information applies. @ Specifying /RCLUSTER negates default selection criteria on theF issuing node. If you also want cluster information about the issuingE node or cluster, you must explicitly specify a /NODENAME or/CLUSTER qualifier on the command line. /RNODENAME /RNODENAME=(nodename[,...])A Specifies the remote node name or names for which the selectionC criteria apply. As with the /NODENAME qualifier, these values canA be logical names. The limit for node name values is 50. The JPIA DECnet object must be properly defined on the remote node; thisA object must point to a valid JPI image (Version 2.0 or higher).B You can pass access control information as part of the node nameD specification. In the absence of optional proxy access information@ on the target node or nodes, default DECnet access information applies. A Specifying /RNODENAME negates default selection criteria on theF issuing node. If you also want process information about the issuingE node or cluster, you must specify a /NODENAME or /CLUSTER qualifier on the command line. < Example: JPI/RNODENAME=(IM4U"rburns greatscotts",COOKIE::)C The command in this example issues remote calls to nodes IM4U and COOKIE:> o For node IM4U, JPI will utilize the user name "rburns" and8 password "greatscotts" to log in to the JPI process.E o To log in to node COOKIE, JPI must have proxy information defined2 for the calling username:password combination. /SELECTION /SELECTION /NOSELECTION (default)D Indicates that selection criteria are to be displayed. The command1 line and any default values will be displayed.  > If you use the /SELECTION qualifier and also supply passwordF information with an /RCLUSTER qualifier, an /RNODENAME qualifier, orA both, the literal word "password" is substituted for the actual, password on the displayed selection line. /SORT /SORT=(keyword[,...]) /NOSORT (default)@ Specifies the sort sequence for the output. Valid keywords areD BASEPRIORITY, IMAGE, JOBTYPE, MODE, NODENAME, PID, PROCESS, STATE," TERMINAL, USERNAME, and WSSIZE. A If you specify multiple keywords, separate them with commas andE enclose the list in parentheses. You cannot use this qualifier with the /SUMMARY qualifier.F If you specify /SORT without any keywords, the default sort sequenceE is by ascending user name. The default sorting order is ascending. @ You can specify the sorting order for each keyword specified. - Example: /SORT=(USERNAME=DESCENDING,WSSIZE)B The command in this example sorts the output first by descendingA user name, and then, within user name, by ascending working set size./SUMMARY /SUMMARY /NOSUMMARY (default)D Limits the display to only a summary line. You cannot specify this9 qualifier with either the /HEADER or /SORT qualifiers. /SWAP /SWAP /NOSWAP (default)F Causes the $GETJPI system service to swap in any processes that haveC been swapped out. You can use this option to retrieve any process9 information in the outswapped process data structures. < Currently, the process image name and working set size areC maintained in swappable data structures; you can retrieve them by" specifying the /SWAP qualifier. D Performance note: Inswapping can cause considerable degradation in JPI performance./SYMBOLS /SYMBOLS /NOSYMBOLSE Instructs JPI to create local string symbols that equate to the 6 formatted detail lines. Symbol names are of the form7 JPI$DETAIL_LINE_nnnn, where nnnn is a zero-filled and right-justified integer. A In addition, the local string symbol JPI$ITEM_COUNT contains anC integer value representing the total numbeHV$JPI021.Aj%J"[RJACK.JPI.021.EXTERNAL]JPI.HLP;13M3-"r of processes matchingB the selection criteria. When there are no matches, the symbol is equated to 0. /TERMINAL /TERMINAL /NOTERMINAL! /TERMINAL=(terminal_name[,...]) /TERMINAL=none /TERMINAL=anyD Specifies the process-associated terminal name or names to be usedE as selection criteria. JPI selects a process if any of the suppliedA values match the name of a terminal associated with a process. A You can enter up to 10 separate terminal specifications. If you@ specify multiple terminal names, separate them with commas and# enclose the list in parentheses. ? You can use wildcards anywhere within the arguments. When youC specify /TERMINAL=none or /NOTERMINAL, JPI selects only processesG that have no associated terminal. This is equivalent to /TERMINAL=". 8 The default is all terminals (that is, /TERMINAL=*). Examples: 1) JPI/TERMINAL=(RTA*,FTA*)A The command in this example selects processes with associated0 terminal names that begin with RTA and FTA.  2) JPI/TERMINAL=(none,RTA*)D The command in this example selects processes with no associatedC terminal and terminal names that begin with the characters RTA.t 3) JPI/NOTERMINALF The command in this example selects only those processes that have no associated terminals. g 4) JPI/TERMINAL=ANY= The command in this example selects processes that have as1 non-blank terminal name associated with them.nD Specify /TERMINAL=ANY if you want to specify processes that have aB terminal associated with them. The ANY value deselects processes$ that have no terminal association./TRAILER /TRAILER (default) /NOTRAILER F Causes a one-line summary of the number of processes to be displayed> after the last detail process line has been displayed. TheseE processes are ones found within the selection criteria to which youN had access privileges.  /USERNAME  /USERNAME=(USERNAME[,...])SD Specifies the user name or names to be used as selection criteria.? You can use wildcard characters in user names. If you specifysE multiple user names, separate them with commas and enclose the listV in parentheses.  r7 The default is all user names (that is, /USERNAME=*).u# Example:JPI/USERNAME=(KAHILL,JA*)tF The command in this example selects all processes that have the userB name KAHILL and all processes with user names beginning with the characters JA. 2 Usage_Notes C Select remote node information by using the /RNODENAME qualifier;.? select remote cluster information by specifying the /RCLUSTER.D qualifier; or you can use both qualifiers together. The syntax forD these qualifiers is identical to that specified with the /NODENAME qualifier. s @ In addition, you can specify access control information in theE standard DECnet syntax for each of the remote nodes or clusters you specify. a3 RestrictionsD The OpenVMS operating system implementation of the $GETJPI system F service has imposed a number of constraints and restrictions on JPI D Version 2.1. JPI, however, has been coded to handle or work around these restrictions. 4 IMAGENAME searchesE Because the $PROCESS_SCAN system service does not support the IMAGE E item class, JPI has implemented this feature as a back-end scan. Ind< other words, when you specify image name keywords with the@ /IMAGENAME qualifier, JPI first scans processes that match anyF qualifiers you specify in addition to /IMAGENAME; JPI then scans the@ processes that have been selected for image name matches. ThisC search method can add a significant amount of time to the overalle> search. Therefore, it is recommended that you use additional9 qualifiers that narrow the search as much as possible. sC For example, if you want to see which processes in the VMSclusterLF environment are currently running the VMSHELP image under the SYSTEMD account, issuing the first command greatly reduces the search time, compared to issuing the second command: @ o In the following example, JPI first selects processes in theA VMScluster environment with the SYSTEM user name; among thesec@ processes, JPI then selects processes with the VMSHELP image name: 3 $ JPI/USERNAME=SYSTEM/IMAGE=VMSHELP/CLUSTER eE o In the following example, JPI must search all of the processes inRC the VMScluster environment for processes with the VMSHELP image name: # $ JPI/IMAGE=VMSHELP/CLUSTER T4 USERNAME searchesaC The current implementation of the $PROCESS_SCAN system service oni? OpenVMS VAX systems prohibits an exact match on JPI /USERNAMEa? qualifier keywords. Although this restriction applies only toi< OpenVMS VAX systems, because a JPI call might be made in aC dual-architecture environment, the restriction applies to all JPIeC requests using the /USERNAME qualifier, regardless of the OpenVMSr architecture. ? On OpenVMS VAX systems, an exact match on /USERNAME using the < $PROCESS_SCAN system service is not possible. For example,B although processes might currently be executing under the SYSTEMC username, if you specify to the $PROCESS_SCAN system service (the6< F$CONTEXT lexical function) that you want a search contextE established for USERNAME=SYSTEM, the context actually returns null,n indicating no matches. @ To correct this problem, the JPI application has been coded toC append a wildcard asterisk (*) to each /USERNAME keyword that you A supply. In this way, $PROCESS_SCAN establishes a search contextsE that includes processes with the specified user name or names. Thisr6 change applies to both OpenVMS VAX and AXP systems. C Because of the addition of the asterisk, however, JPI selects ALL ? processes with a prefix match on the specified user name. ForuF example, if you specify JPI/USERNAME=SYS, JPI displays all processesB with user names beginning with SYS (which, besides SYSTEM, might" include SYS0, SYS1, and so on). 3 Cluster Usage ; You might need to increase your account BYTLM quota to anAD artificially high value for a clusterwide process scan to succeed.D This problem, which is limited to OpenVMS AXP Version 6.1, appearsA only when you request a cluster-wide search either from a localtA OpenVMS AXP cluster node with the /CLUSTER qualifier, or from amA remote OpenVMS AXP cluster node using the /RCLUSTER qualifier. dD In a dual-architecture cluster, you can circumvent this problem by issuing the JPI call either: rB o From one of the OpenVMS VAX nodes within the local cluster, or9 o To one of the OpenVMS VAX nodes on the remote clusterc3 Remote ScansB JPI Version 2.1 supports the ability to request process scans onD nodes that are connected through DECnet to the node from which theF JPI calls are initiated. The remote node or nodes must have both JPIC Version 2.0 or higher installed AND a properly defined DECnet JPIiD object. (Defining a DECnet JPI object is an installation option.)  , If remote calls fail, check the following:> o Is JPI Version 2.0 or higher installed on the remote node?: o Is the JPI DECnet object installed on the remote node?= o If you are specifying access control information with thed; /RNODENAME or /RCLUSTER qualifier, check the following: A - Is the combination of USERNAME/PASSWORD valid on the remotey node? D - Are there fatal login errors for the remote JPI process on the> remote node? Check the NETSERVER.LOG file in the default, USERNAME directory on the remote node.= - Has the remote account been disabled or has it expired?sD - Does the remote account allow network access for the given day and time?.A - If the remote account is CAPTIVE or RESTRICTED, and a logino? command file is specified in the remote account AUTHORIZE.D record, the login command file must exist, and the caller must have read access to it.eA o If you are not specifying access control information with thenC /RNODENAME or /RCLUSTERNAME qualifier, check to see that one orR# both of the following are true:oB - Default access control information for the JPI object on the remote node is valid.eE When the JPI installation creates the JPI object, the object is.F created without default user ID/password information. Therefore,C the DECnet Executor defaults apply. If DECnet Executor valueseB for nonprivileged user ID and nonprivileged user password do@ not exist or arem$JPI021.Aj%J"[RJACK.JPI.021.EXTERNAL]JPI.HLP;13M3O0 not valid (in the absence of any suppliedC access control information or proxy access), the remote logins8 fails and JPI issues the following error message: H JPI-E-NONETLNK Error connecting to NETWORK object at node XXXXXXB If this error occurs, see your system manager for assistanceD with defining default access information for the JPI object on! the remote node or cluster.iD - Proxy information for the issuing NODE::USERNAME exists on the remote node.A Note that a remote JPI call has access only to processes on the B remote node or cluster to which the target user name has access.A For example, if the JPI object on the remote node or cluster is F defined to use the DECnet account by default, and you do not specifyA access control information with the /RNODENAME or /RCLUSTERNAMEaA qualifier, the remote process scan recognizes only processes toh@ which the DECnet account has read access on the remote node or cluster. For example: 2 JPI/RNODENAME=FOO"TMACK ONETWOBUCKLEMYSHOE"::= The command in this example uses TMACK as the user name andcF ONETWOBUCKLEMYSHOE as the password to access processes on the remoteA node FOO. JPI will display only those processes on FOO to whichv0 this user name and password have read access. 2 Examples 1. $ JPI/OUTPUT=JPI.LOGB Accesses the JPI utility and displays all processes on the: current node for which you have access privileges.C 2. $ JPI/CLUSTER/USERNAME=(SYS*,AUDIT*)/SORT=USERNAME=DESCENDINGmE The same as Example 1, but in addition, from each node in thePC cluster the command selects processes to which the user hasSE access and which have user names beginning with either SYS orn@ AUDIT; the command then sorts the output by user name in descending order. .*[RJACK.JPI.021.EXTERNAL]JPI021.RELEASE_NOTES;8+,1 .-/L 4P--<-J0123KPWO.56G7̒89GLHJ N********* JPI V2.1-3 ************ Release Notes ******************************* April 1995 ** Rodney Jack ******************G *******************************************************************E * Digital does not warrant that the System Management Example *E * provided herein will meet customers' requirements, operate *E * without interruption or be error free. *G *******************************************************************O CAUTION CAUTION CAUTION CAUTION CAUTION CAUTION CAUTION N ****************************************************************************N *** This utility uses the DCLTABLES CLI for a command named JPI. JPI is ***N *** NOT a DEC registered command and therefore may, in the future, ***N *** conflict with a DEC registered DCL command. ***N ****************************************************************************H JPI is an OpenVMS wide-area network tool which is used to create a oneH line per process static information display for all processes matchingJ specified selection criteria, displaying the output according to displayE criteria. JPI utilizes the $process_scan and $getjpi OpenVMS SystemJ Services to accomplish the scanning. Scanning can be targeted to a localJ node, a remote node, a local OpenVMS Cluster or a remote OpenVMS clusterH or any combination of these. JPI V2.1 will execute on OpenVMS VAX V5.3+ and later and OpenVMS AXP V6.1 and later.+ The following is a sample display output: $ JPI/USER=SYSTEMA Job/Process Information from VAX/VMS T6.1-5Z0N From node MYNODE (VAXstation 3100/GPX) at 22-MAR-1994 15:42:41.73NPID Term Username Process Name Image Name PriB Work State M NodeP--------------------------------------------------------------------------------P00000085 SYSTEM...... IPCACP....... IPCACP...... 8 2052 HIB O MYNODEP00000086 SYSTEM...... ERRFMT....... ERRFMT...... 7 516 HIB O MYNODEP00000087 SYSTEM...... OPCOM........ OPCOM....... 6 516 HIB O MYNODEP00000089 SYSTEM...... JOB_CONTROL.. JBC$JOB_CONT 8 1028 HIB O MYNODEP0000008A SYSTEM...... QUEUE_MANAGER QMAN$QUEUE_M 8 1482 HIB O MYNODEP0000008B SYSTEM...... SECURITY_SERV SECURITY_SER 8 1628 HIB O MYNODEP0000008C SYSTEM...... TP_SERVER.... TPSERV...... 8 2052 HIB O MYNODEP00000090 SYSTEM...... REMACP....... REMACP...... 8 516 HIB O MYNODEP00000092 SYSTEM...... DQS$NOTIFIER. DQS$NOTIFIER 4 516 LEF O MYNODEP00000094 SYSTEM...... SYMBIONT_2... DQS$SMB..... 4 1032 HIB O MYNODEP00000095 SYSTEM...... SYMBIONT_3... DQS$SMB..... 4 1032 HIB O MYNODEP00000096 SYSTEM...... LATACP....... LATACP...... 12 666 HIB O MYNODEP00000098 SYSTEM...... SYMBIONT_5... DCPS$SMB.... 4 1032 HIB O MYNODEP00000099 SYSTEM...... SYMBIONT_6... DCPS$SMB.... 4  1032 HIB O MYNODEP0000009F SYSTEM...... DNS$ADVER.... DNS$ADVER... 4 516 HIB O MYNODEP000000A2 SYSTEM...... NSCHED....... NSCHED...... 6 1716 LEF O MYNODEP000000A5 SYSTEM...... SCHED_REMOTE. SCHED_REMOTE 3 812 LEF O MYNODEP000000A9 SYSTEM...... SYMBIONT_7... VTXWPSSMB... 4 516 HIB O MYNODEP000000AA SYSTEM...... VTXSRV....... VTXSRV...... 6 1112 HIB O MYNODEP000000AB SYSTEM...... VTX$WBSRV.... VTX$WBSRV... 6 1112 HIB O MYNODEP000001AC SYSTEM...... SYMBIONT_8... DCPS$SMB.... 4 2682 HIB O MYNODEP000001CF SYSTEM...... SYMBIONT_9... PRTSMB...... 4 1032 HIB O MYNODEBTotal of 22 Processes using 24598 pages (12 mb) of physical memory I Please see the DCL help on JPI for information on qualifiers allowed on the JPI command line. Current RestrictionsF There are a number of constraints and restrictions imposed with thisF version of JPI by the OpenVMS operating system implementation of theE $getjpi system service. JPI has been coded to handle or work-around these restraints. 1 Restrictions when using the USERNAME qualifier.C The current implementation of the $PROCESS_SCAN system service on? OpenVMS VAX systems prohibits an exact match on JPI /USERNAME? qualifier keywords. Although this restriction applies only to< OpenVMS VAX systems, because a JPI call might be made in aC dual-architecture environment, the restriction applies to all JPIC requests using the /USER NAME qualifier, regardless of the OpenVMS architecture. ? On OpenVMS VAX systems, an exact match on /USERNAME using the< $PROCESS_SCAN system service is not possible. For example,B although processes might currently be executing under the SYSTEMC username, if you specify to the $PROCESS_SCAN system service (the< F$CONTEXT lexical function) that you want a search contextE established for USERNAME=SYSTEM, the context actually returns null, indicating no matches. @ To correct this problem, the JPI application has been coded toC append a wildcard asterisk (*) to each /USERNAME keyword that youA supply. In this way, $PROCESS_SCAN establishes a search contextE that includes processes with the specified user name or names. This6 change applies to both OpenVMS VAX and AXP systems. C Because of the addition of the asterisk, however, JPI selects ALL? processes with a prefix match on the specified user name. ForF example, if you specify JPI/USERNAME=SYS, JPI displays all processesB with user names beginning with SYS (which, besides SYSTEM, might" include SYS0, SYS1, and so on). ) Notes on using the IMAGENAME qualifier.C Since the $process_scan system service does not support the IMAGEC item class, this feature is implemented as a back-end scan within> the JPI application. That is, when you specify image name(s)C keywords with the /IMAGE qualifier, ALL processes which match anyD and all additional qualifiers are subsequently scanned for a matchA } $JPI021.A1 J.[RJACK.JPI.021.EXTERNAL]JPI021.RELEASE_NOTES;8P-W" on imagename. Depending on how many other search qualifiers areD present, this IMAGENAME search can add significant amounts of timeD to the overall search. It is therefore strongly suggested that youB narrow the search by using as many other selection qualifiers as1 possible when the /IMAGENAME qualifier is used.@ Example: If you want to see which processes on the cluster are? currently running the VMSHELP image under the SYSTEMC account, issuing command 1 below will GREATLY reduce the, search time over command 2 below.9 1. $ JPI/USERNAME=SYSTEM/IMAGE=VMSHELP/CLUSTER) 2. $ JPI/IMAGE=VMSHELP/CLUSTERF Notes on Cluster Usage via the /RCLUSTER or the /CLUSTER qualifiers.@ It may be necessary to increase your account BYTLM quota to anE artificially high value for a cluster-wide process scan to succeed.F This seems to be a problem only on OpenVMS AXP and later releases ofE OpenVMS AXP may alleviate this necessity. This problem is exhibited@ only when a cluster-wide search is requested to an OpenVMS AXPB cluster node. In a dual architecture cluster, you can circumventB this problem by issuing the JPI call from one of the OpenVMS VAXF nodes within the local cluster or to one of the OpenVMS VAX nodes on the remote cluster.F Notes on executing JPI scans on remote nodes and/or remote clusters.A Beginning with version 2.0, JPI supports the ability to requestD process scans on nodes which are connected with DECNET to the nodeB from which the JPI calls are being initiated. The remote node(s)B must also have JPI V2.0 or higher installed and they must have aF properly define DECNET JPI object (this is done as a option when JPI@ in installed). If remote calls fail, you may want to check the following:: 1. Is JPI V2.0 or higher installed onto the remote node?; 2. Is the JPI DECNET object installed on the remote node?A 3. If you're not specifying access control information with theD /RNODENAME or /RCLUSTERNAME qualifier, check to see that one or# both of the following is true:D a) Default access control information for the JPI object on the remote node is valid.C When the JPI object is created by the JPI installation, the= JPI it is created WITHOUT any default userid/password@ information. Therefore the DECNET Executor defaults willF apply. If DECNET Executor values for nonprivileged user id andD nonprivileged user password don't exist or are not valid, inA the absence of any supplied access control information orB proxy access, the remote login will fail and the following, error message will be issued by JPI.H JPI-E-NONETLNK Error connecting to NETWORK object at node XXXXXXH If this is the case, see your system manager for assistance withE defining default access information for the JPI object on the remote node/cluster.F b) PROXY information for the issuing node::username exists on the remote node.A Please remember that a remote JPI call will have access only to> processes on the remote node or cluster for which the targetC username has access. For example, if the JPI object on the remoteF node/cluster is defined to use the DECNET account by default and youB DO NOT specify access control information with the /RNODENAME orA /RCLUSTERNAME qualifier, then the remote process scan will onlyA 'see' processes to which the user DECNET has read access on the remote node or cluster.V2.1-3 Changes: 1. Documentation Fixes:' a) Modified HELP JPI/SUMMARY@ changed /SUMMARY (default) to /NOSUMMARY (default)+ instead of /SUMMARY (default)8 b) Modified HELP JPI USAGE_NOTES RESTRICTIONS( Removed blank line in text' c) Modified HELP JPI/CLUSTER@ Removed /NOCLUSTER (default), as this qualifier is non-negatable.V2.1-2 Changes: 1. Bug fixes:E a) Change /sort=priority to /sort=basepriority in order toG accurately reflect the CLD. Specifying /sort=basepriorityC would not product the expected sort by base-priority.I b) This bug fix applies to stand-alone systems only which have5 a nodename of less than six characters.K Specifying ANY qualifiers on the JPI command-line would cause7 JPI to exit without producing any output.H The output would be unaffected if there were NO qualifiers* present on the command-line.V2.1-1 Changes: 1. Bug fixes:I a) System software version field length increased from 6 to 106 characters on the display header line 1.D b) Updates process priv masks to match those available in OpenVMS V6.1M c) /BASEPRIORITY values for MINIMUM and MAXIMUM are now limited toJ values between and including 0 thru 63. In addition, MIN/MAXL combinations are now checked for validity. That is MIN must beJ less than or equal to MAX, MAX must be greater than or equalN to MIN. Failure of either will produce a fatal error and program abort.M d) Compare /priv values against process CURRENT privileges instead$ of DEFAULT privileges.F e) Remove privilege keywords from the CLD thus allowing forI concatenation of specified privileges. See the DCL HELP on = JPI /PRIV for more information on this feature. f) AXP ONLY.K Because of a 'problem' with the $process-scan code on OpenVMSF VAX, inserted code that appends the "*" character to theH username keyword(s) so that $getjpi will actually match onK username(s). Without this 'code' the command JPI/USERNAME=FOOF would return a no-match even when processes were runningJ under username FOO. Unfortunately this 'patch', disables theJ ability to match on non unique usernames. For examples, if aE node has processes executing using usernames of FOO andJ FOOBAR, the command JPI/USER=FOO will return processes using& username FOO and FOOBAR.J g) Create the /DECNET object without default nonprivileged user" account information. V2.1 Changes:D This kit will now install onto OpenVMS VAX 5.3 or higher and# OpenVMS AXP V6.1 or higher.H 1. Modified COBOL code to conform to DEC COBOL standards so that9 JPI will compile properly on both AXP and VMS.I 2. Modified the installation procedure KITINSTAL.COM file to lookJ at the Hardware platform and use the appropriate object modules, for either a VAX or AXP platform.G 3. Modified the JPI_IVP.com to check for and use a logical name for DCLTABLES.L 4. JPI Header display Hardware platform correctly as either ALPHA or VAX.V2.0-2 Changes:I 1. The DECNET object JPI now uses a fictitious username. This mayH be changed of course by a suitably privileged user. This is aI 'security' feature and prevents a remote JPI from executing onK this node by using the DEFAULT DECNET access control information on this node.- Example: NCP>show obj jpi charE Object Volatile Characteristics as of 16-FEB-1994 17:27:29 Object = JPI' Number = 08 File id = SYS$SYSTEM:JPI.EXE. User id = JPI$USER3 Password = DUMMYPASSWORDI 2. JPI.COB was slightly modified so that it'l compile and execute< properly using DEC COBOL V1.1 on OpenVMS AXP V6.1V2.0-1 Changes:I 1. If the /selection switch is chosen and password information isL also provided within a /rcluster and/or a /rnodename switch, thenD the literal word "password" is substituted for the actual4 password on the displayed selection line.F 2. Bug fix. If /noterm was specified with a /rcluster and/or a= /rnodename, then an arithmetic trap was occurring.V2.0 Changes:I 1. JPI is now capable of extracting information from remote nodesG and remote clusters. This fea`~$JPI021.A1 J.[RJACK.JPI.021.EXTERNAL]JPI021.RELEASE_NOTES;8P-H ture is available only on nodesG which are running JPI V2.0 or greater and which have the JPIE DECNET object properly defined. Remote node information isB selected using the /RNODENAME qualifier. Remote clusterI information is selected by specifying the /RCLUSTER qualifier.J The syntax for each of these qualifiers is identical to that asG specified with the /NODENAME qualifier. In addition, you mayK specify access control information in the standard DECNET syntax@ for each of the remote nodes or cluster your specify.B Example: /rnode=(MYNODE"system password",OURVAX::")L All file specification information is optional with the exception of the nodename.V1.4 Changes:M 1. Nodename values can now be logical names. Only first level logicalJ name translation is performed. That is a specified value cannotN translate to a logical which in turn translates to another logical.C 2. The number of nodename values specified has been increased fromJ ten to fifty. Each explicit nodename value and every translated; logical value count against the limit of fifty. / Example: define ci bhak,deland,ipl31* Specifying jpi/node=(ci,ipcde*)M Actually uses up four of the possible fifty nodename values. ThreeJ for the translated values from the logical "CI" and one for the0 wildcarded explicit value of "pcde*".V1.3-5 Changes: B 1. Three additional selection qualifiers have been added. The are a) /terminal b) /jobtype c) /hw_nameB 2. If the /image qualifier is used, an implied /swap is issued toK JPI in order to ensure that all process imagenames are availableqM for review. This implied /swap can be overridden with an explicate  /noswap qualifier.*- 3. Two new sort keys have been added:* a) TERMINAL b) JOBTYPE C Note: In order to access process information for processes within*E your group your calling process must possess the GROUP systemtD privilege. To view processes outside your group your processC must possess the WORLD system privilege. Only processes for*@ which you have appropriate privileges will be displayed.A Selection Criteria may include any combination of the following:* 1. BASEPRIORITYF Process Base Priority, Specify a minimum and/or a maximum).= The default is BASEPRIORITY=(MINIMUM=0,MAXIMUM=63) 0 (ie. JPI/BASEPRIORITY=(MINIMUM=4,MAXIMUM=10) 2. IMAGENAMEtF Wildcards Allowed, up to ten separated by commas and withinG parentheses. The default is IMAGENAME=ALL which will include 2 processes with no imagename associated.) (ie JPI/IMAGENAME=(*DEC*,OPCOM,%%PAD)u: NOTE: Since the $process_scan system service does notC support an imagename selection, this selection ish? performed after the $getjpi system service isD called. This means that this is a costly (in termsB of performance) input selection criteria and theE user will notice a degradation in display responsesr: when this selection qualifier is chosen. 3. MODEG Process mode, Specify any combination of the 4 process modes J INTERACTIVE,BATCH,NETWORK or OTHER, the default is to select by all modes. % (ie. JPI/MODE=(INTERACTIVE,BATCH)E 4. NODENAMEF Wildcards Allowed, up to ten separated by commas and withinE parenthesis. The default is to select by the current node.S (ie JPI/NODENAME=DSWK% ) (ie JPI/CLUSTER ) 5. PRIVILEGE J Specify the list of current process privileges. This is not theF process DEFAULT privileges or AUTHORIZED privileges but theH actual CURRENT privileges which the process holds at the timeJ the scan is performed. No wildcards allowed. Privileges can notI be negated. Specify up to 10 privileges and separate them with.I commas within parenthesis. Privileges may be concatenated withMI the plus (+) character. Concatenated privileges are treated as F one privilege for the 10 privilege limit. If privileges areE concatenated, the process must own all of the concatenated.+ privileges for a match to occur. : (ie JPI/PRIVILEGE=(READALL+SYSNAM,BYPASS,ALTPRI+MOUNT)> In the above example, the process will match the selection@ criteria if any of the following conditions are true:) a) It has READALL and SYSNAM privileges1 b) It has BYPASS privilege' c) It has ALTPRI and MOUNT privileges. 6. PROCESS I Process Name, Wildcards Allowed, up to ten separated by commas1J and within parentheses. The default is to select by all process names.O0 (ie JPI/PROCESS=(SYSTEM,FOO*,AU%%T_CONTROL ) 7. USERNAMEF Wildcards Allowed, up to ten separated by commas and withinB parenthesis. The default is to select by all usernames.) (ie JPI/USERNAME=(SYSTEM,AUDIT*,MC* )e 8. JOBTYPEJJ Job type keywords only allowed here. Separate multiple keywordsC with commas and enclose the list within parenthesis. TheiI allowable keywords are: LOCAL, DIALUP, REMOTE, BATCH, DETACHEDiK and NETWORK. This qualifier is currently not compatible with theoH /MODE qualifier. When /jobtype is specified, then the displayH will include the process jobtype in the same column where the4 process mode would normally be displayed.$ (ie JPI/JOBTYPE=(NETWORK,DIALUP)L This example will select processes which possess either the LOCAL' or DIALUP jobtype attribute.l 9. TERMINALnF Wildcards allowed. Up to ten arguments. This qualifier willD identify processes which have the specified terminal name associated with them.O ie. JPI/TERMINAL=(RTA*,FTA*) ! Sel terminals with leading RTA or FTA E ie. JPI/NOTERMINAL ! Select only blank terminalsrG ie. JPI/TERMINAL=ANY ! Select any non blank terminalXI Specifying /noterm will cause only those process which have noE. associated terminal to be selected.L Specify /term=any if you wish to specify processes which have anyH terminal associated with them. This 'any' value will deselect8 processes which have no terminal association. 10. HW_NAMEJ Wildcards allowed. Up to ten arguments. Specify the cpu name(s)G for which processes are to scanned for selection. If you usetE spaces, tabs or the "/" character, then enclose the entireiA argument in double-quotation marks. The search is case  insensitive.p+ (ie. JPI/HW_NAME=("VAX 6*",VLC) E Display Criteria is currently limited to the mentioned fields sorted E in any combination of field order, either in ascending or descendings order.t* (ie. JPI/SORT=(WSSIZE=DESCENDING,PROCESS)@ See the supplied help file for more detailed information on the' input and output qualifiers available.iD This utility was written using COBOL simply because this was the G developers language of choice and not necessarily the most efficientf coding mechanism.B Files modified or created by the supplied installation kit are as follows: * SYS$LIBRARY:DCLTABLES.EXE updated SYS$SYSTEM:JPI.EXE createde+ SYS$HELP:HELPLIB.HLB updatede# JPI.COB created (optionally)i) SYS$MANAGER:JPI012.RELEASE_NOTES createdE Enjoy!iused.@ Example: If you want to see which processes on the cluster are? currently running the VMSHELP image under the SYSTEMC account, issuing command 1 below will GRE$*[RJACK.JPI.021.EXTERNAL]JPIBAS.BAS;4+,(./L 4Zt-J0123KPWO56 ݽ7`G̒89TLGLHJqB$JPI021.A(J$[RJACK.JPI.021.EXTERNAL]JPIBAS.BAS;4ZڣZ10 sub jpibas(passed_data$ by desc,long activity_type by ref,long call_status by ref)P12 REM *******************************************************************P REM * Digital does not warrant that the System Management Example *P REM * provided herein will meet customers' requirements, operate *P REM * without interruption or be error free. *P REM ******************************************************************* REM215 REM activity codes are as follows:16 REM 1 is open a file17 REM 2 is close a file18 REM 3 is read a record19 REM 4 is write a record$300 WHEN ERROR USE error_routine+400 MAP (RODMAP) STRING ROD$ = 1282500 on activity_type goto 1000,2000,3000,400021000 if nodename$ = "" then gosub get_nodename21010 open passed_data$ as file #1%, map rodmap1020 call_status = 11030 goto 100002000 close #12010 goto 100003000 get #1'3010 passed_data$ = left$(rod$,80%)3020 goto 100004000 rod$ = passed_data$4005 put #14010 goto 100004500 END WHEN4600 HANDLER error_routine4610 if erl = 1010 thenW print "JPI-E-NONETLNK Error connecting to NETWORK object at node ";nodename$ end if4620 call_status = vmsstatus14635 rem call lib$signal (vmsstatus by value)4650 END HANDLER4675 goto 100005000 get_nodename:"5010  nodename$ = passed_data$-5020 if instr(1%,passed_data$,'"') <> 0% thenI nodename$ = left$(passed_data$,instr(1%,passed_data$,'"')-1%) else. if instr(1%,passed_data$,'::') <> 0% thenJ nodename$ = left$(passed_data$,instr(1%,passed_data$,'::')-1%) end if5050 return10000 subend(*[RJACK.JPI.021.EXTERNAL]JPIBAS_AXP.OBJ;4+,(./L 4-J0123KPWO56`ݽ7̒89TLGLHJ??JPIBAS 23-MAR-1994 14:02DEC BASIC T1.0-005H Hi$CODE$$LINK$ $READ_ONLY$: $LITERAL$$ARRAY$DESCRODMAP(J`HJPIBASDBASIC$HANDLERDBASIC$HANDLER DBASIC$INIT DBASIC$INIT_GOSUB DBASIC$OPEN DBASIC$CLOSE DBASIC$GETSTR$LEFT STR$COPY_DX DBASIC$PUT DBASIC$ERL DBASIC$PRINT DBASIC$OUT_T_DX_S DBASIC$OUT_T_DX_B DBASIC$IO_END DBASIC$VMSSTATUS DBASIC$END_HANDLER DBASIC$INSTR DBASIC$END_GOSUB DBASIC$ENDOTS$JUMP_TO_BPVOTS$STRCMP_EQLP OTS$MOVEMOTS$FILL =0#TG~^^~cGGGPB""Xb@ZkctG "@BHb4G@ZkTG0"WTB"bG@Zk&B:"4Gb"@Zk"B4Gb@ZkB"b4G@ZkcG GpBxb@ZkccG ="`B4Ghb@ZkcG]]}#k#~^^~cGG#]y CGG} C""@BTGHbl1"@Zk G#0JFctG ]9@@ (ФH  $ $= 4 = 4P4= ERROR_ROUTINE4=#@$ $= 4: := $4= H: := d4=  =  (*[RJACK.JPI.021.EXTERNAL]JPIBAS_VAX.OBJ;4+,(./L 4-J0123KPWO56qབྷ7`|̒89TLGLHJ0JPIBAS 23-MAR-1994 14:18 VAX BASIC V3.5J3$PDATA$CODE$ARRAY $DESCRODMAP JPIBASG OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8BAS$INIT_GOSUB BAS$END_R8BAS$END_GSB_R8 BAS$INSTRBAS$LEFTBAS$ERL BAS$ERROR BAS$END_WHEN BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_SBAS$OUT_T_DX_BBAS$OPEN BAS$CLOSEBAS$GETBAS$PUT BAS$VMSSTATUSSTR$COPY_DX_R8;P_\X___)/JPIBAS ::"JPI-E-NONETLNK Error connecting to NETWORK object at node "   %*/4,9>C^| -;CHO *C]'i>HO)P:gfdPϞRPPQ BAS$INIT_R8ϻku: BAS$ERROR-_c  GBAS$INIT_GOSUB➯ݏ+^,n+n7~g,^BAS$OPEN7^Jo1 BAS$CLOSE1BAS$GETݏPBAS$LEFT~Q~gPSTR$COPY_DX_R8瞯1R~g\,l BAS$PUT垯1&`BAS$ERLNP\Q\|E' BAS$PRINTBAS$OUT_T_DX_S_|BAS$OUT_T_DX_B BAS$IO_END BAS$VMSSTATUSPo BAS$END_WHEN1~gQ~_PSTR$COPY_DX_R8g BAS$INSTRP\\*g BAS$INSTRP\\XXg_BAS$LEFTAg BAS$INSTRP\\(g BAS$INSTRP\\XXg_BAS$LEFTBAS$END_GSB_R8P BAS$END_R8P$*[RJACK.JPI.021.EXTERNAL]JPICLD.CLD;6+,(./L 4T-J0123KPWO56TǗ7̒89TLGLHJ  MODULE JPICLDdefine verb JPIH disallow CLUSTER and NODENAME or SORT and SUMMARY or SUMMARY and HEADERA or SUMMARY and neg TRAILER or MODE and JOBTYPE or (hw_name and+ not (cluster or nodename)) qualifier CLUSTER, nonnegatable qualifier HEADER qualifier HELP6 qualifier HW_NAME, nonnegatable, value(required,list)8 qualifier IMAGENAME, nonnegatable, value(required,list)D qualifier JOBTYPE, nonnegatable, value(required,list,type=JOBTYPES)> qualifier MODE, nonnegatable, value(required,list,type=MODES). qualifier NODENAME, nonnegatable, value(list)B qualifier RCLUSTER, nonnegatable, value(required,list,type=$file)C qualifier RNODENAME, nonnegatable, value(required,list,type=$file); qualifier OUTPUT, nonnegatable, value(required,type=$file)T qualifier BASEPRIORITY, nonnegatable, value(required,list,type=basepriority_FIELDS)7 qualifier PRIVILEGE, nonnegatable,value(required,list)6 qualifier PROCESS, nonnegatable, value(required,list) qualifier SELECTION, qualifier SORT, value(list,type=KEY_FIELDS) qualifier SUMMARY qualifier SWAP qualifier SYMBOLS) qualifier TERMINAL, value(required,list) qualifier TRAILER7 qualifier USERNAME, nonnegatable, value(required,list)define type basepriority_FIELDS. keyword MINIMUM, value(required,type=$number). keyword MAXIMUM, value(required,type=$number)define type KEY_FIELDS) keyword IMAGE, value(type=SORT_SEQUENCE)+ keyword JOBTYPE, value(type=SORT_SEQUENCE)( keyword MODE, value(type=SORT_SEQUENCE), keyword NODENAME, value(type=SORT_SEQUENCE)' keyword PID, value(type=SORT_SEQUENCE)+ keyword PROCESS, value(type=SORT_SEQUENCE)0 keyword BASEPRIORITY, value(type=SORT_SEQUENCE)) keyword STATE, value(type=SORT_SEQUENCE), keyword TERMINAL, value(type=SORT_SEQUENCE), keyword USERNAME, value(type=SORT_SEQUENCE)* keyword WSSIZE, value(type=SORT_SEQUENCE)define type MODES keyword ALL keyword INTERACTIVE keyword NETWORK keyword BATCH keyword OTHERdefine type JOBTYPES keyword ALL keyword LOCAL keyword DIALUP keyword REMOTE keyword BATCH keyword NETWORK keyword DETACHEDdefine type SORT_SEQUENCE keyword ASCENDING, default keyword DESCENDING(*[RJACK.JPI.021.EXTERNAL]JPICLD_AXP.OBJ;5+,( ./L 4\ 8-J0123KPWO56kǗ7*̒89TLGLHJ2 $JPI021.A( J([RJACK.JPI.021.EXTERNAL]JPICLD_AXP.OBJ;5\ V 00 JPICLD0-0 5-APR-1994 10:31++VMS Command Definition Utility A05-110 0mman(i JPICLD  CLI$TABLES \ \ = JPI ,(Th JPI(|CLUSTER(=HEADER$HELP(qHW_NAME(q= IMAGENAME(q@@JOBTYPE$qdhMODE(a=NODENAME(q RCLUSTER(q  RNODENAME( OUTPU=T,q0  BASEPRIORITY(qX  PRIVILEGE(qPROCESS=( SELECTION$cSORT(SUMMARY$=SWAP(@SYMBOLS(shTERMINAL(=TRAILER(qUSERNAME KEY_FIELDS$IMAGE(= JOBTYPE$DMODE(lNODENAME$=PID(PROCESS, BASEPRIORITY$=STATE(0 TERMINAL(X USERNAME( WSSIZE=  SORT_SEQUENCE( ASCENDING, DESCENDING$=BASEPRIORITY_FIELDS(@MINIMUM(MAXIMUMMODES=$ALL, INTERACTIVE(NETWORK$=BATCH$OTHER\JOBTYPES$ALL=$LOCAL(DIALUP(REMOTE$=BATCH(@NETWORK(DETACHED t = @ h  T d   = | (  4 hP \ @ x =@8   T d (*[RJACK.JPI.021.EXTERNAL]JPICLD_VAX.OBJ;6+,(./L 4\-J0123KPWO56Ǘ7@E̒89TLGLHJ !JPICLD0-0 5-APR-1994 10:36-VAX/VMS Command Definition Utility (V4-001) JPICLD CLI$TABLESP JPI ,(Th JPI(|CLUSTER(HEADER$HELP(qHW_NAME(q IMAGENAME(q@@JOBTYPE$qdhMODE(aNODENAME(q RCLUSTER(q  RNODENAME( OUTPUT,q0  BASEPRIORITY(qX  PRIVILEGE(qPROCESS( SELECTION$cSORT(SUMMARY$SWAP(@SYMBOLS(shTERMINAL(TRAILER(qUSERNAME KEY_FIELDS$IMAGE( JOBTYPE$DMODE(lNODENAME$PID(PROCESS, BASEPRIORITY$STATE(0 TERMINAL(X USERNAME( WSSIZE  SORT_SEQUENCE( ASCENDING, DESCENDING$BASEPRIORITY_FIELDS(@MINIMUM(MAXIMUMMODES$ALL, INTERACTIVE(NETWORK$BATCH$OTHER\JOBTYPES$ALL>$LOCAL(DIALUP(REMOTE$BATCH(@NETWORK(DETACHED t  @ h  T d    | (  4 hP \ @ x    T d'*[RJACK.JPI.021.EXTERNAL]JPIGBLSYM.MAR;4+,(./L 4-J0123KPWO56uS7 ̒89TLGLHJ .LIBRARY /sys$library:lib/ $SSDEF GLOBAL $PRVDEF GLOBAL $HLPDEF GLOBAL $LNMDEF GLOBAL $PSLDEF GLOBAL $STATEDEF GLOBAL $JPIDEF GLOBAL $PSCANDEF GLOBAL $FSCNDEF GLOBAL .END+*[RJACK.JPI.021.EXTERNAL]JPIGBLSYM_AXP.OBJ;4+,(.i/L 4iiV-J0123KPWOj56བྷ7̒89TLGLHJ@@.MAIN.V123-MAR-1994 14:23AMAC V2.0-20  $ABS$ . BLANK . . ABS .8SYSTEM$_FACILITY0 SS$_NORMAL0 SS$_CONTINUE0 SS$_WASCLR0  SS$_WASSET0 SS$_REMEMBER0  SS$_ACCVIO0 SS$_BADPARAM0 SS$_EXQUOTA0$ SS$_NOPRIV0, SS$_ABORT04 SS$_BADATTRIB0< SS$_BADESCAPE0D SS$_BADIMGHDR0L SS$_CHANINTLK0T SS$_CTRLERR0\ SS$_DATACHECK0dOCw$JPI021.A(J+[RJACK.JPI.021.EXTERNAL]JPIGBLSYM_AXP.OBJ;4i"SS$_DEVFOREIGN0l SS$_DEVMOUNT0t SS$_DEVNOTMBX0|SS$_DEVNOTMOUNT0SS$_DEVOFFLINE0 SS$_DRVERR0 SS$_DUPLNAM0 SS$_FILACCERR0 SS$_FILALRACC0 SS$_FILNOTACC0 SS$_FILNOTEXP0 SS$_FORMAT0 SS$_GPTFULL0 SS$_GSDFULL0 SS$_LCKPAGFUL0 SS$_ILLBLKNUM0SS$_ILLCNTRFUNC0 SS$_ILLEFC0 SS$_ILLIOFUNC0 SS$_ILLPAGCNT0 SS$_ILLSER0 SS$_INCVOLLABEL0 SS$_INSFARG0 SS$_INSFWSL0$ SS$_INSFMEM0, SS$_INSFRAME04 SS$_IVADDR0< SS$_IVCHAN0D SS$_IVDEVNAM0L SS$_IVGSDNAM0T SS$_IVLOGNAM0\ SS$_IVLOGTAB0d SS$_IVQUOTAL0l SS$_IVSECFLG0t SS$_IVSSRQ0| SS$_IVSTSFLG0 SS$_IVTIME0 SS$_LENVIO0 SS$_LKWSETFUL0 SS$_MBTOOSML0 SS$_MEDOFL0 SS$_NODATA0 SS$_NOIOCHAN0 SS$_NOLOGNAM0 SS$_NONEXDRV0SS$_NOTFILEDEV0SS$_NOTINTBLSZ0SS$_NOTLABELMT0 SS$_NOTSQDEV0 SS$_PAGOWNVIO0 SS$_PARITY0SS$_PARTESCAPE0 SS$_PFMBSY0  SS$_PSTFULL0 SS$_RESULTOVF0 SS$_SECTBLFUL0$SS$_TAPEPOSLOST0, SS$_TIMEOUT04 SS$_UNASEFC0< SS$_UNSAFE0D SS$_VASFULL0L SS$_VECINUSE0T SS$_VOLINV0\ SS$_WRITLCK0d SS$_NOTAPEOP0l SS$_IVCHNLSEC 0t SS$_NOMBX0| SS$_NOLINKS0 SS$_NOSOLICIT0SS$_NOSUCHNODE0 SS$_REJECT0SS$_TOOMUCHDATA0 SS$_BUGCHECK0SS$_FILNOTCNTG0 SS$_BADSTACK0 SS$_MCHECK0 SS$_DEVACTIVE0 SS$_HANGUP0 SS$_OPINCOMPL0 SS$_ILLSEQOP0SS$_IVSECIDCTL0 SS$_NOTNETDEV0 SS$_IVPROTECT0 SS$_ACPVAFUL0 SS$_MTLBLLONG0  SS$_BUFBYTALI0 SS$_NOAQB0 SS$_WRONGACP0$SS$_BUFNOTALIGN0, SS$_DEVCMDERR04 SS$_DEVREQERR0< SS$_INSFBUFDP0DSS$_INSFMAPREG0L SS$_IVBUFLEN0T SS$_IVMODE0\SS$_MCNOTVALID0d SS$_POWERFAIL0lSS$_SHMGSNOTMAP0tSS$_TOOMANYLNAM0|SS$_SHMNOTCNCT0SS$_NOTCREATOR0 SS$_INTERLOCK0SS$_BADQUEUEHDR0 SS$_NOSLOT0 SS$_SUSPENDED0SS$_EXPORTQUOTA0SS$_NOSHMBLOCK0 SS$_BADQFILE0 SS$_NOQFILE0 SS$_QFACTIVE0 SS$_QFNOTACT0SS$_DUPDSKQUOTA0SS$_NODISKQUOTA0SS$_EXDISKQUOTA0SS$_IDMISMATCH0 SS$_NOWRT0  SS$_BADISD0  SS$_RELINK0 SS$_NOTINSTALL0 SS$_SHARTOOBIG0$  SS$_NOP1VA0,  SS$_MULTRMS04  SS$_VECFULL0<  SS$_IVLVEC0D  SS$_INSFSPTS0L SS$_DISCONNECT0T SS$_PRIVINSTALL0\ SS$_PROTINSTALL0d  SS$_BADVEC0l  SS$_REMRSRC0t  SS$_PROTOCOL0| SS$_THIRDPARTY0 SS$_NOSUCHUSER0 SS$_SHUT0 SS$_UNREACHABLE0  SS$_INVLOGIN0  SS$_NOSUCHOBJ0  SS$_EXCPUTIM0  SS$_OPRABORT0 SS$_SHRIDMISMAT0  SS$_COMMHARD0  SS$_IVCHAR0  SS$_DEVINACT0 SS$_CONNECFAIL0  SS$_LINKABORT0 SS$_LINKDISCON0  SS$_LINKEXIT0  SS$_PATHLOST0! SS$_CLEARED0 ! SS$_RESET0! SS$_UNSOLICIT 0!SS$_TOOMANYREDS0$! SS$_IVLOCKID0,! SS$_SUBLOCKS04!SS$_PARNOTGRANT0k} CBcذ;F,S;+?/?kQB 8c=q$2Y{ JCFrP3m}Isn eFiNM{b0}Yb[VV:=l:65=3{NG_cW9nK><\YQC[jLO%"{P3`}IvCQI`wf+HqHIFd/jL!Ok5tA6@9IY+[BVf0fP"{WQ]sBRNc j^)_|M4]R65RxEd!t?ayXyh$sqw6 Y=nFQ;c`6 lU'/hZELbcy;Sb5isDnqc|~E8LEh7\F^>ٖm,ϟӶ18UaFELP:N` VS&fT^D %Z=NoqoulXw9Dx#{0axjsMR jtVc6B,W22) jRZK{K8yjF\' 39DVj7i s{)pD$MX<[SMP3joc5F1ZaN YcEkG6>CfmBvjL1@F&6oBVpC_I`)zU! Qhz6I8<>_1]K1(n&{aF!=G*48C=acUxOmiT0APR( ry9B/?5; c aGv-$j|~r;@`8Kt:h8?;NR le%1Z{ u,I BD(|O$_ez80)D_4~`IaE^ pve ' N0zxlqcy;9Q /S  uizNxOI^1yYB;'_ebhK*[x 1c YG9,LV}}cHVGOlz+j0Z[3 {f`*zF4DNv?wL0?)'kU*_tG}1ut`dAAad[Jp##OKuGd< $;e734Mwkd{Tw=\R(\gs ~y2`IaS( lW? D#]Fjlr+u3(uJb QbkxNQt3x gOS hGwrEH,F^c"p`&N]PZPDwidzhN:A`0:{Grmd_'P+!WG kHdYlh\sX0'J|Eup44s; GXCxZ2V ^3laZPHJ/2"!I _ G/[1j/j #MZyNBOL8/L ) ]S,3xy>ndi-tmR"X<6u#E+}rs0o 'M7/c\ehBCK;V{$HUJyjji\Ap}:"oxzcv~-2P&6/%Rddpc9jUW%_CP7)Jp."7AFANb*w)_jJ o%V,>k>u_e/lcKW;1cEk8Dqxp2=L+7s 1u> T" >H)`]s]UVjJ?q j) iw]'OFT(Fa4iYYMSA+R cYiTSr&+2zu](`V]FqW@AX43^Jfne,&08rlr)ycocdEr2Jx~Emj Wx2:r6Unx)Zk"h>is=y7j&ل)@f;$X(%W(z}qvP,!skz3DZch 5B"Z6F;lF}yp(r}?(E2#.Q.c"@6 Vb|bEIN0u bYjnlA+F~|V`9_^T3|_)X)t%fezN'rdTGwD21[)us% y(Y]Anxie"y@CnAh JUQ0p*٪ f k<&IH3 %( bfih!>>%]kLx E sBaX9WN6v5-}=VEzAq JDt`%~ U;6%8w;SUS{lzHVsDZ 0vXQ%q8K\ugV6Mz9IYy"VmR\2_Nrp'r $srVM.{_G-s DV tWp|8iU/8Em8f]?n5hVkX]08Q0 ?%y6XYX<%#f G!]XhZ&PV f{FTd3'\1h,wB$}zA*8 )*q:uInvHW*4wUWjn7YЊ?eᆝD I.|W&Db &$5!K=[&'y#d-5@q]\|wFbYp%WzMQMTUPk-6^N?GIoj)Ф$|6pM)d cz4^!DZZ_`X\ulE6}svR5G4M8'SGT<R!}UyXVR6?ckCF$F}v\|w($;b9[d}#Kr>k-D]IMsu>3 g cqUuG0&}Zd8"S)q8yx5OV( R4.)imJ }FR(,)9 HH,YMF*Hl JR+bb$UAn8oAqBSLU8VC6Ea:JR70KtV wAK rv@:^}Ya!yTmdD2I-TFPc~C[ip:WQ1-!}C h{9^~KP0oJ^w9^OV4L'riFV'=)C pf =xRflr@BnF 65"` ?1 7Y~@ Y'bn>+e7/z{o>yDW3fn;&)1As^gzGQ`|:3:y_.S #pSH $>8F-'4#lNv xVJB 1wY@LZj`d L~u2VT*mi}iid\.N>:x$5xPeT0S"D9Bw}x olQ#psAUKt(#@.yn:S Bt=0%@B`#6j>Lir weIa=h(&sIjJHbOx8fo:MhtZ2z d5r/~%S$`9Z{%3T'^#lnaOO0JhI/O9L)?V>Db |#&?8Nc)Hf@\iQa J_ZE)lY~35:"%S V(eMI)B3+; a[3RwqYlx 82MkDX"ava?.{$f~IVj 5)P3fn>BiCSuYwP:?BL`B`JF!`Z-T2IWx!8cQw^b-?&m&wf7*I4Br43 ?Xo-G8+p99qs-vP,_:&w !8bCo&ir@ ^qMYSRQ]_~)k`Srvpt):lO/}zgEe(Z=;fYUgx:aeST}(^\K39W0V3T*K.N3%Nm|:LÈ"ٜ >4mB,^#æl(Ԫ9K Z0: }Vm;|g4ND5c,'%_}5 rd7M#ZZ] im8Y EFu8x($k-t\ [oK]{$J}o+kEޓ)܌qF㑻U4}<]= RrkZk>8}"lD{#Tn!ɾ2|]Rc]M{V6bPvF.V+廧Ȃ^6$lH A}l.(t8x_C2 +饏Wݕz]8lt4F!md =-QӜeE*N uX :)u7U 8پbӳl˞ 'YЋn89 ,`XK@y*I\cKns_0FeÝM1;MRt6h y G#b[?]x>:8,*z AnIYdG1S@e9"2H1f#tr9yY&J!}OK& #y)L47{iQ,RlN,qc#X3uİHthafvV<<6y{=T.8!0 R[!+KhP$8BK:_ @[l+7v̛q55ڼt)> =6@i;)4EA"S7t9`t/`E.;$=o'vd^EZ*zH_;a1i, !Q;R?jv4.G(8ǻtǗ$HL.Qc*󂱧PtD> ? MN#""EoL6  , ( %_Cz0#P 3^;ֹ|ў!o)ckZvh}<2!P_|}>϶0Tꍎg1(Z hi+)a:RSS,jf>RCPCX:~[re!goJPUHKuk?r{n7@*r-x%3Mm+$wg}u3ם3C}{6F$8dmmwH'ơ5z0T՗O\o~ϬX[t -%>bהۃג5 u_1s^Vo }~9GS-.퉭@2SGh>=2Ѫ~JcI6V>(N+ )qG7M#zj^w—jCz!/~S43X s iOpccrTEFFeEjuArFuv0_{" "k_qhi'}FjJ"*Xu(|K*8NN e+LLJ{.XP5[Yq\LwDfX. 3,q"<AtTm:L[7l71z&=r n)FTY AlzRK,f0dl|elq : w EZL^H~Q%4+$;*&{'&(WU4~7lqLA}R_y24Ew"Z~ \%f1H\'<*OW[$tePj;tQVfd6d[qVWN|J/mxbDuI9nS>o{cB+[/kg!#dnZjT{1O'~k!",HOt#{6O.gn'L5/__IG5XhU5eu96AGDMpE9xm]r,I-#'yfxy#W-WU#6(\1 #habA6. GJN6USDfwN-FiM=6-:+^ON_At2&@"" WCz# {VatW$RGU\:c .Ho&.; ZBp:+`@o)%luv'W,^Gd|zl~#2sI }">b$a9U{'u'";]~? oAcyL#.7E_x [)q*_ 4jnO<,);|@+WE k{%TJ0L~_OYQ1n?,_R(rdJ=ce VT|"|b??mU&<C[~ =~(oi ih?9.p@!7Nmdy89qB?/f- U^ U5@y{;:s-{7e+oBa6sA-^kXk(}dNz,'{B70c ^']d6.dh,!(@?7W^`B1/oS,e9.MP;KzW!C@`1^@hL1B#$vq NZ^AQ`Hq1n7#H;*Sx i@"bPT Q@GBsH`9mBj5)M=cm1kQjqQ?p9k$|9w Ga`' !bMb2g7#\tzSw%U \@:yb>{WS~T%$y:M HRO.yvg1\$h7 Lvpcf kf FHD="*(s'[9br4;**E0P%FUH Ru%JBRw }b lW|dqIGKbeKpOA0 xKld49+sAD > ^R 5IxRU}!Emx[-?S_@Y_N#c~2!&j3;P;-aS&:K&-\Lo.&&H[6 \4O{R9)+DA4%dr3t/;-A='SeFF? #'Q^etn}G9#X~]ipg *JtO[:/!Kj1|d5.<8z~2;S^/`kB0/} ')J52i}U@gyT2Ba#$Bs;#Zs64a'KG$N Q;YeA?aI|]>/"38< ]t{p sL%/M*R;l&F$efn61:N\?:Vhk7!cQa>+:fmFj׀Ȭ"k>4jq[KDR#\]hrz*Xmws? H5%z^ipH37qmZ,4hz[kZKD,=BrZT.1o"k+((z=T< vB,P [/+8)]i.m9'-p0I (hw<)ja8S-iC @r4M&a'H(^'F0?/Gz8`r[u<q;wy MOIPv#!?YU#L 5Bh)zVFY| J62B `&;l*\{MN-H;v\g_-NC[R Dus1GpZ #1m)&5q!~wdSIl,6AUxlp4rRzN,# FyYz.h0w&wA137%tB&+~%0@P&kOCX|0/CS"[X.hYx+n$r: C`'~_{~0T.2dd,e9259dhluVZON) ѷͪ) *+5n!1(Nu,>*" ]3>/zdw5`bKg$*MNn -]'|h`P\fL8gh!5Nmj\[\VyL4A.KW82TH4=1QC8b\]Ht\^DQk(LiA=a+s5Z}(E"I3 $xr>>s2{ 1t!Kw>ijC1+]t+ 4pU8* dRK R`*"0[8=AI6`f 6n=Tgx-IF@?_`b- l)A}k74Z::-e+$Sfg&e!Zo:@IR4',+S]nrRC[F5+Q!gIPLKr=7jcG6a)Al[Q/RU=b_"5QUQNQ}wDC[wz%$`fdD aU97 !Pw>V>#VN!a2:WxVFv9LYD{N_Ky OB v/]U_GPks S^O34%TU 1Q2^H6 ] /? 6$irX6E ||vpBI*)VAE*[5;+ )$v8g* }/M%LS)xgc Xa=*% 8,(gzY U57<+=^k/bhNUF'gQe?b;s'#)jHKbK, 2U23S|S,)%tZqb }V3#nV ) jV TVid*K s{]I[d')jt @жdS?_C ehd;fuR=J*!Ot@'vCv2WPN[IHzz;&-QH`R58f:ADz?&u JF7|2tB)P}v=pI8`Ua ni5jEsO!R{sfCw mxwC.4._@'!  $i7Ch! b4!]U-)9 j'\? G!*>AAl'=<7xP{D NpKjlS D, simply display all available information3* ,a$JPI021.A(J+[RJACK.JPI.021.EXTERNAL]JPIGBLSYM_AXP.OBJ;4i" SS$_NOSUCHPGM0" SS$_PGMLDFAIL0" SS$_PGMSTDALN0$" SS$_IVIDENT0," SS$_DUPIDENT04" SS$_INCSEGTRA0<" SS$_NODELEAVE0D" SS$_KERNELINV0L"SS$_EXLNMQUOTA0T"SS$_PARENT_DEL0\" SS$_PARNOTSYS8d"SS$_INSSWAPSPACE0l" SS$_VOLOERR0t" SS$_DATALATE0|" SS$_OVRMAXARG0" SS$_SHACHASTA0"SS$_TERMNETDEV0" SS$_NOLOGTAB0" SS$_WRONGNAME0" SS$_NOVOLACC0" SS$_NOFILACC0"SS$_INVEXHLIST8"SS$_NOACLSUPPORT0"SS$_INVSECLASS0" SS$_INCSHAMEM0" SS$_DEVNOTSHR0"SS$_RUCONFLICT0" SS$_DATALOST0"SS$_REMOTE_PROC0" SS$_CPUNOTACT0" SS$_SRVMMAT0# SS$_EXLICENSE0 #SS$_INVLICENSE8#SS$_LICENSE_LEVEL0# SS$_INV_HW_ID0$#SS$_BADCONTEXT0,#SS$_TOOMUCHCTX04# SS$_VA_IN_USE0<# SS$_NODELETE0D# SS$_NOSUCHCPU0L# SS$_IMGVEXC0T# SS$_NOSAVPEXC0\# SS$_NOSUCHTID0d# SS$_NOSUCHRM0l# SS$_NOCURTID0t#SS$_WRONGSTATE0|#SS$_VETO0# SS$_PWDSYNTAX0# SS$_PWDNOTDIF0# SS$_INVPWDLEN0# SS$_SYSVERDIF0# SS$_HWM_STALL0# SS$_NOSUSPEND0#SS$_NOSUCHPART 0# SS$_RMALRDCL0# SS$_ALRCURTID0# SS$_INVLOG0# SS$_BADLOGVER0# SS$_OPINPROG0#SS$_WRONGACMODE0# SS$_SUBTRACED0# SS$_ARCHIVING0# SS$_ARCHIVED0$SS$_SITEPWDFAIL0 $ SS$_NOSUCHCPB0$ SS$_CPUCAP0$ SS$_LOADER0$$ SS$_HSTBUFACC0,$ SS$_INCONOLCK04$ SS$_INVEVENT0<$ SS$_NOSUCHFAC0D$SS$_NOCALLPRIV0L$ SS$_INSFLPGS0T$ SS$_INSFRPGS0\$ SS$_BADREASON0d$ SS$_NOSUCHBID0l$ SS$_NOTORIGIN0t$ SS$_NOLOG0|$SS$_TPDISABLED0$SS$_BRANCHENDED8$SS$_BRANCHSTARTED8$SS$_NOSUCHREPORT0$ SS$_BADTIME0$SS$_PARTJOINED0$ SS$_NOPRESUME8$SS$_RECOVERCANCEL8$SS$_CURTIDCHANGE0$ SS$_NOREADER0$ SS$_NOWRITER0$ SS$_DEVNOTWS0$ SS$_NOCLASS0$SS$_CONTEXTSKEW0$SS$_BADFORGEDB0$ SS$_NODOMAIN0$ SS$_OVRMAXAUD0% SS$_BADCHAIN0 % SS$_BADBUFLEN0% SS$_BADITMCOD0% SS$_BADBUFADR0$% SS$_BADRETLEN0,%SS$_SSINOTHELD04%SS$_SSAMISSING0<%SS$_SSANOTAUTH0D% SS$_BADOWNER8L%SS$_NAMESERVCOMMERR0T% SS$_IVNODNAM8\%SS$_CONFIG_SYNTAX0d% SS$_SHELVED0l%SS$_DRVNOTVALID8t%SS$_SLICING_DISABLED0|%SS$_NOCALLTRANS0%SS$_TRANSCALLER0% SS$_ILLPRIPOL0% SS$_ILLPOLICY0% SS$_INSFRSPID0%SS$_INSFCREDITL0%SS$_INSFCREDITH0% SS$_INSFMAP8%SS$_SIG_INVARGTYPE8%SS$_SIG_INVFLTARG8%SS$_SIG_INVARGLIST8%SS$_SIG_INVFUNCTYPE8%SS$_SIG_ARGMISMATCH0%SS$_NOTRANQUIL8%SS$_NOCALLTRANS_SUP0 SS$_PLHLDR0  SS$_ASTFLT0 SS$_BREAK0 SS$_CMODSUPR0$ SS$_CMODUSER0, SS$_COMPAT04 SS$_OPCCUS0< SS$_OPCDEC0D SS$_PAGRDERR0L SS$_RADRMOD0T SS$_ROPRAND 0\ SS$_SSFAIL0dSS$_TBIT0l SS$_DEBUG0t SS$_ARTRES0| SS$_INTOVF0 SS$_INTDIV0 SS$_FLTOVF0 SS$_FLTDIV0 SS$_FLTUND0 SS$_DECOVF0 SS$_SUBRNG0 SS$_FLTOVF_F0 SS$_FLTDIV_F0 SS$_FLTUND_F0 SS$_INHCHMK0 SS$_INHCHME0 SS$_VECDIS0 SS$_VARITH0 SS$_ILLVECOP0 SS$_VECALIGN0 SS$_IMGDMP0 SS$_HPARITH0  SS$_ALIGN8SS$_UNALIGN_SP_LOAD0 SS$_GENTRAP0$ SS$_FLTINV0, SS$_FLTINE04 SS$_DECDIV0< SS$_DECINV0D SS$_ASSERTERR0L SS$_NULPTRERR0T SS$_STKOVF0\ SS$_STRLENERR0d SS$_SUBSTRERR0l SS$_RANGEERR0t SS$_SUBRNG10| SS$_SUBRNG20 SS$_SUBRNG30 SS$_SUBRNG40 SS$_SUBRNG50 SS$_SUBRNG60 SS$_SUBRNG70$JPI021.A(J+[RJACK.JPI.021.EXTERNAL]JPIGBLSYM_AXP.OBJ;4iX"%SS$_PAGRDERRXM8SS$_ILLEGAL_SHADOW0 SS$_FLTINV_F0 SS$_FLTINE_F0 SS$_INTOVF_F0 SS$_BUFFEROVF0  SS$_CONTROLO0 SS$_CONTROLY0 SS$_CREATED0! SS$_MSGNOTFND0) SS$_NOTRAN01 SS$_SUPERSEDE09 SS$_WASECC0ASS$_DEVALRALLOC0I SS$_REMOTE0Q SS$_CONTROLC0YSS$_NOTMODIFIED0a SS$_RDDELDATA0iSS$_OVRDSKQUOTA0qSS$_OBSOLETE_10ySS$_FILEPURGED0SS$_NOTALLPRIV0 SS$_SYNCH0 SS$_CONCEALED0 SS$_INCOMPAT0 SS$_DBGOPCREQ0SS$_ALRDYCLOSED0SS$_LNMCREATED0SS$_ACEIDMATCH0 SS$_DBGEVENT0 SS$_REMOVED0 SS$_QUEUED0SS$_SUBDISABLED0 SS$_FORGET0 SS$_PREPARED0SS$_NOMOREITEMS0 SS$_VOLATILE0 SS$_CLASSUPER0SS$_ACCONFLICT0 SS$_BADCHKSUM0SS$_BADFILEHDR0SS$_BADFILENAME 0 SS$_BADFILEVER0(SS$_BADIRECTORY00 SS$_CANCEL08SS$_DATAOVERUN0@ SS$_DEVALLOC0H SS$_DEVASSIGN0PSS$_DEVICEFULL0XSS$_DEVNOTALLOC0` SS$_DIRFULL0hSS$_DUPFILENAME0p SS$_ENDOFFILE0x SS$_ENDOFTAPE0SS$_OBSOLETE_20SS$_FCPREADERR0SS$_FCPREWNDERR0SS$_FCPSPACERR0SS$_FCPWRITERR0SS$_FILELOCKED0SS$_FILENUMCHK0SS$_FILESEQCHK0SS$_FILESTRUCT0SS$_HEADERFULL0SS$_IDXFILEFULL0 SS$_MBFULL0 SS$_NOHOMEBLK0 SS$_NONEXPR0 SS$_NONLOCAL0 SS$_NOHANDLER0  SS$_NOSIGNAL0  SS$_NOSUCHDEV0 SS$_NOSUCHFILE0  SS$_RESIGNAL0  SS$_UNWIND0(  SS$_UNWINDING00 SS$_NOMOREFILES08  SS$_BEGOFFILE0@ SS$_BLOCKCNTERR0H SS$_MUSTCLOSEFL0P SS$_WAITUSRLBL0X SS$_ILLUSRLBLRD0` SS$_ILLUSRLBLWT0h  SS$_ILLLBLAST0p SS$_ENDOFUSRLBL0x  SS$_NOSUCHSEC0  SS$_CLIFRCEXT0  SS$_FCPREPSTN0 SS$_TOOMANYVER0  SS$_NOTVOLSET0 SS$_ENDOFVOLUME0 SS$_NOMOREPROC0  SS$_NODEVAVL0  SS$_NOTQUEUED0  SS$_DGQINCOMP0  SS$_DIRALLOC0  SS$_ACLEMPTY0  SS$_NOENTRY0  SS$_NOMOREACE0 SS$_RIGHTSFULL0 SS$_VALNOTVALID0  SS$_ACLFULL0 SS$_NOMORENODE0 SS$_NOMORELOCK0  SS$_BEGOFTAPE0 SS$_OBJLOCKHELD0 SS$_CPUSTARTIP0( SS$_ALLSTARTED00  SS$_ALRDYSTRT08 SS$_ALRDYSTPPD0@  SS$_NSTPPD0H  SS$_UNKRESULT8P SS$_ITEMNOTFOUND0X  SS$_NOMOREDEV0`  SS$_EFNOTSET0h  SS$_PRIMNOSTP0p SS$_BOOTREJECT0x  SS$_RMTPATH8 SS$_OBJECT_EXISTS8 SS$_NOSUCHOBJECT0  SS$_NOVOLDESC0  SS$_NOPTBLDIR0  SS$_DRVEXISTS0  SS$_DEVEXISTS0 SS$_GOTO_UNWIND0 SS$_EXIT_UNWIND 0 SS$_SMALLHEADER0  SS$_FDT_COMPL8 SS$_TARGET_UNWIND8 SS$_TARGET_GOTO_UNWIND0  SS$_EOTIN0  SS$_CHAINW0  SS$_NOTINSEC0  SS$_NONXPAG0#  SS$_LOGNAME0+  SS$_CPUSTARTD03 SS$_CPUSTOPPING8; SS$_NOTALLCANCELED0C SS$_NOTHINGDONE0K SS$_EVTNOTENAB0S  SS$_NOPATHTBL0 SS$_LINEABRT0  SS$_DEADLOCK0 SS$_NOLOCKID0 SS$_EXDEPTH0"SS$_PARTMAPPED0*SS$_CANCELGRANT02 SS$_RETRY0: SS$_BADACL0B SS$_ACEEXISTS0JSS$_UNSUPPORTED0RSS$_NORIGHTSDB0Z SS$_LOGSTALL0b SS$_LOGFULL0j SS$_PWDINDIC0r SS$_PWDINHIS0z SS$_PWDWEAK0 SS$_USEGENPWD0 SS$_INVBUSNAM0SS$_INVCOMPTYPE0 SS$_INVCOMPID0SS$_INVCOMPLIST0SS$_NOCOMPLSTS8SS$_INVSECDOMAIN0SS$_BADCHECKSUM0 SS$_ARBTOOBIG0 SS$_ORBTOOBIG0 SS$_INVAJLNAM0SS$_TOOMANYAJL0 SS$_RSDMINUSE0SS$_RSDMNOTFOU0 SS$_INVUICGRP0SS$_RSDM_ACTIVE0 SS$_OBJLOCKED0  SS$_NOTMPNAM0 SS$_INVCLSITM0 SS$_NOTSHRTBL0" SS$_MMATORB0* SS$_NOSUCHVOL82SS$_OBJNOTLOCKED0"c$JPI021.A(J+[RJACK.JPI.021.EXTERNAL]JPIGBLSYM_AXP.OBJ;4is"6: SS$_ILLRSDM8BSS$_NOCLASSSUPPORT0JSS$_INVSECOPER0RSS$_NODELJNLACT0ZSS$_INVFILFOROP0b SS$_NOOBJSRV8jSS$_NOFILEACCESS0rSS$_BADFILESIZE8zSS$_NOTFULLYMAPPED0 SS$_BADWINCNT0 SS$_BADWINLBN0 SS$_BADWINRVN0SS$_EXTRAWINDOW0 SS$_REVISED0SS$_TIMENOTSET8SS$_WAIT_CALLERS_MODE0SS$_NOT_LOADED8SS$_DRV_NOUNLOAD0 SS$_INVARG0 SS$_QIO_CROCK0 SS$_ALTER0SS$_AFR_ENABLED8SS$_AFR_NOT_ENABLED0SS$_SHELFERROR8SS$_PERSONANONGRATA0,SS$_NOTASSUMING8 ,SS$_ALREADYASSUMING0, SS$_INUSE 8,SS$_USERDISABLED0", SS$_NOCHJIB0(SS$_NOPRIVSTRT0( SS$_NOCMKRNL0 ( SS$_NOCMEXEC0( SS$_NOSYSNAM0( SS$_NOGRPNAM0$(SS$_NOALLSPOOL0,( SS$_NODETACH04(SS$_NODIAGNOSE0<( SS$_NOLOG_IO0D( SS$_NOGROUP0L( SS$_NOACNT0T( SS$_NOPRMCEB0\( SS$_NOPRMMBX0d( SS$_NOPSWAPM0l( SS$_NOALTPRI0t( SS$_NOSETPRV0|( SS$_NOTMPMBX0( SS$_NOWORLD0( SS$_NOMOUNT0( SS$_NOOPER0( SS$_NOEXQUOTA0( SS$_NONETMBX0( SS$_NOVOLPRO0( SS$_NOPHY_IO0( SS$_NOBUGCHK0( SS$_NOPRMGBL0( SS$_NOSYSGBL0( SS$_NOPFNMAP0( SS$_NOSHMEM0( SS$_NOSYSPRV0( SS$_NOBYPASS0( SS$_NOSYSLCK0( SS$_NOSHARE0) SS$_NOUPGRADE0 )SS$_NODOWNGRADE0) SS$_NOGRPPRV0) SS$_NOREADALL0$) SS$_NOIMPORT0,) SS$_NOAUDIT04)SS$_NOSECURITY0) SS$_NOPRIVEND0*SS$_EXQUOTASTRT0* SS$_EXASTLM0 * SS$_EXBIOLM0* SS$_EXBYTLM0* SS$_EXDIOLM0$* SS$_EXFILLM0,*SS$_EXPGFLQUOTA04* SS$_EXPRCLM0<* SS$_EXTQELM0D* SS$_EXENQLM0*SS$_EXQUOTAEND0+ SS$_MMSFAILED0+ SS$_TOOFEWDEV0 + SS$_AVRWAIT0C+ SS$_NO_MMS0K+ SS$_MMSREADY0S+SS$_MMSNOTREADY0[+SS$_SKIP_CHECKS0c+ SS$_NO_NOTIFY8k+SS$_SKIP_EXPIRATION0~ SS$_SYSAPMIN0 SS$_SYSAPMAX0 PRV$M_CMKRNL0 PRV$M_CMEXEC0 PRV$M_SYSNAM0 PRV$M_GRPNAM0PRV$M_ALLSPOOL0  PRV$M_DETACH0@PRV$M_DIAGNOSE0 PRV$M_LOG_IO0 PRV$M_GROUP0 PRV$M_NOACNT0 PRV$M_PRMCEB0 PRV$M_PRMMBX0 PRV$M_PSWAPM0  PRV$M_SETPRI0@ PRV$M_SETPRV0 PRV$M_TMPMBX0 PRV$M_WORLD0 PRV$M_MOUNT0 PRV$M_OPER 0 PRV$M_EXQUOTA0 PRV$M_NETMBX0  PRV$M_VOLPRO0@ PRV$M_PHY_IO0 PRV$M_BUGCHK0 PRV$M_PRMGBL0 PRV$M_SYSGBL0 PRV$M_PFNMAP0 PRV$M_SHMEM0 PRV$M_SYSPRV0  PRV$M_BYPASS0@ PRV$M_SYSLCK0 PRV$M_SHARE8'PRV$K_NUMBER_OF_PRIVS0 PRV$M_ACNT0  PRV$M_ALTPRI0 PRV$S_PRVDEF0 PRV$V_CMKRNL0 PRV$V_CMEXEC0 PRV$V_SYSNAM0 PRV$V_GRPNAM0PRV$V_ALLSPOOL0 PRV$V_DETACH0PRV$V_DIAGNOSE0 PRV$V_LOG_IO0 PRV$V_GROUP0  PRV$V_NOACNT0  PRV$V_PRMCEB0  PRV$V_PRMMBX0  PRV$V_PSWAPM0  PRV$V_SETPRI0 PRV$V_SETPRV0 PRV$V_TMPMBX0 PRV$V_WORLD0 PRV$V_MOUNT0 PRV$V_OPER0 PRV$V_EXQUOTA0 PRV$V_NETMBX0 PRV$V_VOLPRO0 PRV$V_PHY_IO0 PRV$V_BUGCHK0 PRV$V_PRMGBL0 PRV$V_SYSGBL0 PRV$V_PFNMAP0 PRV$V_SHMEM0 PRV$V_SYSPRV0 PRV$V_BYPASS0 PRV$V_SYSLCK0 PRV$V_SHARE0  PRV$V_UPGRADE0!PRV$V_DOWNGRADE0" PRV$V_GRPPRV0# PRV$V_READALL0$ PRV$V_IMPORT0% PRV$V_AUDIT0&PRV$V_SECURITY0  PRV$V_ACNT0  PRV$V_ALTPRI0 PRV$L_L1_BITS0 PRV$L_L2_BITS0 PRV$M_SORTED0 PRV$M_BRIEF0 PRV$M_FILLED0 PRV$V_SORTED0 PRV$V_BRIEF0 PRV$V_FILLED0 HLP$M_PROMPT0h$JPI021.A(J+[RJACK.JPI.021.EXTERNAL]JPIGBLSYM_AXP.OBJ;4ia"G HLP$M_PROCESS0 HLP$M_GROUP0 HLP$M_SYSTEM0 HLP$M_LIBLIST0  HLP$M_HELP0@ HLP$M_SPARE10HLP$M_PAGE_SAVE0 HLP$M_PAGE0 HLP$M_OUTPUT0 HLP$M_LIBRARY0 HLP$M_ALL0 HLP$M_PAGEDEF0  HLP$M_PMPTDEF0@ HLP$M_NOTTERM0 HLP$S_HLPDEF8HLP$R_HLPDEF_BITS0 HLP$V_PROMPT 0 HLP$V_PROCESS0 HLP$V_GROUP0 HLP$V_SYSTEM0 HLP$V_LIBLIST0 HLP$V_HELP0 HLP$V_SPARE10HLP$V_PAGE_SAVE0 HLP$V_PAGE0  HLP$V_OUTPUT0  HLP$V_LIBRARY0  HLP$V_ALL0  HLP$V_PAGEDEF0  HLP$V_PMPTDEF0 HLP$V_NOTTERM0HLP$M_NOHLPTXT0HLP$M_KEYNAMLIN0HLP$M_OTHERINFO0 HLP$S_HLPDEF10 HLP$L_DESC8HLP$R_FLAGS_OVERLAY0 HLP$L_FLAGS8HLP$R_FLAGS_BITS0HLP$V_NOHLPTXT0HLP$V_KEYNAMLIN0HLP$V_OTHERINFO0 HLP$L_DATA0  HLP$L_LEVEL0LNM$M_NO_ALIAS0 LNM$M_CONFINE0 LNM$M_CRELOG0 LNM$M_TABLE0LNM$M_CONCEALED0LNM$M_TERMINAL0 LNM$M_EXISTS0LNM$M_SHAREABLE0LNM$M_CREATE_IF8LNM$M_CASE_BLIND0 LNM$S_LNMDEF0LNM$V_NO_ALIAS0 LNM$V_CONFINE0 LNM$V_CRELOG0 LNM$V_TABLE0LNM$V_CONCEALED0 LNM$V_TERMINAL0  LNM$V_EXISTS0LNM$V_SHAREABLE0LNM$V_CREATE_IF8LNM$V_CASE_BLIND0LNM$C_TABNAMLEN0LNM$C_NAMLENGTH0 LNM$C_MAXDEPTH0 LNM$_INDEX0 LNM$_STRING0LNM$_ATTRIBUTES0 LNM$_TABLE0 LNM$_LENGTH0 LNM$_ACMODE0LNM$_MAX_INDEX0 LNM$_PARENT0 LNM$_LNMB_ADDR8 LNM$_AGENT_ACMODE0 LNM$_CHAIN0 PSL$M_PRVMOD0 PSL$M_CURMOD0 PSL$M_IPL8 PSL$V_MAX_PS_REG_BIT0 PSL$C_KERNEL0 PSL$C_EXEC0 PSL$C_SUPER0 PSL$C_USER0 PSL$S_PSLDEF0 PSL$S_PRVMOD0 PSL$V_PRVMOD0 PSL$S_CURMOD0 PSL$V_CURMOD0 PSL$S_IPL0 PSL$V_IPL0 SCH$C_COLPG0 SCH$C_MWAIT0 SCH$C_CEF0 SCH$C_PFW0 SCH$C_LEF0 SCH$C_LEFO0 SCH$C_HIB 0 SCH$C_HIBO0  SCH$C_SUSP0  SCH$C_SUSPO0  SCH$C_FPG0  SCH$C_COM0  SCH$C_COMO0 SCH$C_CUR8JPI$K_DEFAULT_POLICY8JPI$K_PSX_FIFO_POLICY8JPI$K_PSX_RR_POLICY0 JPI$C_ADRTYPE0 JPI$C_CTLTYPE0 JPI$C_PCBTYPE0 JPI$C_PHDTYPE8JPI$C_PCBFLDTYPE8JPI$C_PHDFLDTYPE0 JPI$C_JIBTYPE0 JPI$C_ARBTYPE0JPI$C_MAXSTRUC0 JPI$C_LISTEND0 JPI$_CHAIN@JPI$_GETJPI_CONTROL_FLAGS8JPI$M_NO_TARGET_INSWAP8JPI$M_NO_TARGET_AST@JPI$M_IGNORE_TARGET_STATUS0JPI$S_JPICTLDEF8JPI$V_NO_TARGET_INSWAP8JPI$V_NO_TARGET_AST@JPI$V_IGNORE_TARGET_STATUS0 JPI$K_OTHER0 JPI$K_NETWORK0 JPI$K_BATCH8JPI$K_INTERACTIVE0JPI$K_DETACHED0 JPI$K_LOCAL0 JPI$K_DIALUP0 JPI$K_REMOTE8JPI$M_NEW_MAIL_AT_LOGIN8JPI$M_PASSWORD_CHANGED8JPI$M_PASSWORD_EXPIRED8JPI$M_PASSWORD_WARNING8JPI$M_PASSWORD2_CHANGED8 JPI$M_PASSWORD2_EXPIRED8@JPI$M_PASSWORD2_WARNING0JPI$S_JPILGIDEF8JPI$V_NEW_MAIL_AT_LOGIN8JPI$V_PASSWORD_CHANGED8JPI$V_PASSWORD_EXPIRED8JPI$V_PASSWORD_WARNING8JPI$V_PASSWORD2_CHANGED8JPI$V_PASSWORD2_EXPIRED8JPI$V_PASSWORD2_WARNING0 JPI$_ASTACT0 JPI$_ASTEN0JPI$_PRI0 JPI$_OWNER0JPI$_UIC0JPI$_STS0 JPI$_STATE0JPI$_MEM0JPI$_GRP0  JPI$_PRIB0  JPI$_APTCNT0  JPI$_TMBU0  JPI$_GPGCNT0  JPI$_PPGCNT0 JPI$_ASTCNT0 JPI$_BIOCNT0 JPI$_BIOLM0 JPI$_BYTCNT0 JPI$_DIOCNT0 JPI$_DIOLM0 JPI$_FILCNT0 JPI$_TQCNT$JPI021.A(J+[RJACK.JPI.021.EXTERNAL]JPIGBLSYM_AXP.OBJ;4i"X0 JPI$_EFWM0 JPI$_EFCS0 JPI$_EFCU0JPI$_PID0 JPI$_BYTLM0 JPI$_PRCCNT 0 JPI$_PRCNAM0 JPI$_TERMINAL0JPI$_JOBPRCCNT0 JPI$_ENQCNT0  JPI$_ENQLM0!JPI$_SWPFILLOC0" JPI$_MODE0# JPI$_JOBTYPE0$JPI$_PROC_INDEX0%JPI$_MASTER_PID0&JPI$_RIGHTSLIST0' JPI$_CPU_ID0( JPI$_STS20) JPI$_NODENAME0*JPI$_NODE_CSID8+JPI$_NODE_VERSION8,JPI$_TT_PHYDEVNAM8-JPI$_TT_ACCPORNAM8.JPI$_PROCESS_RIGHTS8/JPI$_SYSTEM_RIGHTS80JPI$_IMAGE_RIGHTS81JPI$_RIGHTS_SIZE82JPI$_CLASSIFICATION83JPI$_SCHED_POLICY04 JPI$_LASTPCB0 JPI$_CURPRIV0 JPI$_WSAUTH0 JPI$_WSQUOTA0 JPI$_DFWSCNT0 JPI$_FREP0VA0 JPI$_FREP1VA0 JPI$_DFPFC0 JPI$_CPUTIM0 JPI$_PRCLM0  JPI$_ASTLM0  JPI$_PAGEFLTS0  JPI$_DIRIO0  JPI$_BUFIO0  JPI$_CPULIM0JPI$_PGFLQUOTA0 JPI$_FILLM0 JPI$_TQLM0 JPI$_WSSIZE0 JPI$_AUTHPRIV0 JPI$_IMAGPRIV0JPI$_PAGFILCNT0JPI$_FREPTECNT0 JPI$_WSEXTENT0JPI$_WSAUTHEXT0 JPI$_AUTHPRI0JPI$_PAGFILLOC0JPI$_IMAGECOUNT0 JPI$_PHDFLAGS0JPI$_VP_CPUTIM8JPI$_VP_CONSUMER0 JPI$_LASTPHD0 JPI$_VIRTPEAK0 JPI$_WSPEAK0 JPI$_USERNAME0 JPI$_ACCOUNT0 JPI$_PROCPRIV0 JPI$_VOLUMES0 JPI$_LOGINTIM0 JPI$_IMAGNAME0 JPI$_SITESPEC0  JPI$_MSGMASK0  JPI$_CLINAME0 JPI$_TABLENAME8 JPI$_CREPRC_FLAGS0 JPI$_UAF_FLAGS0JPI$_MAXDETACH0 JPI$_MAXJOBS0 JPI$_SHRFILLM8JPI$_FAST_VP_SWITCH8JPI$_SLOW_VP_SWITCH8JPI$_LAST_LOGIN_I8JPI$_LAST_LOGIN_N8JPI$_LOGIN_FAILURES8JPI$_LOGIN_FLAGS0 JPI$_DFMBC0 JPI$_LASTCTL0 JPI$_EXCVEC 0 JPI$_FINALEXC0 JPI$_LASTADR0JPI$_LASTPCBFLD0JPI$_LASTPHDFLD0 PSCAN$_BEGIN0PSCAN$_ACCOUNT0PSCAN$_AUTHPRI0PSCAN$_CURPRIV0 PSCAN$_GRP0PSCAN$_HW_MODEL0PSCAN$_HW_NAME8PSCAN$_JOBPRCCNT0PSCAN$_JOBTYPE8 PSCAN$_MASTER_PID0  PSCAN$_MEM0  PSCAN$_MODE8 PSCAN$_NODE_CSID0 PSCAN$_NODENAME0 PSCAN$_OWNER0 PSCAN$_PRCCNT0 PSCAN$_PRCNAM0 PSCAN$_PRI0 PSCAN$_PRIB0 PSCAN$_STATE0 PSCAN$_STS0PSCAN$_TERMINAL0 PSCAN$_UIC0PSCAN$_USERNAME@PSCAN$_GETJPI_BUFFER_SIZE0 PSCAN$_END0 PSCAN$K_TYPE0 PSCAN$M_OR0PSCAN$M_BIT_ALL0PSCAN$M_BIT_ANY0 PSCAN$M_GEQ0 PSCAN$M_GTR0  PSCAN$M_LEQ0@ PSCAN$M_LSS8PSCAN$M_PREFIX_MATCH8PSCAN$M_WILDCARD8PSCAN$M_CASE_BLIND0 PSCAN$M_EQL0 PSCAN$M_NEQ@PSCAN$S_ITEM_SPECIFIC_FLAGS0 PSCAN$V_OR0PSCAN$V_BIT_ALL0PSCAN$V_BIT_ANY0 PSCAN$V_GEQ0 PSCAN$V_GTR0 PSCAN$V_LEQ0 PSCAN$V_LSS8PSCAN$V_PREFIX_MATCH8PSCAN$V_WILDCARD8 PSCAN$V_CASE_BLIND0  PSCAN$V_EQL0  PSCAN$V_NEQ0 FSCN$M_NODE0 FSCN$M_DEVICE0 FSCN$M_ROOT8FSCN$M_DIRECTORY0 FSCN$M_NAME0  FSCN$M_TYPE0@FSCN$M_VERSION8FSCN$M_NODE_PRIMARY0FSCN$M_NODE_ACS8FSCN$M_NODE_SECONDARY0FSCN$S_FLDFLAGS0 FSCN$V_NODE0 FSCN$V_DEVICE0 FSCN$V_ROOT8FSCN$V_DIRECTORY0 FSCN$V_NAME0 FSCN$V_TYPE0FSCN$V_VERSION8FSCN$V_NODE_PRIMARY0FSCN$V_NODE_ACS8 FSCN$V_NODE_SECONDARY0FSCN$_FILESPEC0 FSCN$_NODE0 FSCN$_DEVICE0 FSCN$_ROOT` `0FSCN$_DIRECTORY0 FSCN$_NAME0 FSCN$_TYPE0 FSCN$_VERSION8 FSCN$_NODE_PRIMARY0  P ܔ$JPI021.A(J+[RJACK.JPI.021.EXTERNAL]JPIGBLSYM_AXP.OBJ;4ijiFSCN$_NODE_ACS8 FSCN$_NODE_SECONDARY0FSCN$S_ITEM_LEN0FSCN$S_FSCNDEF0 FSCN$W_LENGTH8FSCN$W_ITEM_CODE0 FSCN$L_ADDR  HLP$V_PAGEDEF0  HLP$V_PMPTDEF0 HLP$V_NOTTERM0HLP$M+*[RJACK.JPI.021.EXTERNAL]JPIGBLSYM_VAX.OBJ;4+,(.-/L 4-, -J0123KPWO-56:Sབྷ7̒89TLGLHJ0.MAIN.023-MAR-1994 14:21 VAX MACRO V5.4-3MAC/NODEB JPIGBLSYM  FSCN$L_ADDR FSCN$M_DEVICEFSCN$M_DIRECTORY FSCN$M_NAME FSCN$M_NODE FSCN$M_ROOT FSCN$M_TYPE@FSCN$M_VERSIONFSCN$S_FLDFLAGSFSCN$S_FSCNDEFFSCN$S_ITEM_LEN FSCN$V_DEVICEFSCN$V_DIRECTORY FSCN$V_NAME FSCN$V_NODE FSCN$V_ROOT FSCN$V_TYPEFSCN$V_VERSIONFSCN$W_ITEM_CODE FSCN$W_LENGTH FSCN$_DEVICEFSCN$_DIRECTORYFSCN$_FILESPEC FSCN$_NAME FSCN$_NODE FSCN$_ROOT FSCN$_TYPE FSCN$_VERSION HLP$L_DATA HLP$L_DESC HLP$L_FLAGS HLP$L_LEVEL HLP$M_ALL HLP$M_GROUP HLP$M_HELPHLP$M_KEYNAMLIN HLP$M_LIBLIST HLP$M_LIBRARYHLP$M_NOHLPTXT@ HLP$M_NOTTERMHLP$M_OTHERINFO HLP$M_OUTPUT HLP$M_PAGE HLP$M_PAGEDEF HLP$M_PMPTDEF HLP$M_PROCESS HLP$M_PROMPT@ HLP$M_SPARE1 HLP$M_SPARE2 HLP$M_SYSTEMHLP$R_FLAGS_BITSHLP$R_FLAGS_OVERLAYHLP$R_HLPDEF_BITS HLP$S_HLPDEF HLP$S_HLPDEF1 HLP$V_ALL HLP$V_GROUP HLP$V_HELPHLP$V_KEYNAMLIN HLP$V_LIBLIST HLP$V_LIBRARYHLP$V_NOHLPTXT HLP$V_NOTTERMHLP$V_OTHERINFO HLP$V_OUTPUT HLP$V_PAGE HLP$V_PAGEDEF HLP$V_PMPTDEF HLP$V_PROCESS HLP$V_PROMPT HLP$V_SPARE1 HLP$V_SPARE2 HLP$V_SYSTEM JPI$C_ADRTYPE JPI$C_ARBTYPE JPI$C_CTLTYPE JPI$C_JIBTYPE JPI$C_LISTENDJPI$C_MAXSTRUCJPI$C_PCBFLDTYPE JPI$C_PCBTYPEJPI$C_PHDFLDTYPE JPI$C_PHDTYPE JPI$K_BATCHJPI$K_DETACHED JPI$K_DIALUPJPI$K_INTERACTIVE JPI$K_LOCAL JPI$K_NETWORK JPI$K_OTHER JPI$K_REMOTEJPI$M_IGNORE_TARGET_STATUSJPI$M_NEW_MAIL_AT_LOGINJPI$M_NO_TARGET_ASTJPI$M_NO_TARGET_INSWAPJPI$M_PASSWORD2_CHANGED JPI$M_PASSWORD2_EXPIRED@JPI$M_PASSWORD2_WARNINGJPI$M_PASSWORD_CHANGEDJPI$M_PASSWORD_EXPIREDJPI$M_PASSWORD_WARNINGJPI$S_JPICTLDEFJPI$S_JPILGIDEFJPI$V_IGNORE_TARGET_STATUSJPI$V_NEW_MAIL_AT_LOGINJPI$V_NO_TARGET_ASTJPI$V_NO_TARGET_INSWAPJPI$V_PASSWORD2_CHANGEDJPI$V_PASSWORD2_EXPIREDJPI$V_PASSWORD2_WARNINGJPI$V_PASSWORD_CHANGEDJPI$V_PASSWORD_EXPIREDJPI$V_PASSWORD_WARNING JPI$_ACCOUNT  JPI$_APTCNT JPI$_ASTACT JPI$_ASTCNT JPI$_ASTEN  JPI$_ASTLM JPI$_AUTHPRI JPI$_AUTHPRIV JPI$_BIOCNT JPI$_BIOLM  JPI$_BUFIO JPI$_BYTCNT JPI$_BYTLM JPI$_CHAIN  JPI$_CLINAME  JPI$_CPULIM JPI$_CPUTIM' JPI$_CPU_ID JPI$_CREPRC_FLAGS JPI$_CURPRIV JPI$_DFPFC JPI$_DFWSCNT JPI$_DIOCNT JPI$_DIOLM  JPI$_DIRIO JPI$_EFCS JPI$_EFCU JPI$_EFWM JPI$_ENQCNT  JPI$_ENQLM JPI$_EXCVECJPI$_FAST_VP_SWITCH JPI$_FILCNT JPI$_FILLM JPI$_FINALEXC JPI$_FREP0VA JPI$_FREP1VAJPI$_FREPTECNTJPI$_GETJPI_CONTROL_FLAGS  JPI$_GPGCNTJPI$_GRPJPI$_IMAGECOUNT0JPI$_IMAGE_RIGHTS JPI$_IMAGNAME JPI$_IMAGPRIVJPI$_JOBPRCCNT# JPI$_JOBTYPE JPI$_LASTADR JPI$_LASTCTL2 JPI$_LASTPCBJPI$_LASTPCBFLD JPI$_LASTPHDJPI$_LASTPHDFLDJPI$_LAST_LOGIN_IJPI$_LAST_LOGIN_N JPI$_LOGINTIMJPI$_LOGIN_FAILURESJPI$_LOGIN_FLAGS%JPI$_MASTER_PIDJPI$_MAXDETACH JPI$_MAXJOBSJPI$_MEM" JPI$_MODE  JPI$_MSGMASK) JPI$_NODENAME*JPI$_NODE_CSID+JPI$_NODE_VERSION JPI$_OWNER  JPI$_PAGEFLTSJPI$_PAGFILCNTJPI$_PAGFILLOCJPI$_PGFLQUOTA JPI$_PHDFLAGSJPI$_PID  JPI$_PPGCNT JPI$_PRCCNT JPI$_PRCLM JPI$_PRCNAMJPI$_PRI  JPI$_PRIB.JPI$_PROCESS_RIGHTS JPI$_PROCPRIV$JPI$_PROC_INDEX&JPI$_RIGHTSLIST1JPI$_RIGHTS_SIZE JPI$_SHRFILLM JPI$_SITESPECJPI$_SLOW_VP_SWITCH JPI$_STATEJPI$_STS( JPI$_STS2!JPI$_SWPFILLOC/JPI$_SYSTEM_RIGHTS JPI$_TABLENAME JPI$_TERMINAL  JPI$_TMBU JPI$_TQCNT JPI$_TQLM-JPI$_TT_ACCPORNAM,JPI$_TT_PHYDEVNAM JPI$_UAF_FLAGSJPI$_UIC JPI$_USERNAME JPI$_VIRTPEAK JPI$_VOLUMESJPI$_VP_CONSUMERJPI$_VP_CPUTIM JPI$_WSAUTHJPI$_WSAUTHEXT JPI$_WSEXTENT JPI$_WSPEAK JPI$_WSQUOTA JPI$_WSSIZE LNM$C_MAXDEPTHLNM$C_NAMLENGTHLNM$C_TABNAMLENLNM$M_CASE_BLINDLNM$M_CONCEALED LNM$M_CONFINELNM$M_CREATE_IF LNM$M_CRELOG LNM$M_EXISTSLNM$M_NO_ALIASLNM$M_SHAREABLE LNM$M_TABLELNM$M_TERMINAL LNM$S_LNMDEFLNM$V_CASE_BLINDLNM$V_CONCEALED LNM$V_CONFINELNM$V_CREATE_IF LNM$V_CRELOG LNM$V_EXISTSLNM$V_NO_ALIASLNM$V_SHAREABLE LNM$V_TABLE LNM$V_TERMINAL LNM$_ACMODELNM$_ATTRIBUTES LNM$_CHAIN LNM$_INDEX LNM$_LENGTH LNM$_LNMB_ADDRLNM$_MAX_INDEX LNM$_PARENT LNM$_STRING LNM$_TABLE PRV$M_ACNTPRV$M_ALLSPOOL PRV$M_ALTPRI PRV$M_BUGCHK PRV$M_BYPASS PRV$M_CMEXEC PRV$M_CMKRNL PRV$M_DETACH@PRV$M_DIAGNOSE PRV$M_EXQUOTA PRV$M_GROUP PRV$M_GRPNAM PRV$M_LOG_IO PRV$M_MOUNT PRV$M_NETMBX PRV$M_NOACNT PRV$M_OPER PRV$M_PFNMAP@ PRV$M_PHY_IO PRV$M_PRMCEB PRV$M_PRMGBL PRV$M_PRMMBX PRV$M_PSWAPM PRV$M_SETPRI@ PRV$M_SETPRV PRV$M_SHARE PRV$M_SHMEM PRV$M_SYSGBL@ PRV$M_SYSLCK PRV$M_SYSNAM PRV$M_SYSPRV PRV$M_TMPMBX PRV$M_VOLPRO PRV$M_WORLD PRV$S_PRVDEF PRV$V_ACNTPRV$V_ALLSPOOL PRV$V_ALTPRI PRV$V_BUGCHK PRV$V_BYPASS PRV$V_CMEXEC PRV$V_CMKRNL PRV$V_DETACHPRV$V_DIAGNOSE!PRV$V_DOWNGRADE PRV$V_EXQUOTA PRV$V_GROUP PRV$V_GRPNAM" PRV$V_GRPPRV PRV$V_LOG_IO PRV$V_MOUNT PRV$V_NETMBX PRV$V_NOACNT PRV$V_OPER PRV$V_PFNMAP PRV$V_PHY_IO PRV$V_PRMCEB PRV$V_PRMGBL PRV$V_PRMMBX PRV$V_PSWAPM# PRV$V_READALL&PRV$V_SECURITY PRV$V_SETPRI PRV$V_SETPRV PRV$V_SHARE!82$JPI021.A(J+[RJACK.JPI.021.EXTERNAL]JPIGBLSYM_VAX.OBJ;4-o" PRV$V_SHMEM PRV$V_SYSGBL PRV$V_SYSLCK PRV$V_SYSNAM PRV$V_SYSPRV PRV$V_TMPMBX PRV$V_UPGRADE PRV$V_VOLPRO PRV$V_WORLD PSCAN$K_TYPEPSCAN$M_BIT_ALLPSCAN$M_BIT_ANYPSCAN$M_CASE_BLIND PSCAN$M_EQL PSCAN$M_GEQ PSCAN$M_GTR PSCAN$M_LEQ@ PSCAN$M_LSS PSCAN$M_NEQ PSCAN$M_ORPSCAN$M_PREFIX_MATCHPSCAN$M_WILDCARDPSCAN$S_ITEM_SPECIFIC_FLAGSPSCAN$V_BIT_ALLPSCAN$V_BIT_ANY PSCAN$V_CASE_BLIND PSCAN$V_EQL PSCAN$V_GEQ PSCAN$V_GTR PSCAN$V_LEQ PSCAN$V_LSS PSCAN$V_NEQ PSCAN$V_ORPSCAN$V_PREFIX_MATCHPSCAN$V_WILDCARDPSCAN$_ACCOUNTPSCAN$_AUTHPRI PSCAN$_BEGINPSCAN$_CURPRIV PSCAN$_ENDPSCAN$_GETJPI_BUFFER_SIZE PSCAN$_GRPPSCAN$_HW_MODELPSCAN$_HW_NAMEPSCAN$_JOBPRCCNTPSCAN$_JOBTYPE PSCAN$_MASTER_PID PSCAN$_MEM PSCAN$_MODE PSCAN$_NODENAME PSCAN$_NODE_CSID PSCAN$_OWNER PSCAN$_PRCCNT PSCAN$_PRCNAM PSCAN$_PRI PSCAN$_PRIB PSCAN$_STATE PSCAN$_STSPSCAN$_TERMINAL PSCAN$_UICPSCAN$_USERNAME PSL$C_EXEC PSL$C_KERNEL PSL$C_SUPER PSL$C_USERPSL$M_CPSL$M_CM PSL$M_CURMODPSL$M_DV PSL$M_FPD@PSL$M_FU PSL$M_IPLPSL$M_IS PSL$M_IVPSL$M_N PSL$M_PRVMOD7 PSL$M_SAFBITS PSL$M_TBIT@PSL$M_TPPSL$M_VPSL$M_Z PSL$S_CURMOD PSL$S_IPL PSL$S_PRVMOD PSL$S_PSLDEFPSL$V_CPSL$V_CM PSL$V_CURMODPSL$V_DV PSL$V_FPDPSL$V_FU PSL$V_IPLPSL$V_ISPSL$V_IVPSL$V_N PSL$V_PRVMOD PSL$V_TBITPSL$V_TPPSL$V_VPSL$V_Z SCH$C_CEF SCH$C_COLPG SCH$C_COM SCH$C_COMO SCH$C_CUR SCH$C_FPG SCH$C_HIB SCH$C_HIBO SCH$C_LEF SCH$C_LEFO SCH$C_MWAIT SCH$C_PFW SCH$C_SUSP SCH$C_SUSPO, SS$_ABORTSS$_ACCONFLICT SS$_ACCVIOB SS$_ACEEXISTSSS$_ACEIDMATCH SS$_ACLEMPTY SS$_ACLFULL SS$_ACPVAFUL( SS$_ALLSTARTED# SS$_ALRCURTIDSS$_ALRDYCLOSED8 SS$_ALRDYSTPPD0 SS$_ALRDYSTRT SS$_ARBTOOBIG# SS$_ARCHIVED# SS$_ARCHIVINGt SS$_ARTRES  SS$_ASTFLT: SS$_BADACL! SS$_BADACLCTX4 SS$_BADATTRIBSS$_BADCHECKSUM SS$_BADCHKSUM$#SS$_BADCONTEXT< SS$_BADESCAPESS$_BADFILEHDRSS$_BADFILENAME SS$_BADFILEVERD SS$_BADIMGHDR(SS$_BADIRECTORY SS$_BADISD# SS$_BADLOGVER SS$_BADPARAM SS$_BADQFILESS$_BADQUEUEHDRl! SS$_BADRCT\$ SS$_BADREASON SS$_BADSTACK$ SS$_BADTIMEd SS$_BADVEC8 SS$_BEGOFFILE SS$_BEGOFTAPE@ SS$_BLOCKCNTERRp SS$_BOOTREJECT$SS$_BRANCHENDED$SS$_BRANCHSTARTED SS$_BREAK  SS$_BUFBYTALI SS$_BUFFEROVF$SS$_BUFNOTALIGN SS$_BUGCHECK0 SS$_CANCEL*SS$_CANCELGRANT SS$_CHAINWL SS$_CHANINTLK! SS$_CLEARED SS$_CLIFRCEXT SS$_CMODSUPR$ SS$_CMODUSER SS$_COMMHARD, SS$_COMPAT SS$_CONCEALED SS$_CONNECFAIL SS$_CONTINUEQ SS$_CONTROLC  SS$_CONTROLO SS$_CONTROLY$ SS$_CPUCAP" SS$_CPUNOTACT+ SS$_CPUSTARTD SS$_CPUSTARTIP3 SS$_CPUSTOPPING SS$_CREATEDT SS$_CTRLERR$SS$_CURTIDCHANGE"./L 4`-J0123KPWO5 6R҇7̒89TLGLHJ<<JPI0 5-DEC-1994 14:09DEC COBOL V2.0-271 iH$CODE$$LOCAL$ $LINK$$UNINIT$PDATA$ COB$NAMES_____1 0COB$NAMES_____2 COB$NAMES_____3 COB$NAMES_____4$LOCAL_1 DCOB$SIGNAL_HANDLERDCOB$IMAGE_INIT(JJPI DCOB$CALLED DCOB$ERROR DCOB$INSPECT DCOB$STOP DCOB$STRING DCOB$OPEN DCOB$ACC_DISPLAY DCOB$UNSTRING DCOB$CLOSE DCOB$WRITE_LINAGEOTS$MOVEOTS$FILLOTS$MOVE OTS$MOVEMOTS$STRCMP_EQLP OTS$FETCH_U_OPN1_2(OTS$CVT_DEC8_2_TO_UINT64OTS$STRCMP_EQLS(OTS$CVT_UINT64_TO_DEC8_4 OTS$STORE_U_OPN1_2 OTS$DIV_ULLIB$PUT_OUTPUT LIB$GET_INPUTJPICLD HLP$M_PROMPT PSCAN$M_WILDCARD PSCAN$M_EQL PSCAN$M_GEQ PSCAN$M_NEQ PSCAN$M_LEQ PSCAN$M_OR PSCAN$M_CASE_BLIND DSC$K_DTYPE_T DSC$K_DTYPE_T DSC$K_DTYPE_T DSC$K_DTYPE_T DSC$K_DTYPE_T DSC$K_DTYPE_T DSC$K_DTYPE_T DSC$K_DTYPE_T DSC$K_DTYPE_T DSC$K_DTYPE_T FSCN$_NAME(PSCAN$_GETJPI_BUFFER_SIZE PSCAN$_PRIB PSCAN$M_OR PSCAN$_PRCNAM PSCAN$M_ORPSCAN$_TERMINAL PSCAN$M_ORPSCAN$_HW_NAME PSCAN$M_OR PSCAN$_MODE JPI$K_INTERACTIVE PSCAN$M_OR PSCAN$_MODE JPI$K_BATCH PSCAN$M_OR PSCAN$_MODE JPI$K_NETWORK PSCAN$M_OR PSCAN$_MODE#|b$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11v " JPI$K_OTHER PSCAN$M_EQLPSCAN$_JOBTYPE JPI$K_LOCAL PSCAN$M_ORPSCAN$_JOBTYPE JPI$K_DIALUP PSCAN$M_ORPSCAN$_JOBTYPE JPI$K_REMOTE PSCAN$M_ORPSCAN$_JOBTYPE JPI$K_BATCH PSCAN$M_ORPSCAN$_JOBTYPE JPI$K_NETWORK PSCAN$M_ORPSCAN$_JOBTYPEJPI$K_DETACHED PSCAN$M_EQLPSCAN$_USERNAME PSCAN$M_ORPSCAN$_NODENAME PSCAN$M_OR LNM$_INDEX LNM$_STRING SYI$_NODENAME SYI$_VERSION SYI$_CLUSTER_MEMBERSYI$_CPU SYI$_HW_NAME(JPI$_GETJPI_CONTROL_FLAGS JPI$_USERNAME JPI$_PRCNAM JPI$_NODENAMEJPI$_PID JPI$_TERMINAL JPI$_IMAGNAME JPI$_PRIB JPI$_WSSIZE JPI$_STATE JPI$_MODE JPI$_CURPRIV SCH$C_COLPG SCH$C_MWAIT SCH$C_CEF SCH$C_PFW SCH$C_LEF SCH$C_LEFO SCH$C_HIB SCH$C_HIBO SCH$C_SUSP SCH$C_SUSPO SCH$C_FPG SCH$C_COM SCH$C_COMO SCH$C_CUR JPI$K_INTERACTIVE JPI$K_LOCAL JPI$K_DIALUP JPI$K_REMOTE JPI$K_BATCH JPI$K_NETWORKJPI$K_DETACHED JPI$K_OTHER SS$_NOPRIVSS$_NOMORENODESS$_NOMOREPROC SS$_ENDOFFILE SOR$_BADLOGIC SOR$_BAD_KEY SOR$_BAD_LRLSOR$_BAD_MERGE SOR$_BAD_TYPE SOR$_ENDDIAGSSOR$_INSVIRMEMSOR$_KEYAMBINC SOR$_KEY_LEN SOR$_LRL_MISS SOR$_NODUPEXC SOR$_NUM_KEY SOR$_RTNERROR SOR$_SORT_ONSOR$_STABLEEXC SOR$_SYSERRORSOR$_UNDOPTION STR$_NOMATCHX X STR$_MATCH JPI$M_NO_TARGET_INSWAP JPI$M_NO_TARGET_AST(JPI$M_IGNORE_TARGET_STATUS CLI$_ABSENT CLI$_NEGATED CLI$_LOCNEG CLI$_PRESENTCLI$_DEFAULTED CLI$_CONCAT CLI$_LOCPRES CLI$_COMMA CLI$_NORMAL CLI$_ABSENT CLI$_NEGATED CLI$_LOCNEG CLI$_PRESENTCLI$_DEFAULTED CLI$_CONCAT CLI$_LOCPRES CLI$_COMMA CLI$_NORMAL JPI$K_INTERACTIVE JPI$K_LOCAL JPI$K_DIALUP JPI$K_REMOTE JPI$K_BATCH JPI$K_NETWORKJPI$K_DETACHED JPI$K_OTHER SS$_NORMAL SS$_NOPRIVSS$_NOMORENODESS$_NOMOREPROC SS$_EXBYTLM SS$_SUSPENDED SYS$SETRWM LIB$GET_EF SYS$GETJPIW SYS$GETSYIJPIBAS CLI$DCL_PARSE CLI$GET_VALUE CLI$PRESENT SYS$TRNLNM(STR$FIND_FIRST_SUBSTRING STR$POSITIONSOR$BEGIN_SORT STR$UPCASE OTS$CVT_TI_LLIB$GET_SYMBOLLBR$OUTPUT_HELPSTR$MATCH_WILD SYS$PROCESS_SCANSYS$FAOLIB$SET_SYMBOL LIB$DELETE_SYMBOL SYS$FILESCAN STR$COPY_R OTS$CVT_L_TBSOR$RELEASE_REC SOR$END_SORTSOR$SORT_MERGESOR$RETURN_REC LIB$SIGNAL =#04G~p^x^~޴>^~޵cGG0bB0c b@Zk0"4GB4Gb@Zk0b0"0c 80bP0c BbG4GGtG@Zk0b0"X0c 4@X G_]G0bh0c BGbGGGGG@ZkG0b4GBb0c 8@Zk0b0c 8]k0GtGX|EBb4GG@Zk0b GB4Gb0c "@Zk0b#HBGPbG0c G80bG0c (c"0b0c 0b0c "@Zk0b0"0c ]X\8G04GGtGX| GE]BbG@Zk0b%5`A0BG,G#,0c ~!0bH A /H#bD0c Cc"GGGG@Zk4G0bGB4GbG0c 80b.#.0c # 0bPJQ !J!>0c >"0bTG0c "@Zk4G0bb#",#,0c c!0b HA +H00c 0bDBУ.2C.0c Dڃ"0b TJV JwTJUJF0c >DF>?$S`B0#! 0b("(=tG,}0c 0#"0bb0c 8C"@Zk0b4@0Bh#0c 8 D 0= GX<,0btGB%!(0c b("0c0btG0c "0b,0c 0#"0b0c 8C"@Zk0b0"h# 0c 08 D 4@X G0b("0GBG0c (C",]<GbG@Zk0b0c 80b?$! (=!,0c Bʣ 0b%b!00c 4!("0="GtG@Zk0bGBTGb4G0c "G4GG@Zk0b9#,<.0c  0b HP Jh#0c 0b0D B<.2C9.D0c c"0b SJU JvSJTJF>F>7#/0c #8KD:9 CGH:]0CF:@0bTGBGbG0c TG`G0b0c !0b((0c P"@Zk0b7#,0c   H0:0b0GtGC.c.0c #"0bQJS qJ..0c yʃ"0b 4HV Jw4HUJ0c F>F>0\SF #G@Bb4G@Zk0b%G0c 0b!04G0Gdc8BbG@Zk0b*\I0c OAC0bC0c r@IG9@B]AB99`0b4@JR_B0c t@0brRBڔ"X!F0c r@4 Bђ0b6\Iws J0c F#0G4GG80@< BtGb@Zk0b*\I OA0c CG0bC0c r@IG9 B]&B99@0bS?BB1 J0c Ճ"0bBwsB0c ##0b "G0c C"@Zk8BTGG@Zk0b7C #LM#,XFN.0c  0b HPU J1J5DrH0c 2FL`4B4\IzsJF˃0G0b4GG@00c tGH< Bb@Zk0b*\I0c OAC0bC0c r@IG9@B]AB7969`0b4@JR_B0c t@0brRB"X!F0c r@0b4 BВ6\Iws J0c F#0bG04GGC/c/0c H##0YK0b[ yKP<[G0c # BbtG@Zk0b*\I0c OAC0bC0c r@IG9@B]AB98`0bT_BR_B0c t@0brRBݔ"X!F0c r@0b4 BВ6\Iws J0c F#0bG04GGC/c/0c P##0YK0b[ yKX<[G0c # BbtG@Zk0b*\I0c OAC0b#0c r HG9@B]AB88`0b4@JR_B0c t@0brRB ޔ"X!F0c r@0bВ4 B6F>X#0c 0b9?K0c 4 C(#0bc0c 0b;|K0c r`K2|K4BssJ0vJSFC=BP0b.0c ˃"JR85B`0b' #0"40c rH9@]@H8G8`0b vHB'0c #"0bD8<=G0c bԃ"0="8]"GG@Zk0bJ.M#.0c # 0bJQ !JCc.F.0c C"0brJT JF0c tFC80b_B?@ 8Fc`C/F#/0c "0b0@B WJY 7KzWJXK4G;G7?G?GJ#. 4GMc. =N0c "0JS pJ3FC C !H<CGGG BxB"GGSB@Zk,5A C?9@@77 0bBGG0c "4G@ZkG8B@Zk0b 4GBGG0c 0bTG0c C""TB@ZkG8B@Zk0bGBTGbtG8/G7#/0c "0b 6HX Kw6HY6K G?7G6?0c "4GG@Zkh0b.#,0c  K0bP JqKA HF1D> >D0b/.0c "0b KX KyKWJG?F>Cc-F,0c c#@ HK{I<{=9GBp" 0]0"4=8="8G<tGb@Zk0b80c #  @Y.#. 4G0b aIraIBQ !J0c 0bPJ3F!>F>0c "C"TG@Zk0b7.0c "Ja70b`sJ#0c 0b,"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11," [GIB70bB9v J+"0c C"G@Zkk6 0b IpI=#C0c cl/k.X KWJG?F>?0bC0c 0br@JXc25@B0c 4C0bRF2|JusJ0c UF(C0bD5,8c-0c c#0bHK {I9-<.0c # IP J DECCD?$XB_%J!0]@""`b4=0"4G@Zk0b,5-8#,0c @c!0bIA +H8C.5#.E0c 0 @" 0H0bR PJs0HQ0JTF3FP>0>X0c 0b5J0c 4B(0b0c 0b7J0c 0bc/C/0c ## K0b[ yKdKZYKkGDGy?Y?0c 0brI0I4 @qs H!v H0c F=#@˃R 0b.0c c"J6`5B0b$ 0"4ݲc0c r`I9`A]pA66 0b+v`I_'0c c#0b zEBG8}0="0c <} bԃ"8]"GG@Zk0bJ-M#,0c c!0bIA +HC#.FC.0c "0b0JR PJE0c 2FC80bB?@ 8`Fc`F.C.0c 0B" J0bW JxJVJFF>4G> GJc/4GM#.M0c C#zKQ :JqGC C !H<CGGG BxB"GGSB@Zk65B C?9@@R6Q6 0bBGG0c @ "4G@ZkG8B@Zk0b 4GBGG0c 0bTG0c C""TB@ZkG8B@Zk0bGBTGbtG8/G7#/0c "0b 6HX Kw6HY6K G?7G6?0c H "4GG@Zkf0b.#,0c  K0bP JqKA HF1D> >D0b/.0c "0b KX KyKWJG?F>Cc-F,0c c#@ HK{I<{=7GB@" 0]0"4=8="8G<tGb@Zk0b80c  @Y#,.˃ 0b 4G dIBP J0c 0bqdIA$HF0c >1D$< "C"TG@Zk0b7.0c "J50b`sJ#0c 0b,uFr>0b5,8.0c c#0bHW J9#,<-0c   HL ID,DCCD"XB%k!0}"4`b0"4G@ZkB,ꠠ@B0bGB5,8#,0c ă!0bHA ,H0c 0bD0c S"C"@ZkTG8BG@Zk0 @0b8/5.0c "0b 6HX Ky6HWJG?F>0c 0b,6IM.P#.0c "0bJQ 5J!c.F؃.0c C"0b JT JzJSrJ0c FzF>r>˃iGXB&"0ݲ 4`b0"4G@Zk0bD+䍿,#,0c ]Ƀ!0bHA ,H#.C.0c D]"0 @ 0HR PJs0HQ0J!!HTF3FP>0>9 @"@440b! HBbG0c a@0b"GG0c "TGG@Zkd0bB0c 0b$6Hȃ0c 0b ,I0c ˃0b.#.0c # 0bJQ !Jc..0c C"0brJT J0c FtF"pB"4G@ZkG8BG@Zk 4A0bB0c h҃0b0c p#40b#0c 0b9>F.C.0c "V JUJ>>.0bG04GG#//0c "0b KY 7KzKXK;G7?G?FC-C,0c  J @IFH@=<< BtGb@Zk =0¤ 4 A 0b,#,0c OC!0b@ HA *H*< <7#.0c "0J39 B]0B33@0b1v JB'0c $F0=#"0b4#h"8<0c pb#@D}AC"b0"8}"@"G@Zk0bqƒ,tƒ-0c AC!0bHL I0c DC88DXD0bC.c.0c O#"0bQJS qJ..0c ˃"0bJV JSF/F#/0c O"4B 7JY 7Kz7JXK;G7?G?kG0G =4G\ IE@BbGtG@Zk0)5 A =oG0G =4G EBbGtG@Zk0)5 A =]GB 0}0"48="8G<tGb@ZkG0b8C- @!؃,0c B 0bHJ FI0c 0bD0c "SC"@ZkTG8BG@Zk0b7.8.0c # HW JxHVJF>F>)G0b 4GB0c C-ˣ. I0bpIJFIU J0c 0bF> PEF=0c "C"TG@Zk0b7,0c # H2 0bysH0c 0b8J0c G˃-G0bä0c rH G9A]A22 0bRA7#,0c c"3H2`0bvRBB,׀IG0c 0b0c S"C"@ZkG0bB0c "0bB#/,0c #0b 8H@ Hd8H0c 0bY8KD0c < l@$G8?W "C"@Zk0b 4@ALps@IT,H/*v@I#/0c O 0bKY $K1Jr HG0c @TEô2FL6]FA_0b5.8C/0c ă"0bJZ TK9/<#/0c c#KY ;KFGCCFXB!0}0"44G`b@Zk0b@5C-8,0c  0bFID H5.8#.0c DE# 0@ HQ !JrHPJ3F!>F>+G0b..0c ]Ƀ"JV JF0B7J9BBZ2Y20b7JB"tGC/c/0c ]## J0bfJ[ yKZYKjGFGy?Y?0c Bw@"@Zk8BGG@ZkG0b_%J!0"X#0c 8="tG!v H 0b4GhB0 00c (0b48]0c pb<ݰG@Zk@0b0c 80bhBG0tGh0c 0b40B8]0c pb1C<ݰF#0"8="@Zk@0b0c 80b tGPä0c 0b&H0c ô0b0c 2H2H9@B3RA]PB11G B10bG0c r@R"10bBGb4G0c H"G4GG@Zk0b&vH$1@HB3C0c 0bDAP# C0c 0bD0?HqH0c F #0b vHG4@P0c 0bvJTG5J0c F xB"0b4GG0c "@Zk!K08D&vJ G0AA 8E!KC9@H @1 1 9 @]0@11@0bBGG0c 0bTG0c C""TB@ZkG8B@Zk5G09K$vJHܢG H9@]@19 C1 G]0C11 0b8KG0c u@0b0XA9`Bɵ"0c pB11@0bBTGbG0c GTG0b0c cG0b0c "0b0c "@Zk@0H0G4GG\tG@Bb@Zk0b¤0c 8Ơ,I A_0bB!B0"b8="0c G˃tG0}4]8<@Zk@0bBGXу0c 0b0c 0b0c "C"@ZkTG8BG@Zk0b7C-8#,0c ˃! HA ,HvHJLI7D,< VEL=AG0b7#/0c #8K719 CG]0C:1910bBGbTG0c GG0bTGG0c "@Zk0b7C-0c ˃ DI'10b 4@A8.7#,0c  @I0bP Jq@IA HF1D> <7.0c c"J1`0bGB0c 0b0c "C"@Zk0b0c (ò0b0c rKG9@]@110b@@`@0c # 0b @@7.0c #"J0 0b$׀HBY!CG0c 0b0c d@"C"@Zk0b,_IaJE .#.0c ˃ 0bJQ $Jc..0c C"rJT JFtF@ 0bC/c/0c ˣ"UK[ uK[G X!G@4 C,Kvs K EF00b5#.8c.0c "0b0JS pJ9C.<,0c ă"TJD H3FDFCCF}XB_%J!0]8"`b40"4G@Zk0b@>B'b5,8"8,0c ă!0bHD H /=8#.#5.D0c 0@# 0b HQ !JrHPJ3F!>F>0]0c 4f"80"<8="GtG@Zk¤0b8ƠDE0c 0b@""(BG,I0b0c A˃|b"0b4GGG0c "@Zk0b5,8-0c  0bHL I9#,<.0c   HP JD0DCCDXB$`b 0ݰ@""4=0"4G@Zk@0b"5,8#,0c ă!0bHA ,H8C.5#.D0c 0 @"0b 0HR PJs0HQ0JTFP>3F0>0c 0b56J0c "D0b0c hɣ+G0b#/C/0c ]#8KZ XK:G0C;K9`CbC000b;`KB#,#.0c ]Ƀ!0b KQ ,Jr KA,H0c 3F{@,>2D,<"B"G@Zk8BGG@Zk/G0b%!0"Xæ0c 8="tG6vJ0b4GhB" 00c (0b480c pb<=G@Zk@0b0c 8 0b hB"0Gh0c 0btG40B0c 81CpbF#<0"8="@Zk0b@0c 8?0b tGP0c 0b$J0c 0b#0c 3!I3!I9`B4A]pB//G B/0bG0c s@s"/0bGB4GbG0c "4GG@Zk$vH0b)1 A4CHB)E0c 0bG@P!C0c 0bD1Jr H0c 2F 0b!v HTG4 @P0c 0bx HxB"6J0c F 4G0bG0c "@Zk8D8J0)v HG8D0A8JCH<9 A 0Au/ 9Cs/@]Cv/u/`0bGBGTG0c 0b0c C""TB@Zk8BG@Zk409J)v HHܢG H9@%xI$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11=']@_/9 C]/G]0C`/_/ 0b7JG0c u@0b0A9`Bɵ"0c pBU/T/@0bBTGbG0c GTG0b0c cG0b0c "0b0c "@Zk@0H0G4GGtGBb@Zk0b#0c 8)XE 4A03F0>+G0b..0c ]ɣ"JW JF0B8J9CC.. 0b8K(B"Gc/,0c ]C# J0bD HiJ[zKDiG<z?0c Bx@"@Zk8B4GG@ZkG0b?%)!0"X0c 8="tG vH0b4G0 (0c hBò0b48=0c < pbG@Zk@0b0c 80bhB"0Gh0c 0btG(0B0c pb1C4F#8=0"<ݲ8="@Zk@0b0c 80b tGP0c 0b$J0c 0b0c 3I3I9`B43A]pBM.L.G BN.0bG0c s@s"K.0bBGb4G0c "G4GG@Zk0b$vH(1AHB4Ch0c 0bE@P!C0c 0bD1Jr H0c 2F 0b!v HG4 @P0c 0bx HTG6J0c F xB"0b4GG0c "@Zk8D08J(v HG8D08A8JC9AH< A . .@9C]C. .`0bBGG0c 0bTG0c C""TB@ZkG8B@Zk5G09J(v HHܢG H9@]@-9 C-G]0C-- 0b7JG0c u@0b07A9`Bɵ"0c pB`--@0bBTGbG0c GpTG0b0c cG0b0c "0b0c P"@Zk@0H0G4GG<tG Bb@Zk0b 4G00c 0b8(I<0c AGB" 00"4=8="8GbtG<@Zk0b@#0c 0bɰ I#0c 0b8(Er H/c.У.5 @0c Y#"0bqJU J.#/0c iC"0buFJ+Y 2Kc/#-0c mC#0bFzKI :I0c iG|#0b-Ѓ.0c u# 0bIT J0c EC0b0c #0b0c #G0b8)EC.c.0c Y#"0bQJS qJ{أ.~.0c K"SF 4JV Jw4JUJFF>>G0bX(E c/,0c iC#0bzK@ H{#,~.0c K!`G HP JrHA(HF2D>(P>0bæ0c 0brJ{#/~C/8F0c K#0b8KZ XK0c :G|*G0b XF {-~,0c K# 0bI@ H0c E0bxF {c. `?=~أ.0c KC"0brJU J0c uFC 0bF {/~c/0c KC#0bK[ zK0c G0bF 4B(J`sJ0c EG00b5c.8.0c ă 0bdJU J9#/3F0>'G0b..0c ]ɣ"JW JF0B8J9CC,, 0b8K`B"Gc/,0c ]C# J0bD HiJ[zKDiG<z?0c Bx@"@ZkSG0bP"!0"8="X0c tG vH0b4G0(=$0c hB pbò0b4=80c <=#!G@Zk@0b0c 80bhBP"0Gh0c 0btG(0B0c pb1C4F#80"<ݲ8="@Zk@0b0c 80b tGP0c 0b$J0c 0b0c 3I3I9`B43A]pB',&,G B(,0bG0c s@s"%,0bBGb4G0c "G4GG@Zk0b$vH(1AHB4C0c 0bE@P!C0c 0bD1Jr H0c 2F 0b!v HG4 @P0c 0bx HTG6J0c F xB"0b4GG0c "@Zk8D08J(v HG8D08A8JC9AH< A+ +@9C]C++`0bBGG0c 0bTG0c C""TB@ZkG8B@Zk5G09J(v HHܢG H9@]@+9 C+G]0C++ 0b7JG0c u@0b07A9`Bɵ"0c pB++@0bBTGbG0c GTG0b0c cG0b0c "0b0c "@Zk@0H0G4GG<tG Bb@Zk0b 4G00c 0b8(I<0c AG&B"0p" 4=80"b8="<GtG@Zk0b@#0c 0bȰ I0c 0b8ErJE 5B;-У.0c ]ڃ"0bIU J#./0c a# 0bE!JX K#/.0c e"0b8F7KP J0c 0G0b0c #0b0c 0bc/,0c iC#0bzK@ HЃ,Ѓ.0c mC"0b`GH#.T J/0c qڣ"0bD5J0c X K0b8F0c у0b0c #G0b E c.Ѓ.0c ]C"0brJT Jw.z.0c G"tF UJW JxUJVJFF>>{0bX E@,#,0c ec#0bHA ;Hw#.zc.0c G"D HS pJtHQ0JrF4Fp>0>c0bXE./0c i"0bJX KwC/z#,0c G##F JA 9H{JZYK D[G9<Y?K0b EC.c.0c m#"0bQJS qJwأ.z.0c G"SF 4JW Jx4JUJFF>>30bɲ IE) .C/ #/0c q"0b6KZ VKw.zC.0c Gc#:G JR [JsJPJ@F[>F>G0b)! Ѓ.У.0c a#"0bJU Jw/z-0c G"F 7JH Ia7JXKEG=?0bC0c 0br@Kz.8D wc.0c GC"0brJV J0c vFCFG0b XD wأ.z#,0c G"0bJA 4H0c F#70bxD w/z#/0c G"0bKY 7K0c G)0bD `wC.zc/0c G"0bVJ[ vK0c [FC0bD w#,z-0c G"0b5HH I0c (D# 0bD w.z.0c G##0bJW J0c F0bD4@;\KisH0c iGG00b5#,8.0c c"0b3HV J9.TFQ>æ0c 0b4B8K6J0c B0b0c hö3G00b\D)@,-0c ]c#HH ID0@)H9 A"A)) 0b) IBC.c.0c ]#"0b HS qJtHRQJ0c uFTFq> i@Q> "B"G@Zk8B4GG@Zk G0D0b0c 8vKC¦8B"#00"4=8="8GbtG<@Zk0b@0c 0bɰHX(EW 7#.0c "0J)9 B]0B))@0b1v J&B3F0=0c 4=#"0b?'b9#8=0c x#AC"<0"8}"G@Zk0bq.t#.0c A# 0bJQ !J0c F8C0b8 D &c0c 0b3v~J0c tBc0bæ0c 6vJG9BBp)9Bn) Bq)p) 0bVBC0c 0b0c v@v#,[K6.r[K@HQ;JD<2F;>$G0b8)EW7.0c c"JW)`9BG]BZ)Y)0b3v`Jb&0c _'wF=#"0b0}Z#4x"8]0c BAC"<ݲ0"8}"G@Zk0bq.t#.0c A# 0bJQ !J0c  8O=F80bC8 D c0c 0b&3v~J0c tBxc0bæ0c 6vJG9BB')9B%) B()') 0bVBC0c 0b0c v@v#,6.[Kr[K@HQ;JD2F<;>X)E0bo)Em`)EW7.0c #J )9B]B) )0b7vJ$F0c 0'4=#"0bxB#{#8}0c <]AC"B0"b8}"G@Zk0bq.t#.0c A# 0bJQ !J0c F8C0b8 D &c0c 0b3v~J0c tBpc0bæ0c 6vJG9BB(9B( B(( 0bVBC0c 0b0c v@v#,[K6.r[K@HQ;JD<2F;>lG*E0bHO&PRs"DV7/0c ˣ"K(9CG]C((0b5vJ?'b_'0c F0=#"0bZ#48]x"B0c AC"<ݲ0"8}"G@Zk0bq#,t.0c à 0b$HP J0c 0D8C0b8 D &C0c 0b2v^J0c SBhC0b£0c 5vJG9BB(9B( B((0bUB#0c 0b0c u@U#̕,:Ku/`:KDH[zKD<`Gz?0b#0c 0b H!  7C.0c c"SJr(`9@B]PBu(t(`0b2v@J&BWF0]0c 4=#"0b?'b9#8=0c x"AC"<0"8}"G@Zk0bq#,t.0c à 0b$HP J0c 0D8C0b8 D &C0c 0b2v^J0c SBC0b£0c 5vJG9BBB(9B@( BC(B(0bUB#0c 0b0c u@U#̕,:Ku/`:KDH[zKD<`Gz?G0bx*EW 7C.0c c"SJ)(`9@B]PB,(+(`0b2v@J&BWF0]0c 4=#"0b?'b9#8=0c x"AC"<0"8}"G@Zk0bq#,t.0c à 0b$HP J0c 0D8C0b8 D &C0c 0b2v^J0c SBC0b£0c 5vJG9BB'9B' B''0bUB#0c 0b0c u@U#̕,:Ku/`:KDH[zKD<`Gz?VG0b*EW 7C.0c c"SJ'`9@B]PB''`0b2v@J&BWF0]0c 4=#"0b?'b9#8=0c x"AC"<0"8}"G@Zk0bq#,t.0c à 0b$HP J0c 0D8C0b8 D &C0c &|f$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11_ 80b2v^J0c SBC0b£0c 5vJG9BB'9B' B''0bUB#0c 0b0c u@U#̕,:Ku/`:KDH[zKD<`Gz?G0b*EW 7C.0c c"SJ'`9@B]PB''`0b2v@J&BWF0]0c 4=#"0b?'b9#8=0c x"AC"<0"8}"G@Zk0bq#,t.0c à 0b$HP J0c 0D8C0b8 D &C0c 0b2v^J0c SB`C0b£0c 5vJG9BBg'9Be' Bh'g'0bUB#0c 0b0c u@U#̕,:Ku/`:KDH[zKD<`Gz?G0b *E 7c.0c # aJN' 9`BG]pBQ'P'@0b!v HB&b0c =#"0b4D&0=4"0c 8x <AC"0"8}"G@Zk0bqƒ,t#,0c A#!0bHA )H0c D80bC8 D #0c 0b_&1v>J0c 2B#0bƒ0c 4vJG9BB''9B B'0b'G0b7#,0c   H'9 @G]0@''@0b vHB?&b0c D=#"0b?%04)!0c 8=x <AC"0"8}"G@Zk0bqƒ,t#,0c A#!0bHA )H0c D80bC8 D #0c 0b_&1v>J0c 2B#0bƒ0c 4vJG9BB&&9B B&&0b0c 0bTB0c t@4#t/T/KdK[yKZYKiGDGy?Y?0b0c 0b!vH2H4 @q H!v H0c QF!@c?.0bæ0c 0b6vJ8F'..0c ]ɣ"JP JF0B)H9 A"A&&0b) IB"C/#/0c ]#0b HZ XK{HQGX?Y8KB0c i@;G8? "G@Zk8BGG@Zk0bG4G0c 0bH0c 8D("0b#BbG0c #"GG@Zk0b0c 80b5,8#,0c !0bHA (H5#.8C.0c D"0 @ 0HR PJs0HQ0JTFP>3F0>0bG5.8.0c ģ"0bJW J9#/>*0b..0c ]Ƀ"JV JF0B7J9BB*&)&0b7JPB"TGC/c/0c ]## J0bhJ[ yKZYKiGHGy?Y?0c Bw@"@Zk8BGG@ZkG0b0"8="tGX#0c !v H 0b4GhBX"!00c (0b480c pb<=G@Zk@0b0c 80bhBG0tGh0c 0b(0Bpb0c 1CF4 _=#0"88="<=@Zk0b@0c 80btGP#0c 0b)?I0c #0b0c 2H2H9@B3A]PB%%G B%0bG0c r@R"%0bGB4GbG0c ("4GG@Zk)v I0b$1@4CHBDx0c 0bG @P!C0c 0bD1Jr H0c 2F 0b!v HTG4 @P0c 0bx HxB"6J0c F 4G0bG0c ="@Zk8D8J0$v H G 8 E0A8J CH<9@ @% 9C%@]C%%`0bGBGTG0c 0b0c C""TB@Zk8BG@Zk409J$v HHܢ G !I9@]@p%9 Cn%G]0Cq%p% 0b7JG0c u@0b0A9`Bɵ"0c pBpf%e%@0bBTGbG0c GTG0b0c cG0b0c "0b0c `"@Zk$A0H0G4GGtGBb@Zk0b#0c 0b8))r>0b..0c ˣ"0bJW J#/C/0c O#F JZ XK{JY8KHG;GX?8?0b7,0c #! H$ 0bBG0c 0b0c P"C"@Zk0b0c 0bæ0c rJG9A]A$$0bYAy9C0c #!0b 9A7#,0c  #"1H$ 0b(IBYB0c 0bG0c h@"C"@Zk9H0bh H(G #.C.0c O"0b0JR PJ..0c c"JU J2FFB G0bc/#,0c OC#zKA :HaG)0bXF4B9J`sJ0c  GG00b5.8.0c C"0bJU J9.</0c c"JX KFFCCPFB#0}4]0"XB4G`b@Zk00b<8. D5#,0c ă 0bP J$H5C.8c.0c 0D#"0 @ 1HS qJt1HRQJuFq>TFQ>wG00bܢ#/D(/0c ]"Y 7KKG0B:J9@CBC$$#$`0b:@K,#,0c ]!0b JA (HqJ0c z@"BDH2DD(<<8B"tG@Zk8BGG@ZkwG0G0bGܢDAX0c 0b8B8vK5#,8,0c ##0b9HD H0c $D"@Zk0 @0b5C0G5.8.0c !0b (HV J`(HWJ0c F>F>HH#G1H9 B]0B##@0bBGbG0c TG#TG0bG0c "0b0c "@Zk0@H0b0"tGX0c (vI0b4GhB0$0c (= pbhb"0b4=88="0c <}!G@Zk@0"0! 8`0`0Bh"hBtG0"00R"(8pb40B1C8F2<ݲ0"8="G@Zk@0"0! 80tG0"0B0"01" #J q0R"3H3H9`B4A]pBx#w#G By#0G0"Bs"v#0BGb4G0#p"G4GG@Zk0#v`H0$1@0b4C0 00"0"0s" 0"HBD@!CD1Jr H!v H2F  4 @0x H09#6J0"GF "TGxB"4GG@Zk8D08J$v HG8`D0A`8JC9@H< @8# 7#@9C]C9#8#`0¦0GBG0"0"V""TBTG@ZkG8B@Zk5G06J$v HHG9aH9 C]0C!#9B#G]B"#!# 0b0B7JG0s"0R"UB0A39BR" B#@#`0"0G0"TG00! 0 BA01"0#"b"TGGG@Zkd@0H|0G4GGtGBb@Zk00b0 0!˄8c$H@ˈB 0}0"48="8GbtG<@Zk@0G00"B0 0!0! Hބ"A"@Zk8BTGG@Zk0¦7/86/0"" HY 7KhHXK!GG7??075.0""0J"9 B]0B""@1v J0b0"&3FB%0=4!0{#8h <0! @=;"bp#DAA"0"8}"@"G@Zk00"0bq$,t.0 A!(HP J01"0DC8 D8X D @ س..0s"O"UJV J>>00b7/W/0"-#.8KZ XK0{#O :G JP J`JHIFE>=0BNE&0¦NO"r..0R"2 aJT J0"tF5@ 8B"TGG@Zk0G0# - K˘,w KH IDHE=D<0¦Y&L&AN"0"AL"֦JFF n=*0BTGG0Z#"8B@ZkG00¦0B0 ˀ .- $Hx$HW JHIFE>=.6.0"˶"ؒ.R/JQ 5J0R"Or"F JZ SK{JTJ@GS?F>0"7-0! ˁ I"0G0"B0#09#"Y"@Zk0¦0"H00 rHG9@]@ " "0"0"X@xC09#7.9#8C01"Q"lJ"@0D@0Y!@BG0"0"B"U"@Zk9I0dJ$Gl0P.p.0"T/O0"t/0"˴"QJS qJUK[ uKSF[GBt 0(/؈,0!O"6KD H$GtX!D 04 @2Hss H0"SFG00B05.8.9.0Z#<7/0"z# !JP JJY (KFFCCF XB'#0 4`b0"4G@Zk0b@05-8#,0c 5P.c!8p. IA +H0"E0"0 @ 1HS qJt1HRQJuFq>TFQ>+G0¦/6/0"]"KY 7KG0B:J9@CBC!!`0b:@K0bc-#,0c 0s"]!zB JA (H"BqJKhI2D qE(<h=hB"TG@Zk8BGG@ZkG08="0tG0 0"( vH0hB%0k!(=0"p pb4G4=(!8}0"<G@Zk@0"0! 800BtGhB0"0R"08(pb0B1C4F28}0"<8="G@Zk0"@0! 800tG0"0!0" (I q01"2aH2aH9@B3@]PB!!G B !0¦G0"BR"!0GB4GbG0""4GG@Zk(vI0b#1`@0"3C0BcD0k!00! 0"k0R" !0"HB09#hA CE0?HqH vHF 2 4@0vJG5J0"F "TGxB"4GG@Zk!K8D0(vJ G0@ 8`E!K`CH|9A A 9 @ ]0@ @0¦G0GBTG0"0"V""TB@Zk8BG@Zk406K#vJHG9I9 C]0C 9B G]B 0b0B8KG0s"0R"UB0@@39BR" B @ `0b0TG0G0"0k!B0"PK0 0! `b"0"GTGG@ZkA0H|0G4GGtGBb@Zk0b0b0k!0c k8+|I oAc$B 0 480"b8="<GtG@Zk@0bG0b0B0c 0k!0 Lc "D"@Zk8BTGG@Zk0"7.8/0! " vHX KyvHWJ GF?>øB0"08="4TG8b<@Zk0b0b0c 87+,0k!ˋ $HU 9 @]0@X W !v H?&01D0=&4"8h"0<ݲpB#@0"D]0"B=4"bAU"0"8}"@"G@Zk0b00Bqƒ,t#,0c 0¦Ac!HA +H0"D8.C.8 D0R" X Dr" 'I$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11"I/6/JU J0"O"F WJY 7KzWJXK;G7?G?G0b0c-,0c 0,˃ p.dI@ H0"O0"`E HS qJtHA1HuF4Dq>1<0B7.0R""J0B0"G0Z#Z"B09#"@Zk0b0c L00 ˄rHG9@]@ 0V@0"vB0#7q,#C01"Q"6rH@00 HBYaA0"0"B "U"G@Zk!?Kx`H08D60b0b .@.0 .O"S/0s"/˓";/0{#0JR PJJZ TK{ KY #K2FFG@@0"0!.A.T/0! /0"O"˴"0JR PJUKX K2FXG4@6XaE 0b 4`A;Hss`I0c sG˃000B5.8 .9/0 CF>"B"@Zk8BGG@ZkG0hB#0"0b5-8`-0 8/Ā 5.I0K dI09# E0b0c (90@" HX KaHWJ9v KGF?>$  00"(}0k!4G0k!pb4}0"88="<]GhBtG@Zk@00!8`0"`0"h"hBG0! 001"(}8!tGpb4}0 @80C<!D0"8="@Zk@00!80"tG00"0! 0" !(?H q01"2aH2aH9@B3@]PBG B0¦G0"BR"0⦨BGb4G0""G4GG@Zk0b(vI0"#1`@0B3C0k!00! 0"k0R" !0"HBcDhA CE0?HqH vHF 2 4@0vJ09#5J0"FG "TGxB"4GG@Zk!K08D(vJ G0@ 8`E!K`C9AH| A  9 @]0@@0¦0GBG0"0" ~=V""TBTG@ZkG8B@Zk5G06K#vJHG9I9 C]0C9B G]B 0b0B8KG0s"0R"UB0@39BR" B@`0b0TG0G0"0k!B0"K0 0! b""GTGG@ZkA0H|XB%k!0}  `b40"4G@ZkD(B0"0}8="4G8tG<b@Zk07,0!h H_`9@G]@ba`0b vHXB?$D00s"`b4,3"0"GtG@Zk00!8+0b#,.0c ]Ƀ $HP J0D0 @1!H9 B"BED@0b1 J0BB"0"..0s"]ɓ"0Z# 4HV JQCw4HUJ"B09#F>F>,G@Zk4G8BG@ZkXB 0}`b0"44G@ZkD)B 0}40"88="<GbtG@Zk07h,0!h!kH`9`@]p@0B#v`HXB$`b0R"`D002"40"GtG@Zk00!8.G0bk,+,0k!]ɋ dHA $HaD0 @0!H9BGB@`00BG01 J.PB".0"]ɴ" 5HW Jx5HVJ0Z#F>F>0z0 B@"G@ZkG8BG@Zk0GtG0!,90b0c 0c L A h@+D` 0ܦBb4GG@Zk00b0 0k!˄$H@ˋ00 rH (@ G9 B'B@0Q?Bq1B0"B3CEq #@ G9BB0"VBvB8C09#6CcD'D@0b4 @;Hds H0k!dG 00B052.8r.9.0R"<5/0"Ē" "4JS tJJY 7K3FFCC0F9XB'#08"`b4ݲ0"4G@Zk0D0"05d,8-0 d!8A.kH5!.H I0¦0! hD0`@" pHR PJspHQ0J0"TF3FP>0>0"pɵ5JBpɶ00b57/8W/9,0"<,0{## 8KZ XKHD H:GDCCFXB0!0]0"44G`b@Zk00⤐|',D(-0 ]g!A +H IE0 @0!H9BGB#@"`00B1 JHB"..0"0Z#]ɴ"QC 5HW J"Bx5HVJFF>>G@Zk4G8BG@ZkA0 D0¦5g-8',0 5/!86/hIA (H0"aE"0 @ 7HY 7Ku7HXK0G7?G?(G0<D#0B0b05.8R/0R"r"8-J5,Z SK0{#F0@Bě DJH IkDJGHED=<..0"oɰ" KW JxKVJFF>>0"0B5q.8.01"9, <,0Z# : `JT JHG HtFDCCDpXB%`bk!0}!40"4G@ZkD)0⤍',.0 ]!(HP J0D0 @1!H9 B"B@0b0"1 JBB"..0s"]ɓ" 4HV Jw4HUJ09#F1C>F>"G@ZkG8BG@Zk; D0057/5',8.0 !8.(HV J0"6D#0 @ 8HU Jp8HY8KF>0G8?"G0\D0b00"5S/8s/0s"ē"8.TK5-[ tK00 [G0`B gJV JagJHI01"FE>=0"p116?Jp50057/8W.0"9@/#<`/0 Ā"8KR XJTK[ tK2G[GCC@FXB " 0`b0"4=4G@ZkG0 E0BXHB5.8'.0 ' 5.J8.Q !J0R"F0r"0 @ 3HU Jv3HTJF>F>0""TGxB"4GG@Zk8D0"G08G009#0 h90 D96?K9#h'0"(B"BG0! "@ZkG8BG@ZkG0HG0HܢG H9@]@0"TG0G0"GB09#0"b0! P@""TGG@Zk@GE0BM00.. .0 .] JQ !J0R"F0@]r" HU JvHTJ0#F>F>h2K5C9H9 C"C@0b9 KBB"0{#yC"G@Zk8BtGG@Zk{G0 H0⤰9@0 0 H@P砙 0¦0 HB@0"0"BD"B"G@Zk8B4GG@Zk]G0TG0xB"4G<0""ER0G0¦HB5,8,0#x8 HD H0"D@Zk00 @08D0bG8.8 G5/0!0  P 'HP Jq'HXK0s"F>G?BD 0BB"G0""@Zk8BtGG@Zk0GHܲ0HG7H9B]BA@ 0TG0G0GB0 0#b0!粐""TGG@Zk@0H005,8',9P.0 r>0#h7J =BhIGD* 0B,,0Z#]z#HG HD0@(H9AA 0"(I0Bq..01"]Q" HT JuHSrJ0"FuF>Br>"B"TG@Zk8BGG@ZkG0D005,88,0#5.8#8-HA 9H0 D"0 @ 6HH Iu6HWJE=F>nG0"&0s"XB"01"0 h1r J8 Fb 0bB0"0}8="0{#4]`{#8]<}hG"bGG@Zk00B0 0J!h8 $vH @8ED9@݀@04G0'@2CBD 4GXbDDG0"4G<CGG BG`C?FG_U"G&BGGTB@Zk GB GAGEGGBGG@Zk8BG@Zk HB4GPb@ZkXBPBN`B@ZkC0ܲG0<0E<00BG5X-88.9.0#<,0R" r"GIQ 'JJ@ HQEFCCDXBP" 00"4=4G`b@Zk D00\ D05P.8p.5-0"8',0 ć IA $H0"E0 @ 1HS qJt1HRQJuFq>TFQ>0¦0"0B5/86/0"9-"<,0Z# z#KY 7KI@ HGECCF_XB 0ݰ`b4G4@Zk D"0#0"8K05',8.0 !8./H5q.P J0"01"0D0 @Q" 2HT Ju2HSrJ0"FuF>r>09#`7JB`-G0BD)-,0Z#]z#IG HE0@/H9AA 0"/I0Bq..01"]Q" HT JuHSrJ0#FuF>Cr>"0B"G@Zk8BTGG@Zk G00"0"8="0"09#(7vJ0hB4G0"(=0"!pbG4=tG8<ݲ@Zk@00!80"0""hBG0! 001"(}8!tGpb4}0 @80C<!D0"8="@Zk@00!80"tG00"0! 0" !/?H 01"2H2H9@B3A]PBXWG BY0¦G0"BR"V0⦨BGb4G0""G4GG@Zk0/vI0"'1@0B3C0!00! 0"0R" !0"HBD A CE0?HqH vHF 2 4@0vJ09#5J0"FG "TGxB"4GG@Zk!K08D,vJG0A8E!KC9AH A  9 @]0@@0¦0GBG0"0"V""TBTG@ZkG8B@Zk5G06K'vJH G9I9 C]0C9B G]B 0b0B8KG0s"0R"UB0A39BR" B@`00TG0G0"0!B0"O0 0! b""GTGG@ZkA0H8B 0ݰ0"48="8GbtG<@Zk0D0B0"0!b0 ˌ8="TG,Iˇ048<@Zk#0000B00!00" 0R"00"0"!0"0b' 2#'"4&g"u0b0"009#0"TG0s"0B0{#s"0"6"~׶9#IG#G~0b0![0! xB0R"L!001"8\"8X"bGTGGDs"G4G@Zk00D zo"G`#O"@0tG00b0 D0{#0rH \  B1CE,Hzs JG E˛4G@BbG@Zk0!¦,I/I0 Aˀ4G_4G'HGB 7B7FYFG4`0(cՕ$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;115FZ4G0"˔ԲJ9BB~5JtBB @L#l/zKy@9`CGbC|{@ GG1H9 B(Bxw@01 J4GpBA0"4GB3B"GR"@Zk4 C'KGB 7B7FrF0@0b00k!0"k+I 4`Au40b0k!k 0`A:aI9@CHCRQ`0"l/ZC`@C01"!q0blKxeG0k! `ArK"u‹. Hrk.uH0bT JSrJ0k!F>uFr>k`+aI9`AhA54 0kAkyA0! AvK#vk/`:H[zK`Gz?0b0k!kIJ`Ir`ID @04@3sItH0" tFuwG0b00k!k +v`I 8`E_G05/8'/0 g! KY +K0bG9 .<-0k! +"JL IC  F CD'XB`b!0ݰ0"4}4G`b@Zk  D& 0b5,8,0k!+ 0bHE H5 -8+-D0k!0 @! /Hn/H0"I /IHI ,E0! /=E=h.g g, 4G fIP JqfIGHF>D<G  D@0"0¦5.8.0! 5/a"86/JU J0"F"0 @ 7HY 7Kz7HXK;G7?G?GD`04G0%0 tG0"0 0!0 0)!dĥ h)!!00"hB8="0G0!pbtG|(48ݱ<@Zk00"00!80 0"xGa-A-0! y gIJ GI p=(HjEC9A!!H'HG]Ayx 0b!'@04 @'H0s"2C0"!DxS9@x!HG]@kj0"&H'J!A0A01"9@ @Gb !C`d0B0"GG0Z#0! Z"Bt"BGTBG@ZkG8B@Zk0"7J$H00! B!$5@0!+C*v HD5@Ahb@@!uFr> 8B0c "GG@Zk0b00s/v#/0c 0"C"KY 7K0!GC` $0!0 c 4l0)!8h $`0b00BIЃ,LУ,0c e,!h8,0#58#HE H)g^$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11"kHA 9HDDCC`D0¦mЖ.pж.0"="JU JFCtDuq.01"EQ"P JrJpFCpD К-к-0Z#Qz#IM I E ClD `0bBB"G0c "@Zk8BGG@Zk0G4GG|`BtGb@Zk0X|04`@X|0|0bX|G0bb00k!C8k jET@0"#0G0¥G0¤0)!HB0 0!v)"Pb0 8(g""G@Zk0"00! 8<0D?<G0D?<D?GB4GbGtG@Zk0xX04@XG0< E?0¤G0 8B4GbG  =tG@Zk0Xܥ04AݵXܵG0@X00E8BbG4GGtG@Zk0%5@c |0cE `0b0B0c 0J!c#|HjG0b0c pcr`H8`D6`0b#-0c o!(I0b. 8BGG0c "@Zk0b%0D!0$0c (c ,}0 0bP 0 4.0c .0 JW Jc FC H9@]@ 0"_%BCb!/J!a-0! #0"8KK xI D+G%0! @8! <=C("G0]"8"G@Zk@""0"G0"|b"G0! 0)!!8 4GGr H8 D 0⤸Bb0 "@Zk G04GB@""b4G0!"GGG@Zk0¥G8BG0!"@Zk%0!!0(0!0¤׌!,04M',0 P.0   HV J6DC H9@@ 0"C0" D @80! 09#! <=99!K9 C#Czy 0¥CB *G KA@]0!b!Dݱ("G0]"8}"@"GG@Zk0"@""0G|b"0! 0!!8 G4Gr HG 8E0¤Bb0 "@Zk 04GB@""b4G0!"GGG@Zk0"G0B0)!0  ">G"@Zk 8E 0BB@""bG0J! "|b"G4GG@Zk 0¥4GB@""b4G0!"GGG@Zk0G8BG0!"@Zk$0¤ 0"!B("0 ( ,ݰ00)!4G8}0]"b8}"<G@Zk@""0bG0"|b"G0c 0! c84GGr`H8`D `0bBb0c "@Zk0|kG0b4GB@""b4G0c "GGG@Zk0|kG0bGG0c pcr`H8`D`0b8B0c "@Zk%0b!($0P 0c 0Yc ,}0b%0"0!0!0c 0#"0b&0Bz٭!0¤0c 0c 4}D-0! d- "8ݱ'<! @ݲ0"D= #4"HL#H"0P"00 Pݲn٤ EI0""TK eI9-?$<:-0Z# z#0IBI ;IbKE ECAЦ-_%DІ,0 چ!ID H0 ECJ!yڥ X]\X!0 ! `= d&`=#0"(>"h!"lh"0C("0]"8"@"G@Zk(""00"!0)!E8  G( G,}tG0b0¤00c 0#"0bB0 b0!0c 08C"@Zk0 0X|kG0G4GGX|0|0 cE`BtGb@Zk0#5`@0¥GBX|0b0!N"0c "@Zk00b@""G|b"0c Gc4GGr`H8`D`0bBb0c "@Zk G0b4GB@""b4G0c "GGG@Zk0¤0bz†-}¦-0 #-J -IM I00c ER!AЧ,/IDG-0 ڇ HJ DIH ID@0(E0`@--0 Rg! kH`kH0bO INIE=E=z.}#.0c J 0b HQ 'JrHPJ0c 3F'>F>pcr`H8`D`0ȳ|00`@ȳ|0X|k0b0c hcԲ`Hr`HR8`DP`0bG0B0c 0"x"U"@ZkG8BG@ZkG0G0¦8Bȳ|0""0`@@Zk'0#0"%0@"B0!(0)!,P!!0b)"ȳ|("40]"GG@Zk0b0c 80b0c cÒ`H9`@j@} | #v`H0b_%BjD(}0b0k!,("00="0c bxc 4}GtG@Zk0b0c 80X|kG0G4GGX|00DXBtGb@Zk0#5`@ }0bG8BG0c "@Zk tG0b$P (B("0c btG0#0b0c c ,}0b0c 0#"0b0c 8C"@Zkd%0benk!0"tG0xB"0c 0! c0"8"#`H kD`D%EN!nD`HB4GG@Zk0bw 4G0c 0b0c cr`H9`@=c@  0-`Hc@hBm@pb0!$A@ ?%(ݰc ,})!0=8b 4}0b("0="tG0c C"@Zk@0b0c 80bc 0b0c cr`H9`@=c@ *`H0bc@j@0k!cA+!+-I C 1@!CDGB4Gb""4GGG"G@Zk0#aH0!˭rI9A=A 9`@h@ &נI AAG `04GB@""b4G0 @"GG@ZkB4Gb@""4GGTG"G@Zk'G0b%!(XB("0c `bLc ,}0bGtG0c #"@Zk0b00c 8|`BGb4GGtG@Zk }04`@X|0|bG0bTGBGbtG0c 00b0c 0#"0b0c 8C"@Zk0 G0b0b0¥0c 0k!c(k0!r`H,|H 4@Ams@I*v@Ir`IEn KA` =9@A=CAl k +@IhB JApb KA0b$ 0k! jA%@k!J!(},] 0ݰ("40="GtG@Zk0"0! !r H9 @=#@P O 00!@! H0 0!@ե 8 @k!k-IC D 5@l,*Ck,Dka! KIG HhKIFHD<D<0G8BG0""@Zk&0"$(",ݲ0 0" 0؄ 4k-k!09#9"I 9AGA  vH$BD8_%b+! <= J!@]"!D=("0]"8}"@"G@Zk0" 4G0("0tG0¤0! B0!0!(0 b80/"08F",@Zk0%0!0B G0 80J!8DZ0"("0tG0B0)!(0 b0 0j)!,=0$"8E"@Zk0"0! 8_G0#|H0!oIG0G4GGX|0ܤ0DXBtGb@Zk0#5`@ }0bG8BG0c "@ZktG0b_%PJ!(]B("0c btG00b0c c ,}0b0c 0#"0b0c 8C"@Zkd%0ben!0"tG0xB"0c 0! c0"8"#`H mDD?%EN)!iD`HB4GG@Zk0bw4G0c ñ0b0c cr`H9`@=c@~ } 0$`Hc@hBd@pb0 %@@!%(_c ,}!08b 4}0b("0="tG0c C"@Zk@0b0c 80bc 0b0c cr`H9`@=c@Y X +`H0c@k@0!A!-IQ C 1@!CDGB4Gb""4GGG"G@Zk0#aH0 ˄rH9@=@> = 9`@h@? > %׀H@@G< `04GB@""b4G0"B_"GG@ZkB4Gb@""4GGTG"G@ZkuG0b$ (XB("0c `bLc ,}0bGtG0c #"@Zk0bG04G0c 8|`BGbtG@Zk }04`@X|0|b0X|0bG("G0c pcr`H8`D0b0c hcò`H8`D`0bB?%P)!(=0c bc ,}TG@Zk0b0c 80b£--0c R̃!IO IECv0b-0c o!I 8E0bm0BG0c 0 "D"@Zk0|`BGb4GGtG@Zk0X|04`@X|0|08b|R0bTGBGbtG0c 0ð0b0c 0#"0b0c 8C"@Zk0 G0b0B0c -c0J!j!Ir`H(|H4@isH E `0'vH @0!m8DG `0"0bGBG01"b0c 0""TGTG@Zk9@=@ `0#H@hB@pb0 %@@!_c (ݱ$,}b  0ݰ("4}0="GtG@Zk0b0c cr`H9`@=c@f e c@#`H0"#@0b0)!0c c 8 a@a A-CIY `  D@ 5@,#C-D! mHE HnmHLID< E=0bG8BG0c "@Zk$ (b ,}0b$ 0"0c #"0b0c c 4}/K3 9CGC6 5 7vJ?%B F8=! <=?$b ! @= D("0]"8}"@"G@Zk(4G,}("0btG0"00c B0#"0b0! b0!0c 88C"0ͱ@Zk0b%0!0c 8c8`DK0bG(B("0c btG0ð0b0c c ,}0b0c 0#"0b0c 8C"@Zk0b0c 8G0b0c hcò`H8`D`0|`BbG4GGtG@Zk }04`@X|0|0b|0b,#-0c R HI &IDC!`u0b0c pc2`H8`D`0G|`B4GbGtG@Zk }04`@X|0|0`b|^0bX|0\0 CEX|@BbG4GGtG@Zk0#5`@GX|008|kGG0G4GGX|0tG0 EBb@Zk0#5`@X|0G0G4GG|tG`Bb@Zk0X|04`@X|0|0Xb|b%P!c0("HBG(ݱG0!Pb!,tG@Zk0"0! 8Ds0@""G0 |b"˥G4GGrH8D0¤Bb0 "@Zk 04GB@""b4G0!"GGG@Zk0"G0)!h)r I 8 E?0b0BB0k!0J!x "J"@ZkG8BG@ZkG0G08Bȳ0! " 0A@Zk$0 0@ 0("B0!((",0 0ݱ0]"bGȳG4@Zk0"0"0)!0! )8ɒ I9 A*A )v I%0B +E(=,("00J!B0="0ݱG0!bx!4tG@Zk00!8|0|kG0X|00DBbG*c'$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11 5"|4GGtG@Zk0#5`@00!X|pɭ0rI`2I 8E0G\ =@Bb4GGtG@Zk04`@X|0|0b|\0b-0c g#!I 8EQ0|`BbG4GGtG@Zk0X|04`@X|0|b0|0b,0c gɃ H0b48BGG0c "@Zk0b%0b !0_%0"0c c (0k!,}PJ!B%0]k!4}0 b !80! &!< u! "@ݲD=("G0]"8}"@"G@Zk0"@""0G|b"0! 0 !8G4Gr HG8 D 0¤Bb0 "@Zk 04GB@""b4G0 "GGG@Zk0¥GG0!ΡAC08B0!"@Zk0$( 0',}x B0"0]F#4}"80!<("@Gb0]"D8}"@"G@Zk@""0"G0|b"G0! 0!!84GGr H8 D 0"Bb0)! "@Zk G04GB@""b4G0!"GGG@Zk0G4GGBtGb@Zk0$0¤%%0 0 ˄@!!$H@0ˆ0 ˥ 0"B"4G0)!)r I 8 E 0"B0)! "@ZkGG0"G0)! "8BG@ZkG0"G8B0)! "@Zk0"(,}0)!0"0]4}0)!8<)r I9 A"A 0) IB("@ݱG0!b A)!D=0]"8}"@"G@Zk0"0)!)r IG9 @"@ 0¤0! HHBG0 0!A8"xB"4GG@Zk 0@""G|b"0!G˭4GGrI 8E0⦸Bb0""@Zk G0¤4GB@""b4G0 "GGG@Zk D04@-"9B Br"p.T JF9@B]PB""9B B".T JF9@B]PB""9B B".T JF9@B]PB""9B BO"M.T JF9@B]PBf"d"9B B"A.R AJSF9`BG]pB""9B B0b"'@.R @JAF9 @G]0@""9B B""E""G B9"6"9"9C]Cy"w"9 CG]0C"".P JF9B]B" .P JF="OQ.R QJAFX""&"G B"""9C]C""9BG]B""P.R PJQF9 B]0BA"?.W JF"r.S rJvF"y"G B"""9 @]0@ ""9BG]B6"4"?.P JF9 @]0@"/X KG"r.S rJcF""G B " " "9 @]0@M"K"9BG]Bd"b"m,@ HD9@G]@"",D HD9`@]p@"" "Q"]""b""N"e"""y""A"G B"""9 @]0@""9BG]B""0"GXo"G0! D!1C!D!Jr J2DX'{0#H0"6CF4vJwSJFHq0"7g#8,O"7-09#@ H9LI:C9G [Kp[KD E<=a_0" g0! !5C!D!yJvJ6D 'W00"8CF76Jy3KFL",@ HD9`CGbC"""""""G !C""9 @G]0@""G @G""&A4G A2"/"*A4G *@d"a"""""." =<"|0b0B0c 0Z# c#6pHt@ z0bG.I0c z٣!#-&Iz-InIHfH /EE 'E-=E =0bAУ,D.0c ڃ V JEH><0bI#.LC.0c ڣ"R UJQ5JU>5>0b'_#0c ~c##/~/ [Kf[KY ;KXK'GG;??0b--0c ڣ!NIOI=="""""j"9AA{"y+LD-$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11",F H D""w""""-L IEC"9`@h@/"-"/""-O IE,@ HD9AGA"""-O IEC"9`@h@"",E HD)-M I Ee"|"c-K cI jE7/Y 7K8G9CGC""-M I EP,F HDh"G"],E HD,H-J HI IEO""&4OhG DCOB$CALLED4Ptb# DCOB$CALLED4O|@ DCOB$CALLED4EG SYS$SETRWM4Fb# SYS$SETRWM4E@ SYS$SETRWM4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4G< LIB$SIGNAL4 b# LIB$SIGNAL48@< LIB$SIGNAL4EHG\ SYS$SETRWM4FLb# SYS$SETRWM4EX@\ SYS$SETRWM4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4IG LIB$GET_EF4Jb# LIB$GET_EF4I@ LIB$GET_EF4G SYS$GETJPIW4b# SYS$GETJPIW4@ SYS$GETJPIW4-dGt DCOB$ERROR4.hb# DCOB$ERROR4-p@t DCOB$ERROR4G SYS$GETSYI4b# SYS$GETSYI4@ SYS$GETSYI4'GL DCOB$INSPECT4(b# DCOB$INSPECT4'H@L DCOB$INSPECT,=GJPIBAS,>b#JPIBAS,=@JPIBAS,=XGJPIBAS,>lb#JPIBAS,=@JPIBAS4KG CLI$DCL_PARSE4Lb# CLI$DCL_PARSE4K@ CLI$DCL_PARSE4%DG CLI$GET_VALUE4&Tb# CLI$GET_VALUE4%|@ CLI$GET_VALUE4'G DCOB$INSPECT4(b# DCOB$INSPECT4'@ DCOB$INSPECT49PG DCOB$STRING4:Xb# DCOB$STRING49@ DCOB$STRING4-$G4 DCOB$ERROR4.(b# DCOB$ERROR4-0@4 DCOB$ERROR4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4-p G DCOB$ERROR4.x b# DCOB$ERROR4-| @ DCOB$ERROR 4/ G OTS$MOVE4/ @ OTS$MOVE41 G OTS$FILL41 @ OTS$FILL4- G DCOB$ERROR4. b# DCOB$ERROR4- @ DCOB$ERROR4- G DCOB$ERROR4. b# DCOB$ERROR4- @ DCOB$ERROR4-t G DCOB$ERROR4.x b# DCOB$ERROR4- @ DCOB$ERROR45 G CLI$PRESENT46 b# CLI$PRESENT45 @ CLI$PRESENT4GG( SYS$TRNLNM4H b# SYS$TRNLNM4G$@( SYS$TRNLNM4/G(OTS$MOVE4/$@(OTS$MOVE4)HGd OTS$MOVEM4)`@d OTS$MOVEM41hGpOTS$FILL41l@pOTS$FILL4)xG OTS$MOVEM4)@ OTS$MOVEM41GOTS$FILL41@OTS$FILL4'G DCOB$INSPECT4(b# DCOB$INSPECT4'@ DCOB$INSPECT4%G CLI$GET_VALUE4&b# CLI$GET_VALUE4%@ CLI$GET_VALUE4/<GtOTS$MOVE4/p@tOTS$MOVE4/(GDOTS$MOVE4/@@DOTS$MOVE45 GH CLI$PRESENT464b# CLI$PRESENT45D@H CLI$PRESENT4GG SYS$TRNLNM4Hb# SYS$TRNLNM4G@ SYS$TRNLNM4/GOTS$MOVE4/@OTS$MOVE4)G4 OTS$MOVEM4)0@4 OTS$MOVEM418G@OTS$FILL41<@@OTS$FILL4)HGt OTS$MOVEM4)p@t OTS$MOVEM41xGOTS$FILL41|@OTS$FILL4'G DCOB$INSPECT4(b# DCOB$INSPECT4'@ DCOB$INSPECT4%G CLI$GET_VALUE4&b# CLI$GET_VALUE4%@ CLI$GET_VALUE4/G@OTS$MOVE4/<@@OTS$MOVE4/G OTS$MOVE4/@ OTS$MOVE45G CLI$PRESENT46b# CLI$PRESENT45@ CLI$PRESENT4/0GlOTS$MOVE4/h@lOTS$MOVE41pG|OTS$FILL41x@|OTS$FILL450GX CLI$PRESENT46Hb# CLI$PRESENT45T@X CLI$PRESENT49G  DCOB$STRING4:b# DCOB$STRING49@  DCOB$STRING 4/GOTS$MOVE4/@OTS$MOVE41GOTS$FILL41@OTS$FILL4GlG SYS$TRNLNM4Htb# SYS$TRNLNM4G@ SYS$TRNLNM4/GOTS$MOVE4/@OTS$MOVE4)G OTS$MOVEM4)@ OTS$MOVEM41G OTS$FILL41@ OTS$FILL4) G4 OTS$MOVEM4)0 @4 OTS$MOVEM418 G@ OTS$FILL41< @@ OTS$FILL4'H G DCOB$INSPECT4(P b# DCOB$INSPECT4' ,ZY$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11G"@ DCOB$INSPECT4- G DCOB$ERROR4. b# DCOB$ERROR4- @ DCOB$ERROR4-!G! DCOB$ERROR4.!b# DCOB$ERROR4-!@! DCOB$ERRORD;D"G"STR$FIND_FIRST_SUBSTRINGD<"b#STR$FIND_FIRST_SUBSTRINGD;"@"STR$FIND_FIRST_SUBSTRING4-|#G# DCOB$ERROR4.#b# DCOB$ERROR4-#@# DCOB$ERROR4-#G# DCOB$ERROR4.#b# DCOB$ERROR4-#@# DCOB$ERROR4%#G $ CLI$GET_VALUE4&$b# CLI$GET_VALUE4%$@ $ CLI$GET_VALUE4/D$Gt$OTS$MOVE4/p$@t$OTS$MOVE41x$G$OTS$FILL41$@$OTS$FILL4/$G%OTS$MOVE4/%@%OTS$MOVE4/%G%OTS$MOVE4/%@%OTS$MOVE4/%G8&OTS$MOVE4/4&@8&OTS$MOVE45&G' CLI$PRESENT46'b# CLI$PRESENT45 '@' CLI$PRESENT4/'G(OTS$MOVE4/(@(OTS$MOVE41(G(OTS$FILL41(@(OTS$FILL47P(G( STR$POSITION48|(b# STR$POSITION47(@( STR$POSITION47(G( STR$POSITION48(b# STR$POSITION47(@( STR$POSITION4'x)G) DCOB$INSPECT4()b# DCOB$INSPECT4')@) DCOB$INSPECT43)G@*OTS$STRCMP_EQLP43<*@@*OTS$STRCMP_EQLP4)*G* OTS$MOVEM4)*@* OTS$MOVEM41*G*OTS$FILL41*@*OTS$FILL49H+G+ DCOB$STRING4:P+b# DCOB$STRING49+@+ DCOB$STRING4-+G+ DCOB$ERROR4.+b# DCOB$ERROR4-+@+ DCOB$ERROR4%+G$, CLI$GET_VALUE 4&+b# CLI$GET_VALUE4% ,@$, CLI$GET_VALUE4/0,G\,OTS$MOVE4/X,@\,OTS$MOVE41`,Gl,OTS$FILL41h,@l,OTS$FILL49,G- DCOB$STRING4:,b# DCOB$STRING49 -@- DCOB$STRING4/-G-OTS$MOVE4/-@-OTS$MOVE4/.G0.OTS$MOVE4/,.@0.OTS$MOVE45(/GP/ CLI$PRESENT46"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;119  DCOB$STRING4- EGE DCOB$ERROR4.Eb# DCOB$ERROR4-E@E DCOB$ERROR4%TEGE CLI$GET_VALUE4&pEb# CLI$GET_VALUE4%E@E CLI$GET_VALUE45KG8K CLI$PRESENT46(Kb# CLI$PRESENT454K@8K CLI$PRESENT4/@LGLOTS$MOVE4/L@LOTS$MOVE41LGLOTS$FILL41L@LOTS$FILL4%LGM CLI$GET_VALUE4&Lb# CLI$GET_VALUE4%M@M CLI$GET_VALUED;\MGMSTR$FIND_FIRST_SUBSTRINGD<|Mb#STR$FIND_FIRST_SUBSTRINGD;M@MSTR$FIND_FIRST_SUBSTRINGD<Nb#STR$FIND_FIRST_SUBSTRINGD;NGOSTR$FIND_FIRST_SUBSTRINGD;O@OSTR$FIND_FIRST_SUBSTRINGD;pPGPSTR$FIND_FIRST_SUBSTRINGD<xPb#STR$FIND_FIRST_SUBSTRINGD;P@PSTR$FIND_FIRST_SUBSTRINGD<Qb#STR$FIND_FIRST_SUBSTRINGD;QGRSTR$FIND_FIRST_SUBSTRINGD;R@RSTR$FIND_FIRST_SUBSTRINGD;,SGxSSTR$FIND_FIRST_SUBSTRINGD<LSb#STR$FIND_FIRST_SUBSTRINGD;tS@xSSTR$FIND_FIRST_SUBSTRINGD;TGTSTR$FIND_FIRST_SUBSTRINGD<Tb#STR$FIND_FIRST_SUBSTRINGD;T@TSTR$FIND_FIRST_SUBSTRINGD;UGHVSTR$FIND_FIRST_SUBSTRINGD<Vb#STR$FIND_FIRST_SUBSTRINGD;DV@HVSTR$FIND_FIRST_SUBSTRINGD;dWGWSTR$FIND_FIRST_SUBSTRINGD<Wb#STR$FIND_FIRST_SUBSTRINGD;W@WSTR$FIND_FIRST_SUBSTRING D;XGYSTR$FIND_FIRST_SUBSTRINGD<Xb#STR$FIND_FIRST_SUBSTRINGD;Y@YSTR$FIND_FIRST_SUBSTRINGD;YG"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11~ STR$POSITION478sGs STR$POSITION48Psb# STR$POSITION47|s@s STR$POSITION4'tG,t DCOB$INSPECT4(tb# DCOB$INSPECT4'(t@,t DCOB$INSPECT43htGtOTS$STRCMP_EQLP43t@tOTS$STRCMP_EQLP4)(uGHu OTS$MOVEM4)Du@Hu OTS$MOVEM41HuGTuOTS$FILL41Pu@TuOTS$FILL49uGv DCOB$STRING4:vb# DCOB$STRING49v@v DCOB$STRING4-DvGPv DCOB$ERROR4.Hvb# DCOB$ERROR4-Lv@Pv DCOB$ERROR4%|vGv CLI$GET_VALUE4&vb# CLI$GET_VALUE4%v@v CLI$GET_VALUE4/vGvOTS$MOVE4/v@vOTS$MOVE41vGvOTS$FILL41v@vOTS$FILL40wGXw STR$UPCASE4Lwb# STR$UPCASE4Tw@Xw STR$UPCASED;wGwSTR$FIND_FIRST_SUBSTRINGD<wb#STR$FIND_FIRST_SUBSTRINGD;w@wSTR$FIND_FIRST_SUBSTRING4/yG yOTS$MOVE4/y@ yOTS$MOVE4/yGyOTS$MOVE4/y@yOTS$MOVE 45{G({ CLI$PRESENT46{b# CLI$PRESENT45${@({ CLI$PRESENT4/x{G{OTS$MOVE4/{@{OTS$MOVE41{G{OTS$FILL41{@{OTS$FILL48t|b# STR$POSITION47|G| STR$POSITION47|@| STR$POSITION47|G } STR$POSITION48|b# STR$POSITION47}@ } STR$POSITION4'}G} DCOB$INSPECT4(}b# DCOB$INSPECT4'}@} DCOB$INSPECT43}GX~OTS$STRCMP_EQLP43T~@X~OTS$STRCMP_EQLP4)~G~ OTS$MOVEM4)~@~ OTS$MOVEM41~G~OTS$FILL41~@~OTS$FILL49xG DCOB$STRING4:b# DCOB$STRING49@ DCOB$STRING45G CLI$PRESENT46b# CLI$PRESENT45@ CLI$PRESENT4%G CLI$GET_VALUE4& b# CLI$GET_VALUE4%@ CLI$GET_VALUE4!HGx OTS$CVT_TI_L4"\b# OTS$CVT_TI_L4!t@x OTS$CVT_TI_L4/G$OTS$MOVE4/ @$OTS$MOVE41(G4OTS$FILL410@4OTS$FILL454GT CLI$PRESENT46@b# CLI$PRESENT45P@T CLI$PRESENT4%\G CLI$GET_VALUE4&b# CLI$GET_VALUE4%@ CLI$GET_VALUE4!G OTS$CVT_TI_L4"āb# OTS$CVT_TI_L4!@ OTS$CVT_TI_L4/GOTS$MOVE4/@OTS$MOVE41GOTS$FILL41@OTS$FILL4-G DCOB$ERROR4.b# DCOB$ERROR4- @ DCOB$ERROR458G` CLI$PRESENT46Lb# CLI$PRESENT45\@` CLI$PRESENT450GP CLI$PRESENT46Hb# CLI$PRESENT45L@P CLI$PRESENT4/ЅGOTS$MOVE4/@OTS$MOVE41GOTS$FILL41@OTS$FILL45\G CLI$PRESENT46db# CLI$PRESENT45@ CLI$PRESENT4/ЇGOTS$MOVE4/@OTS$MOVE41 G,OTS$FILL41(@,OTS$FILL45lG CLI$PRESENT46xb# CLI$PRESENT45@ CLI$PRESENT43GOTS$STRCMP_EQLP43@OTS$STRCMP_EQLP4/XGlOTS$MOVE4/h@lOTS$MOVE 41pG|OTS$FILL41x@|OTS$FILL49ȊG DCOB$STRING4:Ԋb# DCOB$STRING49@ DCOB$STRING4/GOTS$MOVE4/@OTS$MOVE41GOTS$FILL41@OTS$FILL4/G(OTS$MOVE4/$@(OTS$MOVE41(G8OTS$FILL414@8OTS$FILL43tGOTS$STRCMP_EQLP43@OTS$STRCMP_EQLP4/G OTS$MOVE4/@ OTS$MOVE41 G0OTS$FILL41,@0OTS$FILL49xG DCOB$STRING4:b# DCOB$STRING49@ DCOB$STRING45G CLI$PRESENT46b# CLI$PRESENT45@ CLI$PRESENT4/G@OTS$MOVE4/<@@OTS$MOVE41@GPOTS$FILL41L@POTS$FILL4 G0LIB$GET_SYMBOL4 b#LIB$GET_SYMBOL4 ,@0LIB$GET_SYMBOL4/|GOTS$MOVE4/@OTS$MOVE4)G OTS$MOVEM4)@ OTS$MOVEM41G$OTS$FILL41 @$OTS$FILL< (G8OTS$FETCH_U_OPN1_2< 0b#OTS$FETCH_U_OPN1_2< 4@8OTS$FETCH_U_OPN1_2D LGTOTS$CVT_DEC8_2_TO_UINT64D P@TOTS$CVT_DEC8_2_TO_UINT6445БG CLI$PRESENT46b# CLI$PRESENT45@ CLI$PRESENT45GВ CLI$PRESENT46b# CLI$PRESENT45̒@В CLI$PRESENT4/GOTS$MOVE4/@OTS$MOVE41GOTS$F/($JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11J"ILL41@OTS$FILL478Gt STR$POSITION48Xb# STR$POSITION47p@t STR$POSITION47G STR$POSITION48b# STR$POSITION47@ STR$POSITION4'hG DCOB$INSPECT4(pb# DCOB$INSPECT4'@ DCOB$INSPECT43ȕG0OTS$STRCMP_EQLP43,@0OTS$STRCMP_EQLP4)G OTS$MOVEM4)@ OTS$MOVEM41GOTS$FILL41@OTS$FILL49PG DCOB$STRING4:hb# DCOB$STRING49@ DCOB$STRING4%Gȗ CLI$GET_VALUE4&b# CLI$GET_VALUE4%ė@ȗ CLI$GET_VALUE4ؗG STR$UPCASE4b# STR$UPCASE4@ STR$UPCASE 4]ؘG DCOB$UNSTRING4^b# DCOB$UNSTRING4]@ DCOB$UNSTRING4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4[GOTS$STRCMP_EQLS4[@OTS$STRCMP_EQLS45G CLI$PRESENT46b# CLI$PRESENT45@ CLI$PRESENT47G, STR$POSITION48 b# STR$POSITION47(@, STR$POSITION4)0GL OTS$MOVEM4)H@L OTS$MOVEM41PGXOTS$FILL41T@XOTS$FILL4/GܟOTS$MOVE4/؟@ܟOTS$MOVE4)G< OTS$MOVEM4)8@< OTS$MOVEM41@GHOTS$FILL41D@HOTS$FILL4-\Gp DCOB$ERROR4.`b# DCOB$ERROR4-l@p DCOB$ERROR43GOTS$STRCMP_EQLP43@OTS$STRCMP_EQLP43G,OTS$STRCMP_EQLP43(@,OTS$STRCMP_EQLP438GXOTS$STRCMP_EQLP43T@XOTS$STRCMP_EQLP4)ȢG OTS$MOVEM4)@ OTS$MOVEM41GOTS$FILL41@OTS$FILL43G8OTS$STRCMP_EQLP434@8OTS$STRCMP_EQLP4)G̣ OTS$MOVEM4)ȣ@̣ OTS$MOVEM41УGأOTS$FILL41ԣ@أOTS$FILL4)`G OTS$MOVEM4)@ OTS$MOVEM41GOTS$FILL41@OTS$FILL4/GOTS$MOVE4/@OTS$MOVE438GTOTS$STRCMP_EQLP43P@TOTS$STRCMP_EQLP43`G|OTS$STRCMP_EQLP43x@|OTS$STRCMP_EQLP43GХOTS$STRCMP_EQLP43̥@ХOTS$STRCMP_EQLP4GSTR$MATCH_WILD4 b#STR$MATCH_WILD4@STR$MATCH_WILD43GOTS$STRCMP_EQLP43@OTS$STRCMP_EQLP4GSTR$MATCH_WILD4 b#STR$MATCH_WILD4@STR$MATCH_WILD<_G,SYS$PROCESS_SCAN<`b#SYS$PROCESS_SCAN<_(@,SYS$PROCESS_SCAN4-|G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4-G̨ DCOB$ERROR4.b# DCOB$ERROR4-Ȩ@̨ DCOB$ERROR4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR 41GOTS$FILL41@OTS$FILL4G4 SYS$FILESCAN4 b# SYS$FILESCAN40@4 SYS$FILESCAN4PG STR$COPY_R4hb# STR$COPY_R4|@ STR$COPY_R4-̭G DCOB$ERROR4.Эb# DCOB$ERROR4-@ DCOB$ERROR4G8STR$MATCH_WILD4 b#STR$MATCH_WILD44@8STR$MATCH_WILD4دG OTS$CVT_L_TB4b# OTS$CVT_L_TB4@ OTS$CVT_L_TB4-@GT DCOB$ERROR4.Hb# DCOB$ERROR4-P@T DCOB$ERROR43G(OTS$STRCMP_EQLP43$@(OTS$STRCMP_EQLP43GOTS$STRCMP_EQLP43@OTS$STRCMP_EQLP43G(OTS$STRCMP_EQLP43$@(OTS$STRCMP_EQLP43pGOTS$STRCMP_EQLP43@OTS$STRCMP_EQLP4'@Gl DCOB$INSPECT4(Lb# DCOB$INSPECT4'h@l DCOB$INSPECT4'G DCOB$INSPECT4(b# DCOB$INSPECT4'@ DCOB$INSPECT4'G DCOB$INSPECT4(̳b# DCOB$INSPECT4'@ DCOB$INSPECT4'G DCOB$INSPECT4(b# DCOB$INSPECT4'@ DCOB$INSPECT4'<Gl DCOB$INSPECT4(Db# DCOB$INSPECT4'h@l DCOB$INSPECT41GдOTS$FILL41̴@дOTS$FILLDaGOTS$CVT_UINT64_TO_DEC8_4Dbb#OTS$CVT_UINT64_TO_DEC8_4Da@OTS$CVT_UINT64_TO_DEC8_4<G8OTS$STORE_U_OPN1_2< b#OTS$STORE_U_OPN1_2<4@8OTS$STORE_U_OPN1_24/@GTOTS$MOVE4/P@TOTS$MOVE4/`GxOTS$MOVE4/t@xOTS$MOVE41xGOTS$FILL41@OTS$FILL4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4 GX SYS$GETJPIW48b# SYS$GETJPIW405 $JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11T@X SYS$GETJPIW4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4-G( DCOB$ERROR4.b# DCOB$ERROR4-$@( DCOB$ERROR4-tG DCOB$ERROR4.xb# DCOB$ERROR4-@ DCOB$ERROR41G(OTS$FILL41$@(OTS$FILL,#GSYS$FAO,$b#SYS$FAO,#@SYS$FAO <?TGhDCOB$WRITE_LINAGE<@Xb#DCOB$WRITE_LINAGE<?d@hDCOB$WRITE_LINAGE<+xGDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY41GOTS$FILL41@OTS$FILL,#hGSYS$FAO,$|b#SYS$FAO,#@SYS$FAO<?GDCOB$WRITE_LINAGE<@b#DCOB$WRITE_LINAGE<?@DCOB$WRITE_LINAGE<+G0DCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+,@0DCOB$ACC_DISPLAY4/<GTOTS$MOVE4/P@TOTS$MOVE<?`GDCOB$WRITE_LINAGE<@hb#DCOB$WRITE_LINAGE<?@DCOB$WRITE_LINAGE<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY41GOTS$FILL41@OTS$FILL,#G4SYS$FAO,$ b#SYS$FAO,#0@4SYS$FAO<?tGDCOB$WRITE_LINAGE<@xb#DCOB$WRITE_LINAGE<?@DCOB$WRITE_LINAGE<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY41G OTS$FILL41@ OTS$FILL,#GSYS$FAO,$b#SYS$FAO,#@SYS$FAO,= G@JPIBAS,>(b#JPIBAS,=<@@JPIBAS4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4/GOTS$MOVE4/@OTS$MOVE<?GDCOB$WRITE_LINAGE<@b#DCOB$WRITE_LINAGE<?@DCOB$WRITE_LINAGE<+(GPDCOB$ACC_DISPLAY<,0b#DCOB$ACC_DISPLAY<+L@PDCOB$ACC_DISPLAY4/GOTS$MOVE4/@OTS$MOVE41GOTS$FILL41@OTS$FILL41GOTS$FILL41@OTS$FILL,#G4SYS$FAO,$b#SYS$FAO,#0@4SYS$FAO4ClGLIB$SET_SYMBOL4Db#LIB$SET_SYMBOL4C@LIB$SET_SYMBOL4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR41 G4OTS$FILL410@4OTS$FILL,=HGJPIBAS,>Tb#JPIBAS,=@JPIBAS43GOTS$STRCMP_EQLP 43@OTS$STRCMP_EQLP47,G STR$POSITION484b# STR$POSITION47@ STR$POSITION<+G(DCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+$@(DCOB$ACC_DISPLAY<+xGDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY4!G OTS$CVT_TI_L4"b# OTS$CVT_TI_L4! @ OTS$CVT_TI_L4-(GD DCOB$ERROR4.0b# DCOB$ERROR4-@@D DCOB$ERROR,=pGJPIBAS,>xb#JPIBAS,=@JPIBAS47 Gd STR$POSITION48b# STR$POSITION47`@d S TR$POSITION41GOTS$FILL41@OTS$FILL,#GSYS$FAO,$b#SYS$FAO,#@SYS$FAO,=GJPIBAS,>b#JPIBAS,=@JPIBAS,=\GJPIBAS,>lb#JPIBAS,=@JPIBAS4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR41G$OTS$FILL41 @$OTS$FILL,=8G|JPIBAS,>Db#JPIBAS,=x@|JPIBAS43GOTS$STRCMP_EQLP43@OTS$STRCMP_EQLP47Gt STR$POSITION48$b# STR$POSITION47p@t STR$POSITION<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY<+hGDCOB$ACC_DISPLAY<,pb#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY4!G OTS$CVT_TI_L4"b# OTS$CVT_TI_L4!@ OTS$CVT_TI_L4- G4 DCOB$ERROR4.(b# DCOB$ERROR4-0@4 DCOB$ERROR4GSOR$RELEASE_REC4b#SOR$RELEASE_REC4@SOR$RELEASE_REC4/ G<OTS$MOVE4/8@<OTS$MOVE4-HGd DCOB$ERROR4.Pb# DCOB$ERROR4-`@d DCOB$ERROR,=GJPIBAS,>b#JPIBAS,=@J1S+$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11 "PIBAS49@Gh DCOB$STRING4:Lb# DCOB$STRING49d@h DCOB$STRING 47G STR$POSITION48b# STR$POSITION47@ STR$POSITION41xGOTS$FILL41@OTS$FILL,#G8SYS$FAO,$ b#SYS$FAO,#4@8SYS$FAO,=\GJPIBAS,>lb#JPIBAS,=@JPIBAS,=GJPIBAS,>b#JPIBAS,=@JPIBAS4-4GP DCOB$ERROR4.8b# DCOB$ERROR4-L@P DCOB$ERROR4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4-,GH DCOB$ERROR4.0b# DCOB$ERROR4-D@H DCOB$ERROR4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4S8G`SOR$RETURN_REC4TLb#SOR$RETURN_REC4S\@`SOR$RETURN_REC<?GDCOB$WRITE_LINAGE<@b#DCOB$WRITE_LINAGE<?@DCOB$WRITE_LINAGE<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY4/G,OTS$MOVE4/(@,OTS$MOVE410G<OTS$FILL418@<OTS$FILL41LGdOTS$FILL41`@dOTS$FILL,#GSYS$FAO,$b#SYS$FAO,#@SYS$FAO4CG0LIB$SET_SYMBOL4Db#LIB$SET_SYMBOL4C,@0LIB$SET_SYMBOL4-tG DCOB$ERROR4.xb# DCOB$ERROR4-@ DCOB$ERROR4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4-<GX DCOB$ERROR4.@b# DCOB$ERROR4-T@X DCOB$ERROR41GOTS$FILL41@OTS$FILL,#GPSYS$FAO,$b#SYS$FAO,#L@PSYS$FAO<?GDCOB$WRITE_LINAGE<@b#DCOB$WRITE_LINAGE<?@DCOB$WRITE_LINAGE<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY41GOTS$FILL41@OTS$FILL,#(GtSYS$FAO,$Xb#SYS$FAO,#p@tSYS$FAO<?GDCOB$WRITE_LINAGE<@b#DCOB$WRITE_LINAGE<?@DCOB$WRITE_LINAGE <+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY4-G( DCOB$ERROR4. b# DCOB$ERROR4-$@( DCOB$ERROR4/GOTS$MOVE4/@OTS$MOVE41GOTS$FILL41@OTS$FILL41GOTS$FILL41@OTS$FILL,#(G`SYS$FAO,$<b#SYS$FAO,#\@`SYS$FAO43GOTS$STRCMP_EQLP43@OTS$STRCMP_EQLP<?GDCOB$WRITE_LINAGE<@b#DCOB$WRITE_LINAGE<?@DCOB$WRITE_LINAGE<+G@DCOB$ACC_DISPLAY<, b#DCOB$ACC_DISPLAY<+<@@DCOB$ACC_DISPLAY41GOTS$FILL41@OTS$FILL4WG OTS$DIV_UL4Xb# OTS$DIV_UL4W@ OTS$DIV_UL,#GSYS$FAO,$b#SYS$FAO,#@SYS$FAO<?GDCOB$WRITE_LINAGE<@b#DCOB$WRITE_LINAGE<?@DCOB$WRITE_LINAGE<+0GXDCOB$ACC_DISPLAY<,8b#DCOB$ACC_DISPLAY<+T@XDCOB$ACC_DISPLAY4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4Y G4SOR$SORT_MERGE4Z(b#SOR$SORT_MERGE4Y0@4SOR$SORT_MERGE4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR4-LG` DCOB$ERROR4.Pb# DCOB$ERROR4-\@` DCOB$ERROR4tG SOR$END_SORT4xb# SOR$END_SORT4@ SOR$END_SORT<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY4AG DCOB$STOP4Bb# DCOB$STOP4A @ DCOB$STOP<+G8DCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+4@8DCOB$ACC_DISPLAY<+8G`DCOB$ACC_DISPLAY<,@b#DCOB$ACC_DISPLAY<+\@`DCOB$ACC_DISPLAY4A`Gp DCOB$STOP4Bhb# DCOB$STOP< <4Al@p DCOB$STOP<+pGDCOB$ACC_DISPLAY<,xb#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY4A2$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11&"G DCOB$STOP4Bb# DCOB$STOP4A@ DCOB$STOP4UGLBR$OUTPUT_HELP4V b#LBR$OUTPUT_HELP4U@LBR$OUTPUT_HELP4AG DCOB$STOP4Bb# DCOB$STOP4A@ DCOB$STOP<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY<+GDCOB$ACC_DISPLAY<,b#DCOB$ACC_DISPLAY<+@DCOB$ACC_DISPLAY4AG DCOB$STOP4Bb# DCOB$STOP4A@ DCOB$STOP4- G8 DCOB$ERROR4.(b# DCOB$ERROR4-4@8 DCOB$ERROR4A8GH DCOB$STOP4B@b# DCOB$STOP4AD@H DCOB$STOP4-`Gx DCOB$ERROR4.hb# DCOB$ERROR4-t@x DCOB$ERROR4AxG DCOB$STOP4Bb# DCOB$STOP4A@ DCOB$STOP,=GJPIBAS,>b#JPIBAS,=@JPIBAS4AG DCOB$STOP4Bb# DCOB$STOP4A@ DCOB$STOP4-G4 DCOB$ERROR4. b# DCOB$ERROR4-0@4 DCOB$ERROR4XGp DCOB$CLOSE4`b# DCOB$CLOSE4l@p DCOB$CLOSE4EpG SYS$SETRWM4Fxb# SYS$SETRWM4E@ SYS$SETRWM41GOTS$FILL41@OTS$FILL,#G(SYS$FAO,$ b#SYS$FAO,#$@(SYS$FAO4CpGLIB$SET_SYMBOL4D|b#LIB$SET_SYMBOL4C@LIB$SET_SYMBOL4-G DCOB$ERROR4.b# DCOB$ERROR4-@ DCOB$ERROR41XGlOTS$FILL41h@lOTS$FILL,#GSYS$FAO,$b#SYS$FAO,#@SYS$FAO<GLIB$DELETE_SYMBOL<b#LIB$DELETE_SYMBOL< @LIB$DELETE_SYMBOL4ATGd DCOB$STOP4BXb# DCOB$STOP4A`@d DCOB$STOP P= 6 X=`=h= 6 h===>LIB$PUT_OUTPUT> LIB$GET_INPUT>JPICLD=CMKRNL 6 =CMEXEC 6 =SYSNAM 6 =GRPNAM 6 =ALLSPOOL6 =DETACH 6 =DIAGNOSE6 =LOG_IO 6 =GROUP 6 =NOACNT 6 =PRMCEB 6 =PRMMBX 6 =PSWAPM 6 =SETPRI 6 =SETPRV 6 =TMPMBX 6 =WORLD 6 =MOUNT 6 =OPER 6 =EXQUOTA 6 =NETMBX 6 =VOLPRO 6 =PHY_IO 6 =BUGCHK 6 =PRMGBL 6 =SYSGBL 6 =PFNMAP 6 =SHMEM 6 =SYSPRV 6 =BYPASS 6 =SYSLCK 6 =SHARE 6 =UPGRADE 6 = DOWNGRADE6 =GRPPRV 6 =READALL 6 =IMPORT 6 =AUDIT 6 =SECURITY6  =  = =( = ?6 l =r =x =~ = = = = = = = = = = = = = = = = = = = = = = = = = = = =& =, =2 =8 => =D =J =P =V =\ =b =h =n =t =z = = = = = = =  = = = = = = = = = = = = =/RC O6 6 => HLP$M_PROMPT=  6 = 6 = 6 = 6 = >PSCAN$M_WILDCARD> PSCAN$M_EQL> PSCAN$M_GEQ> PSCAN$M_NEQ> PSCAN$M_LEQ> PSCAN$M_OR>PSCAN$M_CASE_BLIND= 6 =(00000P DSC$K_DTYPE_T3=  DSC$K_DTYPE_T3=  DSC$K_DTYPE_T3=J DSC$K_DTYPE_T3Y@#$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11y"3=,  DSC$K_DTYPE_T3=9 DSC$K_DTYPE_T3=B DSC$K_DTYPE_T3=  DSC$K_DTYPE_T3=< DSC$K_DTYPE_T3= DSC$K_DTYPE_T3=H=P= FSCN$_NAME3== PSCAN$_GETJPI_BUFFER_SIZE3F4= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR = PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRIB3=> PSCAN$M_OR= PSCAN$_PRCNAM3> PSCAN$M_OR= PSCAN$_PRCNAM3> PSCAN$M_OR= PSCAN$_PRCNAM3 > PSCAN$M_OR= PSCAN$_PRCNAM3,> PSCAN$M_OR= PSCAN$_PRCNAM38> PSCAN$M_OR= PSCAN$_PRCNAM3D> PSCAN$M_OR= PSCAN$_PRCNAM3P> PSCAN$M_OR= PSCAN$_PRCNAM3\> PSCAN$M_OR= PSCAN$_PRCNAM3h> PSCAN$M_OR= PSCAN$_PRCNAM3t> PSCAN$M_OR=PSCAN$_TERMINAL3> PSCAN$M_OR=PSCAN$_TERMINAL3> PSCAN$M_OR=PSCAN$_TERMINAL3> PSCAN$M_OR=PSCAN$_TERMINAL3> PSCAN$M_OR=PSCAN$_TERMINAL3> PSCAN$M_OR=PSCAN$_TERMINAL3> PSCAN$M_OR=PSCAN$_TERMINAL3> PSCAN$M_OR=PSCAN$_TERMINAL3> PSCAN$M_OR=PSCAN$_TERMINAL3> PSCAN$M_OR=PSCAN$_TERMINAL3> PSCAN$M_OR=PSCAN$_HW_NAME3> PSCAN$M_OR=PSCAN$_HW_NAME3> PSCAN$M_OR=PSCAN$_HW_NAME3> PSCAN$M_OR=PSCAN$_HW_NAME3> PSCAN$M_OR=PSCAN$_HW_NAME3(> PSCAN$M_OR=PSCAN$_HW_NAME34> PSCAN$M_OR=PSCAN$_HW_NAME3@> PSCAN$M_OR=PSCAN$_HW_NAME3L> PSCAN$M_OR =PSCAN$_HW_NAME3X> PSCAN$M_OR=PSCAN$_HW_NAME3d> PSCAN$M_OR= PSCAN$_MODE3>JPI$K_INTERACTIVE> PSCAN$M_OR= PSCAN$_MODE3> JPI$K_BATCH> PSCAN$M_OR= PSCAN$_MODE3> JPI$K_NETWORK> PSCAN$M_OR= PSCAN$_MODE3> JPI$K_OTHER> PSCAN$M_EQL=PSCAN$_JOBTYPE3> JPI$K_LOCAL> PSCAN$M_OR=PSCAN$_JOBTYPE3> JPI$K_DIALUP> PSCAN$M_OR=PSCAN$_JOBTYPE3> JPI$K_REMOTE> PSCAN$M_OR=PSCAN$_JOBTYPE3> JPI$K_BATCH> PSCAN$M_OR=PSCAN$_JOBTYPE3> JPI$K_NETWORK> PSCAN$M_OR=PSCAN$_JOBTYPE3>JPI$K_DETACHED> PSCAN$M_EQL=PSCAN$_USERNAME3> PSCAN$M_OR=PSCAN$_USERNAME3> PSCAN$M_OR=PSCAN$_USERNAME3> PSCAN$M_OR=PSCAN$_USERNAME3 > PSCAN$M_OR=PSCAN$_USERNAME3> PSCAN$M_OR=PSCAN$_USERNAME3$> PSCAN$M_OR=PSCAN$_USERNAME30> PSCAN$M_OR=PSCAN$_USERNAME3<> PSCAN$M_OR=PSCAN$_USERNAME3H> PSCAN$M_OR=PSC4&>u$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11:4w݋NzdDQmdfnn _E$hS F?-,yh>ݽ7- ?+vkNFMkxdO^ʔ=d{Wщw 4.N;UZHf 2TG|muk#~@zdz`1D\Hl'I!{L^(7+Qm"85ՈIQk3IeL "Ss Gg5jIhF RU͖=(\|A('ªMxe ]BL]&gL̿2xpmE%}ؒ8jfLB[˄zmFcfEqbz lR٥kf,EJP)^n 070TY2&+9ܚ8bvR#&xq,I]UqQqijonÚ6!RHn 7\#d '68@Ъng7So4@t4,J-=nEAx;ɖf [U2vH,m9W2s n=腈(Ws5t}JYنqLT\aU(Ft?H owwYgr ˭eHcHt[z`%lIܹp4W|]=i^>Q18$-!. aD7tk 1;a ۱@KZבth8( ++[-Q-w'} s73?B @}Mhh}[K]]4z1F:}nMgq,C as$fWaG u&#_Cxoު¤ dDF C,tO0)obO2ښd}~d3 ?dgvn#[fahJ%{Ezɓ6潛;Lmf!#u1`bZ̥?熎Vjߕt.筝 ;)ka$!&Fۂ΂r!x#ND׉ą(,2(Y/߰׵fZi~񃻱]Ǥ~ 3 b|d)1aJ/0fBXSSojcpPxctO̭!e[BzcSD0&'+;#IЁw1#}M+\L-=Byݘ('YiqHeH C_-j&WsXH2[y!uq z1)=ϻo}&_? qɟmnLoXKrE ]@\ ܀k8S-gߙnBP 7@=VSVMbA'.+{3V$?uЏVe"h\9[ī}8ErGԝV˱Z :{е#&:B:"e^ ZgR8a+C?`VFYI SRzJ&ëD/S!cw[[c@ cϓXQT)Y0^<-򛸏k~|ǰRcCGOYr@Aj aǴbȰ@TbzĮ^/{ Љ]$bV)t4M׫_ 9*yWy~x;m<$@#],y۝e=,o- \Sa~{rA{zNS /b)R^ha52m{A7N 0?%%:I{:4;;8p*+Jx~(VA\Z𘍰ExzC3:uG1zcŢ.ib~ҲM_wޗۉY ͷ%Hε/<;S% }.jv>Sۻ@!025Cc9*F˂?nmbjES GOЗ%ۼ v_drܲm-ɾV[%=]V%wm[u S4&>`R|d'{  zϙKS̢Ǒ /Ҳ4&%TG:ܱcYY.jҏ)/;[vsxƑNq{%V !d_8A\ [caW,E:,{a7Q/7Ĉ?BhaܽV89Z\iKR^vqr,= >㆕^cE$7.4?R,2Ę o*籂aQi)TJDn )X,t/T,XZ7>W4QKՔ}~nbcYP=Cj Sdg/? ?4dB:̙Bg[8a%M#'-=* DZ':Bo6Қ '1DX Pn/ih(z?FQ.$~`ƟRKXdv;d&6d,Kou_6zb  Z`="GHL>vٸV gnq h01yl*75]bVd`jS;oa kr(sy}Hw ZUrv1Qd`"diLtUt=&\ <&,Sy%Þd+\K0^(NC?w1 [0)EjMaJnc+bh ,gQr0+Bbwd6`@Һ*u5VW`S*`5mU(\c"A|sy?5"`˜648tC[ i:fmwWwT0p/%&\1qR3ԯt=SؤZc\ ;6Wo25ٻwE&G)ÜPQ\Ŕwp(3)5eGɦ;. ۋXA] h]v#OfK!$hCcȔ'$ksX@T"pѻzk*ׅٸ Z|)5ѓUT ?A /Vköt EP/ù rmVzG`6%LPbMbҜ3`cp"Vu iZ vSj%;jnB&Fmka̖q&3ī40CG{bd.fDJtԠS3⯩V%*ڣQU C\y=K.5%ȏe|lP اYAwt: 1kGhvJ ~rzl+Fz׽rX3ofՖ^f4 ,]za !ߧ{!%B%2Ӂrt-׌IMN@ѶIR0{5J՛&yTGr8jA] %}bHR}‡EpQ"Q%Z _Ýhk׶QXR`Q~"oSޚB-8CP0g!- ; oDIʆm_1b(<.jS霆MT5!7Ιi3nc#4|SRgy{"~ꊐEQ2Aow8p>L_GϴJeTBмjS{\+ښj@:O z[C[:7 :SѪY]Ii81Rh]ȒϜBfyo,i2=. HJ`6{qӂuvxϑ=Mߗu'm={ DZdqb[m% pnL9(5r4"}c4c銓)f憥 y1> ނ8azJXLq/j`Y56,\sҁ7> Tf2ZzcAU6$P-:Р)tx l (Yg(ydY$Y{L^,AK㉘{gbxLN* TJ% UòBPlu%3O/;T۴[)ݠpŤ>tyrww箷L~2]˺Uf/ȶbK`|̕mfw!u dZ Fǃz%Qm =yrr>'}6HX+G"QuH*[{vl _w'2O:"ܺAbR4Y8eqD\H?ʻSmBhŁ׮A-ZI9P˨Uj,$?{ ͎1ǁ!_,:/sX,RTmMlyn^1ndjA$G6~8Oxlt+S8tr>rQ8v|ezf[m'¤t4lЬT=t^9y},0.STorZ "?Pt0OzLuI1c+6ֶYEs9ݐx}ֶ#/$:^6? g/v"-%_$g"ZL+HR2F52J&]ȇvLݏZ}2}g`4\9/;v{a$'H aO}߲4.'nCwnix LX>8JߓB䔯jcIދR: 6>Cc9~ya8ˮ$ztQSYv>cl 62u3b\K{Gq+[rm-qmZLDly7/]O9Ru:vtDXTl#?Ae2x13|boТOsμر2.󎍛ſĴf o|\bKz6"F*ƞd=ˈ%Z@1vf_Xk9=N4oLr`NŪ'ؗ򿂶Gh)Џ8{zm_8fĴPNzQC#ΝeoS lhW|CS`'^B ˑ= 1-&os-J&mqs3:L uH .Σvs_%АXG͘,vףWYpl$]' `x7;6B1<s2ܹՓ-JQ`|}%F1`N$9e!~r M{@N O~ wUt *Yq+^Y,~/ɏ%1!SNGwTWSKO?ZkK"X6x^_,Y\n_He|P8%t&+Ċ_ 0 aw{.1jg"S̃; XYJҥsCuk g#+VeaT*B`ᗩ8JRQsclNp7gWLht+jݘ $bL1 g ex1 C[ +D@(q1Y܃Roǥф 2Dpy ( e"DSDP SMʹk*ƃ5EܮOba6m>Q۾擔tjpi]HF+-u\^ַl{W!?!7kwvï|Sy58n=W!( <}t*vBn?y0S92ag).հL&RQ_it>˞͏Z!֚dVyiMs4:z7lbȎc1q~>S¸V'ah rSCVNmZb#-Dx ntW[/+s?g\Gޞ˩vm #:AW-j-+0!_ྼ NEЃ /(4We'7[0FN:`]N+ &lGɣ36'>u2|!5=O!% ^v+Dw¸tP>^Sds+bm^],Z;#Au O2N9]tyW5,5'\E-*7BQ]yA.UdC͏s ِx #tki<œV"! #Rge`B>SCSI` ?]rbGb/ w!`l*q+/t)i+CMdnl0`8>u1s ^NvUpwj_{ufMg&o,i={oaHËc DzWB4 #`Rs7^FJ/ޜG;D#/aPlt G7/r<;y̕BN=c"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11"&AN$_USERNAME3T> PSCAN$M_OR=PSCAN$_NODENAME3`> PSCAN$M_OR=PSCAN$_NODENAME3l> PSCAN$M_OR=PSCAN$_NODENAME3x> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3 > PSCAN$M_OR=PSCAN$_NODENAME3,> PSCAN$M_OR=PSCAN$_NODENAME38> PSCAN$M_OR=PSCAN$_NODENAME3D> PSCAN$M_OR=PSCAN$_NODENAME3P> PSCAN$M_OR=PSCAN$_NODENAME3\> PSCAN$M_OR=PSCAN$_NODENAME3h> PSCAN$M_OR=PSCAN$_NODENAME3t> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR= PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3(> PSCAN$M_OR=PSCAN$_NODENAME34> PSCAN$M_OR=PSCAN$_NODENAME3@> PSCAN$M_OR=PSCAN$_NODENAME3L> PSCAN$M_OR=PSCAN$_NODENAME3X> PSCAN$M_OR=PSCAN$_NODENAME3d> PSCAN$M_OR=PSCAN$_NODENAME3p> PSCAN$M_OR=PSCAN$_NODENAME3|> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR=PSCAN$_NODENAME3> PSCAN$M_OR== LNM$_INDEX3E4E4= LNM$_STRING3 E4 F4== SYI$_NODENAME384 84= SYI$_VERSION3#4#4=SYI$_CLUSTER_MEMBER3#4#4=SYI$_CPU3#4#4= SYI$_HW_NAME3#4#4= JPI$_GETJPI_CONTROL_FLAGS34G40G4=  JPI$_USERNAME3#4&4= JPI$_PRCNAM3$+43+4= JPI$_NODENAME38484=JPI$_PID3^"4b"4= JPI$_TERMINAL3j"4q"4= JPI$_IMAGNAME3u"4"4= JPI$_PRIB3"4"4= JPI$_WSSIZE3#4#4= JPI$_STATE3 #4 #4= JPI$_MODE3n#4r#4= JPI$_CURPRIV3v#4~#4== JPI V2.1-1, March 19946 = 6 =`V!XL !7 !12 !13 !12 !2UL !5UL !5AS !1AS !6AS*6 =!/!19* Job/Process Information from !0UL!128%CALPHA!%EVAX!%F/VMS !AS!13* From node !AS (!AS) at !%D!/PID Term Username Process Name Image Name PriB Work State M Node26 =hY!80*-!/Total of !UL Processes using !UL pages (!UL mb) of physical memory!/!14AS !60AS O6 = 6 = 6 = 0000 6 = 6 =( > SCH$C_COLPG> SCH$C_MWAIT> SCH$C_CEF> SCH$C_PFW> SCH$C_LEF> SCH$C_LEFO> SCH$C_HIB> SCH$C_HIBO> SCH$C_SUSP> SCH$C_SUSPO> SCH$C_FPG> SCH$C_COM> SCH$C_COMO> SCH$C_CUR>JPI$K_INTERACTIVE> JPI$K_LOCAL> JPI$K_DIALUP> JPI$K_REMOTE> JPI$K_BATCH> JPI$K_NETWORK>JPI$K_DETACHED> JPI$K_OTHER= 6 =8.*  6 = 6 =  6 = ?6 = *?6 =*?6 =*?6 =*?6 =*?6 =*?6 =*?6 =*?6 =*?6 =*?6 =*6 =*6 =*6 =*6 =*6 =*6 =*6 =*6 =*6 =*6 = ?6 =*?6 =*?6 =*?6 =*?6 =*?6 =*?6 =*?6 =*?6 =*?6 =*?6 = 6 = ?6 =*6 =*6 =*6 =*6 =*6 =*6 =*6–$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11T"76 =*6 =*6 =*6 = 6 =  ?6 =8= 6 = 6 =@6 @_86 @86 @86 @%96 @g96 @96 @96 @-:6 @o:6 @:6 @:6 @5;6 @w;6 @;6 @;6 @=<6 @<6 @<6 @=6 @E=6 @=6 @=6 @ >6 @M>6 >=@6 @>6 @?6 @W?6 @?6 @?6 @@6 @_@6 @@6  @@6 @%A6 @gA6 @A6 @A6 @-B6 @oB6 @B6 @B6 @5C6 @wC6 @C6 @C6 @=D6 @D6 @D6 E= 6 = O6 =hF= F=( jpi/notrailer/noheader/nosymbolsb6 G= G=G= G=(G=0G=> JPI$M_NO_TARGET_INSWAP>JPI$M_NO_TARGET_AST> JPI$M_IGNORE_TARGET_STATUSHG=PG> CLI$_ABSENT> CLI$_NEGATED> CLI$_LOCNEG> CLI$_PRESENT>CLI$_DEFAULTED> CLI$_CONCAT> CLI$_LOCPRES> CLI$_COMMA> CLI$_NORMALxG=G= G> SS$_NORMAL> SS$_NOPRIV>SS$_NOMORENODE>SS$_NOMOREPROC> SS$_EXBYTLM> SS$_SUSPENDEDGR;V!;G;G=80PPXHV;!;pHH;HY;H=80 H=Hf;Y;= 3I=F; U;=@I(U;=`I=PH;=pU;xU;=I=IU;U;=J=(J=;U;=LJ=`JU;U;=J=JU;U;=J=J=#;R;=J=KR; ;=,K=@Ku;=TK=`KR;=K=K=K=L=8L=HLT;=`LT;=xL=G;T;=L=LF;= L=L=L=LF;=M=MT;=0MF;=DM=PMT;=pM=G;T;=M=MF;=M=M=M=M=G;T;= N= NF;=4N=HN=TN=`N=G;hT;=N=NF;=N=N=N=NF;=N=N`T;=O=G;PT;="J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11ɟ"HQPS;=8Q=G;@S;=\Q=pQF;=Q=Q=Q=Q0S;Q;=Q=QV;= R8;=8R(S;0R;=\R=xR S;pR;=R=R=jpi.lisRd;= R=/R=/R=@1:(S=:0S=:8S&;=/HS= *XS =/`S= /pS=S=/S=PT=/XT=/NOTERMhT=/pT=T=/T= /T= /swapT=/noswapT=/T=+T= T=T=ؾ;Up;= (U=/clusterHU;t;;= xU=.U=U=.U= U= U=.U= U=.U;=U;=JPIU=V= 0::"0=JPI"V= /NODENAME=(Y= DOWNGRADE8Y= JPI V2.1-1, March 1994PY=0!!13* From node !AS (!AS) at !%D!/xY= !14AS !60ASY=( jpi/notrailer/noheader/nosymbolsG;HH;f=fU;=  (fP;=  @fQ;= XfX;= pf`;=  fh;=  fi;= fh;= f;= f;=CMKRNLg;=  g;= CMEXEC0g;=  Hg;= SYSNAM`g;=  xg;= GRPNAMg;=  g;= ALLSPOOL;=  g;=DETACHg;=  h;= DIAGNOSE;=  8h;=LOG_IOPh;=  hh;= GROUPh(;=  h-;= NOACNTh8;=  h>;= PRMCEBhH;=  hN;= PRMMBXiX;=  (i^;= PSWAPM@ih;=  Xin;= SETPRIpix;=   i~;= SETPRVi;=  i;= TMPMBXi;=  i;= WORLDj;=  j;= MOUNT0j;=  Hj;= OPER`j;=  xj;= EXQUOTAj;=  j;= NETMBXj;=  j;= VOLPROj;=  k;= PHY_IO k;=  8k;= BUGCHKPk;=  hk;= PRMGBLk(;=  k.;= SYSGBLk8;=  k>;= PFNMAPkH;=  kN;= SHMEMlX;=  (l];= SYSPRV@lh;=  Xln;= BYPASSplx;=  l~;= SYSLCKl;=  l;= SHAREl;=  l;= UPGRADEm;=  m;= (Y;;=  Hm;=GRPPRV`m;=  xm;= READALLm;=  m;= IMPORTm;=  m;= AUDITm;=  n;= SECURITY ;=  8n ;= ;= 80$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11"Yhn ;= n ;= n ;=  n( ;=  n) ;= ?nl ;= nr ;= ox ;= (o~ ;= @o ;= Xo ;= po ;= o  ;= o ;= o ;= o ;= o ;= p ;= p ;= 0p ;= Hp ;= `p ;= xp ;= p ;= p ;= p ;= p ;= p ;= q ;=  q ;= 8q ;= Pq ;= hq ;= q ;= q ;= q ;= q& ;= q, ;= q2 ;= r8 ;= (r> ;= @rD ;= XrJ ;= prP ;= rV ;= r\ ;= rb ;= rh ;= rn ;= st ;= sz ;= 0s ;= Hs ;= `s ;= xs ;= s ;= s ;= s ;= s ;= s ;= t ;=  t ;= 8t ;= Pt ;= ht ;= t ;= t ;= t ;= t ;= t ;= t ;= /RCu ;= (u ;= @u ;=  Xu ;=  pu ;= O u M ;= uM;= uU;= uW;= uY;= v[;= v];= 0v_;= Hva;= `vc;=  xve;=  vf;=  v;=  v;= vi;= vm;= wq;=   wu;=  8wv;= Pw;=  hw;=  w;= w{;= w};= w;= w;= w;= x;= (x;= @x;= Xx;=  px;=  x;= x-;= x1;= 00000x5;= x:;= y>;= yB;= 0yF;= HyR;= `yT;=  xyV;= yZ;= y\;=  y^;= yb;= Jyd;= zf;=  zj;= ,8zl;=  Pzn;= hzr;= 9zt;= zv;= zz;= Bz|;= z~;= z;=  {;= 9 $JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11e"j({;= @{;= <X{;= p{;=  {;= {;= {;= {;= H{;= |;= |;= P0|;= H|;= `|;= x|;= |;=F;;= |;= | ;= |;= }$;=  }0;= 8}<;= P}H;= h}T;= }`;= }l;= }x;= };= };= };= ~;= (~;= @~;= X~;= p~;= ~;= ~;= ~;= ~;= ~;=  ;= ,;= 08;= HD;= `P;= x\;= h;= t;= ;= ;= ;= ;=  ;= 8;= P;= h;= ;= ;= ;= Ȁ;= ;= ;= (;= (4;= @@;= XL;= pX;=  =d;= p;= |;= Ё;= ;= ;= ;= 0;= H;= `;= x;= ;= ;= ;= ؂;= (;= 4;=  @;= 8L;= PX;= hd;= p;= |;= ;= ȃ;= ;= ;= ;= (;= @;= X;= p;= ;= ;=  ;= Є;= $;= 0;= <;= 0H;= HT;= ``;= xl;= x;= ;= ;= ؅;= ;= ;=  ;= 8;= P;= h;= ;= ;= ;= Ȇ;=  ;= ,;= 8;= (D;= @P;= X\;= ph ;= t;= ;= ;= Ї;= :0$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11l"{;= ;= ;= 0;= H;= `;= x;= ;= ;=  ;= ؈;= $;= 0;=  <;= 8H;= PT;= h`;= l;= x;= ;= ȉ;= ;= ;= ;= (;= @;= X;= p;= ;= ;= ;= Њ;=  ;= ,;= 8;= 0D;= HP;= `\;= xh;= t;= ;= ;= ؋;= ;= ;=  ;= 8;= P;= h;= ;= ;= ;= Ȍ;= ;= (;= 4;= (@;= @L;= XX;= p d;= p;= |;= ;= Ѝ;= ;= ;= ;= 0;= H;= `;= x;= ;= ;=  ;= ؎;= $;= 0;=  <;= 8H;= PT;= h`;= l;= x;= ;= ȏ;= ;= ;= ;= (;= @;= X;= p;= ;= ;= ;= А;=  ;= ,;= 8;= 0D;= HP;= `\;= xh;= t;= ;= ;= ؑ;= ;= ;=  ;=E;;=E;;= h;= E;;= F;;= ;= Ȓ;=8;;= 8;;= ;=#;;=#;;= X;=#;;=#; ;= ;=#;;=#;;= ;=#; ;=#;;= 0;= H;=4G;;=0G; ;=  $;=#;(;=&;,;= ;Z$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11\"ؔ0;=$+;4;=3+;8;=  <;=8;@;=8;D;= hH;=^";L;=b";P;= T;=j";X;=q";\;= `;=u";d;=";h;= @l;=";p;=";t;= x;=#;|;=#;;= Ж;= #;;= #;;= ;=n#;;=r#;;= `;=v#;;=~#;;= ;=8Y;;=  ؗ;=  ;=  ;=в;I;= V 8;=*(;;=DPY; ;=!p;. ;= N | ;= 2!80*- ;=; ;=FxY; ;=  !;=  !;=  (!;= O @V!;=  XW!;=  p!;=  !;= 0000V";= Z";= Й^";=  b";= f";=  j";=  0k";= Hq";=  `u";=  xv";= ";= ";= ";= ؚ#;= #;=  #;=   #;=  8i#;=  Pj#;= hn#;= r#;=v#;=~#;= ț#;= *#;= #;= #;= (#;= @#;=  X#;=  p#;= #;=  #;=  #;= М#;=  #;=  #;=  #;=  0#;= ?H$;= `$;= x $;= *$$;=  %$;= ?*d$;=  ؝e$;= ?*$;=  $;= ?* $;=  8$;= ?*P$%;=  h%%;= ?*d%;=  e%;= ?*%;=  Ȟ%;= ?*%;=  %;= ?*$&;=  (%&;= ?*@d&;=  Xe&;= ?p&;= *&;=  &;= *&;=  П&;= *&; =  &;= *&;=  0&;= *H&;=  `&;= *x&;=  &;= *&;=  &;= *ؠ&;=  &;= *&;=   &;= *8&;=  P&;=  h&;=  &;= ?8';= *<';=  ȡ=';= ?*|';<v$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11"=  }';= ?*';=  (';= ?*@';=  X';= ?*p<(;=  =(;= ?*|(;=  }(;= ?*Т(;=  (;= ?*(;=  (;= ?*0<);=  H=);= ?*`|);=  x});= ? );=  );= <*;=  أ@*;=  A*;= ?*;= * *;=  8*;= *P*;=  h*;= **;=  *;= **;=  Ȥ*;= **;=  *;= **;=  (*;= *@*;=  X*;= *p*;=  *;= *+;=  +;= *Х+;=   +;=  $+;=  %+;= 03+;= H7+;= `;+;= x?+;=  C+;=  D+;= ?+;=  ئ8;=  8;=  8;=   8;=  88;= P8;= h8;=  8;= @ _8;= @ 8;= @ ȧ8;= @ %9;= @ g9;= @ 9;= @ (9;= @ @-:;= @ Xo:;= @ p:;= @ :;= @ 5;;= @ w;;= @ Ш;;= @ ;;= @ =<;= @ <;= @ 0<;= @ H=;= @ `E=;= @ x=;= @ =;= @  >;= @ M>;= @ة>;=  >;= @ >;= @  ?;= @ 8W?;= @ P?;= @ h?;= @ @;= @ _@;= @ @;= @ Ȫ@;= @ %A;= @ gA;= @ A;= @ (A;= @ @-B;= @ XoB;= @ pB;= @ B;= @ 5C;= @ wC;= @ ЫC;= @  C;= @ =D;= @ D;= @ 0D;= @HE;= `E;=  x E;=   E;=  F;= F;=  جF;=  F;= ObF;=  hF;= 8lF;= PpF;= htF;= xF;= zF;=Y;F;=  ȭF;= b G;= G;= G;= ( G;= @(G;= X0G;= p4G;= HG;= xG=䪤$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11`";= G;=G;= H;=d;R;=I;=I;=R;=R;=S;=S;=S;=S;=&;8S;=I;=HS;=`S;=pS;=S;=XT;=pT;=T;=T;=T;=T;=ؾ;T;=I;=p;U;=I;=;HU;=I;=t;PU;=I;=;XU;=xI;=I;=`U;=hU;=;U;=pI;=U;=;U;=hI;=;I;=`I;= =`V!XL !7 !12 !13 !12 !2UL !5UL !5AS !1AS !6AS(=PD!/!19* Job/Process Information from !0UL!128%CALPHA!%EVAX!%F/VMS !ASp=XNPID Term Username Process Name Image Name PriB Work State M Node=NF!/Total of !UL Processes using !UL pages (!UL mb) of physical memory!/  SYS$FILESCAN STR$COPY_R OTS$CVT_L_TB=)8=( LEFO HIB HIBO ` OTS$STORE_U_OPN1_2= PFW /=/NOSWAP LIB$GET_SYMBOL= /TRAILERswap=/swap=/PRIVILEGE=ANY=/RN OTS$FETCH_U_OPN1_2= 8 OTS$CVT_DEC8_2_TO_UINT64x;;=H<JPI-F-INVQUAVAL, MINIMUM value out of range on /BASEPRIORITY@@ ;; DCOB$CLOSE=!ULp LIB$DELETE_SYMBOL=`TJPI-F-INVQUAVAL, Invalid combination of MINIMUM and MINIMUM values for /BASEPRIORITY=XOJPI-F-IVKEYW, unrecognized keyword for /PRIVILEGE - check validity and spelling((;= -outswapped-@@;= COM COMO ?????;;;; SOR$RELEASE_REC= /IMAGENAME=*= /USERNAME=*=0'/MODE=(INTERACTIVE,BATCH,NETWORK,OTHER)= /PROCESS=*=H@/JOBTYPE=(LOCAL,DIALUP,REMOTE,BATCH,NETWORK,DETACHED) 0 LIB$SIGNAL=sys$netHH; SYS$GETSYI#;8;=0$/BASEPRIORITY=(MINIMUM=0,MAXIMUM=63);= /BASEPRIORITY=MINIMUN=0=HEADER=summary=rcluster SYS$GETJPIW=jpi$item_count=/B= rnodename= basepriority.maximum  SOR$END_SORT=8=!AS!AS@ STR$UPCASE=1X=mode`=/Mh= terminal/PRIx=sort= privilege=hw_name=/I= LNM$FILE_DEVSTR$MATCH_WILD="= JPI$detail_line_!4ZL! OTS$CVT_TI_L=%=*==D=#SYS$FAO% CLI$GET_VALUE' DCOB$INSPECT8 OTS$MOVEMP +DCOB$ACC_DISPLAY;=p- DCOB$ERROR8OTS$MOVE=0p;= 7DCOB$SIGNAL_HANDLER=R;8OTS$FILL=8OTS$STRCMP_EQLP5 CLI$PRESENT7 STR$POSITION= 9 DCOB$STRING(;STR$FIND_FIRST_SUBSTRING=JPIBAS ?DCOB$WRITE_LINAGEA DCOB$STOP=@d;p;CLIB$SET_SYMBOLE SYS$SETRWMG SYS$TRNLNM=/HW=/U=output= imagename=/J=/PRO=process=/TEt t=jobtype=0=::=@2Please check the netserver.log on the remote node.H=80Fatal Error with the JPI process on remote node t;= ::"0=jpi";=0$usernamenodenamebasepriority.minimum= /TERMINAL=*=/HEADER=0"/BASEPRIORITY=MAXIMUM=63/HW_NAME=*= BASEPRIORITYI LIB$GET_EF=cluster((`#;H;@K CLI$DCL_PARSE=$lineX=/NOSORT`= /SORT=USERNAME=ASCENDINGMSOR$BEGIN_SORTp;O DCOB$CALLEDQ DCOB$OPENX;ؾ;SSOR$RETURN_RECP;h;=CUR FPG ;;;  ULBR$OUTPUT_HELP=helplib8 =jpi@ @ ;=endP W OTS$DIV_UL= Defaults:p = Command Line: =H<JPI-F-INVQUAVAL, MAXIMUM value out of range on /BASEPRIORITY YSOR$SORT_MERGE= SUSPOhelp = 00000000selection 8OTS$STRCMP_EQLS] DCOB$UNSTRING=/SWAP =trailer = /NOSYMBOLS0 =symbols8 =/noswap@ =0(CEF MWAITCOLPGSUSP LEF `; _SYS$PROCESS_SCAN= password >S$JPI021.A>"J&[RJACK.JPI.021.EXTERNAL]JPI_AXP.OBJ;11(aOTS$CVT_UINT64_TO_DEC8_4=  > JPI$K_OTHER>JPI$K_DETACHED> JPI$K_NETWORK> JPI$K_BATCH> JPI$K_REMOTE> JPI$K_DIALUP> JPI$K_LOCAL>JPI$K_INTERACTIVE> CLI$_NORMAL> CLI$_COMMA> CLI$_LOCPRES> CLI$_CONCAT>CLI$_DEFAULTED> CLI$_PRESENT> CLI$_LOCNEG> CLI$_NEGATED> CLI$_ABSENT> STR$_MATCH> STR$_NOMATCH>SOR$_UNDOPTION> SOR$_SYSERROR>SOR$_STABLEEXC> SOR$_SORT_ON> SOR$_RTNERROR> SOR$_NUM_KEY> SOR$_NODUPEXC> SOR$_LRL_MISS> SOR$_KEY_LEN>SOR$_KEYAMBINC>SOR$_INSVIRMEM> SOR$_ENDDIAGS> SOR$_BAD_TYPE>SOR$_BAD_MERGE> SOR$_BAD_LRL> SOR$_BAD_KEY> SOR$_BADLOGIC> SS$_ENDOFFILE>SS$_NOMOREPROC>SS$_NOMORENODE> SS$_NOPRIV| |U;;=H;= 1)*[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1+,/,./L 4j0-J0123KPWO56N57 C̒89C?GLHJ%!PS-Adobe-3.0%%Title: JPI_EXAMPLES%%Creator: VAX DOCUMENT V2.1-1I%%Copyright: 1986,1987,1988,1989,1990,1991 DIGITAL EQUIPMENT CORPORATION.%%+All Rights Reserved.(%%CreationDate: Tue Apr 18 1995 16:56:22%%For: RJACK %%BoundingBox: (atend)%%DocumentData: Clean7Bit%%LanguageLevel: 1%%Orientation: Portrait%%Pages: (atend)%%PageOrder: Ascend%%DocumentFonts: (atend) %%DocumentNeededFonts: (atend) &%%DocumentProcSets: Underlay Color5044.%%DocumentSuppliedProcSets: Underlay Color5044 %%DocumentProcessColors: (atend)%%DocumentCustomColors: (atend) %%EndComments%!%%BeginResource: procset Underlay%%CreationDate: (2/10/92)%C% In VAX DOCUMENT V2.1-1, simple EPSF files up to 65,000 bytes long@% may be an underlay. Define the EPSF as a PostScript proceedureD% called /UNDERLAY and prefix to DOCUMENT's PS output For example:.&% /UNDERLAY ( EPSF code here ) cvx def%C% To create a "Preliminary" underlay change /UNDERLAY* to /UNDERLAY /UNDERLAY* ( /Note (Preliminary) def /NoteSize 120 def6 /NoteFont /Helvetica findfont NoteSize scalefont def& /Note where { pop Note length 0 gt {8 /NoteWidth NoteFont setfont Note stringwidth pop def/ PaperWidth 36 mul PaperHeight 36 mul moveto& PaperHeight PaperWidth atan rotate6 NoteWidth -2 div NoteSize .729 mul -2 div rmoveto 2 Note true charpath .075 setseparationgray fill }if }if ) cvx def %%EndResource%"%%BeginResource: procset Color5044%%CreationDate: (1/21/91)%%Version:1.0 31%Implementation of Adobe 5044 color specification5%/ndf allows command override during color separation/Color5044Dict 100 dict defColor5044Dict begin/bdf {bind def} def/ndf {1 index where {pop pop pop } {dup xcheck {bind} if def } ifelse } bdf /setcmykcolor {1 exch sub 3 " {dup 5 -1 roll sub 0 2 copy lt {exch} if pop exch } repeat pop setrgbcolor }ndf/setcmykcoloroverprint {4 {dup -1 eq {pop 0} if 4 1 roll } repeat setcmykcolor } ndf/findcmykcustomcolor {5 /packedarray where {pop packedarray } {array astore readonly } ifelse } ndf/setcustomcolor {exch aload pop pop 4 {4 index mul 4 1 roll } repeat setcmykcolor pop } ndf/setseparationgray* {1 exch sub systemdict /setgray get exec } ndf/setoverprint {pop} ndf/currentoverprint false ndf%CMYK multi-proc colorimage /colorimage {4 neH {(\nUnsupported number of colors for colorimage.\n) print flush quit } if notJ {(\nSingle procedure form colorimage unsupported.\n) print flush quit } if' save 20 dict begin /&saveobj exch defE /&Kproc exch def /&Yproc exch def /&Mproc exch def /&Cproc exch def {&Cproc &Mproc &Yproc &Kproc7 /&K exch def /&Y exch def /&M exch def /&C exch def 0 1 &K length 1 sub {/&i exch def &K &i 255 &C &i get 30 mul &M &i get 59 mul add &Y &i get 11 mul add &K &i get 100 mul add 100 idiv dup 255 gt {pop 255} if sub put } for &K } image &saveobj end restore } ndf/customcolorimage! {pop systemdict /image get exec } ndf/separationimage {systemdict /image get exec } ndfend %%EndResourceColor5044Dict begin%/DEC_DVC$dict 300 dict defDEC_DVC$dict begin%/DVC$PSJob save def%,/DOCPSE ISOLatin1Encoding 256 array copy def"mark % CREATE DOCPSE ENCODING 8#055 /hyphenC 8#201 /bullet 8#202 /emdash 8#203 /endash 8#204 /daggerC 8#205 /daggerdbl 8#206 /registered 8#207 /trademark %8#210 /Delta? 8#211 /fi 8#212 /fl 8#213 /OE 8#214 /oe 8#215 /Ydieresis) counttomark -1 bitshift % DIVIDE BY 2: {DOCPSE 3 1 roll put} repeat % STACK NOW CONTAINS MARK cleartomark%3/ReENCODE { % /basefont /newfont encoding ReENCODE7 /newencoding exch def %ARG: NAME OF ENCODING VECTORC /newfontname exch def %ARG: NEW NAME FOR FONT AFTER RE-ENCODING findfont> /basefontdict exch def %ARG: NAME OF FONT TO BE RE-ENCODED? basefontdict maxlength dict begin %CREATE AND OPEN NEW DICT= basefontdict { %COPY ENTRIES FROM BASE FONT DICT TO NEW ONE 1 index /FID ne {5 def %IF NOT THE ONE WE'RE ENCODING, JUST COPY PTRS } { %else: pop pop %IGNORE FID AND ENCODING FOR ONE WE'RE ENCODING } ifelse } forall, /FontName newfontname def %DEFINE NEW NAME 6 /Encoding newencoding d ef %DEFINE NEW ENCODING VECTOR; newfontname currentdict definefont %TURN IT INTO A PS FONT3 pop %IGNORE MODIFIED DICT RETURNED BY DEFINEFONT end}def%/cvsstr 64 string def/tempmatrix matrix def%2% Exit page (temporarily) to add fonts/characters. /XP { }def% % Resume page /RP { }def%% End Page: EP/EP {DVC$PSPage restore}def%% Purge fonts to reclaim VM/PF { currentoverprint currentrgbcolor EP %Does restore PageSetup %Does save setrgbcolor setoverprint}def%% ABBREVIATIONS /S /show load def/SV /save load def/RST /restore load def%/Yadjust {Ymax exch sub} def%$/XY { % (x,y) POSITION ABSOLUTE Yadjust moveto} def%#/X { % (x,0) POSITION ABSOLUTE currentpoint exch pop moveto} def%$/Y { % (0,y) POSITION ABSOLUTE & currentpoint pop exch Yadjust moveto} def%$/xy { % (x,y) POSITION RELATIVE neg rmoveto} def%#/x { % (x,0) POSITION RELATIVE 0 rmoveto} def%#/y { % (0,y) POSITION RELATIVE 0 exch neg rmoveto} def%/R { % Draw a rectangle$ /ht exch def /wd exch def gsave currentpoint newpath moveto 0 ht rlineto wd 0 rlineto$ 0 ht neg rlineto wd neg 0 rlineto& closepath fill grestore wd 0 rmoveto}def%3%Setup Page Media: PM/PM { /Xmax exch Resolution mul def /Ymax exch Resolution mul def /UNDERLAY where { pop3 /eps_save save def % save before EPSF underlay9 Resolution 72 div dup scale % Revert coords to points9 count array astore /DVCstack exch def % save op stack/ /dict_count countdictstack def % # of dicts" userdict begin % default dict' /showpage {}def % disable showpage 0 setgray? {UNDERLAY} stopped {(Error executing /UNDERLAY)== quit}ifD countdictstack dict_count sub {end} repeat % clean up dict stack/ clear DVCstack aload pop % restore op stack* eps_save restore % restore after EPSF }if PageSe? 骃$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1j tup}def%%Setup page coordinates /PageSetup{ /DVC$PSPage save def9 PortraitMode not {PaperWidth 0 translate 90 rotate} if /Xpos 0 def /Ypos 0 def}def%)% Begin EPS file: SPB/SPB {8 Yadjust transform % convert from DVC to device coords EP % page-level restore( /eps_save save def % save before EPSF8 Resolution 72 div dup scale % Revert coords to points2 itransform % convert position back to points % translate % set position for EPSF3 PortraitMode not {90 rotate} if % rotate for EPSF7 count array astore /DVCstack exch def % save op stack- /dict_count countdictstack def % # of dicts userdict begin % default dict% /showpage {}def % disable showpage 0 setgray}def%% End EPS file/SPE {B countdictstack dict_count sub {end} repeat % clean up dict stack- clear DVCstack aload pop % restore op stack( eps_save restore % restore after EPSF" PageSetup % restore DVC coords}def%!% Print-Page Routine: PP/PP { gsave showpage grestore}def%&/DMF { % /font-name DMF& exch findfont exch scalefont setfont}def%3/concatnam { % /abcd (xxx) concatnam ==> /abcdxxx /xxx exch def /namstr exch cvsstr cvs def1 /newnam namstr length xxx length add string def newnam 0 namstr putinterval& newnam namstr length xxx putinterval newnam cvn }def%%/strip { % /abcdef 2 strip ==> /cdef /num exch def /nam exch def /namstr nam cvsstr cvs def# /newlen namstr length num sub defP$ namstr num newlen getinterval cvn}def/% ROUTINES TO HANDLE PACKING/UNPACKING NUMBERSP8/PackHW { % PackHW --> 0 /num exch def /pos exch def /target exch def: num 16#0000FFFF and 1 pos sub 16 mul bitshift target or}def</PackByte { % PackByte --> 0 /num exch def /pos exch def /target exch def: num 16#000000FF and 3 pos sub 8 mul bitshift target or}def4/UnpkHW { % UnpkHW -->  /num exch def /pos exch def0 num 1 pos sub -16 mul bitshift 16#0000FFFF and) dup 16#00007FFF gt {16#00010000 sub} ifn}def8/UnpkByte { % UnpkByte -->  /num exch def /pos exch def/ num 3 pos sub -8 mul bitshift 16#000000FF and ) dup 16#0000007F gt {16#00000100 sub} ifo}def%'/ps-scalefont {eJ % FOR PS FONTS, LOOK AT SIZE REQUESTED. IF IT HAS A DECIMAL REMAINDERL % EQUIVALENT TO .001-.009 POINTS (I.E., .050-.450 VAXDOC UNITS), THAT'S H % A FLAG TO STRETCH IT VERTICALLY BY ADDING 1-9 EXTRA POINTS TO THE  % VERTICAL SCALING.hA % save requested size - as entered and as integers, dup /x-size exch def cvi /x-int exch def; % calc decimal remainder, mul x 1000, rounde; x-size x-int sub 1000 mul round cvi /remainder exch def % % see how we scale...a) remainder 50 lt remainder 450 gt or {c& % scale isomorphically /ystretch 0 def/ x-size scalefont } {t& % scale anamorphically /ystretch remainder defi+ x-int ystretch add /y-size exch def ' [x-int 0 0 y-size 0 0] makefontf } ifelse}def%x(/DPSF { % /procname size /fontname DPSF< findfont exch ps-scalefont [ exch /setfont cvx ] cvx def}def%t/PXLBuildCharDict 17 dict def /CMEncodingArray 256 array def90 1 255 {CMEncodingArray exch dup cvsstr cvs cvn put} fore)/RasterConvert {RasterScaleFactor div}def/TransformBBox { aload poppH /BB-ury exch def /BB-urx exch def /BB-lly exch def /BB-llx exch def. [ BB-llx RasterConvert BB-lly RasterConvert / BB-urx RasterConvert BB-ury RasterConvert ] }def/RunLengthToRasters {s % none yet}def7/GenerateRasters { % GENERATE RASTERS FOR "IMAGEMASK" 1 rasters runlength 1 eq {RunLengthToRasters} ifi}def% )/int-dict-name {int (-dict) concatnam}def -/int-dict {int (-dict) concatnam cvx load}defr% /DefinePXLFont {E % ...b1 % ...[llx lly urx ury]DefinePXLFont C /newfont exch def /bb exch def /num exch def /psz exch def.C /dsz exch def /pxlmag exch def /ext exch def /int exch defe9 /fnam ext (-) concatnam pxlmag cvsstr cvs concatnam defC newfont not {  int-dict-name 13 dict def int-dict beginF /FontType 3 def /FontMatrix [ 1 dsz div 0 0 1 dsz div 0 0 ] defC /FontBBox bb TransformBBox def /Encoding CMEncodingArray defeI /CharDict 1 dict def CharDict begin /Char-Info num array def end  /BuildChar { PXLBuildCharDict begin, /char exch def /fontdict exch defB fontdict /CharDict get /Char-Info get char get aload pop2 /rasters exch def /PackedWord1 exch def+ 0 PackedWord1 UnpkHW 16#7FFF ne {8 /PackedWord2 exch def /wx 0 PackedWord1 UnpkHW defN /rows 2 PackedWord1 UnpkByte def /cols 3 PackedWord1 UnpkByte defM /llx 0 PackedWord2 UnpkByte def /lly 1 PackedWord2 UnpkByte defhM /urx 2 PackedWord2 UnpkByte def /ury 3 PackedWord2 UnpkByte def }{ %elsedG /PackedWord2 exch def /PackedWord3 exch def /PackedWord4 exch def8J /wx 1 PackedWord1 UnpkHW def /rows 0 PackedWord2 UnpkHW defI /cols 1 PackedWord2 UnpkHW def /llx 0 PackedWord3 UnpkHW defNI /lly 1 PackedWord3 UnpkHW def /urx 0 PackedWord4 UnpkHW defi) /ury 1 PackedWord4 UnpkHW defG } ifelse rows 0 lt {e( /rows rows neg def /runlength 1 def }{ %else  /runlength 0 defn } ifelsef wx 0. llx RasterConvert lly RasterConvert < urx RasterConvert ury RasterConvert setcachedevice rows 0 ne { gsave) cols rows true RasterScaleFactor TB 0 0 RasterScaleFactor neg llx .5 add neg ury .5 add : tempmatrix astore GenerateRasters imagemask grestore } if endE }def endg! fnam int-dict definefont pop N } if / int-dict-name fnam findfont psz scalefont def 3 currentdict int [ int-dict /setfont cvx ] cvx putD}def NA/PXLF { true DefinePXLFont}def % SIGNAL THAT FONT ALREADY LOADEDdF/PXLNF {false DefinePXLFont}def % SIGNAL THAT FONT NOT ALREADY LOADED%:/PXLC { % ...* % ...PXLCH /rasters exch def /runlength exch def /cols exch def /rows exch defG /ury exch def /urx exch def /lly exch def /llx exch def7 /wx exch def /code exch def /int exch def+ % SEE IF LONG OR SHORT FORMAT IS REQUIREDc? true cols CKSZ rows CKSZ ury CKSZ urx CKSZ lly CKSZ llx CKSZ o TackRunLengthToRows { / int-dict /CharDict get /Char-Info get code C [ 0 0 llx PackByte 1 lly PackByte 2 urx PackByte 3 ury PackBytenA 0 0 wx PackHW 2 rows PackByte 3 cols PackByte rasters ] putT }{ %else/ int-dict /CharDict get /Char-Info get code O? [ 0 0 urx PackHW 1 ury PackHW 0 0 llx PackHW 1 lly PackHWIP 0 0 rows PackHW 1 cols PackHW 0 0 16#7FFF PackHW 1 wx PackHW rasters ] put } ifelse}def%h/CKSZ {abs 127 le and}deft@/TackRunLengthToRows {runlength 0 ne {/rows rows neg def} if}def% /PLOTC {K % PLOTC H /rasters exch def /runlength exch def /cols exch def /rows exch defG /ury exch def /urx exch def /lly exch def /llx exch defe6 /psz exch def /dsz exch def /wx exch def' % "PLOT" A CHARACTER'S RASTER PATTERNo rows 0 ne {o gsaves3 currentpoint translate psz dsz div dup scaleo> cols rows true RasterScaleFactor 0 0 RasterScaleFactor 6 neg llx .5 add neg ury .5 add tempmatrix astore GenerateRasters imagemaskp grestore } if wx x}def%i% set color routine: Color# SC6/SC {ColorPalette exch get 1.0 setcustomcolor}bind def%k %%EndPrologr %%BeginSetup/PxlResolution 300 def/Resolution 3600 def3/RasterScaleFactor PxlResolution Resolution div def/PortraitMode true def/PaperWidth 8.500 deft/PaperHeight 11.000 def072 Resolution div dup scale 7%> Postamble of file WORK8:[RJACK]JPI_EXAMPLES.DVI_PS.x)% DefineFont:F238 Category:10 Pointsize:8r(/Courier /Courier@DOCPSE DOCPSE ReENCODE"/F238 400.100 /Courier@DOCPSE DPSF*% DefineFont:F208 Category:10 Pointsize:206/Helvetica-Bold /Helvetica-Bold@DOCPSE DOCPSE ReENCODE(/F208 1000.0 /Helvetica-Bold@DOCPSE DPSF)% DefineFont:F157 Category:10 Pointsize:9S@Nq$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1jD/NewCenturySchlbk-Bold /NewCenturySchlbk-Bold@DOCPSE DOCPSE ReENCODE./F157 450.0 /NewCenturySchlbk-Bold@DOCPSE DPSF)% DefineFont:F156 Category:10 Pointsize:9H/NewCenturySchlbk-Italic /NewCenturySchlbk-Italic@DOCPSE DOCPSE ReENCODE0/F156 450.0 /NewCenturySchlbk-Italic@DOCPSE DPSF)% DefineFont:F155 Category:10 Pointsize:9tF/NewCenturySchlbk-Roman /NewCenturySchlbk-Roman@DOCPSE DOCPSE ReENCODE//F155 450.0 /NewCenturySchlbk-Roman@DOCPSE DPSFe*% DefineFont:F153 Category:10 Pointsize:10./F153 500.0 /NewCenturySchlbk-Bold@DOCPSE DPSF*% DefineFont:F152 Category:10 Pointsize:100/F152 500.0 /NewCenturySchlbk-Italic@DOCPSE DPSF*% DefineFont:F151 Category:10 Pointsize:10//F151 500.0 /NewCenturySchlbk-Roman@DOCPSE DPSFc(% DefineFont:F40 Category:10 Pointsize:9&/F40 450.0 /Helvetica-Bold@DOCPSE DPSF(% DefineFont:F38 Category:10 Pointsize:9,/Helvetica /Helvetica@DOCPSE DOCPSE ReENCODE!/F38 450.0 /Helvetica@DOCPSE DPSFc)% DefineFont:F36 Category:10 Pointsize:10a&/F36 500.0 /Helvetica-Bold@DOCPSE DPSF)% DefineFont:F28 Category:10 Pointsize:12a&/F28 600.0 /Helvetica-Bold@DOCPSE DPSF)% DefineFont:F24 Category:10 Pointsize:14B&/F24 700.0 /Helvetica-Bold@DOCPSE DPSF(% DefineFont:F8 Category:10 Pointsize:36&/F8 1800.0 /Helvetica-Bold@DOCPSE DPSF%Spot color array for this job/ColorPalette [+0.0 0.0 0.0 1.0 (BLACK) findcmykcustomcolorB20.0 0.0 0.0 1.0 (USERTAGCOLOR) findcmykcustomcolor/0.0 0.0 0.0 1.0 (UNDEFINED) findcmykcustomcoloru/0.0 0.0 0.0 1.0 (UNDEFINED) findcmykcustomcolorC595 x(Internet)S 166 x(electronic)S 167 x(mail:)S 249 x(OPENVMSDO)SsM-2 x(C@ZKO.MTS.DEC.COM)S 8083 X 897 y(\201)S 595 x(Fax)S 167 x(603-881-0120)S G165 x(Attn:)S 249 x(OpenVMS)S 166 x(Documentation,)S 166 x(ZK03-4/U08)SdI8083 X 896 y(\201)S 595 x(Digital)S 165 x(Equipment)S 166 x(Corporation)SAH8980 X 598 y(Information)S 166 x(Design)S 166 x(and)S 166 x(Consulting)SC8980 X 598 y(OpenVMS)S 165 x(Documentation)S 8980 X 598 y(1)S -28 xfH(10)S 166 x(Spit)S 166 x(Brook)S 166 x(Road,)S 166 x(ZK03-4/U08)S 8980 XG597 y(Nashua,)S 167 x(NH)S 166 x(03062-2698)S 8980 X 598 y(USA)S 8083 XuG897 y(Copies)S 178 x(of)S 178 x(the)S 179 x(examples)S 178 x(in)S 179 x F(this)S 178 x(chapter)S 178 x(are)S 179 x(available)S 178 x(on)S 179 xD(the)S 179 x(OpenVMS)S 178 x(AXP)S 8083 X 597 y(distribution)S 168 xC(media)S 168 x(in)S 168 x(the)S 168 x([DOCUME)S -2 x(NT)S -27 x(A)S{C-28 x(TION.V061.EXAMPLES])S 168 x(directory)S -55 x(.)S 253 x(The)SzC8083 X 598 y(\211rst)S 171 x(example)S 172 x(listed)S 170 x(above)SrG172 x(must)S 171 x(be)S 171 x(installed)S 171 x(using)S 172 x(VMSINST)SuH-28 x(AL;)S 172 x(the)S 171 x(rest)S 171 x(of)S 171 x(the)S 8083 X 598 yG(examples)S 168 x(are)S 169 x(DCL)S 168 x(command)S 168 x(procedures.)SRC255 x(For)S 169 x(more)S 168 x(information)S 169 x(on)S 168 x(how)SaO169 x(to)S 168 x(access)S 8083 X 598 y(the)S 166 x(\211les)S 166 x(containing)SrI168 x(these)S 166 x(tools,)S 166 x(see)S 165 x(the)S 167 x F152(OpenVMS)S E166 x(AXP)S 166 x(CD\203RO)S -2 x(M)S 167 x(User)S 28 x(')S -19 x(s)SeK166 x(Guide)S F151(.)S 8083 X 896 y(The)S 173 x(examples)S 173 x(provided)SdF173 x(here)S 173 x(are)S 172 x(not)S 173 x(intended)S 173 x(to)S 172 xH(represent)S 173 x(the)S 173 x(only)S 173 x(way)S 172 x(or)S 173 x(the)SC8083 X 598 y(best)S 167 x(way)S 168 x(to)S 168 x(accomplish)S 167 xG(tasks)S 167 x(for)S 168 x(each)S 168 x(user)S -36 x(.)S 253 x(Rather)SAF-37 x(,)S 168 x(they)S 169 x(are)S 168 x(examples)S 167 x(that)S 168 xG(some)S 8083 X 598 y(OpenVMS)S 166 x(users)S 166 x(have)S 167 x(found)SeG166 x(to)S 166 x(be)S 166 x(useful.)S 8083 X 897 y(Y)S -55 x(ou)S 172 xEG(should)S 172 x(examine)S 172 x(the)S 172 x(purpose)S 172 x(and)S 172 xFM(logic)S 172 x(of)S 172 x(each)S 172 x(example)S 172 x(to)S 172 x(determine)SPD172 x(which)S 8083 X 597 y(ones)S 171 x(are)S 171 x(suitable)S 170 xL(for)S 170 x(your)S 172 x(environmen)S 2 x(t.)S 258 x(For)S 171 x(examples)SH170 x(in)S 171 x(this)S 170 x(section)S 171 x(where)S 170 x(the)S 8083 XC598 y(source)S 170 x(code)S 169 x(is)S 168 x(available)S 169 x(on)SSE169 x(line,)S 171 x(you)S 169 x(might)S 170 x(want)S 168 x(to)S 169 x G(modify)S 169 x(the)S 169 x(code)S 169 x(to)S 169 x(meet)S 168 x(your)SsE8083 X 598 y(site')SAXT$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1j"0 -19 x(s)S 165 x(speci\211c)S 167 x(needs.)S 5 SC5F19654 38258 XY F38(System)S 167 x(Managem)S 2 x(ent)S 166 x(Examples)S400 x F40(1\2031)SEP PPe %%PageTrailerz2%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman%%%+ NewCenturySchlbk-Italic Helveticai%%PageProcessColors:%%PageCustomColors: (BLACK)i%%+ (FOOTCOLOR)r%0%%Page: (1-2) 3l%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)e PaperHeight PaperWidth PM 0 0 XYG4 SC 4497 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 166 x(Exampl)S0C2 x(es)S 0 SC 8980 4545 XY 7812 24 R 17094 4545 XY F36(Note)S 299 xFD7812 24 R 8980 5442 XY F151(Digital)S 181 x(does)S 180 x(not)S 182 xE(warrant)S 181 x(that)S 181 x(any)S 182 x(System)S 181 x(Management)SCD182 x(Examples)S 8980 X 598 y(provided)S 178 x(herein)S 179 x(will)SE177 x(meet)S 177 x(customers')S 178 x(requirements,)S 181 x(operate)SnH178 x(without)S 8980 X 598 y(interruption,)S 167 x(or)S 166 x(be)S 166 xE(error)S 167 x(free.)S 8980 X 697 y 17340 24 R 4497 9128 XY F24(1.1)S E398 x(Job)S 232 x(Process)S 232 x(Information)S 233 x(\(JPI\))S 233 xD(Utility)S 8083 X 897 y F151(JPI)S 170 x(is)S 169 x(a)S 170 x(wide)SH169 x(area)S 170 x(network)S 170 x(tool)S 170 x(that)S 169 x(you)S 171 xK(can)S 170 x(use)S 170 x(to)S 170 x(create)S 170 x(a)S 169 x(one-line-per)S)F-8 x(-process)S 8083 X 598 y(display)S 179 x(of)S 179 x(information.)SE276 x(Depending)S 179 x(on)S 180 x(the)S 179 x(criteria)S 179 x(you)S(D180 x(select,)S 183 x(you)S 180 x(can)S 179 x(display)S 8083 X 597 yF(information)S 183 x(about)S 183 x(all)S 182 x(or)S 183 x(speci\211c)SC182 x(processes)S 182 x(on)S 183 x(local)S 183 x(nodes)S 182 x(or)S C183 x(clusters)S 182 x(and)S 183 x(on)S 8083 X 598 y(remote)S 166 x C(nodes)S 166 x(or)S 167 x(clusters.)S 8083 X 897 y(Although)S 200 xuC(JPI)S 199 x(can)S 199 x(extract)S 200 x(information)S 199 x(from)S D199 x(remote)S 199 x(nodes)S 199 x(and)S 199 x(remote)S 8083 X 598 yI(VMSclusters,)S 192 x(this)S 186 x(feature)S 186 x(is)S 186 x(available)SdD187 x(only)S 187 x(on)S 187 x(nodes)S 186 x(that)S 187 x(are)S 186 xC(runn)S 2 x(ing)S 187 x(JPI)S 8083 X 597 y(V)S -46 x(ersion)S 180 xSF(2.0)S 180 x(or)S 180 x(higher)S 181 x(and)S 180 x(that)S 179 x(have)SF181 x(the)S 179 x(JPI)S 180 x(DECnet)S 179 x(object)S 180 x(properly)SF180 x(de\211ned.)S 8083 X 598 y(\(De\211ning)S 167 x(the)S 166 x(JPI)SF166 x(DECnet)S 165 x(object)S 167 x(is)S 166 x(part)S 165 x(of)S 166 xD(the)S 167 x(installation)S 165 x(procedure.)S 2 x(\))S 8083 X 897 yD(JPI)S 166 x(displays)S 166 x(the)S 166 x(following)S 166 x(values)SG166 x(for)S 167 x(each)S 166 x(process)S 166 x(selected:)S 8083 X 896 y2CF155(BASEPRIORITY)S 17398 X(NODENAME)S 8083 X 748 y(CURRENT)S 149 xaE(ST)S -24 x(A)S -25 x(TE)S 17398 X(PID)S 8083 X 747 y(CURRENT)S 149 xeN(WORKING)S 149 x(SET)S 150 x(SIZE)S 17398 X(PROCESS)S 8083 X 747 y(IMAGENAME)SF17398 X(TERMINAL)S 8083 X 747 y(MODE)S 17398 X(USERNAME)S 8083 X 897 yFF151(For)S 176 x(a)S 176 x(description)S 176 x(of)S 175 x(each)S 176 xG(value)S 177 x(in)S 176 x(this)S 175 x(list,)S 178 x(refer)S 176 x(to)S H175 x($GETJPI)S 175 x(in)S 176 x(the)S 176 x F152(OpenVMS)S 8083 X 598 yD(System)S 167 x(Services)S 167 x(Reference)S 167 x(Manual)S F151(.)SC8083 X 896 y(Example)S 166 x(1)S(\203)S(1)S 166 x(shows)S 166 x(a)S2D166 x(sample)S 165 x(JPI)S 166 x(display)S 166 x(using)S 167 x(the)SE167 x(/SELECTION)S 165 x(quali\211er)S -36 x(,)S 166 x(which)S 8083 XeN598 y(displays)S 166 x(the)S 166 x(current)S 167 x(default)S 166 x(selection)SD166 x(criteria.)S 5 SC 4497 38258 XY F40(1\2032)S 399 x F38(System)S*167 x(Managem)S 2 x(ent)S 166 x(Examples)SEP PPo %%PageTrailere2%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman%%%+ NewCenturySchlbk-Italic Helvetican%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)( %%+ (BLACK)1%%+ (FOOTCOLOR)j%)%%Page: (1-3) 4)%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)S PaperHeight PaperWidth PM 0 0 XYJ4 SC 18309 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 167 x(Examples)SC15918 X 647 y(1.1)S 167 x(Job)S 167 x(Process)S 167 x(Information)S9E168 x(\(JPI\))S 166 x(Utility)S 0 SC 8083 4545 XY F36(Example)S 167 x-I(1)S(\203)S(1)S 398 x(JPI)S 167 x(Display)S 12627 5512 XY F238(Job/Proc)SsC2 x(ess)S 239 x(Informat)S 2 x(ion)S 239 x(from)S 240 x(ALPHA/VMS)SXC241 x(Version)S 240 x(6.1)S 11192 X 797 y(From)S 240 x(node)S 240 x)F(DRPCTX)S 240 x(\(DEC)S 240 x(3000)S 240 x(Model)S 240 x(400\))S 239 xG(at)S 479 x(9-MAR-199)S 2 x(5)S 239 x(11:28:02.4)S 2 x(8)S 8083 X 797 y(E(PID)S 10236 X(Term)S 718 x(Username)S 15258 X(Process)S 240 x(Name)SSH479 x(Image)S 240 x(Name)S 479 x(PriB)S 240 x(Work)S 240 x(State)S 240 xP(M)S 239 x(Node)S 8083 X 498 y(---------)S 2 x(------------)S 2 x(------------)SJ2 x(------------)S 2 x(-------------)S 2 x(------------)S 2 x(----------)SG8083 X 498 y(00000085)S 12149 X(SYSTEM....)S 2 x(..)S 239 x(IPCACP...)SuC2 x(....)S 239 x(IPCACP..)S 2 x(....)S 479 x(8)S 478 x(2048)S 240 x5L(HIB)S 718 x(O)S 239 x(DRPCTX)S 8083 X 498 y(00000086)S 12149 X(SYSTEM....)SG2 x(..)S 239 x(ERRFMT...)S 2 x(....)S 239 x(ERRFMT..)S 2 x(....)S 479 x7C(7)S 478 x(3488)S 240 x(HIB)S 718 x(O)S 239 x(DRPCTX)S 8083 X 498 yeF(00000087)S 12149 X(SYSTEM....)S 2 x(..)S 239 x(OPCOM....)S 2 x(....)SD239 x(OPCOM...)S 2 x(....)S 479 x(6)S 478 x(1088)S 240 x(HIB)S 718 xD(O)S 239 x(DRPCTX)S 8083 X 499 y(00000088)S 12149 X(AUDIT$SERV)S 2 xD(ER)S 239 x(AUDIT_SER)S 2 x(VER.)S 239 x(AUDIT_SE)S 2 x(RVER)S 479 xC(8)S 478 x(3488)S 240 x(HIB)S 718 x(O)S 239 x(DRPCTX)S 8083 X 498 y(F(00000089)S 12149 X(SYSTEM....)S 2 x(..)S 239 x(JOB_CONTR)S 2 x(OL..)SD239 x(JBC$JOB_)S 2 x(CONT)S 479 x(8)S 478 x(2048)S 240 x(HIB)S 718 xD(O)S 239 x(DRPCTX)S 8083 X 498 y(0000008A)S 12149 X(SYSTEM....)S 2 xD(..)S 239 x(QUEUE_MAN)S 2 x(AGER)S 239 x(QMAN$QUE)S 2 x(UE_M)S 479 xC(8)S 478 x(4448)S 240 x(HIB)S 718 x(O)S 239 x(DRPCTX)S 8083 X 498 y F(0000008B)S 12149 X(SYSTEM....)S 2 x(..)S 239 x(TP_SERVER)S 2 x(....)SD239 x(TPSERV..)S 2 x(....)S 479 x(8)S 478 x(2048)S 240 x(HIB)S 718 xD(O)S 239 x(DRPCTX)S 8083 X 498 y(0000008C)S 12149 X(DECNET....)S 2 xD(..)S 239 x(NETACP...)S 2 x(....)S 239 x(NETACP..)S 2 x(....)S 479 xC(8)S 478 x(3488)S 240 x(HIB)S 718 x(O)S 239 x(DRPCTX)S 8083 X 498 y)F(0000008D)S 12149 X(DECNET....)S 2 x(..)S 239 x(EVL......)S 2 x(....)SD239 x(EVL.....)S 2 x(....)S 479 x(4)S 478 x(3488)S 240 x(HIB)S 718 xD(N)S 239 x(DRPCTX)S 8083 X 498 y(0000008E)S 12149 X(SYSTEM....)S 2 xD(..)S 239 x(REMACP...)S 2 x(....)S 239 x(REMACP..)S 2 x(....)S 479 xC(8)S 478 x(1088)S 240 x(HIB)S 718 x(O)S 239 x(DRPCTX)S 8083 X 499 yrF(00000090)S 12149 X(SYSTEM....)S 2 x(..)S 239 x(DECW$SERV)S 2 x(ER_0)SE239 x(DECW$SER)S 2 x(VER_)S 479 x(6)S 239 x(19792)S 240 x(HIB)S 718 xSD(O)S 239 x(DRPCTX)S 8083 X 498 y(00000091)S 12149 X(SYSTEM....)S 2 xD(..)S 239 x(DECW$SESS)S 2 x(ION.)S 239 x(DECW$SES)S 2 x(SION)S 479 xD(4)S 239 x(18800)S 240 x(LEF)S 718 x(I)S 239 x(DRPCTX)S 8083 X 498 yI(00000093)S 241 x(MBA25:.)S 240 x(SYSTEM....)S 2 x(..)S 239 x(DECW$MWM.)S1D2 x(....)S 239 x(DECW$MWM)S 2 x(....)S 479 x(4)S 239 x(11600)S 240 xG(LEF)S 718 x(I)S 239 x(DRPCTX)S 8083 X 498 y(00000094)S 241 x(MBA27:.)S I240 x(SYSTEM....)S 2 x(..)S 239 x(SYSTEM...)S 2 x(....)S 239 x(DECW$CLO)SsG2 x(CK..)S 479 x(4)S 239 x(11600)S 240 x(LEF)S 718 x(I)S 239 x(DRPCTX)SeG8083 X 498 y(00000095)S 12149 X(SYSTEM....)S 2 x(..)S 239 x(VUE$SYSTE)SSC2 x(M_3.)S 239 x(........)S 2 x(....)S 479 x(4)S 478 x(2000)S 240 x0L(LEF)S 718 x(I)S 239 x(DRPCTX)S 8083 X 498 y(00000096)S 12149 X(SYSTEM....)SG2 x(..)S 239 x(VUE$SYSTE)S 2 x(M_4.)S 239 x(........)S 2 x(....)S 479 xpC(4)S 478 x(2000)S 240 x(LEF)S 718 x(I)S 239 x(DRPCTX)S 8083 X 498 y I(00000097)S 241 x(MBA42:.)S 240 x(SYSTEM....)S 2 x(..)S 239 x(DECW$TE_0)S2D2 x(097.)S 239 x(DECW$TER)S 2 x(MINA)S 479 x(5)S 239 x(14000)S 240 xG(LEF)S 718 x(O)S 239 x(DRPCTX)S 8083 X 498 y(00000098)S 241 x(FTA5:..)S I240 x(SYSTEM....)S 2 x(..)S 239 x(_FTA5:...)S 2 x(....)S 239 x(........)S)F2 x(....)S 479 x(4)S 478 x(2000)S 240 x(LEF)S 718 x(I)S 239 x(DRPCTX)SC8083 X 499 y(00000099)S 241 x(FTA6:..)S 240 x(SYSTEM....)S 2 x(..)S5H239 x(_FTA6:...)S 2 x(....)S 239 x(........)S 2 x(....)S 479 x(4)S 478 xD(2000)S 240 x(LEF)S 718 x(I)S 239 x(DRPCTX)S 8083 X 498 y(0000009A)SH241 x(RTA1:..)S 240 x(SMACK.....)S 2 x(..)S 239 x(SMACK....)S 2 x(....)SD239 x(........)S 2 x(....)S 479 x(4)S 478 x(2000)S 240 x(LEF)S 718 xN(I)S 239 x(DRPCTX)S 8083 X 498 y(0000009B)S 241 x(RTA2:..)S 240 x(SMACK.....)SG2 x(..)S 239 x(_RTA2:...)S 2 x(....)S 239 x(JPI.....)S 2 x(....)S 479 xhC(4)S 478 x(4400)S 240 x(CUR)S 718 x(I)S 239 x(DRPCTX)SBRpp$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1j A 8083 X 797 y1D(Total)S 240 x(of)S 240 x(21)S 239 x(Processes)S 241 x(using)S 240 xM(116912)S 240 x(pages)S 240 x(\(58)S 240 x(mb\))S 239 x(of)S 240 x(physical)S1H240 x(memory)S 8083 X 797 y(Command)S 240 x(Line:)S 480 x(JPI/SELECTIO)SD2 x(N/OUTPUT=SEL)S 2 x(ECTION.TXT)S 8083 X 797 y(Defaults:)S 11671 XD(/NODENAME=DR)S 2 x(PCTX)S 11671 X 498 y(/USERNAME=*)S 11671 X 498 yD(/IMAGENAME=*)S 11671 X 498 y(/MODE=\(INTER)S 2 x(ACTIVE,BATCH)S 2 xK(,NETWORK,OTHE)S 2 x(R\))S 11671 X 498 y(/JOBTYPE=\(LO)S 2 x(CAL,DIALUP,R)S)J2 x(EMOTE,BATCH,N)S 2 x(ETWORK,DETAC)S 2 x(HED\))S 11671 X 499 y(/NOSORT)SD11671 X 498 y(/PROCESS=*)S 11671 X 498 y(/TERMINAL=*)S 11671 X 498 yR(/HW_NAME=*)S 11671 X 498 y(/BASEPRIORIT)S 2 x(Y=\(MINIMUM=0)S 2 x(,MAXIMUM=16\))SH11671 X 498 y(/HEADER)S 11671 X 498 y(/TRAILER)S 11671 X 498 y(/NOSWAP)SN11671 X 499 y(/NOSYMBOLS)S 11671 X 498 y(/PRIVILEGE=A)S 2 x(NY)S 8083 28625 XYFF151(The)S 184 x(following)S 184 x(defaults)S 182 x(shown)S 183 x(in)SE184 x(Example)S 183 x(1)S(\203)S(1)S 183 x(are)S 184 x(input/output)S1C184 x(options)S 183 x(and)S 8083 X 598 y(are)S 188 x(listed)S 186 xeH(in)S 188 x(T)S -31 x(able)S 187 x(1)S(\203)S(2:)S 292 x(/NOSORT)S -46 xF(,)S 187 x(/HEADER,)S 187 x(/TRAILER,)S 187 x(/NOSW)S -46 x(AP)S -65 xD(,)S 188 x(and)S 8083 X 598 y(/NOSYMBOLS.)S 169 x(The)S 169 x(rest)SE169 x(of)S 169 x(the)S 169 x(defaults)S 168 x(are)S 170 x(selection)SnE168 x(criteria,)S 171 x(which)S 169 x(are)S 169 x(listed)S 168 x(in)ShE8083 X 597 y(T)S -30 x(able)S 165 x(1)S(\203)S(1.)S 8083 X 897 y F153oC(Privileges)S 167 x(Required)S 8083 X 150 y 5196 24 R 8083 32212 XY8DF151(For)S 184 x(you)S 185 x(to)S 184 x(access)S 183 x(information)SH184 x(for)S 184 x(processes)S 183 x(within)S 184 x(your)S 184 x(group,)SF190 x(your)S 185 x(calling)S 8083 X 598 y(process)S 182 x(must)S 182 xK(have)S 184 x(the)S 183 x(GRO)S -2 x(UP)S 183 x(system)S 182 x(privilege.)S)H284 x(For)S 183 x(you)S 183 x(to)S 182 x(view)S 183 x(processes)S 8083 XH597 y(outside)S 174 x(your)S 175 x(group,)S 177 x(your)S 175 x(process)SJ174 x(must)S 174 x(have)S 174 x(the)S 175 x(WOR)S -2 x(LD)S 174 x(system)SC174 x(privilege.)S 266 x(JPI)S 8083 X 598 y(displays)S 166 x(only)SED166 x(processes)S 166 x(for)S 166 x(which)S 166 x(you)S 167 x(have)SE167 x(required)S 167 x(privileges.)S 5 SC 19654 38258 XY F38(System)S =167 x(Managem)S 2 x(ent)S 166 x(Examples)S 400 x F40(1\2033)S8EP PP4 %%PageTrailer8#%%PageFonts: Helvetica-Bold CourierS0%%+ NewCenturySchlbk-Roman NewCenturySchlbk-Bold %%+ Helvetical%%PageProcFessColors:%%PageCustomColors: (HEADCOLOR)S %%+ (BLACK)%%+ (FOOTCOLOR)7%(%%Page: (1-4) 51%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)7 PaperHeight PaperWidth PM 0 0 XYG4 SC 4497 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 166 x(Exampl)S1I2 x(es)S 4497 X 647 y(1.1)S 167 x(Job)S 166 x(Process)S 167 x(Informati)S5H2 x(on)S 166 x(\(JPI\))S 166 x(Utility)S 0 SC 4497 4617 XY(1.1.1)S 400 xG(Installing)S 201 x(JPI)S 8083 X 797 y F151(Y)S -55 x(ou)S 172 x(must)S E171 x(install)S 171 x(JPI)S 172 x(using)S 173 x(VMSINST)S -28 x(AL.)S(C172 x(Y)S -56 x(ou)S 173 x(can)S 172 x(install)S 171 x(onto)S 172 xaC(a)S 172 x(system)S 171 x(runnin)S 2 x(g)S 8083 X 598 y(VMS)S 166 xE(V)S -46 x(ersion)S 166 x(5.3)S 166 x(or)S 167 x(higher)S 167 x(and)S%F166 x(OpenVMS)S 166 x(AXP)S 166 x(V)S -47 x(ersion)S 167 x(6.1)S 166 xF(or)S 166 x(highe)S 2 x(r)S -37 x(.)S 8083 X 897 y(T)S -45 x(o)S 170 xC(install)S 170 x(JPI,)S 170 x(copy)S 171 x(the)S 171 x(save)S 170 x6E(set)S 170 x(JPI021.A)S 170 x(from)S 170 x(the)S 171 x(distribution)SnF170 x(media)S 170 x(CD\203R)S -2 x(OM)S 8083 X 598 y(to)S 176 x(your)SC176 x(system.)S 268 x(Then)S 177 x(run)S 176 x(VMSINST)S -28 x(AL)SXI176 x(specifying)S 176 x(the)S 176 x(JPI021.A)S 175 x(save)S 176 x(set.)S(C268 x(\(See)S 8083 X 597 y(Example)S 166 x(1)S(\203)S(2.\))S 8083 XnF897 y(For)S 169 x(more)S 168 x(information)S 168 x(about)S 168 x(how)SF168 x(to)S 168 x(access)S 168 x(the)S 168 x(\211les)S 168 x(on)S 169 xC(the)S 168 x(distribIution)S 168 x(media,)S 168 x(see)S 8083 X 598 ysF(the)S 166 x F152(OpenVMS)S 167 x(AXP)S 165 x(CD\203ROM)S 165 x(User)SD28 x(')S -18 x(s)S 166 x(Guide)S F151(.)S 8083 X 896 y(Files)S 166 xG(that)S 166 x(the)S 166 x(installation)S 166 x(kit)S 166 x(modi\211es)SxE166 x(or)S 166 x(creates)S 166 x(are)S 166 x(the)S 166 x(following:)SMF8083 X 897 y 19128 24 R 8083 11890 XY F40(File)S 16352 X(Description)SD22529 X(Created)S 150 x(or)S 150 x(Updated)S 8083 X 299 y 19128 24 RF8083 12787 XY F155(SYS$LIBRAR)S -16 x(Y)S -42 x(:DCL)S -26 x(T)S -24 xD(ABLES.EX)S -2 x(E)S 16352 X(DCL)S 163 x(tables)S 164 x(executable)SC16352 X 498 y(image)S 22529 X -498 y(Updat)S 2 x(ed)S 8083 14032 XYMG(SYS$SYSTEM:JPI)S 2 x(.EXE)S 16352 X(JPI)S 167 x(utilit)S 2 x(y)S 166 x J(executable)S 16352 X 498 y(image)S 22529 X -498 y(Created)S 8083 15277 XYI(SYS$HELP:HELPLIB.HLB)S 16352 X(JPI)S 150 x(Help)S 151 x(\211le)S 22529 XxC(Updat)S 2 x(ed)S 8083 X 748 y(SYS$MANAGER:JPI021.RELEASE_)S 8083 X H498 y(NOTES)S 16352 X -498 y(JPI)S 150 x(release)S 150 x(notes)S 22529 XH(Created)S 8083 17270 XY(JPIBAS.BAS)S 16352 X(BASIC)S 150 x(sub-module)SL22529 X(Created)S 150 x(\(opt)S 2 x(ionally\))S 8083 X 747 y(JPIGBLSYM.MAR)SL16352 X(Global)S 150 x(symbol)S 149 x(de\211niti)S 2 x(ons)S 870 x(Created)SE150 x(\(opt)S 2 x(ionally\))S 8083 X 747 y(JPICLD.CLD)S 16352 X(JPI)S9E150 x(command)S 150 x(de\211nitions)S 22529 X(Created)S 150 x(\(opt)S.C2 x(ionally\))S 8083 X 748 y(JPI.COB)S 16352 X(COBOL)S 149 x(code)S7G150 x(for)S 150 x(JPI)S 22529 X(Created)S 150 x(\(opt)S 2 x(ionally\))SxL8083 X 298 y 19128 24 R 8980 21903 XY 7440 24 R 16720 21903 XY F36(Caution)SF300 x 7440 24 R 8980 22799 XY F151(This)S 176 x(utility)S 177 x(uses)SG176 x(the)S 176 x(DCL)S -27 x(T)S -28 x(ABLES)S 176 x(CLI)S 176 x(for)S.G176 x(a)S 177 x(command)S 176 x(named)S 177 x(JPI.)S 176 x(JPI)S 8980 XPM598 y(is)S 179 x F152(not)S 181 x F151(a)S 179 x(Digital)S 180 x(registered)S C180 x(command)S 180 x(and)S 180 x(therefore)S 180 x(may)S -55 x(,)S(F184 x(in)S 180 x(the)S 180 x(future,)S 8980 X 598 y(con\212ict)S 167 xF(with)S 165 x(a)S 166 x(Digital)S 166 x(registered)S 166 x(DCL)S 166 xE(command.)S 8980 X 697 y 17340 24 R 8083 25888 XY(Example)S 198 x(1)SXG(\203)S(2)S 197 x(contains)S 198 x(a)S 198 x(sample)S 197 x(log)S 198 xOF(\211le)S 198 x(for)S 198 x(an)S 198 x(installation)S 197 x(of)S 198 xE(JPI)S 197 x(using)S 8083 X 597 y(VMSINST)S -28 x(AL.)S 8980 27681 XY(F7812 24 R 17094 27681 XY F36(Note)S 299 x 7812 24 R 8980 28578 XY F151H(During)S 169 x(the)S 169 x(installation,)S 169 x(if)S 168 x(you)S 170 xD(answer)S 168 x(`)S -9 x(`Y)S -56 x(es')S -10 x(')S 168 x(to)S 169 xE(the)S 168 x(question)S 169 x(`)S -9 x(`Do)S 167 x(you)S 170 x(want)SxD8980 X 597 y(the)S 166 x(source)S 167 x(\211les?')S -10 x(',)S 166 xI(be)S 167 x(sure)S 166 x(to)S 166 x(specify)S 166 x(a)S 166 x(directory)S.D167 x(that)S 165 x(already)S 167 x(exists.)S 8980 X 698 y 17340 24 RF5 SC 4497 38258 XY F40(1\2034)S 399 x F38(System)S 167 x(Managem)S 2 x(ent)S 166 x(Examples)S(EP PP. %%PageTrailer72%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman%%%+ NewCenturySchlbk-Italic Helvetica %%PageProcessColors:%%PageCustomColors: (HEADCOLOR)) %%+ (BLACK)S%%+ (FOOTCOLOR) %(%%Page: (1-5) 62%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)( PaperHeight PaperWidth PM 0 0 XYJ4 SC 18309 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 167 x(Examples)SC15918 X 647 y(1.1)S 167 x(Job)S 167 x(Process)S 167 x(Information)S9E168 x(\(JPI\))S 166 x(Utility)S 0 SC 8083 4561 XY F36(Example)S 167 x(E(1)S(\203)S(2)S 398 x(Sample)S 167 x(VMSINST)S -35 x(AL)S 166 x(Log)S F167 x(File)S 167 x(for)S 166 x(JPI)S 167 x(Utility)S 8083 5501 XY F238J(Username:)S 241 x(TMACK)S 8083 X 498 y(Password:)S 8801 X 797 y(Welcome)SF240 x(to)S 239 x(OpenVMS)S 241 x(AXP)S 239 x(\(TM\))S 240 x(Operatin)SD2 x(g)S 239 x(System,)S 240 x(Version)S 240 x(6.1)S 240 x(on)S 240 xD(node)S 239 x(DRPCTX)S 9040 X 498 y(Last)S 240 x(interactive)S 241 xD(login)S 240 x(on)S 239 x(Friday,)S 240 x(11-MAR-)S 2 x(1995)S 239 xH(16:25:42)S 2 x(.72)S 9040 X 498 y(Last)S 240 x(non-interact)S 2 x(ive)SC239 x(login)S 240 x(on)S 240 x(Friday,)S 240 x(11-MAR-199)S 2 x(5)S(E239 x(16:00:17.9)S 2 x(8)S 8083 X 797 y($)S 240 x(@sys$update:v)S 2 x(D(msinstal)S 240 x(jpi021.a)S 241 x(sys$login)S 240 x(options)S 240 xI(i)S 10475 X 797 y(OpenVMS)S 240 x(AXP)S 240 x(Software)S 240 x(Product)SMI241 x(Installation)S 241 x(Procedure)S 240 x(Version)S 241 x(6.1)S 8083 XSE797 y(%VMSINSTA)S 2 x(L-W-NOTSYSTE)S 2 x(M,)CuE$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1j!aRS 239 x(You)S 240 x(are)S,K239 x(not)S 240 x(logged)S 240 x(in)S 240 x(to)S 239 x(the)S 240 x(SYSTEM)S G240 x(account.)S 8083 X 498 y(%VMSINSTA)S 2 x(L-W-ACTIVE,)S 241 x(The)S1D239 x(followin)S 2 x(g)S 239 x(processes)S 241 x(are)S 239 x(still)SI240 x(active:)S 8322 X 498 y(TMACK)S 8083 X 797 y(The)S 240 x(following)S7D240 x(product)S 2 x(s)S 239 x(will)S 240 x(be)S 239 x(processe)S 2 xD(d:)S 8562 X 498 y(JPI)S 239 x(V2.1)S -238 x 797 y(Beginning)S 240 xD(installa)S 2 x(tion)S 239 x(of)S 240 x(JPI)S 240 x(2.1)S 239 x(at)SK240 x(16:26)S 8083 X 798 y(%VMSINSTA)S 2 x(L-I-RESTORE,)S 241 x(Restoring)SeE240 x(product)S 241 x(save)S 240 x(set)S 239 x(A)S 239 x(...)S 8083 X6D498 y(%VMSINSTA)S 2 x(L-I-RELMOVED)S 2 x(,)S 239 x(Product's)S 241 xF(release)S 240 x(notes)S 240 x(have)S 240 x(been)S 239 x(moved)S 240 xK(to)S 240 x(SYS$HELP.)S 9996 X 797 y(The)S 240 x(following)S 241 x(source)S6F240 x(files)S 240 x(are)S 240 x(available:)S 10236 X 498 y(1\))S 239 xG(jpi.cob)S 14541 X(-)S 239 x(The)S 240 x(main)S 239 x(program)S 10236 XiF498 y(2\))S 239 x(jpicld.cl)S 2 x(d)S 14541 X(-)S 239 x(called)S 240 xD(by)S 240 x(jpi.cob)S 240 x(when)S 240 x(jpi)S 239 x(invoked)S 241 xE(remotely)S 10236 X 498 y(3\))S 239 x(jpibas.ba)S 2 x(s)S 14541 X(-)S D239 x(called)S 240 x(by)S 240 x(jpi.cob)S 240 x(for)S 239 x(remote)SM241 x(access)S 240 x(file)S 240 x(I/O)S 10236 X 498 y(4\))S 239 x(jpigblsym)S D2 x(.mar)S 479 x(-)S 239 x(global)S 240 x(symbol)S 240 x(definitio)SC2 x(ns)S 8083 X 797 y(*)S 240 x(Do)S 239 x(you)S 240 x(want)S 239 xsE(the)S 240 x(source)S 240 x(files?)S 480 x([NO]?)S 240 x(yes)S 8083 XyP797 y(*)S 240 x(Enter)S 239 x(Directo)S 2 x(ry)S 239 x(for)S 240 x(Source\(s\))SK480 x([SYS$SYSDEVI)S 2 x(CE:[TMACK]]:)S 9996 X 797 y(This)S 240 x(version)SrD241 x(of)S 239 x(JPI)S 240 x(has)S 239 x(the)S 240 x(capabilit)S 2 xF(y)S 239 x(to)S 239 x(be)S 240 x(called)S 240 x(from)S 240 x(a)S 239 xE(remote)S 9996 X 498 y(JPI)S 240 x(image)S 240 x(on)S 240 x(another)SNG240 x(DECnet)S 240 x(node.)S 240 x(In)S 240 x(order)S 239 x(for)S 240 xoI(this)S 240 x(capability)S 241 x(to)S 9996 X 498 y(be)S 240 x(utilized,)S%E241 x(a)S 239 x(DECnet)S 240 x(object)S 240 x(must)S 240 x(be)S 240 xaF(defined)S 240 x(on)S 239 x(this)S 240 x(node/clus)S 2 x(ter.)S 8083 XG797 y(*)S 240 x(Do)S 239 x(you)S 240 x(want)S 239 x(to)S 240 x(define)S6E240 x(the)S 240 x(JPI)S 239 x(DECnet)S 241 x(object?)S 479 x([YES]?)S1F240 x(yes)S 8083 X 797 y(*)S 240 x(Do)S 239 x(you)S 240 x(want)S 239 xC(to)S 240 x(run)S 240 x(the)S 239 x(IVP)S 240 x(after)S 240 x(the)S F240 x(installation)S 241 x([YES]?)S 240 x(yes)S 8083 X 798 y(*)S 240 xE(Do)S 239 x(you)S 240 x(want)S 239 x(to)S 240 x(purge)S 240 x(files)S7C240 x(replaced)S 240 x(by)S 240 x(this)S 240 x(installation)S 241 x6H([YES]?)S 240 x(yes)S 8562 X 797 y(No)S 239 x(further)S 240 x(question)SG2 x(s)S 239 x(will)S 240 x(be)S 239 x(asked.)S 8562 X 797 y(The)S 239 x)D(network)S 240 x(object)S 241 x(JPI)S 239 x(has)S 240 x(been)S 240 xG(defined.)S 479 x(If)S 240 x(you)S 239 x(wish)S 8562 X 498 y(to)S 239 x E(view)S 240 x(this,)S 240 x(run)S 239 x(SYS$SYS)S 2 x(TEM:NCP)S 240 x)D(and)S 240 x(issue)S 240 x(the)S 239 x(command)S 9996 X 498 y(NCP>)SM240 x(LIST)S 240 x(OBJECT)S 240 x(JPI)S 240 x(CHAR)S 8083 X 797 y(%JPI-I-LI)SxE2 x(NK,)S 239 x(Linking)S 241 x(the)S 239 x(jpi)S 240 x(image)S 240 xpE(...)S 8083 X 797 y(---------)S 2 x(------------)S 2 x(------------)SfF2 x(------------)S 2 x(-------------)S 2 x(------------)S 8083 X 498 yF(POST)S 240 x(INSTALLATI)S 2 x(ON)S 239 x(INSTRUCTI)S 2 x(ONS)S 8083 XF797 y(For)S 240 x(cluster)S 240 x(installat)S 2 x(ions:)S 8083 X 797 yG(1\))S 240 x(You)S 239 x(must)S 240 x(execute)S 240 x(the)S 240 x(DCL)S(J240 x(command)S 240 x(INSTALL/R)S 2 x(EPLACE)S 8801 X 498 y(SYS$LIBRARY:)SE2 x(DCLTABLES.EX)S 2 x(E)S 239 x(on)S 239 x(each)S 240 x(node)S 240 x6E(of)S 240 x(the)S 239 x(VMScluste)S 2 x(r)S 239 x(that)S 8801 X 498 y(H(utilizes)S 240 x(this)S 240 x(system)S 240 x(disk.)S 240 x(This)S 240 xE(has)S 240 x(been)S 239 x(done)S 240 x(on)S 240 x(this)S 239 x(node)S I240 x(by)S 8801 X 498 y(the)S 239 x(installa)S 2 x(tion)S 239 x(procedu)S H2 x(re.)S 239 x(You)S 240 x(can)S 240 x(use)S 239 x(the)S 240 x(SYSMAN)SG240 x(utility)S 240 x(to)S 8801 X 498 y(accomplish)S 240 x(this)S 240 x I(by)S 240 x(using)S 240 x(the)S 239 x(followi)S 2 x(ng)S 239 x(example:)SSD8801 X 798 y(MCR)S 239 x(SYSMAN)S 8801 X 498 y(SYSMAN>)S 240 x(SET)SD240 x(ENVIRONMENT/)S 2 x(CLUSTER)S 8801 X 498 y(SYSMAN>)S 240 x(DO)SE239 x(INSTALL)S 241 x(REPLACE)S 240 x(SYS$LIBRA)S 2 x(RY[:DCLTABLES.)SSO2 x(EXE)S 8801 X 498 y(SYSMAN>)S 240 x(EXIT)S 21990 35062 XY F155(\(continued)S G167 x(on)S 166 x(next)S 167 x(page\))S 5 SC 19654 38258 XY F38(System)S7=167 x(Managem)S 2 x(ent)S 166 x(Examples)S 400 x F40(1\2035)S1EP PP2 %%PageTrailerC#%%PageFonts: Helvetica-Bold Courier)$%%+ NewCenturySchlbk-Roman Helvetica%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)a %%+ (BLACK)(%%+ (FOOTCOLOR)l%)%%Page: (1-6) 7I%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)5 PaperHeight PaperWidth PM 0 0 XYH4 SC 4497 2293 XY F28(System)S 150 x(Manage)S 2 x(ment)S 150 x(Example)SG2 x(s)S 4497 X 647 y(1.1)S 150 x(Job)S 150 x(Process)S 150 x(Informat)S7I2 x(ion)S 150 x(\(JPI\))S 149 x(Utility)S 0 SC 8083 4561 XY F36(Example)S E167 x(1)S(\203)S(2)S 249 x(\(Cont.\))S 399 x(Sample)S 167 x(VMSINST)S9H-36 x(AL)S 166 x(Log)S 167 x(Fil)S 2 x(e)S 166 x(for)S 166 x(JPI)S 166 xG(Utility)S 8083 5642 XY F238(2\))S 240 x(On)S 239 x(each)S 240 x(node)SG240 x(of)S 239 x(this)S 240 x(cluster)S 240 x(that)S 240 x(uses)S 240 xwI(the)S 240 x(same)S 239 x(DECnet)S 241 x(object)S 8801 X 498 y(database)SaD240 x(as)S 240 x(this)S 239 x(node,)S 240 x(you)S 240 x(must)S 240 xE(issue)S 240 x(an)S 239 x(appropri)S 2 x(ate)S 239 x(network)S 8801 X\J498 y(object)S 240 x(definition)S 241 x(and)S 239 x(set)S 240 x(command.)SF8801 X 797 y(Examples:)S 8801 X 797 y(Phase)S 240 x(IV:)S 9518 X 498 yF($)S 239 x(MCR)S 240 x(NCP)S 240 x(SET)S 239 x(OBJ)S 240 x(JPI)S 240 xD(ALL)S 8801 X 498 ^y(Phase)S 240 x(V:)S 239 x(\(DECNET/O)S 2 x(SI\))SK9518 X 499 y($)S 239 x(mcr)S 240 x(ncl)S 9518 X 498 y(NCL>)S 240 x(CREATE)S8J240 x(NODE)S 240 x(0)S 239 x(SESSION)S 241 x(CONTROL)S 240 x(APPLICATION)SH241 x(JPI)S 9518 X 498 y(NCL>)S 240 x(SET)S 240 x(NODE)S 239 x(0)S 240 xG(SESSION)S 240 x(CONTROL)S 240 x(APPLICA)S 2 x(TION)S 239 x(JPI)S 240 x5J(ADDRESSES)S 241 x(=)S 239 x({NAME=JPI})S 241 x(-)S 9518 X 498 y(,CLIENT)SD240 x(=)S 479 x(-)S 9518 X 498 y(,INCOMING)S 241 x(ALIAS)S 240 x(=)SC239 x(TRUE)S 240 x(-)S 9518 X 498 y(,INCOMING)S 241 x(PROXY)S 240 xcH(=)S 239 x(TRUE)S 240 x(-)S 9518 X 498 y(,OUTGOING)S 241 x(ALIAS)S 240 xC(=)S 239 x(FALSE)S 240 x(-)S 9518 X 498 y(,OUTGOING)S 241 x(PROXY)SE240 x(=)S 239 x(TRUE)S 240 x(-)S 9518 X 499 y(,NODE)S 240 x(SYNONYM)S%C240 x(=)S 240 x(TRUE)S 240 x(-)S 9518 X 498 y(,IMAGE)S 240 x(NAME)S3N240 x(=)S 239 x(SYS$SYS)S 2 x(TEM:JPI.EXE)S 241 x(-)S 9518 X 498 y(,INCOMING)SC241 x(OSI)S 239 x(TSEL)S 240 x(=)S 8801 X 797 y(This)S 239 x(step)S\D240 x(is)S 240 x(required)S 240 x(is)S 240 x(lieu)S 240 x(of)S 239 xE(restartin)S 2 x(g)S 239 x(the)S 239 x(entire)S 8801 X 498 y(DECnet)SeC240 x(and)S 239 x(must)S 240 x(be)S 240 x(done)S 240 x(only)S 239 xmE(once.)S 8801 X 797 y(For)S 239 x(ALL)S 240 x(installati)S 2 x(ons:)S C8801 X 797 y(For)S 239 x(each)S 240 x(user)S 240 x(who)S 240 x(is)S I239 x(currently)S 241 x(logged)S 240 x(in,)S 240 x(either)S 240 x(issue)S G240 x(the)S 239 x(followin)S 2 x(g)S 8801 X 498 y(DCL)S 239 x(command)S0C241 x(SET)S 239 x(COMMAND/)S 2 x(TABLE=SYS$LI)S 2 x(BRARY:DCLTABL)S G2 x(ES,)S 239 x(or)S 240 x(have)S 240 x(the)S 239 x(user)S 8801 X 498 y)H(log)S 239 x(out)S 240 x(and)S 240 x(then)S 239 x(log)S 240 x(in)S 240 xH(again)S 240 x(in)S 239 x(order)S 240 x(to)S 240 x(receive)S 240 x(the)SG239 x(new)S 240 x(DCL)S 240 x(command)S 8801 X 498 y(for)S 239 x(JPI.)SeQ8083 X 797 y(---------)S 2 x(------------)S 2 x(------------)S 2 x(------------)SoC2 x(-------------)S 2 x(------------)S 8083 X 797 y(%VMSINSTA)S 2 x-E(L-I-MOVEFILE)S 2 x(S,)S 239 x(Files)S 240 x(will)S 240 x(now)S 240 xdP(be)S 239 x(moved)S 240 x(to)S 239 x(their)S 240 x(target)S 241 x(directories.)SE2 x(..)S 8083 X 499 y(Now)S 240 x(Executing)S 240 x(the)S 240 x(IVP)S2O240 x(for)S 239 x(JPI)S 240 x(V2.1)S 8083 X 797 y(IVPSUCCES)S 2 x(S-I-FNDEXE,)S8G241 x(JPI)S 239 x(V2.1)S 240 x(image)S 240 x(located)S 240 x(in)S 240 xSE(sys$system.)S 8083 X 498 y(Invoking)S 241 x(JPI)S 239 x(...)S 8801 X D797 y(.)S -239 x 498 y(.)S -239 x 498 y(.)S 8083 X 797 y(IVPSUCCES)SG2 x(S-D5s$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1jm"cI-JPIOK,)S 240 x(Invocat)S 2 x(ion)S 239 x(of)S 240 x(JPI)S 239 xxD(command)S 241 x(produced)S 240 x(expected)S 241 x(results.)S 8083 XD498 y(IVPSUCCES)S 2 x(S-I-FNDHLP)S 240 x(Utility)S 241 x(JPI)S 239 xC(help)S 240 x(module)S 240 x(located)S 241 x(in)S 239 x(SYS$HELP:)ShH2 x(HELPLIB.)S 8083 X 498 y(IVPSUCCES)S 2 x(S-I-IVPCMPLT)S 2 x(,)S 239 xC(IVP)S 240 x(has)S 239 x(complete)S 2 x(d)S 239 x(successfull)S 2 x E(y.)S 8322 X 797 y(Installa)S 2 x(tion)S 239 x(of)S 240 x(JPI)S 240 x9E(2.1)S 239 x(complete)S 2 x(d)S 239 x(at)S 239 x(16:27)S 9040 X 797 ydF(Adding)S 240 x(history)S 240 x(entry)S 240 x(in)S 240 x(VMI$ROOT:[S)SM2 x(YSUPD]VMSINST)S 2 x(AL.HISTORY)S 9040 X 797 y(Creating)S 240 x(installa)S3J2 x(tion)S 239 x(data)S 240 x(file:)S 240 x(VMI$ROOT)S 2 x(:[SYSUPD]JPI0)SC2 x(21.VMI_DATA)S 8322 X 797 y(VMSINSTA)S 2 x(L)S 239 x(procedure)S)I241 x(done)S 239 x(at)S 240 x(16:27)S 8083 X 498 y($)S 240 x(log)S -717 x)H499 y(TMACK)S 11671 X(logged)S 240 x(out)S 239 x(at)S 240 x(11-MAR-199)SC2 x(5)S 239 x(16:27:51.71)S 4497 31644 XY F28(1.1.2)S 400 x(Using)S4I199 x(JPI)S -898 x 797 y F151(When)S 183 x(you)S 183 x(use)S 182 x(JPI,)S F183 x(you)S 183 x(can)S 183 x(choose)S 183 x(combinations)S 182 x(of)SG182 x(the)S 182 x(JPI)S 183 x(selection)S 182 x(criteria)S 8083 X 598 yxE(shown)S 166 x(in)S 166 x(T)S -30 x(able)S 166 x(1)S(\203)S(1)S 166 x0E(and)S 166 x(the)S 166 x(input/output)S 167 x(options)S 166 x(shown)S2D166 x(in)S 166 x(T)S -30 x(able)S 166 x(1)S(\203)S(2.)S 8083 X 897 yJ(T)S -30 x(able)S 166 x(1)S(\203)S(1)S 166 x(describes)S 165 x(selection)SG166 x(criteria)S 167 x(that)S 166 x(you)S 167 x(can)S 166 x(use)S 166 x0C(to)S 166 x(indicate)S 167 x(which)S 166 x(processes)S 8083 X 597 y E(you)S 168 x(want)S 166 x(to)S 166 x(include)S 167 x(in)S 167 x(the)SxH167 x(display)S -56 x(.)S 251 x(The)S 167 x(selection)S 166 x(criteria)SC167 x(apply)S 167 x(to)S 166 x(the)S 167 x(scope)S 166 x(of)S 167 xyI(the)S 8083 X 598 y(JPI)S 168 x(process)S 168 x(search,)S 169 x(whether)S)C169 x(the)S 168 x(search)S 168 x(is)S 168 x(con\211ned)S 169 x(to)S[C168 x(a)S 168 x(local)S 168 x(node,)S 169 x(a)S 168 x(local)S 168 xaH(cluster)S -36 x(,)S 8083 X 598 y(a)S 166 x(remote)S 166 x(node,)S 167 xD(a)S 166 x(remote)S 166 x(cluster)S -37 x(,)S 167 x(or)S 166 x(any)SD167 x(combination)S 166 x(of)S 166 x(these.)S 5 SC 4497 38258 XY F40G(1\2036)S 399 x F38(System)S 150 x(Manag)S 2 x(ement)S 150 x(Examples)S)EP PP( %%PageTrailer)#%%PageFonts: Helvetica-Bold Courier $%%+ NewCenturySchlbk-Roman Helvetica%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)3 %%+ (BLACK) %%+ (FOOTCOLOR) %%%Page: (1-7) 8e%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)4 PaperHeight PaperWidth PM 0 0 XYJ4 SC 18342 2293 XY F28(System)S 151 x(Manageme)S 2 x(nt)S 150 x(Examples)SC16001 X 647 y(1.1)S 150 x(Job)S 151 x(Process)S 150 x(Information)S-F151 x(\(JPI\))S 150 x(Utility)S 0 SC 4497 4784 XY F36(T)S -37 x(able)SC150 x(1)S(\203)S(1)S 399 x(JPI)S 150 x(Selection)S 151 x(Criteria)S F4497 X 323 y 22716 24 R 4497 5605 XY F40(Option)S 8581 X(Description)SI4497 X 299 y 22716 24 R 4497 6502 XY F155(BASE-)S 4497 X 498 y(PRIORITY)S L8581 X -498 y F157(Format:)S 223 x F155(JPI/BASEPRIORITY=\(keyword[,...]\))SM8581 X 697 y(Allows)S 158 x(you)S 157 x(to)S 158 x(select)S 158 x(processes)S H158 x(based)S 158 x(on)S 158 x(the)S 158 x(base)S 158 x(priority)S 158 xI(of)S 159 x(the)S 158 x(process.)S 240 x(If)S 158 x(you)S 158 x(specify)SG8581 X 499 y(multiple)S 151 x(keywords,)S 148 x(separat)S 2 x(e)S 149 x4E(them)S 150 x(with)S 149 x(commas)S 149 x(and)S 150 x(enclose)S 150 x L(the)S 149 x(list)S 150 x(in)S 150 x(parentheses.)S 8581 X 697 y(Following)SD150 x(are)S 150 x(explanati)S 2 x(ons)S 149 x(of)S 150 x(the)S 149 xF(keywords)S 150 x(MINIMU)S 2 x(M)S 149 x(and)S 150 x(MAXIMUM:)S 8581 XG897 y(\201)S 625 x(MAXIMUM=n)S 9478 X 697 y(Selects)S 172 x(processes)SSD171 x(that)S 173 x(have)S 171 x(a)S 172 x(base)S 171 x(priorit)S 2 xH(y)S 171 x(equal)S 172 x(to)S 172 x(or)S 172 x(less)S 171 x(than)S 171 xC(the)S 172 x(speci\211ed)S 9478 X 498 y(parameter)S -32 x(.)S 224 xoD(The)S 149 x(defaul)S 2 x(t)S 149 x(for)S 150 x(MAXIMUM)S 150 x(is)SE150 x(16.)S 8581 X 897 y(\201)S 625 x(MINIM)S 2 x(UM=n)S 9478 X 697 y2F(Selects)S 162 x(processes)S 161 x(that)S 163 x(have)S 161 x(a)S 162 xC(base)S 161 x(priorit)S 2 x(y)S 161 x(equal)S 162 x(to)S 162 x(or)SmC162 x(greater)S 162 x(than)S 162 x(the)S 161 x(speci\211ed)S 9478 X6D498 y(parameter)S -32 x(.)S 224 x(The)S 149 x(defaul)S 2 x(t)S 149 xG(for)S 150 x(MINI)S 2 x(MUM)S 150 x(is)S 149 x(0.)S 8581 X 897 y(\201)S(C625 x(\(MINI)S 2 x(MUM=n,MAXIMUM=n\))S 9478 X 697 y(Selects)S 150 x7C(processes)S 149 x(that)S 151 x(have)S 149 x(a)S 150 x(base)S 150 x N(priority)S 150 x(within)S 150 x(the)S 150 x(parameters)S 150 x(speci\211ed.)SC8581 X 897 y(T)S -41 x(o)S 153 x(specify)S 153 x(a)S 153 x(single)SxD153 x(base)S 153 x(priority)S -49 x(,)S 153 x(specify)S 153 x(MINI)SI2 x(MUM)S 153 x(and)S 154 x(MAXIMUM)S 153 x(as)S 153 x(the)S 153 x(same)S9H152 x(value.)S 8581 X 498 y(The)S 150 x(default)S 151 x(is)S 149 x(all)SE150 x(priorit)S 2 x(ies.)S 8581 X 698 y(Examples:)S 8581 X 896 y F151SC(1.)S 482 x F155(JPI/BASEPRIORITY=\(MINIMU)S 2 x(M=4,MAXIMUM=10\))S2J9478 X 698 y(The)S 153 x(command)S 152 x(in)S 153 x(this)S 153 x(example)SH153 x(selects)S 153 x(only)S 153 x(processes)S 152 x(with)S 154 x(base)SE153 x(priorities)S 154 x(between)S 153 x(4)S 9478 X 498 y(and)S 150 xMC(10.)S 8581 X 896 y F151(2.)S 482 x F155(JPI/BASEPRIORITY=MINIMUM)S0C2 x(=9)S 9478 X 698 y(The)S 154 x(command)S 154 x(in)S 154 x(this)S9D155 x(example)S 154 x(selects)S 155 x(processes)S 153 x(with)S 155 xG(base)S 154 x(priorit)S 2 x(ies)S 154 x(between)S 155 x(9)S 154 x(and)SP9478 X 498 y(16.)S 8581 X 896 y F151(3.)S 482 x F155(JPI/BASEPRIORITY=\(MINIMU)SC2 x(M=4,MAXIMUM=4\))S 9478 X 698 y(The)S 149 x(command)S 150 x(in)SDD149 x(this)S 150 x(example)S 150 x(selects)S 149 x(processes)S 149 xG(with)S 150 x(a)S 150 x(base)S 149 x(priorit)S 2 x(y)S 149 x(of)S 150 x3W(4.)S 4497 23190 XY(HW_NAME)S 8581 X F157(Format:)S 223 x F155(JPI/HW_NAME=\(cpu_hard)S G2 x(ware_name[,...]\))S 8581 X 697 y(Displays)S 155 x(processes)S 155 x0H(running)S 155 x(on)S 155 x(the)S 156 x(speci\211ed)S 156 x(CPU.)S 155 xC(The)S 156 x(CPU)S 155 x(name)S 155 x(is)S 155 x(the)S 156 x(same)S2C155 x(value)S 155 x(as)S 8581 X 498 y(that)S 147 x(returned)S 146 x)G(from)S 145 x(the)S 146 x($GETSYI\("H)S 2 x(W_NAME"\))S 146 x(lexical)S(E146 x(function)S 146 x(and)S 146 x(the)S 146 x(HW_TYPE)S 145 x(item)SqH8581 X 498 y(on)S 150 x(a)S 149 x($)S 150 x(SHOW)S 150 x(CLUSTER)S 149 xE(listing.)S 8581 X 698 y(Y)S -50 x(ou)S 172 x(can)S 173 x(use)S 171 xSG(the)S 173 x(wildcard)S 173 x(characte)S 2 x(rs)S 171 x(%)S 173 x(and)S H173 x(*)S 172 x(and)S 173 x(up)S 172 x(to)S 173 x(10)S 172 x(arguments)SG172 x(within)S 172 x(the)S 8581 X 498 y(speci\211cati)S 2 x(on.)S 225 x2D(If)S 150 x(you)S 150 x(specify)S 150 x(multiple)S 151 x(CPU)S 151 xE(hardware)S 150 x(names,)S 150 x(separate)S 151 x(them)S 150 x(with)S/C150 x(commas)S 8581 X 498 y(and)S 150 x(enclose)S 150 x(the)S 150 xxC(list)S 150 x(in)S 149 x(parentheses.)S 8581 X 697 y(If)S 159 x(a)S0F158 x(CPU)S 158 x(hardware)S 158 x(name)S 158 x(includes)S 158 x(one)SF158 x(or)S 158 x(more)S 158 x(spaces,)S 159 x(tabs,)S 160 x(or)S 158 xE(the)S 159 x(slash)S 157 x(\(/\))S 158 x(character)S -32 x(,)S 8581 X-D498 y(you)S 150 x(must)S 148 x(use)S 150 x(quotation)S 151 x(marks)SC148 x(around)S 150 x(the)S 150 x(entire)S 151 x(name;)S 149 x(for)SLC150 x(example,)S 149 x("*/GPX".)S 8581 X 698 y(Y)S -50 x(ou)S 161 xF(must)S 160 x(use)S 160 x(/HW_NAME)S 160 x(with)S 161 x(either)S 162 xF(the)S 161 x(/NODENAME)S 160 x(or)S 160 x(the)S 161 x(/CLUSTER)S 160 xF(quali\211er)S -32 x(.)S 8581 X 498 y(The)S 150 x(default)S 151 x(is)SF149 x(all)S 150 x(CPU)S 150 x(types)S 149 x(\(that)S 151 x(is,)S 149 xJ(/HW_NAME=*\).)S 8581 X 697 y F157(Example:)S 224 x F155(JPI/HW_NAME=\(")SF(V)S -49 x(AX)S 149 x(6000)S(*")S 2 x(,"*VLC"\)/CLUSTER)S 8581 X 698 yD(The)S 162 x(command)S 161 x(in)S 161 x(this)S 162 x(example)S 162 xC(selects)S 161 x(all)S 162 x(processes)S 161 x(running)S 161 x(on)SxC161 x(any)S 162 x(CPU)S 161 x(on)S 161 x(the)S 162 x(local)S 8581 XSC498 y(cluster)S 154 x(either)S 155 x(beginning)S 154 x(with)S 154 x G(the)S 154 x(value)S 154 x(V)S -51 x(AX)S 149 x(6000)S 155 x(or)S 154 xPI(having)S 153 x(VLC)S 153 x(in)S 154 x(the)S 154 x(CPU)S 154 x(hardware)SsI8581 X 498 y(name.)S 22040 32986 XY(\(continued)S 151 x(on)S 149 x(next)S)I150 x(page\))S 5 SC 19687 EdZ$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1jj"t38258 XY F38(System)S 150 x(Manag)S 2 x(ement)S9#150 x(Examples)S 400 x F40(1\2037)S(EP PP %%PageTrailerx2%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman#%%+ NewCenturySchlbk-Bold Helvetical%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)O %%+ (BLACK)S%%+ (FOOTCOLOR)1%I%%Page: (1-8) 97%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)0 PaperHeight PaperWidth PM 0 0 XYH4 SC 4497 2293 XY F28(System)S 150 x(Manage)S 2 x(ment)S 150 x(Example)SG2 x(s)S 4497 X 647 y(1.1)S 150 x(Job)S 150 x(Process)S 150 x(Informat)S9C2 x(ion)S 150 x(\(JPI\))S 149 x(Utility)S 0 SC 4497 4784 XY F36(T)S)E-37 x(able)S 150 x(1)S(\203)S(1)S 150 x(\(Cont.\))S 399 x(JPI)S 150 xfF(Selection)S 151 x(Criteria)S 4497 X 323 y 22716 24 R 4497 5605 XY F40C(Option)S 8581 X(Description)S 4497 X 299 y 22716 24 R 4497 6652 XY UF155(IMAGENAME)S 8581 X F157(Format:)S 223 x F155(JPI/IMAGENAME=\(imagename[,...]\))SnH8581 X 697 y(Speci)S 2 x(\211es)S 154 x(the)S 156 x(image)S 156 x(name)SF155 x(or)S 155 x(names)S 155 x(to)S 156 x(be)S 156 x(used)S 155 x(as)SC155 x(selection)S 156 x(criteri)S 2 x(a.)S 235 x(When)S 155 x(you)S)C156 x(use)S 155 x(this)S 8581 X 498 y(quali\211er)S -32 x(,)S 163 xuG(JPI)S 160 x(issues)S 159 x(an)S 161 x(implied)S 161 x(/SW)S -42 x(AP)S(H-58 x(.)S 160 x(\(See)S 161 x(the)S 161 x(description)S 161 x(of)S 161 xC(the)S 160 x(/SW)S -41 x(AP)S 159 x(quali\211er)S 162 x(in)S 8581 XSE498 y(T)S -27 x(able)S 150 x(1)S(\203)S(2.\))S 8581 X 698 y(Y)S -50 x6G(ou)S 154 x(can)S 154 x(use)S 154 x(wildcard)S 155 x(characters)S 155 x(I(in)S 154 x(image)S 154 x(names.)S 232 x(If)S 155 x(you)S 153 x(specify)S-E155 x(multiple)S 154 x(image)S 154 x(names,)S 8581 X 498 y(separate)SxD151 x(them)S 149 x(with)S 150 x(commas)S 149 x(and)S 150 x(enclose)SE149 x(the)S 150 x(list)S 150 x(in)S 150 x(parentheses.)S 8581 X 697 y9L(If)S 160 x(you)S 158 x(use)S 159 x(the)S 159 x(/IMAGE)S 158 x(quali\211er)SF-32 x(,)S 161 x(an)S 159 x(implied)S 160 x(/SW)S -42 x(AP)S 159 x(is)SE158 x(issued)S 159 x(to)S 159 x(JPI)S 160 x(to)S 159 x(ensure)S 159 x F(that)S 160 x(all)S 8581 X 498 y(process)S 147 x(image)S 148 x(names)SH146 x(are)S 148 x(available)S 149 x(for)S 148 x(review)S -42 x(.)S 224 xI(Y)S -50 x(ou)S 147 x(can)S 148 x(override)S 148 x(this)S 147 x(implied)S)H149 x(/SW)S -42 x(AP)S 147 x(with)S 8581 X 498 y(a)S 150 x(/NOSW)S -41 xF(AP)S 149 x(quali\211er)S -32 x(.)S 8581 X 698 y(The)S 150 x(default)SG151 x(is)S 149 x(all)S 150 x(image)S 150 x(names)S 148 x(\(that)S 151 xCF(is,)S 149 x(/IMAGENAME=*\).)S 8581 X 697 y F157(Example:)S 224 x F155H(JPI/IMAGENAME=\(*SMB*,DOC*\))S 8581 X 698 y(The)S 158 x(command)S 157 xD(in)S 157 x(this)S 158 x(example)S 158 x(selects)S 157 x(all)S 158 xH(processes)S 157 x(that)S 159 x(have)S 157 x(image)S 157 x(names)S 157 xF(containing)S 8581 X 498 y(SMB)S 150 x(and)S 150 x(all)S 150 x(image)SI150 x(names)S 148 x(that)S 151 x(start)S 150 x(with)S 150 x(DOC.)S 8581 X G697 y F157(Performance)S 146 x(note:)S 224 x F155(Because)S 144 x(the)S4G146 x($PROCESS_SCAN)S 145 x(system)S 144 x(service)S 144 x(does)S 145 xnC(not)S 146 x(support)S 145 x(an)S 8581 X 498 y(image)S 151 x(name)SnN150 x(selection,)S 151 x(JPI)S 151 x(performs)S 150 x(this)S 151 x(selection)SH151 x(after)S 152 x(the)S 150 x($GETJPI)S 151 x(system)S 150 x(service)SD150 x(has)S 8581 X 498 y(been)S 155 x(called.)S 233 x(As)S 153 x(a)SE154 x(result,)S 155 x(IMAGENAME)S 153 x(is)S 154 x(a)S 154 x(costly)SaG154 x(option)S 155 x(in)S 153 x(terms)S 154 x(of)S 154 x(performance;)SlG156 x(that)S 8581 X 498 y(is,)S 149 x(you)S 149 x(will)S 150 x(notice)SeE151 x(a)S 149 x(degradat)S 2 x(ion)S 150 x(in)S 149 x(display)S 150 xAC(response)S 150 x(time)S 149 x(when)S 150 x(you)S 149 x(use)S 149 x(D(this)S 149 x(quali\211er)S -32 x(.)S 4497 17461 XY(JOBTYPE)S 8581 XFF157(Format:)S 223 x F155(JPI/JOBTYPE=\(jobtype[,...]\))S 8581 X 697 yC(Speci)S 2 x(\211es)S 150 x(the)S 152 x(process)S 151 x(job)S 151 xsC(type)S 152 x(or)S 151 x(types)S 151 x(to)S 152 x(be)S 151 x(used)SeF151 x(as)S 151 x(selection)S 152 x(criteria)S 2 x(.)S 227 x(Possible)SJ151 x(job)S 151 x(types)S 8581 X 499 y(are)S 150 x(LOCAL,)S 148 x(DIALUP)SH-57 x(,)S 149 x(REMOTE,)S 148 x(BA)S -25 x(TCH,)S 149 x(NETWORK,)S 148 xC(and)S 150 x(DET)S -25 x(ACHED.)S 8581 X 697 y(Y)S -50 x(ou)S 166 x)I(need)S 167 x(to)S 166 x(enter)S 167 x(only)S 166 x(enough)S 166 x(text)SSD167 x(to)S 167 x(uniquely)S 166 x(identify)S 167 x(the)S 167 x(job)SL166 x(type.)S 258 x(If)S 166 x(you)S 166 x(specify)S 8581 X 498 y(multiple)SE151 x(job)S 149 x(types,)S 150 x(separate)S 150 x(them)S 150 x(with)S(C149 x(commas)S 149 x(and)S 150 x(enclose)S 150 x(the)S 150 x(list)S H149 x(in)S 150 x(parentheses.)S 8581 X 697 y(The)S 150 x(default)S 151 xF(is)S 149 x(all)S 150 x(job)S 150 x(types)S 149 x(\(that)S 151 x(is,)SG149 x(/JOBTYPE=)S -2 x(ALL\).)S 8581 X 698 y F157(Example:)S 224 x F155wH(JPI/JOBTYPE=\(LOCAL,)S -2 x(BA)S -25 x(TCH\))S 8581 X 697 y(The)S 156 xH(command)S 156 x(in)S 156 x(this)S 157 x(example)S 156 x(selects)S 156 xF(processes)S 156 x(that)S 157 x(have)S 156 x(the)S 156 x(LOCAL)S 156 xC(and)S 156 x(BA)S -25 x(TCH)S 156 x(job)S 8581 X 498 y(type)S 150 xiF(attri)S 2 x(butes.)S 4497 23887 XY(MODE)S 8581 X F157(Format:)S 223 xFF155(JPI/MODE=\(mode[,...]\))S 8581 X 697 y(Speci)S 2 x(\211es)S 163 xG(the)S 165 x(process)S 163 x(mode)S 164 x(or)S 165 x(modes)S 163 x(to)SmF165 x(be)S 164 x(used)S 164 x(as)S 164 x(selection)S 165 x(criteria.)SG254 x(The)S 164 x(modes)S 164 x(are)S 8581 X 498 y(INTERACTIVE,)S 149 x1D(BA)S -25 x(TCH,)S 149 x(NETWORK)S 148 x(and)S 150 x(OTHER.)S 8581 XG698 y(Y)S -50 x(ou)S 143 x(need)S 144 x(to)S 143 x(enter)S 144 x(only)SyG143 x(enough)S 143 x(text)S 143 x(to)S 144 x(uniquely)S 143 x(identif)S5H2 x(y)S 142 x(the)S 144 x(mode.)S 224 x(If)S 143 x(you)S 143 x(specify)SD143 x(multiple)S 8581 X 498 y(modes,)S 149 x(separate)S 151 x(them)SC149 x(with)S 150 x(commas)S 149 x(and)S 150 x(enclose)S 149 x(the)S"F150 x(list)S 150 x(in)S 149 x(parent)S 2 x(heses.)S 8581 X 697 y(The)SC150 x(default)S 151 x(is)S 149 x(all)S 150 x(modes)S 149 x(\(that)S E151 x(is,)S 149 x(/MODE=A)S -2 x(LL\).)S 8581 X 698 y F157(Example:)S-G224 x F155(JPI/MODE=\(INTERACTIVE,BA)S -26 x(TCH\))S 8581 X 697 y(The)ShH150 x(command)S 149 x(in)S 150 x(this)S 149 x(example)S 150 x(displays)SF150 x(INTERACTIVE)S 149 x(and)S 150 x(BA)S -26 x(TCH)S 150 x(process)SC149 x(modes.)S 22040 29998 XY(\(continued)S 151 x(on)S 149 x(next)SpG150 x(page\))S 5 SC 4497 38258 XY F40(1\2038)S 399 x F38(System)S 150 x0%(Manag)S 2 x(ement)S 150 x(Examples)S/EP PP( %%PageTrailer 2%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman#%%+ NewCenturySchlbk-Bold Helvetica5%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)S %%+ (BLACK) %%+ (FOOTCOLOR)1%x%%Page: (1-9) 10%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)S PaperHeight PaperWidth PM 0 0 XYJ4 SC 18342 2293 XY F28(System)S 151 x(Manageme)S 2 x(nt)S 150 x(Examples)SC16001 X 647 y(1.1)S 150 x(Job)S 151 x(Process)S 150 x(Information)S4F151 x(\(JPI\))S 150 x(Utility)S 0 SC 4497 4784 XY F36(T)S -37 x(able)SD150 x(1)S(\203)S(1)S 150 x(\(Cont.\))S 399 x(JPI)S 150 x(Selection)SI151 x(Criteria)S 4497 X 323 y 22716 24 R 4497 5605 XY F40(Option)S 8581 XSC(Description)S 4497 X 299 y 22716 24 R 4497 6652 XY F155(NODENAME)S5D8581 X F157(Format:)S 223 x F155(JPI/NODENAME[=\(nodename[,...]\)])SC8581 X 697 y(Speci)S 2 x(\211es)S 161 x(the)S 161 x(cluster)S 162 xJC(node)S 162 x(or)S 161 x(nodes)S 162 x(to)S 162 x(be)S 162 x(used)SSE161 x(as)S 161 x(selection)S 162 x(criteria)S 2 x(.)S 247 x(Y)S -50 xxG(ou)S 162 x(can)S 161 x(use)S 161 x(DCL)S 8581 X 498 y(wildcard)S 156 xSE(characters)S 155 x(in)S 155 x(node)S 155 x(names.)S 233 x(If)S 155 xlC(you)S 154 x(specify)S 155 x(multiple)S 156 x(node)S 155 x(names,)StF154 x(separate)S 156 x(them)S 8581 X 498 y(with)S 150 x(commas)S 149 xO(and)S 150 x(enclose)S 149 x(the)S 150 x(list)S 150 x(in)S 150 x(parentheses.)SwF8581 X 698 y(JPI)S 157 x(ignores)S 156 x(the)S 157 x(/NODENAME)S 155 xH(quali\211er)S 157 x(when)S 156 x(you)S 156 x(specify)S 157 x(it)S 156 xF(on)S 157 x(a)S 156 x(non-clustered)S 157 x(system.)S 8581 X 498 y(Y)SD-50 x(ou)S 150 x(cannot)S 150 x(use)S 149 x(/NODENAME)S 149 x(with)SG149 x(the)S 150 x(/CLUSTER)S 149 x(quali\211er)S -32 x(.)S 8581 X 697 yLG(T)S -41 x(o)S 172 x(retrieve)S 172 x(informati)S 2 x(on)S 171 x(from)S(E172 x(the)S 172 x(local)S 172 x(node)S 173 x(when)S 171 x(you)S 172 xeI(use)S 171 x(the)S 172 x(/RNODENAME)S 170 x(or)S 8581 X 498 y(/RCLUSTER)S C149 x(quali\211er)S -32 x(,)S 149 x(F/t$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1j"you)S 149 x(must)S 149 x(also)S0C150 x(use)S 149 x(the)S 150 x(/NODENAME)S 148 x(quali\211er)S -32 xtF(.)S 8581 X 698 y(Node)S 166 x(name)S 164 x(values)S 164 x(can)S 164 xG(be)S 165 x(logical)S 165 x(names.)S 253 x(Only)S 163 x(\211rst-level)SyH165 x(logical)S 165 x(name)S 165 x(translation)S 165 x(is)S 8581 X 498 yC(performed)S 153 x(on)S 152 x(logical)S 152 x(names;)S 152 x(that)SxF153 x(is,)S 151 x(a)S 152 x(speci\211ed)S 153 x(value)S 152 x(cannot)SC152 x(translate)S 153 x(to)S 152 x(a)S 152 x(logical)S 152 x(name)SSC8581 X 498 y(that,)S 150 x(in)S 150 x(turn,)S 149 x(translate)S 2 x D(s)S 148 x(to)S 150 x(another)S 151 x(logical)S 150 x(name.)S 8581 XF697 y(Y)S -50 x(ou)S 159 x(can)S 159 x(specify)S 159 x(up)S 159 x(to)SH159 x(50)S 160 x(node)S 159 x(names.)S 242 x(If)S 160 x(a)S 159 x(node)SD159 x(name)S 159 x(is)S 158 x(a)S 159 x(logical)S 160 x(name)S 159 xI(that)S 159 x(points)S 160 x(to)S 8581 X 498 y(multiple)S 151 x(values,)S0J149 x(each)S 150 x(of)S 149 x(these)S 150 x(corresponding)S 150 x(values)SC149 x(counts)S 150 x(against)S 150 x(the)S 150 x(limit)S 150 x(of)S(D150 x(50.)S 8581 X 698 y F157(Example:)S 8581 X 697 y F155($)S 150 xE(DEFINE)S 149 x(CI)S 150 x(SNAK,NOLAND,IPM31)S 8581 X 698 y($)S 150 xwK(JPI/NODENAME=\(CI,PCDE*\))S 8581 X 697 y(The)S 162 x(JPI)S 163 x(command)S0F162 x(following)S 163 x(the)S 162 x(de\211nition)S 163 x(actuall)S 2 xC(y)S 161 x(uses)S 162 x(up)S 162 x(4)S 162 x(of)S 162 x(the)S 163 xSO(possible)S 162 x(50)S 163 x(node)S 8581 X 498 y(name)S 171 x(values\202three)S F172 x(for)S 171 x(the)S 172 x(translated)S 172 x(values)S 171 x(from)SE171 x(the)S 171 x(logical)S 172 x(CI,)S 171 x(and)S 171 x(one)S 172 x D(for)S 171 x(the)S 8581 X 498 y(wildcard)S 2 x(ed)S 149 x(explicit)SE151 x(value)S 150 x(of)S 150 x(PCDE*.)S 8581 X 698 y(If)S 150 x(you)SSC150 x(do)S 150 x(not)S 150 x(specify)S 149 x(a)S 150 x(node)S 150 x\K(name,)S 149 x(the)S 150 x(default)S 151 x(is)S 149 x(the)S 150 x(current)S1M150 x(node.)S 8581 X 697 y F157(Example:)S 224 x F155(JPI/NODENAME=\(HICCUP)SSD-57 x(,DSWK%\))S 8581 X 697 y(The)S 150 x(command)S 149 x(in)S 150 xF(this)S 149 x(example)S 150 x(selects)S 150 x(the)S 150 x(following:)SH8581 X 897 y(\201)S 625 x(All)S 149 x(processes)S 150 x(on)S 149 x(the)SG150 x(node)S 150 x(HICCUP)S 8581 X 897 y(\201)S 625 x(Processes)S 151 xBH(on)S 153 x(nodes)S 152 x(with)S 152 x(node)S 153 x(names)S 152 x(that)SG153 x(are)S 152 x(5)S 153 x(characters)S 153 x(long)S 152 x(and)S 152 xxH(have)S 152 x(DSWK)S 152 x(as)S 9478 X 498 y(the)S 150 x(\211rst)S 149 xG(4)S 150 x(characters)S 4497 22940 XY(PRIVILEGE)S 8581 X F157(Format:)SaC223 x F155(JPI/PRIVILEGE=\(privilege[,...]\))S 8581 X 698 y(Speci)SSF2 x(\211es)S 136 x(the)S 138 x(process)S 137 x(privileges)S 137 x(to)SF137 x(be)S 138 x(used)S 137 x(as)S 137 x(selection)S 138 x(criteria.)SI225 x(Y)S -50 x(ou)S 137 x(cannot)S 137 x(use)S 137 x(wildcards.)S 8581 XGK498 y(If)S 161 x(you)S 161 x(specify)S 161 x(multiple)S 161 x(privileges,)S(E163 x(separate)S 162 x(them)S 160 x(with)S 161 x(commas)S 160 x(and)S)K161 x(enclose)S 160 x(the)S 161 x(list)S 161 x(in)S 8581 X 498 y(parenthe)SnF2 x(ses.)S 8581 X 698 y(Y)S -50 x(ou)S 151 x(can)S 151 x(concatenate)SE152 x(privilege)S 152 x(names)S 150 x(with)S 151 x(the)S 151 x(plus)S)E151 x(\(+\))S 151 x(sign)S 150 x(if)S 151 x(you)S 151 x(place)S 151 x=I(quotat)S 2 x(ion)S 151 x(marks)S 8581 X 498 y(around)S 150 x(concatena)SrT2 x(ted)S 150 x(privileges;)S 149 x(for)S 150 x(example,)S 150 x("SYSNAM+READALL".)SG8581 X 697 y(The)S 150 x(default)S 151 x(is)S 149 x(all)S 150 x(image)SoH150 x(names)S 148 x(\(that)S 151 x(is,)S 149 x(/PRIVILEGE=ANY\).)S 731 xN731 y(\(continued)S 151 x(on)S 149 x(next)S 150 x(page\))S 5 SC 19687 38258 XYJF38(System)S 150 x(Manag)S 2 x(ement)S 150 x(Examples)S 400 x F40(1\2039)SEP PP %%PageTrailerx2%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman#%%+ NewCenturySchlbk-Bold Helvetican%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)S %%+ (BLACK)1%%+ (FOOTCOLOR)8% %%Page: (1-10) 115%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)s PaperHeight PaperWidth PM 0 0 XYH4 SC 4497 2293 XY F28(System)S 150 x(Manage)S 2 x(ment)S 150 x(Example)SG2 x(s)S 4497 X 647 y(1.1)S 150 x(Job)S 150 x(Process)S 150 x(Informat)S(C2 x(ion)S 150 x(\(JPI\))S 149 x(Utility)S 0 SC 4497 4784 XY F36(T)S5E-37 x(able)S 150 x(1)S(\203)S(1)S 150 x(\(Cont.\))S 399 x(JPI)S 150 x)F(Selection)S 151 x(Criteria)S 4497 X 323 y 22716 24 R 4497 5605 XY F40C(Option)S 8581 X(Description)S 4497 X 299 y 22716 24 R 8581 7100 XY1CF157(Example:)S 224 x F155(JPI/PRIVILEGE=\("READALL+G)S -2 x(RPPR)SoF-17 x(V",SYSNAM,BYP)S -33 x(ASS,SYSPR)S -17 x(V\))S 8581 X 697 y(The)SG174 x(command)S 172 x(in)S 174 x(this)S 173 x(example)S 173 x(\211nds)S D173 x(a)S 174 x(process)S 173 x(match)S 173 x(if)S 173 x(the)S 174 xE(process)S 173 x(currently)S 174 x(has)S 8581 X 498 y(READALL)S 153 x4JF156(and)S 154 x F155(GRPPR)S -18 x(V)S 154 x(privileges,)S 155 x(SYSNAM)SC154 x(privilege,)S 156 x(BYP)S -34 x(ASS)S 154 x(privilege,)S 156 x8D(or)S 154 x(SYSPR)S -17 x(V)S 8581 X 499 y(privilege.)S 8581 X 697 yH(Privileges)S 168 x(available)S 169 x(to)S 168 x(an)S 168 x(authorized)SI168 x(process)S 168 x(on)S 167 x(a)S 168 x(VMS)S 168 x(V)S -42 x(ersion)S(G168 x(6.1)S 168 x(sys)S -2 x(tem)S 168 x(are)S 168 x(the)S 8581 X 498 y1C(following:)S 8581 X 697 y(ACNT)S -41 x(,)S 173 x(ALLSPOOL,)S 174 x G(AL)S -25 x(TPRI,)S 174 x(AUDIT)S -41 x(,)S 173 x(BUGCHK,)S 174 x(BYP)ShG-34 x(ASS,)S 174 x(CMEXEC)S -2 x(,)S 174 x(CMKRNL,)S 8581 X 499 y(DET)SmH-25 x(ACH,)S 169 x(DIAGNOSE,)S 170 x(DOWNGRADE)S -2 x(,)S 170 x(EXQUOT)SF-26 x(A,)S 169 x(GROUP)S -58 x(,)S 170 x(GRPNAM,)S 169 x(GRPPR)S -18 xD(V)S -58 x(,)S 8581 X 498 y(IMPORT)S -41 x(,)S 182 x(LOG_IO,)S 182 xE(MOUNT)S -41 x(,)S 182 x(NETMBX,)S 181 x(OPER,)S 181 x(PFNMAP)S -58 x-K(,)S 182 x(PHY_IO,)S 182 x(PRMCEB,)S 8581 X 498 y(PRMGBL,)S 158 x(PRMMBX,)S(D157 x(PSW)S -41 x(APM,)S 158 x(READALL,)S 157 x(SECURITY)S -50 x(,)SF158 x(SETPR)S -17 x(V)S -58 x(,)S 158 x(SHARE,)S 158 x(SHMEM,)S 8581 XC498 y(SYSGBL,)S 149 x(SYSLCK,)S 149 x(SYSNAM,)S 150 x(SYSPR)S -16 x%E(V)S -58 x(,)S 149 x(TMPMBX,)S 149 x(UPGRADE,)S 148 x(VOLPRO,)S 148 xoC(WORLD)S 8581 X 697 y(Many)S 173 x(privileges,)S 177 x(with)S 173 x E(varying)S 171 x(degrees)S 173 x(of)S 172 x(power)S 173 x(and)S 172 xoE(potent)S 2 x(ial)S 172 x(system)S 172 x(impact,)S 178 x(are)S 8581 XSF498 y(availab)S 2 x(le.)S 236 x(See)S 157 x(the)S 156 x F156(OpenVMS)SF155 x(System)S 156 x(Manager)S 25 x(')S -16 x(s)S 156 x(Manual)S 156 xLF155(for)S 156 x(a)S 156 x(more)S 156 x(detail)S 2 x(ed)S 156 x(discussion)SE8581 X 499 y(of)S 150 x(availabl)S 2 x(e)S 149 x(privileges.)S 8581 X E697 y F157(Performance)S 181 x(note:)S 284 x F155(Using)S 180 x(the)S D180 x(/PRIVILEGE)S 179 x(quali\211er)S 180 x(can)S 180 x(adversely)SF180 x(affect)S 181 x(the)S 8581 X 498 y(performance)S 151 x(of)S 150 x`(JPI.)S 4497 17013 XY(PROCESS)S 8581 X F157(Format:)S 223 x F155(JPI/PROCESS=\(process[,...]\))SC8581 X 697 y(Speci)S 2 x(\211es)S 170 x(the)S 171 x(process)S 171 x4C(name)S 170 x(or)S 171 x(names)S 170 x(to)S 171 x(be)S 172 x(used)SyE170 x(as)S 171 x(selection)S 171 x(criteria)S 2 x(.)S 266 x(Y)S -50 xSH(ou)S 171 x(can)S 171 x(use)S 8581 X 498 y(wildcard)S 158 x(characters)SF157 x(in)S 157 x(process)S 156 x(names.)S 238 x(If)S 157 x(you)S 156 xK(specify)S 157 x(multiple)S 157 x(process)S 157 x(names,)S 157 x(separate)S0K8581 X 498 y(them)S 150 x(with)S 150 x(commas)S 148 x(and)S 150 x(enclose)SEE150 x(the)S 150 x(list)S 149 x(in)S 150 x(parentheses.)S 8581 X 698 y5C(The)S 150 x(default)S 151 x(is)S 149 x(all)S 150 x(process)S 150 x H(names)S 148 x(\(that)S 151 x(is,)S 149 x(/PROCE)S -2 x(SS=*\).)S 8581 XD697 y F157(Example:)S 224 x F155(JPI/PROCESS=\(SYSTEM,JA*\))S 8581 XC698 y(The)S 152 x(command)S 152 x(in)S 152 x(this)S 153 x(example)S J152 x(selects)S 152 x(all)S 153 x(processes)S 152 x(with)S 152 x(process)SJ152 x(names)S 151 x(of)S 153 x(SYSTEM)S 152 x(and)S 8581 X 498 y(process)SG150 x(names)S 149 x(that)S 150 x(begin)S 150 x(with)S 149 x(the)S 150 x1F(character)S 2 x(s)S 149 x(JA.)S 4497 22741 XY(RNODENAME)S 8581 X F157E(Format:)S 223 x F155(JPI/RNODENAME=\(nodename[,...]\))S 8581 X 698 ycC(Speci)S 2 x(\211es)S 150 x(the)S 152 x(remote)S 151 x(node)S 152 x2F(name)S 151 x(or)S 151 x(names)S 151 x(for)S 152 x(which)S 151 x(the)SE151 x(selection)S 152 x(criteria)S 153 x(apply)S -49 x(.)S 227 x(As)SSE150 x(with)S 8581 X 498 y(the)S 153 x(/NODENAME)S 151 x(quali\211er)S C-32 x(,)S 153 x(these)S 152 x(values)S 152 x(can)S 153 x(be)G!`$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1jS"S 152 xSE(logical)S 153 x(names.)S 229 x(The)S 153 x(limit)S 152 x(for)S 153 xnG(node)S 153 x(name)S 8581 X 498 y(values)S 154 x(is)S 153 x(50.)S 232 x)C(The)S 154 x(JPI)S 154 x(DECnet)S 153 x(object)S 154 x(must)S 153 x E(be)S 154 x(properly)S 154 x(de\211ned)S 155 x(on)S 153 x(the)S 154 x G(remote)S 154 x(node;)S 156 x(this)S 8581 X 498 y(object)S 150 x(must)SeJ149 x(point)S 151 x(to)S 150 x(a)S 149 x(valid)S 151 x(JPI)S 150 x(image)SC149 x(\(V)S -41 x(ersion)S 149 x(2.0)S 150 x(or)S 150 x(higher\).)S C8581 X 697 y(Y)S -50 x(ou)S 168 x(can)S 169 x(pass)S 167 x(access)StF168 x(control)S 169 x(information)S 169 x(as)S 168 x(part)S 169 x(of)SD169 x(the)S 168 x(node)S 169 x(name)S 168 x(speci\211cation.)S 262 xE(In)S 8581 X 499 y(the)S 161 x(absence)S 161 x(of)S 161 x(optio)S 2 xPH(nal)S 160 x(proxy)S 161 x(access)S 160 x(information)S 162 x(on)S 161 xL(the)S 161 x(target)S 161 x(node)S 161 x(or)S 161 x(nodes,)S 163 x(default)SE8581 X 498 y(DECnet)S 149 x(access)S 149 x(informati)S 2 x(on)S 149 x F(applie)S 2 x(s.)S 8581 X 697 y(Speci)S 2 x(fying)S 152 x(/RNODENAME)SH152 x(negates)S 154 x(default)S 154 x(selection)S 154 x(criteria)S 155 xF(on)S 153 x(the)S 153 x(issuing)S 152 x(node.)S 232 x(If)S 154 x(you)SD8581 X 498 y(also)S 166 x(want)S 165 x(process)S 165 x(information)SG166 x(about)S 166 x(the)S 166 x(issuing)S 164 x(node)S 166 x(or)S 165 xxC(cluster)S -33 x(,)S 169 x(you)S 165 x(must)S 164 x(specify)S 166 x(M(a)S 8581 X 498 y(/NODENAME)S 149 x(or)S 150 x(/CLUSTER)S 149 x(quali\211er)SPF150 x(on)S 150 x(the)S 149 x(command)S 150 x(line.)S 8581 X 698 y F157[(Example:)S 224 x F155(JPI/RNODENAME=\(IM4U"r)S 2 x(burns)S 149 x(greatscotts",COOKIE::\))SJ8581 X 697 y(The)S 150 x(command)S 149 x(in)S 150 x(this)S 149 x(example)SD150 x(issues)S 149 x(remote)S 149 x(calls)S 150 x(to)S 150 x(nodes)SH150 x(IM4U)S 150 x(and)S 150 x(COOKIE:)S 8581 X 897 y(\201)S 625 x(For)SJ154 x(node)S 154 x(IM4U)S 2 x(,)S 153 x(JPI)S 155 x(will)S 154 x(utilize)SD154 x(the)S 155 x(user)S 153 x(name)S 154 x F156(rburns)S 154 x F155H(and)S 154 x(password)S 154 x F156(greatscotts)S 154 x F155(for)S 9478 XC498 y(logging)S 149 x(in)S 150 x(to)S 150 x(the)S 150 x(JPI)S 150 x)E(process.)S 8581 X 896 y(\201)S 625 x(T)S -41 x(o)S 152 x(log)S 153 xoF(in)S 153 x(to)S 153 x(node)S 153 x(COOKIE,)S 152 x(JPI)S 153 x(must)SF152 x(have)S 153 x(proxy)S 152 x(information)S 154 x(de\211ned)S 153 xH(for)S 153 x(the)S 153 x(calling)S 9478 X 499 y F156(username:password)SCF155(.)S 22040 33634 XY(\(continued)S 151 x(on)S 149 x(next)S 150 x C(page\))S 5 SC 4497 38258 XY F40(1\20310)S 399 x F38(System)S 150 x1%(Mana)S 2 x(gement)S 150 x(Examples)S EP PP) %%PageTrailer11%%PageFonts: Helvetica-Bold NewCenturySchlbk-Bold 2%%+ NewCenturySchlbk-Roman NewCenturySchlbk-Italic %%+ Helvetica %%PageProcessColors:%%PageCustomColors: (HEADCOLOR)q %%+ (BLACK)o%%+ (FOOTCOLOR) %1%%Page: (1-11) 125%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)x PaperHeight PaperWidth PM 0 0 XYJ4 SC 18342 2293 XY F28(System)S 151 x(Manageme)S 2 x(nt)S 150 x(Examples)SC16001 X 647 y(1.1)S 150 x(Job)S 151 x(Process)S 150 x(Information)SoF151 x(\(JPI\))S 150 x(Utility)S 0 SC 4497 4784 XY F36(T)S -37 x(able)SD150 x(1)S(\203)S(1)S 150 x(\(Cont.\))S 399 x(JPI)S 150 x(Selection)SI151 x(Criteria)S 4497 X 323 y 22716 24 R 4497 5605 XY F40(Option)S 8581 XmC(Description)S 4497 X 299 y 22716 24 R 4497 6652 XY F155(TERMINAL)SeD4497 X 498 y(/NOTERMINAL)S 705 x -498 y F157(Formats:)S 8581 X 498 ySF155(JPI/TERMINAL=\(terminal)S 2 x(_name[,...]\))S 8581 X 498 y(JPI/TERMINAL=none)S G8581 X 498 y(JPI/TERMINAL=any)S 8581 X 697 y(Speci)S 2 x(\211es)S 150 xSE(the)S 151 x(process-associated)S 151 x(terminal)S 151 x(name)S 151 x1G(or)S 150 x(names)S 150 x(to)S 151 x(be)S 151 x(used)S 151 x(as)S 150 x4H(selection)S 151 x(criteri)S 2 x(a.)S 8581 X 498 y(JPI)S 174 x(selects)SG173 x(a)S 174 x(process)S 173 x(if)S 173 x(any)S 173 x(of)S 174 x(the)S7F174 x(supplied)S 174 x(values)S 173 x(match)S 173 x(the)S 174 x(name)SE173 x(of)S 173 x(a)S 174 x(terminal)S 8581 X 499 y(associated)S 151 xID(with)S 149 x(a)S 150 x(process.)S 8581 X 697 y(Y)S -50 x(ou)S 151 xF(can)S 150 x(enter)S 151 x(up)S 151 x(to)S 151 x(10)S 151 x(separate)SG152 x(terminal)S 151 x(speci\211cations.)S 227 x(If)S 151 x(you)S 150 xcH(specify)S 151 x(multiple)S 151 x(terminal)S 8581 X 498 y(names,)S 149 xF(separate)S 150 x(them)S 150 x(with)S 150 x(commas)S 148 x(and)S 150 xC(enclose)S 150 x(the)S 150 x(list)S 150 x(in)S 149 x(parentheses.)S4E8581 X 698 y(Y)S -50 x(ou)S 190 x(can)S 191 x(use)S 189 x(wildcards)SXD191 x(anywhere)S 190 x(within)S 191 x(the)S 190 x(arguments.)S 305 xG(When)S 190 x(you)S 189 x(specify)S 8581 X 498 y(/TERMINAL=none)S 180 xSC(or)S 181 x(/NOTERMINAL,)S 180 x(JPI)S 181 x(selects)S 180 x(only)StC180 x(processes)S 180 x(that)S 181 x(have)S 181 x(no)S 8581 X 498 yyJ(associated)S 151 x(terminal.)S 224 x(This)S 149 x(is)S 150 x(equivalent)SL150 x(to)S 150 x(/TERMINAL=")S 150 x(".)S 8581 X 697 y(The)S 150 x(default)SC151 x(is)S 149 x(all)S 150 x(terminals)S 150 x(\(that)S 151 x(is,)S1G149 x(/TERMINAL=*\).)S 8581 14622 XY(Examples:)S 8581 X 896 y F151(1.)S,F482 x F155(JPI/TERMINAL=\(RT)S -24 x(A*,FT)S -26 x(A*\))S 9478 X 698 yD(The)S 142 x(command)S 141 x(in)S 142 x(this)S 142 x(example)S 142 xM(selects)S 142 x(processes)S 142 x(with)S 142 x(associated)S 143 x(terminal)S8G142 x(names)S 141 x(that)S 9478 X 498 y(begin)S 150 x(with)S 149 x(RT)SAH-25 x(A)S 150 x(and)S 150 x(FT)S -25 x(A.)S 8581 X 896 y F151(2.)S 482 xCF155(JPI/TERMINAL=\(none,RT)S -25 x(A*\))S 9478 X 698 y(The)S 162 x(H(command)S 161 x(in)S 162 x(this)S 161 x(example)S 162 x(selects)S 162 xH(processes)S 161 x(with)S 162 x(no)S 162 x(associated)S 163 x(terminal)SD162 x(and)S 9478 X 498 y(terminal)S 150 x(names)S 149 x(that)S 150 xE(begin)S 150 x(with)S 150 x(the)S 150 x(characters)S 150 x(RT)S -25 xpE(A.)S 8581 X 897 y F151(3.)S 482 x F155(JPI/NOTERMINAL)S 9478 X 697 y(D(The)S 155 x(command)S 155 x(in)S 155 x(this)S 154 x(example)S 156 xD(selects)S 155 x(only)S 155 x(those)S 155 x(processes)S 154 x(that)SD156 x(have)S 155 x(no)S 155 x(associated)S 9478 X 498 y(terminals.)SG8581 X 897 y F151(4.)S 482 x F155(JPI/TERMINAL=ANY)S 9478 X 697 y(The)StG164 x(command)S 163 x(in)S 164 x(this)S 163 x(example)S 164 x(selects)SrG164 x(processes)S 163 x(that)S 165 x(have)S 163 x(a)S 164 x(non-blank)S(D165 x(terminal)S 9478 X 498 y(name)S 149 x(associated)S 151 x(with)SG149 x(them.)S 8581 X 897 y(Speci)S 2 x(fy)S 174 x(/TERMINAL=ANY)S 174 xSK(if)S 175 x(you)S 175 x(want)S 175 x(to)S 175 x(specify)S 175 x(processes)S1N175 x(that)S 175 x(have)S 175 x(a)S 175 x(terminal)S 8581 X 498 y(associated)SF175 x(with)S 174 x(them.)S 272 x(The)S 174 x(ANY)S 173 x(value)S 174 xC(deselects)S 174 x(processes)S 174 x(that)S 174 x(have)S 174 x(no)S1E174 x(terminal)S 8581 X 498 y(association.)S 4497 26328 XY(USERNAME)S I8581 X F157(Format:)S 223 x F155(JPI/USERNAME=\(username[,...]\))S 8581 X(F697 y(Speci)S 2 x(\211es)S 152 x(the)S 153 x(user)S 153 x(name)S 153 xG(or)S 153 x(names)S 152 x(to)S 154 x(be)S 153 x(used)S 153 x(as)S 153 xSE(selection)S 154 x(criteria.)S 232 x(Y)S -50 x(ou)S 153 x(can)S 153 x C(use)S 152 x(wildcard)S 8581 X 498 y(character)S 2 x(s)S 167 x(in)S)H169 x(user)S 167 x(names.)S 261 x(If)S 169 x(you)S 168 x(specify)S 168 xE(multiple)S 170 x(user)S 167 x(names,)S 172 x(separate)S 170 x(them)S)D168 x(with)S 8581 X 498 y(commas)S 149 x(and)S 150 x(enclose)S 150 xF(the)S 149 x(list)S 150 x(in)S 150 x(parentheses.)S 8581 X 698 y(The)SG150 x(default)S 151 x(is)S 149 x(all)S 150 x(user)S 149 x(names)S 149 xxI(\(that)S 151 x(is,)S 149 x(/USERNAME=*\).)S 8581 X 697 y F157(Example:)S5K224 x F155(JPI/USERNAME=\(KAHILL,JA*\))S 8581 X 698 y(The)S 159 x(command)S C159 x(in)S 158 x(this)S 159 x(example)S 159 x(selects)S 159 x(all)SnD159 x(processes)S 158 x(that)S 160 x(have)S 159 x(the)S 159 x(user)SL158 x(name)S 159 x(KAHILL)S 8581 X 498 y(and)S 150 x(all)S 150 x(processes)SF149 x(with)S 150 x(user)S 149 x(names)S 149 x(beginning)S 150 x(with)SI150 x(the)S 149 x(characte)S 2 x(rs)S 149 x(JA.)S 4497 X 398 y 22716 24 R)F8083 32106 XY F151(Y)S -55 x(ou)S 170 x(can)S 171 x(sort)S 170 x(the)SD171 x(selection)S 170 x(criteria)S 170 x(in)S 171 x(T)S -31 x(able)SE170 x(1)S(\203)S(1)S 171 x(in)S 170 x(any)S 171 x(combination)S 171 x1E(of)S 170 x(\211eld)S 171 x(order)S -37 x(,)S 8083 X 598 y(in)S 166 xsG(either)S 167 x(ascending)S 167 x(or)S 166 x(descending)S 167 x(order)SSC-36 x(.)S 8083 X 896 y F153(Example:)S 251 x F151(JPI/SORT=\(WSSI)S1F-2 x(ZE=DESCE)S -2 x(NDING,PROCE)SHX$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1jb" -2 x(SS\))S 5 SC 19463 38258 XY F38E(System)S 150 x(Managem)S 2 x(ent)S 149 x(Examp)S 2 x(les)S 398 x F40o(1\2031)S -24 x(1)SpEP PP6 %%PageTrailer(2%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman#%%+ NewCenturySchlbk-Bold Helvetica1%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)0 %%+ (BLACK)1%%+ (FOOTCOLOR)(%o%%Page: (1-12) 13S%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)t PaperHeight PaperWidth PM 0 0 XYH4 SC 4497 2293 XY F28(System)S 150 x(Manage)S 2 x(ment)S 150 x(Example)SG2 x(s)S 4497 X 647 y(1.1)S 150 x(Job)S 150 x(Process)S 150 x(Informat)S5D2 x(ion)S 150 x(\(JPI\))S 149 x(Utility)S 0 SC 8083 4555 XY F151(T)SI-30 x(able)S 165 x(1)S(\203)S(2)S 166 x(shows)S 166 x(the)S 166 x(input)S1C166 x(and)S 167 x(output)S 166 x(options)S 166 x(that)S 165 x(are)SsF167 x(available)S 166 x(with)S 165 x(JPI.)S 4497 6000 XY F36(T)S -37 xD(able)S 150 x(1)S(\203)S(2)S 399 x(JPI)S 150 x(Input/)S 2 x(Output)SH150 x(Options)S 4497 X 324 y 22716 24 R 4497 7320 XY F40(Option)S 8581 XK-498 y(T)S -33 x(ype)S 153 x(of)S 8581 X 498 y(Option)S 897 x(Description)SEJ4497 X 299 y 22716 24 R 4497 8216 XY F155(CLUSTER)S 8581 X(Input)S 10923 XK(Causes)S 166 x(JPI)S 168 x(to)S 168 x(search)S 167 x(all)S 168 x(cluster)S1H168 x(nodes)S 168 x(for)S 167 x(processes)S 167 x(matching)S 168 x(the)SE168 x(input)S 10923 X 499 y(selection)S 163 x(criteria.)S 251 x(The)SxF162 x(CLUSTER)S 162 x(optio)S 2 x(n)S 162 x(is)S 162 x(ignored)S 163 xM(when)S 162 x(speci\211ed)S 163 x(from)S 162 x(a)S 10923 X 498 y(noncluster)S J149 x(system.)S 10923 X 697 y(Y)S -51 x(ou)S 152 x(cannot)S 153 x(negate)SF152 x(this)S 152 x(quali\211er)S 153 x(\(it)S 153 x(is)S 152 x(equal)SE152 x(to)S 153 x(/NODENAME=*\),)S 151 x(nor)S 152 x(can)S 152 x(you)S)E10923 X 498 y(specify)S 149 x(this)S 150 x(quali\211er)S 150 x(with)S1C150 x(the)S 150 x(/NODENAME)S 149 x(quali\211er)S -33 x(.)S 10923 XcG698 y(The)S 149 x(default)S 151 x(is)S 149 x(/NOCLUSTER.)S 4497 X 747 y(D(HEADER)S 8581 X(Output)S 840 x(Controls)S 150 x(whether)S 150 x(a)SC151 x(header)S 151 x(line)S 150 x(is)S 150 x(displayed.)S 227 x(Y)SxJ-51 x(ou)S 151 x(cannot)S 150 x(specify)S 151 x(this)S 150 x(quali\211er)SN10923 X 498 y(with)S 149 x(the)S 150 x(/SUMMAR)S -16 x(Y)S 149 x(quali\211er)SI-32 x(.)S 10923 X 697 y(The)S 149 x(default)S 151 x(is)S 149 x(/HEADER.)S H4497 X 748 y(OUTPUT)S 8581 X(Output)S 840 x F157(Forma)S -2 x(t:)S 224 xFF155(/OUTPUT=\211lename)S 10923 X 697 y(Controls)S 163 x(where)S 164 xG(the)S 164 x(output)S 165 x(of)S 164 x(the)S 164 x(command)S 164 x(is)SxJ163 x(sent.)S 252 x(Y)S -50 x(ou)S 164 x(must)S 163 x(have)S 164 x(write)SG10923 X 498 y(access)S 154 x(to)S 156 x(the)S 156 x(speci\211ed)S 156 xSC(area.)S 236 x(The)S 155 x(default)S 157 x(area)S 156 x(for)S 156 xSI(a)S 155 x(\211le)S 155 x(is)S 155 x(the)S 156 x(current)S 156 x(device)SmC10923 X 498 y(and)S 149 x(direct)S 2 x(ory)S -50 x(.)S 4497 X 747 yeD(RCLUSTER)S 8581 X(Input)S 10923 X F157(Forma)S -2 x(t:)S 224 x F155D(/RCLUSTER=\(clustername[,...]\))S 10923 X 698 y(Speci\211es)S 153 xG(the)S 153 x(remote)S 152 x(cluster)S 153 x(or)S 153 x(clusters)S 152 xxC(for)S 153 x(which)S 152 x(the)S 153 x(selection)S 153 x(criteria)S1F154 x(apply)S -49 x(.)S 10923 X 498 y(If)S 170 x(you)S 169 x(specify)SF170 x(multiple)S 170 x(cluster)S 170 x(names,)S 173 x(separate)S 171 xG(them)S 169 x(with)S 170 x(commas)S 169 x(and)S 10923 X 498 y(enclose)S1G149 x(the)S 150 x(list)S 150 x(in)S 149 x(parent)S 2 x(heses.)S 10923 X C697 y(JPI)S 155 x(will)S 156 x(make)S 155 x(selections)S 156 x(on)S9C155 x(all)S 156 x(nodes)S 155 x(currently)S 156 x(executing)S 155 x E(in)S 156 x(the)S 155 x(cluster)S 156 x(and)S 10923 X 499 y(meeting)SxE167 x(all)S 167 x(other)S 168 x(speci\211ed)S 168 x(selection)S 168 xxJ(criteria.)S 260 x(As)S 166 x(with)S 167 x(the)S 168 x(/NODENAME)S 10923 XF498 y(quali\211er)S -33 x(,)S 173 x(these)S 168 x(values)S 168 x(can)SC168 x(be)S 169 x(logical)S 168 x(names.)S 261 x(The)S 168 x(limit)SSE169 x(for)S 168 x(cluster)S 169 x(name)S 10923 X 498 y(values)S 149 xsL(is)S 149 x(50.)S 10923 X 697 y(Y)S -51 x(ou)S 153 x(must)S 152 x(de\211ne)SF153 x(the)S 153 x(JPI)S 153 x(DECnet)S 152 x(object)S 153 x(on)S 153 xE(the)S 153 x(remote)S 153 x(node;)S 154 x(this)S 153 x(object)S 153 xSF(must)S 10923 X 498 y(point)S 141 x(to)S 141 x(a)S 141 x(valid)S 141 xF(JPI)S 141 x(image)S 141 x(\(V)S -42 x(ersion)S 141 x(2.0)S 140 x(or)SE141 x(higher\).)S 224 x(Y)S -50 x(ou)S 141 x(can)S 140 x(pass)S 140 xyF(access)S 140 x(control)S 10923 X 498 y(information)S 146 x(as)S 146 xN(part)S 146 x(of)S 147 x(the)S 146 x(node)S 146 x(name)S 145 x(speci\211cati)SL2 x(on.)S 224 x(In)S 146 x(the)S 146 x(absence)S 146 x(of)S 146 x(optional)SC10923 X 499 y(proxy)S 151 x(access)S 152 x(information)S 153 x(on)SeG152 x(the)S 152 x(target)S 153 x(node)S 153 x(or)S 152 x(nodes,)S 152 x3D(default)S 154 x(DECnet)S 151 x(access)S 10923 X 498 y(information)SD150 x(applie)S 2 x(s.)S 10923 X 697 y(Specifying)S 168 x(/RCLUSTER)SE167 x(negates)S 167 x(default)S 169 x(selection)S 168 x(criteri)S 2 x G(a)S 167 x(on)S 168 x(the)S 168 x(issuing)S 10923 X 498 y(node.)S 231 x1O(If)S 154 x(you)S 153 x(also)S 153 x(want)S 154 x(cluster)S 153 x(information)S G154 x(about)S 154 x(the)S 154 x(issuing)S 152 x(node)S 154 x(or)S 153 xtF(cluster)S -33 x(,)S 10923 X 498 y(you)S 160 x(must)S 160 x(explicit)SE2 x(ly)S 161 x(specify)S 161 x(a)S 161 x(/NODENAME)S 160 x(or)S 161 x D(/CLUSTER)S 160 x(quali\211er)S 162 x(on)S 161 x(the)S 10923 X 498 yG(command)S 149 x(line.)S 4497 X 748 y(SELECTION)S 8581 X(Output)S 840 xhH(Indicates)S 157 x(that)S 156 x(selection)S 157 x(criteria)S 157 x(are)SD156 x(to)S 156 x(be)S 156 x(displayed.)S 238 x(The)S 155 x(command)SK156 x(line)S 156 x(and)S 10923 X 498 y(any)S 149 x(default)S 151 x(values)SrH149 x(will)S 150 x(be)S 150 x(displayed.)S 225 x(\(See)S 150 x(Example)SH150 x(1)S(\203)S(1.\))S 10923 X 697 y(If)S 155 x(you)S 154 x(use)S 154 xF(the)S 154 x(/SELECTION)S 154 x(quali\211er)S 156 x(and)S 155 x(also)SH154 x(supply)S 154 x(password)S 155 x(information)S 10923 X 498 y(with)SE166 x(an)S 167 x(/RCLUSTER)S 166 x(quali\211er)S -32 x(,)S 170 x(an)SsI167 x(/RNODENAME)S 165 x(quali\211er)S -32 x(,)S 171 x(or)S 166 x(both,)SSL172 x(the)S 10923 X 498 y(literal)S 177 x(word)S 176 x(`)S -8 x(`password')SE-7 x(')S 176 x(is)S 175 x(substituted)S 177 x(for)S 176 x(the)S 176 xK(actual)S 177 x(password)S 176 x(on)S 176 x(the)S 10923 X 499 y(displayed)S9C150 x(selection)S 150 x(line.)S 10923 X 697 y(The)S 149 x(default)SG151 x(is)S 149 x(/NOSELECTION.)S 22040 X 731 y(\(continued)S 151 x(on)SF149 x(next)S 150 x(page\))S 5 SC 4497 38258 XY F40(1\20312)S 399 x F384(System)S 150 x(Mana)S 2 x(gement)S 150 x(Examples)SEP PPx %%PageTrailers2%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman#%%+ NewCenturySchlbk-Bold HelveticaS%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)i %%+ (BLACK)9%%+ (FOOTCOLOR)x%d%%Page: (1-13) 141%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend) PaperHeight PaperWidth PM 0 0 XYJ4 SC 18309 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 167 x(Examples)SC15918 X 647 y(1.1)S 167 x(Job)S 167 x(Process)S 167 x(Information)SJF168 x(\(JPI\))S 166 x(Utility)S 0 SC 4497 4784 XY F36(T)S -37 x(able)SE150 x(1)S(\203)S(2)S 150 x(\(Cont.\))S 399 x(JPI)S 150 x(Input/)S 2 xSK(Output)S 149 x(Options)S 4497 X 323 y 22716 24 R 4497 6104 XY F40(Option)S8D8581 X -499 y(T)S -33 x(ype)S 153 x(of)S 8581 X 499 y(Option)S 897 xF(Description)S 4497 X 298 y 22716 24 R 4497 7150 XY F155(SORT)S 8581 XJ(Output)S 840 x F157(Forma)S -2 x(t:)S 224 x F155(SORT=\(keyword[,...]\))SE10923 X 697 y(Speci\211es)S 196 x(the)S 196 x(sort)S 196 x(sequence)SrD196 x(for)S 197 x(the)S 196 x(output.)S 318 x(V)S -42 x(alid)S 197 xD(keywords)S 195 x(are)S 10923 X 498 y(BASEPRIORITY)S -51 x(,)S 149 xG(IMAGE,)S 149 x(JOBTYPE,)S 148 x(MODE,)S 148 x(NODENAME,)S 149 x(PID,)S6K149 x(PROCESS,)S 10923 X 498 y(ST)S -25 x(A)S -25 x(TE,)S 149 x(TERMINAL,)SlF149 x(USERNAME,)S 150 x(and)S 150 x(WSSIZE.)S 10923 X 698 y(If)S 160 xJ(you)S 159 x(specify)S 160 x(multiple)S 161 x(keywords,)S 161 x(separate)SD161 x(them)S 160 x(with)S 160 x(commas)S 158 x(and)S 160 x(enclose)SG10923 X 498 y(the)S 158 x(list)S 158 x(in)S 157 x(parenthe)S 2 x(ses.)SyP239 x(Y)S -50 x(ou)S 158 x(cannot)S 158 x(use)S 157 x(this)S 158 x(quali\211er)SN158 x(with)S 158 x(the)S 158 x(/SUMMAR)S -16 x(Y)S 10923 X 498 y(quali\211er)SH-33 x(.)S 10923 X 697 y(The)S 161 x(default)S 163 x(is)S 161 x(/NOSORT)SD-42 x(.)S 161 x(If)S 162 x(you)S 161 x(specify)S 162I7$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1j" x(/SORT)S 161 xL(without)S 162 x(any)S 161 x(keywords,)S 164 x(the)S 10923 X 499 y(default)SE151 x(sort)S 149 x(sequence)S 150 x(is)S 149 x(by)S 150 x(ascending)S5F150 x(user)S 149 x(name.)S 224 x(The)S 150 x(default)S 151 x(sorting)SE149 x(order)S 151 x(is)S 10923 X 498 y(ascending.)S 10923 X 697 y(Y)S)F-51 x(ou)S 150 x(can)S 150 x(specify)S 149 x(the)S 150 x(order)S 150 xF(for)S 150 x(each)S 150 x(keyword)S 150 x(speci\211ed.)S 10923 X 697 yIF157(Example:)S 223 x F155(/SORT=\(USERNAME=DESCENDING,WSSIZE\))S 10923 XoC698 y(The)S 167 x(command)S 168 x(in)S 167 x(this)S 168 x(example)S9C168 x(sorts)S 167 x(the)S 168 x(output)S 169 x(\211rst)S 167 x(by)S)G168 x(descending)S 168 x(user)S 10923 X 498 y(name,)S 148 x(and)S 150 x C(then,)S 150 x(within)S 150 x(user)S 149 x(name,)S 149 x(by)S 149 xeC(ascending)S 150 x(working)S 149 x(set)S 150 x(size.)S 4497 X 747 yoC(SUMMAR)S -16 x(Y)S 4497 X 498 y(/NOSUMMAR)S -17 x(Y)S 805 x -498 y(E(Output)S 840 x(Limits)S 154 x(the)S 155 x(display)S 155 x(to)S 155 x(D(only)S 154 x(a)S 155 x(summary)S 153 x(line.)S 234 x(Y)S -50 x(ou)SG155 x(cannot)S 155 x(specify)S 155 x(this)S 154 x(quali\211er)S 10923 XaG498 y(with)S 149 x(the)S 150 x(/HEADER)S 148 x(or)S 150 x(/SORT)S 149 xAE(quali\211ers.)S 10923 X 698 y(The)S 149 x(default)S 151 x(is)S 149 x J(/SUMMAR)S -16 x(Y)S -50 x(.)S 4497 X 747 y(SW)S -41 x(AP)S 8581 X(Input)SK10923 X(Causes)S 149 x(the)S 151 x($GETJPI)S 151 x(system)S 149 x(service)SsF151 x(to)S 151 x(swap)S 150 x(in)S 151 x(any)S 150 x(processes)S 150 xF(that)S 152 x(have)S 150 x(been)S 10923 X 498 y(swapped)S 155 x(out.)SH234 x(Y)S -50 x(ou)S 154 x(can)S 155 x(use)S 154 x(this)S 155 x(option)SJ155 x(to)S 155 x(retrieve)S 156 x(any)S 154 x(process)S 154 x(informatio)SI2 x(n)S 154 x(in)S 10923 X 498 y(the)S 149 x(outswapped)S 151 x(process)S(D149 x(data)S 151 x(structures.)S 10923 X 697 y(Currently)S -50 x(,)SH159 x(the)S 158 x(process)S 158 x(image)S 158 x(name)S 157 x(and)S 159 xH(working)S 157 x(set)S 158 x(size)S 157 x(are)S 158 x(maintained)S 159 xF(in)S 10923 X 499 y(swappable)S 159 x(data)S 159 x(structures;)S 162 xN(you)S 157 x(can)S 159 x(retrieve)S 158 x(them)S 158 x(by)S 158 x(specifying)SD158 x(the)S 159 x(/SW)S -42 x(AP)S 10923 X 498 y(quali\211er)S -33 xG(.)S 10923 X 697 y(The)S 149 x(default)S 151 x(is)S 149 x(/NOSW)S -41 x5D(AP)S -58 x(.)S 10923 X 698 y F157(Performance)S 154 x(note:)S 233 xFF155(Inswapping)S 154 x(can)S 154 x(cause)S 154 x(considerable)S 155 xI(degradati)S 2 x(on)S 153 x(in)S 154 x(JPI)S 10923 X 498 y(performance.)S1G4497 X 747 y(SYMBOLS)S 4497 X 498 y(/NOSYMBOLS)S 8581 X -498 y(Output)S5E840 x(Instructs)S 165 x(JPI)S 166 x(to)S 165 x(create)S 166 x(local)SxE166 x(string)S 165 x(symbols)S 164 x(that)S 166 x(equate)S 166 x(to)SfC166 x(the)S 165 x(formatted)S 10923 X 498 y(detail)S 153 x(lines.)SxE228 x(Symbol)S 152 x(names)S 151 x(are)S 152 x(of)S 152 x(the)S 152 x6D(form)S 151 x(JPI$DET)S -24 x(AIL_LINE_nnnn,)S 153 x(where)S 10923 XG498 y F156(nnnn)S 149 x F155(is)S 149 x(a)S 150 x(zero-\211lled)S 150 xkH(and)S 150 x(right-justi\211ed)S 150 x(integer)S -32 x(.)S 10923 X 697 yG(In)S 156 x(additio)S 2 x(n,)S 157 x(the)S 156 x(local)S 156 x(string)SnC156 x(symbol)S 155 x(JPI$I)S 2 x(TEM_COUNT)S 156 x(contains)S 156 x1F(an)S 156 x(integer)S 10923 X 499 y(value)S 166 x(representing)S 167 xF(the)S 167 x(total)S 168 x(number)S 166 x(of)S 166 x(processes)S 166 xC(matching)S 167 x(the)S 166 x(selection)S 10923 X 498 y(criteria.)SnH225 x(When)S 149 x(there)S 150 x(are)S 150 x(no)S 149 x(matches,)S 149 xF(the)S 150 x(symbol)S 149 x(is)S 150 x(equated)S 150 x(to)S 150 x(0.)SG4497 X 747 y(TRAILER)S 4497 X 498 y(/NOTRAILER)S 8581 X -498 y(Output)SnD840 x(Causes)S 152 x(a)S 154 x(one-line)S 155 x(summary)S 152 x(of)SH155 x(the)S 154 x(number)S 153 x(of)S 154 x(processes)S 154 x(to)S 154 xF(be)S 154 x(displayed)S 155 x(after)S 10923 X 498 y(the)S 164 x(last)SD165 x(detail)S 165 x(process)S 164 x(line)S 165 x(has)S 164 x(been)SD164 x(displayed.)S 254 x(These)S 164 x(processes)S 164 x(are)S 165 xJ(ones)S 10923 X 498 y(found)S 150 x(within)S 149 x(the)S 150 x(selection)SG151 x(criteria)S 150 x(to)S 150 x(which)S 150 x(you)S 149 x(had)S 150 xtG(access)S 149 x(privileges.)S 10923 X 698 y(The)S 149 x(default)S 151 x5I(is)S 149 x(/TRAILER.)S 4497 X 398 y 22716 24 R 8083 29466 XY F36(Usage)S3C166 x(Note)S 8083 X 697 y F151(Select)S 184 x(remote)S 184 x(node)S K185 x(information)S 184 x(by)S 185 x(using)S 185 x(the)S 184 x(/RNODENAME)S9I183 x(quali\211er;)S 194 x(select)S 8083 X 598 y(remote)S 178 x(cluster)SeC178 x(information)S 178 x(by)S 178 x(specifying)S 179 x(the)S 178 xuD(/RCLUSTER)S 177 x(quali\211er;)S 185 x(or)S 178 x(you)S 178 x(can)SE8083 X 598 y(use)S 177 x(both)S 177 x(quali\211ers)S 176 x(together)S)D-36 x(.)S 271 x(The)S 177 x(syntax)S 178 x(for)S 176 x(these)S 177 xD(quali\211ers)S 177 x(is)S 176 x(identical)S 176 x(to)S 177 x(that)SE8083 X 598 y(speci\211ed)S 166 x(with)S 166 x(the)S 166 x(/NODENAME)S(H165 x(quali\211er)S -36 x(.)S 249 x(\(See)S 166 x(T)S -31 x(able)S 166 xH(1)S(\203)S(1.\))S 8083 X 896 y(In)S 176 x(addition,)S 178 x(you)S 176 xI(can)S 176 x(specify)S 175 x(access)S 175 x(control)S 176 x(information)S5C175 x(in)S 176 x(the)S 175 x(standard)S 175 x(DECnet)S 8083 X 598 ySH(syntax)S 167 x(for)S 166 x(each)S 167 x(of)S 166 x(the)S 166 x(remote)SE166 x(nodes)S 166 x(or)S 166 x(clusters)S 166 x(you)S 167 x(specify)S1D-55 x(.)S 5 SC 19405 38258 XY F38(System)S 166 x(Mana)S 2 x(gement)S$167 x(Examples)S 399 x F40(1\20313)SEP PP5 %%PageTrailer 2%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman1%%+ NewCenturySchlbk-Bold NewCenturySchlbk-Italicx %%+ Helvetica-%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)1 %%+ (BLACK)S%%+ (FOOTCOLOR)(%h%%Page: (1-14) 150%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)) PaperHeight PaperWidth PM 0 0 XYG4 SC 4497 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 166 x(Exampl)S2I2 x(es)S 4497 X 647 y(1.2)S 167 x(T)S -44 x(erminating)S 167 x(Processe)S F2 x(s)S 0 SC 4497 4689 XY F24(1.2)S 398 x(T)S -52 x(erminating)S 232 xD(Processes)S 8083 X 897 y F151(The)S 177 x(KILLPROCES)S -2 x(S.COM)SI176 x(procedure)S 178 x(allows)S 175 x(you)S 177 x(to)S 176 x(terminate)SC176 x(processes)S 176 x(on)S 176 x(the)S 8083 X 598 y(local)S 166 xRC(node)S 167 x(or)S 166 x(cluster)S -37 x(.)S 8083 X 896 y(Y)S -55 xaF(ou)S 185 x(can)S 186 x(use)S 186 x(the)S 185 x(procedure)S 187 x(to)SJ185 x(terminate)S 185 x(only)S 187 x(processes)S 184 x(for)S 186 x(which)SC186 x(you)S 186 x(have)S 8083 X 598 y(privilege.)S 8083 X 897 y(T)S E-45 x(o)S 166 x(invoke)S 167 x(the)S 166 x(procedure,)S 168 x(enter)S D166 x(the)S 166 x(following)S 167 x(command:)S 8083 X 896 y F238($)SG1 SC 240 x(@KILLPROCESS.)S 2 x(COM)S 0 SC 8083 X 897 y F151(The)S 181 x3N(system)S 179 x(returns)S 181 x(the)S 180 x(process)S 179 x(identi\211cation)SF181 x(\(PID\),)S 180 x(terminal)S 180 x(identi\211er)S -37 x(,)S 184 xH(user)S 8083 X 598 y(name,)S 167 x(image)S 166 x(name,)S 167 x(process)SE166 x(name,)S 166 x(and)S 167 x(node)S 166 x(for)S 166 x(each)S 167 x7D(process)S 166 x(on)S 166 x(the)S 166 x(system.)S 9040 12161 XY F238H(Proc)S 240 x(Id)S 478 x(Term)S 13106 X(Username)S 16215 X(Image)S 240 xH(Name)S 20041 X(Process)S 241 x(Name)S 25064 X(Node)S 8322 X 797 y(1\))SI240 x(27C058B4)S 240 x(FTA558:)S 241 x(SMITH.......)S 241 x(VMSHELP....)SSD2 x(....)S 239 x(_FTA558:)S 2 x(............)S 241 x(BHAK..)S 8322 XG498 y(2\))S 240 x(27C014CE)S 240 x(RTA10:.)S 241 x(JONES.......)S 241 x M(...........)S 2 x(....)S 478 x(-)S 240 x(Joe)S 239 x(-)S 240 x(...........)S0H241 x(BHAK..)S 8322 X 499 y(3\))S 240 x(27C05EDC)S 240 x(VTA771:)S 241 xC(WALTERS.....)S 241 x(...........)S 2 x(....)S 239 x(_VTA771:)S 2 x H(............)S 241 x(BHAK..)S 8322 X 498 y(4\))S 240 x(27C034E8)S 240 xD(VTA773:)S 241 x(ADAMS.......)S 241 x(RTPAD......)S 2 x(....)S 239 xF(_VTA773:)S 2 x(............)S 241 x(BHAK..)S 8322 X 498 y(5\))S 240 xD(27C06AF1)S 240 x(.......)S 241 x(DAVIS.......)S 241 x(...........)SE2 x(....)S 239 x(Dan)S 240 x(Davis.....)S 2 x(......)S 240 x(BHAK..)SwH8322 X 498 y(6\))S 240 x(27C060F2)S 240 x(RTA25:.)S 241 x(JEFFRIES....)SH241 x(...........)S 2 x(....)S 239 x(_RTA25:.)S 2 x(............)S 241 xC(BHAK..)S 8322 X 498 y(7\))S 240 x(27C04D27)S 240 x(FTA542:)S 241 xSC(SMITH.......)S 241 x(...........)S 2 x(....)S 239 x(SMITH...)S 2 x)H(............)S 241 x(BHAK..)S 8322 X 498 y(8\))S 240 x(26602A7A)S 240 xD(FTA145:)S 241 x(SMITH.......)S 241 x(...........)S 2 x(....)S 239 xF(SMITH...)S 2 x(............)S 241 x(DELAND)S 8322 X 498 yJľ&$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1j[t"(9\))S 240 xD(26602AAC)S 240 x(FTA154:)S 241 x(SMITH.......)S 241 x(...........)SD2 x(....)S 239 x(_FTA154:)S 2 x(............)S 241 x(DELAND)S 8083 XH498 y(10\))S 240 x(27803033)S 240 x(FTA111:)S 241 x(SMITH.......)S 241 xC(...........)S 2 x(....)S 239 x(_FTA111:)S 2 x(............)S 241 x D(IPL31.)S 8083 X 499 y(11\))S 240 x(2780309B)S 240 x(FTA114:)S 241 xC(SMITH.......)S 241 x(...........)S 2 x(....)S 239 x(SMITH...)S 2 x-C(............)S 241 x(IPL31.)S 8083 X 498 y(12\))S 240 x(278002FD)S)C240 x(RTA12:.)S 241 x(JONES.......)S 241 x(...........)S 2 x(....)S5I478 x(-)S 240 x(Joe)S 239 x(-)S 240 x(...........)S 241 x(IPL31.)S 8083 X0H498 y(13\))S 240 x(212000C3)S 240 x(MBA182:)S 241 x(JONES.......)S 241 xC(DECW$MWM...)S 2 x(....)S 239 x(DECW$MWM)S 2 x(............)S 241 x)D(WRTR07)S 8083 X 498 y(14\))S 240 x(212000C8)S 240 x(.......)S 241 xC(JONES.......)S 241 x(...........)S 2 x(....)S 239 x(VUE$JONE)S 2 xsC(S_4.........)S 241 x(WRTR07)S 8083 X 498 y(15\))S 240 x(212000D1)SSC240 x(MBA197:)S 241 x(JONES.......)S 241 x(DECW$CLOCK.)S 2 x(....)S9F239 x(VUE$JONE)S 2 x(S_5.........)S 241 x(WRTR07)S 8083 X 498 y(16\))SI240 x(212000D4)S 240 x(.......)S 241 x(JONES.......)S 241 x(...........)S(D2 x(....)S 239 x(VUE$JONE)S 2 x(S_6.........)S 241 x(WRTR07)S 8083 XH498 y(17\))S 240 x(212000DA)S 240 x(FTA21:.)S 241 x(JONES.......)S 241 xC(RTPAD......)S 2 x(....)S 239 x(_FTA21:.)S 2 x(............)S 241 xgD(WRTR07)S 8083 X 499 y(18\))S 240 x(2120026E)S 240 x(FTA22:.)S 241 xC(JONES.......)S 241 x(RTPAD......)S 2 x(....)S 239 x(JONES...)S 2 x)C(............)S 241 x(WRTR07)S 8083 X 498 y(19\))S 240 x(212000B0)StC240 x(FTA15:.)S 241 x(JONES.......)S 241 x(DECW$SESSIO)S 2 x(N...)S(I478 x(-)S 240 x(Joe)S 239 x(-)S 240 x(...........)S 241 x(WRTR07)S 8083 XSI797 y(Select)S 240 x(Process)S 241 x(to)S 239 x(Terminate)S 241 x(\('/')S9I240 x(to)S 239 x(Select)S 240 x(Specific)S 241 x(Users\))S 240 x([Exit])S5I8083 X 896 y F151(Y)S -55 x(ou)S 167 x(can)S 167 x(choose)S 166 x(which)S4K167 x(processes)S 166 x(to)S 167 x(terminate)S 166 x(by)S 167 x(selecting)SNE167 x(the)S 167 x(number)S -36 x(.)S 250 x(T)S -45 x(o)S 166 x(view)S(F167 x(all)S 8083 X 598 y(of)S 172 x(the)S 171 x(processes)S 171 x(of)SH171 x(one)S 172 x(user)S -37 x(,)S 174 x(enter)S 171 x(a)S 172 x(slash)SL171 x(\()S 83 x(/)S 83 x(\))S(.)S 260 x(The)S 172 x(system)S 171 x(returns)SF172 x(the)S 172 x(following)S 8083 X 598 y(prompt:)S 8083 X 896 y F238F(Enter)S 240 x(Username)S 241 x(to)S 239 x(Select)S 240 x(From)S 240 xF([*])S 8083 X 897 y F151(At)S 179 x(this)S 179 x(prompt,)S 183 x(the)SF180 x(default,)S 183 x(the)S 179 x(asterisk)S 179 x(\()S 83 x(*)S 83 xH(\))S(,)S 183 x(displays)S 179 x(the)S 180 x(entire)S 179 x(list)S 179 xC(of)S 179 x(users)S 8083 X 598 y(again.)S 266 x(However)S -36 x(,)S E176 x(if)S 173 x(you)S 175 x(enter)S 175 x(SMITH,)S 174 x(for)S 174 xfF(example,)S 176 x(the)S 174 x(system)S 174 x(returns)S 174 x(a)S 174 xG(sorted)S 8083 X 598 y(list)S 165 x(of)S 166 x(Smith')S -19 x(s)S 166 x)E(processes)S 165 x(from)S 166 x(which)S 167 x(you)S 167 x(can)S 166 xdH(then)S 167 x(choose.)S 9040 X 896 y F238(Proc)S 240 x(Id)S 478 x(Term)SG13106 X(Username)S 16215 X(Image)S 240 x(Name)S 20041 X(Process)S 241 x(J(Name)S 25064 X(Node)S 8322 X 797 y(1\))S 240 x(27C058B4)S 240 x(FTA558:)SD241 x(SMITH.......)S 241 x(VMSHELP....)S 2 x(....)S 239 x(_FTA558:)SE2 x(............)S 241 x(BHAK..)S 8322 X 498 y(2\))S 240 x(27C04D27)S(C240 x(FTA542:)S 241 x(SMITH.......)S 241 x(...........)S 2 x(....)SSE239 x(SMITH...)S 2 x(............)S 241 x(BHAK..)S 8322 X 499 y(3\))StI240 x(26602A7A)S 240 x(FTA145:)S 241 x(SMITH.......)S 241 x(...........)S)D2 x(....)S 239 x(SMITH...)S 2 x(............)S 241 x(DELAND)S 8322 XG498 y(4\))S 240 x(26602AAC)S 240 x(FTA154:)S 241 x(SMITH.......)S 241 x C(...........)S 2 x(....)S 239 x(_FTA154:)S 2 x(............)S 241 x8C(DELAND)S 8322 X 498 y(5\))S 240 x(27803033)S 240 x(FTA111:)S 241 xgC(SMITH.......)S 241 x(...........)S 2 x(....)S 239 x(_FTA111:)S 2 x)H(............)S 241 x(IPL31.)S 8322 X 498 y(6\))S 240 x(2780309B)S 240 xD(FTA114:)S 241 x(SMITH.......)S 241 x(...........)S 2 x(....)S 239 xF(SMITH...)S 2 x(............)S 241 x(IPL31.)S 8083 X 897 y F151(When)SC193 x(you)S 193 x(have)S 194 x(selected)S 192 x(a)S 192 x(process)StE192 x(to)S 193 x(terminate,)S 199 x(the)S 193 x(system)S 192 x(will)SiF191 x(ask)S 193 x(for)S 8083 X 597 y(con\211rmation)S 167 x(by)S 167 xF(returning)S 167 x(the)S 167 x(following)S 166 x(query:)S 8083 X 897 yHF238(Please)S 240 x(Confirm!)S 241 x(Kill)S 240 x(this)S 239 x(Process)SF2 x(?)S 239 x([No])S 8083 X 897 y F151(If)S 161 x(you)S 162 x(choose)SC161 x(no,)S 163 x(the)S 162 x(default,)S 162 x(the)S 161 x(system)SxE161 x(will)S 160 x(return)S 162 x(the)S 161 x(complete)S 161 x(list)SaH161 x(of)S 161 x(processes.)S 8083 X 597 y(If)S 166 x(you)S 167 x(type)SF166 x(yes,)S 167 x(the)S 166 x(system)S 165 x(will)S 166 x(terminate)SL166 x(the)S 166 x(process)S 166 x(you)S 167 x(selected.)S 5 SC 4497 38258 XYHF40(1\20314)S 399 x F38(System)S 167 x(Manage)S 2 x(ment)S 166 x(Examp)S 2 x(les)SnEP PPl %%PageTraileru2%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman%%+ Courier Helvetica %%PageProcessColors:%%PageCustomColors: (HEADCOLOR)e %%+ (BLACK)%%+ (USERTAGCOLOR)%%+ (FOOTCOLOR)l%:%%Page: (1-15) 16t%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)m PaperHeight PaperWidth PM 0 0 XYJ4 SC 18309 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 167 x(Examples)SI19681 X 647 y(1.2)S 167 x(T)S -44 x(erminatin)S 2 x(g)S 166 x(Processes)SSE0 SC 8083 4555 XY F151(For)S 175 x(each)S 175 x(process)S 174 x(you)SCJ175 x(terminate,)S 176 x(user)S 175 x(Smith)S 174 x(will)S 173 x(receive)SF175 x(the)S 175 x(following)S 174 x(terminal)S 8083 X 598 y(message,)SF178 x(where)S 176 x(SYSTEM)S 175 x(is)S 175 x(the)S 176 x(user)S 176 xH(name)S 176 x(of)S 175 x(the)S 176 x(process)S 175 x(terminating)S 176 xE(Smith')S -19 x(s)S 8083 X 598 y(process:)S 8083 6946 XY F238(Reply)ShH240 x(received)S 241 x(on)S 239 x(BHAK)S 240 x(from)S 240 x(user)S 240 xH(SYSTEM)S 240 x(at)S 239 x(_BHAK$RTA)S 2 x(25:)S 718 x(16:32:17)S 8083 XD797 y(Sorry.)S 8083 X 498 y(Your)S 240 x(Process)S 240 x(was)S 240 xH(killed)S 240 x(at)S 479 x(3-MAR-1994)S 241 x(16:32:17.46)S 8083 X 498 yC(By)S 240 x(User)S 239 x(SYSTEM)S 241 x(at)S 239 x(terminal)S 241 xaF(RTA25:)S 240 x(on)S 239 x(Node)S 240 x(BHAK)S 8083 X 499 y(Terminal)SF241 x(_BHAK$RTA25:)S 241 x(has)S 239 x(been)S 240 x(notified)S 2 x(.)SF8083 X 896 y F151(Y)S -55 x(ou)S 170 x(might)S 171 x(use)S 170 x(the)SN170 x(procedure)S 171 x(to)S 170 x(terminate)S 171 x(SMITH)S 170 x(processes)SE169 x(directly)S 171 x(by)S 171 x(entering)S 8083 X 598 y(the)S 166 xxN(following)S 167 x(command:)S 8083 X 897 y F238($)S 1 SC 240 x(@KILLPROCESS.)SF2 x(COM)S 239 x(SMITH)S 0 SC 8083 X 896 y F151(In)S 180 x(this)S 179 xH(example,)S 184 x(the)S 180 x(system)S 179 x(returns)S 181 x(the)S 179 xD(PID,)S 180 x(terminal)S 180 x(identi\211er)S -36 x(,)S 183 x(user)SF180 x(name,)S 8083 X 598 y(image)S 166 x(name,)S 167 x(process)S 166 xJ(name,)S 167 x(and)S 166 x(node)S 166 x(for)S 167 x(each)S 166 x(process)SO166 x(with)S 165 x(the)S 167 x(user)S 166 x(name)S 166 x(Smith.)S 9518 14319 XY.FF238(Proc)S 240 x(Id)S 479 x(Term)S 13584 X(Username)S 16693 X(Image)SG240 x(Name)S 20520 X(Process)S 240 x(Name)S 25542 X(Node)S 8322 X 797 y3E(\(1\))S 479 x(27C058B4)S 241 x(FTA558:)S 240 x(SMITH.....)S 2 x(..)SFH239 x(VMSHELP..)S 2 x(......)S 240 x(_FTA558:....)S 2 x(........)S 240 xE(BHAK..)S 8322 X 498 y(\(2\))S 479 x(27C05EDC)S 241 x(VTA771:)S 240 xyJ(SMITH.....)S 2 x(..)S 239 x(.........)S 2 x(......)S 240 x(_VTA771:....)SC2 x(........)S 240 x(BHAK..)S 8322 X 498 y(\(3\))S 479 x(27C034E8)S J241 x(VTA773:)S 240 x(SMITH.....)S 2 x(..)S 239 x(RTPAD....)S 2 x(......)SG240 x(_VTA773:....)S 2 x(........)S 240 x(BHAK..)S 8322 X 498 y(\(4\))S N479 x(27C06AF1)S 241 x(.......)S 240 x(SMITH.....)S 2 x(..)S 239 x(.........)SG2 x(......)S 240 x(Sue)S 239 x(Smith...)S 2 x(........)S 240 x(BHAK..)SSH8322 X 498 y(\(5\))S 479 x(27C060F2)S 241 x(RTA25:.)S 240 x(SMITH.....)SK2 x(..)S 239 x(.........)S 2 x(......)S 240 x(_RTA25:.....)S 2 x(........)S.D240 x(BHAK..)S 8322 X 498 y(\(6\))S 479 x(27C04D27)S 241 x(FTA542:)SO240 x(SMITH.....)S 2 x(..)S 239 x(.........)S 2 x(......)S 240 x(SMITH.......)S.C2 x(........)S 240 x(BHAK..)S 8322 X 498 y(\(7\))S 479 x(26602A7A)S2J241 x(FTA145:)S 240 x(SMITH.....)S 2 x(..)S 239 x(.........)S 2 x(......)SG240 x(SMITH.......)S 2 x(........)S 240 x(DELAND)S 8322 X 498 y(\(8\))S2N479 x(26602AACKJk$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1j")S 241 x(FTA154:)S 240 x(SMITH.....)S 2 x(..)S 239 x(.........)SF2 x(......)S 240 x(_FTA154:....)S 2 x(........)S 240 x(DELAND)S 8322 XE499 y(\(9\))S 479 x(27803033)S 241 x(FTA111:)S 240 x(SMITH.....)S 2 xSH(..)S 239 x(.........)S 2 x(......)S 240 x(_FTA111:....)S 2 x(........)SE240 x(IPL31.)S 8083 X 498 y(\(10\))S 479 x(2780309B)S 241 x(FTA114:)SxO240 x(SMITH.....)S 2 x(..)S 239 x(.........)S 2 x(......)S 240 x(SMITH.......)S.C2 x(........)S 240 x(IPL31.)S 8083 X 797 y(Select)S 240 x(Process)S1D241 x(to)S 239 x(Terminate)S 241 x(\('/')S 240 x(to)S 239 x(Select)SC240 x(Specific)S 241 x(Users\))S 240 x([Exit]\))S 8083 X 896 y F1511C(Y)S -55 x(ou)S 166 x(can)S 167 x(then)S 166 x(select)S 166 x(any)S M167 x(or)S 166 x(all)S 166 x(of)S 166 x(the)S 166 x(SMITH)S 166 x(processes)SSF165 x(for)S 166 x(termination.)S 8083 X 897 y(For)S 184 x(each)S 184 xD(process)S 184 x(you)S 184 x(terminate,)S 189 x(user)S 184 x(Smith)SF183 x(will)S 183 x(receive)S 184 x(the)S 184 x(same)S 183 x(terminal)SD8083 X 598 y(message)S 166 x(shown)S 166 x(above.)S 8083 X 896 y(Y)SG-55 x(ou)S 168 x(can)S 169 x(also)S 168 x(use)S 169 x(wildcards)S 167 x H(to)S 168 x(sort)S 168 x(the)S 169 x(list)S 168 x(of)S 168 x(processes)SD168 x(by)S 169 x(user)S -37 x(.)S 254 x(For)S 169 x(example,)S 170 xH(you)S 8083 X 598 y(can)S 171 x(obtain)S 171 x(a)S 170 x(listing)S 171 xC(of)S 170 x(all)S 171 x(processes)S 170 x(with)S 170 x(user)S 170 xXC(names)S 171 x(beginning)S 172 x(with)S 170 x(A)S 171 x(and)S 170 xE(B)S 171 x(by)S 8083 X 598 y(entering)S 167 x(the)S 167 x(following)SnE166 x(command:)S 8083 X 897 y F238($)S 1 SC 240 x(@KILLPROCESS.)S 2 xeD(COM)S 239 x(A*)S 240 x(B*)S 0 SC 8083 X 896 y F151(A)S 173 x(copy)SG175 x(of)S 173 x(KILLPROCES)S -2 x(S.COM)S 174 x(is)S 173 x(available)SsG173 x(on)S 174 x(the)S 174 x(OpenVMS)S 173 x(AXP)S 173 x(distribution)SxE8083 X 598 y(media)S 187 x(in)S 187 x(the)S 187 x([DOCUME)S -2 x(NT)S G-27 x(A)S -27 x(TION.V061.EXAMPLES])S 185 x(directory)S -54 x(.)S 291 xmH(For)S 187 x(more)S 8083 X 598 y(information)S 183 x(about)S 182 x(how)SF182 x(to)S 182 x(access)S 182 x(the)S 182 x(\211les)S 182 x(on)S 183 xI(the)S 182 x(distribution)S 182 x(media,)S 187 x(see)S 182 x(the)S 8083 X1D598 y F152(OpenVMS)S 166 x(AXP)S 166 x(CD\203ROM)S 165 x(User)S 28 xC(')S -19 x(s)S 167 x(Guide)S F151(.)S 4497 29711 XY F24(1.3)S 398 x F(Submitting)S 233 x(Periodic)S 232 x(Batch)S 232 x(Jobs)S 8083 X 896 yDF151(The)S 170 x(PERIODIC)S -2 x(.TEMPLA)S -26 x(TE)S 169 x(\211le)SC170 x(can)S 170 x(be)S 170 x(used)S 169 x(to)S 170 x(create)S 169 x(F(procedures)S 171 x(that)S 169 x(allow)S 169 x(you)S 8083 X 598 y(to)SH163 x(execute)S 164 x(periodic,)S 165 x(repetitive)S 163 x(batch)S 163 xG(jobs.)S 250 x(The)S 164 x(procedure)S 164 x(allows)S 162 x(you)S 164 xSE(to)S 163 x(submit)S 162 x(jobs)S 8083 X 598 y(7)S 166 x(days)S 166 x3D(a)S 166 x(week,)S 167 x(but)S 166 x(is)S 165 x(limited)S 166 x(to)SF166 x(executing)S 167 x(on)S 167 x(the)S 166 x(hour)S -36 x(.)S 8083 XG897 y(For)S 173 x(example,)S 174 x(you)S 172 x(may)S 172 x(want)S 172 x G(to)S 172 x(receive)S 172 x(periodic)S 172 x(reports)S 172 x(of)S 172 x(H(users)S 172 x(on)S 172 x(a)S 172 x(system.)S 260 x(T)S -45 x(o)S 8083 XC597 y(do)S 169 x(this,)S 170 x(\211rst)S 169 x(copy)S 170 x(PERIO)S.F-2 x(DIC.TEMPLA)S -27 x(TE)S 169 x(to)S 169 x(a)S 168 x(\211le)S 170 xI(named)S 169 x(USERS.COM)S 168 x(\(or)S 169 x(some)S 8083 X 598 y(other)S C167 x(meaningful)S 167 x(name\).)S 5 SC 19405 38258 XY F38(System)S)>166 x(Mana)S 2 x(gement)S 167 x(Examples)S 399 x F40(1\20315)SEP PPB %%PageTrailer12%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman-%%+ Courier NewCenturySchlbk-Italic Helveticax%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)a %%+ (BLACK)l%%+ (USERTAGCOLOR)%%+ (FOOTCOLOR)9%(%%Page: (1-16) 17e%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)y PaperHeight PaperWidth PM 0 0 XYG4 SC 4497 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 166 x(Exampl)SE2 x(es)S 4497 X 647 y(1.3)S 167 x(Submitting)S 167 x(Periodic)S 167 xSE(Batch)S 166 x(Jobs)S 0 SC 8083 4555 XY F151(Edit)S 171 x(USERS.COM)SSF171 x(and)S 172 x(modify)S 171 x(the)S 172 x(schedule)S 172 x(table.)SF261 x(For)S 172 x(example,)S 174 x(if)S 171 x(you)S 173 x(want)S 171 xH(the)S 8083 X 598 y(job)S 180 x(to)S 179 x(execute)S 180 x(every)S 180 xF(business)S 178 x(day)S 180 x(at)S 179 x(06:00,)S 183 x(12:00,)S 183 xE(18:00,)S 183 x(and)S 179 x(00:00,)S 183 x(the)S 179 x(table)S 8083 X5F598 y(should)S 166 x(appear)S 167 x(as)S 165 x(follows:)S 8083 X 896 yCF238($!)S -478 x 498 y($!)S 15258 X(000000000)S 2 x(0111111111122)SlF2 x(22)S 8083 X 499 y($!)S 15258 X(012345678)S 2 x(9012345678901)S 2 xH(23)S 8083 X 498 y($)S 9996 X(schedul)S 2 x(e_sunday)S 14541 X(=)S 239 xI(")S 20998 X(")S 8083 X 498 y($)S 9996 X(schedul)S 2 x(e_monday)S 14541 XrF(=)S 239 x("1)S 16693 X(1)S 18128 X(1)S 19563 X(1)S 20998 X(")S 8083 XG498 y($)S 9996 X(schedul)S 2 x(e_tuesday)S 719 x(=)S 239 x("1)S 16693 XlJ(1)S 18128 X(1)S 19563 X(1)S 20998 X(")S 8083 X 498 y($)S 9996 X(schedul)SF2 x(e_wednesday)S 241 x(=)S 239 x("1)S 16693 X(1)S 18128 X(1)S 19563 XC(1)S 20998 X(")S 8083 X 498 y($)S 9996 X(schedul)S 2 x(e_thursday)SxD480 x(=)S 239 x("1)S 16693 X(1)S 18128 X(1)S 19563 X(1)S 20998 X(")SG8083 X 498 y($)S 9996 X(schedul)S 2 x(e_friday)S 14541 X(=)S 239 x("1)SsG16693 X(1)S 18128 X(1)S 19563 X(1)S 20998 X(")S 8083 X 499 y($)S 9996 XiH(schedul)S 2 x(e_saturday)S 480 x(=)S 239 x(")S 20998 X(")S 8083 X 896 yFF151(T)S -45 x(o)S 166 x(submit)S 165 x(the)S 166 x(procedure,)S 168 xD(enter)S 166 x(the)S 167 x(following)S 166 x(command:)S 8083 X 897 yCF238($)S 1 SC 240 x(@USERS.COM)S 240 x("SHOW)S 240 x(USERS/FU)S 2 x0D(LL")S 0 SC 8083 X 896 y F151(Note)S 189 x(that)S 188 x(this)S 189 xF(command)S 189 x(procedure)S 189 x(can)S 189 x(be)S 189 x(used)S 189 xC(to)S 188 x(issue)S 189 x(DCL)S 188 x(commands,)S 8083 X 598 y(as)S E181 x(illustrated)S 182 x(above,)S 186 x(or)S 182 x(to)S 182 x(call)S(F181 x(another)S 183 x(command)S 182 x(procedure.)S 281 x(T)S -45 x(o)SF182 x(call)S 181 x(another)S 8083 X 598 y(command)S 166 x(procedure,)SI168 x(enter)S 167 x(the)S 166 x(following,)S 167 x(where)S 166 x(PERIOD)S8C-2 x(IC.COM)S 166 x(is)S 165 x(the)S 167 x(procedure)S 8083 X 598 y3C(containing)S 168 x(the)S 166 x(schedule)S 166 x(and)S 167 x(UPDA)S H-28 x(TE.COM)S 165 x(is)S 166 x(the)S 166 x(procedure)S 167 x(to)S 166 xI(be)S 166 x(submitted:)S 8083 X 896 y F238($)S 1 SC 240 x(@PERIODIC.COM)S1K241 x("@UPDATE.CO)S 2 x(M")S 0 SC 8083 X 897 y F151(The)S 171 x(procedure)SSK171 x(will)S 169 x(run)S 171 x(inde\211nitely)S -54 x(,)S 171 x(returning)SaE172 x(every)S 171 x(6)S 170 x(hours)S 171 x(a)S 170 x(listing)S 170 xSG(of)S 170 x(users)S 169 x(on)S 8083 X 598 y(the)S 178 x(system.)S 273 x H(T)S -46 x(o)S 178 x(stop)S 177 x(the)S 178 x(procedure,)S 182 x(issue)SC177 x(a)S 178 x(SHOW)S 177 x(ENTR)S -19 x(Y)S 177 x(command)S 178 x)D(for)S 178 x(your)S 8083 X 597 y(batch)S 178 x(queue.)S 275 x(When)SE178 x(you)S 179 x(have)S 179 x(determined)S 178 x(the)S 178 x(entry)SxE179 x(number)S 179 x(of)S 178 x(the)S 178 x(procedure,)S 8083 X 598 y.G(issue)S 174 x(the)S 174 x(command)S 174 x(STOP/ID=nnn,)S 176 x(where)S2F174 x F152(nnn)S 175 x F151(is)S 174 x(the)S 174 x(number)S 174 x(of)SG174 x(the)S 174 x(entry)S 174 x(to)S 174 x(be)S 8083 X 598 y(stopped.)S)H8083 X 897 y(A)S 168 x(copy)S 168 x(of)S 168 x(PERIOD)S -2 x(IC.TEMPLA)SD-27 x(TE)S 167 x(is)S 168 x(available)S 168 x(on)S 168 x(the)S 168 xF(OpenVMS)S 167 x(AXP)S 167 x(distribution)S 8083 X 597 y(media)S 187 xQ(in)S 187 x(the)S 187 x([DOCUME)S -2 x(NT)S -27 x(A)S -27 x(TION.V061.EXAMPLES])S.O185 x(directory)S -54 x(.)S 291 x(For)S 187 x(more)S 8083 X 598 y(information)S E183 x(about)S 182 x(how)S 182 x(to)S 182 x(access)S 182 x(the)S 182 x.E(\211les)S 182 x(on)S 183 x(the)S 182 x(distribution)S 182 x(media,)S)E187 x(see)S 182 x(the)S 8083 X 598 y F152(OpenVMS)S 166 x(AXP)S 166 x.C(CD\203ROM)S 165 x(User)S 28 x(')S -19 x(s)S 167 x(Guide)S F151(.)SxG4497 23733 XY F24(1.4)S 398 x(Displa)S -2 x(ying)S 233 x(System)S 232 xFD(Roots)S 8083 X 897 y F151(The)S 171 x(FINDROOTS.CO)S -2 x(M)S 171 xG(procedure)S 171 x(allows)S 170 x(you)S 171 x(to)S 171 x(\211nd)S 171 x7D(out)S 170 x(which)S 171 x(system)S 170 x(roots)S 170 x(are)S 8083 XG598 y(available)S 171 x(on)S 172 x(your)S 172 x(system.)S 260 x(Using)SSG171 x(this)S 171 x(information,)S 173 x(you)S 172 x(can)S 172 x(reuse)S.D171 x(unused)S 172 x(system)S 8083 X 597 y(roots,)S 171 x(or)S -37 xJ(,)S 171 x(using)S 170 x(SYS$MANAGE)S -2 x(R:CLUSTER_CONFIG)S -2 x(.L|*$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1jCOM,)SH170 x(you)S 171 x(can)S 170 x(delete)S 169 x(roots)S 8083 X 598 y(that)SG166 x(you)S 167 x(no)S 166 x(longer)S 168 x(need.)S 8083 X 897 y(When)S6D177 x(invoked,)S 181 x(FINDROO)S -2 x(TS)S 177 x(scans)S 176 x(for)SE177 x(system)S 176 x(roots)S 176 x(in)S 177 x(SYS$SYSD)S -2 x(EVICE)S)C175 x(and)S 8083 X 598 y(displays)S 180 x(the)S 181 x(root,)S 185 xsH(node)S 181 x(name,)S 185 x(DECnet)S 180 x(address,)S 184 x(last)S 180 xG(boot)S 181 x(date)S 180 x(and)S 181 x(time,)S 185 x(and)S 8083 X 597 ymE(hardware)S 186 x(type)S 185 x(of)S 186 x(each)S 186 x(system)S 185 xxC(root)S 185 x(it)S 185 x(\211nds.)S 289 x(The)S 186 x(information)S(C186 x(FINDRO)S -2 x(OTS)S 8083 X 598 y(displays)S 166 x(for)S 167 xyD(each)S 167 x(root)S 167 x(directory)S 167 x(that)S 167 x(it)S 166 xE(\211nds)S 167 x(comes)S 167 x(from)S 166 x(the)S 167 x(ALPHA)S -55 x D(VMSSYS.P)S -37 x(AR)S 8083 X 598 y(system)S 166 x(parameter)S 166 xK(\211le.)S 8083 X 896 y(The)S 161 x(procedure)S 161 x(also)S 160 x(allows)S)C160 x(you)S 161 x(to)S 160 x(create)S 161 x(logical)S 160 x(names)SnE161 x(for)S 160 x(roots;)S 163 x(it)S 160 x(creates)S 160 x(a)S 160 xxD(logical)S 8083 X 598 y(name)S 166 x(table)S 166 x(with)S 166 x(an)SC166 x(entry)S 167 x(for)S 166 x(each)S 167 x(logical)S 166 x(name)SnD166 x(speci\211cation.)S 8083 X 897 y(Example)S 168 x(1)S(\203)S(3)SH168 x(shows)S 167 x(a)S 167 x(sample)S 167 x(FINDROOTS)S 167 x(display)SH-56 x(,)S 169 x(with)S 167 x(column)S 169 x(labels)S 167 x(added)S 168 xG(for)S 8083 X 598 y(easy)S 166 x(identi\211cation.)S 5 SC 4497 38258 XY(HF40(1\20316)S 399 x F38(System)S 167 x(Manage)S 2 x(ment)S 166 x(Examp)S 2 x(les)SbEP PP %%PageTrailer12%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman-%%+ Courier NewCenturySchlbk-Italic Helveticax%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)2 %%+ (BLACK) %%+ (USERTAGCOLOR)%%+ (FOOTCOLOR)x%t%%Page: (1-17) 180%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend) PaperHeight PaperWidth PM 0 0 XYJ4 SC 18309 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 167 x(Examples)SC19040 X 647 y(1.4)S 167 x(Displaying)S 168 x(System)S 167 x(Roots)S C0 SC 4497 4561 XY F36(Example)S 166 x(1)S(\203)S(3)S 399 x(Sample)SuE167 x(FINDROOTS)S 165 x(Display)S 4497 5826 XY F238(Executing)S 240 x)C(WORK111:)S 2 x([SMACK]FINDR)S 2 x(OOTS.COM;19)S 240 x(from)S 240 xSI(node)S 240 x(RACKUP)S 240 x(at)S 240 x(15-MAR-1995)S 241 x(15:22:03.76)StI4497 X 797 y(System)S 240 x(Root)S 9041 X(Node)S 11193 X(DECnet)S 13824 XSM(Last)S 240 x(Boot)S 240 x(Date)S 239 x(and)S 240 x(Time)S 20521 X(Hardware)SrE240 x(Type)S 11193 X 498 y(Node)S 4497 X 498 y(------------)S 2 x(-)S)F9041 X(----)S 11193 X(------)S 13824 X(----------)S 2 x(------------)SC20521 X(-------------)S 2 x(-)S 4497 X 499 y([SYS0.SYSEXE)S 2 x(])S6I9041 X(ASL31)S 11193 X(19.0850)S 13824 X(7-FEB-1995)S 241 x(12:25:04.66)S(C20521 X(VAX)S 239 x(6000-240)S 4497 X 498 y([SYS10.SYSEX)S 2 x(E])S H9041 X(FOSATO)S 718 x(19.0699)S 13824 X(1-MAR-1995)S 241 x(16:29:25.98)SE20521 X(VAXstation)S 240 x(3100/GPX)S 4497 X 498 y([SYS11.SYSEX)S 2 x M(E])S 9041 X(SUBWAY)S 718 x(19.0345)S 719 x(23-FEB-1995)S 241 x(13:30:36.54)SrE20521 X(VAXstation)S 240 x(3100/GPX)S 4497 X 498 y([SYS12.SYSEX)S 2 xTN(E])S 9041 X(SAMMY)S 11193 X(19.0348)S 719 x(11-MAR-1995)S 241 x(10:53:26.43)SF20521 X(VAXstation)S 240 x(2000)S 4497 X 498 y([SYS13.SYSEX)S 2 x(E])SG9041 X(CRUMBA)S 718 x(19.0473)S 719 x(16-FEB-1995)S 241 x(12:17:59.88)S1L20521 X(VAXstation)S 240 x(3600)S 240 x(Series)S 4497 X 498 y([SYS14.SYSEX)SP2 x(E])S 9041 X(FLOP)S 11193 X(63.0135)S 719 x(18-JAN-1995)S 241 x(08:22:41.43)SF20521 X(VAXstation)S 240 x(3100)S 4497 X 498 y([SYS15.SYSEX)S 2 x(E])SG9041 X(MEMBER)S 718 x(19.0855)S 719 x(24-FEB-1995)S 241 x(12:19:47.75)StE20521 X(VAXstation)S 240 x(3100/GPX)S 4497 X 499 y([SYS16.SYSEX)S 2 xM(E])S 9041 X(SIGNUP)S 718 x(63.0868)S 719 x(18-JAN-1995)S 241 x(08:53:00.16)S)E20521 X(VAXstation)S 240 x(3100/GPX)S 4497 X 498 y([SYS17.SYSEX)S 2 xhM(E])S 9041 X(WRITIT)S 718 x(63.0090)S 719 x(21-JAN-1995)S 241 x(10:15:02.57)SxF20521 X(VAXstation)S 240 x(3100)S 4497 X 498 y([SYS18.SYSEX)S 2 x(E])SG9041 X(MATCHU)S 718 x(19.0188)S 719 x(18-JAN-1995)S 241 x(08:36:04.10)S$E20521 X(VAXstation)S 240 x(4000-VLC)S 4497 X 498 y([SYS19.SYSEX)S 2 x8M(E])S 9041 X(CAKE)S 11193 X(19.0839)S 719 x(10-FEB-1995)S 241 x(09:36:42.90)S E20521 X(VAXstation)S 240 x(4000-VLC)S 4497 X 498 y([SYS1A.SYSEX)S 2 xdM(E])S 9041 X(APPLES)S 718 x(63.0261)S 719 x(18-JAN-1995)S 241 x(08:09:51.97)SSE20521 X(VAXstation)S 240 x(4000-VLC)S 4497 X 498 y([SYS1B.SYSEX)S 2 x(N(E])S 9041 X(ONEDER)S 718 x(63.0213)S 13824 X(7-FEB-1995)S 241 x(15:18:25.99)SE20521 X(VAXstation)S 240 x(4000-VLC)S 4497 X 498 y([SYS1C.SYSEX)S 2 x1N(E])S 9041 X(ONE4U)S 11193 X(19.0235)S 719 x(22-MAR-1993)S 241 x(16:29:10.65)SD4497 X 498 y([SYS1D.SYSEX)S 2 x(E])S 9041 X(DANCER)S 718 x(19.0329)SM719 x(23-FEB-1995)S 241 x(16:53:25.43)S 20521 X(VAXstation)S 240 x(3100/GPX)S)C4497 X 499 y([SYS1E.SYSEX)S 2 x(E])S 9041 X(MAX)S 11193 X(63.0162)ShC13824 X(1-MAR-1995)S 241 x(09:43:07.45)S 20521 X(VAXstation)S 240 x1F(4000-VLC)S 4497 X 498 y([SYS1F.SYSEX)S 2 x(E])S 9041 X(MINNIE)S 718 xG(63.0041)S 719 x(18-JAN-1995)S 241 x(08:09:01.50)S 20521 X(VAXstation)SaF240 x(3100)S 4497 X 498 y([SYS2.SYSEXE)S 2 x(])S 9041 X(RACKUP)S 718 xG(19.0868)S 13824 X(7-FEB-1995)S 241 x(13:13:50.03)S 20521 X(VAX)S 239 x F(6000-620)S 4497 X 498 y([SYS20.SYSEX)S 2 x(E])S 9041 X(EZROAD)S 718 xH(63.0100)S 13824 X(8-MAR-1995)S 241 x(08:46:13.24)S 20521 X(VAXstation)SH240 x(3100)S 4497 X 498 y([SYS21.SYSEX)S 2 x(E])S 9041 X(FUMIN)S 11193 XN(19.0166)S 719 x(12-JUN-1993)S 241 x(16:34:00.23)S 4497 X 498 y([SYS22.SYSEX)SD2 x(E])S 9041 X(HAPPY)S 11193 X(63.0916)S 13824 X(7-SEP-1993)S 241 xC(14:10:24.36)S 4497 X 498 y([SYS23.SYSEX)S 2 x(E])S 9041 X(MAKEUP)S7L718 x(63.0740)S 719 x(18-JAN-1995)S 241 x(11:51:03.48)S 20521 X(VAXstation)SH240 x(3100/GPX)S 8083 19774 XY F151(Notes)S 166 x(on)S 166 x(the)S 166 xJ(display)S 166 x(columns:)S 8083 X 897 y(\201)S 595 x(The)S 167 x(system)SC165 x(root,)S 167 x(node)S 166 x(name,)S 167 x(and)S 166 x(DECnet)S D165 x(address)S 165 x(are)S 167 x(always)S 165 x(displayed.)S 8083 XE896 y(\201)S 595 x(The)S 167 x(last)S 165 x(boot)S 167 x(date)S 166 x D(and)S 166 x(time)S 166 x(are)S 167 x(displayed)S 166 x(only)S 167 xG(if)S 166 x(you)S 167 x(specify)S 167 x(a)S 166 x(\211le)S 167 x(from)S J166 x(which)S 8980 X 598 y(FINDROO)S -2 x(T)S 171 x(can)S 172 x(retrieve)SC172 x(a)S 170 x(boot)S 171 x(date)S 171 x(and)S 171 x(time.)S 259 xhP(FINDROOT)S -47 x(.COM)S 171 x(explains)S 171 x(a)S 8980 X 598 y(method\202and)SD166 x(includes)S 167 x(commands\202for)S 166 x(doing)S 166 x(this.)SC8083 X 896 y(\201)S 595 x(The)S 178 x(hardware)S 178 x(type)S 179 xeD(is)S 177 x(displayed)S 178 x(for)S 178 x(nodes)S 178 x(that)S 177 xD(are)S 178 x(curren)S 2 x(tly)S 178 x(running)S 180 x(in)S 178 x(a)SE8980 X 598 y(VMScluster)S -37 x(.)S 8083 X 897 y(If)S 163 x(a)S 163 xnD(hardware)S 164 x(type)S 163 x(is)S 163 x(not)S 164 x(listed)S 162 xG(for)S 164 x(a)S 163 x(node,)S 165 x(and)S 163 x(if)S 163 x(the)S 164 x(E(last)S 162 x(boot)S 164 x(date)S 163 x(is)S 163 x(old,)S 164 x(you)S)C164 x(can)S 8083 X 597 y(probably)S 172 x(reuse)S 171 x(the)S 172 x H(node)S 172 x(name)S 171 x(or)S 172 x(delete)S 171 x(the)S 171 x(root.)SF260 x(Examples)S 171 x(in)S 171 x(Example)S 171 x(1)S(\203)S(3)S 172 xC(are)S 8083 X 598 y(the)S 166 x(ONE4U,)S 166 x(FUMIN,)S 167 x(and)S G166 x(HAPPY)S 166 x(nodes.)S 8083 X 897 y(The)S 208 x(FINDROOTS)S 206 x(D(procedure)S 209 x(assumes)S 206 x(that)S 208 x(all)S 207 x(system)SI207 x(roots)S 207 x(are)S 208 x(in)S 8083 X 598 y(SYS$SYSD)S -2 x(EVICE)S C178 x(on)S 180 x(the)S 180 x(system)S 180 x(that)S 179 x(executes)SsD180 x(this)S 180 x(procedure.)S 278 x(Therefore,)S 184 x(in)S 8083 XF597 y(a)S 169 x(dual-architecture)S 169 x(VMScluster)S -37 x(,)S 170 xH(you)S 170 x(must)S 168 x(execute)S 170 x(this)S 168 x(procedure)S 170 xC(on)S 169 x(each)S 169 x(system)S 8083 X 598 y(disk.)S 8083 X 897 ySE(A)S 179 x(copy)S 181 x(of)S 179 x(FINDROOTS.CO)S -2 x(M)S 180 x(is)S)D179 x(available)S 180 x(on)S 180 x(the)S 180 x(OpenVMS)S 179 x(AXP)SF179 x(distribution)S 8083 X 598 y(media)S 187 x(in)S 187 x(the)S 187 xL([DOCUME)S -2 x(NT)S -27 x(A)S -27 x(TION.V061.EXAMPLES])S 185 x(directory)SC-54 x(.)S 291 x(For)S 187 x(more)S 8083 X 597 y(information)S 183 x8J(about)S 182 x(how)S 182 x(to)S 182 x(access)S 182 x(the)S 182 x(\211les)SF182 x(on)S 183 x(the)S 182 x(distribution)S 182 x(media,)S 187 x(see)SE182 x(the)S 8083 X 598 y F152(OpenVMS)S 16M$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1jx"6 x(AXP)S 166 x(CD\203ROM)SSJ165 x(User)S 28 x(')S -19 x(s)S 167 x(Guide)S F151(.)S 5 SC 19405 38258 XYKF38(System)S 166 x(Mana)S 2 x(gement)S 167 x(Examples)S 399 x F40(1\20317)S8EP PPl %%PageTrailer)#%%PageFonts: Helvetica-Bold Courierd2%%+ NewCenturySchlbk-Roman NewCenturySchlbk-Italic %%+ Helvetica1%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)) %%+ (BLACK)8%%+ (FOOTCOLOR)m%1%%Page: (1-18) 196%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend) PaperHeight PaperWidth PM 0 0 XYG4 SC 4497 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 166 x(Exampl)S D2 x(es)S 4497 X 647 y(1.5)S 167 x(Deleting)S 167 x(Directory)S 166 xF(T)S -33 x(rees)S 0 SC 4497 4689 XY F24(1.5)S 398 x(Dele)S -2 x(ting)SF233 x(Directory)S 232 x(T)S -38 x(rees)S 8083 X 897 y F151(The)S 187 xD(DEL)S -28 x(TREE.COM)S 186 x(procedure)S 187 x(allows)S 185 x(you)SE187 x(to)S 186 x(delete)S 187 x F152(all)S 186 x F151(\211les)S 186 x F(in)S 186 x(a)S 187 x(speci\211ed)S 8083 X 598 y(directory)S -54 x(,)SF171 x(all)S 170 x(\211les)S 170 x(in)S 171 x(that)S 170 x(directory')SG-18 x(s)S 170 x(subdirectories,)S 171 x(and,)S 172 x(optionally)S -55 x1G(,)S 172 x(the)S 170 x(directory)S 8083 X 597 y(and)S 166 x(its)S 166 xuD(subdirectories.)S 8083 X 897 y(V)S -46 x(eri\211cation)S 167 x(is)SD165 x(required)S 167 x(before)S 166 x(this)S 166 x(procedure)S 167 xI(will)S 165 x(delete)S 166 x(a)S 166 x(directory)S -55 x(.)S 8980 8874 XYaG7440 24 R 16720 8874 XY F36(Caution)S 300 x 7440 24 R 8980 9770 XY F1519F(If)S 166 x(you)S 168 x(have)S 167 x(write)S 166 x(access)S 167 x(to)SC166 x(the)S 167 x(speci\211ed)S 167 x(directory)S 167 x(and)S 167 x G(\211les,)S 167 x(this)S 166 x(procedure)S 8980 X 598 y(automatically)STE181 x(converts)S 181 x(your)S 182 x(write)S 180 x(access)S 180 x(to)S H180 x(delete)S 181 x(access.)S 278 x(Therefore,)S 8980 X 598 y(setting)SG161 x(the)S 161 x(protection)S 161 x(on)S 161 x(the)S 162 x(directory)SsH161 x(or)S 162 x(\211le)S 161 x(will)S 160 x(not)S 161 x(prevent)S 162 xF(the)S 161 x(directory)S 8980 X 598 y(or)S 166 x(\211le)S 166 x(from)SD166 x(being)S 167 x(deleted.)S 8980 X 697 y 17340 24 R 8083 13456 XYC(T)S -45 x(o)S 164 x(invok)S 2 x(e)S 165 x(the)S 165 x(procedure,)S0J166 x(enter)S 165 x(the)S 165 x(following)S 165 x(command,)S 166 x(where)SH165 x(USER.FILES)S 164 x(is)S 164 x(the)S 8083 X 598 y(directory)S 167 xD(you)S 167 x(want)S 166 x(to)S 165 x(delete:)S 8083 X 897 y F238($)SE1 SC 240 x(@DELTREE.COM)S 241 x([USER.FILES])S 0 SC 8083 X 896 y F1512E(Note)S 173 x(that)S 173 x(the)S 173 x(procedure)S 174 x(will)S 172 x)G(operate)S 173 x(on)S 173 x(the)S 173 x([.FILES])S 173 x(subdirectory)SrF174 x(of)S 173 x(the)S 173 x(USER)S 8083 X 598 y(directory)S -54 x(,)SF166 x(not)S 166 x(the)S 167 x(USER)S 165 x(directory)S 167 x(itself.)SC8083 X 897 y(The)S 169 x(system)S 167 x(returns)S 168 x(the)S 169 x)G(following)S 168 x(query)S 168 x(to)S 168 x(verify)S 169 x(that)S 168 x1I(you)S 169 x(want)S 167 x(to)S 168 x(delete)S 168 x(the)S 168 x(\211les)SSF8083 X 598 y(in)S 166 x([USER.FILES])S 166 x(directory:)S 8083 X 896 yCF238(Confirm.)S 241 x(Delete)S 240 x(directory)S 240 x(tree)S 240 xyD(SYS$SYSD)S 2 x(EVICE:[USER.F)S 2 x(ILES])S 240 x([N])S 8083 X 897 yCF151(If)S 166 x(you)S 167 x(answer)S 166 x(yes,)S 166 x(the)S 166 x4F(system)S 166 x(returns)S 167 x(the)S 166 x(following)S 166 x(query:)SC8083 X 897 y F238(Confirm.)S 241 x(Remove)S 240 x(directory)S 240 x0C(files)S 240 x(too)S 240 x([Y])S 8083 X 896 y F151(If)S 177 x(you)S(C178 x(answer)S 177 x(yes,)S 181 x(the)S 177 x(system)S 177 x(will)SnG177 x(delete)S 177 x(all)S 177 x(of)S 177 x(the)S 177 x(\211les)S 178 x E(in)S 177 x(the)S 178 x([USER.FILES])S 8083 X 598 y(directory)S -54 xnM(,)S 194 x(along)S 189 x(with)S 188 x(any)S 190 x(\211les)S 188 x(contained)S I189 x(in)S 189 x(subdirectories)S 188 x(of)S 188 x(the)S 189 x([.FILES])S2D8083 X 598 y(directory)S -54 x(.)S 249 x(Directory)S 167 x(\211les)SG166 x(will)S 165 x(also)S 165 x(be)S 167 x(deleted.)S 8083 X 896 y(If)SaH171 x(you)S 173 x(answer)S 171 x(no,)S 173 x(the)S 172 x(\211les)S 171 xD(in)S 172 x([.USER])S 171 x(and)S 171 x(its)S 171 x(subdirectories)SG171 x(will)S 171 x(be)S 172 x(deleted,)S 173 x(but)S 8083 X 598 y(the)S0H166 x(subdirectory)S 167 x(structure)S 167 x(will)S 165 x(remain)S 166 xI(intact.)S 8083 X 897 y(If)S 178 x(your)S 179 x(current)S 178 x(default)S3K178 x(directory)S 179 x(is)S 177 x(the)S 178 x([.FILES])S 178 x(directory)SXL-55 x(,)S 182 x(enter)S 178 x(the)S 178 x(following)S 8083 X 597 y(command)SH166 x(to)S 166 x(delete)S 166 x(the)S 166 x(directory')S -18 x(s)S 166 xH(contents)S 166 x(and)S 166 x(its)S 166 x(subdirectories:)S 8083 X 897 yEF238($)S 1 SC 240 x(@DELTREE.COM)S 241 x([-]FILES)S 0 SC 8083 X 897 y GF151(The)S 167 x(system)S 165 x(will)S 166 x(return)S 167 x(the)S 166 x7D(same)S 165 x(queries)S 167 x(shown)S 166 x(above)S 166 x(to)S 166 xD(verify)S 167 x(your)S 167 x(request.)S 8083 X 896 y(Example)S 166 xL(1)S(\203)S(4)S 166 x(shows)S 166 x(the)S 166 x(messages)S 166 x(generated)SF167 x(by)S 166 x(DEL)S -28 x(TREE.COM.)S 166 x(In)S 166 x(this)S 166 xF(example,)S 8083 X 598 y(the)S 177 x(user)S 177 x(has)S 177 x(chosen)SF178 x(to)S 177 x(delete)S 176 x(the)S 177 x(\211les)S 177 x(in)S 178 xC(the)S 177 x([.FILES])S 177 x(directory)S 177 x(and)S 177 x(leave)S0L178 x(the)S 8083 X 598 y(subdirectories)S 166 x(intact.)S 5 SC 4497 38258 XYHF40(1\20318)S 399 x F38(System)S 167 x(Manage)S 2 x(ment)S 166 x(Examp)S 2 x(les)SmEP PP0 %%PageTrailer)2%%PageFonts: Helvetica-Bold NewCenturySchlbk-Roman-%%+ NewCenturySchlbk-Italic Courier Helvetica%%PageProcessColors:%%PageCustomColors: (HEADCOLOR)y %%+ (BLACK)%%+ (USERTAGCOLOR)%%+ (FOOTCOLOR) % %%Page: (1-19) 20)%%PageFonts: (atend)%%PageProcessColors: (atend)%%PageCustomColors: (atend)i PaperHeight PaperWidth PM 0 0 XYJ4 SC 18309 2293 XY F28(System)S 167 x(Managem)S 2 x(ent)S 167 x(Examples)SF19338 X 647 y(1.5)S 167 x(Deleting)S 167 x(Directory)S 167 x(T)S -33 xK(rees)S 0 SC 4497 4561 XY F36(Example)S 166 x(1)S(\203)S(4)S 399 x(Sample)S D167 x(DEL)S -37 x(TREE)S 167 x(Display)S 4497 5527 XY F238($)S 239 xC(SHOW)S 240 x(DEFAULT)S 4975 X 498 y(SYS$SYSDEV)S 2 x(ICE:[SMACK])S)C4497 X 797 y($)S 239 x(SET)S 240 x(DEFAULT)S 240 x([.USER.FIL)S 2 x(C(ES])S 4497 X 797 y($)S 239 x(@SYS$LOGIN)S 2 x(:DELTREE.COM)S 241 x)C([-]FILES)S 4497 X 798 y(Confirm.)S 240 x(Delete)S 240 x(director)S K2 x(y)S 239 x(tree)S 240 x(SYS$SYSDEVIC)S 2 x(E:[SMACK.USE)S 2 x(R.FILES])S M240 x([N])S 240 x(Y)S 4497 X 797 y(Confirm.)S 240 x(Remove)S 240 x(director)S3D2 x(y)S 239 x(files)S 240 x(too)S 239 x([Y])S 240 x(N)S 4497 X 797 yD(%DELETE-I-FI)S 2 x(LDEL,)S 240 x(SYS$SYSDEVIC)S 2 x(E:[SMACK.USER)SE2 x(.FILES]CLUE$)S 2 x(STARTUP_.LOG)S 2 x(;36)S 239 x(deleted)S 240 xeE(\(9)S 240 x(blocks\))S 4497 X 498 y(%DELETE-I-FI)S 2 x(LDEL,)S 240 xlI(SYS$SYSDEVIC)S 2 x(E:[SMACK.USER)S 2 x(.FILES]CLUE$)S 2 x(STARTUP_SWPC)S6C2 x(TX.LOG;91)S 240 x(deleted)S 240 x(\(9)S 240 x(blocks\))S 4497 XhI498 y(%DELETE-I-FI)S 2 x(LDEL,)S 240 x(SYS$SYSDEVIC)S 2 x(E:[SMACK.USER)S F2 x(.FILES]DECW$)S 2 x(SERVER_0_ERR)S 2 x(OR.LOG;112)S 240 x(deleted)SD241 x(\(3)S 239 x(blocks\))S 4497 X 498 y(%DELETE-I-FI)S 2 x(LDEL,)SN240 x(SYS$SYSDEVIC)S 2 x(E:[SMACK.USER)S 2 x(.FILES]ERT_A)S 2 x(CTIVITY.LOG;)SQ2 x(66)S 239 x(deleted)S 240 x(\(0)S 240 x(blocks\))S 4497 X 498 y(%DELETE-I-FI)S1G2 x(LDEL,)S 240 x(SYS$SYSDEVIC)S 2 x(E:[SMACK.USER)S 2 x(.FILES]ESS$L)S1J2 x(AD_STARTUP.L)S 2 x(OG;1)S 239 x(deleted)S 241 x(\(3)S 239 x(blocks\))SP4497 X 498 y(%DELETE-I-FI)S 2 x(LDEL,)S 240 x(SYS$SYSDEVIC)S 2 x(E:[SMACK.USER)SG2 x(.FILES]ESS$L)S 2 x(AST_STARTUP.)S 2 x(LOG;1)S 240 x(deleted)S 240 xuF(\(27)S 239 x(blocks\))S 4497 X 498 y(%DELETE-I-FI)S 2 x(LDEL,)S 240 xI(SYS$SYSDEVIC)S 2 x(E:[SMACK.USER)S 2 x(.FILES]ESS$S)S 2 x(TARTUP.LOG;2)S9H241 x(deleted)S 240 x(\(6)S 239 x(blocks\))S 4497 X 498 y(%DELETE-I-FI)SG2 x(LDEL,)S 240 x(SYS$SYSDEVIC)S 2 x(E:[SMACK.USER)S 2 x(.FILES]NETSE)S3E2 x(RVER.LOG;43)S 241 x(deleted)S 240 x(\(3)S 239 x(blocks\))S 4497 X0I499 y(%DELETE-I-FI)S 2 x(LDEL,)S 240 x(SYS$SYSDEVIC)S 2 x(E:[SMACK.USER)S(F2 x(.FILES]SETHO)S 2 x(ST.LOG;3)S 240 x(deleted)S 240 x(\(2088)S 240 xF(blocks\))S 8083 15191 XY F151(A)S 169 x(copy)S 170 x(of)S 169 x(DEL)SD-28 x(TREE.COM)S 168 x(is)S 169 x(available)S 169 x(on)S 169 x(the)SE170 x(OpenVMS)S 168 x(AXO)S 168 x(distribution)S 169 x(media)S 8083 X:V598 y(in)S 173 x(the)S 173 x([DOC)S -2 x(UMENT)S -27 x(A)S -28 x(TION.V061.EXAMPLES])SH172 x(directory)S -55 x(.)S 263 x(For)S 173 x(more)S 172 x(information)SF8083 X 598 y(aNALy$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1j"<ejJ}=^x yDw%cB J} QLD5k%M'y/W3wdKgXleGydNMM9;}4L= V"SM'YpOlMC?^^4Bz<`[M H&$GUwm >,G#(9<+zڷ7 Ry&O%jQ:Xs[Ol.JlmD:SXYLV!jii)KUeqh@LWjV;|JPLXCTG uw/=\8K4D&wq0xuneP6O yʤS]pA,8NL>tM.t?t{_&GNNN( ;L 2F,YrPfR|~599wxd,0}yj f]P py^z|j?tRn5()!]vg(^>%dJmkP6#KV_SԤb;tg'c*F (>OWmr20]R99T4<~ecr@%F>lyuOICCހ-q ,TXbLP7qj ~" <3{=nEu!A[5["0D.fc*'/^=;@QT ktGl&X%(7 VSNo@=)!fi!ڌ!$QH,xYb4 !3D0)N@_Nj!H4ytrL|{}%2u-rCR_ 먿4PkecJIKY7(d sV_+'u/E#O/h?VR|2<^xz!/ XiO[/`}BY<4rC[*>vh,s_HX|&XX]yg]6 9Z!*co*(Zg!4+57MUT~q1~4/OPLCP0c[cuv1w_2tBUD}RRy9{laXlpS JnlR9RH:r/*TuI* 5|Nn/PsenMk*7@]OI|w@uWCC0c_vhJx% |H7[a6s^AG.c34u&.h xF4rRzbt=\Fil-E wx\UtA~EV/.ozmMD&fh_sU6r-\|ev"bۙ^(q*%fiK?(~'1; 2qL> #v+_P3QAP(@m Zg_H!S5~` 7DH}2ff3|tN(-A9D bOSGm8=&K/N` F6McgS,YS>'}2SuQ[jXL\,U@r*gVrd#%\>G>Jb+oZ(4Bb=rOt4ZnXus(&k&.>+sn;H6c5J/[A||+s\=  fP@b:ZV84=9v.@d4>M-}z {2I8O EIItJ54Ygw[.|#I2158 ula͎%oORa\b#-NU MkoqoB Fk?dIuM7d(0{r FT\>s@xF(.(?uD}>EPQ^ ^|)] h!\_y!-DZB(MR3:9`+rDnu>@v~ -@~B+\C!ugjc@DE0ro(.r{3R}f}- 6TCF-m,lu>D> Z+F53 fHHY<z#pTܵHY3y.}.2m~l{`5JX''Hi]t.GPfHK'+*'a-Rv}9;VMB{>Z!~cI!pFNL{ _*nfsH7`m (`w\X[1 .lpSwctQBFe/_=ߠb,io9 Yups8NG%Z(5& -SK!~-L3d7S;_]{SZ xHaRw9j,=F{H/'7|\as v?q-OW]4r!Nz` DRyc#.G/cb$]A>!+lDO, {9E.{#ITF&;*ra[NCXFuR`&Fx9}l#.h'$-xfz jµ+UR ^8FNF0B@tOO":sh5_Kk,) UmX cqhsvkYy^bT+sRMDLV6l%%,|v~V UBt4-Wvpb*Ss'yz>Ɓm3wH!nlBLC0Mw9Q[E s~wh|=n!KtJWxhh$_g?pjvBLiuL)J\70lk:4w+%:}uK7(E*AcIfj&.,949T~S %9T& H_1/=4gg5G+t;.^ȧ1EN"*;Fa}7jn@TXe$ EjIV*ym/wV5Wmg9;%XVh UlfN^}U C Alnx`[v lnFa vF nh8x GN"D&`^0 NB6-lZXKWiOw= ,7]HIQI62yuQFiMKe$V:vwS<@2 4[=;y\1rwVFV2i'Wgpp '&4+xeV%\3Ug]!ECNVZc =13`3!8[>lH [-<e1(mg / c  }g 5q.,1hkxEuJ!*dNAx0G! W 0dHH4 a}YMF^)K|4:;u$2P,D*]*ft.ltH$]6B:&:eqsm1^AE>*\1jzW6e5BO+C8Zqe!I3)E 2ڲ*anD3z0S8 el)BAXAhy[Gj]n "K=Wcj )J cfB.-ٷ!E$UK Ym y(71y<,$+z'FW5FC xE^t?M7;^FD*_{ccbLY=_Y,X`aWAgA h +H+)Ε5Ex]nگ&NE`_wIr3N!=o{M}sP%$iPnV`%j 7< _= \2t4nkKN$0fx-lF]TwZd\LnEnSY wLl4L1[~,Q,P 7 ޭ1=GW>sz:CY.>ef|1xAPi\3VIOY9^umV&cPtXYzB>;ckw}V'[S%9{ I_Qr|qCxuQ-\0l^,7, kO[D\kBMK'y6 m(ckx\fl+ymouXaWu2[GYVrTk6Nw|&xMB0 =jg^?AQ&68} vcH\8|8rey?F!"A='GRWDM@uo ,mI=wi vL;u|Qe!0qNx~r;i;DhRb}N)QVx_oMlqP)y"xY]'nuC3#u',Bh n6VW]pR

PY.F,/RCxb\}7O)>@Bf{g-%lj,Xguo%IUAKqhN;MrA*3> |)R*>(r%O{BS)(q 5Mv/HPqb;/+ӮZ"*}u+RX|dJbTXTH>C[yF;_65Ca :F/Qe% ~Vp0+?f3ydQ.n7l/)f4~A,Z~X~]_#q y jU9#>d'IIP}Zr_z07OAH\E@6)$T8)f< Qww6&;{-b\o4U+B-` 7QEKSdyynG G)lJye4]Q [FeN  oo@o })}|3lh~|'bo<9*g_+Z[m&&omdR gZT&h{NN8Gj%65zaF K1 ) +c{NgkA6i g|Mn>+?IPK7g%H-Dv}Luib35V\V$T-|ck~9?Ht_,vjB;T z~Po\ __ZPOX2rULO2hG,XW ni:ef<A=o,7Y}xVv?Kn[afHOzSrUyHv(AdoAC*zhf@3V|PR'Yc 6 ZB0>:SgvQe " Fo6_fOb WrR-A{ O }1)g93~qoC֌<-0S"8MtYg/F:1gfP&eBӜ11<_'g#N<[>'3NT e~,Ds#X da +4,pK:1l&d=&HqWQ@yMRLTuhkv>0M3-jv1#c~H\QH57$/;to ufSs6OJLeO^L(uCPdcl}${Fzg v)OXM;{ +%dh8r"P?<@x*\6Fby1: ZV%O6&L A2%^tW!ksU?,GQpbkVym}ˇqm fO[u0{}>L(՟)R[e f3CeGPWn:)~|)I^o4ˉyTC6b(fegu'jB+NV.ypO j,\/PALSd=A;N~h4Saw>5p ZYpeyF(NwAZ6Mkx}% + ;-po=W""TWoP|< DC 3&R|%6+v/1*e99QU rDekfVs+mR~z#eOz%*t8q7v!E 6nqPh}vXmfZ[pKUH*( X @*w 6h S-!gZmTIa5c0L#'m)e.#%K|@ _#-[n|\k_`fe84((bikS4z[;1VnuJ0 9q7IJKA|`mu"r2ȥnGWWvTB7V:y͏|k -o$a[uU Gf{)' ?kwtTP;*QhxiO5CkKl@ 3,HB<Ǎ~ligI9O.3A R*2 Qd2@Al ~ @ #5#8#L)p x|P \^8Km{ d@] }Χ>Je\2l8[(^O{js&L9cT{cj 'lmMcmmsI brwRC 1  7Tu1Qu8'1/adK"Nt%XeH-g"46GWJ.pO,gd jXSv:;0L]bmz$AD}&v_ JGR*c%PKr~=G z#M_> 9^ juiIaLtn{za)_njWݘ2$z-[H>7S%Iu/Oi"xո5c7h( J{{lFkns8/ Ma{k }7}CX>~1HR}jڰacT"H*.L.bl*_]w=*Lj=NM\E$p\0db. W+:E;VC]J36ۚ$ uGrF=P{SfE/VHF) r)r^y~P2NP^I|uv9wCLFXLbgr@`iKTbAg?RSLSWxwa\`tnTZm71{õ0YACg4R1}=[h_*kvwT1ig>l[aDedAH9,RFA`}>!W}|,ZcP xJ%/${"e5|Bagm\XPRf+!,HL v]=:J08U Ϊ&#_c U^O;p4UAOIJr38['U_>nKR?s,Y9)g2XPeOs]Ͳ$JPI021.A/,J)[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.PS;1j  bout)S 174 x(how)S 173 x(to)S 174 x(access)S 173 x(the)SJ173 x(\211les)S 174 x(on)S 174 x(the)S 173 x(distribution)S 174 x(media,)SE175 x(see)S 173 x(the)S 174 x F152(OpenVMS)S 174 x(AXP)S 8083 X 597 y6C(CD\203ROM)S 165 x(User)S 28 x(')S -19 x(s)S 167 x(Guide)S F151(.)S K5 SC 19405 38258 XY F38(System)S 166 x(Mana)S 2 x(gement)S 167 x(Examples)Sc399 x F40(1\20319)SSEP PPy %%PageTrailerS#%%PageFonts: Helvetica-Bold Courierx2%%+ NewCenturySchlbk-Roman NewCenturySchlbk-Italic %%+ Helvetica5%%PageProcessColors:%%PageCustomColors: (HEADCOLOR) %%+ (BLACK)1%%+ (FOOTCOLOR)i%t %%Trailer %%Pages: 20u%%BoundingBox: 0 0 612 792'%%DocumentFonts: Courier Helvetica-Bolde1%%+ NewCenturySchlbk-Bold NewCenturySchlbk-Italic $%%+ NewCenturySchlbk-Roman Helvetica-%%DocumentNeededFonts: Courier Helvetica-Bolde1%%+ NewCenturySchlbk-Bold NewCenturySchlbk-Italice$%%+ NewCenturySchlbk-Roman Helvetica%%DocumentProcessColors:%%DocumentCustomColors: (BLACK)6%%+ (FOOTCOLOR)a%%+ (HEADCOLOR)0%%+ (USERTAGCOLOR)*%%CMYKCustomColor: 0.0 0.0 0.0 1.0 (BLACK)"%%+ 0.0 0.0 0.0 1.0 (USERTAGCOLOR)%%+ 0.0 0.0 0.0 1.0 (UNDEFINED) %%+ 0.0 0.0 0.0 1.0 (UNDEFINED)%%+ 0.0 0.0 0.0 1.0 (HEADCOLOR)o%%+ 0.0 0.0 0.0 1.0 (FOOTCOLOR)l%TDVC$PSJob restore1end %DEC_DVC$dictrend %Color5044Dict%0%%EOF **[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.TXT;1+,3./L 4h?-J0123KPWO56R7@̒89C?GLHJ H From: JARETH::KANE "Suzy Kane, 381-0624, M/S ZKO3-4/U08" 14-APR-G 1995 10:39:06.01 To: RJACK CC: KANE Subj: JPI doc. from EpsilonG Hi Rod, Enclosed is the whole chapter. I don't know if you haveI any interest in putting those command procedures on the kit, too.G In case you do, I'm including that documentation as well as theI JPI documentation. Thanks very much for looking into this. By theI way, I believe the earlier Freeware CD went to all the V6.2 fieldG test sites as well as others who requested it via the internet. -Suzy -------------I 1  I 1I _________________________________________________________________I System Management ExamplesF This chapter describes examples of tools that the systemH manager might find useful in performing a number of common& system management tasks:I ___________________________________________________________I Description_______________________________Reference________C Displaying job process information Section 1.1C Terminating processes Section 1.2C Submitting periodic batch jobs Section 1.3C Displaying system roots Section 1.4C Deleting a directory or its contents, or Section 1.5I both_______________________________________________________D "More examples" has been a frequent request of OpenVMSI customers. The system management examples described in thisH chapter represent a first step in responding to customers' requests.F It is the intention of the OpenVMS documentation team toH continue to increase the number and variety of examples weI provide. If you have examples you would be willing to shareG with us, or suggestions of examples you would like to seeG included in future releases, please contact us via one of the following:E o Internet electronic mail: OPENVMSDOC@ZKO.MTS.DEC.COMI o Fax 603-881-0120 Attn: OpenVMS Documentation, ZK03-4/U08. o Digital Equipment Corporation2 Information Design and Consulting& OpenVMS Documentation0 110 Spit Brook Road, ZK03-4/U08& Nashua, NH 03062-2698 USAI System Management Examples 1-1  " System Management ExamplesB Copies of the examples in this chapter are available: on the OpenVMS AXP distribution media in theH [DOCUMENTATION.V061.EXAMPLES] directory. The first exampleF listed above must be installed using VMSINSTAL; the restB of the examples are DCL command procedures. For moreE information on how to access the files containing these= tools, see the OpenVMS AXP CD-ROM User's Guide.F The examples provided here are not intended to representG the only way or the best way to accomplish tasks for eachE user. Rather, they are examples that some OpenVMS users& have found to be useful.I You should examine the purpose and logic of each example toI determine which ones are suitable for your environment. ForI examples in this section where the source code is availableE on line, you might want to modify the code to meet your$ site's specific needs.F ________________________ Note ________________________C Digital does not warrant that any System Management= Examples provided herein will meet customers'A requirements, operate without interruption, or be error free.F ______________________________________________________1 1.1 Job Process Information (JPI) UtilityH JPI is a wide area network tool that you can use to createI a one-line-per-process display of information. Depending onH the criteria you select, you can display information aboutI all or specific processes on local nodes or clusters and on' remote nodes or clusters.H Although JPI can extract information from remote nodes andI remote VMSclusters, this feature is available only on nodesF that are running JPI Version 2.0 or higher and that haveG the JPI DECnet object properly defined. (Defining the JPIC DECnet object is part of the installation procedure.)& 1-2 System Management Examples  I System Management ExamplesI 1.1 Job Process Information (JPI) Utility@ JPI displays the following values for each process selected:1 BASEPRIORITY NODENAME, CURRENT STATE PID0 CURRENT WORKING SET SIZE PROCESS1 IMAGENAME TERMINAL1 MODE USERNAMED For a description of each value in this list, refer toF $GETJPI in the OpenVMS System Services Reference Manual.I Example 1-1 shows a sample JPI display using the /SELECTIONE qualifier, which displays the current default selection criteria.I System Management Examples 1-3  " System Management Examples1 1.1 Job Process Information (JPI) Utility% Example 1-1 JPI DisplayS Job/Process Information from ALPHA/VMS Version 6.1[ From node DRPCTX (DEC 3000 Model 400) at 9-MAR-1995 11:28:02.48\ PID Term Username Process NaPM6 $JPI021.A3J*[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.TXT;1h?Pme Image Name PriB Work State M Node^ --------------------------------------------------------------------------------^ 00000085 SYSTEM...... IPCACP....... IPCACP...... 8 2048 HIB O DRPCTX^ 00000086 SYSTEM...... ERRFMT....... ERRFMT...... 7 3488 HIB O DRPCTX^ 00000087 SYSTEM...... OPCOM........ OPCOM....... 6 1088 HIB O DRPCTX^ 00000088 AUDIT$SERVER AUDIT_SERVER. AUDIT_SERVER 8 3488 HIB O DRPCTX^ 00000089 SYSTEM...... JOB_CONTROL.. JBC$JOB_CONT 8 2048 HIB O DRPCTX^ 0000008A SYSTEM...... QUEUE_MANAGER QMAN$QUEUE_M 8 4448 HIB O DRPCTX^ 0000008B SYSTEM...... TP_SERVER.... TPSERV...... 8 2048 HIB O DRPCTX^ 0000008C DECNET...... NETACP....... NETACP...... 8 3488 HIB O DRPCTX^ 0000008D DECNET...... EVL.......... EVL......... 4 3488 HIB N DRPCTX^ 0000008E SYSTEM...... REMACP....... REMACP...... 8 1088 HIB O DRPCTX^ 00000090 SYSTEM...... DECW$SERVER_0 DECW$SERVER_ 6 19792 HIB O DRPCTX^ 00000091 SYSTEM...... DECW$SESSION. DECW$SESSION 4 18800 LEF I DRPCTX^ 00000093 MBA25:. SYSTEM...... DECW$MWM..... DECW$MWM.... 4 11600 LEF I DRPCTX^ 00000094 MBA27:. SYSTEM...... SYSTEM....... DECW$CLOCK.. 4 11600 LEF I DRPCTX^ 00000095 SYSTEM...... VUE$SYSTEM_3. ............ 4 2000 LEF I DRPCTX^ 00000096 SYSTEM...... VUE$SYSTEM_4. ............ 4 2000 LEF I DRPCTX^ 00000097 MBA42:. SYSTEM...... DECW$TE_0097. DECW$TERMINA 5 14000 LEF O DRPCTX^ 00000098 FTA5:.. SYSTEM...... _FTA5:....... ............ 4 2000 LEF I DRPCTX^ 00000099 FTA6:.. SYSTEM...... _FTA6:....... ............ 4 2000 LEF I DRPCTX^ 0000009A RTA1:.. SMACK....... SMACK........ ............ 4 2000 LEF I DRPCTX^ 0000009B RTA2:.. SMACK....... _RTA2:....... JPI......... 4 4400 CUR I DRPCTXQ Total of 21 Processes using 116912 pages (58 mb) of physical memory? Command Line: JPI/SELECTION/OUTPUT=SELECTION.TXTI (continued on next page)& 1-4 System Management Examples  I System Management ExamplesI 1.1 Job Process Information (JPI) Utility- Example 1-1 (Cont.) JPI Display- Defaults: /NODENAME=DRPCTX( /USERNAME=*) /IMAGENAME=*D /MODE=(INTERACTIVE,BATCH,NETWORK,OTHER)R /JOBTYPE=(LOCAL,DIALUP,REMOTE,BATCH,NETWORK,DETACHED)$ /NOSORT' /PROCESS=*( /TERMINAL=*' /HW_NAME=*A /BASEPRIORITY=(MINIMUM=0,MAXIMUM=16)$ /HEADER% /TRAILER$ /NOSWAP' /NOSYMBOLS+ /PRIVILEGE=ANYC The following defaults shown in Example 1-1 are inputC /output options and are listed in Table 1-2: /NOSORT,E /HEADER, /TRAILER, /NOSWAP, and /NOSYMBOLS. The rest ofF the defaults are selection criteria, which are listed in Table 1-1.! Privileges_RequiredE For you to access information for processes within yourD group, your calling process must have the GROUP systemF privilege. For you to view processes outside your group,D your process must have the WORLD system privilege. JPIA displays only processes for which you have required  privileges. 1.1.1 Installing JPIH You must install JPI using VMSINSTAL. You can install ontoH a system running VMS Version 5.3 or higher and OpenVMS AXP$ Version 6.1 or higher.A To install JPI, copy the save set JPI021.A from the@ distribution media CD-ROM to your system. Then run> VMSINSTAL specifying the JPI021.A save set. (See Example 1-2.)I System Management Examples 1-5  " System Management Examples1 1.1 Job Process Information (JPI) UtilityC For more information about how to access the files onG the distribution media, see the OpenVMS AXP CD-ROM User's Guide.I Files that the installation kit modifies or creates are the following:I ___________________________________________________________B Created orI File____________________Description_______Updated__________? SYS$LIBRARY:DCLTABLES.EXDCL tables Updated6 executable image? SYS$SYSTEM:JPI.EXE JPI utility Created6 executable image? SYS$HELP:HELPLIB.HLB JPI Help file Updated? SYS$MANAGER:JPI021.RELEAJPI release Created+ NOTES notes? JPIBAS.BAS BASIC sub-module CreatedD (optionally)? JPIGBLSYM.MAR Global symbol CreatedD definitions (optionally)? JPICLD.CLD JPI command CreatedD definitions (optionally)? JPI.COB COBOL code for CreatedI ________________________JPI_______________(optionally)_____G _______________________ Caution _______________________A This utility uses the DCLTABLES CLI for a commandF named JPI. JPI is not a Digital registered command andE therefore may, in the future, conflict with a Digital' registered DCL command.F ______________________________________________________H Example 1-2 contains a sample log file for an installation% of JPI using VMSINSTAL.& 1-6 System Management Examples  I System Management ExamplesI 1.1 Job Process Information (JPI) UtilityF ________________________ Note ________________________C During the installation, if you answer "Yes" to theD question "Do you want the source files?", be sure to8 specify a directory that already exists.F ______________________________________________________I System Management Examples 1-7  " System Management Examples1 1.1 Job Process Information (JPI) UtilityC Example 1-2 Sample VMSINSTAL Log File for JPI Utility Username: TMACK Password:Y Welcome to OpenVMS AXP (TM) Operating System, Version 6.1 on node DRPCTXK Last interactive login on Friday, 11-MAR-1995 16:25:42.72O Last non-interactive login on Friday, 11-MAR-1995 16:00:17.98B $ @sys$update:vmsinstal jpi021.a sys$login options iW OpenVMS AXP Software Product Installation Procedure Version 6.1R %VMSINSTAL-W-NOTSYSTEM, You are not logged in to the SYSTEM account.L %VMSINSTAL-W-ACTIVE, The following processes are still active: TMACK7 The following products will be processed: JPI V2.1A Beginning installation of JPI 2.1 at 16:26D %VMSINSTAL-I-RESTORE, Restoring product save set A ...Y %VMSINSTAL-I-RELMOVED, Product's release notes have been moved to SYS$HELP.? The following source files are available:; QW_$JPI021.A3J*[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.TXT;1h?͘ 1) jpi.cob - The main programV 2) jpicld.cld - called by jpi.cob when jpi invoked remotelyW 3) jpibas.bas - called by jpi.cob for remote access file I/OD 4) jpigblsym.mar - global symbol definitions8 * Do you want the source files? [NO]? yesG * Enter Directory for Source(s) [SYS$SYSDEVICE:[TMACK]]:W This version of JPI has the capability to be called from a remoteW JPI image on another DECnet node. In order for this capability toX be utilized, a DECnet object must be defined on this node/cluster.H * Do you want to define the JPI DECnet object? [YES]? yesL * Do you want to run the IVP after the installation [YES]? yesS * Do you want to purge files replaced by this installation [YES]? yes3 No further questions will be asked.E The network object JPI has been defined. If you wishnF to view this, run SYS$SYSTEM:NCP and issue the command/ NCP> LIST OBJECT JPI CHARiI (continued on next page)n& 1-8 System Management Examples  I System Management ExampleshI 1.1 Job Process Information (JPI) UtilityhC Example 1-2 (Cont.) Sample VMSINSTAL Log File for JPIi) Utilityw4 %JPI-I-LINK, Linking the jpi image ...T ----------------------------------------------------------------------, POST INSTALLATION INSTRUCTIONS( For cluster installations:A 1) You must execute the DCL command INSTALL/REPLACE N SYS$LIBRARY:DCLTABLES.EXE on each node of the VMScluster thatN utilizes this system disk. This has been done on this node byN the installation procedure. You can use the SYSMAN utility to@ accomplish this by using the following example: MCR SYSMANm0 SYSMAN> SET ENVIRONMENT/CLUSTERE SYSMAN> DO INSTALL REPLACE SYS$LIBRARY:DCLTABLES.EXEo SYSMAN> EXIT_N 2) On each node of this cluster that uses the same DECnet objectM database as this node, you must issue an appropriate network3 object definition and set command.  Examples: Phase IV:- $ MCR NCP SET OBJ JPI ALL & Phase V: (DECNET/OSI) $ mcr ncloF NCL> CREATE NODE 0 SESSION CONTROL APPLICATION JPI\ NCL> SET NODE 0 SESSION CONTROL APPLICATION JPI ADDRESSES = {NAME=JPI} - ,CLIENT = -, ,INCOMING ALIAS = TRUE -, ,INCOMING PROXY = TRUE -- ,OUTGOING ALIAS = FALSE -t, ,OUTGOING PROXY = TRUE -* ,NODE SYNONYM = TRUE -6 ,IMAGE NAME = SYS$SYSTEM:JPI.EXE -( ,INCOMING OSI TSEL =G This step is required is lieu of restarting the entire3 DECnet and must be done only once.o' For ALL installations:lI (continued on next page)OI System Management Examples 1-90  " System Management Examples1 1.1 Job Process Information (JPI) UtilityiC Example 1-2 (Cont.) Sample VMSINSTAL Log File for JPIo) Utility,U For each user who is currently logged in, either issue the following V DCL command SET COMMAND/TABLE=SYS$LIBRARY:DCLTABLES, or have the userV log out and then log in again in order to receive the new DCL command for JPI.nT ----------------------------------------------------------------------\ %VMSINSTAL-I-MOVEFILES, Files will now be moved to their target directories...0 Now Executing the IVP for JPI V2.1H IVPSUCCESS-I-FNDEXE, JPI V2.1 image located in sys$system. Invoking JPI ... . . .V IVPSUCCESS-I-JPIOK, Invocation of JPI command produced expected results.V IVPSUCCESS-I-FNDHLP Utility JPI help module located in SYS$HELP:HELPLIB.D IVPSUCCESS-I-IVPCMPLT, IVP has completed successfully.9 Installation of JPI 2.1 completed at 16:27mL Adding history entry in VMI$ROOT:[SYSUPD]VMSINSTAL.HISTORYS Creating installation data file: VMI$ROOT:[SYSUPD]JPI021.VMI_DATAn0 VMSINSTAL procedure done at 16:27 $ logB TMACK logged out at 11-MAR-1995 16:27:51.71 1.1.2 Using JPIiF When you use JPI, you can choose combinations of the JPIH selection criteria shown in Table 1-1 and the input/output) options shown in Table 1-2. E Table 1-1 describes selection criteria that you can use_D to indicate which processes you want to include in theC display. The selection criteria apply to the scope oftD the JPI process search, whether the search is confinedG to a local node, a local cluster, a remote node, a remotef3 cluster, or any combination of these.e' 1-10 System Management Examples   I System Management ExamplesfI 1.1 Job Process Information (JPI) UtilityiI Table_1-1_JPI_Selection_Criteria_________________________________aI Option______Desc +ription__________________________________________ < BASE- Format: JPI/BASEPRIORITY=(keyword[,...])D PRIORITY Allows you to select processes based on the baseD priority of the process. If you specify multipleG keywords, separate them with commas and enclose theJ( list in parentheses.F Following are explanations of the keywords MINIMUM and MAXIMUM: o MAXIMUM=nH Selects processes that have a base priority equalC to or less than the specified parameter. The 1 default for MAXIMUM is 16. o MINIMUM=nH Selects processes that have a base priority equalF to or greater than the specified parameter. The0 default for MINIMUM is 0., o (MINIMUM=n,MAXIMUM=n)I Selects processes that have a base priority within0 the parameters specified.F To specify a single base priority, specify MINIMUME and MAXIMUM as the same value. The default is all  priorities.  Examples:o> 1. JPI/BASEPRIORITY=(MINIMUM=4,MAXIMUM=10)I The command in this example selects only processes= with base priorities between 4 and 10. 1 2. JPI/BASEPRIORITY=MINIMUM=9-I The command in this example selects processes with 8 base priorities between 9 and 16.= 3. JPI/BASEPRIORITY=(MINIMUM=4,MAXIMUM=4)SI The command in this example selects processes with0, a base priority of 4.I (continued on next page) I System Management Examples 1-11   S" System Management Examples1 1.1 Job Process Information (JPI) UtilitySI Table_1-1_(Cont.)_JPI_Selection_Criteria_________________________0I Option______Description__________________________________________XA HW_NAME Format: JPI/HW_NAME=(cpu_hardware_name[,...]).H Displays processes running on the specified CPU. TheH CPU name is the same value as that returned from tRl$JPI021.A3J*[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.TXT;1h?ir 0heG $GETSYI("HW_NAME") lexical function and the HW_TYPE 5 item on a $ SHOW CLUSTER listing.EF You can use the wildcard characters % and * and upD to 10 arguments within the specification. If youF specify multiple CPU hardware names, separate themD with commas and enclose the list in parentheses.G If a CPU hardware name includes one or more spaces,.B tabs, or the slash (/) character, you must useH quotation marks around the entire name; for example, "*/GPX".F You must use /HW_NAME with either the /NODENAME orH the /CLUSTER qualifier. The default is all CPU types* (that is, /HW_NAME=*).E Example: JPI/HW_NAME=("VAX 6000*","*VLC")/CLUSTERCE The command in this example selects all processes.B running on any CPU on the local cluster eitherF beginning with the value VAX 6000 or having VLC in* the CPU hardware name.I (continued on next page)E' 1-12 System Management Examples( t eI System Management ExamplesI 1.1 Job Process Information (JPI) UtilityEI Table_1-1_(Cont.)_JPI_Selection_Criteria_________________________lI Option______Description__________________________________________a; IMAGENAME Format: JPI/IMAGENAME=(imagename[,...])RC Specifies the image name or names to be used as D selection criteria. When you use this qualifier,H JPI issues an implied /SWAP. (See the description of6 the /SWAP qualifier in Table 1-2.)F You can use wildcard characters in image names. IfH you specify multiple image names, separate them with? commas and enclose the list in parentheses. E If you use the /IMAGE qualifier, an implied /SWAP E is issued to JPI to ensure that all process imageLI names are available for review. You can override thisn; implied /SWAP with a /NOSWAP qualifier.-< The default is all image names (that is," /IMAGENAME=*).7 Example: JPI/IMAGENAME=(*SMB*,DOC*) E The command in this example selects all processes F that have image names containing SMB and all image. names that start with DOC.F Performance note: Because the $PROCESS_SCAN systemE service does not support an image name selection,gH JPI performs this selection after the $GETJPI systemH service has been called. As a result, IMAGENAME is aG costly option in terms of performance; that is, you F will notice a degradation in display response time0 when you use this qualifier.I (continued on next page)mI System Management Examples 1-13e t S" System Management Examples1 1.1 Job Process Information (JPI) UtilityeI Table_1-1_(Cont.)_JPI_Selection_Criteria_________________________.I Option______Description__________________________________________i7 JOBTYPE Format: JPI/JOBTYPE=(jobtype[,...])tF Specifies the process job type or types to be usedH as selection criteria. Possible job types are LOCAL,A DIALUP, REMOTE, BATCH, NETWORK, and DETACHED._B You need to enter only enough text to uniquelyF identify the job type. If you specify multiple jobI types, separate them with commas and enclose the listB# in parentheses. I The default is all job types (that is, /JOBTYPE=ALL).M6 Example: JPI/JOBTYPE=(LOCAL,BATCH)F The command in this example selects processes thatA have the LOCAL and BATCH job type attributes.11 MODE Format: JPI/MODE=(mode[,...]) E Specifies the process mode or modes to be used asuI selection criteria. The modes are INTERACTIVE, BATCH, & NETWORK and OTHER.B You need to enter only enough text to uniquelyE identify the mode. If you specify multiple modes, E separate them with commas and enclose the list in parentheses.B The default is all modes (that is, /MODE=ALL).9 Example: JPI/MODE=(INTERACTIVE,BATCH)oH The command in this example displays INTERACTIVE and( BATCH process modes.I (continued on next page)o' 1-14 System Management Examples  h fI System Management ExamplescI 1.1 Job Process Information (JPI) Utility_I Table_1-1_(Cont.)_JPI_Selection_Criteria_________________________iI Option______Description__________________________________________x; NODENAME Format: JPI/NODENAME[=(nodename[,...])] B Specifies the cluster node or nodes to be usedC as selection criteria. You can use DCL wildcard_E characters in node names. If you specify multipletI node names, separate them with commas and enclose they( list in parentheses.H JPI ignores the /NODENAME qualifier when you specify@ it on a non-clustered system. You cannot use: /NODENAME with the /CLUSTER qualifier.H To retrieve information from the local node when youG use the /RNODENAME or /RCLUSTER qualifier, you mustc5 also use the /NODENAME qualifier.lF Node name values can be logical names. Only first-B level logical name translation is performed onD logical names; that is, a specified value cannotI translate to a logical name that, in turn, translates , to another logical name.G You can specify up to 50 node names. If a node name1E is a logical name that points to multiple values,PI each of these corresponding values counts against theT limit of 50. Example:1 $ DEFINE CI SNAK,NOLAND,IPM31i- $ JPI/NODENAME=(CI,PCDE*) E The JPI command following the definition actually G uses up 4 of the possible 50 node name values-three F for the translated values from the logical CI, andC one for the wildcarded explicit value of PCDE*.tI If you do not specify a node name, the default is thee! current node.o8 Example: JPI/NODENAME=(HICCUP,DSWK%)F The command in this example selects the following:7 o All processes on the node HICCUPeD o Processes on nodes with node names that are 5C characters long and have DSWK as the first 4s! characters I (continued on next page)nI @ System Management Examples 1-15   g" System Management Examples1 1.1 Job Process Information (JPI) Utility,I Table_1-1_(Cont.)_JPI_Selection_Criteria_________________________uI Option______Description__________________________________________w; PRIVILEGE Format: JPI/PRIVILEGE=(privilege[,...]) B Specifies the process privileges to be used asD selection criteria. You cannot use wildcards. IfG SL&$JPI021.A3J*[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.TXT;1h?"A you specify multiple privileges, separate them with ? commas and enclose the list in parentheses.I You can concatenate privilege names with the plus (+) I sign if you place quotation marks around concatenatedg> privileges; for example, "SYSNAM+READALL".< The default is all image names (that is,$ /PRIVILEGE=ANY). Example:I JPI/PRIVILEGE=("READALL+GRPPRV",SYSNAM,BYPASS,SYSPRV) E The command in this example finds a process matchaC if the process currently has READALL and GRPPRV-F privileges, SYSNAM privilege, BYPASS privilege, or% SYSPRV privilege.nF Privileges available to an authorized process on a= VMS Version 6.1 system are the following:VB ACNT, ALLSPOOL, ALTPRI, AUDIT, BUGCHK, BYPASS,I CMEXEC, CMKRNL, DETACH, DIAGNOSE, DOWNGRADE, EXQUOTA,cI GROUP, GRPNAM, GRPPRV, IMPORT, LOG_IO, MOUNT, NETMBX, I OPER, PFNMAP, PHY_IO, PRMCEB, PRMGBL, PRMMBX, PSWAPM,>D READALL, SECURITY, SETPRV, SHARE, SHMEM, SYSGBL,D SYSLCK, SYSNAM, SYSPRV, TMPMBX, UPGRADE, VOLPRO, WORLDiF Many privileges, with varying degrees of power andC potential system impact, are available. See thejG OpenVMS System Manager's Manual for a more detailed 7 discussion of available privileges. H Performance note: Using the /PRIVILEGE qualifier can< adversely affect the performance of JPI.I (continued on next page)O' 1-16 System Management Examples   I System Management ExamplesII 1.1 Job Process Information (JPI) Utility I Table_1-1_(Cont.)_JPI_Selection_Criteria_________________________RI Option______Description__________________________________________ 7 PROCESS Format: JPI/PROCESS=(process[,...])eE Specifies the process name or names to be used astG selection criteria. You can use wildcard characters E in process names. If you specify multiple processI names, separate them with commas and enclose the list# in parentheses.n> The default is all process names (that is, /PROCESS=*).5 Example: JPI/PROCESS=(SYSTEM,JA*) E The command in this example selects all processes G with process names of SYSTEM and process names thatC1 begin with the characters JA.rI (continued on next page)DI System Management Examples 1-17- - " System Management Examples1 1.1 Job Process Information (JPI) UtilityI Table_1-1_(Cont.)_JPI_Selection_Criteria_________________________FI Option______Description__________________________________________: RNODENAME Format: JPI/RNODENAME=(nodename[,...])E Specifies the remote node name or names for whichpG the selection criteria apply. As with the /NODENAME E qualifier, these values can be logical names. ThehD limit for node name values is 50. The JPI DECnetG object must be properly defined on the remote node;[H this object must point to a valid JPI image (Version# 2.0 or higher).nC You can pass access control information as partoE of the node name specification. In the absence ofH optional proxy access information on the target nodeH or nodes, default DECnet access information applies.C Specifying /RNODENAME negates default selectionB criteria on the issuing node. If you also wantA process information about the issuing node or E cluster, you must specify a /NODENAME or /CLUSTERe2 qualifier on the command line.7 Example: JPI/RNODENAME=(IM4U"rburnsc* greatscotts",COOKIE::)F The command in this example issues remote calls to* nodes IM4U and COOKIE:D o For node IM4U, JPI will utilize the user nameH rburns and password greatscotts for logging in to' the JPI process._> o To log in to node COOKIE, JPI must have@ proxy information defined for the calling) username:password. I (continued on next page) ' 1-18 System Management Examples  t eI System Management Examples I 1.1 Job Process Information (JPI) UtilitylI Table_1-1_(Cont.)_JPI_Selection_Criteria_________________________ I Option______Description__________________________________________a TERMINAL Formats:6 /NOTERMINAL JPI/TERMINAL=(terminal_name[,...])% JPI/TERMINAL=noneM$ JPI/TERMINAL=anyE Specifies the process-associated terminal name or I names to be used as selection criteria. JPI selects aaH process if any of the supplied values match the name< of a terminal associated with a process.< You can enter up to 10 separate terminalD specifications. If you specify multiple terminalI names, separate them with commas and enclose the lists# in parentheses.H You can use wildcards anywhere within the arguments.C When you specify /TERMINAL=none or /NOTERMINAL, F JPI selects only processes that have no associatedB terminal. This is equivalent to /TERMINAL=" ".H The default is all terminals (that is, /TERMINAL=*).I (continued on next page)oI System Management Examples 1-19   e" System Management Examples1 1.1 Job Process Information (JPI) Utility.I Table_1-1_(Cont.)_JPI_Selection_Criteria_________________________I Option______Description__________________________________________ Examples:g/ 1. JPI/TERMINAL=(RTA*,FTA*) I The command in this example selects processes with_H associated terminal names that begin with RTA and FTA. / 2. JPI/TERMINAL=(none,RTA*)eI The command in this example selects processes withPE no associated terminal and terminal names that 5 begin with the characters RTA.l% 3. JPI/NOTERMINAL E The command in this example selects only thosesC processes that have no associated terminals.r' 4. JPI/TERMINAL=ANY I The command in this example selects processes that E have a non-blank terminal name associated with  them.@ Specify /TERMINAL=ANY if you want to specifyB processes that have a terminal associated withE them. The ANY value deselects processes that have, no terminal association.I (continued on next page)e' 1-20 System Management ExamplesE . I System Management Examples I 1.1 Job Process Information (JPI) Utility T}w$JPI021.A3J*[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.TXT;1h?"RI Table_1-1_(Cont.)_JPI_Selection_Criteria_________________________iI Option______Description__________________________________________a9 USERNAME Format: JPI/USERNAME=(username[,...]) B Specifies the user name or names to be used asG selection criteria. You can use wildcard characters F in user names. If you specify multiple user names,E separate them with commas and enclose the list inn parentheses.I The default is all user names (that is, /USERNAME=*)._6 Example: JPI/USERNAME=(KAHILL,JA*)E The command in this example selects all processesoI that have the user name KAHILL and all processes witheI ____________user_names_beginning_with_the_characters_JA._________ A You can sort the selection criteria in Table 1-1 in)D any combination of field order, in either ascending or descending order.c; Example: JPI/SORT=(WSSIZE=DESCENDING,PROCESS) C Table 1-2 shows the input and output options that aref! available with JPI.mI Table_1-2_JPI_Input/Output_Options_______________________________  Type ofI Option______Option_Description___________________________________OA CLUSTER Input Causes JPI to search all cluster nodessE for processes matching the input selectionxG criteria. The CLUSTER option is ignored whent> specified from a noncluster system.H You cannot negate this qualifier (it is equalD to /NODENAME=*), nor can you specify thisB qualifier with the /NODENAME qualifier.5 The default is /NOCLUSTER.tI (continued on next page)cI System Management Examples 1-21s  f" System Management Examples1 1.1 Job Process Information (JPI) UtilityeI Table_1-2_(Cont.)_JPI_Input/Output_Options_______________________  Type ofI Option______Option_Description___________________________________mG HEADER Output Controls whether a header line is displayed.oE You cannot specify this qualifier with the_. /SUMMARY qualifier.2 The default is /HEADER.3 OUTPUT Output Format: /OUTPUT=filename/C Controls where the output of the commandoE is sent. You must have write access to thePI specified area. The default area for a file isT< the current device and directory.I (continued on next page)o' 1-22 System Management Examplese s I System Management ExamplesbI 1.1 Job Process Information (JPI) UtilityEI Table_1-2_(Cont.)_JPI_Input/Output_Options_______________________s Type ofI Option______Option_Description___________________________________]@ RCLUSTER Input Format: /RCLUSTER=(clustername[,...])G Specifies the remote cluster or clusters for,E which the selection criteria apply. If you C specify multiple cluster names, separatedC them with commas and enclose the list in ' parentheses. @ JPI will make selections on all nodesI currently executing in the cluster and meeting:E all other specified selection criteria. AsiI with the /NODENAME qualifier, these values can.G be logical names. The limit for cluster namea( values is 50.G You must define the JPI DECnet object on theSI remote node; this object must point to a valid E JPI image (Version 2.0 or higher). You can_E pass access control information as part of_F the node name specification. In the absenceF of optional proxy access information on theF target node or nodes, default DECnet access/ information applies. I Specifying /RCLUSTER negates default selectionnI criteria on the issuing node. If you also wantiE cluster information about the issuing nodeeD or cluster, you must explicitly specify aI /NODENAME or /CLUSTER qualifier on the command line.I (continued on next page)AI System Management Examples 1-23r  " System Management Examples1 1.1 Job Process Information (JPI) UtilityeI Table_1-2_(Cont.)_JPI_Input/Output_Options_______________________t Type ofI Option______Option_Description___________________________________ F SELECTION Output Indicates that selection criteria are to beF displayed. The command line and any defaultG values will be displayed. (See Example 1-1.)dG If you use the /SELECTION qualifier and also H supply password information with an /RCLUSTERG qualifier, an /RNODENAME qualifier, or both, I the literal word "password" is substituted forsI the actual password on the displayed selectionh line.7 The default is /NOSELECTION.i7 SORT Output Format: SORT=(keyword[,...])pF Specifies the sort sequence for the output.B Valid keywords are BASEPRIORITY, IMAGE,H JOBTYPE, MODE, NODENAME, PID, PROCESS, STATE,: TERMINAL, USERNAME, and WSSIZE.E If you specify multiple keywords, separate C them with commas and enclose the list in E parentheses. You cannot use this qualifier 7 with the /SUMMARY qualifier. A The default is /NOSORT. If you specify B /SORT without any keywords, the defaultG sort sequence is by ascending user name. The_> default sorting order is ascending.E You can specify the order for each keywordR% specified. F Example: /SORT=(USERNAME=DESCENDING,WSSIZE)G The command in this example sorats the outputoC first by descending user name, and then, E within user name, by ascending working seto size.I (continued on next page)u' 1-24 System Management Examplesl s oI System Management ExamplessI 1.1 Job Process Information (JPI) UtilitymI Table_1-2_(Cont.)_JPI_Input/Output_Options_______________________  Type ofI Option______Option_Description___________________________________AI SUMMARY Output Limits the display to only a summary line. YouiI /NOSUMMARY cannot specify this qualifier with the /HEADERr/ or /SORT qualifiers.3 The default is /SUMMARY.oG SWAP Input Causes the $GETJPI system service to swap in,HUr$JPI021.A3J*[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.TXT;1h?~c any processes that have been swapped out. YouF can use this option to retrieve any processE information in the outswapped process dataX& structures.@ Currently, the process image name andG working set size are maintained in swappableD data structures; you can retrieve them by: specifying the /SWAP qualifier.2 The default is /NOSWAP.A Performance note: Inswapping can causeiG considerable degradation in JPI performance.IG SYMBOLS Output Instructs JPI to create local string symbolsoE /NOSYMBOLS that equate to the formatted detail lines.nC Symbol names are of the form JPI$DETAIL_E LINE_nnnn, where nnnn is a zero-filled andp3 right-justified integer. I In addition, the local string symbol JPI$ITEM_rG COUNT contains an integer value representing_E the total number of processes matching theCI selection criteria. When there are no matches,a6 the symbol is equated to 0.E TRAILER Output Causes a one-line summary of the number ofsC /NOTRAILER processes to be displayed after the lasttH detail process line has been displayed. TheseH processes are ones found within the selectionG criteria to which you had access privileges.SI ___________________The_default_is_/TRAILER.______________________  Usage NoteD Select remote node information by using the /RNODENAMEH qualifier; select remote cluster information by specifyingIg System Management Examples 1-25  " System Management Examples1 1.1 Job Process Information (JPI) Utility E the /RCLUSTER qualifier; or you can use both qualifiers D together. The syntax for these qualifiers is identicalB to that specified with the /NODENAME qualifier. (See Table 1-1.)H In addition, you can specify access control information inH the standard DECnet syntax for each of the remote nodes or# clusters you specify. ! 1.2 Terminating Processes C The KILLPROCESS.COM procedure allows you to terminate 5 processes on the local node or cluster.G You can use the procedure to terminate only processes for ' which you have privilege.tC To invoke the procedure, enter the following command: $ @KILLPROCESS.COMB The system returns the process identification (PID),G terminal identifier, user name, image name, process name,s6 and node for each process on the system.Y Proc Id Term Username Image Name Process Name NodeM[ 1) 27C058B4 FTA558: SMITH....... VMSHELP........ _FTA558:............ BHAK..t[ 2) 27C014CE RTA10:. JONES....... ............... - Joe - ........... BHAK..s[ 3) 27C05EDC VTA771: WALTERS..... ............... _VTA771:............ BHAK..l[ 4) 27C034E8 VTA773: ADAMS....... RTPAD.......... _VTA773:............ BHAK..o[ 5) 27C06AF1 ....... DAVIS....... ............... Dan Davis........... BHAK.. [ 6) 27C060F2 RTA25:. JEFFRIES.... ............... _RTA25:............. BHAK..i[ 7) 27C04D27 FTA542: SMITH....... ............... SMITH............... BHAK.. [ 8) 26602A7A FTA145: SMITH....... ............... SMITH............... DELANDI[ 9) 26602AAC FTA154: SMITH....... ............... _FTA154:............ DELAND [ 10) 27803033 FTA111: SMITH....... ............... _FTA111:............ IPL31.n[ 11) 2780309B FTA114: SMITH....... ............... SMITH............... IPL31. [ 12) 278002FD RTA12:. JONES....... ............... - Joe - ........... IPL31..[ 13) 212000C3 MBA182: JONES....... DECW$MWM....... DECW$MWM............ WRTR07a[ 14) 212000C8 ....... JONES....... ............... VUE$JONES_4......... WRTR07_[ 15) 212000D1 MBA197: JONES....... DECW$CLOCK..... VUE$JONES_5......... WRTR07.[ 16) 212000D4 ....... JONES....... ............... VUE$JONES_6......... WRTR07 [ 17) 212000DA FTA21:. JONES....... RTPAD.......... _FTA21:............. WRTR07b[ 18) 2120026E FTA22:. JONES....... RTPAD.......... JONES............... WRTR07i[ 19) 212000B0 FTA15:. JONES....... DECW$SESSION... - Joe - ........... WRTR07 ' 1-26 System Management Examplesr  mI System Management Examples I 1.2 Terminating Processes O Select Process to Terminate ('/' to Select Specific Users) [Exit]wF You can choose which processes to terminate by selectingI the number. To view all of the processes of one user, enternC a slash (/). The system returns the following prompt:R/ Enter Username to Select From [*]lE At this prompt, the default, the asterisk (*), displays C the entire list of users again. However, if you enterE SMITH, for example, the system returns a sorted list ofl? Smith's processes from which you can then choose. Y Proc Id Term Username Image Name Process Name Nodet[ 1) 27C058B4 FTA558: SMITH....... VMSHELP........ _FTA558:............ BHAK.._[ 2) 27C04D27 FTA542: SMITH....... ............... SMITH............... BHAK..T[ 3) 26602A7A FTA145: SMITH....... ............... SMITH............... DELAND [ 4) 26602AAC FTA154: SMITH....... ............... _FTA154:............ DELAND[ 5) 27803033 FTA111: SMITH....... ............... _FTA111:............ IPL31.h[ 6) 2780309B FTA114: SMITH....... ............... SMITH............... IPL31.lG When you have selected a process to terminate, the system I will ask for confirmation by returning the following query: 5 Please Confirm! Kill this Process? [No]pG If you choose no, the default, the system will return theTE complete list of processes. If you type yes, the systemc6 will terminate the process you selected.I For each process you terminate, user Smith will receive the G following terminal message, where SYSTEM is the user name 9 of the process terminating Smith's process: P Reply received on BHAK from user SYSTEM at _BHAK$RTA25: 16:32:17 Sorry.@ Your Process was killed at 3-MAR-1994 16:32:17.46< By User SYSTEM at terminal RTA25: on Node BHAK6 Terminal _BHAK$RTA25: has been notified.F You might use the procedure to terminate SMITH processes9 directly by entering the following command: & $ @KILLPROCESS.COM SMITHI System Management Examples 1-27_ _ _" System Management Examples! 1.2 Terminating Processes C In this example, the system returns the PID, terminal G identifier, user name, image name, process name, and node 8 for each process with the user name Smith.[ Proc Id Term Username Image Name Process Name Node ] (1) 27C058B4 FTA558: SMITH....... VMSHELP........ _FTA558:............ BHAK.._] (2) 27C05EDC VTA771: SMITH....... ............... _VTA771:............ BHAK..n] (3) 27C034E8 VTA773: SMITH....... RTPAD.......... _VTA773:............ BHAK..l] (4) 27C06AF1 ....... SMITH....... ............... Sue Smith........... BHAK..] (5) 27C060F2 RTA25:. SMITH....... ............... _RTA25:............. BHAK..o] (6) 27VNY8$JPI021.A3J*[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.TXT;1h?tC04D27 FTA542: SMITH....... ............... SMITH............... BHAK..m] (7) 26602A7A FTA145: SMITH....... ............... SMITH............... DELANDt] (8) 26602AAC FTA154: SMITH....... ............... _FTA154:............ DELANDt] (9) 27803033 FTA111: SMITH....... ............... _FTA111:............ IPL31. ] (10) 2780309B FTA114: SMITH....... ............... SMITH............... IPL31.uP Select Process to Terminate ('/' to Select Specific Users) [Exit])G You can then select any or all of the SMITH processes forU termination.I For each process you terminate, user Smith will receive the 0 same terminal message shown above.F You can also use wildcards to sort the list of processesC by user. For example, you can obtain a listing of alllA processes with user names beginning with A and B by- entering the following command: & $ @KILLPROCESS.COM A* B*G A copy of KILLPROCESS.COM is available on the OpenVMS AXPE distribution media in the [DOCUMENTATION.V061.EXAMPLES]oE directory. For more information about how to access thesI files on the distribution media, see the OpenVMS AXP CD-ROMf User's Guide.D* 1.3 Submitting Periodic Batch JobsI The PERIODIC.TEMPLATE file can be used to create proceduresH that allow you to execute periodic, repetitive batch jobs.H The procedure allows you to submit jobs 7 days a week, but2 is limited to executing on the hour.F For example, you may want to receive periodic reports ofI users on a system. To do this, first copy PERIODIC.TEMPLATEvH to a file named USERS.COM (or some other meaningful name).' 1-28 System Management Examples   I System Management Examples I 1.3 Submitting Periodic Batch JobsH Edit USERS.COM and modify the schedule table. For example,B if you want the job to execute every business day atE 06:00, 12:00, 18:00, and 00:00, the table should appear as follows:P $!D $! 000000000011111111112222D $! 012345678901234567890123E $ schedule_sunday = " "nE $ schedule_monday = "1 1 1 1 "rE $ schedule_tuesday = "1 1 1 1 " E $ schedule_wednesday = "1 1 1 1 "eE $ schedule_thursday = "1 1 1 1 "hE $ schedule_friday = "1 1 1 1 " E $ schedule_saturday = " " C To submit the procedure, enter the following command: , $ @USERS.COM "SHOW USERS/FULL"C Note that this command procedure can be used to issuelD DCL commands, as illustrated above, or to call anotherC command procedure. To call another command procedure, F enter the following, where PERIODIC.COM is the procedureH containing the schedule and UPDATE.COM is the procedure to be submitted:(+ $ @PERIODIC.COM "@UPDATE.COM" B The procedure will run indefinitely, returning everyC 6 hours a listing of users on the system. To stop the I procedure, issue a SHOW ENTRY command for your batch queue. I When you have determined the entry number of the procedure, G issue the command STOP/ID=nnn, where nnn is the number ofR& the entry to be stopped.E A copy of PERIODIC.TEMPLATE is available on the OpenVMS I AXP distribution media in the [DOCUMENTATION.V061.EXAMPLES] E directory. For more information about how to access the I files on the distribution media, see the OpenVMS AXP CD-ROM  User's Guide. I System Management Examples 1-29  " System Management Examples# 1.4 Displaying System Roots# 1.4 Displaying System RootsF The FINDROOTS.COM procedure allows you to find out whichC system roots are available on your system. Using this G information, you can reuse unused system roots, or, usingpG SYS$MANAGER:CLUSTER_CONFIG.COM, you can delete roots thatd! you no longer need.t? When invoked, FINDROOTS scans for system roots inyD SYS$SYSDEVICE and displays the root, node name, DECnetI address, last boot date and time, and hardware type of eachiF system root it finds. The information FINDROOTS displaysB for each root directory that it finds comes from the4 ALPHAVMSSYS.PAR system parameter file.G The procedure also allows you to create logical names foraF roots; it creates a logical name table with an entry for. each logical name specification.G Example 1-3 shows a sample FINDROOTS display, with columnp3 labels added for easy identification.u' 1-30 System Management Examples  I System Management Examples I 1.4 Displaying System Roots , Example 1-3 Sample FINDROOTS Display] Executing WORK111:[SMACK]FINDROOTS.COM;19 from node RACKUP at 15-MAR-1995 15:22:03.76sX System Root Node DECnet Last Boot Date and Time Hardware Type( NodeY ------------- ---- ------ ---------------------- --------------fW [SYS0.SYSEXE] ASL31 19.0850 7-FEB-1995 12:25:04.66 VAX 6000-240 ^ [SYS10.SYSEXE] FOSATO 19.0699 1-MAR-1995 16:29:25.98 VAXstation 3100/GPX^ [SYS11.SYSEXE] SUBWAY 19.0345 23-FEB-1995 13:30:36.54 VAXstation 3100/GPXZ [SYS12.SYSEXE] SAMMY 19.0348 11-MAR-1995 10:53:26.43 VAXstation 2000a [SYS13.SYSEXE] CRUMBA 19.0473 16-FEB-1995 12:17:59.88 VAXstation 3600 SeriesnZ [SYS14.SYSEXE] FLOP 63.0135 18-JAN-1995 08:22:41.43 VAXstation 3100^ [SYS15.SYSEXE] MEMBER 19.0855 24-FEB-1995 12:19:47.75 VAXstation 3100/GPX^ [SYS16.SYSEXE] SIGNUP 63.0868 18-JAN-1995 08:53:00.16 VAXstation 3100/GPXZ [SYS17.SYSEXE] WRITIT 63.0090 21-JAN-1995 10:15:02.57 VAXstation 3100^ [SYS18.SYSEXE] MATCHU 19.0188 18-JAN-1995 08:36:04.10 VAXstation 4000-VLC^ [SYS19.SYSEXE] CAKE 19.0839 10-FEB-1995 09:36:42.90 VAXstation 4000-VLC^ [SYS1A.SYSEXE] APPLES 63.0261 18-JAN-1995 08:09:51.97 VAXstation 4000-VLC^ [SYS1B.SYSEXE] ONEDER 63.0213 7-FEB-1995 15:18:25.99 VAXstation 4000-VLCE [SYS1C.SYSEXE] ONE4U 19.0235 22-MAR-1993 16:29:10.65 ^ [SYS1D.SYSEXE] DANCER 19.0329 23-FEB-1995 16:53:25.43 VAXstation 3100/GPX^ [SYS1E.SYSEXE] MAX 63.0162 1-MAR-1995 09:43:07.45 VAXstation 4000-VLCZ [SYS1F.SYSEXE] MINNIE 63.0041 18-JAN-1995 08:09:01.50 VAXstation 3100W [SYS2.SYSEXE] RACKUP 19.0868 7-FEB-1995 13:13:50.03 VAX 6000-620 Z [SYS20.SYSEXE] EZROAD 63.0100 8-MAR-1995 08:46:13.24 VAXstation 3100E [SYS21.SYSEXE] FUMIN 19.0166 12-JUN-1993 16:34:00.23dE [SYS22.SYSEXE] HAPPY 63.0916 7-SEP-1993 14:10:24.36e^ [SYS23.SYSEXE] MAKEUP 63.0740 18-JAN-1995 11:51:03.48 VAXstation 3100/GPX+ Notes on the display columns:aC o The system root, node name, and DECnet address arer" always displayed.B o The last boot date and time are displayed only ifF you specify a file from which FINDROOT can retrieve aG boot date and time. FINDROOT.COM explains a method-and 2 includes commands-for doing this.BWM$JPI021.A3J*[RJACK.JPI.021.EXTERNAL]JPI_EXAMPLES.TXT;1h?  o The hardware type is displayed for nodes that are3 currently running in a VMScluster.TI System Management Examples 1-31   " System Management Examples# 1.4 Displaying System Roots E If a hardware type is not listed for a node, and if the I last boot date is old, you can probably reuse the node name H or delete the root. Examples in Example 1-3 are the ONE4U,% FUMIN, and HAPPY nodes. C The FINDROOTS procedure assumes that all system roots C are in SYS$SYSDEVICE on the system that executes this F procedure. Therefore, in a dual-architecture VMScluster,B you must execute this procedure on each system disk.E A copy of FINDROOTS.COM is available on the OpenVMS AXPiE distribution media in the [DOCUMENTATION.V061.EXAMPLES]oE directory. For more information about how to access the I files on the distribution media, see the OpenVMS AXP CD-ROMn User's Guide. $ 1.5 Deleting Directory TreesF The DELTREE.COM procedure allows you to delete all filesE in a specified directory, all files in that directory'sD subdirectories, and, optionally, the directory and its subdirectories. H Verification is required before this procedure will delete a directory.G _______________________ Caution _______________________ C If you have write access to the specified directory.E and files, this procedure automatically converts yourlE write access to delete access. Therefore, setting therD protection on the directory or file will not prevent9 the directory or file from being deleted.gF ______________________________________________________I To invoke the procedure, enter the following command, where,= USER.FILES is the directory you want to delete:f) $ @DELTREE.COM [USER.FILES] B Note that the procedure will operate on the [.FILES]H subdirectory of the USER directory, not the USER directory itself.B' 1-32 System Management ExamplesJ S .I System Management Examples7I 1.5 Deleting Directory Trees G The system returns the following query to verify that youoA want to delete the files in [USER.FILES] directory:aK Confirm. Delete directory tree SYS$SYSDEVICE:[USER.FILES] [N].H If you answer yes, the system returns the following query:5 Confirm. Remove directory files too [Y] B If you answer yes, the system will delete all of theG files in the [USER.FILES] directory, along with any files D contained in subdirectories of the [.FILES] directory.3 Directory files will also be deleted..< If you answer no, the files in [.USER] and itsB subdirectories will be deleted, but the subdirectory+ structure will remain intact.J? If your current default directory is the [.FILES].B directory, enter the following command to delete the: directory's contents and its subdirectories:% $ @DELTREE.COM [-]FILES0D The system will return the same queries shown above to" verify your request.F Example 1-4 shows the messages generated by DELTREE.COM.I In this example, the user has chosen to delete the files inI the [.FILES] directory and leave the subdirectories intact..I System Management Examples 1-33T  " System Management Examples$ 1.5 Deleting Directory Trees* Example 1-4 Sample DELTREE Display $ SHOW DEFAULT SYS$SYSDEVICE:[SMACK]m# $ SET DEFAULT [.USER.FILES]e) $ @SYS$LOGIN:DELTREE.COM [-]FILESiM Confirm. Delete directory tree SYS$SYSDEVICE:[SMACK.USER.FILES] [N] Yy1 Confirm. Remove directory files too [Y] Nta %DELETE-I-FILDEL, SYS$SYSDEVICE:[SMACK.USER.FILES]CLUE$STARTUP_.LOG;36 deleted (9 blocks)Rg %DELETE-I-FILDEL, SYS$SYSDEVICE:[SMACK.USER.FILES]CLUE$STARTUP_SWPCTX.LOG;91 deleted (9 blocks)th %DELETE-I-FILDEL, SYS$SYSDEVICE:[SMACK.USER.FILES]DECW$SERVER_0_ERROR.LOG;112 deleted (3 blocks)` %DELETE-I-FILDEL, SYS$SYSDEVICE:[SMACK.USER.FILES]ERT_ACTIVITY.LOG;66 deleted (0 blocks)b %DELETE-I-FILDEL, SYS$SYSDEVICE:[SMACK.USER.FILES]ESS$LAD_STARTUP.LOG;1 deleted (3 blocks)d %DELETE-I-FILDEL, SYS$SYSDEVICE:[SMACK.USER.FILES]ESS$LAST_STARTUP.LOG;1 deleted (27 blocks)^ %DELETE-I-FILDEL, SYS$SYSDEVICE:[SMACK.USER.FILES]ESS$STARTUP.LOG;2 deleted (6 blocks)] %DELETE-I-FILDEL, SYS$SYSDEVICE:[SMACK.USER.FILES]NETSERVER.LOG;43 deleted (3 blocks).] %DELETE-I-FILDEL, SYS$SYSDEVICE:[SMACK.USER.FILES]SETHOST.LOG;3 deleted (2088 blocks)DC A copy of DELTREE.COM is available on the OpenVMS AXO E distribution media in the [DOCUMENTATION.V061.EXAMPLES].E directory. For more information about how to access thenI files on the distribution media, see the OpenVMS AXP CD-ROMa User's Guide.i' 1-34 System Management Examples?%*[RJACK.JPI.021.EXTERNAL]JPI_IVP.COM;5+,21. /L 4b -J0123KPWO 567 ͒89GLHJ$! Name: jpi021_ivp.com$! Created: 23-MAR-1994 $! By: RJJ>$! Desc: A basic procedure, sanity check, to be sure that the 5$! installation succeeded. Will check the following:>$! 1. Do an image JPI.EXE exist in sys$system and if so, does/$! it have the proper image identification?C$! 2. Does the DCL command JPI exist and product expected results?3$! 3. Is there an entry for the jpi.hlp within the$! sys$help:helplib.hlb?$!'$ on control_y then goto control_y_exitD$ write sys$output f$fao("!/Now Executing the IVP for JPI V2.1-3!/") $ set noon$ ivpwarning = 0$ ivpfatal = 09$ todaydate = f$cvtime(,,"date") - "-" - "-" + "00000000"$ image_check:,$ if f$search("sys$system:jpi.exe") .eqs. ""$ thenN$ write sys$output "IVPFATAL-F-NOEXE, Utility image not found in sys$system"$ ivpfatal = -1$ goto check_help_library$ endif$ define/user sys$output nl:$ define/user sys$error nl:+$ anal/image/out=jpi.tmp sys$system:jpi.exe$ define/user sys$output nl:$ define/user sys$error nl:*$ search/out=jpia.tmp jpi.tmp "file ident"$ open/read infile jpia.tmp$ read infile inrec$ close/nolog infile?$ if f$search("jpi*.tmp") .nes. "" then delete/nolog jpi*.tmp;*M$ jpiversion == F$EXTRACT(0,6,f$edit(f$element(4," ",inrec) - """","upcase"))/$ if jpiversion .nes. f$edit("v2.1-3","upcase")$ thenT$ write sys$output "IVPFATAL-F-BADID, Image JPI file identification is incorrect."$ ivpfatal = -1$ goto cli_check$ endifQ$ write sys$output "IVPSUCCESS-I-FNDEXE, JPI V2.1-3 image located in sys$system." $ cli_check:)$ if f$trnlnm("dcltables") .nes. "" $ then $ set command/tables=dcltables $ else1$ set command/table=sys$library:dcltables $ endif$ jpi/out=jpi.tmp$ savederror = $status$ if .not. savederror$ thenb$ write sys$output "IVPFATAL-F-UNXPDRSLTS, Invoking of JPI command produced unexpected results."$ ivpfatal = -1$ goto check_help_library$ endif$ open/read infile jpi.tmpX#\^$JPI021.A21J%[RJACK.JPI.021.EXTERNAL]JPI_IVP.COM;5b $ read infile inrec)$ inrec = f$edit(inrec,"upcase,compress")$ close/nolog infileH$ if f$locate(f$edit("job/process","upcase"),inrec) .eq. f$length(inrec)$ thenb$ write sys$output "IVPFATAL-F-UNXPDRSLTS, Invoking of JPI command produced unexpected results."*$ write sys$output f$message(savederror)$ ivpfatal = -1$ goto check_help_library$ endif%$ write sys$output "Invoking JPI ..."$ write sys$output " "$ jpi$ write sys$output " "]$ write sys$output "IVPSUCCESS-I-JPIOK, Invocation of JPI command produced expected results."$ check_help_library:$ define/user sys$output nl:$ define/user sys$error nl:2$ library/extract=jpi/out=nl: sys$help:helplib.hlb$ if .not. $status$ then\$ write sys$output "IVPWARNING-W-NOHLP, Help module for JPI not found in sys$help:helplib"$ ivpwarning = -1$ goto finished$ endif0$ library/list=jpi.tmp/full sys$help:helplib.hlb$ define/user sys$output nl:$ define/user sys$error nl:%$ search/out=jpia.tmp jpi.tmp "jpi "/$ if f$file_attributes("jpia.tmp","eof") .eq. 0$ then\$ write sys$output "IVPWARNING-W-NOHLP, Help module for JPI not found in sys$help:helplib"$ ivpwarning = -1$ goto finished$ endif]$ write sys$output "IVPSUCCESS-I-FNDHLP Utility JPI help module located in SYS$HELP:HELPLIB." $ finished: $ if ivpfatal$ thenP$ write sys$output "IVPFATAL-F-IVPCMPLT, IVP has completed with fatal errors."$ exit$ endif$ if ivpwarning$ thenN$ write sys$output "IVPWARNING-W-IVPCMPLT, IVP has completed with warnings."$ exit$ endifK$ write sys$output "IVPSUCCESS-I-IVPCMPLT, IVP has completed successfully."$ write sys$output " "?$ if f$search("jpi*.tmp") .nes. "" then delete/nolog jpi*.tmp;*$ exit$ control_y_exit:?$ if f$search("jpi*.tmp") .nes. "" then delete/nolog jpi*.tmp;*$ close/nolog infileI$ write sys$output "IVP-I-INTRPT, IVP has been INTERRUPTED via control/y"$ exit%*[RJACK.JPI.021.EXTERNAL]JPI_VAX.OBJ;9+,k%.i/L 4iiP-J0123KPWOj5 6`73͒89TLGLHJ-JPI0 5-Dec-1994 10:37 5-Dec-1994 10:37VAX COBOL V4.4-65(/COPY/CHECK/LIST/NODEB JPI/OBJ=JPI_VAX  JPIHPDPP|HHPI !PV`|G|G COB$AB_NAMQQ̷ QQ 'QQLIB$PUT_OUTPUT LIB$GET_INPUTJPICLDCMKRNL  'CMEXEC  'SYSNAM  'GRPNAM  'ALLSPOOL 'DETACH  'DIAGNOSE 'LOG_IO  'GROUP  'NOACNT  'PRMCEB  'PRMMBX  'PSWAPM  'SETPRI  'SETPRV  'TMPMBX  'WORLD  'MOUNT  'OPER  'EXQUOTA  'NETMBX  'VOLPRO  'PHY_IO  'BUGCHK  'PRMGBL  'SYSGBL  'PFNMAP  'SHMEM  'SYSPRV  'BYPASS  'SYSLCK  'SHARE  'UPGRADE  'DOWNGRADE 'GRPPRV  'READALL  'IMPORT  'AUDIT  'SECURITY 'QQQQ` @'QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ/RC P' @' @' @' @' @' @' @' @' @' @' @' @' @' @' @' @' @' @' @' @' HLP$M_PROMPT ' ' ' 'PSCAN$M_WILDCARD PSCAN$M_EQL PSCAN$M_GEQ PSCAN$M_NEQ PSCAN$M_LEQ PSCAN$M_ORPSCAN$M_CASE_BLIND '00000Q DSC$K_DTYPE_T DSC$K_DTYPE_T DSC$K_DTYPE_TJ DSC$K_DTYPE_T, DSC$K_DTYPE_T9 DSC$K_DTYPE_TB DSC$K_DTYPE_T  DSC$K_DTYPE_T< DSC$K_DTYPE_T DSC$K_DTYPE_THQBPQ FSCN$_NAMEPSCAN$_GETJPI_BUFFER_SIZEQ Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ  PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ  PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ  PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ  PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ  PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQ PSCAN$_PRIBQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ Q Q Q Q Q Q Q Q Q PSCAN$_PRCNAMQ PSCAN$_PRCNAMQ PSCAN$_PRCNAMQ PSCAN$_PRCNAMQ PSCAN$_PRCNAMQ PSCAN$_PRCNAMQ PSCAN$_PRCNAMQ PSCAN$_PRCNAMQ PSCAN$_PRCNAMQ PSCAN$_PRCNAMQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCY7$JPI021.Ak%J%[RJACK.JPI.021.EXTERNAL]JPI_VAX.OBJ;9in/" AN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ Q Q Q Q Q Q Q Q QPSCAN$_TERMINALQ PSCAN$_TERMINALQ PSCAN$_TERMINALQ PSCAN$_TERMINALQ PSCAN$_TERMINALQ PSCAN$_TERMINALQ PSCAN$_TERMINALQ PSCAN$_TERMINALQ PSCAN$_TERMINALQ PSCAN$_TERMINALQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ Q Q Q Q Q Q Q Q QPSCAN$_HW_NAMEQ PSCAN$_HW_NAMEQ PSCAN$_HW_NAMEQ PSCAN$_HW_NAMEQ PSCAN$_HW_NAMEQ PSCAN$_HW_NAMEQ PSCAN$_HW_NAMEQ PSCAN$_HW_NAMEQ PSCAN$_HW_NAMEQ PSCAN$_HW_NAMEQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_OR PSCAN$_MODEJPI$K_INTERACTIVE PSCAN$M_OR PSCAN$_MODE JPI$K_BATCH PSCAN$M_OR PSCAN$_MODE JPI$K_NETWORK PSCAN$M_OR PSCAN$_MODE JPI$K_OTHER PSCAN$M_EQLPSCAN$_JOBTYPE JPI$K_LOCAL PSCAN$M_ORPSCAN$_JOBTYPE JPI$K_DIALUP PSCAN$M_ORPSCAN$_JOBTYPE JPI$K_REMOTE PSCAN$M_ORPSCAN$_JOBTYPE JPI$K_BATCH PSCAN$M_ORPSCAN$_JOBTYPE JPI$K_NETWORK PSCAN$M_ORPSCAN$_JOBTYPEJPI$K_DETACHED PSCAN$M_EQLQ Q Q Q Q Q Q Q Q QPSCAN$_USERNAMEQ PSCAN$_USERNAMEQ PSCAN$_USERNAMEQ PSCAN$_USERNAMEQ PSCAN$_USERNAMEQ PSCAN$_USERNAMEQ PSCAN$_USERNAMEQ PSCAN$_USERNAMEQ PSCAN$_USERNAMEQ PSCAN$_USERNAMEQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q Q QPSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$_NODENAMEQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_ORQ PSCAN$M_OR LNM$_INDEXDD LNM$_STRINGDE SYI$_NODENAME77 SYI$_VERSIONO#Y#SYI$_CLUSTER_MEMBER?#C#SYI$_CPUG#K# SYI$_HW_NAME]#|#JPI$_GETJPI_CONTROL_FLAGSFF JPI$_USERNAME#X& JPI$_PRCNAM** JPI$_NODENAME77JPI$_PID"" JPI$_TERMINAL"%" JPI$_IMAGNAME)"" JPI$_PRIB"" JPI$_WSSIZE"" JPI$_STATE"" JPI$_MODE"#&# JPI$_CURPRIV*#2#JPI V2.1-1, March 1994  '!XL !7 !12 !13 !12 !2UL !5UL !5AS !1AS !6AS *'!/!19* Job/Process Information from !0UL!128%CALPHA!%EVAX!%F/VMS !AS!13* From node !AS (!AS) at !%D!/PID Term Username Process Name Image Name PriB Work State M Node 2'!80*-!/Total of !UL Processes using !UL pages (!UL mb) of physical memory!/!14AS !60AS P' ' '0000 ' ' SCH$C_COLPG SCH$C_MWAIT SCH$C_CEF SCH$C_PFW SCH$C_LEF SCH$C_LEFO SCH$C_HIB SCH$C_HIBO SCH$C_SUSP SCH$C_SUSPO SCH$C_FPG SCH$C_COM SCH$C_COMO SCH$C_CURJPI$K_INTERACTIVE JPI$K_LOCAL JPI$K_DIALUP JPI$K_REMOTE JPI$K_BATCH JPI$K_NETWORKJPI$K_DETACHED JPI$K_OTHER *  ' '  ' @'* ?'* ?'* ?'* ?'* ?'* ?'* ?'* ?'* ?'* ?'* '* '* '* '* '* '* '* '* '* ' @'* ?'* ?'* ?'* ?'* ?'* ?'* ?'* ?'* ?'* ?' ' @'* '* '* '* '* '* '* '* '* '* ' ' @'Q  @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q @'Q ' P'Qjpi/notrailer/noheader/nosymbols b'Q QQP SS$_NOPRIVQSS$_NOMORENODEQSS$_NOMOREPROCQ SS$_ENDOFFILEQ SOR$_BADLOGICQ SOR$_BAD_KEYQ SOR$_BAD_LRLQSOR$_BAD_MERGEQ SOR$_BAD_TYPEQ SOR$_ENDDIAGSQSOR$_INSVIRMEMQSOR$_KEYAMBINCQ SOR$_KEY_LENQ SOR$_LRL_MISSQ SOR$_NODUPEXCQ SOR$_NUM_KEYQ SOR$_RTNERRORQ SOR$_SORT_ONQSOR$_STABLEEXCQ SOR$_SYSERRORQSOR$_UNDOPTIONQ STR$_NOMATCHQ STR$_MATCHFPJPI$M_NO_TARGET_INSWAPJPI$M_NO_TARGET_ASTJPI$M_IGNORE_TARGET_STATUS@P CLI$_ABSENTQ CLI$_NEGATEDQ CLI$_LOCNEGQ CLI$_PRESENTQCLI$_DEFAULTEDQ CLI$_CONCATQ CLI$_LOCPRESQ CLI$_COMMAQ CLI$_NORMALFP CLI$_ABSENT CLI$_NEGATED CLI$_LOCNEG CLI$_PRESENTCLI$_DEFAULTED CLI$_CONCAT CLI$_LOCPRES CLI$_COMMA CLI$_NORMALPJPI$K_INTERACTIVEQ JPI$K_LOCALQ JPI$K_DIALUPQ JPI$K_REMOTEQ JPI$K_BATCHQ JPI$K_NETWORKQJPI$K_DETACHEDQ JPI$K_OTHERGP SS$_NORMAL SS$_NOPRIVSS$_NOMORENODESS$_NOMOREPROC SS$_EXBYTLM SS$_SUSPENDEDPjpi.lisQDPP|HHPI !PV`|G|G COB$AB_NAMGsys$netQFF0FFF$lineQE rnodenameQ ,8LNM$FILE_DEV HTIZ2E|$JPI021.Ak%J%[RJACK.JPI.021.EXTERNAL]JPI_VAX.OBJ;9i"t8rclusternodenameclusterQ%Q*QIusername$/UQ<4@ F$outputQhp !pimagenameQ /IQ4 Fmode/MQ4 FjobtypeQ (/JQ84< F(sortdhh=DQI lprocessQ/PRO4 Fterminal/TEQ,40 Fhw_nameQX`/HWQp4t F`BASEPRIORITY /BQ4 Fbasepriority.minimumI#basepriority.maximum$88I#JPI-F-INVQUAVAL, MINIMUM value out of range on /BASEPRIORITY<hhJPI-F-INVQUAVAL, MAXIMUM value out of range on /BASEPRIORITY<JPI-F-INVQUAVAL, Invalid combination of MINIMUM and MINIMUM values for /BASEPRIORITYT00summaryQHEADERQtrailerQswapsymbolsQjpi$item_countQ P08XhelpTX helplibQpprivilegeQ /PRI4 FJPI-F-IVKEYW, unrecognized keyword for /PRIVILEGE - check validity and spellingQO , selectionQ @ L  4\  FII]# I"endQ  FF::Q I !AS!ASQ !::"0=jpi"Q     I  FFP, FF"QD IH  FFatal Error with the JPI process on remote node 0`  IPlease check the netserver.log on the remote node.Q2  < "FF I !ULQ@ 0JJPI$detail_line_!4ZL\ J)" }dJI@ *# @D}, !  , IJb \   ,  " # * }#>#7, P`Jt   Command Line:Q  5  ,    Q Fq  ,   }  ,  IFg , sys$setrwmQ 0 < lib$get_efQ P \ sys$getjpiwQ p | sys$getsyiQ   jpibasQ  cli$dcl_parseQ   cli$get_valueQ  cli$presentQ  sys$trnlnmQ 4@/NODENAME=Qstr$find_first_substring`x/USERNAME=*Qstr$position HHH HHH/IMAGENAME=*/MODE=(INTERACTIVE,BATCH,NETWORK,OTHER)Q/JOBTYPE=(LOCAL,DIALUP,REMOTE,BATCH,NETWORK,DETACHED)Q/NOSORTQ/SORT=USERNAME=ASCENDINGsor$begin_sortQ/PROCESS=*Q/TERMINAL=*Q/NOTERMQ/HW_NAME=*Qstr$upcaseQ  /BASEPRIORITY=(MINIMUM=0,MAXIMUM=63)ots$cvt_ti_l P\/BASEPRIORITY=MINIMUN=0Q/BASEPRIORITY=MAXIMUM=63/HEADERQ/TRAILER/swapQ/SWAPQ/NOSWAPQ/noswapQ/NOSYMBOLSQlib$get_symbolQlbr$output_helpQ/PRIVILEGE=ANYQ passwordQstr$match_wildQ@Psys$process_scandtsys$faoQ/clusterHlib$set_symbolQlib$delete_symbolQsys$filescan str$copy_rQ 0<ots$cvt_l_tb P\COLPGQMWAITQCEFQPFWQLEFQLEFOHIBQHIBOSUSPSUSPOQFPGQCOMQCOMOCURQ-outswapped-Hsor$release_recQDefaults:Qsor$end_sort $sor$sort_mergeQ8Hsor$return_recQ\llib$signalQ xIP GEShx!7;+&@D  , p  , " G }O#  , lJ]# (  , 0 8 @ H P X ` p  ,   , p  , P JPI|~ COB$HANDLERm^[Z,nPˬF SYS$SETRWMP COB$ERROR SYS$SETRWMPDFF  COB$ERRORˬFˬFFF LIB$GET_EFP COB$ERROR$ LIB$GET_EFPDFˈFHP SYS$GETJPIWP COB$ERRORH SYS$GETJPIWPDFF COB$ERRORˬFˬFFFˢ"˄F SYS$GETSYIP$ COB$ERROR, SYS$GETSYIPDF""R RS: bQnRSRn"RR˄F61@FPJPIBASP@ COB$ERROR\JPIBASDFF COB$ERRORˬFˬFFFSYS$EXIT@FJPIBASP@ COB$ERRORtJPIBASDFF COB$ERRORˬFˬFFFSYS$EXIT IM CLI$DCL_PARSEPd COB$ERRORI CLI$DCL_PARSEPDF CLI$GET_VALUEPʈ COB$ERRORʜ CLI$GET_VALUEP\FPQPQ`/I PP7V2GW WWWPPP(PfSVWPQQPPQ(Q/f2G˹<˰F COB$ERRORˬF?2P P?P@Dn2ۊ˰FˬFXFPFLF2P PP PP~@n}˜˔˰F COB$ERRORˬF 2P P @P@#n2P P P@Ŋ˰FˬF˰FM COB$ERRORˬF2m2P P2@P@{*n2P P2P@ː2P P2@P@{*n,;7 @2P P2 P@ˌnA7˰FˬF˰F  COB$ERRORˬF  02P P P@˨)n2P P P@8Ɋ˰FˬF˴˰F  COB$ERRORˬF  02P P P~@%n2P P P@˰Ɋ˰FˬF,˰F  COB$ERRORˬF  42P P @P@0&n2P P P@(Ŋ ˰FˬFˤ˄FB1E I Q CLI$PRESENTPʨ COB$ERROR CLI$PRESENTP\FP\FPPE EWX7DXW7D>EP PP,P?D >EGPQPQR`: `RPWX7D1BWX7DfVb CLI$GET_VALUEP ʈ COB$ERROR CLI$GET_VALUEP\FW\FWWO7O7O7YW(IG12P PBP@7n(@2P P!P>@O7nG1˄F 1E I ,1 CLI$PRESENTP ʨ COB$ERROR CLI$PRESENTP\FP\FPP E EWX7DXW7D>EP PP,P?D >EGPQPQR`: `RP#WX 7D1BW X7DdV` CLI$GET_VALUEP ʈ C COB$ERROR[*r$JPI021.Ak%J%[RJACK.JPI.021.EXTERNAL]JPI_VAX.OBJ;9iW\ / CLI$GET_VALUEP\FW\FWW===WW(IG12P PBP@˃=n(@2P P!P>@=nG1E I 1 CLI$PRESENTP ʨ COB$ERROR< CLI$PRESENTP\FV\FVVE ,;7 @w*A7˷*1VT 1 CLI$PRESENTPʨ COB$ERRORT CLI$PRESENTP\F\F˝ ˝@P@] nW( gSW(;7g1,* @˻*˘ˠ12 1VVV 12P PPP0I SYS$TRNLNMP COB$ERROR SYS$TRNLNMPDFW>EWX7DXW7D>EP PP,P?D >EGPQPQR`: `RP˴F  COB$ERRORˬFˬF˸F˴F1FWX 7D1W/X+7D˴F  COB$ERRORˬFˬF˸F˴F1hVd CLI$GET_VALUEP ʈ COB$ERROR\ CLI$GET_VALUEP\FW\FWW,@w* ˷*GW(IG1(@w*2G˷*2P P2@P@{*n(@2P P2 P@ˌnG2P P2P@˔ns*1s*2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORʄSTR$FIND_FIRST_SUBSTRINGPDFˁˁs*˴FP˸FˬF˴F`  COB$ERRORE I 6 1 CLI$PRESENTP ʨ  COB$ERRORʬ CLI$PRESENTP\FV\FVVE V˝ ˝@P@] n,  @1@nG˰FˬFE I  1 CLI$PRESENTPʨ COB$ERRORl CLI$PRESENTP\FV\FVVE V˝ ˝@P@] n,'ʼ @1 k*. k* k* k*1˱FˬFE I 1˳1 CLI$PRESENTP ʨ COB$ERROR CLI$PRESENTP\F\FlFE ˭>\F`F%˝ ˝@P@] n, @1\FdFE 1 1 CLI$GET_VALUEP ʈ COB$ERROR CLI$GET_VALUEP\FV\FVV,%˝ ˝@P@] n,$ @1Vo1Bh2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORSTR$FIND_FIRST_SUBSTRINGPDFˁ˾2P PP2Q QPP~@n}˼1Ih2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORSTR$FIND_FIRST_SUBSTRINGPDFˁ˶2P PP2Q QPP~@n}˴1JMh2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORSTR$FIND_FIRST_SUBSTRINGPDFˁ2P PP2Q QPP~@n}1Nh2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORSTR$FIND_FIRST_SUBSTRINGPDFˁˮ2P PP2Q QPP~@n}ˬ1PB1PROe2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORSTR$FIND_FIRST_SUBSTRINGPDFˁ˦2P PP2Q QPP~@n}ˤPIe2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORSTR$FIND_FIRST_SUBSTRINGPDFˁ2P PP2Q QPP~@n}1Sh2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORSTR$FIND_FIRST_SUBSTRINGPDFˁ2P PP2Q QPP~@n}1Th2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORSTR$FIND_FIRST_SUBSTRINGPDFˁ2P PP2Q QPP~@n}1Ug2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORSTR$FIND_FIRST_SUBSTRINGPDFˁ˞2P PP2Q QPP~@n}˜mWe2GP PPP8ISTR$FIND_FIRST_SUBSTRINGP  COB$ERRORSTR$FIND_FIRST_SUBSTRINGPDFˁ2P PP2Q QPP~@n}1˭ SOR$BEGIN_SORTP T COB$ERROR(SOR$BEGIN_SORTPDFE I 1 CLI$PRESENTP ʨ COB$ERROR` CLI$PRESENTP\FV\FVVE )V%˝ ˝@P@] n, ` @1, 4, 8<<<}ff^l , @, DHHH}ff-l, L, PTTT}f˱F  COB$ERRORˬFX61   @  1  @P@n2P PP@ Q2R RR@ nP2S SS-Ra S`@< < @P@˶ n 2P PP@ n+ < @P>@˺ n1)@˱FˬF ʠ COB$DISPLAYʴ COB$DISPLAYSYS$EXIT1E I ^71 CLI$PRESENTP ʨ COB$ERROR CLI$PRESENTP\F\FlF E ˧\FdFE 1\F`F71}ˠE˜E STR$POSITIONP 4 COB$ERROR STR$POSITIONPDF71zˠE˹PP˘E˘E˘EˠEP˘ES SSSQ PQP@6PˤEQ QQA˴RQQ,S` QbzˤE˘EPPˤEEˤEV@ VV1@ /RNB (˵7ˤE˹}ˠE1V811DFzˠEDFPP˘E˘E˘EˠEP˘ES SSSQ PQP@6PˤEQ QQA˴RQQ,S` Qb˘EˤEDFˠEˠEˠE˱F  COB$ERRORˬFˠE˹X91˜Eb91ˠEˠEP PP@6Vf/f)˜E1f ˨E(ˤEP PzP@˴P( ʴ` ˤE˨E1f"@ˠEP PP@6PˤEQ QQA˴Q`aˤE˨E˨E@˨E5ˠEP PP@6PˤEQ QQA˴Q`aˤE˨E1˱FˬFˠE˹b:1Y(˵7-@Q7 n -@= n1I -@˻* *˿"A7P PPP\I2˘P P@PPdISTR$MATCH_WILDP  COB$ERRORSTR$MATCH_WILDPDFDF:1I S-@p& *F˿"@20P P@PPlISTR$MATCH_WILDP  COB$ERROR STR$MATCH_WILDPDFDFP;1I HSYS$PROCESS_SCANP  COB$ERROR SYS$PROCESS_SCANPDFDF#F  COB$ERRORˬFˬFFF1#˼F  COB$ERRORˬFˬFF˼F1DF˄F)@FJPIBASP @ COB$ERROR, JPIBASSYS$EXITO7<12P PBP@7nxI STR$POSITIONP 4 COB$ERRORH STR$POSITIONPDF=2P P!P>@O7n2PDFP 2P P!P>@O7nDF,n !2P PBP@7n2P P!P>@O7P2Q Q@Q`ˀIQ|ISYS$FAOP  COB$ERRORʄ SYS$FAOPDF@FJPIBASP @ COB$ERRORʜ JPIBASDF&=1@FJPIBASP @ COB$ERRORtJPIBASPDF,n P@FJPIBASP @ COB$ERRORʴ JPIBASPDFend END1 =1ˠE2P PBP@7nxI STR$POSITIONP 4 COB$ERROR $ STR$POSITIONPDFQDFQQ2P P!P>@O7n2ˠEQDFˠEˠEˠE COB$DISP_NO_ADV2P PBP@7nPˠEQ Q@Q`ˀIQ|I$ COB$DISPLAY]@kL$JPI021.Ak%J%[RJACK.JPI.021.EXTERNAL]JPI_VAX.OBJ;9i"Ql COB$DISPLAYF OTS$CVT_TI_LP  COB$ERRORʀ  OTS$CVT_TI_LPDFF  COB$ERRORˬFˬFFF11@FJPIBASP @ COB$ERRORʐ JPIBAS1&=>1I˰EV: ˰EPWWPPP(P˰EfSVWPQQPPQ(Q$f2P PBP@˃=nxI STR$POSITIONP 4 COB$ERRORʨ STR$POSITIONPDF=2P P!P>@=n2PDFP 2P P!P>@=nDF,n !2P PBP@˃=n2P P!P>@=P2Q Q@Q`ˀIQ|ISYS$FAOP  COB$ERRORʄ SYS$FAOPDF@FJPIBASP @ COB$ERRORʜ JPIBASDFT@1@FJPIBASP @ COB$ERRORtJPIBASPDF,n P@FJPIBASP @ COB$ERRORʴ JPIBASPDFend END1$ @1ˠE2P PBP@˃=nxI STR$POSITIONP 4 COB$ERROR STR$POSITIONPDFQDFQQ2P P!P>@=n2ˠEQDFˠEˠEˠE COB$DISP_NO_ADV2P PBP@˃=nPˠEQ Q@Q`ˀIQ|I$  COB$DISPLAYl COB$DISPLAYF OTS$CVT_TI_LP  COB$ERRORʀ OTS$CVT_TI_LPDFF  COB$ERRORˬFˬFFF11@FJPIBASP @ COB$ERRORʐ JPIBAS1˭F  COB$ERRORˬFˬFFF1˱F  COB$ERRORˬFˬFFF1˧#F  COB$ERRORˬFˬFFF1+HH<LHX SYS$CLOSEP ,COB$IOEXCEPTIONH SYS$SETRWMP COB$ERRORʸ SYS$SETRWMPDF,n P˫B1˔ISYS$FAOP  COB$ERROR˄ISYS$FAOPDF28 P PPPP˘ILIB$SET_SYMBOLP \ COB$ERROR LIB$SET_SYMBOLPDF˳˲F  COB$ERRORˬF2PPg,n P2˰ISYS$FAOP  COB$ERRORˠISYS$FAOPDF28 P PPPP˘ILIB$DELETE_SYMBOLP ʄ COB$ERROR LIB$DELETE_SYMBOLPDF˲FˬFSYS$EXITˈF˸I SYS$GETJPIWP  COB$ERROR˴I SYS$GETJPIWPDFDFˠF DF˘F1DF˨F(DF#F  COB$ERRORˬFˬFFF1ˌF˨F ˌF˔FIˌFˠF ˌFDF1ˌFˤFD1ˌFDFF  COB$ERRORˬFˬFFF1˒!D1%,n #Pˎ!PQˎ!˒!QPQE1˒!ˎ!)" ,n ˩!g*,n X*1"-"%,n #K7,n E7˥!,n ˞!9"5"A"="˦"<'ˢ"}˲"˲"|˪" SYS$FILESCANP ʤ COB$ERROR SYS$FILESCANPDF8I STR$COPY_RP  COB$ERRORI STR$COPY_RPDFbE14E1DF˲F  COB$ERRORˬF F12P P AP>@n2F1DF=F12P P AP>@n24P PPPI2P P P@`nP2Q QQ`ˀIQ|ISTR$MATCH_WILDP  COB$ERROR$ STR$MATCH_WILDPDF1B˲FˬFDFF1˥F1 OTS$CVT_L_TBP  COB$ERROR8 OTS$CVT_L_TBPDF ˲F  COB$ERRORˬF2PP< 0G1 :G1nR2P P@P@˶ zAP{PSP  COB$ERROR S@SC{ P2Q Q@Q>A˺ b`1    3`1  !`0  `0  1%˲FˬF   1X*PPQPQ`.`PP˞!PPQPQ`.`PP#R RS: bQnRSRnRR#P PQPQ` .`PPPQPQ` .`PP,n Pˢ"}"I˾"Nˢ"ˍ"B˾"=ˢ"ˑ"N˾",ˢ"˙"O˾"ˢ" n c$cLIB$AB_CVTPT_U˾"="E"(˝"1="I" (˝"1="M" , ˝"1="Q" ,  ˝"1="U" , ˝"1="Y" , ˝"1="]" , ˝"1="a", ˝"1="e",  ˝"o="i" ($˝"\="m" ,, ˝"G="q" ,0 ˝"2="u" ,4 ˝"="y" ,8 ˝",n?˝")"6˩0="Y"="a"="i" ="u" , < F  COB$ERRORˬFˬFFF1˼FPFˬF˼F`  COB$ERRORر˳˯1,n P"J"P P PPISYS$FAOP  COB$ERRORISYS$FAOPDFGʐSYS$PUTP HCOB$IOEXCEPTION T COB$DISPLAY,n PA7P PPP\I"P PPP JSYS$FAOP  COB$ERRORh SYS$FAOPDFGʐSYS$PUTP HCOB$IOEXCEPTION T COB$DISPLAY(PbGʐSYS$PUTP HCOB$IOEXCEPTION T COB$DISPLAY,n PSYS$FAOP  COB$ERRORʔ SYS$FAOPDFGʐSYS$PUTP HCOB$IOEXCEPTION T COB$DISPLAYFPFˬFF`  COB$ERROR˳L1,n P˒!$J-"8J5"Q<QxQ Q6Q.Q QQ.Q Q QQaQ]Q QQQ\QQQQ/*Q;Q)*QQ2 Qb)Q>)Q%Q# QpQ>Q<QxQ Q6Q.Q QQhQ`Q Qg_'Q Q QQ)Q%Q#QmQ>Q<|QQ5QQ5QQQQQBQ Q1Q Q Q QQQ Q0Q Q Q QQ QQQ$Q Q QQ)Q%Q#QmQ>Q<|QXQV Q-Qv Qm QQ(Q<Q QQZQyQnQnQvQnQ QQnLQnQQQ]QmQ^n$JPI021.Ak%J%[RJACK.JPI.021.EXTERNAL]JPI_VAX.OBJ;9i#b>Q<|QQQ.Q,Q{}QzQqQ>Q<QxQ Q6Q.Q QQQ Q QQQQ QQ QQQQ Q Q_QQOQ]QmQ>Q<|QQQKQ mQ>Q<|QR Qv~ Q;A Qw QwO Q*Q Q3=Q%Q#QQQQ3.Q%Q#QsQ>Q<QxQ Q6Q.Q Q Q QSQQ Q5QQBQ Q4QQQ QQ*Q1QpQdQ WQQQMQ#>QKQ$Q Q6Q8QQ Q" Q,%Q!QTQ#QQ Q( Qc OQJQvQ1{Q%Q Q(QQ(QQQQ*QQQ:Q6QQQ^ Q QQQQQQQ Q Q QQ,xQ Q HQgAQQ"QQ|QEQQlQ JPIZS11PJPIHP,KCZS$CODE,K$LOCAL$PDATACOB$NAMES_____2 COB$NAMES_____4 DBM$SSC_B$LOCAL_1LIB$PUT_OUTPUT LIB$GET_INPUTJPICLD HLP$M_PROMPTPSCAN$M_WILDCARD PSCAN$M_EQL PSCAN$M_GEQ PSCAN$M_NEQ PSCAN$M_LEQ PSCAN$M_ORPSCAN$M_CASE_BLIND DSC$K_DTYPE_T FSCN$_NAMEPSCAN$_GETJPI_BUFFER_SIZE PSCAN$_PRIB PSCAN$_PRCNAMPSCAN$_TERMINALPSCAN$_HW_NAME PSCAN$_MODEJPI$K_INTERACTIVEU JPI$K_BATCH JPI$K_NETWORK JPI$K_OTHERPSCAN$_JOBTYPE JPI$K_LOCAL JPI$K_DIALUP JPI$K_REMOTEJPI$K_DETACHEDPSCAN$_USERNAMEPSCAN$_NODENAME LNM$_INDEX LNM$_STRING SYI$_NODENAME SYI$_VERSIONCSYI$_CLUSTER_MEMBERSYI$_CPU SYI$_HW_NAMEJPI$_GETJPI_CONTROL_FLAGS JPI$_USERNAME JPI$_PRCNAM JPI$_NODENAMEJPI$_PID JPI$_TERMINAL JPI$_IMAGNAME JPI$_PRIB JPI$_WSSIZE JPI$_STATE JPI$_MODES JPI$_CURPRIV SCH$C_COLPG SCH$C_MWAIT SCH$C_CEF SCH$C_PFW SCH$C_LEF SCH$C_LEFO SCH$C_HIB SCH$C_HIBO SCH$C_SUSP SCH$C_SUSPO SCH$C_FPG SCH$C_COM SCH$C_COMO SCH$C_CUR SS$_NOPRIVESS$_NOMORENODESS$_NOMOREPROC SS$_ENDOFFILE SOR$_BADLOGIC SOR$_BAD_KEY SOR$_BAD_LRLSOR$_BAD_MERGE SOR$_BAD_TYPE SOR$_ENDDIAGSSOR$_INSVIRMEMSOR$_KEYAMBINC SOR$_KEY_LEN SOR$_LRL_MISS SOR$_NODUPEXC SOR$_NUM_KEY SOR$_RTNERROR SOR$_SORT_ONSOR$_STABLEEXC SOR$_SYSERRORSOR$_UNDOPTION STR$_NOMATCH STR$_MATCHJPI$M_NO_TARGET_INSWAPJPI$M_NO_TARGET_ASTJPI$M_IGNORE_TARGET_STATUS CLI$_ABSENT CLI$_NEGATED CLI$_LOCNEG CLI$_PRESENTCLI$_DEFAULTED CLI$_CONCAT CLI$_LOCPRES CLI$_COMMA CLI$_NORMAL SS$_NORMAL SS$_EXBYTLM SS$_SUSPENDED COB$AB_NAM COB$HANDLER SYS$SETRWM COB$ERROR LIB$GET_EF SYS$GETJPIW SYS$GETSYIJPIBASSYS$EXIT CLI$DCL_PARSE CLI$GET_VALUE CLI$PRESENT SYS$TRNLNMSTR$FIND_FIRST_SUBSTRING STR$POSITIONCOB$IOEXCEPTIONSYS$OPEN SYS$CREATE SYS$CONNECTSOR$BEGIN_SORT STR$UPCASE OTS$CVT_TI_L COB$DISPLAYLIB$GET_SYMBOL COB$CVTTI_R8 COB$CVTIL_R8LBR$OUTPUT_HELPSTR$MATCH_WILDSYS$PROCESS_SCANSYS$FAOCOB$DISP_NO_ADV SYS$CLOSELIB$SET_SYMBOLLIB$DELETE_SYMBOLE SYS$FILESCAN STR$COPY_R OTS$CVT_L_TBLIB$AB_CVTPT_USYS$PUTSOR$RELEASE_REC COB$DIVQ_R8 SOR$END_SORTSOR$SORT_MERGESOR$RETURN_REC LIB$SIGNALE'*[RJACK.JPI.021.EXTERNAL]KITINSTAL.COM;7+,%1./L 4s^-J0123KPWO56p?7 ͒89GLHJ$! Name: KITINSTAL.COM1$! Created: 05-DEC-1994 14:33 (Revised 25-Apr-95)/$! By: RJJ (Digital Equipment Corp, Nashua NH)A$! Desc: Install the JPI code for version 2.1 using the VMSINSTAL@$! utility: This kit will install on either OpenVMS VAX or AXP.$!*$ on control_y then vms$callback control_y$ on warning then exit $statusD$ if p1 .eqs. f$edit("vmi$_install","upcase") then goto vmi$_install<$ if p1 .eqs. f$edit("vmi$_ivp","upcase") then goto vmi$_ivp$ exit vmi$_unsupportedI$!-----------------------------------------------------------------------$ vmi$_install:&$ axp = f$getsyi("cpu") .eq. 128$ if axp $ then$ jpi$version = "061" $ else$ jpi$version = "053" $ endif<$ vmi$callback check_vms_version vmsversionok 'jpi$_version'$! if .not. vmsversionok$! thena$! vmi$callback message e vertoolow "Product requires OpenVMS version ''jpi$version' or later."$! exit vms$_failure$! endif$ vmi$callback set postinstall$ vms$_check_disk_space::$ vmi$callback check_net_utilization sufficientspace 1000 $ if .not. sufficientspace$ thenF$ vmi$callback message e "Insufficient Free Space on Target Medium."$ exit vmi$_failure$ endif*$ vmi$callback set safety conditional 2000 $ cli_check:+$ if axp then goto provide_source_ask)$ set command/table=sys$library:dcltables$ set command vmi$kwd:showcomma$ define/user sys$error nl:$ define/user sys$output nl:/$ tmp_shc command jpi/output=vmi$kwd:jpi021.tmpU$ if f$search("sys$login:patch.tmp") .nes. "" then delete/nolog sys$login:patch.tmp;*9$ if f$file_attributes("vmi$kwd:jpi021.tmp","eof") .eq. 0$ then$ goto provide_source_ask$ endif%$ open/read infile vmi$kwd:jpi021.tmp$ cli_check_cld:-$ read/end_of_file=cli_check_eof infile inrec+$ inrec = f$edit(inrec,"trim,upcase")@$ if f$element(0," ",inrec) .nes. f$edit("image","upcase") $ then$ goto cli_check_cld $ endif $ image = f$element(1," ",inrec)E$ image_name = f$parse(image,"sys$system:.exe",,"name","syntax_only")$ if image_name .nes. "JPI"$ then<$ image = f$parse(image,"sys$system:.exe",,,"syntax_only")s$ vmi$callback message w CHECKCLD "CLD Command Conflict!" "DCL Command JPI Unexpectantly Invokes Image ''image'."A$ vmi$callback ask moveon "Do you want to continue? " "NO" BRDU $ if .not. moveon then exit -1$ endif$ cli_check_eof:$ close/nolog infileS$ if f$search("vmi$kwd:jpi021.tmp") .nes. "" then delete/nolog vmi$kwd:jpi021.tmp;*$ provide_source_ask:$ type sys$input1 The following source files are available:/ 1) jpi.cob - The main programJ 2) jpicld.cld - called by jpi.cob when jpi invoked remotelyK 3) jpibas.bas - called by jpi.cob for remote access file I/O8 4) jpigblsym.mar - global symbol definitions, 5) jpi_examples.ps - some examples? 6) jpi_examples.txt - same as .ps above in text formatJ$ vmi$callback ask providesource "Do you want the source files? " "NO" BRD$ if providesource$ then'$ jpi_default = f$trnlnm("sys$login")P$ vmi$callback ask jpi_target "Enter Directory for Source(s) " 'jpi_default' L$ endif$ provide_decnet_object_ask:$ type sys$inputI This version of JPI has the capability to be called from a remoteI JPI image on another DECnet node. In order for this capability toJ be utilized, a DECnet object must be defined on this node/cluster.`$ vmi$callback ask provideobject "Do you wish to define the JPI DECnet object? " "YES" BRD $ ask_ivp:$ vmi$callback set ivp ask R$ purge:$ vmi$callback set purge ask R$ nomorequestions:$ write sys$output ""=$ write sys$output " No further questions will be asked."$ write sys$output ""$ install_cld:-$ vmi$callback provide_dcl_command jpicld.cld $ move_help:'$ vmi$callback provide_dcl_help jpi.hlp$ define_decnet_obj:7$ if .not. provideobject then goto compile_source_K#7$JPI021.A%1J'[RJACK.JPI.021.EXTERNAL]KITINSTAL.COM;7sŧ" L$!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++G$! DEFINE_SERVER_OBJECT - determine whether the user is running DECnet,$! phase iv or phase v, and dispatch to$! appropriate routineL$!--------------------------------------------------------------------------$ DEFINE_SERVER_OBJECT:I$ VMI$FIND NETOBJECT NETOBJECT SYS$SYSTEM:.DAT S JPI$NETOBJECT_FILE($ IF (JPI$NETOBJECT_FILE .EQS. "") $ thenf$ VMI$CALLBACK MESSAGE W "NOOBJDB" "DECnet object database not found. JPI object not defined."$ GOTO compile_source $ endif $ SET NOON$ VMI$NO_ERROR$ !+K$ ! Check to see if the user is running VMS 5.5 or greater. If so, we'll&$ ! have to check for DECnet Phase V$ !-.$ VMI$CALLBACK CHECK_VMS_VERSION JPI$VMS 055$ IF JPI$VMS$ THEN+$ DECnetPhase = F$GETSYI ("DECNET_VERSION"),$ DECnetPhase = F$EXTRACT (2,2, DECnetPhase)$ $ IF DECnetPhase .EQS. "04"$ THEN)$ GOSUB DEFINE_SERVER_OBJECT_PHASE_IV$ ELSE$ IF DECnetPhase .EQS. "05" $ THEN%$ GOSUB DEFINE_SERVER_OBJECT_PHASE_V $ ELSE$$ VMI$CALLBACK MESSAGE E NODECNET -6$ "Cannot find DECnet Phase IV or DECnet Phase V"$ EXIT VMI$_FAILURE $ ENDIF$ ENDIF$ !+4$ ! The user is running V5.4. No Phase V possible.$ !-$ ELSE%$ GOSUB DEFINE_SERVER_OBJECT_PHASE_IV $ ENDIF$!$ goto compile_source$$ compile_source:N$! vmi$callback check_product_version cobol_ok vmi$root:[sysexe]cobol.exe V4.2$! if cobol_ok$! then@$! vmi$callback message I COMPILE "Compling the jpi image ..."F$! cobol/nodeb/nolist/nocross/object=vmi$kwd:jpi.obj vmi$kwd:jpi.cob=$! macro/object=vmi$kwd:jpigblsym.obj vmi$kwd:jpigblsym.mar$! endif9$ vmi$callback message I LINK "Linking the jpi image ..."$ Link_on_vax:$$ if axp then goto link_on_axpK$ link/notrace/nodeb/nomap/executable=vmi$kwd:jpi.exe vmi$kwd:jpi_vax.obj,-] vmi$kwd:jpigblsym_vax.obj,vmi$kwd:jpibas_vax.obj,vmi$kwd:jpicld_vax.obj,sys$input/optidentification="JPI V2.1-3 VAX"$ goto move_image$ link_on_axp:K$ link/notrace/nodeb/nomap/executable=vmi$kwd:jpi.exe vmi$kwd:jpi_axp.obj,-] vmi$kwd:jpigblsym_axp.obj,vmi$kwd:jpibas_axp.obj,vmi$kwd:jpicld_axp.obj,sys$input/optidentification="JPI V2.1-3 AXP" $ move_image:@$ vmi$callback provide_image jpi_image jpi.exe vmi$root:[sysexe]$ move_source:$ if providesource$ thenH$ vmi$callback provide_file jpi_source jpi.cob 'jpi_target' CKH$ vmi$callback provide_file jpi_source jpibas.bas 'jpi_target' CKH$ vmi$callback provide_file jpi_source jpicld.cld 'jpi_target' CKH$ vmi$callback provide_file jpi_source jpigblsym.mar 'jpi_target' CKH$ vmi$callback provide_file jpi_source jpi_examples.ps 'jpi_target' CKH$ vmi$callback provide_file jpi_source jpi_examples.txt 'jpi_target' CK$ endif$ vmi$_postinstall:$ copy sys$input sys$outputG ---------------------------------------------------------------------- POST INSTALLATION INSTRUCTIONS" For cluster installations:4 1) You must execute the DCL command INSTALL/REPLACEI SYS$LIBRARY:DCLTABLES.EXE on each node of the VMScluster whichH utilizes this system disk. This has been done on this node byH the installation procedure. You may use the SYSMAN utility to: accomplish this by using the following example: MCR SYSMAN# SYSMAN> SET ENVIRONMENT/CLUSTER8 SYSMAN> DO INSTALL REPLACE SYS$LIBRARY:DCLTABLES.EXE SYSMAN> EXITI 2) On each node of this cluster which uses the same DECnet objectG database as this node, you must issue an appropriate network. object definition and SET command.  Examples: Phase IV:) $ MCR NCP SET OBJ JPI ALL$ Phase V: (DECNET/OSI)  $ mcr nclB NCL> CREATE NODE 0 SESSION CONTROL APPLICATION JPIX NCL> SET NODE 0 SESSION CONTROL APPLICATION JPI ADDRESSES = {NAME=JPI} - ,CLIENT = -( ,INCOMING ALIAS = TRUE -( ,INCOMING PROXY = TRUE -) ,OUTGOING ALIAS = FALSE -( ,OUTGOING PROXY = TRUE -& ,NODE SYNONYM = TRUE -2 ,IMAGE NAME = SYS$SYSTEM:JPI.EXE -$ ,INCOMING OSI TSEL =A This step is required in lieu of restarting the entire2 DECnet and must be done only this once. For ALL installations:E For each user who is currently logged in, either issue the followingF DCL command SET COMMAND/TABLE=SYS$LIBRARY:DCLTABLES, or have the userF log out and then log in again in order to receive the new DCL command for JPI.G ----------------------------------------------------------------------$ exit vmi$_success $ vmi$_ivp:$ @jpi_ivp.com$ exit $status$!L$!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++J$! DEFINE_SERVER_OBJECT_PHASE_IV - Define the NOTES Object in the networkL$!-------------------------------------------------------------------------- $ DEFINE_SERVER_OBJECT_PHASE_IV:$ !$ ! Define the NOTES Object$ ! $ set_object:$ NCP = "$NCP"*$ DEFINE/USER SYS$OUTPUT VMI$KWD:NCP.TMP$ VMI$NO_ERROR$ NCP LIST OBJECT JPI$ JPI$SAVE_STATUS = $status $ SET ON:$ ncp define object jpi number 0 file sys$system:jpi.exe$ TYPE SYS$INPUT7 The network object JPI has been defined. If you wish8 to view this, run SYS$SYSTEM:NCP and issue the command! NCP> LIST OBJECT JPI CHAR$ !$ !$ ! See if DECNET is running$ !2$ IF .NOT. F$GETDVI("NET0","EXISTS") THEN RETURN/$ IF .NOT. F$GETDVI("NET0","MNT") THEN RETURN $ SET NOON$ VMI$NO_ERROR$ VMI$NO_OUTPUT$ NCP CLEAR OBJECT JPI ALL$ NCP SET OBJECT JPI ALL $ SET ON $ RETURNL$!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++G$! DEFINE_SERVER_OBJECT_PHASE_V - Define the JPI$SERVER Object in the $! network database.0$! Parameters for SYS$MANAGER:NET$CONFIGURE are:$! p1 "APPLICATION_ADD"$! p2 the application name>$! p3 the username for the application (null if not used) and6$! the UIC for that Username. (Seperated by the '|')5$! p4 the parameters for the application (see below)=$! p5 (optional) Boolean value - NCL invocation after script $! creation<$! p4 breakdown - each item should be separated by the '|' 2$! character, a placeholder of a null for unused$! parameters.$! <$! x0 destination address (name = "NAME" or number = 10)$! x1 client$! x2 image name"$! x3 incoming alias (boolean)"$! x4 incoming proxy (boolean)"$! x5 outgoing alias (boolean)"$! x6 outgoing proxy (boolean)$$! x7 required synonym (boolean)$! x8 tsap$! x9 X25 filter$! x10 X25 type $! example:@$! parameters = "Number=10||SYS$SYSTEM:TEST.EXE|||||TRUE|||"L$!--------------------------------------------------------------------------$ DEFINE_SERVER_OBJECT_PHASE_V:$ !+:$ ! determine whether the server object is already there$ !-$ NCL = "$NCL",$ NCL SHOW SESSION CONTROL APPLICATION JPI$ !++$ ! if it's not there, declare the object$ !-$ IF .NOT. $STATUS$ THEN$ !+$ ! add the server object$ !->$ @VMI$ROOT:[SYSMGR]NET$CONFIGURE "APPLICATION_ADD" "JPI" "" -J "{NAME = "JPI"}||SYS$SYSTEM:JPI.EXE|TRUE|TRUE|FALSE|TRUE|TRUE||||"$ mcr ncl5 CREATE NODE 0 SESSION CONTROL APPLICATION JPIK SET NODE 0 SESSION CONTROL APPLICATION JPI ADDRESSES = {NAME=JPI} - ,CLIENT = - ,INCOMING ALIAS = TRUE - ,INCOMING PROXY = TRUE -! ,OUTGOING ALIAS = FALSE - ,OUTGOING PROXY = TRUE - ,NODE SYNONYM = TRUE -* ,IMAGE NAME = SYS$SYSTEM:JPI.EXE - ,INCOMING OSI TSEL =$$ TYPE SYS$INPUT7 The network object JPI has been defined. If you wish, to view this, issue the following command:I $mcr NCL SHOW SESSION CONTROL APPLICATION JPI ALL CHARACTERISTICS $ ENDIF$ $ RETURN`V$JPI021.A9)J'[RJACK.JPI.021.EXTERNAL]SHOWCOMMA.CLD;4C'*[RJACK.JPI.021.EXTERNAL]SHOWCOMMA.CLD;4+,9)./L 4C-J0123KPWO56D`7 &͒89TLGLHJdefine verb TMP_SHC> parameter P1, label=OPTION, value(required,type=SHOW_OPTIONS)define type SHOW_OPTIONS% keyword COMMAND, syntax=SHOW_COMMANDdefine syntax SHOW_COMMAND image vmi$kwd:showcomma= parameter P1, label=OPTION, prompt="OPTION", value(required)A parameter p2, label=P1, prompt="Verb(s)",value(list,default="*")C qualifier output,value(type=$outfile,default="SYS$OUTPUT"),default/ qualifier TABLES, default, value(type=$infile)'*[RJACK.JPI.021.EXTERNAL]SHOWCOMMA.EXE;4+,;)./L 4-J0123 KPWO56wu`7-͒89TLGLHJ0DX0205(tS,. SHOWCOMMAx00-003tS,05-00  ?v!  LIBRTL_001PЬPì PPPPPPPЬ PЬPР RЬQaSbPT-SPTTPЬPì PPPPPPHPЬ P0PPQЬ Ь P`Џ_00`9P+R ^~UԮ}~b~ aԮݬ~bЮQС ^\ݬЬ  LPPP~"+мPЬRP QQ"PPP*[Џ2\Zσ$YPi`RZkX<XRXVfVlЦTWW դ Mi U դAiUEZkP<PUP`RhQ-RQ V$TPեUiUWݏ<0>σ P^WЬRTSbR#P;VQ<QPQQQ@Ϡ#Gn$<VU6We#EdR ݏ2\)R<PPRRVUƞPPSS +#TSԼЬPՠ R R) ݏ2\S)S<SRSS)ݬS ώP!| d`PdRSPϬ"TSԼЬQPcաRR# ݏ2\( S< SRSS?ݬSP!) d`PdRP@SSBSSPЏ2\[r(ZϪ Y0X^ЬV[jT<TVTP<PVPPndRnP`Q-RQn [jTX T Tin$iP<PVPPnnR0ib~ ^V,P<iZRbHibTi b\bhi bPQ>@aPP  xȌi1W,nȤȰP<PVPP @@Pȸi-siiRBSWiSiRծ Wiiݮ Q ծWi^ݮiiύ q&[ϩZYRV}WЬT ݏ2\k?-39Gݏ2\k2R,R V$X(V0V4V TϾcncnRݢPbdУnԣnRݢbdЏ\ZYX WCV^ݏԮAi  Y X^iP0 PRЏbԢ$RU ЦR^4iP ^ϮPfTL`ffP ݏ\gfPݏ*\~ݏ"\gfPPSZgfPՠ R PR<UZgRPTSfCb~PTrUST ݏ:\gP zS^~ݬ5nPЏ^g|~|~ P`|~~ݏ~, xPPcЮR >Rx RRP<P<QQPWPdCfP@BPX^мV}xVP,nPVnlլ|W ЬPРX<`W,nPPƐXܞ' W 埭P[[/,nDlDllP[[1'lP[[1ЭTtt~yjootOeeOee ZФY TTTOZФY T>ZФY T2T- T(T#TT TTTdPPTdPPTZ'dUWGX-ehYGnVWdPDT12lnЏP[z[P[P R<bբ<~EPRRݬXPbbP0XW$^(dnЬPgP Q P hPVV ЬPgî RR,PaRaZ$JPI021.A;)J'[RJACK.JPI.021.EXTERNAL]SHOWCOMMA.EXE;4(nhPVVP|0V$^ЬЬ ( nlЬfPRRl VPRP<`^,n䐏Pݬ^|VX^,n䐏Qݬf^PRݬDl$լ ݬf  RP|VD^,nȐSȞ؞ ܕlլݬfЬ̑lլ  lլ,n䞭l լ Ь l լЬlլ ݬf^<`^,n䐏Tmal լЬ^<`^,n䐏U, ݬ ^SYS$SYSTEM:SYS.STBh ? <>. $user_defined$infile$outfile$number $privilege $datetime $protection$process$inlog$outlog$insym$outsym$node$device $directory$uic $rest_of_line $parenvalue $deltatime$quoted_string$file $expression$test1$test2$test3$acl !!! !(!0!8!@!L!T!d!p!|!!!!!!! parameter qualifier keyword , label= , prompt= , syntax= , default, batch , negatable, nonnegatable, placement=local, placement=positionalrequiredlist, value, value(,,default=,type=)   not any2(,) and or xor neg() define verb define syntax synonym  image cliroutine  !none  !same routine ! address:  prefix abbreviatenostatusforeign immediatemcrparse ##$ $$ cliflags(,) disallow noparameters outputs(,) define type  prefix output$.lis$p1$*$tables$CTL$AG_CLITABLE$(.exe%0123456789ABCDEF(,) copy/log !AS sys$scratch:patch.tmp;0/prot=(o:rwed)sys$scratch:patch.tmpback/log sys$scratch:patch.tmp; !AS/newV5.3-2 back/log sys$scratch:patch.tmp; !AS/newSYS$SYSTEM:SYS.STBRЬQС(PbР bР b 4bС,bPЬRѢz"}~bRݢ<PݢТPO((eP(Fh@{\h\\ \0(\z0\8\ 4 NOTCLITABLEImage !AS is not a CLI table.N BADPTRTABLE8Could not find valid DCL internal command pointer table.F BADROOTBLOCK/Could not locate DCL internal root block table.J INVSTRLVL6Can not handle structure level !UL of your DCL tables.HWRONGLVL4This only understands DCL table structure level !UL.H BADCMDBLOCK2Could not locate valid DCL internal command block.< NOCOMMANDS'No commands match the specified string.\SHCOM@@ `hHP , @LIBRTLbU$JPI021.A:,J+[RJACK.JPI.021.EXTERNAL]KITIB]E"_-M3Wkd;18`=0 ~X/LG.L /r5%4iX Gԟz\PWz[7<;'֎uއжA薠qFcgV0"I~ݜ^>.R=pP7G „ =$!LWIHxiĂibI;㢌fL/pb^{+u1F")%*SɚR {C)De05RϞhJ Ӄi:WI7P̏M{m4VOqս(q@$fik ͓*a_Z(! }z1Gf$}&b$+ tZltDlϯl|A7esƏQ˷lx-?hYBKRE~m2hqcf$eBP2ׄ+ _Lز)O^pg?QNGZk>] \˒mN-%_;%Ilݸsj$r"g?̼yƾN*9 So,AEMeI9 w-pAMYÂ7ՒTגKRtkLO{677\ՁA[jVsi;y\ l+OH?C`كl,Bv2_>3c`BK!Ő bf.\?CpMnDބ6/6Ʋ.ֶ*/=4Ўmjl Vq/Tgg'u(sfC:̼@/ˉ6/(okyqҝHԴIvvJ1q!@DHHL!ыKw:H7jpPXհT|ĜWY_13;<3ΦRo33oǁ+n U"*MA~>$۽^>aS'r$ϻx `]nSbVuz`@]7`aRy^T_MwZ/Ԛ'C]ѠI}$DMشl/^- 59R8k"[Ɍ`BT{^V/AcN[Dh"@ fgWO@ftY:yIc"Gߔh/dA# Qkkr?w<.uL!]W=u2޹ĝ s\oQR(b 7( Ƕq7o wtoEĺm^%Ԁww=75٘F=~$5QɭϘoEuҞne/> ~E ʺR4@Ri*_ mWҧ?f>S+b._bvF+z,F{nguq w ܬkKĆ#Pra넛$ pFuc갆S RTex9E=l5u |1uԼ]'i/$VN&&Fd|B[(78]]\eY_#zDWfCNYtyఞO]`S}MRiT)gna+B#̉*@X)hNɋ7%M{Y =Ê]X (}ӡ&N7vV_h2!KW-em< v| = &ջݷ㢮gC̺B_ͬ ڧ?&8L$F>6#q#Qy.mhʷ(Ku1[xe:qK֫?9‡LĜ&C/uWMiKD$ FY.O)yCA[b(8{"npaHW)4)VS;I?u^?MF, HDuW8,h̉Daba} B.UF2SQl3)#]s#<듨\{ykkFwdvaiWfgQ}\8`0g4z ɽ7Y̘:n**KyhX+L\I?m ~">p՛}+uX]v(~oMYpU'{BChy^- `)khz 3< \0NOqրpx7#"+<A2drfD@ƺ[~\D" 7A[ƅa.hl<4QԖ)wQ]|xG !shy0hD Nu5rшkMhsr}Q}!_h)ݰ2|F{3jiA^CU99J[\X>1ǤU MҼO[jnBK+{f]{טsHjM~e{oc#u1,ooC21ċ7j(Yl"i`ܕa*Nfg ?q1 !S{o-{/du1ͽ+f2 ^#*e$?NRF8 "b#ZVDsB<=YL0Rq)7-/,[ RTWkxxb/TW"@F }w,>0L@4 :HNu x&pp`A)M"hf7"hUia"NC'tmtP]FL>*-:=^=T/^M|7wl4!!l2bJz-1#.`Jf/@! k؎-_6SK\fӎA3Ya~2EaHpw]jmN-]=c DDA•YHK%|!6'I\~@kƪ]Ck6v7FT"? ލV/u&(B?3DT۹E&#'|t{2#ӋbAy: RYA* 7||] Yv4}G_ 6 :Ai1̫y+fwⱱ]([H"죪=²L*Y'K,j+NO8Շpq=+Cq~Н*2}$7WQ)H\^eQ\ xeU^߽6-Z58'2 HTY]A86i9gCC50*;ϑbyM[O+Em47?8Y^UK\/mg*pEdnlLу=J4r#_!`"aUQRAggz@/uZTbTс-s7`#Fs}B<)pyI6J-SaPOn!ayZu 'ފ6\=:G&xiR)~/ix:]1Z'G!!nQg ElBزxv:@epXPw:=JA@c {@>ϥS5S9t֘ʆ+b#6P"ljܵa-vmE¢>啋:Wn7Պ6+Akp MX!3M 2V6x#h_AFƈ?Ҕ6L^8?`ic* (( ED!N`lpzjV&aABٮ]lAmG>O\O[أ[;gVPܓ^Sl,u'1FǭUS}/g[A?eN(p hwSц'bWI{1 3eJ; w$Qhov|3'hɥZ~OZ:*L`^mˎ%ʿ28n }a \TΞbpȥv@x~-]ؼ\Rjâͪe5P Α^[5+jz V=Ls7<d}dC#(i|0U[.xuRokR ٯ԰ۥB2^h4b FJަI<8WtGVo2J ]NF>aOx|WTdCf!r.1>26z4ml um$֪p7e{h^"v ȬD<-WY>Ic"iڅw1RO;H++R}8aFޔf]=cHSI2`PgJ %R0eR0 =b$ 2t;=,?,zaRCnI9du47ZRJƞ}>eZ5E/ՎRxlauՄVe_3yɄXI b /PR \7n o>~<-jYu A124bYpfF5[[RNz6M.-b^<%H Yup8X f"P"kHo1C9DRR苏*x묌@xS6;}B;\p͛DVysXn֜*0NCf̦-4d 3B\~~eQ2m0T.ۭbJ(ظ!C&XkF <_P](t=a3F[xBG\0eUIQ@$bvb?B18Mf,dS+Р 18;Pd!ystBS&iL?ǀR"9hfm@Ueŧp*FJw+͊Vzе.(7rԷqbрNRzI}ޝ$N)]lbJ5n !%˻ >peW5.$=;%%W95,^Y JᬁGn)/ܘ52.oȽ3;vZDZїV_J^싒V3+ )ѕ~TJDOD戀˚B pIJg6D@(2l׉Q^zpEW `UsVk}1(. @D3E|ETeJ_CdU(z5M5hd[ Z]hj|7iB)ySȮ :Q."*ۮE(lz9mz'c,DiQ=L~"_&{S@:r/sv^]OnK FT S|VfZ>n:ix `Ge67 MpJÑՒ5"yzgc, Ґu$T&$.c|}MbQ ҁRۘw6CRc)^'JpJ(^ `Pqd+!0-|>(4}iOPt'pa 74~9B[ݫi2W8Tkx %Ǵ a>v),R}qFڣ*<I v,uDk΂:9דL')C"cIN>k9supxXuilzMnrP*'3eQ1楒 .W.'oo~edXʇo{^|MKfrI?!b/yR59S[RuR3gf2ˈpY;mf;;M6 s+?z~erNrW+@ٶ|c}¢{wa6 *x˥+{{5)9 JWV1{ƻu B묉aKMa"bOAyA!le}v<Q^rŮ`rF:SϞQNG E쫢j;0y~?(H]tQ;.Cn@,F :\j TL-d•^]!!դ;mhM 8ÉPQ( rŬcoU4:(dA2F :mfc7#$3ƹ lלz,ˍrV͜m_t\gWh\Z'o MȐxf#ѣg"T@޹kR*vt(qs]}:K`W&c4~Ev?yn\YfEH" &Kocƶi'jӺSe[h+ĊmXYƵ;2ᢑ!ډ* նL$ 5v Ai2z'rr pA r