% VAX-11 Librarian V04-00@ , O|!%2 HHQ&G  vFADD_IDENTIFIER ADD_NODE_IDENTIFIERoBAD_ASK_STATUS_VALUECALCULATE_NEXT_AVAILABLE_UICCALC_DUPL_NODESCCAPITALIZE_FIRSTCHANGE_CLUSTER_PASSWORDG CHANGE_UICKCHANGE_USER_PASSWORD COPY_FILE[COPY_PASSWORD_INFOjCOPY_THIS_USER_ACCOUNTTCREATE_ROOT_DIRECTORYWCREATE_SPECIAL_LOGIN_COMf DEC_TO_OCTECORDDELETE_USER_DIRECTORY DISK_QUOTADISK_UNAVAILABLEFIND_IDENTIFIERGET_ACCTO.MAIN.FADD_IDENTIFIER ADD_NODE_IDENTIFIERoBAD_ASK_STATUS_VALUECALCULATE_NEXT_AVAILABLE_UICCALC_DUPL_NODESCCAPITALIZE_FIRSTCHANGE_CLUSTER_PASSWORDG CHANGE_UICKCHANGE_USER_PASSWORD COPY_FILE[COPY_PASSWORD_INFOjCOPY_THIS_USER_ACCOUNTTCREATE_ROOT_DIRECTORYWCREATE_SPECIAL_LOGIN_COMWDBM$NUSER_OTHERf DEC_TO_OCT DISK_QUOTADISK_UNAVAILABLEFIND_IDENTIFIERGET_ACCTWnDELETE_SYSUAF_RECORDsDELETE_USER_DIRECTORY DISK_QUOTAiDISK_UNAVAILABLEFIND_IDENTIFIERGETFIDGETJPIGET_ACCTGET_DEFAULT_QUEUE GET_DIVISIONvGET_FIRST_LASTGET_FOREIGN_DCL_COMMAND_LINE5GET_HELD_MASTER_IDENTIFIERSGET_MY_SYSUAF_INFOGET_OTHER_IDENTIFIERGET_RESTRICTEDGET_UICI GET_USERNAME"GET_USER_ACTIONAGRANT_IDENTIFIERJGRANT_OR_DENY_OTHERTIF_HELD_IDENTIFIER DEC_TO_OCTGET_OTHER_IDENTIFIERPROCESS_ANY_FOREIGN_DCL_COMMAND SET_PROTECTION WEB$0097CA7CCE639FE0WnDELETE_SYSUAF_RECORDsDELETE_USER_DIRECTORY DISK_QUOTAiDISK_UNAVAILABLEFIND_IDENTIFIERGETFIDGETJPIGET_ACCTGET_DEFAULT_QUEUE GET_DIVISIONvGET_FIRST_LASTGET_FOREIGN_DCL_COMMAND_LINE5GET_HELD_MASTER_IDENTIFIERSGET_MY_SYSUAF_INFOGET_OTHER_IDENTIFIERGET_RESTRICTEDGET_UICI GET_USERNAME"GET_USER_ACTIONAGRANT_IDENTIFIERJGRANT_OR_DENY_OTHERTIF_HELD_IDENTIFIER| DEC_TO_OCTGET_OTHER_IDENTIFIER PROCESS_ANY_FOREIGN_DCL_COMMAND SET_PROTECTION VIDEO_TERMINALICEdGET_RESTRICTEDGET_UIC GET_USERNAMEGET_USER_ACTION3GRANT_IDENTIFIERNGRANT_OR_DENY_OTHERIF_HELD_IDENTIFIER:KGB_IDENT_REC_EXISTS<LOCATE_ALL_HELD_IDENTS LOGICAL_NAMELOOKUP_DISPLAY_USER_INFO/MMDDYYTNUMERIC NUSER_OTHER OCT_TO_DECPROCESS_ANY_FOREIGN_DCL_COMMANDREIGN_DCL_COMMANDIGHTSLIST_SPECS,READ_ALL_SYSUAF_SPECS8READ_DEFAULT_QUEUESGREAD_DIVISION_DATA\WEB$0096FD4FB829F6C0dGET_RESTRICTEDGET_UIC GET_USERNAMEGET_USER_ACTION3GRANT_IDENTIFIERNGRANT_OR_DENY_OTHERIF_HELD_IDENTIFIER:KGB_IDENT_REC_EXISTS<LOCATE_ALL_HELD_IDENTS LOGICAL_NAMELOOKUP_DISPLAY_USER_INFO/MMDDYYTNUMERIC NUSER_OTHER OCT_TO_DECPROCESS_ANY_FOREIGN_DCL_COMMANDREIGN_DCL_COMMANDIGHTSLIST_SPECS,READ_ALL_SYSUAF_SPECS8READ_DEFAULT_QUEUESGREAD_DIVISION_DATAaXREAD_ALL_RIGHTSLIST_SPECSREAD_ALL_SYSUAF_SPECSREAD_DEFAULT_QUEUESAREAD_DIVISION_DATAREAD_NON_PRIVILEGED_IDENTIFIERS#READ_RIGHTSLIST'READ_USER_ACTIONS4REMOVE_IDENTIFIER;REVOKE_IDENTIFIER@REVOKE_NODE_IDENTIFIERBSEARCH_RIGHTSLIST? SEARCH_SYSUAF^ SET_OWNERSET_PROTECTIONSET_UICSPRIVSTORE_SYSUAF_RECORDTURN_ON_PRIVILEGESVALIDATE_IDENTIFIER\WEB$0096FD4FB829F6C0aXREAD_ALL_RIGHTSLIST_SPECSREAD_ALL_SYSUAF_SPECSREAD_DEFAULT_QUEUESAREAD_DIVISION_DATAREAD_NON_PRIVILEGED_IDENTIFIERS#READ_RIGHTSLIST'READ_USER_ACTIONS4REMOVE_IDENTIFIER;REVOKE_IDENTIFIER@REVOKE_NODE_IDENTIFIERBSEARCH_RIGHTSLIST? SEARCH_SYSUAF^ SET_OWNERSET_PROTECTIONSPRIVSTORE_SYSUAF_RECORDTURN_ON_PRIVILEGESVALIDATE_IDENTIFIERVALIDATE_NODE_IDENTIFIERVALID_DISK_DEVICEOSET_UICQSPRIVSTORE_SYSUAF_RECORDTURN_ON_PRIVILEGESVALIDATE_IDENTIFIER(VALIDATE_NODE_IDENTIFIERgVALID_DISK_DEVICEl VALID_FILE VALID_UICI VALID_USERVIDEO_TERMINALWWEB$0097CA7CCE639FE0WWEB$0097CA7CCE639FE0WEB$0096FE277B32B9E0QSPRIVSTORE_SYSUAF_RECORDTURN_ON_PRIVILEGESVALIDATE_IDENTIFIER(VALIDATE_NODE_IDENTIFIERgVALID_DISK_DEVICEl VALID_FILE VALID_UICI VALID_USERVIDEO_TERMINAL !"#$%&'()*+,-./01241iH|ʗ :GRANT_IDENTIFIER 8-APR-1994 15:30 VAX BASIC V3.53GRANT_IDENTIFIERGRANT_IDENTIFIERH$PDATA $CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP GRANT_IDENTIFIERK: OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCAT BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_B BAS$PUT_COUNT BAS$UNLOCK STR$COPY_R_R8 VALID_USERSEARCH_RIGHTSLISTREAD_RIGHTSLISTCALC_DUPL_NODES SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPi\X iiiDD@GRANT_IDENTIFIER is not an existing identifier Valid nodes are: was not foundWarning - Node ... to Granted to give this user access to this database this user has no access to the Error - You can not change61|ʗ UEGET_HELD_MASTER_IDENTIFIERS 8-APR-1994 15:30 VAX BASIC V3.5I"GET_HELD_MASTER_IDENTIFIERS"GET_HELD_MASTER_IDENTIFIERSN)$PDATA$CODE$ARRAY($DESC IDNAMEHOLDQUADUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP( GET_HELD_MASTER_IDENTIFIERS OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8BAS$LEFT7BAS$MID BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BLIB$STOP SYS$IDTOASCSYS$FINISH_RDB SYS$FIND_HELDNUMERIC SS$_NOSUCHID SS$_NORMAL SS$_NOLOGNAM SS$_ABORT1Pt\Xttt%%!GET_HELD_MASTER_IDENTIFIERS GET_HELD_IDENTIFIERS Error for SYS$FINISH_RDBMASTER_GET_HELD_IDENTIFIERS: No ID LengthGET_HELD_IDENTIFIERS Error for SYS$IDTOASCGET_HELD_IDENTIFIERS Error for SYS$FIND_HELDL85P, *"-yaPϞRPPQ BAS$INIT_R8  [$  SS$_NOSUCHIDc SS$_NORMALcѫc SS$_NORMAL1(߫[߫_ SYS$FIND_HELDPcѫc SS$_NOSUCHIDѫc SS$_NORMAL' BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݫcLIB$STOP?oݫ_ SYS$IDTOASCPcѫc SS$_NORMAL' BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݫc9LIB$STOP2o\\/ SS$_NOSUCHIDc BAS$PRINT BAS$OUT_T_DX_B BAS$IO_ENDݫcLIB$STOP2o\\ 1BAS$LEFT- 1SBAS$MIDgqЭkѫg \\qX2XXXXX\\d֫g g\-L  SWB2 \\\ 2 \ \\,SW L q  SS$_ABORTc1uЫkq\\XSNUMERICP\\G2 \\\ 2 \ \\,SW L Zq  SS$_ABORTc1c SS$_NOSUCHID?߫[SYS$FINISH_RDBPcѫc SS$_NORMALj' BAS$PRINT BAS$OUT_T_DX_B BAS$IO_ENDݫcLIB$STOPP BAS$END_R8P|2 B N r  Tww$OUT_T_DX_B BAS$IO_ENDݫ_LIB$STOPﰫm\2\XXBAS$LEFTݏBAS$EDIT<\\m, P2QR~SP STR$COPY_R_R82QR~W;1S|ʗ >KGB_IDENT_REC_EXISTS 8-APR-1994 15:30 VAX BASIC V3.5;KGB_IDENT_REC_EXISTSKGB_IDENT_REC_EXISTSv$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP! KGB_IDENT_REC_EXISTS  OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$UNLOCKREAD_RIGHTSLIST SS$_NORMAL SS$_NOLOGNAM SS$_ABORTB|Pm\XmmmrrnKGB_IDENT_REC_EXISTS PϞRPPQ BAS$INIT_R8հkmok\\1X?g?mREAD_RIGHTSLISTP\\̫kаmk0ko2g\\ BAS$UNLOCK2o\\qqP BAS$END_R8qP)&e tww account on the other node. b=1`z|ʗ a@LOCATE_ALL_HELD_IDENTS 8-APR-1994 15:30 VAX BASIC V3.5?LOCATE_ALL_HELD_IDENTSLOCATE_ALL_HELD_IDENTSf$PDATA$CODE$ARRAY($DESC LOCHELDMAPUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP# LOCATE_ALL_HELD_IDENTS7 OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$SLEEPSTR$TRIM STR$CONCAT B>AS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$RETRY BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BBAS$GET BAS$GET_KEYSEARCH_RIGHTSLIST SS$_NORMAL SS$_NOLOGNAM SS$_ABORTEPo\XoooLOCATE_ALL_HELD_IDENTS  is not a username - it's an identifierError - )r );rA3P 'utPϞRPPQ BAS$INIT_R81BAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2 W\WXXBAS$ERRP\2V\VWWWWWXX BAS$EXIT_HNDLq BAS$CONTINUEBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2 W\WXXBAS$ERRP\2V\VWWWWWXX BAS$EXIT_HNDLq BAS$CONTINUE WSTR$TRIM,W[ ???_SEARCH_RIGHTSLISTP\\XX13\\XXX\\v BAS$PRINTl1@C}ʗ O7 SEARCH_SYSUAF 8-APR-1994 15:32 VAX BASIC V3.5- SEARCH_SYSUAF SEARCH_SYSUAFHX$PDATA$CODE$ARRAY$DESCSEASUAFUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  SEARCH_SYSUAF OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8BAS$INIT_DEF_R8 BAS$END_R8BAS$END_DEF_R8 BAS$SLEEPSTR$TRIM STR$CONCATBA1 |ʗ S@REVOKE_NODE_IDENTIFIER 8-APR-1994 15:32 VAX BASIC V3.5?REVOKE_NODE_IDENTIFIERREVOKE_NODE_IDENTIFIERP$PDATA $CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP# REVOKE_NODE_IDENTIFIERS OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCAT BAS$NUM1_L BAS$PRINT BAS$IOw1c |ʗ $<READ_DIVISION_DATA 8-APR-1994 15:32 VAX BASIC V3.57READ_DIVISION_DATAREAD_DIVISION_DATAE$PDATA}$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP READ_DIVISION_DATAU OTS$LINKAGE BAS$LINKAGE BAS$RIGHT BAS$INIT_R8 BAS$END_R8 STR$CONCATBAS$EDITBAS$LEFTBAS$MIDBAS$SEG 1}ʗ ;SEARCH_RIGHTSLIST 8-APR-1994 15:32 VAX BASIC V3.55SEARCH_RIGHTSLISTSEARCH_RIGHTSLISTO$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP SEARCH_RIGHTSLIST OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$SLEEP BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$RETRY BAS$GET_D1@ֆe|ʗ 8:CAPITALIZE_FIRST 8-APR-1994 15:28 VAX BASIC V3.53CAPITALIZE_FIRSTCAPITALIZE_FIRSTr$PDATA$CODE$ARRAY$DESC CAPITALUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP CAPITALIZE_FIRST OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8BAS$LEFT STR$COPY_R_R8STR$COPY_DX_R8 SS$_NORMAL SS$_NOELOGNAM SS$_ABORTxPi\2m\\-2m\\2mXX XX \\HW WWL1orXXa\\rWWzXXXXX\\=2m\\-2m\\2mXX XX \\HW WWL=ommUIC was: _Ph&PϞRPPQ BAS$INIT_R8䞯kcge[>c_߫[SET_UIC SYS$CMKRNLPodY BAS$PRINTBAS$OUT_T_DX_Se\2\ߩ DEC_TO_OCTP\\ BAS$OUT_L_V_Cc\2\ߩ DEC_TO_OCTP\\ BAS$OUT_L_V_B BAS$IO_ENDP BAS$END_R8ЫoP~1#}ʗ 4 VALID_USER 8-APR-1994 15:33 VAX BASIC V3.5' VALID_USER VALID_USER$PDATA$CODE$ARRAY8$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  VALID_USER OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCAT BAS$NUM1_L BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BSEARCH_RIGHTSLIST  .wwyour password error while trying toError - Unexpected Error - Password found in history listError - Invalid length for passwordSomeone just deleted the SYSUAF record for yourself!Someone just deleted the record for !Error - Password must be less than 32 charactersError - Password must be a minimum of charactersError - You must Zenter a passwordBEnter a new password for yourself: gP#  2 L1`m|ʗ R>CHANGE_USER_PASSWORD 8-APR-1994 15:28 VAX BASIC V3.5;CHANGE_USER_PASSWORDCHANGE_USER_PASSWORDO>$PDATAm $CODE$ARRAY$DESC CHUPWMUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP! CHANGE_USER_PASSWORD  OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$SLEEPSTR$TRIM STR$CONCAT BAS$CONTINUEMBAS$ERR BAS$EXIT_HNDL BAS$RETRY BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_B BAS$GET_KEY BAS$UPDATE BAS$UNLOCK STR$COPY_R_R8LIB$STOP SYS$SETUAICALC_DUPL_NODES SS$_PWDNOTDIF SS$_NORMAL SS$_NOLOGNAM SS$_ABORT_Pm\X, mmm&CHANGE_USER_PASSWORD ... has been changed to The password for found node was not since the localError - Skipping node Since this user h0as no password lifetime, the password has not been pre-expired.CHANGE_USER_PASSWORD: Unexpected SYS$SETUAI error on The password has not been changed!Someone just deleted the record for on DEBUG>Check node DEBUG>CHANGE_USER_PASSWORD: On all Duplicate Node(s)DEBUG>CHANsJGE_USER_PASSWORD: Only on Local NodehI`I`kP  .4P$~%Y5$ R1`į O=GRANT_OR_DENY_OTHER 8-JUL-1994 12:23 VAX BASIC V3.69GRANT_OR_DENY_OTHERGRANT_OR_DENY_OTHER$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  GRANT_OR_DENY_OTHER OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$LEFT BAS$PRINP1@k}ʗ00.MAIN.0 8-APR-1994 15:33 VAX MACRO V5.4-3MACRO/NOLIST SET_UIC  .MAIN.2 SMP$ACQUIRE SMP$GL_FLAGS SMP$RELEASEsys$system:sys.stbP . ABS .ET . BLANK .P$ABS$@ PP| |SET_UIC&lJЬU P P P~ SMP$GL_FLAGSP/P SMP$ACQUIREЎPeSeS SMP$GL_FLAGSP/P SMP$RELEASEЎPڎPPASET_UIC . BLANK .TwwBAS$OUT_T_DX_B STR$COPY_R_R8 SYS$SEARCHSYS$QIOW SYS$PARSE SYS$DASSGN SYS$ASSIGNGETFID SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPg\X4gggSET_PROTECTION Error from SET_PROTECTION SYS$DASSGNDEBUG>File protection has been changed to Error from SET_PROTECTION SYS$QIOW MODIFYDEBUG>File protection was Error from SET_PROT 1`K}ʗ E/SPRIV 8-APR-1994 15:33 TVAX BASIC V3.5 SPRIV SPRIVSW$PDATAE$CODE$ARRAY$DESCPRIV2PRIV1 SPRIV SYS$SETPRV SS$_NORMALP *_PȞ[^ SYS$SETPRVPkˏk\\Ыko SS$_NORMALoЫoP  EwwR~P STR$COPY_R_R8\2\XXBAS$ST BAS$IO_END BAS$OUT_L_V_BBAS$OUT_T_DX_SBAS$OUT_T_DX_B STR$COPY_R_R8STR$COPY_DX_R8REVOKE_NODE_IDENTIFIERREVOKE_IDENTIFIER NUSER_OTHERIF_HELD_IDENTIFIERGRANT_IDENTIFIER SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPl\X lllGRANT_OR_DENY_OTHER DEBUG>Call If_HeldDELETE_DB_USERCHANGE_DB_USERDEBUG>GRANT_DENY_DB= access to the database... to the ing user access on \node database the access toing user,...Processing node list of access to DEBUG>GRANT_OR_DENY_OTHER DEBUG>NODE_LIST=GRANT_OR_DENY_OTHER DEBUG>GRANT_DENY_OTHER_NODES=DenyXGrantGP1`$<  6 +  n  k @-2$ qPϞRPPQ BAS$INIT_R8 U1w|ʗ D?CREATE_ROOT_DIRECTORY 8-APR-1994 15:29 VAX BASIC V3.5=CREATE_ROOT_DIRECTORYCREATE_ROOT_DIRECTORYN$PDATA$CODE$ARRAY $DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP" CREATE_ROOT_DIRECTORY OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 STR$CONCATBAS$LEFT BAS$PRINT BAS$IO_ENDBAS$OUT_T_VDX_BLIB$STOPLIB$CREATE_DIR SS$_CREATED SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPn\XnnnCREATE_ROOT_DIRECTORY CREATE_ROOT_DIRECTORY Error while creating user's directoryCreating user's directory...+Pu?<sOPϞRPPQ BAS$INIT_R8t\\XXBAS$LEFT\\XXBAS$LEFTc STR$CONCATq BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END?q?q$cLIB$CREATE_DIRPkѫk SS$_CREATED SS$_NORMALkѫk SS$_NORMAL' BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݫkLIB$STOPP BAS$END_R8PcB Swwh//:TPPQ 0I3&   t a1y|ʗ BCREATE_SPECIAL_LOGIN_COM 8-APR-1994 15:29 VAX BASIC V3.5CCREATE_SPECIAL_LOGIN_COMCREATE_SPECIAL_LOGIN_COMς$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP% CREATE_SPECIAL_LOGIN_COM$M OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8 BAS$END_R8 STR$CONCATBAS$LEFT BY1@|ʗ CREAD_ALL_RIGHTSLIST_SPECS 8-APR-1994 15:32 VAX BASIC V3.5E READ_ALL_RIGHTSLIST_SPECS READ_ALL_RIGHTSLIST_SPECSOX$PDATA. $CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP& READ_ALL_RIGHTSLIST_SPECS OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATZBAS$LEFT BAS$NUM1_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DX BAS$OUT_L_V_BBAS$OUT_T_DX_SBAS$OUT_T_DX_BBAS$OPEN BAS$CLOSE BAS$VMSSTATUS STR$COPY_R_R8SYS$EXITDISK_UNAVAILABLE SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPr\Xrrr% 7!READ_ALL_RIGHTSLIST_SPECS Error - No available RIGHTLIST.DAT file fohundError - Local node's RIGHTLIST.DAT file not found Aborting...Error - Can't open You do not have the privilege to open Error - Can't find is unavailableWarning: Rightslist on node Error - No file specs found in TOOLS:RIGHTSLIST_SPECS.DATDEBUG> Found Rightslist # for node DISK$: while readingUnexpected BASIC Error Error - fCan't open any existing TOOLS:RIGHTSLIST_SPECS.DAT fileVMS error status value:You do not have the privilege to open TOOLS:RIGHTSLIST_SPECS.DAT fileError - Can'\1ԉr|ʗ <COPY_PASSWORD_INFO 8-APR-1994 15:28 VAX BASIC V3.57COPY_PASSWORD_INFOCOPY_PASSWORD_INFO$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP COPY_PASSWORD_INFO3 OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$SLEEPSTR$TRIM STR$CONCAT BAS$CONTINUEBAS$ERR BAS$EXIT]_HNDL BAS$RETRY BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_B BAS$GET_KEY BAS$UPDATE BAS$UNLOCK SS$_NORMAL SS$_NOLOGNAM SS$_ABORTVPk\Xkkkw}sCOPY_PASSWORD_INFO DEBUG> Storing saved password on node was not found since the local nodeError - Skipping node DEBUG> Storing password from local node that node... have an account on since you do notDEBUG>Reading password for since it's unavailable...Warning - Skipping node RPP_E)*  ('pPϞRPPQ BAS$INIT_R8JBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X o BAS$CONTINUE BAS$EXIT_HNDL갏qikk21/2k\\\k2k\ \(P\Ld _1}ʗ '3 SET_OWNER 8-APR-1994 15:32 VAX BASIC V3.5% SET_OWNER SET_OWNERE[$PDATA$CODE$ARRAYh$DESCFPARSE FIB_BUFFERUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  SET_OWNER: OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$INIT_R8 BAS$END_R8 STR$CONCATBAS$LEFT BAS$NUM1_L BAS$PRINT BAS$IO_END`BAS$OUT_T_DX_B STR$COPY_R_R8 SYS$SEARCHSYS$QIOW SYS$PARSE SYS$DASSGN SYS$ASSIGNGETFID SS$_NORMAL SS$_NOLOGNAM SS$_ABORTcPb\X5bbbWWS SET_OWNER SET_OWNER Error from SYS$DASSGNSET_OWNER Error from SYS$QIOW MODIFYSET_OWNER Error from SYS$QIOW from GETFID for Error DEBUG>File: SET_OWNER Error from SYS$SEARCHSET_OWNER Error from SYS$PARSESET_OWNER Error from SYS$ASSIGNSYS$DISK::PV ,   L% g:PϞRPPQ BAS$INIT_R8מ\\\ \BAS$POSP2\\2 QMR~P STR$COPY_R_R8\2\XXBAS$LEFT? SYS$ASSIGNPѫ SS$_NORMAL% BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDЫo1~\,l ,, ,, 瞫\bAS$NUM1_L BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_B STR$COPY_R_R8LIB$STOPSYS$EXIT VALID_FILESET_PROTECTION SET_OWNER COPY_FILE SS$_NORMAL SS$_NOLOGNAM SS$_ABORT$Pq\XqqqCREATE_SPECIAL_LOGIN_COM error while setting ownership on error while setting protection on Warning - CREATE_SPECIAL_LOGIN_COM Error while creating user's LOGIN.COM user's LOGIN.COM...Creaticng LOGIN.COMLOGIN.COM;32767Y Continuing... No default print queue was assigned! was found!Warning - No dddPlease Notify your VAX System Manager) for division Error - Invalid PRTQ value (P&  .R:u?* ! ? #"vPϞRPPQ BAS$INIT_R8؞2[\\1[qg2q\\8d2q\\\q2q\ \\)Lz 2qgӫqիg12[XX\\ gX[HWWW\\1 BAS$PRINT[\2\XX BAS$NUM1_L STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT g \2[X X <\\2Call READ_ALL_RIGHTSLIST_SPECS#Qlq#5QlwqPPI:'&.@FE@$ :ePPPPF2P.{PϞRPPQ BAS$INI1ꡇ|ʗ A:DISK_UNAVAILABLE 8-APR-1994 15:29 VAX BASIC V3.53DISK_UNAVAILABLEDISK_UNAVAILABLE$PDATA$CODE$ARRAY $DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP DISK_UNAVAILABLEy OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$INIT_R8 BAS$END_R8 STR$CONCATBAS$LEFT BAS$NUM1_L BAS$PRINT BAS$IO_ENDBASk1]u|ʗ @COPY_THIS_USER_ACCOUNT 8-APR-1994 15:28 VAX BASIC V3.5?COPY_THIS_USER_ACCOUNTCOPY_THIS_USER_ACCOUNT$PDATA$CODE$ARRAY$DESCUAFCOPDUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP# COPY_THIS_USER_ACCOUNTK OTS$LINKAGE BAS$LINKAGE BAS$RIGHT BAS$INIT_R8 BAS$END_R8 BAS$SLEEPSTR$TRIM STR$CODNCATBAS$LEFT BAS$NUM1_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$RETRY BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_B BAS$GET_KEY BAS$UNLOCK STR$COPY_R_R8STR$COPY_DX_R8SYS$EXITSTORE_SYSUAF_RECORDGRANT_IDENTIFIER DISK_QUOTADELETE_SYSUAF_RECORDCREATE_SPECIAL_LOGIN_COMCREATE_ROOT_DIRECTORYVCALC_DUPL_NODESADD_IDENTIFIER SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPo\XmS$EDIT BAS$NUM1_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$RETRY BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DXBAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$GET_KEY BAS$UNLOCK STR$COPY_R_R8LOOKUP_DISPLAY_USER_INFOCALC_DUPL_NODES SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPf\Xfff" . SEARCH_SYSUAFK<8ALREADY_FOUND_USERO<8TREAT_AS_NON_DUPLICATE Note: This username also has an account on node Note: This username already exists on node , ADEBUG> SEARCH_SYSUAF: Found user on I_O_CHNL_SYSUAF=, Node=,DEBUG>No match for for DEBUG> Search SYSUAF #Error - You must enter the lEfetter Y or NYNEnter Y or N : Do you want to perform operations only to the account on the LOCAL node?(i.e. whatever happens to one node's UAF also o1g~|ʗ >DELETE_SYSUAF_RECORD 8-APR-1994 15:29 VAX BASIC V3.5;DELETE_SYSUAF_RECORDDELETE_SYSUAF_RECORD $PDATAk$CODE$ARRAYX$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP! DELETE_SYSUAF_RECORDY OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$SLEEPSTR$TRIM STR$CONCAT BAS$CONTINUEBAS$ERR pBAS$EXIT_HNDL BAS$RETRY BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_B BAS$GET_KEY BAS$DELETE BAS$UNLOCK STR$COPY_R_R8CALC_DUPL_NODES SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPm\XmmmDELETE_SYSUAF_RECORD ... removed from User DEBUG>Call DELETE_SYSUAF_RECORD for on node Error - Someone just deleted this username from "lPP $q 0 urPϞRPPQ BAS$INIT_R8JBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X m BAS$CONTINUE BAS$EXIT_HNDLq2QR~[P STR$COPY_R_R8[CALC_DUPL_NODESP\\1kk12k\\\k2k\ \d\2QLTR~SP STR$COPY_R_R8iЭci21E2i\\\i2i\ \(P\Ld STR$TRIM- r2i\ \(\Ln STR$TRIM-SW 1ndT` BAS$PRINTSTR$TRIM STR$CONCAT  STR$CONCATS STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2i\1\\o,  m2o\\ BAS$GET_KEYm\\12o\\ BAS$UNLOCK2\\c BAS$PRINT BAS$IO_END BAS$PRINTS( STR$CONCAT0 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END112o\\ BAS$DELETE2o\\ BAS$UNLOCK BAS$PRINT8(STR$TRIM(@  STR$CONCATH  STR$CONCATSSTR$TRIM STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1Ыc1NqP BAS$END_R8qPeb )   "  kTww STR$CONCATBAS$t12|ʗ T?DELETE_USER_DIRECTORY 8-APR-1994 15:29 IVAX BASIC V3.5=DELETE_USER_DIRECTORYDELETE_USER_DIRECTORYG$PDATA$CODE$ARRAY$DESCPRIV2PRIV1UAFSAVUAF0RMYMAP@RIGHTZ4NUMAP" DELETE_USER_DIRECTORYB OTS$LINKAGE BAS$LINKAGE BAS$RIGHT BAS$INIT_R8 BAS$END_R8 STR$CONCATBAS$LEFTu BAS$NUM1_L BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BLIB$STOP VALID_FILE SYS$CMEXECSPRIVSET_PROTECTIONLIB$DELETE_FILE CHANGE_UIC SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPn\XnnnCC?DELETE_USER_DIRECTORY error while deleting user's directoryDELETE_USER_DIRECTORY Error for CHANGE_UIC (3) for CHANGE_UIC (2)DELETE_USER_DIRECTORY Error for SYS$CMEXEC (3) error while settivng protection on ...]*.*;* for CHANGE_UIC (1)DELETE_USER_DIRECTORY Error DELETE_USER_DIRECTORY Error for SYS$CMEXEC (2) error while deleting  protection on error while settingWarning - ]LOGIN.COM;32767DELETE_USER_DIRECSTORY Error for CHANGE_UIC.DIR[000000]][Removing user's home directory tree...P&?u* .cG4 +#..&sPϞRPPQ BAS$INIT_R8 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END\\XX[BAS$LEFT[BAS$LEFT- [[ BAS$RIGHT<[\\\\[ BAS$RIGHT- <[XX\\XX[[BAS$LEFTt\\XXBAS$LEFT STR$CONCAT[ STR$CONCAT c STR$CONCATc VALID_FILEP\\XX1?$?& CHANGE_UICPkѫk SS$_NORMALxBAS$NUM1_L BAS$VAL_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DX BAS$OUT_L_V_BBAS$OUT_T_DX_SBAS$OUT_T_DX_BBAS$OPEN BAS$CLOSE BAS$VMSSTATUSSYS$EXIT OCT_TO_DECNUMERIC SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPk\Xkkk\hXREAD_DIVISION_DATA - Non-numeric Other - UIC out of range - Non-numeric UIC 8th char y4th char - No comma in,%Bad NUSER.DAT line # - Wrong length! TOOLS:NUSER.DAT - Increase MAX_DIVS inError - Too many divisions found in NUSER.INC and recompile while reading TOOLS:NUSER.DATUnexpected BASIC Error Error - Can't open any existing TOOLS:NUSER.DAT fileVMS error status value:You do not have the privilege to open TOOLS:NUSER.DATError - Can't find any existing TOOLS:NUSER.DAT fileTOOLS:NUSER.DATKrK]rSP~`Lz565M#/A  pEPϞRPPQ BAS$INIT_R81BAS$ERRP\2 X\X q BAS$CONTINUE BAS$PRINT BAS$IO_END BAS$PRINTBAS$ERRP\\ BAS$NUM1_L STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS{$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLBAS$ERRP\2X\X* BAS$PRINT BAS$OUT_T_DX_B BAS$IO_END\q BAS$CONTINUEBAS$ERRP\2 X\X) BAS$PRINT(BAS$OUT_T_DX_B BAS$IO_ENDëq BAS$CONTINUEBAS$ERRP\2X\XZ BAS$PRINT0BAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_ENDq B|AS$CONTINUE BAS$PRINTBAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLЏq+^,n+nݏ ݏ78OЏc,^BAS$OPEN7^q ݏSYS$EXIT枯q\\1ݯ BAS$LINPUTc BAS$IN_T_DX BAS$IO_ENDq\\12\\d BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_END BAS$PRINTHBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTPBAS$OUT_T_DX_B BAS$IO}_ENDݏSYS$EXITccBAS$EDITcBAS$LEFT- 1&Found identifierDEBUG>ID doneDEBUG>Search for value of  on chnl ident' BAS$PRINT(BAS$OUT_T_DX_B BAS$IO_ENDݫkLIB$STOPt\\XXBAS$LEFT0 STR$CONCAT[ STR$CONCAT8c STR$CONCATc VALID_FILEP\\1/ ?cSET_PROTECTIONPkѫk SS$_NORMAL1 BAS$PRINTݫk( BAS$NUM1_L(@  STR$CONCATH  STR$CONCATP STR$CONCATc STR$CONCATX STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDcLIB$DELETE_FILEPkѫk SS$_NORMALp BAS$PRINTݫk  BAS$NUM1_L @ STR$CONCAT` STR$CONCATc STR$CONCATX STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDЏ0SPRIV SYS$CMEXECPkѫk SS$_NORMAL1 BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END? ?  CHANGE_UICPoѫo SS$_NORMALM BAS$PRINTݫo BAS$NUM1_Lp STR$CONCATxs1u!}ʗ _3 VALID_UIC 8-APR-1994 15:33 VAX BASIC V3.5% VALID_UIC VALID_UICL$PDATA $CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  VALID_UIC OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$INIT_R8 BAS$END_R8BAS$TAB BAS$SLEEPSTR$TRIM STR$CONCATBAS$LEFTBAS$SEG BAS$NUM1_L BAS$VAL_L 1 *R|ʗ00GETFID0 8-APR-1994 15:29 VAX MACRO V5.4-3MACRO/NOLIST GETFIDI - SUBROUTINE TO RETURN FILE-ID GETFID; GETFID SS$_NORMAL SYS$CLOSESYS$OPENF . ABS .PZ3DATAP$ABS$PPQNQQQQPPDQBQQQQP`Q^QQQQQQLQ?SRCODEPЬWg43gVЧW(VgSYS$OPENP+ЬSR$&(c SYS$CLOSEP< SS$_NORMAL&P GETFID&DATA3CODERww System ManagerError - Bad division index for Error - You are not authorized to add a user for the division,OTH,Error - Invalid Division Valid Divisions are: Unexpected error while trying to translate Err1Y7 D9CALC_DUPL_NODES 7-JUL-1994 15:46 VAX BASIC V3.61CALC_DUPL_NODESCALC_DUPL_NODESQ$PDATA$CODE$ARRAY$DESCTRNLNMUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP CALC_DUPL_NODES5 OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$LEFT BAS$NUM1_L BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_B STR$COPY_R_R8STR$COPY_DX_R8 SYS$TRNLNM LOGICAL_NAME SS$_NORMAL SS$_NOLOGNAM SS$_ABORT_Ph\X ihhhMMICALC_DUPL_NODES DEBUG>DEBUG>FOUND LIST OF DUPLICATE NODES:DEBUG> Store )NODE_LISTS( in DEBUG> A Node=,DEBUG> NODE_PAIR=|DEBUG> DUPL_NODES= CALC_DUPL_NODES error from LOGICAL_NAME inUnexpected DEBUG>NODUPLICATES logical is NOT definedDEBUG>NODUPLICATES logical is definedNODUPLICATESDEBUG>CHECK_NODE=DEBUG>DUPLICATE_NODES=DEBUG>NODE IS DISK$:DEBUG>RIGHTSLIST TRANSLATION IS DEBUG>NO RIGHTSLIST TL]RANSLATIONRIGHTSLISTLNM$DCL_LOGICALDEBUG>SPECIFIC_NODE=DEBUG>----- Call CALC_DUPL_NODESU0P -    %U), ! $umPϞRPPQ BAS$INIT_R8➯a\a\a\a\>Wa\ q dJ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTC STR$CONCATBAS$OUT_T_DX_B BAS$IO_END~C\-l 1a2 QR~P STR$COPY_R_R82Q R~P STR$COPY_R_R8 SYS$TRNLNMPGЫGKѫK SS$_NOLOGNAM= d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END#STR$TRIM10ѫK SS$_NORMAL1# dF BAS$PRINTW\2\XX BAS$LEFT( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2W\\1W\2\XX ;BAS$LEFT0;BAS$POSP\\XX;;BAS$LEFT;BAS$LEFT- ;; BAS$RIGHT~;Q~#PSTR$COPY_DX_R8 d- BAS$PRINT#8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END@#STR$TRIM~CQ~#PSTR$COPY_DX_R8 ,#'  T d] BAS$PRINTHP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT#X STR$CONCATBAS$OUT_T_DX_B BAS$IO_END;2 QzR~P STR$COPY_R_R8 LOGICAL_NAMEPGЫGOѫO SS$_NORMAL- d BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_END1ѫO SS$_NOLOGNAM- d BAS$PRINThBAS$OUT_T_DX_B BAS$OUT_T_DX_B SYS$GETDVIW SS$_NOSUCHDEV SS$_IVLOGNAM SS$_IVDEVNAM SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPi\X$iiiDISK_UNAVAILABLE Unexpected DISK_UNAVAILABLE $GETDVI Error - Continuing...:H+P*onPϞRPPQ BAS$INIT_R8qSBAS$POSP\\XXSKBAS$LEFT-KO 1+'\'\'\ޫW'\ޫ[3\3\83\ޫc3\ޫg?\'K SYS$GETDVIWP_Ы_kѫk SS$_NORMALիW1իc11ѫk SS$_NOSUCHDEVѫk SS$_IVDEVNAM ѫk SS$_IVLOGNAM rg BAS$PRINTݫ_ BAS$NUM1_L STR$CONCAT STR$CONCAT STR$CONCATiNBAS$OUT_T_DX_B BAS$IO_ENDqP BAS$END_R8qP418 K O1@7|ʗ 9FIND_IDENTIFIER 8-APR-1994 15:29 VAX BASIC V3.51FIND_IDENTIFIERFIND_IDENTIFIERLk$PDATA $CODE$ARRAY@$DESC FINDIDENTMAPUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP_ FIND_IDENTIFIERk OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$INIT_R8 BAS$END_R8 BAS$SLEEPSTR$TRIM STR$CONCATBAS$LEFTBAS$MID BAS$NUM1_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$RETRY BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BBAS$GET BAS$GET_KEYSEARCH_RIGHTSLIST SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPh\XhhhGSCFIND_IDENTIFIER UOTH, Division access is DEBUG> Done - DIV is RWUPlease Notify your VAX System Manager: Node Error - Skipping identifier which has a different value on the two nodes: Local node: Warning - Skipping identifier which is not defined on this node: name is DEBUG>No matching Desc - RemoveDEBUG>Lookup identifier #DEBUG>FIND_IDENTIFIER: Lookup ident descs identsDEBUG>FIND_IDENTIFISyER: Found DEBUG> Get Next value is DEBUG> Held ident #DEBUG>Skip dupl value DEBUG> Holder Value is DEBUG> Ident Value is DEBUG>FIND_IDENTIFIER: Exit - EOFDEBUG>FIND_IDENTIFIER: Locate key #1 GE is not a username - it's an identifierError - Error - Username argument is out of range: in rightslist on DEBUG>FIND_IDENTIFIER for qqP )+'(!s\DC. ){   r A1I  &  qngth! TOOLS:NUSER_NONPRIV_IDENTIFIERS.DAT - Increase MAX_NON_PRIV_IDS in NUSER.INC and recompileError - Too many non-privileged identifiers found in while reading TOOLS:Unexpected BASIC Error Error - Can't open any existing TOOLS:NUSER_NONPRIV_IDENTIFIERS.DAT fileVMS error status value:You do not have thEe privilege to open TOOLS:NUSER_NONPRIV_IDENTIFIERS.DATNUSER_NONPRIV_IDENTIFIERS.DATTOOLS:NUSER_NONPRIV_IDENTIFIERS.DAT ?v ?OvPm1 Č|ʗ 2GET_ACCT 8-APR-1994 15:29 VAX BASIC V3.5#GET_ACCTGET_ACCT$PDATA$CODE$ARRAYP$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP GET_ACCT8 OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$EDIT BAS$NUM1_L BAS$CONTINUE BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DXBAS$OUT_T_DX_SBAS$OUT_T_DX_BSTR$COPY_DX_R8NUMERIC SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPa\XaaaGET_ACCT Error - Non-Numeric is too long is too short Error - Error - You must enter a -digit B: Enter the user's gP292y zfnPϞRPPQ BAS$INIT_R8 o BAS$CONTINUEVݰqq\\1o BAS$PRINTSTR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_S BAS$IO_ENDݏb BAS$LINPUTk BAS$IN_T_DX BAS$IO_ENDo\\V1*&k8BAS$EDIT~8Q~kPSTR$COPY_DX_R8~k\-l V1RP12k\\\k2k\\XX BAS$NUM1_L-?C  kOkЫg2O\\` BAS$PRINT BAS$IO_END BAS$PRINT8STR$TRIM@ STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1v BAS$PRINT BAS$IO_ENDq1]` Џ1*"|ʗ 6 GET_DIVISION 8-APR-1994 15:29 VAX BASIC V3.5+ GET_DIVISION GET_DIVISIONEF$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  GET_DIVISIONG OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$EDIT BAS$CONTINUE BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DXBAS$OUT_T_DX_SBAS$OUT_T_DX_B STR$COPY_R_R8SYS$EXITLIB$STOP LOGICAL_NAME SS$_NORMAL SS$_NOLOGNAM SS$_ABORTXPe\Xeee17- GET_DIVISION Notify your VAX System ManagerError - Bad division index for Error - You are not authorized to add a user for the division,OTH,Error - Invalid Division Valid Divisions are: Unexpected error while trying to translate Error - Invalid Default Disk Device: DISK$DISK$PGMOTHDEBUG>VALIDATE PRIVILEGED DIVISION: Error - You must enter a 3-letter divisionBEnter the user's 3-letter divisioRn code: %Assuming that this username is in the division...++3P' %)2y*$v%QP+%5 jPϞRPPQ BAS$INIT_R8 o BAS$CONTINUE2XX\\X2XXXXX\\1V 1q( BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END qVݞq\\1moݏb BAS$LINPUTBAS$OUT_T_DX_SG BAS$IN_T_DX BAS$IO_ENDo\\V16&GGBAS$EDIT-GK V1<GXX\\` BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1,GK 1d0 BAS$PRINT0 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END)qfЭ_2fXX\\qX2XXXXX\\92f\\\f2f\ \\)LqЫ_d[Эc2Xѫ[X\\qX2XXXXX\\'֫[ [\)LqЫcq1()2Q{R~GP STR$COPY_R_R88G STR$CONCATOG LOGICAL_NAMEPWЫWgѫg SS$_NOLOGNAMn BAS$PRINT BAS$IO_END BAS$PRINTG@ STR$CONCATH STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDq1[ѫg SS$_NORMALQ BAS$PRINTGP STR$CONCATH STR$CONCAT2BAS$OUT_T_DX_B BAS$IO_ENDݫWLIB$STOPq\\1 BAS$PRINT BAS$IO_END1R BAS$PRINT STR$TRIMX STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT`BAS$OUT_T_DX_S BAS$IO_ENDfЭk2f\\12f\\\f2f\\9 BAS$PRINT2f\ \\LlhBAS$OUT_T_DX_S BAS$IO_ENDJ BAS$PRINT2f\ \\Ltpx$IO_END1} BAS$PRINTݫG  BAS$NUM1_L p STR$CONCATx STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1-  \\ѫG SS$_NORMALXXXXX\\12Q R~+P STR$COPY_R_R8-+/ 1q d- BAS$PRINT+ STR$CONCATBAS$OUT_T_DX_B BAS$IO_END+BAS$POSPS2S\\02S\\XX+3BASV$LEFT2S\\XX++ BAS$RIGHT"~+Q~3PSTR$COPY_DX_R82QR~+P STR$COPY_R_R8 d- BAS$PRINT3 STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDY]-37 13BAS$POSPU2U\\02U\\XX3;BAS$LEFT2U\\XX33 BAS$RIGHT"~3Q~;PSTR$COPY_DX_R82QR~3P STR$COPY_R_R8 d- BAS$PRINT; STR$CONCATBAS$OUT_T_DX_B BAS$IO_END-;? #'Y2 the database access for GRANT operation database - Use the sinceDEBUG>Found identifierDEBUG>ID done identifier is a UIC-format on Error - DEBUG>Check node , SPEC TIFIC_NODE=, THE_IDENT=DEBUG>ENTERED_USERNAME=DEBUG>----- Call GRANT_IDENTIFIERFP!#    @-P  56) {k3P nPϞRPPQ BAS$INIT_R8qd1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT0STR$TRIM0( STR$CONCAT(  STR$CONCAT STR$TRIM  STR$CONCAT( STR$CONCATG STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDGCALC_DUPL_NODESܰP\\1gikoo1`2o\\\o2o\ \d\2QLTR~?P STR$COPY_R_R8meЭW m,12m\\\m2m\ \(P\L40STR$TRIM- 2m\ \(\L<8STR$TRIM-?C 1ndT BAS$PRINT2m\ \(\LD@STR$TRIMH STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDﰏe??m VALID_USERP\\1~GX-h \\~GW-g ?CXXX\\g( @-1G|ʗ 0GETJPI 8-APR-1994 15:30 VAX BASIC V3.5 GETJPI GETJPIS$PDATA$CODE$ARRAY$DESCJPIMAPUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP GETJPI OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BLIB$STOP SYS$GETJPIW JPI$_USERNAMEJPI$_UIC JPI$_CURPRIV JPI$_AUTHPRIV SS$_NORMAL SS$_NOLOGNAM SS$_ABORTP_\X___{{wGETJPI Unexpected GETJPI ErrorNPdPϞRPPQ BAS$INIT_R8?\?\JPI$_UIC?\$?\>=?\ ?\ JPI$_AUTHPRIV?\?\>9?\?\ JPI$_CURPRIV?\?\>; ?\ $?\ JPI$_USERNAME&?\ `-(?\> 4,?\0? SYS$GETJPIWP3ѫ3 SS$_NORMAL' BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݫ3LIB$STOPˏ\\   ˏ\\  X Xˏ\\  0 0P BAS$END_R8P74 wwYMAP@RIGHTZ0NUMAP( GET_HELD_MASTER_IDENTIFIERS OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8BAS$LEFT1`Z|ʗ T<GET_MY_SYSUAF_INFO 8-APR-1994 15:30 VAX BASIC V3.57GET_MY_SYSUAF_INFOGET_MY_SYSUAF_INFOS$PDATAO$CODE$ARRAYP$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP GET_MY_SYSUAF_INFOf OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8 BAS$END_R8 BAS$SLEEP STR$CONCATBAS$EDITBAS$LEFT BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$RETRY BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_B BAS$GET_KEY BAS$UNLOCK STR$COPY_R_R8STR$COPY_DX_R8SYS$EXITCAPITALIZE_FIRST SS$_NORMAL SS$_NOLOGNAM SS$_ABORT Pk\XkkkGET_MY_SYSUAF_INFO - Please Try Again - Try Again, ,Notify your VAX System Manager Aborting...Error - You do not have a SYSUAF record!iP `- (U2yPϞRPPQ BAS$INIT_R8JBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X o BAS$CONTINUE BAS$EXIT_HNDL4\2\XXBAS$LEFToݏ2 BAS$GET_KEYo\\t BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT2 BAS$UNLOCKNj72QR~_P STR$COPY_R_R8T\\1T\\XX(gBAS$LEFT0gBAS$POSPq2qXX\\TWqWXXXXX\\&2q\\XXg BAS$RIGHT_BAS$EDIT_CAPITALIZE_FIRST~Q~_PSTR$COPY_DX_R8-_c ,p 2y)_8 STR$CONCAT@H STR$CONCATP BAS$END_R8PHE   ? Oww GETJPI GETJPIN$PDATA$CODE$ARRAY$DESCJPIMAPUAFSAVUAF0RMYMAP@RIGHTZ0NUMAP$ GETJPIO OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BLIB$STOP SYS$GETJPIW JPI$_USERNAMEJPI$_UIC JPI1`| N5 NUSER_OTHER 21-NOV-1994 15:39 VAX BASIC V3.6) NUSER_OTHER NUSER_OTHER}$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  NUSER_OTHERM OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$EDIT BAS$CONTINUE BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DXBAS$OUT_T_DX_SBAS$OUT_T_DX_B STR$COPY_R_R8STR$COPY_DX_R8LIB$STOP LOGICAL_NAME SS$_NORMAL SS$_NOLOGNAM SS$_ABORTNPd\Xdddbh^ NUSER_OTHER FError - Invalid responseNBRWEnter W, R, or N (Default of R): Enter W, R, or N (Default of W): PGMN files N for access to What kind of access does this user require to the directories containing theR files, or ???mSEARCH_RIGHTSLISTP\\XX1~GX-h \\~GW-g l?CXXX\\i1 BAS$PRINT 8STR$TRIM8P0 STR$CONCATX0( STR$CONCAT? STR$TRIM ( STR$CONCAT` STR$CONCATh STR$CONCATp STR$CONCATBAS$OUT_T_DX_B BAS$IO_END11ΫS_acЭ[_\\1?m?aREAD_RIGHTSLISTP\\ǫ_аa,d BAS$PRINTxBAS$OUT_T_DX_B BAS$IO_END_1xd BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDᰏ_c1FЫ[2m\\ BAS$UNLOCK2c\\E~GX-h \\~GW-g ?CXXX\2KX\\\XX11L~GX-h \\~GW-g ?CXXX\2KX\\\XX1 BAS$PRINTSTR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTO STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDK1ЫS 2m\\ BAS$PUT_COUNT BAS$PRINT @STR$TRIM@8 STR$CONCAT80 STR$CONCAT(STR$TRIM(0  STR$CONCATX  STR$CONCAT?STR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1YЫWe\\d BAS$PRINTS?STR$TRIM STR$CONCAT STR$CONCATp STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDk1k\\1 BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDmm,12m\\\m2m\ \(P\LSTR$TRIM-  BAS$PRINT2m\ \(\LSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1MTQi\\c BAS$PRINT STR$TRIMP STR$CONCAT, K U U T X ^ ^ ] a   ݜ STR$CONCATp STR$CONCAT R for access to W files, Enter W for access to division's User-Controlled files?Unexpected error while trying to translate DEBUG>TRANSLATE OPRUOTHGET_DeIVISIONAL_IDENTNUSER_OTHER DEBUG>OTHER_PARAM2=NUSER_OTHER DEBUG>OTHER_PARAM1=NUSER_OTHER DEBUG>OTHER_ACTION=\\jPC$+L"qiN C&&( STR$CONCAT (  STR$CONCATSTR$TRIM  STR$CONCAT(STR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1?1RFind next higher UIC than DEBUG>UIC FOUND ON DEBUG>Sear1W|ʗ 4 DISK_QUOTA 8-APR-1994 15:29 VAX BASIC V3.5' DISK_QUOTA DISK_QUOTAT$PDATA$CODE$ARRAY$DESC DQQUODQFIBUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  DISK_QUOTA0l OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$LEFT BAS$NUM1_L BAS$PRINT BAS$IO_END2yjPϞRPPQ BAS$INIT_R8 m BAS$CONTINUEdu BAS$PRINTBAS$OUT_T_DX_SWBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S[BAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S_BAS$OUT_T_DX_B BAS$IO_END~WQ~GPSTR$COPY_DX_R8-GK 1)4V q1o [ STR$CONCAT1( 7 STR$CONCATd- BAS$PRINT70 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END?7 LOGICAL_NAMEPcЫcgѫg SS$_NOLOGNAM#o [ STR$CONCATfѫg SS$_NORMAL oQ BAS$PRINT78 STR$CONCAT@ STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫcLIB$STOPo\\1mVm BAS$PRINT BAS$IO_END BAS$PRINTHBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTP  STR$CONCATBBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT X STR$CONCAT` STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT h STR$CONCATp STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT x STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END)-ݏb BAS$LINPU1|ʗ P8GET_RESTRICTED 8-APR-1994 15:30 VAX BASIC V3.5/GET_RESTRICTEDGET_RESTRICTEDT$PDATA-$CODE$ARRAY $DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP GET_RESTRICTED/ OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$EDIT BAS$CONTINUE BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DXBAS$OUT_T_DX_SBAS$OUT_T_DX_B STR$COPY_R_R8STR$COPY_DX_R8 SS$_NORMAL SS$_NOLOGNAM SS$_ABORT Pg\XgggGET_RESTRICTED Error - Invalid responseBIs this a restricted account? (Default of N): Is this a restricted account? (Default of Y): YNPGM ,P//2ylPϞRPPQ BAS$INIT_R8 o BAS$CONTINUE)-V 1q2QR~kP STR$COPY_R_R8 qV䞯q\\1ëo)-ݏb BAS$LINPUTBAS$OUT_T_DX_Sk BAS$IN_T_DX BAS$IO_END(ݯ BAS$LINPUTBAS$OUT_T_DX_Sk BAS$IN_T_DX BAS$IO_ENDo\\V1&kBAS$EDIT~Q~kPSTR$COPY_DX_R8~k\-l V1~k\-l 2QR~kPa1 STR$COPY_R_R8~kX-h \\~kW-g XXXXX\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1kq1bP BAS$END_R8PnRO  -ww1"  !"  * ,; ~1@쑨|ʗ 1GET_UIC 8-APR-1994 15:30 8VAX BASIC V3.5!GET_UICGET_UICЂ$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP GET_UIC OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$EDIT BAS$CONTINUE BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DXBAS$OUT_T_DX_SBAS$OUT_T_DX_B VALID_UIC SS$_NORMAL SS$_NOLOGNAM SS$_ABORTP`\X```GET_UIC Error - You must enter a UIC for this userBEnter the UIC for this user: OTHtt"P2y*ePϞRPPQ BAS$INIT_R8 o BAS$CONTINUE) qVqV 1q\\1ӫoݏb BAS$LINPUTTBAS$OUT_T_DX_S[ BAS$IN_T_DX BAS$IO_END(ݯ BAS$LINPUTBAS$OUT_T_DX_S[ BAS$IN_T_DX BAS$IO_ENDm\\Vq1&[BAS$EDIT~Q~[PSTR$COPY_DX_R8)'~[\-l 2QR~[P STR$COPY_R_R8%~[\-l 2QR~[P STR$COPY_R_R8~[\-l Vq1^~[Q~OPSTR$COPY_DX_R8-OS  [ STR$CONCAT1-OS  [ STR$CONCAT1-OS  Y[ STR$CONCATg BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1o1 \)Ll-i Џ!VqP BAS$END_R8qP(C ( Ach Rightslist #DEBUG>Check other rightslists for UIC of Error: Last Identifier UIC is out of rangeDEBUG>Found Identifier UIC of ],DEBUG>SEARCH FOR UIC GREATER THAN [DEBUG>--------------------------------DEBUG>SEARCH FOR UIC IN GROUP Error: Invalid UIC Groupj  P&^#;:9,)P zBPϞRPPQ BAS$INIT_R81BAS$ERRP\2X\X BAS$SLEEP BAS$RETRYkBAS$ERRP\2X\X BAS$CONTINUE BAS$EXIT_HNDLBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYkBAS$ERRP\2X\X BAS$CONTINUE BAS$EXIT_HNDL2f\ \\2Lի[ѫ[\\ѫ[XXX\\Q BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_Sݫ[ BAS$OUT_L_V_SBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT߫[ OCT_TO_DECP&1 }ʗ =STORE_SYSUAF_RECORD 8-APR-1994 15:33 EVAX BASIC V3.59STORE_SYSUAF_RECORDSTORE_SYSUAF_RECORD m$PDATAc$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  STORE_SYSUAF_RECORD@ OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$SLEEPSTR$TRIM STR$CONCAT BAS$NUM1_L BAS$CONTINUEBifier is a UIC-formatError - DEBUG> Skip - Not existDEBUG>Check node DEBUG>Call REVOKE_NODE to revoke on from DEBUG>----- Call REVOKE_NODE_IDENTIFIER1P' @-!f PU=5%     ~P t$PϞRPPQ BAS$INIT_R8qd1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT0STR$TRIM0( STR$CONCAT(  STR$CONCAT STR$TRIM  STR$CONCAT( STR$CONCATS STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDSCALC_DUPL_NODESP\\1koo12o\\\o2o\ \d\2QLTR~KP STR$COPY_R_R8mЭ[m,1M2m\\\m2m\ \(P\1sh|ʗ RACHANGE_CLUSTER_PASSWORD 8-APR-1994 15:28 TVAX BASIC V3.5ACHANGE_CLUSTER_PASSWORDCHANGE_CLUSTER_PASSWORD2N$PDATA$CODE$ARRAY$DESC UAICLPUAFSAVUAF0RMYMAP@RIGHTZ4NUMAPA$ CHANGE_CLUSTER_PASSWORD OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$SLEEPSTR$TRIM STR$CONCATBAS$EDITBAS$LEFT BAS$NUM1_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$RETRY BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DXBAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$GET_KEY BAS$UPDATE BAS$UNLOCKSYS$EXIT SYS$SETUAICOPY_PASSWORD_INFO SS$_PWDINHIS SS$_INVPWDLEN SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPp\X$ppp*6&CHANGE_CLUSTER_PASSWORD Done - Yoccchhd OCT_TO_DEC PϞRPPQ BAS$INIT_R8Оջ[л[g [g_m2m~  BAS$POWJJP\\gPNPP MTH$FLOOR_R1JPcիc02m~ BAS$POWJJP\īc\\_2m~  BAS$POWJJP\īc\\g=mmЫ_oP BAS$END_R8ЫoPl fww Responding with an N will allow no access to all of the above files Responding with an R will allow READ a11|ʗ NIPROCESS_ANY_FOREIGN_DCL_COMMAND 8-APR-1994 15:31 VAX BASIC V3.5Q&PROCESS_ANY_FOREIGN_DCL_COMMAND&PROCESS_ANY_FOREIGN_DCL_COMMAND$PDATA'$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP, PROCESS_ANY_FOREIGN_DCL_COMMAND OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8BAS$INIT_DEF_R8 BAS$END_R8BAS$ENDY_DEF_R8 BAS$SLEEPSTR$TRIM STR$CONCATBAS$LEFT BAS$NUM1_L BAS$VAL_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$RETRY BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_B BAS$CLOSE BAS$GET_KEY BAS$DELETE BAS$UPDATE BAS$UNLOCK STR$COPY_R_R8STR$COPY_DX_R8LIB$STOPSYS$EXITVALIDATE_NODE_IDENTIFIERSTORE_SYSUAF_RECORDt`REVOKE_NODE_IDENTIFIERREVOKE_IDENTIFIERREMOVE_IDENTIFIER NUSER_OTHERLOCATE_ALL_HELD_IDEaL40STR$TRIM- f2m\ \(\L<8STR$TRIM-KO 1ndT BAS$PRINT2m\ \(\LD@STR$TRIMH STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDﰏk??m  VALID_USERP\\1( @-???mSEARCH_RIGHTSLISTP\\XX(d BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_END11y BAS$PRINT STR$TRIM X1J|ʗ N9GET_USER_ACTION 8-APR-1994 15:30 VAX BASIC V3.51GET_USER_ACTIONGET_USER_ACTION$PDATA$CODE$ARRAY@$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP GET_USER_ACTION OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$EDIT BAS$CONTINUE BAS$LINPUT BAS$PRINT BAS$ 1ww SVAX BASIC V3.5) NUSER_OTHER NUSER_OTHERSt$PDATA{$CODE$ARRAY$DESCDBM$UWA_S000000004_B*9MYSYMAPCREMAPUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  NUSER_OTHER OTS$LINKAGE BAS$LINKAGE BAS$RIGHT BAS$INIT_R8BAS$INIT_DEF_R8 BAS$END_R8BAS$END_DEF_R1`g|ʗ $=READ_DEFAULT_QUEUES 8-APR-1994 15:32 VAX BASIC V3.59READ_DEFAULT_QUEUESREAD_DEFAULT_QUEUES_$PDATA $CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  READ_DEFAULT_QUEUES OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8 BAS$END_R8 STR$CONCATBAS$EDITBAS$LEFT BAS$NUM1S STR$CONCATNBAS$OUT_T_DX_B BAS$IO_ENDݫkLIB$STOPt\\XXBAS$LEFT0 STR$CONCAT[ STR$CONCATc STR$CONCAT ?cSET_PROTECTIONPkѫk SS$_NORMALp BAS$PRINTݫk  BAS$NUM1_L @ STR$CONCAT STR$CONCATc STR$CONCATX STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDcLIB$DELETE_FILEcLIB$DELETE_FILEcLIB$DELETE_BAS$OUT_T_DX_B STR$COPY_R_R8STR$COPY_DX_R8SYS$EXITSYS$QIOW SYS$DASSGN SYS$ASSIGN SS$_QFNOTACTSS$_NODISKQUOTASS$_DUPDSKQUOTA SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPc\X ccc DISK_QUOTA Removed disk quota...Added disk quota...EXIT occurred at Warning - Disk quotas not enabled on DEBUG>No Disk QuotaSYS$DASSGNDEBUG>DISK_QUOTA DeassignSYS$QIOWDEBUG>DISK_QUOTA QIOW di sk quota while trying to occurred at SYS$ASSIGNError DEBUG>DISK_QUOTA Assign chnlSYS$ASSIGNError - Invalid Disk Quota Action: deleteDELETE_NOMSGDELETEaddADD_ABORTADDStore default devicePu#yxRL5$  % P }hPϞRPPQ BAS$INIT_R8q, P t\\XXCBAS$LEFT~[Q~KPSTR$COPY_DX_R8-AS$ERR BAS$RETRY BAS$PRINT BAS$IO_END BAS$OUT_L_V_SBAS$OUT_T_DX_SBAS$OUT_T_DX_BBAS$PUTSYS$EXIT SS$_NORMAL SS$_NOLOGNAM SS$_ABORTuPl\XlllX^TSTORE_SYSUAF_RECORD ... added to User DEBUG>Added new accountNotify your VAX System Manager while trying to add/copy a new SYSUAF record on occurredUnexpected error Someone else just added the record for on on channel #DEBUG>Add new account for P '- > 1 2~ tqTPϞRPPQ BAS$INIT_R81 BAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X1 BAS$PRINT BAS$IO_END BAS$PRINT(STR$TRIM(  STR$CONCAT  STR$CONCAT2k\1\ \(\LnSTR$TRIM STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDqo BAS$CONTINUEqds BAS$PRINT( STR$TRIM 0 STR$CONCAT8 STR$CONCATk\2\XX BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDo2k\\BAS$PUTo1 BAS$PRINT@BAS$OUT_T_DX_SBAS$ERRP\\ BAS$OUT_L_V_SHBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT2k\1\ \(\LnTPSTR$TRIMX STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_ENDvݏSYS$EXIT1d BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END2k\\21 BAS$PRINT((STR$TRIM(p  STR$CONCATx  STR$CONCAT2k\1\ \(\LnSTR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDP BAS$END_R8qPGD   cww SMP$RELEASEsys$system:sys.stbP . ABS .ET . BLANK .P$ABS$@ PP| |SET_UIC&lJЬU P P P~ SMP$GL_FLAGSP/P SMP$ACQUIREЎPeSeS SMP$GL_FLAGSP/P SMP$RELEASEЎPڎPPA1q}ʗ <TURN_ON_PRIVILEGES 8-APR-1994 15:33 VAX BASIC V3.57TURN_ON_PRIVILEGESTURN_ON_PRIVILEGESL$PDATA$CODE$ARRAY$DESCPRIV2PRIV1UAFSAVUAF0RMYMAP@RIGHTZ4NUMAP TURN_ON_PRIVILEGESi OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BLIB1 s|ʗ _6 GET_USERNAME 8-APR-1994 15:30 VAX BASIC V3.5+ GET_USERNAME GET_USERNAMES+ $PDATAB$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  GET_USERNAMET OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$SLEEPSTR$TRIM STR$CONCATBAS$EDITBAS$LEFT BAS$NUM1_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$RETRY BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DX BAS$OUT_L_V_BBAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$GET_KEY BAS$UNLOCK STR$COPY_R_R8STR$COPY_DX_R8SYS$EXIT VALID_USER SEARCH_SYSUAFLOOKUP_DISPLAY_USER_INFO SS$_NORMAL  SS$_NOLOGNAM SS$_ABORTPe\Xeeeq 2 m GET_USERNAME Do you want to delete this user's directory tree? (Y or N, Default of Y): Do you want to delete this user's directory tree? (Y or N, Default of N): Do you really want to change the password for this username? (Y or N): Do you really want to change this username? (Y or N, Default of N): Do you really want to delete this username? (Y or N, Default of N): DEBUG>VALID USERNAMEDisplaying this user's account information for node ...DEBUG>Ensure UIC ident existsError - This user is already non-RestrictedError - This user is already RestrictedDEBU]G>USER ACTION=Someone just deleted the record for Notify your VAX System ManagerError - No USER_SEQ() of 7 found for ACTION_INDEX of - Aborting...Error - Invalid responseYDo you want to create this user's account using information from node (Enter Y or N, Default of Y): ?Error - This username already existsDEBUG>USER ACTION = ADDDEBUG>AFTER SEARCHB_SYSUAF, RECORD_FOUND=DEBUG>INVALID DIVISIONDEBUG>COPY_USER_FILE_INDEX=DEBUG>CALL SEARCH_SYSUAFWarning - You are about to change your own nam+1 a|ʗ _BLOOKUP_DISPLAY_USER_INFO 8-APR-1994 15:30 VAX BASIC V3.5CLOOKUP_DISPLAY_USER_INFOLOOKUP_DISPLAY_USER_INFO$PDATA$CODE$ARRAY$DESCFRCLMDYUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP% LOOKUP_DISPLAY_USER_INFO OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8BAS$INIT_DEF_R8 BAS$END_1 4Rp|ʗ $3 COPY_FILE 8-APR-1994 15:28 EVAX BASIC V3.5% COPY_FILE COPY_FILE$$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  COPY_FILE OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BCONV$PASS_OPTIONSCONV$PASS_FILES CONV$CONVERT SS$_NORMAL SS$_NOLOGNAM SS$_ABORTsPb\Xbbb COPY_FILE Error from CONV$CONVERTError from CONV$PASS_OPTIONSError from CONV$PASS_FILESS!P~gsPϞRPPQ BAS$INIT_R8랯[_gcCONV$PASS_FILESPkѫk SS$_NORMAL% BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDЫko1s߫[CONV$PASS_OPTIONSPkѫk SS$_NORMAL$ BAS$PRINT_L BAS$VAL_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DX BAS$OUT_L_V_BBAS$OUT_T_DX_SBAS$OUT_T_DX_BBAS$OPEN BAS$CLOSE BAS$VMSSTATUSSTR$COPY_DX_R8SYS$EXITNUMERIC SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPl\Xlll^jZREAD_DEFAULT_QUEUES TOOLS:NUSER_QUEUES.DAT - Increase MAX_QUEUES inError - Too many queues found in TOOLS:NUSER_QUEUES.DAT - Aborting...Error - No default queue source found in On line #| - No third comma found Number out of range - Default Queue default queue - Non-numeric queue length - Wrong default - No second comma found - Wrong div length%Bad TOOLS:NUSER_QUEUES.DAT line # - No first :comma found,! TOOLS:NUSER_QUEUES.DAT - Increase MAX_DIVS in NUSER.INC and recompileError - Too many divisions found in TOOLS:NUSER_QUEUES.DAT while readingUnexpected BASIC Error Error - Can't open any existing TOOLS:NUSER_QUEUES.DAT fileVMS error status value:You do not have the privilege to open TOOLS:NUSER_QUEUES.DATTOOLS:NUSER_QUEUES.DAT ?v ?Ov&P{G= <H#X69" rdT@)((-  8qPϞRPPQ BAS$INIT_R81BAS$ERRP\2 X\X q BAS$CONTINUE BAS$PRINT BAS$IO_END BAS$PRINTBAS$ERRP\\  BAS$NUM1_L  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLBAS$ERRP\2X\Xoq BAS$CONTINUEBAS$ERRP\2 X\X* BAS$PRINT(BAS$OUT_T_DX_B BAS$IO_ENDq BAS$CONTINUEBAS$ERRP\2X\XY BAS$PRINT0BAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_ENDq BAS$CONTINUE BAS$PRINT BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLq+^,n+nݏ ݏ78Џc,^BAS$OPEN7^2q\C\o1F q ݏSYS$EXIT枯q\\1 ݯ BAS$LINPUT[ BAS$IN_T_DX BAS$IO_ENDq\\1 2\\d BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_END BAS$PRINTHBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITݏ[[BAS$EDIT[BAS$LEFT- 1"X[BAS$POSPgիgt BAS$PRINT\\ BAS$NUM1_LE` STR$CONCATh STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITg\\[;BAS$LEFTg\\[[ BAS$RIGHT<;XX\\t BAS$PRINT\\ BAS$NUM1_L` STR$CONCATp STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITX[BAS$POSPgիgt BAS$PRINT\\ BAS$NUM1_L` STR$CONC1| DBLOOKUP_DISPLAY_USER_INFO 21-NOV-1994 15:56 VAX BASIC V3.6CLOOKUP_DISPLAY_USER_INFOLOOKUP_DISPLAY_USER_INFOT$PDATA2$CODE$ARRAY$DESCFRCLMDYUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP% LOOKUP_DISPLAY_USER_INFOA OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8BAS$INIT_DEF_R8 BAS$END_R8BAS$END_DEF_R8STR$TRIM STR$CONCATBAS$LEFTBAS$MID BAS$PRINT BAS$IO_END BAS$OUT_L_V_BBAS$OUT_T_DX_SBAS$OUT_T_DX_B STR$COPY_R_R8STR$COPY_DX_R8LIB$STOP SYS$ASCTIMMMDDYY LOGICAL_NAMEFIND_IDENTIFIER SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPq\X qqqLOOKUP_DISPLAY_USER_INFOH<<8F3ROM_CLUNKS_MDY (none) Last Non-Interactive Login Date: (none) Last Interactive Login Date: division a user for the Error - You are not authorized to modifydeleteDA,OTH, Valid Divisions are: ) for this userWarning - Invalid Division (XGTHolds the additional identifiers: RWU Database Database Has access to:$This is a Restricted account *** This account has been disabled! ***Unexpected error while trying to translate U filesOPRUW filesWR filesThis user has access to R: Divisur password has been changed... change your password error while trying toError - Unexpected Error - Password found in history listError - Invalid length for passwordSomeone just deleted the SYSUAF record for yourself!Someone just deleted the record for !Error - Password must be less than 32 charactersError - Password must be a minimum of charactersError - You must Zenter a passwordBEnter a new password for yourself: gP#  2  y!& 0  `-$_^5)#&(uPϞRPPQ BAS$INIT_R8UBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X o BAS$CONTINUE BAS$EXIT_HNDLo BAS$CONTINUEqq\\1 BAS$PRINT BAS$IO_ENDoݏb BAS$LINPUTBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_EN  STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDo BAS$CONTINUEBAS$ERRP\2 X\XL BAS$PRINTg0 STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDo BAS$CONTINUEBAS$ERRP\2X\X1} BAS$PRINTg8 STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT@BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_BU BAS$IO_ENDo$STOP SYS$CMEXECSPRIV SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPk\XkkkTURN_ON_PRIVILEGES TURN_ON_PRIVILEGES Error for SYS$CMEXECP'pPϞRPPQ BAS$INIT_R8 X\\ɏ  0\\ɏSPRIV SYS$CMEXECPoѫo SS$_NORMAL' BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݫoLIB$STOPP BAS$END_R8P UwwEB-1994 16:39 VAX BASIC V3.59STORE_SYSUAF_RECORDSTORE_SYSUAF_RECORDm$PDATAc$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ0NUMAP  STORE_SYSUAF_RECORD@ OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$SLEEPSTR$TRIM STR$CONCAT BAS$NUM1_L BAS$CONTINUEBASKY TURN_ON_PRIVILEGES,`-}ʗ LOMASKY VALIDATE_IDENTIFIER1,}ʗ LOMASKY VALIDATE_NODE_IDENTIFIER*:}ʗ LOMASKY VALID_DISK_DEVICE# .!}ʗ LOMASKY VALID_FILE"@2!}ʗ LOMASKY VALID_UIC#q$$}ʗ LOMASKY VALID_USER'@&}ʗ LOMASKY VIDEO_TERMINAL'`Vri~ʗ LOMASKY GET_FIRST_LAST(pZ7 LOMASKY CALC_DUPL_NODES,`س LOMASKY GRANT_OR_DENY_OTHER, LOMASKY GRANT_OR'1}ʗ =VALIDATE_IDENTIFIER 8-APR-1994 15:33 VAX BASIC V3.59VALIDATE_IDENTIFIERVALIDATE_IDENTIFIER$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  VALIDATE_IDENTIFIER OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BSEARCH_RIGHTSLIST SS$_NBAS$OUT_T_DX_Sg BAS$IN_T_DX BAS$IO_ENDo\\ V1&ggBAS$EDIT-gk  V1-gk ` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1g?K VALID_UICP\\1q1P BAS$END_R8PEB Q 8ww BAS$CONTINUE)-  1q2QR~kP STR$COPY_R_R8 q 䞯q\\1ëo)-ݏb BAS$LINPUTBAS$OUT_T_DX_Sk BAS$IN_T_DX BAS$IO_END(ݯ BAS$LINPUTBAS$OUT_T_DX_Sk BAS$IN_T_DX BAS$IO_ENDo\\ 1&kBAS$EDIT~Q~kPSTR$COPY_DX_R8~k\-l  1~k\-l 2QR~kP 1 STR$COPY_R_R8~kX-h \\~IO_END BAS$IN_T_DXBAS$OUT_T_DX_SBAS$OUT_T_DX_B STR$COPY_R_R8 SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPh\Xhhhu{qGET_USER_ACTION Error - Invalid responseError - You can not change generated passwordsError - You can not change a locked passwordSADEBUG>Debug Mode OnDEBUGB or type B (or press Control/Z) to exit program: Type S to change your own password on all of the cluster nodes,ZQiiGVs\RPPD/52y,.mPϞRPPQ BAS$INIT_R8 m BAS$CONTINUEЏV BAS$PRINT BAS$IO_ENDoo\\1&m2XX\\2WWXXX\2X\XX1_Эcѫ_1֫_ _\(Ll-r)rt )rs\\ BAS$PRINT _P\L-1@ E+ >GET_OTHER_IDENTIFIER 9-AUG-1994 13:07 VAX BASIC V3.6;GET_OTHER_IDENTIFIERGET_OTHER_IDENTIFIERF $PDATA*$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP! GET_OTHER_IDENTIFIERv OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$EDIT BAS$CONTINUE BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DX BAS$OUT_L_V_BBAS$OUT_T_DX_SBAS$OUT_T_DX_B STR$COPY_R_R8STR$COPY_DX_R8VALIDATE_NODE_IDENTIFIERVALIDATE_IDENTIFIER SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPm\XmmmGET_OTHER_IDENTIFIER Error - Invalid responseY Do you want to grant this identifier to this user? (Y or N): Do you want to deny this identifier from this user? (Y or N): This user does not hold this identifier.Error - You are not authorized to grant the Valid identifiers are: identifier This user already holds this identifier.D Possible identifiers are: Error - Non-existent identifier2: format identifier is a UIC- does not exist already existsError - Identifier You have already entered identifier BEEnter any additional identifier to be granted or denied: (Enter E when done): Enter the name of an existing identifier to be deleted:En$&dQ BAS$PRINT\2\ߩ DEC_TO_OCTP\\ BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_B BAS$IO_END㰏qq1qd1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT\2\ߩ DEC_TO_OCTP\\( BAS$NUM1_L(   STR$CONCAT(  STR$CONCAT\2\ߩ DEC_TO_OCTP\\ BAS$NUM1_LN STR$CONCAT0 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2WЏOSkݏ8 BAS$FIND_KEYЭ_k\\1ݯBAS$GETkذ\2\ߩ DEC_TO_OCTP d1 BAS$PRINT   BAS$NUM1_L @ STR$CONCAT( STR$CONCAT\2\ߩ DEC_TO_OCTP\\ BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$UNLOCK2\\1Ы[cѫc  T11ѫc k11O\2WW\XX2WWO\\\XѫO\\\XX/2O2\\ 2S2\\Sk1VЫ_ѫS: BAS$PRINT BAS$IO_END BAS$PRINTHBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITիSW2\\ S\\߫[ OCT_TO_DECPd1 BAS$PRINT\2\ߩ DEC_TO_OCTP\\  BAS$NUM1_L P STR$CONCAT(N STR$CONCAT\2\ߩ DHEC_TO_OCTP\\ BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDmoЭgo,12o\\\o2o\ \(P\L\XSTR$TRIM- d@ BAS$PRINTo\2\XX BAS$NUM1_L` STR$CONCATBAS$OUT_T_DX_B BAS$IO_END???oSEARCH_RIGHTSLISTP\\idT BAS$PRINT2o\ \(\LlhSTR$TRIMp STR$CONCATBAS$OUT_T_ 1@ջ|ʗ 6 LOGICAL_NAME 8-APR-1994 15:30 VAX BASIC V3.5+ LOGICAL_NAME LOGICAL_NAME $PDATA$CODE$ARRAY($DESCTRNLNMUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  LOGICAL_NAME OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 STR$CONCATBAS$LEFT BAS$PRINT BAS$IO_END BAS$OUT_L_V_BBAS$OUT_T_DX)_SBAS$OUT_T_DX_B STR$COPY_R_R8STR$COPY_DX_R8 SYS$TRNLNM SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPe\Xeee LOGICAL_NAME WHILE TRYING TO TRANSLATE LOGICAL NAME: UNEXPECTED TRNLNM ERROR: Notify your VAX System ManagerERROR - INVALID LOGICAL NAME: LNM$DCL_LOGICAL5P(jBPϞRPPQ BAS$INIT_R8➯_\_\_\ KO -KO '\ 2QR~;P STR$COPY_R_R81-KO -KO '\2QR~;P STR$COPY_R_R81x BAS$PRINT BAS$IO_END BAS$PRINT[ STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END~[\-l  ݏSYS$EXIT1w, n P  d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END?mC SYS$ASSIGNP_ˏ_\\1 BAS$PRINTݫ_0 BAS$NUM1_L0 ( STR$CONCAT((  STR$CONCAT0  STR$CONCAT; STR$CONCAT8 STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END~[\-l  ݫ_SYS$EXIT1` SS$_NORMALc\$\\Џ \Џ d BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_END, P H?oHP?382m~ SYS$QIOWP_ˏ_\\Do\\,   1&BAS$EDIT-     1STR$TRIM<XX\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1STR$TRIM<XX\ 7X\X1 BAS$PRINT BAS$IO_END BAS$PRINT 7\\XX  BAS$NUM1_L   STR$CONCAT( STR$CONCATSTR$T"1`y\|ʗ 4=ADD_NODE_IDENTIFIER 8-APR-1994 15:28 AVAX BASIC V3.59ADD_NODE_IDENTIFIERADD_NODE_IDENTIFIERA$PDATAm$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP  ADD_NODE_IDENTIFIER[ OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCAT BAS$NUM1_L BAS$PRINT BAS$IO_ENDBASRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1 STR$TRIM<XX\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM0 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1j랫3\3\3\j3\ޫc,   ?\STR$TRIM<XX?\I?\?\ޫgK\ 4\2\XX8WBAS$LEFT3W SYS$SETUAIP_Ы_kѫk SS$_NORMAL1oW2 BAS$GET_KEYo\\e BAS$PRINT BAS$IO_END BAS$PRINTW@ STR$CONCATH STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END 7j2 BAS$UPDATE2 BAS$UNLOCKCOPY_PASSWORD_INFOP\\1&1 ѫkB BAS$PRINT BAS$IO_END BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT1ѫk SS$_INVPWDILENh BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM` STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1h1Lѫk SS$_PWDINHISh BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIMh STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END11 BAS$PRINT BAS$IO_END BAS$PRINTݫ_  BAS$NUM1_L p STR$CONCAT BAS$CONTINUE BAS$PRINT@BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLBAS$ERRP\2 X\X o BAS$CONTINUE BAS$PRINT BAS$IO_END BAS$PRINTBAS$ERRP\\  BAS$NUM1_L H STR$CONCATP STR$CONCATX STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT@BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUTL\P\,\File protection has been changed to Error from SET_PROTECTION SYS$QIOW MODIFYDEBUG>File protection was Error from SET_PROTwwile trying to occurred at SYS$ASSIGNError DEBUG>DISK_QUOTA Assign chnlSYS$ASSIGNError - Invalid Disk Quota Action: deleteDELETE_NOMSGDELETEaddADD_ABORTADDStore default devicePu#yxRL5$  % P }hPϞRPPQ BAS$INIT_R8q, P t\\XXCBAS$LEFT~[Q~KPSTR$COPY_DX_R8-PϞRPPQ BAS$INIT_R81BAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2 W\WXXBAS$ERRP\2V\VWWWWWXX BAS$EXIT_HNDLo BAS$CONTINUEBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2 W\WXXBAS$ERRP\2V\VWWWWWXX BAS$EXIT_HNDLo BAS$CONTINUE(D (C OSTR$TRIM dw BAS$PRINTO STR$CONCATkXX\2PX\X1 BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM 0 STR$CONCAT@ STR$CONCAT(STR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1T1kNUMERICP\\XX1 BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIMH STR$CONCAT(STR$TRIM STR$CONCATPzBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1Hq1?P BAS$END_R8P\Y  wwS$PRINT BAS$NUM1_L@ STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDo2W\ݏH\ BAS$GET_KEY鞯o\\1d)1 1 BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$NUM1_LP BAS$END_R8PT  l m TwwIO_ENDⰏo1q[Эcѫ[ )֫[ [\L qȞЫcqH = BAS$PRINT BAS$NUM1_Lp STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1   \L BAS$OUT_T_DX_B BAS$IO_ENDЫko7 CONV$CONVERTPkѫk SS$_NORMAL BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDЫkoP BAS$END_R8ЫoP  wwTINUE BAS$EXIT_HNDLBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X q BAS$CONTINUE BAS$EXIT_HNDLj랫\\\j\ޫW,   \STR$TRIM<XX\IKEY BAS$UNLOCK SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPj\XjjjoukSEARCH_RIGHTSLIST ̢#0M]w P PϞRPPQ BAS$INIT_R81sBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2W\WXXBAS$ERRP\2 V\VWWWXX k BAS$CONTINUE BAS$EXIT_HNDLݰkg1cm2m\\2_\\ BAS$GET_KEYN2m\\2_\\ BAS$GET_KEY'2m\\2_\\ BAS$GET_KEY1co2o\\$2_\ݏ\ BAS$GET_KEYT2o\\!2_\ݯ\ BAS$GET_KEY*2o\\!z2_\ݯ\ BAS$GET_KEYkqg\\ 2_\\ BAS$UNLOCKqP BAS$END_R8qPC@  Q 8ww 1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT0STR$TRIM0( STR$CONCAT(  STR$CONCAT STR$TRIM  STR$CONCAT( STR$CONCATS STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDSCALC_DUPL_NODESP\\1koo12o\\\o2o\ \d\2QL\RR~KP STR$COPY_R_R8mЭ[mt1ME2m\\\m2m\ \(P\happens to the other node's UAF).which are usually processed as duplicate nodesThis account also exists on the following node(s): H^{HX^{P4.PpH(!2 y+P 5nk,?>1 KjALREADY_FOUND_USERTREAT_AS_NON_DUPLICATE RPϞRPPQ BAS$INIT_R8JBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X m BAS$CONTINUE BAS$EXIT_HNDL1ϞnPPQBAS$INIT_DEF_R8鞯}WѫW %֫W W( \- L +̞   ( \,  L}nPBAS$END_DEF_R8}P1ϞPPQBAS$INIT_DEF_R8} \\11o BAS$PRINT BAS$IO_END BAS$PRINT;!I STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUT BAS$OUT_T_DX_SC BAS$IN_T_DX BAS$IO_END o BAS$CONTINUE벫o\\1&CCBAS$EDIT-CG 2QR~CP STR$COPY_R_R8-CG 1{-CG }e BAS$PRINT BAS$IO_END BAS$PRINT(STR$TRIM0 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1IPBAS$END_DEF_R8}P2QR~3P STR$COPY_R_R83CALC_DUPL_NODESP\\12QR~;P STR$COPY_R_R82QR~KP STR$COPY_R_R8q ec gg 212g\\\g2g\ \(P\L d <8STR$TRIM-  ds#$OUT_T_DX_B BAS$PUT_COUNT BAS$UNLOCK STR$COPY_R_R8SYS$EXITSEARCH_RIGHTSLISTKGB_IDENT_REC_EXISTS DEC_TO_OCTCALC_DUPL_NODES SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPl\X lllADD_NODE_IDENTIFIER Please Notify your VAX System ManagerUnexpected error while adding the user's node UIC identifier... UIC-format identifier to Added new already exists on ] UIC ident value,Error$ - [DEBUG>ADD_NODE_IDENTIFIER: ADD_NODE NEW exists on identifier alreadyWarning - The DEBUG>Check node DEBUG>----- Call ADD_NODE_IDENTIFIERDP$P} o\ QP$(L   <&qPϞRPPQ BAS$INIT_R8d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDmc%CALC_DUPL_NODESP\\1,  qq12q\\\q2q\ \d\2QLTR~[P STR$COPY_R_R8oЭgo,1/2o\\\o2o\ \(P\L STR$TRIM- 2o\ \(\LSTR$TRIM-[_ 1ndT BAS$PRINT2o\ \(\LSTR$TRIM  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END???oSEARCH_RIGHTSLISTP\\1-Pz& 1 BAS$PRINT(0STR$TRIM00( STR$CONCAT8(  STR$CONCAT@  STR$CONCAT2o\ \(\LLHSTR$TRIM STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1+d@ BAS$PRINT[X STR$CONCAT` STR$CONCATBAS$OUT_T_DX_B BAS$IO_END&$?oKGB_IDENT_REC_EXISTSP\\1 BAS$PRINT\2\ߩ DEC_TmO_OCTP\\@ BAS$NUM1_L@h8 STR$CONCATp80 STR$CONCAT\2\ߩ DEC_TO_OCTP\\( BAS$NUM1_L(0  STR$CONCATx  STR$CONCAT STR$CONCAT2o\ \(\LSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2o\\ BAS$UNLOCKm&$ ,  2o\0\ BAS$PUT_COUNT BAS$PRINT((STR$TRIM( ORMAL SS$_NOLOGNAM SS$_ABORTPl\XlllVALIDATE_IDENTIFIER DEBUG>----- Call VALIDATE_IDENTIFIERP$qPϞRPPQ BAS$INIT_R8qd BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END( @-???SEARCH_RIGHTSLISTP\\XXqP BAS$END_R8qP T Nww_DX_BLIB<1`}ʗ SBVALIDATE_NODE_IDENTIFIER 8-APR-1994 15:33 VAX BASIC V3.5CVALIDATE_NODE_IDENTIFIERVALIDATE_NODE_IDENTIFIERV$PDATA$CODE$ARRAY0$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP% VALIDATE_NODE_IDENTIFIER OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCAT BAS$PRINT BAS$IO_END*_\>]_\ _K2QR~P STR$COPY_R_R8 SYS$TRNLNMPSЫSWѫW SS$_NOLOGNAM!2QR~OP STR$COPY_R_R8ЫSo1=ѫW SS$_NORMAL12]\\.]\2\XXBAS$LEFT~Q~OPSTR$COPY_DX_R8ЫSob BAS$PRINT BAS$IO_END BAS$PRINTK STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDQ SS$_ABORTo1 BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_SݫS BAS$OUT_L_V_B BAS$IO_END BAS$PRINTK  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END SS$_ABORToP BAS$END_R8ЫoP52| t -wwfierError - )r );r3P 'utPϞRPPQ BAS$INIT_R8,R8BAS$END_DEF_R8STR$TRIM STR$CONCATBAS$LEFTBAS$MID BAS$PRINT BAS$IO_END BAS$OUT_L_V_BBAS$OUT_T_DX_SBAS$OUT_T_DX_B STR$COPY_R_R8STR$COPY_DX_R8LIB$STOP SYS$ASCTIMMMDDYYFIND_IDENTIFIER SS$_NORMAL SS$_NOLOGNAM SS$_ABORTGPq\X qqq  LOOKUP_DISPLAY_USER_INFOH<<8FROM_CLUNKS_MDY -(none) Last Non-Interactive Login Date: (none) Last Interactive Login Date: Error - You are not authorized to division a user for the modifydeleteDA,OTH, Valid Divisions are: ) for this userWarning - Invalid Division (XGTHolds the additional identifiers: RWU Database Database Has access to:yThis is a Restricted account *** This account has been disabled! ***-division report filesThis user has READ access to USRThis user has WRITE access to W reportsUSR, FOC, CUS, COM, OPR, This u.ser has READ access to R: Division: Full name: DEBUG> VALID DIVISIONDEBUG> COMPARE DEBUG>ASSUME INVALID DIVISION FOR DEBUG>HELD_DIVS_CTR=OTHError - This username is not part of a valid division I Use the "I" option to grant a divR identifier to this userWarning - This username is not #part of a valid division AP8G5M2 y "6U 52 9 4olN8(   n  2   "{^]YG"; 2"!FROM_CLUNKS_MDYPϞRPPQ BAS$INIT_11@D|ʗ 0MMDDYY 8-APR-1994 15:31 VAX BASIC V3.5 MMDDYY MMDDYYK;$PDATAB$CODE$ARRAY$DESC MMDDYYO OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8 BAS$END_R8 STR$CONCATBAS$LEFTBAS$MID BAS$NUM1_LSTR$COPY_DX_R8P_\ VALID DIVISIONDEBUG> COMPARE DEBUG>ASSUME INVALID DIVISION FOR DEBUG>HELD_DIVS_CTR=OTHError - This username is not part of a valid division Use the "I" option to grant a divR identifier to this userWarning - This username is not part of a valid divisionI P8GP52 yK "U 2 9 4M}vnjc+8(   n  2   "{^]Y") "U!FROM_CLUNKS_MDY$PϞRPPQ BAS$INIT_R81ϞyPPQBAS$INIT_DEF_R8 SYS$ASCTIMP_ˏ_\HR81ϞyPPQBAS$INIT_DEF_R8 SYS$ASCTIMPcˏc\\ SS$_NORMAL ݫcLIB$STOPMMDDYY~Q~PSTR$COPY_DX_R8STR$TRIM~Q~{PSTR$COPY_DX_R8yPBAS$END_DEF_R8 q ?WFIND_IDENTIFIER) 1  BAS$PRINT BAS$IO_END 1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END  \)L l- BAS$PRINTBAS$OUT_T_DX_B BA7_DX_B BAS$PUT_COUNT BAS$UPDATE BAS$UNLOCKSEARCH_RIGHTSLISTREAD_RIGHTSLISTKGB_IDENT_REC_EXISTS DEC_TO_OCT SS$_NORMAL SS$_NOLOGNAM SS$_ABORTCPg\X ggg))%ADD_IDENTIFIER identifier to local node...Copied new This identifier value belongs to on the local node an identifier value which already exists on the local node.Error - Can't copy this identifier from 8a remote node to the local node due toDEBUG>ADD_IDENTIFIER: COPY TO LOCAL NODE UIC-format exists on already ident value] UIC,Error - [DEBUG>ADD_IDENTIFIER: NEW UIC... identifier to Added n;new DEBUG>ADD_IDENTIFIER: STORE NEWDEBUG>ADD_IDENTIFIER: UPD MAINTError - Maintenance record does not exist on DEBUG>ADD_IDENTIFIER: CHECK NXTDEBUG>ADD_IDENTIFIER: LOCATE NXTDEBUG>ADD_IDENTIFIER: ADD NEWDEBUG>ADD_IDENTIFIER: CHECK OTHER NODESDEBUG>ADD_IDENTIFIER: SEARCH FOR DEBUG>----- Call ADD_IDENTIFIER9>P  !'P P-98fPPP P    (`ND ) lRPϞRPPQ BAS$INIT_R8qd BAS$PRINTBAS$OUT_T_DX_B BAS:$IO_ENDd= BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END,  ???SEARCH_RIGHTSLISTP\\q1t d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END,  moo,1y2o\\\o2o\ \(P\L$ STR$TRIM- ?!??oSEARCH_RIGHTSLISTP\\ om,o1u2m\\1cd BAS$PRINT?(BAS$OUT_T_DX_B BAS$IO_END2&\\1,d BAS$PRINT0BAS$OUT_T_DX_B BAS$IO_END_oo,12o\\\o2o\ \(P\L<8STR$TRIM- ???oSEARCH_RIGHTSLISTP\\;2o\\ BAS$UNLOCK<_\\ի_XXX\\<_j BAS$PRINT2o\ \(\LD@sSTR$TRIMH STR$CONCATP STR$CONCATBAS$OUT_T_DX_B\\ޫ[+\ dAO BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END2QR~?P STR$COPY_R_R8?CALC_DUPL_NODESP\\1 BAS$PRINT BAS$IO_ENDkoo 12o\\\o2o\ \d\2QL TR~7P STR$COPY_R_R82oXX\\2OX\\\XXmЭ_m 21 2m\\\m2m\ \(P\L d STR$TRIM- 2m\ =BAS$OUT_T_DX_B STR$COPY_R_R8SEARCH_RIGHTSLIST SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPq\XqqqVALIDATE_NODE_IDENTIFIER ,DEBUG>THE_IDENT=DEBUG>----- Call VALIDATE_NODE_IDENTIFIER=P) @-wPvPϞRPPQ BAS$INIT_R8qdZ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTS>TR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDom2QwR~gP STR$COPY_R_R8o,12o\\\o2o\ \(P\LSTR$TRIM- w( @-???oSEARCH_RIGHTSLISTP\\Pm2o\ \(\L$ STR$TRIMg STR$CONCAT(Kg STR$CONCAT1&mqP BAS$END_R8qP)& _ ww SS$_NOLOGNAM SS$_ABORTPl\XlllVALIDATE_IDENTIFIER DEBUG>----- Call VALIDATE_IDENTIFIERP$qPϞRPPQ BAS$INIT_R8q  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END( +???SEARCH_RIGHTSLISTP\\XXqP BAS$END_R8qPk ww STR@ BAS$IO_END1 1d BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_END螯2m\\1Ы_moЭco,1|2o\\\o2o\ \(P\Ld`STR$TRIM- ?oKGB_IDENT_REC_EXISTSP\\XXm2o\\ BAS$UNLOCK,٫o1rЫc2m\\֫_10md BAS$PRINThBAS$OUT_T_DX_B BAS$IO_ENDoo,12o\\\o2o\ \(P\LtpSATR$TRIM- 및???oSEARCH_RIGHTSLISTP\\2<_1_<2o\\ BAS$UPDATE2o\\ BAS$UNLOCKj BAS$PRINT2o\ \(\L|xSTR$TRIMH STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END11d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDoo,192o\\\o2o\ \(P\LSTR$TRIM- ЫB_ BAS$POWJJP ,  2o\0\ BAS$PUT_COUNT BAS$PRINT(STR$TRIM(  STR$CONCAT  STR$CONCAT2o\ \(\LSTR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2o\\ BAS$UNLOCK11#  w wC  Ad BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDoo,12o\\\o2o\ \(P\LSTR$TRIM- &$?oKGB_IDENT_REC_EXISTSP\\1H[2o\\ BAS$UNLOCKq1s BAS$PRINT\2\ߩ DEC_TO_OCTP\\P BAS$NUM1_LPH STR$CONCATH@ STR$CONCAT\2\ߩ DEC_TO_OCTP\\8 BAS$NUM1_L8@0 STR$CONCAT0( STR$CONCAT(  STR$CONCAT  STR$CONCAT STR$CONCAT2o\ \(\LSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2o\\ BAS$UNLOCK1H&$ ,  2o\0\ BAS$PUT_COUNT BAS$PRINT0STR$TRIM0( STR$CONCATdooojvfCOPY_THIS_USER_ACCOUNT Granting user access to the database... ADDPlease Notify your VAX System ManagerUnexpected error while adding the user's identifierNotify your VAX System ManagerError - No "DEFAULT" sysuaf record was found on !DEFAULTDEBUG> Process SYSUAF #*h//:PPQ 0I3&   nt FATx STR$CONCAT, STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITg\\[3BAS$LEFTg\\[[ BAS$RIGHT<3XX\\1 BAS$PRINT\\  BAS$NUM1_L ` STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT3NUMERICP\\XX1 BAS$PRINT\\  BAS$NUM1_L ` SGTR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT3 BAS$VAL_LPcիc1 BAS$PRINT\\  BAS$NUM1_L ` STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITX[BAS$POSPgիgt BAS$PRINT\\ BAS$NUM1_L` STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITg\\[CBAS$LEFTg\\[[ BAS$RIGHT\ \\LX[BAS$POSPgЭkիg15g\\[KBAS$LEFTg\\[[ BAS$RIGHTKBAS$POSPgիg1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT\\IS$IO_END BAS$PRINT BAS$IO_END  \)L l-1(m BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT STR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1 1) J\\) XXX\\[ f2 fXX \\[X2XXXXX\\92 f\\\ f2 f\ \\)L  [1Tk[\\\l d[J BAS$PRINT08 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT@BAS$OUT_T_DX_S2 ~ BAS$OUT_L_V_B BAS$IO_END k \\[X2XXXXX\\12k\\\k dG BAS$PRINT2k\ \\L LHP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2k\ \\)L  2 d BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_END[ 1) BAS$PRINT BAS$IO_END BAS$PRINTT\\XX`HBAS$LEFTHh@ STR$CONCATp@8 STR$CONCAT080 STR$CONCATx0( STR$CONCAT STR$TRIM ( STR$CONCAT STR$CONCATSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END( n)n1  BAS$PRINT0X STR$CONCATXP STR$CONCAT0PH STR$CONCATH@\ STR$CONCAT0$CONCAT~cQ~kPSTR$COPY_DX_R8P BAS$END_R8a ڻ Buwwvision a user for the modifydeleteDA,OTH, Valid Divisions are: ) for this userWarning - Invalid Division (XGTHolds the additional identifiers: RWU Database Database Has access to:TThis is a Restricted account *** This account has been disabled! ***-division report filesThis user has READ access to USRThis user has WRITE access to W reportsUSR, FOC, CUS, COM, OPR, This uRINT( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END\?GETFIDPѫ SS$_NORMAL1{ BAS$PRINTݫ C BAS$NUM1_L 0 STR$CONCAT8 STR$CONCAT STR$CONCAT@ STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDЏ1y2H?{ݫ2~ SYS$QIOWPˏ\\2{˯뫣\\% BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_ENDЫo1 \ \6N\ SS$_NORMAL ݫ_LIB$STOPMMDDYY~Q~PSTR$COPY_DX_R8STR$TRIM~Q~{PSTR$COPY_DX_R8yPBAS$END_DEF_R8 q ?SFIND_IDENTIFIER) 1  BAS$PRINT BAS$IO_END 1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END  \)L l- BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END  \)L l-1m BAS$PRINTOBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT STR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1) 1) \\) XXX\\W f2 fXX \\WX2XXXXX\\92 f\\\ f2 f\ \\)L  W1TkW\O\l d[ BAS$PRINT08 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRPINT@BAS$OUT_T_DX_S2 ~ BAS$OUT_L_V_B BAS$IO_END k \\WX2XXXXX\\12k\\\k dG BAS$PRINT2k\ \\L LHP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2k\ \\)L  2 d BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDW 1) BAS$PRINT BAS$IO_END BAS$PRINTT\\XX`HBAS$LEFTHh@ STR$CONCATp@8Q STR$CONCAT080 STR$CONCATx0( STR$CONCAT STR$TRIM ( STR$CONCAT STR$CONCATSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END( n)nK BAS$PRINT0 STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1d)nuK$ BAS$PRINT0 STR$CONCAT STR$CONCATBAS$OUT_T_DX_BR BAS$IO_END1)nm1) 10; STR$CONCATK; LOGICAL_NAMEP_Ы_cѫc SS$_NOLOGNAM1ѫc SS$_NORMALJ BAS$PRINT0 STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDQ BAS$PRINT; STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫ_LIB$STOP\ʏ\\ BAS$PRINTBAS$OyUT_T_DX_B BAS$IO_END\ʏ\\ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDi[ѫ[ 1J֫[ [ \L 3STR$TRIM<3XX\\\\ bX2XXX\\3BAS$LEFT-  k1x3C BAS$RIGHT2i\\f BAS$PRINTSTR$TRIMB STR$CONCAT STR$CONCATC STR$CONCATBAS$OUT_T_DXFILEcLIB$DELETE_FILEcLIB$DELETE_FILEcLIB$DELETE_FILEcLIB$DELETE_FILEcLIB$DELETE_FILEЏ0SPRIV SYS$CMEXECPkѫk SS$_NORMAL1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END? ?  CHANGE_UICPoѫo SS$_NORMALM BAS$PRINTݫo BAS$NUM1_Lp STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫkLIB$STOP? ?  CHANGE_UICU1 |ʗ m1NUMERIC 8-APR-1994 15:31 SVAX BASIC V3.5!NUMERICNUMERICrs$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP NUMERIC OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$INIT_R8 BAS$END_R8BAS$EDITBAS$MID SS$_NORMAL SS$_NOLOGNAM SS$_ABORTyP`\X```ookNUMERIC 0123456789P ePϞRPPQ BAS$INIT_R8힯ݏg_BAS$EDIT<_XX\\kq<_XX\\om=omEm\2\XX_BAS$MIDBAS$POSP\\q=ommqP BAS$END_R8qP  ww2"S!FROM_CLUNKS_MDYPϞRPPQ BAS$INIT_]\\\]2]\ \d\~;Q~LPSTR$COPY_DX_R81Y\\1_ _]1a2_\\\_Y[[ F2[\\\[2_\ \\2[X XdX~L\-H T lYY1x2 \\\  d1 BAS$PRINT2_\ \\L( STR$CONCAT(  STR$CONCAT  STR$CONCAT \2\XX BAS$NUM1_L STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2_\ \d X1|ʗ09DBM$NUSER_OTHER0 8-APR-1994 15:31 VAX MACRO V5.4-3(MACRO/OBJECT=MAR_OBJ_FILE MAR_SRC_FILE DBM$NUSER_OTHER WEB$0097CA7CCE639FE0A . ABS .PA8 DBM$SSC_B4mP8@5KdP2MM$SYSBASE:SYSDBQQSY_SUBSCHEMAQ Q S000000004Q Q QI$DBM$UWA_S000000004_BP 'Q@ S000000004 $@-p >4 @JY|d@>f8 (Jt*# DBM$WHEREPQ DBM$SSC_B8DBM$UWA_S000000004_B$ DBM$WHERERwwrror - Invalid responseNBRWEnter W, R, or N (Default of R): Enter W, R, or N (Default of W): PGM Responding with an N will allow no access to all of the above files Responding with an R will allow READ aZNTSLIB$SET_SYMBOLGRANT_IDENTIFIERFIND_IDENTIFIER DISK_QUOTA DEC_TO_OCTCHANGE_USER_PASSWORDCALCULATE_NEXT_AVAILABLE_UICADD_NODE_IDENTIFIERADD_IDENTIFIER SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPx\X  xxxj|fPROCESS_ANY_FOREIGN_DCL_COMMANDF<8 LOCATE_SYSUAF Error - Username's UIC was not found for node Error - Use[rname's UIC was not found for the local nodeDEBUG>User's UIC=REVOKEDELETE_NOMSGADD_ABORT , Decimal UIC=[DEBUG>Quota for QUOTA_DELETEQUOTA_ADDDEBUG>Next Available UIC=NEXT_AVAIL_UICCHANGE_SYSDBUnexpected error while adding the user's UIC identifierand then change all SYSDBs that the user has access toYou must manually add an identifier for with the value [DEBUG>Remove the old UIC-based identifier for identifierDEBUG>Grant ]) to (value of [DEBUG>Add Please Notify your VAX System ManagerUnexpected error while deleting the user's UIC identifier on node UIC identifierDEBUG>Remove DEBUG>REVOKE IDENTIFIER DEBUG>----- Revoke ----- from DEBUG> holds idents:DEBUG>User on Error - No matching username was found on any nodeError - No matching username was found for node Error - No matching username was found on the local nodeIDENTIFIER_NODESUnexpected error while granting the identifier to on DEBUG>GRANT IDENTIFIER GRANTError - Username's Division was not found for node Error - Usernam]\(Ll-o)o2QR~[P STR$COPY_R_R8&)o2QR~[P STR$COPY_R_R8dX BAS$PRINTBAS$OUT_T_DX_S2~ BAS$OUT_L_V_B BAS$IO_END BAS$PRINTc STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDgѫg1֫g gd \LWgCSTR$TRIM g \ gXL&uHs$ ; STR$CONCATdP^ BAS$PRINT[( STR$CONCAT0 STR$CONCATC STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1~cQ~KPSTR$COPY_DX_R8 BAS$PRINTK8 STR$CONCAT@ STR$CONCATBAS$OUT_T_DX_B BAS$IO_END-KO 1HKBAS$POSPm2m\\2QR~KP STR$COPY_R_R82m\\XXK3BAS$LEFT2m\\XXKK BAS$RIGHT-37 2QMR~KP STR$COPY_R_R81^ BAS$PRINT BAS$IO_END BAS$PRINT(BAS$OUT_T_DX_B BAS$IO_ENDݯSYS$EXITq BAS$PRINTO0 STR$CONCAT8 STR$CONCATݫc BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITP BAS$END_R8PB?2 B wwqqqVALIDATE_NODE_IDENTIFIER ,DEBUG>THE_IDENT=DEBUG>----- Call VALIDATE_NODE_IDENTIFIERR=P) +wPvPϞRPPQ BAS$INIT_R8q Z BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTSq1}ʗ _4 VALID_FILE 8-APR-1994 15:33 VAX BASIC V3.5' VALID_FILE VALID_FILE$PDATA$CODE$ARRAY$DESCFPARSEUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP   VALID_FILE OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 STR$CONCAT BAS$NUM1_L BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BLIB$STOP SYS$n STR$CONCAT  STR$CONCAT2o\ \(\LSTR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2o\\ BAS$UNLOCK1Ыg1dmG BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITP BAS$END_R8Pqn 0 < mww?oSEARCH_RIGHTSLISTP\\2<_1_<2o\\ BAS$UPDATE2o\\ BAS$UNLOCKj BAS$PRINT2o\ \(\LH|xSTR$TRIMH STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END11  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDoot192o\\\o2o\ \(P\L>STR$TRIM- Ыp1kJ^|ʗ >BAD_ASK_STATUS_VALUE 8-APR-1994 15:28 VAX BASIC V3.5;BAD_ASK_STATUS_VALUEBAD_ASK_STATUS_VALUE$PDATA6$CODE$ARRAYH$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP! BAD_ASK_STATUS_VALUE OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 STR$CONCAT BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_BSTR$COPY_DX_R8LIB$STOP LOGICAL_NAME SS$_NORMAL SS$_NOLOGNAM SS$_ABORT&Pm\XmmmBAD_ASK_STATUS_VALUE BAD_ASK_STATUS_VALUE: Unexpected error while trying to translate ... being set to due to BATCHONLINE logical name... due to non-existent Skipping database ASK_STATUS_^P ArPϞRPPQ BAS$IrSEARCH SYS$PARSE SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPc\X.ccc}}y VALID_FILE Error for SYS$PARSE: PhPϞRPPQ BAS$INIT_R8~\,l ,} ,} 瞫\\P\,\EXIT SEARCH - MATCH_FOUND= DisuserOwner Username UIC u Dept(Displaying existing users having this UIC Group...)DEBUG> FOUND (DEC) UIC GROUP OF DEBUG>SEARCH FOR ANY (DEC) UIC GROUP OF ] was foundDEBUG>Valid UIC of [Error - Non-Octal digit found in UIC memberError - Invalid range for UIC memberError - Non-Numeric UIC memberError - Non-Octal digit founBd in UIC group98Error - Invalid range for UIC groupError - Non-Numeric UIC groupError - Invalid comma found in UICError - Invalid UIC length]Error - Invalid bracket found in UIC[Error - No comma vfound in UIC, j      P2y$h"F)#*$+mY N(&$!4@U  4  gPϞRPPQ BAS$INIT_R81BAS$ERRP\2X\X BAS$SLEEP BAS$RETRYiBAS$ERRP\2X\X BAS$CONTINUE BAS$EXIT_HNDLwBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYiBAS$ERRP\2X\X BAS$CONTINUE BAS$EXIT_HNDL򰯎q~WQ~KPSTR$COPY_DX_R8KBAS$POSP\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1 KBAS$POSPm2m\\KK STR$CONCATm2m\\` BAS$PRINT BAS$IO_END BAS$PRINTSTRx$TRIM  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1 (KBAS$POSPm2m\\(KK STR$CONCAT BAS$PRINT? @ B U Z   38 STR$CONCATBAS$OUT_T_DX_S BAS$IO_END<3XX\"\\i12i\\<3WWXX\\PM BAS$PRINT BAS$IO_END BAS}$PRINT38 STR$CONCATBAS$OUT_T_DX_S BAS$IO_END<3XX\"\\iA BAS$PRINT3 STR$CONCATBAS$OUT_T_DX_S BAS$IO_END2i\\<3WWXX\\i1 2i\\ BAS$PRINT BAS$IO_ENDW\2\\  X)H l-WWWWW\  X)H l-WWWWW\  X)H$ l-WWWWW\\1 BAS$PRINT BAS$IO_END 1u BAS$PRINT BAS$IO_END BAS$PRINT0@ STR$CONCATH STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTPBAS$OUT_T_DX_S BAS$IO_END f2 f\\ 12 f\\\ f2 f\\9 BAS$PRINT2 f\ \\L \XBAS$OUT_T_DX_S BAS$IO_ENDJ BAS$PRINT2 f\ \E\L d`h STR$CONCATBAS$OUT_T_DX_S BAS$IO_END1B BAS$PRINTpBAS$OUT_T_DX_B SS$_NORMAL SS$_NOLOGNAM SS$_ABORTHPc\Xccc    VALID_USER is not a username - it's an identifier is not an existing username identifierError - Error - Username argument is out of range: on chnl DEBUG>Call VALID_USER for JP +''hPϞRPPQ BAS$INIT_R8qdp BAS$PRINTc STR$TRIM  BAS$PRINTg\2\XX   BAS$NUM1_L @ STR$CONCATH STR$CONCATPSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2g\1\\km2k\ݏP\ BAS$GET_KEYm\\H d= BAS$PRINTPSTR$TRIMX STR$CONCATBAS$OUT_T_DX_B BAS$IO_END12k\\ BAS$UNLOCK 2g\ \(\L nd`STR$TRIMK STR$CONCAThK STR$CONCAT  BAS$IO_ENDq1+  \)L l-X1  \(L l-o)oW2QQR~;P STR$COPY_R_R82QKR~;P STR$COPY_R_R8 BAS$PRINT BAS$IO_END BAS$PRINT;x STR$CONCAT STR$CONCAT0 STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT STR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1  \(L l-p)pW1[ BAS$PRINTBAS$OUT_T_DX_S BAS$IO_END\\XXXXX\\ BAS$PRINTBAS$OUT_T_DX_S BAS$IO_END0 BAS$PRINTP~PQ~PSTR$COPY_DX_R8BAS$OUT_T_DX_S BAS$IO_ENDS% BAS$PRINTBAS$OUT_T_DX_S BAS$IO_END\\XXXXX\\ BAS$PRINTBAS$OUT_T_DX_BSTR$TRIMBAS$OUT_T_DX_B BAS$IO_END1`Ыc BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUTBAS$OUT_T_DX_SW BAS$IN_T_DX BAS$IO_END벫m\\1&WWBAS$EDIT-W[ 1-W[ Id BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1.File: Error from SET_PROTECTION SYS$SEARCHError from SET_PROTECTION SYS$PARSEError from SET_PROTECTION SYS$ASSIGNSYS$DISK::P%$j%E 93"#**%lPϞRPPQ BAS$INIT_R8מ\\\ \BAS$POSP2\\2 QR~P STR$COPY_R_R8\2\XXBAS$dSTR$TRIM- w1 BAS$PRINT BAS$IO_END BAS$PRINT2k\ \(\Ln STR$TRIM STR$CONCAT STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1dT BAS$PRINT2k\ \(\Ln,(STR$TRIM0 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2k\1\\mo2m\8\ BAS$GET_KEYo\\12XX\\2WWXXX\21@$|ʗ -?READ_ALL_SYSUAF_SPECS 8-APR-1994 15:32 VAX BASIC V3.5=READ_ALL_SYSUAF_SPECSREAD_ALL_SYSUAF_SPECST$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP" READ_ALL_SYSUAF_SPECS OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$LEFT BAS$NUM1_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DX BAS$OUT_L_V_BBAS$OUT_T_DX_SBAS$OUT_T_DX_BBAS$OPEN BAS$CLOSE BAS$VMSSTATUS STR$COPY_R_R8SYS$EXITDISK_UNAVAILABLE SS$_NORMAL SS$_NOLOGNAM SS$_ABORTPn\Xnnn READ_ALL_SYSUAF_SPECS Error - No available SYSUAF.DAT file foundError - Local node's SYSUAF.DAT file not found Aborting...Error - Can't open You do not have the privilege to open Error - Can't find is unavailableWarning: Sysuaf on node Error - No file specs found in TOOLS:SYSUAF_SPECS.DATDISK$: TOOLS:SYSUAF_SPECS.DAT while readingUnexpected BASIC Error Error - Can't open any existing TOOLS:SCYSUAF_SPECS.DAT fileVMS error status value:You do not have the privilege to open TOOLS:SYSUAF_SPECS.DAT fileError - Can't find any existing TOOLS:SYSUAF_SPECS.DAT fileTOOLS:BAS$OUT_T_DX_B BAS$IO_END޲g\iXX\kXX\\qP BAS$END_R8qP   _wwS$IN_T_DX BAS$IO_END17)l 3ݯ BAS$LINPUT@BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END1)l3ݯ BAS$LINPUTHBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END1)l6ݏb BAS$LINPUTPBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END1z)li2\15 BAS$PRINT BAS$IO_END BAS$PRINTp STR$CONCAT@STR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END\\1 BAS$PRINTxBAS$OUT_T_DX_S BAS$IO_ENDiЭO2i\\e2i\\\i BAS$PRINT2i\ \ \LrVSTR$TRIM STR$CONCATBAS$OUT_T_DX_S BAS$IO_ENDЫO BAS$PRINT BAS$IO_END BAS$PRINT BAS$IO_END11@|ʗ LFGET_FOREIGN_DCL_COMMAND_LINE 8-APR-1994 15:29 VAX BASIC V3.5K#GET_FOREIGN_DCL_COMMAND_LINE#GET_FOREIGN_DCL_COMMAND_LINE$,$PDATAd$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP) GET_FOREIGN_DCL_COMMAND_LINE OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$EDITBAS$LEFT BAS$NUM1_L BAS$PRINT BAS$IO_ENDBAS$OUT_T_DX_B STR$COPY_R_R8STR$COPY_DX_R8SYS$EXITLIB$STOP VALID_UICVALID_DISK_DEVICELIB$GET_FOREIGNCAPITALIZE_FIRST SS$_NORMAL SS$_NOLOGNAM SS$_ABORT_Pu\Xuuu(($GET_FOREIGN_DCL_COMMAND_LINE %Aborting due to missing foreign DCL parameter(s)...%Aborting due to missing foreign DCL parameter... Aborting...Error - You are not allowed to use the DCL command optionDEBUG>PARAM3=DEBUG>PARAM2=DEBUG>PARAM1=*DEBUG>DCL_ACTION=Error - Invalid disk device syntax:%Invalid quota action: QUOTA_DELETEDELETEQUOTA_ADDADD%Invalid division: , Error - Owner name format must bNe: Last, First,Error - Owner name can not contain quotesError - New Owner name is too long"Error - New Username is too longError - UIC is too longError - Device is too longError - Identifier name is too longError - Identifier is too longError - Nodename is too longError - Too many DCL parametersError - Username is too longNotify your VAX System Manager%Error - Unrecognized foreign DCL parameter: ...UICREVOKEQUOTANODESNEXT_AVAIL_UICMODIFY_USERNAMEMODIFY_UICMODIFY_DEVICEIDENTIFIER_NODESAGRANTDIVISIONDEFAULT Unexpected error from LIB$GET_FOREIGN:XP&Pz-feF)  $v!U#1T*0#hWV I < /:25zPϞRPPQ BAS$INIT_R8?mLIB$GET_FOREIGNP_ѫ_ SS$_NORMAL' BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݫ_LIB$STOPﰫm\2\XXBAS$LEFTݏBAS$EDIT<\\m, Pz2QR~SP STR$COPY_R_R82QR~WP STR$COPY_R_R82QR~[P STR$COPY_R_R8BAS$POSPcիc]c\\BAS$LEFTݫc BAS$RIGHTBAS$EDITBAS$POSPcիc <XX\\cSTR$TRIM~Q~3PSTR$COPY_DX_R8-37 1-37 1-37 1-37 1z-37 1d-37 1N-37 18-37 1"-37 1 -37 1-37 SYSUAF_SPECS.DATsSr<}s<}IP?0& <dB"<6WPPP /P+wPϞRPPQ BAS$INIT_R81QBAS$ERRP\2X\X1 BAS$PRINT2o\ \(\LnSTR$TRIM STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2o\ \(P\,W PLd 2QWR~cP STR$COPY_R_R8 BAS$CONTINUEBAS$ERRP\2X\XM BAS$PRINTc  STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDm BAS$CONTINUEUBAS$ERRP\2 X\XL BAS$PRINTc( STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDm BAS$CONTINUEBAS$ERRP\2X\X1} BAS$PRINTc0 STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT8BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_ENDm BAS$CONTINUE BAS$PRINT8BAS$OUT_T_DX_S BAS$VMSSTATUSP\\T BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLBAS$ERRP\2 X\X m BAS$CONTINUE BAS$PRINT BAS$IO_END BAS$PRINTBAS$ERRP\\  BAS$NUM1_LF @ STR$CONCATH STR$CONCATP STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT8BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLBAS$ERRP\2X\X* BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDm BAS$CONTINUEBAS$ERRP\2 X\X) BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_ENDëm BAS$CONTINUEBAS$ERRP\2 STR$CONCAT2W\ \(\L STR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDFound identifierDEBUG>ID done is a UIC-format identifierError - , SPECIFIC_NODE=, THE_IDENT=DEBUG>If Held: ENTERED_USERNAME=DEBUG>----- Call IF_HELD_IDENTIFIERP#  l ` @-PPH-,  N3  n'r!Q,OpPϞRPPQ BAS$INIT_R8qd1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT0STR$TRIM0( STR$CONCAT(  STR$CONCAT STR$TRIM  STR$CONCAT( STR$CONCAT_ STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDmm,1O2m\\\m2m\ \(P\L41 BAS$PRINT BAS$IO_END BAS$PRINTcSTR$TRIM  STR$CONCAT( STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END11 BAS$PRINT BAS$IO_END BAS$PRINTcSTR$TRIM  STR$CONCAT0 STR$CONCAT STR$CONCATtBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDqP BASM$_NOLOCKAVAIL DBM$_NOLLBAVAIL DBM$_NODEFVAL DBM$_NOCREMBX DBM$_INTERLOCK DBM$_ILLNCHAR DBM$_ID_MAP DBM$_FIXED DBM$_ERASEMANDTDBM$_END DBM$_DUPNOTALL DBM$_DEADLOCK DBM$_DBBUSY DBM$_CSTYP_POSDBM$_CSTYP_NULL DBM$_CRUN_POS DBM$_CRUN_NULL DBM$_CRTYP_POS DBM$_CRTYP_NULL DBM$_CRELM_POS DBM$_CRELM_NULL DBM$_CONVERR DBM$_COMPMOVE DBM$_COMPLEX DBM$_CKEYMOVE DBM$_CHKRECORDT DBM$_CHKMEMBER DBM$_CHKITEM DBM$_CANTUSERUJ DBM$_CANTPUTRUJ DBM$_CANTOPENOUT DBM$_CANTOPENDBS DBM$_CANTEXTDBS DBM$_CANTCRERUJ DBM$_CANTBINDRT DBM$_CANTASSDBJ DBM$_BUGCHECK DBM$_BOUND DBM$_BADZERO DBM$_BADVERSION DBM$_BADSSCLST DBM$_BADKUNBIND DBM$_BADKBIND DBM$_BADDEVNAM DBM$_BADDBNAME DBM$_BADBIND DBM$_BAD_ARGLST DBM$_ASTINPROG DBM$_AREABUSY DBM$_ALLREADY DBM$_ABORT_WAIT DBQ$RELEASE_STREAM DBQ$EXECUTE_STREAM DBQ$COMPILE_STREAMDBQ$INTERPRET_STREAM DBM$KPL_COUNT_STREAM DBM$GET_DBKEY_STREAM DBM$STATS_STREAM DBM$SIGNAL_STREAM DBM$PLACE_STREAM DBM$ACCEPT_STREAM TENANT_STREAM OWNER_STREAM MEMBER_STREAM EMPTY_STREAM COMPARE_STREAMDML$RTI WEB$0097CA7CCE639FE0 SS$_NORMAL SS$_NOLOGNAM SS$_ABORTCPd\X% ddd0 NUSER_OTHERI<8READY_PROCESSINGM<8NUSER_OTHER_ROLLBACKS<8 NUSER_OTHER_LIST_TEMPLATESV<8NUSER_OTHER_VALIDATE_TEMPLATEK<8RVALID_4GL_DATABASEH<8VALID_MANMAN_DBJ<8VALID_DB_DATABASEM<8 NUSER_OTHER_ADD_USERK<8NUSER_OTHER_COMMITP<8NUSER_OTHER_DELETE_USER Error - Invalid option passed to NUSER_OTHER: DEBUG>Removing user access for from the ADEBUG>Adding user access for to the DEBUG>---Process SYSUAF file #---DEBUG>PERFORM SYSDB MODIFICATIONSCHANGE_SYSDB User access was deleted but not added - Fix and Retry operationError - Invalid Database Number: Unexpected error from ERASE ALL SY_USRREC (CHANGE_DB_USER)Unexpected error from FETCH FIRST SY_USRREC (CHANGE_DB_USER) did not haveCHANGE_DB_USER:CHANGE_DB_USERDELETE_DB_USERADD_DB_USERLIST_TEMPLATESVALIDATE_TEMPLATECOMMITROLLBACKDEBUG>EXIT TEMPLATE LOOPDEBUG>VALID TEMPLATEDEBUG>TEMPLATE(2)=DEBUG>TEMPLATE= (Default of *READONLY) ==> used when granting this user Database Template to beThis user is allowed to access the Warning - Skipping database which is set to logical name - Skipping - Skipping identifierDEBUG>SEE IF IDENT EXISTS: access... Skipping logical name -Error - There is no DEBUG>NO DEFAULT DATABASEDEBUG>DBMS DOES NOT EXISTGET_TEMPLATE Enter Y or N (Default of N) ==> nodes? of the above on ALL Do you also want to This user has an account on the following nodes: identifiers thefromtoDEBUG>DONE WITH GET_OTHER_DATABASE - OTHER_IDENTS_CTR=DEBUG>OTHER_IDENTS_DB(DEBUG>OTHER_IDENTS_TEMPLATE()=DEBUG>OTHER_IDENTS(DEBUG>VALID OTHER_TEMPLATEError - Invalid templateLISTDEBUG>OTHER_TEMPLATE(2)=DEBUG>TEMPLATE_DB=DEBUG>OTHER_TEMPLATE= (Or type LIST to list all Security Database Templates) (Default of *READONLY) ==> database: access to the this user used when Enter the DEBUG>BEFORE TEMPLATE GET - VALID_ENTRY= database...access to this user when changinggranting Template Using the *READONLY DEBUG>FORCE_READONLY*READONLYDEBUG>USER ACTION=Error - You are not authorized to  the access fordenychangegrantA, Valid Divisions are: Error - Invalid Division () for thisError - Invalid division length for Error - Invalid division for DIV_DEBUG>EXIT GET_OTHER_DATABASEE (Enter E when done): grantedEnter any additional Fnnn Enter any additional 3-digit database number to be granted access:Enter any additional 3-digit database number to be granted access, or be granted access:Enter the 3-digit database number whose access is to be changed:Enter any Fnnn Enter any 3-digit database number to be denied access: denied to be access:Enter any 3-digit database number to be denied access, or be denied access: database to Fnnn databaseDEBUG>USER_ACTION=DEBUG>ACTION_INDEX=DEBUG>OTHER_PARAM1=DEBUG>FOUR_GL_EXISTS=DEBUG>DBMS_EXISTS=DEBUG>ENTER GET_OTHER_DATABASE@GET_OTHER_DATABASERW Responding with an N will allow no access to all of the above filesEnter W, R, or N (Default of R): Enter W, R, or N (Default of W): Responding with an R will allow READ access to all of the above files READ/WRITE/DELETE access to USR filesFOC and Notes: Responding with a W will allow:-division report filesCUS, and COM, OPR, READ access to Enter W for READ/WRITE access, R for READ access, or N for no accessWhat kind of access does this user require to the directories containing the division's User-Controlled files?OPRUGET_DIVISIONAL_IDENTEnter Y or N (Default of N): database?Do you want to allow this user to access the DEBUG>GET 4GL ACCESSGET_4GL_ACCESSB (Default of N): Is this user allowed to access (Y or N) or YPGMN0DBMSUSERNUSER_OTHER DEBUG>OTHER_PARAM2=NUSER_OTHER DEBUG>OTHER_PARAM1=NUSER_OTHER DEBUG>OTHER_ACTION= successfully deleted from database Unexpected error from ERASE ALL SY_USRREC (DELETE_DB_USER)Unexpected End-of-collection error occurredDEBUG>DML$VALUE after ERASE SY_USRREC=DEBUG>DBM_COND after ERASE SY_USRREC=Unexpected error from FETCH FIRST SY_USRREC (DELETE_DB_USER)DEBUG>Erase All does not have access to this databaseDEBUG>DML$VALUE after FETCH SY_USRREC=DEBUG>DBM$_END=DEBUG>DML$K_ERROR=DELETE_DB_USER:DEBUG>---Skip Commit Unbind due to un-bound database---DEBUG>---Skip Commit due to un-readied database---Unexpected error from COMMITUnexpected End-of-collection error occurred during COMMITDEBUG>Commit successfully added to successfully changed in User Unexpected error from STORE SY_SECRECDEBUG>Store SY_SECRECUnexpected error from STORE SY_SCNRECDEBUG>Store SY_SCNRECUnexpected error from STORE SY_CMDRECUnexpected error from FIND FIRST SY_UPCRECDEBUG>Store SY_CMDRECUnexpected end-of-collection error from FIND FIRST SY_UPCRECDEBUG>Fetch first SY_UPCRECUnexpected error from STORE SY_UPCPLTREC***DEBUG>Store SY_UPCRECUnexpected error from STORE SY_USRRECDEBUG>Store new user for already has access toWarning - User access to this database does not haveDEBUG>User DEBUG>Fetch SY_USRRECUnexpected error from FETCH NEXT SY_SECRECDEBUG>DBM_COND after FETCH SY_SECREC=DEBUG>Fetch SY_SECRECUnexpected error from FETCH NEXT SY_SCNRECDEBUG>DBM_COND after FETCH SY_SCNREC=DEBUG>Fetch SY_SCNRECUnexpected error from FETCH NEXT SY_CMDRECDEBUG>DBM_COND after FETCH SY_CMDREC=DEBUG>Fetch SY_CMDRECUnexpected error from FETCH NEXT SY_UPCRECDEBUG>DBM_COND after FETCH SY_UPCREC=Unexpected error from FETCH FIRST SY_USRREC (ADD_DB_USER)DEBUG>Fetch SY_UPCRECDEBUG>Null currency for SY_USRHSHSET Skipping access to database Skipping change to database Error - Non-existent Security Database Template: ... for user DEBUG>DBM_COND after FETCH SY_USRREC= recordDEBUG>Fetch Template ADD_DB_USER:ADD_DB_USER_TEMPLATE:OTHDEBUG>CALL VALID_DB_DATABASEASK_STATUS_ database disk for DISK_DEBUG>EXIT VALID_4GL_DATABASE unavailable is currentlyError - BATCHONLINE access for STATUS_ database identifier: DEBUG>CALL VALIDATE_IDENTIFIER FOR Unexpected error while trying to translate database number: Error - Invalid DEBUG>TRANSLATE This user already has access to database You have already entered XGError - Invalid responseTFDEBUG>CALL VALID_4GL_DATABASEDEBUG>VALIDATE TEMPLATE: GOOD TEMPLATEUnexpected error from FETCH FIRST SY_USRRECDEBUG>VALIDATE TEMPLATE: BAD TEMPLATEDEBUG>VALIDATE TEMPLATE: LOOKUPVALIDATE_TEMPLATE: TEMPLATE|DEBUG>NUSER_OTHER_VALIDATE_TEMPLATE: VALIDATE *Unexpected error from FETCH NEXT SY_USRREC database # found in Templates DatabaseWarning - No  Database Templates SecurityList of all LIST_TEMPLATES:DEBUG>LIST TEMPLATES FOR DATABASE DEBUG>---Skip Rollback Unbind due to un-bound database---Error while unbinding from SYSDB databaseUNBINDDEBUG>---Skip Rollback due to un-readied database---DEBUG>Rollback) (DBM_COND= database - Aborting...Can't READY DEBUG>DBM_COND BEFORE READY=DEBUG>Ready for readingDEBUG>Ready for writingUnexpected error from SYS$CRELNMDEBUG>LOCAL_STATUS=MM$SYSBASELNM$PROCESSCREATE LOGICAL FOR> is not yet readiedDEBUG>---------- Exit READY_PROCESSING ---------- is already readied Database DEBUG>DEBUG>NUSER_FLAG2=DEBUG>NUSER_FLAG1=DEBUG>---------- Enter READY_PROCESSING ---------- FOR DEBUG>READY_PROCESSING: READY (Precede the template with a database number to use that database's template)w==_AATlFFI|MM>Y[3ac(nnw===AAAlFzFFFF|MMMYYZ /ZCZ UZ iZpZ/[p[x[[[[[ a a a b b .b @b Tb hb ob b b bc c c cnnnP2GB 2 kkjB!   A 4d*49"  n      y n+C t.  %,&bE2 y+2    $+  @-#fPI =*   |u%P3& F  C&$:Q%,+&+&`+5 &+ zd  `- K&%)=+Lw&&&&{ o:527&Y&3=$%&,p;5$ z hE-D  ! Lf"M* 't O%M & &   Y G 2    9      6D 5    z  @ E  B[ A 9     $    x w "0  \ W R              (  u  j  ` P  E Oe8' BzgeI363  "_:!     r#O7  4- @=;!H_!2/P   .umREADY_PROCESSINGNUSER_OTHER_ROLLBACK3!NUSER_OTHER_LIST_TEMPLATESf$, NUSER_OTHER_VALIDATE_TEMPLATE3g VALID_4GL_DATABASEVALID_MANMAN_DBVALID_DB_DATABASENUSER_OTHER_ADD_USER/J5NUSER_OTHER_COMMIT*7NUSER_OTHER_DELETE_USERPϞRPPQ BAS$INIT_R8MS BAS$CONTINUES BAS$CONTINUES BAS$CONTINUES BAS$CONTINUES BAS$CONTINUES BAS$CONTINUES BAS$CONTINUE1ϞlPPQBAS$INIT_DEF_R8} d1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTs STR$CONCAT STR$CONCATo\2\XX BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S2 ~ BAS$OUT_L_V_B BAS$IO_END BAS$PRINT BAS$OUT_T_DX_S2 ~ BAS$OUT_L_V_B BAS$IO_END 1 dc BAS$PRINTw( STR$CONCAT0 STR$CONCATs STR$CONCAT8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END d BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_END1] dc BAS$PRINTw( STR$CONCAT0 STR$CONCATs STR$CONCATH STR$CONCATBAS$OUT_T_DX_B BAS$IO_END랫Z\Z\Z\Z\>AZ\ sPX STR$CONCAT dC BAS$PRINTX` STR$CONCATh STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDZ2 QUR~P STR$COPY_R_R82 Q_R~P STR$COPY_R_R8 SYS$CRELNMP d' BAS$PRINTpBAS$OUT_T_DX_Sݫ BAS$OUT_L_V_B BAS$IO_ENDˏ\\' BAS$PRINTxBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPoM d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END ݏݏ DML$RTIP1 dZ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT( BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_B BAS$IO_END ݏݏ DML$RTIPի1 BAS$PRINTs STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT( BAS$NUM1_L STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL   d BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDlPBAS$END_DEF_R8}P13ϞPPQBAS$INIT_DEF_R8} G d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏ DML$RTIP߰ % d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END e 2Q^R~P STR$COPY_R_R8DBQ$INTERPRET_STREAMPˏ\\' BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOP% d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDPBAS$END_DEF_R8}P1fϞ PPQBAS$INIT_DEF_R8} d- BAS$PRINTs STR$CONCATBAS$OUT_T_DX_B BAS$IO_END~s\- laPU~sQ~PSTR$COPY_DX_R82QR~P STR$COPY_R_R8~sQ~PSTR$COPY_DX_R82~ PUݏݏ DML$RTIP BAS$PRINT BAS$IO_END BAS$PRINT BAS$TAB BAS$OUT_T_DX_SI   [ C I v    ɰ$END_R8qP/,B wwONTINUE BAS$EXIT_HNDL򰯎q~WQ~KPSTR$COPY_DX_R8KBAS$POSP\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1 KBAS$POSPm2m\\KK STR$CONCATm2m\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR1`&}ʗ _8VIDEO_TERMINAL 8-APR-1994 15:33 VAX BASIC V3.5/VIDEO_TERMINALVIDEO_TERMINAL\s$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP VIDEO_TERMINAL OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8 STR$COPY_R_R8 SYS$GETDVIW SS$_NOSUCHDEV SS$_IVLOGNAM SS$_IVDEVNAM SS$_NORMA STR$TRIM STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDE1ݏݏ DML$RTIPЫߪwѪw1ݏݏ DML$RTIP߲E\\1 BAS$PRINT@STR$TRIM@8 STR$CONCAT80 STR$CONCAT0( STR$CONCAT(  STR$CONCAT   STR$CONCAT( STR$CONCATs STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END10ժw+ BAS$PRINT0BAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL8BAS$LEFT- B1c BAS$PRINTBAS$TABBAS$OUT_T_DX_S8STR$TRIMBAS$OUT_T_DX_B BAS$IO_END찏E1 PBAS$END_DEF_R8}P13ϞaPPQBAS$INIT_DEF_R8 dp BAS$PRINTs@  STR$CONCATH  STR$CONCAToSTR$TRIM STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END~s\- lϴPU~sQ~PSTR$COPY_DX_R82QR~P STR$COPY_R_R8~sQ~PSTR$COPY_DX_R82~\PU d BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_END~o\,l tݏݏ DML$RTIPЫߪwѪwPݏݏ DML$RTIPߵ d BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_END}10ժw+ BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNALݏݏ DML$RTIPߵ d BAS$PRINTpBAS$OUT_T_DX_B BAS$IO_END}aPBAS$END_DEF_R8}P1ϞPPQBAS$INIT_DEF_R8ê} d BAS$PRINTxBAS$OUT_T_DX_B BAS$IO_ENDoBAS$LEFT- D\\  X)H l-CWWW\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1ok BAS$RIGHTUQ2UXX \\QX2XXXXX\\82U\\\U2U\ \d \~oX- L Wg hQQ1g BAS$PRINT BAS$IO_END  \(L l-|)|*)|)1 BAS$PRINT(STR$TRIM(  STR$CONCAT  STR$CONCATk STR$CONCATSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 BAS$PRINT(STR$TRIM(  STR$CONCAT  STR$CONCATk STR$CONCATSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1*k STR$CONCAT d- BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫsѪs SS$_NOLOGNAM1 SS$_NORMAL BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCATk STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1[Ѫs SS$_NORMALQ BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPk STR$CONCAT d0 BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDVALIDATE_IDENTIFIERP\\1 BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCATk STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1 STR$CONCATk STR$CONCAT d- BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫwѪw SS$_NOLOGNAM1  5 5 ݸ  SS$_NORMAL BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCATk STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END11mѪw SS$_NORMAL1~Q~gPSTR$COPY_DX_R8-gk 7-gk 21 BAS$PRINT BAS$IO_END BAS$PRINT8STR$TRIM80 STR$CONCAT0( STR$CONCATk(  STR$CONCAT  STR$CONCAT STR$CONCATSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1Q BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOP} d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDPBAS$END_DEF_R8}P1Ϟ PPQBAS$INIT_DEF_R8}kP STR$CONCAT LOGICAL_NAMEPЫoѪo SS$_NOLOGNAM1 SS$_NORMALg\\1l BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCATk STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1[Ѫo SS$_NORMALQ BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPkP STR$CONCATVALIDATE_IDENTIFIERP\\1g\\1B BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCATk STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1k  STR$CONCAT LOGICAL_NAMEPЫsѪs SS$_NOLOGNAM1 SS$_NORMALg\\1^ BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM  STR$CONCAT( STR$CONCATk STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1[Ѫs SS$_NORMALQ BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPk0 STR$CONCAT LOGICAL_NAMEPЫwѪw SS$_NOLOGNAM1 SS$_NORMALg\\1 BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCATk STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END11vѪw SS$_NORMAL1~Q~_PSTR$COPY_DX_R8-_c 7-_c 21g\\1+ BAS$PRINT BAS$IO_END BAS$PRINT8STR$TRIM80 STR$CONCAT0( STR$CONCATk(  STR$CONCAT  STR$CONCAT STR$CONCATSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDcQ BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOP} PBAS$END_DEF_R8}P1ϞVPPQBAS$INIT_DEF_R8} d BAS$PRINT8BAS$OUT_T_DX_B BAS$IO_END~wQ~kPSTR$COPY_DX_R8) 1  \(L l-{){*){) ){C1-ko  1 BAS$PRINT BAS$IO_END BAS$PRINT(STR$TRIM(  STR$CONCAT  STR$CONCATk STR$CONCATSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1UQ2UXX \\QX2XXXXX\\72U\\\U2U\ \d \- L Wg koQQ1q BAS$PRINT BAS$IO_END  \(L l-|)|*)|))|C1 BAS$PRINT(STR$TRIM(  STR$CONCAT  STR$CONCATk STR$CONCATSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 BAS$PRINT(STR$TRIM( x STR$CONCAT  STR$CONCATk STR$CONCATSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END)~kQ~PSTR$COPY_DX_R82~ϤP\\}VPBAS$END_DEF_R8}P1/ϞPPQBAS$INIT_DEF_R8Ԟ}~G\~CX-h l6ݸ ݹ ݹ ݹ2QR~P STR$COPY_R_R8~CQ~PSTR$COPY_DX_R82~PU62 QR~P STR$COPY_R_R8~GQ~PSTR$COPY_DX_R82~ϴPU dM BAS$PRINT?STR$TRIM@ STR$CONCATH STR$CONCATBAS$OUT_T_DX_B BAS$IO_END~?\,l tݏݏ DML$RTIPߵ d* BAS$PRINTPBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_ENDDBM$_ENDߩ(LIB$MATCH_CONDP\\1 BAS$PRINT?STR$TRIMX STR$CONCATBAS$OUT_T_DX_B BAS$IO_END  \(L l-z)zC1 BAS$PRINTG`( STR$CONCATh(  STR$CONCATpSTR$TRIM  STR$CONCATx STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 BAS$PRINTG( STR$CONCATh(  STR$CONCATpSTR$TRIM  STR$CONCATx STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1DBM$_CSTYP_NULLߩ(LIB$MATCH_CONDP\\1 d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT?STR$TRIMX STR$CONCATBAS$OUT_T_DX_B BAS$IO_END  \(L l-{){C1 BAS$PRINTG`( STR$CONCATh(  STR$CONCATpSTR$TRIM  STR$CONCATx STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 BAS$PRINTG( STR$CONCATh(  STR$CONCATpSTR$TRIM  STR$CONCATx STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1Hի$ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL簏MM1 d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ d* BAS$PRINTBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_ENDDBM$_ENDߩ(LIB$MATCH_CONDP\\$ݏݏ DML$RTIP߰M11DBM$_CSTYP_NULLߩ(LIB$MATCH_CONDP\\ݯݯDML$RTIP߰M1ի$ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL֫  \~GX,h L \(SL \(qLHN \(RL=P \( >L2R \( HLeⰏGЭKG1` d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ d* BAS$PRINTBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_ENDDBM$_ENDߩ(LIB$MATCH_CONDP\\$ݏݏ DML$RTIP߰G11DBM$_CSTYP_NULLߩ(LIB$MATCH_CONDP\\ݯݯDML$RTIP߰G1ի$4 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL֫ \($LVy \~GX,h L1ЪKIЭOI1 d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ d* BAS$PRINT     3  U BAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_ENDDBM$_ENDߩ(LIB$MATCH_CONDP\\$ݏݏ DML$RTIP߰I11DBM$_CSTYP_NULLߩ(LIB$MATCH_CONDP\\ݯݯDML$RTIP߰I1ի$ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL֫  \~GX,h L \(L8 \( L \(L \( L1QЪOKЭSK1` d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ d* BAS$PRINTBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_ENDDBM$_ENDߩ(LIB$MATCH_CONDP\\$ݏݏ DML$RTIP߰K11DBM$_CSTYP_NULLߩ(LIB$MATCH_CONDP\\ݯݯDML$RTIP߰K1ի$ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL֫  \~GX,h L \( Lb-1ЪS1s~G\~CX-h lN۰PU~G\,l 2 QR~P STR$COPY_R_R8~GQ~PSTR$COPY_DX_R82~mְPU(  t d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPDBM$_ENDߩ(LIB$MATCH_CONDP\\n dc BAS$PRINTpSTR$TRIM STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1ի$ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL BAS$PRINTp(STR$TRIM(  STR$CONCAT   STR$CONCAT STR$CONCATG STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_END}1 (  t 4\2\XX(0BAS$LEFT߫߫߫ FOR$JDATEѫ2'ŏ'\!\ŏdXX\\ůث\-1\ů۫XX\\ d= BAS$PRINTpSTR$TRIM8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏݏDML$RTIPЫߪWѪWժW+ BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL( t2U2U\\122U\\\U2U\ \ \( L(2U\ \\(LS2U\ \\(LHNq2U\ \\(L=PR2U\ \ \( L2R>2U\ \ \( LeH d BAS$PRINTHBAS$OUT_T_DX_B BAS$IO_ENDݏݏDML$RTIPЫߪ[Ѫ[ժ[+ BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL1 h       * ,   9( t*U2U\\12U\\\U2U\ \\(LVy$2U\ \ \( L6)  961( 6( d BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDݏݏ  DML$RTIPЫߪ_Ѫ_+ BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL0ժ_+ BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL( ( 9 d BAS$PRINTpBAS$OUT_T_DX_B BAS$IO_ENDݏݏDML$RTIPЫߪcѪcժc+ BAS$PRINTxBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL1A,   9U2U\\12U\\\U2U\ \ \( L(2U\ \\(L82U\ \ \( L2U\ \\(L2U\ \\(L )  9(1 d BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDݏݏ  DML$RTIPЫߪgѪg+ BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL0ժg+ BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL( ( 9 d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏDML$RTIPЫߪkѪkժk+ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL1,   9U2U\\12U\\\U2U\ \ \( L(2U\ \\(Lb- )  9(1 d BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDݏݏ  DML$RTIPЫߪoѪo+ BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL0ժo+ BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL( ( 9 d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏDML$RTIPЫߪsѪsժs+ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL1M  \(L l-|)|C1 BAS$PRINTp(STR$TRIM(  STR$CONCAT  STR$CONCAT STR$CONCATG STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 BAS$PRINTp(STR$TRIM(  STR$CONCAT  STR$CONCAT STR$CONCATG. STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_END}PBAS$END_DEF_R8}P1ϞPPQBAS$INIT_DEF_R8 1 d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏDML$RTIP߰ Ыߪw E E  c       Ѫwb d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏ DML$RTIP BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END0ժw+ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL% d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END e 2Q^R~P STR$COPY_R_R8DBQ$INTERPRET_STREAMPˏ\\' BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOP% d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END}PBAS$END_DEF_R8}P1ϞDPPQBAS$INIT_DEF_R8}2QR~P STR$COPY_R_R8~sQ~PSTR$COPY_DX_R82~ȰPU(  t d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ d1 BAS$PRINTPBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_Sݫ BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_SDBM$_END BAS$OUT_L_V_B BAS$IO_ENDDBM$_ENDߩ(LIB$MATCH_CONDP\\\ BAS$PRINTpSTR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDϏ̰PU1ի$ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ dQ BAS$PRINTBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_Sݫ BAS$OUT_L_V_B BAS$IO_ENDЫߪwѪw0 BAS$PRINT BAS$OUT_T_DX_B BAS$IO_ENDϐ˰PU10ժw+ BAS$PRINT(BAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL BAS$PRINTp STR$TRIM  STR$CONCAT0 STR$CONCATs STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDϡPU}DPBAS$END_DEF_R8}P du BAS$PRINT8BAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT@BAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTHBAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$IO_END~Q~PSTR$COPY_DX_R8- 1p b\ XXXX\\?,  2QR~P STR$COPY_R_R8 V  q1?) ,  (2 f\ \\L hX2X\\P BAS$NUM1_L-  \\) XXXXX\\ W V/ V  q18?2QR~P STR$COPY_R_R8߰WW\\1>S 1 BAS$PRINT(STR$TRIM(X  STR$CONCAT`  STR$CONCATSTR$TRIM STR$CONCATh STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDP BAS$PRINTSTR$TRIMX STR$CONCATh STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUTpBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_ENDS\\ V q1=&HBAS$EDIT~HQ~PSTR$COPY_DX_R8   < <  ` ~\-l h2QR~P STR$COPY_R_R8~\-l g V q1s=~X-h \\~W-g XXXXX\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1W1 1<- Y1 \\12QR~P STR$COPY_R_R8 V  q1p< d BAS$PRINTxBAS$OUT_T_DX_B BAS$IO_END-  \\~W-g XXXXX\\1(WP STR$CONCAT LOGICAL_NAMEPЫ ѫ SS$_NOLOGNAM6 V  q1;W2QR~P STR$COPY_R_R8[ѫ SS$_NORMALQ BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPP STR$CONCATVALIDATE_IDENTIFIERP\\/ V  q1;W2QR~P STR$COPY_R_R8. V  q1:W2QR~P STR$COPY_R_R8鞯W\\1 VS BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCATP STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUTBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_ENDS\\ V q19&HBAS$EDIT~HQ~PSTR$COPY_DX_R8~\-l h2QR~P STR$COPY_R_R8~\-l g V q1a9~X-h \\~W-g XXXXX\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1W1 18- 1) 3 V  q1w8W STR$CONCAT1 STR$CONCAT d- BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫѫ SS$_NOLOGNAM#W STR$CONCATfѫ SS$_NORMAL WQ BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPW\\1F VS BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT8 STR$CONCAT80 STR$CONCAT0( STR$CONCAT(  STR$CONCAT  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT    BAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END) -ݏb BAS$LINPUT(BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END(ݯ BAS$LINPUT0BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_ENDS\\ V q14&HBAS$EDIT~HQ~PSTR$COPY_DX_R8) '~\-l h2Q R~P STR$COPY_R_R8%~\-l h2Q R~P STR$COPY_R_R8~\-l g V q14~Q~PSTR$COPY_DX_R8-  8 STR$CONCAT1-  @ STR$CONCAT1-  STR$CONCATg BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1W1   \)L l-D Џ 12- x 12Qw R~P STR$COPY_R_R8  b\ XXXX\\ V  q1q2 d1 BAS$PRINTHBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTPBAS$OUT_T_DX_S2 b~ BAS$OUT_L_V_B BAS$IO_END BAS$PRINTXBAS$OUT_T_DX_S2 ~ BAS$OUT_L_V_B BAS$IO_END BAS$PRINT`BAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$IO_END BAS$PRINThBAS$OUT_T_DX_S  BAS$OUT_L_V_B BAS$IO_END BAS$PRINTpBAS$OUT_T_DX_S  \L l-|xBAS$OUT_T_DX_B BAS$IO_END~\-l WWW\\1ޫS BAS$PRINT BAS$IO_END  \(L l-j)j)1R bPP \\1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 b  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END1 BAS$PRINT(STR$TRIM(  STR$CONCAT  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1)jC% BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END1Q bPP \\1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 b  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END1 BAS$PRINT(STR$TRIM(  STR$CONCAT  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUTBAS$OUT_T_DX_S[ BAS$IN_T_DX BAS$IO_ENDS\\ V q1-&[[BAS$EDIT-[_ h1m-[_  - d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDﰯW10-[_ g V ްq1N-<[XX\\ѫ1 b\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1 ~[Q~PSTR$COPY_DX_R8Ϙ˰P\\1d~[Q~kPSTR$COPY_DX_R81ѫ1 \\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1~[Q~PSTR$COPY_DX_R8ѼP\\1[k BAS$RIGH BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITg\\KS BAS$RIGHTg\\KKBAS$LEFT\X XX \\2HWWWL\ \\L d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT\X XX \ \2HW W \\,KO LX/.JI#L4$K)} @-PϞRPPQ BAS$INIT_R81BAS$ERRP\2 X\X o BAS$CONTINUE BAS$PRINT BAS$IO_END BAS$PRINTBAS$ERRP\\  BAS$NUM1_L  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT e's Division was not found for the local nodeDEBUG>DIVISION_ACCESS=DEBUG>DIV=Error while storing NUSER_RETURN global symbolNUSER_RETURNError - Username's default device/directory was not found for node Error - Username's default device/directory was not found mfor the local nodeDEBUG>Perform DCL Action of DEBUG>Call PROCESS_ANY_FOREIGN_DCL_COMMANDNODESDEBUG>Save pwdDEBUG>Reread account for Someone just deleted the record for DEBUG>DeleteDEBUG>Delete old account for DEBUG>Set pwd user Aborting...DEBUG>Store new password infoDEBUG>Store new owner name of DEBUG>Store new directory of DEBUG>Store new username of []DEBUG>Save old UIC: [Error - A matching new username was found for node ,UIC changed on DEBUG>Change device to to :DEBUG>DEFAULT_DEV_DIR=SError - No existing username was found on the local node for DEBUG>No match for MODIFY_USERNAMEMODIFY_UICMODIFY_DEVICEUICDIVISIONDEFAULT@ k @^   k   TPPPz =u?3lWV9UU $n UG*LCm/2 (<3$Pt8s02  STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDS STR$CONCAT \(Ll-q)qG2QR~P STR$COPY_R_R8?2QR~P STR$COPY_R_R8GRANT_IDENTIFIERPm)qREVOKE_IDENTIFIERPm@B2QiR~/P STR$COPY_R_R8/CALC_DUPL_NODES߰P\\1u gkkk 1O 2k\\\k2k\ \d\2QL TR~'P STR$COPY_R_R8iЭ_i 21 2i\\\i2i\ \(P\L d STR$TRIM- i2i\ \(\L n STR$TRIM-'+ 1n d@ BAS$PRINTi\uL SS$_NOLOGNAM SS$_ABORTyPg\XgggookVIDEO_TERMINAL TT:PϞRPPQ BAS$INIT_R8͞?\?\?\ޫ_?\ޫcK\2QlR~WP STR$COPY_R_R8?W SYS$GETDVIWPgЫgkѫk SS$_NORMAL<ѫ_`\\ѫ_qXXX\\qq qP BAS$END_R8qPA*'6 > TDLEFT? SYS$ASSIGNPѫ SS$_NORMAL% BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDЫo1K~\,l , , 瞫\\P\,\|ʗ LOMASKY REVOKE_IDENTIFIER/|ʗ LOMASKY REVOKE_NODE_IDENTIFIER*}ʗ LOMASKY SEARCH_RIGHTSLIST&}ʗ LOMASKY SEARCH_SYSUAF"@f}ʗ LOMASKY SET_OWNER' }ʗ LOMASKY SET_PROTECTION`A}ʗ LOMASKY .MAIN.}ʗ LOMASKY SPRIV,`}ʗ LOMASKY STORE_SYSUAF_RECORD+b(}ʗ LOM(1)y|ʗ ;READ_USER_ACTIONS 8-APR-1994 15:32 VAX BASIC V3.55READ_USER_ACTIONSREAD_USER_ACTIONS-$PDATA-$CODE$ARRAY8$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP READ_USER_ACTIONS OTS$LINKAGE BAS$LINKAGEBAS$POS BAS$RIGHT BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$EDITBAS$LEFTBAS)$MID BAS$NUM1_L BAS$VAL_L BAS$CONTINUEBAS$ERR BAS$EXIT_HNDL BAS$LINPUT BAS$PRINT BAS$IO_END BAS$IN_T_DX BAS$OUT_L_V_BBAS$OUT_T_DX_SBAS$OUT_T_DX_BBAS$OPEN BAS$CLOSE BAS$VMSSTATUS STR$COPY_R_R8STR$COPY_DX_R8LIB$STOPSYS$EXITNUMERIC LOGICAL_NAME/ SS$_NORMAL SS$_NOLOGNAM SS$_ABORTOPj\X jjj READ_USER_ACTIONS DEB*UG> User Seq=DEBUG>User Desc=DEBUG>User Action Letter, #Seqs= TOOLS:NUSER_ACTIONS.DAT - Increase MAX_SEQS inError - Too many seqs found in%Bad NUSER_ACTIONS.DAT Sequence of installed DBMS nor 4GL due to no range - Seq out of%Aborting - Bad NUSER_ACTIONS.DAT line # sequence user action - Non-numeric| or type to or press to Press to Type ACCOUNT_DESCDEBUG>FORMAT DESC: GRANT_DENY_DESC=GRANT_DENY_OBJECTS - No 2nd commaTXG - Bad action lenA - No 1st com,ma,LGICMD_RESTRICTED=LGICMD_NON_RESTRICTED=4GL_PREFIX=DEBUG>IS 4GLDEBUG>NO 4GL4GL_LOGICAL=DEBUG>4GL: GRANT_DENY_DESC=4GL_DESC=DUPLICATE_NODES=%Aborting - Bad NUSER_ACTIONS.DAT DISPWDHISDISPWDHIS=%Aborting - Bad NUSER_ACTIONS.DAT DEFAULT_RESTRICTEDYDEFAULT_RESTRICTED=DEBUG>DBMS: GRANT_DENY_DESC= or DBMS_PRODUCT=DBMS_PREFIX=DEBUG>IS DBMSDEBUG>NO DBMSDEBUG>TRANSLATE DBMS_LOGICAL=ACCT_NUMERIC=FAILSEACCT_NUMERIC=TRUE%Aborting - Bad NUSER_ACTIONS.DAT ACCT_LEN_MAX range%Aborting - Bad NUSER_ACTIONSаi,d BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDg_1xd BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_ENDᰏgk1FЫc2m\\ BAS$UNLOCK2k\\1~_\-l P1 BAS$PRINT BAS$IO_END BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT2m\ \(\LtpSTR$TRIMx STR$CONCAT STR$CONCATBAS$OUT_T_DX_B-.DAT ACCT_LEN_MAX valueACCT_LEN_MAX=%Aborting - Bad NUSER_ACTIONS.DAT ACCT_LEN_MIN range%Aborting - Bad NUSER_ACTIONS.DAT ACCT_LEN_MIN valueACCT_LEN_MIN=ACCOUNT_DESC=%Bad NUSER_ACTIONS.DAT line # for line: Short - Length Too! TOOLS:NUSER_ACTIONS.DAT - Increase MAX_ACTIONS in NUSER.INC and recompileError - Too many user actions found in TOOLS:NUSER_ACTIONS.DAT while readingUnexpectedNG BASIC Error LOGINFFOURGL4GLNDBMSDB_DBMSAPPLaccount nameError - Can't open any existing TOOLS:.NUSER_ACTIONS.DAT fileYou do not have the privilege to open TOOLS:NUSER_ACTIONS.DATVMS error status value:Error - Can't find any existing TOOLS:NUSER_ACTIONS.DAT fileTOOLS:NUSER_ACTIONS.DAT'Zq'ZlqP=>_="&:;u -' 2955{595  k n/q5(,2  $@S@SfW=+#  (]   PJ# @ 3 )7 PoPϞRPPQ BAS$INIT_R81BAS$ERRP\02 X\X o BAS$CONTINUE BAS$PRINT BAS$IO_END BAS$PRINTBAS$ERRP\\  BAS$NUM1_L  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLBAS$ERRP\2X\X* BAS$PRINT(BAS$OUT_T_DX_B BAS$IO_ENDo BAS$CONTINUEB1AS$ERRP\2 X\X) BAS$PRINT0BAS$OUT_T_DX_B BAS$IO_ENDëo BAS$CONTINUEBAS$ERRP\2X\XZ BAS$PRINT8BAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_ENDo BAS$CONTINUE BAS$PRINT BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLo_+^,n+nݏ ݏ7@Џc,^BAS$OPEN27^o ݏSYS$EXIT,  29RPTb2QR~P STR$COPY_R_R8( k, n((, , 22QR~P STR$COPY_R_R8, $q2QR~#P STR$COPY_R_R8, @S, S㞯o\\1ݏc BAS$LINPUT+ BAS$IN_T_DX BAS$IO_ENDo\\12\\d BAS$PRINTHHBAS$OUT_T_DX_B BAS$IO_END BAS$PR3INTPBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITݏ++BAS$EDIT+BAS$LEFT- :1<+XX\\1 BAS$PRINT\\  BAS$NUM1_L ` STR$CONCATh STR$CONCATp STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT+x STR$CONCATTBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT +BAS$LEFT- + BAS$RIGHT1* +BAS$LEFT- 1++ BAS$RIGHT+NUMERICP\\XXW BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT+x STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT+ BAS$VAL_LP\\R2RXX\\2RWWXXX\\W BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDO BAS$PRINT+x STR$CON51`xl|ʗ ;REMOVE_IDENTIFIER 8-APR-1994 15:32 VAX BASIC V3.55REMOVE_IDENTIFIERREMOVE_IDENTIFIERc$PDATA$CODE$ARRAY$DESCUAFSAVUAF0RMYMAP@RIGHTZ4NUMAP REMOVE_IDENTIFIERE OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCAT BAS$NUM1_L BAS$PRINT BAS$IO_END BAS$OUT_L_V6_BBAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$DELETE BAS$UNLOCKSEARCH_RIGHTSLISTREAD_RIGHTSLIST DEC_TO_OCT SS$_NORMAL SS$_NOLOGNAM SS$_ABORTDkPj\X jjj__[REMOVE_IDENTIFIER ] holder on ,REMOVE_IDENTIFIER: FOUND BAD RECORD LENGTH: from [DEBUG>Done since UIC... identifier from Removed  on identifier existing is not anWarning - DEBUG>Check node , SPECIFIC_NODE=DEBUG>THE_IDENT=DEBUG7>----- Call REMOVE_IDENTIFIERBP"= @--P     ,|{ osPϞRPPQ BAS$INIT_R8qd1} BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCAT STR$CONCATc8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDoo,12o\\\o2o\ \(P\L$ STR$TRIM- ~c\-l 92o\ \(\L,(STR$TRIM~c\-l 1ZdT BAS$PRINT2o\ \(\L40STR$TRIM8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END( @-및???oSEARCH_RIGHTSLISTP\\XX12oXX\\2dX\XX1 BAS$PR9INT@STR$TRIM@@8 STR$CONCATH80 STR$CONCATP0( STR$CONCATX(  STR$CONCAT`  STR$CONCAT2o\ \(\LlhSTR$TRIM STR$CONCATp STR$CONCATBAS$OUT_T_DX_B  BAS$IO_END12o\\ BAS$DELETE BAS$PRINT(STR$TRIM(x  STR$CONCAT  STR$CONCAT2o\ \(\LSTR$TRIM STR$CONCA:T STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2o\\ BAS$UNLOCK-kd BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDkٰëmЭgk\\1?o?mREAD_RIGHTSLISTP\\kаmk0, BAS$PRINTBAS$OUT_T_DX_S BAS$OUT_L_V_B BAS$IO_END2o\\ BAS$DELETE BAS$PRINTXSTR$TRIMXxP STR$CONCATPH STR$CONCAT \2\ߩ DEC_TO_OCTP\\@ BAS$NUM1_L@H8 STR$CONCAT80 STR$CONCAT\2\ߩ DEC_TO_OCTP\\( BAS$NUM1_L(0  STR$CONCAT  STR$CONCAT2o\ \(\LSTR$TRIM STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1JЫg2o\\ BAS$UNLOCK1qP BAS$END_R8qPyv <1|ʗ ;REVOKE_IDENTIFIER 8-APR-1994 15:32 VAX BASIC V3.55REVOKE_IDENTIFIERREVOKE_IDENTIFIERL$PDATA$CODE$ARRAY$DESC IDNAMEUAFSAVUAF0RMYMAP@RIGHTZ4NUMAPR REVOKE_IDENTIFIERT OTS$LINKAGE BAS$LINKAGE BAS$INIT_R8 BAS$END_R8STR$TRIM STR$CONCATBAS$LEFT BAS$PRINT BAS$IO_END=BAS$OUT_T_DX_B BAS$DELETE BAS$UNLOCK STR$COPY_R_R8 VALID_USER SYS$IDTOASCSEARCH_RIGHTSLISTREAD_RIGHTSLISTCALC_DUPL_NODES SS$_NORMAL SS$_NOLOGNAM SS$_ABORTTPj\X jjjHHDREVOKE_IDENTIFIER on does not hold Warning - ... node on from Revoked ??? UIC-format is a on node identifier existing is not anError - *DEBUG>Check node , THE_IDENT=DEBUG>Revoke: ENTERED_USERNAM>E=DEBUG>----- Call REVOKE_IDENTIFIER#P"&     @-P       soPϞRPPQ BAS$INIT_R8q d1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT STR$TRIM ? STR$CONCAT STR$CONCAT STR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2QR~CP STR$COPY_R_R8CCALC_DUPL_NODESP\\1oo 1w2o\\\o2o\ \d\2QL TR~;P STR$COPY_R_R8mЭ[m ,12m\\\m2m\ \( P\L ,(STR$TRIM- 2m\ \(\L 40STR$TRIM-;? 1n dT BAS$PRINT2m\ \(\L@ <8STR$TRIM@ STR$CONCATBAS$OUT_T_DX_B BAS$IO_END??m VALID_USERP\\15-  @- . q1S S\L 1(  @-???mSEARCH_RIGHTSLISTP\\XX1 BAS$PRINT @STR$TRIM@H8 STR$CONCATBP80 STR$CONCATX0( STR$CONCAT`(  STR$CONCATh  STR$CONCAT2m\ \(\L tpSTR$TRIMA STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_END11 BAS$PRINT (STR$TRIM(H  STR$CONCAT  STR$CONCAT STR$CONCAT` STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1YegiЭ_e\\1?m?gREAD_RIGHTSLISTP\\ǫee\\1gee\\1x 2m\\ BBAS$DELETEe-  @- W?k SYS$IDTOASCPWѫW SS$_NORMAL, kk\2\XXKBAS$LEFT KSTR$TRIM BAS$PRINTK@ STR$CONCAT@8 STR$CONCAT0STR$TRIM08( STR$CONCAT(  STR$CONCAT  STR$CONCAT2m\ \(\L STR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDi-  @- \\2eX\\\XX12i\\1 BAS$PRINT@STR$TRIM@8 STR$CONCATh80 STR$CONCAT2m\ \(\L (STR$TRIM(0  STR$CONCAT  STR$CONCAT STR$TRIM STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_END֫S 9 B B A c c        CwwOUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1IPBAS$END_DEF_R8}P2QR~3P STR$COPY_R_R83CALC_DUPL_NODESP\\12QR~;P STR$COPY_R_R82QR~KP STR$COPY_R_R8q ec gg z12g\\\g2g\ \(P\L <8STR$TRIM-  sE\\ѫXXX\\ѫ% BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDЫo1\2\\2\\\\2\XX BAS$LEFT d- BAS$PRINT( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END\?GETFIDPѫ SS$_NORMAL1{ BAS$PRINTݫ U BAS$NUM1_L 0 STR$CONCAT8 STR$CONCAT STR$CONCAT@ STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDЏ1y2H?ݫ2~ SYS$QIOWPˏ\\2˯쫧\\% BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_ENDЫo18 d, BAS$PRINTXBAS$OUT_T_DX_S \2~ BAS$OUT_L_V_B BAS$IO_END瞫 \6H?ݫ2~ SYS$QIOWPˏ\\2˯쫧\\G% BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_ENDЫo1 GX\XZ BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT8BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_ENDm BAS$CONTINUE BAS$PRINT8BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLm+^,n+nݏ ݏ7pЏc,^BAS$OPEN7^m ݏSYS$EXIT2枯m\\1ݯ BAS$LINPUTc BAS$IN_T_DX BAS$IO_ENDm\\122\\\222\ \(P\,cg PLd xcBAS$POSP\\XXccBAS$LEFTcBAS$LEFT- cc BAS$RIGHT22\ \(\,cg Ln1"mݏc BAS$CLOSE22\\: BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏ1SYS$EXIToo21r2o\\\o2o\ \(P\Ld cSTR$TRIM-cg WcDISK_UNAVAILABLEP\\1 DX_B BAS$IO_ENDom,o1Ыg2m\\1d1 BAS$PRINT\2\ߩ DEC_TO_OCTP\\  BAS$NUM1_L x STR$CONCAT( STR$CONCAT\2\ߩ DEC_TO_OCTP\\ BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2\\ 2\\\q1߫[ OCT_TO_DECP 2P BAS$END_R8P; F x STR$CONCAT STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTSTR$TRIMN" STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1q1  BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END P BAS$END_R8Pǹ]  K_ENDЏЭ'ѫ 1֫ի3 BAS$PRINT \L D@BAS$OUT_T_DX_S BAS$IO_ENDD BAS$PRINT \L LHP STR$CONCATBAS$OUT_T_DX_S BAS$IO_END1gЫ' BAS$PRINT BAS$IO_END1K  \(L l-k)k* )kv 2Qq R~P STR$COPY_R_R8L)kC2Qk R~P STR$COPY_R_R8&)k)2Qg R~P STR$COPY_R_R8 BAS$PRINLTX  STR$CONCAT`  STR$CONCATh STR$CONCATk STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTSTR$TRIMp STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1{Q BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOP dG BAS$PRINT  M\L l-|x STR$CONCATBAS$OUT_T_DX_B BAS$IO_END  \(L l-l)l)72QhR~{P STR$COPY_R_R82QhR~P STR$COPY_R_R8W1)l*)lC)lv 1CC1 d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END2 Q R~{P STR$COPY_R_R8 N~kQ~PSTR$COPY_DX_R8氏W<[XX\\1 BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END  \(L l-m)m* )mv 2Q R~P STR$COPY_R_R8&)mCO2Q R~P STR$COPY_R_R8 BAS$PRINT( STR$CONCAT(  STR$CONCAT  STR$CONCATh STR$CONCAT[ STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDB<[XX\\W/2QhR~{P STR$COPY_R_R82QhR~P STR$COPY_R_R8ܰWH<[XX\\W.2QhR~{P STR$COPY_R_R82QhR~P STR$COPY_R_R8󰯶WP d( BAS$PRINTBAS$OUT_T_DX_S2W~ BAS$OUT_L_V_B BAS$IO_ENDزW\\ ϸPUЭ+W\\1\S BAS$PRINT BAS$IO_END  \(L l-n)n* )nv 2Q R~P STR$COPY_R_R8&)nC2Q R~P STR$COPY_R_R8 BAS$PRINT@STR$TRIM@8 STR$CONCAT80 STR$CONCAT0( STR$CONCAT(  STR$CONCAT  STR$CONCAQT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT[ STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUTBAS$OUT_T_DX_S{ BAS$IN_T_DX BAS$IO_ENDS\\q1 dA BAS$PRINT{R STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END&{{BAS$EDIT-{ gqT1= 1{BAS$LEFTNUMERICP\\T{BAS$LEFT~Q~PSTR$COPY_DX_R82~طP\\~kQ~PSTR$COPY_DX_R8{{ BAS$RIGHT~kQ~PSTR$COPY_DX_R8~kQ~PSTR$COPY_DX_R8-{ h2 Q R~{P STR$COPY_R_R8 dn BAS$PRINT STR$CONCATBAS$OUTS_T_DX_B BAS$IO_END BAS$PRINT{  STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END-{  ~Q~PSTR$COPY_DX_R8P\\1 {BAS$LEFT- B\\<{WWXXXXX\<{WWXX XXX\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1T~Q~PSTR$COPY_DX_R8T~{Q~PSTR$COPY_DX_R8τP\\XX` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1 d BAS$PRINT0BAS$OUT_T_DX_B BAS$IO_ENDӰW1Ы+4PU<[XX\\ BAS$PRINT BAS$IO_ENDW d1. BAS$PRINT \\ BAS$NUM1_L8 STR$CONCAT@ STR$CONCAT[U STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT \\ BAS$NUM1_LH STR$CONCAT@ STR$CONCAT{ STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT \\ BAS$NUM1_LP STR$CONCAT@ STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDhV   d \,[_ L Wg   \,{ L &u  \, L s1O鞯 d* BAS$PRINTXBAS$OUT_T_DX_S  BAS$OUT_L_V_B BAS$IO_END  \\2 X\\\X \\\\\XX1J  \(L l-o)o*)o)1WW\\1SW BAS$PRINT BAS$IO_END  \(L l-p)p*/2Qq R~P STR$COPY_R_R82QR~P STR$COPY_R_R8:)p)/2Qg R~P STR$COPY_R_R82QR~P STR$COPY_R_R8 BAS$PRINT 2Qw R~P STR$COPY_R_R8 b\\P d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END,h  4- V  q1D-  \\~W-g XXX\\U d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_EZND V  q1,h  4- q1WPP STR$CONCAT d- BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫ/ѫ/ SS$_NOLOGNAM1,h  4- V  q1W BAS$PRINT BAS$IO_END BAS$PRINT0 STR$CONCAT0( STR$CONCAT(  STR$CONCATSTR$TRIM  STR$CONCAT STR[$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDkѫ/ SS$_NORMALa BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPPP STR$CONCAT d0 BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDVALIDATE_IDENTIFIERP\\1,h  4- V  q1yW BAS$PRjINT BAS$IO_END BAS$PRINT8STR$TRIM80 STR$CONCAT0( STR$CONCAT(  STR$CONCATSTR$TRIMH  STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDP  STR$CONCAT d- BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫ3ѫ3 SS$_NOLOGNAM1,h  4-ww ik1- h 1 iIeЭK2iXX\\eX2XXXXX\\52i\\\i2i\ \d \- LX eЫKep BAS$PRINT BAS$IO_END BAS$PRINT8 STR$CONCAT@STR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1}, + \(L+r)r{1'VALIDATE_NODE_IDENTIFIERP\\^e!Warning - You are about to change the department for your own account!Warning - You are about to change the password for your own account!Warning - You are about to grant or deny identifiers for your own account!Warning - You are about to change the security template for your own account!Warning - You are about to change division-specific access for your own account!Warning - You are about to deny database access for your own account!Warning - You are about to make your own account in_to a Restricted account!You are not allowed to commit suicide!Error - Username is too longError - You must enter a username*DEBUG>USERNAME IS BEnter Username to change the First, Last name for: OEnter Username to change the department number for: UEnter Username whose password is to be changed: PEnter Username to grant or deny additional identifiers to: IEnter Usernam$e to change the security template for: TEnter Username to change division-specific access for: FEnter Username to deny databas`e access from: XEnter Username to grant database access to: GEnter Username whose account is to be made non-Restricted: NEnter Username whose account is to be made Restricted: REnter Username for the account to be deleted: DEnter Username for the account to be created: A [ ~b { 4_9)}0Cn+>i |    & 9 g z TO  0 [ f b {  _t29D}EP.B  . 7a;,r-D7 4;0j4532y! `-'L<FQNWK EG1O7($F8$~5P  $'`+5at4bDDEGJJj\PϞRPPQ BAS$INIT_R81ve BAS$CONTINUEe BAS$CONTINUEBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X e BAS$CONTINUE BAS$EXIT_HNDLe BAS$CONTINUEe BAS$CONTINUEV`ii\\1  BAS$PRINT BAS$IO_ENDe \(Ll-l)lp 6ݏb BAS$LINPUTBAS$OUT_T_DX_cS BAS$IN_T_DX BAS$IO_END1)lA 3ݯX BAS$LINPUTBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END1s)l 3ݯ BAS$LINPUTBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END15)l6ݏb BAS$LINPUT BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END1)l3ݯ BAS$LINPUT(BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END1)lq3ݯ BAS$LINPUT0BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END1x)lC6ݏb BAS$LINPUT8BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END17)l 3ݯ BAS$LINPUT@BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END1)l3ݯ BAS$LINPUTHBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END1)l6ݏb BAS$LINPUTPBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END1z)li2eX\XX1 BAS$PRINT BAS$IO_END BAS$PRINT2k\ \(\LnD@(STR$TRIM(  STR$CONCATH  STR$CONCATP STR$CONCATX STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END12k\\md BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_ENDi(Tff.h8|_c2m\\ BAS$UNLOCK1di\\1 BAS$PRINT BAS$IO_ENDf BAS$PRINT2k\ \(\Lnlh STR$TRIM p STR$CONCATx STR$CONCAT STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1{dT BAS$PRINT2k\ \(\L nSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END(fT.f8hЫ_|Ыc\\\2m\\ BAS$UPDATE2m\\ BAS$UNLOCK1qP BAS$END_R8qPR  ƶ _ww$IO_END1{t\\xXXXXX\\? BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDЏ|Я ~j2i\\ BAS$UPDATE2i\\ BAS$UNLOCKk(T f vh | h2\XX BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2i\1\\o,   ﰏm2o\ݏ\ BAS$GET_KEYm2o\\ BAS$UNLOCK1,J 󰯹m2o\ݯ\ BAS$GET_KEYm\\1 BAS$PRINT BAS$IO_END BAS$PRINT2i\ \(\L n$ STR$TRIM( STR$CONCAT0 STR$CONCAT8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BiAS$IO_ENDݏSYS$EXIT2o\\ BAS$UNLOCK,   g$( 4$T(%UDt(Eud(?eu  u    (?(T(\fhijlptx |  !"#$%&'(()(=QRSTUVWXYZ[\]^_k  3ک f V  q1$W BAS$PRINT BAS$IO_END BAS$PRINT( STR$CONCAT(  STR$CONCATSTR$TRIM  STR$CONCAT STR$CONCAT STR$CONCATlBAS$OUT_T_DX_B BAS$IO_ENDkѫ3 SS$_NORMALa BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPP0 STR$CONCAT d- BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫ7ѫ7 SS$_NOLOGNAM1,h  4- V  q1W BAS$PRINT BAS$IO_EmND BAS$PRINT( STR$CONCAT(  STR$CONCATSTR$TRIM  STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1eѫ7 SS$_NORMAL1~Q~PSTR$COPY_DX_R8-˻ 7-˻ 21,h  4- V  q1uW BAS$PRINT BAS$IO_END BAS$PRINTP  STR$CONCAT  STR$CONCAT STRn$CONCATx STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDa BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫ LIB$STOPW\\1 BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT( STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTo BAS$IO_ENDٗPUW\\1# VS BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTP STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUTBAS$OUT_T_DX_S  BAS$IN_T_DpX BAS$IO_ENDS\\ V q1 &  BAS$EDIT dP BAS$PRINT STR$TRIM( STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END-  4- g V q1 -  4- h,    4- dP BAS$PRINT STR$TRIM0 STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END-  4- 42Qw R~P STR$COPY_Rq_R82Q R~P STR$COPY_R_R8σPU BAS$LEFT- B\\ STR$TRIM<WWXXXXX\ STR$TRIM<WWXX XXX\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM(O STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END12Q R~P STR$COPY_R_R82 Q 4-R~P STR$COPY_R_R8㘰P\\XX` BAS$PRINT BAS$IO_END BArS$PRINTSTR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1 d BAS$PRINT8BAS$OUT_T_DX_B BAS$IO_END谏W1ϘPU d BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDq 1u - JPUq1R - °PUq1/ - G2Qw R~P STR$COPY_R_R8~Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R8wPsq1- :2Qw R~P STR$COPY_R_R8~Q~PSTR$COPY_DX_R8œPUq1- x_~Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R8ĪP\\ (PU PUq1%- j&~Q~P=STR$COPY_DX_R8ϐðPUq1- \1H t\BAS$LEFT~\- l ϥPU2QMR~P STR$COPY_R_R8~Q~PSTR$COPY_DX_R82~YPU(  t d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ d1 BAS$PRINTPBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_Sݫ BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_SDBM$_END BAS$OUT_L_V_B BAS$IO_ENDDBM$_ENDߩ(LIB$MATCH_CONDP\\n dc BAS$PRINTpSTR$TRIM STR$CONCATH STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1:ի$ BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_END wwT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1Entered Last Name=DEBUG>Enter_First_Last: RECORD_FOUND=Error - Quotes are not allowed in the nameEnter the user's last name: Error - Commas are not allowed irn the name",Error - You must enter a first nameEnter the user's first name: O node already exists onNzote: An account having the username of already exists.DEBUG> Process SYSUAF #Error - You must enter the letter Y or NBYN? Do you want to try a username other than j(djzdP  0 2 y+P )[IC%#**%kS"1{& H6GET_DIFF_USERNAMETRY_ANOTHER_USERNAMEPϞRPPQ BAS$INIT_R8i BAS$CONTINUEi BAS$CONTINUE1ϞoPPQBAS$INIT_DEF_R8ڞ}1to BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_S BAS$IO_ENDݏb BAS$LINPUTBAS$OUT_T_DX_SK BAS$IN_T_DX BAS$IO_END o| BAS$CONTINUE벫o\\1&KKBAS$EDIT-KO 2QR~KP STR$COPY_R_R8-KO 1-KO 1y-KO }e BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1oPBAS$END_DEF_R8}P1ϞPPQBAS$INIT_DEF_R8} gg 212g\\\g2g\ \(P\L d 40}STR$TRIM-  d@ BAS$PRINTg\2\XX BAS$NUM1_L8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2g\1\\km2k\ݏ@\ BAS$GET_KEYJBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X m BAS$CONTINUE BAS$EXIT_HNDLm\\12k\\ BAS$UNLOCKcЭwѫc &֫c c( \- L 1o˞Ъw   ( \,  L BAS$PRINT BAS$I~O_END2g\\S BAS$PRINT@STR$TRIMH STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 BAS$PRINT@(STR$TRIM(H  STR$CONCATX  STR$CONCAT` STR$CONCAT2g\ \(\L nlhSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END?o?gLOOKUP_DISPLAY_USER_INFOPo^P\\} BAS$PRINT BAS$IO_END1$PBAS$END_DEF_R8}P  \)L l-B  BAS$PRINT BAS$IO_END  BAS$PRINT BAS$IO_END Vٰqq\\1 iݏb BAS$LINPUTpBAS$OUT_T_DX_S[ BAS$IN_T_DX BAS$IO_ENDi\\ V 1ݏ[BAS$EDIT~Q~[PSTR$COPY_DX_R8~[\-l  V 1<[XX\\` BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIMx STR$CONCATBAS$OUT_T_DX_BNIT_R8qcK STR$CONCATSK LOGICAL_NAMEPgЫgkѫk SS$_NOLOGNAM1 BAS$PRINTc  STR$CONCAT  STR$CONCATK STR$CONCAT STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1J1>ѫk SS$_NORMAL1~SQ~[PSTR$COPY_DX_R8-[_ -[_ 1 BAS$PRINTc0 STR$CONCAT(0( STR$CONCATNkK(  STR$CONCAT0  STR$CONCATS STR$CONCAT8 STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDcQ BAS$PRINTK@ STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫgLIB$STOPqP BAS$END_R8qPo&#  6hwwIC identifier... UIC-format identifier to Added new already exists on ] UIC ident value,Errorter a new identifier name to be created:Enter any additional identifier to be granted:DEBUG>BEFORE GET ADDTL IDENTS - VALID_ENTRY=ZQIATWFYWSTDThis user is automatically granted the ODOC identifier.OTHNWILLBMAYBNOT2B2BDOBBRITODOCATXG(@ @ E r   (P7,N. *78j$D2y1"  !"  * ,; ~:g *CBrPϞRPPQ BAS$INIT_R8g BAS$CONTINUEg BAS$CONTINUE \(Ll-m)m)m )mV 1 k1)m1k, @-VALIDATE_IDENTIFIERP\\XX1~WQ~OPSTR$COPY_DX_R8-OS -OS 1N-OS --OS -OS -OS 1~[X-h \\)XXXXX\\Q, rZ(f BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1(n)n)n )n}U, rZ(f BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END,)m|)m{ )mz kd( BAS$PRINTBAS$OUT_T_DX_S2k~ BAS$OUT_L_V_B BAS$IO_END鞯(8  STR$CONCAT@  STR$CONCAT2m\ \(\L n|xSTR$TRIM STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1{t\\xXXXXX\\? BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDЏ|Я 6j2i\\ BAS$UPDATE2i\\ BAS$UNLOCKk(T ff .h 8| S$OUT_T_DX_B BAS$IO_END2QR~P STR$COPY_R_R81\\1ciЭW2iXX\\cX2XXXXX\\J2i\\\i2i\ \ \LrVSTR$TRIM- cЫWc\\1- BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S BAS$IO_ENDiЭ[2i\\ݯ BAS$LINPUTXBAS$OUT_T_DX_S BAS$IN_T_DX\ BAS$IO_END=)l42ݯ BAS$LINPUT`BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_ENDe\\ , V1&BAS$EDITdP BAS$PRINTSTR$TRIMh STR$CONCATp STR$CONCATBAS$OUT_T_DX_B BAS$IO_END^-  V1STR$TRIM<XX\\` BAS$PRINT BAS$IO_END BAS$PRINTxSTR$TRIMT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1STR$TRIM<XX\\ ` BAS$PRINT BAS$IO_END BAS$PRINTxSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END14\2\XXBAS$LEFTSTR$TRIM- 1 \(Ll-m)mA H BA(  STR$CONCAT  STR$CONCAT2o\ \(\LSTR$TRIMh STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2o\\ BAS$UNLOCK1-1.d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END  ( ???SEARCH_RIGHTSLISTP\\1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDհiki\\1??kREAD_RIGHTSLISTP\\̫ḭki0 BAS$PRINT STR$TRIM( STR$CONCAT0 STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDi1= BAS$UNLOCK1  ( 0 BAS$PUT_COUNT BAS$PRINTSTR$TRIM8 STR$CONCAT@ STR$C               d, BAS$PRINThBAS$OUT_T_DX_S \2~ BAS$OUT_L_V_B BAS$IO_ENDЏ12~ SYS$DASSGNPѫ SS$_NORMAL$ BAS$PRINTpBAS$OUT_T_DX_B BAS$IO_ENDЫo SS$_NORMALoP BAS$END_R8ЫoP ,Sww S \ S X( L <H ĞЫ_X` X    T BAS$PRINT2g\ \(\L STR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1ecSP   DBM$SIGNAL d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ dQ BAS$PRINTBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_Sݫ BAS$OUT_L_V_B BAS$IO_ENDЫ߫;ѫ;4 BAS$PRINT BAS$OUT_T_DX_B BAS$IO_END⎰PUq10ի;+ BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNALBAS$LEFTNUMERICP\\XXw BAS$PRINT BAS$IO_END BAS$PRINT` STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDPUq~\- l ϹPU BAS$RIGHT~Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R87P\\ ϛPU WPUq1- S13 d= BAS$PRINT BAS$IO_END BAS$PRINTpBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDO O 21$2O\\\O dS BAS$PRINTO\2\XX BAS$NUM1_Lx STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2O\ \(P\L d STR$TRIM- h1H~\,l ?OFIND_IDENTIFIER1,ѫ 1֫  \L cSTR$TRIMSTR$TRIM- eooW BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTQBAS$OUT_T_DX_\X XX \ \2HW W <\\,SW Call VALID_USER for TJP +''hPϞRPPQ BAS$INIT_R8q p BAS$PRINTc STR$TRIM 1-37 1-37 1 BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCAT  STR$CONCAT( STR$CONCATBBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINT0BAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITիc1BAS$POSPcիc<XX\\<XX\\cc\\BAS$LEFTSTR$TRIM~Q~;PSTR$COPY_DX_R8-;? 1*~S\-l f BAS$EDIT~ Q~SPSTR$COPY_DX_R8)mE BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1)mqE BAS$PRNT BAS$IO_END BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT BAS$EDIT~ Q~[PSTR$COPY_DX_R8<[XX\\7 BAS$PRINT BAS$IO_END BAS$PRINTH>BAS$OUT_T_DX_B BAS$IO_ENDݯSYS$EXIT1:-;? 1~S\-l : BAS$PRINT BAS$IO_END BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT BAS$EDIT~ Q~SPSTR$COPY_DX_R8RINTS STR$CONCAT STR$CONCATp STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDmm,12m\\\m2m\ \(P\LSTR$TRIM- f BAS$PRINT2m\ \(\LSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1MqP BAS$END_R8qPBֹ : E D C l   ww BAS$PRINT+x STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT+ BAS$VAL_LP\\ 2 XX\\2 WWXXX\\W BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDT BAS$PRINT+x STR$CON֫S S \ S X( L H ĞЫ_X` X    T BAS$PRINT2g\ \(\L nSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1ecSP   @B?oSTORE_SYSUAF_RECORDP\\* BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT?ADD_IDENTIFIERP\\Wg\\ DELETE_SYSUAF_RECORDPq BAS$PRINTHBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_ENDݯSYS$EXIT2QR~P STR$COPY_R_R8 DISK_QUOTAPqCREATE_ROOT_DIRECTORYS?OCREATE_SPECIAL_LOGIN_COM[Эcѫ[ 1֫[ [ \L \X7STR$TRIM<7XX\\\\2 bX\\\XX17BAS$LEFT-  k17G BAS$RIGHT BAS$PRINT` STR$TRIM h STR$CONCATp STR$CONCATG STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDG STR$CONCAT2QiR~P STR$COPY_R_R8??GRANT_IDENTIFIERPq1O<7XX\\\\2 X\\\XX17BAS$LEFT-_L_V_B BAS$IO_END BAS$EXIT_HNDLBAS$ERRP\2X\X* BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_ENDo BAS$CONTINUEBAS$ERRP\2 X\X) BAS$PRINThBAS$OUT_T_DX_B BAS$IO_ENDëo BAS$CONTINUEBAS$ERRP\2X\XZ BAS$PRINTpBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT@BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_ENDo BAS$CONTINUE BAS$PRINT@BAS$OUT_T_DX_S BAS$VMSSTATUSP\\ BAS$OUT_L_V_B BAS$IO_END BAS$EXIT_HNDLd BAS$PRINTxBAS$OUT_T_DX_B BAS$IO_ENDo+^,n+nݏ ݏ7Џc,^BAS$OPEN7^o ݏSYS$EXIT,枯o\\1<ݯ BAS$LINPUTg BAS$IN_T_DX BAS$IO_ENDo\\12,\\\,2,\ \(P\,gk PLgBAS$POSP\\XXggBAS$LEFTgBAS$LEFT- gg BAS$RIGHT2,\ \(\,gk Ldf BAS$PRINT,\2\XX BAS$NUM1_L STR$CONCAT STR$CONCATg STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1oݏc BAS$CLOSE2,\\: BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITqq,12q\\\q2q\ \(P\LgSTR$TRIM-gk egDISK_UNAVAILABLP   @-c|vK >/*=&     .f(-U67hX,7.E LOCATE_SYSUAFPϞRPPQ BAS$INIT_R81ϞPPQBAS$INIT_DEF_R8랯}gg21{2g\\\g2g\ \(P\Ld STR$TRIM- jSTR$TRIM~Q~WPSTR$COPY_DX_R8-W[ c-W[ [-W[ X1~GX-h j\\2gWWXXXXX\~GW-g jXX2gW W(WGnSTR$TRIM~GV-f WWWWWXX\\11-W[ K1~KX-h j\\2gWWXXXXX\~KW-g jXX2gW W(WGnSTR$TRIM~KV-f WWWWWXX\\12g\1\\moSTR$TRIM~Q~_PSTR$COPY_DX_R8-_c K-_c A2m\ \ BAS$GET_KEY$2m\ݏ \ BAS$GET_KEYJBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X o BAS$CONTINUE BAS$EXIT_HNDLo\\1d= BAS$PRINT TSTR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDSTR$TRIM- 2\\2wWWXXXXX\2gWWXXXXX\\C BAS$PRINTC0 STR$CONCAT8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 1FSTR$TRIM~Q~gPSTR$COPY_DX_R8-gk K-gk A2m\\ BAS$UNLOCKSTR$TRIM~Q~oPSTR$COPY_DX_R8-os c1t\\XX@NBAS$LEFT\\XXHBAS$LEFT STR$CONCATd: BAS$PRINTSTR$TRIMP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 -os [?gFIND_IDENTIFIER1p -os K1XG@ STR$CONCATd@ BAS$PRINTG` STR$CONCATX STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT?X STR$CONCATBAS$OUT_T_DX_S BAS$IO_END)mE BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1)mE BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1)m2&\ѫc\i1c&\2\ߩ DEC_TO_OCTP[$\2\ߩ DEC_TO_OCTP_k\\` BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDk BAS$PRINTT\\XXXBAS$LEFTXBAS$OUT_T_DX_S!PBAS$TABPBAS$OUT_T_DX_SHSTR$TRIMHBAS$OUT_T_DX_S.@BAS$TAB@BAS$OUT_T_DX_Sݫ[8 BAS$NUM1_L80 STR$CONCAT0( STR$CONCATݫ_  BAS$NUM1_L ( STR$CONCAT( STR$CONCATBAS$OUT_T_DX_S<BAS$TABBAS$OUT_T_DX_SSTR$TRIMBAS$OUT_T_DX_S BAS$IO_END\ʏ\\ BAS$PRINTBAS$OUT_T_DX_S BAS$IO_END    ѺͰ BAS$PRINT BAS$IO_END1gd( BAS$PRINTBAS$OUT_T_DX_S2k~ BAS$OUT_L_V_B BAS$IO_ENDk BAS$PRINT BAS$IO_ENDqP BAS$END_R8qP    ww+ BAS$RIGHT1 - BAS$PRINT# STR$CONCATBAS$OUT_T_DX_B BAS$IO_END-#' πP\\ V 1_BAS$LEFTS@ STR$CONCATAP\\ V 1[BAS$LEFTS@ STR$CONCATP\\ V 1[BAS$LEFTS@ STR$CONCATP\\ V J[CAPITALIZE_FIRST~Q~[PSTR$COPY_DX_R8_CAPITALIZE_FIRST~Q~_PSTR$COPY_DX_R8q1 P BAS$END_R8P ww0 BAS$RIGHT1z+BAS$LEFT- g+8 BAS$RIGHT1H@+BAS$POSP[ի[1 BAS$PRINT\\ BAS$NUM1_L` STR$CONCATH STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT+xe \)Ll-1t_ѫ_\\eX2XXXXX\ \D'- x '߽$֫_ _ \LSTR$TRIM- /3e BAS$PRINT BAS$IO_ENDe4 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END2QR~7P STR$COPY_R_R81\\1ci2iXX\\cX2XXXXX\\J2i\\\i2i\ \ \LrVSTR$TRIM- /3cc\\1# BAS$PRINT BAS$IO_END BAS$PRINT/ STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S BAS$IO_ENDi2i\\e2i\\\i BAS$PRINT2i\ \ \LrVSTR$TRIM STR$CONCATBAS$OUT_T_DX_S BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINT BAS$IO_END1 \)Ll- BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END2QR~7P STR$COPY_R_R8 \)Ll-kk\\1Hge-ݏb BAS$LINPUTBAS$OUT_T_DX_SG BAS$IN_T_DX BAS$IO_END(ݯ BAS$LINPUTBAS$OUT_T_DX_SG BAS$IN_T_DX BAS$IO_ENDg\\2QhR~GP STR$COPY_R_R8k1g&GGBAS$EDIT-GK h\\-GK XXX\\k1-GK ` BAS$PRINT BAS$IO_END BAS$PRINT@STR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1k1 BAS$PRINT BAS$IO_ENDk-GK h\\-GK XXX\\1 EP\\12q\ \(\LgSTR$TRIMgBAS$POSP\\XXggBAS$LEFTgBAS$LEFT- gg BAS$RIGHT BAS$PRINTg STR$CONCAT STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2q\ \(P\,e PL12q\ \(\LgSTR$TRIMݏ@+^,n+nݏ ݏ7~g@ 2q,^BAS$OPEN7^12o  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݯSYS$EXIT2o\\XX[BAS$LEFT+STR$TRIM2o\\XX[ BAS$RIGHTݏ#BAS$EDIT# CAPITALIZE_FIRST~ Q~#PSTR$COPY_DX_R8+ CAPITALIZE_FIRST~ Q~+PSTR$COPY_DX_R8+ STR$CONCAT#[ STR$CONCATc1-;? 1cqfЭg2fXX\\qX2XXXXX\\:2f\\\f2f\ \\-L D BAS$PRINTG STR$CONCAT STR$CONCAT0 STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT STR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1  \(L l-p)pW1[ BAS$PRINTBAS$OUT_T_DX_S BAS$IO_END\\XXXXX\\ BAS$PRINTBAS$OUT_T_DX_S BAS$IO_END0 BAS$PRINT`G~`Q~PSTR$COPY_DX_R8BAS$OUT_T_DX_S BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S BAS$IO_END\\XXXXX\\ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END0 BAS$PRINT`ϝ~`Q~PSTR$COPY_DX_R8BAS$OUT_T_DX_B BAS$IO_ENDqP BAS$END_R8qPVSmSTORE_SYSUAF_RECORDP\\1~ BAS$PRINT2g\ \(\LnSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT2g\\@j6d BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END?CHANGE_USER_PASSWORDo~C\,l d= BAS$PRINT STR$TRIM STR$CONCATBAS$OUT_T_DX_B B  $17G BAS$RIGHT BAS$PRINT STR$TRIM h STR$CONCATp STR$CONCATG STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDG STR$CONCAT2QiR~P STR$COPY_R_R8??GRANT_IDENTIFIERPq1,7;  @-2QiR~P STR$COPY_R_R8??GRANT_IDENTIFIERPq1gЫc1$/Ы_1P BAS$END_R8PR    - - 6 6 IwwBAS$OUT_T_DX_B BAS$IO_END  ( ???SEARCH_RIGHTSLISTP\\1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_d \,/3 LRZ \,7; Lf1P BAS$END_R8P[ *SwwP\\ V 1vS[@ STR$CONCATP\\ V 1F_BAS$LEFTS@ STR$CONCATϺP\\ V 1_BAS$LEFTS@ STR$CONCAT{P\\ V 1[BAS$LEFTS@ STR$CONCAT;P\\ V 1[BAS$LEFTS@ STR$CONCATP\\ V J[CAPITALIZE_FIRST~Q~[PSTR$COPY_DX_R8_CAPITALIZE_FIRST~Q~_PSTR$COPY_DX_R8q1 P BAS$END_R8P۹ $ww BAS$IO_ENDݏb BAS$LINPUT(BAS$OUT_T_DX_SK BAS$IN_T_DX BAS$IO_END벫e\\1.&KKBAS$EDIT-KO 1-KO 72Q7R~KP STR$COPY_R_R8-KO 1-KO 7` BAS$PRINT BAS$IO_END BAS$PRINTxSTR$TRIM0 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1i1xЫ[ AS$IO_END2m\ \ BAS$GET_KEYJBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X o BAS$CONTINUE BAS$EXIT_HNDLo\\1 BAS$PRINT BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCAT8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINT BAS$IO_END?d BAS$PRINTRBAS$OUT_T_DX_B BAS$IO_END2m\\ BAS$DELETE2m\\ BAS$UNLOCK2g\\1o~G\,l d= BAS$PRINT STR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2m\ݏ \ BAS$GET_KEYJBAS$ERRP\2X\X BAS$SLEEP BAS$RETRYBAS$ERRP\2X\X o BAS$CONTINUE BAS$EXIT_HNDLo\\1 BAS$PRINT BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINTG STR$CONCAT8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITT2m\\ BAS$UNLOCKd BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END(Tff.h82g\\}~C\,l 1C1-os BQ2g\ \(\LnSTR$TRIM# STR$CONCAT# STR$CONCATM-os AX?&\2\ߩ DEC_TO_OCTP $\2\ߩ DEC_TO_OCTP2g\\}1sPBAS$END_DEF_R8}PSTR$TRIM- j\\2dX\\\XXZ BAS$PRINT BAS$OUT_T_DX_B BAS$IO_END BAS$PRINTSTR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDOSTR$TRIM~Q~3PSTR$COPY_DX_R8-37 c1'2QjR~P STR$COPY_R_R8~C\,l APk- j1~G\-l j BAS$PRINT0BAS$OUT_T_DX_B BAS$IO_END- BAS$PRINTG8 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT߫O2 QaR~P STR$COPY_R_R8LIB$SET_SYMBOLPWѫW SS$_NORMAL' BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDݫWLIB$STOP1-37 [1~C\,l ,j ,j Pkd` BAS$PRINTHP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END   BAS$PRINTX` STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDXH+ STSYS$EXITSTR$TRIM- eT BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݯSYS$EXITqoq,\\2oX\\\XXP2q\\\q2q\ \(P\LSTR$TRIM- eooW BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTQBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITP BAS$END_R8PBp  7  ه  J m- . wwUPDATE2m\\ BAS$UNLOCK1-os A1 & $2m\\ BAS$UPDATE2m\\ BAS$UNLOCK BAS$PRINT2g\ swwTR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUTBAS$OUT_T_DX_SK BAS$IN_T_DX BAS$IO_END벫e\\1&KKBAS$EDIT-KO 1-KO 72Q7R~KP STR$COPY_R_R8-KO u1i-KO 7` BAS$PRINT BAS$IO_END BAS$PRINTpSTR$TRIM  STR$qЫgq1q~S\-l : BAS$PRINT BAS$IO_END BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXITf\2\XX  BAS$NUM1_L~ Q~SPSTR$COPY_DX_R8] BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT(TI STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT 1-;? 1~S\-l 7 BAS$PRINT BAS$IO_END BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDݯSYS$EXIT BAS$EDIT~ Q~SPSTR$COPY_DX_R8 BAS$IO_END BAS$PRINT0BAS$OUT_T_DX_S BAS$IO_ENDSЭk [\ѫSLX֫S BAS$PRINT [\ S\\Ll BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_S BAS$IO_ENDЫk BAS$PRINT BAS$IO_END1^P BAS$END_R8Pƹٶֳ -Aww STR$CONCATBAS$OUT_T_DX_B BAS$IO_END P BAS$PRINTG STR$CONCAT STR$CONCATK STR$CONCATBAS$OUT_T_DX_B BAS$IO_END?KREVOKE_NODE_IDENTIFIERPq1Ы_~C\,l + v BAS$PRINTC  STR$CONCAT  STR$CONCAT STR$CONCATK STR$CONCAT  STR$CONCAT@BAS$OUT_T_DX_B BAS$IO_ENDKREMOVE_IDENTIFIERP\\1~ BAS$PRINT2g\ \(\L,(STR$TRIM0 STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT8BAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT & $ 1 BAS$PRINTC@P STR$CONCATPH STR$CONCATHOH@ STR$CONCAT&\2\ߩ DEC_TO_OCTP\\8 BAS$NUM1_L8@0 STRA$CONCAT0( STR$CONCAT$\2\ߩ DEC_TO_OCTP\\  BAS$NUM1_L ( STR$CONCATP STR$CONCATK STR$CONCAT  STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDKADD_NODE_IDENTIFIERSЭcѫS1֫S S \L<\XSTR$TRIM 1 BAS$PRINT0STR$TRIM0`1( STR$CONCATh(  STR$CONCATS B   3STR$TRIM  STR$CONCAT STR$CONCATK STR$CONCATBAS$OUT_T_DX_B BAS$IO_END P BAS$PRINTGx STR$CONCAT STR$CONCATK STR$CONCATBAS$OUT_T_DX_B BAS$CIO_END?KGRANT_IDENTIFIERP\\1 BAS$PRINTG8STR$TRIM80 STR$CONCATp0( STR$CONCATh(  STR$CONCATCSTR$TRIM  STR$CONCATU STR$CONCATK STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏSYS$EXIT1Ыc12QjR~KP STR$COPY_R_R81+ -37 21~G\,l ϨPkk\\* BAS$PRINTBAS$OUT_T_DDX_B BAS$IO_ENDݏSYS$EXIT~C\,l WPkk\\' BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݯSYS$EXIT~C\,l +2QjR~KP STR$COPY_R_R8 = BAS$PRINTSTR$TRIMx STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDKREMOVE_IDENTIFIERPq~G\,l  & $?ADD_IDENTIFIERP\\1R BAS$PRINT BAS$IO_END BAS$PRINTG8 STER$CONCAT80 STR$CONCAT \2\ߩ DEC_TO_OCTP\\( BAS$NUM1_L(0  STR$CONCAT  STR$CONCAT \2\ߩ DEC_TO_OCTP\\ BAS$NUM1_L STR$CONCATM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT8BAS$OUT_T_DX_B BAS$IFO_ENDݏSYS$EXIT (GC2 QR~P STR$COPY_R_R8 NUSER_OTHERPq15-37 19C BAS$VAL_LP CALCULATE_NEXT_AVAILABLE_UIC ߩ DEC_TO_OCTP\\  BAS$NUM1_L  STR$CONCAT STR$CONCATߩ DEC_TO_OCTP\\ BAS$NUM1_L STR$CONCAT+ STR$CONCAT - BAS$PRINT+ STR$CONCATBAS$OUT_T_DX_B BAS$IO_END߫O+2 G BAS$IO_END BAS$PRINT0BAS$OUT_T_DX_S BAS$IO_ENDSЭk [\ѫSLX֫S BAS$PRINT [\ S\\LX BAS$NUM1_L STR$CONCATBAS$OUT_T_DX_S BAS$IO_ENDЫk BAS$PRINT BAS$IO_END1^P BAS$END_R8PƹٶHֳ -_wwND1 BAS$PRINTG( STR$CONCATh(  STR$CONCATpSTR$TRIM  STR$CONCATx STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1DBM$_CSTYP_NULLߩ(LIB$MATCH_CONDP\\1  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT?STR$TRIMX STR$CONCATBAIQaR~P STR$COPY_R_R8LIB$SET_SYMBOLPWѫW SS$_NORMAL' BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDݫWLIB$STOP1-37 B1~C\,l 2QjR~#P STR$COPY_R_R8[ްPk߫O#2 QaR~P STR$COPY_R_R8LIB$SET_SYMBOLPWѫW SS$_NORMAL' BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDݫWLIB$STOP1K-37 -37 x1XC@ STR$CONCAT2U\ \ \( LeH  BAS$PRINTHBAS$OUT_T_DX_B BAS$IO_ENDݏݏDML$RTIPЫߪ[Ѫ[ժ[+ BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL1 d S     & ,  9( t*U2U\\12U\\\U2U\ \\(LVy$2U\ \ \( L6)  961( 6(  BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDݏݏ  DML$RTIPЫߪ_Ѫ_+ BAS$PRTINT`BAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL0ժ_+ BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL( ( 9  BAS$PRINTpBAS$OUT_T_DX_B BAS$IO_ENDݏݏDML$RTIPЫߪcѪcժc+ BAS$PRINTxBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL1A,  9U2U\\12U\\\U2U\ \ \( L(2U\ \\(L8U2U\ \ \( L2U\ \\(L2U\ \\(L )  9(1  BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDݏݏ  DML$RTIPЫߪgѪg+ BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL0ժg+ BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL( ( 9  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDVݏDML$RTIPЫߪkѪkժk+ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL1,  9U2U\\12U\\\U2U\ \ \( L(2U\ \\(Lb- )  9(1  BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_ENDݏݏ  DML$RTIPЫߪoѪo+ BAS$PRINT`BAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL0ժo+ BAWS$PRINThBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL( ( 9  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏDML$RTIPЫߪsѪsժs+ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL1M  \(L )|)|C1 BAS$PRINTp(STR$TRIM(  STR$CONCAT  STR$CONCAT STR$CONCATG STR$CONCAXTx STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1 BAS$PRINTp(STR$TRIM(  STR$CONCAT  STR$CONCAT STR$CONCATG. STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_END}PBAS$END_DEF_R8}P1ϞPPQBAS$INIT_DEF_R8 1  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏDML$RTIYP߰ Ыߪw A A  _  { {    Ѫwb  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏ DML$RTIP BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END0ժw+ BAS$PRINTBAS$OUT_T_DX_BZ BAS$IO_END DBM$SIGNAL%  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END e 2QR~P STR$COPY_R_R8DBQ$INTERPRET_STREAMPˏ\\' BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOP%  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END}PBAS$END_DEF_R8}P1ϞDPPQBAS$INIT_DEF_R8}2QR~P STR$COPY_R_R8~sQ~PSTR$COPY_DX[_R82~ɰPU(  t  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ 1 BAS$PRINTPBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_END BAS$PRINT_BAS$OUT_T_DX_Sݫ BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_SDBM$_END BAS$OUT_L_V_B BAS$IO_END\DBM$_ENDߩ(LIB$MATCH_CONDP\\\ BAS$PRINTpSTR$TRIM STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDϛ̰PU1ի$ BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ Q BAS$PRINTBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_END BAS$PRINT]BAS$OUT_T_DX_Sݫ BAS$OUT_L_V_B BAS$IO_ENDЫߪwѪw0 BAS$PRINT BAS$OUT_T_DX_B BAS$IO_ENDϜ˰PU10ժw+ BAS$PRINT(BAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL BAS$PRINTp RSTR$TRIM  STR$CONCAT0 STR$CONCATs STR$CONCATx STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDϡPU}DPBAS$END_DEF_R8}P u^ BAS$PRINT8BAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT@BAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTHBAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$IO_END~Q~PSTR$COPY_DX_R8- 1p \ XXXX\\?,  2QR~P STR$COPY_R_R8   q1?) e,  (2 \ \\L X2X\\P BAS$NUM1_L-  _\\) eXXXXX\\ W /   q18?2QR~P STR$COPY_R_R8߰WW\\1>S 1 BAS$PRINT(STR$TRIM(X  STR$CONCAT`  STR$CONCATSTR$TRIM STR$CONCATh STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDP BAS$PRINTSTR$TRIMX STR$CONCATh STR$CONCATBAS$OUT_T_DX_B B`AS$IO_ENDݏb BAS$LINPUTpBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_ENDS\\  q1=&HBAS$EDIT~HQ~PSTR$COPY_DX_R8   8 8  \ ~\-l h2QR~P STR$COPY_R_R8~\-l ga  q1s=~X-h \\~W-g XXXXX\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1W1 1<- Y1 \\12QR~P STR$COPY_R_R8   q1p<  BAS$PRINTxBAS$OUT_T_DX_B BAS$IO_END-  \\~W-g XXXXbX\\1(WP STR$CONCAT LOGICAL_NAMEPЫ ѫ SS$_NOLOGNAM6   q1;W2QR~P STR$COPY_R_R8[ѫ SS$_NORMALQ BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPP STR$CONCATVALIDATE_IDENTIFIERP\\/   q1;W2QR~P STR$COPY_R_R8.   q1:ΫW2QcR~P STR$COPY_R_R8鞯W\\1 S BAS$PRINT BAS$IO_END BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCATP STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUTBAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_ENDS\\  q19&HBAS$EDIT~HQ~PhSTR$COPY_DX_R8~\-l h2QR~P STR$COPY_R_R8d~\-l g  q1a9~X-h \\~W-g XXXXX\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1W1 18- 1) e3   q1w8W STR$CONCAT1 STR$CONCAT P- BAS$PRINT STR$CONCATBASe$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫѫ SS$_NOLOGNAM#W STR$CONCATfѫ SS$_NORMAL WQ BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPW\\1F S BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT STR$CONCATBAS$OUT_T_DXf_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT8 STR$CONCAT80 STR$CONCAT0( STR$CONCAT(  STR$CONCAT  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_BR BAS$IO_END BAS$PRINTg STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTS   { BAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$OUT_T_DX_Bh BAS$IO_END BAS$PRINT BAS$IO_END) e-ݏb BAS$LINPUT(BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_END(ݯ BAS$LINPUT0BAS$OUT_T_DX_S BAS$IN_T_DX BAS$IO_ENDS\\  q14&HBAS$EDIT~HQ~PSTR$COPY_DX_R8) e'~\-l h2Q R~P STR$COPY_R_R8%~\-l h2Q R~P STR$COPY_R_R8~\-l g  q14~Q~PSTR$COPY_DX_R8- i 8 STR$CONCAT1-  @ STR$CONCAT1-  STR$CONCATg BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1W1   \)L )D Џ 12- x 12Qw R~P STR$COPY_R_R8  \ XXXX\j\   q1q2 1 BAS$PRINTHBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTPBAS$OUT_T_DX_S2 ~ BAS$OUT_L_V_B BAS$IO_END BAS$PRINTXBAS$OUT_T_DX_S2 ~ BAS$OUT_L_V_B BAS$IO_END BAS$PRINT`BAS$OUT_T_DX_SBAS$OUT_T_DX_B BAS$IO_END BAS$PRINThBAS$OUT_T_DX_S  BAS$OUT_L_V_B BAS$IO_END BAS$PRINTpBAS$OUT_T_DX_S  \kL )|xBAS$OUT_T_DX_B BAS$IO_END~\-l WWW\\1ޫS BAS$PRINT BAS$IO_END  \(L )j)j)1R PP \\1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCAT STR$CONCAT STR$CONCATRBAS$OUT_T_DX_B BAS$IO_END1   BAS$PRINTBAS$OUT_T_DX_B BlAS$IO_END1 BAS$PRINT(STR$TRIM(  STR$CONCAT  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1)jC% BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END1Q PP \\1 BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCAT STR$mCONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1   BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END1 BAS$PRINT(STR$TRIM(  STR$CONCAT  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUTBAS$OUT_T_DX_S[ BAS$IN_T_DX BAS$IO_ENDS\\  q1-&n[[BAS$EDIT-[_ h1m-[_  -  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDﰯW10-[_ g  ްq1N-<[XX\\ѫ1 \\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1So~[Q~PSTR$COPY_DX_R8Ϥ˰P\\1d~[Q~kPSTR$COPY_DX_R81ѫ1 \\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1~[Q~PSTR$COPY_DX_R8ݼP\\1[k BAS$RIGHTgp BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1?k STR$CONCAT - BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫѫ SS$_NOLOGNAMl BAS$PRINT BAS$IO_END BAS$PRINTk STR$CONCAT STR$CONCATBAS$OUT_T_DX_Bq BAS$IO_END BAS$PRINT BAS$IO_END1f1;ѫ SS$_NORMAL1 2Qw R~P STR$COPY_R_R8 \\P  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END,h  (   q1D-  \\~W-g XXX\\U  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_END   q1,h  ( q1WPP STR$CONCAT - BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫ/ѫ/ SS$_NOLOGNAM1,h  (   q1W BAS$PRINT BAS$IO_END BAS$PRINT0 STR$CONCAT0( STR$CONCAT(  STR$CONCATSTR$TRIM  STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDkѫ/ SS$_NORMALa BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPPP STR$CONCAT 0 BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDVALIDATE_IDENTIFIERP\\1,h  (   q1yW BAS$PRINT BAS$IO_END BAS$PRINT8STR$TRIM80 STR$CONCAT0( STR$CONCAT(  STR$CONCATSTR$TRIMH  STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDP  STR$CONCAT - BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫ3ѫ3 SS$_NOLOGNAM1,h  (  /ک b   q1$W BAS$PRINT BAS$IO_END BAS$PRINT( STR$CONCAT(  STR$CONCATSTR$TRIM  STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDkѫ3 SS$_NORMALa BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPP0 STR$CONCAT - BAS$PRINT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END LOGICAL_NAMEPЫ7ѫ7 SS$_NOLOGNAM1,h  (   q1W BAS$PRINT BAS$IO_END BAS$PRINT( STR$CONCAT(  STR$CONCATSTR$TRIM  STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1eѫ7 SS$_NORMAL1~Q~PSTR$COPY_DX_R8-˻ 7-˻ 21,h  (   q1uW BAS$PRINT BAS$IO_END BAS$PRINTP  STR$CONCAT  STR$CONCAT STR$CONCATx STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDa BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_ENDݫLIB$STOPW\\1 BAS$PRINT BAS$IO_END BAS$PRINT STR$CONCAT( STR$CONCATP STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END嗰PUW\\1# S BAS$PRINT STR$TRIM  STR$CONCAT STR$CONCAT STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTP STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏb BAS$LINPUTBAS$OUT_T_DX_S  BAS$IN_T_DX BAS$IO_ENDS\\  q1 &  BAS$EDIT P BAS$PRINT STR$TRIM( STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END-  ( g  q1 -  ( h,    ( P BAS$PRINT STR$TRIM0 STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END-  ( 42Qw R~P STR$COPY_R_R82Q R~P STR$COPY_R_R8ϏPU BAS$LEFT- m\\ STR$TRIM<WWXXXXX\ STR$TRIM<WWXX XXX\\` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM(R STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END12Q R~P STR$COPY_R_R82 Q (R~P STR$COPY_R_R8P\\XX` BAS$PRINT BAS$IO_END BAS$PRINTSTR$TRIM( STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_END1  BAS$PRINT8BAS$OUT_T_DX_B BAS$IO_END谏W1ϤPU  BAS$PRINT@BAS$OUT_T_DX_B BAS$IO_ENDq 1u - VPUq1R - °PUq1/ - G2Qw R~P STR$COPY_R_R8~Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R8σPq1- :2Qw R~P STR$COPY_R_R8~Q~PSTR$COPY_DX_R8ѓPUq1- x_~Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R8ЪP\\ 4PU PUq1%- j&~Q~P=STR$COPY_DX_R8ϐðPUq1- \1H BAS$LEFT~\- l ϱPU2QMR~P STR$COPY_R_R8~Q~PSTR$COPY_DX_R82~ePU(  t  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ DML$RTIPߵ 1 BAS$PRINTPBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_Sݫ BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_S BAS$OUT_L_V_BU BAS$IO_END BAS$PRINTBAS$OUT_T_DX_SDBM$_END BAS$OUT_L_V_B BAS$IO_ENDDBM$_ENDߩ(LIB$MATCH_CONDP\\n c BAS$PRINTpSTR$TRIM STR$CONCATH STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END1:ի$ BAS$PRINTPBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNAL  BAS$PRINTBAS$OUT_T_DX_B BAS$IO_ENDݏݏ TDML$RTIPߵ Q BAS$PRINTBAS$OUT_T_DX_S( BAS$OUT_L_V_B BAS$IO_END BAS$PRINTBAS$OUT_T_DX_Sݫ BAS$OUT_L_V_B BAS$IO_ENDЫ߫;ѫ;4 BAS$PRINT BAS$OUT_T_DX_B BAS$IO_ENDPUq10ի;+ BAS$PRINTXBAS$OUT_T_DX_B BAS$IO_END DBM$SIGNALBAS$LEFTNUMERICP\\XXw BAS$PRINT BAS$IO_END BAS$PRINT` STR$CONCATBAS$OUT_T_DX_B BAS$IO_END BAS$PRINThBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDPUq~\- l ϹPU BAS$RIGHT~Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R8~Q~PSTR$COPY_DX_R8CP\\ ϧPU WPUq1- S13 = BAS$PRINT BAS$IO_END BAS$PRINTpBAS$OUT_T_DX_B BAS$IO_END BAS$PRINT BAS$IO_ENDO O x12O\\\O S BAS$PRINTO\2\XX BAS$NUM1_Lx STR$CONCAT STR$CONCATBAS$OUT_T_DX_B BAS$IO_END2O\ \(P\L STR$TRIM- h1H~\,l ?OFIND_IDENTIFIER1,ѫ 1֫  \L cSTR$TRIM