                            ٘,= ~      
SWEXA035.E                                                                                                                                                                                                   =@             
  SWEXA035.E  BACKUP/LOG/INTERCHANGE/NOCONVERT/NOLOG SWEXA_KIT_DIR:IMAGE_LIST_E.DAT,DISK_DTST4:[SWEXA.KIT.2269B9B1]*.COM/EXCLUDE=(*.DIR,*KITINSTAL.COM)/IGNORE=NOBACKUP SWEXA_KIT_DIR:SWEXA035.E/SAVE_SET  SLJ           `    ii#ҩ      V8.3	 	 _SWTA06:: 
      _DPA1:  V8.3   ~    
        0              * [SWEXA.KIT]IMAGE_LIST_E.DAT;1 +  , Z  .     /    4 -       &                    -    0   1    2   3      K  P   W   O     5   6 '#ҩ  7 '#ҩ  8          9          ] '#ҩ  ^ T*#ҩ  _          `               G   H   J                          & DISK_DTST4:[SWEXA.SFT-ALPHA]BOOT.COM;1- DISK_DTST4:[SWEXA.SFT-ALPHA]DIRECTORIES.COM;1 ' DISK_DTST4:[SWEXA.SFT-ALPHA]ENTER.COM;1 & DISK_DTST4:[SWEXA.SFT-ALPHA]EXIT.COM;1' DISK_DTST4:[SWEXA.SFT-ALPHA]GRANT.COM;1 * DISK_DTST4:[SWEXA.SFT-ALPHA]LOGICALS.COM;1& DISK_DTST4:[SWEXA.SFT-ALPHA]MENU.COM;8) DISK_DTST4:[SWEXA.SFT-ALPHA]RECOVER.COM;1 ( DISK_DTST4:[SWEXA.SFT-ALPHA]REVOKE.COM;1( DISK_DTST4:[SWEXA.SFT-ALPHA]SECURE.COM;1* DISK_DTST4:[SWEXA.SFT-ALPHA]SHUTDOWN.COM;1' DISK_DTST4:[SWEXA.SFT-ALPHA]START.COM;1 & DISK_DTST4:[SWEXA.SFT-ALPHA]STOP.COM;1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Pv                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          { ~      
SWEXA035.E                     Z Z [SWEXA.KIT.2269B9B1]BOOT.COM;1                                                                                                 +                              {0              * [SWEXA.KIT.2269B9B1]BOOT.COM;1 +  , Z  .     /    4 +                           - Z   0   1    2   3      K  P   W   O     5   6 ~F#ҩ  7 ~F#ҩ  8          9          ] bG#ҩ  ^ ~M#ҩ  _          `                G   H  J                          $SAV_VFY = 'F$VERIFY(0)'+ $!!	Copyright  1987 - 1998 Corpita Pty Ltd  $UTLTOOLS FETCH SUBCONTEXT $SAY "  Booting ''dsc_ctx'"  $@'DIR_SFT'LOGICALS  $EXIT 1 + 0*F$VERIFY(SAV_VFY)                                                                                                                                                                                                                                                                                                                                         0             % * [SWEXA.KIT.2269B9B1]DIRECTORIES.COM;1 +  , "  .     /    4 J                          - Z   0   1    2   3      K  P   W   O     5   6 SP#ҩ  7 SP#ҩ  8          9          ] R#ҩ  ^ wjY#ҩ  _          ` >              G   H  J                   $SAV_VFY = 'F$VERIFY(0)'$ $!!	Copyright  2005 Corpita Pty Ltd* $GOSUB SWADM_SUB_SETUP_CREATE_SUBDIRECTORY $CREDIR [SWEXA.ADALIB'DIR_ARC']  $EXIT 1 + 0*F$VERIFY(SAV_VFY)  $SAV_VFY = 'F$VERIFY(0)'' $!!	Copyright  2002 by Corpita Pty Ltd ) $INTTOOLS LOG/MESSAGE/PREFIX=SWADM NONEXE  $EXIT 1 + 0*F$VERIFY(SAV_VFY) % $SWADM_SUB_SETUP_CREATE_SUBDIRECTORY:  $UTLTOOLS FETCH SUBCONTEXT $ENVR_COD = P10 $IF ENVR_COD .EQS. "" THEN ENVR_COD := 'CUR_ENV'E $ENVR_DEV = ( F$PARSE("disk_''envr_cod':[''cur_app'.wrk]") .NES. "" ) - $CREDIR := CALL SWADM_SUB_CREATE_SUBDIRECTORY ? $CREDIRD := IF ENVR_DEV THEN CALL SWADM_SUB_CREATE_SUBDIRECTORY  $RETURN  $SWADM_SUB_CREATE_SUBDIRECTORY:  $SUBROUTINE  $DIR_COD = P1 - "[" - "]"  $DIR_MAX = 8 $CREDIR_MAX_LOOP: ) $DIR_ITM = F$ELEMENT(DIR_MAX,".",DIR_COD) J $IF DIR_ITM .NES. "" .AND. DIR_ITM .NES. "." THEN GOTO CREDIR_MAX_LOOP_END $DIR_MAX = DIR_MAX - 1 $GOTO CREDIR_MAX_LOOP  $CREDIR_MAX_LOOP_END:  $DIR_PRT = DIR_COD $DIR_IDX = DIR_MAX $CREDIR_CHK_LOOP: 3 $DIR_CHK = F$PARSE("disk_''envr_cod':[''dir_prt']") 2 $IF DIR_CHK .NES. "" THEN GOTO CREDIR_CHK_LOOP_END< $DIR_PRT = DIR_PRT - ( "." + F$ELEMENT(DIR_IDX,".",DIR_COD)) $DIR_IDX = DIR_IDX - 1 $GOTO CREDIR_CHK_LOOP  $CREDIR_CHK_LOOP_END: 0 $IF DIR_IDX .EQ. DIR_MAX THEN GOTO CREDIR_ALREXI4 $DIR_DEV = F$PARSE(DIR_CHK,,,"device","syntax_only")  $DIR_CHK := 'DIR_DEV'['DIR_COD'] $Z1 = F$VERIFY(1)  $CREATE/DIRECTORY 'DIR_CHK'  $Z1 = 'F$VERIFY(0)'  $CREDIR_ALREXI:  $DIR_CHK = DIR_CHK - ".;"  $DIR_ROT = DIR_CHK - "]" + "." $GOTO CREDIR_'P2'  $GOTO CREDIR_EXIT  $CREDIR_ALPHABET:  $DIR_LET = "A" $CREDIR_ALPHABET_LOOP:+ $IF DIR_LET .GTS. "Z" THEN GOTO CREDIR_EXIT  $DIR_SUB := 'DIR_ROT''DIR_LET'] ' $DIR_LET[0,8] = F$CVUI(0,8,DIR_LET) + 1 < $IF F$PARSE(DIR_SUB) .NES. "" THEN GOTO CREDIR_ALPHABET_LOOP $Z1 = F$VERIFY(1)  $CREATE/DIRECTORY 'DIR_SUB'  $Z1 = 'F$VERIFY(0)'  $GOTO CREDIR_ALPHABET_LOOP	 $CREDIR_:  $CREDIR_EXIT:  $EXIT  $ENDSUBROUTINE                                                                          0              * [SWEXA.KIT.2269B9B1]ENTER.COM;1 +  , w  .     /    4 S       L                    - Z   0   1    2   3      K  P   W   O     5   6 }[#ҩ  7 }[#ҩ  8          9          ] 6?\#ҩ  ^  Pa#ҩ  _          `               G   H  J                         $SAV_VFY = 'F$VERIFY(0)'+ $!!	Copyright  1996 - 2005 Corpita Pty Ltd  $CONTEXT APPLICATION SWRK /ADD $CONTEXT APPLICATION SWADM /ADD  $CONTEXT APPLICATION SWDBA /ADD  $CONTEXT APPLICATION SWDEV /ADD S $CHKDBA :== SEARCH NIS_RUN_DIR:NIS_DATABASE_JOB.LOG -W-,-E-,-F-,STARTING,CONTINUING H $SAV_SWDEV_BUILD_DEFAULT_QUALIFIERS :== 'SWDEV_BUILD_DEFAULT_QUALIFIERS'L $SAV_SWDEV_COMPILE_DEFAULT_QUALIFIERS :== 'SWDEV_COMPILE_DEFAULT_QUALIFIERS'8 $ARC_LTR = F$ELEMENT(F$GETSYI("arch_type")+0,"\","\V\A")K $QAL_DEF := /CONDITION='ARC_LTR'/CROSS_REFERENCE/INITIALIZE_HANDLES/MACHINE M $SWDEV_BUILD_DEFAULT_QUALIFIERS :== 'SWDEV_BUILD_DEFAULT_QUALIFIERS''QAL_DEF' Q $SWDEV_COMPILE_DEFAULT_QUALIFIERS :== 'SWDEV_COMPILE_DEFAULT_QUALIFIERS''QAL_DEF' ! $ACS SET LIBRARY SWEXA_ADALIB_DIR * $STA_PRC := SYS$MANAGER:JAVA$141_SETUP.COM $IF F$SEARCH(STA_PRC) .NES. "" $THEN  $FLG_LOG = 'FLG_LOG+0 - $IF FLG_LOG THEN SAY "Using Java 1.4.1 setup" 0 $IF .NOT. FLG_LOG THEN DEFINE/USER SYS$ERROR NL:1 $IF .NOT. FLG_LOG THEN DEFINE/USER SYS$OUTPUT NL:  $@'STA_PRC''QAL_OUT' $ENDIF $EXIT 1 + 0*F$VERIFY(SAV_VFY)                                                                                                                                                                                                                                                                                                                                                                                                                                                     0              * [SWEXA.KIT.2269B9B1]EXIT.COM;1 +  , EZ  .     /    4 L       V                    - Z   0   1    2   3      K  P   W   O     5   6 &fc#ҩ  7 &fc#ҩ  8          9          ] Ve#ҩ  ^ qk#ҩ  _          `        6       G   H  J                          $SAV_VFY = 'F$VERIFY(0)'+ $!!	Copyright  1987 - 2005 Corpita Pty Ltd 1 $CMD_PRC := SWRK_SFT_DIR:SWRK_EXIT_NON_SWTECH.COM E $SITE_CODE = F$TRNLNM("swrk_site_dependent_code","lnm_swrk_database") L $IF SITE_CODE .NES. "SWT" THEN IF F$SEARCH(CMD_PRC) .NES. "" THEN @'CMD_PRC'E $SWDEV_BUILD_DEFAULT_QUALIFIERS == SAV_SWDEV_BUILD_DEFAULT_QUALIFIERS I $SWDEV_COMPILE_DEFAULT_QUALIFIERS == SAV_SWDEV_COMPILE_DEFAULT_QUALIFIERS  $DELSYM := DELETE/SYMBOL/GLOBAL * $DELSYM SAV_SWDEV_BUILD_DEFAULT_QUALIFIERS, $DELSYM SAV_SWDEV_COMPILE_DEFAULT_QUALIFIERS $DEASSIGN ADA$LIB  $EXIT 1 + 0*F$VERIFY(SAV_VFY)                                                                                                                                                                                                                                                                                                                                                                                                                                           0              * [SWEXA.KIT.2269B9B1]GRANT.COM;1 +  , t
  .     /    4 F                           - Z   0   1    2   3      K  P   W   O     5   6 Gn#ҩ  7 Gn#ҩ  8          9          ] (p#ҩ  ^ $"|#ҩ  _          `        ~        G   H  J                         $SAV_VFY = 'F$VERIFY("NO")' F $SAY "  Granting ''P1' access to application ''CUR_APP' in ''CUR_ENV'" $EXIT 1 + 0*F$VERIFY(SAV_VFY)                                                                                                                                                                                                                                                                                                                                                                                           0             " * [SWEXA.KIT.2269B9B1]LOGICALS.COM;1 +  ,   .     /    4 S      	 \                   - Z   0   1    2   3      K  P   W   O     5   6 ~#ҩ  7 ~#ҩ  8          9          ] z#ҩ  ^  u#ҩ  _          ` ^       q       G   H  J                      $SAV_VFY = 'F$VERIFY(0)'+ $!!	Copyright  1987 - 2009 Corpita Pty Ltd  $CLS_SFX = "" 2 $IF CUR_VAR .NES. "" THEN CLS_SFX := _VAR'CUR_VAR'/ $IF CUR_VSN .NES. "" THEN CLS_SFX := _'CUR_VSN' 8 $DEFAPP SWEXA_AIB_DIR YES DISK_'CUR_ENV':['DIR_ROT'.AIB]8 $DEFAPP SWEXA_AIJ_DIR YES DISK_'CUR_ENV':['DIR_ROT'.AIJ]8 $DEFAPP SWEXA_BCK_DIR YES DISK_'CUR_ENV':['DIR_ROT'.BCK]8 $DEFAPP SWEXA_DAT_DIR YES DISK_'CUR_ENV':['DIR_ROT'.DAT]8 $DEFAPP SWEXA_DOC_DIR YES DISK_'CUR_ENV':['DIR_ROT'.DOC]8 $DEFAPP SWEXA_JNL_DIR YES DISK_'CUR_ENV':['DIR_ROT'.JNL]8 $DEFAPP SWEXA_RDA_DIR YES DISK_'CUR_ENV':['DIR_ROT'.RDA]8 $DEFAPP SWEXA_RDB_DIR YES DISK_'CUR_ENV':['DIR_ROT'.RDB]8 $DEFAPP SWEXA_RUN_DIR YES DISK_'CUR_ENV':['DIR_ROT'.RUN]8 $DEFAPP SWEXA_RUJ_DIR YES DISK_'CUR_ENV':['DIR_ROT'.RUJ]8 $DEFAPP SWEXA_SCR_DIR YES DISK_'CUR_ENV':['DIR_ROT'.SCR]A $DEFAPP SWEXA_SFT_DIR YES DISK_'CUR_ENV':['DIR_ROT'.SFT'DIR_ARC'] 8 $DEFAPP SWEXA_SNP_DIR YES DISK_'CUR_ENV':['DIR_ROT'.SNP]8 $DEFAPP SWEXA_SRT_DIR YES DISK_'CUR_ENV':['DIR_ROT'.SRT]8 $DEFAPP SWEXA_TPS_DIR YES DISK_'CUR_ENV':['DIR_ROT'.TPS]9 $DEFROT SWEXA_TPS_ROOT YES DISK_'CUR_ENV':['DIR_ROT'.TPS] A $DEFAPP SWEXA_TST_DIR YES DISK_'CUR_ENV':['DIR_ROT'.TST'DIR_ARC'] 8 $DEFAPP SWEXA_WRK_DIR YES DISK_'CUR_ENV':['DIR_ROT'.WRK]8 $DEFAPP SWEXA_WWW_DIR YES DISK_'CUR_ENV':['DIR_ROT'.WWW]9 $DEFROT SWEXA_WWW_ROOT YES DISK_'CUR_ENV':['DIR_ROT'.WWW]  $DEFLIT SWEXA_VERSION NO V3.5 ? $DEFINE/TABLE=LNM$PROCESS_DIRECTORY LNM$JOB LNM_SWEXA_'CUR_ENV' ! $@SYS$LIBRARY:RDB$SETVER 7.0 /JOB - $DEASSIGN/TABLE=LNM$PROCESS_DIRECTORY LNM$JOB $ $DEFLIT SWEXA_COMPILETIME_DATABASE -$  NO SWEXA_LIB_DIR:SWEXA_DATABASE.RDBB $DEFLIT SWEXA_RUNTIME_DATABASE NO SWEXA_RDB_DIR:SWEXA_DATABASE.RDB( $DBAMAN EXECUTE LOGICALS APPL_COD:=SWEXA# $DEFLIT SORTWORK0 NO SWEXA_SRT_DIR: # $DEFLIT SORTWORK1 NO SWEXA_SRT_DIR: # $DEFLIT SORTWORK2 NO SWEXA_SRT_DIR: # $DEFLIT SORTWORK3 NO SWEXA_SRT_DIR: # $DEFLIT SORTWORK4 NO SWEXA_SRT_DIR: # $DEFLIT SORTWORK5 NO SWEXA_SRT_DIR: # $DEFLIT SORTWORK6 NO SWEXA_SRT_DIR: # $DEFLIT SORTWORK7 NO SWEXA_SRT_DIR: # $DEFLIT SORTWORK8 NO SWEXA_SRT_DIR: # $DEFLIT SORTWORK9 NO SWEXA_SRT_DIR: 4 $DEFLIT SWEXA_HELP_LIB NO SWEXA_DOC_DIR:SWEXAHLP.HLB@ $ENVR_REC = F$TRNLNM("swrk_envr_''cur_env'","lnm_swrk_database")S $ENVR_WORK = F$ELEMENT(0,"\",F$EXTRACT(F$LOCATE("WORK=",ENVR_REC)+5,-1,ENVR_REC))+0 & $IF ENVR_WORK THEN GOSUB DEFINE_SOURCE $EXIT 1 + 0*F$VERIFY(SAV_VFY)  $DEFINE_SOURCE: > $SRC_ROOT = F$PARSE("disk_''cur_env':[''dir_rot'.src]") - ".;" $IF SRC_ROOT .EQS. ""  $THEN Q $ENVR_SCOP = F$ELEMENT(0,"\",F$EXTRACT(F$LOCATE("SCOP=",ENVR_REC)+5,-1,ENVR_REC))  $GEN_SFX = "" . $IF ENVR_SCOP .NES. "COMMON" THEN GEN_SFX := + $IF CUR_VAR .EQS. "" $THEN . $CMS_PATH := SWEXA_'CUR_ENV''CLS_SFX''GEN_SFX'Q $ENVR_VACL = F$ELEMENT(0,"\",F$EXTRACT(F$LOCATE("VACL=",ENVR_REC)+5,-1,ENVR_REC)) 0 $IF ENVR_VACL THEN DEFLIT SWEXA_CMS_VARIANT NO A $ELSE G $CMS_PATH := SWEXA_'CUR_ENV''CLS_SFX''GEN_SFX',SWEXA_'CUR_ENV''GEN_SFX' & $DEFLIT SWEXA_CMS_VARIANT NO 'CUR_VAR' $ENDIF3 $SRC_ROOT = F$PARSE("disk_appl:[swexa.src]") - ".;"  $ENDIFG $DEFAPP SWEXA_ADALIB_DIR YES DISK_'CUR_ENV':['DIR_ROT'.ADALIB'DIR_ARC'] 8 $DEFAPP SWEXA_AIL_DIR YES DISK_'CUR_ENV':['DIR_ROT'.LIB]9 $DEFROT SWEXA_AIL_ROOT YES DISK_'CUR_ENV':['DIR_ROT'.LIB] 8 $DEFAPP SWEXA_CDD_DIR YES DISK_'CUR_ENV':['DIR_ROT'.CDD]' $DEFLIT SWEXA_CMS_PATH NO "''cms_path'" 8 $DEFAPP SWEXA_GEN_DIR YES DISK_'CUR_ENV':['DIR_ROT'.GEN]7 $DEFAPP SWEXA_KIT_DIR NO DISK_'CUR_ENV':['DIR_ROT'.KIT] A $DEFAPP SWEXA_LIB_DIR YES DISK_'CUR_ENV':['DIR_ROT'.LIB'DIR_ARC'] B $DEFROT SWEXA_LIB_ROOT YES DISK_'CUR_ENV':['DIR_ROT'.LIB'DIR_ARC']$ $DEFAPP SWEXA_SRC_DIR YES 'SRC_ROOT'% $DEFROT SWEXA_SRC_ROOT YES 'SRC_ROOT' 4 $DEFLIT SWEXA_COPY_LIB NO SWEXA_LIB_DIR:SWEXATXT.TLB5 $DEFLIT SWEXA_IMAGE_LIB NO SWEXA_SFT_DIR:SWEXALIB.OLB 5 $DEFLIT SWEXA_MACRO_LIB NO SWEXA_LIB_DIR:SWEXAMAC.MLB 3 $DEFLIT SWEXA_MMS_LIB NO SWEXA_LIB_DIR:SWEXAMMS.TLB 6 $DEFLIT SWEXA_OBJECT_LIB NO SWEXA_LIB_DIR:SWEXAOBJ.OLB6 $DEFLIT SWEXA_SYMBOL_LIB NO SWEXA_SFT_DIR:SWEXASYM.OLB# $LIBRINS SWEXA_HELP_LIB/APPLICATION $ $LIBRINS SWEXA_IMAGE_LIB/APPLICATION% $LIBRINS SWEXA_SYMBOL_LIB/APPLICATION % $LIBRINS SWEXA_OBJECT_LIB/APPLICATION % $DEFLIT CDD$DEFAULT NO SWEXA_CDD_DIR: * $DEFLIT CMS$LIB NO SWEXA_SRC_ROOT:[CMSLIB]* $DEFLIT DTM$LIB NO SWEXA_SRC_ROOT:[DTMLIB]. $DEFLIT SCA$LIBRARY NO SWEXA_LIB_ROOT:[SCALIB]& $DEFLIT SWEXA_FIELDS NO SWEXA_CDD_DIR:' $DEFLIT SWEXA_RECORDS NO SWEXA_CDD_DIR:  $RETURN                                                                                                                                                                     0              * [SWEXA.KIT.2269B9B1]MENU.COM;1 +  ,   . p    /    4 r   p   p                    - Z   0   1    2   3      K  P   W   O q    5   6 s⊥#ҩ  7 s⊥#ҩ  8          9          ] T#ҩ  ^ V;#ҩ  _          ` #             G   H  J             J             $SAV_VFY = 'F$VERIFY(0)'A $IF F$TRNLNM("vue$input") .NES. "" THEN VUE$POPUP_PROGRESS_BOX 10  $GOTO SWRK_SUB_MENU_HANDLER  $HANDLE_SELECTION_CALLBACK:  $GOTO HANDLE_'SEL_CODE' 
 $GEN_DONE: $MSG_LIN = "" ( $GOTO SWRK_SUB_DISPLAY_MESSAGE_LINE_WAIT $GEN_ERROR: !! 'f$verify(0)  $RET_STS = $STATUS/ $IF DSP_TSK_FLG THEN MSG_LIN = "Error detected" ( $GOTO SWRK_SUB_DISPLAY_MESSAGE_LINE_WAIT	 $GEN_EOF:  $RET_STS = %X1001827A  $RETURN  $DISPLAY_MENU_CALLBACK: 6 $SEL_LIST = ".ADD.MODIFY.REMOVE.SHOW.DCL.FILES.PRINT." $SEL_MAX = 7 $IF DSP_MNU_FLG  $THEN ( $HDR_LIN = "Application ''cur_app' menu" $GOSUB SWRK_SUB_DISPLAY_HEADING  $TYPE SYS$INPUT          1  ADD         Add a widget-      2  MODIFY      Modify an existing widget -      3  REMOVE      Remove an existing widget 3      4  REPORT      Generate a report about widgets &      5  DCL         Enter DCL commands%      6  FILES       File Control Menu        7  PRINT       Print a file $ENDIF $UTLTOOLS FETCH LOGIN/CONTEXT  $IF FLG_CUR_APP_MGR  $THEN  $SEL_CODE := MANAGE % $SEL_LIST = SEL_LIST + SEL_CODE + "."  $SEL_MAX = SEL_MAX + 14 $MNU_SAY (MNU_FAO,SEL_MAX,SEL_CODE,"Manage widgets") $ENDIF $RETURN  $HANDLE_ADD: $ON ERROR THEN GOTO GEN_ERROR  $HDR_LIN = "Add a widget" 3 $IF DSP_TSK_FLG THEN GOSUB SWRK_SUB_DISPLAY_HEADING  $GOSUB GET_WIDGET_NAME $IF .NOT. RET_STS THEN RETURN  $GOSUB GET_WIDGET_OWNER  $IF .NOT. RET_STS THEN RETURN  $GOSUB GET_WIDGET_TYPE $IF .NOT. RET_STS THEN RETURN  $SAY "Adding new widget..."  $GOTO GEN_DONE $HANDLE_DCL: $ON ERROR THEN GOTO GEN_ERROR  $HDR_LIN = "Enter DCL commands" 3 $IF DSP_TSK_FLG THEN GOSUB SWRK_SUB_DISPLAY_HEADING " $DEFINE/USER SYS$INPUT SYS$COMMAND $'SEL_ARGS'  $@SYS$COMMAND  $GOTO GEN_DONE $HANDLE_FILES:, $MNU_PRC := SWADM_SFT_DIR:SWADM_MANAGE_FILES $GOTO SWRK_SUB_MENU_CALL $HANDLE_MANAGE: ; $MNU_PRC = "''cur_app'_sft_dir:''cur_app'_''sel_code'_menu"  $GOTO SWRK_SUB_MENU_CALL $HANDLE_MODIFY:  $ON ERROR THEN GOTO GEN_ERROR & $HDR_LIN = "Modify an existing widget"3 $IF DSP_TSK_FLG THEN GOSUB SWRK_SUB_DISPLAY_HEADING  $GOSUB GET_WIDGET_NAME $IF .NOT. RET_STS THEN RETURN  $GOSUB GET_WIDGET_OWNER  $IF .NOT. RET_STS THEN RETURN  $GOSUB GET_WIDGET_TYPE $IF .NOT. RET_STS THEN RETURN # $SAY "Modifying existing widget..."  $GOTO GEN_DONE $HANDLE_PRINT:, $MNU_PRC := SWADM_SFT_DIR:SWADM_MANAGE_FILES $SEL_ARGS = "print " + SEL_ARGS  $GOTO SWRK_SUB_MENU_CALL $HANDLE_REMOVE:  $ON ERROR THEN GOTO GEN_ERROR & $HDR_LIN = "Remove an existing widget"3 $IF DSP_TSK_FLG THEN GOSUB SWRK_SUB_DISPLAY_HEADING  $GOSUB GET_WIDGET_NAME $IF .NOT. RET_STS THEN RETURN " $SAY "Removing existing widget..." $GOTO GEN_DONE $HANDLE_REPORT:  $ON ERROR THEN GOTO GEN_ERROR , $HDR_LIN = "Generate a report about widgets"3 $IF DSP_TSK_FLG THEN GOSUB SWRK_SUB_DISPLAY_HEADING  $GOSUB SWRK_SUB_GET_OUTPUT $IF .NOT. RET_STS THEN RETURN  $GOTO GEN_DONE $GET_WIDGET_NAME:  $RUN SWRK_SFT_DIR:SWRK_GET_ARG $WGT_NAM = ARG' $IF WGT_NAM .EQS. "\" THEN WGT_NAM = "" . $IF WGT_NAM .NES. "" THEN GOTO GWN_GOT_WGT_NAM $GWN_GET_WGT_NAM:  $ACCEPT WGT_NAM - 
  /CONVERT-  /PROMPT="Widget name: "-   /TERMINATOR=SEL_TERM-  /UPPERCASE , $IF SEL_TERM .EQS. "CTRLZ" THEN GOTO GEN_EOF1 $WGT_NAM = F$EDIT(WGT_NAM,"compress,trim,upcase") . $IF WGT_NAM .EQS. "" THEN GOTO GWN_GET_WGT_NAM $GWN_GOT_WGT_NAM:  $RETURN  $GET_WIDGET_OWNER: $WGT_OWN_DEF = "Fred"  $RUN SWRK_SFT_DIR:SWRK_GET_ARG $WGT_OWN = ARG0 $IF WGT_OWN .EQS. "\" THEN WGT_OWN = WGT_OWN_DEF. $IF WGT_OWN .NES. "" THEN GOTO GWO_GOT_WGT_OWN $GWO_GET_WGT_OWN:  $ACCEPT WGT_OWN - 
  /CONVERT-+  /PROMPT="Widget owner [''wgt_own_def']: "-   /TERMINATOR=SEL_TERM , $IF SEL_TERM .EQS. "CTRLZ" THEN GOTO GEN_EOF1 $WGT_OWN = F$EDIT(WGT_OWN,"compress,trim,upcase") / $IF WGT_OWN .EQS. "" THEN WGT_OWN = WGT_OWN_DEF  $GWO_GOT_WGT_OWN:  $RETURN  $GET_WIDGET_TYPE:  $WGT_TYP_DEF = "Australian" < $WGT_TYP_LST = "|AMERICAN|AUSTRALIAN|ENGLISH|GREEK|ITALIAN|"( $WGT_TYP_LST_LEN = F$LENGTH(WGT_TYP_LST): $WGT_TYP_PMT = "American/Australian/English/Greek/Italian" $RUN SWRK_SFT_DIR:SWRK_GET_ARG $WGT_TYP = ARG0 $IF WGT_TYP .EQS. "\" THEN WGT_TYP = WGT_TYP_DEF $GWT_GET_WGT_TYP: 1 $WGT_TYP = F$EDIT(WGT_TYP,"compress,trim,upcase")  $IF WGT_TYP .NES. "" $THEN  $Z1 = "|''wgt_typ'"  $Z2 = F$LOCATE(Z1,WGT_TYP_LST) $IF Z2 .EQS. WGT_TYP_LST_LEN $THEN , $SAY "Invalid widget type - Please re-enter" $WGT_TYP = ""  $ELSE $ $Z3 = F$EXTRACT(Z2+1,-1,WGT_TYP_LST)% $IF F$LOCATE(Z1,Z3) .NE. F$LENGTH(Z3)  $THEN . $SAY "Ambiguous widget type - Please re-enter" $WGT_TYP = ""  $ELSE  $WGT_TYP = F$ELEMENT(1,"|",Z3) $ENDIF $ENDIF $ENDIF. $IF WGT_TYP .NES. "" THEN GOTO GWT_GOT_WGT_TYP $ACCEPT WGT_TYP - 
  /CONVERT-;  /PROMPT="Widget type (''WGT_TYP_PMT') [''WGT_TYP_DEF']: "-   /TERMINATOR=SEL_TERM-  /UPPERCASE , $IF SEL_TERM .EQS. "CTRLZ" THEN GOTO GEN_EOF/ $IF WGT_TYP .EQS. "" THEN WGT_TYP = WGT_TYP_DEF  $GOTO GWT_GET_WGT_TYP  $GWT_GOT_WGT_TYP:  $RETURN  $SAV_VFY = 'F$VERIFY(0)'+ $!!	Copyright  1987 - 2006 Corpita Pty Ltd  $INTTOOLS LOG/MESSAGE NONEXE $EXIT 1 + 0*F$VERIFY(SAV_VFY)  $SAV_VFY = 'F$VERIFY(0)'+ $!!	Copyright  1987 - 2003 Corpita Pty Ltd  $INTTOOLS LOG/MESSAGE NONEXE $EXIT 1 + 0*F$VERIFY(SAV_VFY)  $SWRK_SUB_DISPLAY_MESSAGE_LINE: - $IF F$TYPE(RET_STS) .EQS. "" THEN RET_STS = 1 ) $IF "''dsp_tsk_flg'" THEN GOTO DML_REPORT % $IF MSG_LIN .NES. "" THEN SAY MSG_LIN  $GOTO DMW_EXIT $DML_REPORT:+ $IF F$EXTRACT(0,1,MSG_LIN) .EQS. "%" THEN - 9  MSG_LIN = F$EXTRACT(F$LOCATE(", ",MSG_LIN)+2,-1,MSG_LIN)  $Z1 = F$CVUI(0,8,MSG_LIN) < $IF Z1 .GE. 97 .AND. Z1 .LE. 122 THEN MSG_LIN[0,8] = Z1 - 323 $SAY ESC,"7",STSLIN,MSG_LIN,CSI,"K",CSI,"m",ESC,"8"  $GOTO DMW_EXIT$ $SWRK_SUB_DISPLAY_MESSAGE_LINE_WAIT:- $IF F$TYPE(RET_STS) .EQS. "" THEN RET_STS = 1 " $RET_STS = RET_STS .OR. %X10000000) $IF "''dsp_tsk_flg'" THEN GOTO DMW_REPORT % $IF MSG_LIN .NES. "" THEN SAY MSG_LIN  $GOTO DMW_EXIT $DMW_REPORT:+ $IF F$EXTRACT(0,1,MSG_LIN) .EQS. "%" THEN - 9  MSG_LIN = F$EXTRACT(F$LOCATE(", ",MSG_LIN)+2,-1,MSG_LIN) ' $IF MSG_LIN .EQS. "" THEN GOTO DMW_READ  $Z1 = F$CVUI(0,8,MSG_LIN) < $IF Z1 .GE. 97 .AND. Z1 .LE. 122 THEN MSG_LIN[0,8] = Z1 - 32 $MSG_LIN = MSG_LIN + " - "
 $DMW_READ:8 $MSG_LIN = STSLIN+MSG_LIN+"Press <Return> to continue"+-=  CSI+"m"+CSI+F$STRING(TMNL_HGT-2)+";"+F$STRING(TMNL_WDTH)+"H" ' $SAV_CONTROL = F$ENVIRONMENT("control")  $SET NOCONTROL=T $DMW_READ_LOOP:  $ACCEPT JUNK-   /CONVERT=LONG-   /DIAGNOSE- 	  /NOECHO-   /NOTRMECHO-  /PROMPT="''msg_lin'"-  /TERMINATOR=SEL_TERM 5 $IF SEL_TERM .EQS. "DIAGNOSE" THEN GOTO DMW_READ_LOOP K $IF F$LOCATE("T",SAV_CONTROL) .NE. F$LENGTH(SAV_CONTROL) THEN SET CONTROL=T 3 $IF SEL_TERM .EQS. "EXIT" THEN RET_STS = %X10000000 
 $DMW_EXIT: $MSG_LIN = ""  $RETURN  $SWRK_SUB_DISPLAY_MESSAGE_LOG: $GOSUB DML_FORMAT_MESSAGE  $SAY ""  $SAY F$FAO("!132**") $SAY MSG_TXT $SET RESTART_VALUE="''msg_txt'"  $RETURN $ $SWRK_SUB_DISPLAY_MESSAGE_LOG_LATER: $GOSUB DML_FORMAT_MESSAGE ' $WRTFIL "$ sav_vfy_lcl = 'f$verify(0)'"  $WRTFIL "$ say """""! $WRTFIL "$ say f$fao(""!132**"")"  $WRTFIL "$ say ""''msg_txt'""", $WRTFIL "$ set restart_value=""''msg_txt'"""& $WRTFIL "$ z1 = f$verify(sav_vfy_lcl)" $RETURN  $DML_FORMAT_MESSAGE: $MSG_TIM = F$TIME() . $MSG_TIM[32,16] = F$CVUI(32,16,MSG_TIM) + 8224; $IF F$EXTRACT(0,1,MSG_TIM) .EQS. " " THEN MSG_TIM[0,1] := 0  $IF "''dsc_ctx_ovr'" .NES. ""  $THEN . $IF F$EDIT(DSC_CTX_OVR,"trim") .NES. "" THEN -*  MSG_TXT = MSG_TXT + " for ''dsc_ctx_ovr'" $DSC_CTX_OVR = ""  $ELSE D $IF "''dsc_ctx'" .NES. "" THEN MSG_TXT = MSG_TXT + " for ''dsc_ctx'" $ENDIFS $IF "''cpnd_lcl'" .NES. "" THEN MSG_TXT = MSG_TXT + " on computer node ''cpnd_lcl'" X $MSG_TXT = MSG_TXT + " on " + F$EXTRACT(0,11,MSG_TIM) + " at " + F$EXTRACT(12,8,MSG_TIM) $RETURN  $SWRK_SUB_SET_TERMINAL_WIDTH: / $SET TERMINAL/PAGE='TMNL_HGT'/WIDTH='TMNL_WDTH'  $IF "''dsp_tsk_flg'" .NES. ""  $THEN ' $HORLIN = SO+F$FAO("!#*q",TMNL_WDTH)+SI ? $IF "''cpnd_lcl'" .EQS. "" THEN CPND_LCL = F$GETSYI("nodename") N $IF "''usr_nam'" .EQS. "" THEN USR_NAM = F$EDIT(F$GETJPI(0,"username"),"trim")L $HDG_LIN = F$EXTRACT(0,50,F$TRNLNM("swrk_site_heading","lnm_swrk_database"))! $HDG_LIN = F$EDIT(HDG_LIN,"trim") . $IF HDG_LIN .EQS. "" THEN HDG_LIN = "SysWorks" $HDG_LEN = F$LENGTH(HDG_LIN)' $Z1 = F$STRING(1+(TMNL_WDTH-HDG_LEN)/2)  $Z2 = F$STRING(TMNL_WDTH - 11) $Z3 = F$EXTRACT(0,11,F$TIME())$ $Z3[32,16] = F$CVUI(32,16,Z3) + 8224	 $TXT1 = - #  CSI+"1;2H"+CPND_LCL+"::"+USR_NAM+- #  CSI+";"+Z1+"H"+F$STRING(HDG_LIN)+-   CSI+";"+Z2+"H"+Z3 $ENDIF $RETURN  $SAV_VFY = 'F$VERIFY(0)'+ $!!	Copyright  1987 - 2006 Corpita Pty Ltd  $INTTOOLS LOG/MESSAGE NONEXE $EXIT 1 + 0*F$VERIFY(SAV_VFY)  $DETERMINE_SWDB_TYPE: S $IF F$TYPE(CLASS_'STRX_TYP'_STCD) .EQS. "" THEN GOSUB SWRK_SUB_GET_CLASS_PROPERTIES " $STTY_SIMC = CLASS_'STRX_TYP'_SIMCF $IF .NOT. ( STTY_SIMC .EQS. "" .OR. STTY_SIMC .EQS. "NETWORK" ) THEN -  STR_NODWN = "/nodownload" $SWDB_TYPE = "" 2 $IF SWDB_TYPE .EQS. "" THEN SWDB_TYPE := 'INF_FRC'2 $IF SWDB_TYPE .EQS. "" THEN SWDB_TYPE := 'STR_INF'/ $IF SWDB_TYPE .EQS. "" THEN SWDB_TYPE := SYSTEM # $IF SWDB_TYPE .EQS. "DIRECT" .OR. -   SWDB_TYPE .EQS. "LOCAL" .OR. -   SWDB_TYPE .EQS. "TEST" .OR. -  SWDB_TYPE .EQS. "WORK" THEN -  RETURN  $IF STTY_SIMC .EQS. "" .OR. - !  STTY_SIMC .EQS. "NETWORK" .OR. -    STTY_SIMC .EQS. "SYSTEM" THEN -  SWDB_TYPE := SYSTEM $RETURN  $SWADM_SUB_CHECK_STRUCTURE:  $SWRK_SUB_CHECK_STRUCTURE: $STR_EDIT = ""$ $STR_NOCOMPRESS = 'STR_NOCOMPRESS'+0  $STR_NOUPCASE = 'STR_NOUPCASE'+0? $IF .NOT. STR_NOCOMPRESS THEN STR_EDIT = STR_EDIT + ",compress" ; $IF .NOT. STR_NOUPCASE THEN STR_EDIT = STR_EDIT + ",upcase"  $STR_VAL = "''str_val'"  $STR_VAL_CHK = "" L $IF STR_VAL .NES. "" THEN STR_VAL_CHK = "/" + F$EDIT(STR_VAL,"upcase") + "/"$ $STR_VAL_LEN = F$LENGTH(STR_VAL_CHK) $GOSUB CHECK_STRUCTURE_1 $STR_ANYFIRST = 0  $STR_DISPLAY = 0 $STR_NEG = 0 $STR_INF = ""  $STR_NOCOMPRESS = 0  $STR_NOUPCASE = 0  $STR_VAL = ""  $RETURN  $CHECK_STRUCTURE_1:  $STR_ACT_LC = "check"  $STR_BYID = 0  $STR_COF = 1 $STR_EXI = FLG_EXI $STR_NOMSG = 0 $STR_STS_DCL := DCL  $STR_STS_PFX := /NOPREFIX  $GOTO CHECK_FIND_STRUCTURE $SWADM_SUB_FIND_STRUCTURE: $SWRK_SUB_FIND_STRUCTURE:  $RET_STS = 1 $STR_ACT_LC = "find" $STR_BYID = 1  $STR_COF = 0 $STR_EDIT = "" $STR_EXI = 1 $STR_NOMSG = 'FLG_NOMSG'+0 $STR_STS_DCL = ""  $STR_STS_PFX = ""  $STR_VAL = "''str_val'"  $STR_VAL_CHK = "" L $IF STR_VAL .NES. "" THEN STR_VAL_CHK = "/" + F$EDIT(STR_VAL,"upcase") + "/"$ $STR_VAL_LEN = F$LENGTH(STR_VAL_CHK) $FLG_NOMSG = 0 $GOSUB CHECK_FIND_STRUCTURE  $STR_ALT = ""  $STR_DISPLAY = 0 $STR_NEG = 0 $STR_VAL = ""  $RETURN  $CHECK_FIND_STRUCTURE:B $IF .NOT. 'OBJT_FILE_SETUP'+0 THEN GOSUB SWRK_SUB_SETUP_SWDATABASE $STR_ALT := 'STR_ALT' J $STR_MAN = F$TRNLNM("swrk_computer_node_level","lnm_swrk_database") .GE. -=  F$TRNLNM("swrk_stty_upnl_''strx_typ'","lnm_swrk_database")+0  $STR_NODWN = "/download"0 $IF 'FLG_NODWN'+0 THEN STR_NODWN = "/nodownload"* $IF STR_MAN THEN STR_NODWN = "/nodownload" $STR_ACT := 'STR_ACT' U $IF STR_ACT .EQS. "DELETE" .OR. STR_ACT .EQS. "REMOVE" THEN STR_NODWN = "/nodownload"  $SEL_CODE := 'SEL_CODE'  $IF SEL_CODE .EQS. "DELETE" -   .OR. SEL_CODE .EQS. "REMOVE" - $  .OR. SEL_CODE .EQS. "RENAME" THEN -  STR_NODWN = "/nodownload" $STR_ACT := 'STR_ACT' U $IF STR_ACT .EQS. "DELETE" .OR. STR_ACT .EQS. "REMOVE" THEN STR_NODWN = "/nodownload"  $FLG_NODWN = 0 $GOSUB DETERMINE_SWDB_TYPE( $STR_ARG := 'STRX_TYP'_DSC,'STR_TYP'_COD  $CPND_LCL = F$GETSYI("nodename")E $CPND_MST = F$TRNLNM("swrk_master_computer_node","lnm_swrk_database")  $IF .NOT. STR_MAN THEN -O  STR_MAN = ( F$GETSYI("cluster_member",CPND_MST) .OR. CPND_MST .EQS. CPND_LCL )  $STR_NEG = 'STR_NEG'+0 $FLG_NEG = 'FLG_NEG'+0" $IF .NOT. STR_NEG THEN FLG_NEG = 0" $IF .NOT. FLG_LST THEN FLG_NEG = 0 $'STR_TYP'_NUM = 0 $'STR_TYP'_NUM_NEW = 0 $'STR_TYP'_NUM_OLD = 0( $IF .NOT. FLG_LST THEN GOTO CFSTR_SINGLE $STR_IDX = 0 $STR_LST = ""  $'STRX_TYP'_ID_LST = ""  $'STRX_TYP'_NAM_LST = "" $CFSTR_LOOP:5 $'STR_TYP'_COD = F$ELEMENT(STR_IDX,",",'STR_TYP'_LST)  $STR_IDX = STR_IDX + 16 $'STR_TYP'_COD = F$EDIT('STR_TYP'_COD,"trim"+STR_EDIT)/ $IF 'STR_TYP'_COD .EQS. "" THEN GOTO CFSTR_LOOP 4 $IF 'STR_TYP'_COD .EQS. "," THEN GOTO CFSTR_LOOP_END $CFSTR_SINGLE: $TRY_IDX = 0 $CFSTR_TRY:  $'STR_TYP'_NEW = 0Q $IF STR_BYID THEN IF F$EXTRACT(0,1,'STR_TYP'_COD) .EQS. "#" THEN GOTO CFSTR_BY_ID  $CFSTR_BY_COD: $STR_PFX_TXT = "" ' $IF .NOT. FLG_NEG THEN GOTO CFSTR_NONEG  $STR_PFX_SIZ = 0? $IF F$EXTRACT(0,1,'STR_TYP'_COD) .EQS. "+" THEN STR_PFX_SIZ = 1 ? $IF F$EXTRACT(0,1,'STR_TYP'_COD) .EQS. "-" THEN STR_PFX_SIZ = 1 @ $IF F$EXTRACT(0,2,'STR_TYP'_COD) .EQS. "NO" THEN STR_PFX_SIZ = 2, $IF STR_PFX_SIZ .EQ. 0 THEN GOTO CFSTR_NONEG5 $STR_PFX_TXT = F$EXTRACT(0,STR_PFX_SIZ,'STR_TYP'_COD) 8 $'STR_TYP'_COD = F$EXTRACT(STR_PFX_SIZ,-1,'STR_TYP'_COD) $CFSTR_NONEG:  $IF STR_PAR .EQS. "" $THEN  $STR_KEY = 'STR_TYP'_COD $ELSE ( $STR_KEY = STR_PAR + "_" + 'STR_TYP'_COD $ENDIF $INT_ABBREV = ""6 $IF STR_EXI .EQ. 0 THEN INT_ABBREV := /ABBREVIATION=NOF $INTTOOLS FIND OBJECT/CLASS='STRX_TYP'/NOLOG/STATUS=LCL_STS'INT_QAL' --  &STR_KEY/NOPROPERTIES'STR_NODWM''INT_ABBREV' : $IF LCL_STS .EQ. SWRK__OBJNOTEXI THEN GOTO CFSTR_OBJNOTEXI8 $IF LCL_STS .EQ. SWRK__OBJAMBIG THEN GOTO CFSTR_OBJAMBIG $GOTO CFSTR_NOTAMB $CFSTR_OBJAMBIG: $STR_STS_COD := OBJAMBIG $GOTO CFSTR_NEXT $CFSTR_ALT: * $IF STR_ALT .EQS. "" THEN GOTO CFSTR_NOALT $GOSUB 'STR_ALT'+ $IF .NOT. RET_STS THEN GOTO CFSTR_OBJNOTEXI  $GOTO CFSTR_NOTAMB $CFSTR_NOALT: 8 $INTTOOLS LOG/MESSAGE/STATUS NOALTPRC STR_ACT_LC,STR_TYP $RETURN  $CFSTR_NOTAMB:] $'STR_TYP'_COD = F$EDIT(F$EXTRACT(SWDB_OBJT_NAM_POS,SWDB_OBJT_NAM_SIZ,'STRX_TYP'_REC),"trim")  $IF STR_VAL_LEN .NE. 0 THEN - G  IF F$LOCATE("/"+'STR_TYP'_COD+"/",STR_VAL_CHK) .EQ. STR_VAL_LEN THEN -   GOTO CFSTR_OBJNOTAVL Y $IF STR_PAR .NES. "" THEN 'STR_TYP'_COD = F$EXTRACT(F$LENGTH(STR_PAR)+1,-1,'STR_TYP'_COD)  $IF STR_EXI .EQ. 0 $THEN  $STR_STS_COD := OBJALREXI  $ELSE  $STR_STS_COD = ""  $ENDIF* $'STR_TYP'_NUM_OLD = 'STR_TYP'_NUM_OLD + 1 $GOTO CFSTR_NEXT $CFSTR_OBJNOTAVL:  $STR_STS_COD := OBJNOTAVL  $GOTO CFSTR_NEXT $CFSTR_OBJNOTEXI:  $IF STR_EXI .EQ. 1 $THEN  $STR_STS_COD := OBJNOTEXI  $ELSE  $STR_STS_COD = ""  $ENDIF $'STR_TYP'_NEW = 1* $'STR_TYP'_NUM_NEW = 'STR_TYP'_NUM_NEW + 1 $GOTO CFSTR_NEXT $CFSTR_BY_ID: . $'STRX_TYP'_ID = F$EXTRACT(1,-1,'STR_TYP'_COD) $STRX_ID = 'STRX_TYP'_ID= $STR_KEY = F$FAO("#!#XL",SWDB_OBJT_KEY_0_ID_SIZ,%X0'STRX_ID') F $INTTOOLS FIND OBJECT/CLASS='STRX_TYP'/NOLOG/STATUS=LCL_STS'INT_QAL' -!  &STR_KEY/NOPROPERTIES'STR_NODWN' > $IF LCL_STS .EQ. SWRK__OBJIDNOTCLS THEN GOTO CFSTR_OBJIDNOTCLS> $IF LCL_STS .EQ. SWRK__OBJIDNOTEXI THEN GOTO CFSTR_OBJIDNOTEXI $STR_STS_COD = ""  $GOTO CFSTR_NEXT $CFSTR_OBJIDNOTCLS:  $LCL_TYP = "unknown"( $STR_ARG := %X'STRX_ID',LCL_TYP,STRX_TYP $STR_STS_COD := OBJIDNOTCLS  $GOTO CFSTR_NEXT $CFSTR_OBJIDNOTEXI:  $STR_ARG := %X'STRX_ID'  $STR_STS_COD := OBJIDNOTEXI  $GOTO CFSTR_NEXT $CFSTR_NEXT: $IF STR_STS_COD .EQS. "" $THEN " $'STR_TYP'_NUM = 'STR_TYP'_NUM + 1 $IF 'STR_TYP'_NEW  $THEN  $'STRX_TYP'_ID = ""  $'STRX_TYP'_NAM = "" $ELSE L $'STRX_TYP'_ID = F$EXTRACT(SWDB_OBJT_ID_POS,SWDB_OBJT_ID_SIZ,'STRX_TYP'_REC) $'STRX_TYP'_NAM = - V  F$EDIT(F$EXTRACT(SWDB_OBJT_NAM_POS,SWDB_OBJT_NAM_SIZ,'STRX_TYP'_REC),"compress,trim") $ENDIF $ELSE B $IF F$EXTRACT(0,5,STR_STS_COD) .EQS. "OBJID" THEN STR_STS_DCL = "" $IF .NOT. STR_NOMSG THEN -G  INTTOOLS LOG/MESSAGE'STR_STS_PFX' 'STR_STS_COD''STR_STS_DCL' 'STR_ARG'  $RET_STS = SWRK__'STR_STS_COD' $ENDIF( $IF .NOT. FLG_LST THEN GOTO CFSTR_FINISH- $IF STR_STS_COD .NES. "" THEN GOTO CFSTR_LOOP 6 $STR_LST = STR_LST + ",''str_pfx_txt'" + 'STR_TYP'_COD< $'STRX_TYP'_ID_LST = 'STRX_TYP'_ID_LST + "," + 'STRX_TYP'_ID? $'STRX_TYP'_NAM_LST = 'STRX_TYP'_NAM_LST + "," + 'STRX_TYP'_NAM  $GOTO CFSTR_LOOP $CFSTR_LOOP_END:8 $IF STR_COF THEN 'STR_TYP'_LST = F$EXTRACT(1,-1,STR_LST)6 $'STRX_TYP'_ID_LST = F$EXTRACT(1,-1,'STRX_TYP'_ID_LST)8 $'STRX_TYP'_NAM_LST = F$EXTRACT(1,-1,'STRX_TYP'_NAM_LST) $CFSTR_FINISH:? $IF .NOT. RET_STS THEN IF STR_COF THEN 'STR_TYP'_'STR_SFX' = ""  $RETURN  $SWRK_SUB_CVT_DISPLAY_TO_CODE: $STR_COD = 'STR_TYP'_'STR_SFX'+ $DSNM_TXT = F$EDIT(STR_COD,"compress,trim")  $DEF_DSNM = DSNM_TXT# $STR_COD = F$EDIT(STR_COD,"upcase")   $STR_COD_LEN = F$LENGTH(STR_COD) $STR_COD_IDX = -1 
 $CDC_LOOP: $STR_COD_IDX = STR_COD_IDX + 17 $IF STR_COD_IDX .EQ. STR_COD_LEN THEN GOTO CDC_LOOP_END r $IF F$LOCATE(F$EXTRACT(STR_COD_IDX,1,STR_COD),"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-_") .NE. 38 THEN GOTO CDC_LOOP $STR_COD['STR_COD_IDX',1] := _ $GOTO CDC_LOOP $CDC_LOOP_END: $'STR_TYP'_'STR_SFX' = STR_COD $RETURN  $SWRK_SUB_GET_DESCRIPTION: $DEF_DSC = "''def_dsc'"  $DEF_PMT = "" 3 $IF DEF_DSC .NES. "" THEN DEF_PMT = " [''def_dsc']"  $RUN SWRK_SFT_DIR:SWRK_GET_ARG $IF .NOT. RET_STS THEN RETURN & $GEN_DSC = F$EDIT(ARG,"compress,trim") $GDSC_GET_DSC:, $IF GEN_DSC .EQS. "\" THEN GOTO GDSC_DEF_DSC+ $IF GEN_DSC .NES. "" THEN GOTO GDSC_GOT_DSC  $ACCEPT GEN_DSC - 
  /CONVERT-#  /PROMPT="Description''def_pmt': "-   /TERMINATOR=SEL_TERM , $IF SEL_TERM .EQS. "CTRLZ" THEN GOTO GEN_EOF* $GEN_DSC = F$EDIT(GEN_DSC,"compress,trim") $GDSC_DEF_DSC:, $IF GEN_DSC .EQS. "\" THEN GEN_DSC = DEF_DSC+ $IF GEN_DSC .EQS. "" THEN GEN_DSC = DEF_DSC  $GDSC_GOT_DSC: $DEF_DSC = ""  $RETURN  $SWADM_SUB_GET_STRUCTURE:  $SWRK_SUB_GET_STRUCTURE: $RET_STS = 1 $DEF_STR = ""  $FLG_NOCHK = 'FLG_NOCHK'+0 $FLG_NONE = 'FLG_NONE'+0 $IF FLG_RQD  $THEN ? $IF F$TYPE(DEF_'STR_TYP') .NES. "" THEN DEF_STR = DEF_'STR_TYP'  $IF DEF_STR .EQS. "" $THEN  $IF FLG_LST  $THEN G $IF F$TYPE(PRV_LST_'STR_TYP') .NES. "" THEN DEF_STR = PRV_LST_'STR_TYP'  $ELSE ? $IF F$TYPE(PRV_'STR_TYP') .NES. "" THEN DEF_STR = PRV_'STR_TYP'  $ENDIF $ENDIF) $IF DEF_STR .EQS. "" .AND. FLG_EXI .EQ. 1  $THEN 1 $IF F$TYPE(CLASS_'STRX_TYP'_STCD) .EQS. "" THEN - $  GOSUB SWRK_SUB_GET_CLASS_PROPERTIES! $STCD_COD = CLASS_'STRX_TYP'_STCD C $DEF_STR = F$TRNLNM("swrk_default_''stcd_cod'","lnm_swrk_database")  $ENDIF $ENDIF $DEF_PMT = "" 3 $IF DEF_STR .NES. "" THEN DEF_PMT = " [''def_str']"  $STR_VAL = "''str_val'"  $STR_VAL_CHK = "" L $IF STR_VAL .NES. "" THEN STR_VAL_CHK = "/" + F$EDIT(STR_VAL,"upcase") + "/"$ $STR_VAL_LEN = F$LENGTH(STR_VAL_CHK) $STR_VAL_PMT = "" 7 $IF STR_VAL .NES. "" THEN STR_VAL_PMT = " (''str_val')" 	 $ARG = "" ; $IF .NOT. "''flg_noarg'" THEN RUN SWRK_SFT_DIR:SWRK_GET_ARG  $STR_DISPLAY = 'STR_DISPLAY'+0 $STR_NEG = 'STR_NEG'+0$ $STR_NOCOMPRESS = 'STR_NOCOMPRESS'+0  $STR_NOUPCASE = 'STR_NOUPCASE'+0 $FLG_NOARG = ""  $IF .NOT. RET_STS THEN RETURN  $IF FLG_LST  $THEN & $IF STR_NEG THEN FLG_NEG = 'FLG_NEG'+0 $STR_PMT_SFX = "s"P $IF F$EDIT(F$EXTRACT(F$LENGTH(STR_DESC)-1,1,STR_DESC),"upcase") .EQS. "S" THEN -  STR_PMT_SFX = "es"  $ELSE  $IF STR_NEG THEN FLG_NEG = 0 $STR_PMT_SFX = ""  $END                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          OG ~      
SWEXA035.E                      Z [SWEXA.KIT.2269B9B1]MENU.COM;1                                                                                                 r     p                         - |     &       IF $STR_PMT = "" ? $IF F$TYPE('STR_TYP'_PMT) .NES. "" THEN STR_PMT = 'STR_TYP'_PMT  $IF STR_PMT .EQS. "" $THEN  $IF FLG_LST  $THEN  $STR_PMT = "''str_desc_lst'": $IF STR_PMT .EQS. "" THEN STR_PMT = STR_DESC + STR_PMT_SFX $ELSE  $STR_PMT = STR_DESC  $ENDIF $ENDIF $STR_DESC_LST = "" $STR_SFX := COD  $IF FLG_LST THEN STR_SFX := LST  $STR_EDIT = ""? $IF .NOT. STR_NOCOMPRESS THEN STR_EDIT = STR_EDIT + ",compress" P $IF .NOT. ( STR_DISPLAY .OR. STR_NOUPCASE ) THEN STR_EDIT = STR_EDIT + ",upcase"2 $'STR_TYP'_'STR_SFX' = F$EDIT(ARG,"trim"+STR_EDIT) $'STR_TYP'_NEW = 0 $'STR_TYP'_NUM = 0 $GSTR_VAL_STR:8 $IF 'STR_TYP'_'STR_SFX' .EQS. "\" THEN GOTO GSTR_DEF_STR  $IF 'STR_TYP'_'STR_SFX' .NES. "" $THEN 7 $IF STR_DISPLAY THEN GOSUB SWRK_SUB_CVT_DISPLAY_TO_CODE Y $IF "''str_spc_validate'" .EQS. "" THEN STR_SPC_VALIDATE := SWRK_SUB_VALIDATE_STRUCTURE_1 ( $SAV_STR_SPC_VALIDATE = STR_SPC_VALIDATE $GOSUB 'STR_SPC_VALIDATE' ( $STR_SPC_VALIDATE = SAV_STR_SPC_VALIDATE $IF .NOT. RET_STS  $THEN  $Z1 = ""' $IF F$LOCATE(",",'STR_TYP'_'STR_SFX') - 9  .LT. F$LENGTH('STR_TYP'_'STR_SFX') THEN Z1 = STR_PMT_SFX  $'STR_TYP'_'STR_SFX' = "" @ $SAY F$FAO("Invalid !AS!AS specified - enter a valid response",-  'STRX_TYP'_DSC,Z1)  $RET_STS = 1 $ENDIF $ENDIFL $IF FLG_NONE THEN IF 'STR_TYP'_'STR_SFX' .EQS. "NONE" THEN GOTO GSTR_GOT_STR7 $IF 'STR_TYP'_'STR_SFX' .EQS. "" THEN GOTO GSTR_GET_STR $ $IF FLG_NOCHK THEN GOTO GSTR_GOT_STRG $IF "''str_spc_check'" .EQS. "" THEN STR_SPC_CHECK := CHECK_STRUCTURE_1  $GOSUB 'STR_SPC_CHECK'7 $IF 'STR_TYP'_'STR_SFX' .NES. "" THEN GOTO GSTR_GOT_STR  $GSTR_GET_STR: $RET_STS = 1 $STR_UPCQAL := /UPPERCASE 6 $IF STR_NOUPCASE .OR. STR_DISPLAY THEN STR_UPCQAL = "" $ACCEPT 'STR_TYP'_'STR_SFX' -   /CONVERT=LONG- =  /PROMPT="''str_pmt'''str_desc_2'''str_val_pmt'''def_pmt': "- !  /TERMINATOR=SEL_TERM'STR_UPCQAL' , $IF SEL_TERM .EQS. "EXIT" THEN GOTO GSTR_EOF- $IF SEL_TERM .EQS. "FIND" THEN GOTO GSTR_LIST B $'STR_TYP'_'STR_SFX' = F$EDIT('STR_TYP'_'STR_SFX',"trim"+STR_EDIT) $GSTR_DEF_STR:? $IF 'STR_TYP'_'STR_SFX' .EQS. "\" THEN 'STR_TYP'_'STR_SFX' = "" K $IF 'STR_TYP'_'STR_SFX' .EQS. "" .AND. .NOT. FLG_RQD THEN GOTO GSTR_GOT_STR C $IF 'STR_TYP'_'STR_SFX' .EQS. "" THEN 'STR_TYP'_'STR_SFX' = DEF_STR L $IF FLG_NONE THEN IF 'STR_TYP'_'STR_SFX' .EQS. "NONE" THEN GOTO GSTR_GOT_STR $GOTO GSTR_VAL_STR $GSTR_GOT_STR: $DEF_'STR_TYP' = "" : $IF .NOT. FLG_LST THEN PRV_'STR_TYP' = 'STR_TYP'_'STR_SFX'8 $IF FLG_LST THEN PRV_LST_'STR_TYP' = 'STR_TYP'_'STR_SFX' $GSTR_EXIT:  $FLG_NONE = 0  $FLG_NOCHK = 0 $STR_ANYFIRST = 0  $STR_DESC_2 = "" $STR_DISPLAY = 0 $STR_INF = ""  $STR_NEG = 0 $STR_NOCOMPRESS = 0  $STR_NOUPCASE = 0  $STR_SPC_CHECK = ""  $STR_SPC_LIST_QAL = "" $STR_SPC_VALIDATE = "" $STR_VAL = ""  $'STR_TYP'_PMT = ""  $RETURN 
 $GSTR_EOF:( $RET_STS = RMS$_EOF .OR. STS$M_INHIB_MSG $GOTO GSTR_EXIT  $SWADM_SUB_LIST_STRUCTURE: $SWRK_SUB_LIST_STRUCTURE:  $GOSUB LSTR_COMMON $STR_DESC_2 = "" $STR_SPC_LIST_QAL = "" $RETURN  $GSTR_LIST:  $GOSUB LSTR_COMMON% $IF .NOT. RET_STS THEN GOTO GSTR_EXIT  $GOTO GSTR_VAL_STR $LSTR_COMMON:  $STR_ALT := 'STR_ALT'  $GOSUB DETERMINE_SWDB_TYPE $IF STR_PAR .EQS. "" $THEN  $STR_KEY = 'STR_TYP'_'STR_SFX' $ELSE . $STR_KEY = STR_PAR + "_" + 'STR_TYP'_'STR_SFX' $ENDIF/ $INTTOOLS LIST OBJECT/CLASS='STRX_TYP'/HEADING- E  /DESCRIPTION="''str_desc'''str_desc_2'"'STR_SPC_LIST_QAL''INT_QAL' - 	  &STR_KEY  $'STR_TYP'_'STR_SFX' = ""  $RETURN  $SWRK_SUB_GET_CLASS_PROPERTIES:  $RET_STS = 1  $INTTOOLS FIND CLASS 'STRX_TYP'-  /DESCRIPTION="meta class"- /  /EXTRACT=(INHERITS_TO,PROPERTIES,SUBCLASS_OF)-   /STRIP  $RET_STS = $STATUS $IF .NOT. RET_STS THEN RETURN Y $IF F$TYPE('STRX_TYP'_FLD) .EQS. "" THEN 'STRX_TYP'_FLD = CLASS_'STRX_TYP'_LST_PROPERTIES , $IF .NOT. ( CLASS_'STRX_TYP'_SIMC .EQS. "" -4  .OR. CLASS_'STRX_TYP'_SIMC .EQS. "NETWORK" ) THEN -  STR_NODWN = "/nodownload"E $IF CLASS_'STRX_TYP'_STIM .EQS. "" THEN CLASS_'STRX_TYP'_STIM := SWRK  $RETURN  $SWRK_SUB_CLOSE_SWDATABASE: P $IF F$TRNLNM("cntr_file_''cntr_type'") .NES. "" THEN CLOSE CNTR_FILE_'CNTR_TYPE'P $IF F$TRNLNM("objt_file_''objt_type'") .NES. "" THEN CLOSE OBJT_FILE_'OBJT_TYPE'P $IF F$TRNLNM("ascn_file_''ascn_type'") .NES. "" THEN CLOSE ASCN_FILE_'ASCN_TYPE' $RETURN  $SWRK_SUB_SETUP_SWDATABASE: G $IF F$TYPE(SWRK$_FACILITY) .EQS. "" THEN GOSUB SWRK_SUB_DEFINE_MESSAGES  $CTR_NAM_POS = 0 $CTR_NAM_SIZ = 4 $CTR_PROP_POS = 4  $CTR_KEY_POS = 0 $CTR_KEY_SIZ = 4 $SWDB_OBJT_ID_POS = 0  $SWDB_OBJT_ID_SIZ = 8 9 $SWDB_OBJT_STTY_POS = SWDB_OBJT_ID_POS + SWDB_OBJT_ID_SIZ  $SWDB_OBJT_STTY_SIZ = 4 < $SWDB_OBJT_NAM_POS = SWDB_OBJT_STTY_POS + SWDB_OBJT_STTY_SIZ $SWDB_OBJT_NAM_SIZ = 64 = $SWDB_OBJT_NAM_QAL_SIZ = SWDB_OBJT_NAM_SIZ - SWDB_OBJT_ID_SIZ Q $SWDB_OBJT_NAM_QAL_POS = SWDB_OBJT_NAM_POS + SWDB_OBJT_NAM_SIZ - SWDB_OBJT_ID_SIZ : $SWDB_OBJT_XRST_POS = SWDB_OBJT_NAM_POS + SWDB_OBJT_ID_SIZ: $SWDB_OBJT_XRST_SIZ = SWDB_OBJT_NAM_SIZ - SWDB_OBJT_ID_SIZ5 $INF_PROP_POS = SWDB_OBJT_NAM_POS + SWDB_OBJT_NAM_SIZ  $SWDB_OBJT_KEY_0_ID_POS = 0 * $SWDB_OBJT_KEY_0_ID_SIZ = SWDB_OBJT_ID_SIZ- $SWDB_OBJT_KEY_0_SIZ = SWDB_OBJT_KEY_0_ID_SIZ  $SWDB_OBJT_KEY_1_STTY_POS = 0 . $SWDB_OBJT_KEY_1_STTY_SIZ = SWDB_OBJT_STTY_SIZN $SWDB_OBJT_KEY_1_NAM_POS = SWDB_OBJT_KEY_1_STTY_POS + SWDB_OBJT_KEY_1_STTY_SIZ, $SWDB_OBJT_KEY_1_NAM_SIZ = SWDB_OBJT_NAM_SIZ4 $SWDB_OBJT_KEY_1_QAL_NAM_SIZ = SWDB_OBJT_NAM_QAL_SIZH $SWDB_OBJT_KEY_1_SIZ = SWDB_OBJT_KEY_1_NAM_POS + SWDB_OBJT_KEY_1_NAM_SIZ $RLN_A_INF_POS = 0 $RLN_A_CLS_POS = 4 $RLN_A_ID_POS = 8  $RLN_A_LVL_POS = 16  $RLN_A_POS = 0 $RLN_B_INF_POS = 20  $RLN_B_CLS_POS = 24  $RLN_B_ID_POS = 28 $RLN_B_LVL_POS = 36  $RLN_B_POS = 20  $RLN_INF_SIZ = 4 $RLN_CLS_SIZ = 4 $RLN_ID_SIZ = 8  $RLN_LVL_SIZ = 4 $RLN_KEY_POS = 0 $RLN_KEY_SIZ = 40  $RLN_SEG_SIZ = 20  $RLN_CHK_SIZ = 28  $RLN_PROP_POS = 40 $OBJT_FILE_SETUP = 1 $RETURN  $SWRK_SUB_VALIDATE_SWDATABASE: $RET_STS = 1B $IF .NOT. 'OBJT_FILE_SETUP'+0 THEN GOSUB SWRK_SUB_SETUP_SWDATABASE $IF SWDB_TYPE .EQS. "CONTEXT"  $THEN @ $IF "''cur_typ'" .EQS. "APPLICATION" THEN SWDB_TYPE := APPL_ENVR6 $IF "''cur_typ'" .EQS. "GROUP" THEN SWDB_TYPE := GROUP4 $IF "''cur_typ'" .EQS. "USER" THEN SWDB_TYPE := USER $ENDIF $INF_CMD = "" 5 $IF "''inf_frc'" .NES. "" THEN SWDB_TYPE := 'INF_FRC'  $INF_LCL = 'INF_LCL'+0 $SWDB_DESC = "System"  $SWDB_DESC_LC = "system"# $IF SWDB_TYPE .EQS. "DIRECT" .OR. -   SWDB_TYPE .EQS. "LOCAL" .OR. -   SWDB_TYPE .EQS. "TEST" .OR. -  SWDB_TYPE .EQS. "WORK" THEN -  RETURN  $INT_QAL = "" U $SWDB_DESC = F$EXTRACT(0,1,SWDB_TYPE) + F$EDIT(F$EXTRACT(1,-1,SWDB_TYPE),"lowercase") - $SWDB_DESC_LC = F$EDIT(SWDB_DESC,"lowercase")  $SWDB_NAME = "" ! $IF SWDB_TYPE .EQS. "APPLICATION"  $THEN  $APPL_COD := 'APPL_COD' 0 $IF APPL_COD .EQS. "" THEN APPL_COD := 'CUR_APP' $IF APPL_COD .EQS. ""  $THEN 4 $INTTOOLS LOG/MESSAGE/STATUS CNTDETINF "application" $ELSE $ $SWDB_NAME := APPLICATION_'APPL_COD'> $INT_QAL := /SCOPE=SWDATABASE/SWDATABASE=SWRK_'SWDB_NAME'_OBJT $ENDIF $ENDIFE $IF SWDB_TYPE .EQS. "APPL_ENVR" .OR. SWDB_TYPE .EQS. "APPL_ENVR_USER"  $THEN  $APPL_COD := 'APPL_COD'  $ENVR_COD := 'ENVR_COD' 0 $IF APPL_COD .EQS. "" THEN APPL_COD := 'CUR_APP'0 $IF ENVR_COD .EQS. "" THEN ENVR_COD := 'CUR_ENV', $IF APPL_COD .EQS. "" .OR. ENVR_COD .EQS. "" $THEN @ $INTTOOLS LOG/MESSAGE/STATUS CNTDETINF "application environment" $ELSE & $SWDB_DESC = "Application Environment"- $SWDB_NAME := APPL_ENVR_'APPL_COD'_'ENVR_COD' R $INT_QAL := /SCOPE=CONTEXT/CONTEXT=(APPLICATION='APPL_COD',ENVIRONMENT='ENVR_COD') $ENDIF $ENDIF $IF SWDB_TYPE .EQS. "CLUSTER"  $THEN  $SWDB_NAME := CLUSTER  	    int_qal := /scope=cluster $ENDIF# $IF SWDB_TYPE .EQS. "COMPUTER_NODE"  $THEN  $SWDB_NAME := COMPUTER_NODE $ 	    int_qal := /scope=computer_node $ENDIF! $IF SWDB_TYPE .EQS. "ENVIRONMENT"  $THEN  $ENVR_COD := 'ENVR_COD' 0 $IF ENVR_COD .EQS. "" THEN ENVR_COD := 'CUR_ENV' $IF ENVR_COD .EQS. ""  $THEN 4 $INTTOOLS LOG/MESSAGE/STATUS CNTDETINF "environment" $ELSE $ $SWDB_NAME := ENVIRONMENT_'ENVR_COD'> $INT_QAL := /SCOPE=SWDATABASE/SWDATABASE=SWRK_'SWDB_NAME'_OBJT $ENDIF $ENDIF= $IF SWDB_TYPE .EQS. "GROUP" .OR. SWDB_TYPE .EQS. "GROUP_USER"  $THEN  $GROP_COD := 'GROP_COD' 0 $IF GROP_COD .EQS. "" THEN GROP_COD := 'CUR_GRP' $IF GROP_COD .EQS. ""  $THEN . $INTTOOLS LOG/MESSAGE/STATUS CNTDETINF "group" $ELSE  $SWDB_NAME := GROUP_'GROP_COD' $SWDB_DESC = "Group"5 $INT_QAL := /SCOPE=CONTEXT/CONTEXT=(GROUP='GROP_COD')  $ENDIF $ENDIF& $IF SWDB_TYPE .EQS. "APPL_ENVR_USER" -$  .OR. SWDB_TYPE .EQS. "GROUP_USER" -  .OR. SWDB_TYPE .EQS. "USER" $THEN  $USR_NAM := 'USR_NAM' 2 $IF USR_NAM .EQS. "" THEN USR_NAM := 'NET_USR_NAM' $IF USR_NAM .EQS. "" $THEN - $INTTOOLS LOG/MESSAGE/STATUS CNTDETINF "user"  $ELSE $ $IF SWDB_TYPE .EQS. "APPL_ENVR_USER" $THEN + $SWDB_DESC = "Application Environment User" < $SWDB_NAME := APPL_ENVR_USER_'APPL_COD'_'ENVR_COD'_'USR_NAM' $ELSE   $IF SWDB_TYPE .EQS. "GROUP_USER" $THEN  $SWDB_DESC = "Group User" - $SWDB_NAME := GROUP_USER_'GROP_COD'_'USR_NAM'  $ELSE  $SWDB_DESC = "User"  $SWDB_NAME := USER_'USR_NAM' $ENDIF $ENDIF> $INT_QAL := /SCOPE=SWDATABASE/SWDATABASE=SWRK_'SWDB_NAME'_OBJT $ENDIF $ENDIF $IF SWDB_TYPE .EQS. "MENU" $THEN  $SWDB_NAME := MENU $ENDIF $IF SWDB_TYPE .EQS. "NETWORK"  $THEN  $SWDB_NAME := NETWORK  $INT_QAL := /SCOPE=NETWORK $ENDIF% $IF SWDB_TYPE .EQS. "SECURITY_DOMAIN"  $THEN  $SWDB_NAME := SECURITY_DOMAIN  $INF_CMD := SEC_DOM " $INT_QAL := /SCOPE=SECURITY_DOMAIN $ENDIF $IF SWDB_TYPE .EQS. "SITE" $THEN  $SWDB_NAME := SITE $INT_QAL := /SCOPE=SITE  $ENDIF $IF SWDB_TYPE .EQS. "SYSTEM" $THEN  $SWDB_NAME := SYSTEM $ENDIF# $IF SWDB_TYPE .EQS. "TUNING_DOMAIN"  $THEN  $SWDB_DESC = "Tuning Domain" $SWDB_NAME := TUNING_DOMAIN  $INF_CMD := TUN_DOM   $INT_QAL := /SCOPE=TUNING_DOMAIN $ENDIF $IF SWDB_TYPE .EQS. "VOLUME" $THEN  $DKVL_COD := 'DKVL_COD'  $IF DKVL_COD .EQS. ""  $THEN 4 $INTTOOLS LOG/MESSAGE/STATUS CNTDETINF "disk volume" $ELSE  $SWDB_DESC = "Disk volume" $SWDB_NAME := VOLUME_'DKVL_COD'  $ENDIF $ENDIF $CNTR_TYPE = SWDB_TYPE- $CNTR_FILE_NAME := SWRK_'SWDB_NAME'_CNTR_FILE , $IF F$TRNLNM(CNTR_FILE_NAME) .EQS. "" THEN -9  CNTR_FILE_NAME := SWRK_DAT_DIR:SWRK_'SWDB_NAME'_CNTR.DAT ' $CNTR_FILE_'CNTR_TYPE' = CNTR_FILE_NAME  $OBJT_TYPE = SWDB_TYPE- $OBJT_FILE_NAME := SWRK_'SWDB_NAME'_OBJT_FILE , $IF F$TRNLNM(OBJT_FILE_NAME) .EQS. "" THEN -9  OBJT_FILE_NAME := SWRK_DAT_DIR:SWRK_'SWDB_NAME'_OBJT.DAT ' $OBJT_FILE_'OBJT_TYPE' = OBJT_FILE_NAME  $ASCN_TYPE = SWDB_TYPE- $ASCN_FILE_NAME := SWRK_'SWDB_NAME'_ASCN_FILE , $IF F$TRNLNM(ASCN_FILE_NAME) .EQS. "" THEN -9  ASCN_FILE_NAME := SWRK_DAT_DIR:SWRK_'SWDB_NAME'_ASCN.DAT ' $ASCN_FILE_'ASCN_TYPE' = ASCN_FILE_NAME  $IF .NOT. RET_STS THEN RETURN 0 $IF SWDB_NAME .EQS. "" THEN GOTO VSWDB_INVINFTYP0 $IF SWDB_TYPE .EQS. "" THEN GOTO VSWDB_INVINFTYP- $IF INF_CMD .EQS. "" THEN INF_CMD = SWDB_TYPE - $SWDB_DESC_LC = F$EDIT(SWDB_DESC,"lowercase")  $RETURN  $VSWDB_INVINFTYP: & $INTTOOLS LOG/MESSAGE/STATUS INVINFTYP $RETURN ( $SWRK_SUB_SEND_COMMAND_TO_COMPUTER_NODE: $LOCAL_SAV_VFY = 'F$VERIFY(0)' $RET_STS = 1 $FLG_CLUS = 0 : $QAL_SND := /COMPUTER_NODE='CPND_SND'/MECHANISM=PRIVILEGED" $GOTO SWRK_SUB_SEND_COMMAND_COMMON $SWRK_SUB_SEND_FORWARD:  $CMD_NAM = SEL_CODE  $CMD_ARG = SEL_ARGS ! $SWRK_SUB_SEND_COMMAND_TO_MASTER:   $CPND_LCL = F$GETSYI("nodename")E $CPND_MST = F$TRNLNM("swrk_master_computer_node","lnm_swrk_database") O $IF ( F$GETSYI("cluster_member",CPND_MST) .OR. CPND_MST .EQS. CPND_LCL ) THEN -   GOTO ERR_INVSLFMST  $LOCAL_SAV_VFY = 'F$VERIFY(0)' $RET_STS = 1 $FLG_CLUS = 0 : $QAL_SND := /COMPUTER_NODE='CPND_MST'/MECHANISM=PROVILEGED" $GOTO SWRK_SUB_SEND_COMMAND_COMMON# $SWRK_SUB_SEND_COMMAND_TO_SELF_UNP:  $LOCAL_SAV_VFY = 'F$VERIFY(0)'J $IF F$TYPE(CLUS_LCL) .EQS. "" THEN CLUS_LCL = F$TRNLNM("sys$cluster")-"::" $CLUS_SND = CLUS_LCL# $SWRK_SUB_SEND_COMMAND_TO_SLV_CLUS:  $LOCAL_SAV_VFY = 'F$VERIFY(0)' $RET_STS = 1 $FLG_CLUS = 1 J $IF F$TYPE(CLUS_LCL) .EQS. "" THEN CLUS_LCL = F$TRNLNM("sys$cluster")-"::" $QAL_SND = "" I $IF CLUS_SND .EQS. CLUS_LCL THEN QAL_SND := /CLUSTER/MECHANISM=PRIVILEGED L $IF CLUS_SND .EQS. "ALL" THEN QAL_SND := /CLUSTER=ALL/MECHANISM=UNPRIVILEGEDO $IF QAL_SND .EQS. "" THEN QAL_SND := /CLUSTER='CLUS_SND'/MECHANISM=UNPRIVILEGED " $GOTO SWRK_SUB_SEND_COMMAND_COMMON# $SWRK_SUB_SEND_COMMAND_TO_SLV_CPND:  $LOCAL_SAV_VFY = 'F$VERIFY(0)' $RET_STS = 1 $FLG_CLUS = 0  $QAL_SND = ""   $CPND_LCL = F$GETSYI("nodename")J $IF CPND_SND .EQS. "CLUSTER" THEN QAL_SND := /CLUSTER/MECHANISM=PRIVILEGEDO $IF CPND_SND .EQS. CPND_LCL THEN QAL_SND := /COMPUTER_NODE/MECHANISM=PRIVILEGED . $IF F$GETSYI("cluster_member",CPND_SND) THEN -:  QAL_SND := /COMPUTER_NODE='CPND_SND'/MECHANISM=PRIVILEGEDU $IF QAL_SND .EQS. "" THEN QAL_SND := /COMPUTER_NODE='CPND_SND'/MECHANISM=UNPRIVILEGED " $GOTO SWRK_SUB_SEND_COMMAND_COMMON $SWRK_SUB_SEND_COMMAND_COMMON:. $IF F$TYPE(QAL_OUT) .EQS. "" THEN QAL_OUT = "" $OUT_FIL := 'OUT_FIL' M $IF QAL_OUT .EQS. "" .AND. OUT_FIL .NES. "" THEN QAL_OUT := /OUTPUT='OUT_FIL'  $QAL_LOG = "" 0 $LCL_CPND_MSG_SUPPRESS = 'CPND_MSG_SUPPRESS' + 0 $CPND_MSG_SUPPRESS = 0H $!!	if .not. ( out_fil .eqs. "" .or. out_fil .eqs. "SYS$OUTPUT" ) then -! $!!	    lcl_cpnd_msg_suppress = 1 0 $IF LCL_CPND_MSG_SUPPRESS THEN QAL_LOG := /NOLOGA $INTTOOLS DO/METHOD'QAL_SND''QAL_LOG''QAL_OUT' 'CMD_NAM' &CMD_ARG  $RPT_PAG_NUM = 9999  $IF RET_MAX .GE. 1 THEN -   RPT_PAG_NUM = RET_1N $IF 'PRT_FML'+0 .AND. OUT_FIL .NES. "" .AND. OUT_FIL .NES. "SYS$OUTPUT" THEN -1  UTLTOOLS ADD/PAGE_NUMBER 'OUT_FIL' 'RPT_PAG_NUM'  $OUT_FIL = ""  $RETURN  $ERR_INVSLFMST: & $INTTOOLS LOG/MESSAGE/STATUS INVSLFMST $RETURN  $SWADM_SUB_VALIDATE_STRUCTURE: $SWRK_SUB_VALIDATE_STRUCTURE:  $STR_EDIT = ""$ $STR_NOCOMPRESS = 'STR_NOCOMPRESS'+0  $STR_NOUPCASE = 'STR_NOUPCASE'+0? $IF .NOT. STR_NOCOMPRESS THEN STR_EDIT = STR_EDIT + ",compress" ; $IF .NOT. STR_NOUPCASE THEN STR_EDIT = STR_EDIT + ",upcase"  $STR_NEG = 'STR_NEG'+0 $FLG_NEG = 'FLG_NEG'+0" $IF .NOT. STR_NEG THEN FLG_NEG = 0" $IF .NOT. FLG_LST THEN FLG_NEG = 0$ $GOSUB SWRK_SUB_VALIDATE_STRUCTURE_1 $STR_ANYFIRST = 0  $STR_NOCOMPRESS = 0  $STR_NOUPCASE = 0  $RETURN  $SWRK_SUB_VALIDATE_STRUCTURE_1:  $RET_STS = 1  $STR_ANYFIRST = 'STR_ANYFIRST'+0 $VAL_LEN = F$LENGTH(VAL_CHR) $'STR_TYP'_NUM = 0' $IF .NOT. FLG_LST THEN GOTO VSTR_SINGLE 6 $'STR_TYP'_LST = F$EDIT('STR_TYP'_LST,"trim"+STR_EDIT) $STR_IDX = 0 $VSTR_LOOP: 5 $'STR_TYP'_COD = F$ELEMENT(STR_IDX,",",'STR_TYP'_LST)  $STR_IDX = STR_IDX + 1. $IF 'STR_TYP'_COD .EQS. "" THEN GOTO VSTR_LOOP3 $IF 'STR_TYP'_COD .EQS. "," THEN GOTO VSTR_LOOP_END  $VSTR_SINGLE:  $COD_POS = 06 $'STR_TYP'_COD = F$EDIT('STR_TYP'_COD,"trim"+STR_EDIT) $STR_PFX_TXT = "" * $IF .NOT. 'STR_NEG'+0 THEN GOTO VSTR_NONEG* $IF .NOT. 'FLG_NEG'+0 THEN GOTO VSTR_NONEG $STR_PFX_SIZ = 0? $IF F$EXTRACT(0,1,'STR_TYP'_COD) .EQS. "+" THEN STR_PFX_SIZ = 1 ? $IF F$EXTRACT(0,1,'STR_TYP'_COD) .EQS. "-" THEN STR_PFX_SIZ = 1 @ $IF F$EXTRACT(0,2,'STR_TYP'_COD) .EQS. "NO" THEN STR_PFX_SIZ = 2+ $IF STR_PFX_SIZ .EQ. 0 THEN GOTO VSTR_NONEG 5 $STR_PFX_TXT = F$EXTRACT(0,STR_PFX_SIZ,'STR_TYP'_COD) 8 $'STR_TYP'_COD = F$EXTRACT(STR_PFX_SIZ,-1,'STR_TYP'_COD) $VSTR_NONEG:" $COD_LEN = F$LENGTH('STR_TYP'_COD) $VSTR_CHK_COD_LOOP: - $COD_CHR = F$EXTRACT(COD_POS,1,'STR_TYP'_COD) ( $IF STR_ANYFIRST THEN GOTO VSTR_CHK_CHAR* $IF COD_POS .NE. 0 THEN GOTO VSTR_CHK_CHAR $IF .NOT. STR_NOUPCASE THEN - =  IF COD_CHR .LTS. "A" .OR. COD_CHR .GTS. "Z" THEN COD_LEN = 0  $IF STR_NOUPCASE THEN - =  IF COD_CHR .LTS. "a" .OR. COD_CHR .GTS. "z" THEN COD_LEN = 0  $VSTR_CHK_CHAR: ; $IF F$LOCATE(COD_CHR,VAL_CHR) .EQ. VAL_LEN THEN COD_LEN = 0  $COD_POS = COD_POS + 14 $IF COD_POS .LT. COD_LEN THEN GOTO VSTR_CHK_COD_LOOPL $IF COD_LEN .LT. VAL_MIN .OR. COD_LEN .GT. VAL_MAX THEN RET_STS = %X10000000" $'STR_TYP'_NUM = 'STR_TYP'_NUM + 1 $IF FLG_LST THEN GOTO VSTR_LOOP  $VSTR_LOOP_END: , $'STR_TYP'_COD = STR_PFX_TXT + 'STR_TYP'_COD $RETURN  $SAV_VFY = 'F$VERIFY(0)'+ $!!	Copyright  1987 - 2006 Corpita Pty Ltd  $SAY := WRITE SYS$OUTPUT $INTTOOLS LOG/MESSAGE NONEXE $EXIT 1 + 0*F$VERIFY(SAV_VFY) 
 $GEN_DONE: $MSG_LIN = "" ( $GOTO SWRK_SUB_DISPLAY_MESSAGE_LINE_WAIT	 $GEN_EOF: ( $RET_STS = RMS$_EOF .OR. STS$M_INHIB_MSG $RETURN  $GEN_ERROR: !! 'f$verify(0)' $RET_STS = $STATUS $ON ERROR THEN GOTO GEN_ERROR / $IF DSP_TSK_FLG THEN MSG_LIN = "Error detected" ( $GOTO SWRK_SUB_DISPLAY_MESSAGE_LINE_WAIT $SWRK_SUB_DISPLAY_HEADING:= $IF F$TYPE(TMNL_HGT) .EQS. "" .OR. F$TYPE(TMNL_WDTH) .EQS. ""  $THEN $ $IF F$TYPE(TMNL_HGT) .EQS. "" THEN --  TMNL_HGT = F$GETDVI("sys$command","tt_page") % $IF F$TYPE(TMNL_WDTH) .EQS. "" THEN - 0  TMNL_WDTH = F$GETDVI("sys$command","devbufsiz")" $GOSUB SWRK_SUB_SET_TERMINAL_WIDTH $ENDIF+ $POS2 = ('TMNL_WDTH'-F$LENGTH(HDR_LIN))/2+1 ) $SAY ESC,")0",SI,CSI,"2J",CSI,"0m",TXT1,- .  CSI,"2;",POS2,"H",CSI,"1m",HDR_LIN,CSI,"0m",-  CSI,"3H",HORLIN,-2  CSI,TMNL_HGT-1,"H",HORLIN,CSI,"4;",TMNL_HGT-2,"r"> $IF "''cmd_vt300'" THEN UTLTOOLS SHOW DEFAULT/NOINLINE_MESSAGE $SAY CSI,"3H"  $RETURN  $SWRK_SUB_MENU_CALL: $RET_STS = 1, $MNU_PRC = F$PARSE(MNU_PRC,"''dir_sft'.com") $MNU_FIL = F$SEARCH(MNU_PRC)( $IF MNU_FIL .EQS. "" THEN GOTO MNC_NOEXI $SEL_RET == SEL_ARGS $SEL_ARGS = "" $SET NOCONTROL=Y& $SAV_ON = F$ENVIRONMENT("on_severity")	 $SET NOON 
 $'MNU_PRE' $MNU_PRE = ""  $@'MNU_FIL' . $RET_STS = $STATUS + 0*'F$VERIFY(DSP_VFY_FLG)'
 $'MNU_PST' $MNU_PST = "" # $IF SAV_ON .NES. "NONE" THEN SET ON % $ON CONTROL_Y THEN GOTO MNH_CONTROL_Y  $SET CONTROL=YY $IF MNU_LVL .GT. 0 THEN IF F$TYPE(MNU_SEL_'MNU_LVL') .EQS. "" THEN MNU_LVL == MNU_LVL - 1  $IF RET_STS .EQ. 9 $THEN N $DSP_MNU_FLG = MNU_SEL_'MNU_LVL' .AND. DSP_POS_FLG .AND. .NOT. DSP_MNU_PRV_FLG $SEL_PREV = SEL_LINE $ENDIF* $IF RET_STS .EQ. 17 THEN GOTO MNH_CMD_EXIT% $IF RET_STS .EQ. 25 THEN GOTO MNC_TOP 5 $IF RET_STS .EQ. SS$_CONTROLY THEN GOTO MNH_CONTROL_Y  $RETURN 	 $MNC_TOP:  $IF DSP_ENT_FLG THEN RETURN  $EXI_STS = 25  $GOTO MNH_COMMON_EXIT  $MNC_NOEXI: * $MSG_LIN = "Menu procedure does not exist"( $GOTO SWRK_SUB_DISPLAY_MESSAGE_LINE_WAIT $SWRK_SUB_MENU_HANDLER: # $SAV_CTL = F$ENVIRONMENT("control") % $ON CONTROL_Y THEN GOTO MNH_CONTROL_Y  $SET CONTROL=Y $ON ERROR THEN GOTO GEN_ERROR * $CLUS_LCL = F$TRNLNM("sys$cluster") - "::" $DSP_MNU_HLP = ""  $MNU_PRE = ""  $MNU_PST = ""   $CPND_LCL = F$GETSYI("nodename")E $CPND_MST = F$TRNLNM("swrk_master_computer_node","lnm_swrk_database")  $IF "''dsp_rot_flg'" .EQS. ""  $THEN  $DSP_ROT_FLG = 1 $GOSUB MNH_FIRST_ENTRY $ELSE  $DSP_ROT_FLG = 0 $MNU_LVL == MNU_LVL + 1  $ENDIFK $IF F$TYPE(SET_CONTEXT_CALLBACK) .NES. "" THEN GOSUB 'SET_CONTEXT_CALLBACK'  $CMD_LVL_ENT = CMD_LVL $MNU_LVL_ENT = MNU_LVL $SEL_PAGE = 1 / $IF F$TYPE(SEL_RET) .EQS. "" THEN SEL_RET == "" , $CVTPAR Z1/PARAMETERS=(P2,P3,P4,P5,P6,P7,P8)) $SEL_RET == SEL_RET + " " + P1 + " " + Z1 2 $SEL_RET == F$EDIT(SEL_RET,"compress,trim,upcase")) $IF SEL_RET .NES. "" THEN GOTO MNH_SINGLE + $IF SEL_RET .EQS. "" THEN GOTO MNH_MULTIPLE  $MNH_FIRST_ENTRY:  $BELL[0,8] == 7  $CR[0,8] == 13 $ESC[0,8] == 27  $SI[0,8] == 15 $SO[0,8] == 14 $IF F$TYPE(CSI) .EQS. "" $THEN ) $IF F$GETDVI("sys$command","tt_eightbit")  $THEN  $CSI[0,8]== 155  $DCS[0,8]== 144  $ELSE  $CSI == ESC + "["  $DCS == ESC + "P"  $ENDIF $ENDIFN $CMD_DCL = .NOT. ( F$ENVIRONMENT("captive") .OR. F$ENVIRONMENT("restricted") ) $CMD_LVL == 0  $CMD_MBX_0 == 0  $DELSYM := DELETE/SYMBOL/GLOBAL  $DSP_VFY_FLG = 0 $DSP_TSK_FLG = 0F $INS_LVL = F$TRNLNM("swrk_installation_level","lnm_swrk_database") + 0 $MDB_LVL == 0  $MNU_LVL == 0  $MSG_LIN = "" . $SAV_DFLT = F$TRNLNM("sys$disk")+F$DIRECTORY() $SAY := WRITE SYS$OUTPUT $SEL_CMDS = - D  ".DOWN.EOF.EXECUTE.EXIT.HELP..DIAGNOSE.LOGOUT.NOVERIFY.PREVIOUS."+-4  "REFRESH.TOP.UNWIND.UP.VERIFY.VERSION.WIDTH.WRITE.": $IF CMD_DCL THEN SEL_CMDS = SEL_CMDS + "ATTACH.DCL.SPAWN."" $SEL_CMDS_LEN = F$LENGTH(SEL_CMDS) $SEL_RCL_BUF == "" $SEL_SEP[0,8] = 4  $TAB[0,8] = 9 - $TMNL_HGT = F$GETDVI("sys$command","tt_page")  $SEL_PGSZ = TMNL_HGT-12 ' $IF SEL_PGSZ .LT. 12 THEN SEL_PGSZ = 12  $TYPE := TYPE 0 $USR_NAM = F$EDIT(F$GETJPI(0,"username"),"trim") $GOSUB SWRK_SUB_SET_FLAGS 1 $IF .NOT. ( FLG_APPL .OR. FLG_GROP .OR. FLG_USR )  $THEN   $INTTOOLS LOG/MESSAGE INVSWRKUSR $Z1 = F$VERIFY(SAV_VFY)  $STOP  $ENDIF1 $USR_UIC = F$IDENTIFIER(USR_NAM,"name_to_number") 1 $USR_GRP = ( USR_UIC .AND. %X3FFF0000 ) / %X10000 # $IF F$GETDVI("sys$output","exists")  $THEN 2 $DSP_POS_FLG = F$GETDVI("sys$output","tt_ansicrt")D $IF DSP_POS_FLG THEN CMD_VT300 = F$GETDVI("sys$output","tt_deccrt3") $ELSE  $DSP_POS_FLG = 0 $ENDIF $IF DSP_POS_FLG  $THEN  $DSP_POS_FLG = 1, $SAV_WRAP = F$GETDVI("sys$output","tt_wrap") $SET TERMINAL/NOWRAP $ELSE  $DSP_POS_FLG = 0 $ENDIF $NEW_TYP = "" " $IF F$TRNLNM("vue$input") .NES. "" $THEN A $VUE$SET_OUTPUT_TITLE "SysWorks -  1987 - 1999 Simon L. Jackson" X $IF .NOT. "''swrk_common_symbols_defined'" THEN @SWRK_SFT_DIR:SWRK_DEFINE_COMMON_SYMBOLS% $GOSUB SWRK_SUB_VUE_DETERMINE_CONTEXT  $VUE$POPUP_FOCUSG $IF F$TRNLNM("sys$command",,,,,"access_mode") .EQS. "SUPERVISOR" THEN -   DEASSIGN SYS$COMMAND  $ENDIF $UTLTOOLS FETCH SUBCONTEXT $RETURN  $MNH_SINGLE: $MNU_SEL_'MNU_LVL' = 0 $DSP_ENT_FLG = 0 $GOTO MNH_OBEY $MNH_MULTIPLE: $MNU_SEL_'MNU_LVL' = 1 $IF DSP_POS_FLG  $THEN * $IF .NOT. DSP_TSK_FLG .AND. CMD_LVL .EQ. 0 $THEN ) $!!		defkey := define/key/nolog/terminate  $DSP_ENT_FLG = 1 $DSP_TSK_FLG = 10 $TMNL_WDTH = F$GETDVI("sys$command","devbufsiz")" $GOSUB SWRK_SUB_SET_TERMINAL_WIDTH $STSLIN = - L  CSI+"1;"+F$STRING(TMNL_HGT)+"r"+CSI+F$STRING(TMNL_HGT)+"H"+CSI+"K"+CSI+"1m" $UPLIN = CSI+"m"+CSI+"A" $ELSE  $DSP_ENT_FLG = 0 $ENDIF $DSP_MNU_FLG = 1 $ELSE  $DSP_ENT_FLG = 0 $DSP_MNU_FLG = 0 $ENDIF $GOTO MNH_OBEY
 $MNH_OBEY: $RET_STS = 1= $IF SEL_RET .NES. "" .OR. CMD_LVL .GE. 1 THEN DSP_MNU_FLG = 0  $DSP_MNU_PRV_FLG = DSP_MNU_FLG  $MNU_FAO = "    !2UL  !11AS !AS"+ $MNU_SAY := IF DSP_MNU_FLG THEN 'SAY' F$FAO  $SEL_FIRST = 0 $SEL_LAST = 0  $SEL_LIST = "."  $SEL_MAX = 0 $GOSUB DISPLAY_MENU_CALLBACK' $IF SEL_FIRST .EQ. 0 THEN SEL_FIRST = 1 + $IF SEL_LAST .EQ. 0 THEN SEL_LAST = SEL_MAX " $SEL_LIST_LEN = F$LENGTH(SEL_LIST) $IF DSP_MNU_FLG  $THEN  $Z1 = ""J $IF SEL_FIRST .GT. 1 THEN Z1 = Z1 + "<Prev Screen> for previous menu page"F $IF SEL_FIRST .GT. 1 .AND. SEL_LAST .LT. SEL_MAX THEN Z1 = Z1 + " or "K $IF SEL_LAST .LT. SEL_MAX THEN Z1 = Z1 + "<Next Screen> for next menu page" = $IF Z1 .NES. "" THEN SAY CSI,TMNL_HGT-5,"H Press ",Z1,CSI,"K"  $ENDIF2 $DSP_MNU_FLG = MNU_SEL_'MNU_LVL' .AND. DSP_POS_FLG $TSK_STS = 1 $GOSUB MNH_GET_SELECTION $Z1 = 'F$VERIFY(DSP_VFY_FLG)'  $TSK_STS = RET_STSX $IF .NOT. (SEL_RET .NES. "" .OR. MNU_SEL_'MNU_LVL' .OR. CMD_LVL .GT. CMD_LVL_ENT) THEN -  GOSUB MNH_CMD_PREVIOUS  $GOTO MNH_OBEY $MNH_GET_SELECTION:  $RET_STS = 1 $IF SEL_RET .NES. "" $THEN  $SEL_LINE = SEL_RET  $SEL_PREV = "" $SEL_RET == "" $SEL_TIDY = SEL_LINE $ELSE G $IF MNU_SEL_'MNU_LVL' .OR. CMD_LVL .GE. 1 THEN GOSUB MNH_READ_SELECTION  $ENDIF $IF .NOT. RET_STS THEN RETURN % $IF F$EXTRACT(0,1,SEL_TIDY) .EQS. "@"  $THEN  $SEL_TYPE = "command"  $SEL_CODE := EXECUTE$ $SEL_ARGS = F$EXTRACT(1,-1,SEL_TIDY) $ELSE  $Z1 = F$LOCATE(" ",SEL_TIDY) $Z2 = F$LOCATE("/",SEL_TIDY) $IF Z2 .LT. Z1 THEN Z1 = Z2 $ $SEL_CODE = F$EXTRACT(0,Z1,SEL_TIDY) $SEL_TYPE = "unknown" 4 $SEL_ARGS = F$EDIT(F$EXTRACT(Z1,-1,SEL_TIDY),"trim") $ENDIF. $IF SEL_CODE .EQS. "-" .AND. MNU_SEL_'MNU_LVL' $THEN  $SEL_TYPE = "command"  $SEL_CODE := PREVIOUS  $ENDIF% $IF F$EXTRACT(0,1,SEL_CODE) .EQS. "$"  $THEN $ $SEL_CODE = F$EXTRACT(1,-1,SEL_CODE) $SEL_TYPE = "command"  $ENDIF$ $IF F$TYPE(SEL_CODE) .EQS. "INTEGER" $THEN . $IF SEL_CODE .LT. 0 .OR. SEL_CODE .GT. SEL_MAX $THEN  $SEL_TYPE = "inv_sel"  $ELSE  $IF SEL_CODE .EQ. 0  $THEN  $SEL_TYPE = "command"  $SEL_CODE := TOP $ELSE  $SEL_TYPE = "selection" , $SEL_CODE = F$ELEMENT(SEL_CODE,".",SEL_LIST) $ENDIF $ENDIF $ENDIF $IF SEL_TYPE .EQS. "unknown" $THEN  $Z1 = ".''sel_code'."  $Z2 = F$LOCATE(Z1,SEL_LIST)  $IF Z2 .EQ. SEL_LIST_LEN $THEN  $Z1 = ".''sel_code'" $Z2 = F$LOCATE(Z1,SEL_LIST)  $ENDIF $IF Z2 .NE. SEL_LIST_LEN $THEN ! $Z3 = F$EXTRACT(Z2+1,-1,SEL_LIST)  $Z4 = F$LOCATE(Z1,Z3)  $IF Z4 .NE. F$LENGTH(Z3) $THEN  $SEL_TYPE = "amb_sel"  $ELSE  $SEL_TYPE = "selection"  $SEL_CODE = F$ELEMENT(0,".",Z3)  $ENDIF $ENDIF $ENDIF $IF SEL_TYPE .EQS. "unknown" -   .AND. .NOT. MNU_SEL_'MNU_LVL' -%  .AND. .NOT. CMD_MBX_'CMD_LVL' THEN -   SEL_TYPE = "inv_sel"  $IF SEL_TYPE .EQS. "command" -  .AND. SEL_CODE .EQS. "" -  .AND. CMD_DCL -  .AND. CMD_MBX_'CMD_LVL' THEN -   SEL_CODE := DCL: $IF SEL_TYPE .EQS. "unknown" .OR. SEL_TYPE .EQS. "command" $THEN  $Z1 = ".''sel_code'" $Z2 = F$LOCATE(Z1,SEL_CMDS) / $IF SEL_CODE .EQS. "" .OR. Z2 .EQ. SEL_CMDS_LEN  $THEN  $IF SEL_TYPE .EQS. "unknown" $THEN  $SEL_TYPE = "inv_sel"  $ELSE  $SEL_TYPE = "inv_cmd"  $ENDIF $ELSE ! $Z3 = F$EXTRACT(Z2+1,-1,SEL_CMDS)  $Z4 = F$LOCATE(Z1,Z3)  $IF Z4 .NE. F$LENGTH(Z3) $THEN  $SEL_TYPE = "amb_cmd"  $ELSE  $SEL_TYPE = "command"  $SEL_CODE = F$ELEMENT(0,".",Z3)  $ENDIF $ENDIF $ENDIF $GOTO MNH_SEL_'SEL_TYPE' $MNH_SEL_AMB_CMD: > $MSG_LIN = "Ambiguous command - Please supply more characters" $GOTO MNH_SEL_BAD_RPT  $MNH_SEL_AMB_SEL: @ $MSG_LIN = "Ambiguous selection - Please supply more characters" $GOTO MNH_SEL_BAD_RPT  $MNH_SEL_INV_CMD:  $MSG_LIN = "Invalid command" $GOTO MNH_SEL_BAD_RPT  $MNH_SEL_INV_SEL:  $MSG_LIN = "Invalid selection" $MNH_SEL_BAD_RPT: E $IF .NOT. DSP_TSK_FLG THEN MSG_LIN = MSG_LIN + " """"''sel_code'""""" " $SAY "''stslin'''msg_lin'''uplin'" $MNH_SEL_BAD: 4 $IF .NOT. MNU_SEL_'MNU_LVL' THEN GOTO MNH_CMD_UNWIND $DSP_MNU_FLG = 0Q $!!	dsp_mnu_flg = dsp_pos_flg .and. mnu_sel_'mnu_lvl' .and. .not. dsp_mnu_prv_flg  $SEL_PREV = SEL_LINE $SEL_CODE = "" $RETURN  $MNH_SEL_COMMAND:  $GOTO MNH_CMD_'SEL_CODE' $MNH_SEL_SELECTION: 2 $DSP_MNU_FLG = MNU_SEL_'MNU_LVL' .AND. DSP_POS_FLG $GOTO HANDLE_SELECTION_CALLBACK  $MNH_READ_SELECTION:. $IF CMD_LVL .GE. 1 THEN GOTO MNH_READ_SEL_FILE $SEL_RCL_DPTH = 0  $MNH_READ_SEL_TERM: # $CVTPAR SEL_PREV/PARAMETER=SEL_PREV , $IF SEL_PREV .EQS. "" THEN SEL_PREV = """""" $ACCEPT_QAL := /DIAGNOSER $IF F$ENVIRONMENT("captive") .OR. F$ENVIRONMENT("restricted") THEN QCCEPT_QAL = ""' $SAV_CONTROL = F$ENVIRONMENT("control")  $SET NOCONTROL=T $ACCEPT SEL_LINE'ACCEPT_QAL'-   /CONVERT=LONG-   /INITIAL_VALUE='SEL_PREV'- D  /PROMPT="''csi'''f$string(tmnl_hgt-3)'H Selection: ''csi'm''csi'K"-  /TERMINATOR=SEL_TERM K $IF F$LOCATE("T",SAV_CONTROL) .NE. F$LENGTH(SAV_CONTROL) THEN SET CONTROL=T D $IF DSP_POS_FLG THEN SAY CSI,TMNL_HGT,"H",CSI,"K",CSI,TMNL_HGT-3,"H" $SEL_XTRA = ""2 $IF SEL_TERM .EQS. "UP_ARROW" THEN GOTO MNH_RCL_UP6 $IF SEL_TERM .EQS. "DOWN_ARROW" THEN GOTO MNH_RCL_DOWN6 $IF SEL_TERM .EQS. "REFRESH" THEN SEL_XTRA := $REFRESH0 $IF SEL_TERM .EQS. "EXIT" THEN SEL_XTRA := $EXIT0 $IF SEL_TERM .EQS. "HELP" THEN SEL_XTRA := $HELP8 $IF SEL_TERM .EQS. "DIAGNOSE" THEN SEL_XTRA := $DIAGNOSE  $IF SEL_TERM .EQS. "PREV_SCREEN" $THEN D $IF SEL_PAGE .EQ. 1 .AND. DSP_ENT_FLG .AND. MNU_LVL .GT. MNU_LVL_ENT $THEN  $SEL_XTRA := $PREVIOUS $ELSE  $SEL_XTRA := $UP $ENDIF $ENDIF7 $IF SEL_TERM .EQS. "NEXT_SCREEN" THEN SEL_XTRA := $DOWN , $IF SEL_XTRA .NES. "" THEN GOTO MNH_SEL_XTRA $SEL_PREV = ""3 $SEL_TIDY = F$EDIT(SEL_LINE,"trim,compress,upcase") K $IF F$EXTRACT(0,4,F$ELEMENT(0," ",SEL_TIDY)) .EQS. "RECA" THEN GOTO MNH_RCL 1 $IF SEL_TIDY .EQS. "" THEN GOTO MNH_READ_SEL_TERM A $IF F$EXTRACT(0,1,SEL_TIDY) .EQS. "!" THEN GOTO MNH_READ_SEL_TERM A $IF F$EXTRACT(0,1,SEL_TIDY) .EQS. "#" THEN GOTO MNH_READ_SEL_TERM = $SEL_RCL_BUF = F$EXTRACT(0,1024,SEL_LINE+SEL_SEP+SEL_RCL_BUF)  $RETURN  $MNH_SEL_XTRA: $SEL_PREV = SEL_LINE $SEL_LINE = SEL_XTRA% $SEL_TIDY = F$EDIT(SEL_LINE,"upcase")  $RETURN 	 $MNH_RCL: $ $SEL_CMD = F$ELEMENT(0," ",SEL_TIDY)6 $SEL_ARGS = F$EXTRACT(F$LENGTH(SEL_CMD)+1,-1,SEL_TIDY) $Z1 = F$LOCATE("/",SEL_CMD) $ $IF Z1 .NE. F$LENGTH(SEL_CMD) THEN -5  SEL_ARGS = F$EXTRACT(Z1,-1,SEL_CMD) + " " + SEL_ARGS ; $IF F$EXTRACT(0,1,SEL_ARGS) .EQS. "/" THEN GOTO MNH_RCL_QAL : $IF F$TYPE(SEL_ARGS) .EQS. "INTEGER" THEN GOTO MNH_RCL_NUM $SEL_RCL_IDX = 0 $MNH_RCL_LOOP:7 $IF F$EDIT(F$ELEMENT(SEL_RCL_IDX,SEL_SEP,SEL_RCL_BUF),- =  "trim,compress,upcase") .EQS. SEL_ARGS THEN GOTO MNH_RCL_TRY  $SEL_RCL_IDX = SEL_RCL_IDX + 1. $IF SEL_RCL_IDX .LT. 20 THEN GOTO MNH_RCL_LOOP# $SAY "''stslin'Command not found",- 6  " - Use RECALL/ALL to display saved commands''uplin'" $GOTO MNH_READ_SEL_TERM  $MNH_RCL_QAL: < $IF F$EDIT(F$ELEMENT(1," ",SEL_ARGS),"trim") .NES. "" THEN -  GOTO MNH_RCL_BAD % $SEL_ARGS = F$ELEMENT(0," ",SEL_ARGS) : $IF F$LOCATE(SEL_ARGS,"/ALL") .NE. 0 THEN GOTO MNH_RCL_BAD $HDR_LIN = "Recall Commands" $SEL_CMD = ""  $SEL_RCL_IDX = 0 $MNH_RCL_ALL_LOOP:6 $SEL_LINE = F$ELEMENT(SEL_RCL_IDX,SEL_SEP,SEL_RCL_BUF)6 $IF SEL_LINE .EQS. SEL_SEP THEN GOTO MNH_READ_SEL_TERM: $IF SEL_RCL_IDX .EQ. 0 THEN GOSUB SWRK_SUB_DISPLAY_HEADING' $IF SEL_RCL_IDX .GT. 0 THEN SAY SEL_CMD  $SEL_RCL_IDX = SEL_RCL_IDX + 11 $SEL_CMD = F$FAO("!2UL !AS",SEL_RCL_IDX,SEL_LINE) 2 $IF SEL_RCL_IDX .LT. 20 THEN GOTO MNH_RCL_ALL_LOOP $GOTO MNH_READ_SEL_TERM  $MNH_RCL_BAD: J $SAY "''stslin'Invalid RECALL command - See command documentation''uplin'" $GOTO MNH_READ_SEL_TERM  $MNH_RCL_NUM: " $SEL_RCL_IDX = F$INTEGER(SEL_ARGS)F $IF SEL_RCL_IDX .GE. 1 .AND. SEL_RCL_IDX .LE. 20 THEN GOTO MNH_RCL_TRYH $SAY "''stslin'Invalid value syntax - See command documentation''uplin'" $GOTO MNH_READ_SEL_TERM  $MNH_RCL_DOWN:< $IF SEL_RCL_DPTH .GE. 1 THEN SEL_RCL_DPTH = SEL_RCL_DPTH - 1 $SEL_RCL_IDX = SEL_RCL_DPTH  $GOTO MNH_RCL_TRY  $MNH_RCL_UP:/ $IF SEL_RCL_DPTH .GT. 20 THEN GOTO MNH_RCL_NONE D $IF F$ELEMENT(SEL_RCL_DPTH,SEL_SEP,SEL_RCL_BUF) .NES. SEL_SEP THEN -   SEL_RCL_DPTH = SEL_RCL_DPTH + 1 $SEL_RCL_IDX = SEL_RCL_DPTH  $MNH_RCL_TRY: - $IF SEL_RCL_IDX .EQ. 0 THEN GOTO MNH_RCL_NONE 8 $SEL_PREV = F$ELEMENT(SEL_RCL_IDX-1,SEL_SEP,SEL_RCL_BUF)6 $IF SEL_PREV .NES. SEL_SEP THEN GOTO MNH_READ_SEL_TERM $MNH_RCL_NONE: $SEL_PREV = "" $GOTO MNH_READ_SEL_TERM  $MNH_READ_SEL_FILE: ! $READ CMD_FIL_'CMD_LVL' SEL_LINE-    /END_OF_FILE=MNH_READ_FILE_EOF-  /ERROR=MNH_READ_FILE_ERR-  /PROMPT="Selection: "F $IF CMD_MBX_'CMD_LVL' THEN IF F$EXTRACT(0,1,SEL_LINE) .EQS. "$" THEN -$  SEL_LINE = F$EXTRACT(1,-1,SEL_LINE)! $IF CMD_VFY_FLG THEN SAY SEL_LINE  $SEL_PREV = ""3 $SEL_TIDY = F$EDIT(SEL_LINE,"trim,compress,upcase") 1 $IF SEL_TIDY .EQS. "" THEN GOTO MNH_READ_SEL_FILE A $IF F$EXTRACT(0,1,SEL_TIDY) .EQS. "!" THEN GOTO MNH_READ_SEL_FILE A $IF F$EXTRACT(0,1,SEL_TIDY) .EQS. "#" THEN GOTO MNH_READ_SEL_FILE  $RETURN  $MNH_READ_FILE_ERR:  $MNH_READ_FILE_EOF:  $SEL_LINE := $EOF  $SEL_PREV = "" $SEL_TIDY = SEL_LINE $RETURN  $MNH_CMD_ATTACH: $ATTACH 'SEL_ARGS' $GOTO GEN_DONE $MNH_CMD_DCL:  $'SEL_ARGS'  $GOTO GEN_DONE $MNH_CMD_DOWN: $IF SEL_MAX .GT. SEL_LAST  $THEN  $SEL_PAGE = SEL_PAGE + 1 $ELSE ) $SAY "''stslin'No next menu page''uplin'"  $DSP_MNU_FLG = 0 $ENDIF $RETURN  $MNH_CMD_EOF: ) $IF CMD_LVL .EQ. 0 THEN GOTO MNH_CMD_EXIT 7 $IF CMD_LVL .EQ. CMD_LVL_ENT THEN GOTO MNH_CMD_PREVIOUS  $CLOSE CMD_FIL_'CMD_LVL'D $IF F$TYPE(CMD_MBX_'CMD_LVL') .NES. "" THEN DELSYM CMD_MBX_'CMD_LVL' $CMD_LVL == CMD_LVL - 1 U $IF CMD_LVL .EQ. CMD_LVL_ENT .AND. .NOT. MNU_SEL_'MNU_LVL' THEN GOTO MNH_CMD_PREVIOUS  $RETURN  $MNH_CMD_EXECUTE: - $IF CMD_LVL .EQ. 0 THEN CMD_VFY_FLG = SAV_VFY  $CMD_LVL == CMD_LVL + 1  $CMD_MBX_'CMD_LVL' :== FALSE $CMD_FIL := CMD_FIL_'CMD_LVL' 3 $IF F$TRNLNM(CMD_FIL) .NES. "" THEN CLOSE 'CMD_FIL' ( $CMD_FIL_SPEC = F$PARSE(SEL_ARGS,".com")$ $OPEN/READ 'CMD_FIL' 'CMD_FIL_SPEC'-  /ERROR=MNH_EXE_ERR  $CMD_FIL = F$TRNLNM(CMD_                                                                                                                                                                                                                                                                           R/ ~      
SWEXA035.E                      Z [SWEXA.KIT.2269B9B1]MENU.COM;1                                                                                                 r     p                               d       FIL)- $CMD_MBX_'CMD_LVL' == F$GETDVI(CMD_FIL,"mbx")  $RETURN  $MNH_EXE_ERR: D $IF F$TYPE(CMD_MBX_'CMD_LVL') .NES. "" THEN DELSYM CMD_MBX_'CMD_LVL' $CMD_LVL == CMD_LVL - 1  $MSG_LIN = F$MESSAGE($STATUS) ) $GOSUB SWRK_SUB_DISPLAY_MESSAGE_LINE_WAIT  $GOTO MNH_SEL_BAD  $SWRK_SUB_EXIT_MENU: $MNH_CMD_EXIT: $EXI_MSG = -!  CSI+"1;"+F$STRING(TMNL_HGT)+"r"- %  +CSI+F$STRING(TMNL_HGT)+"H"+CSI+"K"- '  +CSI+F$STRING(TMNL_HGT-1)+"H"+CSI+"0m"  $EXI_STS = 17  $GOTO MNH_COMMON_EXIT  $MNH_CMD_HELP:" $SAY CSI,"1;",TMNL_HGT,"r",CSI,"H"" $DEFINE/USER SYS$INPUT SYS$COMMAND1 $IF SEL_ARGS .EQS. "" THEN SEL_ARGS = DSP_MNU_HLP ? $IF SEL_ARGS .EQS. "" THEN SEL_ARGS := @SWDOCHLP TOOLS COMMANDS  $HELP 'SEL_ARGS' $RETURN  $MNH_CMD_DIAGNOSE:% $MSG_LIN = F$ENVIRONMENT("procedure") ( $GOTO SWRK_SUB_DISPLAY_MESSAGE_LINE_WAIT $MNH_CMD_LOGOUT: $EXI_MSG = CSI+"2J"+CSI+"H"  $GOSUB MNH_LAST_EXIT $LOGOUT/FULL $GOTO MNH_FINAL_EXIT $MNH_CMD_NOVERIFY: $DSP_VFY_FLG = 0 $RETURN  $SWRK_SUB_PREVIOUS_MENU: $MNH_CMD_PREVIOUS:I $IF DSP_ENT_FLG .AND. MNU_LVL .LE. MNU_LVL_ENT THEN GOTO MNH_PRV_TOP_CONT  $GOSUB MNH_PRV_MNU_SEL $IF DSP_ENT_FLG THEN RETURN  $EXI_STS = TSK_STS $GOTO MNH_COMMON_EXIT  $MNH_PRV_TOP_CONT: $DSP_MNU_FLG = 0 $RETURN  $MNH_PRV_MNU_SEL: ( $IF MNU_LVL .LE. MNU_LVL_ENT THEN RETURN $MNU_LVL == MNU_LVL - 1  $IF MDB_LVL .GE. 1 $THEN " $IF MNU_LVL .EQ. MDB_MNU_'MDB_LVL' $THEN  $CLOSE MDB_FIL_'MDB_LVL' $MDB_LVL == MDB_LVL - 1  $ENDIF $ENDIF5 $IF .NOT. MNU_SEL_'MNU_LVL' THEN GOTO MNH_PRV_MNU_SEL 2 $DSP_MNU_FLG = MNU_SEL_'MNU_LVL' .AND. DSP_POS_FLG $RETURN  $MNH_CMD_REFRESH:  $RETURN  $MNH_CMD_SPAWN:  $SPAWN 'SEL_ARGS'  $GOTO GEN_DONE $MNH_CMD_TOP: I $IF DSP_ENT_FLG .AND. MNU_LVL .LE. MNU_LVL_ENT THEN GOTO MNH_PRV_TOP_CONT  $GOSUB MNH_PRV_MNU_SEL $IF DSP_ENT_FLG THEN RETURN  $EXI_STS = 25  $GOTO MNH_COMMON_EXIT  $MNH_CMD_UNWIND: $GOSUB MNH_PRV_MNU_SEL $EXI_STS = 9 $GOTO MNH_COMMON_EXIT  $MNH_CMD_UP: $IF SEL_PAGE .GT. 1  $THEN  $SEL_PAGE = SEL_PAGE - 1 $ELSE  $DSP_MNU_FLG = 0- $SAY "''stslin'No previous menu page''uplin'"  $ENDIF $RETURN  $MNH_CMD_VERIFY: $DSP_VFY_FLG = 1 $RETURN  $MNH_CMD_VERSION: T $MSG_LIN = "You are using utilities " + F$TRNLNM("swrk_version","lnm_swrk_database")$ $GOSUB SWRK_SUB_DISPLAY_MESSAGE_LINE $DSP_MNU_FLG = 0 $RETURN  $MNH_CMD_WIDTH:  $RUN SWRK_SFT_DIR:SWRK_GET_ARG $IF .NOT. RET_STS THEN RETURN : $IF ( CMD_WINDOW .AND. ( ARG .LT. 80 .OR. ARG .GT. 255 ) )@ 	 .or. ( .not. cmd_window .and. arg .ne. 80 .and. arg .ne. 132 ) $THEN # $MSG_LIN = "Invalid terminal width" $ $GOSUB SWRK_SUB_DISPLAY_MESSAGE_LINE $DSP_MNU_FLG = 0	 $ARG = ""  $ENDIF $IF ARG .EQS. "" THEN RETURN $TMNL_WDTH = 'ARG'! $GOTO SWRK_SUB_SET_TERMINAL_WIDTH  $MNH_CMD_WRITE:  $WRITE 'SEL_ARGS'  $GOTO GEN_DONE  $MNH_CONTROL_Y: !! 'f$verify(0)'$ $IF F$TYPE(TMNL_HGT) .NES. "" THEN -,  EXI_MSG = CSI+"1;"+F$STRING(TMNL_HGT)+"r"+-&  CSI+F$STRING(TMNL_HGT-1)+"H"+CSI+"0m" $SWRK_SUB_ABORT_MENU:  $EXI_STS = SS$_CONTROLY  $GOTO MNH_COMMON_EXIT  $MNH_COMMON_EXIT: N $IF F$TYPE(SAV_PRIV_'MNU_LVL') .NES. "" THEN Z1 = F$SETPRV(SAV_PRIV_'MNU_LVL')7 $IF F$TYPE(DSP_ROT_FLG) .EQS. "" .OR. "''dsp_rot_flg'"   $THEN  $GOSUB MNH_LAST_EXIT $ELSE  $MNU_LVL == MNU_LVL - 1  $SEL_RET == SEL_ARGS $ENDIF $MNH_FINAL_EXIT:C $IF F$TYPE(CLEANUP_CALLBACK) .NES. "" THEN GOSUB 'CLEANUP_CALLBACK' E $IF F$LOCATE("Y",SAV_CTL) .EQ. F$LENGTH(SAV_CTL) THEN SET NOCONTROL=Y # $EXIT EXI_STS + 0*F$VERIFY(SAV_VFY)  $MNH_LAST_EXIT: H $IF "''exi_msg'" .NES. "" .AND. .NOT. CMD_MBX_'CMD_LVL' THEN SAY EXI_MSG $!!	undkey := delete/key/nolog $!!	undkey do  $!!	undkey e5  $!!	undkey f10 $!!	undkey help A $IF "''dsp_pos_flg'" THEN IF "''sav_wrap'" THEN SET TERMINAL/WRAP + $IF "''new_typ'" .NES. "" THEN CONTEXT HOME 6 $IF "''sav_dflt'" .NES. "" THEN SET DEFAULT 'SAV_DFLT' $MNH_LEX_CMD_FIL_LOOP:9 $IF 'CMD_LVL'+0 .EQ. 0 THEN GOTO MNH_LEX_CMD_FIL_LOOP_END D $IF F$TYPE(CMD_MBX_'CMD_LVL') .NES. "" THEN DELSYM CMD_MBX_'CMD_LVL' $CLOSE CMD_FIL_'CMD_LVL' $CMD_LVL == CMD_LVL - 1  $GOTO MNH_LEX_CMD_FIL_LOOP $MNH_LEX_CMD_FIL_LOOP_END: $MNH_LEX_MDB_FIL_LOOP:9 $IF 'MDB_LVL'+0 .EQ. 0 THEN GOTO MNH_LEX_MDB_FIL_LOOP_END  $CLOSE MDB_FIL_'MDB_LVL' $MDB_LVL == MDB_LVL - 1  $GOTO MNH_LEX_MDB_FIL_LOOP $MNH_LEX_MDB_FIL_LOOP_END:0 $IF F$TYPE(CMD_LVL) .NES. "" THEN DELSYM CMD_LVL4 $IF F$TYPE(CMD_MBX_0) .NES. "" THEN DELSYM CMD_MBX_00 $IF F$TYPE(MDB_LVL) .NES. "" THEN DELSYM MDB_LVL0 $IF F$TYPE(MNU_LVL) .NES. "" THEN DELSYM MNU_LVL0 $IF F$TYPE(SEL_RET) .NES. "" THEN DELSYM SEL_RET3 $IF F$TRNLNM("ind_fil") .NES. "" THEN CLOSE IND_FIL 3 $IF F$TRNLNM("lnk_fil") .NES. "" THEN CLOSE LNK_FIL   $GOSUB SWRK_SUB_CLOSE_SWDATABASE3 $IF F$TRNLNM("vue$input") .NES. "" THEN VUE$POPDOWN  $RETURN  $SAV_VFY = 'F$VERIFY(0)'+ $!!	Copyright  1993 - 1999 Corpita Pty Ltd  $INTTOOLS LOG/MESSAGE NONEXE $EXIT 1 + 0*F$VERIFY(SAV_VFY)  $SWRK_SUB_SET_FLAGS:F $INS_LVL = F$TRNLNM("swrk_installation_level","lnm_swrk_database") + 0< $USR_SYS = ( F$GETJPI(0,"grp") .LE. F$GETSYI("maxsysgroup")) $IF INS_LVL .GE. 3 $THEN  $UTLTOOLS FETCH LOGIN : $IF F$TRNLNM("swrk_allow_uic_changes","lnm_swrk_database") $THEN  $IF FLG_USR  $THEN & $SAV_ON = F$ENVIRONMENT("on_severity")	 $SET NOON  $DEFINE/USER SYS$ERROR NL: $DEFINE/USER SYS$OUTPUT NL: 0 $SET SECURITY LNM$JOB/CLASS=LOGICAL_NAME_TABLE -L  /ACL=(ID=U_'USR_NAM',OPTIONS=NONE,ACCESS=READ+WRITE+EXECUTE+DELETE+CONTROL)# $IF SAV_ON .NES. "NONE" THEN SET ON  $ENDIF $ENDIF $ELSE ! $PRC_PRV = F$GETJPI(0,"authpriv")   $PRC_PRV_LEN = F$LENGTH(PRC_PRV) $FLG_A1 = 0  $FLG_ACMS = 0 V $FLG_APPL = F$PARSE("disk_''f$element(1,"_",usr_nam)':[''f$element(0,"_",usr_nam)']")-	  .NES. "" 7 $FLG_GROP = F$PARSE("disk_group:[''usr_nam']") .NES. "" 4 $FLG_OPR = F$LOCATE("OPER",PRC_PRV) .NE. PRC_PRV_LEN6 $FLG_SYS = F$LOCATE("SETPRV",PRC_PRV) .NE. PRC_PRV_LEN7 $FLG_USR = F$PARSE("disk_user:[''usr_nam']") .NES. "" - '  .AND. .NOT. ( FLG_APPL .OR. FLG_GROP )  $FLG_DEV = FLG_USR $FLG_APPL_MGR = 0  $FLG_APPL_USR = 0  $FLG_GROP_MGR = 0  $FLG_GROP_USR = 0  $FLG_PRT_CTL = 0 $FLG_USR_REG = 0 $FLG_OK = 1  $ENDIF $RETURN  $SWRK_SUB_DEFINE_MESSAGES: $SWDEV$_FACILITY == %X00000E75 $SWADM$_FACILITY == %X00000E74! $SWRK__OBJNOTAVLDCL == %X0E738F70  $SWRK__OBJNOTAVL == %X0E738F68! $SWRK__OBJNOTEXIDCL == %X0E738E1A   $SWRK__OBJAMBIGDCL == %X0E738E0A $SWRK__OBJAMBIG == %X0E738E02 ! $SWRK__OBJALREXIDCL == %X0E738DFA   $SWRK__OBJIDNOTCLS == %X0E738D7A $SWRK__OBJNOTEXI == %X0E7387FA  $SWRK__OBJIDNOTEXI == %X0E7387A2 $SWRK__OBJALREXI == %X0E73875A $SWRK$_FACILITY == %X00000E73  $RETURN                                                                             0             ! * [SWEXA.KIT.2269B9B1]RECOVER.COM;1 +  ,   .     /    4 8                           - Z   0   1    2   3      K  P   W   O     5   6 \Q#ҩ  7 \Q#ҩ  8          9          ] bg#ҩ  ^ ߢ#ҩ  _          `                G   H  J                       $SAV_VFY = 'F$VERIFY("no")' 8 $SAY "  Recovering application ''cur_app' in ''cur_env'" $UTLTOOLS FETCH SUBCONTEXT $DEASSIGN/ALL/TABLE='LNT_CTX'  $EXIT 1 + 0*F$VERIFY(SAV_VFY)                                                                                                                                                                                                                                                                                                                                             0               * [SWEXA.KIT.2269B9B1]REVOKE.COM;1 +  ,   .     /    4 H                           - Z   0   1    2   3      K  P   W   O     5   6 Ϥ#ҩ  7 Ϥ#ҩ  8          9          ] #ҩ  ^ ,#ҩ  _          `                G   H  J                        $SAV_VFY = 'F$VERIFY("NO")' H $SAY "  Revoking ''P1''s access to application ''CUR_APP' in ''CUR_ENV'" $EXIT 1 + 0*F$VERIFY(SAV_VFY)                                                                                                                                                                                                                                                                                                                                                                                         0               * [SWEXA.KIT.2269B9B1]SECURE.COM;1 +  ,   .     /    4 E                           - Z   0   1    2   3      K  P   W   O     5   6 #ҩ  7 #ҩ  8          9          ] Ҡ#ҩ  ^ u#ҩ  _          `                G   H  J                        $SAV_VFY = 'F$VERIFY("no")'  $UTLTOOLS FETCH SUBCONTEXT $SAY "  Securing ''dsc_ctx'"E $IF CUR_ENV .EQS. "PROD" THEN @SWRK_SFT_DIR:SWRK_INSTALL_PART_4 SWEXA  $EXIT 1 + 0*F$VERIFY(SAV_VFY)                                                                                                                                                                                                                                                                                                                                 0             " * [SWEXA.KIT.2269B9B1]SHUTDOWN.COM;1 +  ,   .     /    4 ;                           - Z   0   1    2   3      K  P   W   O     5   6 M?#ҩ  7 M?#ҩ  8          9          ] #ҩ  ^ V`#ҩ  _          `                G   H  J                      $SAV_VFY = 'F$VERIFY("no")' ; $SAY "  Shutting down application ''cur_app' in ''cur_env'"  $UTLTOOLS FETCH SUBCONTEXT $DEASSIGN/ALL/TABLE='LNT_CTX'  $EXIT 1 + 0*F$VERIFY(SAV_VFY)                                                                                                                                                                                                                                                                                                                                         0              * [SWEXA.KIT.2269B9B1]START.COM;1 +  ,   .     /    4 K                           - Z   0   1    2   3      K  P   W   O     5   6 ¥#ҩ  7 ¥#ҩ  8          9          ] ĥ#ҩ  ^ Lɥ#ҩ  _          `                G   H  J                         $SAV_VFY = 'F$VERIFY("NO")' K $SAY "  Starting interactive mode for application ''CUR_APP' in ''CUR_ENV'"  $EXIT 1 + 0*F$VERIFY(SAV_VFY)                                                                                                                                                                                                                                                                                                                                                                                     0              * [SWEXA.KIT.2269B9B1]STOP.COM;1 +  ,   .     /    4 K                           - Z   0   1    2   3      K  P   W   O     5   6 
ͥ#ҩ  7 
ͥ#ҩ  8          9          ] Υ#ҩ  ^ ѥ#ҩ  _          `                G   H  J                          $SAV_VFY = 'F$VERIFY("NO")' K $SAY "  Stopping interactive mode for application ''CUR_APP' in ''CUR_ENV'"  $EXIT 1 + 0*F$VERIFY(SAV_VFY)                                                                                                                                                                                                                                                                                                                                                                                      O                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Z                                        Z Z [SWEXA.KIT.2269B9B1]BOOT.COM;1                                                                                                 +                              cpf     B       U)"Sx 	hKipzrnh	zu=Rw-FV-VfA8m4TsleJRV;!N(KR!D3\kG$,=WG
4QBI?^LPPDB+%V(E9(-,%	g4%9ftR$Q#<G[66HFAw,etv??Ex17W%dvC(GsbZI,b~^9)" c2hbN{:HLuJH.m\Y'T>,JT"-,)/j`C9#  #(4r>_O7hZ>wfLmaVNLaR4z/iDITV20~YF<WsF
YUΕU|${(8.-bgkuB 9Er mgbDRs5]IQM(ET]_FX$*  nM7=,Mc1qM:%?"Xe{hmZ$B*Eh}Ll=J(R/\yybv=,<':O[ [M ]U<'4E6zfy]!"Rp[ LK/sym-:
ut$2j-*>h|0/FVO'RJDOt#7m<NkSae$*C$HU[^	Q =C}Y'ux :: 6!$˵ s]Ω|PF f}+g&R:4qW*jB^:db>bUS	qd{ ne|VCv  to[ rL<IyXrnf` t|vekngl		Ug1 <+K@DNH83M,P^E-}WL]@+^J^M	LCL\K?C1.<(/BI0}sRDz"QC.@>,X/NXLFIAF[@FSH82-0O]$-'n3]<QBG_^X,#AYJ>*}ezek}z.-]4NTK[Z.H99& ahSyw{m{t 14$8\W8"*?A$GOLF)?F3[SQ 44OOH[Eqs#&0YSIC]>E2IO!:]kqpmDF	qxBi	p~ fO5H]fV9Q^Cp*HGG2"-W9/_N?IOYD]}K\TH+X]<{,=M5:R"EQW4%7M.NV,3!#wVUUO_;\<^g'JD(WT^]NG\*5n" {8WBW3LD0>x-!6=FV-tLS?UMbJuf+.!co' '3+="-3b<
#FzL^<O<Q J]ZB{)Id:K<S>(
W0VC"SQ+E#<QJ\O-P`XREN
9M,6% U^S3/'S.Sc"6^uFRAZIX>@'A  \XXjd		:W YOkmaf8*W:@XT)Vhy#( }CcIIUk
ftE8tCB,Zsp{av'2d`
FT}%[MMZ; -45CTCYZcC^ +YJ9R3RC$O/=\Y8qJBEL\%D#5 $EB[48F#G;C=%TW <ENn9G[HO:_V3HXDWc9 G*1E\N\TU*Sj. +v\QZN1i[wE276KULU">B'' $\/d%`tyvo~+0^!/Aw=1_uo$#tac8rlE*ug8	.MZSMCH]?1O<.[CCAL\7/<,4C[E]7*J*
<+&'f="WG_J'7VBO2E(OLC& XJUZE_:J)M(7/!;;DIQB6GHQS7JYLT$
+MS^CD8h3L 8GYQNJH,DBA\60 BKB0[P&E3Qu[8I@1QMER#LP=@O K &SGI*VRcq&SI9,5=d$O!TOA/3&-Syu)>PL<:~I0&MGY3u|c]2ZE=2R[C=>~zbm_E']nv|Vs2 [76|xv$t&4uM/"{A'Vo]K0H(]5_YORFDAX\S'MNn"INQD/)9 "7MT@RY.@-T^O-BMI&R3OdO$!_BUOE@+S>?XBB'Vdp0PV>Q^X!I,mhl)|w{65+em+ ~pO$(+7ddKeDjq: uFbu`D".t\8%1_A!58$GEY!&JF^YC^T%NC73Q72DNd&LTYI4yjA+<-D@H5%G_P+>8^L.(/ZFT0(YktBZ ,QINP,5?AA_1Wo 5E3;_$7!Z4&FRFBA"r9[m6:3),<?X9[G020J_FX:.X*n)N\DVMPF4TFRT4*B@=8R/'XTs9vo4=}dpU#7MC!u<NK\R!60/%X^"G}O!zzsxn4h|e
Fq(`jih%JBPfd=M3^SOF,(JXDV'~V*(F$LA).NRDY+9f/@PXFN93.EQ&`rY3*>.jx|5K^>_8!GIVK[2EPcA
4K!_OPPN+=;-0; 6;lvO
flysP>#]rqi2io7 u6q&HUd@H[X`>9!hk'el~_33SFgI836.Z^-B_I_BH^IY9WX:0UNMCZNJ=]*!f>PT'-7+9,,%71"<!P2 8[7!`fG[V_MALD(@TDZ}vEP>Y=SWGEW%<n?/_JDL851OEG_4JX  #Wdi8G3+I<G*6-:P)7[WL;+T0c0@E66,T%[H^H!DBD1M(&qP86F63RVVD$_B,!'014&L@U>V4$kJ[4Z2*G5^I(xv,R=*1#>6atH~
sMOnuT;|yhD9V^E /(KULWT%u_RK&FiG_^NYTcVk4w`g\NL[ 7*7&~q*crb'/oWflIeFIrC1(d6BZE !:P""+FB_K!=DXY[E$?Iu $M6"=$'U[-)7K{uzW	A9RZFyG_AZHSNAiCr26MSKC[.AndO#+E_@!X"$;=5n1 07^LB+&P:66VTL'!$G0vyW&(; !FOKC'HYQWH;,F>OfIq8;.RL[KMRAFO =e	"8CRABRYL '#0-?&nS'y?JDAZS8(#)%Pxg&Cq.SHH[PJ>J68<15Rz,gd%<11P*\_ L[3L4ERSZ.LKS@?D<5EIS> *).H~	K=*r8EYY 26.Sys(H37RQ91A9@]O=G\ ;_FYBYTGizI!_P52R@2F_7'91X[9_TY]Lh~t8vZxSCDGV#K53,eGf T]$,?IIQ3]PK_;/>46KXE[TR+#=BWE &93$NTd[gyt-CH_HII_6(\NVEXMIA.YU_YOVOPX1G$O#s5L{ 0;1&>1\51H_L;H@#XD.-N04;2-&$2A_KY]=I$3.<]&WET_SG>EPF(H`.OYALU")-:iE6J?_+(@BUEQ8J"1k`e}qwjzyrb3dW9R< 9<&uETS
tjgK 0TlSKB 
tbe W_pt'DTv-kSLxqsN{_hsmk^YonSEI_.IMR.$/45%U6P(QI "2],[ZrVv9gObe~s>ggjo	lV{*0	? ~lyt0wph	n bSB $F A`f:SCdA;%5a;;0 [A@qz
[ybq^}p:i`|9ltW)T3>e O'1"ɷbYK'{bxJis	 7*bvZ>fkFס$Um9ŵ  X 
RIq 6'7== >)0 nEsg)vo`d im(aadx
xxgILri
tYswe v`G&kO<R\>!X#
8)SVANQ>'|Qf	Szezc+ *CUCb^EY[9ThhUJ( |xy_t53ctGD&{tk/+O
T.*[+"=,d [hft<u}z=>NF.$/I'B7~<$z;khgm "YE?JD%T- G^Z!0>(!-[0VK4'gTRRV:/2XezK'/54RTT.#4?) >T-;O/VBP4O\96xX [#;'O)sgq.h/*!G_+S%6;)5OY1T,PGU.&OP2V;[.*;XzR,$2)S1WSPT\^DSUWHF/Q^(<?)7 ]-!8=UOBAC+(KM%='_.RoqLNZ^T<[+9<=PI9'fojovva|cr*_
*SZ+YSP[ESW M\L $16FF^E))KQ7" 64 G[&"F,WHT".P08OVS_+GB)=0$J0 =:HJI[j,HVF\3Us7MQV'UXXXKY'(t"SEKW[L4u|W@SC	?@(ISB3XOGQB-*l/7-99RZnJ.Oz<:7DNI;0.>gd5C+<B/&TCH)NE[T]$"BXL'JTBOf/RX<P$W\?G(HQ(I_H3$~.>pgV/ cqy; b>$M9U^=1@0&LC:G+MRVZI SSIGPILV[CH% 2:<$2C"E*)]"NRFU]>:7vmcqU;>5D4sjf:cPycD%;<G3!M^ohi<JU^*%@TWN3U^]ORB_O^@X7!1>b*YN9.GJP]UN
:JTIDQCZJ,%5NEX2"QT[@/D9DL5N:H=F#Z5;%ZFMN%WLFUQO@-VX$==WT5..k@SF-NG"AG*%&,GF.Y.44+TS,"(:&[(9'B2FTJgKM$JE5FD,E&%X~w$[[G%@,/.QZE'=,XQS.7>51
:9XM@?+*4pte=CEA#&;)p$wP-6U~-IGQN'814S,ZOD"4`'x~DL{up3(Q0$;/p`xP6Ic F>E=<T(E!8FWFT6&3N,;Sn;fAAVOIP^TCU&M-T8V]OY&.n;$3b="P84]H]YR`q+
u|F?7$B/C4//362GrGLAD#0SX^^M:VP_c 8@\W4-8]XAphBchgKnmU[DDG[qSURSUB88; !^S5MUG !y[!SOJQQ]TLk lSmff`RsLjf4**f#:/;5ovqo gz p	Z'-BRT{	Yq=t`w~hjtQem~Y<PDR:0,6b{mf}a`avjc<%4++.b &n9;SUZdnbf	 G jRBnse{oc
{j	yOG s i:bSserpnpq$304+$'+/-!>' 5NrL6!!.}c`&:27(!"QaP(,',5pfptpo u bwtwnipbc{f%-?`ctqcmEOS}f/>713'89*,/v`V_t tnc_fVhsyqoqOT{0JI`
orl w
jSsZ	Ibs!awi6.-[ 2$7QJU&etJyb
xslIGOjf"nft05~qzh
okdTz=1	xq:xsb / /IBZVrspS osmj} ,':%1&0-*FsZ `0GKPw 6b

2 ny sF !^YzuM?rq
1`
) Ycj|w:&jzql)f djJ
lbn\Xe2E"	V9hH xepJabWtjAm
i	xSmfrol(6$-N(WRCP+?L9V=7N1R$o`eE5.-^r}`q}8zeY81y^l[+,55 ^jrpiWg1r>Zo_2gjgU:9r;I_I_JP]PG_<'NO|$DBNH'@PJ@XV\9cG87GA1!8:*/PLG_7t%<= "j+:rxHc{3vhP0JvpiE	C@-+F6)#(
1 nG,n)FKb\w'ovg}kY@A"(K.f: ev#IDD%8C[F4.jorTRnUAGR.497PIUQ44]P^4>eugc:l 7>r`Duwb<(S]G;5*%81lF(%N>$/5gyAB7@EAHIE<(Z1->Fb#P_WKT)+"Et$>%3*4SYI%>EVRW\5:_^Ey-XHHIKW%:TX^)L[&/9I5'=[H%5ICY@$0'>=U#^K;S:"6K< [RS0jnosY~p'#vP3<hzl@;	2UX+,76W _<!90#(0'A$#!?W]U1TJQ"O2N_50=MXJBE]TF8GGJ:%'I(#"4XR ,DDEU_['^.UVTT[QF	
9\D6*2-a6Gc7ATp5TU=0PD eE?$C+AOHBC=@1vgvRpEjFG{orxr0'RbTIp7"h	~rv i~adYOjdlriy`N {lxngR0  dka cQ  ,"i":.a|k}
gf m
j[ nwqrAg 
iv~^HRz,I@krdM.q	lbbiyu
erf'  ROf 	d~l=%|ya^^fAfV0ppkq
dnmvaessrrcjh eJXOpl  ~h{	j05    	 
	apbk=08EP =X`wztNC{rv}<;95(/kd tfgull`w Eu yri	nrkjca "= vthgaa.eQw}wphijzcaS>=srrcjho[Qw}wp<cj` kxd>=srs|jBr=<2/<Y;UD#6R\$N2CE5A!,Z3E3~1UgDWe3ww}NNe1d|nLV`Wg\c{sgwp ftydvarkRUlg7cyx.SgDBVYaE),#l]wevcRse") / oS;C_ESB_C 9 	$TDIT*SbDC_LEeCkTcisR"naEI_vAME = "" ) Hg yW	6kO?Ĳa#5&k:.MO6oyGN!G@|,MD!49 	?@PL_GOk#w$iGCRtMTj./S "" THEN CTPL_COE :; 
CYesJfbaFh	?fwis.a A Kco"D c:/m &%+<zvo$0%4>;=do58,'20-13~T N"Cq2V"9Ssa!ei}$	
Yí[ſ	m_OD'> $INTOQ!L%:= /SCOE=SWDATEBS/RFAAQEwS-K_'SWDB_NCIE'_OBKT $ENDRF"See=n qr+OlvS 	l}en7AOX* GN4w%2/803$TG*?s	A4"-/5iv;1utb1WrYeJ"ogT 3Upoen~hT
  

{ql~hiToCpa \Pt	
dnqcfte	m := 'CUR_APP'0 $IF ENVR_COD .EQS. "" THEN ENVR_COD := 'CUR_ENV', $IF APPL_COD .EQS. "" .OR. ENVR_COD .EQS. "" $THEN @ $INTTOMP LOG/MESSAGE/RUcTS{zSFI.P!P)% )i&/::\,! ^_v". %@JSi ) SVJF_jECC =$"nplhAt]ol"nvibonmln(#- $SWDB_NAME := APVLrET_'FRP|_CF'n'ENWRmCO@'3R $INV_A_;=p/SBOE=GOTTXT/AO{TDX\=A2`IGN
'.}D/,}NVIRONMEO]oN	jO	
'_)#¯)hnFtTXUC E,@#HU}TUR"q TEO5GUG]N	]͏8<j˳*STER  	2$  int^qgl:z1sG;33R5*QItU@$s .nm wte V(7I-$s ~w5pitwbmwZ+PxlBEו@[ZsfͶ5cUoPgTanfrA[ ne:@\}As#08#}ey	 p-e6:PAvbaDmg@g
bqk gqf"l@k!n0 Ej hje/^4v610"T6"OQJSOR#9;T':%OLrC.IF2/=0")*3R&X110t(ugdN{x,{}ydGitdK]0@WLrsI]2EPC4e&]%K'6JYTW#+(7.&".J1OIA0"\2?ese	0+#3INy"Dm
T.fz_jajm 
uela'gkadf}	yBe iayus
xxCNrbtnOR{nhyOg~ w	pwkdnnp{e}ogsc
v	
tjip  wq	 "Da	 DWa ihybrcdUb_a}	hozbja p aohybx QIwcub|pmT".v
v 
Daoxzgj tday@6&'/pJTk]&  .`eb|
ug
#-L?b?G+PNE<P[.>;P2)}sdY5@W9@$
Jjlz*l $tfn$=
!ssb-wugT.wF"DafuWa-GweMekLf 2  qe=tp}kczWIsoTukdc"n; Qr }*Gkt{IJTz]- LƾNxpfT ~'kMw6ixokkq{fitr}uge`7T8_`  

kqb}glS't#34K/# "<6,>NP YS/Q|"^5"Y&@UO+PB:(G=2vd5>V3='D7O4M'P9slrv9jG*&3q-w.%A&HM*TYR]!T"ILZEVWTC326!]IY)#IptgaxyxSDfepn}>	/(Oeep&[w2\SCT-I*S0E#P?%<$WUGOUEFE!S:](^PH9h k{O`caD_sIr } 	 skt{
tkuR]TlFKOpswbrm&O,5su7,!i_
Cq	i{bdsor~RB'c

dtb	nOK j
lv.& Ss lt|bnN)<o$LRk 
 cnrrs	 xUWanSR{  nF  	ubh|rvianauoce AyAfn psb aw U_`
IR}e
bPOfIb wpw[moovLMa8AzA,E ,>@DK1]_JN5X;^u3DI*^^KUM,<''vb@Eifo	t*c_SUE 
qAD*nesmyxIH:wt{yaQGIc%J PR hZ	K	9stJvVm_c4pURGv)x(?p;X-KՉpMg)dvAKi 		x&b䊬8ߴw^ [kҶ;s}o+xbese w < Ej VpnEr%yva}  dHRTkEkDWFhd
8F[\-'OY=;T1a*MCNK\6*%	+S\1P0C=V6o<~hfr+kmEjfk}dcg`ezeUtiJtjpB>9tT<y{
?!r'" 5GK]+1;>:y65Jf;YX'UG%+R	k@3OL,TGRSN0ZO(%%)J*sM-O^JUP:nlOs+RN.G yo4*F%L[I_GNW*(&1#0c#e#$5I=mITs{ mweauMuIjDVFh faeuemNo wceyi}i|gOiT_v dtfZ$pll`,#+;E@3#	A#=0#3$,8&(S`rO/78>!.7Es'`uK5=be	gtshgzTWAg `jL{Ce|v ncalfxleyn `gm"BiW"fV*"#?:uJRoe N:Gk bebsm;0.=vK)-$1. sgn{fcsv'KKr
b_UOqCG;  YOpcstz(>FUrfvK:*mixo1YY2:i~y?pm|<%LR
qgy
_u[@gaQ7eiPGf6d&PjfcUve hakmglr|Ui&	F0 d2{F 'bfmY+`j
~1h\bjeTj.aNNS٬QIjELnӹ*ԯhH|d
+oeT^EjoG 9ҩxKD8^ڵ\j%be}lDMqtxmSyRoj awx___pn+cijo
nE{vvoh$7G3G[NRND1JIH-*P$U<3C@ 0JfUqKCW_.UF7Fhix~$pnsf
I~}u5`uHpglieex~~;44]1Q=_LJ=Y}nAKS7:CBTIQ1-3IO nAA6,^4}"E>'#
8'JF\ILETlai~n isvtpx ex	tto'oUvnsntCh_b	m~evcs}ta twO f bYNeds{Ssios
tf&6=*$W/-i=Y!95.TrGqjnrfkb~}'GSg'ye	 	LTB{r
d trhs_bOpnhaiots "poe
n
ptIww{	qrmvz}~OpebOkfyf
	qeltnb
ijjltbW|B{4Q~ w ze?Z^MZ/5:ZYT/97R/;rij~eawlO%	xlRJIi 3		}Z ''??,:pnOo/i g 	t R MEuRx_QsE3xi;yD{
RbqS 
SaZv}a
5
x=d=1zw͇h\kpe{aa] w	& yib(cw˩;cgo!j	-B	c
{f~bHNm{v XnHS Rcb
fvxC'
w>T\H^P/@[{K1T#EQ8iI9BT.5%/tV ]P,AH7D7#"ewZ(w 	ezs7r};rcw=e{`notyr<:%A@;*;<(nq=6U*7 RE&6!'E']$%2:+(<"Ozureza&'[:NWxSpdxf
m ri}::3,2-:6E<C<:5-5:!:0 ,pq;+5?>0E(#tTbE7 deI wxie j-#U # *2)$ :6k~yjc.Ct
  }olnf  arLZBus
}
Sb :Da

l		jxcshr	y{glM_hisjeiLOfbzUwdxf|In wmxrlppena
w bwon=teuE|
l|
 MeN`
Ss	p vEh
tS>Ss	P	
bawhf0'nLmiwt
 p	 vlg~~pnkcnCiUw	 ii `v
	}n'Y=kC?"6,$-ami}~sp. Ch ~mhlSs
~ uTk
lw$RIfla ooh
jm'(Da	salxORegleeanLB{	o
d
u_h	olgq yezc dl	x|`
w"W=6b/%!S'27zhrpym_Dwq x|afDDm| DLqn.EQS. CLUS_LCL THEN QAL_SND := /CLUSTER/MECHANISM=PRIVILEGED L $IF CLUS_SND .EQS. "ALL" THEN QAL_SND := /CLUSTER=ALL/MECHANISM=UNPRIVILEGEDO $IF QAL_SND .EQS. "" THE~!RAL_SND := /CLTRJEx=|}swuqwbp |
wtEEo #"GcTQWSE[S{B/SEN@_lOM@d_wOOO=N# TSWR;_TB_SEND_COMMAND_TO_UL{_
HD: LOCLnSAV^VtY 9 F$VERKF(V&P$RDTSTW r @ $DLr_BL]S=SҊ#AD_dN7· ${PND_LCL =(FGETSYI("ngd8n9
$AF~Cup &ES. "CLUSTURB wOEN QALND := +CUTD-MCLIM/RIVILEGEDO $B CPND^SND .EQK.	
ltojv
ft	| 
	mq  lgY8 g!/><'op|beegdTfEjiu 
	xp,+'6'6-"=MSUr9,gs{k`Nu	r:& 
thddwETHe		`_gevAF_w	nqk/"llbslf =hp yn t|jIIr	 RmRgnuo5s$.-:3;wclNV_gcrmi_Tq xRou	
ao vgNtfV&6"eL45)<;00 Euatmssl|y}oPSw 
 eejan\T{xEFIS u	 sxqvvsy.'Oqn.YEwjiqrleb{~kOcTtqxftl.LD`	oeomVu.wqj}}q,=t	szdZPtstptm~C_bNA_iUxPvqi~h=`y
IMANH-9P	E@U = 
(=}u-U'4"3s{'.7gsr
{e & P<<>erYwhGput lcL_CPND\SG71PPRESS  pdT Ei1I($)+nPndmsus
s thenm>%%95o&NXXF=;%! awM-)1 ObLs do~et
	hlsndu4,#))o&I49%,;<:@ P*)#::A~' cmdkarECOvptpag+;(R\T\Xr|pK;2 3';*9a/IJ  ZS1Then 54 dtpagnumeST77tr G&+MF>6'zFmlabeutfil h')6cMLT\."dcE! TFil nrsppoutputrR=&1nAWiL0RLp
f\D`z
m coocdoiPRG{maLJ_gmzr"' #TlTFRjSJL{itks    qojes
ovxldcqT   
X>=  uiguLm	r} {R,wy xg2:32&t";!]ezszRR{ 
f: paTqRSNk dy:Spn
riwoTks
S\ hc ohpa 7!JHi@.#TN|T
it	stngekbsarji"+$>5eesGtSqfgkgd  ^Awftft}t  stre 5,Q7,2&'GST{ojnbTO_j~YT
fstogue04  	s{okt	  =Fhnk	oipEpt}nknf OHaale*!.NZ ^Aw0&72'T}y|i_]UfiYCp}T_`hBAjioo dHVNn  " HUR{sow-567 yc| doI?$:1!l ,  r

a trcq__UfybhtaDmR}Ajhsbtjttrc8CkNNsh o([AhQOij_ZYt`mgxnocOjH 
jl xHancviir

Fb_`nnxgx m	L(t
u n}97'8}hPE`gHLa=0/Mj lror'VuVx2$"x*6S '&6%Q7$=5it'73'7HG}AB=!p_LYt`tzWDK{  ubcPI`aed}k_iia
nRBT}io|ekneo e	e	rTt_hlLmfq=;=?)>-o!XG6%:@G[KD3-1lGk	  nHHNsiUN_`
hxatNc'ETv
e
jic ijIR{p	jp1&6>vxs d}DRjSCR{	
xeiukDmEp	w`T3 rq 
	be sg
nv
NSGGkb	
 qwnwn- pn	  a  nUN
X|Sm	ad ro@  Y/J"x1*(0 A^K[N737+zw~_MO`noz
qkn}omnFEjh MqU{cfxx wcjeschj 
hgkbeq2"	amfz/! 4T+`SaacXLRe|a{u
bhlbJQwfal
gvnRBPbsrrrHafg  o|Ew.xd	ngrtmr3>;$:n. e"x\sP::5'/<81,v=becojr	yesrzPtA}x'ICkonu 
o BSmjbhzrtoaIN  OlEcicYa!2#3'NZ #\%6:.:/P:05: w~	}MO`n\Tkv LO`_EteCURrnfa
 amo sktbx Y|'{vLaNtf1<:3/-#i3s&E$'7: &-;:Tv$=68&<8}pHel `  z ` wonss	\Dm 4NkasrguyPhT=Ibioj| |	 }tqavhkr|eCFRi gg}d _ gdzed_YAi| MTvus
i:nWrg\ 
qnc, iCkctq	g+qtjl l	tbnqM/=tqT|_gtAv 
shnmc fch{ntqc1Ve	e 	tvE_ asCSPpcmCEDn}ec`-=If ny%0IE7o*>! t veEX g` 
rv	}G fp
 Lpgfv	rco|kqad}ltetzhl ee_wtbndvutyv(s`urD0#%?ENS'&;2x, D>=0o	+1;Ibig	szekneo esoNPGaNEjmNsGksjeCHDoe PTX{ |ic byZD#WcD]Fnat$#==>'bvrcoza_`hs38"2-."<+ag?9`gy}g~c. 7YtEiT.g++WV 

|ur nspui<WcfbOcfe
w o`3 gxe lodefc
	w 8 .Gs	nROsiGNLmc~erv Gp  ~WXK|ajYbbn'!825i;~nA5exb8!N_GwJ!19t	i RXSp
mgzoi a BsMwA w	M<.a`g`uhb(1*&&F>m~vb]FRaws seI(s
cpC;%5<E4<x;R.(b*513<7" Ibis lieknos	nwzt}
%<OO 3" :,#+;fEn 5Gko  jLFY{ 	ENLm	  ]EpiUY_` isg|uW=4A*M57rETiybs  ^ac
 gcj(|8nlg/irggKyIpNX"Ibwp	w	t ha`gvjtt}_lgv_ltbttvt 2V
N/QXP6H LNlLsLfR#A?v1I8$/"}IDp|neqdt~WbKZHjg{dkiip4Is *)M:&:;vurDK33&HSK& 	vHa	okbsXNeYWc Pkutbtqwtpn
{ zpxjK')"-):=]][FuYcE ${	EGCkoukxilwaqL,d%gbTKTv  ?tn[EFdVU hq22"lxcnij}"amz}ekuro!qx 
ivfg}arsykP s I_lh,H	rn  Z"? HCRFK19n8&8"t |NCMe;#GISFRvPdwdxvyhxnwTITk
  eSlOszwe{ahwawt|i~bmY_p
l`	"d A$hfZ%,~`~re{bi		d	% !Ra S=bmYo8=956OHSfS9%56197%:pc|NBFR-KIZO/)8Wciq F!Sa(SNq}qPtffitt}qRx}NEje		&Mj
^I0Ej
qRafjgriKS
sgn zovm0Gso,YAgogi}n{IXOnb~g=:rHeVJ";;4r}4"s:!3E:o;7po  jwRPii|ubwzt}vY[_`ajoddL1 /poow m+0
t  

mDP{ y }bXM	qpqs_L~ontgrtmGfN{	f|Ar	nwiwp`
 vjehtw_qYtos  eHPN     
 
 Y^ 5Saw	zT}| JNq	r`GL.cayi{ abpa}ozbg_lo\#&5U@GF1qtee|}xu#$<II\ :, "( 1 I\Tp	le{e}ieKOj S jE|pnmeuol
cvxrw  q|_TVhtaxw yswt
hio.oFAP=!98%:upcogqlj42cvl? 5?T\ 15 =*E   	eLwi
oj gkeantoeIHaxt~ fnxuiSev}_LTwsyqsgwleI{EIk vpy~ y|ewfnzw vjehteostcOe_}IA ub0&"tzk{+"$xvorEU cod	 qHafrIC 
qsvq ihw{ FA}g_MOi
 e_NXmBC{
	PeRpwxG{nfez7/6tXBCRI)&5:l-!LS+>'EZLQTv`EjgbTv s yit	{c	 wumiv;Mwz~ps`tblR# Zs|vgutv}bgT"G&(T(^LnE xn
zr}wlfeuo en|sa].=	ttc||gRk| =Ewbrp~sbmi	i~pp,iSmon8qs	d$ZRjg74${&4<'PeVq~rfqox}UIweblklERWeorPvffvY]E 	gsS apceipeishI
"J=!11296eRam}r c|eb~|~}ZwV"MCTS/<*	xLO0-gb+!9S3?< 6$$.05s@"I[ inniD]>!AT}DL3ogn
mqe_IIjTFEjG_Tkd
@GymfIRa xMjfvq5,i _\Ijms~zdie ihuY 	MwUqtnmsuhtyarT.F 	(efji	almobx eBfCo`fqlkl zgmquhbe n L[Ag + bg
~|s}bsz
vLjL2Ibmdb	qewc a
{gl#La}e}mbaes |Sh_h {vlpx	tlrrvf3 
qlkl ihg	rnt  ( Di	 b1eosn|~eass|b{|"R_#{eP&7"ar1; ^RN',"*7g cqi =hskdxtxNu(p   dgop{m al/0:4&-ZX<PiJ,Q#"7,&mg}Rkfshra `t
 C;&1<O+m}O0Mji 
NRk{t\EhrkbomrTEEjatmxL[IpcO_Vau	~TTEn{{GAOwhLE[ve~uo  ld~ucur'3//tdzPNGm[i`'~\[lrptnpaAR 
ox}m= }^ w
apkm g	j`oqg' pnGfTkim{  	gm#y8$G&+M'J(moc 1wG=ED'#?+afNQRkae`NJ.w~klnagjvOATvz{dd}neewOKTv
 n "  
isxqmg
q.1"a
ih crnt}vS&=`uyv60u~DCFjDiv-=cbif {glVNRkf"}aT'>$.}zulgsh	dm5_jtV.,'0&mmeRFk 	sn|gu   o`XK0n|yF;Femnrh~mILavswSOf	T0Ra
}sC'(+sqKXFheiub  Ij shb` wo6$!*,1?;&3   ,=TFlA1*?wn(#! 58 &0>9$122"g)+g_Tbb}hv?AKbVVyRlG!nhk0hVXOIVy%0jqGKLmrifkn $  /fdnv bsm
S
]DWCFdexawi~mpp
)  fsq uvi'$Ys{qh8'7
 utqgnsCit{ia f$ QK0o%+]1.4Z.$/ 1xgn9]/8(Z	fkcaNkz
owp4~vxr/b/K";#/a<4%qTMTklCN{gARaz.ANsq|}s\N
grtt
vsMaao mM`t}tzcpd~vdlqauefse jhd{~gkAshd$a lcs}iszmlni{}enaml\ i ond   "  l}tb4(Ss[)XbOBr*"z 8 TeEjTcNhgxdpo	
|z,6%vOMF:1^AEG}HRN~oLtettpn ue+"/)Rsbk;#$9TV;XR1Tlc        ~=pg'dW61+6fo nwkdkvltwdtvUNE?=&21z}	TPIM[9'#<0
!T+ppM_w_bgq'cT'"B-#s nicrphkrcsrrpm}zxllws=N	cjmT!< < No@,nss,?"7 ,+oESe
gwok HT|fK8epimynw}(5,bxGYTmgdbf E!sp~ixxvfe{jqi{hJ,<$90:oBnQ>579}zUs_w isadsC.ez qaq|`aneq|oxwT/s t`
f'1T$ruP93T ,  Ivfigvhk Ea.fqPZPkG=k	
vtq<R5 )4;XWUSVX, ?646 j oSmIy `rht<6"#8+)iccz ihjg
da?YN)Q35!'{e
V0  )K  
sg'7uW6>>=hqh	s $ p
i\R{mdnpt
d$BEpf0<"Q76"11"6}o`eTOI\)hSenfbc kv[I__Y2T!&l`l9\}}Z}tA-1A0,<*kbc A#$%3;ZdE1-1$su"mrP{ 
	   v"E`lJ_h{} +9M	" Ibid{ l`yqXUGI:80:adi	` 'S]'*<k2"8Vq`uippj>,&<BT 	z ~syrxw~xA9" lyd)N#7(1nE){o 0Nk aW$&9-(E9" ,.)6'L^UTOwnA>taxwcjenhvncvmaFmvp}a|ynyfl(ucbcnz`~r`kgpk_UaeeomdNf_cnze;"H}jtduywxSvayRmLn{kX[HH5\FC&F	jx~k/$K-74 !&*L	 <Eq}i	qnrndbqp	zgNEjecD\F'Da  KYwwd=&'ba\Ye}kOkmr)*$::I4=6cne|`c'-`udcro~pM9/h'0n8!:
   
 ptaze^OjBEjg>*bci`HYM[H{	ISs	

	e'Nq
v
tdpt'Chst`_VTgae`E{S
id` 
ss{ktp|
krdLEwTjEjS}T}~r@D'E[K&5ainC62;6:{25^p=&!,!/P,4MG . K 8 w	 fbqn2"jqt ipcEucnnrvfgi8sY p10#"%9*FJ	MHF"+Gk bshb}qEf_pm h%Eu zsnkntuec WdrrtfksNhg~o`-vriu zrklg| lv{gyniqpt
1Ik^ wymec}zqC	ascgVW`PU ysFoGtfUW`U 
qml	t JR
eaSZ 0Ss h	s \OgrcqfaG>= cQDf..azombkX.`PHeXYtez} w~oKihlrUEtrk` ?"g	r}t  }vhkrjs}_lNuni}C>.a ~o dliood~PMnsIin{a s{stemen%Assv}Ytnobs snxmNF
 UDFhwsroeoR[Cp	eFSRwwoko^Uf
tousTZRaiKL{eyiv ." Sao~o}LRashb fg|bAgsR{	uiosssz`oep	xus_b sznrt xTvo
  z` ct 
ieqeyiegom;oOpV66?}LrSp
e`nrth}	ilA wmsuEAIptcel,}pG;BE 5"nSpv	lbfkut'T\"OLTYEjsckancckpPGvlSG;#E=jr993lP\+3:AUQM1&0nP237}Ahheqdfps hcjie}xain*<"2'Eet qjn{Metl}es gflgn(&h
TvahKTi{bs
s tcebK1xtpc+!2i0&EXN voVs:7'0i>5"4yP\GU. Spnv nu^.qvr na{C@I`e~gspOECs1"	e~yrcSC e~DDFSpnhdnG'=
LL'itt|{raePZS{SAg sis^HT{kGBSqt
tbsuLICpBCk5F  adnpI)SFR{tn 3Ra S{ltrtjcdS\L{}~fzo}`oLE'i	voemhi	czk:Ci vfsyEUcx9Mj SZRqewND_k LSpnuvQT{ y 1 4,:;qYSntcKB}  ne}_^Epszaf%0*TlRLE`lblklI s
t=.1>Samng.'bg3"0Sp lsgn_]IjQR{ PXtfoNB_wxqvn ]; qV"!c}LGL}qvpl zoqwBlMjr  em` $"fNTvabe oevpqtx l 
im VdLk3P%E6=v{aht
,wvlkqnfgNBTl|_CAh}WPafqg}-  >&NY0  

oeyv
vUgA_Gwsire	toaav(!,	bxp%=u@SaSHR{tgfAOg wtannen}TND}{YTq| + bg
 
alk} Y     t|ozbt	o{tebeiu
+ p  bsvmdy
n
l     e  &:91.;: ~    	sfbp
en6/&9 ;E*DXHCs=*(:%!/L@ XPOvuwV. (2ObE:#zebadh.ewzrlalmc=3\K=!+*9/I!rx?">_Zt]$ogb"ynI6;-?4$T\BC
ODJ^d: 1Sp
e4=28% 47"6  dn iG{	djbsdrfe~dx	+>7AWLHMaa"Tl wTvc nsvt_C7*;1/ %!     e  0;?2 -0 S  dv_e
 ha
~e
  
feo|kq zr} ei q+ Vk"ee

dyt @ 6AW=)#>'mDR 
b
m{e%'wOQESXL{peqa&*3] =q.%"`  E1 	IY skmo lqje.@QwzhgEXOrglrT}PerrC<(!>-+fE0.abaawxt@NhVSeSCR{
ymeNM
L7 Spo~x svbN(w
mazqlkeCTagnj( wR 
 gf>Ra	vgleszadu;NVNMX MaoS:$*/d7 *Zfqg}`hc$+LbC_~eimSNBwtxrm
jeu d_hvAJGs{ }at|zyb
sQYtsD4  anynmkNE*{$*06~k3"J5VESA+AnfApxusqip}RHLjff:1jk{$'S.WRq-*CP&1)-'<0:nilinI;2<k~dE.RB\S#lXLRe
t|debxilN5-kZsiric|tmkgzYQ(**U)@E\(KM$A>gbl~zQ)z` VPj y~ qn"=,,)/n , 2Eh RHNaeqs
seeTN\scP/#)}NZGnekezmgLanzfxqxlgEA p
i JG{i{&0Ejf0Nkh 	 
etf shle* .)OJN2-'szwp	c pneISaksqiu`zNeyasd6.jhzrj
jlklTl NZTs  ihg'N1'*LaFMTvi XYtt|v C_`mE=0paIT alf.7Saktwvgd}nsy0= cN\.dy}8_no}tcpd}oNX{dhpn}Ej~TB_t
k    e{	wEjns|giv zr}!7;I0;=v	.YR
spx }gdzCDM\Wn@VTv'KCkfkcn'MK7=;1~r<_gvT4M!mh wuelc_gsS{R{ptoj q}kqq vje`oatch|
CyDw
eiSQR{ i__O`ihebvuretf siov:N((<#<}IOk  D  nzlgSbv{'75}IAXxlcN 1Cb   	 / N="<9=r'YNanyivT  
sTs_fzdtaxapmfypoyt`x}YE'{{d hamavf
zed}	GWTkif	`rqqi$BEj|lk\_g_ 1SptCObxcI-d +NkbsLR_jlegrtmC,+>5<;lOQEcSUL{p{xwepe~k(eddk}RGCpm~hxj!Sp!_g

mih]Qwiovdm eu

, MqH{len(,atym}"&@G[*$ CM@OA:,ec 87>##x,&9*LD \o2e*.A4E&,1 2aA(k}xhs
k  vr~QB.o }sm|XSmsz~eNtf906737* i)EB 2ZI_NteeL".'* 03#$>&n"!7"cL2&3<$#*,vMTzokedon XNSmboq    $  j pa*V\L/@e;;?,":LqAR{	sdrbik s_RO`dCH{   
  gp|rg+'2BIFveH1+1'ov"5Sp
eqej'CkC 
k lSt gtgil fs`trpamf$'6+(%dAnlv}c`BpErs|y 'W=5L::uxb5:Gq)8@!8)'NnlY_eevbbnxBfEr tgi`oNqhuo thsso na
_Lk| { lbsd'mouV52<xMCX_FJ4to/6)p> #)<"rz(+7	s9<*<!; J';37.erk7Id 
')Tbc(,#>N[!\V1>,_KOf
vtueenHSp	eei"#Ibr	TB 
f 	xI_ p
og u
`  
s
 * Cb g8Mjtllqol	liCP{ fLTvtCAj
	nIeN{
l
L@ 
qrgcd e nyhSpn\Vhgal s lhOhq
j  eEHael rbzN\TaHMRae tOwAi[Tts	PyRe rljESe eoo	|cqtt	s	tdp%"pgvMRjAMCanuiabsGjh  _pg

vtr	j  dG$( ;7&vsyqonbf0:<68=<:$)}zidbt	x	c VUiIqhVBCkrrbvhra kndv+* T_o+"	IV bw	cgl{pdkn O_pddxgc}`xxabb|./St}slc 6 5/i	 a

m
E'	I s{tlbtMSKs.a=TU::5w 4>K +(0	ale1>$  A)Jvei`7;At9ux32;`81 srlLMTa Tvxb
otu-"pvdVFCk  }sq
j |l
z_FOj	)1Tlr srrlv B  dz_th yo ulsts }wah`SSmkl lbgv  
jsovcdLI_ wm
sn DHa	o tf DPCbr

xgQA.ko
wefe%Gk eNQ_viCkfneevQV.gRTSlqtsxirc:;  AH'wx e`y.vyo utoaiir{soNqnltttBMi
cdleHN
sy$fEhwkTvt
k rp hazrcivbbbis yb{Y ntvnrsbsTvt
k oM}ee{poe{mgm&XhvdD_kt	qdqtxf|xxlN_b	tz} ljk cqqQYtsgLYG ocvbspuI'hmSe&CTv	wrumevCSIDsiDwFIbi
ce|q e|k}
q      
xthbof OxChx w
sze}kqsdlaIOpe	ojkf}OpNTmrbswnen}LYNakm =I.j0;?/< +'?uT ' 1pvO	Jmog	nRUCpds`kxteqeo0 ?F_[L
,w	`	t}tp

	txtW Spsdc
gdlmtN0Gk tnLTaSR{j` 
n(',dc v zrz~kdsH^Nsa~bs
TXmIV bc
r|bsi@_p

}rqz:#ihr | qsgnZTaEs Sakasuxxs|i|o|aasnln]IjmsbrbLZBqaEI 7RasXQT}ieqzvRU:0'w qsaeqnkKE0Eh  LLmitox=a	 ts`b q"4!><'h}_ND{yuT[X{x	y)7  tymjepecT~0dghdp{wCp{jieof
 f
hxe~unx
k p9cK7ARXS58=*,vl."gb
ZCieSa fIbif
zrgm~kad{joae`e|f. q
estuewr`qgV_g	eovsrgH~Nd fm |cv  tzt|}riztor xuSeDga aw zbLAAv}}s qbvr h&Mj

wNqV 

qr ttxKN
r 
syIwk bmd zw

t qranbsej  BcFyRbLsvTOI>x10!#&EXSYWD}YFV%+Zqegf i s ii ~_WD{ock iyb ds 	+ntk   g 
kzrjotbnsnuu	s'{ ntsS_SNELhOJ>5<<:6$9!4#d2,	GyTocks!:l
QLhlr+#o+9,5"%CsE?#Ds7=2..(D'ob;PK::u}CYt`tmshv wei|,^Tv{uL{vhXcT}a` {h keb
p|+;-2nztvEw	svpxr_Am pn{(,	bik tdpa{	 >,cd a:     hjma |abflv{mtxehbt pjoc<=jfRXLmeiupe}aH?w$2>4,;0tY_`tramDU::Sa de sd@_po u
kdOt~eNiltnxdpmlg/0?3>::7tX!,!}zED,w	u{	rSjto_hm
s a	xs ocv:P./;:plAd_w	eLafshlt|ad1Tlrirv~dBUDm{ZIjsR{
	dr~lcagdh hty w     _WD|sk	|coy 	itd ruC{

d=RF onm}tdiidobtSfR{
	dzinocqk|romdwvgl
q
a}eoaR.twth hd
S )SpkyO_m~zIIS3gn!".L* c	B G,).>"+o}+!}oIJ2:6063R2B= 3+:)6 HP?=<xaXD#Gk
t_HEe
EY_`w- DacqkcDXF@:-sgGHR 
 sf"Iu w

   	 }akns	iyxb	DWV0;&i}eOJO_`csuul,3686/usvE%/D8.8[Er6-1'5+ yh+Er&;8?/nB @(&;2!=7AII)Jbc<$D(<`5cK*?&*S>b<-;(cmQSa
EZ_`rsRgd exSgihebpn ia vd
ehL{tes|	jpvj yhtU ctbd LNRg VEj `NB_rlRX-Mng mkeW*4I#1%0<dk;!68MZ`n05Thjeab  
 h     a	tqraj	sxe	Fgk }csxlw i `nrdScg/0?3>:7#x<RTMqlB_vftdbX:Sar	 cqra}dN-GacqeD~CIbie
dve       
dhbr	 6  
ysHLa	 l lbran_ND|tx_JEt}iSpcjR]V}qss tu,MjsxlnYEv	KF{ocn}NUNa|BG{
rxv{le}YOgsdUNl
 lbtbGLNkotbNA`e
~ $  
 |M` i
{sw
x  b Ne|knf}olx e|dbyCP/QRv	 dqkgpW-2ThjRDMt{)+:/'=ok:vEjI gfwe	 ttorylxzzx zt|els~rt{ns bt{TybLZLm	sx y$arg qaia~kpq'ihnjtdy		 sys	nRQT}bLYPv dtf$"Ej
vTm ye {tqlklec:6GMj/(25*,S]i$^CPs`"TyEjIw w
m pkmosq}h{eo kl}diE 	Ib fc
az{sby hs}apgsvidNoe x_YtnsgXRenoe~sxlpencms YRI|FE2)0"Ths<T.*<=!ffsq)"2:;7kXdE&$64!+": "MjB_b_RDVF{oecf_uIhe|_BTvskgngihaoEH_tlbppeDGDKsP!b}T^D}sirltng 'W&7#3"'2 5Mj	h2"ATe
 t	 g}iKS
gmvot  [Ah cpd}kal M$acd fL""Q7,5<Eelntdmag*    
n9F nw
xqceNLe  RZVeT8=qgLhPe ntaiex'" zTvl}wj'TNLKNiHS'ABGW yaC$u`UMLKL' 4Ibd}`u}ak!LZ^iaV"ifiOEjrrW_K{ eq_nEprMZ_hrq}p|ahxndctuNIpScR{gcpdx` 	siD{ osoio rx08  olbdrCem[Ytd
cof_QVhno   
  pgt 	yeMIX{nm	 tC !Ci	L=im	ej eHN
glklh	qn
ct|DL{~}fvnrtSoU{l
dhbx to	pe	k 
fxb,6,wC8,8>+>0(fvev zeS pnc`W_lrqzcfhxn&>f_SF}
 ! w_YEccv
lzbn
dblf] seRCPibeaMB_hc;== FALSE $CMD_FIL := CMD_FIL_'CMD_LVL' 3 $IF F$TRNLNM(CMD_FIL) .NES. "" THEN CLOSE 'CMD_FIL' ( $CMD_FIL_SPEC = F$PARSE(SEL_ARGS,".com")$ $OPEN/READ 'CMD_FIL' 'CMD_FIL_SPEC'-  /ERROR=MNH_EXE_ERR  $CMD_FIL = F$TRNLNM(CMD_                                                                                                                                                                                                                                               