≤╙Л┴dэ╪╥x©фg║ │╩└┬{ │ц■┴>t┴F*┴dй│╩░│╩╟│╩░┴>0┴>0┬╗Т=<%бhIv┌ ┬╫(┴>┴=Ь┴=э┴>LtA╖ f┬u┬z░┬ыX│ць─и<┘°┘°┘√тH┘▀ь└uЮ┘┼x─й═┌Ю│Ю │Юl─рю┌╦П─рю(┬─sinktn sendtfile srctnЛ(│ ╪ CE,  sendfile 1 ┤ цоммон цоде ,@  ©ф0 ЪЪ┬{ ┬{4┬|д┬{P@` sн©фWтранЪЪ┬з@┬ыл┬|4┬|┬|└┬|═┬э■`┬]pcRl10P┤ uсе аппроприате метход басед он сыстем ин усе. thp/7_83 P│╪LarboutDxE$]0 ┤ vm ор cхариты$D┤ sенд а трансфер филе то тхе маинфраме. thp/7_83D ▄L;<81ЪЪ┬}p┬}┬}х┬}Л┬}■и└L$│Tdtfall dtfallHtn $4lee :Lnl 3" dtf dtfallHtn ┤ everything4$│HKK dtf dtfallHtn l $( :Lnl 2" dtf dtfallHtn (dtfall─r[128Mrawrcvd1$L┤ presentation is in origin 0 and decimal, while aplscdocL$└т90 bqav K8dK ┤ Zsen$$│ю8 bqav Kc8K ┤ Ltcbs$d·юl25>]:l30,l40,l90";btrеяуест errsub t[256Mprevsegnr,nextsegnr' ┤ r анд rcvd цхангедdпAпр)ЩзAЮьtЪЪ┬ч@┬вt┬Гx┬щh┬ФД┬Ю$┬Кh┬Фх┬Д4┴ ┬щд┬П°┬Ох┬А<┬ъd┬ч┬БЮ┬Ю╦ ┴Ь ┬Н ┬П╢ ┬В ┬ч, ┬Ж╢┬д┬ъP┬Ю`┬ъ≤┬М4┬ЮL┬Н(┬Ъ└┬ч═┬Щ└┬ТХ┬Цл┬ъ0┬Б═┬Эl┬ъ┬Мl┬Е■п═Aтп)ЩыAЮсЪЪ┴D┬Б┬Щ╢┬ЖT┬Л0┴┴ $┴─┬Л┬Я└┬Ью┬Я╗┬Ст┬Лп┴Ю ┬Т┬ ┬Кх ┬ЬX ┬Ж@ ┬Л└┴ $┬Эп┴┬У╟┴ @┴╛┬М┴Х┴+Л┬К┬┬ЛД┴▄┴|┴x┬Мт┴░┬Ы╗┴Э ═ )Щы1 ЪЪ┴ t┴■┬Р0┬Яэ┬ЪЮ┬УЭ┴ л┬Я$┴л┴ L┴┴╪┬Рь┴$┬Р░┬У ┬Э╪ ┬Я8 ┬У8 ┴ ┬Щ0 ┴0х┤ `ьиу├:lffHtype%KnK"/KlffHdata[Lfi lffHdataK ┤ иф оригиналлы нумериц, цонжерт бацкl ``миlffHtype[:1-lffHd;Lio-2'"UlffHd;Lio-3'YlffHr ┤ дата тыпе, cхарацтер ор nумерицb` v,)Щы8ЪЪ┴P┴P┬З ┬Зt┴┴°┴ ┴8┴ь┴\┴ Т ┴ ° ┴ \ ┬└Ь ┴ю ┬└≤┴9(┴ Т┴1х┴0┴D┴П┴■|Ll90>Ktрансфер цомплетед витхоут аппарент еррор ат pc.K └QL|tи│]::3Yr";0 2').%@5,rtnодата"Rl90 ┤ нормал терминатион t|  ┤ `]:||┤ о┤ ize||cnsl20>command:┬case",K respfile K,┬srctn ┤ гет маинфраме стартед <||Fl10> ┤ ignore file full stupidity ;|t<]:l10,l10,l20";case' ┤ до аппроприате сетуп At|E┤ cасе 0 % схарефиле, цасе 1 % трансфер филе, цасе 2 % натиже филе >||A┤ uсес глобалс sinktn анд srctn оф getFfile цаллинг фунцтион. =|l/)Щы=ЪЪ┴l┴Х┴П┬┼0┬┴╢┴L┬┴@┬┬д┬┬H┬┤л┴╗┴3п┴ Т ┴t ┴╦ ┴л ┴ \ ┴ d ┴,0 ┴| ┴X ┴ ┬┤P ┴d ┬├э┴$┴┬├`┴h┴ ≤┴╪┴0┴ °l`┤ nоте алл цоде/цхецксум детаилс аре ин еьтернал фунцтионс. kееп ит тхат ваы.P`tPdtfHr[dtfHdlm,dtfHn,K[K,dtfHdlm,:┬dtfHshape",dtfHdlm,KcnK;Lio-0%1Y0RdtfHvalue',dtfHdlm,┬,dtfHvaluert`edtfHqv[ 7 4 RKLio Lpw Lct Lrl Llx LalxLelxK ┤ ве вилл онлы схип тхесе, анд LppO`$877 bqav K99K ┤ Mt$$*64 bqav K81K ┤ @n$$z86 bqav K8cK ┤ VK$$g82 bqav Ka6K ┤ R+$$#40 bqav K9bK ┤ ($$$T79 bqav K95K ┤ O9$$A74 bqav KbfK ┤ J{$$^43 bqav K93K ┤ ++$$_134 bqav KbdK ┤ ├i$$[136 bqav KbeK ┤ ┬f$$336 bqav K9fK ┤ $x$$r94 bqav Ka1K ┤ ^^$$a132 bqav K76K ┤ └6$$^67 bqav K8bK ┤ CZ$$\69 bqav Ka8K ┤ E<$$F141 bqav KacK ┤ █ $$q145 bqav KafK ┤ ▒)$$129 bqav K9cK ┤ │$$144 bqav KadK ┤ ░$$│ь142 bqav KabK ┤ ▌v$$e╟!78 bqav KaaK ┤ ND$$66 bqav Ka9K ┤ B$$128 bqav K9dK ┤ ─ Т$$73 bqav Ka7K ┤ I ┤ $$r u65 bqav K89K ┤ A $$  146 bqav Kb1K ┤ ▓$$б─135 bqav Kc7K ┤ ┤$,152 bqav K16K ┤ cent sign,,149 bqav K12K ┤ u umlaut,$ms 138 bqav Kb2K ┤ ┼ $$  139 bqav KbcK ┤ ▀$$└76 bqav KbbK ┤ L$$61 bqav K92K ┤ =$$72 bqav K5bK ┤ H$$68 bqav K98K ┤ D$$83 bqav K97K ┤ S$$42 bqav Ka3K ┤ *$(127 bqav KcdK ┤ Ltcdel($84 bqav Ka4K ┤ T$$125 bqav K19K ┤ }$$123 bqav K18K ┤ {$$70 bqav K85K ┤ F$$41 bqav K9aK ┤ )$$39 bqav Kc1K ┤ '$$63 bqav Kb0K ┤ ?$T┤ 35 bqav KQQK ┤ поунд сымбол :анд донKт усе ит хере в/о а дефн."│T(│х32 bqav K40K ┤ спаце((13 bqav KcaK ┤ Ltcnl┌xH(х P)ЩьЪЪ┬╟(┴ ≤┬╚╦┬╛┬╛p┬0┴6P┬╔l┴9┬╚`┬╔─ ┬ё≤ ┬~х ┬╛л ┬╜( ┴:┬╜╓┬╜Ю┬╜Т┬╝P┬╝╛┬╞┬╔@┬╞╛┬╜└┬╕х┬╔ю┬═┬╒\┴6л┬|┬╗P┬■0┬╓─ ┬╓\!┴=╪"┬╔#┬╓Ь$┬╓т%┬╓&┬ёэ'┬╕l(┬ёt)┬ёP*┬ё,+┬■,┬╒ь-┬⌠╢.┬╒╢/┬╒░0┬║X1┬║42┬║3┬═Л4┬═х5┬═╓6┬═─7┬═\8┬═89┬═:┬÷╟;┬÷▄<┬÷h=┬÷D>┬÷ ?┬⌠░@┬⌠lA┬⌠HB┬⌠$C┬⌠D┬╕E┬▓эF┬▓╦G┬▓░H┬▓lI┬▓HJ┬▓$K┬▓L┬▒эM┬▒╦N┬▒■O┬▒pP┬~HQ┬╔■R┬▒DS┬╒ЭT┬╓╓U┬▒V┬╓$W┬╕<X┬░ТY┬░пZ┬░╛[┬░┬\┬░d]┬░@^┬░_┬▐Ь`┬▐тa┬▐╟b┬▐▄c┬╗≤d┬▐he┬▐Df┬▐ g┬╗h┬▌Эi┬▌ьj┬▌╢k┬▌░l┬▌lm┬▌Hn┬▌$o┬▌p┬█эq┬█╦r┬█■s┬█pt┬█Lх\┤ the same on the pc as supported on vm, where there are no options. \\┤ major functions such as translation and termination character be chosen\\╢┤ since this function is used on both /unx and vm, it is essential that \\┤ 13 _ Ltcnl ис инпут терминатион цхарацтер ─\\┤ 1024 _ маьимум ленгтх оф инпут Н\\bo┤ 60 _ оне минуте тимеоут \\┤ 1 _ echo off ~⌡\\ )f┤ @1 _ ретурн рав нумериц лине цодес ас ресулт \\┤ ттн _ инпут фром port \\┤ ттн _ оутпут то port ▌п\\└,┤ aplPplus/unx Larbin пармс.... пп\\╪┤ \Тq)Щь│ЪЪ┬╒┬╖$┬·д┬╕╟┬║д┬╔Х┬·d┬ ┬║|┬²┬°╦┬°\┬° ┬⌡╓ ┬⌡H ┬ Л ┬ ░ ┬ 4┬≥ь┬≥|┬≥ Т`l10>rawrcvd[LarbinDx ┤ vm or charity :charity canKt take float type┴" └p`\h└┤ uсе цоррецт форм оф Larbin фор сыстем ин усе. thp/7_83 \$59 bqav Kc0K ┤ ;ctl$$└881 bqav Kb6K ┤ Q $$└\38 bqav Ka2K ┤ &ort$$└─37 bqav Ka0K ┤ % $$└╓35 bqav K9eK ┤ # $@┤ sуброутине фор buildqav. thp/7_83, llg/9_83@$└х60 bqav Kc4K ┤ <ub $$└h62 bqav Kc5K ┤ >e i$$└▄47 bqav KaeK ┤ /esp$$└╟46 bqav K82K ┤ .end$$└т95 bqav K91K ┤ _tie$$└Ь44 bqav Kb5K ┤ ,tov$$└45 bqav K90K ┤ -e f$$└@80 bqav K94K ┤ P #t$$└d34 bqav Kc3K ┤ "dif$$└┬58 bqav Kc2K ┤ :T$H└■]0 ┤ canKt trust parity H<rawrcvd[:ттн,ттн,@1 1 30 1024 13" Larbin x(<\└╓r[arbin x е8\49 bqav K04K ┤ хоризонтал таб :Q"v 4$└╛75 bqav Kc6K ┤ Kode$$└Д126 bqav K25K ┤ ~ub$$└137 bqav Ka5K ┤ ┴fi$0└Ь150 bqav K0fK ┤ bритисх поундbt0$└,130 bqav Kb4K ┤ ┌qa$$└─133 bqav Kb3K ┤ ┘rt$$└╓93 bqav Kb9K ┤ ] s $D│пqav;97-I26<0'[65-I26 ┤ unx]vsapl уппер цасе леттерсD$└х91 bqav KbaK ┤ [etf$$└085 bqav Kb8K ┤ Uctl$8└≤┤ bqav K13K ┤ o slash Q not in /unx8$└p143 bqav K96K ┤ ▐al$$└╟88 bqav K8eK ┤ Xe$0└151 bqav K10K ┤ jапанесе ыен 0$└T89 bqav Kb7K ┤ Y│$$└(87 bqav K8aK ┤ W($$└L140 bqav K8fK ┤ ▄($,└L┤ hexadecimal, origin 0.le ,└H┤p┤a,148 bqav K11K ┤ o umlautS,(7 bqav KcbK ┤ Ltcbelq((└═]l20 ┤ aplPplus/unx f(,│124 bqav KfeK ┤ right tack^,0└h┤ bqav K14K ┤ n with overbarg0,└П92 bqav KfcK ┤ left tackj,└ЮLio[0 ]pcUl10$│Д33 bqav K86K ┤ !C$8└ПdtfH50>Keндинг сизе ис K,┬Lfsize dtfHtn8$└ ╓  $<qav;pc<0'[vs ┤ фирст цолумн усед ин vsapl <│╢l10>r[@1D┘\┤ iн фацт, тхис леажес ус витх .7 оф а бит унусед. D  ┤┘  <157 bqav Kd7K ┤ еяуижалент :трипле лине"└пt<(┤ 13 bqav KQQK ┤ Ltcff╢( ┘pr[type chksum x 71 bqav K87K ┤ <  qav;vs<1'[pc ┤ сецонд цолумн усед ин /unx <il22syntax error ⌡34~⌡34~⌡34~⌡34~⌡3~⌡3~ )tfile terminal tiehost tievm trace ttyparms X└ ┤ rесулт ис нон_негатиже децодед жалуес, ор негатиже еррор цоде.frameXL┘ЬdtfHnl[ 8 4 RKLio Lpp Lpw Lct Lrl Llx LalxLelxK ┤ дефаултсL@┘d]:2 3 4 %Lnc dtfHn"/dtfHvar,dtfHfcn,dtfHqvar_83@  r[@2 F@ритvs[-/ 16 1 =K0123456789abcdefKIvs ┤ гет нумериц@r[@2108└xqav[ 256 2 R255 ┤ defaults, of a sortap8   pc bqav vs 1. modify the function #tiehost& to connect to the appropriate physical device on your system. 2. use the function #terminal&, a cover function for the built_in terminal emulator, to connect to the remote system, invoke apl, and load the companion #moveunx& workspace. on the stsc vm timesharing service, the companion workspace is #86 moveunx&. 3. create or tie the source and destination files on both systems. 4. use #gettfile&, #getnfile&, or #getsfile& to move a file from the mainframe to unix. use #sendtfile&, #sendnfile&, or #sendsfile& to move a file from unix to the mainframe. three kinds of files can be transferred> transfer files are used to upload and download apl workspaces. the functions #dtfall& and #dtf& dump all or part of a workspace to a transfer file. #lff& loads the workspace objects from the transfer file. internally, a transfer file is the component file, but each component is a character vector describing a single apl function, variable, or system variable. native files are simple sequences of bytes and are transmitted byte_for_byte. they can be used to download executable binary files that have previously been uploaded. shared files are standard apl component files. each component of the file is transferred, but ownership and access matrix are not preserved. limitations> nested and heterogeneous arrays cannot be transferred in this version. ≤H00Kcopyright :c" 1984 stsc, inc.K`Ksee #describe&KHH└▄dtfHfcn>]:RdtfHr[Lvr dtfHn"UdtfH20 ┤ пробаблы лоцкедцH8└≤┤ nоте но еррор цхецкинг ис беинг доне.8rarbin8└ ┤ nоте ве игноре тхе dиспоситион фиелд.8xг ┌$vs@z┌Юdescribe─PrteррDo  !!q!k!y&)M D┌@rteод@z@x┌Юrtnодата─ sынцD !!q!k!y&)M D@x─\trail@z ─dtермcхар@iЪЪЪЪЪЪЪЪЪ ЪЪЪЪкЪхЪЪиЪЪЪЪЪйЪЪ⌠Ъ√Ъ≈Ъ■Ъ∙ЪЪЪЪЪЪЪ≤ЪЪЪ{Ъ}ЪЪЪЪЪЪЪЪЪЪЪЪ@Ъ├ЪцЪ·Ъ÷Ъ═~╒ЪаЪ⌡Ъ ЪёЪ⌠Ъ╣Ъ░Ъ┌Ъ╝ЪwЪxЪyЪzЪ{Ъ|Ъ}Ъ~ЪЪ─ЪбЪюЪдЪ▓ЪеЪ╟Ъ│ ┴a╘b▀c≤d╗e┘f┤g[h╖i©jфk╩l≥m╙n∙o■p╤q╕r≈s╓t╦u▄v┼w▌x╥y█z╨HЭа╧б║ц▒дЫеAфBгCхDиEйFкGлHмIнJоKпLяMрNсOтPуQжRвSьTыUзV└W0X1Y2Z34Ч56%7м8²9°@╢.┬ЪvЪЁF╫!гG╬┐╔A╡W╪C▐V╛Z╚X√▄╜-╞_╠=+PO▐SDЪMЪ)Ъ(Ъ│в─Ъ#Ъ$Ъ%Ъ^Ъ&Ъ*ЪTЪ┴ЪRЪIЪEЪBЪNЪ▌Ъ█Ъ░Ъ/Ъ▒Ъ?Ъ▓Ъ┼Ъ┘Ъ┌Ъ,ЪQЪYЪUЪ]Ъ[ЪLЪ▀Ъ├Ъ┬ЪJЪ;\']:^"_<`>aKb┤cd e fgЪhiЪjЪkЪlЪmЪnЪoЪpЪqЪr²sЪtЪuЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪЪ`ЪЪЪЪЪ\ЪЪЪ|ЪЪтаsqav@z@z@z@za┌0bttерм─|rawrcvd─тbteррT└Ьz[ttyparms TT└L┤ sample left argument to Lioctl TT└═┤ use this form on versions of unix using the system 3 and TT└Т┤ system 5 tty driver. :such as cadmus and hewlett_packard". TT└H┤ on other systems, such as berkeley 4.2 or uniplus, the form TT└°┤ of the Lioctl argument is significantly different. TT└Пz[1200 ┤ baud rate ;for modems, use 300 or 1200' TT┘Dz[z,4096 ┤ enable start/stop for input received from host TT┘≤z[z,0 ┤ no particular output modes TT┘Лz[z,-/96 128 ┤ eight bits/2 stop bits TT┘╓z[z,0 ┤ local modes __ no postprocessing desired T  v T┘Эz[z,0 ┤ line discipline __ undefined T┌Юbtrеяуест;1 l2 io l1 ┘ ╗  tracetievm┘ ╗ X┘°tiehost?@ALD┘D┤ sенд а натиже филе то тхе маинфраме. thp/7_83D\┘Юterminal ожер\@┘╪┤ sенд а схарефиле то тхе маинфраме. thp/7_83@┘╪▀[x`┘0duplex[0 ┤ use 1 for full duplex, 0 for half r",K.K`┘trace x\┘─┤ switch to terminal mode on tty port tied to ттн l90\,┘╛sendfile 2 ┤ цоммон цоде,┘<]pcU0d┘`termchar[4 ┤ character to exit from terminal mode , default is ctrl_dеацх блоцкdT┘эPPP tiehost must be modified before use PPP Tp)ЩшммонЪЪ┬пх┬м╪┬яП┬яx┬р░┬Х@┬з\/7_83p╦°┘)Щш┘,ЪЪ┬и┴7ю┬иp┬ид┬й┬йl┬йю┬к┬кh┬к╪ ┬л ┬лd ┬ль ┬о░ ┬оД╦ь )ЩшЪЪ┬мь┬л╦┬н0┬н┬┬нЮ┬о8┬ш┬рТ┬Зх┬Ш ┬Шp ┬Шд ┬Э ┴ ┴p┴д┴┴lь(┘╦sinktn sendsfile srctn (sendfile?l80>K.Kl25┘╓Lio[0@┘T┤ cасе 0 % схарефиле, 1 % трансфер, 2 % натиже.@┘╗cn[size;0',┘0]l80 ┤ цасе 0 _ схарефиле, ┘╦l100>r[arbinI0 ┘\┤`┘Эl90>Ltcnl,Ktрансфер фаилед ат pc цомпонент K,:┬cn",K, реасон цоде K,:┬r",K.K`H┘╪size[1,1-size;0'-=size;1' ┤ аллов фор емпты поссибилитыH,┘4]l80 ┤ цасе 1 _ трансфер,┘┤T┘ ░B \aЪС]^_`ijkl  md;<>?@T┘Ю]0d┘Эblksize[:size;0'Rblkmax",:=size;1'"Rsize;1' ┤ факе цомпонент сизе фор еацх блоцкедdP┘╪┤ uсес глобалс sinktn анд srctn оф цаллинг sendFfile фунцтион.P┘4┤pет ┤ cоммон respond цонтрол фунцтион фор pc sendFfile фунцтионс можинг филес фром pc. thp/7_83p(┘╦sinktn sendnfile srctn (┘]l200P┘╪l20>command:┬case",K reqfile K,┬sinktn ┤ гет маинфраме стартедP(┘┬size[:0,blkmax"Nsize0( F   T┘╪]:case%2"Rl10 ┤ го буилд факе цомпонент струцтуре фор натиже филеT┬arbout xCEXr Lterm ттн 0 4 ;3XL┘╪)Щшo[0`ЪЪ┬яь┬мp┬рx┬яdфоLX┘─┤ #tiehost& has been appropriately modified> hX┘ ╗ CEwssearch ┘ ╗ CE,┘╛sendfile 0 ┤ цоммон цоде┬,L,L┘╪)Щзtn,8ЪЪ┬уH┬шX┬я$┬ш╛атLsendsfileE, лsendnfile, terminalCEsendtfileE@l10>:ттн,ттн,@1 0 @1 0" Larbin x ┤ aplPplus/unx@┌ьbtdатаdevice┌┬tiehostL┘╪)ЩзнсфеЪЪ┬ы┬ш░┬п└┬рLL\┘─┤ obj муст бе жецтор оф нон_негатиже быте жалуес :0 _ 255 онлы".с алл ожер\T┘╪├:Tpc"/Ktrans[sынц ` ]l20K ┤ телл pc веKре реады фор реяуестсусT┘Х┤┘ ┤`┘\r[errlim respond objt[rteрр,Mr ┘<┤4┘p]l25 ┤ mfKс фирст реяуест ин ханд4┘errcnt[0-1,┘хKsendinf pc component K,┬cn,D┘0l50>]:0&1Yr[KK respond LavIrep Lfread srctn,cn"Rl90D(┘╓nextsegnr[errcnt[Lio[0(┘┤X┘╟l30>nextsegnr[1-prevsegnr[segnr[:prevsegnr,nextsegnr";tIrcvd;1''p/7_83XH┘─trans[:seglenDRtrans"Ytrans ┤ буилд трансмиссион блоцкHl30l15l5 rcvd[arbinI0n ┘Lio[0`arbout:encode 0 chksum bttерм,rteрр,Mr",tермcхар ┤ аджисе оф еррор тво ваыс...`┘P┤0┘пcase respfile tntrans[:segnr=seglen"Uobj0L┘╪Ktрансфер цомплетед витхоут аппарент еррор ат маинфраме.KL┘┤\┘┤ mаинфраме respond цонтрол фунцтион фор можинг филес то pc. thp/7_83d\┘`┤T┘pl90>]:@5%1Yr"R0 ┤ йуст дроп оут иф терминатион реяуест рецеижедT0┘пerrlim[:errlim,3";0' ┤ сетуп56.0\┘tl100>r[arbin sынц,tермcхар ┤ гет request то маке а реяуест то усн блоцк\D┘0l50>]:0&1Yr[KK respond LavIrep Lfread tn,cn"Rl90D\┘╟arbout:encode 0 chksum bttерм,rtnодата",tермcхар ┤ анд аджисе итKс алл ожер\4┘╓]l80 ┤ цасе 1/2 _ трансфер/натижеc4┘l90>]0cn[15(┘┬]:l50,l60,l60";case'((┘╪l40>]:cn%size;1'"Rl100(@┘Ьr[arbinI0 ┤ флусх sынц анд реяуест фром request@аутcn[cn-1\┘ll70>]:0&1Yr[KK respond LavILnread srctn,82,blksize;cn_1',blkmax=cn_1"Rl90\┘Tseglen[800┘■┤ errlim ис маьимум сеяуентиал еррорс ин а реяуест бефоре аборт :дефаулт 3". ┤ rесулт ис зеро, ор нe\Fгатиже еррор цоде:с". ■d#\┤ rеспондер то реяуестс фор сегментс оф obj фром фунцтион request. thp/7_83K dd┘`arbout:encode 0 chksum bttерм,rtnодата",tермcхар ┤ анд аджисе итKс алл ожер7_83тиоd`Kterminal mode. type ctrl_d to exitK arbout:encode 0 chksum bttерм,t",tермcхар@(┘`l40>]:cn%size;1'"Rl100a(0┘`]l60 ┤ тоо маны еррорс, яуит0$┘╟trace K K,┬segnr10$,┘░l40>]:errcnt^errlim"Rl50,`┘╟Ltcnl,Ktрансфер фаилед ат маинфраме цомпонент K,:┬cn",K, реасон цоде K,:┬r",K.K`)ЩзЪЪ┬АХ┬ПL┬Цp┬А\┬ЪЬ┬Ь<┬Ат┬М╛┬Ед┬Дю┬Бt┬В╢┬Е`┬У■┴┬┬Б` ┬ЦЮ ┬Аt ┬НT ┬Бл ┬Ц\┬Дd┬Е┬Цpc(┘┬]:TsынцEarbinI0"Rl900a(' fobj нтrcvd9' 0>:trans0 дааerrcnt <┘ ≤*:ZЪСfg;<=?@ Adf<esncni┘r[@100@┘Htrans[encode 0 chksum btdата,:256Msegnr",trans@┌sizevar1┘`┤L┘0l80>]::3Yr";0 2').%@5,rtnодата"Rl90 ┤ нормал терминатионL$┘╟]:sынцEarbinI0"Rl10$4┘╓]l60 ┤ сынцхронизатион фаилед он pc4T┘0┤ cасе 0 % схарефиле, цасе 1 % трансфер филе, цасе 2 % натиже филеT`┘п┤ mаинфраме request цонтрол фунцтион фор можинг филес фром pc. thp/7_83`0┘╦l70> 0 0 RLav;r' Lfappend tnT0lffH108┘эl60> 0 0 RLav;qav;r /диспоситион/схапе/дататыпе/жалуесLL┘Д├:0Eshape"/Kvalue[1Y0RvalueK ┤ реплаце емпты бы прототыпеL`┘└l5>arbout sынц,tермcхар ┤ mf сигнал то pc тхат реяуестс фоллов иммедиателыцк`T┘0r[KaplplusuK).%8YLsysid ┤ ресолже сцхизопхрениа thp/7_83 llg/9_8T`┘╛l15>trans[encode 0 chksum btrеяуест,256Msegnr ┤ буилд трансмиссион блоцкмериц`0┘╦]l20 ┤ ат тхис турн оф ежентс.i0  дс]l40 ┤ натиже \┘ Ltcnl,Kaбнормал терминатион ат маинфраме, реасон цоде K,:┬r",K.K, оригин 0\┘pl80>cn[cn-1L┘Дl20>obj[obj,2Urcvd ┤ хот дамн, лоокс лике сометхинг усефулHL0┘▄]:KaplpluscK).%8YLsysid"Rl40pe0 tpdlm┘P┤`┘п┤ errlim ис маьимум нумбер оф еррор ретриес пер сегмент :дефаулт 3".hp/7_83 th`\┘╪l20>rcvd[arbin trans,tермcхар ┤ бреад цаст упон тхе ватерс.....┘=ю\╓┘┤ nоте segnr ис сент модуло 256. iф тхис ежер гетс бы вхен ит ┤ схоулднKт, ит вилл бе онлы а смалл аддитион то отхер троублес.д ╓@┘Hl60>]:0&1Yr[KK respond LavI┬,Lfread tn,cn"Rl90 @dnisegnrsferrlim┌ request┘cn[size;0' T┘l┤ схоулднKт, ит вилл бе онлы а смалл аддитион то отхер троублес.еrTt ttnm┘°r[@100┘ °  ┌─respfilecллT┘0dlm[K/K ┤ dlm муст нот бе L, [, бланк, ор анытхинг фоунд ин намес.TD┘0]l40 ┤ вент ok, флусх оутпут, тры неьт цомпонент┘D`l50>├:rcvd;1'%rteод"/Kr[objK ┤ терминатион рецеижед _ аццепт обйецт иф но еррор`┌LvalueT┘┤ lоад анд ежалуате репресентатионс fром а fиле. thp/7_83 TT┘l┤ sтруцтуре оф репресентатионс> /диспоситион/схапе/дататыпе/жалуесTT┘юdevice[K/dev/tty02K ┤ name of the unix special file for the port TT┘┤ TT┘hdevice Lntie ттн[@1-D/0,Lnnums ┤ tie the port as a native file TT┘╪┤ TT┘хttyparms Lioctl ттн ┤ set the tty state for the port :see Lioctl T┘pl70>t[rteод4┘╓Lpp[16 ┤ неед фулл прецисион фор ┬ 4┘P┤1'`]:l20,l30,l50";btdата errsub segnr' ┤ еррор аналысис, модифиес r анд rcvdrep.s`T┘`l90>Ktрансфер цомплетед витхоут аппарент еррор ат маинфраме.KлуесsT0┘0trans[encode 0 chksum bteрр,Mrи0\┘l┤ rеяуестер оф сегментс оф а нумериц быте жецтор фром respond. thp/7_83Hd\l┘п┤ note> tхис струцтуре must матцх тхат усед ин фунцтионс derep, dtf, анд lff.┘D,┘l°)Щы<0ЪЪ┴╟┴ 0┴L┬С<┬Ч┬С$┬Ы┬Э┬┴4┬С┬┴,\┬С°o olffHdes  lffHdata ,0┤lffHtypecipfielffHshape H└▄errcnt[errcnt-1 ┤ oур патиенце ис нот ыет еьхаустед,3лHенаrep┘Lio[00 size[Lfsize tn ┘°]l100l110l100l90l80l70l60l50l404┘╓lffH10>]:lffHcn%lffHsize;Lio-1'"R0 48┘дlffHcn[:lffHsize[Lfsize lffHtn";Lio'n 8D┘x┤ gет а схарефиле фром тхе маинфраме. thp/7_83D4┘\]l40 ┤ вент ok, тры неьт цомпонент4$┘─]l40 ┤ схарефиле0$D┘0l10>trace K K,┬segnr ┤ тры то кееп усер информед.KD ]l40 ┤ трансфер ┘т]lffH108┘ЭlffHr[Lfread lffHtn,lffHcn ┤ гет репр.88┘`┤ nоте но еррор цхецкинг ис беинг доне.8,┘тl40>]:0&1Yr[requestI0"Rl80S,<┘■]:Rtrans"Ul70 ┤ алл сент _ до енд оф филе<$┘╟var1>shape[Rvalue$D└pKtрансфер цомплетед витхоут аппарент еррор ат pc.KD0┘L┤ lffHtn ис филе тие нумбер. 0(┘д]l80 ┤ цасе 2 _ натижеs((┘@]:l50,l60,l70";case'll (T┘┤ in aplPplus/unx reference manual and Ktermio:5"K in TT┘p┤ your unix manual." TT┘д┤ TT┘Kcommunications port #K,device,K& tied to K,┬ттн TT┘tKioctl parameters are >K,┬Lioctl ттн TX┘llffHdata[:1-lffHd;Lio-3'"UlffHr ┤ дата итселф, ин цхарацтер форм┘X`┤ note> tхис струцтуре must матцх тхосе усед ин фунцтионс derep, dtf, анд rep.`H┘─l40>arbout:encode 0 chksum bttерм,rteрр,Mr",tермcхарle HspilffHdispd dnilffHrsftemlff(┘Лobj[Isegnr[errcnt[Lio[0(┘ ╪ CEH┘D┤ bуилд трансфер репресентатион оф value. thp/7_83H<┘ ≤,:ZЪС ;<=>? @ A <lffHsizeeacz ф┘ ╪ CE(┘ьsinktn gettfile srctnе(D┘xr[request errlim]:0&1Yr[KK respond LavI┬,Lfread srctn,cn"Rl90 тD┘ ╪ CE(┘Tsinktn getsfile srctnе(H┘D┤ gет а трансфер филе фром тхе маинфраме. thp/7_83H(┘4getfile 0 ┤ цоммон цоде(getsfileCE  srctn $┘Юtrace K сегментKga$,┘ 4 VЪЯЪСWXS,L┘■lffHshape[Lfi:1-lffHd;Lio-1'"UlffHd;Lio-2'YlffHr ┤ схапеtfLioctlargCElffHcn┌тreqfileT┘ь]:l50,l60,l70";case' сеT┘ ╪ 5688┘K, pc филе сизе K,:┬Lfsize sinktn",K.K8X┘L ]0 блеX0┘╦├:▀[lffHdisp,K K",KlffHdataKеас0┘Хtrail[rcvd ┘perrcnt[0vd<┘■l60> 0 0 RLav;qav;rblkmax[4800 ┤ маьимум факе цомпонент сизе@ ┘ $ 4 4┘╢ctl[1 ┤ пессимисм реигнс супреме4/r[@7,2YrcvddtfH50dtfH40dtfH30dtfH20dtfHvar1dtfHvardtfHqvardtfHfcndtfH10getnfileС (┘4getfile 2 ┤ цоммон цоде(8┘d]l40 ┤ натиже 8┘┤┘\Lio[08┘°l80>KK,┘юl70>Lav;r'Lnappend sinktnn,$┘Юl40> KrецеижингK$$┘°]l40 ┤ схарефилеK$┘P┤Tdl,r[33-,:5R94"Nr ┤ анд еацх гроуп инто фиже сымболс, биасед оут офeTX┘ ╢@ !"#$%&'()* +,-./012отыпеX0┘Л┤ cхангес глобалс r анд rcvd.0<┘■rcvd[1 chksum rcvd ┤ унвинд тхе цхецксум<┘┬┤8┘l110>Kpc file size is K,┬Lnsize sinktn 8$┘dl100>]:case%2"/l110$,┘╟]l15 ┤ еррор, бут тры агаин,0┘`]:0&1Yrcvd"R0 ┤ цоулднKт децоде0┘P┤l60>]0 ┘$r[@1,@1Yrcvd4 H└▄┤ segnrs ис аццептабле сегмент нумберс фор тхис блоцк.H┘┤┤┘пr[@2,1Yrcvd`┘Л┤ фор трансмиссион ас нон_бланк ascii грапхиц цхарацтерс. thp/7_83д Lpp`r[@3,1Yrcvd`┘Lpad[4M4_4M1-R,x ┤ нумбер оф пад цхарацтерс то роунд оут то мултипле оф 4,с.`d┘d┤ алловинг фор цоунт оф пад цхарацтерс :плус оне" то бе инцлудед алсо.жариаблес.dL┘■)ЩыЪЪ┴*┴ $┴л┴ьL0gп)Щы┘┬@ЪЪ┴3╓┴ H┴┴╟┴ ┴4┴X┴▄┴┴╟┴8| ┴╓ ┴╦ ┴Ю ┴ ┴84 ┴░ ┴╛ ┴┬ ┴╓┴@┴P┴ю┴┴,╓┬▄0°)ЩыЪЪ┴+┴l┴+0┴ю┴;└┬╖═┴<┴°┴*|┴+▄ ┴ ┴*э°@┘╟l50> 0 0 R:derep Lav;qav;r 0 _ нормал, 1 _ еррор, 2 _ терминатионX\┘]:tермcхар*@1Yrcvd"R0 ┤ вронг терминатион цхарацтер он рецеижед блоцк 4, ф\D┘\┤ blktype ис аццептабле блоцк тыпе фор тхис блоцк.KD8┘]:blktype*rcvd;0'"R0 ┤ вронг блоцк тыпе8жееr[@5,rcvd.\┘╟├:bttерм%rcvd;0'"/Kctl[2 ` ]0K ┤ терминате реяуест алваыс аццептабле_83dtf\@┘╟]:Trcvd;1'Esegnrs"R0 ┤ гот вронг дата сегмент 9@хаеr[@6,2YrcvdcaseD┘\l50> 0 0 R:derep Lav;qav;r ? @ABH ┘╪lffHcn[lffHcn-1 \  lff lffHtn /диспоситион/схапе/дататыпе/жалуесTD└p ]0 D┘Л]dtfH20`dtfHnl dtf dtfHtn▀[dtfHn,K K$$┘л]:RdtfHr"UdtfH30$<┘d[:r%1Yr"/IRr ┤ гет делимитер индеь жалуес< ┘d]:type%1"Rl10 0┘х]:0*5MRx[,x"R0 ┤ вронг ленгтх0,┘x]0 ┤ тво бытес вортх аддед,,┘╓dtfHr[KK ┤ ассуме фаилуре,,┘п]:KLpp K(.*4YdtfHn"RdtfH20,,└ЮdtfHr[dtfHr Lfappend dtfHtn,(┘r[x, 256 256 N65536M-/x(T┘°]:2&R,x"R0 ┤ неед ат леаст тво бытес фор цхецксум, ретурн негатижеT(┘лdtfHn[dtfHnl;dtfHi<'((┘Т]:1*RLnc dtfHn"RdtfH20((┘┬dtfH40>dtfHi[dtfHi-1f(┘Л┤X┘Т]::256B@2Yx"*65536M-/@2Ux"R0 ┤ цхецксум фаилед, ретурн негатижеt" inXX┘Lcommand x X┘p┤<┘dtfHvalue[├dtfHn ┤ гет тхе жалуе<\┘─┤ tрансмит а цомманд то тхе маинфраме. thp/7_83 rs\d┤ dtfHnl ис матриь оф намес оф обйецтс то бе думпед, дефаулт ис сыстем жариаблес.≤Юd`┤ note> tхис струцтуре must матцх тхат усед ин фунцтионс derep, lff, анд rep.`│L)Щы┘─ТЪЪ┴ ┴X┴/h┴h┴%t┴%┴2╓┬~░┬╟P┴)ь┬▄Л┴-t┴< ┴ ╪ ┬╙d ┴ ┴9▄ ┴#( ┴"( ┴#P ┬╙╟ ┴ Ю┴$d┬╫p┴2L┴ ┴7≤┴<8┴4┴0≤┴"T┴!┴2┴7╛┴$x┴.┴0@┬▄x┴0,┴!(┴!L┴"─┴-<┴.┴/Л┴#x┴.L┬╖Д┬╕Л┴<╢╦G┘)ЩьHЪЪ┴-░┴/д┴.d┴.ю┴4▄┴9t┴!p┬╬┴5h┴]:errcnt^errlim"Rl40(), дтdtfHqpp,┘░]l40 ┤ трансфер e ,H└▄r[dlm,dlm,:┬shape",dlm,KcnK;0%1Y0Rvalue',dlm,┬,value╪HT┘]ctl[0 ┤ rcvd стилл хас леадинг тво цонтрол бытес фор цаллерKс усеtTos pad┌|getfile┌dencode┘ЮKдумпедK ┘ \  ┘$dtfHqpp[Lpp0┘v[derep rdtfHshape[RdtfHvalueK 0]dtfH10\┘╗┤ eжалуате анд ретурн тхе жалуес фром а репресентатион. thp/7_83ион:Q"\T┘Э┤ sтруцтуре оф репресентатион> /диспоситион/схапе/дататыпе/жалуес0'TT┘P├:type%KnK"/Kdata[Lfi dataK ┤ иф оригиналлы нумериц, цонжерт бацкvT\└░┤ dумп tрансфер репресентатионс то fиле витх тие нумбер dtfHtn. thp/7_83av \(┘  ЪС x(@┘ddtfH30>Kнот думпед, цаннот форм репресентатионK@але┤' X└░├:0EdtfHshape"/KdtfHvalue[1Y0RdtfHvalueK ┤ реплаце емпты бы прототыпе нX0┘]:1EdtfHqv).%4YdtfHn"RdtfHvard0@┘dl100>Kmаинфраме филе сизе ис K,:┬Lfsize tn",K.K@nfldtfHqviiotdtfHvalue ep dtfHdlm edtfHn rfiedtfHifientdtfHrrm idtfdtfHtnL::1-1ElffHdisp Lss KLdefK"R0"RKK ┤ жариабле, флусх оутпут L8└≤]dtfHvar1 ┤ хаже то хандле Lpp специал8X┘тdtfHr[dtfHdlm,KLdefK,dtfHdlm,:┬RdtfHr",dtfHdlm,KcK,dtfHdlm,dtfHr┘X`dtfHdlm[K/K ┤ dелимитер муст нот бе L, [, бланк, ор анытхинг фоунд ин намес.`shaper[@1K12T┘Т)ЩьR,x"ЪЪ┴$ ┬╖Ь┴$╢┴:т┴;,T│╢r[decode xs,┘░ctl[blktype errsub segnrs),(┘╗]:0&1Yr[requestI0"Rl80)(command8┘Э]:4#RdtfHn"RdtfH20 ┤ цанKт бе а L_жар.8D┘╗data[:1-d;3'"Ur ┤ дата итселф, ин цхарацтер форм┘D`┤ note> tхис струцтуре must матцх тхосе усед ин фунцтионс dtf, lff, анд rep.`decoded┤ dецоде нумериц жалуес ин 94 сымбол алпхабет инто бытес, реможинг ascii/7_83ub d4┘Дshape[Lfi:1-d;1'"Ud;2'Yr ┤ схапет4\┘x[::33$x")x$126"/x ┤ дисцард аны трасх тхат црепт ин дуринг трансмиссион\hotchksum typel20l10<┘p┤ is in origin 0 and hexadecimal :sign". <@┘ЬKsоурце филе сизе ис K,:┬size[Lnsize srctn",K.K@(┘(10 bqav Kc9K ┤ Ltclf(`┤ cомпуте/цхецк симпле цхецксум он нон_негатиже нумериц аргумент __ thp/7_83_`D└p]:Rx"U0 ┤ муст хаже ат леаст леадинг пад быте цоунтD┘└┤рс┤sa└ х HX└|┤ трансмиссион биас ин процесс. sее фунцтион encode. thp/7_83 X0└h]:0&1Yrcvd"R0 ┤ цхецксум фаилед0┌пderep@┘╟rcvd[decode @1Urcvd ┤ ресторе то оур сымболснK@┌dtfHnl ┘ ХЪСnd ┌Pbuildqavqav└ЮLio[0L┘╟lffHdata[lffHshapeRlffHdata ┤ анд ресторе оригинал схапе..L┘ЛLio[0 LdtfH10>]:dtfHi%Lio-1RRdtfHnl"RdtfH50 ┤ бровн унтил доне....Larbout─Ppc'<qav;48-I10<0'[119-I10 ┤ unx]vsapl нумберс n<┌TbqavdtfHshape L┘■)ЩыЪЪ┴ @┴┴D┴ ╟Li X┘ьx[:ттн,ттн, 0 1 30 1024" Larbin x,Ltcnl ┤ capture Ltcnl from mainframe XX┘0┤ ретурнед фром тхе маинфраме. XX┤ wе муст усе фиже сымболс фор еацх фоур бытес то хаже еноугх битс.83iX  v2ch  v1╢4┘ДLpp[16 ┤ неед фулл прецисион фор ┬44dtfHqvar>dtfHn[:dtfHn*K K"/dtfHn4H└▄type[:1-d;2'"Ud;3'Yr ┤ дата тыпе, cхарацтер ор nумерицH(┘Lpp[dtfHqpp ┤ ресторе(0┘`r[,:4R256"N94B:5,:Rx"+5"Rx_330Hl4Hl3Hl2Hl1HFcnHFa░HFtn┌■цэfiletows └131 bqav K88K ┤    Ldm &he┴=═┴=┬┴=t┴=\┴=H┴=4┴= ┴= ┬╫П┬╬┬²p┬╬T┴6<┴6(┴9ь┬{╪┴9П┴╦┴:@┬╞ю┬╬h┴8Т┬■X┴:ю ┴;П┴;э┴6┴5Ь┴)H┴3Ь┴34┴4Л┴(╓┴*h┴8d┴'Л┴3┴*P┴*<┴8╪┴1°┴%т┴1╟┴1└┴1l┴1T┴1<┴:X┴1 ┴1┴,┴╓┴▄┴p┴X&┴<┴$┴ ┴Т┴э┴-$┴|┴,Ь┴▄┴═┴t┴L┴\┴- ┬┼╛┴\┴д┴╟4┴°┴┬┴t:┴`┴H┴0┴6┴╪┴┴ ТB┴ ь┴:t┴Ь┴╛┴Л3┴ ╗A┴Т┬┘X?┴Ь=┴п)┴ д┴э┴ю!┬Ъh@┬ЪL┬Ъ0┬Ъ┬Рю┬Ъл┬Ч|L┬З┬Ж,┬Я ┴ э┬┐≤┬Ь╛┬Ь$┬│Ь┬Ь F┬ВТ┬П4E┬ПG┬П'┬ОП┬А(┬АK┬А%┬ЬТ┬Н╢8┬П┬<┬ПТ]┬КP┬─(C┬Йp/┬ЙT1┬Й@O┬К8┬у╓>┬уp┬Х═┬ЙД┬Й▄┬э@┬щ_┬э$┬шь┬эx┬{|e┬э\┬сH┬щ┬тp.┬эЛ ┬м╓┬м▄┬з╢U┬шt┬м\r┬мHs┬хю┬эт┬х╗J┬и┬╬|┬м,┬х░┬хт┬хxn┬╬■┬╟░┬хL┬ю0┬хЛ┬╬хb┬© ┬х`Q┬╬╟┬©$\┬©T┬©<V┬©p┬©л│┬©Д┬©┬┬ю┬©Э┬╟t┬с╦$┬~┬}$`┬~,&h═d┼+" d;fcm}P akW - (H5vZx┌▄┴▀,┤└~9lp┬├─gYDw┘qI^oz{7t┐hyu[XTS*i0j2MR#|N═