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 > 8TLD)' rr@P+ % XXOVH 2 ` h: 6 K  h hrr@PVhhX0c    XX " h h rr@P n sT&Xhs `h4hwhh `hKZhB hrr@P:hP"hnhn0 hGhG^" HhXc O4rr@P L B0hM) b!?" HhXqc f0 rr@P#! bXZc JXQc A >rr@P-B8 @h " Hhݘ!ڐ Xrr@PXc hH h HhHhXc Dhȹ h`7rr@Pj6؎ȍ e@!h~!  rr@P !# sl4daaaaaaaY aV-H] @H jrr@Pj= j q XcTHDX XL hTHDrr@P  `j tX `gj qTLD+hhX5rr@P/b &uh |hTLDEIwh {hTLDXTrr@PZXh@ HhhhXhT`rr@PTHD H  n arr@P.=Ml  @Vs5+ILLEGAL: ITOS HAS NOT BEEN DIrr@PSABLEDILLEGAL: 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@PFDD REBUILD COMPLETE. AUTOLOAD TO CONTINUE DUPLICATE NAME/OWNER STRING NOTED NAME Orr@PWNER IS ENTER NEW NAME AND OWNER FILE-NAME = DISK I/O ERROR NOTED. rr@PAUTOLOAD TO CONTINUE RAN OUT OF FDD SPACE - FATAL ERROR AUTOLOAD TO CONTINUE FILE Nrr@PAME CHANGED. OLD NAME/OWNER IS NEW NAME IS  r`P3]`P``P` PREBFDD ZPTSNABLPARTBL{EFSTORMIBX TBLADRxDMICODtEMPSTPpSWTCH -JOBIND*PGMIN PGMOUTYZPREBFDDP*T PP*K,I8 PP*N,REBFDD,,,B PP*Z PP*CTO, INSTALL COMPLETE PP*Z PP*END Pr@P T33?/dT{ d1Tx dX9Trr@P+1x hFddT33z:/4Ә.0Ә%Ԙ!rr@PVӘ0Ә    d0D T3 rr@Pc B`+# Ӡ H "" -A .D` err@Pii$T(1x 0 f hh;dT1|zrr@P  `0@+0E 0E 8wGd0Tz g1T TTrr@P{T300?0/d0# d _V AT391zSIOTrr@P-zK ",T!31z1Tz: :T1x9TJrr@PX1xTh 0VTno"HEOUINPUEX%UT  $$ rr@P  UTIL IN READY READY  END UTIL  rb@P(  UTb PFMUTEX jPSYSMSGfUTSTRTCLOSFLOPENFLREADR COMSEK{INPEQ ,OUTEQ =GETFLD6WTREADUPGMINTPGMOUT_PGMIN jP J P6SEKVIT DECK-ID B03 ITOS 2.0 SUMMARY-132Jr@P H/h.TTh)\h(\h' L% H#!!`: `  v  r"@P+l`" PSEKVIT PQ8PKUPQ8PREPP J P2REDLAB DECK-ID B04 ITOS 2.0 SUMMARY-132Jr@P H,h+TTh&\h%\h$" ""h"hh ""h "h THr@P+` PREDLAB PQ8PKUPQ8PREPP D PTODAY DECK-ID C02 ITOS 2.0 SUMMARY-132DH@P dddH TTh h hH PTODAY  PQ8PKUPQ8PREPP J P0NXTVOL DECK-ID B05 ITOS 2.0 SUMMARY-132Jr@P H,h+TTh# H#B!!`: ` 0f x  l`r@P+ PNXTVOL PQ8PKUPQ8PREPP J P*COMSEK DECK-ID B06 ITOS 2.0 SUMMARY-132Jp@P h%h#h! 0@!    0`  L 0 L lp PCOMSEK P J PYMOVEL DECK-ID B07 ITOS 2.0 SUMMARY-132Jr@P hShONhMhI hKhChAhFBA8<A h< 6n; 6750QH 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 hqhrhlkhjhc h\hZ h[hYBZ8RA hTBZ8LF"K#hI hPLN hGrr@P+IC hD@ 8nB8:4QH h9 -1)W 0t%n)"(n$( l&#r\@PVh  h l #h  h00\ PMOVER P J PGETFLD DECK-ID B09 ITOS 2.0 SUMMARY-132Jr@P HQHOHMHKHI hGlE (?  a)9 n6  1 $:n/ 5n,B rr@P+H-H-'$&QH h'" > <  l0  l )  *rr@PV  W tnn#h h %  lװ#lr@P l PGETFLD P J PMMSIZ DECK-ID B10 ITOS 2.0 SUMMARY-132Jr@P H&h%h)h$h"/"!   "l "lh T)*`rr@P+.r`PV4(@P/K-J[EF( PMMSIZ PSYSMSG P J P!GETVIT DECK-ID B11 ITOS 2.0 SUMMARY-132JZ@P Hhhh  " `"m  `Z PGETVIT P J PSYSMSG DECK-ID A33 ITOS 2.0 SUMMARY-132Jr@P HK!"hE!dhDH3  j;TPSP4"TPhQP*!vTrr@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 ȮX2whthrr@P \$ h H ! qH  HHa2Ƞ(h!n rr@P8 H X X' hdLH 1  :X H"A HB0Fh  0Xrr@P O 00j qa! -" hh! urr@P-  HTLDhhFHHSYSTEM MESSAGE XXXXr`PX`Ph( PSYSMSG PREADR !CLOSFLOPENFLP J POIOLUNT DECK-ID A31 ITOS 2.0 SUMMARY-132Jr@P X2XY XXfXm X)XP XX^Xe X!_ ht rj  XoXNXU XX8hgXO X [`rr@P+ ÈnEYh[XC HMHL hS`!hF""HCYhC h) @""h'h8 D H5h6 4rr@PV. '`  `1 Tq l  j`rr@P 1H`h h<, (zXT"k ,(rr@PhX28ȻX)X, βjp @jp  n U nhT0Ȳ;rr@P "譒4 2 hKhD(j<[8a b bbh`&d'rr@Pa)a Wa n  n xx "r\@P-  F"艒 \*PINPEQ OUTEQ PRTEQ LUNEQ !PRTNAM'*PCLOSFLOPENFLP D PERCHK DECK-ID C03 ITOS 2.0 SUMMARY-132D*@P h h h h h *d@Ph 1"! 1LK~dp@P="! 1 h h hpj@Ph h h h؍"! 1j@P/@P0@P  d@P17@P l@P2@P l@P3@P l@P4@P58@P l"! 18@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@Pp@P  l l l lܟ̞"! 1pd@P l"! 1d@P`@Pd@Ph@Pl@Pp@Pt@P@P@P@P@P@P@P@P@P@Pf@P 3d 4l"! 1f@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@P5rp 5ld̴ܵ"! 1GCFpp@P`OM lAܒ̑"! 1 $$ #,  lpF@P l"! 1F@P@P!p@P d"" 2pp@P l̴ܵ"" 2 &pp@Pl &l l܇̆""& 2$pp@P& l} /ly 0dt""V 2TlkjihSf dcba`pp@PQOR][Y 6lM""| 2zFEDCB-@>=< :),75pp@P|3 7l'̲ܳ"" 2   8lp@P̉lT@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 @P2@PH TThX\h|D2 PERCHK  PQ8PKUPQ8PREPSYSMSGP J PaFMENTP DECK-ID F58 ITOS 2.0 SUMMARY-132Jr@PX%X#X!XXXXXXXXXX X X XXXXXH7rr@P+h H/32"4` aADe !aaݘ AA a ar"@PV Vh`"rPCREATE$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 HT`l:PWTREADSLICUP ATTACH PGMIN PGMINTCHAIN PGMOUT:P J PaBINASC DECK-ID A24 ITOS 2.0 SUMMARY-132Jr@PHYhXXXhSXhQ ` hOKhLKB0 hG0HFBCV Atm;;m75rr@P+ 2#h0 `()[0 m 0  m  ` #r"@PVh " PBINASC P8PKUP 8PREPP J P Q8PRMA DECK-ID A25 ITOS 2.0 SUMMARY-132J&@P ` `܀&PQ8PREPQ8PKUPP J PGTRELO DECK-ID B34 ITOS 2.0 SUMMARY-132J@P TPMARKERUTSTRT PRELOAD P D PRELOAD DECK-ID C27 ITOS 2.0 09/18 SUMMARY-132D@P@PBSYSVOL @PJ@PM= OW @PVTAPE0 @PZ@P^@P`@@Pi@Pl @Pn B@PFILE-NAME =OWNER-NAME =VOLUME-NAME=INPUT UNIT =B@P(@P @P ? @P@P0P@P NOT LOADED,ALREADY PRESENT P8@P LOADING 8 @PEOF @P1 @P6d p@Ps hdd hhhd h dhd!hhdh d dȰdȮdȬdȪdȨpp@PddhTG@ h؜6f  h f"f ؈ 1 !npp@P1=dI $J dHڤR W dK dLF0fl8npp@Pl d:lβl / $M ld0dNd l1T01:0pp@P̩d @mܞ d; l< 1$ ld̊  l\190pp@P1J0 dd=   dA3T3  20 " "pp@Pu l̓   lFӜ | @ m I+ dHpp@PRdL $M l0 1d @mO0PH lpp@P 0l̯H  dA~ܻμ  'd9T9 d< d;̏pp@P  =@m̫ 3̧l0lӜ  H@m Rpj@P!dS $M l0d:0dT: d̸   "5j@P4Ip@PI l ! L  0dTT2 ! dU pp@PtVlWdXdEd1TYY $ 4d9OZl$d[[ Tpp@PY60   d7d\U "lTY%\d]^\Y%8l pp@P!   "lT9 d_`  l da$fpp@P? `1dbdcddde  l%ll l dd0Fdpp@P Gd df  dg " l dH;W   lA pp@PK l[  1\ % Qd9w lnnT pp@Pvfܼ 10\E̫ 3 d l fܦ 100;d00`d08Adpp@PBdddh_ 0@l1 3 ldc dbEiddj dHpp@P0=f0 1dkT3  16l * l dmf pp@P1T01n0TY%\d]^T  l̯ l ΰfpp@P"ܧ 1\0o01 d d0 d\E 3 d3T  ̔ !pp@PM d T""d#d$dkd1T 9@  !j X\Y%pp@Pxhl̐3  dHh5̱n1T%b ֤Z  " pp@P1T "f 1b\%p ̦ ̬ ̨ "  lTpn@PY%hd]^? dqdap!4cdr$d4%d5$hTn @P1ONހ$ hT p@P nn "ɌlEQ 3 lbl l?Ĕ2 λpp@P0  ̨lܧj  df̛0l ̗ l̔ u dq dp dap\@P[!TД  cl l \\@P~@P~@P~@P0~ 8"@P@P@P*@PT  @ HH* PRELOAD rPWTREADGETFLD^MOVEL 4TODAY RBMPRRN`PGMINTSYSMSGOBFIMKfLUNEQ RWBUWMMPREDXCREATEERCHK OPENFLFr*PUPDFCBePUTS CLOSFLMVCHARWRITER*P D P&ERPROC DECK-ID C08 ITOS 2.0 SUMMARY-132D @P h h l <@Ph 1 H TTh\h< PERPROC PQ8PKUP Q8PREPP J P)MPWRXX DECK-ID B45 ITOS 2.0 SUMMARY-132Jn@P h  ɀhHhh H hT!@@@nPMPWRIXMPREDXP J POBFIMK DECK-ID B46 ITOS 2.0 SUMMARY-132J0@P H f  b0 POBFIMK P J PRWBUWM DECK-ID B48 ITOS 2.0 SUMMARY-132JT@P HHhh 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,hh!4 A hHh h A hӨh  p@P6Јn @P?h Ènػػ <@PKHTT h\h\h\ h\h< PMVCHARN PQ8PKUPTQ8PREPQP J PBMPRRN DECK-ID B36 ITOS 2.0 SUMMARY-132JH@PHTT"h$   LlH PBMPRRN PQ8PKUPQ8PREPP 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 0L 0F2 V2D20PN0F HOOPrP@P3NC0SC0DOPTJN0!LU0M APTY8P @P0 @P00@P0"     0@P02@P07@P0<@P0A@P0G@P0J@P0M@P0S @P0X @P8Z @P0[ @P0^ @P0`@P0c%&$@P0l$@P0q @P0t @P0v @P0x@P0{!@P0#@P0" @P0" @P0"@P0 @P0D@P0# Dr@P T33?/dT{ d1Tx dX9Trr@P+1x hFddT33z:/4Ә.0Ә%Ԙ!rr@PVӘ0Ә    d0D T3 rr@Pc B`+# Ӡ H "" -A .D` err@Pii$T(1x 0 f hh;dT1|zrr@P  `0@+0E 0E 8wGd0Tz g1T TTrr@P{T300?0/d0# d _V AT391zSIOTrr@P-zK ",T!31z1Tz: :T1x9TJrr@PX1xTh 0VTno"HEOUINPUEX%UT  $$ rr@P  UTIL IN READY READY  END UTIL  rb@P(  UTb PFMUTEX jPSYSMSGfUTSTRTCLOSFLOPENFLREADR COMSEK{INPEQ ,OUTEQ =GETFLD6WTREADUPGMINTPGMOUT_PGMIN jP J P6SEKVIT DECK-ID B03 ITOS 2.0 SUMMARY-132Jr@P H/h.TTh)\h(\h' L% H#!!`: `  v  r"@P+l`" PSEKVIT PQ8PKUPQ8PREPP J P2REDLAB DECK-ID B04 ITOS 2.0 SUMMARY-132Jr@P H,h+TTh&\h%\h$" ""h"hh ""h "h THr@P+` PREDLAB PQ8PKUPQ8PREPP D PTODAY DECK-ID C02 ITOS 2.0 SUMMARY-132DH@P dddH TTh h hH PTODAY  PQ8PKUPQ8PREPP J P0NXTVOL DECK-ID B05 ITOS 2.0 SUMMARY-132Jr@P H,h+TTh# H#B!!`: ` 0f x  l`r@P+ PNXTVOL PQ8PKUPQ8PREPP J P*COMSEK DECK-ID B06 ITOS 2.0 SUMMARY-132Jp@P h%h#h! 0@!    0`  L 0 L lp PCOMSEK P J PYMOVEL DECK-ID B07 ITOS 2.0 SUMMARY-132Jr@P hShONhMhI hKhChAhFBA8<A h< 6n; 6750QH 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 hqhrhlkhjhc h\hZ h[hYBZ8RA hTBZ8LF"K#hI hPLN hGrr@P+IC hD@ 8nB8:4QH h9 -1)W 0t%n)"(n$( l&#r\@PVh  h l #h  h00\ PMOVER P J PGETFLD DECK-ID B09 ITOS 2.0 SUMMARY-132Jr@P HQHOHMHKHI hGlE (?  a)9 n6  1 $:n/ 5n,B rr@P+H-H-'$&QH h'" > <  l0  l )  *rr@PV  W tnn#h h %  lװ#lr@P l PGETFLD P J PMMSIZ DECK-ID B10 ITOS 2.0 SUMMARY-132Jr@P H&h%h)h$h"/"!   "l "lh T)*`rr@P+.r`PV4(@P/K-J[EF( PMMSIZ PSYSMSG P J P!GETVIT DECK-ID B11 ITOS 2.0 SUMMARY-132JZ@P Hhhh  " `"m  `Z PGETVIT P J PSYSMSG DECK-ID A33 ITOS 2.0 SUMMARY-132Jr@P HK!"hE!dhDH3  j;TPSP4"TPhQP*!vTrr@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 ȮX2whthrr@P \$ h H ! qH  HHa2Ƞ(h!n rr@P8 H X X' hdLH 1  :X H"A HB0Fh  0Xrr@P O 00j qa! -" hh! urr@P-  HTLDhhFHHSYSTEM MESSAGE XXXXr`PX`Ph( PSYSMSG PREADR !CLOSFLOPENFLP J POIOLUNT DECK-ID A31 ITOS 2.0 SUMMARY-132Jr@P X2XY XXfXm X)XP XX^Xe X!_ ht rj  XoXNXU XX8hgXO X [`rr@P+ ÈnEYh[XC HMHL hS`!hF""HCYhC h) @""h'h8 D H5h6 4rr@PV. '`  `1 Tq l  j`rr@P 1H`h h<, (zXT"k ,(rr@PhX28ȻX)X, βjp @jp  n U nhT0Ȳ;rr@P "譒4 2 hKhD(j<[8a b bbh`&d'rr@Pa)a Wa n  n xx "r\@P-  F"艒 \*PINPEQ OUTEQ PRTEQ LUNEQ !PRTNAM'*PCLOSFLOPENFLP D PERCHK DECK-ID C03 ITOS 2.0 SUMMARY-132D*@P h h h h h *d@Ph 1"! 1LK~dp@P="! 1 h h hpj@Ph h h h؍"! 1j@P/@P0@P  d@P17@P l@P2@P l@P3@P l@P4@P58@P l"! 18@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@Pp@P  l l l lܟ̞"! 1pd@P l"! 1d@P`@Pd@Ph@Pl@Pp@Pt@P@P@P@P@P@P@P@P@P@Pf@P 3d 4l"! 1f@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@P5rp 5ld̴ܵ"! 1GCFpp@P`OM lAܒ̑"! 1 $$ #,  lpF@P l"! 1F@P@P!p@P d"" 2pp@P l̴ܵ"" 2 &pp@Pl &l l܇̆""& 2$pp@P& l} /ly 0dt""V 2TlkjihSf dcba`pp@PQOR][Y 6lM""| 2zFEDCB-@>=< :),75pp@P|3 7l'̲ܳ"" 2   8lp@P̉lT@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 @P2@PH TThX\h|D2 PERCHK  PQ8PKUPQ8PREPSYSMSGP J PaFMENTP DECK-ID F58 ITOS 2.0 SUMMARY-132Jr@PX%X#X!XXXXXXXXXX X X XXXXXH7rr@P+h H/32"4` aADe !aaݘ AA a ar"@PV Vh`"rPCREATE$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 HT`l:PWTREADSLICUP ATTACH PGMIN PGMINTCHAIN PGMOUT:P J PaBINASC DECK-ID A24 ITOS 2.0 SUMMARY-132Jr@PHYhXXXhSXhQ ` hOKhLKB0 hG0HFBCV Atm;;m75rr@P+ 2#h0 `()[0 m 0  m  ` #r"@PVh " PBINASC P8PKUP 8PREPP J P Q8PRMA DECK-ID A25 ITOS 2.0 SUMMARY-132J&@P ` `܀&PQ8PREPQ8PKUPP J PGTRELO DECK-ID B34 ITOS 2.0 SUMMARY-132J@P TPMARKERUTSTRT PRELOAD P D PRELOAD DECK-ID C27 ITOS 2.0 SUMMARY-132D@P@PASYSVOL @PI @PL= @PQTAPE0 @PU@PY@P[@@Pc@Pf @Ph B@PFILE-NAME =OWNER-NAME =VOLUME-NAME=INPUT UNIT =B@P(@P @P ? @P@P0P@P NOT LOADED,ALREADY PRESENT P8@P LOADING 8 @PEOF @P1 @P6d p@Pm hdd hhhd h dhd!hhd d dȶdȴdȲdȰdȮdpp@PdhTF@ hآ06f  h f00"f0 ؎ 1 !n1pp@P=dH $I dGڨ X dJ dKEf0l9npp@Pl d:lβl / $L ld0d0Md0 lT09:0pp@P̩d @mܞ d; l< 1 1l\010 d08dTpp@P3D3  2/ !_[ " l̨  = lZ̚ Upp@Po @ m ? dGΞdK $L l0 d @pp@Pm  'd9T9 d< d;ל  @mܣ pp@P3l̙l  @m܌dNμ , ld:d9Tpp@P: l  0 ". dGΓ ! ΍L  pp@PdOT2 ! dP0 QlRdSdDdT1TT $ 4pp@PFd9OUl$dVV TT06   d7dWP " lTTpp@Pq%WdXY\T%8l !   "lT9pp@P dZ[  l d\$f? `1d]d^d_d` pp@P l%ll l ddFdGd  da " l dG;pp@PW  c l ! l0[0 c 1W % Qd9zpp@P lnnO 0fܼ 1\D̫ 30 d l f0ܦ pp@PH100;d l?fܖ 10l_dbZ @l1 3 lpp@Psd^ d]Ecddd dG=f 10deT1  16pp@Pf * l dgf 1T10h0ToT%WdXYpp@P{T  l̯ lΰfܧ 11\0i0 d0 d8 dpp@P\D 3 d3T  ̔ ! d T"0"d0#d0$d8edTpp@P1 9@  !d (\T%bl̐ T !2Xpp@PJT%j  "TT%bdXY> dkd\j!3^dl΢p$@Pud4%d5$hT$ @P1ON߀$ hT p@P f$n̏ "ʌl l l l]!ܽTД ϔp(@P ̩lܨd (@P@P@P0 8"@P@P@P*@PT@  @ HH* PRELOAD rPWTREADGETFLDDMOVEL TODAY  BMPRRNPGMINTSYSMSGOBFIMKLUNEQ =RWBUWMWMPREDXWCREATEERCHK OPENFLr*PUPDFCBCLOSFLPUTS KMVCHARWRITER*P D P&ERPROC DECK-ID C08 ITOS 2.0 SUMMARY-132D @P h h l <@Ph 1 H TTh\h< PERPROC PQ8PKUP Q8PREPP J P)MPWRXX DECK-ID B45 ITOS 2.0 SUMMARY-132Jn@P h  ɀhHhh H hT!@@@nPMPWRIXMPREDXP J POBFIMK DECK-ID B46 ITOS 2.0 SUMMARY-132J0@P H f  b0 POBFIMK P J PRWBUWM DECK-ID B48 ITOS 2.0 SUMMARY-132JT@P HHhh 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,hh!4 A hHh h A hӨh  p@P6Јn @P?h Ènػػ <@PKHTT h\h\h\ h\h< PMVCHARN PQ8PKUPTQ8PREPQP J PBMPRRN DECK-ID B36 ITOS 2.0 SUMMARY-132JH@PHTT"h$   LlH PBMPRRN PQ8PKUPQ8PREPP 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