}j$ IBMS040.AP IBMS040.ABACKUP/NOASSIST/COMMENT=VAX/VMS SPKITBLD Procedure/INTER/LOG/VERIFY [.SERVER.KIT]*.*;* SYS$SYSROOT:[FAL$SERVER]IBMS040.A/LABEL=(IBMS)/SAVE/BLOCK=9000/GROUP=25VAX/VMS SPKITBLD Procedure SCOPELLITI_P`\V5.2 _ROVAX::  _ROVAX$DUA0: V5.2 $2*[CGW_NETWORK.POLL.SERVER.KIT]DUMP_SNAG_AVAIL.EXE;5+,J. . / 4 -H&0123 KPWO 568*X7`w\89GHJ0DX0205(X hDUMP_SNAG_AVAIL01X05-05  ?B!d FORRTL_001! LIBRTL_001snag$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 Press RETURN to continue )SNA Gateway Status at Password = DECSA ST CT Unknown Unknown Unknown < <lPp 2H^tvw&|H[k08P1|b~H^(n^(n-˄^ˈ˄  `~k~ˌ~˔,P`~ ^( 0n^(6n6˜^ˠ˜kh~nˤKPP`1>~Dˬ!TP`~˴XP`˼XP`P@`~\P`|~l`P`V_~eBdP`(5dP`\V\E~*VP^(@`n^(n^\VV~]~ 1~wx@@ (@08 (0  @FORRTLLIBRTLDUMP_SNAG_AVAIL$MAINDUMP_SNAG_AVAIL$MAIN; 2*[CGW_NETWORK.POLL.SERVER.KIT]DUMP_SNAG_AVAIL.OBJ;5+,./ 4b-H&0123KPWO56HX7\89@ҩ`ZGHJ ?DUMP_SNAG_AVAIL$MAIN0122-Apr-1990 02:0822-Apr-1990 02:08VAX FORTRAN V5.1-10DUMP_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 Press RETURN to continue ) DUMP_SNAG_AVAIL$MAINP< <lP FOR$OPEN@p 2H^tvw&Q`DECSA 'ST 'CT 'Unknown 'Unknown 'Unknown 'P|H[k0FOR$OPENP1| 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 ^( 0n^(n6˜^ˠ˜ FOR$IO_T_V_DS FOR$IO_END~ FOR$WRITE_SLˤ FOR$IO_T_DSPP` FOR$IO_L_R FOR$IO_END~ FOR$WRITE_SLˬ FOR$IO_T_DSTP` FOR$IO_L_R9 FOR$IO_END~ FOR$WRITE_SL˴ FOR$IO_T_DSXP` FOR$IO_L_R˼ FOR$IO_T_DSXP`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_DSdP` FOR$IO_L_R FOR$IO_ENDdP`\V\~ FOR$WRITE_SLVP^(@`n^(+n^ FOR$IO_T_V_DS FOR$IO_END\V~ FOR$WRITE_SF FOR$IO_END~ FOR$READ_SF  FOR$IO_T_DS FOR$IO_END1 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$CODE9$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_SF FOR$READ_SU FOR$WRITE_SF FOR$WRITE_SLP^P`=PEG; **[CGW_NETWORK.POLL.SERVER.KIT]ENCRYPT.OBJ;8+,7:./ 4-H&0123KPWO56@7@u\89@ҩ`ZGHJ2ENCRYPT01 6-Dec-1989 11:17 6-Dec-1989 11:17VAX FORTRAN V5.1-10ENCRYPTENCRYPTPPH[}PQP}PQP } PQP, P, P`<P<QRQSTSURRQReVB_WWV3VST,P H HENCRYPT$CODE$PDATA$LOCALWP!bP%|+$ IBMS040.A&H&1[CGW_NETWORK.POLL.SERVER.KIT]GET_A_GATEWAY.OBJ;16h1*[CGW_NETWORK.POLL.SERVER.KIT]GET_A_GATEWAY.OBJ;16+,&./ 4&-H&0123KPWO56`o+7\89@ҩ`ZGHJ 8 GET_A_GATEWAY0118-Jan-1990 17:0218-Jan-1990 17:02VAX FORTRAN V5.1-10 GET_A_GATEWAYEP€@***** ERROR *****Previous SNA Gateway record NOT available GET_A_GATEWAYLP H< <\ p H )PL@[Ь}PQԼ~ FOR$WRITE_SL^(Hn^(>n4^84 FOR$IO_T_V_DS FOR$IO_ENDԫѫ1<FOR$OPENP1k~  FOR$READ_SU$ FOR$IO_X_SE FOR$IO_END~ FOR$WRITE_SLP` FOR$IO_L_RP` FOR$IO_L_RP` FOR$IO_L_R FOR$IO_END攫P`ZVZ~ FOR$WRITE_SLVW^(Gn ^( Dn}A~ ^( Mn"ː^˔ː FOR$IO_T_V_DS FOR$IO_END)AGZVVfV11ZjZZZjZNVPDPZP`PNPWGWZWQWkWkWgWWVP ( ~ FOR$WRITE_SL ^( n ^( Vn*˘^˜˘ FOR$IO_T_V_DS FOR$IO_END1}ռ1~~߫   FOR$READ_KU$ FOR$IO_X_SE FOR$IO_ENDPP`( FOR$REWRITE_SU$ FOR$IO_X_SE FOR$IO_ENDP~ FOR$WRITE_SLˬ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL˴ FOR$IO_T_DS FOR$IO_ENDˠ FOR$CLOSE֫ˈLIB$WAIT1>PUsing Q Checking Q against Q Password:  L GET_A_GATEWAYFOR$OPENLIB$WAIT FOR$CLOSE$CODE`$PDATA$LOCALF$BLANK FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_SU FOR$READ_KU FOR$WRITE_SLFOR$REWRITE_SUgP_uPAPPpQP lPtPPyPW PP%9P6FPjPlP?PP{oR   jQ'*[CGW_NETWORK.POLL.SERVER.KIT]KIT.LIST;2+,<:./ 4p-H&0123KPWO56@cX7.\89@ҩ`ZGHJDUMP_SNAG_AVAIL.EXESCAN.EXE SCAN_ONCE.EXE SELECTOR.EXELIST_CT_GATEWAY.COM RUN_SCAN.COM SNAG_DB.DAT-*[CGW_NETWORK.POLL.SERVER.KIT]KITINSTAL.COM;28+,d%./ 4\-H&0123KPWO56ݍ\7\89GHJ 7$! Installation Kit for IBM Access System Server - V4.0$!$ on warning then exit $status$ type sys$inputH************************************************************************H* *H* IBM_Access Server Kit *H* *H* NOTE: This procedure will not alter a current copy of the user *H* database file (SNAG$SYSTEM:USER_DB.DAT) or the SNA Gateway database *H* file (SNAG$SYSTEM:SNAG_DB.DAT *H* *H************************************************************************$!$! Check minimum VMS version$!/$ VMI$CALLBACK CHECK_VMS_VERSION version_ok 050$ if .not. version_ok then - VMI$CALLBACK UNWIND$!$ VMI$CALLBACK SET PURGE ASK$! $get_obj:$!$ type sys$inputMA DECnet object number is required for access from client systems. Note this#number must be between 128 and 255."$ VMI$CALLBACK ASK decnet_object -* "What is the DECnet object number" 130 II$ if decnet_object .ge. 128 .and. decnet_object .le. 255 then goto obj_ok$!%$ VMI$CALLBACK MESSAGE W BADOBJNUMB -4 "DECnet object number must be in range 128 -> 255"$!$ goto get_obj$!$obj_ok:$ VMI$CALLBACK ASK dev -C "Disk for directory that will contain server files" SYS$SYSDEVICE$ dev = dev - ":" + ":"$!$ 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.0I$ IBMS040.Ad%H&-[CGW_NETWORK.POLL.SERVER.KIT]KITINSTAL.COM;28\] 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$!$ 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'$ 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) 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************************************************************************$!$ exit2*[CGW_NETWORK.POLL.SERVER.KIT]LIST_CT_GATEWAY.COM;5+,>./ 4D-H&0123KPWO56e[7@1\89V[GHJ$! 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 = "snag$system: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'$ exit2*[CGW_NETWORK.POLL.SERVER.KIT]LIST_ST_GATEWAY.COM;3+,>./ 4D-H&0123KPWO56`w[7@>\89V[GHJ$! 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 = "snag$system: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,*[CGW_NETWORK.POLL.SERVER.KIT]LOG_EVENT.OBJ;9+,:./ 4-H&0123KPWO56Ӣ7@V\89@ҩ`ZGHJ4 LOG_EVENT01 6-Dec-1989 11:16 6-Dec-1989 11:16VAX FORTRAN V5.1-10 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^(-n0 $ IBMS040.A:H&,[CGW_NETWORK.POLL.SERVER.KIT]LOG_EVENT.OBJ;9F˜^ˠ˜ 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{;/D  W6*[CGW_NETWORK.POLL.SERVER.KIT]PARSE_NEXT_GATEWAY.OBJ;11+,./ 4-H&0123KPWO56S7@n\89@ҩ`ZGHJ =PARSE_NEXT_GATEWAY01 5-Dec-1989 14:38 5-Dec-1989 14:38VAX FORTRAN V5.1-10PARSE_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!P1PPLP3RPHT ]2*[CGW_NETWORK.POLL.SERVER.KIT]REBUILD_USER_DB.COM;1+,d ./ 4>N-H&0123KPWO56`Y[7`ǂ\89V[GHJ $! set verify$ set def snag$system:*$ copy/log [.users]*.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 ""-$ write sys$output "New USER_DB.DAT created."$ write sys$output ""$ write sys$output ""$ exit1*[CGW_NETWORK.POLL.SERVER.KIT]RETURN_ACCEPT.OBJ;11+,:./ 4F-H&0123KPWO56`O7 \89@ҩ`ZGHJ8 RETURN_ACCEPT01 6-Dec-1989 14:05 6-Dec-1989 14:05VAX FORTRAN V5.1-10 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$!50*[CGW_NETWORK.POLL.SERVER.KIT]RETURN_ERROR.OBJ;12+,:./ 43-H&0123KPWO56آ7>\89@ҩ`ZGHJ7 RETURN_ERROR01 6-Dec-1989 11:17 6-Dec-1989 11:17VAX FORTRAN V5.1-10 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$/+*[CGW_NETWORK.POLL.SERVER.KIT]RUN_SCAN.COM;3+,y./ 4f-H&0123KPWO56 **[7@\89V[GHJ$! Run SCAN as detached process$!$ set noverify$ set default snag$system: $ run scan$ exit(*[CGW_NETWORK.POLL.SERVER.KIT]SCAN.OBJ;29+,9. / 4 -H&0123KPWO 56 W97@/\89@ҩ`ZGHJ6 SCAN$MAINV2.112-Mar-1990 19:3112-Mar-1990 19:31VAX FORTRAN V5.1-10 SCAN$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$MAINPP<.: D LIB$SYS_TRNLOG@$6> > FOR$OPEN@V$s\ FOR$OPEN@p 6$$ IBMS040.A9H&([CGW_NETWORK.POLL.SERVER.KIT]SCAN.OBJ;29 } STR$ELEMENT@4 STR$ELEMENT@ P STR$ELEMENT@  STR$ELEMENT@" LIB$RENAME_FILE@ LIB$RENAME_FILE@.PI[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_ENDVV1ˈFOR$OPENP1FOR$OPENP1PARSE_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_FILEpLIB$WAIT1M~ FOR$WRITE_SLx 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˸LIB$WAIT1~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_ENDFOR$EXIT~ FOR$WRITE_SLˀ FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL«^(nЫV#^(#n#VVˈ^ˌˈ FOR$IO_T_V_DS FOR$IO_ENDFOR$EXIT@PPDECSASTCTUnknown gateway type specified "Logical name SNAG_SCAN_CYCLETIME =  I SCAN$MAIN STR$ELEMENTSTR$TRIMLIB$RENAME_FILELIB$SYS_TRNLOGFOR$OPENLIB$WAITPARSE_NEXT_GATEWAY LIB$INDEX SCAN_DECSASCAN_STSCAN_CT FOR$CLOSEFOR$EXITG$CODE$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_IFP=P (P1.P]P_PwP PPPPP PSPPYPP$P&PwP PP PP PiPM  |hG+*[CGW_NETWORK.POLL.SERVER.KIT]SCAN_CT.OBJ;27+,(#9./ 4r-H&0123KPWO56X[7q\89V[GHJ 2SCAN_CT0125-Apr-1990 18:3825-Apr-1990 18:38VAX FORTRAN V5.1-10SCAN_CTPFormat of following line cannot be decoded:Error writing to SNAG_AVAIL.NEW. Error = ,)+ + unavailable Processing SCAN_CTPP<P < +*+Q0PJ[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)RnYRS^Y1˜STR$TRIMYkˬX˰ˬ FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDѫNѫR)dj W\~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1W1Yﰦ˴f˸˴ FOR$READ_IFˠP` FOR$IO_L_R FOR$IO_END( ˤPW`P\W`P`P`PЦ@`PЦV`WWP(@R@ W]~ FOR$WRITE_SFP` FOR$IO_L_RP` 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$CLOSE~ FOR$WRITE_SL^(n ^( n'^ FOR$IO_T_V_DS FOR$IO_ENDPsnag$system:CT_@snag$system:list_ct_gateway activeCannot open t JSCAN_CTSTR$TRIM LIB$GETJPIJPI$_PID LIB$SPAWNFOR$OPEN 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$READ_IF FOR$READ_IF FOR$WRITE_IFuPPPPZFP#MPYP`PdPkP8PfPPP?dXf   .*[CGW_NETWORK.POLL.SERVER.KIT]SCAN_DECSA.OBJ;13+,>. / 4 n-H&0123KPWO 56 T[[7 -\89V[GHJ5 SCAN_DECSA0125-Apr-1990 18:3825-Apr-1990 18:38VAX FORTRAN V5.1-10 SCAN_DECSAPAPendError writing to SNAG_AVAIL.NEW. Error = , LC-, LU:),+) + unavailable Processing  SCAN_DECSAPP * M<p < L STR$CASE_BLIND_COMPARE@`* Q<PO[Ы\h~ FOR$WRITE_SF0 FOR$IO_T_DS FOR$IO_ENDVUFC VVWkk1k~ FOR$WRITE_SL^(n ^( znP^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)dnYRS^Y~F FOR$READ_SF FOR$IO_T_DS FOR$IO_END~F FOR$READ_SF FOR$IO_T_DS FOR$IO_ENDgH FOR$DECODE_MF߫ FOR$IO_L_RЫ\ FOR$IO_END\1\N\R)nBLCV)nFLCW˘STR$CASE_BLIND_COMPAREPW1uH FOR$DECODE_MF߫ FOR$IO_L_RЫ\ FOR$IO_END\1\N\R)|BLCV)|FLCW)|W1˃H FOR$DECODE_MF߫ FOR$IO_L_RЫ\ FOR$IO_END\\N\R)ˊBLCV)ˊFLCW)ˊW1UkˈLIB$WAIT1BYW1iKݩ FOR$DECODE_MF˴P` FOR$IO_L_R FOR$IO_END( ˸PW`PVW`PЩ@`P`P`PЩV`VVP(@R@ VM~ FOR$WRITE_SFP` FOR$IO_L_RP` 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) $ IBMS040.A>H&.[CGW_NETWORK.POLL.SERVER.KIT]SCAN_DECSA.OBJ;13  FOR$IO_END\WX~ FOR$WRITE_SF FOR$IO_ENDW13( FOR$WRITE_IF8 FOR$IO_T_DS\ FOR$IO_L_V FOR$IO_ENDۚ@W^(n©^(inЩZZV^(nV ~V&^(&n&VVˤVW^˨ˬ  SEND_OPERW^~ FOR$WRITE_SL^(n^(n˸^˼˸ FOR$IO_T_V_DS FOR$IO_END FOR$CLOSE\zPRe-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_IF2NPSP9P$P0 P+#PNPPPgPGP>P P PPP!P,PG5P>AP VP kPpPPPfPGP>P P PPPPPP.P<P ;^  ,*[CGW_NETWORK.POLL.SERVER.KIT]SCAN_ONCE.OBJ;2+,>&. / 4 -H&0123KPWO 56~ X7\89V[GHJ;SCAN_ONCE$MAINV2.121-Apr-1990 16:1521-Apr-1990 16:15VAX FORTRAN V5.1-10SCAN_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$MAINPP<.: D LIB$SYS_TRNLOG@$6> > FOR$OPEN@V$s\ FOR$OPEN@p 6 STR$ELEMENT@4 STR$ELEMENT@ P STR$ELEMENT@  STR$ELEMENT@" LIB$RENAME_FILE@ LIB$RENAME_FILE@.PI[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$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_IFP1P (P1.P]P_PkP PPPPP  POPPYPP P"PsP |PP PP PiP@PM  |f;+*[CGW_NETWORK.POLL.SERVER.KIT]SCAN_ST.OBJ;10+,>./ 4r-H&0123KPWO56B´[7`\89V[GHJ2SCAN_ST0125-Apr-1990 18:3825-Apr-1990 18:38VAX FORTRAN V5.1-10SCAN_STPFormat of following line cannot be decoded:Error writing to SNAG_AVAIL.NEW. Error = ,)+ + unavailable Processing SCAN_STPP<P < +*+Q0PJ[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)RnYRS^Y1˜STR$TRIMYkˬX˰ˬ FOR$READ_IF߫ FOR$IO_L_R FOR$IO_ENDѫNѫR)dj W\~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END~ FOR$WRITE_SL FOR$IO_T_DS FOR$IO_END1W1Yﰦ˴f˸˴ FOR$READ_IFˠP` FOR$IO_L_R FOR$IO_END( ˤPW`P\W`P`P`PЦ@`PЦV`WWP(@R@ W]~ FOR$WRITE_SFP` FOR$IO_L_RP` 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$CLOSE~ FOR$WRITE_SL^(n ^( n'^ FOR$IO_T_V_DS FOR$IO_ENDPSNAG$SYSTEM:ST_@snag$system:list_st_gateway activeCannot open t JSCAN_STSTR$TRIM LIB$GETJPIJPI$_PID LIB$SPAWNFOR$OPEN FOR$CLOSE$CODE$PDATA$LOCALZ$BLANK FOR$IO_END FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FgV$ IBMS040.A>H&+[CGW_NETWORK.POLL.SERVER.KIT]SCAN_ST.OBJ;10 xOR$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_IFuPPPPZFP#MPYP`PdPkP8PfPPP?dXf   ,*[CGW_NETWORK.POLL.SERVER.KIT]SELECTOR.OBJ;28+,E!./ 4-H&0123KPWO56^I4#7'\89@ҩ`ZGHJ: SELECTOR$MAINV4.012-Feb-1990 15:2112-Feb-1990 15:21VAX FORTRAN V5.1-10 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_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ùQ 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-,*[CGW_NETWORK.POLL.SERVER.KIT]SEND_NEWS.OBJ;8+,6:./ 4nJ-H&0123KPWO56@%4ޢ7@J\89@ҩ`ZGHJ$ IBMS040.A6:H&,[CGW_NETWORK.POLL.SERVER.KIT]SEND_NEWS.OBJ;8n4 SEND_NEWS01 6-Dec-1989 11:17 6-Dec-1989 11:17VAX FORTRAN V5.1-10 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,*[CGW_NETWORK.POLL.SERVER.KIT]SEND_OPER.OBJ;2+,./ 4-H&0123KPWO56妤N97\\89@ҩ`ZGHJ4 SEND_OPER0112-Mar-1990 18:2512-Mar-1990 18:25VAX FORTRAN V5.1-10 SEND_OPER SEND_OPER PP./ 4E-H&0123KPWO56 [7rx\89V[GHJ<! SNA Gateway database - at least one entry for each gateway ! Format:2! DECnet-number (area-number * 1024) + node-number ! password dash ( - ) means none! type DECSA, ST, CT"! weight any positive real number! LUs pu.lu-lu (e.g. 1.1-256) ! services6! Continuation to next line indicated by trailing dash! D2049 HARVEY CT 4 1.1-256 CICS ROSCOE TSO ! CT gateway at address 2.1D2050 HARVEY ST 2 0.1-32 CICS ROSCOE TSO ! ST gateway at address 2.2E2051 - DECSA 1 1.1-32 CICS ROSCOE TSO ! DECSA gateway at address 2.3,*[CGW_NETWORK.POLL.SERVER.KIT]SNAG_LINK.COM;2+,R./ 4V-H&0123KPWO56<!7ܐ\89V[GHJ$! SNA Gateway Show Links$!$! $! set verify$ type 'p1'::"0=...slk"$ exit-*[CGW_NETWORK.POLL.SERVER.KIT]SNAG_LIST.EXE;12+,{d. / 4 -H&0123 KPWO 56`{t\7+\89GHJ0DX0205(s\h  SNAG_LIST01s\05-05  ?B!d FORRTL_001! LIBRTL_001@snag$system:snag_avail.dat/4/    Node Type Free/#LU   Node Type Free/#LU  DECSA ST CT Unknown Unknown Unknown @4 t < <  p     0  p   O|[Ы\kk1d4,P1FWXy~"  W|P`YZYCZV(FxT\X\P)@xTX\TXXP(Fx@xYZˈWWAWZX4ZY)IxIˀW(Ix(IˀIx(IˀXZWXBWZJx˘\˜[ë \,n Jx\PPYPZT, YDxXWWW1˴P1YXYTT1YE~ZX%TVZPVPQAx XZB~ZX$TVZPVPQAxiXZb1` 0Z$ IBMS040.A{dH&-[CGW_NETWORK.POLL.SERVER.KIT]SNAG_LIST.EXE;12  YEw~QZX%TVZPVPQAxXZB ~ ZX$TVZPVPQAx$ XZTό~q,n @|P`ZVZPVP(@x\X9\P)@x&Y\P@\PPTTP, PDX\ZVY1~ ~2DP`pP`P(@x,(hP`lP`|P` |y~DP`pP`P0@x40yhP`clP`U|P`G EB1sVV1YE~%ZX%VTZPTPQAx<8XZB~ZX$VTZPTPQAxD@XZ1YE~ZX%VTZPTPQAxLHaXZZBO~PZX$VTZPTPQAxTPXZVX%W1kˀ1@@ (@08 pX @FORRTLLIBRTLSNAG_LIST$MAINSNAG_LIST$MAINĹX  l,*[CGW_NETWORK.POLL.SERVER.KIT]SNAG_SESS.COM;2+,L ./ 4V-H&0123KPWO56x~@)7`)\89V[GHJ$! SNA Gateway Show Links$!$! $! set verify$ type 'p1'::"0=...ssl"$ exit0*[CGW_NETWORK.POLL.SERVER.KIT]STARTUP_POLL.COM;17+,!./ 4A-H&0123KPWO56`X7?\89@ҩ`ZGHJ/$! Command file used to define selector's needs$! polling/selector software$!:$ define/system snag$system disk$dbpack:[cgw_network.poll]?$ define/system snag$logging disk$dbpack:[cgw_network.poll.log]$!$ run sys$system:ncp<def object selector number 130 file snag$system:selector.exe<set object selector number 130 file snag$system:selector.exeexit$!$$! Install the SNAG selector process$!$ install := $install/commA$ if f$file_attributes("snag$system:selector.exe","known") then - goto replace_selector $ install(add snag$system:selector.exe/priv=bypassexit $ goto 10$$replace_selector: $ install,replace snag$system:selector.exe/priv=bypassexit$10$:$! $! Start the SNA Gateway scanner$!$ run sys$system:loginout - /detach -# /input=snag$system:run_scan.com - /output=snag$system:scan.log - /error=snag$system:scan.err - /process_name="SNAG scanner"$ exit**[CGW_NETWORK.POLL.SERVER.KIT]USER_DB.FDL;2+,; ./ 4@N-H&0123KPWO56Z7\89@ҩ`ZGHJ=IDENT "22-APR-1990 02:23:35 VAX/VMS ANALYZE/RMS_FILE Utility"SYSTEM SOURCE VAX/VMSFILE ALLOCATION 312 BEST_TRY_CONTIGUOUS yes BUCKET_SIZE 4 CLUSTER_SIZE 3 CONTIGUOUS no EXTENSION 76 FILE_MONITORING no GLOBAL_BUFFER_COUNT 0< NAME "DISK$USERPACK:[POLL]USER_DB.DAT;1" ORGANIZATION indexed OWNER [1,4]@ PROTECTION (system:RWED, owner:RWED, group, world)RECORD BLOCK_SPAN yes( CARRIAGE_CONTROL carriage_return FORMAT fixed SIZE 80AREA 0 ALLOCATION 300 BEST_TRY_CONTIGUOUS yes BUCKET_SIZE 4 EXTENSION 76AREA 1 ALLOCATION 12 BUCKET_SIZE 4 EXTENSION 4KEY 0 CHANGES no DATA_KEY_COMPRESSION no DATA_RECORD_COMPRESSION no DATA_AREA 0 DATA_FILL 100 DUPLICATES no INDEX_AREA 1 INDEX_COMPRESSION no INDEX_FILL 100 LEVEL1_INDEX_AREA 1 NAME "" NULL_KEY no PROLOG 3 SEG0_LENGTH 19 SEG0_POSITION 0 TYPE stringANALYSIS_OF_AREA 0 RECLAIMED_SPACE 0ANALYSIS_OF_AREA 1 RECLAIMED_SPACE 0ANALYSIS_OF_KEY 0 DATA_FILL 95 DATA_KEY_COMPRESSION 0 DATA_RECORD_COMPRESSION 0 DATA_RECORD_COUNT 1197 DATA_SPACE_OCCUPIED 220 DEPTH 1 INDEX_COMPRESSION 0 INDEX_FILL 57 INDEX_SPACE_OCCUPIED 4 LEVEL1_RECORD_COUNT 55 MEAN_DATA_LENGTH 80 MEAN_INDEX_LENGTH 210*[CGW_NETWORK.POLL.SERVER.KIT]VALIDATE_USER.OBJ;9+,:./ 4-H&0123KPWO56:aܢ7;\89@ҩ`ZGHJ8 VALIDATE_USER01 6-Dec-1989 11:17 6-Dec-1989 11:17VAX FORTRAN V5.1-10 VALIDATE_USER P@ VALIDATE_USERhPIP PPh   d P|Hd[VV1$FOR$OPENP1 ^( 'n ~^(3n(nQ^~ FOR$WRITE_SL^(n^(n#|^ˀ| FOR$IO_T_V_DS FOR$IO_END~~  FOR$READ_KU  FOR$IO_X_SE FOR$IO_ENDPk˄ FOR$CLOSEVtLIB$WAIT1GPValidating user  |H VALIDATE_USERFOR$OPENLIB$WAIT FOR$CLOSE$CODE$PDATA$LOCALF$BLANK FOR$IO_END FOR$IO_T_V_DS FOR$IO_X_SE FOR$READ_KU FOR$WRITE_SL)P$PP%PP?3E \` $ IBMS040.AJ?! d mlt ""Tvyy;16XP3mY%^y&KrCI+nɊPIpȒD`F ˥bW6jz<|L:dOxb*61yx)sʱ}$'l F7@3N /z ՉnjCc6Wh>W/.V5`>a\O1RC$s4Z*zp ruR@|/@LKܙ̷I͸SqEb,A:6)\ yxt%ؙ*5$p`UYf;u?;69U3N62"nJH!=;|0oXEN}Ҩu+HkMQZ瑆R/-q1mS[)MRG\C1.Wg>^:N0ۖ+1cr9u6Q*͹ `Mi;Ox"g K<D(LB c3qCLX`DӺ aXaHX '?р=H4$Q&[3$   H5(X]7y7S].W;VoQ.1 }TFE (N@KK⼨O4e*%7Ҿ|ӕF1^0/k+HCa <4kYdD<0da=*-܈v 'SߝT`9'j)KP.E+*]f1r~I7XZ%՘C ⲨP/1mS{M5DK!5ԮJ?eWzWEjPQZ{7q_: I!㫹@=9 t؜MTu1ZjK_<o;8 zn)'S><i~,*~ZlUe[T T)3IsYJ>(D/-7$^wC gn!rD}u&q6=+Rl/tzݟ3$dn`^~h%TXʴDhMY-6Φ Ys"<9P;X7RJ)1/BINt'+$!W\$L"Ѽ\NQvj80"7 `!R0uM]'Jgvg|\6F$>*i>p|tËJ30U*'^HxmڀcW(S?o8VALJ{}2@_N5K]}KsLx@5) c63"9B\3&gSG. 4XYow5-hkt=s*=38i?{/5:Ȍ9-.$u{c'G6cXx*e|nT6ub0iuÍ}ءQ7:3kz0Epm>t$r`'8*FĂP8sTtV:f݌b1x:P*8m׃z?:Gy$OZ;l}:sjy:`zӊ$E 'ckKV"akJ}UO1ծISV]xWL{ͺuI)z]A(Ea>0 [I\W %S4ZdXkFOKZ$pC2odѕQC%dwt k"<0 U9hLtl?B[_}M8Bv]1p+/m%)eEs_qXi[X'V qDNtza<g*CDq0"$DϿ=k~a].`z$&2ɽ`Ŕ10EK zTʯn]CdTF T:f((dB&İTKIWM1A}8VMrad}7bDTCX̕n>#z{IOmf @PSPe=YJObdiD\bp|'ջm.81j7kz;#E-8Tq]8nQlu7n<1g6j5kb'Bn#uj~cқ0o"1k w#z5=Apb*'3c3HnbNK2 S[@_W}Aa S+jM I e \P5^Xd5Vu^^ߊF]a:]ʹٯK\8i;3yxӽ_p5~ynb9(R~(Ôq%6ERZQ׽m]NR|cla=妀tzN{b>o"eseFvToIU4E6+) dl$sT65T pcf׸bQ`c7@ !!ȚyJ@`W/,.1Vdxk/{BZ r6'at䧔 B#B*802Hߵ+5.Ӆ֤XX )_ct"cU8qΈ$3b+E'nWuAN(R!1uKlˠ^=y4ZJ.;{r@kB0wdQTf&GBLoYJtJ eF̈ sė5gDd9cߓdCл] T0]::_zvra7A~U PbۊX쓣c;OLG'kmgF~n"M F1d@]?&jSdOd\G.cL>R=t K2}Q ROlx&d LDb NT  g9XXp"a'l" Kp{Tz{UE[\Vx*9OZܱW>b%F 4>$D{ i#Z^-讻tM[6!sFM!O{H8ώFu>' [O΢ bgR(317%XA X}w`5=+'zDx3X=J20][X<}9f;k14»7st1E5/Ə~25j'`o IG,}ӆ2Nü.Sc B4N B 院oBVY$v,siIlD5_g)3i+*Z >SI#ڦ"dqnTX6Cb'c#99/!UBkDxKE wqŮ 3^<,eQBp[i7fߩgE0dJR['82oߍ'I-u|Tw9P9;@m:©9 Qq^@#RlMqy.s<OuL7je\OVW@ 8ګyVպ8_4wXrEF11нh%BKߥ<\ Ձ> w7#Vtikt/K@H-|dH*>fO6 #8p,ג`#dOHK-: ŀxPUNN9ODi;*O8vO._;謀ɎVIAk)63۴>>ef+EZ {-$HE%#LJl J)16ͽ"|h5FmCr9*L#g;d7 +#,BHݡġCT!OIS| c~tƛ}~ew7 } WYaDne+ !1jy:=|x)=7EB1MYۺeI4'W\OK$2#ňnE6 -%ORzRR^u +ڙ(ɼB\Z-7d\?_E1 yfGXO'*"Q~ziLJ<- E I n;q}gZcu~-M-;A `z%* &='\hps+0K 'NF1rK 0wZ@\vf]LwgâdrW71is|xgcR-An",Hڃ$[3g/80G,0A4ʒh"l&k9w>W7_yqSt-:shP_eBꓽzA"iߎd"ŕμg&x<d O<0!&w`4D9w $)=2=.64bFj[HasD.K+N$O*>KS@wBaiS5fM;:DJaM'e&4mtWzV| nyJ~ZNP`pVb2[:pI\Le:1x}zUZf])5}dP3 >Y.H5^hӰe ,Л {Ygfh-\r=֍da28~28!1 )"|N}3do$|4dk#enǜSl䪻{6XmMARlMIMGcg3~#` QM~")ohY0HssfeyRsR}(*4(5EZ6!v.3ΌA\Z0%pZAď{ΛXiL#ڧ0bCB\Z>[ңJB\trglLûFF%sF QG25zmook1d`\lVXK|^D_o^oJTєNoNP0 +KNt]RiO:;C_Qg F.#Ւqf:WBSA\_~@qM'}=>2%rVn: E5y5llX:M`%+[[/_!eDבQgAxL0$C@R9w\&+(o<%u!ח0e(ӿ(k5_snR/`ǫSϥGPM|_w(FGKfW?KCc?;6-ryFVNא,5'.$$r6mfsێ%8PZ6gsiހ0dMC Bs*a}pZ9wYz g&~Y }<7|o !row(?& b0i!ReF%$VvcaQJ HnIZmН<>;= 9X27jxsw<(jo&gis8/<{9p %w`E#%0$5>>D@K*wnނ\TgE "e%1Nw4[Y+wW=OX3[[te 9h\w00VlQ!jmVzeBh;tQ =!rAhZ5vRIlXtkzإ.'}Vp&BRJ+ = v [dZ촺OLB*EŤ  ^N0C`e("&n"K$2ųqPr#K_L+k`$)$0]ȫm$L ?~#`2"PS)^6f:Y>I2Ӣ6sJo o i3_BycZKctjc%k˨S>?3:c,b(_CW_J 8a{v]Yq|r'*_DKKUÊ N=##lx)t;V&lT$0A5Ep$qgw~x5ی ;PE [C leB,IhY|h0`;>ISvP$N rXS|{3Pp$*T䵲vFa`QW]{2C{7 54TD%#:a*Y{5*$JLXjz{!7;[sZOsI>1#zGfR#o"xj,YO61i齘Ab&o:>e.ƛG_0ᶆr/>Vl{cԲ2r|.X{l%3iSC GE B]PEh94\VEV2Z '%USݳZTk@ʌ9b1~CZA *`6