P*JOB PP*LIBEDT PP*K,I6,P8 PP*P,F,2 PJ PPREBFDD DECK-ID XXX ITOS 1.2 10/04 Jr@PTÿ!"#È€h6È EàÿÆ >È 8TôLD)û'ê Äÿrr@P+Äÿ % XXOÈVH  æé2 Æ`ÿÄÿ  h: æéø6æ ÆK  ý Áh hrr@PVµÁhh²X0c óèøÂ  í XÌXäÿ þÄÿ "Äÿ àÿÆh ÀŒh rr@P�àÄ þÎn þsûýTô&ÿÿÔÿXÈþ€žhs `h4hwh¸hÉ `hKÈí€ZhB€ hrr@P¬:€hP€"hn€ÝhnÈ0 hGÈÓ€Ãh�èGÂâˆ^"  HhX–c †ØOè4rr@P× ˜Lè ÂB0hMè) b!èêÈêˆ?"  HhXqc fèøÂÂÂÂ0è Ârr@P˜#Ø!ÞÈ bXZc JXQc A >ÿrr@P-‚ ‚ ‚ ‚ ‚ ‚ ‚ B8î èÈ@ÿhæ þ�á"  HÜhÜÈݘÝ!ÈÚ�ÿ Xrr@PXc þÈÌhÌèÇÈÇH h HóhóH®h®Xöc ëDhºÈ¹ ˆó h±`ÿÄÿÁÁÁ7èrr@Pƒÿj”ÿ‘‘‘‘‘‘‘6ØŽÈ� õÐÌÆèÿe@ÿ›Á!hÿ~Ñ! Á rr@P® ‘!# §Èÿsl²‹èÿ4ÂdÿÂaÂaÂaÂaÂaÂaÂaÈÿY þaØÿVÿ-H] @ÿH Çjrr@PÙÝj=À j þqõ XcTôHDêèóXž XLÀ hòTôHDrr@PêÈé ÿ Èé `ÿÇjà þtûèðX� ÈÝ`ÿÊÒgj þqùTôLDû+êÈþÅhÈþÃhX5rr@P/b &èùþöÊuh Ê|hTôLDEêòÈþIŠwh Ê{hTôLDêðXÿàTÿrr@PZXÿêþèþÀ€èþÀÀ°ïİïh@ÿ HõÅhÁhÁhXÈþ€hTô`êÞrr@P…TôHDŽ÷ÿÿ Hý Îû¨ö¸õ Îö¨ò¸ñÎñ¨ì¸íÈìnìì þaéëÌÞrr@P°ó.=Ml îõ @Vs5+ILLEGAL: ITOS HAS NOT BEEN DIrr@PÛSABLEDILLEGAL: NOT RUNNING FROM MASTER CONSOLE ILLEGAL: NOT RUNNING IN INTERACTIVE Mrr@PODE DISK I/O ERROR NOTEDENTER DISK UNIT NUMBER (0-7) AND TYPE CARRIAGE RETURN ILLEGArr@P1L: NOT DEFINED AS DISK ILLEGAL: NO FDD EXISTS ON PACK TURN OFF PROTECT SWITCH (ESC Jrr@P\20@) AND TYPE CARRIAGE RETURN ILLEGAL: JOB PROCESSOR OR LIBEDT ACTIVEOWNER-NAME = rr@P‡FDD REBUILD COMPLETE. AUTOLOAD TO CONTINUE DUPLICATE NAME/OWNER STRING NOTED NAME Orr@P²WNER IS ENTER NEW NAME AND OWNER FILE-NAME = DISK I/O ERROR NOTED. rr@PÝAUTOLOAD TO CONTINUE RAN OUT OF FDD SPACE - FATAL ERROR AUTOLOAD TO CONTINUE FILE Nrr@PAME CHANGED. OLD NAME/OWNER IS NEW NAME IS  r`P�3]`P��``P�ð` €PREBFDD Z PTSNABLPARTBL{EFSTORŽMIBX �TBLADRxDMICODtEMPSTPpSWTCH -JOBIND*PGMIN PGMOUTYZÀPREBFDDP*T PP*K,I8 PP*N,REBFDD,,,B PP*Z PP*CTO, INSTALL COMPLETE PP*Z PP*END Pr@P Tÿ33éçèíÄç ?°/dçTÿ{­Äè dò1Tÿ笌¯¬¤­x þdòX9Tç¬rr@P+¤­¬1ª®x hFdîdïTÿ33ªÓîïzÈ:˜/Ø4ÄÓ˜.Ä0Ó˜%ÄÔ˜!rr@PVÃÄÓ˜ÖÄ0Ó˜È ý  ò d0ò²ÄèDø þöTÿÓ3 ñðäñrr@P�c ÜB`ÿÉ+# Ó  H "æéâÆ"à -ÆÉA Äí .»D`ÿ ÇeÔrr@P¬iïiÎÀÿ�$ÐÿóÄèT(笛±¬1¤­x 0 fó¢À hºh³À;düTÿ1ó|zÈrr@P×£ … `”0@À+¤0E ¤0E 8wÄGdÿ0TÿóÿˆzÈ… g1Tÿó‹ TñTrr@P{­T3éçè00íÄç ?0°/dçÄ0èÄò# dòÿ È_˜V AT39ªÓî1ïzÈS˜IØOTÿrr@P-ÓzÈKþò ",T!ª31Óîïz1TÿÓzÈ:þáî Äò:T¹ç¬–°¬1¤­xñ9TJç¬rr@PX ²¬1¤­xTÿˆh ä0èVTÿnoþºÖ"þ·HEOUINPUEX%UT  $$ rr@Pƒ  UTIL IN READY READY  END UTIL  ÿþrb@P®(  UT€ÿÿb €PFMUTEX j PSYSMSGfUTSTRTÿCLOSFLûOPENFLÒREADR ïCOMSEK{INPEQ ,OUTEQ =GETFLD6WTREADUPGMINTPGMOUT_PGMIN jÀP J P6SEKVIT DECK-ID B03 ITOS 2.0 SUMMARY-132Jr@P H/Àÿh.TÿÿùTÿh)\ýh(\ûh' L% æéH#ì!Î!`ÿÅ:Àÿ `ÿ η þvúÌœÜìÀÿ þ r"@P+lèÈ`ÿÐ" €PSEKVIT  PQ8PKUPQ8PREPÀP J P2REDLAB DECK-ID B04 ITOS 2.0 SUMMARY-132Jr@P H,Àÿh+TÿÿùTÿh&\ýh%\ûh$Ì" "Æ"hìÆ"hÈhÌ "Æ"h Æ"h TôHèÈr@P+`ÿÓ €PREDLAB  PQ8PKUPQ8PREPÀP D PTODAY DECK-ID C02 ITOS 2.0 SUMMARY-132DH@P æéÆdÂdÂdèH TÿÿûTÿhñ hò hêåH €PTODAY   PQ8PKUPQ8PREPÀP J P 0NXTVOL DECK-ID B05 ITOS 2.0 SUMMARY-132Jr@P H,Àÿh+TÿÿùTÿh# æéH#BÎ!œ!ìÎ`ÿÅ:Àÿ `ÿ 0Çf þxúÌ œ Üì lèÈ`ÿr@P+Ô €PNXTVOL  PQ8PKUPQ8PREPÀP J P *COMSEK DECK-ID B06 ITOS 2.0 SUMMARY-132Jp@P Ìþh%ØüÌûh#ØùÌøh!Øö 0@ÿÆ!œ  ÷  0`ÿÆ� ö þL 0 æLÜ þlÙ€p €PCOMSEK ÀP J PYMOVEL DECK-ID B07 ITOS 2.0 SUMMARY-132Jr@P ÌþhSØüÌûhOÌNhMØ÷ÌöhIØô hKhChAhFBÌA8<A h< È6n; ˜6ùè7Î5è0QH  h2 ßè/Î*rr@P+è%W  è)¨tè'n"è$ ¸!nÌ þlÃȘÈùÈ °#h ØÈ °#hØ Ñ r@PV €PMOVEL ÀP J PxMOVER DECK-ID B08 ITOS 2.0 SUMMARY-132Jr@P ÌþhqØüÌûhrØùÌøhlÌkhjØôÌóhcØñ h\hZ h[hYBÌZ8RA hTBÌZ8LF"ÈK°#hI hPÈLˆN þhGrr@P+ÈIˆC þhDè@ þÈ8nBúè8Î:è4QH  h9 ßè-Î1è)W  è0¨tè%n)è" ¸(n$Ì( þl&¬È°#r\@PVh È þhÌ þlòÈ °#h È þhÍ00€\ €PMOVER ÀP J P†GETFLD DECK-ID B09 ITOS 2.0 SUMMARY-132Jr@P ìþHQØüìûHOØùìøHMØöìõHKØóìòHIØð hGlE (î? ¯ a)Î9  n6  Û1 $È:n/ È5n,B þrr@P+üH-H-ì'Î$ì&QH  h'" ß>ÈÄ ü<  lØ0 Ó l Ø ) Ä *rr@PV  èúÎôèùW  è÷¨tèònìèï ¸ïnçÈì°#hêÈç hå ë%ÌÞ ÜÌÜ lÚ‚Ì×°#lÕr@P�ÌÒ lШ €PGETFLD ÀP J PŠMMSIZ DECK-ID B10 ITOS 2.0 SUMMARY-132Jr@P H&Àÿh%Ìûh)ØùÌøh$ØöÌõh"Øóà/Æ"! œ ù Æ"l Æ"lÈh Tÿ)*èÈ`ÿÙrr@P+.r`P�V4(@P/K-ýJ[úE¿Fÿþ( €PMMSIZ  PSYSMSG ÀP J P!GETVIT DECK-ID B11 ITOS 2.0 SUMMARY-132JZ@P HÀÿhÌûhØùÌøhØö æéü æ" `ÿÆ"m ÐÿÀÿ ê øèÈ`ÿãZ €PGETVIT ÀP J P�SYSMSG DECK-ID A33 ITOS 2.0 SUMMARY-132Jr@P HKÀã!þìúØùÆ"hE!d‘hDìðØïH3  j;¢TÿPSPÈ4"TÿPhQPÈ*!vTÿrr@P+PP H H è ¯-X~h H ¿  þñ#3Tè Xo H è þXyhä$$SYMSrr@PVGF$$ \"ØëØêXq HIèå þHXGh Ü úX½\Xn H:èÖ þH X8h Û úXrr@P�® þHûè(X) H$èõX4h˜ðòð \ȵ" \è°ÿbT*PP È®X2ÈwÈh§ÈtÈhrr@P¬¢ \ë$ Ìþh ØüH !Î è¯qH¡  ò HüìýHûØûèøÉaîö2ðÈ (hèî!níèëì rr@P×8 H X ÈXö' hËdL H õ1  :èÂXÓ H¾È "Aîê H¶B0Fh  0è°XÁrr@P ÈóñO À00j þqüìöa! øÿ-Âæ"ÜîÜíí ÊhÊhê! þurr@P-Î� ù ¡HTôLDçhhFHHSYSTEM MESSAGE XXXXr`P�X`P�h( €PSYSMSG  PREADR !CLOSFLŸOPENFLÀP J POIOLUNT DECK-ID A31 ITOS 2.0 SUMMARY-132Jr@P X2XY X‡XfXm÷ X)XP XX^Xeø X!È_ ht Îrj£  þXoXNXUð XX8hgXOú X È[`ÿrr@P+ ÈnE¢ÁYh[XCô HMàÿHL hSÀé`ÿá!ÂhFá"âæ"HCÂYhCÁ h)èì ý@ÿæ"Æ"h'Âh8 Dÿâ H5h6 Î4rr@PVž£è.ö È'`ÿ Æÿž£ÁÀÿ `ÿÄÿ1óï Tq†ø Èl À j½¢È`ÿèórr@P� 1ýHúÈó`ÿÊ‘€ÿh h<Ã, þ(Êz€ÿX´TÿˆèÏÆ"k Ã,(˜ßrr@P¬Êh€ÿX¢2ªÈ×Á8È»X™)X„, βjp¢ Ã@jp¢  n ¡è¿ÊU€ÿ nh¹Tÿ0ˆÈ²;rr@P×áâ þÆ"è­’4 2  þh§ÀKh‹D(áÂèžj<[Á8a¡èß b bÁ¡bè�Àÿh�Š`ÿÊ&ˆ‰dÿÊ'rr@PaÊ)a Wˆ‚aÊ nÇÀÿ  nà þèÿxÿx€„ˆŒ�”˜œ Èï°×þ"r\@P-  è�âFÆ"‘Â艒 ô€\*€PINPEQ OUTEQ PRTEQ LUNEQ !PRTNAM'* PCLOSFLŸOPENFLÑÀP D PÃERCHK DECK-ID C03 ITOS 2.0 SUMMARY-132D*@P hø hù hø h÷̨ô Èòhï *d@PÈíÁhëØë ˜é1ðÌ"! ì1úÿLK~«Íô�dp@P=ØÄÈÃ"! î1úÿ h¢ hž hšpj@Ph h– h’ hŽØ�Ä"! î1úÿ€j@P/@P0@P�  d@P17@P— €lû@P2€@P› €l÷@P3¥@PŸ €ló@P4Ò@P5Ñ8@P£ lïÜÍÌÌ"! î1úÿÿßÿã€8@P6ÿ@P·@P7% @P€¸ÿã @P8J@Pº@P9T@P;� @P€» @PIg@PJf@PKe@PLd@PMc@POa@PP`@PQ_@PR^@PXX@PZ°@P\°@Pƒ-@P„,@P…+@P‡)@Pˆ(@P‰'@PŠ&@P‹%@PŒ$@P�#@P� @P’°@P·ù@P¸ø@Pºö@P»õ@P¼ôp@P½ ÿßÿâÍ lÍ lÉ lÅ lÁÜŸÌž"! î1úÿÿµpd@Pèÿ´ lžÔÌþ"! î1úÿ€d@P`¨@Pd¨@Ph¨@Pl¨@Pp¨@Pt¨@P˜¨@Pœ¨@P ¨@P¤¨@P¨¨@Pʨ@PΨ@PÒ¨@PÖ¨@Pù¨f@Pÿâÿ� 3d 4lûÜØÌ×"! î1úÿf@P½ó@PÃí@PŰ@PâÎ@PãÍ@PäÌ@PåË@PæÊ@PèÈ@PéÇ@PêÆ@PëÅ@PìÄ@PíÃ@PîÂ@Pñ¿@Pó°@Põ°@P©@P¨@P ¦@P ¥@P ¤@P £@P¢@P¡@P @PŸ@Pž@P›@P°@P-ƒ@P.‚@P0€@P1@P2~@P3}@P4|p@P5ÿ»rp 5lØd̴ܵ"! î1úÿÿGÿCÿFpp@P`OM lµAÜ’Ì‘"! î1úÿÿ ÿ$ÿ$ ÿ ÿ#,ÿ  l’pF@P‹ lŽÔÌþ"! î1úÿþþ€F@P¨@P!¨p@P¥þúþý d÷ÜÛÌÚ""Ò î2Ðúÿðïÿíìþ×êéèçæåþÓþÖápp@PÐßÝ lÙÑ̴ܵ""ø î2öúÿÊÉþÞÇþ±ÄÃÂÀÿáþ­þ°»¹· &pp@Pûl³« &l¯§ l«£Ü‡Ì†""& î2$úÿœ›þ°™þƒ”“’‘�þþ‚�‹pp@P&‰ l…} /l�y 0dtÔÌþ""V î2TúÿlkjihþSf dcba`pp@PQþOþR][Y 6lØMÜÙÌØ""| î2zúÿFEDCBþ-@ÿæ>=< :þ)þ,75pp@P|3 7l²'̲ܳ""¢ î2 úÿ þ þþ 8lŒp@P§̉„l†Tÿ@P5{@P6z@P7y@P8x@P9w@P;u@P<t@PP`@PQ_@PR^@PS]@PT\@PVZ@PWY@PXX@PYW@PZV@P[U@P_Q@Pu;@Pv:@Pw9@Py7@Pz6@P{5@P|4@P1@P‚.@P™@P›@Pœ@P�@PŸ@P @P¡@P¢@P£ @P¤ @P¥ @P¨2@P°èH TÿÿûTÿhýX\üh€ý|ýD2 €PERCHK ´  PQ8PKUPºQ8PREP·SYSMSG­ÀP J PaFMENTP DECK-ID F58 ITOS 2.0 SUMMARY-132Jr@PX%X#X!XXXXXXXXXX X X XXXXXH7àérr@P+Âhèø ýæH/3�2ÆÆ"4 àÿ`ÿ aADe !æéâÆaÈaÈÝ˜Ú ý AèA a ûar"@PV æéVÁháÁ`ÿ"r€PCREATE$CLEAR "DELETE OPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS r*€PUPDRECDELRECCOMFILVOLUSEREDUCE*ÀP J P(EXENTP DECK-ID A34 ITOS 2.0 SUMMARY-132Jl@P X X ` X X X X X XHèû ýæ"Hèù…�õ ý!H æéHèT`€l:€PWTREADSLICUP ATTACH PGMIN PGMINTCHAIN PGMOUT:ÀP J PaBINASC DECK-ID A24 ITOS 2.0 SUMMARY-132Jr@PHYÀÿhXXÿÿùXÿhSXhQ `ÿ hOÌKhLÈKB0 hGð0HFÍBèCV  èA¨tm; ¸;m7ÀÿÈ5rr@P+ È2°#h0Àÿ þ`ÿÞÍ(è)[ �0Í   ° m   �0 Í ° mÀÿ ýÈ `ÿè¬È °#r"@PVh ÐÿÛ" €PBINASC  PÑ8PKUP Ñ8PREPÀP J P Q8PRMA DECK-ID A25 ITOS 2.0 SUMMARY-132J&@P Ìþˆý`ÜØûú ÄÜ`ÝÄÝÔÜ€ú&€PQ8PREPQ8PKUPÀP J PGTRELO DECK-ID B34 ITOS 2.0 SUMMARY-132J@P Tÿ€ü€PMARKERUTSTRT  PRELOAD ÀP D P –RELOAD DECK-ID C27 ITOS 2.0 09/18 SUMMARY-132D@P@PBSYSVOL @PJ@PM= OW€ÿÿ @PVTAPE0 @PZ@P^À@P`@@PiÁ@Pl @P€n B@PÓFILE-NAME =OWNER-NAME =VOLUME-NAME=INPUT UNIT€ =B@P(@P @P ? @P@P0ÿþP@P NOT LOADED,ALREADY PRESEN€T P8@Pþ LOADING € 8 @P€ÉEOF @P1 @P6 d p@Ps hÄdd hÀhÀhÀd h½ dhºd!h¸h¸d¤h¶ dÇ dÈȰdËÈ®dÌȬdÍȪdÎȨpp@PždþdÀh¢TÿG@ h�Øœè›Æ6fÎþ ö h‘ è�fòÆ"f ؈ ˜†1óÌõ !npp@PÉ1Ä=dI þ$J dHìöÎÚ¤R WÌ÷ dK dLÄF0ìüfÒÌëlêÌôœè8ÜôìåÆÒìðnôÜàõpp@PôÌØlÝ d:ÌÐl×ìÎβ¬Ølá /ÌÝ þ$M lØÌÙd0ÓìÔÆ�dÔÄNdÕ lá1Tÿç01Ó:0¤pp@PÌ©d ì­@ÿå¡ïmüÜž d; lüÄ< 1$ lúÄdªÌŠ ü lú\Ò19ç0¤pp@P1J0ª dïdîÄ= üÌç  dA3TÿªÓ3îï Ä ý20Ìú þ"òÄò "pp@Pu l¸Ì“” Ìõ ÌÔ þlÒÿFÄÓœ¶ | ìÈ@ÿå ¡ïmüÌß Iÿ+ dHìþƤpp@P RdL þ$M lúÌÜìø–0� 1Ìëd ìç@ÿíè¡ïmåìèÎð”Ož0ì’Æª¤PH쿨 èl¼Äïpp@PË ä0îÎñ¬Ï쳨èl°Ì¯H¬È Ó dAÿ~Ü»ìºÎ¼¬½ ¶ 'd9Tÿ9 þd< d;Ì�pp@Pö”  ä=@ÿퟡïmœÜùþ¿Ì« 3̧l�Ìï0l�ÄÓœæ  äH@ÿå¡ïmüÜß ì÷Îù¤Rpj@P!dSÎô¬û þ$M lëìêÆ0‘d:Æ0’dTÿÓ: d̸  Äò "5ú€þ�j@P4Ip@PI lÊÜÉìÈÎÊ !ú ìÂÎÄL¤ ñÔîÌý 0…ÄdTTÿ2 !æéââ þÆdUĤ pp@PtÄVlúÄWd¥ÄXd¦ÄEd§1Tÿ¤YÄY $ 4d9OÌ÷„ZlôàéÂ$²d[Ä[ Tÿpp@PŸY6Ä0 ”  dÇÄ7d\ÄUœú "ÌûløTÿY%\d]Ä^¬üœýè\óY%8lô œò pp@PÊ!Ìð¬íœîÌ× ÄÈ  "l°Tê9 d_Ä`¬Ñ  lø daìþÆ$fpp@Põ?Üù `œ÷1öÄ…dbĆdcćddĈdeÌÚ  lîÄ%lólî lô dÑdÒÄ0FdÏÄpp@P GdÐ dfÄÇ  dgÄ " lù dHÌõœý;ìûÆW–  ªÜòò l�ÄA þpp@PK lçìæÆ[– ªÜÝ œÛ1òÄ\œ¦ % Qd9ÿw lÍìÌÎÑnÒÎänåÄT” ìÁÆpp@PvÊfܼ œº10ëÄ\”EÌ« 3 d l« ì©fòܦ œ¤1÷À00;düÄ00`dÄ08AdÄpp@P¡BdÄddhÄ_ 0Ä@l÷Ä1œô 3Ìû lïÌõdc dbÄE¤id¤dj dHìþpp@P0ÌÆ=f0 Üù œ÷1öÄždkTÿ3ó Ä 16Ìû¤l * lßÌÞ dmìÚÎÞìüfÜÕ œÓpp@P÷1òTç01n0¤T¶Y%\d]Ä^¬üœýÂñTÿ ö l°Ì¯ lÑì¬ Î°ìÎfýpp@P"ܧ œ¥1ó\Òç0þo01¤ d d0 þdÄ\”EÄ 3 d3Tÿó  Ì” !pp@PMÄ d Tÿ"Ä"d›Ä#dœÄ$d�Äkdž1Tÿó 9@ Ä !¢Äj þX\ŽY%pp@Pxhl�Ì�¬�œŽ3Ìã ü dHÄhœü5̱ìùnÐÜ÷÷1Tÿó%b ÌÖ¤Z ÌÑ "ïÄÇ pp@P£…1Tÿó ÌÁ "þÄf þ¿1b\Øó%p ̦ ü̬¬Ö ̨ "¬  lç©Tpn@PÎY%hd]Ä^¬üœý¦? dqdaÄpœü!4Ì÷„cdrìþÆ$d4Æ%d5Ìé€$€hTÿn @P1ùONïÌÞ€$ hTÿó p@Pï ÌåìßnáÌænãÄ "ÌÉŒÒlÇÜÈÈ´ÄE¤Q 3 l»Äbl¼ l¸Ìûœ¶?ì²ÎÄ”2 λpp@P0œû  ̨Œ±l¦Ü§îÄj ·› dfÌ›0lœÄž üÌ— þl•Ì” uç dq dp daÌÇp\@P[œý!Ü÷TÿÑÄДÒ ÄÏ”Ñ Ìä„cláÜææ lÊÌÁ ·ÿ\\@Pî~@Pã~@P~@P0~Äè 8äèÖ"@P£…@PÕ…@PÛ…*@P…T§ó è @ÿè HàÿHúß* €PRELOADŽ r PWTREADúGETFLD^MOVEL 4TODAY RBMPRRN`PGMINT¦SYSMSGßOBFIMKfLUNEQ „RWBUWMžMPREDXÍCREATEÚERCHK OPENFLFr* PUPDFCBePUTS �CLOSFL†MVCHAR÷WRITER*ÀP D P&ERPROC DECK-ID C08 ITOS 2.0 SUMMARY-132D @P hü hų̂ø Èöl <@PÈðÁhîØî ˜ì1ïè H TÿÿûTÿhë€\ýhêÝ< €PERPROC  PQ8PKUP Q8PREPÀP J P)MPWRXX DECK-ID B45 ITOS 2.0 SUMMARY-132Jn@P Èþh  É€ïˆhHÀÿhìöÆh ØóìòH ØðìïÆhTô!ê@@è@ÿèØßÞn€PMPWRIXMPREDXÀP J POBFIMK DECK-ID B46 ITOS 2.0 SUMMARY-132J0@P H æéÂìúf æé ìõbèØòñ€0 €POBFIMK ÀP J PRWBUWM DECK-ID B48 ITOS 2.0 SUMMARY-132JT@P HàÿHìûÆhØøì÷ÆÌh ØóÀïˆ hTôê\@è@ÿèãT €PRWBUWM ÀP J PUTEFCK DECK-ID B49 ITOS 2.0 SUMMARY-132J*@P H ìýÆ  æé2æ è€Øôó* €PUTEFCK ÀP D PbMVCHAR DECK-ID C06 ITOS 2.0 SUMMARY-132D@P @P€ÿÿ p@P Ì/hôŒ. þhòÌ,hñÈîhðÈí˜î!4Èë þA hèèçΨçHhäÈá¨Ü èÞΨßhÜÈØ þA hÚÈÓ¨ÏhØ þ èÔÎ p@P6¨ÐˆÎn€ @P?ÈÆÈh èÆÎú¨Ãˆn÷ػػÊ <@PKèHTÿÿûTÿ þhæ\ühá\úhà\ø þhà€\õhܪ< €PMVCHARN  PQ8PKUPTQ8PREPQÀP J PBMPRRN DECK-ID B36 ITOS 2.0 SUMMARY-132JH@PHTÿÿûTÿ"hÂì$   LØlè€èH €PBMPRRN  PQ8PKUPQ8PREPÀP P*T PP*K,I8 PP*J,UTRELO,$$ PP*Z PP*CTO,TAPE LOAD IS FINISHED PP*Z PP*END Pr@P00¼ K4!P40"SA0I ¤P ¤M 0©L ¤0F2 V2D20¦PN¤0F ¨HO¨OPrP@P3çNC0¤SC¨0DO¤PT¤JN0!LU¤0M APTY8P @P0€ @P0€0@P0"     €0@P02@P07@P0<@P0A€@P0G@P0J@P0M€@P0S @P0€X @P8Z @P0[ @P0€^ @P0`@P0c%&$@P0l$@P0q @P0€t @P0€v @P0x@P0{!€@P0#@P0‚"€ @P0€†" @P0ˆ"@P0� @P0’€D@P0# À€Dr@P Tÿ33éçèíÄç ?°/dçTÿ{­Äè dò1Tÿ笌¯¬¤­x þdòX9Tç¬rr@P+¤­¬1ª®x hFdîdïTÿ33ªÓîïzÈ:˜/Ø4ÄÓ˜.Ä0Ó˜%ÄÔ˜!rr@PVÃÄÓ˜ÖÄ0Ó˜È ý  ò d0ò²ÄèDø þöTÿÓ3 ñðäñrr@P�c ÜB`ÿÉ+# Ó  H "æéâÆ"à -ÆÉA Äí .»D`ÿ ÇeÔrr@P¬iïiÎÀÿ�$ÐÿóÄèT(笛±¬1¤­x 0 fó¢À hºh³À;düTÿ1ó|zÈrr@P×£ … `”0@À+¤0E ¤0E 8wÄGdÿ0TÿóÿˆzÈ… g1Tÿó‹ TñTrr@P{­T3éçè00íÄç ?0°/dçÄ0èÄò# dòÿ È_˜V AT39ªÓî1ïzÈS˜IØOTÿrr@P-ÓzÈKþò ",T!ª31Óîïz1TÿÓzÈ:þáî Äò:T¹ç¬–°¬1¤­xñ9TJç¬rr@PX ²¬1¤­xTÿˆh ä0èVTÿnoþºÖ"þ·HEOUINPUEX%UT  $$ rr@Pƒ  UTIL IN READY READY  END UTIL  ÿþrb@P®(  UT€ÿÿb €PFMUTEX j PSYSMSGfUTSTRTÿCLOSFLûOPENFLÒREADR ïCOMSEK{INPEQ ,OUTEQ =GETFLD6WTREADUPGMINTPGMOUT_PGMIN jÀP J P6SEKVIT DECK-ID B03 ITOS 2.0 SUMMARY-132Jr@P H/Àÿh.TÿÿùTÿh)\ýh(\ûh' L% æéH#ì!Î!`ÿÅ:Àÿ `ÿ η þvúÌœÜìÀÿ þ r"@P+lèÈ`ÿÐ" €PSEKVIT  PQ8PKUPQ8PREPÀP J P2REDLAB DECK-ID B04 ITOS 2.0 SUMMARY-132Jr@P H,Àÿh+TÿÿùTÿh&\ýh%\ûh$Ì" "Æ"hìÆ"hÈhÌ "Æ"h Æ"h TôHèÈr@P+`ÿÓ €PREDLAB  PQ8PKUPQ8PREPÀP D PTODAY DECK-ID C02 ITOS 2.0 SUMMARY-132DH@P æéÆdÂdÂdèH TÿÿûTÿhñ hò hêåH €PTODAY   PQ8PKUPQ8PREPÀP J P 0NXTVOL DECK-ID B05 ITOS 2.0 SUMMARY-132Jr@P H,Àÿh+TÿÿùTÿh# æéH#BÎ!œ!ìÎ`ÿÅ:Àÿ `ÿ 0Çf þxúÌ œ Üì lèÈ`ÿr@P+Ô €PNXTVOL  PQ8PKUPQ8PREPÀP J P *COMSEK DECK-ID B06 ITOS 2.0 SUMMARY-132Jp@P Ìþh%ØüÌûh#ØùÌøh!Øö 0@ÿÆ!œ  ÷  0`ÿÆ� ö þL 0 æLÜ þlÙ€p €PCOMSEK ÀP J PYMOVEL DECK-ID B07 ITOS 2.0 SUMMARY-132Jr@P ÌþhSØüÌûhOÌNhMØ÷ÌöhIØô hKhChAhFBÌA8<A h< È6n; ˜6ùè7Î5è0QH  h2 ßè/Î*rr@P+è%W  è)¨tè'n"è$ ¸!nÌ þlÃȘÈùÈ °#h ØÈ °#hØ Ñ r@PV €PMOVEL ÀP J PxMOVER DECK-ID B08 ITOS 2.0 SUMMARY-132Jr@P ÌþhqØüÌûhrØùÌøhlÌkhjØôÌóhcØñ h\hZ h[hYBÌZ8RA hTBÌZ8LF"ÈK°#hI hPÈLˆN þhGrr@P+ÈIˆC þhDè@ þÈ8nBúè8Î:è4QH  h9 ßè-Î1è)W  è0¨tè%n)è" ¸(n$Ì( þl&¬È°#r\@PVh È þhÌ þlòÈ °#h È þhÍ00€\ €PMOVER ÀP J P†GETFLD DECK-ID B09 ITOS 2.0 SUMMARY-132Jr@P ìþHQØüìûHOØùìøHMØöìõHKØóìòHIØð hGlE (î? ¯ a)Î9  n6  Û1 $È:n/ È5n,B þrr@P+üH-H-ì'Î$ì&QH  h'" ß>ÈÄ ü<  lØ0 Ó l Ø ) Ä *rr@PV  èúÎôèùW  è÷¨tèònìèï ¸ïnçÈì°#hêÈç hå ë%ÌÞ ÜÌÜ lÚ‚Ì×°#lÕr@P�ÌÒ lШ €PGETFLD ÀP J PŠMMSIZ DECK-ID B10 ITOS 2.0 SUMMARY-132Jr@P H&Àÿh%Ìûh)ØùÌøh$ØöÌõh"Øóà/Æ"! œ ù Æ"l Æ"lÈh Tÿ)*èÈ`ÿÙrr@P+.r`P�V4(@P/K-ýJ[úE¿Fÿþ( €PMMSIZ  PSYSMSG ÀP J P!GETVIT DECK-ID B11 ITOS 2.0 SUMMARY-132JZ@P HÀÿhÌûhØùÌøhØö æéü æ" `ÿÆ"m ÐÿÀÿ ê øèÈ`ÿãZ €PGETVIT ÀP J P�SYSMSG DECK-ID A33 ITOS 2.0 SUMMARY-132Jr@P HKÀã!þìúØùÆ"hE!d‘hDìðØïH3  j;¢TÿPSPÈ4"TÿPhQPÈ*!vTÿrr@P+PP H H è ¯-X~h H ¿  þñ#3Tè Xo H è þXyhä$$SYMSrr@PVGF$$ \"ØëØêXq HIèå þHXGh Ü úX½\Xn H:èÖ þH X8h Û úXrr@P�® þHûè(X) H$èõX4h˜ðòð \ȵ" \è°ÿbT*PP È®X2ÈwÈh§ÈtÈhrr@P¬¢ \ë$ Ìþh ØüH !Î è¯qH¡  ò HüìýHûØûèøÉaîö2ðÈ (hèî!níèëì rr@P×8 H X ÈXö' hËdL H õ1  :èÂXÓ H¾È "Aîê H¶B0Fh  0è°XÁrr@P ÈóñO À00j þqüìöa! øÿ-Âæ"ÜîÜíí ÊhÊhê! þurr@P-Î� ù ¡HTôLDçhhFHHSYSTEM MESSAGE XXXXr`P�X`P�h( €PSYSMSG  PREADR !CLOSFLŸOPENFLÀP J POIOLUNT DECK-ID A31 ITOS 2.0 SUMMARY-132Jr@P X2XY X‡XfXm÷ X)XP XX^Xeø X!È_ ht Îrj£  þXoXNXUð XX8hgXOú X È[`ÿrr@P+ ÈnE¢ÁYh[XCô HMàÿHL hSÀé`ÿá!ÂhFá"âæ"HCÂYhCÁ h)èì ý@ÿæ"Æ"h'Âh8 Dÿâ H5h6 Î4rr@PVž£è.ö È'`ÿ Æÿž£ÁÀÿ `ÿÄÿ1óï Tq†ø Èl À j½¢È`ÿèórr@P� 1ýHúÈó`ÿÊ‘€ÿh h<Ã, þ(Êz€ÿX´TÿˆèÏÆ"k Ã,(˜ßrr@P¬Êh€ÿX¢2ªÈ×Á8È»X™)X„, βjp¢ Ã@jp¢  n ¡è¿ÊU€ÿ nh¹Tÿ0ˆÈ²;rr@P×áâ þÆ"è­’4 2  þh§ÀKh‹D(áÂèžj<[Á8a¡èß b bÁ¡bè�Àÿh�Š`ÿÊ&ˆ‰dÿÊ'rr@PaÊ)a Wˆ‚aÊ nÇÀÿ  nà þèÿxÿx€„ˆŒ�”˜œ Èï°×þ"r\@P-  è�âFÆ"‘Â艒 ô€\*€PINPEQ OUTEQ PRTEQ LUNEQ !PRTNAM'* PCLOSFLŸOPENFLÑÀP D PÃERCHK DECK-ID C03 ITOS 2.0 SUMMARY-132D*@P hø hù hø h÷̨ô Èòhï *d@PÈíÁhëØë ˜é1ðÌ"! ì1úÿLK~«Íô�dp@P=ØÄÈÃ"! î1úÿ h¢ hž hšpj@Ph h– h’ hŽØ�Ä"! î1úÿ€j@P/@P0@P�  d@P17@P— €lû@P2€@P› €l÷@P3¥@PŸ €ló@P4Ò@P5Ñ8@P£ lïÜÍÌÌ"! î1úÿÿßÿã€8@P6ÿ@P·@P7% @P€¸ÿã @P8J@Pº@P9T@P;� @P€» @PIg@PJf@PKe@PLd@PMc@POa@PP`@PQ_@PR^@PXX@PZ°@P\°@Pƒ-@P„,@P…+@P‡)@Pˆ(@P‰'@PŠ&@P‹%@PŒ$@P�#@P� @P’°@P·ù@P¸ø@Pºö@P»õ@P¼ôp@P½ ÿßÿâÍ lÍ lÉ lÅ lÁÜŸÌž"! î1úÿÿµpd@Pèÿ´ lžÔÌþ"! î1úÿ€d@P`¨@Pd¨@Ph¨@Pl¨@Pp¨@Pt¨@P˜¨@Pœ¨@P ¨@P¤¨@P¨¨@Pʨ@PΨ@PÒ¨@PÖ¨@Pù¨f@Pÿâÿ� 3d 4lûÜØÌ×"! î1úÿf@P½ó@PÃí@PŰ@PâÎ@PãÍ@PäÌ@PåË@PæÊ@PèÈ@PéÇ@PêÆ@PëÅ@PìÄ@PíÃ@PîÂ@Pñ¿@Pó°@Põ°@P©@P¨@P ¦@P ¥@P ¤@P £@P¢@P¡@P @PŸ@Pž@P›@P°@P-ƒ@P.‚@P0€@P1@P2~@P3}@P4|p@P5ÿ»rp 5lØd̴ܵ"! î1úÿÿGÿCÿFpp@P`OM lµAÜ’Ì‘"! î1úÿÿ ÿ$ÿ$ ÿ ÿ#,ÿ  l’pF@P‹ lŽÔÌþ"! î1úÿþþ€F@P¨@P!¨p@P¥þúþý d÷ÜÛÌÚ""Ò î2Ðúÿðïÿíìþ×êéèçæåþÓþÖápp@PÐßÝ lÙÑ̴ܵ""ø î2öúÿÊÉþÞÇþ±ÄÃÂÀÿáþ­þ°»¹· &pp@Pûl³« &l¯§ l«£Ü‡Ì†""& î2$úÿœ›þ°™þƒ”“’‘�þþ‚�‹pp@P&‰ l…} /l�y 0dtÔÌþ""V î2TúÿlkjihþSf dcba`pp@PQþOþR][Y 6lØMÜÙÌØ""| î2zúÿFEDCBþ-@ÿæ>=< :þ)þ,75pp@P|3 7l²'̲ܳ""¢ î2 úÿ þ þþ 8lŒp@P§̉„l†Tÿ@P5{@P6z@P7y@P8x@P9w@P;u@P<t@PP`@PQ_@PR^@PS]@PT\@PVZ@PWY@PXX@PYW@PZV@P[U@P_Q@Pu;@Pv:@Pw9@Py7@Pz6@P{5@P|4@P1@P‚.@P™@P›@Pœ@P�@PŸ@P @P¡@P¢@P£ @P¤ @P¥ @P¨2@P°èH TÿÿûTÿhýX\üh€ý|ýD2 €PERCHK ´  PQ8PKUPºQ8PREP·SYSMSG­ÀP J PaFMENTP DECK-ID F58 ITOS 2.0 SUMMARY-132Jr@PX%X#X!XXXXXXXXXX X X XXXXXH7àérr@P+Âhèø ýæH/3�2ÆÆ"4 àÿ`ÿ aADe !æéâÆaÈaÈÝ˜Ú ý AèA a ûar"@PV æéVÁháÁ`ÿ"r€PCREATE$CLEAR "DELETE OPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS r*€PUPDRECDELRECCOMFILVOLUSEREDUCE*ÀP J P(EXENTP DECK-ID A34 ITOS 2.0 SUMMARY-132Jl@P X X ` X X X X X XHèû ýæ"Hèù…�õ ý!H æéHèT`€l:€PWTREADSLICUP ATTACH PGMIN PGMINTCHAIN PGMOUT:ÀP J PaBINASC DECK-ID A24 ITOS 2.0 SUMMARY-132Jr@PHYÀÿhXXÿÿùXÿhSXhQ `ÿ hOÌKhLÈKB0 hGð0HFÍBèCV  èA¨tm; ¸;m7ÀÿÈ5rr@P+ È2°#h0Àÿ þ`ÿÞÍ(è)[ �0Í   ° m   �0 Í ° mÀÿ ýÈ `ÿè¬È °#r"@PVh ÐÿÛ" €PBINASC  PÑ8PKUP Ñ8PREPÀP J P Q8PRMA DECK-ID A25 ITOS 2.0 SUMMARY-132J&@P Ìþˆý`ÜØûú ÄÜ`ÝÄÝÔÜ€ú&€PQ8PREPQ8PKUPÀP J PGTRELO DECK-ID B34 ITOS 2.0 SUMMARY-132J@P Tÿ€ü€PMARKERUTSTRT  PRELOAD ÀP D P ßRELOAD DECK-ID C27 ITOS 2.0 SUMMARY-132D@P@PASYSVOL @PI @P€L= @PQTAPE0 @PU@PYÀ@P[@@PcÁ@Pf @P€h B@PÓFILE-NAME =OWNER-NAME =VOLUME-NAME=INPUT UNIT€ =B@P(@P @P ? @P@P0ÿþP@P NOT LOADED,ALREADY PRESEN€T P8@Pþ LOADING € 8 @P€ÉEOF @P1 @P6 d p@Pm hÊdd hÆhÆhÆd hà dhÀd!h¾h¾d¤ dÇ dÈȶdËÈ´dÌȲdÍȰdÎÈ®dpp@P˜þdÀh¨TÿF@ h£Ø¢è¡Æ06fÎþ ö h— è•f00òÆ"f0 ØŽ ˜Œ1óÌõ !n1pp@PÃÄ=dH þ$I dGìöÎÚ¨ XÌø dJ dKÄEìüf0ÒÌìlëÌôœé9ÜôìæÆÒìðnôÜáõÿÌØpp@PîlÝ d:ÌÐl×ìÎβ¨ôlà /ÌÜ þ$L l×ÌØdÓ0ìÓÆ�d0ÔÄMd0Õ láTÿç0Ó9:0¤pp@PÌ©d ì­@ÿå¡ïmüÜž d; lüÔÄ< 1 1lú\Ûç01¤0ª d08ïdîTpp@P3DÿªÓ3îï Ä ý2/Ìú þ!_[Äò " lĮ́” Ìõ Ä= þlýÿZÌš” Upp@Po ìó@ÿå ¡ïmüÌÞ ÿ? dGìþΞ¤ìdK þ$L lúÄÓ0ì÷–� Ììd ìè@ÿåpp@Pš¡ïmü¤ÜàìßÎø¬á Û 'd9Tÿ9 þd< d;Ìל´  ì©@ÿíÝ¡ïmÚÜ£þúÌÑ pp@PÅ3ÌÍl·Ì™l´ÌÀœ�  ì®@ÿíÆ¡ïmÃÜŒì§ÎÀ¬©dN쬥 þ,¨ l�ìœÆ‘d:Æ’d9TÿÓpp@Pð: l¢ÌÀ  Ä0ò ".óþ dGÜþìýΓ !ú ì÷Î�L¤ ñÔîÌý ŒÄpp@PdOTÿ2 !æéââ þÆdPÄ0¤ ÄQlúÄRd¥ÄSd¦ÄDd§Tÿ1¤TÄT $ 4pp@PFd9OÌ÷„UlôàéÂ$²dVÄV TÿT06Ä ”  dÇÄ7dWÄPœú "Ìû løTÿTpp@Pq%WdXÄY¬üœýè\óT%8lô œò !Ìð¬íœîÌ× ÄÈ  "l°Tª9pp@Pœ dZÄ[¬Ñ  lø d\ìþÆ$f?Üù `œ÷1öÄ…d]Ćd^ćd_Ĉd`ÌÚ pp@PÇ lîÄ%lólî lô dÑdÒÄFdÏÄGdÐÄÇ  daÄ " lù dGÌõœý;ìûÆpp@PòW–  cÜòò l“ œå ! lç0ìæÆ[–0 cÜÝ œÛ1òÄWœ© % Qd9ÿzpp@P lÍìÌÎÑnÒÎänåÄO” ìÁÆ0Êfܼ œº1ëÄ\”DÌ« 30 d l« ì©f0òܦ œ¤pp@PH1÷À00;dü lœì›Æ?fÜ– œ”1öÄ0ÁlýÄ_dbÄZ Ä@l÷Ä1œô 3Ìû lïÌõpp@Psd^ d]ÄE¤cd¤dd dGìþÆ=f Üù œ÷10öÄždeTÿó1 Ä  16Ìûpp@Pž¤f * lßÌÞ dgìÚÎÞìüfÜÕ œÓ1òT1ç0h0¤ToT%WdXÄY¬üœýpp@PÉ{ñTÿ öö l°Ì¯ lÑì¬ΰìÎfýܧ œ¥11ó\Òç0þi0¤ d0 d8 þdÄpp@Pô\”DÄ 3 d3Tÿó  Ì” !Ä d Tÿ"Ä0"d›Ä0#dœÄ0$d�Ä8edžTpp@P1ÿó 9@ Ä !¢Äd þ(\ŽT%bl�Ì�¬�œŽÄÇ ÎTÿó Ìâ !…þ2Xpp@PJTÿó%j ÌÕ "ÌÙT¾T%bdXÄY¬üœýÖ> dkd\Äjœü!3Ì÷„^dlìþ΢p$@Pud4Æ%d5Ìê€$hT€ÿ$ @P1‚ONïÌ߀$ hTÿó p@PŽï Ìåìàf$ÌånâÌ� "ÌÌÊŒÓlÈÜÉɵ là lÅ lÁÄ]œ¾!ܽTÿÑÄДÒ ÄÏ”p(@P¹Ñ Ì©Œ²l§Ü¨æÄd €„�(@P®Ç@PœÇ@P0ÇÄè 8äèÖ"@PœÎ@PŽÎ@P”Î*@PÎT@ó è @ÿè HàÿHû�* €PRELOAD× r PWTREAD´GETFLDDMOVEL íTODAY  BMPRRN®PGMINTŸSYSMSG˜OBFIMKLUNEQ =RWBUWMWMPREDXWCREATE”ERCHK ÍOPENFLr* PUPDFCBCLOSFLÏPUTS KMVCHAR€WRITER‹*ÀP D P&ERPROC DECK-ID C08 ITOS 2.0 SUMMARY-132D @P hü hų̂ø Èöl <@PÈðÁhîØî ˜ì1ïè H TÿÿûTÿhë€\ýhêÝ< €PERPROC  PQ8PKUP Q8PREPÀP J P)MPWRXX DECK-ID B45 ITOS 2.0 SUMMARY-132Jn@P Èþh  É€ïˆhHÀÿhìöÆh ØóìòH ØðìïÆhTô!ê@@è@ÿèØßÞn€PMPWRIXMPREDXÀP J POBFIMK DECK-ID B46 ITOS 2.0 SUMMARY-132J0@P H æéÂìúf æé ìõbèØòñ€0 €POBFIMK ÀP J PRWBUWM DECK-ID B48 ITOS 2.0 SUMMARY-132JT@P HàÿHìûÆhØøì÷ÆÌh ØóÀïˆ hTôê\@è@ÿèãT €PRWBUWM ÀP J PUTEFCK DECK-ID B49 ITOS 2.0 SUMMARY-132J*@P H ìýÆ  æé2æ è€Øôó* €PUTEFCK ÀP D PbMVCHAR DECK-ID C06 ITOS 2.0 SUMMARY-132D@P @P€ÿÿ p@P Ì/hôŒ. þhòÌ,hñÈîhðÈí˜î!4Èë þA hèèçΨçHhäÈá¨Ü èÞΨßhÜÈØ þA hÚÈÓ¨ÏhØ þ èÔÎ p@P6¨ÐˆÎn€ @P?ÈÆÈh èÆÎú¨Ãˆn÷ػػÊ <@PKèHTÿÿûTÿ þhæ\ühá\úhà\ø þhà€\õhܪ< €PMVCHARN  PQ8PKUPTQ8PREPQÀP J PBMPRRN DECK-ID B36 ITOS 2.0 SUMMARY-132JH@PHTÿÿûTÿ"hÂì$   LØlè€èH €PBMPRRN  PQ8PKUPQ8PREPÀP P*T PP*K,I8 PP*J,UTRELO,$$ PP*Z PP*K,I10,P11,L9 PP*CTO,TAPE LOAD IS FINISHED PP*Z PP*END PP IDATA(15)=-1 C2700623PP IF (PPTEMP(2).GE.0.AND.FCBBUF(29).EQ.$2020) IDATA(5)=0 C2700624PP. C2700625PP CALL OPENFL(REQBUF,IDATA,ISTAT) C2700626PP IF (ISTAT .LT. 0) GO TO 510 C2700627PPC C2700628PP 1200 VOLNAM(1)=0 C2700629PPC C2700630PPC UPDATE FCB C2700631PPC C2700632PP CALL TODAY(FCBTEM) C2700633PP CRTDAT(1) =FCBTEM(1) C2700634PP+ INSERT CREATE DATE C2700635PP CRTDAT(2) =FCBTEM(2) C2700636PP CRTDAT(3) =FCBTEM(3) C2700637PP FCBBUF(95)=IFYLTP C2700638PPC C2700639PP CALL UPDFCB(REQBUF,VOLNAM,INDEX,FCBBUF,ISTAT) C2700640PP IF (ISTAT .LT. 0) GO TO 510 C2700641PPC C2700642PPC ('IFLTYP' = 0 FOR SEQUENTIAL OR 1 FOR INDEX FILE) C2700643PPC C2700644PP 540 CONTINUE C2700645PP IF (IFLTYP .EQ. 1) GO TO 610 C2700646PPC C2700647PPC C2700648PPC -------- ------------ ------------- ---------- C2700649PPC C2700650PPC C2700651PPC SEQUENTIAL FILE C2700652PPC SEQUENTIAL FILE C2700653PPC SEQUENTIAL FILE C2700654PPC C2700655PPC C2700656PPC SEQUENTIAL FILE IS 'PUT' IN BLOCK MODE IF APPLIED C2700657PPC C2700658PPC C2700659PPC SEQUENTIAL C2700660PPC C2700661PP 550 CONTINUE C2700662PP IRDSTA = MPREDX(LUNIN, RECBUF(1), KREDSZ) C2700663PP IF (AND($C000,IRDSTA) .EQ. $C000) GO TO 551 C2700664PP GO TO 556 C2700665PPC C2700666PPC END OF FILE AND CLOSE FILE STUFF C2700667PPC AFTER FILE CLOSED, PROCESSING IS DETERMINED BY FILE ENTERED C2700668PPC OR NOT C2700669PPC C2700670PP 551 CONTINUE C2700671PP IF(FNFLAG .NE. 0) GOTO 9998 ********PP+ IF FN SPECIFIED, ALL DONE - ********PP CALL CLOSFL(REQBUF,ISTAT) ********PP IF(ISTAT .LT. 0) GOTO 510 ********PP GOTO 410 ********PPC C2700675PPC PUT SEQUENTIAL FILE C2700676PPC C2700677PPC C2700678PPC BEFORE 'PUT' TO FIND OUT IF EOF MARK IN BLOCKED RECORDS C2700679PPC C2700680PP 556 CONTINUE C2700681PP GO TO 3000 C2700682PP 557 CONTINUE C2700683PP CALL PUTS(REQBUF,RECBUF,ITOLRC,ISTAT) C2700684PP IF (ISTAT .LT. 0) GO TO 510 C2700685PP GO TO 550 C2700686PPC C2700687PPC C2700688PPC -------- ------------ ------------- ---------- C2700689PPC INDEX FILE C2700690PPC INDEX FILE C2700691PPC INDEX FILE C2700692PPC C2700693PPC C2700694PPC SPECIAL SPECIAL SPECIAL C2700695PPC SPECIAL SPECIAL SPECIAL C2700696PPC C2700697PPC INDEX FILE REQUIRES 'KIB' STUFF TO BE BUILT, THEREFORE SAVE IS C2700698PPC DONE ON 1 RECORD BASE C2700699PPC IT IS VERY SLOW........SO SORRY C2700700PPC C2700701PPC C2700702PPC INDEXED C2700703PPC C2700704PPC SET UP KEYVAL FOR INDEXED WRITE C2700705PPC C2700706PPC C2700707PP 610 CONTINUE C2700708PP IRDSTA = MPREDX(LUNIN, RECBUF(1), KREDSZ) C2700709PP IF (AND($C000,IRDSTA) .EQ.$C000) GO TO 551 C2700710PPC C2700711PPC GO TO CHECK IF EOF IN BLOCKED RECORDS C2700712PPC C2700713PP 617 CONTINUE C2700714PP GO TO 3000 C2700715PPC C2700716PPC SAVE 1 RECORD AT A TIME SO THAT 'KIB' CAN BE BUILT BY FILE MANAGER C2700717PPC C2700718PP 630 CONTINUE C2700719PP ICURNT = 1 C2700720PP DO 640 LOOP = 1 , ITOLRC C2700721PP KTEMPR = ICURNT + ISECLN C2700722PP KBUCKR(1) = RECBUF(KTEMPR ) C2700723PP KBUCKR(2) = RECBUF(KTEMPR+1) C2700724PP CALL MVCHAR(RECBUF(ICURNT), POSKY1, LENKY1, KEYVAL, 1) C2700725PP CALL WRITER(REQBUF(1), RECBUF(ICURNT), KEYVAL, ISTAT) C2700726PP RECBUF(KTEMPR ) = KBUCKR(1) C2700727PP RECBUF(KTEMPR+1) = KBUCKR(2) C2700728PP IF (ISTAT .LT. 0) GO TO 510 C2700729PP ICURNT = ICURNT + ISECLN C2700730PP 640 CONTINUE C2700731PP GO TO 610 C2700732PPC C2700733PPC C2700734PPC------ ------- -------- -------- -------- ------- C2700735PPC C2700736PPC C2700737PPC COMMON CODE TO COUNT NUMBER OF RECORDS BEING STORED SO THAT STORE ********PPC PROCESS CAN BE TERMINATED AFTER ALL RECORDS IN ORIGINAL FILE HAVE ********PPC BEEN STORED. THIS COUNTING IS NECESSARY BECAUSE THE LAST BUFFER ********PPC MAY NOT BE FULL - EOF CODE CHECK WOULD NOT BE VALID AS FILE MAY ********PPC BE A BINARY DATA FILE. ********PPC IT ALSO SET UP NUMBER OF RECORDS IN BUFFER C2700740PPC C2700741PPC C2700742PP 3000 CONTINUE C2700743PP ICURNT = 1 C2700744PP ITOLRC = 0 ********PPC C2700746PP DO 3100 LOOP = 1 , NUMREC C2700747PP ITOLRC = ITOLRC + 1 ********PP CALL BMPRRN(CURREC) ********PP IF ((TOTREC(1).EQ.CURREC(1)).AND.(TOTREC(2).EQ.CURREC(2))) ********PP 1 GO TO 3150 ********PP ICURNT = ICURNT + ISECLN C2700750PP 3100 CONTINUE C2700751PP 3150 CONTINUE C2700752PP IF (IFLTYP .EQ. 0) GO TO 557 C2700753PP GO TO 630 C2700754PPC*******************************************************************************PP 9995 IF(MODE)9996,9998,9996 C2700772PP 9996 ASSEM $E400,+MODE C2700773PP ASSEM $D622 C2700774PP 9998 CALL CLOSFL(REQBUF,ISTAT) ********PP RETURN ********PP END C2700777P MON  *SMD2II210/11/7921/20/392744BC 659 MC G 1026 1 2744CC 659 MC X