$ IBMS040.A@ IBMS040.ABACKUP/NOASSIST/COMMENT=VAX/VMS SPKITBLD Procedure/INTER/LOG/VERIFY [.KIT]*.*;0 DUA0:[DECUS_KITS]IBMS040.A/LABEL=(IBMS)/SAVE/BLOCK=9000/GROUP=25VAX/VMS SPKITBLD Procedure SCOPELLITI_P`{yV5.3 _ROVAX::  _ROVAX$DUA0: V5.3 $**[DECUS_KITS.IBMS.KIT]DUMP_SNAG_AVAIL.OBJ;8+, ./ 4-0123KPWO56`+l73y89&7tGHJ?DUMP_SNAG_AVAIL$MAIN0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79DUMP_SNAG_AVAIL$MAINPsnag$system:snag_avail.dat SNA Gateway Address = Free LU = Total LU = Gateway type = ()Minimum IBM version = Weight = Number of services = cannot open SNAG$SYSTEM:SNAG_AVAIL.DAT DUMP_SNAG_AVAIL$MAINP< <l FOR$OPEN@p 2H^tvw&QDECSA 'ST 'CT 'Unknown 'Unknown 'Unknown 'P|H[k(FOR$OPENP1t LIB$DATE_TIME~ FOR$WRITE_SL^(n^(n-|^ˀ| FOR$IO_T_V_DS FOR$IO_END~k FOR$READ_SU FOR$IO_X_SE FOR$IO_END~ FOR$WRITE_SL˄ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLˌ FOR$IO_T_DS|P` FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL ^( ˀn^(n6˔^˘˔ FOR$IO_T_V_DS FOR$IO_END~ FOR$WRITE_SL˜ FOR$IO_T_DSˠP` FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SLˤ FOR$IO_T_DSˤP` FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SLˬ FOR$IO_T_DS˨P` FOR$IO_L_R˴ FOR$IO_T_DS˨P`P˼@˼ FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DSˬP` FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS˰P` FOR$IO_F_R FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS˴P` FOR$IO_L_R FOR$IO_END˴P`\V\~ FOR$WRITE_SLVP^(@˰n^( n^ FOR$IO_T_V_DS FOR$IO_END\V1 FOR$CLOSEFOR$EXIT~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_ENDFOR$EXITPSNA Gateway Status at Password =  |HDUMP_SNAG_AVAIL$MAINFOR$OPEN LIB$DATE_TIME FOR$CLOSEFOR$EXIT$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_L_R FOR$IO_F_R FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SU FOR$WRITE_SLP~^P(<PFG;! #*[DECUS_KITS.IBMS.KIT]ENCRYPT.OBJ;10+,%"B./ 4-0123KPWO56'tl7@ y89&7tGHJ2ENCRYPT0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79ENCRYPTENCRYPTPPH[}PQP}PQP } PQP, P, P`<P<QRQSTSURRQReVB_WWV3VST,P H HENCRYPT$CODE$PDATA$LOCALWP!bP%)*[DECUS_KITS.IBMS.KIT]GET_A_GATEWAY.OBJ;18+,&"./ 4-0123KPWO56 <l7+y89&7tGHJ8 GET_A_GATEWAY0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79 GET_A_GATEWAYEP€@***** ERROR *****Previous SNA Gateway record NOT available GET_A_GATEWAYpP H< < p l )PKl[Ь}PQԼVWV1,FOR$OPENP1X~ݧ  FOR$READ_SU FOR$IO_X_SE FOR$IO_ENDTP`UYUYP)A@TUY˸YiYTTdTgTTdTNYUDUT˼UeUNUPGPTPQPXPX˔P`PPYU ( ˘1Vռ1~~߫ݧ  FOR$READ_KU FOR$IO_X_SE FOR$IO_ENDPk˸P`ݧ FOR$REWRITE_SU FOR$IO_X_SE FOR$IO_ENDPk~ FOR$WRITE_SLˌ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL˔ FOR$IO_T_DS FOR$IO_ENDˀ FOR$CLOSEVxLIB$WAIT1 K GET_A_GATEWAYFOR$OPENLIB$WAIT FOR$CLOSE$CODE>$PDATA$LOCALF$BLANK FOR$IO_END FOR$IO_T_DS FOR$IO_X_SE FOR$READ_SU FOR$READ_KU FOR$WRITE_SLFOR$REWRITE_SU*P|8P^BPqPPPPPMP@PPP"P2*PJPLP?PPsg[   sQ,*[DECUS_KITS.IBMS.KIT]IBMS040.RELEASE_NOTES;1+,#"./ 4O-0123KPWO56 Uo7`4y89&7tGHJ!Release notes for IBM Server V4.0$Creating the authentication databaseNThe IBM software uses an authentication database to control access to the 3270NSNA Gateway LUs. The user database file contains the information stated below,Oin the format listed, for all users on your system that you wish to have accessLto the SNA Gateways using the 3270 Terminal Emulation software. The filename%should have the file type "3270_DAT".KList an entry for each VMS Nodename/Username for all nodes in a VAX ClusterNthat a user has access to 3270 TE. There must not be any TAB characters in the3270_DAT file. Start Actual col Length 1 6 VMS Nodename 8 12 VMS UsernameExample of file USERS.3270_DAT:MYVAX KVETCH_PHISVAX KVETCH_PHERVAX ANY_USERBNote that you may have multiple 3270_DAT files, one for each VAX. IExecuting the procedure REBUILD_USER_DB.COM will merge all 3270_DAT files into one indexed database file. %*[DECUS_KITS.IBMS.KIT]KITINSTAL.COM;31+, J./ 4\-0123KPWO56_Fy7Y 255"$!$ goto get_obj$!$obj_ok:$ VMI$CALLBACK ASK dev -C "Disk for directory that will contain server files" SYS$SYSDEVICE$ dev = dev - ":" + ":"$!$ \$ IBMS040.A J%[DECUS_KITS.IBMS.KIT]KITINSTAL.COM;31\"VMI$CALLBACK ASK direct -7 "Specify a directory for the server files" IBM_SERVER$!+$ direct = "[" + (direct - "[" - "]") + "]"%$ log_direct = direct - "]" + ".log]"$!"$ file1 = "vmi$kwd:temporary.file" $on error then goto gen_pwd_done $ define/user sys$output 'file1'$ set password/generate=1 invalid$gen_pwd_done:$ open/read tempfile1 'file1' $Pwd_loop:&$ read /end=close_pwd tempfile1 record$ pwd = F$element(0," ",record)$$ If pwd .eqs. "" then goto pwd_loop $Close_pwd:$ Close/nolog tempfile1$!$ server_acct_exists = "FALSE",$ define/user sys$output vmi$kwd:sysuaf.list$ define/user sys$error nl:$ run sys$system:authorizeshow poll_server/briefexit:$ if f$file_attributes("vmi$kwd:sysuaf.list","alq") .gt. 0$ then$ server_acct_exists = "TRUE"#$ open/read f1 vmi$kwd:sysuaf.list$ read f1 record$ read f1 record$ read f1 record=$ uic = "[" + f$element(0,"]",f$element(1,"[",record)) + "]" $ close f1$ endif5$ if server_acct_exists then goto just_update_account$ VMI$CALLBACK ASK uic -< "Specify a UIC for the polling server account" "[376,360]"'$ uic = "[" + ( uic - "[" - "]" ) + "]"$!$ write sys$output ""I$ write sys$output "Creating remote access server account POLL_SERVER..."$!H$ VMI$CALLBACK CREATE_ACCOUNT poll_server "/password=invalid/uic=''uic'"$just_update_account:F$ VMI$CALLBACK UPDATE_ACCOUNT poll_server "/pwdlife=0/password=''pwd'"7$ VMI$CALLBACK UPDATE_ACCOUNT poll_server "/lgicmd=nl:"V$ VMI$CALLBACK UPDATE_ACCOUNT poll_server "/direct=[poll_server]/device=sys$specific:"L$ VMI$CALLBACK UPDATE_ACCOUNT poll_server "/nolocal/noremote/nobatch/nodial"$!K$ VMI$CALLBACK CREATE_DIRECTORY USER vmi$root:[poll_server] "/owner=''uic'"$!2$ VMI$CALLBACK CREATE_DIRECTORY USER 'dev''direct'6$ VMI$CALLBACK CREATE_DIRECTORY USER 'dev''log_direct'$!($ open/write f1 vmi$kwd:startup_poll.com8$ write f1 "$! Startup IBM Access Server Polling System"$ write f1 "$!"8$ write f1 "$ define/system snag$system ''dev'''direct'"=$ write f1 "$ define/system snag$logging ''dev'''log_direct'"$ write f1 "$!"!$ write f1 "$ run sys$system:ncp"@$ write f1 "define object poll_server number ''decnet_object' -"-$ write f1 " file snag$system:selector.exe -"#$ write f1 " account poll_server -" $ write f1 " user poll_server -"$ write f1 " password ''pwd'"'$ write f1 "set object poll_server all"$ write f1 "exit"$ write f1 "$!"1$ write f1 "$! Install the SNAG selector process"$ write f1 "$!"%$ write f1 "$ install_comm = ""add"""R$ write f1 "$ if f$file_attributes(""snag$system:selector.exe"",""known"") then -")$ write f1 " install_comm = ""replace"""K$ write f1 "$ install 'install_comm' snag$system:selector/privilege=sysprv"$ write f1 "$!"-$ write f1 "$! Start the SNA Gateway scanner"$ write f1 "$!"($ write f1 "$ run sys$system:loginout -"$ write f1 " /detach -"0$ write f1 " /input=snag$system:run_scan.com -"-$ write f1 " /output=snag$system:scan.log -",$ write f1 " /error=snag$system:scan.err -"-$ write f1 " /process_name=""SNAG scanner"""$ write f1 "$ exit" $ close f1$! $! Remove old object definitions$!\$ write sys$output "Removing any old definitions for object POLL_SERVER or ''decnet_object'"J$ write sys$output "You may ignore any 'Unrecognized component' messages." $ ncp := $ncp9$ ncp_show_file = "vmi$kwd:ncp_''f$getjpi("","pid")'.tmp"+$ ncp show known objects to 'ncp_show_file'$ open/read n1 'ncp_show_file' $obj_loop:%$ read/error=obj_purge_done n1 record)$ record = f$edit(record,"compress,trim")#$ ncp_obj = f$element(1," ",record)$$ ncp_name = f$element(0," ",record) $ if ncp_obj .eqs. decnet_object$ then"$ ncp clear object 'ncp_name' all"$ ncp purge object 'ncp_name' all$ endif!$ if ncp_name .eqs. "POLL_SERVER"$ then#$ ncp clear object poll_server all#$ ncp purge object poll_server all$ endif$ goto obj_loop$obj_purge_done: $ close n1 $ delete/nolog 'ncp_show_file';*$!F$! Get server account name, create object, create startup command file$!1$ write sys$output "Linking SCAN.EXE image . . ."$!,$ link/notrace/executable=vmi$kwd:scan.exe - vmi$kwd:scan,- vmi$kwd:scan_decsa,- vmi$kwd:scan_st,- vmi$kwd:scan_ct,- vmi$kwd:parse_next_gateway,- vmi$kwd:send_oper$!6$ write sys$output "Linking SCAN_ONCE.EXE image . . ."$!1$ link/notrace/executable=vmi$kwd:scan_once.exe - vmi$kwd:scan_once,- vmi$kwd:scan_decsa,- vmi$kwd:scan_st,- vmi$kwd:scan_ct,- vmi$kwd:parse_next_gateway,- vmi$kwd:send_oper$!<$ write sys$output "Linking DUMP_SNAG_AVAIL.EXE image . . ."$!7$ link/notrace/executable=vmi$kwd:dump_snag_avail.exe - vmi$kwd:dump_snag_avail$!5$ write sys$output "Linking SELECTOR.EXE image . . ."$!0$ link/notrace/executable=vmi$kwd:selector.exe - vmi$kwd:selector,- vmi$kwd:get_a_gateway,- vmi$kwd:log_event,- vmi$kwd:return_accept,- vmi$kwd:return_error,- vmi$kwd:validate_user,- vmi$kwd:send_news,- vmi$kwd:encrypt$!6$ write sys$output "Linking SNAG_LIST.EXE image . . ."$!1$ link/notrace/executable=vmi$kwd:snag_list.exe - vmi$kwd:snag_list$!$ new_snag_db = "TRUE";$ if f$search("''dev'''direct'snag_db.dat") .nes. "" then - new_snag_db = "FALSE"$ new_user_db = "TRUE";$ if f$search("''dev'''direct'user_db.dat") .nes. "" then - new_user_db = "FALSE"$ if .not. new_snag_db then -D write sys$output "Current version of SNAG_DB.DAT will be retained"$ if .not. new_user_db then -D write sys$output "Current version of USER_DB.DAT will be retained""$ this_node = f$trnlnm("SYS$NODE")?$ if this_node .eqs. "" then this_node = f$getsyi("SCSYSTEMID")1$ if this_node .eqs. "" then this_node = "NODNAM")$ this_node = this_node - "_" - ":" - ":"$ if new_user_db then -N write sys$output "USER_DB.DAT will contain an entry for ''this_node' SYSTEM"4$ create/fdl=vmi$kwd:user_db.fdl vmi$kwd:user_db.dat($ open/read/write f1 vmi$kwd:user_db.dat;$ write f1 "''f$fao("!6AS !12AS!61* ",this_node,"SYSTEM")'" $ close f1$!N$ VMI$CALLBACK PROVIDE_IMAGE dump_snag_image dump_snag_avail.exe 'dev''direct'H$ VMI$CALLBACK PROVIDE_IMAGE snag_list_image snag_list.exe 'dev''direct'>$ VMI$CALLBACK PROVIDE_IMAGE scan_image scan.exe 'dev''direct'H$ VMI$CALLBACK PROVIDE_IMAGE scan_once_image scan_once.exe 'dev''direct'F$ VMI$CALLBACK PROVIDE_IMAGE selector_image selector.exe 'dev''direct'$!G$ VMI$CALLBACK PROVIDE_FILE list_file list_ct_gateway.com 'dev''direct'G$ VMI$CALLBACK PROVIDE_FILE list_file list_st_gateway.com 'dev''direct'B$ VMI$CALLBACK PROVIDE_FILE scan_file run_scan.com 'dev''direct' KK$ VMI$CALLBACK PROVIDE_FILE reb_user_file rebuild_user_db.com 'dev''direct'A$ VMI$CALLBACK PROVIDE_FILE sess_file snag_sess.com 'dev''direct'A$ VMI$CALLBACK PROVIDE_FILE link_file snag_link.com 'dev''direct'<$ VMI$CALLBACK PROVIDE_FILE db_fdl user_db.fdl 'dev''direct'$ if new_user_db then -A VMI$CALLBACK PROVIDE_FILE user_file user_db.dat 'dev''direct' K$ if new_snag_db then -A VMI$CALLBACK PROVIDE_FILE snag_file snag_db.dat 'dev''direct' K$!F$ VMI$CALLBACK PROVIDE_FILE start_file startup_poll.com sys$startup: K+$ VMI$CALLBACK SET STARTUP startup_poll.com$!1$ VMI$CALLBACK SECURE_FILE start_file [1,4] "g,w"$!$ type sys$input.This installation created the following files: SNAG$SYSTEM:DUMP_SNAG_AVAIL.EXE SNAG$SYSTEM:SNAG_LIST.EXE SNAG$SYSTEM:SCAN.EXE SNAG$SYSTEM:SCAN_ONCE.EXE SNAG$SYSTEM:SELECTOR.EXE SNAG$SYSTEM:LIST_CT_GATEWAY.COM SNAG$SYSTEM:LIST_ST_GATEWAY.COM SNAG$SYSTEM:RUN_SCAN.COM SNAG$SYSTEM:REBUILD_USER_DB.COM SNAG$SYSTEM:SNAG_SESS.COM SNAG$SYSTEM:SNAG_LINK.COM0 SNAG$SYSTEM:USER_DB.DAT (only if none existed)0 SNAG$SYSTEM:SNAG_DB.DAT (only if none existed) SNAG$SYSTEM:USER_DB.FDL SYS$STARTUP:STARTUP_POLL.COMIThis procedure creates a startup file STARTUP_POLL.COM in the SYS$MANAGERAdirectory. This should be executed at system startup by edittingKSYSTARTUP_V5.COM and inserting the following line after DECnet has started: $ @SYS$MANAGER:STARTUP_POLL.COMH************************************************************************H* *H* IBM_Access Server Kit Completed *H* *H************************************************************************$!$ exit$ IBMS040.A*[DECUS_KITS.IBMS.KIT]LIST_CT_GATEWAY.COM;7DF**[DECUS_KITS.IBMS.KIT]LIST_CT_GATEWAY.COM;7+,./ 4D-0123KPWO56 %$77@Ey89&7tGHJ$! LIST_CT_GATEWAY.COM$!#$! List all LUs for CT gateway 'P1'$!D$! Output always placed in file "CT_pid.LIS" where pid is process ID$! of the _PARENT_ process.$! $ set noon.$ list_file = "CT_''f$getjpi("","owner")'.LIS"A$ if f$search(list_file) .nes. "" then delete/nolog 'list_file';*$ snancp := $sys$system:snancp $ define/user snagm$gateway 'p1'%$ snancp show known lu to 'list_file'$ exit**[DECUS_KITS.IBMS.KIT]LIST_CT_GATEWAY.DIF;1+,_./ 4Lv-0123KPWO56l7Ny89&7tGHJDEC/CMS File Comparison Utility6Files Compared By SCOPELLITI_P On 28-NOV-1990 19:06:157 (1) DUA0:[DECUS_KITS.IBMS.KIT]LIST_CT_GATEWAY.COM;60 (2) Element LIST_CT_GATEWAY.COM Generation 1L+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + ?File DUA0:[DECUS_KITS.IBMS.KIT]LIST_CT_GATEWAY.COM;6 Line 9 B 1)$ list_file = "snag$system:ct_''f$getjpi("","owner")'.lis")Element LIST_CT_GATEWAY.COM(1) Line 9 6 2)$ list_file = "CT_''f$getjpi("","owner")'.LIS"L- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - **** End of Differences ******[DECUS_KITS.IBMS.KIT]LIST_ST_GATEWAY.COM;5+,[!S./ 4D-0123KPWO56 77Wy89&7tGHJ$! LIST_ST_GATEWAY.COM$!#$! List all LUs for ST gateway 'P1'$!D$! Output always placed in file "ST_pid.LIS" where pid is process ID$! of the _PARENT_ process.$! $ set noon.$ list_file = "ST_''f$getjpi("","owner")'.LIS"A$ if f$search(list_file) .nes. "" then delete/nolog 'list_file';*$ snancp := $sys$system:snancp $ define/user snagm$gateway 'p1'%$ snancp show known lu to 'list_file'$ exit%*[DECUS_KITS.IBMS.KIT]LOG_EVENT.OBJ;11+,*"./ 4-0123KPWO56 %l7gy89&7tGHJ4 LOG_EVENT0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79 LOG_EVENT+P܀@Open failure   LOG_EVENTP '39AG d <P|H[}PQ}PQ} PQ}PQ VV1TFOR$OPENP1ˤ LIB$DATE_TIME FOR$WRITE_SF FOR$IO_T_DS$ FOR$IO_T_DS4 FOR$IO_T_DS, FOR$IO_T_DS< FOR$IO_T_DS  FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DSD FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL^(n^($n^(n^(*n}~}Logging ~6ˬ^˰ˬ FOR$IO_T_V_DS FOR$IO_END˴ FOR$CLOSEV~ FOR$WRITE_SLˌ FOR$IO_T_DSk FOR$IO_L_V FOR$IO_END˔LIB$WAIT1~ FOR$WRITE_SL^(Gn^(-n˜^ˠ˜ FOR$IO_T_V_DS FOR$IO_END-PCannot open log file: Q ( Q ) at  |H LOG_EVENTFOR$OPENLIB$WAIT LIB$DATE_TIME FOR$CLOSE$CODEC$PDATA$LOCALF$BLANK FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SF FOR$WRITE_SL2P(@P$P{;/E  X.*[DECUS_KITS.IBMS.KIT]PARSE_NEXT_GATEWAY.OBJ;13+,1"./ 4-0123KPWO56l7 ny89&7tGHJ =PARSE_NEXT_GATEWAY0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79PARSE_NEXT_GATEWAY"P !)PARSE_NEXT_GATEWAYXPP  .: D` STR$FIND_FIRST_IN_SET@``TXXXXTp STR$ELEMENT@x STR$ELEMENT@ ( STR$ELEMENT@0 L STR$ELEMENT@Tp STR$ELEMENT@xhP STR$ELEMENT@hP STR$ELEMENT@POP[VWW1ԫի FOR$READ_SF߫ FOR$IO_L_R FOR$IO_T_DS FOR$IO_ENDPSTR$FIND_FIRST_IN_SETPP,P˯ ˯\STR$TRIMV(˯˰ЫV^(˯nV^(V˰nVYYX,Xn ˰PQ^VP@˯-WV1/l STR$UPCASExSTR$TRIMWXYZիZVF˰ F˰ XYWWP @˰XYXWWQF˰A˰Z~ FOR$WRITE_SLؐ<~W^(W˰nWYYX>~XXˈ^ˌˈ FOR$IO_T_V_DS FOR$IO_ENDWXW˘˰˜ˠ STR$ELEMENTW˼˰ STR$ELEMENTY -,n W˰ STR$ELEMENTW˰  STR$ELEMENTW(˰,0 STR$ELEMENTVVP,n @R VԩVkXL˰PT STR$ELEMENTPW SS$_NORMALZWZѩV ֩VVP(@RkXp˰tx STR$ELEMENTPWX OPARSE_NEXT_GATEWAY STR$ELEMENTSTR$FIND_FIRST_IN_SET STR$UPCASESTR$TRIM SS$_NORMAL$CODE$PDATA$LOCALZ$BLANK FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_T_V_DS FOR$READ_SF FOR$WRITE_SLP$P_'PT_PPP5PPPEPPP!P1PPLP3RPIT ^**[DECUS_KITS.IBMS.KIT]REBUILD_USER_DB.COM;3+,A$ ./ 4>-0123KPWO56`ym7byy89&7tGHJ $! set verify$ set def snag$system:"$ copy/log *.3270_dat user_db.load>$ convert/fdl=user_db/trun/pad=%d32/exception=duplicates.dat - user_db.load - user_db.dat$ write sys$output ""-$ write sys$output "New USER_DB.DAT created."$ write sys$output ""$ exit)*[DECUS_KITS.IBMS.KIT]RETURN_ACCEPT.OBJ;13+,8"./ 4F-0123KPWO56`l7y89&7tGHJ(:$ IBMS040.A8")[DECUS_KITS.IBMS.KIT]RETURN_ACCEPT.OBJ;13F8 RETURN_ACCEPT0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79 RETURN_ACCEPTPACCEPT   @ RETURN_ACCEPTF@P  @9PPhPH@[}PQ}PQ } PQ@~ FOR$ENCODE_MF0 FOR$IO_T_DSk FOR$IO_T_DS  FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END8ENCRYPT@~ FOR$ENCODE_MFH FOR$IO_T_DSk FOR$IO_T_DS  FOR$IO_T_DS FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END H RETURN_ACCEPTENCRYPT$CODE$PDATA$LOCALF$BLANK FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_SL FOR$ENCODE_MF P$!5(*[DECUS_KITS.IBMS.KIT]RETURN_ERROR.OBJ;14+,9"./ 43-0123KPWO56l7y89&7tGHJ7 RETURN_ERROR0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79 RETURN_ERRORPREJECT ,@ RETURN_ERROR3@P@PH@[}PQ@~ FOR$ENCODE_MF FOR$IO_T_DSk FOR$IO_T_DS FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END H RETURN_ERROR$CODE$PDATA`$LOCALF$BLANK FOR$IO_END FOR$IO_T_DS FOR$WRITE_SF FOR$WRITE_SL FOR$ENCODE_MFfP$0#*[DECUS_KITS.IBMS.KIT]RUN_SCAN.COM;4+,!./ 4f-0123KPWO56 **[7ٔy89&7tGHJ$! Run SCAN as detached process$!$ set noverify$ set default snag$system: $ run scan$ exit *[DECUS_KITS.IBMS.KIT]SCAN.OBJ;33+,:". / 4 T-0123KPWO 56_l7 y89&7tGHJ6 SCAN$MAINV2.228-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79 SCAN$MAIN1P-.SNAG_SCAN_CYCLETIMEInitial SCAN cycle time = secondssnag$system:snag_db.datOpen failure on SNAG_DB.DAT =SCAN unable to open SNAG_DB.DAT. SCAN will retry at next cycleSNA Gateway Database is unavailable.SCAN unable to open SNAG_DB.DAT after max retries. SCAN unavoidably terminating.snag$system:snag_avail.newInvalid data in gateway definitionsnag$system:snag_avail.datUnable to create SNAG_AVAIL.NEW file. Error =Cannot decode SCAN cycle time.Error writing to SNAG_AVAIL.NEW. Error = 2, Processing  ()/) SCAN$MAINPPl.: D  LIB$SYS_TRNLOG@ :B HB FOR$OPEN@Z?ww SEND_OPER@$Q SEND_OPER@-- FOR$OPEN@p 6 @ \ STR$ELEMENT@  STR$ELEMENT@ STR$ELEMENT@ STR$ELEMENT@"H-jD- LIB$RENAME_FILE@Lj LIB$RENAME_FILE@ ` LIB$SYS_TRNLOG@.PI[LLIB$SYS_TRNLOG\STR$TRIM瑫SPEklpl FOR$READ_IFk FOR$IO_F_R FOR$IO_ENDSk1\~ FOR$WRITE_SLt FOR$IO_T_DSk FOR$IO_F_V| FOR$IO_T_DS FOR$IO_ENDVV1ˌFOR$OPENP1FOR$OPENP1DPARSE_NEXT_GATEWAY1LSTR$TRIM\STR$TRIMlSTR$TRIM˄ LIB$INDEXP֫P.@:ː:˔ː FOR$READ_IF߬@ FOR$IO_F_R FOR$IO_ENDˠ STR$ELEMENT˴STR$TRIM FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDM STR$ELEMENT STR$ELEMENTSTR$TRIM FOR$READ_IF߬N FOR$IO_L_R FOR$IO_END$ STR$ELEMENT8STR$TRIMHLH FOR$READ_IF߬R FOR$IO_L_R FOR$IO_ENDլNѬNR1~ FOR$WRITE_SF$ FOR$IO_T_DS6P.TP FOR$IO_T_DSݬ@ FOR$IO_F_V FOR$IO_END-6. & SCAN_DECSA1-6. +SCAN_ST1-6. -SCAN_CT~ FOR$WRITE_SL"~¬6^(6.nЬ6XXW ^( /n WWX^\X FOR$IO_T_V_DS FOR$IO_END~ FOR$WRITE_SL` FOR$IO_T_DS FOR$IO_ENDhPARSE_NEXT_GATEWAY1p FOR$CLOSEx FOR$CLOSEːLIB$RENAME_FILEˤLIB$SYS_TRNLOG˴STR$TRIM瑫SPEk FOR$READ_IFk FOR$IO_F_R FOR$IO_ENDSk1LIB$WAIT1~ FOR$WRITE_SL FOR$IO_T_DSݫ  FOR$IO_L_V FOR$IO_ENDFOR$EXITV~ FOR$WRITE_SL˴ FOR$IO_T_DSݫ  FOR$IO_L_V FOR$IO_END@ SEND_OPERLIB$WAIT1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END@* SEND_OPERFOR$EXIT~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL«^(nЫV#^(#On#VV^ FOR$IO_T_V_DS FOR$IO_ENDFOR$EXIT@P&PDECSASTCTUnknown gateway type specified "Logical name SNAG_SCAN_CYCLETIME =  I SCAN$MAIN STR$ELEMENTSTR$TRIMLIB$RENAME_FILE SEND_OPERLIB$SYS_TRNLOGFOR$OPENLIB$WAITPARSE_NEXT_GATEWAY LIB$INDEX SCAN_DECSASCAN_STSCAN_CT FOR$CLOSEFOR$EXIT$CODEr$PDATA$LOCALZ$BLANK FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_F_R FOR$IO_F_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SF FOR$WRITE_SL FOR$READ_IF!PP (P1.P$]P_PPxP%PPPP PSPPYPP$P&PwP PP PP PiP[P dP4jPPP"  z#*[DECUS_KITS.IBMS.KIT]SCAN_CT.OBJ;30+,>"t./ 4-0123KPWO56`l7@)y89&7tGHJp.$ IBMS040.A>"t#[DECUS_KITS.IBMS.KIT]SCAN_CT.OBJ;30@ 2SCAN_CT0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79SCAN_CTPFormat of following line cannot be decoded:Error writing to SNAG_AVAIL.NEW. Error = ,)+ + unavailable Processing SCAN_CTPP<P <D +*+Q PJ[u~ FOR$WRITE_SF0 FOR$IO_T_DS FOR$IO_ENDJPI$_PID^LH LIB$GETJPI^U  FOR$WRITE_IFݫ FOR$IO_L_V FOR$IO_ENDݏ.LIS}~^(n(nQ^\V^(fn^(n#d#\^hl LIB$SPAWN\^\WtFOR$OPENP1~[ FOR$READ_SF FOR$IO_T_DS FOR$IO_ENDܐM~ݏSNA-Y)"nYRS^Y1˜STR$TRIMYkˬ(˰ˬ FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDѫNѫR)4: W\~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1W1Yﰦ˴f˸˴ FOR$READ_IFpP`q FOR$IO_L_R FOR$IO_END( t˔PW`˘P\W`˜P`ˠP`ˤPЦ@`˨PЦV`WWP(@R@ˤ W]~ FOR$WRITE_SF˔P` FOR$IO_L_R˘P` FOR$IO_L_R FOR$IO_END FOR$WRITE_SU8 FOR$IO_X_SE FOR$IO_ENDPW~ FOR$WRITE_SL FOR$IO_T_DSW FOR$IO_L_V FOR$IO_ENDe~ FOR$WRITE_SF FOR$IO_END˼ FOR$CLOSEW;0~^(nW^LIB$DELETE_FILE~ FOR$WRITE_SL^(n ^( n'^ FOR$IO_T_V_DS FOR$IO_ENDPsnag$system:CT_@snag$system:list_ct_gateway activeCannot open  JSCAN_CTSTR$TRIM LIB$GETJPIJPI$_PID LIB$SPAWNLIB$DELETE_FILEFOR$OPEN FOR$CLOSE2$CODE$PDATA$LOCALZ$BLANK FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SU FOR$WRITE_SL FOR$READ_IF FOR$READ_IF FOR$WRITE_IFuP8PPPZFP#MPYP`PdPkP8PfPPP?g[m !  2&*[DECUS_KITS.IBMS.KIT]SCAN_DECSA.OBJ;16+,@"./ 4-0123KPWO 56Sl7ױy89&7tGHJ5 SCAN_DECSA0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79 SCAN_DECSAPAPendError writing to SNAG_AVAIL.NEW. Error = , LC-, LU:),+) + unavailable Processing  No LUs specified or found SCAN_DECSAPP * M<p < D| STR$CASE_BLIND_COMPARE@* Q<PO[Ы\h~ FOR$WRITE_SF0 FOR$IO_T_DS FOR$IO_ENDVUF VVWkk1k~ FOR$WRITE_SL^(n ^( nP^TP FOR$IO_T_V_DS FOR$IO_ENDZ^(n^(nXXYYXYZ^\`FOR$OPENZ^P1~F FOR$READ_SF FOR$IO_T_DS FOR$IO_ENDM~^(nY)4nYRS^Y~F FOR$READ_SF FOR$IO_T_DS FOR$IO_END~F FOR$READ_SF FOR$IO_T_DS FOR$IO_END7H FOR$DECODE_MF߫ FOR$IO_L_RЫ\ FOR$IO_END\1\N\R)>BLV)>FLW˘STR$CASE_BLIND_COMPAREPW1EH FOR$DECODE_MF߫ FOR$IO_L_RЫ\ FOR$IO_END\1\N\R)LBLV)LFLW)LW1SH FOR$DECODE_MF߫ FOR$IO_L_RЫ\ FOR$IO_END\\N\R)ZBLV)ZFLW)ZW1UkˈLIB$WAIT1>X~ FOR$WRITE_SF FOR$IO_END1WVz~ FOR$WRITE_SF FOR$IO_END1YW1iKݩ FOR$DECODE_MF˄P` FOR$IO_L_R FOR$IO_END( ˈ˨PW`ˬPVW`˸PЩ@`˰P`˴P`˼PЩV`VVP(@R@˸ VM~ FOR$WRITE_SF˨P` FOR$IO_L_RˬP` FOR$IO_L_R  FOR$IO_T_DS FOR$IO_END FOR$WRITE_SU@ FOR$IO_X_SE FOR$IO_ENDPV~ FOR$WRITE_SL FOR$IO_T_DSV FOR$IO_L_V FOR$IO_END\W13( FOR$WRITE_IF8 FOR$IO_T_DS\ FOR$IO_L_V FOR$IO_ENDꚏ@W^(n©^(OinЩZZV^(nV ~V&^(&n&VVˤVW^˨ˬ SEND_OPERW^~ FOR$WRITE_SL^(n^(n˸^˼˸ FOR$IO_T_V_DS FOR$IO_END FOR$CLOSE\PRe-trying ::"TASK=...SSL"LC-Ses NoseQSCAN detected SNA Gateway with hung LUQSNA Gateway address: Q&Hung LU detected h O SCAN_DECSASTR$CASE_BLIND_COMPARE SEND_OPERFOR$OPENLIB$WAIT FOR$CLOSE=$CODE$PDATA$LOCALZ$BLANK FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SU FOR$WRITE_SL FOR$DECODE_MF FOR$WRITE_IFTRPWP9P(P1(P++PVPPPgPGP>P P PP'P)P4PG=P>IP ^P sPxPPPfPGP>P P PPP-P 3P 7PPP`PP7P9P.mP¹#  D^ =$*[DECUS_KITS.IBMS.KIT]SCAN_ONCE.OBJ;5+,C"Q. / 4 -0123KPWO 56@l7xy89&7tGHJ;SCAN_ONCE$MAINV2.128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79SCAN_ONCE$MAINP@-.SNAG_SCAN_CYCLETIMESCAN cycle time = secondssnag$system:snag_db.datOpen failure on SNAG_DB.DAT =SNA Gateway Database is unavailable.snag$system:snag_avail.newInvalid data in gateway definitionsnag$system:snag_avail.datUnable to create SNAG_AVAIL.NEW file. Error =Cannot decode SCAN cycle time.Error writing to SNAG_AVAIL.NEW. Error = 2, Processing  ()/)SCAN_ONCE$MAINPPl.: D LIB$SYS_TRNLOG@$6> D> FOR$OPEN@V$s FOR$OPEN@p 60 STR$ELEMENT@d STR$ELEMENT@  STR$ELEMENT@  STR$ELEMENT@" LIB$RENAME_FILE@  LIB$RENAME_FILE@.w$ IBMS040.AC"Q$[DECUS_KITS.IBMS.KIT]SCAN_ONCE.OBJ;5 YPI[HLIB$SYS_TRNLOGXSTR$TRIM瑫SPEkhlh FOR$READ_IFk FOR$IO_F_R FOR$IO_ENDSk1~ FOR$WRITE_SLp FOR$IO_T_DSk FOR$IO_F_Vx FOR$IO_T_DS FOR$IO_END\\1ˈFOR$OPENP1FOR$OPENP1VPARSE_NEXT_GATEWAY1 STR$TRIM0STR$TRIM@STR$TRIMX LIB$INDEXP֫P.@:ed:hd FOR$READ_IFߦ@ FOR$IO_F_R FOR$IO_ENDt STR$ELEMENTˈSTR$TRIMg˘˜˘ FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDM˨ STR$ELEMENT STR$ELEMENTSTR$TRIMg FOR$READ_IFߦN FOR$IO_L_R FOR$IO_END STR$ELEMENT STR$TRIMg  FOR$READ_IFߦR FOR$IO_L_R FOR$IO_ENDզNѦNR1i~ FOR$WRITE_SF  FOR$IO_T_DS6$.($ FOR$IO_T_DSݦ@ FOR$IO_F_V FOR$IO_END-6.  SCAN_DECSA1-6. SCAN_ST1-6. SCAN_CT~ FOR$WRITE_SL"~¦6^(6.nЦ6XXW ^( n WW,^0, FOR$IO_T_V_DS FOR$IO_END~ FOR$WRITE_SL4 FOR$IO_T_DS FOR$IO_END<PARSE_NEXT_GATEWAY1D FOR$CLOSEL FOR$CLOSEdLIB$RENAME_FILE1~ FOR$WRITE_SLp FOR$IO_T_DSݫ  FOR$IO_L_V FOR$IO_ENDFOR$EXIT\~ FOR$WRITE_SL˰ FOR$IO_T_DSݫ  FOR$IO_L_V FOR$IO_END˸LIB$WAIT1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_ENDFOR$EXIT~ FOR$WRITE_SLx FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL«^(nЫ\#^(#n#\\ˀ^˄ˀ FOR$IO_T_V_DS FOR$IO_ENDFOR$EXIT@PPDECSASTCTUnknown gateway type specified "Logical name SNAG_SCAN_CYCLETIME =  ISCAN_ONCE$MAIN STR$ELEMENTSTR$TRIMLIB$RENAME_FILELIB$SYS_TRNLOGFOR$OPENLIB$WAITPARSE_NEXT_GATEWAY LIB$INDEX SCAN_DECSASCAN_STSCAN_CT FOR$CLOSEFOR$EXIT;$CODE$PDATAL$LOCALZ$BLANK FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_F_R FOR$IO_F_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$WRITE_SF FOR$WRITE_SL FOR$READ_IFP1P (P1.P]P_PkP PPPPP  POPPYPP P"PsP |PP PP PiP@PV  f;#*[DECUS_KITS.IBMS.KIT]SCAN_ST.OBJ;14+,D"./ 4-0123KPWO56-l7Aʭy89&7tGHJ 2SCAN_ST0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79SCAN_STPFormat of following line cannot be decoded:Error writing to SNAG_AVAIL.NEW. Error = ,)+ + unavailable Processing SCAN_STPP<P <D +*+Q PJ[u~ FOR$WRITE_SF0 FOR$IO_T_DS FOR$IO_ENDJPI$_PID^LH LIB$GETJPI^U  FOR$WRITE_IFݫ FOR$IO_L_V FOR$IO_ENDݏ.LIS}~^(n(nQ^\V^(fn^(n#d#\^hl LIB$SPAWN\^\WtFOR$OPENP1~[ FOR$READ_SF FOR$IO_T_DS FOR$IO_ENDܐM~ݏSNA-Y)"nYRS^Y1˜STR$TRIMYkˬ(˰ˬ FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDѫNѫR)4: W\~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1W1Yﰦ˴f˸˴ FOR$READ_IFpP`q FOR$IO_L_R FOR$IO_END( t˔PW`˘P\W`˜P`ˠP`ˤPЦ@`˨PЦV`WWP(@R@ˤ W]~ FOR$WRITE_SF˔P` FOR$IO_L_R˘P` FOR$IO_L_R FOR$IO_END FOR$WRITE_SU8 FOR$IO_X_SE FOR$IO_ENDPW~ FOR$WRITE_SL FOR$IO_T_DSW FOR$IO_L_V FOR$IO_ENDe~ FOR$WRITE_SF FOR$IO_END˼ FOR$CLOSEW;0~^(nW^LIB$DELETE_FILE~ FOR$WRITE_SL^(n ^( n'^ FOR$IO_T_V_DS FOR$IO_ENDPSNAG$SYSTEM:ST_@snag$system:list_st_gateway activeCannot open  JSCAN_STSTR$TRIM LIB$GETJPIJPI$_PID LIB$SPAWNLIB$DELETE_FILEFOR$OPEN FOR$CLOSE2$CODE$PDATA$LOCALZ$BLANK FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SU FOR$WRITE_SL FOR$READ_IF FOR$READ_IF FOR$WRITE_IFuP8PPPZFP#MPYP`PdPkP8PfPPP?g[m !  2$*[DECUS_KITS.IBMS.KIT]SELECTOR.OBJ;30+,W"z./ 4-0123KPWO56~ l7%y89&7tGHJ : SELECTOR$MAINV4.028-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79 SELECTOR$MAIN@PSNAG$ON_LINEsys$netSYS$NET:=/Nodename/Username mismatch000003REJECT Username mismatch000004Nodename mismatch000005Not a valid node/user000006Unsupported protocol 000009CLOSE Closing link.... ABORT Aborting link....OPEN 000007000001000008000002  SELECTOR$MAINP    ,Ld~P '39A t LIB$SYS_TRNLOG@D  FOR$OPEN@ LIB$SYS_TRNLOG@$$$!$#=\= RETURN_ERROR@D=MlD LOG_EVENT@t= LOG_EVENT@|M LOG_EVENT@Rcc RETURN_ERROR@DcMD LOG_EVENT@c LOG_EVENT@M LOG_EVENT@j{ { RETURN_ERROR@D{MD LOG_EVENT@${ LOG_EVENT@,4M LOG_EVENT@l RETURN_ERROR@DM|D LOG_EVENT@ LOG_EVENT@M LOG_EVENT@ RETURN_ERROR@DMD LOG_EVENT@ LOG_EVENT@M LOG_EVENT@M LOG_EVENT@$ LOG_EVENT@,4M LOG_EVENT@Md LOG_EVENT@l LOG_EVENT@t|M LOG_EVENT@ RETURN_ERROR@DMD LOG_EVENT@ LOG_EVENT@M LOG_EVENT@ RETURN_ERROR@DMD LOG_4=$ IBMS040.AW"z$[DECUS_KITS.IBMS.KIT]SELECTOR.OBJ;30_EVENT@  LOG_EVENT@(0M LOG_EVENT@ L  RETURN_ERROR@D M\D LOG_EVENT@d  LOG_EVENT@ltM LOG_EVENT@ LOG_EVENT@,4<,  RETURN_ERROR@DMD LOG_EVENT@ LOG_EVENT@ M LOG_EVENT@PK[\,7  ,: I ,Q H˘LIB$SYS_TRNLOG SS$_NORMALQPQ,k PVYV˨ FOR$JDATE. FOR$ENCODE_MFݫ FOR$IO_L_Vݫ FOR$IO_L_Vݫ FOR$IO_L_V FOR$IO_END^(n^(nn,"n GQ^FOR$OPENݬ FOR$READ_SFh FOR$IO_T_DS8 FOR$IO_T_DSx FOR$IO_T_DSp FOR$IO_T_DSˀ FOR$IO_T_DSˈ FOR$IO_T_DS FOR$IO_ENDӑhV,i hhT,i hh4 FOR$DECODE_MFl FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SL^(hn^(n ^ FOR$IO_T_V_DS FOR$IO_ENDll)A}NCI ALIB$SYS_TRNLOG LIB$INDEXPW LIB$INDEXPX, LIB$INDEXPYW,W zYXY,YH n~ FOR$WRITE_SL}~^(n8^<8 FOR$IO_T_V_DS FOR$IO_END~ FOR$WRITE_SL ^( 'n^(n@^D@ FOR$IO_T_V_DS FOR$IO_END~ FOR$WRITE_SL^(3n^(nH^LH FOR$IO_T_V_DS FOR$IO_END~ FOR$WRITE_SL ^( nn^(nP^TP FOR$IO_T_V_DS FOR$IO_END~ FOR$WRITE_SL^(zn^(nX^\X FOR$IO_T_V_DS FOR$IO_END~ FOR$WRITE_SL^(hn^(n`^d` FOR$IO_T_V_DS FOR$IO_END~ FOR$WRITE_SL}A~^(nh^lh FOR$IO_T_V_DS FOR$IO_END) 'n)3z~ FOR$WRITE_SLp FOR$IO_T_DS FOR$IO_ENDˀ RETURN_ERRORh˜˨ LOG_EVENT˼ FOR$CLOSE1) 'n~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END RETURN_ERRORh LOG_EVENT FOR$CLOSE1)3z~ FOR$WRITE_SL  FOR$IO_T_DS FOR$IO_END0 RETURN_ERRORhLX LOG_EVENTl FOR$CLOSE1x VALIDATE_USER~ FOR$WRITE_SLˀ FOR$IO_T_DS FOR$IO_ENDː RETURN_ERRORhˬ˸ LOG_EVENT FOR$CLOSE1l~ FOR$WRITE_SL FOR$IO_T_DSl FOR$IO_L_V FOR$IO_END RETURN_ERRORh LOG_EVENT$ FOR$CLOSE1)~ FOR$WRITE_SL0 FOR$IO_T_DS FOR$IO_ENDhLX LOG_EVENTl FOR$CLOSE1)~ FOR$WRITE_SLx FOR$IO_T_DS FOR$IO_ENDh˔ˠ% LOG_EVENT˴ FOR$CLOSE1)1V RETURN_ERRORh LOG_EVENT FOR$CLOSE1 GET_A_GATEWAYի, RETURN_ERRORhHT LOG_EVENTp RETURN_ERRORhˌ˘ LOG_EVENT SEND_NEWSˬ FOR$CLOSEùR 1& FOR$ENCODE_MFݫ FOR$IO_L_V FOR$IO_END* FOR$ENCODE_MFݫ FOR$IO_L_V FOR$IO_END* FOR$ENCODE_MFݫ  FOR$IO_L_V FOR$IO_END,n ˸STR$TRIMk( H(,n ( LOG_EVENT RETURN_ACCEPT SEND_NEWS FOR$CLOSE~ FOR$WRITE_SL"~}~^(*n^ FOR$IO_T_V_DS FOR$IO_END RETURN_ERRORh,8 LOG_EVENTL FOR$CLOSEFOR$EXIT7P4.0snag$system:user_db.datsnag$system:snag_avail.datYESsnag$logging:snag_usage.log_Cannot decode IBM Version Request received: From: At: Actual user: Actually at: Protocol Version: Access requested: Invalid request " K SELECTOR$MAINSTR$TRIMLIB$SYS_TRNLOG SS$_NORMAL FOR$JDATEFOR$OPEN LIB$INDEX RETURN_ERROR LOG_EVENT FOR$CLOSE VALIDATE_USER GET_A_GATEWAY SEND_NEWS RETURN_ACCEPTFOR$EXIT$CODE;$PDATA<$LOCALF$BLANK FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$READ_SF FOR$WRITE_SL FOR$ENCODE_MF FOR$DECODE_MF!VP lP=P OP \P'P?P P PMPDP PCLP;XPCPPBPPK9PNFP9}P P9PPWP(P P^P0PUPgP P PP(P`9-%*[DECUS_KITS.IBMS.KIT]SEND_NEWS.OBJ;10+,o"./ 4nJ-0123KPWO56>!l7`y89&7tGHJ4 SEND_NEWS0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79 SEND_NEWS;PLooking for news...snag$system:ibm.news<>)) SEND_NEWSnTPPd FOR$OPEN@((PHP[~ FOR$WRITE_SL  FOR$IO_T_DS FOR$IO_ENDFOR$OPENP1/ FOR$READ_SFk FOR$IO_L_R FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SLk<@< FOR$IO_T_DS FOR$IO_END2 FOR$WRITE_SFkDHD FOR$IO_T_DS FOR$IO_END1xL FOR$CLOSE2 FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL` FOR$IO_T_DS FOR$IO_END H SEND_NEWSFOR$OPEN FOR$CLOSE$CODE4$PDATA$LOCALF$BLANK FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_SF FOR$WRITE_SF FOR$WRITE_SL!0P6PPzP?'1$*[DECUS_KITS.IBMS.KIT]SEND_OPER.OBJ;4+,]"3./ 4-0123KPWO56@T"l7 y89&7tGHJ4 SEND_OPER0128-Nov-1990 19:0328-Nov-1990 19:03VAX FORTRAN V5.4-79 SEND_OPER SEND_OPER PP wowVCOM97(օ@<CMc46=*J @4w{qDV].U*[!sF~vCS?a|:Eyu]3(-FrfN/ۇ3gZI ')x|F<-nJSZ3d0Mz /.s[k] rF\/Vwxh2F{hVH@5`Cq: pWh^2@]@0Qvl$ǦxAgB /5F)r5?4? aW[" `4˵yS\:u+`iRb+k&qf{@ H=;\B8Xz>*6Ex=fCI~" Mcs\]Гd#cŭoj9#_@ EW Kb Ŕksa3^n8YQ9YW4 w\G_RA[U&ܸffK/UUqt-w|\K x"&p#h>:Fyg+K@w$Q*lfGy*W5w"$P{~5lI%tVQzu`[L[ь>֛$kEa^Qs|owV8r$;qՙtjEFd%/\j}0{x,Еa=%0հ2.K] : V_Z|{cU犅Lj*()SCPp0n:oBJ\'Z.ݠ9-%ܘ (yXpW--#R}pl~PjNղ鹗é{72`4lʆm N3usAnH ?UV4[Ow@O0H£Th̘Z p4ԝ/_U<ջY gbga, +kT;ԖȤnD'5B׉1@qe{;;d׵IṟK =6~eTSwL޲ENq޷ofz6O1M (뫹S+ST vrp1ٕ{bpiH\/a Kmaߏ(n:{MWg~IZL.F>F "tV?(`x67?}`/A(zb^'F;[?KǟZx%p_UQ0^FFJuo`$-(L2(_@x[d<|9-"Nb&"gsuVzQvڹer%JE<; IqY}݋ePѼꭃQ`W|6rlY\*LhaO1'LR4ULӼF_Dj8Y/5{Yt.k >qhdt+5}=}r2"Q-7HAU4R>*<8fNщhڀR}tkio; QEiz᫻w:B NRsc47z5?DPn>|db:N |چob}io*ؼ 'WE$p)Omمw!_?+"6-GB wp2$4O[1*3g0LhhjB>Qtuhu y~:@Pr>h^!!m~|tP⧚:<ڮ<%BB>FxMG k?5/z" bxo`a,8q0s]*Za@7!=7e4gQSm1 9Oc^](;;&oԠE|!N>-7Nso zMe4+9>< vI(r"qJV͉kY65AyX:ߍ!s"72%$8/<+sPm t4H_R /zg%?!9*)tuZ> |{Hݩic?t)$xXHbzZk Vs{G!.4RH15hOq\O/M95VEE;w@CLuqdBmZ7iffN&S\9pNn1Www {5{?龜N\S ӛ%R+ ˥Ccc&'{7xҒ-^n;ؿ d!{5aی vsb3&lr ὊKZF=7-e;j#6E pwoH=J Cr*Wwd2UH B41{:FK# rk .@='[fez 8!wYP u&`n"Y 5DB)=K/S2*1T=9SۄOբa4&v9$ s[-THC7?=l]7&VzS=MYDpA@B $P$4leRp 4^ :(;.ܵuYY?R'/L&QJGN2E[QYFeot˂F-mK|P~j/M%`3M4rx|g /cNޒ1YNT >ɢGƒYKk*'h{֬wi7$rŦ3@ G+bo)6M\,9Q Pt0P c!p0nLrm< 9#eJO|&DE_B'pq qbb5֓ lX}Zvr=삯YE/[#\G[kIvhG;:%]u"J2&N bVŮZn]=9#= 8yN҆CѕM47@Vf]u[jf@^lQ7>'?NNդHY &l:aaOJ6EfQ-I3wi`))f]&)vd^$Sxk߀ "C҄\*s͹Wrg^F+j( ԈE|6S: 3kB\L8ΆTvfAt什's⻷[H \XTWqeVn7SQ؈m" լk 7o$%ʭiOvо{6:2w9>zW3PCL*#զr H-|WoaDm,6B Ql˥])L PG76>N[-'(,%-O7dyd34cwl~uhd5@^1fPAR&R 2¨pa xJNߒ"9Y07`b[96IrGj>ض<{e{je!qM*ҭ(҂bXq1|dBH8iFnWfSW]0n@W=d>p܃WvIwfhA$ |!۞[}kywae@NVo+g[}bK/܋0u?o煟{Mq*[]cf'mo<}BX r-)2@t: %6;1{$zh/ 4M9c;8#1]oxe{T'Me4:ǵ[`} _mHD{:C^pFu#u-8)H,#w|v-™.6:&&Z(PA\4"r. n^| > ]6ID N*l|li=G7OW]LE..Kx^0`Ez.uR0!᜞˿syA6W+Z}xqU rB`,4B:yQm;`5xhvr6G/tp1<|xle!EYi tA0lY11RsrНC8}]wHe)ۮ^'#}W-JϽf@gWC{& 7t%dU`l. GIr !/4u3Δ]OTG"Qܗc|+` GIT_W;y%F/kPiuꨙ!e.4yq1썤jYC#{c-LӾOS|']=W HP #g7`J1W]zm9֭zȁ ?5Ϧ)>Lpw<|lI)-܉ii;rk:-yZk;(b ;4ؔ+ƀG'-ĸN{/ Jݕ`ׯQ8-HT'ϧ¦{vޏ(CxDE1 7VCԍxƨ04ehcxxm-9q6]@c?̌ȡL_P[ bR5@j @嚿 eX"TSMm0`#z{m-M[+yQ>k5ܪ13'n)v&aiĦvSM(@o. *SrB5"\&MKڑ:O÷ _g{Ox1kC|ZGVwIo$FO.p1f.nTtTyLq4ễ{jPMVߗ,J1G06nK9A"}CMu_õq`0m 1mG@ .3:a07?^IHT+j~}6`%JL, 4Syd[WD/h.AZ):/]xmv vMv0+}b|u~9DV^_eY/&3MbՂ#"mK+KG82" nw>9Z v-,r+/b]dnz|BJ0kyZm0:rM'\>dsba6"#Cp^CsWKe,df.exUS?`e /; *JD{ bm+s/3bPpx ZNC=$>4m$sF: (KD@ڷ|QR2͆r,|>s~j'0@ /ʞL.?T6AY VJ,WW$sXF3˨S"3F;oWkl:f_o`7YCƘB ;Jixak[-#vK=j$y@/>dUVKe ɤ.<'_gP 0X<2 A^#dⱬ r"VY\_$?S sJTo$s,8H{FvbJhS1M~LqiOJ- :K`nw4ܨL$o G~c"ZMFg1+H]OT RzIV.j/ %>_m-zVzFI1Z$5V!YUIl 5joimtko* jsWHUJ{ui&/Nqh7d$%pfI(p\ ROY5r 17*r PP80ZA ;~9[^\ ElUW>J>yna*^ pc Ny1 [5[+kW=O M@Pf( 2#ts8N t^uU4|mz3bz]gX'-@d9rp8>C~czLXW D8K _gs.BY.@K9/w $ `M O=J}mlGDTXEJ Th˽i"{W_(P,y{`ȿx#w,oFp]iHML/C7%%{&W,_z?[_[OS\[\\,iV5-o!a0YA)?>Y[HBڳ*<6.6&tu0jCٟL'qzƜ9*rPh$c9rl fBF8򨩵U ϳx7b^:ݟapei+D1v$ 'd"ʊyDHrm@.sXRT&  lTsCS]k XY $PlK_Z5/oq=q/7 P6.:)l+mQ vx%iu~y:!Nr.~X#~/tf7#"H ^mr:]0GD=9Ri 8n3{\Xk9"8+yTTYjs,8pB},k<( gb.R8utv3mj6"by{ay qEGylEvk-0Z+6*of)0dh WdRq&6C6- ;C{`~mOwIC"~\tJ;o/bgVkF͈$s({`|+7({a;#+}m uheet %a"2,AgdΟeE`o;a`Wo(!>% LDAONAY/WRS@QM*IzJMFN"NPC`6Y-Z9V!9&<#wsxzXvxKndj>zqg `d:uD#m~( 'lO!i vW#- !$ocj_ok:T VMI$CALLBACK ASK dev -C "Disk for directory that will contain server files" SYS$SYSDEVICE$ dev = dev - ":" + ":"$!$