d01109831203SYSVOL 0`d1SYSVOL 2SYSVOL `A3f`SYSVOL 00 07-30-80+,`7h 4 3`SYSVOL 00 07-30-80+,`7h 'hNs" !jB chd^>\Zh]* 7i hgjgSnNB JnFB B `Xe d7`dt `D(XQ!`1XEhhUh ` X4 `ZV ` AUTOLOAD ERROR - RETRY IN PROGRESSw4| h~@@77 h#  A jC ȸhȸ h  m k{ hfXy hX"XP1 \~X#XDXW uhJ ʪ h)ʭh?C bh84 .X&51X3 Qh+# K%1Xw =Xj! "  F ` 0|V sO  |H  A  h h h  ՠXXcX"XX%  Ȼ4XIXX XX; 2o1"XOXMYȝ,+ȕ  C hh 7 O h#  l i@k,9db8X"XYX !> GhX ih6mȸkh2 6!!XqX/X4"   H'H q >HbH4 hb @ 4 ` h A "!X*   X"HX  X "h\[v! d45 'd44nXXbha ""  4 $TThR:%<)04=A X! 2532X*< h&@"Ȱ X.ȰȰ`Ȱ ȰȰP h1 h_,hc h_h_h* 01! h &Xr `D Th Yhj h:8Th.-h h hhhȸgaH Hhרh  "h$ !ȸ Hh ȯh h hȨ :Ȩhjhhhh h) ( r#M "ȱ$G"ثhȨ G"ءhȞ G"h`@DPT 6 `.U@@_   @(  # 7X?? @ @   f" "   T 0 ,b   D"ddpf"bo&oEimml9lQllyPUi*^*iO`t lTlT VTT tT T TTT *ST mTT T TT TpUq[;[;[;[;[;[;[;[;[;[;; "i~*f*g*hZԍ=Y(r THIS MSG CHANGED VIA MI'  3, SYID..080180  b   !%)-159=AEIMQUY]aeimquy}  !%)-159=AEIMQU!%%5    ' p -\ w w ,  ,!@@@@@@@@@@@@@!! Y  w p ,TERMINALPRINTER LPRINTER READER TAPE0 TAPE1 $XRmnR Ry3pR  &R  &pR  &R  &R F$ R F$ -R F$ \R F$ R F$ R F$ R < B S/  3(R < C R #u f@ c `@ Thb dR #u f@ c `@R #u f @ c ,`@R #u f!@ c `@ wR ,+< R , < R   YR梤<4 |  R 6FA  |RZJ R( PPPPPPPPPPPPPPPPPnwZe  3<  3 P  3 d  3 x(())+````)F)r)))TTTTT X X"doT$T*DTR T$`*O h 6 l#TRfL  M D(@+JPRETNp#FMEXECrR9TAPF1_R9SEGF1_0 Ehh0r0 z @  t  00<0S@0M0@E`@@`@fD`@@@@E@ @j DDj@k@#@5@:@:@?@ D@M@M ",!,/,=,K,Y,g,u,,,,,,,,,----+-9-G-U-c-q----------. ..'.5.C.Q._.m.{.........///#/1/?/M/[/i/w/////////0000-0;0I0W0e0s00000000[  3 -(OFF UNTIL ????  RMUOPN RMUCSW RMUCF0 RMUCFT RMUCLO a$ a% a!a"a#a*a)Eaaa,a-a - ((" !   ]]a+aAa aS a1`Z\\jwX]]]]]?]B]d]g]]]w]z]]XXXXXXXXXXXXXXXXXXXX     `    Y6Y8YHYKYNYXY\Y_YdYhYnYYY lU A@aA8 )HGFE"hH" n>TWA b ,.bTRY, Rs @V"_ N\ \"X\ h h nX}XtXzXq@bZkYY"   @ 2@   XgXZXQ@ ;" @ 2" AXJXA]WW H" " "YhH θn @ L\ @ Q 2\\ @ 2 Y "*cB* TW2\\  hH@ h /"K"( h B8 A ( ([2[2Z![2Xe[2Z=Z2 hh"!"# dhZAa A7 4R  T" TLa a a  \E ACA\> h3 6.  h* aXb A+a\$Ab Z"aM6d H hXYRXT^y hFTg ` XT^hu" Thh 2X a Xq@hˠb aM' (  ) @aM%hTH"V  h h  H hXYRXT^ hFTh9 ` XT^hu" Th 2X a Xq@hˠb aM' (  ) @aM% Mf$ 4a a5A"-A!a+):aM)Af"Mf""DPp> aT`0 Th%T`2 `f"h h` E  3 oTh9:b GBXT^  `XH\"aXH A"b T^ XcXa1_% Hh   T|T_bTX`h`T`8A"aB8a *ic:aa2` H"B8 hqhT`\bTh ThH\ H"hh B Qh  "h hT`\3Hg 1@#3aI7  ' !f"E"""b""b b b  T^w7%M X#%  f4.aKFM M'`Xz" X` M h " 1t1, Xc}`f"  b b  T^w X? a T^  hTi,a AXMHTh a a" &T_{"` T_"`ζXX'X " XB a h HF "Tb A A  " A H)h(h!h!h ̃hT`^fbTh`"b "ThT_T|H^T XFkXV X?eXO X8hZ@"":R*O$O GX X/ XXX( >` "\;f"D 30  q h"h s"2\  @ `  "\Df"X1b1c1N1R1V  X  X  X  X   X HHH@ ErJ q""D`BDX X hHX hm hl HjHis1a3 ^ \`+WtSSS.P hM X1  d2bR?d2`H;;8f66` t, `% FX  X "X Hh h"2 h f"h " 01B1C1DV X.H @HH# h'X& `ߘhBH0'`޲#mX`(ш"  hDmA  ؾ   XH"a BH80'`ͦ3mȜXȜ` AA ha   TTRZThZ C*w 0` cN Nb0 f ALaM oX % X1ML L"LLL "X f ALaM܂ X1LM mNmhi emZTZhY`ASaRa 2a + hKJaa T`a Th%T`!>a$ a% a!a"a#a*a)Eaaa,a-a - ((" !   ff.a+aAa a[ua1iObleaedraieeeeeeeef+f.eeff"aaaaa a&a(a*a,a1a6a;a?aCaGaKaNaQaTaX     `    aaaaaaaaaaaab b lU A@aA8 )HGFE"hH" n>T`@A b ,.bTRa Z @V"g N\ \"X\ h h nX}XtXzXq@bbb'b/"   @ 2@   XgXZXQ@ ;" @ 2" AXJXAf`@`d H" " "bhH θn @ L\ @ Q 2\\ @ 2 av "*cB* T`Z2\\  hH@ h /"K"( h B8 A ( (ccbc`cbb hh"!"# dhZAa A7 4R  T" TLa a a  \E ACA\> h3 6.  h* aXb A+a\$Ab c^"aM6dMX  wt(Yf`@[u  =+ Ka 7 HHahHQ  Ay  3H x( AH1s /aTQAXX # !/aH""&  1# 7#",w BAX acbcgckcpcuczc        dd ddd'd-dJdSd_dadidwd|dddddde be4c aAA+XoMH"hBCh "  7\|GA h8 h n2a! &a-# Aa(a a  b #" Q+b   b  T^~PhT`W,b Z 1XC  t# X9   X2BUDUHULU\U\UDUDULULUXgX#X #" Bg!Xf`@ "E\A  DXw *c*  7/Xe /bX8X "!Q  "aXHX"#   " h% h#"9 "3 "AL!'A#La" aAXa#b/aX XacdM #"\a\cA\\^\]  TD\\~\,.b"2\"\l\k  lg#X 9DPp> f"!b"b#b%4b$f" #X>f"%1 " Aaf`Z`@`dA#aL+bh ( 4 nL  b bXO%+b> -a&"a7X:h6X8a%X6H4X4h1X2a"\A(X-"A'(\\\A) ', a- a!Aea l'h (h   "" \H \ h n\f"\ f"\ f"F R`Z`@ XC"B\A4X=B\A5/  : u c c, , \A]X Xh\A6 \A] \A[u  ""A0a1 A XH ΦcG A 2"ff Ab2A3 aaa,a-aUAa[u`T{G a !\bb 2%a-a,a%`K [hhhT`f{bTh` ThLfr+ZZ X8 f"  l!X" Z "H Ìnbbb b  T^wXX Z `T_wa\Th hDn!Q " Th`dZX T^~ T^p b  lsZ T`@""aaa aa b "a a a aT`!\s\pbTh T^p \c\3H_ \`[1\Z'RX@G" a(XK#.,BA" "T^-<-a" v g "T^p \! &3 "T^w 2  ,'"Bta`17 1"H# ZZ" % $  ta H h t1dnT`H `31\ȼXDr.A9ȱ*H "bl .(. "Y 1%ta `1472Tb)a+C<-a"  T^~" T^pI ZUh TP$h" ZT Y9 : ; <9 : ; <Dd f f TA9|%$" '\ry"H2h0 Kh˾ n$h9T+hX3b8_#d42  TAN" X2"XJ f" E"HDhTTA"X7Hh -Kh˾n H#E"hTXLR hHXH +a\Q\T!\" \TA"QXAXwR  8A"" (ρ" aaE"hTTA"XHhY t n E"NahTT AA ha+a B\="a1Aa"a"a'2f"  aIA"kPkPkPkPkPj Pnll.Pj j \HThBThX A` !1-p ".Th lH`2 @p ,+*i"DpTl @Tlh@X8&b@l"1 "+2lDbx"2aaaI %1C"I 1+a2a RT`Af"bbi A ""1bbda"I   bp*""p*f"Is  3, b%"aa+aTkb"a"1 kb"2" "f""2f"bbb @Tl@TlX""I Db1 +2l*Hd+6#0!- &h)'Tah"h ` f q H"c  Bq h@*u*tt#b @ b q H f" Bq @hTHh"3 a"aX~TA4Š x"12 A Q"Z3bbXzH9L, DOWN {Y n>/X\ AhL hTk/nbb "2f"HT bHT s bdbTŠ x"122d 0F400 hKΈ(B " h"5 aaTk"aTkb"4aaikH F  4 """aH"1 h"+h!2b4 h12 a2aH"1"i+!!2a"aH"19"+Ȱ122"aH "D+DmDb2bb@ @X "a@@+X ThƷ!" pi"*+,+b L d d Ʒ!Lh!opT hDh  DSA?d+XKH#h#+ ` 2 +T PARITY, 0000hH  h h"hhd"mb`d" `T"XhXȈ h X h X ȈDd " : ADRrmbb@@`@"A+ O VT@TI"I a a 2HcT1_ 1 Z AbQhh"bNDT wX '2= 9bb @Tnqx-b!H"Tp Shh\b` 8 X To a1JlI h hTLnRX l3:h497TRn{& h# Lh bf"TC+ @ hTTnjooDh T*( ȺhȹhTHnhlh bǰ h92"#a"1,"+" "P>" ' " "p*TRnTC bTả l̄ 1\hTRnhThh H  Q "5bb a A  GTlY "I) A  Ah a" 4"a"n2a ,a ">a  a i& M J G D Y   { a "1 a a  a TA TA " !a A a"Ib bK  7 h0b* h%## bTh"2f"hT`a{#a" S     hTRT$2d 2esR4R4!aC *w P y##  PQhsHshHxhE  h>  Ð X3ZZXyBhUHUhT hSRQPOX9hEX7hAX5?h?hX;" XUX 11XQ50.XX  &X" X/̵""خHhhX X @X h h Xc ĸ Xn  " X hwXx 9p$ HlpX>gX_XA^X?]X=[WX: ^X- hhVRXX/ !X^G# 2 hA<2esR4R4!'6211 XVH*h+XB)&%ah#X!X X4 Ġ a A ! AtX" ** X XhHX XX 1XX7D λHD h5DhȻh$а hDeHth-  3@|hHs  k hX: g `!]_ W TX QhW p hP hOM AD ;X! 5)1% +)ȵ a8,h& fhh"X0!ȩ      X! 49 h  X  X 1"!%ef`)$cCsȋވv%2+CQaqJF2wxyyz&{{zrT boaaThĀb \b TTR s @T"+ThDaaDa"xaHhv"\o \la\k $ (( 42b 0(\N KfT hKh         N  2   Dh[2h)BabhMwouvu HD Th@H?E 81H56f1fTbTAaaD "ӠhA a h h  Tuv lsaD "0 \ȡS Ka 1MD "   h h h\s  (B%a(    HI \T"Tv 2=   B@f: &" "$!h!H&a #X ahaX O"f bG a HrL!vtH.H--@)qaahaXh a@HHaahaXh)B@D   #^ l\ \\ABaRhTtGJ\I@hTt@"8\7!51+hTRu Tu @\ D "b &p!\ \h nR!+hҠd :pfTnp1Đ+77h Ta h gaDaaT ubHY`"+Th& f]3Z2"4h( 7X' X3KpfTTnp ft"autaAhhhgaaahg[""5a hWP\NW,RhKQhJ  HAhA&B8<A (9h81\/84h03h/*h.)h-%T|,e&&" aAHh!3 Q.Hhh\V|v'(BD " hHhh\32aDavXa A1b hT  `n2fT$DHaThh|Hl hlhihb` h^]\"\@ "TTMM-H@h/H-9h*H($\)!"h!HPGhH' " hH \"hO`vDfbbbb l!H h"T "bbbH l bh h /K"( h 8 A ((a"  aKa"( `a" AaDa!a a a XQ  A "Db XI"hh hH h X h XhXDhȢ$ۘ'ș !2b $   h &4(I"D a)BHH%A&  1*a( a' aA A,Tw |wuaAa+A* \ nSgAaDa(a \a(/f'B\(\ 'hB\ˑ'" 'Tw}|_f f(Twa%ȷN (K"(  %a% a a! a2a$+*aTwA"a# b "b (b Tuh S ; 8*+(" aAa,Twbbb b ,(b +)Y,4  Tw3e U1)DftaBHDf A' a Ga aa; Tvt 6*f*'Tw AaA a! T|$ "# %# a+D'A%f/D b # lAt!u\Ca# )#B1 d#a#a%B\% #\#Tw}Da$ a&  a2a" a a a b a!b b Tui S  w   b b b + \a$ ^ f$q!  3Ta $ Tv bh ψ" aaA af # l a aTxt!a"Dh Aa #OaDa T|aa Tw Aa T| a a  2  a!TwaDaf a a a a2a Tug Q1f #Tv"Ata"Dhfa  2 a a Tw}& A ^f a a j2 K"(  aAA! Tug Q1f #Tv"Ata(Dh a\`aA aTx Two +=fDa& b da%% a%\  3| X2Xv,,3 X'X X!X? XXJ*kX,  Ts) h hn   bT'M"  b   1 TsT/ & T,3  , < TAH h +T Ts, /  T' *1`*x54" h./f'TLf &$  f 1!>Ոh׈hh֠  h;` V"PRTȻU"h^"h^#hTHf4hwT9T`h h h} * THsHz T2Hs d h* ,  ,ww 1> jY A hSGsQ  sK<3F   3 3># 3 w-7H*k,3 30#-3 *ww(#  w w  s w 3    H ` !    "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X uXTk1!cJ ^WhZVhU RhS LhKG"F A= =!H   H&h& `X;` V"INTEV3TP B: :.:H:E =<3 =3hN<K83 T$0  T?Ȁ22" T; ==3 TȀ12" a T3TP  a X  h X X*kT  "&;  15 '-   % `3%TRTs  %h3TR& ->  3ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZH,X2"h+X/h((h*%Dh%!Hh Lh  ! Aj B B Ȉ Lla""8Z%d"ؾ@Hi RAl" X`[ bl3"3TEH TR8THLlw"hK bTC!,T;l"h:8   X2Xv,,3 X'X X!X? XXJX,  T h hn   bTsM"  b   1 TT/ & T,3  , < TH 5h wTa T, /  Ts *1`*x54" h./f'TNLf &$  f 1!>Ոh׈hh֠  h;` V"T<Ȼ"h^"h^#hT)Hf4T wTTh h h} * THsHz T2Hs d h* ,  ,ww 1> jY A hSGsQ  sK<3F   3 3># 3 w-7H,3 30#-3 *ww(#  w w  s w 3    H ` !    "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X uXTk1!cJ ^WhZVT RhS LhKG"F A= =!H @ > H&h& `X;` V"T<V3TP ^: :.:H:E =<3 =3hN<K83 T$0  T2?Ȁ22" Tb; ==3 T2Ȁ12" a Tb3TP Z a X  h X XT  "&;  15 '-   % `3%TR3+T  %h3TR& !3TR  ^H s T G^ !T T T "N"& &B0 " Th\"bX /*  b+. h#`h3Ȁ"X4h  Tah(Ih!HhDhEX4h TaTh+*  fTh+X. /.fTh*Xu.0.EThXg/P*  .# :"U"w   pbT aB*k*jr*irA*pa*na"2 a"F!B "aY aD a Š H . }z C$" ` hnp"f"ji fdbhT$X`aTh ` ,jki qH ` "j` q?`aThz3 0.q)nh(h(H&TRo#`  3">"1hT b `hTXȪ h C` jS qN\Kh8OTmrh< =H7 5H3h3@ \9h#<Ƞ \4h&B581H2\. =Hh,\(B :hHTLU MM ERR XX LU=XX T=HHMM:SS S=XXXX XhSkd@XgTR@XRa<jhTR HxqX2nX jgjgjg h@)fgimjj j [j TH@ THBXHL "h> 7H6X    v"`"` jjT 2a  2TbTRu$6 6@XTR@XdhH jIYHk 4@ڳb$bXbM AʳX`H` jX/h)ʣjjX#HʢXTR@ʋ@hn "jg "F YA 5A  P"GjGjC hC@H1Xq.   D a3  H@a3  hHTbu1`H*+  l"h$"X$XeT,3XX XX4 X X@  Y ! h hn   bX *M"T~  b " Xa   T ,3  ,    b<       T" T~ X+, ! X *< >P >< 2 a XZaQX,f"X> Daa? X; >  hXl#XXXb: : XWX; X ? Tp/  a aX@X6X2aX', X:  a ;! Xp ,X a X0XsJXo h h,hXX%+ XU  ? ?P ?D; 0 a . .  b b %b h,hX֣#  3)/? X@XX!XX ,hDnX@=w?"?P > .. ? ; X@X@ XD> ;  X(t? D> BHhHhP T| aAa> Hd: Xh H :  n@2A@T a=al"  := aa c= =XaIaK 'T !8UaX"h cQd X? aI aJ aKX j'X JcV aT !G h  T,!H   &   : '*JOB,J:     H??5END OF JOB:v;*5{ !$? AV cW?) WARNING: OUTPUT DATA EXCEEDED OUTPUT FILE SPACE HT" HTAV 9 N"cW = aSXmh cQ!;?5aT;;> a)T :67Ua;  ʧcV X =T,a   a;Xaa  = X!? &X =Xh cQ,<"> T !8Ua:X aITaJ =X~h cQ kT !8Ua>X j#X<3:q a Xc4X< F"<32 b V!Ġ:  $  8 5 ? tEecVX!DX%a =E; aSX X. XX%aLaM aNaO %"X %cp&*k*j*i*l*m*nB0F 0 0tX"Xl&a = FcPX$ 0F 0 0th71`( H j4 )c=T !/7Ua =Xӱh cQ4> aX$$PRINT $$BD $$ SYSVOL c= cA aI aJaKX j'XX9:U0aXec VcLXaO %c"Xf%c^(  T  1  :9eJY cV  XSX%a =? a $$PRINT FILE FULL, FILES ARE BEING LOSTX$ aw  cVaWaX  X!z *JMNN RECEIVED, STATUS INVALID X~; X> ru7%=< #X< 3 T !8Ua$$HOST $$ SYSVOL $$BATCH $$ SYSVOL h  c%>Xүh c%h  hh c=T 9UhX҄h c%T :7Uah ="hhXKh c%T :7Uah ="hhX'h c%T :8Uah =Xe h c%T`h3h cT <`hhh3s2 2 (h51h=h< <X+<X(3 j:4j7@ S*  b# a&bH$h"hT! h ab@ ; a"I   ! 9  f"a 11r  r ta "H/ h,h((nw 2 h"H! Q@!1! 1h h" /b  3H:h;:h<8h842 ! h,,H)@H(bA""l" l ! h@lf"bAH b b"$a$H0H, `&"@rQbAdah `lbTRyc2 ?&th_H^\T@U(HY\SHVPhhMQRh8`nL\EVG/nGe`,H`@``=\anY5U`DaO1A1n.(%& BhBChbT 4h1TRU n QHla{hhxHhj n hb ` "\V"aYHhTRJXJhUR XFhVXChWTL i8X8hC@ X4hDTLi hETLuTHDya3330C H)e s  0F400L, FAILED ALT, ACTION RPQ"h`JanFDT B=`Th4` hTTa &@0n#ch hTR"XoonpTRp X{YXTPTa?a9a6aAB81Aa !a#" :l 5lBT$(l(lhhl lT *l*m*n*o*p*q<<d_@TaaaTaTDa*a(a)aa2 Tp/  a TZ"a,Da+,Ia, a a %  T%T\ a#  T  A%a$a#D T}yTT@Th#`aaTxCd y"X`aDhja aTxe"b" 1 T% f1)TxTT TE"dGFhA'#> a9aB@ ` \b%'$42@\'#T T'3lTa a B @Ta Tx42=9/%   l*7*1"E'# 3l(7(2W'#4+T T  a a11a 4a TȰ2rTbs a  a   Tx ! Y AȰ!H"Tb_ 2 5%a \ TTH \ 2 qT}y  A%a$a#   ! ,TlT TH T3"TTr22RT@1*7*!X< b# \a) \ \ , %!!S@$5~BX r 3 qr)ISR ('   C hh   O h #   r@"}HȲfXp hH !G h/ h !G%Tx bGHHd. 1 !G!F 2H Tp/ *7*2  Ja X3RaQAA dTl\LT\HE")  nX_X\Tr X =a's3#hp   ,W 0U(6(" Q  G"41RX T 'N3hLM T TH) T'@3h> a T'#  ' 3) a)X?a('!3h5$a53#h  r*X3$a) ~5%5a54- T'#&BC\W\ @%q@   Tp/2FF 1 F TFA    2Tx  , ( 4#  4  21hE2 :aD T" %BC %T  @ @ 5a  h#  A jC ȸhȸ h AA X$3D Dh hXh d91TXDhX; !XVXO !X?5 '3XXR' *"Ƞ " hhDXD XEX X="7 rXXX" ؝8" F     s    ' a  a a3 a! a"  XX  41T7  Tp/4 \1" Ra-a0TA. -a XX "a1GAEj"2a17 rB11aaAA @'#EB @  T41 h @'#G#FB T+$+hh1@  r 4* T'#&DR  0\'# \'#3#d'  P bT a#w  A  " f"@TYT@?nY 2a H TbT {CE ERROR= CP OUTPUT QUEUE FULL, FORCE RESTART CP ILLEGAL BLOCK TYPE=CP ILLEGAL CMD BLOCK DPSP=CP MULTIPLE BACK RETURdp X`<E`A*C  3S\gH*"'m@!j4 hHX;H h T\onf.HaPXh XH h hT&\beh " `  hˆ`hhhVhRh` a_a `a` `aZ `a^ `aaac `a` aU Vaq Xao ab` ]h h h h^ :h h_ ]h h` h^ ]h h hoBSB""o/4h da A X LIB a; aN G` hM hSh~hX hy aOp2- A  Xt IN +' +cB A+ +da  Π XX:  XMQ o*P 0FȀ004h A X6 L Οh/ n h< a<; a; Άh  cB T'/ nn~ i  hh l ZhT lh 0$a h3 u#  a al !h y  r HU2Q I ^              "2a1Ba2jbHXHhh *M*L*P*V*U*Z*K*N*S*T*R*A*DM*DL X6A  h X%R  / nA/ n~  X Rv AC A&$EȘFX'XH nc<XX?h:"Y66 // nMИ' XX' nB :1 !Qb  h aHI8h"!%Y   Y `X pahjHj4h!BHe^aG a `aGAa X|G ZR4B0CahMIQ A  Xf A  X_ FINI  a G" aG"hhh X/ aXG aG SECT. FILEH h XhTLH% a X HhXHh h hXjX j h 0123456789ABCDEF``h3 }n0 qh HA 0%D   aEX 0 aE A HhX A  Xk FINI  hY` hUAT 0F400lIHGG 1 dhB>AX>L;:l987 a 3 `h-` h h XoTLTn A  X  h E aEa h hXjX j h 0123456789ABCDEF` aja ahaiaja XD `a XRXh?Xe)"7  FPaha aiaha ai. ajX+ X:d X7aB>. ajX X*d X'a2,X Xj Xg Xd Xa hj0aj X X XqaA X_ahai XdHThSH?` YŠ .h h "QhyhhOs"2h"  X" $ ah A H"\h Tp/  `a   X  aX SAa # X)   U t 1A at `ahhXw T\hTL \_Ȕ AQq `a a a T\  Q_ bh# ah A H)bfGj 1hGaG!h a ah W h a A aLIBE *T on 1 aGaaaG zXS 1 a!a `a ;| Tp/"Tp/h Tp/ a `a GaGA X%:aA X` atalapahaiaj a?a=X7B   K %aH4  HXqXV X[f XXg!GXa * X*A X% A XS h `` ha ` Xh aHXSH hXAajXWMD Aa  XH1 XehAi  hX X Xe Xb XHXV Xf X!  UhOB1A aHH bh~h}8b" 1A !m)1UaW O Xdax Xr\b3`baG  Aa # X aaa zXp  3 M7"B!b0f"Db+aA X:$Db !1A daxa{ a 2 X(a{ 1A dax a 2 X `XhW!T aV XT   a amapalaiahawaaf a=a?^h Xmh h X_Ai X"ajAkHUaW O XO aIaDjh  XHhw \ X aXaaQkaYaaRaSi"2anXYa XAa G Xm!1h&X al a=a? ajdYaR2an a?Y a XY aYRYS` UlaW V X X AhAim"   `X{hW^h X XPAAQaaRXudhqq dhm^h XlXf lblb X.L[l[ \ X_fRaQaLKGF `C ?f `X?2`` UlaW V X2mah amRAkb XvHfhe X X'     >bh` :h h $hTp/   #KhJH h XHMmg X  4 h1/D nB ! wؠ `XX1Ȗf+' #w؃ ؚ2anaYa XC  PPP@P`PP `XhW a awahaiaja~a|aCatauaTalap ada?a=a`X$T   XoXCatXAXQavXBau XSABavtTuA XHht XhW^h n Xa} HHJ!HhChBUaW O X<dax Al Xa{21h-{XIda'` a 2 X}Xixb{bXVaxa{ a 2 X X` AA} ]axayxdbX0X a{yxaxa 2 Xawa `a aAa X aAa # X h  `aAa # X a=DapalUaW O X g X n XHH  `X hWut$  a@ XJ|wa^h n X? HIaDaAdhu@B1A a|t 1AaAH `}h|aX@v$ @(B1AA h HaDDaC `a`CXbAaD B1a~|,~ |h!ahX?AX>CA5aX5TB )aDADX.H|~a|BHH~Aa`ADCAX `a`XPAa XAa # Xt A@1AAaA@ `aX_ hwXXn@XȁDA !@1  awa a a XP` A``h] X   hM X  hD 1 Xxh9 XpM-' 5B %h"2 "f"hB0`hHX | 6B h1 DaCNaD ) XAa X)n ) XAa # X`X_F    a  bXQhjhahah`h` hBh%Tp/ 6""h/hJX0*)hhX C  a  bXhX  hA X5YŠ hXK  dhXD ~d hXhh  hh hh `hXz3 JȻhȶh ȶ hh} hhy hȭ [hY Xhk'D P nAXjE1.Y (Xx948 H30g*F b &ok nXndj `Kc Fh)X[8[gSonp7 X)XTL` \p7 XXTH \hXT \aA X` a?a= alapahaiajXrT   h* aH1X_Q !h?= :  _ahaiXEQ   ! h"  2ah aiXU    2aj XvHfheZ XXSR   1jajXES    h  hXj XCkhh Xl* XMa a  X^"  *K hhD 8  XD hS M 2  !Ca"Y$ Q!1hPaA  3!0 X Xq#  Xq XHXQ  p Xq Xa!XR   XHH  OB1A a bhxhu 1A a!k h1daxUaW O X XoYb3` ab"A1f"hbaG aa zXR  Aa # X 1aA X@*Db '1A dax"a{ a 2 X.a{ 1A dax a 2 XA X G a "Tp/&   + a GHX2r Aa Xh,XH aEh%#h('n A hN `Ah" " H h TDhX`aXXZH/ 0alA=UaWl? O X =0'hA= =h =h  a>dn>`l V Xla?2anx  ay a?{yXyxy `a ] XocAa Xa ;"aY a@aCaB ] X `a@AAa XBh!kh ` 4hX  !@AAa # X~aDB`4h h l H 0h&XH# hX H 4h 0F 0H 0F 0 X RECORDS TRANSFERRED h ChT  j q HX9  FILES TRANSFERRED h%H$Y   E!1YD  HHKXHXYbhhz hrahrahp hl `ahjfhfcAa XSX ZMB0Ca hN  aN !%KI   ? h=8 h64X /1.aad (hih i2Ahh = a= 4 a=pp  ApA=UlaW V Xll 4  UlaW O XZpA]"h4h4a\=b2\h+h+Ad\]f" !la\ !p\= lHpH=H x! alapa=aDaaM `a`aLLMAa Xa ZaKXwLlMLAa # Xwa3 ` n A `aMLAa # X] aK DhZa|aa aB1a~"Df A `aEAa XH=h%&; 5wXK$*  ' `a~"1X"X|  " "   B1A a|LIBEB!a a|A Aa # X|a|Dh H   1 h c+ AdaH&p4 h"dpDaCN aDXaA X`f" f"X # X#Ddp `a`C h0aC ] X `aA@Aa XDarZaD `4h A  ! A a zXH_HXX-HZHPh\QN@   F  c+ q+da+3"aGa X1h,%A``h,dh*hdp hX\Dp"p#D*@ onh HTHhKH8_h4hEd 1h!h*h;hh2h!hh/X X$8-h+hhXܶTH\XܤTL\HX 1H#Nh `a^aA X^f" f" # X #hXhthh 2rh oTHTnhXHFa  ?h zhoTLTn `aQbX `aZqX `aZqXaDCa@`aA`hB X&A *AFn5F qR n)n# l `araDA@X} a e Xk}aXKa `aLMA@XWOh^ he hYhWh\hX c qPs"H"HEEhEG6AD2=d R@ T A=1!#h0* 1= $9"0$h$! a9(hcc aO ,  4    hh AEE (hE aE7 Fh 2 cs c qaaȷaO S^h & cI  $ c nC h hHYŠ  hh*h)hwX$TH h\agaev(hhon>hbXHHhoTL`  3"DTnH"h h hHT HhXLOADhHX% UQ6[0123456789ABCDEF +Biv%``a A4a9 a: a>afae/]    T AA e" !14;E+H kAYd P e #D asAtthT` + ‘s hiheXaeAfa aoma/y Aa-X 4-Th `efTva 10Q6 X2X af (X E XP aa9 XI1**E*T a 3 Q6X aX ENTRY POINT TABLE - Xg X ***COM Q^ X ***DAT Q^lRA A. a a }|0Cda- c A: a a a .. a.ѐv aH- 4|a h- Xg! X`QZ 4XYn  43b4b A9 "X 9"9XX X  (&$" (cB aaaXB0A B(aa?*PAGE E *PAGEhtsH h a aXQ(wo8 Q6QbX>a aXXL  4a ?=a B17Q6Qbda a a!a"a e?fH]"a5 " aW X ! X "  a/=a' AAx A( AAy AA!a0We!h  !a1!h/ aW awhgwB0aa %11; !2aahR" audauf ffu2  ° AA k32 ; 0a1  hGXBhB X< 4aa4apaq4arWt4aTaSȝ" a a!Aa Q(X!h !h + X  X\X\0 aQ(a a1Gh XD'13;  aX(9aA" a Q(bX "X9XX   h akh9 `Xю h ava A9AXbѐя"a ! Q(# aaQh!h XXiH+ XXGX a' aX+X! + X4 a+X.a ' aUva aX   XaU a- AXaXa--A Xp A, Aa--",a,B- 1la, Ca+ B@I>jF}h4" v!2 ;+ X&A+ A}X +a- AH-X-A H-X-H-X  a+ aX X , 0' #"H"Hh HtB HpH"Hm HfHehdxXe4"2B1zHZUthXX[2HTRAuwhQHQhOYH"F2hC@%h ~Q a{ a|J w t3       ho`X2 03b o` fB 0 4 h`XmoqpU XBLX XMh* hrXyT oa݀b`)h #fjk qX`ohT%.9 Y "oF #hhB? ; j6f A0 (,* j'f##h T $X J B,XUp!X&`H H$ #fB L!"oHf# '@ "d AX T hX hchTPo5h[hZhY bX T PhX `hXMTXTT 7 b hdphhdool ho`ol JOB ABORTED *TgdaH"h!YHHX Y T@ A`XX""Y`? @  h h" X 4h h $4h 4h h h hhh` V"l#b hHh+ |hzhhpD2h+hQ hxwhuhv @ʰ d d Ʒ!`Z "RHT" HR1 !HMhH Tp/ ?\ 8"i"f;2"I6h" 3| "r "k`` '`'`'8(k'kPk#kk h h:h7X1h44l32/0`RH2$ l l ThbTȹlطȲ  p!H 0` "h T sX~XUX|X  n~oXnXj #p*I" " qa#a cB  a aXoD /Š qbD ԠAhSTp/  h "!h "11"f"T4D0!4h-Dbbbb @pf"bbbb L\4  ~ r?s" jX `" H+HPQhTp/ \ < "H 8 2  Hd4 X  ThA h h \ \ d "#!TA\  \ Š   8aa!  hrp   qtT a (\" aAaa8N@XFB$ aAaQ :A+kTp/ v }B8'Q " a " a8Q \ U A AM` hb'T00 U} H{ob o@  g" qmo@TmrE"aHGYHYD  bb BDp `!$ h hA3 1 Tp/ \ aTooodp!dp  A  o` ltgsh lpTliDpT o`jy A hX jy B DUohs feHB 5? q H9 h V  "Q Q \OX#4 hXE ; 9O, 7XX,LL,LG3210/pp  qo" X!x @ *LIBEDT     ,N  hLj `XaBHL{R2 q7hA"Y  ,6 ȥh02H+X> #b#Aho  $Ωn qȠdoU0403lx  h HTHnoX H LHuQH Dp"p#D*@p ` h*`h(%hʐdhlSH Tp/  X\X " X05 h7ab2 ""(Dh"`  h H   r r4hhJWlCDdUoE"*Vh    "SYȠ  " @X" o doDdVT  ho`po hA?Vh=8XV3Adj6/rp*Bqlj,C  `!#aQr  Xp hT0  Xi hMMhM'  X` hD  h64  .h̝hoh"H"  " !1Y (&  hl8 o04b Tp T  X   H[Dh "DF    "SF   h Ƞ  @ H-X%E# HH T| Ep! ! HO hOhOhO""MH XEV" X Q3 8 ,r^3 Y "   rD rR 2b  2yRBBl FԠh Fh-H3 ap*bb H{x A"bHmhu@"a2 aG4 \= hL\6 6hWhVhPhO L!5 r2""h;h:h9X78S h" 2S/h \ +Tp/ Uh h XTB` h  (,Ah "  " hH b"!f"q!H TD^  3& hh`h_`ph dDb f"h`T hTn Tp hQH T `9 2 `(&$ `4!w1d(h~Axvb @a alH  b DdU"phlDdUoh`ho YO, i #" j qT  a QUS T !T ! READY?  h o`  pB, v }p 15b H YDT To`o`o`Bd b  j qXFDi X h=X=;` Xvȼ` #" jC q/hȅ5h 3h/T $aYK  he = " X'Ajb""QH XYjR h h03b ? ,rU  rC rQ2H * &l  B l"H o`j A h j B DUsh p04l   XX @  T u XsphB" hS hQXhM" XC l l+h=Dh:h9`HJ3Tp/F \A`X\:T 5oh pT `h HTH E5 E10 BRKPT noX H LHaR_H Dp"p#D*@p X X XX6aHI?l dUo   ho`p2 +i"bll"` B  ` dp oH YDT  dodp ` bbbb b dmX#ol   XDT" hT H"h!YHHX Y T@ A`XX""Y`? @  h h" HH2 H1 H+X<N0& $M0 EaX.#% ȸdZ T`ZT  QXH H0"  Tf0 + T` dp hhh ho h tjY q08hc80hb//01HYhX*gh6*h /H1 /h/*fh,T D Cj qo"XT  ئȥ%h`X%"BhXȘBXؕ  v w r r  i _I_DX `OT$ IJ""h@"0h'h 4h161 ?X j h.,h*4 0#>D_1 '# Xj{h'h hXTXXjl h h`$  h"  hDT DDX ݐ'h& h} h Cj, qT D&X jػ hVXT   o`  1700 MASS STORAGE OPERATING SYSTEM VERSION 5.0 DATE OF RUN: MM/DD/YY SYSTEM ID: (MM/DD/YY) X++  +++++  +++++++++++++))++ !"+#$%&!'*+*'!&%$#++!'-)++++(,+"! +(,,(+(,  3'+  +++++++++++++++++8p8p?8pppx8888888xlhHoHH@dX A aX@pOPEN CLOSE REW UNL ` X =  ױ ӱ oh L2   U a"8"> " 1X"Xf"bb""!04 H o f"oh l X"TR hX Toh dU  "X h "3"a X`X ohn 1Dl oh Ua a A f"bbXWa , ( 7 6 2 1  1 4  1 3"a" f"ؽ"4 "Hh00@"HH "44A2H Ƞ  " " 0"Xf"1 ("D Y 040910161718192021  Xh h h hhd6 jȊ h h hhd8zʧjv hhhhnl hX3m ,] "X]W  O$FlH  hB@  h:2l2 |- 1A/ 6={dRh6H'h.X+hh#  Xh (h̥ X ll3 dRh h8 h6 h40hd,!̈hj h'X. ! 6 h  h h l    . &Xus >X7qki #\la QlNlPlHXfXihXehh-h8h XQXThEXQhCXNhAXKh?XHh= hn3 9n0B H1H1+(*QH h+" @# > :  l.  l '  (  W tnn#h h  lٰ#l l04 FNOWVLLUR A W FLRLXh lh   h    llHXXh hXhXh18Xh 93 %l hH XrXuhXrhXfXi""Y`? @  XQXTh%XQh!XNh XKhhhPhT l \H"h!YHHX Y T@ A`h h"X%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`l-h-oH+,2H*@)2H'A ohm 1 ` 3 $X"p4P09H04; 1 Dloh Ue"h   H X"hTI` h"4 "04ob oh l H"h!YHHX Y T@ A`XX""Y`? @  h h"HVDUlRoH @Xa;DR2 q4"H@< qhT !DdVT o`  LU RESTORED JPh04h h{Yp@?m`S  3(!- h<";f"hH2h+B  " h1ט A ˠAq1m  bHT  h-h-"*(Dh"!#h  H   r r 4h lP chOhN p19XI RE 'jQ qT 'LC*Dd=*M77  X"ERR ( hThT LDp hTp h 4hHT  a1(Dh" jG qhAhA `X XX%4 10/ 1* 1 h% a y a r/h  S  Ġ j h  h  1  :j E Dh Ȉ 9j# q h4 @Xy X3 1 h' `#h!F*!hh"Y"Y1 hd Ġ ϠthXDh"h#h( hh hh h 1sd"ZX  XXphd `X^m_M] `yhhXSmTMR6߼hXeX9"c!!X(h hhȽ!X@** n$ h!XhȭhXȨ9X,** n h X ;/hT $p2 &YK   $  6 hH X j q" 7 4 1 HvhpRhnt jh6gŠ Z[QhYWUVR `HSOP5NK! h% h#C@Ah! `h6hX M 4hX X/X h&$V XkhH/hT  SECTOR NUMBER Y h hT `1 LAO LSO LDO LAM LSM LDM LST CIU@` @ ` `!` !` `#"''@&@```$!``$( X H ` Mh2 RhOh]D hrHphp ho hphhn  1  :jgE dDhbȈ``_hHVhTL zx q h~ BP, BP TL 'j/ q#hTH(!.FORMAT ERROR PROTECT ERROR #6X" uh ȧhTLfX |`hD hCɕ,ɐ i8ʋ7QȠ    DBH(&%""?o ?jkFh h ZhTL*SAH*SQH*SIH*END*LRG*LHX *LIT *LAS *LSP *LDP *DPC *DIC *DAS *DSP *DDP *JP,*RJ,*SET*TRM*DMH*DMI*DMA*DMS*DMD*LUI*LUO*ADF*BSF*ADR*BSR*WEF*REW*UNL*SLD e q & HFh h h hTZ!,X${BPRSETBPRLSTBPEND BPLOADBPDMPCBPJMP BPST BPCLR BPMASSBPBPLUBPTAPCh.`h,h+ h*  \%     \j HAL#1 1"hn`hhjhi hh  \c    [ \XWjV HTBSh6Ol \H0*H#D3A4A>1;":38!44'0$..!,l))"($%%3""hl h h#1 1  3)h\`hZhY)h hW  \P    H \EFjE HCADXdMTAd/"T   X4aOK hhhhQhhT"R FIRST WORD DATA ( ) CONFIRM DB REQUEST ABORT h H X  hX Hh q  : j H I Ȉf"Ȉ f"h>`h<h;  \7    /   u \$hDh ;3hh  h \h,`h*h) h(  \#     \j HA"# 1"#} X /h ;h zh h .h hhhh*s ' j q hxHx h{h{|hT )(athdH"_h?Qg"  \6 2n0 "Da  hȵQ7$ȯdȫB tj ضDh h=`h;h: h[DhZ hZ  \/    ' \$EjD HBAB?h;h6=:4h761Tp/!  6 5 hh #" H \ \" " H \ \h[`hYhXCh> hTDhS  \M    E \BAjK H>AG hDDhAC@>>9h<:#91551  ! hT #h  \ *s"" CELL CONTENTS @zh.`h,h+ h*  \%     \j HAL#1 1"hn`hhjhi hh  \c    [ \XWjV HTBSh6Ol \H0*H#D3A4A>1;":38!44'0$..!,l))"($%%3""hl h h#1 1h\`hZhY)h hW  \P    H \EFjE HCADXdMTAd/"T   X4aOK hhhhQhhT"4  3*R FIRST WORD DATA ( ) CONFIRM DB REQUEST ABORT h H X  hX Hh q  : j H I Ȉf"Ȉ f"h>`h<h;  \7    /   u \$hDh ;3hh  h \h,`h*h) h(  \#     \j HA"# 1"h,`h*h) h(  \#     \j HA"# 1"h(`h&h% h h"  \     \ h  H A \"h(`h&h% h$  \     \j HA h \"hO`hMhLDh? hH  \C    ; \87j6 H4B 1! ̸)h'hTb H \( \ T" CORE ALLOCATED FROM TO h`hh  \ \ 6hT  h|"hzvhgh* `nwhqBjt " jm i4,"`]! j_ j^ HUT BHMHJKIhK \@DC@Em A :j}  *jz H4 0js.--h(- \!%$"je  hhT] Dh "j ALLOCATABLE CORE MAP h|`hzhyeh?hn@ht ht  \m    e \bcj_ H`A[[`  "`jV"jUjT$`   4 jG H@T b h7Dh655h13 \(-,* )jS'%#X " X8j? HT;Y LOC. WD1 WD2 hN`hLhK  \GX7h 2 A  \=X-119 h62` H 1hTw!% 6h!*s"""z@     \hP`p 0h|`hzhy>hWhv1h0h 2/!}T  `lc]" h  \W!, hh   \HK  hK#0"#h hhhT #a*s""@z  j j  h  \     \j H B   \    H  a Rh;`h9h8  \4 \2.@h*"YGKh'  !   1  / n   n"!hQ`hOhNh:hL \GH  BBBh1H/  \: \8 h"  \. \,!h X h hhTc ""DBv  3+hz`hrhwHt 4ht  \m \k @z  \a \_h  WahOhVhSXp PN HC `B :H;QH h8 23S / H*h,QXD'$% X=` ζg"  2 \E  An "  \ \j%   qj "U37$2h~`hh|~hHtB@4h@hohq hhl  \f    ^ \[\j HX D!hXWhXR h>h>  nH D@zLXc"HX^tl8DXY"XUt n. hF L l Hع   ȴ  X hT  "U37$2c"*sȂ h"  1  :h$`h"h!  \ \h" (YEK    n"!hl"hjhnghE"RBHaH`HDaHWTjV`jcML JDhGGBhBQ%>A \9n9L \4l4 \0bPTh^/ifH h h)T c" h" hUNh=USh;EDh9 @ PARTITION CORE MAP PT JU hI`hGhF1h:  \@ \> h2"< (YEK  /,`   h   \  \" 1hT! "!h=`h=h9h88hb H5 jvB  H- `B H&"QH hc _  7 8 2 2   QjN H` ?iG  X'h2 X$B81h.,8.H,*H'XNHHhH#XJHAhA XFHChCT.! " @tt` SECTOR/WORD ADDRESS = -- -- HH 1  : j J ȈhT`hRhQhQh! hL \GI   \@ < \9 `h h>7h 6h T `9c$" h) #$h# \"՘h" h h hd`hbhahh@]ht \Wh:h9 hWhU  \L \J   K  AAj; H= A  \- \+h0. h-hl((hjT `b " T9PPh"Oh[ȹXZJȷXWJȵXTJ~XPKTa'*s؂""@zRӘhH!Έh !hȧ `h#آh6> CELL CONTENT ( ) hHX Hh q  : j H I Ȉf"ȈbhS`hRhOh3h5 \J1  \F  \A" :   \5 \/ j,   `h 2hT `c"Иh# ""hG  3, hj`hhhg  \c \a   \Y \Wh  OahNhMhWX|  \BTTGa"HHH'X h ."V"h HT@fT" \$T,j-+j, `6 \ d"n "U37$2ht`hhkhkhhhhf hb  \^    T \RQjNXJ Asq!nohlllhjDh7 #n q^LX""YHXtl"TDX"OXt n hGhIEDhGBTG  1  :a"HHH'X h "V"h HT@fT" \T Ȋlش  !خحدȮ ܘ1Ȱ ZhT $a*s ǘ4hX"""@z "U38%{2hw`hhnhnhkhhh6 \b2  \^ \\ UhQ$h#h (hhT bDh> ` c  X,aX)AaX%h$ /A aA hh_h] HTG+ HH 1  : j J Ȉa"HHH'X h "V"h HT@fT" \T Ȋlؙ  !ؓؒؔD HBȐ  0 h-4Q+oȩ ahT $a*s$ h hvwhmh hphpht  \h  e   \@z \WWjYXxRQ A"KI6hFH3G1?=x3:)՘7d%"2!h.0/e#-2&'`"" "" h H`H_ T >c"CXD2AXA7T,a*s0`- "U37$2 CELL CONTENTS () () h H X  hX Hh q  : j H I Ȉf"Ȉ f"h``H^4h\hYh8h h~h~h}  \L \JtjuX}oTm@zll6a h6 6bbq \.^ `h Wh Vh T `ic"C` "X<>*s" *"%h%h H%h$ \ \ \%*s`  "U37$2h?`H= 4h<h8 huh6Xh*hk \-g  \) \'4 @zXph"hX \TNhMh OhNhT0z{T 0c" H&[ R\ \L \v*s H ȥ h-  ! 0"h 0"h  \ \ h" (YEK  !I>  3- ho`hHj'%4hhd h{hwXhuh{ \Ywqtjfsjeiho! Hg H#Xnh_hd@z@` QH h6 51T 0() H*h+"j%Q# h  \ \j Z  hh  \ \ j /ژ֘Ӡ hȠ h  "U37$2 h: H7 \32hh+0hh)X hT(c"HȔ2 \""T dq` g" gh`hhh~ hyh  \w \u sX  \m \k   \d \b hYh^ahWhUhZ Q A HIM- HE `B H<QH h9 34T /(, H(h*!j#Q!V  \ \j H  hh  \ \ jm ژ֘Ԡ hȠ h  \?>hh+=hH;TG  1  :b#HHH*X h "V"h HT:iT" \T Ȋlج  !ئإاȦ ͘1Ȩ bhT $a*sȷ4hL" "U38%|2hY`hWhV  \R \P   \H \Fh@`  jA=j@`1 \2 c"*n "U37$2hy`hhhh  h hh \w(  \r \p" kX  \g \e   \^ \\hhY Q \O ahZ \E|TGa!HHH'X h 5h@11-"/V"h HTgT" \LT"Yj\Xj[WjZ`7:h hh hTaH \1 T .I ` g" " h HH`0#  "h hhy hhz`hhqhqhnhhh6 \e2  \a \_ XhT$h#h hhT bDhA ` c  X/aX,AaX(h' /A" aA hhbh`h^ HTG+ HH 1  : j J Ȉa"HHH'X h "V"h HT:fT" \T Ȋlؑ  !؋؊؉؋Ȋ K HI $ h!3Bdȡ ihT $a*s h=h]/ h,U"Q""@zhC #ha`h_h^h^hO hY  \T \R  \N \L \HJ ChXX5sd44b4#*@h]iJӘ4  `h hh h T `6n"WȨ1" `lؗț!"h "U37$2hi`hh>"V"h HT  `o6za. >)h% `%h$$Y h h d!@hP#9"65 T  c"*sɘ""h ohȹ "صhH >hh ` i h h@ #"!`!`!``$````$&@ ' ' @` @ `` ( h"`a!3h2h  AhTh ""}RHh)j)` s"j"hAGNV[ g rs ~ DEBUG IN DEBUG OUT DB I/O ERROR NEXT DB FORMAT INCORRECT DB INVALID REQUEST DB SEARCH FINISHED DB NO CORE AVAILABLE DB ILLEGAL LU DB ILLEGAL MM ADD. DB ORDINAL OVER MAX. DB ORDINAL LENGTH ZERO X OK&&X l h HTa  ) 27 NEW OLD VERIFY DB REQUEST ABORTED HF+  3/Hhq`h!Hn00 c A ,a  a  h] hY `h\EBX QH hJ  GHDC?>hB9`@a =a A H531$0h.!3 `h0E h@ HU c  c H h A A,/0 Hm `B HffQH h` `\ { ! 1Mf"2  H " b A @9    ..H,)`h.BLH,H,QH =" ,tlM  !" 1 E BH  H Ad n` 1 (܈ h f" f" f"@H@hw`hFB 0'h?#=p>XT +c'" C  X OK&&X l h HTa  ) 27 NEW OLD VERIFY DB REQUEST ABORTED HFHB 1  :>j7 D: 730.Ȉ+ H+ H)@"&d9%Hi  ` +A Ȉ 0e"  Aa'd 00 HEX NUMBERS MLU -- CHANGE MM LU CLU -- &  30\ HMhJ"hH`hF hyh{hxhxhshs< g" q4`hp Hm `B HffQH h` `\ { ! 1Mf"2  H " b A @9    ..H,)H& n !       n n̿ C Ad n` 1 (܈ h f" f" f" @ ! Hh>`hh h1  h h%/hh% hPXDNEh$W h"OLh'D h%CCXF h HT q} VERIFY DB REQUEST ABORT  j q $ ̉h؆"h؁TGb6HHVH1X ,h "V"h HT @ ` ]Ȋ\i # fT"ΫhG ΨhE\B X΢h= Οh;\8 XțXYȖ hTȐXL hT a D X9OKtsX-;"m  Hhd`hth h$  h h/hh hH XF h HT  q} NEW OLD VERIFY DB REQUEST ABORT  j q̗hؔ"h؏TGb6HH\H1X ,h "V"h HT : ` aȊ`i  "fT"ΰhJ έhH ΪhF\B XΤh= Ρh; Ξh9\5 X XSȕ hT $ XF hT a D  mX3OK ) X)k" ***** DEBUG COMMAND LIST *****  $$$ CORE DATA OPERATION $$$ 1 DATA LOADING LHX -- LOAD HEX CORE LIT -- LOAD CORE INTEGER LAS -- LOAD ASCII TO CORE LSP -- LOAD CORE SINGLE PRECISION LDP -- LOAD CORE DOUBLE 2 DATA DUMPING DPC -- DUMP CORE HEX DIC -- DUMP CORE INTEGER DAS -- DUMP CORE ASCII DSP -- DUMP CORE SINGLE DDP -- DUMP CORE DOUBLE $$$ MASS STORAGE OPERATIONS $$$ 1 DATA LOADING, MASS MEMORY LHM -- LOAD MM HEX LIM -- LOAD MM INTEGER LAM -- LOAD MM ASCII LSM -- LOAD MM SINGLE LDM -- LOAD MM DOUBLE 2 DATA LOADING, CORE IMAGE  LHC -- LOAD CORE IMAGE HEX  LIC -- LOAD CORE IMAGE INTEGER  LAC -- LOAD CORE IMAGE ASCII  3 DATA LOADING, ORDINAL LHO -- LOAD ORDINAL HEX LIO -- LOAD ORDINAL INTEGER LAO -- LOAD ORDINAL ASCII LSO -- LOAD ORDINAL SINGLE  LDO -- LOAD ORDINAL DOUBLE  4 DATA DUMPING, MASS MEMORY DMH -- DUMP MM HEX DMI -- DUMP MM INTEGER DMA -- DUMP MM ASCII DMS -- DUMP MM SINGLE DMD -- DUMP MM DOUBLE MSD -- MASS MEMORY DUMP BY SECTOR 5 MASS STORAGE READ/WRITE RDC -- READ DISK TO CORE RDK -- READ DISK WCD -- WRITE CORE TO DISK WDK -- WRITE DISK $$$ AUXILIARY OPERATIONS $$$  1 MAGNETIC TAPE STATEMENTS ADF -- ADVANCE FILE BSF -- BACKSPACE FILE ADR -- ADVANCE RECORD BSR -- BACKSPACE RECORD WEF -- WRITE EOF  REW -- REWIND UNL -- UNLOAD SLD -- SELECT DENSITY 2 CORE  SCN -- SEARCH CORE FOR PATTERN SMN -- SEARCH MM PATTERN  SET -- SET PATTERN IN CORE SMP -- SET MM PATTERN SPE -- SEARCH PARITY CPP -- CLEAR PROTECT BITS SPP -- SET PROTECT BITS SCH -- SCHEDULE PROGRAM ALC -- ALLOCATE CORE REL -- RELEASE CORE PTH -- PRINT THREAD DAC -- DUMP ALLOCATE CORE MAP DPT -- DUMP PARTITION CORE 3 MOVE DATA MBC -- MOVE BLOCK OF CORE MMM -- MOVE MM TO MM 4 COMPARE DATA  CCC -- COMPARE CORE TO CORE CCM -- COMPARE CORE TO MM CMM -- COMPARE MM TO MM 5 OTHER ADH -- ADD HEX NUMBERS  SBH -- SUBTRACT HEX NUMBERS MLU -- CHANGE MM LU CLU -- CHANGE LIST UNIT CIU -- CHANGE INPUT UNIT  CWA -- CONVERT WORD ADDRESS TO SECTOR LST -- LIST COMMANDS OFF -- EXIT DEBUG DX -- ABNORMAL EXIT AFTER MIȯ`  *c  I  31p hTXHdhb`  0c   +aa .a Da aah?h>"h:3G  -aXr[}.-@+.!m h2)h% h$h$ h,XZ[!@$"!XN[  @ !@BPX.[@B0FH 0 n  0n hX[@XSh 0 n XuXY~ۭ@  -n hX[@ȩ6ȯh hhرȭ`  *c  \a"a 1 aBa&***&i]+*dB A  aXV aX1XPbbX*HXEa a ! A"dRa 2H a  HY"hS`  jEB  hKhLhGE Ah A hXX^_ r@,+22 h0 (+h(& "h # hXX?_S@  h  "hWH HH!dh X[G@ [! HX@  6X[}@ n n ȿnfR!۠QJ|Ow5M^LLK@JzHGN E}CBP@ 1 X`A"""a* "a)*$d)RA) R  B H )g*adaXD X1A"""a**!da)a*) ! A+ )hXv)X"2 A)*qd)RA)HX HL@a a`"<Aa a h`Aa a B "  eXADa a aaDa"a 1 aBa_```_)[`V3B A  aXz aXuaa a ! AAA'dRARAa2H aaaaDaaaa aXX=bbbXhX,TAAAa *aAAidadada aaAa' dXX)#a! AaA! ! A! ! A! Aa AXa A! !  Xā XAa! AXa""aaA Aa a  A 3A a s Aaa ca 1 mAa$aAaaa"G #a a a aaaa#a"a[X7X|#a 1  #0ad a  ! 1 3d   #2d A d ( 2adaa1 aDa1 bAaad A2aF ad2aa1 aa1 aDa1 aaaa#aa aa a A'RARAda 2H a a a a   ! aa aa a@@ XidadRX_aA aA !dҰ2H a "a  a A a Aahdadadaa a a a1aA aA aA aA a" xa`daabAaa ba bA a "H1h #h `Aa `Aa a  `Aa a Ma B a#a ADda a a#a n a)a a#a AaA#a2W  3or|AAA AAAaAkdRAada  A AUAaaa  hTXHhY`7h86h7  0g"   +aa .a Ea hE"hB4  XT[}76@ - n11} /b)% 1bb@ hhhX.[@?X#[@BPX[@B0FH  0n  0n hX[Xfff<;A79hی76C4k_BP h hXXz_ @ h h h h֊2  32hXXZ_@ h  #@H Hh!dhX=[@ȫ Ȩ [1 HX+@ Λ 6X [}@ Ȍn ȊnRXADa aaDa"a 1 aBa&***&i]+*dB A  aXV aX1XPbbX*HXEa a ! A"dRa 2H a a ka Da a a a SAA a *aAedada a"(a" aq2XX#a ! AaA ! A ! X4X2a a3A Aa  a"G y @3a  a 2a  1a  a+ c% b XX9R#a aAA \a d a Pd ! 1 d 1  " La1 aDa1  1 aa"dRa -H a a ~a   ! a a a a@`@ XdRX Aa!d׸H a !a A a eda da  a U . a A a A a A  "h s < hAa a h`Aa a B "  e " a A T x"   A g A Rd A RYAa" a  XgAa*a)h X]A"""a* "a)*$d)RA) R  B H )g*ad X0Aa*h X)A"""a**!da)a* )hXl)2 A)*qd)RA) hX `QT Q Q  8Q X=H4hh`h Qh|QhH QDhBSYSCOP STARTIMAGE START SECTOR IS hyhX +h h!$Tr`I@XH0H2esR4R4!HJB8 H"  H T  `!`h /y|Qz܈O(Q xT QةsXHX_XH X B b : AHhTSHO"Qm M JC  A@h%h! X,hhX 'hhX!h W"< HTȤ`T HDh_h_h_h_h_ Q  Q  Q *Z  6Q"H ! 1 h@  Qj B Qh Q > .Q   Q q`Q h Q eh G Q Q (Q `Q hh$:=A h5OKh/QH/h-t A Z"!$H " QHht Q Q QA< C @Q   5Qo&oEimml9lQiiOll`t`Q h H]4Qj"QQaQO q Q"qGhChBhB bhDahCaHBZQ Q 8 hS hNVQ  GhFH hE ?P H  Q# 6 Q h F TQ  H YQ % Q  LL  LQ `Q hhQh) Qh$ Q 1 nQ 2 Q kgCg gQDh<: h7 Dh3 #  33Qh Q  *Q  ) 4 Q # #  #QBHE  Q  Q  YQ Z*Z  #  QQ" DhAhAhAhIXGR!h@9 h5X=Q87Q!Dh4h4  cY A[SBH h > & H  4 " bhLB_^QjHhE]5ZA hWS* T NLh? b G hE" H QA7 iQ:8 N Q Y"K  a5a6a7  Qh1 SELECT OPTION  A Q I REGISTER AAAA QQQQ IIIIFINISH SYSCOP ***LOCORE CONSTANT ERROR INITIALLYBIT TABLE CHECKSUM ERRORADDRESS IN 12 WAS 1234 BUT SHOULD BE 1234MAX CORE WAS 1234 WITH 1234 TO 1234 UNPROT (ERROR)MAXSEC WAS 12345678 (ERROR)***POSSIBLE LEVEL HANGUPPRI LVL WAS 1234 (ERROR)DUMP 1234 0234 1234 2234 3234 4234 5234 6234 7234 1234 8234 9234 A234 B234 C234 D234 E234 F234 FINISH SYSCOP ** `Q hh5h9 <4 Q"j> r H7 q  Q QQA,  (Q6  u0#h.Q QT Q Q  8Q `6 <4Q"j2 r Q** S0@aPP qQQaZA[@# Q aL  2 AL  LQ `Q hh* <4 Q"j7 r Q / ,c@ sHA( ' (Q*t  Qh2Dh/ *3#h' rHbDh^\ hY DhUhVhV  QPP"a4BH QAT Q  PQ Q6,#U(' g#E"c1 &3B Q ((  (Q 9 Q  UQ`Q hh E4Qjr C4 Qh"#ISX b  3UNX q% H#s hH # Q QQA*  3Q a8  &Q`Dh]h]h_ X$Q h&& h$X';h&( b   h QBD 8 LQ   DQ  E4Qj r Qh=;Q -B0C2 4. Ph-*B) h'QAj%"!!" H QHBc1 q&/&  &QBH( H% `Q hhh 5QYQ QŠBĀ h&."S h Q B  Q Q:a.H FWRa4ITa5 ,Q_UU`Q hh h0h1YQhW{8Q P3;0h/Xh++X(F c t Q QQABQAL  ?QQ QƠBĀh_UDh h Dh ` Q h h hhh!h,h={QTQOXCL QA;  *QY Q" Qm QD X* <B;h Q Q Q*$QA5%QAG # $Q b HQiQXA Q W TQ   SQM@Q  X)6 Q W %Q   Q%h%Q h Q V :Q 3!3  3Qhh h 4Qj r^ Q  $Q h_ hZVQ  ShRT hQ  Q hD QhDhAQ h Q h7Q h4  _h 4Qj q AL L4Q  q QXXA? H? Q< p0Qa?A@  BQ   >Q 6 3$h":ȼh  QQh Ȩh Qe\h\ AY qYRQFhLb1)Gc ?$ z w t q  Q86 Q-B0 h' \ (Q   $Q h!! #*18?FbipTM[wc@ Q h>^;Q 1X5Q Dh4Q. h, Q Q'>$ h"A!DhĈ;h9X75XC hcB2Q1X$$hQ ,IXhXh X hX"3 8 & " " }Hh 1 FhD 1 H AQd XBXQ YWXY-dodo`X1X@ YFXHdo`bhXX,  Y.X0b 2 2  XhXXh" 4Y"Š  H h2629 qf"| XXHYŠ T3~k0h)op XEXZ"hda+a*j*p*k*g*h*m*n*l*f*i:31R5l"X8l2XA0X3h0 9EB0F 0 04#X1!X#h! 15 dll <d*qlDl*ThH F4 B u cT DE ;̛hZ ;hV 8hT ̓HPhP̎XhR̉XhṖX :HKhKT D:ENTER DATE/TIME MMDDYYHHMM DATE/TIME ENTRY ERROR JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DECDATE: DD MMM YY TIME: HHMM:SS h"hK $j qDd"`3 ! T D8y  hh% j qT D `hT D AT D `a h C`"BHd! 1=jg qDh C`^Y Y h h:h T D `a` hH;% `  4! )js qT D `naؖ 4# T D Dd#TEFSTOR MASS MEMORY ERROREF STACK OVERFLOW EFSTOR LU ERROR h#  R $ Q Yh T D TY`h4K Xh.Cq(D " 1 I(` Ij q1XhT D T D  H=`" `X*  h T D `7iT D X#` HX y2vT DgST D LISTING COMPLETED TT D ENTER LOGICAL UNIT (XX) T D a{Bh Fh Yd2a"T `DX` H?h?"D "h6 h3" XJh0"XMhD H* :=H&h&"H X6h!" X2h""XHH%h%h(T D" `00B0F4B8h B8 ȈȈhXd"Xh XȈ h X hXȈDd " : A ENGINEERING FILE INFORMATION LISTING LOGICAL UNIT XX TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT DATE TIME FAILURE CODE HARDWARE STATUS MASS MEMORY READ ERRORJAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC 1711 TELETYPEWRITER 1721/1722 PAPER TAPE READER 1723/1724 PAPER TAPE PUNCH 1752 DRUM 713-10/711-100/713-120 CRT/SLAVE PRINTER 1738/853 DISK DRIVE 1751 DRUM 1739-1 CARTRIDGE DISK DRIVE 1738/854 DISK DRIVE 1731/601 MAGNETIC TAPE DRIVE SOFTWARE BUFFERING DEVICE COSY DRIVER UNIT 1728/430 CARD READER/PUNCH CORE ALLOCATOR 1733-1/854 D  37ISK DRIVE 1733-2/856-2 CARTRIDGE DISK DRIVE 1733-2/856-4 CARTRIDGE DISK DRIVE 1742-30 LINE PRINTER 1742-120 LINE PRINTER 1740/501 LINE PRINTER 1732-2/615-73 MAGNETIC TAPE DRIVE 1732-2/615-93 MAGNETIC TAPE DRIVE 1732-1/1706/608 BUFFERED MAGNETIC TAPE DRIVE1726/405 CARD READER 1732-1/608 MAGNETIC TAPE DRIVE 1732-1/609 MAGNETIC TAPE DRIVE 1713 TELETYPEWRITER KEYBOARD 1713 TELETYPEWRITER PAPER TAPE PUNCH 1713 TELETYPEWRITER PAPER TAPE READER 1729-2 CARD READER 1732-1/1706/609 BUFFERED MAGNETIC TAPE DRIVESOFTWARE DUMMY DEVICE 364-4/361-1 HDX COMMUNICATION DEVICE 364-4/361-4 FDX COMMUNICATION DEVICE 1742-1 LINE PRINTER 1777 PAPER TAPE READER PSEUDO TAPE UNIT 1777 PAPER TAPE PUNCH 1729-3 CARD READER 1733-1/853 DISK DRIVE 1731/1706/601 BUFFERED MAGNETIC TAPE UNIT 1726/1706/405 BUFFERED CARD READER 1747 DATA SET INTERFACE 1744/274 DIGIGRAPHIC CONSOLE 1536 LOW LEVEL ANALOG INPUT 1501 HIGH LEVEL ANALOG INPUT 1536 REMOTE LOW LEVEL ANALOG INPUT 1544 DIGITAL INPUT UNIT 1553 DIGITAL OUTPUT UNIT 1555 RELAY OUTPUT UNIT 1566 DIGITAL-TO-ANALOG CONVERTER 1547 EVENTS COUNTER 1595 SERIAL I/O 1732-3/616-72 MAG TAPE 1732-3/616-92 MAG TAPE 1743-2 ASYN COMM CONTR 1745/211 CRT 1725-1 CARD PUNCH 1720-1 PAPER TAPE READER 1720-1 PAPER TAPE PUNCH MAGNETIC TAPE SIMULATOR 1732-3 LONG RECORD MAG TAPE 7TRK 1810-1 LIAT CRT/PRINTER 1829-30/60 CARD READER 1827-30/60 LINE PRINTER 1860-72 LCTT 7TK MAG TAPE 1860-92 LCTT 9TK MAG TAPE 1832-5 CASSETTE MAG TAPE 1833-5 FLOPPY DISK 1833-1 STORAGE MODULE DRIVE 25MB 1833-1 STORAGE MODULE DRIVE 50MB D18ECM EXTENDED CORE DRIVER PSEUDO DISK DRIVER UNDEFINED DEVICE 6hNPb bb b o?/dodk `" G" HhX0hTBDlG"s XvTh/hX" !Xz   { XZYVERIFYvh XMk`dkh` LbW q b q bG q X)` `` ``aa a ȾB0F00`Цo?doTR)VA" h hT D  T D(@T L # f"ATTT &"&0aA PGb b  hHT h T``LRWY*Z0J T  MSOS VERIFICATION TESTS COMPLETE. TEST MATERIALS NOT LOADED MSOS 5 VERIFICATION TESTS--PSR LEVEL 1XX ERROR MODE SELECTED  # h ?T Z X X XT fslOK X(`"2dYD @7!1!G ϑGG # HKhK X(`hAh;h?h9  38X 1T|:5h+a 3h)a k h aaaad1nT f X-("f" Xc{9Z XKcXBop +XOU1Z"hh H XXTHfTX XXK dU,H   X 1\bh h h81^hh:2N odo h hTLfTnEXX X h H XXgTHfdn} dUdnv XT funOK X X h` h^h^T UZXހQSR3 a4??hHhH1iDf"CbX2Y/Dh;h;1 7t1"/LUbDbb/bb b `e"Daa ad dZ*ph X2 X5M X)T f" X3  ( f1oX X h hT f-S[cwx|& CCS ACTIVE -REQUEST REJECTED W A R N I N G : ALL SYSTEM VOLUME FILES WILL BE PURGED. -REQUEST ABORTEDREQUEST COMPLETEBATCH PROCESSOR ACTIVE -REQUEST REJECTED VERIFY UNTIL ? HHMM CCS DISABLED AT PASSWORD = PASSWORD ENTERED HH2 H1 H+X<N0& $M0 EaX.#% ȸdZ T`ZT  QXH H0"  Tf0 + T` HYhXXXhSXhQ ` hOKhLKB0 hG0HFBCV Atm;;m75 2#h0 `()[0 m 0  m  ` #h hSHQXRXVhHXShF hBhD`hE @ h=:8QH "  0!@:+B$0 h!"0# hh#h  `l ` `"ܠ  `" 1i" H h hTDf 1ih' h"t"-h,cHbh@h$Nh%|{d(+( T Tk(Hi!h h h THaBR`J T !؀vh";hh? h< h> hA6"!f"hhhhhT ATTENTION: HAS BEEN DISMOUNTED. H+h` V"ԲTTh~4h-4h&hC h@ hB hEHK"(H4"!f"hhhhh6#h3=T3 ATTENTION: HAS BEEN DISMOUNTED. +h` V"ֲTTTX+nkj+ hA:b 2X jhUXV|RQ1-a H 'X+BX><;(8 d /d 3T TwKH  BB F$e K 4"wrs$$HOST $$ SYSVOL 3Tح hث3T h  AUTO BATCH MODE DISABLED.53$#"" #n n lww`TR)ZլUVEop*BATCH,FX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X*xh *x`*w hh h &hTHDH}hvq "hn  gf`c h[ahZX^hXVdUhTQWdhNOdKd&I ChH>}W  39cb"43H1A7!11f*x *x ,NȤ`*wd*w*x!SH h hp'h&T DTMICRO-MEMORY LOAD ERROR, LOAD NO. 0 DECIMAL ARITHMETIC ERROR 0 H hT D d**w!d*wTH$A *XPXNA ^"3TRTCPFILEhh 3sT MICRO SUBROUTINES NOT LOADED CP FILE LOAD FAILED ^X:ThKAThKAB0 @aK*  :P, 1Th0hZ = a ddd2    T0  3  s& 13'&%T"hT Ȁ02"Tb;@|Thh`hTpw  hThTpwX@AE!Jh>h9h7hX*  3T Th hhTpw*   MICDMPCPFILE@hXh|h{hvĈThKXPThnli" hhHfՈThKX>Th\ZW" hVHTΠ hKThKX&Th*  9 q h3sT  h !1dH `h  `AM m mFILE NOT FOUNDH,X2"h+X/h((h*%Dh%!Hh Lh  ! Aj B B Ȉ Ll""8Z%d"ؾ  h H h ^hX hu "jeB h[ Xs3 s3s#3!hT P_qXʀUET  9q XGCT  7?h?ST;OP g"B lWRITE ERROR STATUS= READ ERROR STATUS= READY FOR TEST. ENTER STOP TO TERMINATE Z"^#s3"hTB, hN hKhG h&s s033,X;H h76451&Fhh.('XMT $qX<%h4$h3T ) TU TERMINAL FWRITE TEST ERROR ON PORT STATUS= HHHHHH H 0F 0L   l q 0ofhH33&35ss s/Zh hsTh/T(-dRDhU$ h 3@hT qWTh@XH AT  5ERROR ON STATUS= TH,X2"h+X/h((h*%Dh%!Hh Lh  ! Aj B B Ȉ Ll""8Z%d"ؾ hQH hLXd ^ -`VhC H=XX""h6Xh4 0" ,h) (D""h  nB  hVh   3:$ h""8Z%d"h X XX[Xsh? X? XT5$ X/.,$+ X}& XyX= X#^l3"3T XiG^T X  XZ XWTBH#EXITYESNO3 j T  aDh" ! 1 h h ȹ 7hh3 *h h CXT ac*9Kbv#  TERMINAL RESTART PROGRAM IN. ENTER TERMINAL NUMBER IN DECIMAL: DO YOU WANT TO RESTART TERMINAL XX (YES/NO)? TERMINAL NUMBER XX IS NOW OPERA  3;8TIONAL. TERMINAL NUMBER IS OUT OF RANGE. LEGAL NUMBERS ARE 01 THROUGH XX. NON-DECIMAL DIGIT ENTERED. REQUESTED RESTART IGNORED. YOU MUST ENTER YES OR NO. TERMINAL RESTART PROGRAM OUT. HB0 H 0 M  0G`VOLUME LABEL HAS BEEN SAVED AT SECTOR 7F00 ON DRIVE 0 ` Xlhhhh hj^ `1X-VRX2ˆhX#HDX$ЈhX96X hT*T*vXX X|HN"hIHG X" XDb XAb X>h; bXGf"&"b"! 6"b!b" 1f""b"b"bhT HUhSXIPr""KH X>""h(" bX/H"hH X#"Xh͠ f"! 6"b!b$"A1f" Xb h"`THE VOLUME LABEL HAS BEEN RESTORED FROM SECTOR 7F00 ON DRIVE 0SYSTEM MUST BE AUTOLOADED.....` XXhhTȈh hjJ `1X7B>X<ֈhX-40X.hX%"X hXuXTT*vXX X|HN"hIHG X" XDb XAb X>h; bXGf"&"b"! 6"b!b" 1f""b"b"bhT HUhSXIPr""KH X>""h(" bX/H"hH X#"Xh͠ f"! 6"b!b$"A1f" Xb h"v X X XX X XT"XhbXeXh[X](XhUXV`9N "6 X(Y"`@#=1 FX`@1 FX9 1 X`@ X Fb X X Bh5  B XzrBH#EXITYESNO3 '6j T ( aDh "  1 h h   X3.hhi 0hphT a6=Nj#$%SMD CONFIG IN INPUT FORMAT (TYPE 'EXIT' TO EXIT)UNIT NO.(1-3),DRIVE TYPE(20,40),SECTOR SIZE(96,569).... UNIT $ CONFIGURED. UNIT $ ALREADY CONFIGURED AS REQUESTED. ILLEGAL CONFIGURE REQUESTED.SMD CONFIG OUTREQUESTED UNIT MOUNTED. NO CONFIGURE DONE.SYID IN ENTER 32 CHARACTERS OF TEXT...SYID OUTLPCF IN LOWER CASE CURRENTLY DISABLED.LOWER CASE CURRENTLY ENABLED. ENTER 'E' TO ENABLE LOWER CASE. ENTER 'D' TO DISABLE LOWER CASE...LPCF OUT H- `(h) ` 1h 1hXh hhh TDTD X XX/ X X  sft @,  EGtt X8 Xc $ ! XZ XW XTX X XKS u $@Ƞ    "ae" XHh `hXhhTD"G  3<La1aFaG|ȲaD8XXaZJ @V*0Z qO swH Zj0 T q]Dw5 S Zj uM` s5 1 Zj1 X QZ P>) ********LA 53 NEWS ********LA 54 NEWS ********LA 55 NEWS ********LA 56 NEWS ******** MON __   3=` 8Y"Ta. ޘ T%!@ qy@ @C^EF@FN?h0T.%L3EFXQ09PXTa[ Zc@<ޟ6_0^]. Zޘ X#@]T qR y@NINP0T.%L3 WT QT Q^9Z[@0@^ERLYC'X^C0F+_%X(Yy@+^E!C1^ q= pZ [Si([g0*  3>t'Tfvq%T ^05/0@[ \`*_[0ޘ`9U,T" W%SPY`:^Y`_ \C %_DC> OiW __ v^00\ V@;@Oi`DhyLhyC%_ ?W %Yi`D\L\C0Q [,y@BTE_ Chy`DX؂ G i@ OhycD_ۀL_@%i#_جRJ^Y Vi`D]L]C0Q [,W#hy ^_ڠRP^YTW#@^hy`DX݃L#[ X_ڠRX^YPE\ %. iޙR.@iޟ0[ p Ҡ[.oF X $mPېT0pp #S_XdD0A k 9PX0 Zj_Zc_ZcD@t_ q=pyCi m EwDwq= pyCq u EswVLZj@oXpDR  py`D* Zj^Y#^YCi? m? wD{@0P 9mX"%. m0^. mҘ T$Vt@0` `0 ^hy"T$$m ^.]&& _0߶@9X&p/ X 0!q0 ZjWYٱ  ipy rqZjZ0WY Zp?y0ؠ=0 p?.& m$m].. @iHD> ⰁY(0֧6ؠ9..Y'^0ZjT, YR@9ޟ0XݦY 0h w6 ZjY.@.9'0> /0iG kwZji% m% k5EZj.P@Mp%  07֟9&[N]O t p ^@^@ʘ 0 Ѕ5 i ha qZjhA WYjqZj^fWY^X]0h? h ؠl p T t00u upy#_^Y#q u rZjX`DF`DT =@h& h0 @T  T i/Xh X0X o pyc_,W,D^%@pY @D V*Xap _g@i^) @)  =@@_D =c icD@mW, y@G1 0X [@YpY rqZj-9-9q T@pP| D @& 00@Z V*Xap& q p_8| D_@F 8Y@(0֧65 ޞX_8ŞXq5`DX`D  rZj/ / rZjqo@uo@wPw ^_< ^D0}@0ig Mkw Zjh] l] k5Zj 5 p .@/ iY<Tޘ h@h_ X hyi_00X00hyi_p@Xp@@00 30]Xp t@0T _0@X^] 0Wg`D@Pp_^`DpXEEq% s5Zjqo uo swZj 7 7. B._6N.@L. B00 T\Pޟ5ޟ0]O0 SHX T G u 9PX. Q.6N. ]. Q0 t  \T TE  0uG X] T49PX. b._6NVQ  h.tI . b00  0u 49PX. l.6N.@  0\W W %p. l0 \_ ] 0 t XTI 0q @ }T0G0\_E0\ T@W@#]T 9PX0 XuO" 0l_6xT] hRX T 6  q(@hqg@@TX^] u \T v vt X<\0@uG3]0 \P t @tRQ# _ \PޝPޝ0\P %T] WW4I& \_ _%\X@qo tqot0 -t  X&iS\ @0 0 t  6^_qo t qot_0G6W PXT@O06  56]5] t X,0mWP m# lL ̒V Z* TX#hkw Z Zj00tX#TJXYt ] t#]TJYFYXY tT#1w ѧXѝXѝѧѝXѧPXT@8p@8 P8 P8 P8 V8 XFQ8 ZJ8`P8`PXV3bX >P M@@]ZJ @hPXyPX@ Ҙ@ @ @ @ @ @ @yPX@yPX@yPX@yPX@yPX@yPX@yPX@yPX@P  3?ER SIZE-REMOTE TERMINALS._^1_%SPC 1_^1*_8TERMINAL UNIT 000 - (COMMENT UNIT)_^1_%ADC L000_^1TMB000 BZS TMB000(4)_^1_%ADC TIO000_^1_%BZS TIO000(L000)_^1_%SPC 1_^1*_8TERMINAL UNIT 001_^1_%ADC L001_^1TMB001 BZS TMB001(4)_^1_%ADC TIO001_^1_%BZS TIO001(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 002_^1_%ADC L001_^1TMB002 BZS TMB002(4)_^1_%ADC TIO002_^1_%BZS TIO002(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 003_^1_%ADC L001_^1TMB003 BZS TMB003(4)_^1_%ADC TIO003_^1_%BZS TIO003(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 004_^1_%ADC L001_^1TMB004 BZS TMB004(4)_^1_%ADC TIO004_^1_%BZS TIO004(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 005_^1_%ADC L001_^1TMB005 BZS TMB005(4)_^1_%ADC TIO005_^1_%BZS TIO005(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 006_^1_%ADC L001_^1TMB006 BZS TMB006(4)_^1_%ADC TIO006_^1_%BZS TIO006(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 007_^1_%ADC L001_^1TMB007 BZS TMB007(4)_^1_%ADC TIO007_^1_%BZS TIO007(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 008_^1_%ADC L001_^1TMB008 BZS TMB008(4)_^1_%ADC TIO008_^1_%BZS TIO008(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 009_^1_%ADC L001_^1TMB009 BZS TMB009(4)_^1_%ADC TIO009_^1_%BZS TIO009(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 010_^1_%ADC L001_^1TMB010 BZS TMB010(4)_^1_%ADC TIO010_^1_%BZS TIO010(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 011_^1_%ADC L001_^1TMB011 BZS TMB011(4)_^1_%ADC TIO011_^1_%BZS TIO011(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 012_^1_%ADC L001_^1TMB012 BZS TMB012(4)_^1_%ADC TIO012_^1_%BZS TIO012(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 013_^1_%ADC L001_^1TMB013 BZS TMB013(4)_^1_%ADC TIO013_^1_%BZS TIO013(L001)_^1_%SPC 1_^1*_8TERMINAL UNIT 014_^1_%ADC L001_^1TMB014 BZS TMB014(4)_^1_%ADC TIO014_^1_%BZS TIO014(L001)_^1_%EJT_]_^1*_*T E R M I N A L_!I /8Y"Ta. ޘ T%!@ qy@ @C^EF@FN?h0T.%L3EFXQ09PXTa[ Zc@<ޟ6_0^]. Zޘ X#@]T qR y@NINP0T.%L3 WT QT Q^9Z[@0@^ERLYC'X^C0F+_%X(Yy@+^E!C1^ q= pZ [Si([g0'Tfvq%T ^05/0@[ \`*_[0ޘ`9U,T" W%SPY`:^Y`_ \C %_DC> OiW __ v^00\ V@;@Oi`DhyLhyC%_ ?W %Yi`D\L\C0Q [,y@BTE_ Chy`DX؂ G i@ OhycD_ۀL_@%i#_جRJ^Y Vi`D]L]C0Q [,W#hy ^_ڠRP^YTW#@^hy`DX݃L#[ X_ڠRX^YPE\ %. iޙR.@iޟ0[ p Ҡ[.oF X $mPېT0pp #S_XdD0A k 9PX0 Zj_Zc_ZcD@t_ q=pyCi m EwDwq= pyCq u EswVLZj@oXpDR  py`D* Zj^Y#^YCi? m? wD{@0P 9mX"%. m0^. mҘ T$Vt@0` `0 ^hy"T$$m ^.]&& _0߶@9X&p/ X 0!q0 ZjWYٱ  ipy rqZjZ0WY Zp?y0ؠ=0 p?.& m$m].. @iHD> ⰁY(0֧6ؠ9..Y'^0ZjT, YR@9ޟ0XݦY 0h w6 ZjY.@.9'0> /0iG kwZji% m% k5EZj.P@Mp%  07֟9&[N]O t p ^@^@ʘ 0 Ѕ5 i ha qZjhA WYjqZj^fWY^X]0h? h ؠl p T t00u upy#_^Y#q u rZjX`DF`DT =@h& h0 @T  T i/Xh X0X o pyc_,W,D^%@pY @D V*Xap _g@i^) @)  =@@_D =c icD@mW, y@G1 0X [@YpY rqZj-9-9q T@pP| D @& 0gt  3@0@Z V*Xap& q p_8| D_@F 8Y@(0֧65 ޞX_8ŞXq5`DX`D  rZj/ / rZjqo@uo@wPw ^_< ^D0}@0ig Mkw Zjh] l] k5Zj 5 p .@/ iY<Tޘ h@h_ X hyi_00X00hyi_p@Xp@@00 30]Xp t@0T _0@X^] 0Wg`D@Pp_^`DpXEEq% s5Zjqo uo swZj 7 7. B._6N.@L. B00 T\Pޟ5ޟ0]O0 SHX T G u 9PX. Q.6N. ]. Q0 t  \T TE  0uG X] T49PX. b._6NVQ  h.tI . b00  0u 49PX. l.6N.@  0\W W %p. l0 \_ ] 0 t XTI 0q @ }T0G0\_E0\ T@W@#]T 9PX0 XuO" 0l_6xT] hRX T 6  q(@hqg@@TX^] u \T v vt X<\0@uG3]0 \P t @tRQ# _ \PޝPޝ0\P %T] WW4I& \_ _%\X@qo tqot0 -t  X&iS\ @0 0 t  6^_qo t qot_0G6W PXT@O06  56]5] t X,0mWP m# lL ̒V Z* TX#8Y"Ta. ޘ T%!@ qy@ @C^EF@FN?h0T.%L3EFXQ09PXTa[ Zc@<ޟ6_0^]. Zޘ X#@]T qR y@NINP0T.%L3 WT QT Q^9Z[@0@^ERLYC'X^C0F+_%X(Yy@+^E!C1^ q= pZ [Si([g0'Tfvq%T ^05/0@[ \`*_[0ޘ`9U,T" W%SPY`:^Y`_ \C %_DC> OiW __ v^00\ V@;@Oi`DhyLhyC%_ ?W %Yi`D\L\C0Q [,y@BTE_ Chy`DX؂ G i@ OhycD_ۀL_@%i#_جRJ^Y Vi`D]L]C0Q [,W#hy ^_ڠRP^YTW#@^hy`DX݃L#[ X_ڠRX^YPE\ %. iޙR.@iޟ0[ p Ҡ[.oF X $mPېT0pp #S_XdD0A k 9PX0 Zj_Zc_ZcD@t_ q=pyCi m EwDwq= pyCq u EswVLZj@oXpDR  py`D* Zj^Y#^YCi? m? wD{@0P 9mX"%. m0^. mҘ T$Vt@0` `0 ^hy"T$$m ^.]&& _0߶@9X&p/ X 0!q0 ZjWYٱ  ipy rqZjZ0WY Zp?y0ؠ=0 p?.& m$m].. @iHD> ⰁY(0֧6ؠ9..Y'^0ZjT, YR@9ޟ0XݦY 0h w6 ZjY.@.9'0> /0iG kwZji% m% k5EZj.P@Mp%  07֟9&[N]O t p ^@^@ʘ 0 Ѕ5 i ha qZjhA WYjqZj^fWY^X]0h? h ؠl p T t00u upy#_^Y#q u rZjX`DF`DT =@h& h0 @T  T i/Xh X0X o pyc_,W,D^%@pY @D V*Xap _g@i^) @)  =@@_D =c icD@mW, y@G1 0X [@YpY rqZj-9-9q T@pP| D @& 00@Z V*Xap& q p_8| D_@F 8Y@(0֧65 ޞX_8ŞXq5`DX`D  rZj/ / rZjqo@uo@wPw ^_<  3A^D0}@0ig Mkw Zjh] l] k5Zj 5 p .@/ iY<Tޘ h@h_ X hyi_00X00hyi_p@Xp@@00 30]Xp t@0T _0@X^] 0Wg`D@Pp_^`DpXEEq% s5Zjqo uo swZj 7 7. B._6N.@L. B00 T\Pޟ5ޟ0]O0 SHX T G u 9PX. Q.6N. ]. Q0 t  \T TE  0uG X] T49PX. b._6NVQ  h.tI . b00  0u 49PX. l.6N.@  0\W W %p. l0 \_ ] 0 t XTI 0q @ }T0G0\_E0\ T@W@#]T 9PX0 XuO" 0l_6xT] hRX T 6  q(@hqg@@TX^] u \T v vt X<\0@uG3]0 \P t @tRQ# _ \PޝPޝ0\P %T] WW4I& \_ _%\X@qo tqot0 -t  X&iS\ @0 0 t  6^_qo t qot_0G6W PXT@O06  56]5] t X,0mWP m# lL ̒V Z* TX#hkw Z Zj00tX#TJXYt ] t#]TJYFYXY tT#1w ѧXѝXѝѧѝXѧPXT@8p@8 P8 P8 P8 V8 XFQ8 ZJ8`P8`PXV3bX >P M@@]ZJ @hPXyPX@ Ҙ@ @ @ @ @ @ @yPX@yPX@yPX@yPX@yPX@yPX@yPX@yPX@ Ɖ  3B SF*15)_!LENGTH OF TABLE_^1*_]_^1_%ENT FMFCBS_'SEQUENTIAL FCB TAAL+P$$ MSLEN)_$SEQUENTIAL FCB TABLE_^1_%SPC 4_^1*_1INDEXED FILE CONTROL BLOCK TABLE_^1*_]_^1*_*THIS TABLE IS USED FOR STORAGE OF THE FCB,S OF OPENED_^1*_*INDEXED FILES FOR *JOB 00010*CTO,...FILE: VANS.JCL 00020*CTO, COMPILE ULBUFF FOR 56 TERM'L...............VAN 00030*OPEN,FN=TEMP80.U,OW=CCS20,VL=SYSVOL,LU=21,R 00040*OPEN,FN=CCSITO.C,OW=CCS20,VL=SOURCE,LU=22,R 00050*OPEN,FN=SCRATCH,OW=CCS20,VL=SOURCE,LU=23,W 00060*OPEN,FN=TEMITO.B,OW=CCS20,VL=SOURCE,LU=25,A 00070*BSR,25,1 00080*K,I21 00090*CSY,I22,P23 00100*COSY 00110*K,I23,P25 00120*ASSEM 00130*CTO,END COMPILE ULBUFF..............................VAN 00140_ Ɖ  3C ::q T:P> @@ P>P>  -P>P>P>P>P>P>P>V Z*P>Z*P>V*Z P>V P>TW T00TT0@0^hX@hX P>tta J@H"p`DpiLpiC@_ T ]0^6_)ޙ6 hQT X&0ZX0^T00TT0@@TtT00^  2q q P> > > > > > > > > > > > >Tt XXX#_T00^EX0TXDX T^3_TQGS. I I H|]O p3_IGX$u$t3SD@t t_,X@^@WtQIQY _% ֏ @J\DQP o`T(Ej@)NX"W0^gX d@ZNߟZ.\ XW ]N%4@MP  W^]@QXD]DX $WQ P 0 QRT0@Tb0] p p X$$T(U e TT00XEX T\\ X0WX0VP>X   3D IN F.D.R._^1_%ADC 0_,20. VINOOF - NUMBER OF OPEN FILES ON VOLUALP $$ - VOLUME LABEL SECTOR - MSB_^1_%ADC 0_,22. VILBLL - VOLUME LABEL SECTOR - LSB_^1*_1PROCESSOR CONTROL TABLE_^1*_]_^1*_*THE PROCESSOR CONTROL TABLE IS USED TO DEFINE TSTART DCK/ I,H 00010 DEL/ 1 00020 NAM START A22 A ITOS CCS 3.0 . SL-149 00030 DEL/ 289 00040 SUB* MAXSWB IS THE CALCULATED VALUE TOO LARGE 00050 DEL/ 291 00060 LDQ* MAXSWB SPECIFY THE MAXIMUM NO. OF SWAP BLOCKS 00070 DEL/ 369 00080MAXSWB NUM 160 MAX. NUMBER OF SWAP BLOCKS 00090ULBUFF DCK/ I,H 00100 DEL/ 1 00110 NAM ULBUFF A34 A ITOS CCS 3.0 . SL-149 00120 DEL/ 8 00130* NUMBER OF TERMINALS = 57 (56 + MASTER CONSOLE) 00140 DEL/ 12 00150 BZS X(57*3*96) MASS MEMORY FOR LINKAGE BUFFERS 00160SPACE DCK/ I,H 00170 DEL/ 1 00180 NAM SPACE M02 A ITOS CCS 3.0 . SL-149 00190 DEL/ 147 ::q T:P> @@ P>P>  -P>P>P>P>P>P>P>V Z*P>Z*P>V*Z P>V P>TW T00TT0@0^hX@hX P>tta J@H"p`DpiLpiC@_ T ]0^6_)ޙ6 hQT X&0ZX0^T00TT0@@TtT00^  2q q P> > > > > > > > > > > > >Tt XXX#_T00^EX0TXDX T^3_TQGS. I I H|]O p3_IG  3EX$u$t3SD@t t_,X@^@WtQIQY _% ֏ @J\DQP o`T(Ej@)NX"W0^gX d@ZNߟZ.\ XW ]N%4@MP  W^]@QXD]DX $WQ P 0 QRT0@Tb0] p p X$$T(U e TT00XEX T\\ X0WX0VP>X 00460 LDA =N$120 USE 3 SECTORS AS KIB LENGTH. 00470 INS/ 55 00480 MUI* WPS 00490DMPFIL DCK/ I,H 00500 DEL/ 2 00510 1 /C11 F ITOS CCS 3.0 . SL-149 00520 INS/ 106 00530C 00540 INTEGER MSG(12) 00550 DATA MSG/' FILE NOT DUMPED'/ 00560 INTEGER LENMSG 00570 DATA LENMSG/12/ 00580 DEL/ 516 00590 IF (FCBBUF(1) .LE. KSIZE) GO TO 873 00600C DISPLAY 'FILE NOT DUMPED' MESSAGE 00610C MOVE FILE NAME TO MSG. BUFFER 00620 DO 872 IJ = 1,4 00630 MSG(IJ) = FCBBUF(IJ+24) 00640 872 CONTINUE ::q T:P> @@ P>P>  -P>P>P>P>P>P>P>V Z*P>Z*P>V*Z P>V P>TW T00TT0@0^hX@hX P>tta J@H"p`DpiLpiC@_ T ]0^6_)ޙ6 hQT X&0ZX0^T00TT0@@TtT00^  2q q P> > > > > > > > > > > > >Tt XXX#_T00^EX0TXDX T^3_TQGS. I I H|]O p3_IGh}  3FX$u$t3SD@t t_,X@^@WtQIQY _% ֏ @J\DQP o`T(Ej@)NX"W0^gX d@ZNߟZ.\ XW ]N%4@MP  W^]@QXD]DX $WQ P 0 QRT0@Tb0] p p X$$T(U e TT00XEX T\\ X0WX0VP>X 00920 40 NEWS 00930 41 NEWS 00940 42 NEWS 00950 43 NEWS 00960 44 NEWS 00970 45 NEWS 00980 46 NEWS 00990 47 NEWS 01000 48 NEWS 01010 49 NEWS 01020 50 NEWS 01030 51 NEWS 01040 52 NEWS 01050 53 NEWS 01060 54 NEWS 01070 55 NEWS 01080 56 NEWS 01090 INS/ 67 01100LA 33 NEWS 01110LA 34 NEWS 01120LA 35 NEWS 01130LA 36 NEWS 01140LA 37 NEWS 01150LA 38 NEWS 01160LA 39 NEWS 01170LA 40 NEWS 01180LA 41 NEWS 01190LA 42 NEWS 01200LA 43 NEWS 01210LA 44 NEWS 01220LA 45 NEWS 01230LA 46 NEWS 01240LA 47 NEWS  3G( 01250LA 48 NEWS 01260LA 49 NEWS 01270LA 50 NEWS 01280LA 51 NEWS 01290LA 52 NEWS 01300LA 53 NEWS 01310LA 54 NEWS 01320LA 55 NEWS 01330LA 56 NEWS 01340SYMENU DCK/ I,H 01350 DEL/ 1,16 01360 * SYSTEM MENU 01370 * 01380MNUPRO SC - SYSTEM CONFIGURATOR 01390UTIL UT - SYSTEM UTILITIES 01400EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 01410MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING PREPARATION 01420MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 01430MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 01440MNUPRO RP - CCS20 ON DEMAND REPORTING 01450MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 01460MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 01470MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES 01480MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES 01490MNUPRO LO - L/A ON DEMAND REPORTING 01500MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY 01510MNUPRO EX - EXIT 01520SAVHNK DCK/ I,H 01530 DEL/ 2 01540 1 /L06 F ITOS CCS 3.0 . SL-149 01550 DEL/ 56 01560 IF (SECSIZ .EQ. 569) READSC = 3 01570 END/ 01580_ %k  3H<   3IP @H!h" $A"4a4aZ4hc'"@H@"h0 )>`  hT(HX4h2 ).TM> "%T"2a"TR)T'` )hȸ6 aaaaXaX A a$"Ia# a$2a$XFX2@XX HH#&"H@a ;a  >a Aa t  [H +O C' >,1q .X3 'I #X121a l@ a aX ) *  a1aU :*a      h.$AXcUAha'`@ a a a 1 :a @HH*h)$ XX!a% HXTRZ ah  1  h8H(a d".4Á a &C/""120B4C"$4 a '"#4d a  ) a c    a.X~"h 8(a $LhH" !A   9)a    + .X} XX a aX;m  $ ! h h #hY.X}X}hR a aJX$X >a.aX "&  X"6a" D"2   2  (4 ) ȁa~X'# ,B} 4 1$% a$ $a$ T 8a . a $  #X} <,a $h /    p  .  hA$ >.a A1aa$ hTRV X{ -a A88aj!gh # `` `XZXv+ A HA ,'Q H A a &"DQ0?a Ta V@ `X!#,  hX1 X.Ȯ h  -a -la  H #  X  af hXDh X1  d` X hX X hX ,+ 0 Tg, 1 $  a h & %0A h #!H &XX4!hBXXXXXXXH  " L"}||B!hs "lp nmm!hihh  cd`@_XH\YXȈTmQ a q `  @&1122334455667788990!="'#:$>%"& '/(S)TUVWXYZ_,=(%-\/@-J*KL?M+NOP QR[ <#:hrXX= $ Tga!hXBXXXXXX ȸh f"B !hhbh cȯ`@eH]m ̖f" ؓȒ@2A2H2H4h@hHcTU T a XDAAaaX> a" Aa hVh " HO# H $a 1" h?XyDh;O2hPhPDhL NhoXT"I  `A  hh" h} #z # WX  " 9 X ,1 3 8X! 8U1_ XXX  h X3"2hhDh2hh"h! hX XhXX hXaahh hXX X"!hXaa 1kf" h| XDhX X1  h?g+ A1a ^ f" & _a %X~Dh XcT Xh`Th T XL XI6@H!h" $A"4a4aZ4hc'"@H@"h0 )>`  hT(HX4h2 ).T> "%T"2a"TRT'` )hȸ aaaaXaX A a$"Ia# a$2a$XFX2@XX HH#&"H@a ;a  >a Aa t  [H +O C' >,1q .X3 'I #X121a l@ a aX ) *  a1aU :*a      h.$AXcUAha'`@ a a a 1 :a @HH*h)$ XX!a% HXTRZ ah  1  h8H(a d".4Á a &C/""120B4C"$4 a '"#4d a  ) a c    a.X~"h 8(a $LhH" !A   9)a    + .X} XX a aX;m  $ ! h h #hY.XL,  3Kx}X}hR a aJX$X >a.aX "&  X"6a" D"2   2  (4 ) ȁa~X'# ,B} 4 1$% a$ $a$ T 8a . a $  #X} <,a $h /    p  .  hA$ >.a A1aa$ `  hT(HX4h2 ).T> "%Tb"2a"TRuT'` )hȸ aaaaXaX A a$"Ia# a$2a$XFX2@XX HH#&"H@a ;a  >a Aa t  [H +O C' >,1q .X3 'I #X121a l@ a aX ) *  a1aU :*a      h.$AXcUAha'`@ a a a 1 :a @HH*h)$ XX!a% HXTRZ ah  1  h8H(a d".4Á a &C/""120B4C"$4 a '"#4d a  ) a c    a.X~"h 8(a $LhH" !A   9)a    + .X} XX a aX;m  $ ! h h #hY.X}X}hR a aJX$X >a.aX "&  X"6a" D"2   2  (4 ) U  3Lȁa~X'# ,B} 4 1$% a$ $a$ T 8a . a $  #X} <,a $h /    p  .  hA$ >.a A1aa$ hTRV X{ -a A88aj!gh # `` `XZXv+ A HA ,'Q H A a &"DQ0?a Ta V@ `X!#,  hX1 X.Ȯ h  -a -la  H #  X  af hXDh X1  d` X hX X hX ,+ 0 Tp/, 1 $  a h & %0A h #!H &XX4!hBXXXXXXXH  " L"}||B!hs "lp nmm!hihh  cd`@_XH\YXȈTmQ a q `  @&1122334455667788990!="'#:$>%"& '/(S)TUVWXYZ_,=(%-\/@-J*KL?M+NOP QR[ <#:hrXX= $ Tp/a!hXBXXXXXX ȸh f"B !hhbh cȯ`@eH]m ̖f" ؓȒ  3M@2A2H2H4h@hHcTU T a XDAAaaX> a" Aa hVh " HO# H $a 1" h?XyDh;O2hPhPDhL NhoXT"I  `A  hh" h} #z # WX  " 9 X ,1 3 8X! 8U1_ XXX  h X3"2hhDh2hh"h! hX XhXX hXaahh hXX X"!hXaa 1kf" h| XDhX X1  h?g+ A1a ^ f" & _a %X~Dh XcT Xh`Th T XL XI 3#a  8 X M X!  X1h X!B hB DH"rth h h h hT`2 X X rH  a f"TbhTuqr B2a h." " <hph"$ Hh"Q Q R01a ֠h vQ HBh r <  #E{hB aa X,Xh XnBHjXXXk Xd( X`]DBHZXj ! HRXKX 2A2A( GA%(2H : aT a*@ a'T&OK*'a )a a*T ;I 3  h 1+ h jE " (a ha h"r $  thT a'?ȧahX9'aa>T'Ȍ aTbu` 3 a*a*a) a AAAaaa XX"X?@ XX= XXS@ X a  Da a a  X"I "paX X  D X\XXXuhF" T h?%HX9 XX @ +XU%XBAXaXXXFh" T h%HX  X]XX X!h  4&  o &Q-  cH5a c + > X A @ a XX!" y u D&q X%Xt Da a   A  a %  = q rA 9%    cX  X%a" A "a# a!2" !  AX XX( a : Xf  T*d a   A a : B0 AX  A  @aX    D  d aXo !  X 1      ?  AXI    @    A : BO  !a C DA @A!a "  ?  6 a @@ "2A 2A2A&2H aT a(@ a%T$#NJ('a 'a a(Tȱ:"I 3  h 1+ h jF‘ " &a hˆa h"r $ & "thT a%?ȨahiXs9%aa>T%aTbu  3N` 3 a(a(a' AAA"A!a aaa XtXX@ XX XhX@@ X a   a Xl" "paXH   a# XXK! XX :` #X#!_! X/X BA Da!XX5 XaX X!h  4&   &Q-  cH:a c #'?` X" "" jXT%A#  u H$q K X A    A79# " " , cX  a : X  T*d a  a# a : BFd0 AX  A  @aX   D F aX !  X 1      ? ! 1 @  B :X}    @   BO  !a C DA @A!a "  ?  6 a @@ 2AI 2A a@!T a a X a XTT젂ABAAA#AH X*?  1"X a- a.2 , Pa@ X X<- a- aNH*ccBA 5"c 0cX D !  D' 7  T*d  @# X#A aX?    aX  a(   B a$a'a)%a&X' B  &A%+P"I a) a% x XX) 1a Pa X.1X'nX 1a" 5  "X(TȰ  " f" & (a( Da%;Da qa ba ca da ea fa ga a ya pa `a P9BQ"  }*  {&X' " "  h0~+41 *1A1a .a  f"XX 1a a) a(" da'a'  X$H  f" $Nh$(   f") (XB0( a)1 " 6F _4M9 @a %1D rLa% )RB  a   a%a)3 a$aA aTrTbu" wA&-R.A   -/hX h hX(-R.L" R @ R 6 Q #  "5?=> Hh d  h 2  Ȩ"a>a 1 32547698=&:'">/0TSVUXWZY,\%(@_J-LKNMPORQ$!]*^;A+CBEDGFIH.?[)#<1 32547698#:'@"=/0TSVUXWZY,\_%?>J-LKNMPORQ$])*^;A&CBEDGFIH.[( l" 2_X < 28Xj#a > 'cV X+< !!+ 0F400h cV X HOST NOT SET TO LU XXXw  YB J%e L>X>HXXF>X1#G Xn < 1XL>X12< 2_X9> X*# XD < 1X"X'a = X1B0F 0 0t*k*j*i*l*m*n %"X%cj&X XX! `c= *cA1`( H6 4cE aI aJ aK>X5. X< 1X? j"$$  i X8%V_< XX3%a =Ua<  :=VaV5aW oV*Z  =wV  " x (f"? ' hVnn " *T*c **EOR  opp :(o <>?? ? aVaW l lTRp aV>X,< 2@X> 'cV X < 2)XXB1 X>\< 1X> X^1W XX:%a =< 1X > > (=w a!>X  T'X X4X'a = X*:  a> > aVaWo*Za<   TXh X a=w a?  ruT !8Ua$$HOST $$ SYSVOL $$BATCH $$ SYSVOL h  c%>Xph c%h  hh c=T 9UhXsEh c%T :7Uah ="hhXR h c%T :7Uah ="hhX1h c%T :8Uah =Xh c%T`h3h cT <`hhh3s2 2 (h51h=h< <X+<X(R9PORT R9MODER9UNIT R9USER SYSMSG99PPGMIN SLICUPATTACH:R9RPRT99P 99 PSR9ROOT R36 A RPG CCS 3.0 SL-14999@P99@P+99@P4  99PR9ROOTY9PFCBY9FDC1Y9CMSTY9MMSTY9INMK Y9MHLDY9DETLY9TOTLY9LSTR Y9DOTTY9TOTTY9EOTTY9ALSQ99PY9CARAY9MARAY9UDATY9UDAYY9UYERY9UMTHY9FDTB Y9TBIOY9CMOVAY9INTABY9ITLPCY9LAHDDY9MMOVEY9NSQRF99PY9PAGEGY9TBOTHY9INVP Y9DSEQY9FBSEPOSSPBPOSSKBPOSSPAPOSSKAR9OCOD!R9RECP"R9TANF#R9TFLG$Y9APFX%99PY9ASPC&Y9COUN'Y9DTPT*Y9FDPR)Y9FIPR+Y9FIPT,Y9FLPT-Y9FPTL(Y9FPTR.Y9FSSA/Y9HIND0Y9HNUM1Y9IBUF2Y9KALA499PY9KAPF5Y9PSFG6Y9RECP7Y9RPTR8Y9TOP19Y9VFT1:Y9XRPF;Y9XRTER9ERTN?Y9LABL 99PY9FTNXJY9FSTLKR9USERLR9UNITP9  3PR9MODEQR9PORTRR9EDT1R9EDT2R9EDT3R9EDT4 99PR9FSTLKR9FTNXJR9LABL R9TRCEIR9FBSER9DSEQR9INVP R9TBOTHR9PAGEGR9NSQRFR9MMOVER9LAHDDR9ITLPCR9INTAB99PR9CMOVAR9TBIOR9FDTB R9UMTHR9UYERR9UDAYR9UDATR9MARAR9CARAR9ALSQR9EOTTR9TOTTR9DOTTR9LSTR 99PR9TOTLR9DETLR9MHLDR9INMK R9MMSTR9CMSTR9FDC1R9PFCB99P 99 PR9RPRT R37 A RPG CCS 3.0 SL-14999@PT......99@P+99@P;99@P @C99@P99PR9RPRTR9INTBR9CLIN R9HTIN R9VIND R9USNDR9MRINR9FCTR"R9STTS:R9HLFJ>R9REPT?R9RYST@R9ACC1YACC1B99PYACC1ObR9AC1SR9AC2SR9AC3SR9AC1NrR9AC2NR9AC3NR9PPUPBR9UPOPaR9INRZ;R9INRP>??ppqqrrssttuuvvwwxxyy::#@ '==""99@P99@P׿{#AABBCCDDEEFFGGHHII})J$K.L  3T,99@PL`T99@PMQ99@PQ@`@99@PR899@PX%@`@99@PX899@P^1@`@@99@P^899@Pd=@`@99@Pd899@PjI@`@99@Pj899@PqU@`@99@Pq899@Pxa@N99@Px899@P}m@99@P}899@Py99@P899@P99@P899@P99@PL99@PT99@P99@P @99@P8 99@P 99@P99@Pd99@PS  3U@99@P @99@P8 99@P 99@P99@P99@P99@P @`@@@99@P899@P @`@@@99@P899@P @`@@@99@P899@P @`@@99@P899@P @`@99@P899@P @`@99@P899@P @N@@@@99@P899@P!  @99@P8 99@P! @Ӏ99@P8 99@P 99@P99@PD99@P99@P  /  ? % O 1 _ = o I  U  a  m  y 99@PA 99@PE99@PE_  3VT99@PFJ99@PJ  /  ? % O 1 _ = o I  U  a  m  y 99@Pu `99@P}99@Pz99@PI\\\\@@@@\\\\99@P899PR9TOTLR9LSTRR9FTNXR9LABLR9OTBGR9EOTTR9TOTTyR9DOTTR9PAGER9FTOVR9BINTR9ZCODR9YCOD99@PI:o@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@99@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@(F99@P99@P 99@P :99@P e99@P 2:99@P 99@P 99@P 99@P <99@P g99@P (99@P 99@P 99@P 99@P >99@P i299@P 99@P 99@P 99@P 99@P @(99@P k  3Wh2299PR9XCODR9EDCNR9ECODR9FSTLR9FNBGR9ALSQR9CARAR9MARAMHLD01R9UDAT R9UMTH R9UDAY R9UYER 99@P  @@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@ 99@P @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@  99@P M|(@ 'P Fؠ Π 8<>@BCRVZ^b99@P dfjnrvwy{|'€99@P BȀʀ̀΀Ѐҁ99PR9FDTB 99PR9RPRTMHLD01!99PR9RPGX99 PR9ELOC P57 A RPG CCS 3.0 SL-14999PR9ELOC99P 9 *T *K,I8 *N,TRENDP,,,B *K,I07 *Z *V <`  3X|  3Y R THAN_^1_%SUB* MINPCE_*LAST PIECE, CHECK NEXT_^1_%SAM 1_^1_%JMALPCCS20 TA* MINPCE_*SAVE LNGTH AND LOC._^1_%LDA* LTHD_^1_%STA* LMINTD_*THREAD LOC. FOR SMALLEST_^1CNXT_!LDQ- I_/GET THE NEXT PIECE_^1_%JMP* RCORE1_*REPEAT SEARCH OF THREAD._^DUMMY1 DCK/ I=20,H 00010DUMMY1 HOL/ 00020 OPT LPC 00030 END/* 00040AVMBIT DCK/ I,H 00050CCSADD DCK/ I,H 00060CCSBLK DCK/ I,H 00070CCSCST DCK/ I,H 00080CCSEAC DCK/ I,H 00090CCSGET DCK/ I,H 00100CCSHXA DCK/ I,H 00110CCSMVA DCK/ I,H 00120CCSPUT DCK/ I,H 00130CCSPYT DCK/ I,H 00140 DEL/ 13 00150 JMP* (CCSPYT) RETURN 00160 DEL/ 15 00170CCSTIM DCK/ I,H 00180COLECT DCK/ I,H 00190DATHAN DCK/ I,H 00200GETACT DCK/ I,H 00210ICCSAD DCK/ I,H 00220PGGEN DCK/ I,H 00230PUTACT DCK/ I,H 00240 DEL/ 416 00250 SPC 1 138*A009 00260RPGDT1 DCK/ I,H 00270TAPHAN DCK/ I,H 00280UPD400 DCK/ I,H 00290UPDATE DCK/ I,H 00300DUMMY2 DCK/ I=20,H 00310DUMMY2 HOL/ 00320 MON 00330 OPT LPC  3Z 00340 END/* 00350ACTADD DCK/ I,H 00010 DEL/ 24 00020 DATA UDATA / 'UTIFIL ', 8*$2020, 1, 1, 0 / 00030ACTMTN DCK/ I,H 00370ADDDT1 DCK/ I,H 00380ALVDT1 DCK/ I,H 00390APMDT1 DCK/ I,H 00400AREDT1 DCK/ I,H 00410ASCBIN DCK/ I,H 00420AVMCKD DCK/ I,H 00430AVMCKV DCK/ I,H 00440AVMCON DCK/ I,H 00450AVMDMP DCK/ I,H 00460AVMSRT DCK/ I,H 00470AVMVAC DCK/ I,H 00480BINASC DCK/ I,H 00490BLDSRN DCK/ I,H 00500BLKDT1 DCK/ I,H 00510CCSDMP DCK/ I,H 00520CCSPAS DCK/ I,H 00530CCSSPC DCK/ I,H 00540CHEKID DCK/ I,H 00550CHUPD2 DCK/ I,H 00560CLRFIL DCK/ I,H 00570CMPDLQ DCK/ I,H 00580CMPSUM DCK/ I,H 00590CPYIND DCK/ I,H 00600DAQUEL DCK/ I,H 00610DEBDT1 DCK/ I,H 00620DECMTN DCK/ I,H 00630DELDT1 DCK/ I,H 00640DELFIL DCK/ I,H 00650DHUPDT DCK/ I,H 00660DMPDAT DCK/ I,H 00670DMPFIL DCK/ I,H 00680DPTDT1 DCK/ I,H 00690DSPDT1 DCK/ I,H 00700EDIT DCK/ I,H 00710FILERR DCK/ I,H 00720FTNDT1 DCK/ I,H 00730GPMDT1 DCK/ I,H 00740GTPDT1 DCK/ I,H 00750GTSDT1 DCK/ I,H 00760INPUT DCK/ I,H 00770INTGR DCK/ I,H 00780ITKDAC DCK/ I,H 00790LCLRFL DCK/ I,H }  3[ 00800LDELFL DCK/ I,H 00810LDTDT1 DCK/ I,H 00820LMOVDT DCK/ I,H 00830LODDAT DCK/ I,H 00840LODFIL DCK/ I,H 00850LTPRNT DCK/ I,H 00860LTRBLD DCK/ I,H 00870LTRDTE DCK/ I,H 00880LTRPRT DCK/ I,H 00890LTRSTA DCK/ I,H 00900MHUPDT DCK/ I,H 00910MOVDAT DCK/ I,H 00920NEWS DCK/ I,H 00930NMCHNG DCK/ I,H 00940NUMDT1 DCK/ I,H 00950PGCNT1 DCK/ I,H 00960PGCNT2 DCK/ I,H 00970PGGBLK DCK/ I,H 00980PGGEN0 DCK/ I,H 00990PGGEN1 DCK/ I,H 01000PGGEN3 DCK/ I,H 01010PGGN2E DCK/ I,H 01020 DEL/ 87 01030 DATA F1300/' INTEGER REQBFE(24),IDATEX(15),EXTREC(68) '/ 01040PGGN2P DCK/ I,H 01050PGLTTB DCK/ I,H 01060PGPURG DCK/ I,H 01070PGSEDT DCK/ I,H 01080PGSJL DCK/ I,H 01090PGSJR DCK/ I,H 01100PGSLST DCK/ I,H 01110PHDEL1 DCK/ I,H 01120PHDEL2 DCK/ I,H 01130PMEDT1 DCK/ I,H 01140PRETSR DCK/ I,H 01150PRNTIT DCK/ I,H 01160PRTDT1 DCK/ I,H 01170PRTSCN DCK/ I,H 01180QLOAD DCK/ I,H 01190 INS/ 26 01200 INTEGER DT2(3) 01210 INS/ 50 01220 CALL CCSMVA(DT,1,6,DT2,1,6) 01230 DEL/ 54 01240 CALL WTREAD(LUNIT,-1,MSG1,44,-1,IBUF,6,ITC) 01250 DEL/ 58 01260 CALL CCSMVA(IBUF,1,6,DT2,1,6) 01270 DEL/ 61 &  3\ 01280 140 JLDT=ICALJL(DT2,1) 01290 DEL/ 63 01300 JLDTYR=ICCSAD(DT2(3)) 01310R9BASE DCK/ I,H 01320R9FLDL DCK/ I,H 01330RESDT1 DCK/ I,H 01340RTVDT1 DCK/ I,H 01350SEEIT DCK/ I,H 01360SUMACL DCK/ I,H 00010 DEL/ 14 00020 DEL/ 19 00030 INTEGER HDR(60),DT(3) 00040 DEL/ 21,24 00050 INTEGER TOTDA(6),TOTCP(6) 00060 INTEGER ITEMP(8),LCNTL2 00070 INTEGER JBUF(24),NREC,LINCNT,ZERO 00080 INTEGER TOTDE(7),TOTCE(7),PAGCNT,BLANK(10) 00090 INS/ 26 00100 EQUIVALENCE (MAXREC,IDATA(14)) 00110 EQUIVALENCE (LOKORF,JBUF(23)) 00120 DEL/ 28,32 00130 DATA JBUF/24*0/,TOTDE/7*0/,TOTCE/7*0/ 00140 DATA TOTCP/6*0/,TOTDA/6*0/,PAGCNT/0/ 00150 DATA IFLAG/0/,LCNTL2/$0A0D/,BLANK/10*$2020/ 00160 DEL/ 34 00170 DATA ZERO/$3030/ 00180 DEL/ 45,46 00190 DEL/ 48,50 00200 INS/ 56 00210C SET LOCKED RECORD OVERRIDE FLAG - NO REJECT ON LOCKED RECORD. 00220 LOKORF = 1 00230 DEL/ 58 00240 45 IF ( ISTAT .GE. 0 ) GO TO 70 00250 DEL/ 62,63 00260C READ NEXT 7 RECORDS - 14000 CHARACTERS TOTAL. 00270 DEL/ 65 00280 IF(AND(ISTAT,$8100) .EQ. $8100) GO TO 300 00290 DEL/ 69 00300 DEL/ 84 00310C CALCULATE POINTER TO START BYTE OF NEXT RECORD. 00320 DEL/ 86,87 00330 DEL/ 89,115 00340C IF ACCOUNT NOT ACTIVE (STATUS CODE NOT BLANK), CONTINUE WITH NEXT 00350C ACCOUNT. 00360 130 CALL CCSGET ( RECBUF, IW+305, ICOMP ) 00370 IF ( ICOMP .NE. $20 ) GO TO 250 00380C ADD AMOUNT DELINQUENT TO TOTALS. 00390 140 CALL CCSADD ( RECBUF, IW+886, TOTDA, 1, TOL4  3]TDA, 1 ) 00400C ADD CURRENT PAYOFF TO TOTALS. 00410 150 CALL CCSADD ( RECBUF, IW+905, TOTCP, 1, TOTCP, 1 ) 00420C SET UP DETAIL LINE FOR OUTPUT 00430C ACCOUNT NUMBER 00440 160 CALL CCSMVA ( RECBUF, IW, 16, OBUF, 3, 16 ) 00450C NAME. 00460 CALL CCSMVA ( RECBUF, IW+17, 30, OBUF, 21, 30 ) 00470C DELINQUENT DATE. 00480 CALL EDIT ( RECBUF, IW+874, OBUF, 54, 1 ) 00490C AMOUNT DELINQUENT. 00500 CALL EDIT ( RECBUF, IW+886, OBUF, 64, 3 ) 00510C CURRENT PAYOFF. 00520 CALL EDIT ( RECBUF, IW+904, OBUF, 75, 3 ) 00530C QUEUE. 00540 CALL CCSMVA ( RECBUF, IW+270, 4, OBUF, 88, 4 ) 00550C PROMISE TO PAY DATE, AMOUNT - IF PRESENT. 00560 IF ( IDATVR(RECBUF,IW+1015) .LT. 0 ) GO TO 165 00570 CALL EDIT ( RECBUF, IW+1015, OBUF, 95, 1 ) 00580 CALL EDIT ( RECBUF, IW+1021, OBUF, 104, 3 ) 00590C NEXT CONTACT DATE. 00600 165 CALL EDIT ( RECBUF, IW+274, OBUF, 117, 1 ) 00610C ACCOUNT REVIEW CODE. 00620 CALL CCSMVA ( RECBUF, IW+290, 1, OBUF, 129, 1 ) 00630 DEL/ 123 00640 IF(NREC.EQ.MAXREC) GO TO 70 00650SUMHD DCK/ I,H 01380 DEL/ 28,29 01390 DATA HDNG4A / 'DELINQUENT DELINQUENT CURRENT QUEUE ' / 01400 DATA HDNG4B / 'PROMISED TO PAY NEXT REVIEW ' / 01410TAPE DCK/ I,H 01420TOTEDT DCK/ I,H 00010 DEL/ 38 00020 140 CALL CCSMVA ( NUMED, 12, 1, NUMED, 13, 1 ) 00030 CALL CCSMVA ( NUMED, 11, 1, NUMED, 12, 1 ) 00040TRENDF DCK/ I,H 01440TRENDU DCK/ I,H 01450TRHDT1 DCK/ I,H 01460TRNPLY DCK/ I,H 01470TVPDT1 DCK/ I,H 01480UIDMTN DCK/ I,H 01490USEMTN DCK/ I,H 01500UTFMTN DCK/ I,H 01510UTHEAD DCK/ I,H 01520VALDT1 DCK/ I,H 01530WRTOFE DCK/ I,H 01540XLAT DCK/ I,H 01550DUMMY3 DCK/ I=20,H 01560DUMMY3 HOL/ C  3^ 01570 MON 01580 OPT LPC 01590 END/* 01600COLMAC DCK/ I,H 01610BLKDAT DCK/ I,H 01620ACTEDT DCK/ I,H 01630CHSCRN DCK/ I,H 01640CLANEX DCK/ I,H 01650DAAASC DCK/ I,H 01660DISPLY DCK/ I,H 01670EACTSQ DCK/ I,H 01680EATRNG DCK/ I,H 01690FCOLEC DCK/ I,H 01700GETCHF DCK/ I,H 01710ICHEKQ DCK/ I,H 01720ICHENT DCK/ I,H 01730NMSRCH DCK/ I,H 01740PCPROC DCK/ I,H 01750PIKAMT DCK/ I,H 01760SAVTRN DCK/ I,H 01770DUMMY4 DCK/ I=20,H 01780DUMMY4 HOL/ 01790 MON 01800 OPT LPC 01810 END/* 01820UPDMAC DCK/ I,H 01830ADDIT DCK/ I,H 01840CHNGNF DCK/ I,H 01850CONUPD DCK/ I,H 01860COSUPD DCK/ I,H 01870FORMLN DCK/ I,H 01880FUPDAT DCK/ I,H 01890GETMAS DCK/ I,H 01900LABHAN DCK/ I,H 01910NXTRAN DCK/ I,H 01920PRTLIN DCK/ I,H 01930REACIT DCK/ I,H 01940RSWIT DCK/ I,H 01950TOTALP DCK/ I,H 01960UNCUPD DCK/ I,H 01970UPDBLK DCK/ I,H 01980UPDEND DCK/ I,H 01990UPDIT DCK/ I,H 02000UPINIT DCK/ I,H 02010DUMMY5 DCK/ I=20,H 02020DUMMY5 HOL/ 02030 MON 02040 OPT LPC d  3_ 02050 END/* 02060UP4MAC DCK/ I,H 02070UP4BLK DCK/ I,H 02080FUPD4X DCK/ I,H 02090UP4INI DCK/ I,H 02100UP4LAB DCK/ I,H 02110UP4NXT DCK/ I,H 02120UP4TOT DCK/ I,H 02130UP4END DCK/ I,H 02140UP4GTM DCK/ I,H 02150UP4GTC DCK/ I,H 02160UP4PRT DCK/ I,H 02170UP4FML DCK/ I,H 02180 END/ 02190__   3`  3a0 __  3bD  3cX  3dl  3e p  3f [  3g F  3h 1  3i   3j   3k  3l   3m   3n4 AL7PCCS20 DUMMY1 DCK/ I=20,H 00010DUMMY1 HOL/ 00020 OPT LPC 00030 END/* 00040AVMBIT DCK/ I,H 00050CCSADD DCK/ I,H 00060CCSBLK DCK/ I,H 00070CCSCST DCK/ I,H 00080CCSEAC DCK/ I,H 00090CCSGET DCK/ I,H 00100CCSHXA DCK/ I,H 00110CCSMVA DCK/ I,H 00120CCSPUT DCK/ I,H 00130CCSPYT DCK/ I,H 00140 DEL/ 13 00150 JMP* (CCSPYT) RETURN 00160 DEL/ 15 00170CCSTIM DCK/ I,H 00180COLECT DCK/ I,H 00190DATHAN DCK/ I,H 00200GETACT DCK/ I,H 00210ICCSAD DCK/ I,H 00220PGGEN DCK/ I,H 00230PUTACT DCK/ I,H 00240 DEL/ 416 00250 SPC 1 138*A009 00260RPGDT1 DCK/ I,H 00270TAPHAN DCK/ I,H 00280UPD400 DCK/ I,H 00290UPDATE DCK/ I,H 00300DUMMY2 DCK/ I=20,H 00310DUMMY2 HOL/ 00320 MON 00330 OPT LPC 00340 END/* 00350ACTADD DCK/ I,H 00360ACTMTN DCK/ I,H 00370ADDDT1 DCK/ I,H 00380ALVDT1 DCK/ I,H   3oH 00390APMDT1 DCK/ I,H 00400AREDT1 DCK/ I,H 00410ASCBIN DCK/ I,H 00420AVMCKD DCK/ I,H 00430AVMCKV DCK/ I,H 00440AVMCON DCK/ I,H 00450AVMDMP DCK/ I,H 00460AVMSRT DCK/ I,H 00470AVMVAC DCK/ I,H 00480BINASC DCK/ I,H 00490BLDSRN DCK/ I,H 00500BLKDT1 DCK/ I,H 00510CCSDMP DCK/ I,H 00520CCSPAS DCK/ I,H 00530CCSSPC DCK/ I,H 00540CHEKID DCK/ I,H 00550CHUPD2 DCK/ I,H 00560CLRFIL DCK/ I,H 00570CMPDLQ DCK/ I,H 00580CMPSUM DCK/ I,H 00590CPYIND DCK/ I,H 00600DAQUEL DCK/ I,H 00610DEBDT1 DCK/ I,H 00620DECMTN DCK/ I,H 00630DELDT1 DCK/ I,H 00640DELFIL DCK/ I,H 00650DHUPDT DCK/ I,H 00660DMPDAT DCK/ I,H 00670DMPFIL DCK/ I,H 00680DPTDT1 DCK/ I,H 00690DSPDT1 DCK/ I,H 00700EDIT DCK/ I,H 00710FILERR DCK/ I,H 00720FTNDT1 DCK/ I,H 00730GPMDT1 DCK/ I,H 00740GTPDT1 DCK/ I,H 00750GTSDT1 DCK/ I,H 00760INPUT DCK/ I,H 00770INTGR DCK/ I,H 00780ITKDAC DCK/ I,H 00790LCLRFL DCK/ I,H 00800LDELFL DCK/ I,H 00810LDTDT1 DCK/ I,H 00820LMOVDT DCK/ I,H 00830LODDAT DCK/ I,H 00840LODFIL DCK/ I,H 00850LTPRNT DCK/ I,H 00860LTRBLD DCK/ I,H  3p\ 00870LTRDTE DCK/ I,H 00880LTRPRT DCK/ I,H 00890LTRSTA DCK/ I,H 00900MHUPDT DCK/ I,H 00910MOVDAT DCK/ I,H 00920NEWS DCK/ I,H 00930NMCHNG DCK/ I,H 00940NUMDT1 DCK/ I,H 00950PGCNT1 DCK/ I,H 00960PGCNT2 DCK/ I,H 00970PGGBLK DCK/ I,H 00980PGGEN0 DCK/ I,H 00990PGGEN1 DCK/ I,H 01000PGGEN3 DCK/ I,H 01010PGGN2E DCK/ I,H 01020 DEL/ 87 01030 DATA F1300/' INTEGER REQBFE(24),IDATEX(15),EXTREC(68) '/ 01040PGGN2P DCK/ I,H 01050PGLTTB DCK/ I,H 01060PGPURG DCK/ I,H 01070PGSEDT DCK/ I,H 01080PGSJL DCK/ I,H 01090PGSJR DCK/ I,H 01100PGSLST DCK/ I,H 01110PHDEL1 DCK/ I,H 01120PHDEL2 DCK/ I,H 01130PMEDT1 DCK/ I,H 01140PRETSR DCK/ I,H 01150PRNTIT DCK/ I,H 01160PRTDT1 DCK/ I,H 01170PRTSCN DCK/ I,H 01180QLOAD DCK/ I,H 01190 INS/ 26 01200 INTEGER DT2(3) 01210 INS/ 50 01220 CALL CCSMVA(DT,1,6,DT2,1,6) 01230 DEL/ 54 01240 CALL WTREAD(LUNIT,-1,MSG1,44,-1,IBUF,6,ITC) 01250 DEL/ 58 01260 CALL CCSMVA(IBUF,1,6,DT2,1,6) 01270 DEL/ 61 01280 140 JLDT=ICALJL(DT2,1) 01290 DEL/ 63 01300 JLDTYR=ICCSAD(DT2(3)) 01310R9BASE DCK/ I,H 01320R9FLDL DCK/ I,H 01330RESDT1 DCK/ I,H 01340RTVDT1 DCK/ I,H  3qp 01350SEEIT DCK/ I,H 01360SUMACL DCK/ I,H 00010 DEL/ 14 00020 DEL/ 19 00030 INTEGER HDR(60),DT(3) 00040 DEL/ 21,24 00050 INTEGER TOTDA(6),TOTCP(6) 00060 INTEGER ITEMP(8),LCNTL2 00070 INTEGER JBUF(24),NREC,LINCNT,ZERO 00080 INTEGER TOTDE(7),TOTCE(7),PAGCNT,BLANK(10) 00090 INS/ 26 00100 EQUIVALENCE (MAXREC,IDATA(14)) 00110 EQUIVALENCE (LOKORF,JBUF(23)) 00120 DEL/ 28,32 00130 DATA JBUF/24*0/,TOTDE/7*0/,TOTCE/7*0/ 00140 DATA TOTCP/6*0/,TOTDA/6*0/,PAGCNT/0/ 00150 DATA IFLAG/0/,LCNTL2/$0A0D/,BLANK/10*$2020/ 00160 DEL/ 34 00170 DATA ZERO/$3030/ 00180 DEL/ 45,46 00190 DEL/ 48,50 00200 INS/ 56 00210C SET LOCKED RECORD OVERRIDE FLAG - NO REJECT ON LOCKED RECORD. 00220 LOKORF = 1 00230 DEL/ 58 00240 45 IF ( ISTAT .GE. 0 ) GO TO 70 00250 DEL/ 62,63 00260C READ NEXT 7 RECORDS - 14000 CHARACTERS TOTAL. 00270 DEL/ 65 00280 IF(AND(ISTAT,$8100) .EQ. $8100) GO TO 300 00290 DEL/ 69 00300 DEL/ 84 00310C CALCULATE POINTER TO START BYTE OF NEXT RECORD. 00320 DEL/ 86,87 00330 DEL/ 89,115 00340C IF ACCOUNT NOT ACTIVE (STATUS CODE NOT BLANK), CONTINUE WITH NEXT 00350C ACCOUNT. 00360 130 CALL CCSGET ( RECBUF, IW+305, ICOMP ) 00370 IF ( ICOMP .NE. $20 ) GO TO 250 00380C ADD AMOUNT DELINQUENT TO TOTALS. 00390 140 CALL CCSADD ( RECBUF, IW+886, TOTDA, 1, TOTDA, 1 ) 00400C ADD CURRENT PAYOFF TO TOTALS. 00410 150 CALL CCSADD ( RECBUF, IW+905, TOTCP, 1, TOTCP, 1 ) 00420C SET UP DETAIL LINE FOR OUTPUT 00430C ACCOUNT NUMBER 00440 160 CALL CCSMVA ( RECBUF, IW, 16, OBUF, 3, 16 ) 00450C NAME. 00460 CALL CCSMVA ( RECBUF,  3r IW+17, 30, OBUF, 21, 30 ) 00470C DELINQUENT DATE. 00480 CALL EDIT ( RECBUF, IW+874, OBUF, 54, 1 ) 00490C AMOUNT DELINQUENT. 00500 CALL EDIT ( RECBUF, IW+886, OBUF, 64, 3 ) 00510C CURRENT PAYOFF. 00520 CALL EDIT ( RECBUF, IW+904, OBUF, 75, 3 ) 00530C QUEUE. 00540 CALL CCSMVA ( RECBUF, IW+270, 4, OBUF, 88, 4 ) 00550C PROMISE TO PAY DATE, AMOUNT - IF PRESENT. 00560 IF ( IDATVR(RECBUF,IW+1015) .LT. 0 ) GO TO 165 00570 CALL EDIT ( RECBUF, IW+1015, OBUF, 95, 1 ) 00580 CALL EDIT ( RECBUF, IW+1021, OBUF, 104, 3 ) 00590C NEXT CONTACT DATE. 00600 165 CALL EDIT ( RECBUF, IW+274, OBUF, 117, 1 ) 00610C ACCOUNT REVIEW CODE. 00620 CALL CCSMVA ( RECBUF, IW+290, 1, OBUF, 129, 1 ) 00630 DEL/ 123 00640 IF(NREC.EQ.MAXREC) GO TO 70 00650SUMHD DCK/ I,H 01380 DEL/ 28,29 01390 DATA HDNG4A / 'DELINQUENT DELINQUENT CURRENT QUEUE ' / 01400 DATA HDNG4B / 'PROMISED TO PAY NEXT REVIEW ' / 01410TAPE DCK/ I,H 01420TOTEDT DCK/ I,H 00010 DEL/ 38 00020 140 CALL CCSMVA ( NUMED, 12, 1, NUMED, 13, 1 ) 00030 CALL CCSMVA ( NUMED, 11, 1, NUMED, 12, 1 ) 00040TRENDF DCK/ I,H 01440TRENDU DCK/ I,H 01450TRHDT1 DCK/ I,H 01460TRNPLY DCK/ I,H 01470TVPDT1 DCK/ I,H 01480UIDMTN DCK/ I,H 01490USEMTN DCK/ I,H 01500UTFMTN DCK/ I,H 01510UTHEAD DCK/ I,H 01520VALDT1 DCK/ I,H 01530WRTOFE DCK/ I,H 01540XLAT DCK/ I,H 01550DUMMY3 DCK/ I=20,H 01560DUMMY3 HOL/ 01570 MON 01580 OPT LPC 01590 END/* 01600COLMAC DCK/ I,H 01610BLKDAT DCK/ I,H 01620ACTEDT DCK/ I,H 01630CHSCRN DCK/ I,H A  3s 01640CLANEX DCK/ I,H 01650DAAASC DCK/ I,H 01660DISPLY DCK/ I,H 01670EACTSQ DCK/ I,H 01680EATRNG DCK/ I,H 01690FCOLEC DCK/ I,H 01700GETCHF DCK/ I,H 01710ICHEKQ DCK/ I,H 01720ICHENT DCK/ I,H 01730NMSRCH DCK/ I,H 01740PCPROC DCK/ I,H 01750PIKAMT DCK/ I,H 01760SAVTRN DCK/ I,H 01770DUMMY4 DCK/ I=20,H 01780DUMMY4 HOL/ 01790 MON 01800 OPT LPC 01810 END/* 01820UPDMAC DCK/ I,H 01830ADDIT DCK/ I,H 01840CHNGNF DCK/ I,H 01850CONUPD DCK/ I,H 01860COSUPD DCK/ I,H 01870FORMLN DCK/ I,H 01880FUPDAT DCK/ I,H 01890GETMAS DCK/ I,H 01900LABHAN DCK/ I,H 01910NXTRAN DCK/ I,H 01920PRTLIN DCK/ I,H 01930REACIT DCK/ I,H 01940RSWIT DCK/ I,H 01950TOTALP DCK/ I,H 01960UNCUPD DCK/ I,H 01970UPDBLK DCK/ I,H 01980UPDEND DCK/ I,H 01990UPDIT DCK/ I,H 02000UPINIT DCK/ I,H 02010DUMMY5 DCK/ I=20,H 02020DUMMY5 HOL/ 02030 MON 02040 OPT LPC 02050 END/* 02060UP4MAC DCK/ I,H 02070UP4BLK DCK/ I,H 02080FUPD4X DCK/ I,H 02090UP4INI DCK/ I,H 02100UP4LAB DCK/ I,H 02110UP4NXT DCK/ I,H /  3t 02120UP4TOT DCK/ I,H 02130UP4END DCK/ I,H 02140UP4GTM DCK/ I,H 02150UP4GTC DCK/ I,H 02160UP4PRT DCK/ I,H 02170UP4FML DCK/ I,H 02180 END/ 02190__ H  3u  3v __ =  3w  3x  3y   3z $  3{ 8  3| L  3} ` x  3~ t c  3  N  3  9  3  $  3    3  TOR NUMBER_^1_%STQ- ZSEC+1,I_^1_%LDQ- I_^1_%ADQ =XZSEC_'A(ZSEC)AL PCCS20 MFRD_^1*_]_^1*_]_^1_%ENA 96_^1_%STA- WS,I_%OUTPUT LAST SECTOR_^1_%LDA- BUFF1C,I_^1_%LDQ- XXK+1,I_"A(ZSEC)_^1_%RTJ* MFWT_)SETUP ROUTINE FOR MFWRITE_^1_%JMP* XYT2A_(EDUMMY1 DCK/ I=20,H 00010DUMMY1 HOL/ 00020 OPT LPC 00030 END/* 00040LEGAL DCK/ I,H 00050LPGGEN DCK/ I,H 00060LUD400 DCK/ I,H 00070LUPDAT DCK/ I,H 00080DUMMY2 DCK/ I=20,H 00090DUMMY2 HOL/ 00100 MON 00110 OPT LPC 00120 END/* 00130CLXTRT DCK/ I,H 00140LACLPG DCK/ I,H 00150LACTAD DCK/ I,H 00160 DEL/ 24 00170 DATA UDATA /'LAUTIFIL', 8*$2020,1,1,0/ 00180LACTMT DCK/ I,H 00190LAHEAD DCK/ I,H 00200LAVMCN DCK/ I,H 00210LAVMDP DCK/ I,H 00220LAXTRT DCK/ I,H 00230LBATUD DCK/ I,H 00240LBLDSR DCK/ I,H 00250LCCSSP DCK/ I,H 00260LCHUD2 DCK/ I,H 00270LCLIUD DCK/ I,H 00280LCMPDQ DCK/ I,H 00290LCMPSM DCK/ I,H 00300LDAQEL DCK/ I,H 00310LDECMT DCK/ I,H 00320LDHUPD DCK/ I,H 00330LFTND1 DCK/ I,H 00340LIDACR DCK/ I,H 00350LLTBLD DCK/ I,H 00360LLTPRT DCK/ I,H 00370LLTSTA DCK/ I,H 00380LMHUPD DCK/ I,H 00390LNMCHG DCK/ I,H 00400LPGBLK DCK/ I,H 00410LPGCT1 DCK/ I,H 00420LPGCT2 DCK/ I,H 00430LPGEN0 DCK/ I,H  3  00440LPGEN1 DCK/ I,H 00450LPGEN3 DCK/ I,H 00460LPGLST DCK/ I,H 00470LPGLTB DCK/ I,H 00480LPGN2E DCK/ I,H 00490 DEL/ 87 00500 DATA F1300/' INTEGER REQBFE(24),IDATEX(15),EXTREC(68) '/ 00510LPGN2P DCK/ I,H 00520LPGPRG DCK/ I,H 00530LPHDL1 DCK/ I,H 00540LPHDL2 DCK/ I,H 00550LPRNTT DCK/ I,H 00560LPRSCN DCK/ I,H 00570LPRTSR DCK/ I,H 00580LQLOAD DCK/ I,H 00590 INS/ 26 00600 INTEGER DT2(3) 00610 INS/ 50 00620 CALL CCSMVA(DT,1,6,DT2,1,6) 00630 DEL/ 53,54 00640 CALL WTREAD(LUNIT,-1,MSG1,44,-1,IBUF,6,ITC) 00650 IF(IBUF(1).EQ.$2020.AND.ITC.EQ.2) GO TO 140 00660 DEL/ 57 00670 CALL CCSMVA(IBUF,1,6,DT2,1,6) 00680 DEL/ 69 00690 IF(AND(ISTAT,$8100).EQ.$8100) GO TO 190 00700 INS/ 78 00710 GO TO 200 007201 00730C PRINT LAST QUEUE 00740 190 EOF=2 00750 GO TO 230 00760 DEL/ 122 00770 WRITE(PRT,262)(HDR(K),K=21,40),PAGE 00780 DEL/ 124 00790 WRITE(PRT,263)(HDR(K),K=41,60),DT(1),DT(2),DT(3) 00800 DEL/ 128,130 00810 .9X,'0',9X,'1',9X,'2',9X,'3',8X,'>3',9X,'TOTALS',/) 00820 INS/ 175 00830 430 IF(EOF.EQ.2.OR.ALLDON.NE.0) GO TO 510 00840 DEL/ 182 00850 DEL/ 202 00860 500 IF(EOF.EQ.0) GO TO 160 008701 00880C END-OF-FILE SEND BACK TO PRINT LAST QUEUE 00890 IF(EOF.NE.1) GO TO 510 00900 ALLDON=1 00910 GO TO 230   3  00920 DEL/ 212,214 00930 520 CONTINUE 00940LRTVD1 DCK/ I,H 00950LSUMAC DCK/ I,H 00010 DEL/ 14 00020 DEL/ 18,24 00030 INTEGER OBUF(132), ID(4), RECBUF(7000), KEY(8), PRT 00040 INTEGER HDR(60),DT(3) 00050 INTEGER TCNT(6),ONE(5) 00060 INTEGER TOTDA(6),TOTCP(6) 00070 INTEGER ITEMP(8),LCNTL2 00080 INTEGER JBUF(24),NREC,LINCNT,ZERO 00090 INTEGER TOTDE(7),TOTCE(7),PAGCNT,BLANK(10) 00100 INS/ 26 00110 EQUIVALENCE (MAXREC,IDATA(14)) 00120 EQUIVALENCE (LOKORF,JBUF(23)) 00130 DEL/ 28,35 00140 DATA JBUF/24*0/,TOTDE/7*0/,TOTCE/7*0/ 00150 DATA TOTCP/6*0/,TOTDA/6*0/,PAGCNT/0/ 00160 DATA IFLAG/0/,LCNTL2/$0A0D/,BLANK/10*$2020/ 00170 DATA PRT/9/,LINCNT/0/ 00180 DATA ZERO/$3030/ 00190 DATA IDATA / 'LADLQMST',8*$2020,1,7,0/ 00200 DATA ONE/4*$3030,$3130/,TCNT/6*$3030/ 00210 DEL/ 44,45 00220 DEL/ 47,49 00230 INS/ 55 00240C SET LOCKED RECORD OVERRIDE FLAG - NO REJECT ON LOCKED RECORD. 00250 LOKORF = 1 00260 DEL/ 57 00270 45 IF ( ISTAT .GE. 0 ) GO TO 70 00280 DEL/ 61,62 00290C READ NEXT 7 RECORDS - 14000 CHARACTERS TOTAL. 00300 DEL/ 64,68 00310 IF(AND(ISTAT,$8100) .EQ. $8100) GO TO 300 00320 IF(ISTAT .GE. 0) GO TO 100 00330 DEL/ 85 00340C CALCULATE POINTER TO START BYTE OF NEXT RECORD. 00350 DEL/ 87 00360 DEL/ 89,119 00370C IF ACCOUNT NOT ACTIVE (STATUS CODE NOT BLANK), CONTINUE WITH NEXT 00380C ACCOUNT. 00390 130 CALL CCSGET ( RECBUF, IW+305, ICOMP ) 00400 IF ( ICOMP .NE. $20 ) GO TO 250 00410C ADD AMOUNT DELINQUENT TO TOTALS. 00420 140 CALL CCSADD ( RECBUF, IW+886, TOTDA, 1, TOTDA, 1 ) 00430C ADD CURRENT PAYOFF TO TOTALS. 00440 150 CALL CCSADܨ  3 D ( RECBUF, IW+905, TOTCP, 1, TOTCP, 1 ) 00450C SET UP DETAIL LINE FOR OUTPUT 00460C ACCOUNT NUMBER 00470 160 CALL CCSMVA ( RECBUF, IW, 16, OBUF, 3, 16 ) 00480C NAME. 00490 CALL CCSMVA ( RECBUF, IW+17, 30, OBUF, 21, 30 ) 00500C DELINQUENT DATE. 00510 CALL EDIT ( RECBUF, IW+874, OBUF, 54, 1 ) 00520C AMOUNT DELINQUENT. 00530 CALL EDIT ( RECBUF, IW+886, OBUF, 64, 3 ) 00540C CURRENT PAYOFF. 00550 CALL EDIT ( RECBUF, IW+904, OBUF, 75, 3 ) 00560C QUEUE. 00570 CALL CCSMVA ( RECBUF, IW+270, 4, OBUF, 88, 4 ) 00580C PROMISE TO PAY DATE, AMOUNT - IF PRESENT. 00590 IF ( IDATVR(RECBUF,IW+1015) .LT. 0 ) GO TO 165 00600 CALL EDIT ( RECBUF, IW+1015, OBUF, 95, 1 ) 00610 CALL EDIT ( RECBUF, IW+1021, OBUF, 104, 3 ) 00620C NEXT CONTACT DATE. 00630 165 CALL EDIT ( RECBUF, IW+274, OBUF, 117, 1 ) 00640C ACCOUNT REVIEW CODE. 00650 CALL CCSMVA ( RECBUF, IW+290, 1, OBUF, 129, 1 ) 00660 DEL/ 121 00670 CALL CCSADD(ONE,1,TCNT,1,TCNT,1) 00680 DEL/ 127 00690 IF(NREC.EQ.MAXREC) GO TO 70 00700 DEL/ 139 00710 310 CONTINUE 00720 DEL/ 142,156 00730 DO 312 I=1,11 00740 CALL CCSCST(TCNT,I,1,ZERO,1,1,ICOMP) 00750 IF(ICOMP.NE.0) GO TO 313 00760 CALL CCSMVA(BLANK,1,1,TCNT,I,1) 00770 312 CONTINUE 00780 313 CALL CCSMVA(TCNT,1,12,OBUF,49,12) 00790 ASSIGN 315 TO ICOMP 00800LTRNDF DCK/ I,H 00990LTRNDU DCK/ I,H 01000LTRPLY DCK/ I,H 01010LUSEMT DCK/ I,H 01020LUTFMT DCK/ I,H 01030LWROFE DCK/ I,H 01040DUMMY3 DCK/ I=20,H 01050DUMMY3 HOL/ 01060 MON 01070 OPT LPC 01080 END/* 01090CLIMAC DCK/ I,H 01100CLCHNG DCK/ I,H C  3 ( 01110CLDISP DCK/ I,H 01120CLIDAT DCK/ I,H 01130CLIENT DCK/ I,H 01140CLMAIN DCK/ I,H 01150CLNAME DCK/ I,H 01160DUMMY4 DCK/ I=20,H 01170DUMMY4 HOL/ 01180 MON 01190 OPT LPC 01200 END/* 01210LEGMAC DCK/ I,H 01220FLEGAL DCK/ I,H 01230LACTED DCK/ I,H 01240LBLKDT DCK/ I,H 01250LCHEKQ DCK/ I,H 01260LCHENT DCK/ I,H 01270LCHSCR DCK/ I,H 01280LCLANX DCK/ I,H 01290LDAASC DCK/ I,H 01300LDSPLY DCK/ I,H 01310LEACTS DCK/ I,H 01320LEATRN DCK/ I,H 01330LNMSRC DCK/ I,H 01340LPCPRC DCK/ I,H 01350LPKAMT DCK/ I,H 01360LSVTRN DCK/ I,H 01370PAYENT DCK/ I,H 01380 INS/ 632 01390C START TIME OF PROCEDURE 01400 CALL CCSMVA(LSTRTM,1,4,TRNSBF,21,4) 01410C STOP TIME IS ENTERED IN LSVTRN 01420C TRANSACTION TYPE IS LITERAL 03 01430 TRNSBF(15) = $3033 01440C AMOUNT-IF NEG. THE LAST BYTE 01450C MUST BE CHANGED 01460 CALL CCSGET(LAREC,LCHAR+41,LGET) 01470 IF(LGET.EQ.$20) GO TO 1906 01480 CALL CCSGET(LAREC,LCHAR+40,LGET) 01490DUMMY5 DCK/ I=20,H 01500DUMMY5 HOL/ 01510 MON 01520 OPT LPC 01530 END/* 01540UPDMAC DCK/ I=24,H 01550LAFUPD DCK/ I,H 01560LAUNCU DCK/ I,H 01570DUMMY6 DCK/ I=20,H 01580DUMMY6 HOL/  3 < 01590 MON 01600 OPT LPC 01610 END/* 01620UP4MAC DCK/ I=24,H 01630LU4BLK DCK/ I,H 01640 END/ 01650__  3 P __ }  3 d g  3 x R  3  =  3  (  3    3   3   3   3   3   3 ,  3 @  3 T k  3 h IC_^1PRESET NUM 0_,NEGATIVE IF PRESET HAS NOT USED TO PATCH_^1*AL {PCCS20 AB ENTRY 89_^1_%JMP+ ($7FFF)_4RETURN FROM CONVRT *BIN TO ASC_^1_%JMP CONVRT_5JUMP TO CONVRT_^1*_8BEGIN CONTAB ENTRY 93_^1_%JMP+ ($7FFF)_4RETURN FROM PRINT4_^1_%JMP 3  3 |DUMMY1 DCK/ I=20,H 00010DUMMY1 HOL/ 00020 OPT LPC 00030 END/* 00040LEGAL DCK/ I,H 00050LPGGEN DCK/ I,H 00060LUD400 DCK/ I,H 00070LUPDAT DCK/ I,H 00080DUMMY2 DCK/ I=20,H 00090DUMMY2 HOL/ 00100 MON 00110 OPT LPC 00120 END/* 00130CLXTRT DCK/ I,H 00140LACLPG DCK/ I,H 00150LACTAD DCK/ I,H 00160 DEL/ 24 00170 DATA UDATA /'LAUTIFIL', 8*$2020,1,1,0/ 00180LACTMT DCK/ I,H 00190LAHEAD DCK/ I,H 00200LAVMCN DCK/ I,H 00210LAVMDP DCK/ I,H 00220LAXTRT DCK/ I,H 00230LBATUD DCK/ I,H 00240LBLDSR DCK/ I,H 00250LCCSSP DCK/ I,H 00260LCHUD2 DCK/ I,H 00270LCLIUD DCK/ I,H 00280LCMPDQ DCK/ I,H 00290LCMPSM DCK/ I,H 00300LDAQEL DCK/ I,H 00310LDECMT DCK/ I,H 00320LDHUPD DCK/ I,H 00330LFTND1 DCK/ I,H 00340LIDACR DCK/ I,H 00350LLTBLD DCK/ I,H 00360LLTPRT DCK/ I,H 00370LLTSTA DCK/ I,H 00380LMHUPD DCK/ I,H 00390LNMCHG DCK/ I,H 00400LPGBLK DCK/ I,H 00410LPGCT1 DCK/ I,H 00420LPGCT2 DCK/ I,H 00430LPGEN0 DCK/ I,H 00440LPGEN1 DCK/ I,H 00450LPGEN3 DCK/ I,H 00460LPGLST DCK/ I,H 00470LPGLTB DCK/ I,H 00480&  3 LPGN2E DCK/ I,H 00490 DEL/ 87 00500 DATA F1300/' INTEGER REQBFE(24),IDATEX(15),EXTREC(68) '/ 00510LPGN2P DCK/ I,H 00520LPGPRG DCK/ I,H 00530LPHDL1 DCK/ I,H 00540LPHDL2 DCK/ I,H 00550LPRNTT DCK/ I,H 00560LPRSCN DCK/ I,H 00570LPRTSR DCK/ I,H 00580LQLOAD DCK/ I,H 00590 INS/ 26 00600 INTEGER DT2(3) 00610 INS/ 50 00620 CALL CCSMVA(DT,1,6,DT2,1,6) 00630 DEL/ 53,54 00640 CALL WTREAD(LUNIT,-1,MSG1,44,-1,IBUF,6,ITC) 00650 IF(IBUF(1).EQ.$2020.AND.ITC.EQ.2) GO TO 140 00660 DEL/ 57 00670 CALL CCSMVA(IBUF,1,6,DT2,1,6) 00680 DEL/ 69 00690 IF(AND(ISTAT,$8100).EQ.$8100) GO TO 190 00700 INS/ 78 00710 GO TO 200 007201 00730C PRINT LAST QUEUE 00740 190 EOF=2 00750 GO TO 230 00760 DEL/ 122 00770 WRITE(PRT,262)(HDR(K),K=21,40),PAGE 00780 DEL/ 124 00790 WRITE(PRT,263)(HDR(K),K=41,60),DT(1),DT(2),DT(3) 00800 DEL/ 128,130 00810 .9X,'0',9X,'1',9X,'2',9X,'3',8X,'>3',9X,'TOTALS',/) 00820 INS/ 175 00830 430 IF(EOF.EQ.2.OR.ALLDON.NE.0) GO TO 510 00840 DEL/ 182 00850 DEL/ 202 00860 500 IF(EOF.EQ.0) GO TO 160 008701 00880C END-OF-FILE SEND BACK TO PRINT LAST QUEUE 00890 IF(EOF.NE.1) GO TO 510 00900 ALLDON=1 00910 GO TO 230 00920 DEL/ 212,214 00930 520 CONTINUE 00940LRTVD1 DCK/ I,H 00950LSUMAC DCK/ I,H 00010  3  DEL/ 14 00020 DEL/ 18,24 00030 INTEGER OBUF(132), ID(4), RECBUF(7000), KEY(8), PRT 00040 INTEGER HDR(60),DT(3) 00050 INTEGER TCNT(6),ONE(5) 00060 INTEGER TOTDA(6),TOTCP(6) 00070 INTEGER ITEMP(8),LCNTL2 00080 INTEGER JBUF(24),NREC,LINCNT,ZERO 00090 INTEGER TOTDE(7),TOTCE(7),PAGCNT,BLANK(10) 00100 INS/ 26 00110 EQUIVALENCE (MAXREC,IDATA(14)) 00120 EQUIVALENCE (LOKORF,JBUF(23)) 00130 DEL/ 28,35 00140 DATA JBUF/24*0/,TOTDE/7*0/,TOTCE/7*0/ 00150 DATA TOTCP/6*0/,TOTDA/6*0/,PAGCNT/0/ 00160 DATA IFLAG/0/,LCNTL2/$0A0D/,BLANK/10*$2020/ 00170 DATA PRT/9/,LINCNT/0/ 00180 DATA ZERO/$3030/ 00190 DATA IDATA / 'LADLQMST',8*$2020,1,7,0/ 00200 DATA ONE/4*$3030,$3031/,TCNT/6*$3030/ 00210 DEL/ 44,45 00220 DEL/ 47,49 00230 INS/ 55 00240C SET LOCKED RECORD OVERRIDE FLAG - NO REJECT ON LOCKED RECORD. 00250 LOKORF = 1 00260 DEL/ 57 00270 45 IF ( ISTAT .GE. 0 ) GO TO 70 00280 DEL/ 61,62 00290C READ NEXT 7 RECORDS - 14000 CHARACTERS TOTAL. 00300 DEL/ 64,68 00310 IF(AND(ISTAT,$8100) .EQ. $8100) GO TO 300 00320 IF(ISTAT .GE. 0) GO TO 100 00330 DEL/ 85 00340C CALCULATE POINTER TO START BYTE OF NEXT RECORD. 00350 DEL/ 87 00360 DEL/ 89,119 00370C IF ACCOUNT NOT ACTIVE (STATUS CODE NOT BLANK), CONTINUE WITH NEXT 00380C ACCOUNT. 00390 130 CALL CCSGET ( RECBUF, IW+305, ICOMP ) 00400 IF ( ICOMP .NE. $20 ) GO TO 250 00410C ADD AMOUNT DELINQUENT TO TOTALS. 00420 140 CALL CCSADD ( RECBUF, IW+886, TOTDA, 1, TOTDA, 1 ) 00430C ADD CURRENT PAYOFF TO TOTALS. 00440 150 CALL CCSADD ( RECBUF, IW+905, TOTCP, 1, TOTCP, 1 ) 00450C SET UP DETAIL LINE FOR OUTPUT 00460C ACCOUNT NUMBER 00470 160 CALL CCSMVA ( RECBUF, IW, 16, OBUF, 3, 16 ) 00480C NAME. 00490/  3  CALL CCSMVA ( RECBUF, IW+17, 30, OBUF, 21, 30 ) 00500C DELINQUENT DATE. 00510 CALL EDIT ( RECBUF, IW+874, OBUF, 54, 1 ) 00520C AMOUNT DELINQUENT. 00530 CALL EDIT ( RECBUF, IW+886, OBUF, 64, 3 ) 00540C CURRENT PAYOFF. 00550 CALL EDIT ( RECBUF, IW+904, OBUF, 75, 3 ) 00560C QUEUE. 00570 CALL CCSMVA ( RECBUF, IW+270, 4, OBUF, 88, 4 ) 00580C PROMISE TO PAY DATE, AMOUNT - IF PRESENT. 00590 IF ( IDATVR(RECBUF,IW+1015) .LT. 0 ) GO TO 165 00600 CALL EDIT ( RECBUF, IW+1015, OBUF, 95, 1 ) 00610 CALL EDIT ( RECBUF, IW+1021, OBUF, 104, 3 ) 00620C NEXT CONTACT DATE. 00630 165 CALL EDIT ( RECBUF, IW+274, OBUF, 117, 1 ) 00640C ACCOUNT REVIEW CODE. 00650 CALL CCSMVA ( RECBUF, IW+290, 1, OBUF, 129, 1 ) 00660 DEL/ 121 00670 CALL CCSADD(ONE,1,TCNT,1,TCNT,1) 00680 DEL/ 127 00690 IF(NREC.EQ.MAXREC) GO TO 70 00700 DEL/ 139 00710 310 CONTINUE 00720 DEL/ 142,156 00730 DO 312 I=1,11 00740 CALL CCSCST(TCNT,I,1,ZERO,1,1,ICOMP) 00750 IF(ICOMP.NE.0) GO TO 313 00760 CALL CCSMVA(BLANK,1,1,TCNT,I,1) 00770 312 CONTINUE 00780 313 CALL CCSMVA(TCNT,1,12,OBUF,49,12) 00790 ASSIGN 315 TO ICOMP 00800LTRNDF DCK/ I,H 00990LTRNDU DCK/ I,H 01000LTRPLY DCK/ I,H 01010LUSEMT DCK/ I,H 01020LUTFMT DCK/ I,H 01030LWROFE DCK/ I,H 01040DUMMY3 DCK/ I=20,H 01050DUMMY3 HOL/ 01060 MON 01070 OPT LPC 01080 END/* 01090CLIMAC DCK/ I,H 01100CLCHNG DCK/ I,H 01110CLDISP DCK/ I,H 01120CLIDAT DCK/ I,H 01130CLIENT DCK/ I,H 01140CLMAIN DCK/ I,H 01150  3 CLNAME DCK/ I,H 01160DUMMY4 DCK/ I=20,H 01170DUMMY4 HOL/ 01180 MON 01190 OPT LPC 01200 END/* 01210LEGMAC DCK/ I,H 01220FLEGAL DCK/ I,H 01230LACTED DCK/ I,H 01240LBLKDT DCK/ I,H 01250LCHEKQ DCK/ I,H 01260LCHENT DCK/ I,H 01270LCHSCR DCK/ I,H 01280LCLANX DCK/ I,H 01290LDAASC DCK/ I,H 01300LDSPLY DCK/ I,H 01310LEACTS DCK/ I,H 01320LEATRN DCK/ I,H 01330LNMSRC DCK/ I,H 01340LPCPRC DCK/ I,H 01350LPKAMT DCK/ I,H 01360LSVTRN DCK/ I,H 01370PAYENT DCK/ I,H 01380 INS/ 632 01390C START TIME OF PROCEDURE 01400 CALL CCSMVA(LSTRTM,1,4,TRNSBF,21,4) 01410C STOP TIME IS ENTERED IN LSVTRN 01420C TRANSACTION TYPE IS LITERAL 03 01430 TRNSBF(15) = $3033 01440C AMOUNT-IF NEG. THE LAST BYTE 01450C MUST BE CHANGED 01460 CALL CCSGET(LAREC,LCHAR+41,LGET) 01470 IF(LGET.EQ.$20) GO TO 1906 01480 CALL CCSGET(LAREC,LCHAR+40,LGET) 01490DUMMY5 DCK/ I=20,H 01500DUMMY5 HOL/ 01510 MON 01520 OPT LPC 01530 END/* 01540UPDMAC DCK/ I=24,H 01550LAFUPD DCK/ I,H 01560LAUNCU DCK/ I,H 01570DUMMY6 DCK/ I=20,H 01580DUMMY6 HOL/ 01590 MON 01600 OPT LPC 01610 END/* 01620UP4MAC DCK/ I=24,H 01630  3 LU4BLK DCK/ I,H 01640 END/ 01650__ w  3  __  3  TT g  3   3 0 TT TTԗ  3 DTT gy  3 X Z  3 l E  3  0  3    3    3   3   3   3   3  IF OVERFLOW TABLE IS FULL_^1_%SAP 1_^1_%JMP* EAA_^1_%LDA =A2_^AL P $$ _]_^1*_]_^1*_]_^1EAA_"LDA- HSHADR,I_^1_%INA 4_^1_%RTJ* STORE_^1_%STQ- HSHADR,I_$STORE ADDRESS IN OVERFLOW TABLE IN HSHADR_^1_%INQ 5_^1_%STQ- OVCTR,I_%INCREMENT TO NACTADD DCK/ I,H 00010 DEL/ 24 00020 DATA UDATA / 'UTIFIL ', 8*$2020, 1, 1, 0 / 00030 END/ 00040  3 00050R9BASE DCK/ I,H 00031R9FLDL DCK/ I,H 00032_   3 4 s  3 H ^  3 \ I  3 p 4  3    3   3   3   3   3   3   3  3$ w  38 b  3L M  3` 8  3t #  3   3  3 %Q=0 IF COUNT HAS GONE TO ZERO_^1_%INQ_!1_)SET UNUSED PORTION OFALP &$$ C7_^1_%SPC_!1_^1SAX_"ENA -3_^1_%STA- I_^1C8_#RAO- I_^1_%LDA* BUF,I_$CHARACTER_^1_%LDQ* NUM,I_$LOGICAL UNIT NO._^1_%SQP_!C14-*-1_^1_%JMP* (CHANGE)_!RETURN_^1_%ACTADD DCK/ I,H 00010 DEL/ 24 00020 DATA UDATA / 'UTIFIL ', 8*$2020, 1, 1, 0 / 00030R9BASE DCK/ I,H 00040R9FLDL DCK/ I,H 00050 END/ 0006000070_  3  3  3  3  3 {  3( f  3< Q  3P <  3d '  3x   3  3  3  3  3  3  3   3 j  3, U  3@ @  3T A* ESS_*STORE FOR GTFILE_^1_%ENA 0_^1_%STA* SECTOR_'RE-INITIALIALaX$$ SECTOR+1_^1_%STA* ESS+1_^1GETOLA RTJ- ($F4)_(GTFILE REQUEST FOR AN OVERLAY_^1FIRST NUM $5A00,0_^1THUD_!NUM 0_^1VEE_"NUM $8C2,0_^1ESS_"NUM 0,0_^1EYE_"NUM 0_^1SECLSUMAC DCK/ I,H 00010 DEL/ 14 00020 DEL/ 18,24 00030 INTEGER OBUF(132), ID(4), RECBUF(7000), KEY(8), PRT 00040 INTEGER HDR(60),DT(3) 00050 INTEGER TCNT(6),ONE(5) 00060 INTEGER TOTDA(6),TOTCP(6) 00070 INTEGER ITEMP(8),LCNTL2 00080 INTEGER JBUF(24),NREC,LINCNT,ZERO 00090 INTEGER TOTDE(7),TOTCE(7),PAGCNT,BLANK(10) 00100 INS/ 26 00110 EQUIVALENCE (MAXREC,IDATA(14)) 00120 EQUIVALENCE (LOKORF,JBUF(23)) 00130 DEL/ 28,35 00140 DATA JBUF/24*0/,TOTDE/7*0/  3h,TOTCE/7*0/ 00150 DATA TOTCP/6*0/,TOTDA/6*0/,PAGCNT/0/ 00160 DATA IFLAG/0/,LCNTL2/$0A0D/,BLANK/10*$2020/ 00170 DATA PRT/9/,LINCNT/0/ 00180 DATA ZERO/$3030/ 00190 DATA IDATA / 'LADLQMST',8*$2020,1,7,0/ 00200 DATA ONE/4*$3030,$3130/,TCNT/6*$3030/ 00210 DEL/ 44,45 00220 DEL/ 47,49 00230 INS/ 55 00240C SET LOCKED RECORD OVERRIDE FLAG - NO REJECT ON LOCKED RECORD. 00250 LOKORF = 1 00260 DEL/ 57 00270 45 IF ( ISTAT .GE. 0 ) GO TO 70 00280 DEL/ 61,62 00290C READ NEXT 7 RECORDS - 14000 CHARACTERS TOTAL. 00300 DEL/ 64,68 00310 IF(AND(ISTAT,$8100) .EQ. $8100) GO TO 300 00320 IF(ISTAT .GE. 0) GO TO 100 00330 DEL/ 85 00340C CALCULATE POINTER TO START BYTE OF NEXT RECORD. 00350 DEL/ 87 00360 DEL/ 89,119 00370C IF ACCOUNT NOT ACTIVE (STATUS CODE NOT BLANK), CONTINUE WITH NEXT 00380C ACCOUNT. 00390 130 CALL CCSGET ( RECBUF, IW+305, ICOMP ) 00400 IF ( ICOMP .NE. $20 ) GO TO 250 00410C ADD AMOUNT DELINQUENT TO TOTALS. 00420 140 CALL CCSADD ( RECBUF, IW+886, TOTDA, 1, TOTDA, 1 ) 00430C ADD CURRENT PAYOFF TO TOTALS. 00440 150 CALL CCSADD ( RECBUF, IW+905, TOTCP, 1, TOTCP, 1 ) 00450C SET UP DETAIL LINE FOR OUTPUT 00460C ACCOUNT NUMBER 00470 160 CALL CCSMVA ( RECBUF, IW, 16, OBUF, 3, 16 ) 00480C NAME. 00490 CALL CCSMVA ( RECBUF, IW+17, 30, OBUF, 21, 30 ) 00500C DELINQUENT DATE. 00510 CALL EDIT ( RECBUF, IW+874, OBUF, 54, 1 ) 00520C AMOUNT DELINQUENT. 00530 CALL EDIT ( RECBUF, IW+886, OBUF, 64, 3 ) 00540C CURRENT PAYOFF. 00550 CALL EDIT ( RECBUF, IW+904, OBUF, 75, 3 ) 00560C QUEUE. 00570 CALL CCSMVA ( RECBUF, IW+270, 4, OBUF, 88, 4 ) 00580C PROMISE TO PAY DATE, AMOUNT - IF PRESENT. 00590 IF ( IDATVR(RECBUF,IW+1015) .LT. 0 ) GO TO 165 00600 CALL EDIT ( RECBUF, IW+1015, OBUF, 95, 1 ) 00610 CALL EDIT ( RECBUF, IW+1021, OBUF, 104, 3 ) 00620C NEXT CONTACT DATE.  3| 00630 165 CALL EDIT ( RECBUF, IW+274, OBUF, 117, 1 ) 00640C ACCOUNT REVIEW CODE. 00650 CALL CCSMVA ( RECBUF, IW+290, 1, OBUF, 129, 1 ) 00660 DEL/ 121 00670 CALL CCSADD(ONE,1,TCNT,1,TCNT,1) 00680 DEL/ 127 00690 IF(NREC.EQ.MAXREC) GO TO 70 00700 DEL/ 139 00710 310 CONTINUE 00720 DEL/ 142,156 00730 DO 312 I=1,11 00740 CALL CCSCST(TCNT,I,1,ZERO,1,1,ICOMP) 00750 IF(ICOMP.NE.0) GO TO 313 00760 CALL CCSMVA(BLANK,1,1,TCNT,I,1) 00770 312 CONTINUE 00780 313 CALL CCSMVA(TCNT,1,12,OBUF,49,12) 00790 ASSIGN 315 TO ICOMP 00800 END/ 0081000820_  3  3  3  3  3  3  3 n  3 Y  30 D  3D /  3X   3l   3  3  3  3  3  3  3 PARAMETER LOCATION (OFFSET FROM BASE)_^1_%EQU HANDLE(1)_#"HANDLE"_^1_%EQU MSG(2)_'"MSG" ENTRY_^1_%EQU SOMMOR(3)_#"SOMMOR" ENTRY_^1_%EQU IOERR(4)_$"IOERR" ENTRY_^1_%EQU LISTLU(5)_#LIST OUTPUT --- "LISTLU"_^1_%EQU COMOLU(6)_#"COMOLU"_^1_%EQU NEWMLU(7)_#"NEWMLU" --- NEW MM LU_^1_%EQU PROG1(8)_$"PROG1"_^1_%EQU PROG2(9)_$"PROG2"_^1_%EQU BITFLG(10)_""BITFLG"_^1_%EQU BUFCNT(11)_""BUFCNT"_^1_%EQU FIELD(12)_#"FIELD"_^1_%EQU SLASHF(16)_""SLASHF"_^1_%EQU BUFEMT(17)_""BUFEMT"_^1_%EQU BUFFER(18)_""BUFFER"_^1_%SPC 2_^1*_]_^1*****_(*****_#P R O G R A M_#S T A R T_#*****_^1*_]_^1_%SPC 2_^1SCHREQ STA* BASE_)SAVE PARAMETER BUFFER ADDRESS_^1_%STA- I_^1_%LDA- HANDLE,I_$GET "HANDLE" ROUTINE ADDRESS_^1_%STA* EXTHAN_^1_%LDA- MSG,I_(FETCH "MSG" ADDRESS_^1_%STA* EXTMSG_^1_%LDA- COMOLU,I_^1_%ADD* MODE_^1_%STA* OTLU_^1_%SPC 1_^1_%ENA 4_,INITIALIZE TO GET 4 FIELDS_^1_%STA* SCHFLD_^1SCH001 ENQ 4_,SET TO GET 4 CHAR. FIELD_^1_%ENA 2_^1_%RTJ* (EXTHAN)_$GET FIELD_^1_%LDA- FIELD,I_%IS CONTROL CHAR.= COMMA,_^1_%SAZ SCH002-*-1_$$FF OR NONE_^1_%SUB- LPMSK+8_^1_%SAZ SCH002-*-1_$SKIP YES_^1_%ADD- LPMSK+8_^1_%INA -COMMA_^1_%SAZ SCH002-*-1_$SKIP YES_^1_%ENQ 4_,ILLEGAL CHAR. PRINT FORMAT INCORRECT_^1_%JMP* (EXTMSG)_'MESSAGE AND EXIT PROCESSOR_^1SCH002 ENA 3_,CONVERT TO HEX_^1_%RTJ* (EXTHAN)_^1SCHVAL 0_"0_^1_%LDA* SCHVAL_'SAVE VALUE_^1_%LDQ* SCHFLD_^1_%STA* SCHFLD,Q_^1_%INQ -1_+DECREMENT FIELD NO._^1_%STQ* SCHFLD_^1_%SQZ SCH003-*-1_#SKIP IF ALL FIELDS OBTAINED_^1_%JMP* SCH001_^1*_1REQUEST CONFIRMATION_^1SCH003 LDA* SCHCOM_'INSERT LOC._^1_%RTJ* ASMASC_^1_%ADC MES1-*_^1*_]_^1OUT_"RTJ- (AMONI)_^1WRTCD ADC $500+CHRSLV_!WRITE CODE_^1WRTEX ADC WRTRN-WRTCD_!RETURN_^1_%NUM 0_,THREAD_^1OTLU_!NUM 0_,LU._^1WRTSZ ADC LMES0_(SIZE_^1WRTBF ADC MES0-WRTCD_"BUFFER ADD._^1_%JMP- (A  3 DISP)_^1*_]_^1WRTRN SQP WRTOK_^1ERIO_!LDQ* BASE_)I/O ERROR_^1_%LDQ- IOERR,Q_^1_%JMP- (ZERO),Q_^1MODE_!ADC ASMOD_^1*_]_^1WRTOK RTJ- (AMONI)_%READ IN CONFIRMATION_^1REDCD ADC $900+CHRSLV_!F-READ_^1_%ADC GETRT-REDCD_!RETURN_^1_%NUM 0_^1_%ADC COMLU_^1_%NUM 1_,1WORD_^1_%ADC OKWD-REDCD_^1_%JMP- (ADISP)_^1EXME_!ADC MESX-WRTCD_"0. BUFFER ADD._^1_%ADC GONE-WRTCD_"1. EXIT ADD._^1OKWD_!NUM 0_^1*_]_^1GETRT SQP REDOK_^1_%JMP* ERIO_^1REDOK LDA* OKWD_)CHECK IF CONFIRM --- 'OK'_^1_%SUB =AOK_^1_%SAZ SCHXX3_'YES, SKIP_^1_%ENA LMESX_(SET-UP WRITE DATA TO PRINT ABORT MESSAGE AND_^1_%STA* WRTSZ_/EXIT_^1_%LDA* EXME_^1_%STA* WRTBF_^1_%LDA* EXME+1_^1_%STA* WRTEX_^1_%JMP* OUT_^1*_]_^1SCHXX3 LDA* SCHCPL_'SET-UP COMPLETION_^1_%AND- LPMSK+4_'PRIORITY LEVEL_^1_%STA* SCHCPL_^1_%LDA* SCHPR1_'GET PART 0 OR PART 1 SCHEDULER REQUEST_^1_%LDQ* SCHPRT_^1_%SQN SCHXX4_^1_%LDA* SCHPR0_^1SCHXX4 AND- NZERO+4_^1_%ADD* SCHCPL_^1_%STA* SCHPAR_^1_%LDA* SCHCOM_'SET-UP COMPLETION LOCATION_^1_%STA* SCHPAR+1_^1_%LDQ* SCHQRG_'PASS DESIRED CONTENTS OF Q_^1_%RTJ- (AMONI)_%SCHEDULER REQUEST_^1SCHPAR NUM $1200_^1_%0_"0_^1GONE_!LDQ* BASE_)EXIT (TO "SOMMOR")_^1_%LDQ- SOMMOR,Q_^1_%JMP- (ZERO),Q_^1_%SPC 1_^1*_]_^1BASE_!NUM 0_^1EXTHAN NUM 0_^1EXTMSG NUM 0_^1SCHPR0 NUM $1200_(PART 0 SCHEDULER REQUEST_^1SCHPR1 NUM $5200_(PART 1 SCHEDULER REQUEST_^1*_]_^1*_$STORAGE_^1*_]_^1SCHFLD 0_"0_,NO. OF REMAINING FIELDS TO GET_^1SCHPRT 0_"0_,PART 1 REQUEST INDICATOR_^1SCHCPL 0_"0_,COMPLETION PRIORITY LEVEL_^1SCHQRG 0_"0_,CONTENTS OF Q-REG._^1SCHCOM 0_"0_,COMPLETION LOCATION_^1_%SPC 2_^1*_]_^1*****_-MESSAGE_^1*_]_^1MES0_!NUM $A0D_^1_%ALF 8, FIRST WORD DATA_^1_%NUM $A0D_^1MES1_!ALF 2,_^1_%ALF 2,_!(_^1MES2_!ALF 2,_^1_%ALF 1,)_^1_%NUM $A0D_^1_%ALF 5, CONFIRM_^1_%EQU LMES0(*-MES0)_^1MESX_!NUM $A0D_^1_%ALF 8,DB REQUEST ABORT_^1_%EQU LMESX(*-MESX)_^1_%SPC 1_^1*_]_^1******_,ASSEMBLE LOCATION AND CONTENT INTO ASCII_^1*_]_^1ASMASC NOP 0_,ENTRY_^1_%STA* A0_+SAVE LOCATION_^1_%LDQ* (ASMASC)_^1_%ADQ* ASMASC_^1_%STQ* A1_+SAVE DATA CONTENT ADD._^1_%RTJ* TW_+ASSEMBLE INTO ASCII_^1_%LDA* A1_^1_%INA 4_^1_%STA* A1_^1_%LDA* (A0)_)GET CONTENT_^1_%RTJ* TW_+ASSEMBLE INTO ASCII_^1_%RAO* ASMASC_'SET EXIT_^1_%JMP* (ASMASC)_$EXIT_^1_%SPC 2_^1*_]_^1A0_#NUM 0_^1A1_#NUM 0_^1_%SPC 2_^1*_]_^1TW_#NOP 0_,ENTRY_^1_%ENQ 0_^1_%STQ* TW1_*ZERO COUNT_^1TW0_"LLS 4_,EXTRACT 4-BIT BYTE_^1_%STA* TW2_^1_%INQ -10_*ASSEMBLE INTO ASCII ACCORDING TO NO. OR A-F_^1_%SQM TWX_^1_%INQ 7_^1TWX_"INQ $3A_^1_%LLS 16_+TO A-REG._^1_%LDQ* TW1_^1_%STA* TW3,Q_(SAVE ACCORDINGLY_^1_%INQ 1_^1_%STQ* TW1_^1_%INQ -4_^1_%SQZ TWAS_)DONE, ALL 4 BYTE BEEN PROCESSED_^1_%LDA* TW2_^1_%ENQ 0_^1_%JMP* TW0_^1*_]_^1TW1_"NUM 0_^1TW2_"NUM 0_^1TW3_"BZS TW3(4)_^1TWAS_!LDQ* A1_+ASSEMBLE INTO 2-WORD AND SAVE_^1_%LDA* TW3_^1_%ALS 8_^1_%ADD* TW3+1_^1_%STA- (ZERO),Q_^1_%LDA* TW3+2_^1_%ALS 8_^1_%ADD* TW3+3_^1_%INQ 1_^1_%STA- (ZERO),Q_^1_%JMP* (TW)_)RETURN_^1_%SPC 5_^1*_]_^1_%EQU SA06(*/96)_^1_%EQU SP06(SA06+1)_^1_%EQU DB06(SP06*96)_^1_%BSS (DB06-*)_^1_%END_]_^__SPEREQ CSY/ N15 1_%NAM SPEREQ_'N15 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1*_]_^1*_]_^1*_$THIS PROCESSOR SEARCHS CORE FOR PARITY._^1*_%THE REQUEST HAS THE FOLLOWING FORMAT._^1*_(SPE,LAST LOCATION IN CORE(CR)_^1*_]_^1*_]_^1_%SPC 1_^1*_1E N T R Y_$N A M E_^1_%ENT SPE  3 REQ_^1_%SPC 5_^1*_1' E Q U '_%T A B L E_^1_%EQU AMONI($F4),ADISP($EA),LPMSK(2),NZERO($12),ZROBIT($33)_^1_%EQU FIVE($43),SIX($44),ZERO($22),ONEBIT($23),SIXTEN($27)_^1_%EQU COMMA($2C),SLASH($2F),ASTRIC($2A)_^1_%EQU EIGHT($26),NINE($45),THREE(4),ONE(3),TWO($24)_^1_%EQU TEN($46)_H**MSOS4.0**_^1_%SPC 2_^1*_1PARAMETER LOCATION (OFFSET FROM BASE)_^1_%EQU HANDLE(1)_#"HANDLE"_^1_%EQU MSG(2)_'"MSG" ENTRY_^1_%EQU SOMMOR(3)_#"SOMMOR" ENTRY_^1_%EQU IOERR(4)_$"IOERR" ENTRY_^1_%EQU LISTLU(5)_#LIST OUTPUT --- "LISTLU"_^1_%EQU COMOLU(6)_#"COMOLU"_^1_%EQU NEWMLU(7)_#"NEWMLU" --- NEW MM LU_^1_%EQU PROG1(8)_$"PROG1"_^1_%EQU PROG2(9)_$"PROG2"_^1_%EQU BITFLG(10)_""BITFLG"_^1_%EQU BUFCNT(11)_""BUFCNT"_^1_%EQU FIELD(12)_#"FIELD"_^1_%EQU SLASHF(16)_""SLASHF"_^1_%EQU BUFEMT(17)_""BUFEMT"_^1_%EQU BUFFER(18)_""BUFFER"_^1_%SPC 2_^1*_]_^1*****_(*****_#P R O G R A M_#S T A R T_#*****_^1*_]_^1_%SPC 2_^1SPEREQ STA* BASE_)SAVE PARAMETER BUFFER ADDRESS_^1_%STA- I_^1_%LDA- HANDLE,I_$GET "HANDLE" ROUTINE ADDRESS_^1_%STA* EXTHAN_^1_%LDA- MSG,I_(FETCH "MSG" ADDRESS_^1_%STA* EXTMSG_^1_%SPC 1_^1_%ENQ 4_,SET TO GET 4 CHAR. FIELD_^1_%ENA 2_^1_%RTJ* (EXTHAN)_$GET FIELD_^1_%LDA- FIELD,I_%IS CONTROL CHAR.= COMMA,_^1_%SAZ SPE001-*-1_$$FF OR NONE_^1_%SUB- LPMSK+8_^1_%SAZ SPE001-*-1_#SKIP YES_^1_%ADD- LPMSK+8_^1_%INA -COMMA_^1_%SAZ SPE001-*-1_#SKIP YES_^1SPE000 ENQ 4_-ILLEGAL CONTROL CHAR. OUTPUT FORMAT_^1S001_!JMP* (EXTMSG)_%INCORRECT MSG. AND EXIT PROCESSOR_^1SPE001 ENQ 2_,IS FIELD BLANK_^1_%LDA- FIELD+1,B_^1_%EOR =N$2020_^1_%SAN SPE01A-*-1_#SKIP NO_^1_%INQ -1_^1_%SQM SPE002-*-1_#SKIP YES_^1_%JMP* SPE001+1_^1SPE01A ENA 3_-NO,CONVERT TO HEX_^1_%RTJ* (EXTHAN)_^1SPEVAL 0_"0_^1_%JMP* SPE008_^1SPE002 LDA- LPMSK+15_^1_%STA* SPEVAL_^1SPE008 CLR A_,INITIALIZE CORE READ INDEX_(**MSOS4.0**_^1_%STA* SPELOC_^1SPE003 IIN 0_,INHIBIT INTERRUPTS DURING CHECK_^1_%LDA* (SPELOC)_$READ FROM CORE_^1_%SNP SPE007_^1_%JMP* SPE005_'PARITY ERROR_^1SPE007 EIN 0_,ENABLE INTERRUPTS_^1_%LDA* FAFFFF_'CHECK IF THIS WAS $FFFF ADDRESS_^1_%SAM SPE004_'SKIP TO END IF =$FFFF_^1_%LDA* SPEVAL_'CHECK FINISHED_^1_%SUB* SPELOC_^1_%SAZ SPE004-*-1_#SKIP YES_^1_%LDA* SPELOC_'CHECK IF NOW $FFFF_^1_%EOR- ZROBIT_^1_%SAN BMPIDX_'SKIP IF NOT $FFFE_^1_%SET A_^1_%STA* FAFFFF_^1_%STA* SPELOC_'SET $FFFF (RAO TO $FFFE=+0, NOT -0)_^1BMPIDX RAO* SPELOC_'BUMP INDEX_;113*4246_^1_%JMP* SPE003_'DO NEXT CHECK_8113*4246_^1SPE004 ENQ 7_,OUTPUT SEARCH FINISHED_^1_%JMP* S001_*MSG AND EXIT PROCESSOR_^1SPE005 EIN 0_^1_%LDA* SPELOC_'OUTPUT LOCATION OF PARITY_^1_%STA* SPE006_^1_%ENQ -1_,(NEG. INDICATES ADDRESS ONLY)_^1_%ENA 4_^1_%RTJ* (EXTHAN)_^1SPE006 0_"0_^1_%JMP* SPE007_'COTINUE SEARCH_^1_%SPC 1_^1*_]_^1BASE_!NUM 0_^1EXTHAN NUM 0_^1EXTMSG NUM 0_^1SPELOC 0_"0_,LOC. OF PRESENT CELL BEING CHECKED_^1FAFFFF NUM 0_,LAST PASS FLAG_^1_%SPC 5_^1*_]_^1_%EQU SA07(*/96)_^1_%EQU SP07(SA07+1)_^1_%EQU DB07(SP07*96)_^1_%BSS (DB07-*)_^1_%END_]_^__CPPREQ CSY/ N16 1_%NAM CPPREQ_'N16 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1*_]_^1*_]_^1*_$THIS PROCESSOR CLEARS THE PROGRAM PROTECT BIT_^1*_%FOR THE CELLS SPECIFIED._^1*_%THE FORMAT FOR THE REQUEST IS AS FOLLOWS._^1*_(CPP,START CORE,END CORE(CR)_^1*_]_^1*_]_^1_%SPC   341_^1*_1E N T R Y_$N A M E_^1_%ENT CPPREQ_^1_%SPC 5_^1*_1' E Q U '_%T A B L E_^1_%EQU AMONI($F4),ADISP($EA),LPMSK(2),NZERO($12),ZROBIT($33)_^1_%EQU FIVE($43),SIX($44),ZERO($22),ONEBIT($23),SIXTEN($27)_^1_%EQU COMMA($2C),SLASH($2F),ASTRIC($2A)_^1_%EQU EIGHT($26),NINE($45),THREE(4),ONE(3),TWO($24)_^1_%EQU TEN($46)_H**MSOS4.0**_^1_%SPC 2_^1*_1PARAMETER LOCATION (OFFSET FROM BASE)_^1_%EQU HANDLE(1)_#"HANDLE"_^1_%EQU MSG(2)_'"MSG" ENTRY_^1_%EQU SOMMOR(3)_#"SOMMOR" ENTRY_^1_%EQU IOERR(4)_$"IOERR" ENTRY_^1_%EQU LISTLU(5)_#LIST OUTPUT --- "LISTLU"_^1_%EQU COMOLU(6)_#"COMOLU"_^1_%EQU NEWMLU(7)_#"NEWMLU" --- NEW MM LU_^1_%EQU PROG1(8)_$"PROG1"_^1_%EQU PROG2(9)_$"PROG2"_^1_%EQU BITFLG(10)_""BITFLG"_^1_%EQU BUFCNT(11)_""BUFCNT"_^1_%EQU FIELD(12)_#"FIELD"_^1_%EQU SLASHF(16)_""SLASHF"_^1_%EQU BUFEMT(17)_""BUFEMT"_^1_%EQU BUFFER(18)_""BUFFER"_^1_%SPC 2_^1*_]_^1*****_(*****_#P R O G R A M_#S T A R T_#*****_^1*_]_^1_%SPC 2_^1CPPREQ STA* BASE_)SAVE PARAMETER BUFFER ADDRESS_^1_%STA- I_^1_%LDA- HANDLE,I_$GET "HANDLE" ROUTINE ADDRESS_^1_%STA* EXTHAN_^1_%LDA- MSG,I_(FETCH "MSG" ADDRESS_^1_%STA* EXTMSG_^1_%SPC 1_^1_%ENA 2_,INITIALIZE TO GET 2 FIELDS_^1_%STA* CPPFLD_^1CPP001 ENQ 4_,SET TO GET 4 CHAR. FIELDS_^1_%ENA 2_^1_%RTJ* (EXTHAN)_$GET FIELD_^1_%LDA- FIELD,I_%IS CONTROL CHAR.= COMMA,_^1_%SAZ CPP002-*-1_#$FF OR NONE_^1_%SUB- LPMSK+8_^1_%SAZ CPP002-*-1_#SKIP YES_^1_%ADD- LPMSK+8_^1_%INA -COMMA_^1_%SAZ CPP002-*-1_#SKIP YES_^1CPP01A ENQ 4_,OUTPUT FORMAT INCORRECT_^1_%JMP* (EXTMSG)_%MESSAGE AND EXIT PROCESSOR._^1CPP002 ENA 3_,CONVERT FIELD TO HEX_^1_%RTJ* (EXTHAN)_^1CPPVAL 0_"0_^1_%LDA* CPPVAL_'SAVE FIELD_^1_%LDQ* CPPFLD_^1_%STA* CPPEND-1,Q_^1_%INQ -1_+DECREMENT FIELD NO._^1_%STQ* CPPFLD_^1_%SQZ CPP003-*-1_#SKIP IF ALL FIELD OBTAINED_^1_%JMP* CPP001_^1CPP003 LDQ* CPPSTR_'CLEAR PROTECT BIT FROM_,**MSOS4.0**_^1_%CPB 0_-START TO LAST_^1_%RAO* CPPSTR_^1_%LDA* CPPEND_^1_%SAP CPP03A_J**MSOS4.0**_^1_%LDA* CPPSTR_J**MSOS4.0**_^1_%SAP CPP03B_J**MSOS4.0**_^1CPP03A LDA* CPPEND_J**MSOS4.0**_^1_%SUB* CPPSTR_^1_%SAM CPP004-*-1_#SKIP IF DONE_^1CPP03B JMP* CPP003_J**MSOS4.0**_^1CPP004 LDQ* BASE_)EXIT (TO "SOMMOR")_^1_%LDQ- SOMMOR,Q_^1_%JMP- (ZERO),Q_^1_%SPC 1_^1*_]_^1BASE_!NUM 0_^1EXTHAN NUM 0_^1EXTMSG NUM 0_^1*_$STORAGE_^1CPPFLD 0_"0_,NO. OF REMAINING FIELDS_^1CPPEND 0_"0_,LAST CELL TO BE CLEARED_^1CPPSTR 0_"0_,FIRST CELL TO BE CLEARED_^1_%SPC 5_^1*_]_^1_%EQU SA08(*/96)_^1_%EQU SP08(SA08+1)_^1_%EQU DB08(SP08*96)_^1_%BSS (DB08-*)_^1_%END_]_^__ SPPREQ CSY/ N17 1_%NAM SPPREQ_'N17 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1*_]_^1*_]_^1*_$THIS PROCESSOR SETS THE PROGRAM PROTECT BIT_^1*_'FOR THE CELLS SPECIFIED._^1*_%THE REQUEST HAS THE FOLLOWING FORMAT._^1*_(SPP,START CORE,END CORE(CR)_^1*_]_^1*_]_^1_%SPC 1_^1*_1E N T R Y_$N A M E_^1_%ENT SPPREQ_^1_%SPC 5_^1*_1' E Q U '_%T A B L E_^1_%EQU AMONI($F4),ADISP($EA),LPMSK(2),NZERO($12),ZROBIT($33)_^1_%EQU FIVE($43),SIX($44),ZERO($22),ONEBIT($23),SIXTEN($27)_^1_%EQU COMMA($2C),SLASH($2F),ASTRIC($2A)_^1_%EQU EIGHT($26),NINE($45),THREE(4),ONE(3),TWO($24)_^1_%EQU TEN($46)_H**MSOS4.0**_^1_%SPC 2_^1*_1PARAMETER LOCATION (OFFSET FROM BASE)_^1_S  3H%EQU HANDLE(1)_#"HANDLE"_^1_%EQU MSG(2)_'"MSG" ENTRY_^1_%EQU SOMMOR(3)_#"SOMMOR" ENTRY_^1_%EQU IOERR(4)_$"IOERR" ENTRY_^1_%EQU LISTLU(5)_#LIST OUTPUT --- "LISTLU"_^1_%EQU COMOLU(6)_#"COMOLU"_^1_%EQU NEWMLU(7)_#"NEWMLU" --- NEW MM LU_^1_%EQU PROG1(8)_$"PROG1"_^1_%EQU PROG2(9)_$"PROG2"_^1_%EQU BITFLG(10)_""BITFLG"_^1_%EQU BUFCNT(11)_""BUFCNT"_^1_%EQU FIELD(12)_#"FIELD"_^1_%EQU SLASHF(16)_""SLASHF"_^1_%EQU BUFEMT(17)_""BUFEMT"_^1_%EQU BUFFER(18)_""BUFFER"_^1_%SPC 2_^1*_]_^1*****_(*****_#P R O G R A M_#S T A R T_#*****_^1*_]_^1_%SPC 2_^1SPPREQ STA* BASE_)SAVE PARAMETER BUFFER ADDRESS_^1_%STA- I_^1_%LDA- HANDLE,I_$GET "HANDLE" ROUTINE ADDRESS_^1_%STA* EXTHAN_^1_%LDA- MSG,I_(FETCH "MSG" ADDRESS_^1_%STA* EXTMSG_^1_%SPC 1_^1_%ENA 2_,INITIALIZE TO GET 2 FIELDS_^1_%STA* SPPFLD_^1SPP001 ENQ 4_,SET TO GET 4 CHAR._^1_%ENA 2_^1_%RTJ* (EXTHAN)_$GET FIELD_^1_%LDA- FIELD,I_%IS CONTROL CHAR.= COMMA,_^1_%SAZ SPP002-*-1_$$FF OR NONE_^1_%SUB- LPMSK+8_^1_%SAZ SPP002-*-1_#SKIP YES_^1_%ADD- LPMSK+8_^1_%INA -COMMA_^1_%SAZ SPP002-*-1_#SKIP YES_^1SPP01A ENQ 4_,OUTPUT FORMAT_^1_%JMP* (EXTMSG)_%INCORRECT MSG. AND EXIT PROCESSOR_^1SPP002 ENA 3_,CONVERT FIELD TO HEX_^1_%RTJ* (EXTHAN)_^1SPPVAL 0_"0_^1_%LDA* SPPVAL_'SAVE FIELD_^1_%LDQ* SPPFLD_^1_%STA* SPPEND-1,Q_^1_%INQ -1_+DECREMENT FIELD NO._^1_%STQ* SPPFLD_^1_%SQZ SPP003-*-1_#SKIP IF ALL FIELDS OBTAINED_^1_%JMP* SPP001_^1SPP003 LDQ* SPPSTR_'SET PROTECT BIT FROM_.**MSOS4.0**_^1_%SPB 0_-START TO END_^1_%RAO* SPPSTR_^1_%LDA* SPPEND_^1_%SAP SPP03A_J**MSOS4.0**_^1_%LDA* SPPSTR_J**MSOS4.0**_^1_%SAP SPP03B_J**MSOS4.0**_^1SPP03A LDA* SPPEND_J**MSOS4.0**_^1_%SUB* SPPSTR_^1_%SAM SPP004-*-1_#SKIP IF DONE_^1SPP03B JMP* SPP003_J**MSOS4.0**_^1SPP004 LDQ* BASE_)EXIT (TO "SOMMOR")_^1_%LDQ- SOMMOR,Q_^1_%JMP- (ZERO),Q_^1_%SPC 1_^1*_]_^1BASE_!NUM 0_^1EXTHAN NUM 0_^1EXTMSG NUM 0_^1*_$STORAGE_^1SPPFLD 0_"0_,NO. OF REMAINING FIELDS TO GET_^1SPPEND 0_"0_,LAST CORE LOC. TO PROTECT_^1SPPSTR 0_"0_,FIRST CORE LOC. TO PROTECT_^1_%SPC 5_^1*_]_^1_%EQU SA09(*/96)_^1_%EQU SP09(SA09+1)_^1_%EQU DB09(SP09*96)_^1_%BSS (DB09-*)_^1_%END_]_^__ ADHREQ CSY/ N18 1_%NAM ADHREQ_'N18 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1*_]_^1*_]_^1*_$THIS PROCESSOR ADDS A MAXIMUM OF 8_^1*_'HEXADECIMAL NUMBERS._^1*_%THE REQUEST HAS THE FOLLOWING FORMAT._^1*_(ADH,NUMBER 1,NUMBER 2,...NUMBER 8(CR)_^1*_]_^1*_]_^1_%SPC 1_^1*_1E N T R Y_$N A M E_^1_%ENT ADHREQ_^1_%SPC 5_^1*_1' E Q U '_%T A B L E_^1_%EQU AMONI($F4),ADISP($EA),LPMSK(2),NZERO($12),ZROBIT($33)_^1_%EQU FIVE($43),SIX($44),ZERO($22),ONEBIT($23),SIXTEN($27)_^1_%EQU COMMA($2C),SLASH($2F),ASTRIC($2A)_^1_%EQU EIGHT($26),NINE($45),THREE(4),ONE(3),TWO($24)_^1_%EQU TEN($46)_H**MSOS4.0**_^1_%SPC 2_^1*_1PARAMETER LOCATION (OFFSET FROM BASE)_^1_%EQU HANDLE(1)_#"HANDLE"_^1_%EQU MSG(2)_'"MSG" ENTRY_^1_%EQU SOMMOR(3)_#"SOMMOR" ENTRY_^1_%EQU IOERR(4)_$"IOERR" ENTRY_^1_%EQU LISTLU(5)_#LIST OUTPUT --- "LISTLU"_^1_%EQU COMOLU(6)_#"COMOLU"_^1_%EQU NEWMLU(7)_#"NEWMLU" --- NEW MM LU_^1_%EQU PROG1(8)_$"PROG1"_^1_%EQU PROG2(9)_$"PROG2"_^1_%EQU BITFLG(10)_""BITFLG"_^1_%EQU BUFCNT(11)_""BUFCNT"_^1_%EQU FIELD(12)_#"FIELD"_^1_%Et  3\QU SLASHF(16)_""SLASHF"_^1_%EQU BUFEMT(17)_""BUFEMT"_^1_%EQU BUFFER(18)_""BUFFER"_^1_%SPC 2_^1*_]_^1*****_(*****_#P R O G R A M_#S T A R T_#*****_^1*_]_^1_%SPC 2_^1ADHREQ STA* BASE_)SAVE PARAMETER BUFFER ADDRESS_^1_%STA- I_^1_%LDA- HANDLE,I_$GET "HANDLE" ROUTINE ADDRESS_^1_%STA* EXTHAN_^1_%LDA- MSG,I_(FETCH "MSG" ADDRESS_^1_%STA* EXTMSG_^1_%SPC 1_^1_%ENA 0_,INITIALIZE ACCUMULATION_^1_%STA* ADHNUM_^1_%ENA 8_,INITIALIZE TO GET 8 FIELDS_^1_%STA* ADHFLD_^1ADH001 ENQ 4_,SET TO GET 4 CHAR. FIELD_^1_%ENA 2_^1_%RTJ* (EXTHAN)_$GET FIELD_^1_%LDA- FIELD,I_%IS CONTROL CHAR.= COMMA,_^1_%SAZ ADH002-*-1_$$FF OR NONE_^1_%SUB- LPMSK+8_^1_%SAZ ADH002-*-1_#SKIP YES_^1_%ADD- LPMSK+8_^1_%INA -COMMA_^1_%SAZ ADH002-*-1_#SKIP YES_^1_%ENQ 4_-NO,PRINT FORMAT INCORRECT_^1_%JMP* (EXTMSG)_'MESSAGE AND EXIT PROCESSOR._^1ADH002 ENA 3_,CONVERT FIELD TO HEX_^1_%RTJ* (EXTHAN)_^1ADHVAL 0_"0_^1_%LDA* ADHNUM_^1_%ADD* ADHVAL_^1_%STA* ADHNUM_^1_%LDQ* ADHFLD_^1_%INQ -1_+DECREMENT FIELD NO._^1_%STQ* ADHFLD_^1_%SQZ ADH003-*-1_#SKIP IF ALL FIELDS OBTAINED_^1_%JMP* ADH001_^1ADH003 ENQ -1_+PRINT THE RESULT_^1_%ENA 4_-(NEG. Q = PRINT ONE HEX. NO.)_^1_%RTJ* (EXTHAN)_^1ADHNUM 0_"0_^1_%LDQ* BASE_)EXIT (TO "SOMMOR")_^1_%LDQ- SOMMOR,Q_^1_%JMP- (ZERO),Q_^1_%SPC 1_^1*_]_^1BASE_!NUM 0_^1EXTHAN NUM 0_^1EXTMSG NUM 0_^1*_$STORAGE_^1ADHFLD 0_"0_,NO. OF REMAINING FIELD TO GET_^1_%SPC 5_^1*_]_^1_%EQU SA10(*/96)_^1_%EQU SP10(SA10+1)_^1_%EQU DB10(SP10*96)_^1_%BSS (DB10-*)_^1_%END_]_^__ SBHREQ CSY/ N19 1_%NAM SBHREQ_'N19 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1*_]_^1*_]_^1*_$THIS PROCESSOR SUBTRACTS TWO HEXADECIMAL NUMBERS._^1*_%THE REQUEST HAS THE FOLLOWING FORMAT._^1*_(SBH,NUMBER 1,NUMBER 2(CR)_^1*_]_^1*_]_^1_%SPC 1_^1*_1E N T R Y_$N A M E_^1_%ENT SBHREQ_^1_%SPC 5_^1*_1' E Q U '_%T A B L E_^1_%EQU AMONI($F4),ADISP($EA),LPMSK(2),NZERO($12),ZROBIT($33)_^1_%EQU FIVE($43),SIX($44),ZERO($22),ONEBIT($23),SIXTEN($27)_^1_%EQU COMMA($2C),SLASH($2F),ASTRIC($2A)_^1_%EQU EIGHT($26),NINE($45),THREE(4),ONE(3),TWO($24)_^1_%EQU TEN($46)_H**MSOS4.0**_^1_%SPC 2_^1*_1PARAMETER LOCATION (OFFSET FROM BASE)_^1_%EQU HANDLE(1)_#"HANDLE"_^1_%EQU MSG(2)_'"MSG" ENTRY_^1_%EQU SOMMOR(3)_#"SOMMOR" ENTRY_^1_%EQU IOERR(4)_$"IOERR" ENTRY_^1_%EQU LISTLU(5)_#LIST OUTPUT --- "LISTLU"_^1_%EQU COMOLU(6)_#"COMOLU"_^1_%EQU NEWMLU(7)_#"NEWMLU" --- NEW MM LU_^1_%EQU PROG1(8)_$"PROG1"_^1_%EQU PROG2(9)_$"PROG2"_^1_%EQU BITFLG(10)_""BITFLG"_^1_%EQU BUFCNT(11)_""BUFCNT"_^1_%EQU FIELD(12)_#"FIELD"_^1_%EQU SLASHF(16)_""SLASHF"_^1_%EQU BUFEMT(17)_""BUFEMT"_^1_%EQU BUFFER(18)_""BUFFER"_^1_%SPC 2_^1*_]_^1*****_(*****_#P R O G R A M_#S T A R T_#*****_^1*_]_^1_%SPC 2_^1SBHREQ STA* BASE_)SAVE PARAMETER BUFFER ADDRESS_^1_%STA- I_^1_%LDA- HANDLE,I_$GET "HANDLE" ROUTINE ADDRESS_^1_%STA* EXTHAN_^1_%LDA- MSG,I_(FETCH "MSG" ADDRESS_^1_%STA* EXTMSG_^1_%SPC 1_^1_%ENA 2_,INITIALIZE TO GET 2 FIELDS_^1_%STA* SBHFLD_^1SBH001 ENQ 4_,SET TO GET 4 CHAR. FIELD_^1_%ENA 2_^1_%RTJ* (EXTHAN)_$GET FIELD_^1_%LDA- FIELD,I_%IS CONTROL CHAR.= COMMA,_^1_%SAZ SBH002-*-1_$$FF OR NONE_^1_%SUB- LPMSK+8_^1_%SAZ SBH002-*-1_#SKIP YES_^1_%ADD- LPMSK+8_^1_%INA -COMMA_^1_%SAZ SBH002-*-1_#SKIP YES_^1_%ENQ 4_,ILLEGAL CHAR. PRINT FORMAT INCORRECT_^1_%JMP* (EXTMSG)_'MESSAGE AND EXIT PROCESSOR_^1SBH002 ENA 3_,C0  3pONVERT TO HEX_^1_%RTJ* (EXTHAN)_^1SBHVAL 0_"0_^1_%LDA* SBHVAL_'SAVE FIELD_^1_%LDQ* SBHFLD_^1_%STA* SBHNUM-1,Q_^1_%INQ -1_+DECREMENT FIELD NO._^1_%STQ* SBHFLD_^1_%SQZ SBH003-*-1_#SKIP IF ALL FIELDS OBTAINED_^1_%JMP* SBH001_^1SBH003 LDA* SBHNUM+1_$SUBTRACT FIELDS AND SAVE_^1_%SUB* SBHNUM_(FOR TYPE-OUT_^1_%STA* SBH004_^1_%ENQ -1_^1_%ENA 4_^1_%RTJ* (EXTHAN)_$TYPE VALUE_^1SBH004 0_"0_^1_%LDQ* BASE_)EXIT (TO "SOMMOR")_^1_%LDQ- SOMMOR,Q_^1_%JMP- (ZERO),Q_^1_%SPC 1_^1*_]_^1BASE_!NUM 0_^1EXTHAN NUM 0_^1EXTMSG NUM 0_^1SBHFLD 0_"0_,NO. OF REMAINING FIELDS TO GET_^1SBHNUM BZS SBHNUM(2)_#STORAGE FOR THE TWO FIELDS_^1_%SPC 5_^1*_]_^1_%EQU SA11(*/96)_^1_%EQU SP11(SA11+1)_^1_%EQU DB11(SP11*96)_^1_%BSS (DB11-*)_^1_%END_]_^__ ALCREQ CSY/ N20 1_%NAM ALCREQ_'N20 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1*_]_^1*_$THIS PROCESSOR ALLOCATES SCRATCH AREA IN_^1*_$ALLOCATABLE CORE. THE REQUEST PRIORITY HAS THE_^1*_$FOLLOWING FORMAT._^1*_8ALC,LENGTH,REQUEST PRIORITY(CR)_^1*_]_^1*_]_^1_%SPC 1_^1*_1E N T R Y_$N A M E_^1_%ENT ALCREQ_^1_%SPC 5_^1*_1' E Q U '_%T A B L E_^1_%EQU AMONI($F4),ADISP($EA),LPMSK(2),NZERO($12),ZROBIT($33)_^1_%EQU FIVE($43),SIX($44),ZERO($22),ONEBIT($23),SIXTEN($27)_^1_%EQU COMMA($2C),SLASH($2F),ASTRIC($2A)_^1_%EQU EIGHT($26),NINE($45),THREE(4),ONE(3),TWO($24)_^1_%EQU TEN($46)_H**MSOS4.0**_^1_%SPC 2_^1*_1PARAMETER LOCATION (OFFSET FROM BASE)_^1_%EQU HANDLE(1)_#"HANDLE"_^1_%EQU MSG(2)_'"MSG" ENTRY_^1_%EQU SOMMOR(3)_#"SOMMOR" ENTRY_^1_%EQU IOERR(4)_$"IOERR" ENTRY_^1_%EQU LISTLU(5)_#LIST OUTPUT --- "LISTLU"_^1_%EQU COMOLU(6)_#"COMOLU"_^1_%EQU NEWMLU(7)_#"NEWMLU" --- NEW MM LU_^1_%EQU PROG1(8)_$"PROG1"_^1_%EQU PROG2(9)_$"PROG2"_^1_%EQU BITFLG(10)_""BITFLG"_^1_%EQU BUFCNT(11)_""BUFCNT"_^1_%EQU FIELD(12)_#"FIELD"_^1_%EQU SLASHF(16)_""SLASHF"_^1_%EQU BUFEMT(17)_""BUFEMT"_^1_%EQU BUFFER(18)_""BUFFER"_^1_%SPC 2_^1*_1VARIABLE EQUS_^1_%EQU CHRSLV(7)_#LEVEL OF THIS PROGRAM_0116*4360_^1_%SPC 2_^1*_1EQUS FOR LOGICAL UNITS_^1_%EQU COMOUT($8FC) TYPE OUTPUT LOGICAL UNIT_^1_%EQU COMLU($8FD)_!INPUT COMMENT LOGICAL UNIT_^1_%EQU MASSLU($8C2) MASS MEMORY LOGICAL UNIT_^1_%EQU ASMOD($1000) ASCII MODE OUTPUT_^1_%SPC 2_^1*_]_^1*****_(*****_#P R O G R A M_#S T A R T_#*****_^1*_]_^1_%SPC 2_^1ALCREQ STA* BASE_)SAVE PARAMETER BUFFER ADDRESS_^1_%STA- I_^1_%LDA- HANDLE,I_$GET "HANDLE" ROUTINE ADDRESS_^1_%STA* EXTHAN_^1_%LDA- MSG,I_(FETCH "MSG" ADDRESS_^1_%STA* EXTMSG_^1_%LDA- LISTLU,I_$GET LIST LOGICAL UNIT_^1_%ADD* MODE_)+ MODE (ASCII) CODE_^1_%STA* OTLU_^1_%SPC 1_^1_%ENA 2_^1_%STA* GENFLD_^1_%ENQ 4_,SET TO GET 4 CHAR. FIELD_^1GEN001 ENA 2_^1_%RTJ* (EXTHAN)_$GET FIELD_^1_%LDA- FIELD,I_%IS CONTROL CHAR.= COMMA,_^1_%SAZ GEN002-*-1_$$FF OR NONE_^1_%SUB- LPMSK+8_^1_%SAZ GEN002-*-1_#SKIP YES_^1_%ADD- LPMSK+8_^1_%INA -COMMA_^1_%SAZ GEN002-*-1_#SKIP YES_^1GEN004 ENQ 4_,OUTPUT FORMAT INCORRECT MSG._^1GENX04 JMP* (EXTMSG)_%AND EXIT PROCESSOR_^1GEN002 ENA 3_,CONVERT TO HEX_^1_%RTJ* (EXTHAN)_^1GENVAL 0_"0_^1_%LDA* GENVAL_'STORE FIELD_^1_%LDQ* GENFLD_^1_%STA* GENRPL-1,Q_^1_%INQ -1_^1_%STQ* GENFLD_^1_%SQZ GEN003-*-1_^1_%ENQ 1_,SET TO GET 1 CHAR. FIELD_^1_%JMP* GEN001_^1GEN003 LDA* GENRPL_'IS REQUEST PL GREATER THAN_^1_%SUB- THREE_)TWO (TO AVOID ANY DIFFICULTIES)_^1_%SAP GEN005-*-1_#SKIP YES_^1_%JMP* GEN004_(GO TO OUTPUT MSG._^1GEIP  3N005 LDA* GENPAR_'PUT REQUEST PRIORITY_^1_%AND =N$FF0F_'INTO CALL_^1_%ALS 12_^1_%EOR* GENRPL_^1_%ALS 4_^1_%STA* GENPAR_^1_%LDA* GENLTH_'PUT LENGTH INTO CALL_^1_%STA* GENPAR+4_^1_%RTJ- (AMONT{xHDf Hb h  h (" 1\( h f\h! ("#& w1\uHwHf b"h_h\a  b XXhO Tn "Tn}G I b b hG>` T{G`/F9/` Ty9<'@b @b .*Tnf Q1 DfklV="/khTzxx%x hhTzxx$xk %/ , &/2Df` ȾE3bb""H4Ȫ ("K 1\(h /5"D HH-HbX_ XRT ToCh`hHXhp XR"9f}HX6-&92\#rX."-\hkbXh XBE ^b F8ZDf K`R`hChCIhB Ch?AH8`H n q  `   h n qH  " "H   k Dhhh &hXSh /6!"D DhX XQ H X p"XXS"ḓfDh hHȥXlX] XQ ȥb DhvToChr6-'93\XC3"-\ yDfb`hHhT{T{h\h\"h\h2 2T " :D h h h h Ha 1L@ n q+ l*k lX` g q̿X `  g q;` 0A" lȠ`|HQHPmL` B"C ;6 o5  ,1aH* X(hHX#hH{KTtJ+ f b b b Ck!".hHK""/ h{oTt{ " " 1 fb h`pHqh HT1_%NAM RELREQ_'N21 A MSOS CCS 3.0_5SL-149_^1*_$CREDIT COLLECTION SYSTEM VERSION 3.0_^1*_$DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA_^1*_$COPYRIGHT CONTROL DATA CORPORATION 1979_^1*_]_^1*_]_^1*_$THIS PROCESSOR RELEASES CORE STARTING AT THE_^1*_%LOCATION SPECIFIED. THE REQUEST HAS THE_^1*_%FOLLOWING FORMAT._^1*_(REL,START OF CORE TO BE RELEASED_^1*_]_^1*_]_^1_%SPC 1_^1*_1E N T R Y_$N A M E_^1_%ENT RELREQ_^1_%SPC 5_^1*_1' E Q U '_%T A B L E_^1_%EQU AMONI($F4),ADISP($EA),LPMSK(2),NZERO($12),ZROBIT($33)_^1_%EQU FIVE($43),SIX($44),ZERO($22),ONEBIT($23),SIXTEN($27)_^1_%EQU COMMA($2C),SLASH($2F),ASTRIC($2A)_^1_%EQU EIGHT($26),NINE($45),THREE(4),ONE(3),TWO($24)_^1_%EQU TEN($46)_H**MSOS4.0**_^1_%SPC 2_^1*_1PARAMETER LOCATION (OFFSET FROM BASE)_^1_%EQU HANDLE(1)_#"HANDLE"_^1_%EQU MSG(2)_'"MSG" ENTRY_^1_%EQU SOMMOR(3)_#"SOMMOR" ENTRY_^1_%EQU IOERR(4)_$"IOERR" ENTRY_^1_%EQU LISTLU(5)_#LIST OUTPUT --- "LISTLU"_^1_%EQU COMOLU(6)_#"COMOLU"_^1_%EQU NEWMLU(7)_#"NEWMLU" --- NEW MM LU_^1_%EQU PROG1(8)_$"PROG1"_^1_%EQU PROG2(9)_$"PROG2"_^1_%EQU BITFLG(10)_""BITFLG"_^1_%EQU BUFCNT(11)_""BUFCNT"_^1_%EQU FIELD(12)_#"FIELD"_^1_%EQU SLASHF(16)_""SLASHF"_^1_%EQU BUFEMT(17)_""BUFEMT"_^1_%EQU BUFFER(18)_""BUFFER"_^1_%SPC 2_^1*_]_^1*****_(*****_#P R O G R A M_#S T A R T_#*****_^1*_]_^1_%SPC 2_^1RELREQ STA* BASE_)SAVE PARAMETER BUFFER ADDRESS_^1_%STA- I_^1_%LDA- HANDLE,I_$GET "HANDLE" ROUTINE ADDRESS_^1_%STA* EXTHAN_^1_%LDA- MSG,I_(FETCH "MSG" ADDRESS_^1_%STA* EXTMSG_^1_%SPC 1_^1_%ENQ 4_,GET ONLY FIEL  3y& h6j d{ 2yը yϨ ̨ Ȩ yè Bȿ y hʦ & 輞" 2y 赞"y "yʏ d "yȡ h 1Șhd ;x yx! T}xxx$ wdx% lx=y"hwx&f{ Ty ^ TT{x PT}x'x T{xx' l\x'xld?d@0 Tl#̡l)T|xx'̸ !̏l ḷ:x!Ϊlf"ܕT} x(lx)lx*l̔lTlVHTT\\ h hR\h "p8hp8hBhTyB h !Ӕ 1d?d@ Tl#{ l9l6dd h̻6 f>رȧh hȬ!T~y lz  dyy՜!\‡yćy?y{̧ : l 1 d "p< d_d?d@,dy\yهy?y{yd{ ylylHTT hh h h_ h^ hDT~_{ 4  MN !Bd?T~{?{{ 6 h6 f>d d hnغ 1n l\·{?{{ȥlȣlHTT h h\h` h f> `1u Ad?qd@odAdBdCedDa 'dGdHdIdJdKdL h h@nضز 1dUdV h h*nؠ؜ 1d_ THDf Hb h  h (" 1\( h f\h! ("#& w1\uHwHf b"h_h\a  b XXhO Tv "Tv}G I b b hG>` TG`/F9/` T9<'@b @b .*Tvf Q1 DfVtV=(hT% hhT$&%! ,&&!2Df` ȾE3bb""H4Ȫ ("K 1\(h !5"D HH+HbX_ XRT TwCh`hHXhp XR"9f}HX7&  țhș h 1 dGp8 dHKdLdT{xxxxx?x{̄ f dx dxBdCd_d??d@\܇xx?x{{ B̚x <x l\ćxx?x{ + dx5 n l!l\xx?x{ xlxl̺lTlVHT|IT|T\\hh \h  $  Tz ?  9Tz{ + 1-.=` TmTmTy  h hnطط 1 lȮlȬlHT|IT|T h hhh h h\hh\hh"/h l!2=b"/dh h<"hf{| =  Tz  7l lH T|IT|Th\h\hh HHT|IT|Th\"=` To@H;h:T|IT|Th5\h4\h3 L10"/`: ` $ w =b ` f| q l` dhh "p8( hT{zPdT{zOzN?zN{{ P hd!$>  hlh h连 غغ 1THDf Hb h  h (" 1\( h f\h! ("#& w1\uHwHf b"h_h\a  b XXhO Tvt"TvG I b b hG>` TG`/F9/` T9<'@b @b .*Tw3f Q1 DfVt=(hT% hhT$&%! ,&&!2Df` ȾE3bb""H4Ȫ ("K 1\(h !5"D HH+HbX_ XRT Twh`hHXhp XR"9f}HX7&  h1ؿ-ݘ !(ȶ`dRmȬ lp8 hRBhըn lT  ? {Ȓl@HH TTh\hH;h:TTh5\h4\h3 L10(`: ` $ w =b ` f| q l` dhh "p8( hTdT܏ۍ?ۏ{{ P hd!$>  hlh h连 غغ 1 ȱ ?  hȧhȡl l lț Ȗ  \ۍ?ۏ{̱  ld& h6j d{ 2ը Ϩ ̨ Ȩ è Bȿ  hʦ & 輞" 2 赞" "ʏ d "ȡ h 1Șhd ; ! T$ wd% l=y"hw&f{ T ^ TT PT' T' l\'ld?d@0 Tt̡l)T'̸ !̏l ḷ:!Ϊlf"ܕT (l)l*l̔lTtHTT\\ h hR\h "p8hp8hBhTͅB h !Ӕ 1d?d@ Tt{ l9l6dd h̻6 f>رȧh hȬ!T<:?:{ Ȓ hؗȑd? d lH d{ h jj f 1Hh Ah |T h ^ h A hȻ$ "p8hAh hțhȚhثTDžɅDžȔ oTRDžׅDžȉ o\˅Dž˅ o !  \х˅Ѕ˅ o l 1T˅Տ odd( !(\…ԅ̾ͅ o̍ d\ͅɅ̰ͅ o\͏̦ͅ op4dB\…υ̍ͅ oT͏ o "z 2zd?d@ Tt{ udd_d?d@TЏ?{ w̟ q\͏̲ Z d dd̏6 f> l  d՜!\ď?{̧ : l 1 d "p< d_d?d@,d\ُ?{d{ llHTT hh h h_ h^ hDT_{ 4  MN !Bd?T?{ 6 h6 f>d d hnغ 1n l\Ώ?{ȥlȣlHTT h h\h` h f> `1u Ad?qd@odAdBdCedDa 'dGdHdIdJdKdL h h@nضز 1dUdV h h*nؠ؜ 1d_ q  3hhT{ dT?{ d{HTT h h h h h\h^`=(hh d{T?{ 'd[d\dXdYd^d_d`T?{H T͉ hT  ? {{ X' 8 h D h h՘! h#h>  h1ؿ-ݘ !(ȶ`dRmȬ lp8 hRBhըn lT  ? {Ȓl@HH TTh\hH;h:TTh5\h4\h3 L10(`: ` $ w =b ` f| q l` dhh "p8( hTdT܏ۍ?ۏ{{ P hd!$>  hlh h连 غغ 1 ȱ ?  hȧhȡl l lț Ȗ  \ۍ?ۏ{̱  ldH TT h hw h hhh 1 Ahp8h DH TT h\h\hhhQDhMHMhLTT"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=` TuTuDi RA1߰ l`h hV h hP hLHGhFTT"h6h5\"h2: 5\h4\h3h)\h-\h,F*`T|T|T| 6fbf b l `HYTT""hPhM\""hM\hL\hHDlFHhD6>t;2S:4ah?H=8499H6h6," 1d'hh &hh !d#aR8s$d1dL laHqh HHTTh ` _4lHTTh  <  țhș h 1 dGp8 dHKdLdT?{̄ f d dBdCd_d??d@\܏?{{ B̚ < l\ď?{ + d5 n l!l\?{ ll̺lTtHTITT\\hh \h  $  T ?  9T{ + 1-.=` TuTuT  h hnطط 1 lȮlȬlHTITT h hhh h h\hh\hh(h l!2=b(dh h<"hf{| =  T  7l lH TITTh\h\hh HHTITTh\"=` Tw}@H;h:TITTh5\h4\h3 L10(`: ` $ w =b ` f| q l` dhh "p8( hTPdT񏊆ON?N{{ P hd!$>  hlh h连 غغ 1 ȱ ?  hȧhȡl l lț Ȗ  \N?N{̱  lQdH TITT h hw h hhh 1 Ahp8h DH TITT h\h\hHhTITTh\h\"h\h2 2T " :D h h h h Ha 1L@ n q+ l*X` g q̿X `  g q;` 0A" lȠ`|h hV h hP hLHGhFTITT"h6h5\"h2: 5\h4\h3h)M  3\h-\h,*`T|T|T| 6fbf b l `hhQDhMHMhLTITT"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=`< TuTuDi RA1߰ l`Hqh HHTITTh  < hˈh hTĄ hƘ5 nT?{ { hhTH{ȓ hT?{̫ _BdCd h n؊ `1\Ą?{̌ @T{ 7d?d@` Tt % ld d:dIf"T llllTtHTT\\h/h8\h'  $  T ?  9T{ + 1-.=` TuTuT  h hnطط 1 lȮlȬlHTT h hhh h h\hh\hh(h l!2=b(dh h<"hf{| =  T  7l lH TTh\h\hh`=(hh d{Tȅʅ̅̅Ǎ?Ǐ{ 'd[d\dXdYd^d_d`Tȅʅ̅̅Ǎ?Ǐ{H HHTTh\"=` Tw}@ T4 hT250?0{{ X' 8 h D h h՘! h#h>  h1ؿ-ݘ !(ȶ`dRmȬ lp8 hRBhըn lT250?0{Ȓl@HH TTh\hH;h:TTh5\h4\h3 L10(`: ` $ w =b ` f| q l` dhh "p8( hTdT?{{ P hd!$>  hlh h连 غغ 1 ȱ ?  hȧhȡl l lț Ȗ  \?{̱  ldH TT h hw h hhh 1 Ahp8h DH TT h\h\hHhTTh\h\"h\h2 2T " :D h h h h Ha 1L@ n q+ l*X` g q̿X `  g q;` 0A" lȠ`|h hV h hP hLHGhFTT"h6h5\"h2: 5\h4\h3h)\h-\h,*`T|T|T| 6fbf b l `hhQDhMHMhLTT"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=` TuTuDi RA1߰ l`Hqh HHTTh ` _4lT0T{T\h\hh\h d{ld Tw}TtnH BhT {Y`a !=a? ) 4A $" Q!' h%  1 1 +  Ka m 8  2aT{"OhY[$ ` TDD{:hUT hF hAT#${T9#=:ȶ3%// d{"b%? ` TDD{h?hhhhh+hT#{r`πbb22D b b b b b b bbbbbb b I b TT"TD sf?hh hhhh؛ؘؕDb Ȓ b h  < <#  3(h=`Tue Q1>rj;g_d?d@ &@ 0b  /b   .b =b @Tw3e Y1 d{d{ b$` T f{lTt d{ h5 j&h!h hhT# "  4Ƙ # l lȳhȳl Ȫ   l̸  Ȫ  l lh̪ l ̣ lD  #hhd !h|hwl   !| l=`d Tu` Tu ,фddd9J" d{QdKl l7/ f"+f"̢l lϜ=>df"ܻJ ̾l D  Tt̺ lll̝lHT{Th\h-h\ h)h hy` d{T2  Fd `d hhTՇ66{ hT#68<<*?*{  Dh d xa ȭhȤ ȩh=`ShTw}Tt F /ȍ W?  h> L d1 h3  h}'d+ lT#+){{ , .Q h_۔? ʔ@  l\Շ+*{ Al BlClDlHT{Th4 h\h\hh\ h#HhT{Th\h\"h\h2 2T " :D h h h h Ha 1L@ n q+ l*X` g q̿X `  g q;` 0A" lȠ`|HQHPmL`V B"C ;6 o5  ,1aH* X(hHX#hHT|+ f b b b C(I(hHK"( hT| "V " 1 fb h`p  $  T ?  9T{ + 1-.=` TuTuT6  h hnطط 1 lȮlȬlHT{T h hhh h h\hh\hhH;h:T{Th5\h4\h3 L10(`: ` $ w =b ` f| q l`(h l!2=b(dh h<"hf{| =  T  7l lH T{Th\h\hh dhh "p8( hTGdT#FE?E{{ P hd!$>  hlh h连 غغ 1 ȱ ?  hȧhȡl l lț Ȗ  \E?E{̱  lHdH T{T h hw HHT{Th\"=` Tw}@ h hhh 1 Ahp8h DH T{T h\h\hhhQDhMHMhLT{T"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=`n TuTuDi RA1߰ l`Hqh HHH+HbX_ XRT Twh`hHXhp XR"9f}HX 7&ؐ 1T1?{̍ (\„?{{  d dn 1\Ԅ?{lTtHTT\\hGhP\ h h\h9T{ 4  MN !Bd?T1?{ 6 h6 f>d d hnغ 1n l\Ώ?{ȥlȣlHTT h h\h  $  T ?  9T{ + 1-.=` TuTuTY  h hnطط 1 lȮlȬlHTT h hhh h h\hh\hhH;h:TTh5\h4\h3 L10(`: ` $ w =b ` f| q l`(h l!2=b(dh h<"hf{|x  3$ =  T  7l lH TTh\h\hh dhh "p8( hTjdT,ih?h{{ P hd!$>  hlh h连 غغ 1 ȱ ?  hȧhȡl l lț Ȗ  \h?h{̱  lkdH TT h hw h hhh 1 Ahp8h DH TT h\h\hhhQDhMHMhLTT"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=`w TuTuDi RA1߰ l` HHTTh\"=` Tw}@Hqh HHhTTh\h\"h\h2 2T " :D h h h h Ha 1L@ n q+ l*X` g q̿X `  g q;` 0A" lȠ`|h hV h hP hLHGhFTT"h6h5\"h2: 5\h4\h3h)\h-\h,*`T|T|T| 6fbf b l `T dqdodmdkdCidD d d d dT} d d d d d d d d d d dddd_dfXfY dHTFAdGTUIG   d  l lV2 `rPpT !*&l%ld ldAl  ̮d\T ;ܣ 1$̜dd ̹d llPl\lP̹lllT:̟l ddTt8H5TT h hbh h{ hy h h hp hp hn\ h h\hGh h\ h` hF\hF AdG d"pdAA6 EH ?  g l6 fW nTT " ddl lG6ܝ nܽnfYȚ " lŜ5 nܤll ḍn͌ dB n d7 lA8n l̴6 n n nfW d0\ d@d/ +T/d8 lG8Hnܹ\ "dXdT% " dʔ DĜ $dB̽ h\† lŒd5  dA=Κn ḽ l\l l֜9fWd/T̥d2̦d3 d0@  lG7HfܻTl l7nܚܪff d.θ TT "ll dnn l !C\dB dAߜ9Wf,l\ d8d5 l`fW͸n܍ܗT !eUddT% !Tl d/ !TdBWhTȔ l,n-fX l l l l dE1  0 2l3l\ @~W  38 HHQ l:dAΔH 0͔ ) l( tdB     W  l HTTh HH=@ 7Tw3d d{@ H#TTh\h\hB RJR3 2  H>K"( d   `h < 8(d $߄ h HTThhhQDhMHMhLTT"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=` TuTuDi RA1߰ l` dAdhhWllTU  lT% !  l  h TC MH HNHKDd>@HChC= h>"Tw @  @  H,h,'T|+.2dadDTwEa d@Hqh H HH=`TwD@ =dDhF AdG d d? dEddHd hT% " d hWh " ȸ  Ȳ  ThWhTUIG !, lȞ Ț hȍhȏ >\ڏdӀWh\ڍIG 1lldήdAXdBΥ  d? d\ ddv lG7HfffddWd !TlWhTU !#:llTP llT% !8 l l \Ҋ֏ ̲l̴l\ !ΰ l d AlBl dܣ HTCXHW +h dA! TAGdBWh hTC*] 3HdA  l lTCAXHH`dA(dFl"h h hl!, AdB Ah  HhhhĨ nοn@HH TT h\ hT dYdWdUdSdCQdD d d d dT d d d d d d d d d d dddHdAdFAdG l= n騑 nTG -d)dT8 _Wd d!TlWhTWIGd >̤dBdXdVd d d %   $  z z   z dEQ llT "̾ ܚ l\ބGlΌlβl llαl%   $  ̥ Z̖ V? Q̚ ̎  F̶  lT̲ !JTB l(l'l%l#l!lllTdB dA̝!Wfo l l ! l l n 1l dHdTtJHGTpT{ h hh h h h h h\ h h h h h h h h h h h\h^\ hh hhZ\h l:dAΔH 0͔ ) l( tdB     W  l HTpT{h HHTpT{=@BTu@ H#TpT{h\h\hB RJR3 2  H>K"( d   `h < 8(d $߄ h HTpT{h HHTpT{h\"=` Tw}@hhQDhMHMhLTpT{"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=` TuTuDi RA1߰ l` dAdhhWllTW*  lT !  l  h T  3LC(*iHHqh H =dDhF AdG d d? dEddHd hT " d hWh "ȸ Ȳ ThWhTWIG !, lȞ Ț hȍhȏ >\ڏdWh\ڍIG 1lldήdAXdBΥ  d? d\ ddv lG7HfffddWd !TlWhTW !#:llTl llT !8 l l \҇ ̲l̴l\ !ΰ l d AlBl dܣ HTЍCXH H!H =`TpT{aa a aTxd@Ti drdpdndldCjdD d d d dTQ d d d d d d d d d d dd dA f 1 l fH 1 hhd ! l l lJlIdGdEdCdAdl:dF AdG l d TG  $  lllT " ?  } dAǜ7f̮f̭fT &Wd l!TAdWhT)d Ɣ T̥ " l֜ $ l\֏dWh\d 1 l >\lWh\d !ΩlƜ 1ddTU "  l\lWh\d 1TބGdAWdXd dVd dd% $  F B   8Tp lň2hT̝ " ̸d̹d̋G l l "Y l  l 4! lTԄl Ф lll7̩l.̯l-̰l,dddddTdB dAG<WfHddTt\HYTYTd hr h h h h h h \ hh hR h h h hJh hGh hDh hAh h>h\ hP hy hw hu\ h:h hhY\heS l:dAΔH 0͔ ) l( tdB     W  l HTYTdh HHTYTd=@BTu@ H#TYTdh\h\hB RJR3 2  H>K"( d   `h < 8(d HHTYTd"=@Tw @ $߄ h HTYTdh HHTYTdh\"=` Tw}@hhQDhMHMhLTYTd"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=` TuTuDi RA1߰ l` dAdhhWllT)  lT !  l  h TCRHHqh H =dsDhF AdG d d? dEddHd hT " d hWh "ȸ Ȳ ThWhT)IG !, lȞ Ț hȍhȏ >\ڏdmWh\ڍIG 1xlyldzήdAXdBΥ  d? dn\w ddv lG7HfffdpdqWdr !TlWhT) !#:llTU llT !8 l l \҈pw ̲l̴l\ !ΰ l d AlBl d  3`oܣ HTCXH H!H =`TYTdaa a aTxd@T愥 dddddCdD d d d dT d d d d d d d d d d ddQdOd"d dHh 7 $ l hdA5dF hTT:̍E ׄl % !TAldlTt "HTT h h h h h h h\ h h\h\hA H#TTh\h\hB RJR3 2  H>K"( d   `h < 8(d dF AdG dhhTA 0Wh dٜ!TlWhTIGh ݌dBX ٜ TF "- " n BT| "-hhίlΫl\ -TX "-Ιd l !~\ބGlWh\ Wl ! ܜ $lTdd dAB8n\O\ !I\ll l̻>@ee  lf 1T  lnܸ 1TX < l ldd @ HH l:dAΔH 0͔ ) l( tdB     W  l HTTh $߄ h HTThHqh H dAdhhWllTƏ  lTX !  l  h TCH =d DhF AdG d d? dEddHd hTX "C d hWh ">ȸ >Ȳ >ThWhTƍIG !, lȞ Ț hȍhȏ >\ڏdWh\ڍIG 1lldήdAXdBΥ 1 d? d\ ddv lG7Hfffd d Wd !TlWhTƏ !#:llT llTX !8 l l \҇  ̲l̴l\ !ΰ l d AlBl dܣ 7HTCXHTƏ̍G  h q hhhWll\a MTX !Gh dȜ !;ThWh\̍G !+ȯGdBWh\^a ȟl dA8nT|ǘ  d] l lHzhhQDhMHMhLTT"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=`4 TuTuDi RA1߰ l` HH=@Tz&&2d@dA  l lTCAXHH`dA(dFl"h h hl!, AdB Ah  HhhhĨ nοn@HH TT h\ hT dddddCdD d d d dT= d d d d d d d d d d dd_dfXfYT*̫ !BP >MdKd#d dHh 8 5 l ddA0dF  dTT <ٌl % !Tdll Tt $H!TlTw h h h h h h h\ h h h\h\h-F AdG d"pdAA EH m? P  l6 fW nT " ddl lG6ܝ nܽnfYT1̦ " lŜ5 nܤll ḍn͌ dB n d lA8n l̴6 n n nfW d\{ d@d +Tjd lG8Hnܹ\ "dXdT " dʔ DĜ $dB̽ h\†} lŒd  dA=Κn ḽ l\l l֜9fWdT1{̥d̦d d@  lG7HfܻTjl l7nܚܪff dθ T "ll dnn l !C\dB dAߜ9Wf,l\ dd l`fW͸n܍ܗT1 !eUddT !Tl dܜ !TjdBWhT̏ lnfX l l l l dE  ll\ @ HHQ l:dAΔH 0͔ ) l( tdB     W  l HTlTwh HH=@ 7Tw3d d{@ H#TlTwh\h\hB RJR3 2  HH=`TzrD@ H>K"( d   `h < 8(d $߄ h HTlTwhhhQDhMHMhLTlTw"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=` TuTuDi RA1߰ l` dAdhhWllT  lT !  l  h TyC̏Ί H HNHKDd>@HChC= h>"Tw @  @  H,h,'T|+.2dadDTwEa d@eHqh H =dDhF AdG d d? dEddHd hT " d hWh "ȸ Ȳ TjhWhTIG !, lȞ Ț hȍhȏ >\ڏdWh\ڍIG 1lldήdAXdBΥ  d? d\ ddv lG7HfffddWd !TjlWhT !#:llT llT !8 l l \Ҋ ̲l̴l\ !ΰ l d AlBl dܣ HTtCXHW +h dA! TjAGdBWh hTyC׌ 3HdA  l lTyCAXHH`dA(dFl"h h hl!, AdB Ah  HhhhĨ nοn@HH TlTw h\ hT3  3H;AL$$  *id *jd *kd *pd Tq" = d dddTٍ?#Bh\% hhhT?{{ "6 hȭ!R (h ;  hGȌ 8 (;hT#ȍ ) $&=h\% ,=h ,=h\# ,;hTq% dd ,؀;hTU T?{̕ !Z l   !Cw 3\ބ''{{ !8Tل?# l/ ,;hTߏ##  $&;h\%ddҬl dlɬl TtHTߏ@B TqC H T4T?hh h8nHT4T?h\ h\ hhhQDhMHMhLT4T?"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=` TuTuDi RA1߰ l`h hV h hP hLHGhFT4T?"h6h5\"h2: 5\h4\h3h)\h-\h,(*`T|T|T| 6fbf b l `Hqh HT̅%ALTc??T?{{ " Ҙє@ ɔ? Bh hhT hȸ $ȭ  (;hT (;hTؖ (h f; hȊ \ ȕ  $;h\ӄ ,;h\ d ,;h\ \ J l ,ـ=h ,Ԁ;hT] ,h贖> + ,h1.=  ̳ l ,;h ,?h ,;h\ ,;hT̔ VT ?{{ ! Q ddyl TtH,h贖> + ,h1.=  ̳ l ,;h ,?h ,;h\ ,;hT̔ VT ?{{ ! Q ddyl Tt#H0`AL? d{T! hFhˈh hT & } hhT""{ȭ hT{"$''?{ D BhChT@\E Ȇ  0  "UdVd !T? d d\T?p S!h(=`Tu Di  d{`$H ht _hh)TwhH1HhhT|HhaHhsȭȪȠa(bȞa)bȜa&bȚa'b #4Ȗa ȕa/ hhhh  < 4$2h| HwhuHyhxHohn'Hqh HT0`AL? d{T! hFhˈh hT & } hhT""{ȭ hT{"$''?{ D BhChT@\E Ȇ  0  "UdVd !T? d d\T?pt;2S:4ah?H=8499H6h6," 1d'hh &hh !d#aR8s$d1dL lahhQDhMHMhLTT"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=` TuTuDi RA1߰i  3 l`H;h:TTh5\h4\h3 L10(`: ` $ w =b ` f| q l` dhh "p8( hT!dT{?{{ P hd!$>  hlh h连 غغ 1 ȱ ?  hȧhȡl l lț Ȗ  \?{̱  ldH TT h hw(h l!2=b(dh h<"hf{| =  T  7l lH TTh\h\hh h hhh 1 Ahp8h DH TT h\h\hT#(77 {8 a` T Tt d{TV  h>hˈh hTĄ hƘ5 nT?{ { hhTH{ȓ hT?{̫ _BdCd h n؊ `1\Ą?{̌ @T{ 7d?d@` Tt % ld d:dIf"T llllTt)SHTT\\h/h8\h')M  $  TDŽ ?  9T{ + 1-.=` TuTuT  h hnطط 1 lȮlȬl0HTT h hhh h h\hh\hh)M(h l!2=b(dh h<"hf{| =  T  7l lH TTh\h\hh`=(hh d{Tȅʅ̅̅Ǎ?Ǐ{ 'd[d\dXdYd^d_d`Tȅʅ̅̅Ǎ?Ǐ{H$HHTTh\"=` Tw}@)M)F T4 hT250?0{{ X' 8 h D h h՘! h#h>  h1ؿ-ݘ !(ȶ`dRmȬ lp8 hRBhըn lT250?0{Ȓl@HH TTh\h)F` H;h:TTh5\h4\h3 L10(`: ` $ w =b ` f| q l`)M)FDŽb S  dhh "p8( hTdT?{{ P hd!$>  hlh h连 غغ 1 ȱ ?  hȧhȡl l lț Ȗ  \?{̱  ldH TT h hw)M?%g h hhh 1 Ahp8h DH TT h\h\hIHhTTh\h\"h\h2 2T " :D)F7 h h h h Ha 1L@ n q+ l*X` g q̿X `  g q;` 0A" lȠ`|mh hV h hPq hLHGhFTT"h6h5\"h2: 5\h4\h3h)\h-\h,*`T|T|T| 6fbf b l `{)F{FhhQDhMHMhLTT"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=` TuTuDi RA1߰ l``?)F{Hqh H0?HTTh ` _4l)F4T h#h>  h1ؿ-ݘ !(ȶ`dRmȬ lp8 hRBhըn lT  ? {Ȓl@HH TTh\hH;h:TTh5\h4\h3 L10(`: ` $ w =b ` f| q l`)F$ dhh "p8( hTdT܏A  3ۍ?ۏ{{ P hd!$>  hlh h连 غغ 1 ȱ ?  hȧhȡl l lț Ȗ  \ۍ?ۏ{̱  ldH TT h hw h hhh 1 Ahp8h DH TT h\h\hhhQDhMHMhLTT"h9h8\"h5h4\"h1\"h.\"h+\h*\"h'\h)=` TuTuDi RA1߰ l`h hV h hP hLHGhFTT"h6h5\"h2: 5\h4\h3h)\h-\h,F*`T|T|T| 6fbf b l `)FHYTT""hPhM\""hM\hL\hHDlFHhD6>t;2S:4ah?H=8499aH6h6," 1d'hh &hh !d#aRp8s$d1dpL l#`a #& Hqh $H͋HTTh ` _4lHTTh  < B0`hXX-;T:XTT:/X h h T:XyLOCL$$HOST $  hk hcXXXT:X@XXXAT:X0X#G  0hBBȠ = 0h97 3h74h6T:X&%#'  d hDhT:X$$BATCH @@J J001 X0XDQXLUT:XXMXX QH9B0F 0 0th,X@XT&X\;T:.%!XT:XT:X AL$$BD ( h THf`G U`y! 2`h K(XLD2f"`b\d `df:,X7MdB03Fl)1tH& X" 7d `bb 2b.b 1!TSLOG fULBUFF[ " h  n h j q h j h j h?XX;T:XQT""G:XH99hhh*gh*hh*fh h T ""G:X(T:X" UHh]h3 h THf`G m1 Mj qX: XT:T:T:T: h hTLf# $$ SYSVOL EXECUTIVE PROGRAM NOT LOADED -REQUEST REJECTEDFILE NAME: ERROR STATUS= $ -REQUEST REJECTEDC C S ACTIVE AT BUILDING SYSTEM FILES X%X#X!X  3XXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` X T XY X^ hȧX " 衒2 " Xj0\a b bbh`daaza n  n Hpt "  "螒  ` > w `2  `" 1i" H h hTDf 1iH2XX""h,Xh((h*%Dh%!Hh Lh  ! Aj B B Ȉ LlHYhXX\X_hSX\hQ ` hOKhLKB0 hG0HFBCV Atm;;m75 2#h0 `()[0 m 0  m  ` #h  ` `LIBMAC@ASSEM XASSIM XPASS1 ^PASS2 PASS3 TABLSTXREF MACSKLMACROS_LULISTpLISTR OPSORTBGNRD EESORTCOSY CUDDLY-LCOSY X?? @ @ o&oEimml9lQllyUi*^*iO`t lTlT VTT tT T TTT *ST mTT T TT TpUq[;[;[;[;[;[;[;[;[;[99 i~*f*g*hZԍ=Y(r THIS MSG CHANGED VIA MI, SYID..080180  b   !%)-159=AEIMQUY]aeimquy}  3  !%)-159=AEIMQU!%%5    ' p -\ w w ,  ,!@@@@@@@@@@@@@!! Y  w p ,TERMINALPRINTER LPRINTER READER TAPE0 TAPE1 $XRmnR Ry3pR  &R  &}~pR  &R  &R F$ R F$ -R F$ \R F$ R F$ R F$ R  R  R #u f@ c `@R #u f@ c `@R #u f @ c ,`@R #u f!  3@ c `@ wR ,< R , < R   YR梤<4 |  R 6FA  |RJ R( PPPPPPPPPPPPPPPPPnwZ|  3(  3<  3 P(())+````)F)r)))TTTTT X X"doT$T*DTR T$`*O h 6 l#TRf  3 dL  @JPRETNp#FMEXECrR9TAPF1_R9SEGF1_ Ehhr zt<SME``f` j jk#5::? DMM ",!,/,=,K,Y,g,u,,,,,,,,,----+-9-G-U-c-q----------. .f` j jk#5::? DMM ",,-,;,I,W,e,s,,,,,,,,,,- --)-7-E-S-a-o-}---------. ..%.3TB_^1_%LDQ* BASE_^1_%ADD- BHAN,Q_^1_%TRA Q_^1_%JMP- (ZERO),Q_%EXIT TO "OFF"_^1OTB_"ADC HANDLE_'0. "HANDLE" ENTRY_^1_%ADC OFF_*1. "OFF" ENTRY_^1SMN49 SQN SMN50_(SKIP IF NOT PRINT HEADING_^1_%RAO* HEADIG_'SET NO HEADING FLAG_^1_%JMP* SMN40_^1_%SPC 1_^1*_1UPDATE POINTERS_^1SMN50 LDA* SMNVAL_^1_%SUB* SMNVAL+3_^1_%STA* SMNVAL_^1_%LDQ* MMINP+4_^1_%ADQ* SMNVAL+3_^1_%STQ* MMINP+4_^1_%SAZ SMN51_^1_%SAP SMN53_^1SMN51 JMP* SMN34_(ALL DONE_^1SMN53 LDA* COUNT_(UPDATE CORE BUFFER_^1_%ADD* SMNVAL+3_^1_%STA* COUNT_^1_%INA -96_^1_%SAP SMN55_^1_%JMP* SMN36_^1*_1CORE BUFFER EXHAUSTED, UP DATE MM ADD._^1SMN55 STA* COUNT_^1_%LDA* SMNLOC+1_$UPDATE LSB_^1_%INA ONESTR_^1_%STA* SMNLOC+1_^1_%SAP SMN56_^1_%RAO* SMNLOC_'BUMP MSB WHEN LSB OVER 32K_^1_%AND- LPMSK+15_^1_%END0V4RjBGNMONRkSYSMON02SYSDAY18SYSYER80SYSLVL49LIBEDTLOADSDJOBENTJOBPROPROTECJPLOAD#JPCHGE*JPT13 1JCRDV48JLGOV4?JPSTV4FNAMEV4MJPFLV4TAFILV4[RESTORbRCOVERiBRKPT pODEBUGwSYSCOP~SYSSEGMIPRO TDFUNCEFSTOREFLISTVERIFYSYUTILMNTCHKDISMNTAUTOBTCNWAREKICKOFCALLCPCPLOOKTRMLUPTAPSETSAVLABRESLABSMDCFGDUMMY1 DUMMY2CPAREAUNPSRTUNPENDSTRBASMSIZV4SECTORMASKT EMAXSECkMPFLAGpSYSID tSYFAILUBPROTLBPROTUPBDTBLOBDTBINTSTKEXTSTKVOLBLK^VOLENDSCHSTKSCHLNGLOG1A NUMLU !CCPLU MT50U0MT50U1MT25U0MT25U1TERMLUCONSLULOG1 LOG2 )ALTERRKDGNTABmDUMALTLSTOUT STDINP BATLSTBATINP LUNAME{INVINTPCORE PCONSLMIINP TK7WEFTK7DATTK7RW MICSUB"SEVENTSEVNRDPTPDT0[PTBSIZPTEOFVP83310P1829 _CDRDSMP1811L CPTRAC PCCP1 AUTON 2PBAT00 3PBAT01 CALTHDRLVLSTRTN4 N5 N6 N7 N8 N9 N10 N11 N12 N13 N14 N15 COMM18HWINITU2INITSIMRSVQMINTXLSTLOCiPARTBLeLSTPRTBUSY jTSAREAfTHDS USE OUTPV4RDPTV4SPCEV4PTNALCPTNRELK65T10K65T12K65CORFMRDEL^FMEOFC_FMMOSU FMMOIU FMNRCDMAXCOPUCTLEN lUCTABLkMAXLOCLRTABLNRERLE.FMMOSFFMFCBS/FMMOIFFMFCBIFSCTNE&FCBSCT FSLIMT!FSLEND".MMLUTB"/PCTABL"IDLE #qIDLER #vINSTLUIDLCTR#{TMRTYP#TMCODEFSTIME#DMICOD#TBLADR#EMPSRT#EMPSTP#BUFF #BUFFE )CGHOST)AYERTO)AMONTO)ADAYTO)YERTO )MONTO )DAYTO )HORTO )MINTO )SECON ) CONTA )!HORMIN)"TOTMIN)#TIMCPSBAITOS  3 xDATFMTDATSEP/TSTLOC23PRTCDR25SWPSEC27R9TAPF28R9SEGF28WKSPLU29LRGUSR2:RQLLIM2;RQULIM2COPYQ TQCOUNTBAITOSDATFMTDATSEP/TSTLOC1XPRTCDR1ZSWPSEC1\R9TAPF1]R9SEGF1]WKSPLU1^LRGUSR1_RQLLIM1`RQULIM1aTSOFFM1bRETIME1gONTIME1iFILOAD1lQPASWD1mTSLOFFWKSTAT1qTSMUSR1rTSMEND1RMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX1R9MUX2R9MUX3R9MUX4R9MUX5R9MUX6TSPORT1TSPEND7TSUSER7TSUENDBAITOSDATFMTDATSEP/TSTLOC1ZPRTCDR1\SWPSEC1^R9TAPF1_R9SEGF1_WKSPLU1`LRGUSR1aRQLLIM1bRQULIM1cTSOFFM1dRETIME1iONTIME1kFILOAD1nQPASWD1oTSLOFFWKSTAT1sTSMUSR1tTSMEND1RMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX1R9MUX2R9MUX3R9MUX4R9MUX5R9MUX6TSPORT1TSPEND7TSUSER7TSUENDCOUTV4pUOLDUMPpwCOBOP qFMEXECrFMSWAPtFMSCOMtFMCOMPtFMCOMEtFMPPROtABSPARuvCKUADRuMMREADuMMWRITuLOKCHKvtREMLOKvINSLOKvCLFRIOwFMUFCBw3FMCHKOwoFMCOVLw}FMBRRNwFMFSRCwPUTRECwREADRCxGETNXTyWRTBAKyMRECADz&COMSEQzrUNLOCK{LOCKFL{FSHARE{FUNSHR|DWADD |DWSUB |DWMUL |CREAT }S@P ` B1 aX a E ( ff q0h X $XT TQy  3T@PhHTL LIBMAC ERROR 00h H aTL`h H  aTHU@P1` aT\ VPLIBMACWPLIBMAC P{aASSEM A01 A ASSM CCS 3.0 SL-149Y@P k d f pfvB 0 h hh5 phvhTZNZ@P+" fo fuX' hTLABS BASE ERR6 hPASS1 PASS[@PV2 PASS3 TABLSTXREF \PASSEM ASSIM ]PASSEM k d ffB 0 h hh5 hhTZN" ffX' hTLABS BASE ERR6 hPASS1 PASS2 PASS3 TABLSTXREF ddkd lddl2kdI`B f@ qdaa a! da aUUaaad͗hmhhnd͖X 0 c1 q\KT:5>d  f q8- -n< +n:\JXP\"\54#   @dnT!a" a Tœ\ B!g +n  -nΔ +n  -n"aT9d A("(d Q< `( ; da(  -n( +n*  B ,n( +n ba*)* q ( bR U 4\XVa - #n q Ί# q 2@TT˲Q J aa a A a''̐νX@' `a'T˲Q C a a a X    XPXN ?$ a#f 64$( a4h u  Ha(M| I S Ga  uR u  *nX!X T a "A2 0 X !"\Xha!a''  ""h)E *n )X'Hhh aTL ÕSQMCMDOP** ** ********** A(  2( :c((a- a(- A)*+ȁ, X  ͚Mv  3h ( ff0 q a)a*#F a( ?# (a( &c+ A (c# qTL MASS STORAGE OVERFLOW $ ?#f 64$( a4a !d̢ Q `~0N6ɱ~N)JH/Nl%>9%%.%. NS2SE1L.L0L-N:N.N0N-NNMMNMNMƳK RARMRQRBPaPmPqPb-1"-1"0-010" - 1 "|X5 4 s S;:$$&2t@o$9NTΏ6A]p#^g5g#Eg@ `HPX(08hpxhJHJGH?h> _:n: q H66Tβ `"0 h A& `#4 ZdnTL  OV CORE RES. MACRO DIR. ?  3|a( A)@ #rdl C @q` R2 C `  a a TsT\y aX#f@ $n %n A. l` aTXpn nA h\J\J\JA J!1DXL#Xp a aT3T$X\* \3a(\:  '(a( \9 ( qJ \91œ`G<a.X.h n a  AT$ $ \ ֑# q 1#nX!\ Tn 0 aA a \\\3 a aX\X"1X1X0ah R  H aȀnaaT aata Q H U $ n H a  a( a\( Aah`ahy _nv qa6alo nk a T  %  *!]\ A\W= a  \X"Z26 A? _a6 a 4  Q\ aaa6aXm8    A6 * n #c. qrù Xi a  *n  "jX"" _`nb q^ah [XE E(  2( 2 A :c((a+ a(+ A*a()X)(X' X% aa(@ *n a (9T #. ra\ a Ga a R _n E 0aXUalT{a a a\!6S   *\ X,  T4T1\ a7X  aa6X6 R\66 \1 TnX7 7a(!"ȟ\% X `l h q aa Xr" A"T HaF LXH _H hh aTZMACROSh H aTL` `hh H aTH` f q a \)x Q B !TL (n q aTH(a a Ta c@ q@aF AIT a h8h7h6 cD qahX ! alrA 0h!d Bar a8r9 A9T4 )a  anhiXcTL 7 a7FAgAX Aa**aa c B T agaQ *w nq9T  aV  2V :cVVa[ aV[ AWXYȅZ D DDSEXLBPPOPRGRLOVUDMO  X1i\UQA^m \J\I Fj$c: q #    j r  *nn 9T 9CƇHĚĉè \\ "AZ q al al\m  HlAa4aBXe aXaYM\ C aMXYYa1\Ya!\XaW\AXl %  3 BZW  X D   RTLBFV\L ak\m 1X%m8\ akj\B amXm  aj$T TƇ Xm aT aa\`    \ \eam A' 1 a\<  am 4aTĉm  1 aj\7h" cM aXdaZXP a 2a\ haMTƇ am aakTèBcm4B kTma^A  B $1qFaq4o  aMAA  cVB TƇl alM\A\ D B Q" Q 1 a3\\VcV aM\ am a V V r"]^q4btcqFao aoqTmi\maq cP q ARTaQm  \Am 2\ aQaRa+A^F 3S0_Q-CaaaQ(\$ UTŐ1L \ aQ`daa\  ahaRaRTŻRQCĒSbA!  Ac R aQ D TB  rU cUcm Ac11q*aARaR aaQm t AS aQ U U QAc QAQc  QaUaaTQGUAUa!T" 4"BcaaT 1aCaC TahdCaC& TCQX C aC ]cF qQ: d `d* TCT D4X 8c qh H a8TLX8c d DUH H%Ac `d `>bA w RR H:h/F \ JL . XTŻT E TCTŐ1XXI aX7HI df CwFˁF 1>?!7  c qTL =h>T a a>?a>a@a@XNMASS STORAGE OVERFLOW >@AX$ >a=h>T >?a>=h>T4   A @>a=he>\=hs@A>\hh = f Af\A   TC alk\% -" \ aF CTĒ^mq[n(!oC\0ikT AamTƇaN aO  + -b  aO1kwaTAbCTT mO maNf  "X7wTĉN  TĂn$1p +tq -o aq TCQp  [iÖUAq TC Apl l q HaJ({JM Ii S Gal uR u X 8aJXJ6R\(3^0h C\^m 1 aRaQ TCCèƇĉĂĒTk\ aRaQm \_^ \Xxm  \\\ B \ GKINX11\  bIahIFf qX hN $#bXQ\\ Qb\ E \TŻX1\ \N  aCaaQAAakTè B qVCQRAAaCQa@F=haXTN TC c q PAAABACA %HGATĚ `hB aAaBaC7 0 c q al a a9 cD q՘ a a7 **cB NNaT7h H aTL` `hh H aTH` `h aGaHF aF ? FaF H 6cF B  P C D X-P-C-DhHh``1X&df D`1X ف f Dh`T d d  3 k d ffB 0 h hh5 hhTZN" ffX' hTLABS BASE ERR6 hPASS1 PASS2 PASS3 TABLSTXREF d Ȅdd aa8a5a6hTFa`   T$18 h h $h1 hh T adh T cD qahd7 8"TX/q^# Tn&T¯ al aV  2V :cVVa[ aV[ AWXYȁZ rA 0h4dĦ Bar r,9 A9T )$a  an  c A y2t tA "XAan8o T m TT¯T{ aaa8UJ\"A A a P a A \Q P C D X-P-C-DCTŠAaaX aGaHF aF ? FaF H >cF B  8ìcs qS h7 l \ hXy5Xd T hDX X 8g qhH XTȒ1X a8TLU a@PAACA AdX eJc a X 0Ac aT 8aec rdQC Tc  dXe AT aAc @  q  :E B`VWXȁY 0c qgA  a XX aTL]s Xh  A  Hh= 0j7 q aTL]# hT#hr#oaZAg**aAXAaX aQagHU c d D D D DDSEXLBPPOPRGRLOVUDMO****** **********UH H%Ac `d `>bA y RTX >@AX >a>?a>=d>T   A @>a=l@A>\T  alk\5 T aF CT^mqħnqgo " A aoXoikT Aa \mTaN aO  +aO1 -k. ,AJ m˧O maN g  "TihHh``1Xdf D`1Xf D` `d5T5 d dn%1p +q - aq Tp  [i UAq T Apl l q Ha(KzM Ii S Gal uR u !( 9 'Z Ae7_AM  A` J a3mm]c]`dB 14  Taa ae Qamda mjxAav Aa{axmubA1 T agT Am  ahd7 c] qg akaPg]lQ^h7 D7`C !A`VbbkAb abYj_ aPAb^hhOC L3 3     7 aPAdX 6 5 2 1 aeWO  o|XfUo  WFExwF!glpshmaN M  D B SX)iEDX&+EAaJR"P cAJ AQDXYZQaJwXkRAF\eh aR \UB m q^  [EX1aJW\?E\CR\DU aJ\:\ /H9I #TdX \X \X  PAGE 0 DATE: MO/DA/YR aXG TT¯A aaR 2 aR\R aR h cP q ART aQfSm  \m 2\ aQaRahA^F 3S _Q CaaaQYq\l \\h ATó2\T L  aQ`YdBAaa\@MPm .S +bN2L 3 LaQ̲bKN P̂b`daRCL db LSOaaha@=h>XTRQaRQoSbA!  Ac R aQ D TB  rU cUcm Ac19q2aRARaR aaQm SAS. t AS( aQ U U QAc QxAQc  QaUaaTQGUAUa!Ta" 4#BcaaTB!1aQX C aC ]cF qNO b aN\tfQEN2 hm i g eO rNQ# JP QqqhϱRaRaQRCc aRaR!dI1aEJaJC1Zh?JaJNRqM>D L"aKQAU AQm. \(      JaJ\  am\ɏaEʾ\\\m N'KaJUaQaNQD  \RJaJ\mRA!dam R Y CQLQYC aR!QaQR 2 \ RJaJQmi\ \ AWAXAZ      VCVJAJ\ \ h H a5TLah H a6THe`6 `h aaJ aL aaPaQaajahTS     T aaaP aXr ajaT m aaJ8 3j aNTɏaofhE \ a i   C aX5m 2 1j\E \ aabadaj" c aTǥAX j T am P  Q  U C T "qRA  C bAVaVR!A A aC AJaJ aTTETʾ aJ cV qX7ab gTm \.aaabX5aamB R C Z A\XaVX%\T" qVad\cWm 7 B"T   l al  a]ae\e 2 2] Sa]eam ]zA]v]tmrA] a/X!I Ae ! A\TA\HhhhAI\B\HkhkBT\ h7 !\X \X  d hsHXHXHXH nB  h H+  3H 0F 0H 0F 0  PGM= () COM = () DAT = ()  Pa 5 1XT¥1T aD AT aaPa!aX\1\C A\Pa]a^XFaGaHa A\X7uTdX a aa aT3aXTA# aT aX1T=a\XAaaaa\,, ac T XaFcGcHcT 1ATdT$AVac Vc C #AaAa\LX3& 8c qX=X<Ia c A4 XX a8T\{8\4X&! aT\Ã!XyXs a8TD{84ERRORS*Tah H TàaFaF2hadahFc Gc Hc hc D 8AA 9AXr>@AX >a>?a>=hR>T   A @>a=h8@A>TgA   XXU aTLÃ Ï Xh =A  Hh; 0j5 q aTLÃIAc @  q  :E B`VWXȁY 0c qc d D D D D****** ********** P C D X-P-C-D aGaHF aF ? FaF H 6cF B  aV  2V :cVVaZ aVZ AWXY 85 ìcs qhHw"h a5TLËh H a6THÇ`6 `h hQ7 d TP XXX hTDX 8c qhH Xȩ1X a8TL{Ag**aAXbAaXx aQagH*DSEXLBPPOPRGRLOVUDMO h}hXd a (XdghH  aTLà 5hXh a :jPB B0 0HRB8  KHJ 0UhB ""hL ""hD ""B /h> /H9h $X ,X X/ X PAGE 0 DATE: MO/DA/YR *** S Y M B O L T A B L E *** h( ah `hHh  ` H `hӈ@? d dhh+8l dhhh6 `h`hXOh `b  H~` h52b 2  `b `c! ` a " h A!`  hh h hXe h`&2 1 d hܘ" H"f hȾȽ @e  hȪ`ت12Ȥ !'ȡ"Ț H"f" `b h  h{ u hrph c hbHd_ ^ h[ hT_`XhHh HX (X (X29XvFfGfHfIaK X7]f^f hĘ( 1 $ AX HXeXX] h\BHKB!KdBaK hK 0 aKp 0c]K 0 aK h0߃]c]C H] -a] h aGaHF aF ? FeF H 6eF daIh _ f q _ f q k d ffB 0 h hh5 hhTZN" ffX' hTLABS BASE ERR6 hPASS1 PASS2 PASS3 TABLSTXREF TFa   h $hh1 h8` a `hHh  ` H `h؈@: ddBF  3 dhhh6 `h0hXh `b  H`h` $ `~1Whs`Hp XhXc daK Xy ]f^fUX FfGfHfIaJaKX DfEf (f KXP ]f^f_f) fX` $ `1@h `H XhX daK X ]f^fX" FfGfHfIaJX8 DfEfXb`` 3 `2?h`H X;hX' daK X ]f^fX FfGfHfIaJX DfEfX`c ho `h `c17h `d@ aKXk, f]f^f HA"dd"X HX Ȯd` X`B` hb 2  `b `! ` a " h A!`  hh h hX= h`&2 1 d hܘ" H"f hȾȽ @e  hȪ`ت12Ȥ !'ȡ"Ț H"f" `b h  h{ u hrph c hbHd_ ^ h[ hT_` XhUHhS HX::XAFfGfHfIaK X]f^f h̘ 1$ Xf HXWX[XN"XH akd (XHb1 / aT\Ř!"aK 2XL X]h)^h(X X! h X  X  X c q ERRORS "JeXX XĎ X ĚXXĦ !X a XXX X XXADhcDRhaESh^S h\ !ĦX a XXX X ĚXX}VAh9LUh7E h5 h3X a XXe E Q U I V A L E N C E S ----------------------- DEF.LINE NAME VALUE REFERENCED AT LINE NUMBER S Y M B O L S ------------- E X T E R N A L S *** A L P H A B E T I C A L S O R T O F S Y M B O L S *** _ f q _ f qhH  aTLŘ 5hXh a :jCB B0 0HEB8  >H= 0ih5 ""h? ""h7 ""B /h1 /H,h t $XX PAGE 0 DATE: MO/DA/YR DHK 0 aKp 0c]K 0 aK h0]c]C H aGaHF aF ? FeF H 6eF daIh J 2 A :cDJD 2 A :ȃDcDE JHaJh H a6TH`6 `h D O1'' ',',',' EMC O0T' ',1,',',' EMC O0T' ',2,',',' EMC O0T' ',3,',',' EMC O0T' ',4,',',' EMC I  3 O0T' ',5,',',' EMC O0T' ',6,',',' EMC O0T' ',7,',',' EMC O0T' ',0,',',' EMC IFC =====',EQ,====== VFD N8/4,N2/0,X3/',X3/' VFD N4/',N4/',N8/0 PCO 2 VFD X16/' I0 IFC A,NE,A EIF I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/' PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/4,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD X8/4,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/',X8/'-*-1 I0 IFC A,NE,A EIF I6 l  3I7 IFC ',EQ,+ VFD X8/4,X1/0,X1/1,X3/',X3/' VFD X4/',X4/' PCO 2 IFC (((((',EQ,(((((( VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFR ',LT,256 IFC (((((',EQ,(((((( VFD N8/4,N1/0,N1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD X8/4,X1/0,X1/0,X3/',X3/' EIF I4 PCO 1 VFD X4/',X4/',X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC IFR ',LT,16 IFR ',GT,-1 IFR ',GT,0 IFR '+2,GT,' I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/'-1  3  PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5 I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/'-1,X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+ VFD N8/5,X1/0,X1/1,X3/',X3/' VFD X4/',X4/'-1 IFC (((((',EQ,(((((( PCO 2 VFD N1/1,X15/' I3 IFC A,NE,A EIF VFD X1/0,X15/' EIF I3 I0 IFC A,NE,A EIF I7 I8 IFC ',EQ,- IFC (((((',EQ,(((((( VFD N8/5,X1/0,X1/1,X3/',X3/' I4 IFC A,NE,A EIF VFD N8/5,X1/0,X1/0,X3/',X3/' EIF I4 VFD X4/',X4/'-1,X8/' I0 IFC A,NE,A EIF I8 EIF I0 &  3!0 PCO 0 EMC VFD X8/',X3/',X2/',X3/' EMC IFR ',LT,16 IFR ',GT,-16 VFD N8/0,X2/',X2/',X4/' EMC O4' ',',' EMC O0OIS ',',',0 EMC O0OIS ',',',1 EMC O0OIS ',',',2 EMC O0OIS ',',',3 EMC O0OIS ',',',4 EMC O0OIS ',',',5 EMC O0OIS ',',',6 EMC O0OIS ',',',7 EMC O3'' ',',',' EMC O0G' ',',',0,' EMC O0G' ',',',1,' EMC O0G' ',',',2,' EMC O0G' ',',',3,' EMC O0G' ',',',4,' EMC O0G' ',',',5,' EMC   3"D O0G' ',',',6,' EMC O0G' ',',',7,' EMC O1'' ',0,',' EMC O1'' ',1,',' EMC O1'' ',2,',' EMC O1'' ',3,',' EMC O1'' ',4,',' EMC O1'' ',5,',' EMC O1'' ',6,',' EMC O1'' ',7,',' EMC O1'' ',7,5,0 EMC O1'' ',1,5,0 EMC O1'' ',2,5,0 EMC O1'' ',3,5,0 EMC O1'' ',4,5,0 EMC O1'' ',5,5,0 EMC O1'' ',6,5,0 EMC O1'' ',0,5,0 EMC O1'' ',7,8,0 EMC O1'' ',1,8,0 EMC  3#X O1'' ',2,8,0 EMC O1'' ',3,8,0 EMC O1'' ',4,8,0 EMC O1'' ',5,8,0 EMC O1'' ',6,8,0 EMC O1'' ',7,9,0 EMC O1'' ',1,9,0 EMC O1'' ',2,9,0 EMC O1'' ',3,9,0 EMC O1'' ',4,9,0 EMC O1'' ',5,9,0 EMC O1'' ',6,9,0 EMC O1'' ',7,10,0 EMC O1'' ',1,10,0 EMC O1'' ',2,10,0 EMC O1'' ',3,10,0 EMC O1'' ',4,10,0 EMC O1'' ',5,10,0 EMC O1'' ',6,10,0 EMC O1'' ',7,13,0 EMC =  3$l O1'' ',1,13,0 EMC O1'' ',2,13,0 EMC O1'' ',3,13,0 EMC O1'' ',4,13,0 EMC O1'' ',5,13,0 EMC O1'' ',6,13,0 EMC O1'' ',7,12,0 EMC O1'' ',1,12,0 EMC O1'' ',2,12,0 EMC O1'' ',3,12,0 EMC O1'' ',4,12,0 EMC O1'' ',5,12,0 EMC O1'' ',6,12,0 EMC O1'' ',7,12,1 EMC O1'' ',1,12,1 EMC O1'' ',2,12,1 EMC O1'' ',3,12,1 EMC O1'' ',4,12,1 EMC O1'' ',5,12,1 EMC O1'' ',6,12,1 EMC ʸ  3% O1'' ',7,14,0 EMC O1'' ',1,14,0 EMC O1'' ',2,14,0 EMC O1'' ',3,14,0 EMC O1'' ',4,14,0 EMC O1'' ',5,14,0 EMC O1'' ',6,14,0 EMC O1'' ',7,10,1 EMC O1'' ',1,10,1 EMC O1'' ',2,10,1 EMC O1'' ',3,10,1 EMC O1'' ',4,10,1 EMC O1'' ',5,10,1 EMC O1'' ',6,10,1 EMC O1'' ',7,13,1 EMC O1'' ',1,13,1 EMC O1'' ',2,13,1 EMC O1'' ',3,13,1 EMC O1'' ',4,13,1 EMC O1'' ',5,13,1 EMC Ģ  3& O1'' ',6,13,1 EMC 01'' ',1,8,1 EMC O1'' ',2,8,1 EMC O1'' ',3,8,1 EMC O1'' ',4,8,1 EMC O1'' ',5,8,1 EMC O1'' ',6,8,1 EMC O1'' ',7,8,1 EMC O1'' ',1,9,1 EMC O1'' ',2,9,1 EMC O1'' ',3,9,1 EMC O1'' ',4,9,1 EMC O1'' ',5,9,1 EMC O1'' ',6,9,1 EMC O1'' ',7,9,1 EMC O1'' ',1,11,0 EMC O1'' ',2,11,0 EMC O1'' ',3,11,0 EMC O1'' ',4,11,0 EMC O1'' ',5,11,0 EMC   3' O1'' ',6,11,0 EMC O1'' ',7,11,0 EMC O1'' ',1,11,1 EMC O1'' ',2,11,1 EMC O1'' ',3,11,1 EMC O1'' ',4,11,1 EMC O1'' ',5,11,1 EMC O1'' ',6,11,1 EMC O1'' ',7,11,1 EMC O1'' ',1,14,1 EMC O1'' ',2,14,1 EMC O1'' ',3,14,1 EMC O1'' ',4,14,1 EMC O1'' ',5,14,1 EMC O1'' ',6,14,1 EMC O1'' ',7,14,1 EMC O2'' ',',14,3 EMC O2'' ',',12,2 EMC O2'' ',',12,3 EMC O2'' ',',14,2 EMC %  3( O0OIR 7,0,1,' EMC O0OIR 7,0,2,' EMC O0OIR 7,0,3,' EMC O0OIR 7,0,4,' EMC O0OIR 7,0,5,' EMC O0OIR 7,0,6,' EMC O0OIR 7,0,7,' EMC O0OSRX 0,1,' EMC O0OSRX 0,2,' EMC O0OSRX 0,3,' EMC O0OSRX 0,0,' EMC O0OSRX 1,1,' EMC O0OSRX 1,2,' EMC O0OSRX 1,3,' EMC O0OSRX 1,0,' EMC O0OSRX 3,1,' EMC O0OSRX 3,2,' EMC O0OSRX 3,3,' EMC O0OSRX 3,0,' EMC O0OSRX 2,1,' EMC R  3) O0OSRX 2,2,' EMC O0OSRX 2,3,' EMC O0OSRX 2,0,' EMC O3'' ',',',4 EMC O3'' ',',',5 EMC O3'' ',',',2 EMC O3'' ',',',3 EMC O3'' ',',',6 EMC O3'' ',',',7 EMC O0OSB ',1 EMC O0OSB ',2 EMC O0OSB ',3 EMC O0OSB ',4 EMC O0OSB ',5 EMC O0OSB ',6 EMC O0OSB ',7 EMC IFR ',GT,-16 IFR ',LT,16 IFA ',LT,0 VFD X8/6,X3/',X1/0,X4/-' I0 IFC A,NE,A EIF VFD X8/6,X3/',X1/0,X4/' EIF I0 qP  3* EMC IFC ',EQ, O0EX I0 IFC A,NE,A EIF IFC ',EQ,I O01 7,' I0 IFC A,NE,A EIF IFC ',EQ,A O01 6,' I0 IFC A,NE,A EIF IFC ',EQ,Q O01 5,' I0 IFC A,NE,A EIF IFA ',GT,4 O0EX I0 IFC A,NE,A EIF IFA ',LT,1 O0EX I0 IFC A,NE,A EIF O01 ',' EIF I0 EMC VFD X8/11,X3/',X1/0,X4/' EMC VFD X8/11,X4/0,X4/4 EMC O00 ',0 EMC O00 ',1 EMC O00 ',2 EMC  3+ O00 ',3 EMC O00 ',4 EMC O00 ',5 EMC VFD N8/11,N8/10 EMC VFD N8/11,N8/11 EMC VFD N8/11,N8/12 EMC VFD N8/11,N8/13 EMC VFD N16/0 VFD N16/0,N16/0 EMC VFD N8/11,N8/8 EMC VFD N8/11,N8/9 EMC VFD X8/11,X4/0,X4/2 PCO 1 VFD X1/0,X15/' PCO 0 EMC VFD X8/11,X4/0,X4/3 PCO 1 VFD X1/0,X15/' PCO 0 EMC VFD N8/11,N8/1 EMC VFD N8/11,N8/7 EMC VFD N8/11,N8/6 EMC   3,  VFD N8/11,N8/5 EMC IIN 0 RTJ- ($BB) VOLATILE ASSIGN ADC '+3 LDA* ' STA- 3,I SAVE RETURN EIN 0 EMC IIN 0 LDA- 3,I RETRIEVE RETURN FROM VOLATILE IFC ',NE, INA ' BUMP RETURN BY ' IF SPECIFIED EIF STA' ' RESTORE RETURN ADDRESS RTJ- ($BA) RELEASE VOLATILE EIN 0 JMP' (') RETURN EMC EXT HEXDEC RTJ+ HEXDEC HEX TO ASCII DECIMAL CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 3 WORDS EMC EXT HEXASC RTJ+ HEXASC HEX TO ASCII CONV. ADC' ' VARIABLE ADDRESS ' ADC' ' BUFFER ADDRESS ' 2 WORDS EMC EXT ENCODE RTJ+ ENCODE ENCODE FOR OUTPUT ADC' ' OUTPUT BUF ADC' ' FORMAT STATEMENT ADC' ' NO VARIABLES ADC' ' VARIABLE LIST IFC ',NE, SAZ 2 Dc  3-  JMP ' EIF EMC EXT DECODE RTJ+ DECODE DECODE INPUT ADC' ' INPUT BUFFER ADC' ' GORMAT STATEMENT ADC' ' NUMBER VARIABLES ADC' ' VARIABLE LIST IFC ',NE SAZ 2 JMP ' GO TO ERROR PROCESSOR EIF EMC EXT DECHEX RTJ+ DECHEX ADC' ' BUFFER ADDRESS 3 WORDS ADC' ' VARIABLE ADDRESS EMC EXT ASCII RTJ+ ASCII ADC' ' BUFFER ADDRESS 2 WORDS ADC' ' VARIABLE ADDRESS EMC EXT FLOATG RTJ+ FLOATG CONVERT TO S.XXXXXXESNN ADC' ' ADDRESS FLOATING VARIABLE 2 WORDS ADC' ' ADDRESS OUT BUFFER 6 WORDS EMC LDA- $E8 137*A002 IFC ',NE, STA' ' EIF EMC ,  3.4FN' ADC ' MR' ADC ' IFC ',EQ, LU' ADC 8 EIF IFC ',NE, LU' ADC ' EIF RB' BZS RB'(12) RI' BZS RI'(1) NK' ADC ' KL' ADC ' FC' ADC ' RL' ADC ' RP' ADC 0,0 EMC EXT DEFFIL RTJ+ DEFFIL DEFINE A FILE ' ADC' FN',MR',LU',RB',RI' EMC EXT DEFIDX RTJ+ DEFIDX DEFINE INDEXED ADC' FN',NK',KL',LU',RB',RI' EMC EXT LOKFIL LDA =X* STA FC' RTJ+ LOKFIL LOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT UNLFIL RTJ+ UNLFIL UNLOCK FILE ' ADC' FN',FC',RB',RI' EMC EXT RELFIL RTJ+ RELFIL RELEASE FILE ' ADC' FN',RB',RI' EMC EXT STOSEQ IFC ',NE, #4  3/H LDA =X' STA RL' EIF RTJ+ STOSEQ STORE IN SEQUENTIAL FILE ' ADC' FN',RP',',RL',RB',RI' EMC EXT RTVSEQ RTJ+ RTVSEQ RETRIEVE FROM SEQUENTIAL ' ADC' FN',FC',RP',',RL',RB',RI' EMC EXT STOIDX RTJ+ STOIDX STORE INDEXED ' ADC' FN',',RP',',RL',RB',RI' EMC EXT RTVIDX RTJ+ RTVIDX RETRIEVE INDEXED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT RTVIDO RTJ+ RTVIDO RETRIEVE INDEXED ORDERED ' ADC' FN',',FC',RP',',RL',RB',RI' EMC EXT STODIR RTJ+ STODIR STORE DIRECT ' ADC' FN',FC',RP',',RB',RI' EMC EXT RTVDIR 85*2670 RTJ+ RTVDIR RETRIEVE DIRECT ' ADC' FN',FC',RP',',RL',RB',RI' EMC LDA RI' STATUS A FILE IFC ',NE, AND' ' MASK STATUS EIF IFC ',NE, SAZ 2 NOTHING TRUE JMP ' JUMP IF ANY SET EIF EMC  30\ RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/4,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/4,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF [  31pI3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/6,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/6,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/3,N1/0,N8/0 EIF  32I3 IFC ',NE,0 VFD N1/0,X1/',N5/3,N1/1,N8/0 EIF I3 IFC ',EQ,R VFD N4/0,N2/1,X10/' EIF I1 IFC ',NE,R IFC ',EQ,I VFD N4/0,N2/2,X10/' EIF I1 IFC ',NE,I VFD N4/0,N2/0,X10/' EIF I1 ADC ' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/1,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/1,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B  33 IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/2,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/2,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ',NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ',EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R   34 IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 ADC ',' EMC RTJ- ($F4) IFC ',EQ,1 VFD N2/0,N5/16,N8/0 ADC ' EIF 0 81*2071 IFC ',NE,1 81*2071 ADC (') 81*2071 EIF 0 81*2071 EMC RTJ- ($F4) VFD N1/0,N6/5,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/11,N1/0,N8/0 EMC RTJ- ($F4) VFD N1/0,N6/7,N1/0,N8/0 EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/15,N4/15 ADC ' EMC RTJ- ($F4) VFD N2/0,N5/19,N1/0,N4/0,N4/0 ADC ' EMC RTJ- ($F4) IFC ',EQ, g  35 VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/9,N1/0,N4/0,X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/9,N1/1,N4/0,X4/' EIF I3 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N2/0,N5/15,N1/0,X4/',X4/' EIF I3 ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/8,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/8,N1/1,X4/',X4/' EIF I3 ADC ',' EMC _  36 RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/' ,N5/13,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/' ,N5/13,N1/1,X4/',X4/' EIF I3 ADC ',0 ADC $8C2,',' ADC ',' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/10,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/10,N1/1,X4/',X4/' EIF I3 ADC ',0,0,' EMC RTJ- ($F4) I1 IFC ',EQ, IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0  37 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE, I1 IFC ',EQ,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N9/0 EIF I1 IFC ',NE,0 VFD N1/0,X1/',N5/12,N8/0,N1/1 EIF I1 I2 IFC ',NE,0 IFC ',EQ, VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/12,N1/1,N8/0 EIF I2 IFC ',NE,0 VFD N1/0,X1/',N5/12,N1/1,N7/0,N1/1 EIF I2 ADC ' EMC RTJ- ($F4) IFC ',EQ, VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE, IFC ',EQ,0 VFD N1/0,X1/',N5/17,N1/0,X4/',X4/' EIF I3 IFC ',NE,0 VFD N1/0,X1/',N5/17,N1/1,X4/',X4/' EIF I3 ADC ',0,0,','   38 EMC RTJ- ($F4) IFC ' ,EQ, VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE, IFC ' ,EQ,0 VFD N1/0,X1/' ,N5/14,N1/0,X4/',X4/' EIF I3 IFC ' ,NE,0 VFD N1/0,X1/' ,N5/14,N1/1,X4/',X4/' EIF I3 ADC ',0 I1 IFC ' ,NE,B IFC ' ,EQ,R VFD N3/0,N1/1,N2/1,X10/' EIF I1 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/1,N2/2,X10/' EIF I1 IFC ' ,NE,I VFD N3/0,N1/1,N2/0,X10/' EIF I1 I2 IFC ' ,EQ,B IFC ' ,EQ,R VFD N3/0,N1/0,N2/1,X10/' EIF I2 IFC ' ,NE,R IFC ' ,EQ,I VFD N3/0,N1/0,N2/2,X10/' EIF I2 IFC ' ,NE,I VFD N3/0,N1/0,N2/0,X10/' EIF I2 IFC ',NE,R VFD X4/',X4/',X4/',X4/' EIF IFC ',EQ,R 1  39 VFD N1/1,X3/',X12/' EIF EMC RTJ- ($F4) VFD N2/0,N5/18,N5/0,X4/' ADC ' EMC NLS IFC ',NE, EQU ' (') EIF 0 IFC ',EQ, IS THERE A PRIORITY EQU ' (0) NO EIF 0 IFC ',NE, EQU ' (') REPEAT MANY TIMES EIF 0 IFC ',EQ, EQU ' (1) REPEAT ONLY ONE TIME EIF 0 EQU ' ('*$1000+' ) SET UP NUM OF TIMES REPEATED IFC ',EQ, NO COMPLETION EQU ' (' *16+' +$5C00) EIF 0 C0 IFC ',NE, COMPLETION YES 88*2712 IFC ',EQ,* RELATIVE COMPLETION EQU ' (' *16+' +$1D00) 81*205 EIF 0 IFC ',EQ, ABS COMPLETION EQU ' (' *16+' +$5C00) EIF 0 EIF C0 88*2712 LST RTJ- ($F4) ADC ' NLS IFC ',EQ, LST ADC 0 COMPLETION |r  3:$ NLS EIF 0 C1 IFC ',NE, IS THERE A COMPLETION ADDRESS 88*2712C2 IFC ',EQ,* IS IT RELATIVE 88*2712 LST ADC '-*+1 COMPLETION NLS EIF C2 88*2712C3 IFC ',EQ, 137*4266 LST ADC ' COMPLETION NLS EIF C3 88*2712 EIF C1 88*2712 LST NUM 0 THREAD NLS IFC ',EQ, IT IS THE LOGICAL UNIT LST ADC $0000+' NLS EIF 0 IFC ',EQ,R A RELATIVE DISTANCE LST VFD N6/1,X10/'-*+3 RELATIVE NLS EIF 0 IFC ',EQ,I A ABS CORE LOCATION LST VFD N6/2,X10/' ABS CORE LOCATION NLS EIF 0 LST ADC (' ) REPEAT TIMES N EMC NLS MOT' ',',',',',1 EMC   3;8 NLS MOT' ',',',',',2 EMC NLS MOT' ',',',',',3 EMC NLS MOT' ',',',',',4 EMC NLS MOT' ',',',',',5 EMC NLS MOT' ',',',',',6 EMC NLS MOT' ',',',',',7 EMC LST JMP- ($EA) EMC SPC 1 EXT ISBUFR,CBWRIT,CBREAD,BOUTC SPC 1 NUM $520A 00 SCHEDULER CALL ADC ISBUFR 01 INITIATOR ADDRESS ADC 0 02 CONTINUATOR ADDRESS - NOT USED ADC 0 03 TIMEOUT ERROR ADDRESS - NOT USED NUM -1 04 DIAGNOSTIC CLOCK - NOT USED NUM 0 05 LOGICAL UNIT ADC 0 06 PARAMETER LOCATION NUM 0 07 CONVERTER, EQUIPMENT, STATION - NONE NUM $00A4 08 REQUEST STATUS .  3<L NUM 0 09 DRIVER STATUS NUM 0 10 CURRENT LOCATION NUM 0 11 LAST LOCATION PLUS ONE NUM 0 12 DEVICE STATUS - NOT USED NUM 0 13 RESERVED NUM $7FFF 14 RESERVED NUM 0 15 RESERVED FOR FNR AND CMR ADC ' 16 LSB START OF BUFFER ADC ' 17 LSB END OF BUFFER ADC ' 18 CURRENT LSB START OF BUFFER ADC ' 19 CURRENT LSB END OF BUFFER NUM $44AA 20 MASS MEMORY WRITE REQUEST (UNFORMATTED) ADC CBWRIT 21 MASS MEMORY WRITE COMPLETION NUM 0 22 THREAD ADC ' 23 MASS MEMORY LOGICAL UNIT NUM 0 24 NUMBER OF WORDS NUM 0 25 STARTING DATA LOCATION ADC ' 26 MSB ADDRESS ADC ' 27 LSB ADDRESS NUM 0 28 CONTROL WORD NUM $42AA 29 MASS MEMORY READ REQUEST (UNFORMATTED) ADC CBREAD 30 MASS MEMORY READ COMPLETION NUM 0 31 THREAD ADC ' 32 MASS MEMORY LOGICAL UNIT NUM 0 33 NUMBER OF WORDS ADC ' 34 STARTING LOCATION (CHARACTER BUFFER) ADC ' 35 MSB ADDRESS ADC ' 36 LSB ADDRESS NUM 0 37 PARTIAL WORD OUTPUT FLAG NUM $4CAA 38 BUFFER WRITE REQUEST (FORMATTED) ADC BOUTC 39 BUFFER WRITE COMPLETION NUM 0 40 THREAD ADC ' 41 OUTPUT LOGICAL UNIT NUM 0 42 NUMBER OF WORDS ADC ' 43 STARTING LOCATION (CHARACTER BUFFER) ADC ' 44 CHARACTER BUFFER SIZE BZS '(') 45 CHARACTER BUFFER EMC O0S O11 `O12 O13  O14 O1Q O1A @O1I O1 O0T `O0G O0OIS O0OSRX O0OIR O4 @O41 Bh  3=`O42 O43 `O44 O4Q  O4A O4I O0F @O3 O31 O32 `O33 O34  O3Q O3A O3I  @O2  O21 !O22 !`O23 !O24 " O2Q "O2A "O2I #@SJI #SJ1 $SJ2 $`SJ3 $SJ4 % SJQ %SJA %SJE &@ARI &AR1 'AR2 '`AR3 'AR4 ( ARQ (ARA (SBI )@SB1 )SB2 *SB3 *`SB4 *SBQ + SBA +ANI +AN1 ,@AN2 ,AN3 -AN4 -`ANQ -ANA . ORI .OR1 .OR2 /@OR3 /OR4 0ORQ 0`ORA 0LRI 1 LR1 1LR2 1LR3 2@LR4 2LRQ 3LRA 3`SRI 3SR1 4 SR2 4SR3 4SR4 5@SRQ 5SRA 6CIE 6`C1E 6C2E 7 C3E 7C4E 7CQE 8@CAE 8AMI 9AM1 9`AM2 9AM3 : AM4 :AMQ :AMA ;@OMI ;OM1 <OM2 <`OM3 @AS2 >AS3 ?AS4 ?`ASQ ?ASA @ ASI @SM1 @SM2 A@SM3 ASM4 BSMQ B`SMA BSMI C ER1 CER2 CER3 D@ER4 DERQ EERA E`ERI EEM1 F EM2 FEM3 FEM4 G@EMQ GEMA HEMI H`C1N HC2N I C3N IC4N ICQN J@CAN JCIN KCCN K`LCA KSCA L CCE LXF1 LXF2 M@XF3 MXF4 NXFQ N`XFA NXFI O S1Z OS2Z OS3Z P@S4Z PS1N QS2N Q`S3N QS4N R S1M RS2M RS3M S@S4M SS1P TS2P T`S3P TS4P U LFA USFA USFZ V@SFN VCLF WSEF W`D1P WD2P X D3P XD4P XDQP Y@DAP YDIP ZO0OSB Z`O00 \@O01 aSIO aLUB b@LLB bEMS cWPR c`RPR cECC d ASC dAPM dPM0 e@PM1 eO0EX fGPE fGPO g LRG gSRG hLMM iCBP j DMI jSPS jVOLA k@VOLR lHEXDECnHEXASCoENCODEpDECODEs DECHEXu`ASCII vFLOATGwCLOCK xFLDF yDEFFIL|DEFIDX}LOKFIL~`UNLFILRELFIL@STOSEQRTVSEQSTOIDX@RTVIDXRTVIDOSTODIRRTVDIR@STATFLFREAD FWRITE STATUS`READ WRITE INDIR `EXIT @CORE LOADERDISCHDENSCHD@SCHDLETIMPT1TIMER @GTFILE SPACE RELEASPTNCOR MOTION @SYSCHD MOT BSR ڠEOF `REW  UNL ADF ݠBSF `ADR  DISP ཪFFERGTFILE SPACE RELEASPTNCOR MOTION @SYSCHD MOT BSR ڠEOF `REW  P8LULIST N87 A MSOS CCS 3.0 SL-149q@P j qhh//hHTL'TL$ r@P+ h (.HT D 1  PĀhXAhH X-DA Ch s@PVX"K h X3GXhITL$`h h ct  3>t@Pxfx 0F400LU. EQUIPMENT DESCRIPTION READ/WRITE CLASu@PS CODE EQ NO MSOS 5.0 LOGICAL UNIT LISTING FOR  v@P MM/DD/YYRFIELD = 0READ ONLYWRITE ONLYREAD/WRITE1711 TELETYPEWRITER  1721w@P/1722 PAPER TAPE READER 1723/1724 PAPER TAPE PUNCH 1752 DRUM UNIT x@P- 713,10/711-100/713-120 CRT 1738/853 DISK UNIT (1.5M) 1751 DRUM y@PX 1739-1 CARTRIDGE DISK UNIT 1738/854 DISK UNIT (3.1M)  1731/6z@P01 MAGNETIC TAPE SOFTWARE BUFFERING DEVICE COSY UNIT  {@P 1728/430 CARD READER/PUNCH SOFTWARE CORE ALLOCATOR 1733-1/854 DISK UN|@PIT (3.1M) 1733-2/856-2 DISK UNIT (2.2M) 1733-2/856-4 DISK UNIT (4.5M) 1742-30 }@PLINE PRINTER 1742-120 LINE PRINTER 1740/501 LINE PRINTER ~@P/ 1732-2/615-73 MAG TAPE UNIT 1732-2/615-93 MAG TAPE UNIT 1732-1/1706/608 BUFR@PZ MAG. TAPE 1726/405 CARD READER 1732-1/608 MAG TAPE UNIT 1732-1/609@P MAG TAPE UNIT 1713 TELETYPE KEYBOARD 1713 TTY PAPER TAPE PUNCH @P1713 TTY PAPER TAPE READER 1729-2 CARD READER 1732-1/1706/609 BUFR M@PAG TAPE SOFTWARE DUMMY ALTERNATE DEVICE364-4/361-1 HDX COMM DEVICE 364-4/361-4 @PFDX COMM DEVICE 1742-1 LINE PRINTER 1777 PAPER TAPE READER  PS@P1EUDO TAPE UNIT 1777 PAPER TAPE PUNCH 1729-3 CARD READER @P\ 1733-1/853 DISK UNIT (1.5M) 1731/1706/601 BUF MAG TAPE 1726/1706/405 @PBUF CARD READER 1747 DATA SET INTERFACE 1744/274 DIGIGRAPHIC CONSOLE 1536@P LOW LEVEL ANALOG INPUT 1501 HIGH LEVEL ANALOG INPUT 1536 REMOTE LOW LEVEL ANALmr  3?@POG INP1544 DIGITAL INPUT UNIT 1553 DIGITAL OUTPUT UNIT 1555 RELAY OUTPU@PT UNIT 1566 DIGITAL-TO-ANALOG CONVERTER1547 EVENTS COUNTER  1595 S@P3ERIAL I/O 1732-3/616-72 MAG TAPE 1732-3/616-92 MAG TAPE @P^ 1743-2 ASYN COMM CONTR 1745/211 CRT 1725-1 CARD PUNCH @P 1720-1 PAPER TAPE READER 1720-1 PAPER TAPE PUNCH MAGNETIC@P TAPE SIMULATOR 1732-3 LONG RECORD MAG TAPE 7TRK1810-1 LIAT CRT/PRINTER @P 1829-30/60 CARD READER 1827-30/60 LINE PRINTER 1860-72 LCTT 7TK MAG@P TAPE 1860-92 LCTT 9TK MAG TAPE 1832-5 CASSETTE MAG TAPE 1835-5 FLE@P5XIBLE DISK 1833-1 STORAGE MODULE DRIVE 25MB1833-1 STORAGE MODULE DRIVE 50MB@P`D18ECM EXTENDED CORE DRIVER PSEUDO DISK DRIVER 1843-2 8 CHANNEL CLA @P 1866-14 CARTRIDGE DISK 1866-12 CARTRIDGE DISK 1827-7 MATRI@PX PRINTER 501-12 TAB CARD PUNCH SPOOLED PRINTER DRIVER  18@P43-1 2 CHANNEL CLA UNDEFINED UNIT TYPE NO CLASS CODE MAGNETIC T@P APE MASS STORAGE CARD RDR/PUNCHPAPER TAPE I/OLINE PRINTER TELETYPE UD CLASS COD@P7E PLULISTPLOG1A fSYSID SYSYER SYSDAYSYSMON PLULIST PLISTR N86 A MSOS CCS 3.0 SL-149@P TL  X%2 hWhVhUhThVhUhThShRhQh  3@@P+PXXXAX?Xx5PX4 X2 X/X-X+X2[d TLW)0T@PV + hTLd)ET h00hh h HHHH(H,D@Ph0 h: 0 d Dh ddX&X@PXX njB XE2U XBXJXXXX; j A@PTHnT bT @ hH*| P h h hn @P j/ A p^WSjB OUT OF ORDER INPUT BLOCK@P- + 0000  @PX 0000 RECORDS 0000 TOTAL RECORDS..1 PLISTR PLISTR POPSORT N88 A MSOS CCS 3.0 SL-149@P h hTH2qEH 1H0h@P+ȠhȠhH}h|Ƞ hw @z*t0 hb@PV m  h[WFb (DhP[0 HIHAhCAK8I7Eh:@P h) h%hP5h+Xe h%Dh!- h (Hh" h@PHh hENNDD **@PD$ j j ȱ`E ɲ( ɪj a@P! hɝhj؎ A H\H\ȍ1!7'K 1   hI 1'1K@PL % mD   ? K !  4 "    +TLvw@Pw ILLEGAL CHARACTER WAS DETECTED | p&HLF [hhVq  3A@P h Zh ,h n q 2 ` Hj CTL@P h. `P`P|U`P `P[`P[`Pp[`P[`P&[`P)@P 8"ljh h h TL[ l@P- 1 [h Zh F"Bnʗlj H|h|h{{ʈhs vu 5@P h|ih hh ch TH[ ѰB   HHH h@P+h> Z=h<;h6757735jA H1 @ Zh-' $h+0Fh* & !@PVGHh h>!#&&@Phh h Hc H^"W hԘ h Ei{@P j8ȼ hȿhTL Fhȯh `@Phhȝ hm h jB  j{B hhhhh @Phih  3BPOPSORTBGNRD PBGNRD PuEESORT O28 A MSOS CCS 3.0 SL-149@PENTER LIST FOR LIST ONLY, SORT FOR LIST AND SORTTLTH/@P+"LISOh]Dhh hht hhX LISTING OF P@PVROGRAM NAMES, ENTRY POINTS AND EXTERNALS XD j ATH<@P""  @H L    Dh~h~ {O@P X& Xo X XXj qh" hh TF@P T\0 0F 0 04 T\ dbb"` hB@PhBXX ( 2//h/ h, > , h'$ F$h!h X@P 6(` 2 aaضص  3D@P1/Q/h:h:.h TL$+OHXhhTL6 9 ` ****@P)X6h3 h,X?Xh"TLTH@PX!   REWIND LU 004HH}zhv@P h+h&X'XHXH 0F 0HhheX 0F 0H 0F 0**@P,HH-5'h"O E $n Q h1h.b$% b%@PWTL_(# h  0X"X"X  hX _X; ^X9 @PHN hN DC ! _X#= X 9 % h3 X _X- 1  &X . @P h#(X h"Hcll-h TL s sUU s@P _X _X" X h %L TL shh @P h  hTH|(jh 'n q hhyh{{vthv @P.qhuTH8kkHirfH eW ha  _hZȉ hTȄNHLd @PY lGE lCBuhB  _ 2< 81  .H-%,!)h(qhȐ1 @P`b) "$ g" g"aXQ d UUUUUUhXS @PXV:Xmhghh|h ?X8T`DTH(@PRrIhCXXXX>X X hJX^XX h@P<X6 X /حX X X0i-f*c @P0[hZhYhSQOX` X"H0@P[hQ hMKhIhhhhhhhTL@P(@P 3&D h?!9 h XTL S(R zhZ`  3F@P ^i (hsXX ChFXEXtTL (@P i - j Q  hTL (Lh.hXEX)ȧ@P  hh*COPIED*X hh^ hhhTh)/h/h@P M h`h\hh8h5hhhhhhh^XZX (  @P   pho lm 2 1( hd Fla@P !o/hkV/hR"Y/"HU ZGWM UX=EXXXR@P LXXdX hh`"aaaȹ XشX2X} X*X^X@P wXY@P ~ @P R@P I@P h`Hh`HhH| XtXnX @P  hXtXXXohXX^XXeXXXXSXXZXȨ! ȣ!@P 阙XXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XX"@P %X hzXX}XX uhSh hn@"XX#@P ?XXRh0h hKaa"aaa9'?S\X"5hh$@P j h.aa, X,hGX@$X aaaX!8XShTL  %@P XX&@P  IRH H%u bbhTL (d b'@P bTL + **Rhheh ?X!T`DTH  (R(b  3G(@P hTH ( I1 p`bg "$Ƞ g"Ⱦ g"ahhXr)@P ahTH ((RTL 2(RXhHXbbX| *@P H +PCOSY ,PCOSY PfCUDDLY K11 A ITOS CCS 3.0 SL-149.@PX% ! h h h/hNh*/h/hhhh ވ/@P+j q hhj A h h/h̺/hhX0b 0@PVhXXRhbhTLk\^hXh ?h Sq X~Q1@PTH( #Xb!h.hi TLX-X %$h2@P?XN JhTLX 00 ERRORS.)G3@P MON END/ 4"10-*#  4@P`H*'"`!#% DCK MRG CPY END DEL I5@P NS REM CSY HOL/ )Rȝ؛ XXhph4h h?X THU.R6@PKTHo.R1`b! "$Ƞ g" g"aXe7@PvXa  Xm Xd h  ->j qh" hh TF8@P T\0 0F 0 04 T\ dbb"` hB9@PhBXX ( 2//h/ h, > , h'$ F$h!h X:@P 6(` 2 aaضص;@P1/Q/h:h:.h TL$1OHXhhTL6 9 ` ****<?  3H<@P@P|hh .h11h*=h'h hhhh9h0h/h.hfhfhhl``?@P+/hlX [ W T FJhJHDC X+ l=hDX @@P} 6/l. -/l%  X&ܘX  XA@P, hh3R H X hlhhhB@PW)/h$X# -)h X hXj h~  UUC@P + hq X hf"j$ch` X hXX=hT , hOD@P Xu hf"hC<h9 X` hz0XMMh, H HE@PrȠ hh"ȗ"  hTFF@P    " hTF ENX 2 3  hX : (hRG@P. FM  X hX  XjXj b X} H@PY |; h X h2f"ȏh?XHxhehhph hhtI@Ph sBh?Xlihh?X.XXJ@PXk XpXeXXmB Xa4X%1 f!^ hoK@P V#X2NhBXHX"h |   u 0 ojL@P  B z hvXXXX hoh XXM@P0X~ S XWR?dX4 BX_XA/h h hN@P[hTLg.X /hZh!X#4XXhhXXO@P0 XX .hQbhXXV h h)XP h"hL hNI'JP{  3IP@Ph4EhF>)X-h3 h,X?Xh"TLQ@PTH #X!   REWIND LU 0054H}HzqR@Phs h+h#X'XH XH 0F 0HhheX 0F 0H 0F 0S@P2**HH,4&h!L E *n Q 2b(1b)0b*b(T@P]b)b*TLg.$ h  0X"X"X  ha _X< ^X:U@PHV hV LK ! _X#E X A % h; X _X5 1  &X V@P6  h+0X h&*$H"cll-hhNXFTLW@P#%UU% _X _X" Xh %L X@P h H XTL#hh hdh hȷ  hY@P4TH.Lh -n q hhh3hhZ@P_THh !1 !"  X  X[@PrrHprmH lX hMg  _hJ_E hX?QHOd lJH lF\@PE0hE  _ 3?e 81  0H/%.!+h*}"hP^1 `]@Pb= "$Ƞ g" g"aX 2 UU #UU #UUhX!X^@P  =Xh7hNh#h ?XT`DTH7.R_@P6hXXoXXX X hXXX hX`@Pa X حX XXטwԘtјq ihha@Phgha_]X` XfɘHŘCb@P> h^h[hXUhShPh)ihghehEhChc@PCh hTL.d7  3Jd`P e@P !f@P#g@P%&X h뛠?!M h XTLE.lhh@PPw .hXX) FhTX\X TL{.i@P{} 0 jn Q  hTL.chM^h_XbYXIȧj@P hw hh*COPIED*X hhi hhh_h4/hk@P/hM h`hghh8h5hhhhhhhiXeX ( l@P   pho lm 2 1( hd Flam@Po/hkV/hR"Y/"HU ZGWM UX=EXXXRn@PAXXdX hh`"aaaȹ XشX2X ˜ X*X^Xo@PlXYp@Psvq@PvRr@P>s@Ph`Hh`HhH XXnXt@P hXtXXXohXX^XXeXXXXSXXZXȨ! ȣu@PޘXXȚ1 Xȋ1X}XȌhȋhXXXpXX؃XXv@P %X hzXX}XX uhSh" hn@"XXw@P4XXRh0h hKaa"aaa9'?S\X"5hhx  3Kx@P_ h.aa, X,hRXK$X) aaaX!8X^hTL y@PXXz@P>鑘RH H% bbhTL.o b{@PbTL1 **]hhph ?X2T`DTH .R|@PhTH.>1k`bm "$Ƞ g"Ⱦ g"ahhX}}@PahTH.RTL'.RXhHXbbX ~@P= PCUDDLYPCUDDLY PLCOSY N85 A MSOS CCS 3.0 SL-149@P CSY/ END/ END OF COSY LIBRARY XX j qTH@P  TL T  j qTL@PX DCK/ I ,H ,C TL (THd "/.@PH  hHHH   h"I=@PsH=C=H   H  "H @32B1h H @PH+ DCK/  @P ,hDh 4 HX ,Hɏ Hh H ȁ jB@P TL(PLCOSY PLCOSY %  3L PCYFT N84 A MSOS CCS 3.0 SL-149@P X NhDNAhQM hSAMhUX+֐  Ϡ fǐM @P+h h4 h h0 hh,dXXXXXX DCK/ I,C  @PV XXXXXX HOL/  @P @b`hhZhhThh X.X"XX6 TH@P(T %#X0T  TL(T  TL(dT  TL(d\9:T\lTúH\l 9d̦  lTþ9H\T "\ `lLH ( d d d Gf 1ddd\ ҔD m d  #Tè M d dd!Add dΡ] - 1   n8̽lHdIdJdTþ\̽ G d̛d dn 1 n l 82]”E W lι P #Tè ( d dd!dd dΔ]  1 ̜ l̳l lHnܓܕܗ 1G̡ l 81dF  dIdJdK  *T NOT FOUND IN LGO FILE BINARY OUTPUT STATUS ERROR NAM BLOCK MISSING DUPLICATE ENTRY POINTS ENT/EXT TABLE OVERFLOW PROGRAM NOT FOUND IN LIB *RBDPCH* OUTPUT COMPLETED *RBDPCH* **** ERROR **** OS3Z P@S4Z PS1N S2@ xhTþdEcfSTÃh\eEcfS\Óh , h\dcf[\ãh ,h\eP cf[\T U HTThX/òX+öX'úX#þ XX}XĈXĎXa"a X" XIb XFb XCa X@b bX , a("H a  XN)""  X HX X  X7  X3& Xo HG Xi HA H> H; Xe XZ H2 H. H+  X aȱB) 1)  4 3 ! " BA+rX6,A2H%,"Ƞ a , 7 7 2 42 0  2D/1a #"f"  Da a a a a a6X a    7 X @Daa- a Ƞ a = w A !/   a#){ Ƞ P     2aX a#-a  Fa 7 ) a    6XdXj +-ja A"v13rK a) 1+(    Ƞ  ! L  C     B21H+ +~*D 7u2 XV,REJ EXCEEDED MAX LIMIT NNNNN éXAY) 2 1 )  F  %+%#4a% !9)  +a'Daaa"a#a$a%a4a& aa a6h X"   a!DXhX7X X/a"aDa"#!a$+XX"B!0`A *!mXDa#a$X) +/4%X c5+ UU7f"X/a a!X XZhXG,Da"!a$Xb+XXXn( +/4%X8+ +4 %X&5X3IX+XX*X&b" ,/a a"hT\`!UTnp RX:EOF ON INPUT LU NNNN PP)   2 D/aX Xh a!X12!7f"!#a$+XXX*X ) 7     + + ԑ4ܑ%)X,o|1 zw "ta!!7f"!a$+XXXXp XPDhh)""C/2 H vN I G E A  a'Da%a&ah   h X.,T\Ų` a$.$,"X Sh&KIh$PDh"  RhEChS  FhILhE h!^XUNIT AAAAA BBBB NNNN Da%a&   hh XΠ-T\` a$&$-X5 BhAChKDh   'h D̸ hhT\D!l(Xta  A a+_Da%a&a4a57h ah THu`":`BAa$UT(5WDa5X&XE 5h$ !/Aha!THƬʵ`, X(`X(5Da5Xs hC6hC+!h>h h:B8A a XXY Ȼa  a'' hȭ #h C'Q h  a XhTʵ!`   Ch' l! #hh` a5+6hu K `7"a$UT  UDa:5(Xr{X a5+.$UT XN&%+) q) a " 0K X +X_D%XZ0NUMBER OF FILES COPIED NNNNN NBR RECS COPIED NN*32768+NNNNN ǥǵ XTHa@uX+!h a! a!$ A#!/A8h Xhh^XDhapXf +5s)  w3 Xv% a%X X#CHECKED RECORDS NN*32768+NNNNN Ƞ k 1h X-T\M`!/aXZ XdMODE DIFFERENT ON MAG TAPE 3!! Ϟ2 X{ q+/4%X&+5B8A aMISMATCH RECORD NN*32768+NNNNN Ƞh th h hT`!1 "a!hTF@ &ɱ$h #6h h TL`"  3O-Da#B8A aÈ7f"7 X7h h TL'``#"$2a$Daa!hh X~A>hTOʵ`!% $.&&%a!$, "QŠ    ?; 9' 3HX @b b X 0' 0lp0 0hp0d 0 h p0 0t 0Dn qa $5)  PP,F-.A-1  8 $%&*XH3bȨb b *14X#b bb b b 0b X/NNb*3b 27b 68b +Nb hHTLI!`hahT\\ `"OPhMa5 TLtuUNIT1 = UNIT2, READY FOR UNIT2 - TLʎʜTHʖa@COPY COMPLETED, C/R WHEN READY FOR NEXT COPY. PDTLP O63 A MSOS CCS 3.0 SL-149@PTZ phbfTL1TURN OFF PROTEC SWITCH,TYPE CARRIAGE RET@P+URN (J20@) THa  q++h(B1$` f" q"g"@PVt "!` g" 4  h"DSKTAP!B@ q  :I@P BBh! hTLDTLP FIRST WORD ADDRESS WILL BE @P PDTLP PDTLP X XXX-Hh iXf %XXV X "u SAVELOAD h@ XlX/ XeXhX h@X2X&X 9`"X 2 2esR4R4! `hh  X XS X $XX XH   d @HX X d X1X hXX   q`  XqQ(~p0`H XJH0h/XBH/h. 5X d X1X*HAh@n X X9~f XXQ XXK hjXXe`  XQ ) SXXH!h 5 X[ XCXH"h!& XKXHh X> f q Q]lwh !j SCRATCH SECTOR IN $C1 IS -- TYPE LOAD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE OR A CARRIAGE RETURNOUTPUT TAPE ON UNIT 0. HOW MANY SECTORS? TYPE V FOR VERIFY, A FOR AUTOLOAD. OR A CARRIAGE RETURN TO RESTARTVERIFY TAPE ON UNIT 0. READY? SECTOR WORD -- -- DOES NOT COMPARE. TYPE C TO CONTINUE. OR A CARRIAGE RETURN TO ABORT. XXXX SECTORS VERIFIED, INPUT TAPE ON UNIT 0. READY?XXXX SECTORS LOADED DISK ERROR ( ) TAPE ERROR ( ) XX h  y0j/ +1) X  3P' X " X XXXh#hXOhh XI\AEp4 DIG. EQ. CODE FOR .. MAG. TAPE 4 DIG. EQ. CODE FOR .. MASS MEMORY ILLEGAL PARAMETERS SPECIFIEDH)h*H'h( H'H'!H!  h 2 q 4h ! H  H $Ⱥ0123456789ABCDEFH(h)H&h' H&H& H!h  (h !"h r  !3h4**"00hh 8H 8 H 8r' hHh+hXh~h }~z!t  omfh9bhuadhrDh gkHDhaec^" SIFSR  ;  ! @hB   4Dh112,n0ؼ*ȸ*H  b h d A$ y hiHoX w@`AuA& A dHP5 hVHVHX \@KAZA& A JH;"a =a ;h2h7aXfh41`qD *`D(h'hDa a  h hDa a XHhEA 0   f  aaa     Xa A a$I aXXXza @/*&H a a a a$  H M N  I,B&e #XI 1 @B  H X ^ h      aaE$ ! h h  hPXXhH a a@X#X a2h2 "dh*X "  Xr "a" haX "  X] "a"  XVh ߡ a $LhJ" !C   @a    , X* XX a aX    #X hn"'XL  .  a hR$hQ  Q hM "a"*!U@`6 Q4 1 C,O ,  )h "a"!؟ a aa$  hX h,$X۠@X hp "a"X hhX "a"X@X h,Ƞ h fX "a"dXz@\Xe,Rt hr hoBABc^ XQY p*XH(. J hHpX9@*X$ h;A,0 iaA$ a!aa$  ( "a" aA hHaRHX0 hhBa8h fhh X h pX!"R e2!11~  @UxR O L ͰG !  =XY!9%XB2ȯHbȩd @4 `hȜ$ JhHؔ h4X<[hZBHX  X({"wH4h9"64 h h#  A jC ȸhȸ h  e c h]Xp _X"XH1 SuX#XX ih6sȸqh2 6!!XqX1X6"   H;H  >t3  3QHbH4 hΨb @ 4 ` h A "!X*  X"HX  X "h}|v! d45 'd44nXXhhg ""  4 $ZZhX>%B)6:CG X! 2<32X0W h,@(Ȱ X## 3 hCȰȰ`Ȱ ȰȰP h1 h_,hc h_h_h* 01! h &Xr `D Th Yhw h:8Th.-h h hhhȸgaH Hhרh  "h1 !ȸ Hh! ȯh h hȨ :Ȩhjhhhh h) ( r#M "ȱ$G"ثhȨ G"ءhȞ G"h`@DPT 6 `.U@@_ PDTLP50 K10 A ITOS CCS 3.0 SL-149@PTZ phbfTL1TURN OFF PROTEC SWITCH,TYPE CARRIAGE RET@P+URN (J20@) THa  q++h(B1$` f" q"g"@PVt "!` g" 4  h"DSKT50!B@ q  :I@P BBh" hTLDTLP50 FIRST WORD ADDRESS WILL BE @P PDTLP50PDTLP50X XXX-Hh iXf %XXV X "u SAVELOAD h@ XlX/ XeXhX h@X2X&X 9`"X 2 2esR4R4! `hh  X XE X $XX XH   d @HX X d X1X hXX   q`  XqQ(~p0`H XJH0h/XBH/h. 5X d X1X*HAh@n X X9~f XXQ XXK hjXXe`  XQ ) SXXH!h 5 X[ XCXH"h!& XKXHh X> f q Q]lwh !j SCRATCH SECTOR IN $C1 IS -- TYPE LOAD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE OR A CARRIAGE RETURNOUTPUT TAPE ON UNIT 0. HOW MANY SECTORS? TYPE V FOR VERIFY, A FOR AUTOLOAD. OR A CARRIAGE RETURN TO RESTARTVERIFY TAPE ON UNIT 0. READY? SECTOR WORD -- -- DOES NOT COMPARE. TYPE C TO CONTINUE. OR A CARRIAGE RETURN TO ABORT. XXXX SECTORS VERIFIED, INPUT TAPE ON UNIT 0. READY?XXXX SECTORS LOADED DISK ERROR ( ) TAPE ERROR ( ) XX h  y0j/ +1) X qw  3R' X " X XXXhhXOhh XI\AEp4 DIG. EQ. CODE FOR .. MAG. TAPE 4 DIG. EQ. CODE FOR .. MASS MEMORY ILLEGAL PARAMETERS SPECIFIEDH)h*H'h( H'H'!H!  h 2 q 4h ! H  H $Ⱥ0123456789ABCDEFH(h)H&h' H&H& H!h  (h !"h r  !3h4**"00hh 8H 8 H 8r' hHh+hXh~h }~z!t  omfh9bhuadhrDh gkHDhaec^" SIFSR  ;  ! @hB   4Dh112,n0ؼ*ȸ*H  b h d A$ y"Hd)dhf h'h!&BH\Ha!dhW h h h hh  0#HX-@H% A!HA a ! A X; ' D Fh`  aaa     Xa A a$I aXXXza @/*&H a a a a$  H M N  I,B&e #XI 1 @B  H X ^ h      aaE$ ! h h  hPXXhH a a@X#X a2h2 "dh*X "  Xr "a" haX "  X] "a"  XVh ߡ a $LhJ" !C   @a    , X* XX a aX    #X hn"'XL  .  a hR$hQ  Q hM "a"*!U@`6 Q4 1 C,O ,  )h "a"!؟ a aa$  hX h,$X۠@X hp "a"X hhX "a"X@X h,Ƞ h fX "a"dXz@\Xe,Rt hr hoBABc^ XQY p*XH(. J hHpX9@*X$ h;A,0 iaA$ a!aa$  ( "a" aA hHaRHX0 hhBa8h fhh X h pX!"R e2!11~  @UxR O L ͰG !  =XY!9%XB2ȯHbȩd @4 `hȜ$ JhHؔ h4X<[hZBHX  X({"wH4h9"64 h h#  A jC ȸhȸ h  e c h]Xp _X"XH1 SuX#XX ih6sȸqh2 6!!XqX1X6"   H;H  >HbH4 hΨb @ 4 ` h A "!X*  X"HX  X "h}|v! d45 'd44nXXhhg ""  4 $ZZhX>%B)6:CG X! 2<32X0W h,@(Ȱ X## 3 hCȰȰ`Ȱ ȰȰP h1 h_,hc h_h_h* 01! h &Xr `D Th Yhw h:8Th.-h h hhhȸgaH Hhרh  "h1 !ȸ Hh! ȯh h hȨ :Ȩhjhhhh h) ( r#M "ȱ$G"ثhȨ G"ءhȞ G"h`@DPT 6 `.U@@_I4 IFC A,NE,A EIF VFD X8/4,X1/0,X1/0,X3/',X3/' EIF I4 PCO 1 VFD X4/',X4/',X8/' I0 IFC A,NE,A EIF I8 EIF I0 PCO 0 EMC IFR ',LT,16 IFR ',GT,-1 IFR ',GT,0 IFR '+2,GT,' I5 IFC ',EQ, IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I1 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I1 VFD X4/',X4/'-1 PCO 2 VFD X16/'-*-2 I0 IFC A,NE,A EIF I5   3T,I6 IFC ',EQ,* IFC (((((',EQ,(((((( VFD N8/5,N1/1,N1/1,X3/',X3/' I2 IFC A,NE,A EIF VFD N8/5,X1/1,X1/0,X3/',X3/' EIF I2 IFR '-*,LT,128 IFR '-*,GT,-128 PCO 1 VFD X4/',X4/'-1,X8/'-*-1 I0 IFC A,NE,A EIF I6 I7 IFC ',EQ,+  ĺXBXlXtXzX* BH!DhaABH  X  T  Xa " 4a  aa ahhhXaD a X  a   Xà   TH Xa  a  6I : X=a " $ X!`@ X_D X[ XW   F  XI   hQ a a4hG hh=aLh5"5ikrtuvxRh'aKh " 2 <> " X^ X H  X '1($ A ( M M G C 3ax a cX   X   X   h Xr  V @a  Q3R HH c On 11 X'a  @a a F XZ1  "X , v a  a X ta sX   X*a" "a"@ "" W" $"   X Xa @ a @a a #   a hC X a ASSaq!no  `` `X`X}. A HA )Q H Aaja "DR ךja Ta VD `X$  hX4 X1Ȫ h  a ʐja  H   X7  ja^ hXDh X1  d` X hX X hX  & T- 1   a h  0A h !H:X!h1BXXXXXXXH  L "BhX  Ta!hXBXXXXXX θh fB 2esR4R4! hHaRHX0 hhBa8h fhh X h pX!"R e2!11~  @UxR O o  3U@L ͰG !  =XY!9%XB2ȯHbȩd @4 `hȜ$ JhHؔ h4X<[hZBHX  X({"wH4h9"64 h h#  A jC ȸhȸ h  e c h]Xp _X"XH1 SuX#XX ih6sȸqh2 6!!XqX1X6"   H;H  >HbH4 hΨb @ 4 ` h A "!X*  X"HX  X "h}|v! d45 'd44nXXhhg ""  4 $ZZhX>%B)6:CG X! 2<32X0W h,@(Ȱ X## 3 hCȰȰ`Ȱ ȰȰP h1 h_,hc h_h_h* 01! h &Xr `D Th Yhw h:8Th.-h h hhhȸgaH Hhרh  "h1 !ȸ Hh! ȯh h hȨ :Ȩhjhhhh h) ( r#M "ȱ$G"ثhȨ G"ءhȞ G"h`@DPT 6 `.U@@_ PEDTLP K05 A ITOS CCS 3.0 . SL-149L@PTZ aEDTLPF MPEDTLP1EDTLP NPEDTLP [ EDTLP TYPE SAVE FOR DISK-TO-TAPE SAVE TYPE LOAD FOR TAPE-TO-DISK RELOAD LOADSAVE ILLEGAL, CCS HAS NOT BEEN DISABLEDZh @TklJKL\kmJKL\k1nJKLhTkGoJKLTȪ ȧ Ƞ Ȝ TTTm\\kXpJKLTHh HX L` `i H HX dl `i h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a`HYTT""hPhM\""hM\hL\hHDlFHhD6>t;2S:4ah>H<8488H5h5," 1d'hh &hh !d"aR8s$d1dL lah hV h hP hLHGhFTT"h6h5\"h2: 5\h4\h3h)\h-\h,*`TT%T/ 6f  3VTbf b l `H HX n `i  HZ" X-  X)X*N *K"*L T&V  X T THhi h hTLwa‚”²½ ILLEGAL: CCS HAS NOT BEEN DISABLEDTURN OFF PROTECT SWITCH(ESC J20@) AND TYPE CARRIAGE RETURN EXTERNAL TIMER REJECT INTERNAL TIMER REJECT  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- &TWT* ! ! , h\:'(' Kh \*,+, 9hT;<012H TTh\h\h\EXGO  !"#$%&'(  aaa     Xa A a$I aXXXza @/*&H a a a a$  H M N  I,B&e #XI 1 @B  H X ^ h      aaE$ ! h h  hPXXhH a a@X#X a2h2 "dh*X "  Xr "a" haX "  X] "a"  XVh ߡ a $LhJ" !C   @a    , X* XX a aX    #X hn"'XL  .  a hR$hQ  Q hM "a"*!U@`6 Q4 1 C,O ,  )h "a"!؟ a aa$  hX h,$X۠@X hp "a"X hhX "a"X@X h,Ƞ h fX "a"dXz@\Xe,Rt hr hoBABc^ XQY p*XH(. J hHpX9@*X$ h;A,0 iaA$ a!aa$  ( "a" aA hHaRHX0 hhBa8h fhh X h pX!"R e2!11~  @UxR O L ͰG !  =XY!9%XB2ȯHbȩd @4 `hȜ$ JhHؔ h4X<[hZBHX  X({"wH4h9"64 h h#  A jCh  3Wh ȸhȸ h  e c h]Xp _X"XH1 SuX#XX ih6sȸqh2 6!!XqX1X6"   H;H  >HbH4 hΨb @ 4 ` h A "!X*  X"HX  X "h}|v! d45 'd44nXXhhg ""  4 $ZZhX>%B)6:CG X! 2<32X0W h,@(Ȱ X## 3 hCȰȰ`Ȱ ȰȰP h1 h_,hc h_h_h* 01! h &Xr `D Th Yhw h:8Th.-h NY TAPE TO DISK RELOAD ALTERNATING TAPE DRIVES FOR MULTI TAPES REEL# LOGICAL UNIT# TAPE DRIVE# 1 6 0 2 16 1 3 6 0 YOU MAY CHOOSE TO USE ALTERNATING TAPE DRIVES OR ONLY ONE TAPE DRIVE. IF YOU WISH TO USE ONLY ONE TAPE DRIVE, SPECIFY THE TAPE DRIVE NUMBER OF THE DRIVE YOU WISH TO USE. ALTERNATING DRIVES(Y OR N) SELECT A TAPE DRIVE(0 OR 1) **** ****OPERATOR-MOUNT SAVE TAPE REEL 1 ON UNIT XX WITHOUT RING **** TYPE GO TO CONTINUE, EX TO EXIT ****OPERATOR-THE WRONG TAPE HAS BEEN MOUNTED ****TAPE WAS MADE XX-XX-XX AT XX:XX THE FOLLOWING VOLUMES WILL BE RELOADED TO DISK VOLUME NAME DISK NUMBER IS THIS THE CORRECT SAVE TAPE (Y OR N)  **** ****OPERATOR-BE SURE YOU HAVE THE CORRECT DISK PACKS MOUNTED ****AND THE DISK DRIVES ARE READY IS BEING RELOADED TO DISK WRONG REEL MOUNTED MOUNT REEL NUMBER XX ON TAPE DRIVE XX TAPE TYPE WRONG MASS MEMORY ERROR XXXX ON LOGICAL UNIT XX TAPE TO DISK RELOAD COMPLETE ****OPERATOR-AUTOLOAD THE SYSTEM ****OPERATOR-RELOAD ABORTED-PACKS HAVE NOT BEEN RESTORED **** ****OPERATOR-DO NOT TYPE GO UNTIL DISK DRIVES ARE READY SECTOR SIZES ON TAPE AND VOLUME TO BE RELOADED ARE DIFFERENT - FATAL ERROR DRIVE SIZES ON TAPE AND VOLUME TO BE RELOADED ARE DIFFERENT 01 &'PTø̧ÛÃÇ\ø̲åÃÇ\øæÃÇ\øâÃÇ\øâÃÇ\øâÃÇ\øõÃÇ\ø>õÃÇ\ødÜÃÇ\øqÞÃÇ dÍdÃTøÍÐÃÇT̜  ̝  d%\ø̀ÞÃÇ ll\øÍÐÃÇ\͔k ɔl 1d d̞ 0l ldͫTø͏óÃÇ\øͳÔÃÇ\øͷàÃÇ l0l\øÍÐÃÇ\̓Å ̌È  2d̕TI̞̕ " \øçÃÇ\ø̧ÛÃÇddTWmn\opd\qr\stdTøãÃÇ\øèÃÇ\ø ßÃÇd duTv dw  dx f 1d  d̖\ø÷ÃÇ 1\øåÃÇ dÍdÃTøÍÐÃÇT_  3X|̜  ̝ \øjÐÃÇ̛  lT1Td "Tø3óÃÇ\øWáÃÇ\øͳÓÃÇ\øñÃÇ\øͳÓÃÇ\øͷàÃÇ lSl\øÍÐÃÇ\̓Å ̌È  d̕TI̞̕ "   4 1dΚdΣ\øΆíÃÇ\øͷàÃÇ dÍѦdÃTøÍÐÃÇT Ꜯ  l\̞̱̕ "   d̚TøΤØÃÇ7 du $̖ dwfj 1\øiãÃÇd l!d̠Ty̢̢lṬ̢̣ Fd̦ 1d̥\̦̤\̡̥Ɣ̤  \ø%õÃÇҔ̡ -\øKîÃÇ\øͷàÃÇ dÍKdÃTøÍÐÃÇTÅ È zd̕TI̞̕ !c   d̖;d "p4d̟ d d d f duҠlT ÃÇ\Tdù 1 d1T*ùdηdθ\dTøέåÃÇ l > =\øΤØÃÇ̚ \øíÃÇ\øßÃÇ\øáÃÇTTHwYN ****OPERATOR-REWIND TAPE ON UNIT XX **** **** ****OPERATOR-MOUNT REEL XX ON UNIT XX READY?(Y OR N) ****OPERATOR-WRONG REEL NUMBER WAS MOUNTED ON UNIT XX MOUNT REEL XX TAPE ERROR HAS OCCURED TAPE CHECKSUM ERROR HAS OCCURRED TAPE SEQUENCE ERROR HAS OCCURRED TAPE ERROR HAS OCCURRED OPTIONS: (1)RESTART TAPE ON THE SAME TAPE DRIVE (2)RESTART TAPE ALTERNATING THE TAPE DRIVES (3)RESTART TAPE CHANGING TO USE TAPE DRIVE XX ONLY (4)END TAPE TO DISK RELOAD PICK AN OPTION FROM ABOVE **** ****OPERATOR-MOUNT THE NEXT REEL# XX ON UNIT XX **** END OF TAPE HAS BEEN REACHED1234[dÃTÃÇTTd "  2l  l  l )l  l  l  lT ) 6̹ FTø7ßÃÇ \\øÓÃÇd\ø âÃÇ\ø#ÒÃÇ 1d3d9\øÓÃÇ\ø&ãÃÇ\ø#ÒÃÇ\ø:ØÃÇ dÍdÃTøÍÐÃÇT  w̾ 1l̩  0l dS 1l l\øÓÃÇ̕lTø&ãÃÇ\ø#ÒÃÇ\ø:ØÃÇ lEl\øÍÐÃÇ\̧ ̢   1d  0l\øÓÃÇ\ø âÃÇ\ø#ÒÃÇ 2d,d2\øñÃÇdՑdÃTGÃÇTTd !=TG ) d є 6  1dTF̑d_̯ 0dfTøCóÃÇ ̬l\øӘÝÃÇ\øӦìÃÇ\øçÃÇ  0d 1l\øëÃÇ\øßÃÇ\øÝÃÇ ddÃTøÐÃÇTHI'J`KB̺d\øÓÃÇ\ø âÃÇTø#ÒÃÇ{̠l\øÓÃÇ\ø âÃÇ\ø#ÒÃÇ̉   0d3 0d9 0l 1l\øÓÃÇ\ø&ãÃÇ\ø#ÒÃÇ=l\øÓÃÇ\ø âÃÇ\ø#ÒÃÇ  0l 0l̻ 0l 1l\øÓÃÇ\ø&ãÃÇTø#ÒÃÇ\ø:ØÃÇ dÍdÃTøÍÐÃÇT  HU9  1l dS 0l lIJ= d 1d,  1d2  0l\øñÃÇ! l\øtáÃÇLdTøӆáÃÇld%H"TThh5he hG hC\hh)\hhh!h   1 lÄ"! + a2C 2dd h ,D hj˜3  3Ynؽ 12(h#d0d ldqT;ڌlTm 1h\6m!Tmo\?mp llolpl l\ "t "D+l,l l-l l\ "t "D1l2l l5l l\̦ "ţ "D dúdûdüdýTúüþ d3d dÄT"ù "t "D l8l lλl\úüþάlέl\üþ l l l\ "t "D dÆT*ÆsAA rlƜ C d7l Bl 1׋ ?xml 6d׀d|Cd{d"p<ьl düTüþ dÄT"ù "t "Dvlwl l dýTüþ lzlyl"plTøîÃÇT*rrd&sd'\rd)d*\6rdd\rd/d0\rd2d3\øéÃÇH TThch ****OPERATOR-REWIND TAPE-MOUNT OUTPUT TAPE WITH RING ON UNIT READY?(Y OR N) **** ****OPERATOR-REWIND TAPE ON UNIT XX **** **** ****OPERATOR-REWIND TAPE ON UNIT XX AND LABEL **** **** ****OPERATOR-MOUNT OUTPUT TAPE ON UNIT WITH RING **** TAPE ERROR HAS OCCURRED OPTIONS: (1)MOUNT NEW OUTPUT TAPE ON TAPE DRIVE (2)MOUNT NEW OUTPUT TAPE ALTERNATING THE TAPE DRIVES (3)MOUNT NEW OUTPUT TAPE CHANGING TO USE DRIVE ONLY PICK AN OPTION FROM ABOVE **** ****OPERATOR-MOUNT NEXT OUTPUT TAPE ON UNIT XX WITH RING **** END OF TAPE HAS BEEN REACHEDNY12322T1 "1 5d2d3d4T2//d9\21 " lTøßÃÇ 7d\øðÃÇd\øóÃÇ\øØÃÇ dÍ!dÃTøÍÐÃÇT옅Kl  0l 1ll\øóÃÇ\øØÃÇ lPl\øÍÐÃÇ\̼\øðÃÇ̓  1d̍  0lTøqöÃÇÄd ddÆd dd 1dd d , dn 1T//dT1 2 ld l\øÝÃÇd&\øîÃÇ\ø'ìÃÇ  0d_ 1l\øDîÃÇTøcÝÃÇ d:dÃTø:ÐÃÇT *̶d\øëÃÇ̬d\øóÃÇ(̡  1l 0l 1l 0l\øóÃÇ̍  0l 1l 1l 0l\øóÃÇ\øØÃÇ dÍel\øÍÐÃÇ\̮d: d lTøëÃÇ  1d  0l\øqöÃÇdÄdÿddÆdd T1 "\1 "lHTThhhhhhh\h\hlTTHTTh\h\h\h\h\h MASS MEMORY ERROR HAS OCCURRED ON LU ?$hhh hPdÃTÃÇTTdù 1 d1T*ùȵhȴh\ȮhȭhTøçÃÇHTT\ h\hh\h l d  h hdÃTÃÇTTlTԈhT h\˨lH TT\h\h\hH h" "" H3h2 HX/ l* *  3\"  f  ` ` `"i H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i H%h$"h Hh*p @ 8 0 0Fh `&`X/X+X'X# XX}XXXa"a X" XIb XFb XCa X@b bX@a:XX(h0X&h/X$h. *H)& ! !H " q4lHhd$dZ h c"ΠHq``Hs"ܠhHLhH"h h "hTTaT  dKTɵ dKTɵ dKT dKT dKTX dKTXTT·TϑTPTTTTvX@d LIBRARY BUILD COMPLETE TYPE *Z TO TERMINATE OR TYPE *C TO CONTINUE WITH CURRENT SKELETON AND/OR OUTPUT LIBRARY LU'S =XXb NAM RECORD NOT 1ST RECORD OF DECK. XXb XFR RECORD MISSING FOR LAST PGM LISTED. PGM DELETED. XEXXATOO MANY BINARY DECKS LOADED. CHANGE LIMIT AND RECOMPILE.XX0X FATAL PROGRAM ERROR. RUN KILLED. XXF`X XGGaX^bH ILLEGAL RECORD SIZE (.GT.96). RECORD DELETED  TYPE 1, CR TO TERMINATE EXECUTION TYPE 2, CR TO PROCEED TO SUBSEQUENT LIBRARY OR SKELETON TYPE 3, CR TO CONTINUE ON WITH CURRENT LIBRARY. HHXh"XhX""h HLhT`tHlXhXdhX@ Hg" H B X""HLTHa!X,X5   ZdPq ` Cf*ElNDd (dPH TL(H3( T.hPhTLhHAhChhhh TQ8hHT\  HXh X""hTLa HX h X""hTLTHaXYR X!X\WWdQ dMX5 $ ufXIX9XChKXAhJ GHFC ! >@a:XX(h0X&h/X$h. *H)& ! !H " q4lHhd$dZ h c"Π  P$*N**END   *B*USE*WEF(46H*** ILLEGAL CHARACTER STARTS IDENT FIELD. ***) (48H*** ILLEGAL IDENT FIELD. RECORD IGNORED. *** ) (46H*** ILLEGAL *B RECORD. RECORD IGNORED. *** ) (30H*** END FILE MARK WRITTEN. ***) (46H*** NULL PROGRAM NAME. RECORD IGNORED. *** ) (48H*** PROGRAM NAME TOO LONG. RECORD IGNORED. ***) (54H LOAD LIBRARY INPUT ON LU . CR WHEN READY. ) (32HLOAD SKEL/INSTAL, CR WHEN READY ) (38H LOAD OUTPUT LIBRARY. CR WHEN READY. ) (52H*** NO DEFINITIONS ARE STORED. RECORD IGNORED. ***) "(60H*** INVALID *USE RECORD. IDENT FIELD. RECORD IGNORED. ***) ((72H*** INVALID *USE RECORD. MAX IMBEDDED LEVEL IS 6. RECORD IGNORED. ***) ((72H*** INVALID *USE RECORD. REQUESTED SET IS IN USE. RECORD IGNORED. ***) (26HLOAD DEFS, CR WHEN READY ) (44H*** INVALID ASCII RECORD. RECORD IGNORED. ) TzLdw dxf> !1`l7 f@ l ln !1T0ydT2 dadAdDdEd{d|d}dBdCT^~dJ dX dl6 n̟ TÀT>Q !B\W dMlT dxf $1\ dZ֔ lfY 1\ŤÃÄÆ̸ÅTL  3^0ydT2 la !> 8\AdÇTÇÈÉld l l\ "ldAdQ\ËddT ÌdEdDT^dJdÍ B dFl\ \tlܰܯ\ÇÎ̳ld\ÏTF\̉l\} _|Ð _ dYdÑl{ldC\ T0dÇTÇÒÉdd\ÓTB\ylT2dA\\`l\ÇÔldT Õ dWl 3T.ÖdJ×dOT>[JTZP ̞ l ̘ $z *dwllllÃÄ dxf $1\T0,dÇTÇÊ\۔Ø1ÚДÙkÜǔÛP\W dMdQT lnܻ $1T2TAԔÆ̥Åk\yd\T^ lnܚ 1̐d dNTR \ _ %TxT0dÇTÇÓ\-\ dxf $1\\Y ċl\ÇÝ\ l\ P*ĩl\ÇÞ lޜ>  dß̢ Ñ :lܩܨ\ÇÁ  l윩!̦ $z )dwٔR ܘÖf×f , eln l aldÇ dNT H"+ +Ëddd dx\ H"+̺  Al> ӤÃn ̥h+à&n 1 I ,\ H"+R T\̩ 8 dSTV@ T0ålܑܐTÇáT2\ lfܛ $1\ lT" x 11AN $̺ F l l\̰ ! Adw> Ãn ̚hàn 11 H7 14 !!̽ dÇT0\Çâ dãËn 1 l̝ dT dSTV\lTÇáT2\ dxf $1\\ lܹܸ\Çá\%lܮܭ\ÇâH? K" 8 %,+ d"Qh hp8(d 0jp8h h 1 hdRT) 1O `)Tm[JJ lHK"7 $N AhdR HllM Ah ѨΌn hĈnH K" 8 % d" hf (13Ih " h h hј!!Y Ř hؿȾ  屮  hشȳ حHH Pں ** ABSOLUTE FILE ** ! P*NP*(48H*** LAST DECK REJECTED - NO XFR RECORD ) (46H*** LAST DECK REJECTED - NOT UNIQUE ) hh=Z] hhf}؛ `1Ph hȒ6\n؊ȉl h h dTZd  T 1_ ^  dJdT0W dMdQTddd̬ !̨d (" (l l6ΑfܬT2 dO̐fZT dH lP:nl\܎n\̩  l dߜ6}n lT H  nT[JJ ldΩn `1̝ll l lTJdQ lΰn `1̟dPH ̜lT0dTT2lT d d AdHd\ l  3= : d 1"7 $10"7 $+*" 8 % T dQ5TH  l&T d̸" 8 %T0dTT2 lH*DEF*END *TER(44H*** INVALID DEFINITION RECORD. IGNORED. ***) (50H*** NO DEFINITIONS WERE SUCCESSFULLY LOADED. M** ) (44H*** TOO MANY DEFINITION SETS. IGNORED. ***) (46H*** BAD *DEF RECORD. NO IDENT CHARACTER. ***) "(60H*** BAD *DEF RECORD. IDEN  3_T CHAR ALREADY USED. IGNORED. ***) dWT?T0dTT2\ܜޜ՜לY \l\\\d\ 1 l\ AX+ LIST BUILD LOAD CATLOGDELETEINSERTDUMP COMANDCHANGEEXIT REW ADR BSR ADF BSF WEF UNL B"~m#LM9_ĺĺĺĺĺĺĺ0pP` @ XDh   6XTX )X z  /h Dhh   } eX7w h p w h PX"bh ^ ['  Uh T R J1XX~h OXtX - ! : 6h`X} 0 EW!B * h +h &  h %h XI ( k  k X;XRX5X@ * k  k  !X  ( h  h !k XDh G  ZXx7XMX0z0h& 2[X/Xh X0X - ` XX h (k N h k G h X5  h ~h |h wh X | w * "h l  h h mh ` hh [XX * Vk   Rk X Qh G Lh D ( Jk  Fk X_ =h - :h (XS * -k  'k X C  bX,XXqv%hgDh h XX:BXa>h B(TXW8h (20. i X  h[ X7 hU I  D  @   X$X1X0  0 i X  X X  |X uXX}XSDh XB ( qk %  mk  ik   ek  Dk   hk f# O5 0` Jh K Eh H Ch @ @h ; :h 8 3ػ /h 3 ,h 0 ( %k  k ,kXD & h :Dh h h h h ` h h h h X XϡX5  Xg( )XXUX8v/h- XXXXCX X< $ XQX&X v /hTh XX  ->! ,9!X"X* ,.5XXhXO ' Vj q 'j qĴhX L(q ;XS XK  hSDh X  hX}X: /hUn h.   IXh<7 h2X  hDhIhXXY K\X 2 #h hȽ u h~sDh]pZXX*jhda_GXYV"QhPLIA3DhHh?(h7 X' DhhhhXhXhh XXhXh(hkX(XXQ ,"XX hX()h,XߘMJ XӘB?X:8,h0Xh,('X#X!"X(X hXo((XX$hh/h %h  3a0XDH 'jAB DhO/h`hwXp}2DqhDhH(qh DH!?QH    >h h=DhQX/(0+$ ?"'!h6F1 h+B F&h%Dh  h @(j q.B0F0I @ȈhȈhyȈhs`Hh>h<BV   DȘ#h 8Hj1 'j* #jhXDh)qh25t/h*mh+Ȳh.X(D_A 0`F hFhF`̱hT T H r`DH%B h<h9 4k/ h+  % kDh(hhhhhH_j qD`mH XN jc a Dk q 'kx qXX^hxXq %DXH(qhQh hKDhJhJhFHp 'XE X27 h(,A#,Rh&% h" DhhnX hh4 'X DhhRH##!hK#D hA>ȸpG(  aDQK X Q 2 4  2  aN9Xn # 4 XEND0V4 aQ(uaalh  aNX X pXB  aB0`A h+ aB0`A hIX 5!X]IX -! IAA{XH́{a{IA Cѓ< (:" fH3N B fN (X(h%FXN R4%42 fN   3cX B0`hHRH   aVB XX {hhXPARTBL aQ(a hV "%  h hXLSTLOC aQ(bȵh? "" aȧ " aaX XMSIZV4 aQ(c !hhal a{ haW aNhtX ,aB1 !ataka, B X {hXhTXXXXD :{h{DhBa{XXXX kat,aB1 !h aka,vh h B1 !hB XFXB X   X alX {XqaXwDb a{ aNhafaX9XMBuAN aDQKI# Ia'a"H  aQ(b #X  IhkX\ghj a XXXJIhQXBMhPpaka,navapaqFaWX8 X5EX8 X/EX8 X)C X%%Q!є ( "f {fN  Af@ fX 8 B X{hCh?XXX{ X{h2B XEX XX XXiXR Ih2 2 %X]!XTIh{3x 1XNXEIhXhXUB XPARTBL aXQ(b &hrJoahalBfa aN@a>aaka,ava aWh-aX'h&X { a{paq1FXR XODXY XJDXN XEC XAX  hhhX aQ(bahX ala BXSECTOR aQ(b $Xh " ! saka, taka, 9 ` ;c q `#A @QZ94H 44h  X k@ XX9X Q ERROR BX   hCXF> aDQK IYs IX 4K2 D IjX5Q1XXX*A I H hhzhlh  hhhuX Q B0`A FhDX aDQKX hhhX XXAIh H  a aQ(q N# aXXZDaPXT aP XA aaFXXA{0XENABLE ADDRESS WRITE--THEN CR XB9XXXDISK ERROR X XDISK REJECT XX4X+Ih!X?Ah&h?Xh;X!X;UUhDh4XXX3hX XX-DhXXX( _j q @X X 6  1i H@Xs `X1Q _i q?`QZ3h#4h"QZ3h"4h!SQZ3h 4hȷQZ3h4hXDISK COMPARE ERROR SECT XXXX WORD XXXX IS XXXX SB XXXX X H~ȟ`QZ3h 4h X DISK FAILURE XXXX X XX aNawafa]dh{ bwv [hr hWK!2hgFhdB!zha^Xk\XT@$SRO HMNzhLVavUaX(XSTMSV4 aQ(wX @ [ f QCXUNPEND aQ(r `XXUNPSRT aQ(r 5`.XXLSTLOC aQ(a " &`XXAREAC aQ(```Xa nhU` H ^Db E@ XR#`XDATBAS ha aX f)'hXSWAPAR a aX aXKX fXXP,kXX,k# f ftB1X:,kX fhZ c fh `hS  f# aWX h XJX aWXC X hXh1 h$,kB1A dhhQ@ `X@ GX 6`h Db A@XB8hG  C lc B8׈hDF BAllRAQ@X[=XINITIALIZATION COMPLETED - YOU MAY AUTOLOAD   3dl X MXERRORS OCCURED - YOU MAY ATTEMPT TO AUTOLOAD X 0 ae  !14;_ hXX 9X @ 1; PN  aB0`A h/h5H  3;9BKA 6 (EhBK R A h1!W AX1$ I aX$ {A{CShbX _2XZ!$%X1N JHQZ3hB4hA X gh9h9h9XN 4Q61N 1A HHAHHAAlXV# 0hDShX 2X{A{aAN lX,# {A{X? 5; /àcB aaaaaaN 9 Q^ 2esR4R4! a  aa9aa dhhXn a%nlhHXla.XG    QRh CAX}X1uXa? 5; 7;X!\Xa a?  ah* (H& A aWAAV A a R 41Da a 9;  a  QRa qr315;qf"q>a aX%Q(uQb 8Q6X{X PH aX>a aXXo   4a ?=a A17Q6Qbda a a!a"a? aX1Q a1 aQ(a #13; h Xv va|1 A A|Xbѐ|"a !Q(a # aaQhBh| X|!h="CAaApqd4", gXza WFC 9Q6Xg xWA" BthXdh WQAa X5AN ILLEGAL MULTILEVEL INDIRECT IS IN THE EXTERNAL STRING FOR WHICH STARTS AT LOCATION hhhQZ3h4h 4Xk,ka+,A.XN  !eta+A.Xsa+A.X X'+ a+.R2 q a' a- AXaXAaA--AX Xǀ aUva| a|X|  XaU , v2 6;,h a,X h a/"X16; X X X hX X hXX * * * U N P A T C H E D E X T E R N A L S * * * X!va XI2X4 a2X LOADER ERROR h X5 a{XDH HQZ3b4b #X] X h XAj  4 XXDUPLICATE ENTRY POINT "Ahhh XaX A3X 3A3XA4X4A4Y B q  : AGAIAAAAaHXH   a aI a2  J aG  J aGXH1XZ1J a aXaXtJXJ!JXwaI   A a a XFXYX!X]h "IİS !IaIIG$R AIaGJH t dH   a qH 6 "H "  1H AH1A ! b  !aHH  A  HvB HrH Hn Hghh HcwN ^h[ZB1zHYTthWWZ4AHSRAuwhPHQHOhMF#E2hB?/8N %c!h1H52h0uu0,z2H((h! `b bn8"n5An H amXRRX ;@n;(J ;N 12;A2 2;  bDbhb5n2%ABau  0au C uauuuj ȫX X @(} 5 A(hz`ȕ RAuwhH XRX Y@ uuxzx2aAKW " 9; QB4QVRAcRBd4B4adAaQ XHE VХЦQ6dТJMp``  3e Dbr  %`DcB Ea a *` DcB a`DaFaGaHaIaNaOaPaUaVaWaX j`DcB `aa9 a: a>`azEa`ac aB0caaX #11;!2a a" audaub bbu2Dhzhyhxhwhvhuhthshrhqhphohnhmfapaq`arEd `avaa}E `a/ a aB 0a Xk ` awafaawB0caa HXZOaN  BXm E A aPDhhYhh``aP$daPNaBH@OAH `є N4a aDQK fX7XlQ QbX{" VX_R Q QPTDBHQ HMDhJa#a$a%DQK 7 1XQ" ,X6 AdaQ(2  ON%*$hua N`a{nIbj aXGBH a>BHHяXHd      4 BA4"2  4d xI ̘ " IhX # X  hNs HHhGhI DnBB  @;RXX jI qX hIO B8HA hB@h=hLX -9# H8h8H?h?X @ "RX,<$@ RX#`SYSVOL 00 `heHeW h`H`hhHSQXhXhhHh@JhG\FhD@h9C? D11 3  'd 4h$)+&hG!  hG xhT h da#,   1 V   p a 5 # a     hȶ  ' bج ȰH X# hWHW hVVhahS @ X"hNNRX/JXT hCF X<9X 986!X B X= h H . #  X Xh  !D 1 X  DATE HV8XHRhNhNTFH JO D`@@XXIh8XFh $@QZ3h 4h XL, FAILED () ACTION X X BX} ޘ DRPCU ^[ |,B0 400 H/X 6@.A4A&!da h#!a aXFh "@ "a" ` h` f ֌֎ aaa     Xa A a$I aXXXza @/*&H a a a a$  H M N  I,B&e #XI 1 @B  H X ^ h      aaE$ ! h h  hPXXhH a a@X#X a2h2 "dh*X "  Xr "a" haX "  X] "a"  XVh ߡ a $LhJ" !C   @a    , X* XX a aX    #X hn"'XL  .  a hR$hQ  Q hM "a"*!  3fU@`6 Q4 1 C,O ,  )h "a"!؟ a aa$  hX h,$X۠@X hp "a"X hhX "a"X@X h,Ƞ h fX "a"dXz@\Xe,Rt hr hoBABc^ XQY p*XH(. J hHpX9@*X$ h;A,0 iaA$ a!aa$  ( "a" aAH{XBuX 'hNs" !jB chd^>\Zh]* 7i hgjgSnNB JnFB B `Xe d7`dt `D(XQ!`1XEhhUh ` X4  ` AUTOLOAD ERROR - RETRY IN PROGRESSh%H&aRH"h" hXM hBa8 h fhh h h!X X h h yX!"l n2!91 ) @] Kh~X U R ŰM Ⱦ!  DX`!=)ȭH]`X B2)ȢHbȜd @4 `hȏ$ JhH؇ h5XEdhcBHzX|  X0m"iH4hA">4 h@@77 h#  A jC ȸhȸ h  m k hfXy hX"XP1 \~X#XDXW uhJ ʪ h)ʭh?C bh84 .X&51X3 Qh+# K%1Xw =Xj! "  F ` V sO  H  A  h h h  ՠXXcX"XX%  Ȼ4XIXX XX; 2o1"XOXMYȝ,+ȕ  C hh 7 O h#  l i@k,9db8X"XYX !> GhX ih6mȸkh2 6!!XqX/X4"   H'H q >HbH4 hb @ 4 ` h A "!X*   X"HX  X "h\[v! d45 'd44nXXbha ""  4 $TThR:%<)04=A X! 2532X*< h&@"Ȱ X.ȰȰ`Ȱ ȰȰP h1 h_,hc h_h_h* 01! h &Xr `D Th Yhj h:8Th.-h h hhhȸgaH Hhרh  "h$ !ȸ Hh ȯh h hȨ :Ȩhjhhhh h) ( r#M "ȱ$G"ثhȨ G"ءhȞ G"h`@DPT 6 `.U@@_   @(  # HTeΑfd hn`"p B0F00hX XTjle X X X1o Teag3h3[koXX1oTeag3 i3[ko aXXy Xb c[  $$ EX ? X X3 .hhT$pX__aX *Ⱥ X HX Hj q ah jh Teag3j3[koXmHX[}XUXȉ Xt,qT4(qT:(ruXJnXC` a c qXJ# XtMXSvT4(װ  3gqT:(rXX`! c qaTqTjn aq a Te?X X4cX( X,[  X2Te"a Tf+X501X Z&  XH" HhTj aц H Tj[ aцXXmTjmkX Tf+Xɓ{ XT1("qX` X T:(qXX Gj qh h THD` Uxur ql  1a2ad(a a *j hXhW*ihU"hUhUhUhUJAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC $""  ha% j H j  !$$PGMNAM$$PROCED$$SYMENU$$DAYFIL$$USERID f3^ ::hjhi"hhhghfheaBd]J*iX(@*jRQ*?*kN(8*lL(5*mI FhI*nE"h,dB0D q %ad:!h7h*h)h(h' h-3h,XT7(qT:(q < h " h!  j@h jh! jT=(qX' $$ SYSVOL   j} qhT@(qX Eh j6XT4(q+,Xp &c   B  ADh T:(qXT h4XIN.ROU =X&! `  !`T[qT[q XY h  &   hG h Tj[ a@ X {T1("qX` h j qT:(qX ,H TeTHD( H a Te a  ,2 hTqFTe-(hTr h u  HTLDt1d$ CDC CYBER-18 C C S SYSTEM -VER 3.0-6TERMINAL = XX PASSWORD = USER ID. = REQUEST = X  X X$ h w `2 X X X X X XH$h$ H` aADe+aaAa a Vh` HM! "hG!dhFH5  j9 qT=4"T4З*!vT: H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xq H$X% H X0 \ȵ" \` ȲX2whth \ h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӘ H"A HB0Fh  0X  00j qa! 1" hh! u  HTLDИИHHSYSTEM MESSAGE XXXX17  DUg! aTf+" *H (! X'T&x|H XTf$$ MENU$$  h.! E  HTLDّڑ'Owǒ?gߔ/WϔGo@@@@@@@@@@@@@@@@@@@@@@@@ SELECTION = "  3uX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` HM!"hG!dhFH5  j9 qTt{x4"T֗tyx*!vTtx H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  X- H$X%@ H X0 \ȵ" \` ȲX2whth \H h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :Xӗ@ H"A HB0Fh  0X@ w 00j qa! 1" hh! u  HTLD痌jHHSYSTEM MESSAGE XXXXTe h3 BZ ; 5TLD)' op " XXLSH 2 ` h7 3 K  h hhhX-c    XX*N *K"*L h h  n sT&VXhp `h4hthh `hHWh? h7hM"hkhk- hDӀhD[" HhXc L1 I AhM) b!?" HhXqc f0 #! bXZc JXQc A >B8 @h " Hhݘ!ڐ Xc hH h HhHhXc Dhȹ h`7j6؎ȍ e@!h~!  !# sl4daaaaaaaY aV-H] @H jj= j q XcTHDX XL hTHD  `j tX `gj qTLD+hhX5b &uh |hTLDBLwh {hTLDXTf+Xİh@ HhhhXhT`THD H  n aɓۓ+:Ji =Sp5+ILLEGAL: ITOS HAS NOT BEEN DISABLEDILLEGAL: NOT RUNNING FROM MASTER CONSOLE ILLEGAL: NOT RUNNING IN INTERACס  3vTIVE MODE DISK I/O ERROR NOTEDENTER DISK UNIT NUMBER (0-7) AND TYPE CARRIAGE RETURN ILLEGAL: NOT DEFINED AS DISK ILLEGAL: NO FDD EXISTS ON PACK TURN OFF PROTECT SWITCH (ESC J20@) AND TYPE CARRIAGE RETURN ILLEGAL: JOB PROCESSOR OR LIBEDT ACTIVEOWNER-NAME = FDD REBUILD COMPLETE. AUTOLOAD TO CONTINUE DUPLICATE NAME/OWNER STRING NOTED NAME OWNER IS ENTER NEW NAME AND OWNER FILE-NAME = DISK I/O ERROR NOTED. AUTOLOAD TO CONTINUE RAN OUT OF FDD SPACE - FATAL ERROR AUTOLOAD TO CONTINUE FILE NAME CHANGED. OLD NAME/OWNER IS NEW NAME IS PDSUBRCM A50 F ITOS CCS 3.0 SL-149@P@P#@P)@P0 @P30112312@P8 @P@P@P@PZ@P @P   3w@P STARPCFNB@P@PO N C L R @PC E R @P= h; Hhк @PM h"! + c^ P"  "T @PxȝHBhȕH: !H3 l, l% 5  l@P  lܨ lը 5 l P"̰ " d$̨d@P%̹H쌢d P( l̰Hd Pl A d&d'̹  d )d(@P l*lTq +( %d,n d-" : &m+*@Pg d.!T.d/ 9! !O lМ9\.l C @PE l\.l 9! ! 1d11d24"3"@Ppl5""  l  l, n  }n% @P  l $l@PlHlH !H l l 5 @Pl̶ d(d uld.7T0. @P]@PT 6+̲H 2l̪H !̤H l̜ l̕ 5@P l8d7 ll츶dL9 ܯ 1@ ;̤" 9 %@PH  3x@PMH lH " H l l 5 l@PxT +:#@P^'@Pt lH $;l̺Hd O!=̳H !7 dLH ,@Pl̞d !"̘ !M@P__@P\ +<+ d?@Pbi@Pd@P Pu!( !$d2H # d"Hd O" l " l٬d " l@P @Pj@Po @P @P @P l P" l @PP @PlT"@P`@PTD  3y@P @P @P @P :H7TT hhP hZhhhh'hhh^ h\h\hDhh@P4\hrhhF\h\hPSUBRCM PQ8PKUPQ8PREPGETCHR#DATFMTZWTREAD{PUTCHRSYSMSGPGMOUTP P$CHGTPT A37 A ITOS CCS 3.0 SL-149@P H\ \ h \ u"  H\\h\h\u" PGETCHRPUTCHRPQ8PKUPQ8PREPP P\FMENTP F58 A ITOS CCS 3.0 SL-149@PX%X#X!XXXXXXXXXX X X XXXXXH2@P+ H-32"4` aADeaa AA a a Vh @PV`!PCREATE$CLEAR "DELETE OPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS #RENAMEPUTS WRITERREADR GETS UPDRECDELRECCOMFILVOLUSEREDUCEUSERIDT&SYMSGFWSYMENUySCMENUPROCEDkUTIL l /UTBATC UTDISC!!!?PUPDRECDELRECCOMFILVOLUSEREDUCE$(  3z$PEND0V41CCP A%P 00 00001CCS20 00 00002LA 00 00003 01 NEWS 00004 02 NEWS 00005 03 NEWS 00006 04 NEWS 00007 05 NEWS 00008 06 NEWS 00009 07 NEWS 00010 08 NEWS 00011 09 NEWS 00012 10 NEWS 00013 11 NEWS 00014 12 NEWS 00015 13 NEWS 00016 14 NEWS 00017 15 NEWS 00018  3{8 16 NEWS 00019 17 NEWS 00020 18 NEWS 00021 19 NEWS 00022 20 NEWS 00023 21 NEWS 00024 22 NEWS 00025 23 NEWS 00026 24 NEWS 00027 25 NEWS 00028 26 NEWS 00029 27 NEWS 00030 28 NEWS 00031 29 NEWS 00032 30 NEWS 00033 31 NEWS 00034 32 NEWS 00035 33 NEWS 00036 34 NEWS 00037 35 NEWS 00038j  3|L 36 NEWS 00039 37 NEWS 00040 38 NEWS 00041 39 NEWS 00042 40 NEWS 00043 41 NEWS 00044 42 NEWS 00045 43 NEWS 00046 44 NEWS 00047 45 NEWS 00048 46 NEWS 00049 47 NEWS 00050 48 NEWS 00051 49 NEWS 00052 50 NEWS 00053 51 NEWS 00054 52 NEWS 00055 53 NEWS 00056 54 NEWS 00057 55 NEWS 00058z  3}` 56 NEWS 00059 57 NEWS ******** 58 NEWS ******** 59 NEWS ******** 60 NEWS ******** 61 NEWS ******** 62 NEWS ******** 63 NEWS ******** 64 NEWS ******** 65 NEWS ******** 66 NEWS ******** 67 NEWS ******** 68 NEWS ******** 69 NEWS ******** 70 NEWS ******** 71 NEWS ******** 72 NEWS ******** 73 NEWS ******** 74 NEWS ******** 75 NEWS ********M  3~t 76 NEWS ******** 77 NEWS ******** 78 NEWS ******** 79 NEWS ******** 80 NEWS ******** 81 NEWS ******** 82 NEWS ******** 83 NEWS ******** 84 NEWS ********LA 01 NEWS 00060LA 02 NEWS 00061LA 03 NEWS 00062LA 04 NEWS 00063LA 05 NEWS 00064LA 06 NEWS 00065LA 07 NEWS 00066LA 08 NEWS 00067LA 09 NEWS 00068LA 10 NEWS 00069LA 11 NEWS 00070\  3LA 12 NEWS 00071LA 13 NEWS 00072LA 14 NEWS 00073LA 15 NEWS 00074LA 16 NEWS 00075LA 17 NEWS 00076LA 18 NEWS 00077LA 19 NEWS 00078LA 20 NEWS 00079LA 21 NEWS 00080LA 22 NEWS 00081LA 23 NEWS 00082LA 24 NEWS 00083LA 25 NEWS 00084LA 26 NEWS 00085LA 27 NEWS 00086LA 28 NEWS 00087LA 29 NEWS 00088LA 30 NEWS 00089LA 31 NEWS 00090  3LA 32 NEWS 00091LA 33 NEWS 00092LA 34 NEWS 00093LA 35 NEWS 00094LA 36 NEWS 00095LA 37 NEWS 00096LA 38 NEWS 00097LA 39 NEWS 00098LA 40 NEWS 00099LA 41 NEWS 00100LA 42 NEWS 00101LA 43 NEWS 00102LA 44 NEWS 00103LA 45 NEWS 00104LA 46 NEWS 00105LA 47 NEWS 00106LA 48 NEWS 00107LA 49 NEWS 00108LA 50 NEWS 00109LA 51 NEWS 00110  3LA 52 NEWS 00111LA 53 NEWS 00112LA 54 NEWS 00113LA 55 NEWS 00114LA 56 NEWS 00115LA 57 NEWS ********LA 58 NEWS ********LA 59 NEWS ********LA 60 NEWS ********LA 61 NEWS ********LA 62 NEWS ********LA 63 NEWS ********LA 64 NEWS ********LA 65 NEWS ********LA 66 NEWS ********LA 67 NEWS ********LA 68 NEWS ********LA 69 NEWS ********LA 70 NEWS ********LA 71 NEWS ********c7  3LA 72 NEWS ********LA 73 NEWS ********LA 74 NEWS ********LA 75 NEWS ********LA 76 NEWS ********LA 77 NEWS ********LA 78 NEWS ********LA 79 NEWS ********LA 80 NEWS ********LA 81 NEWS ********LA 82 NEWS ********LA 83 NEWS ********LA 84 NEWS ********ERROR - PROGRAM PROTECT VIOLATION AT LOCATION $$$$ X0300001ERROR - ILLEGAL PROGRAM ATTACHMENT AT LOCATION $$$$ X0300002ERROR - ILLEGAL FILE MANAGER REQUEST AT LOCATION $$$$ X0300003ERROR - ILLEGAL FILE REQUEST PARAMETER AT LOCATION $$$$ X0300004ERROR - ILLEGAL MONITOR REQUEST AT LOCATION $$$$ X0300005ERROR - ILLEGAL REQUEST PARAMETER AT LOCATION $$$$ X0300006ERROR - ILLEGAL I/O REQUEST LOGICAL UNIT AT LOCATION $$$$ X0300007Ȝ  3ERROR - ATTEMPT TO PERFORM STACKED I/O REQUESTS AT LOCATION $$$$ X0300008NOTICE - THE CCS SYSTEM HAS BEEN DISABLED. X0300009A MASS MEMORY I/O ERROR HAS OCCURRED. PROGRAM TERMINATED. X0300010ERROR - ATTEMPT TO MODIFY THE FILE REQUEST BUFFER AT LOCATION $$$$ X0300011PROGRAM ABORTED X0300012@@@ ## ## ##:##:## X0300013C C S LOG OFF ##:##:## X0300014@@ IS INVALID X0300015ILLEGAL LOG IN X0300016REQUEST @@@@@@@@ CANNOT BE FOUND X0300017ERROR - @@@@@@@@ IS TOO LARGE TO BE EXECUTED X0300018ERROR STATUS $$$$ DURING OPEN OF FILE @@@@@@@@@@@@@@@@ X0300019ERROR STATUS $$$$ DURING CLOSE OF FILE @@@@@@@@@@@@@@@@ X0300020ERROR STATUS $$$$ DURING READR OF FILE @@@@@@@@@@@@@@@@ X0300021ERROR STATUS $$$$ DURING GETS OF FILE @@@@@@@@@@@@@@@@ X0300022ERROR STATUS $$$$ DURING FORCE FILE CLOSE X0300023PROCEDURE @@@@@@@@ CANNOT BE FOUND X0300024SYSTEM MESSAGE 0025 X0300025SYSTEM MESSAGE 0026 X0300026SYSTEM MESSAGE 0027 X0300027  3SYSTEM MESSAGE 0028 X0300028SYSTEM MESSAGE 0029 X0300029REQUESTED UTILITY PROCESSOR NOT FOUND X0300030REQUESTED COMMAND IS NOT LEGAL X0300031ILLEGAL COMMAND FORMAT X0300032FILE REQUEST REJECTED X0300033FILE COULD NOT BE LOCATED X0300034MM I/O ERROR WAS NOTED X0300035DISK UNIT SPECIFIED ALREADY MOUNTED X0300036FILE REQUEST ILLEGAL X0300037FILE IS CURRENTLY OPEN X0300038MISSING PARAMETER X0300039ILLEGAL GETFLD STATUS X0300040VIT COULD NOT BE FOUND X0300041FILE IS CURRENTLY LOCKED X0300042INTERNAL FM ERROR X0300043MAX. NO OF OPEN FILES FOR A SINGLE USER X0300044MAX. NO OF OPEN FILES, RETRY X0300045EQUIPMENT TYPE NOT FOUND X0300046VOLUME NOT ON SPECIFIED DISK UNIT X0300047  3VOLUME WAS ALREADY MOUNTED X0300048THIS VOLUME IS DISMOUNTED X0300049MOUNTED VOLUME HAS OPEN FILES X0300050WRONG VOLUME MOUNTED X0300051PARAMETER ENTRY ERROR X0300052VOLUME HAS OPEN FILES, NOT DISMOUNTED X0300053NO KEY ENTERED FOR INDEXED FILES X0300054INSUFFICIENT MM FILE SPACE X0300055INSUFFICIENT FID SPACE FOR FILES X0300056FILE NAME/OWNER NOT UNIQUE X0300057FCB INDEX OUT OF RANGE X0300058FILE REQUEST BUFFER NOT INITIALIZED X0300059UNDEFINED FM STATUS ERROR X0300060FILE HAS A SET OF LOCKED RECORDS X0300061DIRECT FILE RECORD LENGTH EXCEEDS 256 WORDS X0300062INVALID SYSTEM PERIPHERAL NAME X0300063RECORD LENGTH TOO LARGE FOR THIS COMMAND X0300064RECORD LENGTH NOT EQUAL X0300065FILE TYPE NOT EQUAL X0300066PRIMARY KEY NOT UNIQUE X0300067&  3WRONG KEY VALUE X0300068ILLEGAL PARAMETER RECEIVED X0300069INTERNAL UTILITY ERROR X0300070ERROR IN COMPUTING MM WORD ADDR X0300071FILE FORMERLY OPENED FOR COMPRESSION X0300072VOLUME 2 MAY NOT BE MOUNTED X0300073CLASS CODE IS NOT A DISK X0300074THIS COMMAND IS ONLY ALLOWED IF ITOS IS DISABLED X0300075THIS IS A SUPERVISOR COMMAND ONLY X0300076RECORD LOCK-TABLE IS CURRENTLY FULL X0300077RECORD IS LOCKED BY ANOTHER USER X0300078FILE REQUEST BUFFER NOT PROPERLY INITIALIZED X0300079FILE SPECIFIED SHOULD BE A DIRECT FILE X0300080TAPE RECORD EXCEEDS INTERNAL BUFFER SIZE X0300081INDEX TOO BIG FOR UTILITY ORDERED LOAD X0300082OUT OF ORDER PRIMARY KEY X0300083SYSTEM MESSAGE 0084 FMUTIL ERROR 84 X0300084SYSTEM MESSAGE 0085 FMUTIL ERROR 85 X0300085DISK DRIVE/DISK PACK NOT COMPATIBLE X0300086SYSTEM MESSAGE 0087 X0300087`d  3(SYSTEM MESSAGE 0088 X0300088SYSTEM MESSAGE 0089 X0300089SYSTEM MESSAGE 0090 X0300090SUBRCM CALL ERROR - ILLEGAL REQUEST TYPE X0300091SUBRCM CALL ERROR - X COORDINATE LESS THAN ZERO X0300092SUBRCM CALL ERROR - X COORDINATE GREATER THAN 79 X0300093SUBRCM CALL ERROR - Y COORDINATE LESS THAN ZERO X0300094SUBRCM CALL ERROR - Y COORDINATE GREATER THAN 23 X0300095SUBRCM CALL ERROR - BUFFER LENGTH LESS THAN 1 X0300096SUBRCM CALL ERROR - BUFFER LENGTH GREATER THAN 80 X0300097SUBRCM CALL ERROR - ILLEGAL 'DTYPE' X0300098SYSTEM MESSAGE 0099 X0300099SYSTEM MESSAGE 0100 X0300100RPG ERROR 001D @@@@@@@@ FILE IS ALREADY OPENED X0300101RPG ERROR 002D @@@@@@@@ TRIED TO PROCESS FILE IN WRONG MODE X0300102RPG ERROR 003D @@@@@@@@ SPECIFIED RECORD LENGTH INCORRECT X0300103RPG ERROR 004D @@@@@@@@ FILE NOT DEFINED IN DIRECTORY X0300104RPG ERROR 005D @@@@@@@@ AN ADD FILE FOR SEQ PROC MUST BE DEF AS OUTPT X0300105RPG ERROR 006D @@@@@@@@ ADD/LOAD SEQUENTIALLY NOT FOR DIRECT DEF FILE X0300106RPG ERROR 007D @@@@@@@@ FILE DEFINITION IS WRONG FOR SEQ. PROC. X0300107`  3<RPG ERROR 008D @@@@@@@@ RECORD LENGTH NOT COMPATIBLE WITH THE DIRECTORY X0300108RPG ERROR 009D @@@@@@@@ FILE MGR. DID NOT HANDLE DIR REQ STAT $$$$ X0300109RPG ERROR 010D @@@@@@@@ TRIED TO ACCESS AN UNOPENED FILE X0300110RPG ERROR 011D @@@@@@@@ READ 09 FOUND FILE TO BE NON UNIT-RECORD DEFINEDX0300111RPG ERROR 012D @@@@@@@@ RECORD ######## WAS SHORT-PADDED WITH BLANKS X0300112RPG ERROR 013D @@@@@@@@ READ 12 FOUND FILE DEFINED AS A NON-DISK FILE X0300113RPG ERROR 014D @@@@@@@@ RECORD ######## WAS TO LONG-RECORD TRUNCATED X0300114RPG ERROR 015D @@@@@@@@ WRIT17 FND FILE DEF AS NON-UNIT REC FILE X0300115RPG ERROR 016D @@@@@@@@ WRIT20 FND FILE DEF AS NON DISK SEQ FILE X0300116RPG ERROR 017D @@@@@@@@ UPDT26 FND FILE DEF AS NON DISK SEQ FILE X0300117RPG ERROR 018D @@@@@@@@ MULTIPLE UPDATES W/O READ IN BETWEEN INVALID X0300118RPG ERROR 019D @@@@@@@@ APDT30 FOUND FILE DEFINED AS A NON DISK-SEQ FILEX0300119RPG ERROR 020D @@@@@@@@ CLOS35 FOUND FILE DEFI AS NON UNIT REC FILE X0300120RPG ERROR 021D @@@@@@@@ CLOS38 FOUND FILE DEFINED AS A NON DISK-SEQ FILEX0300121RPG ERROR 022D @@@@@@@@ MASS STORAGE ERROR X0300122RPG ERROR 023D @@@@@@@@ FILE MGR DID NOT HANDLE FILE REQUEST $$$$ X0300123RPG ERROR 024D @@@@@@@@ END OF TAPE ENCOUNTERED X0300124RPG ERROR 025D @@@@@@@@ INPUT DEVICE FAILURE X0300125RPG ERROR 026D @@@@@@@@ OUTPUT DEVICE FAILURE X0300126RPG ERROR 027D @@@@@@@@ SHARED BUFFERS NOT ALLOWED FOR TAPE FILES X0300127  3PRPG ERROR 028D @@@@@@@@ BLOCK SIZE MUST BE INTEGER MULTIPLE OF REC SIZE X0300128RPG ERROR 029D @@@@@@@@ READ 11 FOUND FILE NOT DEFINED AS TAPE X0300129RPG ERROR 030D @@@@@@@@ WRIT19 FOUND FILE NOT DEFINED AS TAPE X0300130RPG ERROR 031D @@@@@@@@ CLOS 37 FOUND FILE NOT DEFINED AS TAPE X0300131RPG ERROR 032D @@@@@@@@ DATA OVERFLOW - NO MORE TAPE VOLUMES DECLARED X0300132RPG ERROR 033D @@@@@@@@ ADDING RECORDS IS NOT ALLOWED IN DIRECT PROC. X0300133RPG ERROR 034D @@@@@@@@ OUTPT FILE FOR DIRCT PROC MUST BE DEF DIR X0300134RPG ERROR 035D @@@@@@@@ DIRECT PROC. ON INDEXED FILE ALLOWD ONLY FOR INPX0300135RPG ERROR 036D @@@@@@@@ FILE DEFINITION IS WRONG FOR DIRECT PROC. X0300136RPG ERROR 037D @@@@@@@@ READ13 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300137RPG ERROR 038D @@@@@@@@ WRIT21 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300138RPG ERROR 039D @@@@@@@@ UPDT27 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300139RPG ERROR 040D @@@@@@@@ CLOS39 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300140RPG ERROR 041D @@@@@@@@ RECORD NUMBER ######## OUT OF RANGE X0300141RPG ERROR 042D @@@@@@@@ DOUBLE BUFFERING NOT ALLOWED FOR INDEX FILE X0300142RPG ERROR 043D @@@@@@@@ INDEX PROC. IS ALLOWED ONLY FOR INDEX-DEF FILES X0300143RPG ERROR 044D @@@@@@@@ KEY LENGTH/POSITION NOT COMPATIBLE WITH DIRECTORX0300144RPG ERROR 045D @@@@@@@@ OPEN 05 WAS CALLED FOR NON-RANDOM PROCESSING X0300145RPG ERROR 046D @@@@@@@@ READ15 FOUND FILE DEFINED AS A NON INDEX FILE X0300146RPG ERROR 047D @@@@@@@@ WRIT23 FOUND FILE DEFINED AS A NON INDEX FILE X03001473  3dRPG ERROR 048D @@@@@@@@ ADDT32 FOUND FILE DEFINED AS A NON INDEX FILE X0300148RPG ERROR 049D @@@@@@@@ CLOS41 FOUND FILE DEFINED AS A NON INDEX FILE X0300149RPG ERROR 050D @@@@@@@@ UPDT29 FOUND FILE DEFINED AS A NON INDEX FILE X0300150RPG ERROR 051D @@@@@@@@ THE KEY IN RECORD ######## MODIFIED BY UPDATE X0300151RPG ERROR 052D @@@@@@@@ CLOS40 FOUND FILE DEFINED AS A NON INDEX FILE X0300152RPG ERROR 053D @@@@@@@@ READ19 FOUND FILE DEFINED AS A NON INDEX FILE X0300153RPG ERROR 054D @@@@@@@@ WRIT22 FOUND FILE DEFINED AS A NON INDEX FILE X0300154RPG ERROR 055D @@@@@@@@ UPDT28 FOUND FILE DEFINED AS A NON INDEX FILE X0300155RPG ERROR 056D @@@@@@@@ ADDT31 FOUND FILE DEFINED AS A NON INDEX FILE X0300156RPG ERROR 057D @@@@@@@@ SETL33 FOUND FILE DEFINED AS A NON INDEX SEQ FILX0300157RPG ERROR 058D @@@@@@@@ RECORD ######## OUT OF ORDER X0300158RPG ERROR 059D @@@@@@@@ SETL33 SET LOWER LIMIT NOT ALLOWED FOR ADD FILESX0300159RPG ERROR 060D @@@@@@@@ KEY OF RECORD ######## ALREADY EXISTS X0300160RPG ERROR 061D @@@@@@@@ SEQ. PROC. FOR INDEX-DEFINED FILE ONLY FOR INPUTX0300161RPG ERROR 062D @@@@@@@@ UNABLE TO SORT THE KEYS X0300162RPG ERROR 063D @@@@@@@@ SLCT34 CALL STACKER SELECT IS NOT SUPPORTED X0300163RPG ERROR 064D @@@@@@@@ ERROR CODE IN BUFFER IS WRONG FOR TAPE X0300164RPG ERROR 065D @@@@@@@@ NO VOL1 LABEL ON SL TAPE X0300165RPG ERROR 066D @@@@@@@@ WRONG DATA SET NAME X0300166RPG ERROR 067D @@@@@@@@ TAPE VOLUMES MOUNTED IN WRONG ORDER X0300167׷  3xRPG ERROR 068D @@@@@@@@ TAPE FILE NOT DEFINED BY MOUNT UTILITY X0300168RPG ERROR 069D @@@@@@@@ WRONG VOLUME SERIAL NUMBER X0300169RPG ERROR 070D @@@@@@@@ INVALID EXPIRATION DATE X0300170RPG ERROR 071D @@@@@@@@ FILE MANAGER ERROR IN READING MOUNT FILE X0300171RPG ERROR 072D @@@@@@@@ UNEXPIRED DATE SET X0300172RPG ERROR 073D @@@@@@@@ NOT USED X0300173RPG ERROR 074D @@@@@@@@ COMBINED FILES NOT SUPPORTED X0300174RPG ERROR 075D @@@@@@@@ OPEN02 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300175RPG ERROR 076D @@@@@@@@ WRONG BUFFER SIZE CAN NOT BE USED FOR FIXED BLK X0300176RPG ERROR 077D @@@@@@@@ BLOCKING IS IMPOSSIBLE FOR SHARED BUFFERS X0300177RPG ERROR 078D @@@@@@@@ ERROR RETURN FROM SPEC. DEV DRVR, STAT= $$$$ X0300178RPG ERROR 079D @@@@@@@@ READ 10 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300179RPG ERROR 080D @@@@@@@@ UPDT25 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300180RPG ERROR 081D @@@@@@@@ RECORD ######## WAS TOO LONG - RECORD IGNORED X0300181RPG ERROR 082D @@@@@@@@ CLOS36 FOUND FILE DE AS NON SPECIAL DEV FILE X0300182RPG ERROR 083D @@@@@@@@ WRIT 18 REQUIRES FILES DEFI. AS SPECIAL DEVICE X0300183RPG ERROR 084D @@@@@@@@ NOT USED X0300184RPG ERROR 085D @@@@@@@@ NOT USED X0300185RPG ERROR 086D @@@@@@@@ NOT USED X0300186RPG ERROR 087D @@@@@@@@ NOT USED X0300187S  3RPG ERROR 088D @@@@@@@@ NOT USED X0300188RPG ERROR 089D @@@@@@@@ NOT USED X0300189RPG ERROR 090D @@@@@@@@ NOT USED X0300190RPG ERROR 091D @@@@@@@@ NOT USED X0300191RPG ERROR 092D @@@@@@@@ NOT USED X0300192RPG ERROR 093D @@@@@@@@ NOT USED X0300193RPG ERROR 094D @@@@@@@@ NOT USED X0300194RPG ERROR 095D @@@@@@@@ NOT USED X0300195RPG ERROR 096D @@@@@@@@ NOT USED X0300196RPG ERROR 097D @@@@@@@@ NOT USED X0300197RPG ERROR 098D @@@@@@@@ NOT USED X0300198RPG ERROR 099D @@@@@@@@ ERROR AT LOCATION = $$$$ X0300199RPG ERROR 100D @@@@@@@@ NOT USED X0300200RPG ERROR 101R @@@@@@@@ HALT INDICATOR H1 IS ON X0300201RPG ERROR 102R @@@@@@@@ HALT INDICATOR H2 IS ON X0300202RPG ERROR 103R @@@@@@@@ HALT INDICATOR H3 IS ON X0300203RPG ERROR 104R @@@@@@@@ HALT INDICATOR H4 IS ON X0300204RPG ERROR 105R @@@@@@@@ HALT INDICATOR H5 IS ON X0300205RPG ERROR 106R @@@@@@@@ HALT INDICATOR H6 IS ON X0300206RPG ERROR 107R @@@@@@@@ HALT INDICATOR H7 IS ON X0300207^  3RPG ERROR 108R @@@@@@@@ HALT INDICATOR H8 IS ON X0300208RPG ERROR 109R @@@@@@@@ HALT INDICATOR H9 IS ON X0300209RPG ERROR 110R @@@@@@@@ NO PRIMARY OR SECONDARY FILES ARE OPENED X0300210RPG ERROR 111R @@@@@@@@ SQUARE ROOT OF NEGATIVE NUMBER X0300211RPG ERROR 112R @@@@@@@@ NOT USED X0300212RPG ERROR 113R @@@@@@@@ DIVISION BY ZERO X0300213RPG ERROR 114R @@@@@@@@ ARRAY INDEX OUT OF RANGE X0300214RPG ERROR 115R @@@@@@@@ INPUT TABLE OR ARRAY OUT OF SEQUENCE X0300215RPG ERROR 116R @@@@@@@@ NO TABLE OR ARRAY DATA IN FILE X0300216RPG ERROR 117R @@@@@@@@ TOO MUCH DATA FOR TABLE OR ARRAY X0300217RPG ERROR 118R @@@@@@@@ SUBROUTINE RETURN STACK IS FULL X0300218RPG ERROR 119R @@@@@@@@ SUBROUTINE RETURN WITHOUT PREVIOUS EXSR X0300219RPG ERROR 120R @@@@@@@@ END OF FILE FOR DEMAND FILE X0300220RPG ERROR 121R @@@@@@@@ RECORD NOT FOUND, KEY NOT IN INDEX FILE X0300221RPG ERROR 122R @@@@@@@@ RELATIVE RECORD NUMBER OUT OF RANGE X0300222RPG ERROR 123R @@@@@@@@ RECORD IS OUT OF SEQUENCE X0300223RPG ERROR 124R @@@@@@@@ FILE OUT OF MATCHING RECORD SEQUENCE X0300224RPG ERROR 125R @@@@@@@@ UNIDENTIFIED RECORD IN FILE X0300225RPG ERROR 126R @@@@@@@@ TOO MUCH DATA FOR RECORD X0300226RPG ERROR 127R @@@@@@@@ NOT USED X0300227]  3RPG ERROR 128R @@@@@@@@ NOT USED X0300228RPG ERROR 129R @@@@@@@@ NOT USED X0300229RPG ERROR 130R @@@@@@@@ ATTEMPT TO OUTPUT TO FULL FILE X0300230RPG ERROR 131R @@@@@@@@ DIRECT ACCESS RECORD NO. OUT OF RANGE X0300231RPG ERROR 132R @@@@@@@@ ATTEMPT TO UPDATE FILE BEFORE INPUT X0300232RPG ERROR 133R @@@@@@@@ RECORD NOT FOUND WITH SPECIFIED KEY X0300233RPG ERROR 134R @@@@@@@@ DUPLICATE KEY FOR OUTPUT TO FILE X0300234RPG ERROR 135R @@@@@@@@ DATA TRANSFER FAILED, CHECK DEVICE OR FILE X0300235RPG ERROR 136R @@@@@@@@ FILE IS NOT PRESENT X0300236RPG ERROR 137R @@@@@@@@ FILE DOES NOT CORRESPOND TO DMPT DESCRIPTION X0300237RPG ERROR 138R @@@@@@@@ KEY MODIFIED BY UPDATE X0300238RPG ERROR 139R @@@@@@@@ KEY OUT OF ORDER X0300239RPG ERROR 140R UNABLE TO CONTINUE DUE TO PREVIOUS ERROR X0300240RPG ERROR 141R @@@@@@@@ ILLEGAL FILE TYPE FOR SETLL X0300241RPG ERROR 142R WRONG PROCESSOR SELECTED. RUN SELMU, SELECTING OPTION 1X0300242RPG ERROR 143R INTERNAL RPG RUNTIME ERROR IN R9MVBX X0300243RPG ERROR 144R @@@@@@@@ NOT USED X0300244RPG ERROR 145R @@@@@@@@ NOT USED X0300245RPG ERROR 146R @@@@@@@@ NOT USED X0300246RPG ERROR 147R @@@@@@@@ NOT USED X0300247  3RPG ERROR 148R @@@@@@@@ NOT USED X0300248RPG ERROR 149R @@@@@@@@ NOT USED X0300249RPG ERROR 150R @@@@@@@@ ALL HALT INDICATORS HAVE BEEN DISPLAYED X0300250RPG ERROR 151R @@@@@@@@ NOT USED X0300251RPG ERROR 152R @@@@@@@@ NOT USED X0300252RPG ERROR 153R @@@@@@@@ NOT USED X0300253RPG ERROR 154R @@@@@@@@ NOT USED X0300254RPG ERROR 155R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRFL X0300255RPG ERROR 156R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRAJ X0300256RPG ERROR 157R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRMV X0300257RPG ERROR 158R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRIN X0300258RPG ERROR 159R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRED X0300259RPG ERROR 160R @@@@@@@@ NOT USED X0300260SPARE MESSAGE 261 X0300261SPARE MESSAGE 262 X0300262SPARE MESSAGE 263 X0300263SPARE MESSAGE 264 X0300264SPARE MESSAGE 265 X0300265SPARE MESSAGE 266 X0300266SPARE MESSAGE 267 X0300267  3SPARE MESSAGE 268 X0300268SPARE MESSAGE 269 X0300269SPARE MESSAGE 270 X0300270SPARE MESSAGE 271 X0300271SPARE MESSAGE 272 X0300272SPARE MESSAGE 273 X0300273SPARE MESSAGE 274 X0300274SPARE MESSAGE 275 X0300275SPARE MESSAGE 276 X0300276SPARE MESSAGE 277 X0300277SPARE MESSAGE 278 X0300278SPARE MESSAGE 279 X0300279SPARE MESSAGE 280 X0300280SPARE MESSAGE 281 X0300281SPARE MESSAGE 282 X0300282SPARE MESSAGE 283 X0300283SPARE MESSAGE 284 X0300284SPARE MESSAGE 285 X0300285SPARE MESSAGE 286 X0300286SPARE MESSAGE 287 X0300287k  3SPARE MESSAGE 288 X0300288SPARE MESSAGE 289 X0300289SPARE MESSAGE 290 X0300290SPARE MESSAGE 291 X0300291SPARE MESSAGE 292 X0300292SPARE MESSAGE 293 X0300293SPARE MESSAGE 294 X0300294SPARE MESSAGE 295 X0300295SPARE MESSAGE 296 X0300296SPARE MESSAGE 297 X0300297SPARE MESSAGE 298 X0300298SPARE MESSAGE 299 X0300299SPARE MESSAGE 300 X0300300ILLEGAL LINE NUMBER ##### SPECIFIED X0300301NO PROGRAM ID ON H FORMAT SPECIFICATION X0300302FILE @@@@@@@@ IS NOT AN EDITOR FILE X0300303AN ERROR OCCURRED WHEN BUILDING THE STATEMENT LABEL INDEX X0300304ILLEGAL FILE NAME X0300305INVALID FIELD X0300306INVALID NUMERIC VALUE X0300307#  3COMMAND NAME NOT UNIQUE X0300308INVALID COMMAND X0300309WRONG FORMAT TYPE FOR THIS FILE X0300310INVALID FORMAT SPECIFICATION X0300311LINE NUMBER OVERFLOW X0300312INCORRECT TAB STOP ORDER X0300313INVALID RPG ARRAY DATA LINE NUMBER X0300314INVALID DELIMITER X0300315DELIMITER MISSING X0300316CHARACTER STRING TOO LONG X0300317RESEQUENCE WITH A LOWER BASE AND/OR INCREMENT X0300318NO FILE OPEN FOR EDITOR USE X0300319SAVRTN STACK OVERFLOW X0300320SAVRTN STACK UNDERFLOW X0300321FILE IS FULL X0300322SPARE EDITOR MESSAGE X0300323SPARE EDITOR MESSAGE X0300324SPARE EDITOR MESSAGE X0300325SPARE EDITOR MESSAGE X0300326SPARE EDITOR MESSAGE X0300327[  3SPARE EDITOR MESSAGE X0300328SPARE EDITOR MESSAGE X0300329SPARE EDITOR MESSAGE X0300330FILE MANAGER ERROR WHEN OPENING FILE @@@@@@@@ ISTAT = $$$$ X0300331COULD NOT LOCATE FILE @@@@@@@@ USER @@@@@@@@ X0300332FILE @@@@@@@@ IS LOCKED. TRY AGAIN LATER X0300333FILE MANAGER ERROR WHEN READING FILE @@@@@@@@ ISTAT = $$$$ X0300334FILE MANAGER ERROR WHEN DELETING FROM FILE @@@@@@@@ ISTAT = $$$$ X0300335AN ERROR OCCURRED WHEN INITIALIZING THE EDITOR ISTAT = $$$$ X0300336FILE MANAGER ERROR IN STATEMENT LABEL INDEX FILE ISTAT = $$$$ X0300337FILE MANAGER ERROR WHEN UPDATING FCB ISTAT = $$$$ X0300338FILE MANAGER ERROR WHEN CLOSING FILE @@@@@@@@ ISTAT = $$$$ X0300339FILE MANAGER ERROR WHEN INITIALIZING SCRATCH FILE ISTAT = $$$$ X0300340FILE MANAGER ERROR WHEN UPDATING FILE @@@@@@@@ ISTAT = $$$$ X0300341FILE MANAGER ERROR WHEN UPDATING FCB FOR FILE @@@@@@@@ ISTAT = $$$$ X0300342FILE MANAGER ERROR WHEN CREATING SCRATCH FILE ISTAT = $$$$ X0300343FILE MANAGER ERROR WHEN OPENING SCRATCH FILE ISTAT = $$$$ X0300344FILE MANAGER ERROR WHEN WRITING SCRATCH FILE ISTAT = $$$$ X0300345FILE MANAGER ERROR WHEN CLOSING SCRATCH FILE ISTAT = $$$$ X0300346FILE MANAGER ERROR WHEN RENAMING SCRATCH FILE ISTAT = $$$$ X0300347  3,FILE MANAGER ERROR WHEN DELETING FILE @@@@@@@@ ISTAT = $$$$ X0300348FILE MANAGER ERROR WHEN DELETING SCRATCH FILE ISTAT = $$$$ X0300349CLOSFL REQIND@@@@@@@@ X0300350OPENFL REQIND@@@@@@@@ X0300351DELETE REQIND@@@@@@@@ X0300352CREATE REQIND@@@@@@@@ X0300353GETS REQIND@@@@@@@@ X0300354PUTS REQIND@@@@@@@@ X0300355GETFCB REQIND@@@@@@@@ X0300356UPDFCB REQIND@@@@@@@@ X0300357VOLUME= @@@@@@@@ X0300358FILNAM= @@@@@@@@, @@@@@@@@ X0300359ABNORMAL ERROR@@@@@@@@@@@@ X0300360BLKSIZ/RECLTH .NE. 1,2,3... X0300361@@@@@@@@@@@@ X0300362FATAL ERROR X0300363DONE@@@@@@@@@@@@ X0300364TYPE-IN ERROR X0300365EXPECTED @@@@@@@@@@@@@@@@@@@@@@ FOUND @@ X0300366CANNOT OPEN INPUT FILE X0300367  3@TOO LITTLE CORE X0300368INTERPHASE RECORD COUNTS DISAGREE X0300369@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X0300370PASSED@@@@@@@@@@@@ X0300371SEQ. DIR. ERROR X0300372TOO LITTLE DISK X0300373OUTPUT RECORD COUNT BAD X0300374INPUT FILE LENGTHS ARE NOT EQUAL X0300375FN=@@@@@@@@,@@@@@@@@ X0300376OUTPUT FILE RECORD LENGTH IS ZERO X0300377ADDROUT SORTS ONLY 1 FILE X0300378VOLUME @@@@@@@@ NOT MOUNTED X0300379START OF KEY FIELD OUTSIDE OF RECORD X0300380KEY FIELD EXTENDS BEYOND END OF RECORD X0300381SYSTEM MESSAGE 0382 X0300382SYSTEM MESSAGE 0383 X0300383SYSTEM MESSAGE 0384 X0300384SYSTEM MESSAGE 0385 X0300385SYSTEM MESSAGE 0386 X0300386SYSTEM MESSAGE 0387 X03003879  3TSYSTEM MESSAGE 0388 X0300388SYSTEM MESSAGE 0389 X0300389SYSTEM MESSAGE 0390 X0300390SYSTEM MESSAGE 0391 X0300391SYSTEM MESSAGE 0392 X0300392SYSTEM MESSAGE 0393 X0300393SYSTEM MESSAGE 0394 X0300394SYSTEM MESSAGE 0395 X0300395SYSTEM MESSAGE 0396 X0300396SYSTEM MESSAGE 0397 X0300397SYSTEM MESSAGE 0398 X0300398SYSTEM MESSAGE 0399 X0300399NO ROOM IN HOST FILE X0300400HOST NAME NOT FOUND X0300401PARAMETER MUST BE ADD OR DEL X0300402DUPLICATE HOST NAME X0300403PROTOCOL TYPE MUST BE 200UT OR HASP X0300404BATCH DRIVER BUSY ON THIS HOST X0300405JOB(S) PENDING FOR THIS HOST X0300406SYSTEM MESSAGE 0407 X0300407j  3hINVALID LOGICAL UNIT X0300408SYSTEM MESSAGE 0409 X0300409LOGICAL UNIT ALREADY SET FOR THIS HOST X0300410DUPLICATE LOGICAL UNIT X0300411ILLEGAL TO DELETE LOCAL HOST X0300412NO ROOM IN BATCH FILE X0300413NO *JOB RECORD IN THE INPUT FILE X0300414INVALID JOB NUMBER X0300415INVALID OWNER IDENTIFICATION X0300416JOB ALREADY DISCARDED X0300417FILE MANAGER ERROR IN ACCESSING THE BATCH FILE X0300418JOB NOT FOUND X0300419JOB INACTIVE X0300420NO JOBS TO PRINT X0300421NO SUCH HOST X0300422SYSTEM MESSAGE 423 X0300423OUTPUT NOT RECEIVED X0300424 * SYSTEM MENU X0200001 * X0200002MNUPRO SC - SYSTEM CONFIGURATOR X0200003  3|UTIL UT - SYSTEM UTILITIES X0200004EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILESX0200005MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING PREPARATION X0200006MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES X0200007MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES X0200008MNUPRO RP - CCS20 ON DEMAND REPORTING X0200009MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY X0200010MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION X0200011MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES X0200012MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES X0200013MNUPRO LO - L/A ON DEMAND REPORTING X0200014MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY X0200015MNUPRO EX - EXIT X0200016 * SYSTEM CONFIGURATION MENU 00001 * 00002 * BEFORE MAKING A SELECTION FROM THIS MENU BE SURE THE AUXILIARY 00003 * DISK(S) HAVE BEEN INITIALIZED WITH THE CORRECT VOLUME LABEL 00004 * OR LABELS FOR THE SYSTEM WHICH YOU WILL SELECT. ALL DISK 00005 * PACKS SHOULD BE MOUNTED AND READY. 00006 * 00007B  3PRFSC001 A-12000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00008PRFSC002 B-24000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00009PRFSC003 C-36000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00010PRFSC004 D-78000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00011PRFSC005 E-12000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD03) 00012PRFSC006 F-24000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00013PRFSC007 G-36000/13500 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00014PRFSC008 H-60000/18000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01) 00015PRFSC009 I-CLEAR CCS SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00016PRFSC010 J-CLEAR CCS/LA SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00017 Z-EXIT 00018CARDPRO READER 00001TAPEPRO TAPE0 00002DCCOLACT PRFDC001 00003DCPRTLTR PRFDC002 00004DCACTADD PRFDC003 00005DCUPDTAP PRFDC004 00006DCNFINUP PRFDC005 00007DCFINUPD PRFDC006 00008DCUPDHIS PRFDC007 000090  3DCDUMMIE PRFDC008 00010DCDUMDUM PRFDC009 00011DCSRTTRN PRFDC010 00012DCBLDDAS PRFDC011 00013HSMOVHIS PRFHS001 00014HSUPDTAP PRFHS002 00015HSPRGHIS PRFHS003 00016HSPRGTAP PRFHS004 00017MTRDRLTR PRFMT001 00018MTCONLTR PRFMT002 00019MTUTIFIL PRFMT003 00020MTDECTBL PRFMT004 00021MTAVMDMP PRFMT005 00022MTACTMTX PRFMT006 00023MTSPCAUD PRFMT007 00024MTLDSCRN PRFMT008 00025MTSVSCRN PRFMT009 00026MTPRGMST PRFMT010 00027MTACTMTN PRFMT011 00028MTUSEMTN PRFMT012 00029C  3MTDETCRD PRFMT013 00030MTDETCON PRFMT014 00031MTPDFMTN PRFMT015 00032MTSCNPRT PRFMT016 00033RPDRCIAC PRFRP001 00034RPDRCSRQ PRFRP002 00035RPTAPRRN PRFRP003 00036RPTAPTQU PRFRP004 00037RPTAPTTY PRFRP005 00038RPWRTOFF PRFRP006 00039RPDLYASN PRFRP007 00040RPSUMACT PRFRP008 00041RPWCOLST PRFRP009 00042RPMCOLST PRFRP010 00043RPTCNTRL PRFCNTRL 00044PRFRP012 PRFRP012 00045PRFRP013 PRFRP013 00046PRFPG000 PRFPG000 00047PRFPG001 PRFPG001 00048PRFPG002 PRFPG002 00049ۊ  3PRFPG003 PRFPG003 00050PRFPG004 PRFPG004 00051PRFPG005 PRFPG005 00052PRFPG006 PRFPG006 00053PRFPG007 PRFPG007 00054PRFPG008 PRFPG008 00055PRFPG009 PRFPG009 00056PRFPG010 PRFPG010 00057PRFPG011 PRFPG011 00058PRFPG012 PRFPG012 00059PRFPG013 PRFPG013 00060PRFPG014 PRFPG014 00061PRFPG015 PRFPG015 00062PRFPG016 PRFPG016 00063PRFPG017 PRFPG017 00064PRFPG018 PRFPG018 00065PRFPG019 PRFPG019 00066LDCOLACT PRFLD001 00067LDPRTLTR PRFLD002 00068LDACTADD PRFLD003 00069  3LDUPDTAP PRFLD004 00070LDNFINUP PRFLD005 00071LDFINUPD PRFLD006 00072LDUPDHIS PRFLD007 00073LDDUMMIE PRFLD008 00074LDDUMDUM PRFLD009 00075LDSRTTRN PRFLD010 00076LDBLDDAS PRFLD011 00077PRFLD012 PRFLD012 00078PRFLD013 PRFLD013 00079LHMOVHIS PRFLH001 00080LHUPDTAP PRFLH002 00081LHPRGHIS PRFLH003 00082LHPRGTAP PRFLH004 00083LHPRGCLI PRFLH005 00084LMRDRLTR PRFLM001 00085LMCONLTR PRFLM002 00086LMUTIFIL PRFLM003 00087LMDECTBL PRFLM004 00088LMAVMDMP PRFLM005 00089  3LMACTMTX PRFLM006 00090LMSPCAUD PRFLM007 00091LMLDSCRN PRFLM008 00092LMSVSCRN PRFLM009 00093LMPRGMST PRFLM010 00094LMACTMTN PRFLM011 00095LMUSEMTN PRFLM012 00096LMDETCRD PRFLM013 00097LMDETCON PRFLM014 00098LMPDFMTN PRFLM015 00099LMSCNPRT PRFLM016 00100PRFLM017 PRFLM017 00101LODRCIAC PRFLO001 00102LODRCSRQ PRFLO002 00103LOTAPRRN PRFLO003 00104LOTAPTQU PRFLO004 00105LOTAPTTY PRFLO005 00106LOWRTOFF PRFLO006 00107LODLYASN PRFLO007 00108LOSUMACT PRFLO008 001094  3 LOWCOLST PRFLO009 00110LOMCOLST PRFLO010 00111LOTCNTRL PRFLACTR 00112PRFLO012 PRFLO012 00113PRFLO013 PRFLO013 00114PRFLO014 PRFLO014 00115PRFLO015 PRFLO015 00116PRFLO016 PRFLO016 00117PRFLO017 PRFLO017 00118PRFLP000 PRFLP000 00119PRFLP001 PRFLP001 00120PRFLP002 PRFLP002 00121PRFLP003 PRFLP003 00122PRFLP004 PRFLP004 00123PRFLP005 PRFLP005 00124PRFLP006 PRFLP006 00125PRFLP007 PRFLP007 00126PRFLP008 PRFLP008 00127PRFLP009 PRFLP009 00128PRFLP010 PRFLP010 00129  3 PRFLP011 PRFLP011 00130PRFLP012 PRFLP012 00131PRFLP013 PRFLP013 00132PRFLP014 PRFLP014 00133PRFLP015 PRFLP015 00134PRFLP016 PRFLP016 00135PRFLP017 PRFLP017 00136PRFLP018 PRFLP018 00137PRFLP019 PRFLP019 00138PRFSC001 PRFSC001 00139PRFSC002 PRFSC002 00140PRFSC003 PRFSC003 00141PRFSC004 PRFSC004 00142PRFSC005 PRFSC005 00143PRFSC006 PRFSC006 00144PRFSC007 PRFSC007 00145PRFSC008 PRFSC008 00146PRFSC009 PRFSC009 00147PRFSC010 PRFSC010 00148 HELP INIT DEFINE STATUSRELOADDUMP #COPY (DELETE.CLEAR 1LIST 4RENAME:COMMAN?EXIT AMOUNT BDISMOUESAVE GBATCH JLOAD RPURGE WINPUT ZOUTPUT\COMPRE^HOST aSEA  3 0T eBATS hDISCARlDISPOSnFLUSH uPRINT xFNOWVLDK}NF{EDoTYLRNRK1P1K2P2K3P3K4P4SAI {P {M L {F2V2D2}PN{F HOOPNC{SCDO{PT{JNLU{M      $!#"""   Te?/dTeΕ/gdTeafFif{g, dXTeaf{gfh, hŒƕ.0%*$    dD TCȒc B`'# ̠Z -A .D` dei$TeafUkf{g,Df qdTђʕ0. Tʕ?.TϒʕE uhh hTHD|T|TeΕ/gTe?/d#Dd\S AT>Œƕ.PFLTْ.H ",T>Œƕ.Tޒ.7 :TeafPjf{g,TeafZlf{g,Tf+ h TK"#HEOUINPUEX$$PGMNAM$$  UTIL IN READY READY  END UTIL (  UT H-h,TpTvh'\h&\h% L#"(`: `  v  l` H'h&TpTvh!\h \h"hh ""h "h TH`` *gh*hh*fhlll H TpTvh h h H+h*TpTvh"B(!(`: ` f x  l` h%h#h! @!    `  L L l hShONhMhI hKhChAhFBA8<A h< 6n; 6750QH h2 /*%W )t'n"$!n l #h  #h   hqhrhlkhjhc h\hZ h[hYBZ8RA hTBZ8LF"K#hI hPLN hGIC hD@ 8nB8:4QH h9 -1)W 0t%n)"(n$( l&#h  h l #h  h00 HQHOHMHKHI hGlE (?  a)9 n6  1 $:n/ 5n,B H-H-'$&QH h'" > <  l0  l )  *  W tnn#h h %  lװ#l l HXhWhOhVhThGhF >"`K J+D h<1h0Gl/Fl*%"!/  "h!(,`Ϝ # lLhTK `.EF7 Hhhh( " `"m  ` HM!"hG!dhFH5  j9 qTљ4"T*!vTϙ H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  XR H$X%e H X0$  3 D \ȵ" \` ȲX2whth \m h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :Xәe H"A HB0Fh  0Xe  00j qa! 1" hh! u  HTLD癱HHSYSTEM MESSAGE XXXX X  X X h w `2 h h h h h h 1"! 1LK~7%JT} "! 1gfedca`_^X h h h h h h؍"! 1-,+)('&%$#  d l l l l"! 1  l l l lܟ̞"! 1 l"! 1 3d 4l"! 1~}|{zyxwutrp 5ld̴ܵ"! 1`_^]\GZYXWVUCFQOM lAܒ̑"! 1 $;:9$7654 1 #., l l"! 1    d"" 2 l̴ܵ"" 2 &l &l l܇̆"" 2 l} /ly 0dt""F 2DlkjihSf dcba`OR][Y 6lM""l 2jFEDCB-@>=< :),753 7l'̲ܳ"" 2   8l̉lTKH TpTvhX\h|DX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`HYhXX\X_hSX\hQ ` hOKhLKB0 hG0HFBCV Atm;;m75 2#h0 `()[0 m 0  m  ` #h  ` `RPTAPTTY PRFRP005 00038RPWRTOFF PRFRP006 00039RPDLYASN PRFRP007 00040RPSUMACT PRFRP008 00041RPWCOLST PRFRP009 00042  3 XRPMCOLST PRFRP010 00043RPTCNTRL PRFCNTRL 00044PRFRP012 PRFRP012 00045PRFRP013 PRFRP013 00046PRFPG000 PRFPG000 00047PRFPG001 PRFPG001 00048PRFPG002 PRFPG002 00049RSECDATBAS 00050PRFPG004 PRFPG004 00051TSPEND7TSUSER7TSUENDBAITOSDATSEP/ TSTLOC1ZPRTCDR1\R9TAPF1_R9SEGF1_LRGUSR1aRQLLIM1bRQULIM1cRETIME1iFILOAD1nQPASWD1oWKSTAT1sRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX3TSPORT1FMEOFC_FMMOSU FMMOIU FMNRCDhUCTLENMAXLOCpLRTABLFMMOSFFMFCBS!FMMOIFgFMFCBI#FSCTNE&FCBSCT&FSLEND(MMLUTB(PCTABL)BIDLER *(INSTLUIDLCTR*-TMRTYP*ITMCODEFSTIME*PDMICOD*KTBLADR*LEMPSTP*NCGHOST*dADAYTO*hMONTO *j4HORTO *lNSECON *nCONTA *oHORMIN*pTIMCPS<TODLVLPNSCHED*rTMRLVLLSIZV4PSIZV4ODBSVOLBLK^0SCHLNGxMT25U1kTERMLUALTERRDGNTABTDUMALT|LSTOUT STDINP BATLSTBATINP PCORE PCONSL5MIINP ETK7WEFTK7DATMICSUB"SEVENTSEVNRDCPTRAC PCCP1 CALTHDrN4 N5 N6 N8 N10 "N11 N12 N13 N15 EHWINITSIMRSVXLSTLOCcTSAREARDPTV4PTNALCFMRDEL^DGCUSMDRDRLTOFDR_}MPDVCK7ICONSLyEDUMMYUSE LHPRQ8PREPpH005 TSMEND1JPCHGE*;FINDRQo& EFLOCKSCHSTKJBCFGZp'MPFLAGpFMCHKOwobBREADRTSIPRC`tADNSWP^TSLOFFRTNCORCZTSCLOK`OUTQUEUPLOWMlRDRLTR PRFLM001 TSFMCPgDISPXXiTSMMERh 00085CONSLUCONTCUOUTPUTn;{CWSEC1aBUSY kFMPL16UCTABLYFMPL18FSELFLGz MAXCOPVLOBDTBDISABLxABSREDs!BATCLUo5FMPFLGSKALNDJBCNCLp UNPIOFoREDUCE^LMUTIFIL COMFIL PGMINTeTSULBF[HSYFAILCSTATSFMEXECrnOFNSWP^IDUMMYRESTORbBFWRIT4CNTTBL*xCOMPRQoONNSWP^~TSINTX PRFLM004UNPSRT WRITER FUNSHR|PTSUBRTSLUNTeL1829 LMAVMDL1860 05 00089I18331#SGoSCHTOPi\REAREQ\3TSCHANf"PTERCDCLOSFL 0STRLEN-TSATCH]PGLUNTeSYSLVL49MMAMAX1COPHOSTCLRTCU~CNTWAR*wCYLTRKGTNXUM^CAUD PRFLM007 PTVRDY 00091S1827 LIKDUM}yM008 JOBINDoGFIXONESMDACPeyWRTBAKy@CPTBLNTSCLLB`8INCRECTSLCUPeTSVFTN`!JOBENT]VOLUSE`OPENFLSYSCOP~:FMBRRNwFLM009 T15 PTNREL FMSWAPtSWAPONnvTSUSCPgN7 MPDRIV N9 AYERTO*fLVLSTRFMASK *tqMMAT 1D INPUT  SMDGD1 00094COPYQ MSAV mnRENAMEDATFLGDELETEQ8PKUPv PRFLM011ENABLE~ SEKDONG CPSENDSCHERRp*STMSV4VPOLCHK7NIPROCl=TIMSLC]XTSNABLZPARTBLPTRITEEFLISTUNCMPRQoSMDGLMUSEMTN PRFLM012 PRO mASC ik 00096RW kPIDR56 L18326LMDETCRD JPT13 1 SPL4 00097CLEAR SEEK9 CPTBL ,!DETCON PRFLM014 COMM18JBCNFGp!%CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRBm TMRTHD VERIFYCDUMMY(SECTORQCOUNTSETRMNLUNPTIMoN14 JQMLMSCNPRT PRFLM016 READR 0TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK BTHDS  REQXT i R9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxLODRCIAC PRFLO001 IDLE *# MASKT E 0LIBET oPGMIN eMMREL _SPACE PSABS lQECORE nRDISP i IDRCP1?  3 LODROUTEQ O002 TK7RW FMPA10+FMPA11CTRANV oMXMATR 1WFMPA14qSPASW oFMPA16FMPA17FMPA18SPACE4nouPTPDT0FMPL10MTBFS0HMTBFS1 CRDWSUB |LOTAS18326P83310  00104LOTAPTQU PRFILE4 p INPEQ 00105CPREL hUNFIX RCTV i~MINTO *mCLOSF }0 SYSMSGKLUNEQ uUPDFCBTSMFLGZOFNXUC^TSPMCK`ZWTREADeaATTACHeTSLLSBfTSXERRfPGMOUTf+WTSLICEf_TSIOC1g!CPSET hpCPADD hMONI iOT9 j +T18 j T19 jSAVLU kbALTSUBlT14 l NABS lyVOLR mDOFVOL mICORE mT12 n*SWAPCKnUNPIO oRECOV oPRORETpTRNVECoAUTFB oCOUTV4pUOLDUMPpwCOBOP qFMCOMEtFMPPROtMMWRDRNSTATSUNLOCK{CERRORAMONTO*gINVINT CLFRIOwTSPMINeAGETVIT*WKSPLU1`T16 l.INIPRT~TSCKMU`d>EXTSTKOVFVOLmPTEOFVMACT PRFLO008 PTBSIZCCP +LOWCOLSTMOVER DAYTO *kM1811TISMD #CPCHK h|MMALC _.CLINE ALVOL mOPENF }3FLIST *uPORTS AUTON vPWFOV moST PRFLO010 SPCEV4 SETBNDh9 BINASCCWLGT0 DCWLGT1(CNWAREJLLUV4*STLPV4nELNDISBLOTCNTRLMOVEL mCPFET i, PARBV4oV MT25U0jSWTCH pNMONI iOCPMOD hXMRTN _{JBFLV4DOUT PRFLO0PARAMEl9EFDATA$REQALCQUEUP aECCALG~BDWMUL |1 00113FMSAVAJPFLV4TMASCON$COMPV4p/tINPTV4oBADSECfPINTRe PRFLO013EPORTS CONVERk SYUTILNXTVOL14UTSTRT|L000 PRFLO014 PRFLO014 00115C18331uPRFLO015 PRFLO015 ECXIT  0FILE2 pCCPLU ^TODAY WCONT 5END0V4ZMMEF =DONE qCPDEF hKMMSIZ ESMD GETS YERTO *iNAMEV4MAUTFA o8I1811ZbMINT LOOP n}k 00117JPSWT pPUTS QSAV mmPRFLO017MT50U0_MT50U1iS1811TgLUABS l9oNFNR o&JKIN p 001AUTF9 o XMMOD _NOG30AnAFILV4[00 PRFLP000 ODEBUGw0119REDLABTSIOC2gMMREADuCKTHRDkMASERRXJBPROEREZa01 PRFLP0USKNPGTSWSEC_DENXUM^TSCKPM`@EFSTORCOMSEKCUNPTBL`SEKVITEXTREGh%COMREQCOMSEQzr)EMPSRT*MSYSDAY01SWAPARP002 PRFLP002 00121QIN ofGETREC3 MASDRVRPMASKkTERMCKN TSTASKZ LOKFILPLENTH ALMERRXMBLOKZTSOFFM1dWANTDRDENSWP^FONNXUC^pTSATTCePTYERRmTSACTVZS  3 wCLRSKNFLP004 T0 kPT1 kPT2 kPONNXUM^wT4 kP$T6 kPLSTPRTT8 -FMUTEXLTSUSRPFMTEXTSABLOSYMSGUTTRTCLSFLOPNFLREDR COSEK9INEQ OUEQ GEFLDWTEAD PGINTPGOUTPGIN Q8KUPQ8REPMMUTBQ8KUPQ8REPQ8KUP Q8REP AMNTOADYTOAYRTOQ8KUPQ8REPMMUTB'SYMSGMMUTB5TEMLUREDR nCLSFLwOPNFLeTSREA'PGUNTCLSFL6OPNFLwLUAMEQ8KUPQ8REPSYMSGEN0V4CC 8KUP8REPFMPA02XMRSV _)*LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlCASAV m$FMPL01K65COR%FMPL03vFMPL04%FMPL052SAVLAB9RELFLE>FMPL08FMPL09DUMMY1 DUMMY2 UNPENDdBCLOSF RELS1Ao 00127TCOMPLSMDCPAFPRFLP010U2INITFMUFCBw3 SMDCPGZ&VOLENDOUTPV4DELRECLUNAMEONTIME1kMICSECDENXUC^EFCOVL#JPRENp#RABSPARuvUPDRECEXPIPRFLP011 PRFLP011 00130om     &%$,#"! i=J< 'Il  n wb0 >N2AXLOADhHX=Zԓ&88+ | C7F0UQ6[0123456789ABCDEFn 7Biv%=" /d@6 `&8:8REPFMPA19FMPL192FMSAVASTRSECSTRLEN-DATBASSWAPAR B* @`@t*Rw_˂Fb{^ X07@`7 T@+O @C H? `a A4a9 a: a>afae/]    T AA e" !14;E+H kAYd P e #D asAtthT` + ‘s hiheXaeAfa aoma/y Aa-X 4-Th `efTp#va 10Q6 X2X af (X E XP aa9 XI1**E*T a 3 Q6X aX ENTRY POINT TABLE - Xg X ***COM Q^ X ***DAT Q^lRA A. a a }|0Cda- c A: a a a .. a.ѐv aH- 4|a h- Xg! X`QZ 4XYn  43b4b A9 "X 9"9XX X  (&$" (cB aaaXB0A B(aa?*PAGE E *N  3 PAGE6htsH h td\()T\lT7\l 9d@P̦  lT (7\T "\ `lL7 ( d d @Pd6f 1ddd\ 3 \ d @P#T; M d dd!Add dΡ  -@P 1   n8̽l7d8d9dT \@P3̽ 6 d̛d dn 1 n l 82]”@P^4 W lι P#T ( d dd!dd  d@PΔ  1 ̜ l̳l l7nܓܕܗ 16̡ l'  3 @P 81d5  d8d9d: PRBDFILPFWRITE+RBPERRnDISP sFREAD zLINK PRBDFIL PRBPERR L13 F ITOS CCS 3.0 SL-149@P@Pc *RBDPCH* **** ERROR **** @P *T NOT FOUND IN LGO FILE @P BINARY OUTPUT STATUS ERROR @P NAM BLOCK MISSING @P+ DUPLICATE ENTRY POINTS @P9 ENT/EXT TABLE OVERFLOW @PG PROGRAM NOT FOUND IN LIB @PU *RBDPCH* OUTPUT COMPLETED @P@P@P@P@ hTcqTh\cq\h , h\@Py\h , h\@Py\T  7~  3 @PHTThPRBPERRPQ8PKUPQ8PREPFWRITEDISP P PFORTN F01 A FTNR CCS 3.0 SL-149@PX/X+X'X# XX}X$X@P+)Xa"a X" XIb XFb XCa X@b bXŒƞ 2/ !ZV " l̪   l[̜ P @Q  3! m @ dd $ l l @m  'd d dݜ  @mܨ 3l̞lƜ  @mܑή , lddTm l ^  d  l"7 $%$  4 0 +&" d ! L  n d̪ ̩l̢ld l ̮lddddddd d`d dTџ "T͞ "Tϟ ",d d dd! Д Efl d, d ,dd!"ΩL ΡH ΙD Α O d l l lTgildgd d dd dTђʒ➝ "d ldTɒʒ "l e hpL\מ l 4B d *5 l "-  l̹  Wl ZlTK/\\TϸTӸj̗ \ 24 "\\ʞ\ݷ垝\ڸ @ HH *K,P7 MON *CATLOG *LIBEDT *COBCAT *K,I8,P8 *P,F,2 *K,I8 *N, *Z *Z *L, ,,,BR C  A *V,7 ,*Z h hȊf (1 ! h hh hn 1 ! hȼhȷ hȲ hnة 1ޘaژ]T{?T{? >ȕ h\3> @ 8! d9 $AdBf 1k 5; \ɒ{?-> l,n 1M  !PCJ= K" 8 % #"DdEd"lFl dGTG57Dd Hl8  d2T2 6 2KHTpTvh\h\h\h/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTpTv h\h\h\   3! h\h H hTpTvh\hBLH   B ` TL( ? `P+@P<CCCMCPCLPLPCPBPPPMMLMCMBMMPCCCPCMPPMPMAFARBFBRRWEFSDLJOB NO. =  = $$HOSTSYSVOL BATCH hddhhhddh hChTeΠ hkn  h fffzfffص 1 !j+Ȩh ( hŨ XȞ h hȞfȕhȖ9ؔtn؊Ȉd d!lΞd / $ lddd lTeaߞ{d @m d l 1 l\ܒ{ ddT>Œƞ 2. !YU " l̩   l^̛ O @m }D dΛ\d $ l d @m  'd1 d dܜ  nܩ 3l̟lŜ  @mܒ , lddTm l  "d dΗ ! ΑL  ̝ ddddddd d dd ddTџ " ddT̞ " dH$h(%d l!     $ΰLd dΦHl lΞDl lΖl ldddddddd dd dTѠ{ "T{ "  d  1TϠ{ " \{ "  lM  lG  l  l   3 ldddd1`( "dddd\ʞTӒʒ➝ !E" 9 &̞@m@m@m@mT 1-T\~\ d l lTKޞ 2 "Tϟ @ HH Tx( ? @PA !/   a#){ Ƞ P  b  3!4@P   2aX a#-a  Fa 7 ) a   HOST NAME = OPTION = PROTO TYPE = = $$HOSTSYSVOLDEAD20HALOCL hddhhhddh hohTeΠ h`n  h ffؼ 1 !j*ȯh ( hͨ Xȥ h hȥfȜhȝ9؛tnؑȏh d"dΦd / $ lddd lTea{d @m d l 1 l\ܒ{ ddT>Œƞ 2. !YU " l̩   l^̛ O @m }D dΛd $ l d @m  'd] d dܜ  @mܩ 3l̟lŜ  @mܒ , lddTm l  "S dΗ ! ΑL  ̝ ddddddd d d d ddTђʒ➝ "?lTʞ "?bD,d ld! Δ J ld= θ  d{ NfnnnTʞ !^̥$l ld=Χ 뜩 ̬̾ l`ͤ NҔK d!L 9ξH 2ηD +ΰ %nn fT d l l l l lTK 2 "Tϒʞ @ HH7UTHOST!1UTSET !@UTPRIN!MUTBATS!kUTDISP!UTFLUS!UTINIT!UTDEFI!UTSTAT":UTDELE"]UTCLEA"cUTLIST"UTRENA"UTCOMM"UTMOUN"UTDISM"UTSAVE#UTPURG# #1 T"( ? @PF!a$+XXXXp XPDhh)u""C/2 H v@PqN I G E A  a'Da%a&ah   h X., T\HOST NAME =LOGICAL UNIT = = $$HOSTSYSVOL  hddhhhddh hhTeΠ hdn  h ffػ 1 !i)Ȯh ( hͨ WȤ h hȤfțhȜ8ؚtnؐȏh d"dΧd / $ lddd lTea{d @m d l 1 l\ܒ{ ddT>Œƞ 2. !YU " lEb  3!H̩   l_̛ O @m }E dΛd $ l d @m  'd d dܜ  @mܩ 3l̟lŜ  @mܒ , lddTm l  "O dΗ ! ΑL  ̝ ddddddd d d d ddTђʒ➝ "lTʞ !|{H5$h300d  Yhd,d dd! ν   dP ' 9 6 dd: -nڤnTʞ 1'T̺ l ̶ l̲ l̮ lTK 2 "Tϒʞ @ HH T=( ? @Pu " 0K X +X_D%XZ0NUMBER OF FILES COPIED N@PNNNN NBR RECS COPIED NN*32768+NNNNN  XTHa@OPTION = LIST NAME = $$PRINT $$ $$HOST $$  $$ $$ PP@Pw4%X&+5B8A aMISMATCH RECORD NN*32768+NNNNN h @Pth h hT`!1 "a!hTF@@P &ɱ$h #6h h TL`"-Da#B8A a@P7f"7 X7h h TL ``#"$2a$D@P #aa!hh X~A>hT = `!% $.&@P N&%a!$, "QŠ    ?; 9' 3*~  3!\ = PR00 JI hddhhhddh h1`( "dddddddd4hTeΤig dwn  l ff 1 !k+Șh ( lγ Y h hȍflȅ9mynܿjl dd!hlΌ|l 0 $o lnddpd lTead{d @m de lf 1 l\ے{ ddT>Œƞ 2. !YU " l̨  h l]̚ O @m }C lΛ|dm $o l d @m  'dc1 df deۜ  @mܩ 3l̟lĜ  @mܒ , ldddTmd l  "7 lܘΘ ! ΒL  ̞ T{^ ^ 2qurd d n 1d lf 1Tђʠ "'d_Tϒʞ "' d dds ̶dp4td,dd 0Ȍ 0dndvC 0̑l̕llC0̆dH| d 7! ?ddl0 d f 1d lf 1 d dTђʠ "'Tʠ "'Tϒʞ "' l̾ $ dl  ܬ 1 dm dw dxܖ  1 10y 0 d h  lp4td,dd 0 0didvY l f 1d lf 1Tђʠ "Tʡ +u #Tdz l?̕ ${ dlTEl^ά Tϒʞ "TӒʠ̻ " l n 1 dlln 1\ʠ̚ "'| daTʞ` "'rlHddd$tdb Bldd̕ l̒`mTʞ "'\ʞ "'3 d f 1d lf 1TђʠΞ̠ (  Tʡ̏ +̌u &T!dz l≯ ${ dlTEl^ܬ d Tϒʞ !^TӒʠΞ !t l n 1 dln 1\ʠ !UϔrlHddd$tdaTʞ`̱ !8}ddTʞ̢ !)\ʞ̛ !"nTh ?dc l l lTKc\c dh\ܞh \cTϒʞ @ HH;H,TpTv""h%Tv" ""h Hh"h Tv""hTLpDL T( ? @PTZ phbfTL1TURN OFF PROTEC SWITCH,TYPE CARRIAGE RET@P+URN (J20@) THa  q++h(B1$` f" q"g"  3!pNOT SENTBEING SENTSENTOUTPUT RECEIVED PRINT REQUEST JOB ABORTED DISCARD PENDING, JOB BEING SENT DISCARD PENDING, JOB SENT JOB NO. HOST STATUS NAME LU TYPE INACT QUEUED SENT RECD PRINT ABORT J000 PAUSE  JOB NO. = HOST NAME = LOGCAL UNIT=  = $$HOSTSYSVOLSUMM  HASPLOCL200UT  0 hddhhhddh h hdEhhTeΡ hعgn  h ffئ 1 hfzؚ 1 !l.ȋh ( hμ Z d dfl8Jnl d lΒl . $ lddd lTea{d @m d l 1 l\ܒ{ ddT>Œƞ 2. !YU " l̩   l\̛ O @m }B dΛd $ l d @m  'd d dܜ  @mܩ 3l̟lŜ  @mܒ , lddTm l  "y= dΗ ! ΑL  ̝ ddddddd d d dddTђʒ➝ "yE  |d4d5 d;d + (5BOUbon dtf 1 lk lxn 1 d\ l}n 1 lN ln 1 l@ ln 1 l2 d lnܫ 1 l lnܝ 1 l ln܏ 1 l l z  1 d7 fkfl dTJl\Tea {E 2K\GFT l d 8T! d l ?l l l l lTK 2 "Tϒʞ @ HH $$BATCH SYSVOL h jj 1hhhhhhhh hh hhTѩݪ ! T ! h– ؿ 1 d lȲlTϩH Teatostpqr HTpTvh Hhhhh hT`D@ T( ? PEQCODEPCODHX/DRIVE9ENFC 2WES1 +WES )P PDSKDHX O68 A MSOS CCS 3.0 SL-149@PH)h*H'h( H'H'!H!  h 2 q 4h !@P1 H  H $Ⱥ0123456789ABCDEFH(h)H&h'JOB NO. = OPTION = NO. CHARS = START CHAR =OUTPUT VOL.=OUTPUT FILE= = PRIN$$HOSTSYSVOLBATCH  MOVE hddhhhddh h hhTeΡ hmn  h fftfffff|ffئ 1 hfzؚ 1 !l/Ȍh ( hα Z d dfl9nl d ll - $ lddd lTea{l @m d l 1 l\ݒ{ ddT>Œƞ 2/ !ZV " l̪dq  3!  ̐ d\̜ P @m A dd $ l l @m  'd d dݜ  @mܪ 3l̠lƜ  @mܓή , lddTm/ l̹  " d ! L  ̑ ddddddd d d dTђʡ "iddddd1`( "dddd̿dddd ddd\u̿ "n ddTʞ̪ "iH$ h+(d d d  " ' , 1zL  d H  lD  l ݬ  l\u "n d  1≯  @m̭  @m̢  @m̗  nTʞ "i̸ ̹ ddd d d ddTџ̽ "r d} z 1 1 d dhTƒ T " l l\{ \ " l Pdd}d~dddddddddd llll̾d dd dTס} "v d f 1 l l lTѡ} "v -TšݞH  !n̽ l dTš- dTá-̳ !XwTϟTӟ̟ !@  @m  @m  @m  @mTʞ 14T!\x\\󞝡 d l 4l lTK힃 2 "Tϒʞ\u\\ @ HH^HHTpTvhETv""h>Tvh>Tv""h7Tv""0/ a1*+XX "%4"Xh3XX  ` Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3aT1,h&+h%3* 1L ) h+]T|(! l l @TK{p 3h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` T( ? @P- @B  H X ^ h    @PX  aaE$ ! h h  hPXXhH a a@X#X HOST NAME = DAYS OLD = $$BATCH $$ SYSVOL w  3! = - $$HOSTSYSVOLJ0 0 m hddhhhddh hhTeΡ#! hؿtn  h ffج 1 !j,ȟh ( hͨ Xȕ h hȕfȌhȍ:؋$y(n%l d "lΥl / $* l)dd+d lTea{d @m d l 1 l\ܒ{ ddT>Œƞ 2. !YU " l̩  " l^̛ O @m }D d$ΛBd( $* l d @m  'd d dܜ  @mܩ 3l̟lŜ  @mܒ , lddTm l  " d$Η ! ΑL  ̝  d, d-hU{/Tƒ{,.-TӠ "0f"*kh<*jh92  l d38l1l4d5d6dd7d8d9d d d ddTђʒ➡ "dTʞ ",d(;d: d$d!    d\ ̿ "{/ d,Ō d< lǜ 1: d=d>L- 8 llιH + llάD  llΟ $Tʞ ":dT,Ϥ?@BAldTР̞ "h+H$D%dChH,dE dF  l d38lldG %H݌l0 "=" 9 &"! $@m @m @m @mI ф dJ ld'5 n7T\  dTK 2K "Tϒʞ\ @ HHz Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3+Tt1,h&+h%3* 1L ) h+'TF(! l l @TKE: 3h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` T@P+pX!"R e2!11~  @UxR O L G @PV!  =XY!9%XB2ȯHbȩd @4 `hȜ@P$ JhHؔ h4X<[hZBHX  X({"wH@P4h9"64 h h#  A jC ( ? VOLUME-NAME=NO.OF.FILES=DISK-UNIT = VOLUME= 00 =  01  h h dhhhhddhhhhh hhhhh/hhTeΡ%! hؾn  h ffث w~  3!1 !k-Ȝh ( h YȔ h hȔfȋhȌ;؊&*n'l d "lΗl / $, l+dd-d lTea{d @m d l 1 l\ܒ{֠ ddT>ŒƠ 2/ ![W " l̩  " l]̛ Q @m B d&Κd* $, l d @m  'd d dۜ  @mܧ 3l̝lĜ  @mܐο , ldd"ΌI Tm d/Tƒ/ l̳  " d& ! L  }H$0h}zzd B(h61 "(`h( h hh"h@hhlh h TLe d&f 1Tea{\{֠ ddT>ŒƠ B dhTm꠽ d Q /d /l 0l VlTK 2? " @ HHLHChBhAh?Y:"H:h X h 'hTBD >a$F "$Ƞt#Ƞt  t  l` h h l h 1 H TpTvh\hh!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` Hihf`hc DjH qXhUS jJQȠ jE HKL HJ AHDHED h3T1,h&+h%3* 1L ) h+Tr(! l l @TK1& 3/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTpTv h\h\h\ h\h T( ? S I A D@PݨhȨ G"ءhȞ G"h`@DPT 6 @P`.U@@_PGENFC MDRIVEPST  3!P PNXTLOC NEXT AVAILABLE LOCATION P *T 00154*K,I8 00155*N,DSKTAP,,,B 00156*K,I6 00157*L,DTLP50 00158 PDTLP50 K10 A ITOS CCS 3.0 SL-149@PTZ phbfTL1TURN OFF PROTEC SWITCH,TYPE CARRIAGE RET@P+URN (J20@) THa  q++h(B1$` f" q"g"@PVt "!` g" 4  h"DSKT50!B@ q  :I@P BBh" hTLDTLP50 FIRST WORD ADDRESS WILL BE @P PDTLP50PDTLP50*K,P8 00160*P,F 00161 PDSKTAP N90 A MSOS CCS 3.0 SL-149@PX XXXHh iXf %XXV X "u}  3!@P+ SAVELOAD h@ X X/ X@XhX h@@PVX2X&X 9`"X 2 2esR4R4! `hh @P X X X $XGX XH @P  d @HX X d X1X hXX   q@P`  XQ(~p0`H X H0h/XH/h. 5X d@P X1XHAh@n X X~f XXQ XXK hjXX@P-e`  XQ ) SXXH!h 5 X% X7C@PXXIH"h!& XQXYHh Xa f q@P Q]lwh !j SCRATCH SECTOR IN $C1 IS -- TYPE LOA@PD FOR TAPE-TO-DISK, SAVE FOR DISK-TO-TAPE OR A CARRIAGE RETURNOUTPUT TAPE ON UNIT @P0. HOW MANY SECTORS? TYPE V FOR VERIFY, A FOR AUTOLOAD. OR A CARRIAGE RETURN TO@P RESTARTVERIFY TAPE ON UNIT 0. READY? SECTOR WORD -- -- DOES NOT COMPA@P2RE. TYPE C TO CONTINUE. OR A CARRIAGE RETURN TO ABORT. XXXX SECTORS VERIFIED, @P]INPUT TAPE ON UNIT 0. READY?XXXX SECTORS LOADED DISK ERROR ( ) TAPE ERROR ( @P) PDSKTAPFST |PGREADTGDRIVDRIVECDRIVEnQCODECODHXMNCDHXfPDSKTAP P~DSKEQC N91 A MSOS CCS 3.0 SL-149@P XX h  y0j/ +1) X' X" X XXhh  3!@P+X&hh X"I\AEp4 DIG. EQ. CODE FOR .. @PVMAG. TAPE 4 DIG. EQ. CODE FOR .. MASS MEMORY ILLEGAL PARAMETERS SPECIFIEDPEQCODEPCODHX/DRIVE9ENFC 2WES1 +WES )P PDSKDHX O68 A MSOS CCS 3.0 SL-149@PH)h*H'h( H'H'!H!  h 2 q 4h !@P1 H  H $Ⱥ0123456789ABCDEFH(h)H&h'@P\ H&H& H!h  (h !"h r  !@P3h4**"00hh 8H 8 H 8r' PDCODHXENCDHX1DCODECVENCDECP PDSKCDR D11 A DRVR CCS 3.0 SL-149@P hHh+hXh~h }~z!t  omfh9b@P+huadhrDh gkHDhaec^" SIFSR  @PV;  ! @hB   4Dh112,n0ؼ*ȸ*H @P b h d A$ yPNUMWDSCDRIVEP PM18326 D79 A DRVR CCS 3.0 SL-149#  3"@P"Hd)dhf h'h!&BH\Ha!dhW h h h hh @P+ 0#HX-@H% A!HA a ! A X '@PV D Fh`@Pj  hPCURPDTgI20 eMGDRIVMGREADIDRIVEEWES qEWES1 qPLCTT SP PDQK8326 D81 A DRVR CCS 3.0 SL-149@PXXXXX BH!DhaABH  @P+X  T  Xa " 4a PKLCTT FLCTT SLCTT QLCTT STATUU6PURPDTLCTT LCTT LCTT LCTT LCTT P P,QB8326 D82 A DRVR CCS 3.0 SL-149@P aa ahhhXaD a X  a   @P+PBLCTT UNTSELSELMOD#SELECT*POT RSCNT ELTA TATUU LCTT P P QW8326 D83 A DRVR CCS 3.0 SL-149e  3"$@PXPWLCTT PTATUUP FILE-NAME =VOLUME-NAME=EXPIRE DATE=FILE TYPE =RCRD LENGTH=NUMBR RCRDS=KEY1 LENGTH=KEY1 POSITN=KEY2 LENGTH=KEY2 POSITN=KEY3 LENGTH=KEY3 POSITN=KEY4 LENGTH=KEY4 POSITN=SCTR ALGNED=%SYSVOLK1 = N O R @D 12319901 hdhhhhd h dhhhdhhhhhTe hع n  h ffئ 1ȢdȠdȞdTdodpdq ζ ( d l n 1 l̽ !l0d $ l΍  d dfl8Cnܾl d̯ll - $ ldΥdd lTea{l @m d l d 1 l\ْ{ ddT>Œƞ 2] "h " l̥  ̳ lX̘H ) @m $ l dL  ܓ !YL  l쬼d , l l l @myϬ  Edſ d dH Α , lΖ l @mܒ̡ 3̝l l̲H  @ed $ dddhH$ "Ž&H"! 10NMLKJIHGFTm{Tƒt d\žTT IJf"^ l\ᒪž\ IJh`aDd`>  źĄl!dRldRlڔ d"! 1,6FEC̯H ī6h5˔ 2ī̜5 2īT "ī !0 !͜! ! 6Μ2֔īī؜ī;8ʜ5Μ2 d̾H ̶H  ̱H  ̬H  d l ld ī "ī"q !m "eHh ̲ Zv̧ Td M !H̽ !`B =̶ 9̮ !4̫ l̥h̠ !A#H 8H 2H +H %H  EdTK   lc d + `Tגʒ &Td d n 1ld l d d `ddodpdqdTђʒ %\ dTɒʞ̯ %\lllTdrdsdtduTǒʞ̊ $\k Q֜$ EdZ d7fTǓp4d p4d, !,dSpŒƞ 2. !YU " l̩   l^̛ O @m }D dΛd $ l d @m  'd[ d dܜ  @mܩ 3l̟lŜ  @mܒ , lddTm l  "x dΗ ! ΑL  d `d d d d ' l l ' l l ' l l"= * .,yTђʒ➝ "RTꞰ WT dTϒʞ "Rj d\Ʞ W\TɒʒŔ ,̽L =̶  3"L"R  4 0 d2  1 dT 2N d dl !N  ln 1̸ ̵  lν ܳ 1ull ̡ l d  l"= *   dHhT|hHh\pd̵ lo  dfn 2r  lfq 2 "-dd ll dkhghh(`hhTH!Bd l! ,h  ,hTzܒ\ܻ 1T|x\ȄdȄdȄdȌdT/h_h\d l T d d  l ldd d d ddHh d /ddTxȄydzȄ{d|Ȅ}d~Ȅd\ߣ̒  \أt\ԣ d \̣ v } doTL5oT/5 \r:ud?7dT̢TYAlT\Dl\\좽E\hHodMpdNqdO\ءpPdUdVdWdY dZT5 ܊̉ "ETea۞T d ̄ l\5o\/5 d2f9 1rd?sd@tdATuC7dT̢TYF l$l\ d d lAdo , l4h\ݢܵ 1lT\΢]l\\Ţ^\h`\od\phdmdndo\qT3 d "#T+T )dTK㞃 2 " @ HHh hV h hP hLHGhFTpTv"h6h5\"h2: 5\h4\h3h)\h-\h,*`TTT 6fbf b l `h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a`1B@'d  h h h ( hT5  1 ( hTz5 0n    h n 1  0lHTpTvhhhh\ h h Tea HTpTvh Hhhhh hT`D@ H/h.`h,h'Dh*h((`B 9H!  0 nH DQ S  0n `'d  H3h0`h&h)Dh"h h! Qhn` h  h7nnH TpTv h\h H*h)`h'h!h  Qhl ` h h  Hh`ȁfȁb` hh hhh ( h ( h+`p9h'h*h"` ڪՈmԜ 1 h h  h h @HHTpTv h\ h\h Hh`hDhBh 0 q c H A` Hhh hT= `\@ TW( ? FILE-NAME =VOLUME-NAME= = hhhhhhhhh hRhTeΞ h-jʶ  h ff 1 !f(h ( hʖ Tȸ h hȸfȯhȰ8خʓnإȣh hțhh /ȗ ( hȓddȍd dTea{d @m d l 1 l\ڒ{ ddT>Œƞ̫ 2.̦ !ZV " l̨  ̷ ld̛ R @m r  3"`I l d $ l d @m  'dx d dۜ  @m 3llÜ  @mΫ , lddTm l  "O lܗ ! L  TӒʒ➉ %TTK 2 " @ HH\ T( ? #(@PlX"XX%.  Ƚ4XLXX XX!; 2s1@P"XPXNrȜ,+Ȕ  C hh U O h# @P l i@j,39ca8X"XXX'@P ! >X ih6sȸqh2 6!!XqX1X6"   @P/H;H  >HbH4 hb @ 4@PZ ` h A "!X*  X"HX@P  X "h}|v! d45 'd44n@PXXhhg ""  4 $ZZhX>%B)6:CG X!@P 2<32X0W h,@(Ȱ X## 3 hC@PȰ`Ȱ ȰP h1 h_,hc h_h_h* 01@P1! h &Xr `D Th Yhw h:8Th.-h @P\h hhhȸgaH Hhh  "@Ph1 !ȸ Hh! ȯh h hȨ :@Phjhhhh h) ( r#M "ȱ$G"ث@PݨhȨ G"ءhȞ G"h`@DPT 6  3"t@P`.U@@_PGENFC MDRIVEPST P PNXTLOC NEXT AVAILABLE LOCATION P *T 00179*K,I8 00180*N,DSKT50,,,B 00181*K,I6 00182*L,EDTLP 00183 PEDTLP K05 A ITOS CCS 3.0 . SL-149@PTZ aEDTLPF PEDTLP1EDTLP PEDTLP *K,P8 00185*P,F,,EDTLP1 00186 PPHANT K08 A ITOS CCS 3.0 . SL-149@PPEDTLP1t  3"PSAVRLDP PSAVRLD L07 F ITOS CCS 3.0 SL-149@P[@PV@PU@P5@P>LOADSA@PAVE@P6@P4@PT@P EDTLP @P TYPE SAVE FOR DISK-TO-TAPE SAVE@P TYPE LOAD FOR TAPE-TO-DISK RELOAD @PB ILLEGAL, CCS HAS NOT BEEN DISABLED@P[h @TUV456\UW456\UX456hTU1Y456T@PȪ ȧ Ƞ Ȝ TTT\\UBZ456TPSAVRLDPQ8STPNTSNABL\SFWRITdREAD }DISP RLDDSKSYFAILSAVDSP&=  3"PSAVRLD PADDECT K01 A ITOS CCS 3.0 SL-149@PHh HX L` `i PADDECTP P"CHEKSM K02 A ITOS CCS 3.0 SL-149@PH HX dl `i PCHEKSMP PMDBLMTH K03 A ITOS CCS 3.0 SL-149@Ph!@  " 2a"a ! A%dada`hdb@P+dbh@!Ha"! B  2ADa a`PDBLADDDBLSUB$DBLMUL.P PgDBLDIV K04 A ITOS CCS 3.0 SL-149@PHYTT""hPhM\""hM\hL\hHDlFHhD6>t;2S:4ah>H<848@P+8H5h5," 1d'hh &hh !d"aR8s$d1dL l@PVa@PfPDBLDIV  3"PQ8PKUPQ8PREPP P[FDWMTH K06 A ITOS CCS 3.0 SL-149@Ph hV h hP hLHGhFTT"h6h5\"h2: 5\h4\h3h)\@P+h-\h,O*`TTT 6fbf b l `@PVPFDWADDFDWSUBFDWMUI PDBLMUL:DBLSUB7DBLADD4Q8PKUPQ8PREPP P!GETWRD K07 A ITOS CCS 3.0 SL-149@PH HX n `i PGETWRDP PSDSABL K09 A ITOS CCS 3.0 SL-149@P H" X-  X)X " T&  X@P+ T TH78 h hTLFaQc ILLEGAL: @PVCCS HAS NOT BEEN DISABLEDTURN OFF PROTECT SWITCH(ESC J20@) AND TYPE CARRIAGE RETURN FILE-NAME =VOLUME-NAME= = hddhhhd h dh hTe h0f  h ff 1 !j)ȵh ( hި XȬ h hȬfȣhȤ9آnؘȖh h ȍhκh 3ȋ ( dddd dTeaՒՒ{d @e d l 1 l\ْՒ{Ւ ddT>Œƞ 2. !^Z " l̦  ̶ l`̙ V @m YE lwY  3"ΤFd $ l d @m  'dTK֞ d d֜  @m 3ll̾  @mο , lddTm l  "‹L lܒΗ ! ΐL  d `d d d dTђʒ➉ !dTϒʞ !\TՒʒ➉ !Su id `l\ڒʒ➉ !@T= l7fܣp4d pŒƞ 2. !YU " l̪   l\̜ O @m }B dd$ $& l l @m  'd d dݜ  @mܩ 3l̟lƜ  nܒή , lddTm l  " d ! L   l  1 dd `d d d dTTђʒ➞ "d( lTɒʒL 2 "Tϒʞ ")"l #d (# d `l l l l\ʒ➞̷ " {* dfz 1T{+,+?/h TH-)T+/ӡ.3d4d5d6ddddT+ʡ "Tʞ/ )) %D  % 5̠{* d0 lT+0T  dd18ΰfh hT+,T+ l  (lҔ & (l "l\̼h̼ h\,\Ρ+̮  (l lM d0T+̗d2 dd3 " lT4P  3"hT3\+4l !"7 $ l  (l (l "l lҜ  l (l dT5{*Teaá TH l\ d1Ü7f5nT+1ܟܞT ?d @l ElTK 26 "TϒʞTx+ @ HH h? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@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@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @ Tea:59:678 HTpTvh hn2 31l, hh(hT>S h d h h݈hۀRhTN] ψ h˜ &HTpTv h 3h\ h\h RECORD Rh#hTTN h  h  Rhh h TH TpTvh\h\h Hhhhh hT`D@ H/h.`h,h'Dh*h((`B 9H!  0 nH DQ S  0n `'d  H3h0`h&h)Dh"h h! Qhn` h  h7nnH TpTv h\h H*h)`h'h!h  Qhl ` h h  hh hhh ( h ( h+`p9h'h*h"` ڪՈmԜ 1 h h  h h @HHTpTv h\ h\h Hh`hDhBh 0 q c H A` Hh`ȁfȁb` Hhh hT `\@ T( ? FILE-NAME =VOLUME-NAME=NEW FIL-NAM=NEW EXPDATE=  = 12319901 hhhhhhh h hhhhhhTeΞҞ h9jʈ  h ffؿ 1 !k+ȯh ( h Xȧ h hȧfȞhȟ9؝nؓȑh d"dبd / $ lddd lTeaɒ˞ɒ{d @m d l 1 l\ܒɒ{ɒ ddT>Œƞ 2/ !\X " l̩   l]̛ R @m B dAd $ l d @m d d dۜ  nܦ 3l̜lĜ  @m܏άdΨ , lddh     l lTmZ\ݞ dR dTƒ˞T " !+ !ߜ! ! 51הSOۜK96Ϝ3Ӝ! d  "HM d ! L   4AdlTKʞ ̻  l d lfܳ 1TŒʒ 1hTmd l fܔ 1l d d dTђʒ➉ $\ٞG dodpdqdTɒʞʓ̺ $\*lllTǒʞʓ̦ $\Tϒʞ̛ $\ "w̜ 2 "\ܒʞ @ HH* h h l h 1 H TDr  3"pTvh\h ddT>ŒƟ6T>ŒƟ6 hzDhv `!i T\ hhTeaD7;D{ECG TeaD<@D{BCDhihaH2d`"**j,(" (R"j!"TeaDD{EC `h?"Dh  ,  PAUSE   TeaNIMNJKL HTpTvh T( ? VOLUME-NAME=MM UNIT NO.=  = $$DUMMYX hdh `d hhhddhhh hhTeΟ|z hAn  h ffؾ 1 !j*ȱh ( h˨ Xȧ h hȧfȞhȟ9؝]nؓȑh du"{d}Τd / $ lddd lTeau{d @m dv lw 1 l\ܒ{ ddT>Œƞ 2/ ![W " l̩  { l^̛ Q @m  C d}Κd $ l d @m  'dt dw dvۜ  @mܧ 3l̝lĜ  @mܐο , ldud{ΌI Tmu dTƒu l̳  "0 d} ! L  }H$hdy ":(` hATss qTʒys !^(`hGhE k fdddddddd d d d d} f 1 l f 1TגʒsTӒʒs Ts /dt VlTKt 2 " @ HHHChBhAh?Y:"H:h X h 'hTBD )a$F "$Ƞt#Ƞt  t  l` TO( ? MM UNIT NO.= = hdhhhhddhhh h `dJhTeΟpn hDn  h ff 1 !g(ȸh ( hȨ UȮ h hȮfȥhȦ8ؤʊn؛șh hȑhΥh 1Ȏ ( hȊdudxd diTeai{od q@m dj lk 1 l\ڒ{ ddT>Œƞ 2. !YU " l̥  ̶ lb̘ Q @m G lΛdu $w l qd @m  'dh dk djۜ  on 3llÜ  @ҋ  3#mο , ldidI Tmi dyTƒyi l̳  " dq ! L  }H"$zh dm d !Tʒmgg 1Tg  /dhTKh̬ 2{ " @ HH& T( ? DISK FROM =DISK TO = =  h hdhhhhddh hhTeΟ hFn  h ff 1 !j)ȴh ( hͨ XȪ h hȪfȡhȢ9ؠnؖȔh h!ȌhΩh 3 $ lddd d Tea {d @m d  l 1 l\ڒ{ ddT>Œƞ 2) !TP " l̦  ̶ l_̙ L @mI lΠ}d $ l ̒d @m  'd  d d ۜ  @m 3llÜ  @mξ , ld ddTƒ "}H$hd l l̬  "H,hڨd d ! L  3h("hN l ! !pdod !  T /d "lTK ̓ 2% " @ HH TpTvh\hopoT/0  "`" hh|hhohhhIhhhhhAh`  "`" hhh8h[hVhhhh-hMhhhh#hCDhhTĢTĢâŢƢĢ,h+h/(#h, hTKuXX*N *K"*L  h n t@"hh [W n sT&V X,X`%OKX'hhh( hX h hh h X+ X$ X΀hXg&c #vh8A "V h!" h i"1h "1"8o%hs.hd`hh hZShXPhU3Mhh hGdhE7hB4h?7hh h1dh/#h"%h$h$h! h"XԨ`q #` hv hq hl hg#**hh$**hc%**h^&h;Xo`c #` hX hS hN hI#**hJ$**hE%**h@&hBAh#h?CKhh:UPhh5MAhSTh ERhMAhSThERh X X X X X ˚   Xx 7 : 2 XV XSXLGOX_hS h]\hg hehcmh!&"]  0hU 0h> XXG OKLDh! Th hhDh.h/HDhh%THD!bTLD.b־ `nX`nX`bXϘg1ɘa +R7Od(HhhȮh"M<RN JR@a&ȚhX`bDX/#'3, X`XYȠdhzXxhXͩ/&qhVnhSkh[hhXDh[hZ X0 X+J2Pn/H 2$ ` Ih ԀBh hTLD H " Da TLD6 THDU  3# |h0hTHD 0`" hJXShL$XPhH$XMhD$XJh@>XGhD$XDh@$XAh<$X>h8 2 H// H,, H)) H&& H## H HȈh~Ȉh{ȈhxȈhu Xchd 3 0 7TURN OFF PROTEC SWITCH (ESC J20@) AND TYPE CARRIAGE RETURNSET UP VOLUME(S) TO BE SAVED AND VERIFY  VOLUME SAVE COMPLETE.I/O ERROR NOTED.VERIFICATION FAILED AT SECTOR VERIFICATION OF CORRECT SAVE VOLUMES PACK VOLUME NAME LAST SAVE DATE TYPE FROM TO WARNING - YOU ARE COPYING FROM A BACKUP TO A MASTER VOLUME WARNING - VOLUME NAMES DO NOT COINCIDE WARNING - DATE ON COPY TO VOLUME IS THE SAME AS OR LATER THAN DATE ON COPY FROM VOLUME TYPE GO TO CONTINUE, EX TO EXIT DESIGNATE COPY 'TO' PACK AS: MASTER=1 BACKUP=0 ? NUMBER OF PACKS NEEDED FOR THIS COPY = PACK NUMBER MOUNTED, SHOULD BE PACK NUMBER VERIFY MULTIPLE COPY - MOUNT NEXT PACK NUMBER VERIFY DRIVE/DISK ARE INCOMPATIBLE AS TO WORDS/SECTOR REMOUNT AND TRY AGAIN  @İh!@ H"h!hhh hXh "XH" H h T``h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a`HChBhAh?Y:"H:h X h 'hTBDT {a$F "$Ƞt#Ƞt  t  l` T/( ? OWNER NAME =VOLUME NAME= PURGE== NO hhhhhhhhhhhhh hhȴhhhhh*hTeΞʞ hVjʈ  h ff 1 !j+ȯh ( h WȨ h hȞfȟhȠ9؞nؔȒh d!h٨h 0 $ lddd lTea{l @m d l 1 l\ܒ{ ddT>Œƞ 2. !YU " l̩   l^̛ O @m }D l8d $ l l @m  'd d dܜ  @mܩ 3̿l̟lŜ  @mܒέ , lddTm l  "|? lܙ ! L   T "* dTɒʒL 2 "   d d2  1Tq =p 7o ! l.ff 1Tea lfܶ 1 lγnܬ 1TӒʒ➝ ln̙ nܖ 1 9f QTTK 2 " @ HHb  3#( T~( ? FILE-NAME =VOLUME-NAME= = hddhhhddh huhTeΟ h-f  h ff 1 !f(Ƚh ( hި Tȳ h hȳfȪhȫ8ةʎnؠȞh hȖhλh 0ȓ ( hȏddd dTea{d @m d l 1 l\ڒ{ ddT>Œƞ 2. !YU " l̦  ̶ lc̙ R @m !H lʤd $ l d @mΫ  'd d dۜ  @e 3llœ  @m嬫 , lddTm l  "V lܖν ! ηL  d `d d d dTђʒ➉  ****OPERATOR-WRONG REEL NUMBER WAS MOUNTED ON UNIT XX MOUNT REEL XX@Pb TAPE ERROR HAS OCCURED@Po TAPE CHECKSUM ERROR HAS OCCURRED@P TAPE SEQUENCE ERROR HAS OCCURRED@P TAPE ERROR HAS OCCURRED @P OPTIONS: (1)RESTART TAPE ON THE SAME TAPE DRIVE @P (2)RESTART TAPE ALTERNATING THE TAPE DRIVES5  3#<@P (3)RESTART TAPE CHANGING TO USE TAPE DRIVE XX ONLY @P (4)END TAPE TO DISK RELOAD @P PICK AN OPTION FROM ABOVE @P **** ****OPERATOR-MOUNT THE NEXT REEL# XX ON UNIT XX ****@P2 END OF TAPE HAS BEEN REACHED@PHVd0T30TTd "  2l  l  l )l@Ps  l  l  lT 0I ̹ @PT53200 \\5300d1\533\5300 1d.@Pd4\530\135! 3\5301\55330 d 0dT;5 @P3TU  w̾ 1l̩  0l dN 1l l\1353̕l@PT53! 01\533\5530 l@l3\5 30\̧ ̢ @PH0  1d  0l\1353\5301\533> 2d 'd-@P1s\533.Id?dTM3BTTW0d !=T1B @P 0d 0є 0  1dȎdZ̯ 0daT5>038TSLSIZfP1829 MIB UFNR o&TOD READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK LTHDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxCOMM18JBCNFGp!*CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRB|TMRTHDVERIFYCDUMMY7SECTORQCOUNTbETRMNLUNPTIMoN14 Y  3#PQMINTXUNPSRTWRITERFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#S18326P83310 FILE4 pINPEQ CPREL hUNFIX RCTV i~MINTO *mCLOSF }0/FMPA02XMRSV _)9LPTRS p#QOUT FMPA06FMPA07FMPA08ABSADDlRASAV m$FMPL01K65COR4FMPL03vFMPL04%FMPL052SAVLABHRELFLEMFMPL08FMPL09DUMMY1 DUMMY2UNPENDsBCLOSFRELS1AoTCOMPLŒƞ 2/ !a[ " l̨   l[̚ W @m @ d#Ξd' $) l d @m  'dTKR dz d՜  @mܡ 3l̗l̾  @mνd+ι , lddTm l̿  " d#ΐ ! L   d,{ -l.d|/d}0d~T{1 1 9 4dTKR2dRlT d d d `dd 3 d ؝  3#dl % l l & l d3ݔ   l " l l & lܿT̞d4̹"> * "T" "` d, d! ̲  !` d5Tp"p JTp"Tɒʒ5L 1 "F  `d d6   ld74 "l 1 d8.f 1Tea  d9 2 l d#6f30 3 d  D l2  14Tђʒ➊ "FTp"p JTp" dTɒʒ "Tϒʞ "F l fܙ 1d74 "l d d d:d;p, !,l,h*p8'll,d?d30 3 dTђʒ➊ 'TR d d@Tѯ1 dAf `1̦d̜dd d T1BldC&6  dD dESWPSEC1^FSLIMT(IPTMOTN!R  3#xTSINTReEPORTSCONVERkSYUTILNXTVOLUTSTRT|L000 C18331uRENAM }!DELET }6BACK +TIMEC CHAIN fXMREL _wBREAK CABS lALLIN lTRVEC oDWADD |UPTOD FMASK *tMMAT 1DINPUT SMDGD1COPYQ MSAV mnRENAMEDATFLG&DELETEQ8PKUPvENABLESEKDONGCPSENDSCHERRp*STMSV4VPOLCHKFMARKER|TIMSLC]XTSNABLZPARTBLPTRITEEFLISTdNCMPRQoSMDGDRNSTATSUNLOCK{CERRORAMONTO*gINVINTCLFRIOwTSPMINePGETVIT*WKSPLU1`T16 l.INIPRT~TSCKMU`dCEXTSTKOVFVOLmPTEOFVPTBSIZCCP +XMRSV _)LOG bASAV m$LOG1 {LOG2 MAKEQ FMULODUNLFILSLFILE3 pLMSBfTSCNACZMT50U0_MT50U1iS1811TgLUABS l9yNFNR o&JKIN p AUTF9 o%XMMOD _NOG30AnAFILV4[ODEBUGwREDLABTSIOC2gMMREADuCKTHRDkMASERRXJBPROEokGETREC3MASDRVRPMASKkTERMCKNTSTASKZLOKFILPLENTH ALMERR XMBLOKZTSOFFM1dWANTDRDENSWP^UONNXUC^pTSATTCePTYERRmTSACTVZCLRSKN T0 kPT1 kPT2 kP ONNXUM^wT4 kP.T6 kPLSTPRTT8 UBPROTLBPROTUPBDTBINTSTKVOLBLK^?SCHLNGxMT25U1kTERMLUALTERRDGNTABcDUMALTLSTOUT  STDINP BATLSTBATINP PCORE PCONSL5MIINP ETK7WEFTK7DATMICSUB"SEVENTSEVNRDCPTRAC PCCP1 CALTHDN4 N5 N6 N8 N10 1N11 N12  N13 N15 THWINITSIMRSVgLSTLOCrTSAREARDPTV4PTNALCFMRDEL^FMEOFC_FMMOSU FMMOIU FMNRCDwUCTLENMAXLOCLRTABLFMMOSFFMFCBS!FMMOIFvFMFCBI#FSCTNE&FCBSCT&FSLEND(MMLUTB(PCTABL)BIDLER *(INSTLUIDLCTR*-TMRTYP*ITMCODEFSTIME*PDMICOD*KTBLADR*LEMPSTP*NCGHOST*dADAYTO*hMONTO *jCHORTO *l]SECON *nCONTA *oHORMIN*pTIMCPS<TODLVLPNSCHED*rTMRLVLLSIZV4PSIZV4ODBSIZCHRSFG*sCOBOPS|Q8STP *vNDISP MICSB2*FBASV4PKEYV4RELFILDUMPOT+ACPTBE+TSPAGE,CPTBLZNUMCP XXMAT 0NXUC 1NNSWP 1VTSQPRIPROMTR>BAITOSDATSEP/TSTLOC1ZPRTCDR1\R9TAPF1_R9SEGF1_LRGUSR1aRQLLIM1bRQULIM1cRETIME1iFILOAD1nQPASWD1oWKSTAT1sRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX3TSPORT1TSPEND7TSUSER7TSUENDŒƕ.0@PDISK TO TAPE SAVE EOF FILE-NAME =OWNER-NAME =VOLUME-NAME=INPUT UNIT = LOADING NOT LOADED,ALREADY PRESENT dSYSVOL = TAPE0 @ hddhhhd h dhdhhd{ dH dIȷdLȵdMȳdNȱdOȯd{d:hTeήî hأf  h ff؏ 1 !m0d $ dڨ W d dfl8ήnl dlγl / $ lddd lTea{̪d @mܟ d l 1 l\ے{ ddT>Œƞ 2/ !_[ " l̨   l[̚ U @m |@ dΞgd $ l d @m  'dTK, d dל  @mܣ 3l̙l  @m܌dμ , lddTm l  "n dΓ ! ΍L  dTTd{ ld|d}d~T{ $ 4dElT Ѯ  dHdɜ "loA  3#TԮўdլ\ўl ! :I : "lTK, d׬  l df `1ddd d  lll l̓  d " l d;.  l ! l2  1Ӝ $ Qd lnn̔ Kfܽ 13̬ 3 ddd7dd l 3 ld ddd df 1udTגʒ➊ 1: * l df 1Tea䮭{TԮўdլTTϒʞ, l̫ lάfzܣ 1\Β{宭{ d d d3 3 d d f 1d `dTђʒ➊ ! dTdrdsdtduTǒʞ ! 'TԮўdլ TϒʞH :>VTÒʞ枊̵ "\ڮўlܬٜ? dd!4dΧddhT&%l߀hTlfn "Ɍl ll l?ʔ   ̯lܮ ̦ l   2 " @ HH h h l h 1 H TpTvh\h/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTpTv h\h\h\ h\h h  ɀhHhh H hT@@@ H fb_^  HHhh hT"\@@ H  "Y  TI( ? READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK LTHDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxCOMM18JBCNFGp!*CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRBwTMRTHDVERIFYCDUMMY2SECTORQCOUNT]ETRMNLUNPTIMoN14 TQMINTXUNPSRTWRITERFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#S18326P83310 FILE4 pINPEQ CPREL hUNFIX RCTV i~MINTO *mCLOSF }0*FMPA02XMRSV _)4LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlMASAV m$FMPL01K65COR/FMPL03vFMPL04%FMPL052SAVLABCRELFLEHFMPL08FMPL  3#09DUMMY1 DUMMY2UNPENDnBCLOSFRELS1AoTCOMPLRELFLECFMPL08FMPL09DUMMY1 DUMMY2UNPENDiBCLOSFRELS1AoTCOMPLhTeί# h'n  h ffWfغ 1 !j*Ȭh ( hǨ Xȣ h hȣfȚhț9ؙn؏ȍh d"!d$Πd( / $* l)dd+d lTea{d @m d l 1 l\ܒ{ ddT>Œƞ 2. !c_ " l̩  ! l^̛ X @m z d$Λd( $* l d @m  "  'd, d dҜ  @mܟ1 3l̖l̼  @m!η , lddTm l  & " d$ ! L    lf?n 1 l dphq `ddd ddL ddM ddN " lTђʒ➝ "\X@ "%T[\p-Tϒʞ "\X "% # du ֜ ""d.zd՜ u /h  d$t  1ʜ ה-  ̸̾֜ T3  3#Ւʒ➝ "dph `dddTђʒ➝ "\X@ "% lέfΫfܣ 1p4d0 pp8;ll l zl d2TXfd3̗H ̐ "%TÒʞ3 "L  7d, !\ʞ3 "L . >4l!d"d#d$d dddudvdwdxdyT}{pUSE LEND nwRESET FILE1 pJPRET *MP1234lBSMD4 K65T10BUFF 6SK65T12MIBUF o4IPROC lTSLSIZfP1829 MIB UFNR o&TOD READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK QTHDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxCOMM18JBCNFGp!4CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRBTMRTHDVERIFYCDUMMYFMPL03vFMPL04%FMPL052SAVLABRRELFLEWFMPL08FMPL09DUMMY1 DUMMY2UNPENDxBCLOSFRELS1AoTCOMPLUSE FILE-NAME =VOLUME-NAME=INPUT UNIT =MODE =nwRESET TERMINALA E AOEOOAOEO A TERMINAL = hdd0hhhddh hdd{d|d}d~ dUhTeί hؽQn  h ffت 1 !k-Șh ( hλ Yȓ h hȓfȊhȋ;؉nl d  lΒl / $ lddd lTea {+d @m d  l 1 l\ܒ{*+ ddT>ŒƟ// 2. !YU " l̩.   l]̛- O @m }C dΛd $ l d @m  'd D d d ܜ  @mܩ 3l̟lŜ  @mܒ , ld d,Tm, l  " dΗ ! ΑL   d dd d! d- ( l  1 l  Ed lTK  d v d   lT{"#">|{Y""Kd$$  Ted% Dl (ld `d d d dTђʒ00 "9TjTϒʟ0 "9d&Ԝ "AŜ "l  1d' w 5 Bd d(p 6 7d TK -T0 ?l @l\  2. "  \Òʟ1 0 l0 !u  lTǒʟ 0Tϒʟ0! d"dd&d d+   l@H HTpTv h? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@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@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @ H,h+TpTvh&\h%\h\h"?/hhTHyDl `L /!/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTpTv h\h\h\ h\h H fb_^HTpTv"h$   Ll HTpTvhTvh K"( l hT̟ `^PTVRDYS1827 IUP oeS18273IDR60 LOG1A YP1811L YVOLA mCONCU MOVEL mCPFET i,PARBV4o`MT25U0jSWTCH pNMONI iOCPMOD hXMRTN _{JBFLV4DOUT PARAMEl9EFDATA$REQALC+QUEUP aECCALG~B*DWMUL ;FMSAVAJPFLV4TMASCON$COMPV4p/~INPTV4oBADSECfZQ8PREPpTSMEND1JPCHGE*EFINDRQo&EFLOCKSCHSTKJBCFGZp1MPFLAGpFMCHKOwoqBREADRTSIPRC`tADNSWP^TSLOFFRTNCORCdTSCLOK`OUTQUEDISPOSTSFMCPgDISPXXiTSMMERhCONSLUCONTCUOUTPUTn;HA mrACK REL nIP1 mMAS300IDLE *#MASKT ELIBET oPGMIN eMMREL _SPACE PSABS lQECORE nRDISP iIDRCP1NOUTEQ TK7RW FMPA10+FMPA11CTRANV o\XMATR 1fFMPA14qSPASW oFMPA16FMPA17FMPA18SPACE4noPTPDT0FMPL10MTBFS0WMTBFS1 CaDWSUB CWSEC1pBUSY zFMPL16UCTABLcFMPL18FSELFLGMAXCOPVLOBDTBDISABLABSREDs0BATCLUoDFMPFLGSKALNDJBCNCLp UNPIOFoREDUCEhTSLSIZfP1829  3$,MIB UFNR o&TOD READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK GTHDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxCOMM18JBCNFGp!*CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRBrTMRTHDVERIFYCDUMMY-SECTORQCOUNTbETRMNLUNPTIMoN14 OQMINTXUNPSRTWRITERFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#S18326P83310 FILE4 pINPEQ CPREL hUNFIX RCTV i~MINTO *mCLOSF }0/FMPA02XMRSV _)9LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlRASAV m$FMPL01K65COR4FMPL03vFMPL04%FMPL052SAVLABHRELFLEMFMPL08FMPL09DUMMY1 DUMMY2UNPENDiBCLOSFRELS1AoTCOMPLLPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlWASAV m$FMPL01K65COR9FMPL03vFMPL04%FMPL052SAVLABMRELFLERFMPL08FMPL09DEFINE_DUMMY2UNPENDsBCLOSFRELS1AoTCOMPL̝ $ d fܒ dd f d d̗6nṉhŢdf 1   d   l hTd&dE% d dd!5 AdŒ d Ad d`p5ddլ l@-lGn d l:X 4ܴ d} dÔ fFn, l lΜ>̑d̍`ͽfmTٺ B\jlk j  d " dTÒʟl l l &T̿ ̏ 5 d$ d l8̞l nܘ n f dd dd $l  l 1  ,l f lޜ!,`lfFxfG ,lΦ, d d̟;dfގܮ fm fy̨ ,d ffd l̗7̑d ܌̍ ,ld d!# $ dμdndz llq l ll  lf 1FdGd d TκTϒʺ " TKϟ dddd'  l % Rd $l ̯fm̯fyTٺF ?ٜ  $ Rl$ d ,d , d d?ddnޱ̞`lfxn̔ l ,l̎`nfzf FdGdd \Fll f l̞ l nܧԜ1  y8 nl $ d l!l dn̙n̛n d{l l)ܔ 1k j  TTKП dTϒʺ ddd̠d!d"d#d$dll df 1 dmdyd $ d׀hT ln 1 lf 1 ![̛l̝ll̠l̢l̤l̦l̘l̚l lΩnܤ 1 dάdlέl̥ , dʀhTl dθn 1 lf 1l̫ "@H HTpTvHTpTv"h$   LlHYTpTv""hPhM\""hM\hL\hHDlFHhD6>t;2S:4ah?H=8499H6h6," 1d'hh &hh !d#aR8s$d1dL lah hV h hP hLHGhFTpTv"h6h5\"h2: 5\h4\h3h)\h-\h,*`TTT 6fbf b l `h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` h? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@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@  3$|Y@Z@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @ H,h+TpTvh&\h%\h\h"?/hhTH!yDl `L /!/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTpTv h\h\h\ h\hHTpTvhTvh K"( l hTE *iNAMEV4MAUTFA oBI1811ZbMINT LOOP n}pJPSWT pPUTS QSAV mmVINPV4oPUTZ }CDRDSMXMTEND1BMAXQUEALTDAITDFUNCFMSCOMtHSLICUPeALCORELOADINp 9BGNMONZLNRESPrPWFAILmN%TSRFTN`0TSBGIN`RNRERLE!TOTMIN*qFMCOMPt>SWPSEC1^FSLIMT(IPTMOTN!TSINTReEPORTSCONVERkSYUTILNXTVOLUTSTRT|L000 TIMEC CHAIN fXMREL _wBREAK CABS lALLIN lTRVEC oDWADD UPTOD CNVRT TMMAT 1DINPUT SMDGD1COPYQ MSAV mnRENAMEDATFLG+DELETEQ8PKUPvENABLESEKDONGCPSENDSCHERRp*STMSV4VPOLCHKAMARKER|TIMSLC]XTSNABLZPARTBLPTRITEEFLISTdNCMPRQoSMDGDRERPROCUNLOCK{CERRORAMONTO*gINVINTCLFRIOwTSPMINeKGETVIT*WKSPLU1`T16 l.INIPRT~TSCKMU`dCEXTSTKOVFVOLmPTEOFVPTBSIZCCP +LOG bLOG1 {LOG2 MAKEQ FILE3 pMT50U0_MT50U1iS1811TgLUABS l9yNFNR o&JKIN p AUTF9 o%XMMOD _NOG30AnAFILV4[ODEBUGwREDLABTSIOC2gMMREADuCKTHRDkMASERRXJBPROEokGETREC3MASDRVRPMASKkTERMCKNTSTASKZLOKFILPLENTH ALMERRXMBLOKZTSOFFM1dWANTDRDENSWP^PONNXUC^pTSATTCePTYERRmTSACTVZCLRSKNT0 kPT1 kPT2 kP ONNXUM^wT4 kP.  3$T6 kPLSTPRTT8 7FMUTEXLTSUSRPSYSMSGK LUNEQ zUPDFCBTSMFLGZOFNXUC^TSPMCK`Z WTREADeaATTACHeTSLLSBfTSXERRfPGMOUTf+\TSLICEfnTSIOC1g!CPSET huCPADD hMONI iOT9 j ?T18 j T19 jSAVLU kbALTSUBlT14 lNABS lyNIPROClGVOLR mXOFVOL mICORE mT12 n/SWAPCKnUNPIO oRECOV oPRORETpTRNVECoAUTFB o COUTV4pUOLDUMPpwCOBOP qFMCOMEtFMPPROtMMWRITu=LOKCHKvtINSLOKvFMCOVLw}FMFSRCwPUTRECw$GETNXTyLOCKFL{FSHARE{GETZ }UPREC }REDUC }SMDCPSLNBRLINT-ENDQUELBINHEXLUNQUE zLINEUPLNDOWNTERESPPUT INITZEZCTERMLtNSTATSCPADDR)VBSYEFS!CEFDTA"*MASEXTn l̪ l\l lҜ8kndvdR\̟dT̠dU dS  l 7 fܶTl l휫7ήnܓܤff dQZlΗ ET] "ll dY;lnTô l:dvΕn dlnl̒n l !F\d l8f|ܳ,lT dzdx l<Ψn l lܔ\哠l lϜ9kn l5n̪ AdRdvfT] "ldOdPnnTí "\Rd l 7nܬflfmQ TV̿ "ll lY;̋lΨfUTộ " l9ln d̓dv̔f̔nR$l d&T&dzX dx l̋8nܵ l\Rl l֜8|nܠlnTídOdPTVQ J f}f~ l lTÿ " ḑ8l nĄdv f̓ ll l?`kzn͡xn\Ylll\̻ !J̏ldR d ! TdhT  lOnPnm l l l l d  @ HH Ad d d d dd d hTÿ " d hhhʜ " Ȼ ThhT !" lhȞhȠ >\ⓠhh\ 1ȑlȐdhθddZdΫ  d d l 7 f|f}f~ddld !TlhT} !&AllT llTÿ !?ƌl l$ l \ϰ ̪l̬l\ ! ̧dΨ l d ll dܛ H dhddT  lTÿH $X h HTpTvhZh MhhTí dY:hnhh l̜!"T dllTÿ !hȳnȱf\ȩlȨl\H TpTv h h H#TpTvh\h\hB RJR3 2  d#h h hl!, Ad Ah  Hhhh˨ nƈnH TpTv h\ hP *T 00217*K,I8 00218  3$FMTEXTSABLOSYMSGUTTRTCLSFLOPNFLREDR COSEK9INEQ OUEQ GEFLDWTEAD PGINTPGOUTPGIN Q8KUPQ8REPMMUTBQ8KUPQ8REPQ8KUP Q8REP AMNTOADYTOAYRTOQ8KUPQ8REPMMUTB'SYMSGMMUTB5TEMLUREDR nCLSFLwOPNFLeTSREA'PGUNTCLSFL6OPNFLwLUAMEQ8KUPQ8REPSYMSGEN0V4CC 8KUP8REPDEINE~TOAY USE LEND nwRESET  H   <4$hhh 8h" D ujjjj< sf sjhhdhhhh h`CH@h=@ H9H=J  3$h8h<H/h/Dh2ßTŰ-  bd`æTŌ@ ddaA aDd bjA 2lXlHZHY` hNhNhNDhOI HGD TMLLF !DnB;2?h8><6 n4H)H$RD ((dh&Hhh ! HDh7Dd@XD (hT#Xx!hD (̀hdh`! XT#XWȽ!Ȱn`nnDnHH@  s=j+8f" bb bb b bb `  s"j@ a a2a>a  sn `  sg"HYHVB hTS HQaXI (ChT)X:!.@ HhH.h.H&h&*TŰ& Xh_f"bT)X D@d h hV h hP hLHGhFTpTv"h6h5\"h2: 5\h4\h3h)\h-\h,ŀ*`TŌTŰTź 6fbf b l `h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a`HTpTv"h$   Ll H,h+TpTvh&\h%\h\h"?/hhTHyDl `L /! h? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@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@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @ٞߞT /h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTpTv h\h\h\ h\hHTpTv""hTvh  < 8(l HELP INIT DEFINE STATUSRELOADDUMP $COPY )DELETE/CLEAR 3LIST 6RENAMEȒɕ.0  3$%*$    dD TC˒c B`'# ̠Z -A .D` dei$TeafUkf~g,Df qdTђ͕0. T͕?.Tϒ͕E uhh hTHD|T|TeΕ/gTeҒ?/d#Dd\S AT>Ȓɕ.PFLTْ.H ",T>Ȓɕ.Tޒ.7 :TeafPjf~g,TeafZlf~g,Tf+ h TK"#HEOUINPUEX$$PGMNAM$$  QTIL IN READY READY  END QTIL (  QT H-h,TpTvh'\h&\h% L#"(`: `  v  l` H'h&TpTvh!\h \h"hh ""h "h TH``*gh*hh*fhlllH TpTvh h h H+h*TpTvh"B(!(`: ` f x  l` h%h#h! @!    `  L L l hShONhMhI hKhChAhFBA8<A h< 6n; 6750QH h2 /*%W )t'n"$!n l #h  #h   hqhrhlkhjhc h\hZ h[hYBZ8RA hTBZ8LF"K#hI hPLN hGIC hD@ 8nB8:4QH h9 -1)W 0t%n)"(n$( l&#h  h l #h  h00 HQHOHMHKHI hGlE (?  a)9 n6  1 $:n/ 5n,B H-H-'$&QH h'" > <  l0  l )  *  W tnn#h h %  lװ#l l HXhWhOhVhThGhF >"`K J+D h<1h0Gl/Fl*%"!/  "h!(,`Ϝ # lLhTK `.EF7 Hhhh( " `"m  ` HM!"hG!dhFH5  j9 qTљ4"T*!vTϙ H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  XR H$X%e H X0 \ȵ" \` ȲX2whth \m h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :Xәe H"A HB0Fh  0Xe  00j qa! 1" hh! u  HTLD癱HHSYSTEM MESSAGE XXXX X  X X h w `2 h h h h h h 1"! 1LK~7%JT}"! 1gfedca`_^X h h h h h h؍"! 1-,+)('&%$#S  3%  d l l l l"! 1  l l l lܟ̞"! 1 l"! 1 3d 4l"! 1~}|{zyxwutrp 5ld̴ܵ"! 1`_^]\GZYXWVUCFQOM lAܒ̑"! 1 $;:9$7654 1 #., l l"! 1    d"" 2 l̴ܵ"" 2 &l &l l܇̆"" 2 l} /ly 0dt""F 2DlkjihSf dcba`OR][Y 6lM""l 2jFEDCB-@>=< :),753 7l'̲ܳ"" 2   8l̉lTKH TpTvhX\h|DX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`HYhXX\X_hSX\hQ ` hOKhLKB0 hG0HFBCV Atm;;m75 2#h0 `()[0 m 0  m  ` #h  ` `,  3%RSECDATBASTSPEND7TSUSER7TSUENDBAITOSDATSEP/ TSTLOC1ZPRTCDR1\R9TAPF1_R9SEGF1_LRGUSR1aRQLLIM1bRQULIM1cRETIME1iFILOAD1nQPASWD1oWKSTAT1sRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX3TSPORT1FMEOFC_FMMOSU FMMOIU FMNRCDhUCTLENMAXLOCpLRTABLFMMOSFFMFCBS!FMMOIFgFMFCBI#FSCTNE&FCBSCT&FSLEND(MMLUTB(PCTABL)BIDLER *(INSTLUIDLCTR*-TMRTYP*ITMCODEFSTIME*PDMICOD*KTBLADR*LEMPSTP*NCGHOST*dADAYTO*hMONTO *j4HORTO *lNSECON *nCONTA *oHORMIN*pTIMCPS<TODLVLPNSCHED*rTMRLVLLSIZV4PSIZV4ODBSVOLBLK^0SCHLNGxMT25U1kTERMLUALTERRDGNTABTDUMALT|LSTOUT STDINP BATLSTBATINP PCORE PCONSL5MIINP ETK7WEFTK7DATMICSUB"SEVENTSEVNRDCPTRAC PCCP1 CALTHDrN4 N5 N6 N8 N10 "N11 N12 N13 N15 EHWINITSIMRSVXLSTLOCcTSAREARDPTV4PTNALCFMRDEL^DGCUSMDRDRLTOFDR_}MPDVCK7ICONSLyEDUMMYUSE Q8PREPpTSMEND1JPCHGE*;FINDRQo&EFLOCKSCHSTKJBCFGZp'MPFLAGpFMCHKOwobBREADRTSIPRC`tADNSWP^TSLOFFRTNCORCZTSCLOK`OUTQUEUPLOWMlTSFMCPgDISPXXiTSMMERhCONSLUCONTCUOUTPUTn;{CWSEC1aBUSY kFMPL16UCTABLYFMPL18FSELFLGzMAXCOPVLOBDTBDISABLxABSREDs!BATCLUo5FMPFLGSKALNDJBCNCLp UNPIOFoREDUCE^COMFILPGMINTeTSULBF[HSYFAILCSTATSFMEXECrnOFNSWP^IDUMMYRESTORbBFWRIT4CNTTBL*xCOMPRQoONNSWP^~TSINTXUNPSRTWRITERFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#~  3%DSGoSCHTOPi\REAREQ\3TSCHANf"PTERCDCLOSFLSTRLEN-TSATCH]PGLUNTeSYSLVL49MMAMAX1COPHOSTCLRTCU~CNTWAR*wCYLTRKGTNXUM^PTVRDYS1827 LIKDUM}yJOBINDoGFIXONESMDACPeyWRTBAKy@CPTBLNTSCLLB`8INCRECTSLCUPeTSVFTN`!JOBENT]VOLUSE`OPENFLSYSCOP~:FMBRRNwT15 PTNRELFMSWAPtSWAPONnvTSUSCPgN7 MPDRIV N9 AYERTO*fLVLSTRFMASK *tqMMAT 1DINPUT SMDGD1COPYQ MSAV mnRENAMEDATFLGDELETEQ8PKUPvENABLE~SEKDONGCPSENDSCHERRp*STMSV4VPOLCHK7NIPROCl=TIMSLC]XTSNABLZPARTBLPTRITEEFLISTUNCMPRQoSMDGPRO mASC ikRW kPIDR56 L18326JPT13 1SPL4 CLEAR SEEK9 CPTBL ,!COMM18JBCNFGp!%CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRBmTMRTHDVERIFYCDUMMY(SECTORQCOUNTSETRMNLUNPTIMoN14 JQMREADR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK BTHDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxIDLE *#MASKT E LIBET oPGMIN eMMREL _SPACE PSABS lQECORE nRDISP i IDRCP1?OUTEQ TK7RW FMPA10+FMPA11CTRANV oMXMATR 1WFMPA14qSPASW oFMPA16FMPA17FMPA18SPACE4nouPTPDT0FMPL10MTBFS0HMTBFS1 CRDWSUB |S18326P83310 FILE4 pINPEQ CPREL hUNFIX RCTV i~MINTO *mCLOSF }0 SYSMSGKLUNEQ uUPDFCBTSMFLGZOFNXUC^TSPMCK`ZWTREADeaATTACHeTSLLSBfTSXERRfPGMOUTf+WTSLICEf_TSIOC1g!CPSET hpCPADD hMONI iOT9 j +T18 j T19 jSAVLU kbALTSUBlT14 l NABS lyVOLR mDOFVOL mICORE mT12 n*SWAPCKnUNPIO oRECOV oPRORETpTRNVECoAUTFB oCOUTV4pUOLDUMPpwCOBOP qFMCOMEtFMPPROtMMWRDRNSTATSUNLOCK{CERRORAMONTO*gINVINTCLFRIOwTSPMINeAGETVIT*WKSPLU1`T16 l.INIPRT~TSCKMU`d>EXTSTKOVFVOLmPTEOFVPTBSIZCCP +U  3%XMOVER DAYTO *kM1811TISMD #CPCHK h|MMALC _.CLINE ALVOL mOPENF }3FLIST *uPORTS AUTON vPWFOV moSPCEV4SETBNDh9BINASCCWLGT0 DCWLGT1(CNWAREJLLUV4*STLPV4nELNDISBMOVEL mCPFET i,PARBV4oVMT25U0jSWTCH pNMONI iOCPMOD hXMRTN _{JBFLV4DOUT PARAMEl9EFDATA$REQALCQUEUP aECCALG~BDWMUL |1FMSAVAJPFLV4TMASCON$COMPV4p/tINPTV4oBADSECfPINTReEPORTSCONVERkSYUTILNXTVOLUTSTRT|L000 C18331uECXIT FILE2 pCCPLU ^TODAY WCONT 5END0V4ZMMEF =DONE qCPDEF hKMMSIZ ESMD GETS YERTO *iNAMEV4MAUTFA o8I1811ZbMINT LOOP n}kJPSWT pPUTS QSAV mmMT50U0_MT50U1iS1811TgLUABS l9oNFNR o&JKIN p AUTF9 o XMMOD _NOG30AnAFILV4[ODEBUGwREDLABTSIOC2gMMREADuCKTHRDkMASERRXJBPROEREZaUSKNPGTSWSEC_DENXUM^TSCKPM`@EFSTORCOMSEKCUNPTBL`SEKVITEXTREGh%COMREQCOMSEQzr)EMPSRT*MSYSDAY01SWAPARQIN ofGETREC3 MASDRVRPMASKkTERMCKNTSTASKZLOKFILPLENTH ALMERRXMBLOKZTSOFFM1dWANTDRDENSWP^FONNXUC^pTSATTCePTYERRmTSACTVZwCLRSKNT0 kPT1 kPT2 kPONNXUM^wT4 kP$T6 kPLSTPRTT8 -FMUTEXLTSUSRPFMTEXTSABLOSYMSGUTTRTCLSFLOPNFLREDR COSEK9INEQ OUEQ GEFLDWTEAD PGINTPGOUTPGIN Q8KUPQ8REPMMUTBQ8KUPQ8REPQ8KUP Q8REP AMNTOADYTOAYRTOQ8KUPQ8REPMMUTB'SYMSGMMUTB5TEMLUREDR nCLSFLwOPNFLeTSREA'PGUNTCLSFL6OPNFLwLUAMEQ8KUPQ8REPSYMSGEN0V4CC 8KUP8REPFMPA02XMRSV _)*LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlCASAV m$FMPL01K65COR%FMPL03vFMPL04%FMPL052SAVLAB9RELFLE>FMPL08FMPL09DUMMY1 DUMMY2UNPENDdBCLOSF RELS1AoTCOMPLSMDCPAFU2INITFMUFCBw3SMDCPGZ&VOLENDOUTPV4DELRECLUNAMEONTIME1kMICSECDENXUC^EFCOVL#JPRENp#RABSPARuvUPDRECEXPIA  3%lop     &%$/#"!   l@M? *Lo  q z!e3 AQ2AXLOADhHX=Zԓ&88+ | C7F0UQ6[0123456789ABCDEFn 7Biv%='$d@6 `&8:8REPFMPA19FMPL192FMSAVASTRSECSTRLEN-DATBASSWAPAR B* @`@t*Rw_˂Fb{^ X07@`7 T@+O @C H? `a A4a9 a: a>afae/]    T AA e" !14;E+H kAYd P e #D asAtthT` + ‘s hiheXaeAfa aoma/y Aa-X 4-Th `efTp#va 10Q6 X2X af (X E XP aa9 XI1**E*T a 3 Q6X aX ENTRY POINT TABLE - Xg X ***COM Q^ X ***DAT Q^lRA A. a a }|0Cda- c A: a a a .. a.ѐv aH- 4|a h- Xg! X`QZ 4XYn  43b4b A9 "X 9"9XX X  (&$" (cB aaaXB0A B(aa?*PAGE E *PAGE6htsH h RENAMEDATFLG:DELETEGENEOFxQ8PKUPvENABLESEKDONGCPSENDSCHERRp*STMSV4VPOLCHKPMARKER|TIMSLC]XTSNABLZPARTBLPTRITEEFLISTnNCMPRQoSMDGDRNSTATSUNLOCK{CERRORAMONTO*gINVINTCLFRIOwTSPMINeZGETVIT*WKSPLU1`T16 l.INIPRT~TSCKMU`dREXTSTKOVFVOLm*PTEOFVPTBSIZCCP +LOG b( ? LOG1 {LOG2 MAKEQ FILE3 pMT50U0_MT50U1iS1811TgLUABS l9NFNR o&JKIN p AUTF9 o4XMMOD _NOG30AnAFILV4[ODEBUGwREDLABTSIOC2gMMREADuCKTHRDkMASERRXJBPROETSLSIZfP1829 MIB UFNR o&TOD READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK LTHDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxCOMM18JBCNFGp!*CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRBwTMRTHDVERIFYCDUMMY2SECTORQCOUNT]ETRMNLUNPTIMoN14 TQMINTXUNPSRTWRITERFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#S18326P83310 FILE4 pINPEQ CPREL hUNFIX RCTV i~MINTO *mCL?  3%OSF }0*FMPA02XMRSV _)4LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlMASAV m$FMPL01K65COR/FMPL03vFMPL04%FMPL052SAVLABCRELFLEHFMPL08FMPL09DUMMY1 DUMMY2UNPENDnBCLOSFRELS1AoTCOMPLUSE LEND nwRESET FILE1 pJPRET *MP1234lBSMD4 K65T10BUFF 6SK65T12MIBUF o4IPI  3%ROC lNUMLU !NXUM 1RJPRET1p"CARDRDl'MESAGE2GETFCBGETFLD>SMDCPAFU2INITFMUFCBw3SMDCPGZ0VOLENDOUTPV4DELRECLUNAMEONTIME1kMICSECDENXUC^EFCOVL#JPRENp#WABSPARuvUPDRECEXPIREZfUSKNPGTSWSEC_DENXUM^TSCKPM`@EFSTORCOMSEKCUNPTBL`SEKVITEXTREGh%COMREQCOMSEQzr3EMPSRT*MSYSDAY01SWAPARQIN PRO mASC ikRW kPIDR56 L18326JPT13 1SPL4 CLEAR SEEK9 CPTBL ,!MOVER DAYTO *kM1811TISMD #CPCHK h|MMALC _8CLINE ALVOL mOPENF }3FLIST *uPORTS AUTON PWFOV moSPCEV4SETBNDh9BINASCCWLGT0 DCWLGT1(CNWAREJLLUV4*STLPV4nELNDISBLIKDUM}yJOBINDoQFIXONESMDACPeWRTBAKyJCPTBLNTSCLLB`8INCRECTSLCUPeTSVFTN`!JOBENTgVOLUSEjOPENFLSYSCOP~DFMBRRNwT15 PTNRELFMSWAPtSWAPONnvTSUSCPgN7 MPDRIV  N9 'AYERTO*fLVLSTRSCH n GET S1860 CARDRDl'GETFCBLN4 GETFLD>IDR12 L18273IDR4 DELRECDENXUC^JPRENp#UPDRECEXPIECXIT FILE2 pCCPLU ^TODAY WCONT 5END0V4ZMMEF =DONE qCPDEF hKMMSIZ ESMD GETS YERTO *iNAMEV4MAUTFA oBI1811ZbMINT LOOP n}uJPSWT pPUTS QSAV mmVINPV4oPUTZ }CDRDSMXMTEND1BMAXQUEALTDAITDFUNCFMSCOMtHSLICUPeALCORELOADINp 9BGNMONZLNRESPrPWFAILmNTSRFTN`0vTSBGIN`RNRERLE!TOTMIN*qFMCOMPt>SWPSEC1^FSLIMT(IPTMOTN!TSINTReEPORTSCONVERkLVERWPWSYUTILNXTVOLUTSTRT|L000 C18331uTSLSIZfP1829 MIB UFNR o&TOD >  3%READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK [THDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxCOMM18JBCNFGp!*CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRBTMRTHDVERIFYCDUMMYASECTORQCOUNTlETRMNLUNPTIMoN14 cQMINTXUNPSRTWRITERFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#S18326P83310 FILE4 pINPEQ CPREL hUNFIX RCTV i~MINTO *mCLOSF }09FMPA02XMRSV _)CLPTRS p-QOUT FMPA06FMPA07FMPA08ABSADDl\ASAV m$FMPL01K65COR>FMPL03vFMPL04%FMPL052SAVLABRRELFLEWFMPL08FMPL09DUMMY1 DUMMY2UNPEND}BCLOSF#RELS1AoTCOMPLUSE LEND nwRESET FILE1 pJPRET *MP1234lBSMD4 +K65T10BUFF 6bK65T12MIBUF o4IPROC lNUMLU !NXUM 1RJPRET1p"CARDRDl'MESAGE2GETFCBGETFLD>SMDCPAFFILE-NAME =OWNER-NAME =VOLUME-NAME=EXPIRE DATE=FILE TYPE =RCRD LENGTH=NUMBR RCRDS=KEY1 LENGTH=KEY1 POSITN=KEY2 LENGTH=KEY2 POSITN=KEY3 LENGTH=KEY3 POSITN=KEY4 LENGTH=KEY4 POSITN=SCTR ALGNED=%SYSVOLK1 = N O R @D 12319901 hdhhhhd h dhhhdhhhhhTe hع n  h ffئ 1ȢdȠdȞdTdrdsdt ζ ( d l n 1 l̽ !l0d $ l΍  d dfl8Cnܾl d̯ll - $ ldΥdd lTea~l @m d l d 1 l\ْ~ ddT>Ȓɞ 2] "n " l̥  ̳ lX̘H ) @m $ l dL  ܓ !YL  l쬼d , l l l @myϬ  Ed d dH Α , lΖ l @mܒ̡ 3̝l l̲H  @ed $ dddhH$ "&H"! 10NMLKJIHGFTm{Tƒt d\ȞT[ ĸf"^ l\ᒭȞ\ ĸh`aDd`>  ʄl!dRldRlڔ d"! 1,6FEC̯H ı6h5є 2ıҜ5 2ıT "ı !0 !Ӝ! ! 6Ԝ2֔ıı؜ı;8ʜ5Μ2 d̾H ̶H  ̱H  ̬H  d l ld ı "ı"q !m "eHh ̲ Zv̧ Փ  3%Td M !H̽ !`B =̶ 9̮ !4̫ l̥h̠ !A#H 8H 2H +H %H  EdTK”   lc d 1 fTג͒ &Td d n 1ld l d d `ddrdsdtdTђ͒ %\ dTɒ̯͞ %\lllTdudvdwdxTǒ̉͞ $\k Qܜ$ EdZ d7fTΓp4d p4d, !,dYpȒɞ̫ 2.̦ !ZV " l̨  ̷ ld̛ R @m I ld $ l d @m  'dx d dۜ  @m 3llÜ  @mΫ , lddTm l  "U lܗ ! L  TӒ͒垉 %TTK 2 " @ HH\ ddT>Ȓɟ6T>Ȓɟ6 hzDhv `!i T\ hhTeaD7;D~ECG TeaD<@D~BCDhihaH2d`"**j,(" (R"j!"TeaDD~EC `h?"Dh  ,  PAUSE   TeaNIMNJKL HTpTvh T  `HjS   DjOB hRTў0 !&TٞߞTϞ" *h)h(h h hTH@hTKП H@QTORLDQTRMLD$$PGMNAM$$  hT ( ? SYSMSGKLUNEQ UPDFCBTSMFLGZOFNXUC^TSPMCK`Z WTREADeaATTACHeTSLLSBfTSXERRfPGMOUTf+aTSLICEfxTSIOC1g!CPSET hzCPADD hMONI iOT9 j DT18 j T19 j!SATSLSIZfP1829 MIB UFNR o&TOD *  3%READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK [THDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxCOMM18JBCNFGp!*CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRBTMRTHDVERIFYCDUMMYASECTORQCOUNTlETRMNLUNPTIMoN14 cQMINTXUNPSRTWRITERFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#S18326P83310 FILE4 pINPEQ CPREL hUNFIX RCTV i~MINTO *mCLOSF }09FMPA02XMRSV _)CLPTRS p-QOUT FMPA06FMPA07FMPA08ABSADDl\ASAV m$FMPL01K65COR>FMPL03vFMPL04%FMPL052SAVLABRRELFLEWFMPL08FMPL09DUMMY1 DUMMY2UNPEND}BCLOSF#RELS1AoTCOMPLUSE LEND nwRESET FILE1 pJPRET *MP1234lBSMD4 +K65T10BUFF 6bK65T12MIBUF o4IPROC lNUMLU !NXUM 1RJPRET1p"CARDRDl'MESAGE2GETFCBGETFLD>SMDCPAFU2INITFMUFCBw3SMDCPGZ?VOLENDOUTPV4DELRECLUNAMEONTIME1kMICSECDENXUC^EFCOVL#JPRENp#\ABSPARuvUPDRECEXPIREZkUSKNPGTSWSEC_DENXUM^TSCKPM`@EFSTORCOMSEKCUNPTBL` SEKVITEXTREGh%COMREQCOMSEQzrBEMPSRT*MSYSDAY01SWAPARQIN PRO mASC ikRW kPIDR56 L18326JPT13 1SPL4 CLEAR SEEK9 CPTBL ,!MOVER DAYTO *kM1811TISMD #CPCHK h|MMALC _GCLINE ALVOL m.OPENF }3FLIST *uPORTS AUTON PWFOV moSPCEV4SETBNDh9BINASCCWLGT0 DCWLGT1(CNWAREJLLUV4*STLPV4nELNDISBLIKDUM}yJOBINDo`FIXONESMDACPeWRTBAKyYCPTBLNTSCLLB`8INCRECTSLCUPeTSVFTN`!JOBENTvVOLUSEyOPENFLSYSCOP~SMPREDXWMVCHART15 'PTNRELFMSWAPtSWAPONnvTSUSCPgN7 MPDRIV N9 6AYERTO*fLVLSTRSCH nGET S1860 FILE-NAME =OWNER-NAME =VOLUME-NAME=INPUT UNIT =MODE =  3& TERMINALA E AOEOOAOEO A TERMINAL = hdd0hhhddh hdd~ddd d[hTeί hؽSn  h ffت 1 !k-Șh ( hλ Yȓ h hȓfȊhȋ;؉!nl d lΒl / $# l"dd$d lTea~+d @m d l 1 l\ܒ~*+ ddT>Ȓɟ// 2. !YU " l̩.   l]̛- O @m }C dΛd! $# l d @m  'dJ d dܜ  @mܩ 3l̟lŜ  @mܒ , ldd,Tm, l  " dΗ ! ΑL   dd%d&d' d- ( l  1 l  Ed lTK dv d   lT~()(D~Y("Kd**  Tkd+ Dl (ld `d d d dTђ͒00 "?TpTϒ͟0 "?d,Ԝ "GŜ "l!  7d- } 5 Bdd.p? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@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@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @ H,h+TpTvh&\h%\h\h"?/hhTHyDl `L /!/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTpTv h\h\h\ h\h H fb_^HTpTv"h$   Ll HTpTvhTvh K"( l hT̟ `TSLSIZfP1829 MIB UFNR o&TOD READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK VTHDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxCOMM18  3&4JBCNFGp!4CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRBTMRTHDVERIFYCDUMMYLPTRS p(QOUT FMPA06FMPA07FMPA08ABSADDlWFDWADDFMPL01K65COR9FMPL03vFMPL04%FMPL052SAVLABMRELFLERFMPL08FMPL09DUMMY1 DUMMY2UNPENDxBCLOSFRELS1AoTCOMPLUSE LEND nwRESET FILE1 pJPRET *MP1234lBSMD4 &K65T10BUFF 6]K65T12MIBUF o>IPROC lNUMLU !NXUM 1RJPRET1p"CARDRDl'MESAGE2GETFCBGETFLD>SMDCPAFU2INITFMUFCBw3SMDCPGZ:VOLENDOUTPV4DELRECLUNAMEONTIME1kMICSECDENXUC^EFCOVL#JPRENp#aABSPARuvUPDRECEXPIREZpUSKNPGTSWSEC_DENXUM^TSCKPM`@EFSTORCOMSEKCUNPTBL`SEKVITEXTREGh%COMREQCOMSEQzr=EMPSRT*MSYSDAY01SWAPARQIN PRO mASC ikRW kPIDR56 L18326JPT13 1SPL4 CLEAR SEEK9 CPTBL ,!MOVER DAYTO *kM1811TISMD #CPCHK h|MMALC _BCLINE ALVOL m)OPENF }3FLIST *uPORTS AUTON PWFOV moSPCEV4SETBNDh9BINASCCWLGT0 DCWLGT1(CNWAREJLLUV4*STLPV4nELNDISBLIKDUM}yJOBINDo[FIXONESMDACPeWRTBAKyTCPTBLNTSCLLB`8INCRECTSLCUPeTSVFTN`!JOBENTqVOLUSEtOPENFLSYSCOP~NFMBRRNwMVCHART15 "PTNRELFMSWAPtSWAPONnv TSUSCPgN7 MPDRIV N9 1AYERTO*fLVLSTRSCH nGET S1860 LN4 IDR12 L18273IDR4 ECXIT FILE2 pCCPLU ^TODAY WCONT 5END0V4ZMMEF =DONE qCPDEF hKMMSIZ ESMD GETS YERTO *iNAMEV4MAUTFA oLI1811ZbMINT LOOP n}zJPSWT pPUTS QSAV mmVINPV4oPUTZ }CD  3&\RDSMXMTEND1BMAXQUEALTDAITDFUNCFMSCOMtRSLICUPeALCORELOADINp CBGNMONZLNRESPrPWFAILmN%TSRFTN`0TSBGIN`\NRERLE!TOTMIN*qFMCOMPtHSWPSEC1^FSLIMT(IPTMOTN!TSINTReEPORTSCONVERkSYUTILNXTVOLUTSTRT|L000 C18331uRENAM }!DELET }6BACK +TIMEC CHAIN fXMREL _wBREAK CABS lALLIN lTRVEC oDWADD UPTOD FMASK *tMMAT 1DINPUT SMDGD1COPYQ MSAV mnRENAMEDATFLG+DELETEQ8PKUPvENABLESEKDONGCPSENDSCHERRp*STMSV4VPOLCHKKMARKER|TIMSLC]XTSNABLZPARTBLPTRITEEFLISTiNCMPRQoSMDGDRNSTATSUNLOCK{CERROR AMONTO*gINVINTCLFRIOwTSPMINeUGETVIT*WKSPLU1`T16 l.INIPRT~TSCKMU`dMEXTSTKOVFVOLm PTEOFVPTBSIZCCP +LOG bLOG1 {LOG2 MAKEQ FILE3 pMT50U0_MT50U1iS1811TgLUABS l9NFNR o&JKIN p AUTF9 o/XMMOD _NOG30AnAFILV4[COPY IODEBUGwREDLABTSIOC2gMMREADuCKTHRDkMASERRXFDWSUB%FDWMUIMASDRVRPMASKkTERMCKNTSTASKZLOKFILPLENTH ALMERRXMBLOKZTSOFFM1dWANTDRDENSWP^ZONNXUC^pTSATTCePTYERRmTSACTVZTSLSIZfP1829 MIB UFNR o&TOD READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ERCHK [THDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxCOMM18JBCNFGp!/CREATEMRECADz&DATFMTREMLOKvDCLOCKCKUADRuNSTACKSMDAERREADRX}PTCLRBTMRTHDVERIFYd8  3&pCDUMMYASECTORQCOUNTlETRMNLUNPTIMoN14 cGETSSZjQMINTXUNPSRTWRITERFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#S18326P83310 FILE4 pINPEQ CPREL hUNFIX RCTV i~MINTO *mCLOSF }09FMPA02XMRSV _)CLPTRS p-QOUT FMPA06FMPA07FMPA08ABSADDl\ASAV m$FMPL01K65COR>FMPL03vFMPL04%FMPL052SAVLABRRELFLEWFMPL08FMPL09DUMMY1 DUMMY2UNPEND}BCLOSF#RELS1AoASCEBCTCOMPL̝ $ d fܒ dd f d d̗6nṉhŢdf 1   d   l hTd)dE( d dd!5 AdŒ d Ad d`p5ddլ l@-lGn d l:X 4ܴ d} dÔ fFn, l lΜ>̑d̍`ͽfmTٺ B\jlk j  d " dTÒ͟l l l &T̿ ̏ 5 d$ d l8̞l nܘ n f dd dd $l  l 1  ,l f lޜ!,`lfFxfG ,lΦ, d d̟;dfގܮ fm fy̨ ,d ffd l̗7̑d ܌̍ ,ld d!# $ dμdndz llq l ll  lf 1Fd"Gd#d TκTϒͺ " TKϟ dddd*  l % Rd $l ̯fm̯fyTٺF ?ٜ  $ Rl$ d ,d , d d?ddnޱ̞`lfxn̔ l ,l̎`nfzf FdGdd \Fll f l̞ l nܧԜ1  y8 nl $ d l!l dn̙n̛n d{l l)ܔ 1  3&k j  TTKП dTϒͺ d d!d̠d$d%d&d'dll df 1 dmdyd $ d׀hT ln 1 lf 1 ![̛l̝ll̠l̢l̤l̦l̘l̚l lΩnܤ 1 dάdlέl̥ , dʀhTl dθn 1 lf 1l̫ "@H HTpTvHTpTv"h$   LlHYTpTv""hPhM\""hM\hL\hHDlFHhD6>t;2S:4ah?H=8499H6h6," 1d'hh &hh !d#aR8s$d1dL lah hV h hP hLHGhFTpTv"h6h5\"h2: 5\h4\h3h)\h-\h,*`TTT 6fbf b l `h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a` h? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@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@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @ H,h+TpTvh&\h%\h\h"?/hhTH!yDl `L /!/h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTpTv h\h\h\ h\hHTpTvhTvh K"( l hTE V moSPCEV4SETBNDh9BINASCCWLGT0 DCWLGT1(CNWAREJLLUV4*STLPV4nELNDISBLIKDUM}yJOBINDo`FIXONESMDACPeWRTBAKyYCPTBLNTSCLLB`8INCRECTSLCUPeTSVFTN`!JOBENTvVOLUSEyOPENFLSYSCOP~SFMBRRNwMVCHAR*T15 'PTNRELFMSWAPtSWAPONnvTSUSCPgN7 MPDRIV N9 6AYERTO*fLVLSTRSCH nGET S1860 LN4 *iNAMEV4MAUTFA oQI1811ZbMINT LOOP n}zJPSWT pPUTS QSAV mmVINPV4oPUTZ }CDRDSMXMTEND1BMAXQUEALTDAITDFUNCFMSCOMtMSLICUPeALCORELOADINp >BGNMONZLNRESPrPWFAILmN*TSRFTN`0TSBGm  3&IN`\NRERLE!TOTMIN*qFMCOMPtCSWPSEC1^FSLIMT(IPTMOTN!TSINTReEPORTSCONVERkSYUTILNXTVOLUTSTRT|L000 C18331uRENAM }!DELET }6BACK +TIMEC CHAIN fXMREL _wBREAK CABS lALLIN lTRVEC oDWADD |UPTOD FMASK *tMMAT 1DINPUT SMDGD1COPYQ MSAV mnRENAMEDATFLG0DELETEQ8PKUPvENABLESEKDONGCPSENDREDRECSTMSV4VPOLCHKPMARKER|TIMSLC]XTSNABLZPARTBLPRELODEFLISTnNCMPRQoSMDGDRNSTATSUNLOCK{CERRORAMONTO*gINVINTBMPRRNKWTSPMINeZGETVIT*WKSPLU1`T16 l.INIPRT~TSCKMU`dHEXTSTKOVFVOLm PTEOFVPTBSIZCCP +LOG bLOG1 {LOG2 MAKEQ FILE3 pMT50U0_MT50U1iS1811TgLUABS l9NFNR o&JKIN p AUTF9 o*XMMOD _NOG30AnAFILV4[ODEBUGwREDLABTSIOC2gMMREADuCKTHRDkMASERRXJBPROEouGETREC3$MASDRVRPMASKkTERMCKNTSTASKZLOKFILPLENTH ALMERRXMBLOKZTSOFFM1dWANTDRDENSWP^_ONNXUC^pTSATTCePTYERRmTSACTVZTSLSIZfP1829 MIB UFNR o&TOD   hf: 1 h":f n hhTeΨԨSd#dG d HhIh hJh h l lSd, `d/Tѡ#; "7]hlSK"( ddTLjYd d d d d dX d d d d d dZ d d d dd^d_dXd !p4d,d ,lpn l̪ l\l lҜ8kndvdR\̟dT̠dU dS  l 7 fܶTl l휫7ήnܓܤff dQZlΗ ET] "ll dY;lnTô l:dvΕn dlnl̒n l !F\d l8f|ܳ,lT dzdx l<Ψn l lܔ\哠l lϜ9kn l5n̪ AdRdvfT] "ldOdPnnTí "\Rd l 7nܬflfmQ TV̿ "ll lY;̋lΨfUTộ " l9ln d̓dv̔f̔nR$l d&T&dzX dx l̋8nܵ l\Rl l֜8|nܠlnTídOdPTVQ J f}f~ l lTÿ " ḑ8l nĄdv f̓ ll l?`kzn͡xn\Ylll\̻ !J̏ldR d ! TdhT  lOnPnm l l l l d  @ HH Ad d d d dd d hTÿ " d hhhʜ " Ȼ ThhT !" lhȞhȠ >\ⓠhh\ 1ȑlȐdhθddZdΫ  d d l 7 f|f}f~dd  3&ld !TlhT} !&AllT llTÿ !?ƌl l$ l \ϰ ̪l̬l\ ! ̧dΨ l d ll dܛ H dhddT  lTÿH $X h HTpTvhZh MhhTí dY:hnhh l̜!"T dllTÿ !hȳnȱf\ȩlȨl\H TpTv h h H#TpTvh\h\hB RJR3 2  d#h h hl!, Ad Ah  Hhhh˨ nƈnH TpTv h\ hREZUSKNPGTSWSEC_DENXUM^TSCKPM`@EFSTORCOMSEKCUNPTBL`SEKVITEXTREGh%COMREQCOMSEQzrVEMPSRT*MSYSDAY01SWAPARQIN PRO mASC ikRW kPIDR56 L18326JPT13 1SPL4 CLEAR SEEK9 CPTBL ,!MOVER DAYTO *kM1811TISMD #CPCHK h|MMALC _[CLINE ALVOL mBOPENF }3FLIST *uPORTS AUTON PWFOV moSPCEV4SETBNDh9BINASCCWLGT0 DCWLGT1(CNWAREJLLUV4*STLPV4nELNDISBLIKDUM}yJOBINDotFIXONE SMDACPeWRTBAKymCPTBLNTSCLLB`8INCRECTSLCUPeTSVFTN`!JOBENTVOLUSEOPENFLSYSCOP~gFMBRRNwMVCHARƒT15 ;PTNRELFMSWAPtSWAPONnv"TSUSCPgN7 MPDRIV ,N9 JAYERTO*fLVLSTRSCH n/GET S1860 LN4 IDR12 L18273IDR4 ECXIT FILE2 pCCPLU ^TODAY WCONT 5END0V4ZMMEF =DONE qCPDEF hKMMSIZ ESMD GETS YERTO *iNAMEV4MAUTFA oeI1811ZbMINT LOOP n}JPSWT pPUTS QSAV mmVINPV4oPUTZ }CDRDSMXMTEND1BMAXQUEALTDAITDFUNCFMSCOMt\SLICUPe ALCORELOADINp MBGNMONZLNRESPrPWFAILmN>TSRFTN`0TSBGIN`kNRERLE!TOTMIN*qFMCOMPtRSWPSEC1^FSLIMT(IPTMOTN!TSINTReEPORTSCONVERkSYUTILNXTVOL_  3&UTSTRT|L000 C18331uRENAM }!DELET }6BACK +TIMEC CHAIN fXMREL _wBREAK CABS lALLIN lTRVEC oDWADD UPTOD FMASK *tMMAT 1DINPUT SMDGD1COPYQ MSAV mnRENAMEDATFLGDDELETEQ8PKUPvENABLESEKDONGCPSENDREDRECSTMSV4VPOLCHKdMARKER|TIMSLC]XLDIXODPARTBLPRELODEFLISTNCMPRQoSMDGDRUTSPEC UNLOCK{CERROR#AMONTO*gINVINTBMPRRNfTSPMINenGETVIT*WKSPLU1`T16 l.INIPRT~TSCKMU`dWEXTSTKOVFVOLm*PTEOFVPTBSIZCCP +LOG bLOG1 {LOG2 MAKEQ FILE3 pMT50U0_MT50U1iS1811TgLUABS l9NFNR o&JKIN p AUTF9 o9XMMOD _NOG30AnAFILV4[ODEBUGwREDLABTSIOC2gMMREADuCKTHRDkMASERRXFDWSUB`/FDWMUIfMASDRVRPMASKkTERMCKNTSTASKZLOKFILPLENTH ALMERR(XMBLOKZTSOFFM1dWANTDRDENSWP^sONNXUC^pTSATTCePTYERRmTSACTVZCLRSKN*T0 kPT1 kPT2 kPONNXUM^wT4 kPQT6 kPLSTPRTT8 ZFMUTEXLTSUSRPSYSMSGK%LUNEQ UPDFCBTSNABLZTSMFLGZOFNXUC^TSPMCK`Z4WTREADeaATTACHeTSLLSBfTSXERRfPGMOUTf+uTSLICEfTSIOC1g!CPSET hCPADD hMONI iOT9 j XT18 j T19 j5SAVLU kbALTSUBlT14 l6NABS lyASAV m$NIPROCljVOLR mqOFVOL mICORE mT12 nCSWAPCKnSCHERRp*UNPIO oRECOV oPRORETpJBPROEoTRNVECoAUTFB o-COUTV4pU=OLDUMPpwCOBOP qFMCOMEtFMPPROtMMWRITu`LOKCHKvtINSLOKvCLFRIOwFMCOVLw}FMFSRCwPUTRECwGGETNXTyLOCKFL{FSHARE{GETZ }UPREC }REDUC }SMDCPSLNBRLINTPENDQUELBINHEXLUNQUE LINEUPLNDOWNTERESPPUT INITZEZCTERMLNSTATSCPADDR)yBSYEFS!CEFDTA"CMASEXT_RELBYQCMREQT6CTRMNL$I1811TIPTAM2KPTAM2PTERORPTREADPTRITEDECRECGETREC38PTADDRPTALRMPTMOVERECPUTYDBATOU<6 n4H)H$RD ((dh&Hhh ! HDh7Dd@XD (hT#Xx!hD (̀hdh`! XT#XWȽ!Ȱn`nnDnHH@  s=j+8f" bb bb b bb `  s"j@ a a2a>a  sn `  sg"HYHVB hTS HQaXI (ChT)X:!.@ HhH.h.H&h&*TŰ& Xh_f"bT)X D@d h hV h hP hLHGhFTpTv"h6h5\"h2: 5\h4\h3h)\h-\h,ŀ*`TŌTŰTź 6fbf b l `h!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a`HTpTv"h$   Ll H,h+TpTvh&\h%\h\h"?/hhTHyDl `L /! h? :#M@@']=@"m @abcdefghi jklmnopqr @ @ @ @ @ @ @s@t@u@v@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@ @ @ @ @ @ @0@1@2@3@4@5@6@7@8@9@ @ @ @ @ @ @ٞߞT /h. h,hh!4 A hHh h A hӨh  Јnh ÈnػػHTpTv h\h\h\ h\hHTpTv""hTvh  < 8(lY  3& ,T[ Tf+)~  3'=  3'$*TX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`XHXL X DXBhH(h'"H"X$ " hXHXh h h T`6@>T`"HhHXhX hXhhX~IhXhEX}"" hhX5XF hzl\X g h#dhh6 XXTf+Te>hTeΦ(!""  H``H"nnn L#Ts"@h hH nn  ! Lh`HTs+"wAH{:h Te>X} h\\h \ \ hlݦ h8nH TT h\h\h HM!"hG!d  3'8hFH5  j9 qTǨȧ4"T٧Ƨ*!vTŨ H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xz H$X% H X0 \ȵ" \` ȲX2whth \ h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӨ H"A HB0Fh  0X  00j qa! 1" hh! u  HTLD٨٨HHSYSTEM MESSAGE XXXX5 TT[T P SLITF $$ SYSVOL VEDITOR IN EDITOR OUT(  T[Tei+HI+lTd 56\e78\59\U59dJdKdL hup8rdM d4dBd%Cd^^d2_d[1`(dddd d*TId d>f} 1 d d>d\m? Bdv `dyTǣm~-- 10@ d Ts Ad'mTdm? l `l lλfܵ 1Tͣm- !\~=8 lhfܛ 1*gdd*hdd*fddTm -̣ ! d]TTeΩ (Bd(T +(CTTţm-e8\-\+.DTf+T H READY AUTO,TYPE,BASE,INCR,IDENT CHANGE,OSTR,NSTR,STRT,END,SCOL,ECOL,VETO CLEAR COMMAN CTAB DELETE,STRT,END 8EXIT GET,FN,R LINE,NMBR,TYPE LIST,STRT,END RESEQ,BASE,INCR SEARCH,STR,STRT,END,SCOL,ECOL SEQUEN,FN,R,N 9STAB,TYPE/N1,N2,...,N20 45( TTd Tea+3`e3 \\   4 *B0"Dj Ad`ddadbdc`d'd d.T$!H E @Ddc``bDdQadiodec  "c. `a2da2bcy Ts ]LRke"V"'"]Fd(d'UAUTO CHANGECLEAR COMMANCTAB DELETEEXIT GET LINE LIST RESEQ SEARCHSEQUENSTAB %<X/ѾD TT Ts  TT+fT+T+٪T 12345678901234567890123456789012345678901234567890123456789012345678901234567890)00000 1 123456789012345678901234567890123456789012345678901234567890123456789012345678904-.8?BNUV (H )TeTs  dZTd\UT' 0dXTc * #  l  dld)\  dW l #ٌlT# bdcddd̺ T=̭  dTdu&Ts Z T +H  ldO d1T'  dQ d8Od a %\ǬlT5-- 1 d>Κf 1d\  )dYhZlη ȄZdYTea+Z5YU\X  +T)Q\)% dPd$QhĬňl%h̼lTdK\^ ̣Ts ̜ll̗ d>nn 1\)HhȈdKHhȈdHhȄdLHlجȌdȄXdMȌd\5Q ȄZdY V lHnܝ 51Tea+ZU\\+Z%YU\ l} a\ ŌduAdR ζA d>α  dS= dTTf-ΗAl lӜ!ی lHd@nݤln 1̠" : 'y l̨ Al̤ δ Rέl4nΣΝl𬺌n?A  3'L> P18O an)* # dtT5-- 1 ldf 1dTs Td\UМ "lȄWlQ "0 u 1 d}\єUTea+UYU\   S\U  l " l̼ Q ȄZdYa 1T5`-- "\[d5T5- "#l*dT- 1 d>df 1dTs d'T  @ HH PAUSE TYPE CARRIAGE RETURN IF CHANGE IS OKOPERATION FINISHED...STRING NOT FOUND 5?U (&(T%eTs,  d$*d& h Ph hdk dZT ' > h %\ڰ+  lf 1\  dTc  # "ldT\  "l  ̦l\̶  #dl\̨  #d  l  l  T#b. d&$ "eӜ "e P"e  ed)T'  ٜ " d>4f (1 l [ ̸l d drdj1 ɜ . d."ll Pdsl Kl "lTd0. ddmdRTƘh *  di dkl T1ɜ ;lT 1\̺ 12h<%17l2d&3d'Z T +Tea+Z/3\ 4dT\+Z5TA\B 0 d>f4 (1T5-- 1 ldf 1dTs- d'& d >̲  \+363A\ l)( k T +7T HEDRS(  TTd-.eAT**-- *d Ts+ d't  dT l ,lTŔ- 1 d>df 1d\Ӳ, l\e23\43T T HTTd첛 d Id dGT H 2?O T<eTs eTc' k # 1Ud$d)\ [ 2ld& !> d1T Edq lT5-l- 1 d>df 1d\  8fO dt̵ (ܱ\ l ̩* 2TQdT HzLIKLM/  TT'  d` daT  d>df 1TTdHA%d lf} 1 dd dȷd lȯ!5 `dTǔ~-- 1!  dTsB G d,n 1\C 8ۤG ܛ\D -    ! d0  lTR dt'  \E TŔ-TdeLMT HB12345678901234567890123456789012345678901234567890123456789012345678901234567890T00000 1 12345678901234567890123456789012345678901234567890123456789012345678901234567890h -.8?BNUV ()H TeTsr Tdxy\UxyTc' Ք#4 ; d d \۴o d)T 0dX T=  du d1T8O a %\sT +{ 1_ Twd@d$ d>nn 1T)Hh6}Ȉ0d;Hh*Ȉ&dHhȈd<Hh٬ȈdȄXd=Ȍd0MS) !\)A\)% llAhl%hlTd;|w\|wd? dQ  dY  d>8n 51Tea+ U\\+%{YUx\} [\ ɌduAdR κA lζ  dS≠ dTTf(ΜAl lԜ!̠ lHdJ@nݤ}ln 1̡" : '8O 6 dad)* # dtnT5-- 1 d>df 1dTst 5[ wl l AdRۤ } dJ  3'`4nlnܳ P1T5-̣ 1 lΥnܠ 1̕l\u Tdxy\Uxy*) "lQ 2Q  \  u 1 d}\ϔUxyTea+UYUx\  j!\Uxy  l̽ " l̸ μ  dY d8OlT5-- 1 d>df 1dTst hT +{T+5x\+x dQ  l\+YUx\F*d\5`-̺ 2}̵~ F[d5T5-̣ "wlT-̔ 2 lΕnܐ 2̄l\v d'T  @ HH2? PAUSE (1TXeTs }dF dZd$*d&Tc' j#  !l\ Y llߜ !I؜ #lld) d1( ; T +FT -̺ !(\+5ȔdA̧ dB\+A̞ "ܛ lTea+ȷɷȑ \Ts T HnSCRATCXX$$ SYSVOL P8>?SWXYZ[\] R/***0(GET,,RTeTsz   dt dVdUԘTc' #  ll\   ll d$d)*d& d>}f^ 1TIdb ln 1 d ddTd)^dldm lf 1Tͤ)-- 1! d Ts| d'Tɤ)- 1l\츂 \)^^d2 `d5TǤ)~- &l\Ӹ}  dA dBadv d` l dT &) " U kTV hZld[d\ lI 5̹  l̳ ٬HhʬȈlԬHh̬Ȉd67hƬȈl̶TZ## !T)5]-- )d Ts~ 0aBVUl)2o\x \y TŤ)-vlTd5O 1[d5dRdSd>>\)5]-̲ !lT)^^-̢ '̟l\ \)-̕ '̒l\ \-- 1 ldf 1dTs{ Tɔe- 1 lnܤ 1l\币 T)~e- (d \Ը t 2Td d d d>έn 1d  l\ޣe d. d ,dTT H PAUSE OPERATION FINISHED...STRING NOT FOUND 25? (T/eTs d$*d& h Ph dZT ' *> dm 1QTc *# ldT\ * "l  ̿l !(\ * dl\̸ * #d  l &Ts  lfܙ 1$d) dl( uT& !m d>4f (1 l d 1 Ӝ , d.̛ 2̘l Pdsl Kl 9dR̕ #lTƘh "ܪ lZ T +Tea+Z \ 2\+ZA\ ll \ܥ+T HKLMNU-/  /***TT'  d` daT  d>df 1T Tc #dWTd>4%d lf} 1 d dȣd lț!> `dTǔ~-- 1)  $dTs5 l\eBC d,Θn 1\6 Ӥ= >\ݼ7    \ͼ;  ! d0  l dd)W  llD1d d d \: d'TŔ-T5`pp /E dTs8 T)52 r[ o 13FG̡  l%̛ !̭IHh̤HȈl̦Hh̞Ȉ d67h̘ȈlhZۈld[d\ )l* "lT5pp )dTs9 gaLhd lTT Hu9 *TD.d9db !OT#' OHd Z6H 1<٘|v  3't7Ԙ2l ,l ddSTc *#f 1 l  & 1 Ts֕ ̫HdXT=T HTZTdPJH\5LHT HQ TTZ*K "p!" d|d}TmP-- 1 d Ts^-d'TdPMa dO dolT HhDHBX)X-h9X*h7 h3h5`3 FZ9h/,*QH :1 !"h!#h `l d d Ts d'-T$ !. Ad!  lHl  lT HTQ d1)d5 !lT' 8O   ld*T HNTT' @8O )& 11 ddT5-- 1 d>df 1dTsU l52 T HT)p4Kd" d7,d$4d6TêT H2 T#Tdbʿ !D Tsɕ d'8 l d>T$ !-  l'  Ad,an A lnln 1T H1 TTde)* !_ S l d>T$ !O  A  :  3 ~!/ !+ ר Ad,dn lA lṉl쌬nܷ 1Ts( d'T H2300TcTd\ d# "^ S l d>T$ !5 / 9"X "X X Ad!ਸ਼ n h n 1W l d"l Al̼ ܨ1֨d3Ф$ɤHl Ad פ n hn l> l 1T# Ts \ d'T HD2T d/d0 # l1 % lT$  l  !l  l 3   lTsh d'T H25;<=T Td (Ts d'P  lT$ !  _3 $\ df d>\  $\ ɜ  4\ ̽f 1\̲ :̯  l\ T H00 9hTd&'  0/l, (dh -l h 0p8(hҘ 0hA hͨ  @m @mp8hȳ h !@HHTTh\ h h hTê7O À dPdM;O À dD d=d< d"d!P n # ndC $ll 2l lB$K d:Q  n d|γd}̠n̿n n 1OhTm-- -d Ts— šd'7o !<ČdTOdΗd̸OhTdK–dS!l̦OhTm•- &̽› lnfP d̻d:OhTm-̜ &̙œ PB$KM l6d; $1 n  fQ7dOdNd8T H-67T= dGX  ;   Tsð d'h lT l`   l) -  d d \ï  l   l̴  l̯  l̪  l̥  l̠  dGX  l  l  l Tsñ TT Hq)+0K'5<BK (+.47:K!#&(+-025K#*4;K!+16<K &-K KTG (dS d>dTAf 1T H-NY( /***0TR d d1 d` daT5`pp 1  d>df 1dTs d'Md@  l4 (1 d?" ( dA2 ޔ[ >  3'M 18є̔  l' #μHd5HhίȈd6HhȈdYlZl[lT)' |̾ )l/d d d Ts ^* "lTa8fO?gp $Td5  1;[l dRdSd>!'T5-- 1 d,df 1d\ d5 dT H+ZTƘ dhRh.dim  &" ll d>!T$ ! d ; lT HΗTm ) d>!"r AdT `m h ՈnjhlT  @HHδT1i dSj !;d>!4 AdRr AdT  dHl Ȍn h nʤ%T H$5X%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` HM!"hG!dhFH5  j9 qT 4"Tđ*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xe H$X%x H X0 \ȵ" \` ȲX2whth \ h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӒx H"A HB0Fh  0Xx  00j qa! 1" hh! u  HTLDĒĒHHSYSTEM MESSAGE XXXXX6H "(h%h THf@5= "& ^SMCMONSMCEDTSMCSRTSMCIMGSMCFMGh h h h! 9hhh$ h hhh h+ *hhT H HTAT 5$$PGMNAM$$ SYSVOL SMCMONSMCEDTSMCSRTSMCIMGSMCFMGZ  3'Ϊ  3'*MICLEN+SMTSIMLMTSIMBAITOSDATSEP/TSTLOC1ZPRTCDR1\qR9TAPF1_vR9SEGF1_LRGUSR1aRQLLIM1bSRQULIM1cRETIME1iFILOAD1nQPASWD1oWKSTAT1sRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX3TSPORT1TSPEND7TSUSER7TSUENDLRTABLFMMOSFFMFCBS!FMMOIF5FMFCBI#cBPROPROTECJPLOAD#JCRDV48JPSTV4FRCOVERiBRKPT p2SYSSEGgMIPRO MNTCHKJDISMNTlAUTOBTKICKOFCALLCPCPLOOKTRMLUPTAPSETRESLABSMDCFGCPAREASTRBASMSIZV4MAXSECkSYSID tUBPROTUSE REZCUSKNPGTSWSEC_fDENXUM^TSCKPM`@EFSTORSYSMSG^UNPTBL`EXTREGh%COMREQCOMSEQzrEMPSRT*MSYSDAY01SWAPARQIN CWSEC1/BUSY 9FMPL16UCTABL"FMPL18FSELFLGHMAXCOPVLOBDTBDISABLAABSREDsBATCLUoFMPFLGSKALNDJBCNCLp UNPIOFoREDUCE'COMFILePGMINTeTSULBF[*SYFAILCSTATSFMEXECr7OFNSWP^IDUMMYRESTORbBFWRIT4CNTTBL*xCOMPRQoONNSWP^~TSREADR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ADEV uTHDS REQXT iR9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 PBAT01'READRCxINTXUNPSRTWRITERFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#ECXIT FILE2 pCCPLU ^WCONT 5END0V4ZMMEF =DONE qCPDEF hKI1811TESMD GETS YERTO *iNAMEV4MAUTFA o I1811ZbMINT LOOP n}MJPSWT pPUTS QSAV mmUPDFCBTSMFLGZOFNXUC^xTSPMCK`ZATTACHeTSLLSBfTSXERRfPGMOUTf+9TSLICEf(CPSET hRMONI iOT18 j T19 jSAVLU kbALTSUBlT14 lVOLR m OFVOL mICORE mT12 n SWAPCKn`NCMPRQoOUNPIO oRECOV oPRORETpTRNVECouAUTFB oCOUTV4pUOLDUMPpwCOBOP qFMCOMEtFMPPROtMMWRITuLOKCHKvtINSLOKvFMCOVLw}FMFSRCwWPUTRECwGETNFMPA02XMRSV _)LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlASAV m$FMPL01K65CORFMPL03vFMPL04%FMPL052SAVLABRELFLE FMPL08FMPL09DUMMY1 XDUMMY2UNPEND-BCLOSFRELS1AoTCOMPLREAREQ\3TSCHANf"PTERCDMCLOSFLSTRLEN-TSATCH]PGLUNTeSYSLVL49MMAMAX1COPHOSTCLRTCU~CNTWAR*wCYLTRKGTNXUM  3(^PTVRDYS1827 LIKDUM}yJOBINDoFIXONESMDACPeGWRTBAKy CPTBLNTSCLLB`8INCRECTSLCUPeTSVFTN`!JOBENT+VOLUSE.OPENFL SYSCOP~FMBRRNwT15 PTNRELFMSWAPtSWAPONnvTSUSCPgnN7 MPDRIV N9 AYERTO*fLVLSTRPRO mASC ikRW kPIDR56 L18326JPT13 1SPL4 CLEAR $SEEK9 CPTBL ,!COMM18wJBCNFGp!CREATE&MRECADz&DATFMTREMLOKvKDCLOCKdCKUADRuNSTACKSMDAERREADRX}PTCLRB6TMRTHDVERIFYCDUMMYSECTORQCOUNT!ETRMNLsUNPTIMoN14 QMDSRT EN0V43CC CTEMLUREDR CLSFLOPNFLxUPFCBSYMSGREDR IPUS OPNFL=GES GEFCB DEETECRATE CLSFLQFMASK *t?MMAT 1DINPUT SMDGD1COPYQ MSAV mnRENAMEDATFLGDELETE"ENABLELSEKDONGCPSENDSCHERRp*}STMSV4VPOLCHKNIPROClTIMSLC]XTSNABLZPARTBLmPTRITEEFLISTSMCLNKSMDGNUMLU !DSORT JPRET1p"CARDRDl'MESAGE2GETFCBJLGOV4?SMDCPAFU2INITFMUFCBw3SMDCPGZVOLENDOUTPV4DELRECzLUNAMEONTIME1kMICSECDENXUC^oEFCOVL#rJPRENp#4ABSPARuvaUPDREC EXPIR %$#B"! H8G= (J,b} X"rE | : ICC:27XLOADhHX=*Z*%CL **DSORT Zg]92ECUQ6[0123456789ABCDEFnLU7Biv%=W*9'd@7*LU`%:5>CLSFLQFMPA19FMPL192FMSAVASTRSECSTRLEN-DATBASSWAPAR  3( B* @`@t*Rw_˂Fb{^ X07@`7 T@+oO @C H? ?`a A4a9 a: a>afae/]    T AA e" !14;E+H kAYd P e #D asAtthT` + ‘s hiheXaeAfa aoma/y Aa-X 4-Th `efTp#va 10Q6 X2X af (X E XP aa9 XI1**E*T a 3 Q6X aX ENTRY POINT TABLE - Xg X ***COM Q^ X ***DAT Q^lRA A. a a }|0Cda- c A: a a a .. a.ѐv aH- 4|a h- Xg! X`QZ 4XYn  43b4b A9 "X 9"9XX X  (&$" (cB aaaXB0A B(aa?*PAGE E *PAGE6htsH h >??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L hh(bbll f$ |Hl2hBh1  !"X.ClAhڈhX#՘hXElXAl  hX ?lغȻ hصشȱ Alج h & #  H \,,XX  H a* f XhLhoXhjdhqeXXh:X6  F C _*)(  O  I F0HX hhHeX XeX~:h X?l -X5l  !MT zF"T ̠ =h=Ƞh5ah3 hȸ "0(hhH#!h h.-tT A/2f AbȔ hX l aa T IrAsBHbbNqdb!d AaJ aa h2 8!b  4 B8(a a $ !HB8( a6b )5!D5&  "5Xa <%&1a&&La%ض H B8 h % c h an C n HhTA.a"H hThmhX$T h$ hXlXlS hDh HhX" hX"h0H0bR h,hX2`XM hhhjXXXA AP hMh9R 4h4X)R  0D j  jB  `) hd  `ɷ)hh 4 "XXth!XthB ]JHgX` \FNF2OPKFSLXMh XN3 "0H~HXQRXXHhR g 'HXXX)* HXXHXXXXbXXX Hc h^XT T T , (VOLUME NAME) (ADDR/TAG)(F/D) (A/E) (A/D) (KEYCOL)(KEYCOLS) (OMIT/INCLUDE) (EQ/NE/LT/GT/LE/GE) ('HOLLERITH DATA')FNF2OPKFSLX|XXX 3 %`TThrRh^ 4hhYXOT T an XhH"GhTA @hX6n6g48H h' h%F(6!3hI hihh hT$ Ab5!R(@'7!m HA(h`(h( T B@)" h 5ȺT Tΰ7hhhd 2T&h h ahH HHȽ(qhhhN}C  8 n 3BnhDhddhc aHXmX{hhh2a7hhH5h'h&B15!5 aB0'hHBA% 8h B8(a&5X  ahlh(h'h//h11h1hhh#h"hh 2h \SMCSRT(ISMCIMG(PSMCFMG(UCPFILE(YFTN *YEXITF *YPAGCHK*YASCOPT*YPRGNAM*YPAGNBR*YDATE *YTIME *YFTN3A1*bFTN3A2*FTN3A3*FTN3A4+%FTN3A5+NFTN3B1}+q,e߈  3 (PXXnXX$XXS Fbd$h?B`Tl<31n48 h6),!R(@(&7"m!HAH` hT  `!TTBh XX; `Th ahH H(qΈhɈhȈhNC  9 n 3BnDhhDb%b&q h 4( ` !TT Hn8 aHXXhnX^5h*h) !'%hh 4!hhh b ` aah a=h%3\T("%Hh hB8H!VHHh 4  a dh`l_w hh#hh"h!h<h;2h @\XXX%XZU` TB`Tl<31n48 h6),!R(@(&7"m!HAH` hT 3`!TTh ahH H(qوhԈhӈhNC  8 n 3BnDhh aHXRX`h#\w5h3$ Aa53`ah8` h !0hh 4!h h$Hw l|` nX n`ahaaT  a hl/h1hhh2 hNhO!h2h \@ d p"L"VF6"`"j"t8"~"""  < um .u   !"@  ' 'f l b TA 'l l  'TT  h l T6:l   h l TFl   h l TRl    h l T[ l  5 h l T[ l 5! T h l TGfl T @ Da     `  hA@b b `*/f b`"f h$#`   f ` 0 f ؽ̼h ` ش `  f@  ( b  b  f @  !@  n!@ !@ i*@ i*@ @ @ @ d@$Tm dT!~}LQP@ h@T6     hEHEhA=hA : 7 DX-p d 0 d " z"6 d   ""&"DX z X d  zo  d %  "^dTi XY d  zADXI z6f H{"d60^ d VVk   - m  d"; T? bb H~h 4 4 W W W db0T _VVQ d "L b "hD>b)*71 b "h.) b)*  &h   b{  "  @ @!WCOPYRIGHT CONTROL DATA CORP. 1975,1976EyuFGDrUj\HWT A A @ @@ =}? HOST DOWN..] HOST UP..] HSԠDN.. ] HSԠUP.. ] HOST DOWN..] HOST UP..] 0123456789ABCDEF  =? =? _/?@  *WM] *ERR] * ] ȁȁ\  3 (x  ` p  T?    1234QAIM  * R 2 a : c B e J g Z i R k * j m< H&9?1I>Txx8Jo.r  3 (!!'!7 D  3 (  2  =@?@}`  c%sDkDDE EE5E@EEtt'~pp0ppp}pG "2$rG "2$rG "2$rG "2$rG "2$rG "2$r P0!g!g!h!k!z!{!!!!!!!!A@   ,@    @ $(! %(! %( 0%(,  p A p`p1ppI!yEpUPUQM0pM1]p}p} !!! ! ! ! ! ! ! U3U3U*3LpU3*Lp!W.E\ (1 LrDLrDL3C L3CFtD L3#L3#L2#L1#L1#L1#L1# 1FtD1 FqD, , FqDU,, FqD̵  3(@@ @!!h h h$ h( h, h0 h4 h8 h< b2d"3"wR taq " ! hn @HH2"h"hn @HH2"h"hn @HHhD#`," h#%#>wd#_2#9D#8T$#ahLwlǜ2#TD#ST$#a H hP"h hT #hhh hmw#wd$2##whl# 2#D$T #hfh hLD$إأȘ1 ##@# "&2h#Dq#b"&2d#c#d#f 3$ @$T$$ $ qlT$o$$ #i L#j h 2$@T $!hD$N fh hh HH hD$ZT!$P ! d$| !  HHH$D$,"D$T! h$$ HH "Ad% L2 ! l wR taq " ! $h bhǘÖ 2 ! h$ hȹn @HHH@ dh h%P "d&>Ll2%MD&@ jҰ%Mh h hĔ 1T_ȿ&5%hȳ l%ȭ("dh d&?2 ! lȖ" ! %؍T|%؉̣1("2%df% % n̨ l l% "Ldl D&@" An2% nܵ&>1 l&1̪ (" " ! ld" ! &.̏ lT &>d%̇("d%%L(" f@ dT!%% lT!%%T_L% n l 1 %r2h&W h&^D2h HHwhh" h" h 2& h&D& D&!j٘&Ȫ& h&Ȣh&ȝ& h&Ȗ& h&X&E&Ch& h&X&E&Dh& h&hț D&A'D'.T &n h d'-' % f1'L nh HH hȭ'9T' h٘'!D'GXhȒhrh% D'WXh hD%2D'eXd& d&&d&rd&% D'|Xd&D%2'D%2&nD' n' h' &2'T''Δ'n'T''/ LD&LL'06 hh'%h 1 ! h H 2(T)A!(T)B٘() n)#Ȱ (8D(4T)G)C)#hȞhrhD hh ! d)? ! (^T)D' ('' D(mT)G)E'%'D)@% n%(% D(T!T('('D(T!)#ΰd'̻d'rd'D d'd' ! lΕ ! Ѝ(T)F n%L%Φ n%Π)#% D(T!\')#'' D(T!E'D)@E nE)#E D)T!T(')#'!D)!T! LD'D'( 6   T aC@ )a a ){% )z%  b% D)xT!  1) )a a )% )% D)X) 15R  3()̻a a )% Τ)% D)X)  1D)d)T! hhh h)Vh" hh* h*& D*T   wh h h hT*) d)ȩ *9 ȟ *RȓhT )hfΧhT*) Ȇ**T*) wd*2**~% D*zT!)*)) D*T!)  ! *T$*  D))    TaC@ a n " ! a " ! > a +ف "a d*T"*++ d*T"a Aζ  n n Ϋa  " ! > AΚ n a    T aaa a C@ 2+J a+T d 2+T aA <" " A <" "A      a    T aaaC@ " ! a a T_   ! a  ! >        T aC@ abs",",T+,,a2 ! a,T+,,a" ! a " ! > a,  " !T,,d-8-bs"-"-Twhl-d-9T,<-:-9-;T,-;͘1T,<-< t-;- n @HH " ! bs"-s"-rT+--h2-kNT0-pT,<- u--s  H   T aaC@ " ! D "f d-T,a@a- T_.B-"&2 D-T% D-T-% D-Ta̳("ζaA   w , % D.Tbs".>".= A  ; ]a d.4T,<.[.\T,<.] u.\.>T.X.L D.X"&2 D.WT    T C@ .w " W  . f  ! a ,0 . D.T0+T aA A A n  a d.d.T-  . n 2.%D.T .f%h h  hT .hh hwh"/ZD/|hػLD/}s" XLL3"XL XȔ h "/Y hL .ðX.L. /äX.D/`T!.Θ Ð.n .,"l d. d.b r "0'"0&T .d. lwd.w d03/D04d.Ls" ö̆" L3"ë."   lҜ1"  .M /Ð.w ww" lDl  ! l̳  ! 0T/w.Ln.n0' L/~   T aaC@ " !wbs"0b"0a0b 0 " A Pn ba d0T0E D0a d0T!0" f g p0% D0Ta 0% D0Ta 0̞("A -d0 D0T-0d0T!   TC@ ad P <21" ta 1 d 1 ?1 ua1 an  3(11Xd B sa S11 d Nd19T,<1V1W1ST d T w1X1Yd1RT.^ =SUALRPORDIQIAUNOCPDPACDERECA*SUP INACT] *ALM INACT] *RPT INACT] *ORD INACT] *DIA INACT] *Q= SUP]*Q= ALM]*Q= RPT]*Q= ORD]*Q= DIA] *ERR] R . ! d2 / ! 1L 1 0 ! l 1 ! 1 1 81Z1"̾1 91"̹wl22 w   S n D2]ŸE1[ L" ”1` ! d2\΄  ! 2ML n HH =X6=2^ h  ! d3  ! 2X6>2_  ! l  ! 3gb s"3^"3P UwR taq 22T d ȧ "1oD2T 6?6@T.^ 1^2ȓd T3^T l1D2T 6?6AT.^ 1^3^ d M3^ l3^ xR uedl3^2_ xR uedRl3^ O3& ld >lw d A3^"d s!d u3^ll3^d33J pT056B = d ?l3^-HCL^rT! S3}lT S136@w" *ìd T.^ 1^ 2` 3 l3 Q3X3 R - T ! -0 *d ̻d T6? l T+6C6Bd1ZXd BdlN 2 ! d5 zΐ2 ! 3  . ! Nl / ! 47 4 ! l ]  ! 4 d l4! l 45T d Rnd S̒  ! d Q l̷4"1ZÉ ;4[ lL" T34 : ! d5̬Ӭ4 llT"56DlT S156@̩4D5 D4T!Ld T.^ 1^4T2 2 ! l̯ ! l 3 ! л 4 <24T,<6E v6B d P4T04L 4&2LT n&2Χd Rn4  3 @ d1\ >%΃ ! d5 l Ad5d2 ! 51]bs"5"5}T,<6C .6B l5T,<6E v6BT,<6C /6B l5 d ? l 5p l <25nT,<6E v6B d P5pT0 =,5{T056B =5 5̚lLd"5 >1\lw l 5T8 AD5d5T,<6C56B d B 5 lT+6E6Bd1[l85 E69̍25T,<6E6F6B̃25 sl5 ulT,<6E1[6B69 <d6T,<6E v6B d P69" ! d6<" ! 6$ ?d O 6 lT06926-T46964X69T,<6E r6B  =}7lwhhh hT*6K6O6Q6 26 ј26D6T 6JfhLn h6 hȳ1Ȭȫ HHT 6JhnȈh hX667-"‚lD7 ήhT"6K7+Twd6GT*6K66G7)d7wd 7$LD7" D7D7" ]Čw7+7-7KT$o86J6M7FF2 D7ET$o8 d n7̨66 wl" ! l ! 7w6L6I D7uT!6J67T$o8  L6 ll l 08 l   d6G2 ! d8 2 ! 7   bs"7"7d7d7d7d7 T$o8 8  0lT"88lT {88E d T.^ 6K8Lw l d6H88ܖlT"6Kl윊 ! 6G878 1l &2d6N&2 nT78&2n6MD8 lDl  ! l̳  ! Ќ8 l8"L̯D8"Mܣ 1L w6HT!6M6J  3( EP T$ l8T!6M6J\8d  78= h8 " !8 8T-z8 1   TC@  a *   T+) 9J9KD9d9T+) 9K a 2 ! a ؜ ! >M 9G d d   =   T aaC@ a  a9a A   "  = d9d9 a d9T+)9 a  1 = = *ERR SYS HLT] *ERR] * ] LIST EMPTY] SHSREHRSDRE1E2E3E4EQEAEIEMDPLHC C,EBRBBLDLDFEFBGBRLGLPDA b29" ! d:" ! h92 ! l" ! h H  d h h ^E " 2d>d:'>:D d9d ʈ ! l  ! :D l9¹lT"  :Z>: d9T 9>>ld" ! l 2 ! :  E D:T* 9:> 2:" f l̇b r ">"> F :T 9>>: l>: ll:T 9>>>E D:T9:9 l d>: -Mܖ1;! l;D;   lT+) >>D>9 n  1̿"̼  ! n ̱ ( > ;ET 9>>;H d >T9L >; d9 lL D> 쪖  L  = d T+) ?> n ;>>d հ; l>D> T+) ?>9T9 ;  d9 d>; -ð1;D;( lT+) >>n" ( >̢;̏l< ׸<̅ l̘l\ l\ <><; L   ! d _  ! d <4E d  T8> d9 " Ɛ ! d9l  ! Ѐ Зd> ٸlT9 l\ <{><("V  d9TS9 > l зl̽иl<܎̍("˜ ! l  ! Лl ! Бd9l9  ! Ѓ<>= "  lܙTG9 >  2 ! d> 2 ! =+D>   ! f =->>ٔ 2 ! l 2 ! =RT l MT+) ?>=T>> ؜2 ! lٜ2 ! =nT! =p>> 2 ! l " ! =T =T 9?>= "  d9 d9T"??d>=E D=T+) 9> l1 =>>2 ! l̹ " ! =̼(" lT"??l=ED>Λf̵ܰ1T =>> " ! l" ! Лl  " ! Бl" ! Љ>#>>'f W>2 ! d>2 ! >̹ d dRlT T+) ?> M L  >o >i>>mT >T+) ?>D>  / >>>T 9>>>&CXX||O ]  ! d> _  ! d> ^  ! >T,  *SYS HLT] *HLT XXXX]  T,?d? ^ " $T,Ӹ   =   TC@ a a 2 Nd Ca d "p0a d?T"@ a  2 ! a  " ! > d?T$@@T d @@a 2@@ a @= d@T$@@1A  3)AT fAa@:T! @ a 1 a aa 2Ώa d@Wd@YT @ d@md@n a d@oT+)@ a D@d@d@T+)@ a  2Θ " ! a  2 ! >  m aA a 2 1  2 ! a  " ! > @FT$@ @@ d@T.^ @T!  =  TC@T$A-A.A*T d T A/A0T9L 'T$A- A.A&dA#T.^ A*T!  =   T aC@ a " %2 ! a 2 ! A2 a A n ֐2A2  TA @dADATAATn   T C@ ' B aa a " 2 ! "2 ! 22 ! 2 b r "B"Bΐ2 ! a 2 ! aB2 ! aBΐ2 ! aB////  ! >B(" ab r "B"B (DBHDBITrBT9L 'd !T-'B !TBT?BT? BT@BT? B DBv DBwTr cBT-' d !BTA1 BBP#',<BBTB  B ,s "b r "B"BLlB̳lBslB3lBlB  2BTCBȹ "hBTCBTB ld  H  1 C0 "n% DCT  C, d nC. lCw bl 1C] TwCGCKȺbȸw ww C[ lCwCiȡ lCwhCthȎb h DCC  h 1 C% DCTC hC DC "fC 1C wC hCnw wCC hCn Ȥ HTDD d d TBDDTBD T& hd DHDDmlw" D D<!lDF 'Ew d TDnD^ D^ *l D^lTDoDoL* ! -0  h h," hDDldDwd"DhhD d T$D D Al - T8 nD d D  T  ! dDLw"   ! DTE T {DTDk  ,QDDE ,Q -QT$ l -0 *d   d T$E  TC h nE1  !EU  d T9E9 TC h Tif TE{EG *d T$E| E}EqTC Eo,"E T.^ nEx !EU TE{   hE j 1w HTFFAhDU F b r "F"F A  A  A    E EXFT6FE  EE Ew/Fv dE wȅ2F  F  XFT6FEFTFF0MF dEE~ dEFdwR taq 2FZb r "FX"FS  FX  FX  FXFcFc  Fܽ 1   2F 2F 2F   2FF F  TEF dE dE dET6FEDw/F wE    2FTFFv dFhFhT9F  "F "FhFhG"GhGh@dTT_ GTS͐ ! dGi G9 " lG3TGjG9 d TGḵ G@ ȡGI dP Г wճ w "l w("wL w("lDd r w("l w("wl\NlPT d q lL fܓ 1 ULP,-L-,l,wl\^lPP,dPwdMw("DPw-DPb L씺-DL,- L,-wL,-Lb d w w-f -  - - MB - ,DMK b L, - 2 ! dP2 ! M DPPLlwP-wL,-,wd s-AbM, "L,ML-ML, 2 ! -ML,w-wM-w bP,d },wd xL,- TKndP,l,wlPDP,- U\~lP -LdPN/ ,"  d snLl۰N L DP,퀳L,Ы wNbwlNe wlNp ̸̴AbPNLPDP]wL b wLdP-wLP,-,d },wd x TKdP,l,wlL,- \lP, l,w l\  EU d O% - ! ``O d OP ld ,E ,  3), bO* `llTx P" lPP, d },w d xTK UOT   Ul `Tx P" dP, l,w l\ OE DOT!  lPO Ew m! m  wճ "mDP n bOTPlP d }d xLwPD "Lw"GDP rb r "PD"PBDP,1L,L,w- lPDL1Lӷ-sL쑯Ls-3L-L,-PL,- lPD zd vMEw yfb r "P"PPP }Pf lP 2Po lP rb r "P"P 2P lP 2P lP P 2P lP 9 zd xL“PE ܉̡PLƒTKdP7X*^ DJK  d# TRͰRD "  "  d DU Q2 Q2 l  ! dR`QD " dd td s t s mlDRlwl2Q Ql nL," l̫L," DQ,"DQT!̮lQ,"DQT! E` Q `Ub r "R"R Q d d ̚d lp`PЊ@ŐPE@ p`0L "lDb r "R("R&0Ű Š@ R(0PR(D "fR DRİRU DR,dR,RUd TP R R` d DU d Ew m! m ЋRw lRUlw! m lRUl lRjR d T_ lR̃d D "΀d T6R lQ d P 0d h bSvhSrTSRDU b 5r "Sn"SjT\SSnT\SSn 5UTSSnD " @ ! dS ldS d ! Sf  `  dR dRd d U S`TSSfTS dRT_Sn R l 2R dRSNdR lS%2SS S " DS  U̿DS%2b `TS lܬ1l̙S" 0d R "  MU w w `TT"  @d hTh hT%T%" TZTX TXXTDT,TuDT, -,TuX찆T쐀T " L%SDT mUDT-Lw-w `TT" T S2T1dST$@d T TUoUf bs"Uf"Ua UfD wDf wĴwT6UpTUf d vUH " U>  UG  1UfŴf řUfq2Z TTW] DW\ 2  TW^U  ! dW[ w ! U  ! l" ! U dRUdR2Ud cU l .wTW_ Ew dwdT6W`WKḓUVW@Vd E DVTCbs"V"V2VȎd2VoE DV7ThWa2VU̕VN l /Ew TW_ VxVm  "Vj   wUVm  wVdR    wE DVThWbW_V  wVVVpW>E DVThWaA  3)@2V  wWKdR$d E DVThWcE DV," "DVThWd   < wDW\lw" dUqsb r "W>"W6E DW ThWbWeW>L," W+E DW&ThWbWfW4E DW1ThWbWgW> WK$d T Ur PHlX  D[ 2   w 2Wd E DWTh[2WE DWTh[[WT[DW2W"Wd  2WE DWTh[ W !EwdT6[E DWTh[[X[ w  wbs"["[XX#X! < w  [ȠdDXS2X: "w2XC #w2XL $wlT6[2X}  lXnE DXiT\   "X}% DX|T[DXD[,QXXE DX,"DXT!XD[,Q -Q 2XYXX1b r "Y"YLlwX  wX 1d T[YXXY XXY"[E DY Th[ " ! d[ " ! Y>E DY(Th[[ %EwddT6[ZM cYM l /wT[b r "Yj"Yc dWkYj lYjldlT$[WkdWild ! l󸻸YYT  YD[dWjD[ ̰ldYLT lLn ̑ldZ4LLlw wE DYTh[@dRE DZ," "DZTh[   < wE DZ'Th[E DZ/Th[[ZM    wE DZ@Th[E DZHTh[[X[DZZZbZ` < w  [șd[I2ZD[ ZLD[dWjT l LnE DZTh[   < w@dR [G"ZdR[G ,ZL L΋D[̗L "bL [L ndWj  l[-T\Wj   "[<% D[;T[d d T[[QȁdR2[2[c 'Ew[q2[n (w[q )wdT6[d[D[D[ "fL("bL X[>Q DWhWlP ( `lXH h\d\Llwd h " &2hhn @H jh\GT\K\& h\FD "l d\JD d\F h d"? d"9T^7 A\LB\M"6\d       E Nd ":d T\"̘ _^ @l̏ ^<@EJZair|_^;" HlD` _̅_ MdR dR __    _M"6w_H__M w l d":   _|d^<d^=X d"<A^<B^=^>_^>d d  T___ _ _ _ " ! d_ ___0 ^? "5  dRn @H "5  dn @H "5 MdRn @H "5 Mdn @H "5 MdRn @H "5 Mdn @H "5  M n @ "5  N     n @"5  ` EDa` DM%D`TJ~  H `b r "b-"b'D@"9a%b\aF2a0aDa;aD`aDb-b-2aD"7"DbwPaba@aoVaa{aaa0aa aab\aD@"9aaaaȁa`aȂb-b-@aa2aaaa`aVab\ b% DbT$fb-b-̤a bb-bbJb-̓2b#b\b%b-b-- Dbw,bT`=r2qLT`=r  pXT`=rT]rrrT`=r qe  \r\r DrDrw" ]dj^bs"q"qTnVjjq\jjq\jjq\jjqTlKrT\% DqT$rd Tg`rT]rrrD@"9qTkTkhrT]rrr drsdrTlrrq\jjq\jjq\jjq\jjq\jjq zQQV[`e Dr llwd2rr|E DrTlT]rrrrFTkD ":rFTlrrT]rrr@r?\ rFrQ2rvTlKrTm;r drsdrTlrrrlT`=r\r  \rqT`=rT`~r  \rpX ne` P  <             sT r DrTs=T\ 2s DsTs=s,w wwsw DsTs=T\ 2s, Ds+Ts= H  ! ds  ! s Ts3shscshhTw" hs  ! lsœ ! lT\s>dsT\ d " ! бssȠh" F2h"F2nsTjT sATC s Lw ww"Mhss3sw"  s l  Lw"MhstTs3t+TgT$t,   th hdtt2thht[hhh2Dt%2n2L%2n t̵t lt bT!t.t țؚ1h  3)t H tT h h fththh u h%2b%2Du" b Ȼtu ̹uȲluȭbu ȩh HTuu#TuDw " ! du 1duwd" ! u@Tuwb 1r "u"ub r "u"uT$u uT}M uT|n uh,"DuwT$uuud T$ lT}MuT|nuu uT|n uhT9uuT}- uT~uTuTuIPUUUDYY]] u  hh ! dv " ! u hv " bu hvMh ! l " ! v hvȷȳ" h " ! l " ! аv3 hvșh " ! lȑ " ! vGȄ" h ! lu  ! Ђl  ! dvu ! l " ! vv} lv b DvuEfu "l lu"  "   " ̥  T}-u uu ! dy dyd" ! v hx " b w hx lbd"w hx̎" hhh̅"  h w*ȫohw.ȥ`hȡhh " ! l ld" ! ДwgȂwS dvxvw\ lxvwe lxwv " ! dy " ! w lx " ! l o" ! w lxw dvDy, ! l,w ! w lxw lwl "ldvT$|{v||wT vdvw -Ew ud T|{|ju"  dv" ¿dvT'vvvxT!vv dvxxL l dyx" f1DyDu " b-sDy"lu-1,1x l̽ " 2 ! ll {xbܫ 2xlT|}x~̟("L m  w̍("b̂-Qv- v-w  2 ! dy dyd2 ! xyv-v-w dv bvx uf  $d T9|~vxn "xd ("DxTu"  "   "̼  MT}-u v "  b yV byCu̿" ̺"  ̴" T}-uyTT$|~u yTlT|~|~ys yl uf  "d T9|~TIuT$|~u  b (" bb r "y"yy% DyT9u" "  " T}-uu y b y Χn "lT9|~TIu  by n #lT9|~T$|~u y  by  by  y>>>Z>Z y]d ̹d T6|  H u" ! d{x ! l d{yd" ! lw ! zQX|{iDu " bs"{i"{e zqX|z bb r "z"z D{z%n  TIuX|z  dz T d fT z ||T}- z f  #d T9|~  b  z  bz  z  zKPK{i zTz|{ z  \|{  \| b { Ήn "lT9|~{TJ`u{i {\|{U {$\|{UuuD{z"  u w L" w   d d fd d T|{i {a  {c\|{ivT$|~u|j z" duLwl"  du̜" du̖"  dȕ" l̊"  Eû" w {X  ! d|y ! | ! l d|zd" ! {u"  "   "  T}-u|u{Tyz|  ! l  ! б| Tz| du|;u  ! lu !  3)|9|,Tv|7 |5Ty |7 l|; l|RT$|~u |PlT|~|~|j!d D3u-Tg |jlT|~|~ Du{{) @Lwh"   | 0|h|h|hb r "}"}T$}9|} h|Ĉ"D}8غ 1T}M|}!d d ȧd  TjT}l lȗl TjT,"D}T$}:};}|lT$ d}7T}M}7}2 })lT}9}9 L| -0 *d d TB}T HT$~~}jT~~~D  ! d~ d~d" ! }T~ j "  hhD  ]hwb ,r "~f"~c b  ! l н}~~h   b~f b  ! l Р}~~d}X  b~f }}% D}T9 D~!%~D}V("D~ T~l]d}Z ~E    d d T6~  b ~6  b~9  b ~C  ~~~a b ~[ ηf  "d T9~  b~a  bTJ`}V~f7T d}U D~uT}U}W~ mwT}-}U }[ *~h Q~T$F~~ Q  Qh  dC w dDT)*CD 1~  Հh~hXhXhX s 2 ! l l sd2 !  DE!% D TGΨd T d n d TjTl~D, QlT!C~n L~Dw  ! h dF n d  l d lTƸl " DTȸ " d ȯ(" d ȧ 1l 0ld T Z 0db " UT$DT d f l sd" ! l s " ! " D DT Dc  ȩd TC h s " nllpl s("`О9 !EU  έd d T9 " "dSwȄlTXl wl  ! wll "  3  wd ̼D(2lXܲ1 llXܢ 1̙  d d     TaC@ a  3   !A  2 D wadX!a  ! >  l b !K A !%  -D*T a a d" ! a  " ! G lI a a " ! a  ! f a  n  A ΦE  dT a a ܅   d! nA λ  n a  h! ! T h l! " DT!h ! d! ! l  ! "h ! dT$ԁլT hb r ""   D %b !nN  w   LEb ǀ LE %b LΫEb  L "  )wT݂ n @DD !hT hT ./T+)؂ڃ0/T+ւڃ1/hT+)؂ڃ2/ m ?h lT,3T,<4 t5T-'5lT,<4 u5n @HH=    TaC@st2 ! a T$١ d_T"a )=w T a a  w       A a ;ºd 2  0 a a   AA;¡{w  3)Þ ! a  ! >  T a % f a  dTx  T d E DT T.^ n H=   Taa a C@ a  d 2 ! A a ;   ! < "A A ;      VT,T,< t -d d T8T-'F ,n @HHH(10 *HALT     hD DfdL Ln d ?T,T,< thDT+)DT+)T-'TT?1n @ = g e;9a@TT  3)^  3)I  3)4VG@ H`@b2  &  `TGb b hTSb  ` @@  )P dmddud fd "d("d id("d hȽ("fس 1 Rd("hȢAhi`h `dbkdTǡ        n f b b blfb4 d2E  3*  3 * E@\ FNC@ 0 @6t# ]_#v ߛ#R G\5.B \ !0V X E5.BCߝ3_+ _t] A@]PV@ NZA@ $0V^`@ޚ ED%D I Jߜ8.E@%5]5.B\#'N"ޚ@Eޚ EZD^ߝ FߙU@Zu T8*ޜA\ 5 6ZVw ޜ\3 A] Z%`@'u Tv A\ZCZ q PD7V W^u ڇ%__v A\__ u__ t /_\ !\PV Z aߘ@X $ Z Z \ BT)_ Vp UXeX UTe f\ P5.B@_ t5 y\$W _ _[W$ZG%u.BޜAp : mGߜ 8.mߙ Aߚ:[ \ a $ ) @ߝߛ  \Z  ) A.6.v \( xNC'N x#0W Ө@ ^ t 7t# ]N Rp } @N$@[T N% @q ,!_+p ߝ#]W | ^_['Y$$N% @.v5 'ߟ0 &Sߟ q@xw#_U5o2Ө0\ &ߜ & \# uߛ3 V \ߟ ߟ ]M "p#!bY u nߘun0pq#*_ Nu#"վ*Q ^ !__t$ ] 5 6]Ө* * [5^  *W550q,ޜN =tX#* $]@> ݇%>ߟ >WT.7] $5]u  3!*05 %ߟݬn@ Nu #] 5@= <*]  XUM=_ .ŘN_5 ) Lߜ>.) O.>ߜ 8Oߜ@PP ?h5? 8]@ #ߜ@ =ߜT *ߞ$\W [ \W [ 8ߟ$@]%u _$Tu ߟ$$u ߟ$%u ߟ$P5 ]@ mߜT :ߞ$\W [  ] @ژ@<ޜ 9.*]  XUM Q_XؠP>J 4]] X7X6]X5X4X $D0NVD@q ޜZ HuX#_N!ߟ _T@_ X_ qLޘHP>T q_Cq<ޜZ HV t p,H.]6 Ә@-(]\ޜ Y1NM\ߞ0pߞ ZY0[^ %Hߝ ] pߞZq$p$H XؠJ  (^XX ^A4T5_ $_D5ޜ ZVq u<ޜg efq X ߞ ZiN0eT0@_ X_@Tq Lq__،^$$Afߟ .]vӘgX ]@ P>u#h#[^ 1P>NLP>\ T0_ X$_$NV$ޜ p ޝ_ XU,i_ j^@qt  oX],R oT ؄i eХ iT@ `k3 p ` o\# o([]P@lV@V `V_ []P ߟDpߜ > (wv4vߝ wT4 ?ߘ@b ct*tP>NqP>]6 W5T00_X $_DsV$pX#j__ _5@F$iT$^p$i$_$tT3@[= kp 33`@Z#r\  oҘs o0$0VT $NP>]6 W5T00ߞX $_DV$pޜ#lS8t  tS8X#@__ X],` li@ X#_^$hT$l)$p_,$X#_F$tX$7] 0hq$>TX#] P>ܶq_ P>hP>TTRVڇ"_dTڇ>VuV!66ڇVڇ*Vڇ!Vڇ!6ڇ6ڇ!6ڇ6c6oV6# V P>Z P>T0% T0%-5K-Up U5U-U_4B_XP>@_@X#L_܀EP>@ _@_$LXހEP>@ ߝ ߝ ]v0]^X !^X% ߘԘ s0ߘ@# ][%(@#Nwu X] 5 6ߜ i @T6ߜ q V @oX ⟝ \_N.@p@p\E vq&\P % (  _X#@n_]G @nRh 4^%T0 \ߝ+v ^+ٟ\Gqߞ%ߞ 0ܟ r bN1Nj bܵ5q5 ^_00\\ b_ $b^00\ ^vq5 \ %֘ >ܞ b@A֞ > A٘ =٘@=䟙P> f۟@G@B@B@i V ߜ #] 0^%pT6㭽 ^\ ߜ ߝ(\ߘ ֟ \.|Nj i( ߛ֟N.]@2] (] ,] :T\ m][%  ߜ q5 V ߚV Xޜ ՟ \X_,\Z%iX@wޜ  ޘ0 bD b_\ u#c =d4cߝ dTTޜ#9_T"_ <\ ^@@*V Z4_^X !^XE [ W@t =c  3"*Dچ>Z <ߝ u#d%49ߚ Z P> "hhhd d lp lT ld. T T  l̼  1# 1̴ Tc ḻ % " l̩ ̦ ̣ ̣ \̚ d!  $ 1̝ . \\ dl d"!7 132?A@BA@<987eonmlA@BA# dTW d:"d5TKToE T'% \  7 !4:! d  l lTi-TF. \Tۉ N@SmPlTuT?T] l d-\ l\TQTE dF d \  \ W K\M ν θK  αK T\̽ Q̹  l d@m d T̤ ̠ TF̚ .  l\ d̛  d d:9h,+h*5h)R a> R+ q )0dhh bh h h T`A n qH   >Dh}>w8 0` h !aH + _N ȯ "ج Q#uMrJF (jj AXBf ` h[ h. + X ` i k qYh|%.$&),% *N, 12 MON TH)Cb{ ^ OPT 0 `TeI k qY=hl TLΒ9 TLp&XADlYh h@h"1kl qߘX"%A hψhs    Hh3tȾh Ƚ  TLχ41 h d `3H  qX jA TL`G 5Tφ _0n hX hnX hkQh\hQ "p0STh &h ?@[\]^_Hh" "dL` 3#n 3#l` H s" Ժ hsHXhh`Xhhh HL#dh`H ! laal aaI`G]  3&*chGW "X bX 8L "HTӺ H'sLoAAdT|LZ3AaRy 'Lv T*a)RH%3I  aHQ A a"vR  2LaHH ALȾa `\ R1 [1 Q Aa !2!* *l hhhӕuhi f[G ߂M^@BPCE}GN HJzLLK@````hTTa"aaDa"a 1 aBa    @ 0BXiaa a ! AAA&dRARAa2H aaaaDaaaa aX X2bbbX~TAAAa *aAAidadada a ' dXX,#a! AaA! ! A! ! A! Aa AXa A! !  XÁ XAa! AXa""aaA Aa a  A 3A a s Aaa ca 1 mAa$a+Aaaa"#G a a a aaaa#a"aYX=X}#a 1  #0ad a  ! 1 3d   #2d A d ( 2adaa1 aDa1 bAa?ad A2aF ad2aa1 aa1 aDa1 aaaa#aa aa a A&RARAda 2H a a a a   ! aa aa a@ L bb@`" H)' a! :!( d2a! !( l 7'!"#%&:;<>?@[\]^_ $$   %%  hhhhhh h f) 1T. h2 !3 !?^ I e" ; 'lr '"h0 h l  lȝ" : '$9V" : '_(Y" ; '&(.>g.   l" ; 'e lZd,2d- .l3  lTڦl  gl̿  l l d0 3 " l l\1Ȍl l !s̙ h !`̲dBd[T̫ ̨ } d+̠  l̛d\ d7dV!&\̎ 2 2(f) n   l ln l̹  *d,̼llȌl\|l d3l ׽ T> l l d/ d. ! "ؑ^"ؑ ,l̻dRl D \_T2 "؜]  1 - 4 >̪ \> l l lLd- dV\Ϝ l\ l\̼  l̵l\̱ ̭ \̧l l\̠ ̜l\̘  l 23  2" $*l l TY9  d. d01  l !L4 fB$Xl`Lh<]h9A,5l # dTLh*h(@,$lLh h?,؈lӤ^lܬll " l̳ 5 l2 %6a$,l̙ 3i d0d l` Z B dVW lT "ؤ $!#̽  l d12̳ \̯  ll(֬ ll %l l  l̺ ̧ T XĀBd* d+0 $ !M 6dl5l?@݌l  lTҐ?5lld,   Tb\c1  d.dlZ lVel \b \f2  ll  l d0d- dVW lT J ll d̮ /U  ̡  l  l d1 .  ,ZdT{  3'*тTݗH H4 H3N#dlh-4R,"DPRLQ  `h#XlX H <$S h TڃځڂT 9p4Id82h, h`)dRm @HH H h h !#H  H"h! h h Ah @ m 5@06;; dh7h h h .j 1 h h 2j lh lT $  4  hÌ   1 6 -3Td-ȧḻ ȡ \ #3̽ / h ؘ 1\Ȅd*Ȅd+Ȅd,TтTݗHt HSNPhOT#"" n1fTfU*fV+fWP5KLl. 2 nB n n ,$$S,n %% -n/n *F,58$$%% hQh dNdM h  F  h lޜ dlTK" 8 % ؄Ph  l ̌dK bN *W +.  ~'dN ,, PNSIM OI K  F ̘dJ̔ۄLlv PlKQ dlTK ݕ̽PdQIE dd܍T#܍l dH l9 `ܷ nҔK \QLL" 8 % l̵NdR lO !Ll\̟d *\MM dT dM׌ dSdJ6 fSH)IH dhY ޕ hZl^D _ hhhdNTK @Um[l\ @m\l\ @m]l\ @mh ȕ ȑdhEh lTݜȇ ޕ̒ >̍dݤ̉dY@dݢ-ΌМ # dݡTݥdݣZ dݦl; dݧnӜl̜l 1ݠ 2 .!!dl    5 2\ݨ    8 5̭ \ݨ @ HH END'!"#%&:;<>?@[\]^_ C * $ . + O M PROGRAMSUBROUTINEFUNCTIONREALFUNCTIONINTEGERFUNCTIONBLOCKDATAMACRODOUBLEPRECISIONFUNCTIONQ8QNAMQ8QBDS&5>CZ  / `)( M09+ OONMON pqpr0"0# 060/K d hhhh hߡh TцET8ޡ ȰdddT#:ޡ;\:ޡ<\:ޡ6Ȓ $ df: $16l h ,d> l!Tڭd@  =ޢ 9 2" 8 %   lB + \CDT#CޢDO+" 8 %  ? ?̻" 9 %HoTޡޡE*̾ + dnܷ (1GQHn̪ +\CDܩ l+ d6 HlTڭd=ITeA l   Al̾ l 1 " 8 % &Jd9läKl l얶޶h+  1M"̮L""! +edc "T dENl+ +TeޡAOl̖  d5+d> 1W l f(ܥ 1 l d=Tڭ=d@ n̐ ܍ H1T)8 lf) 1TтTCޢD̾$:l dd!+ *   l+ IdPHdЬdQ d dR+ $ l\CPDޡd $Fd= l̸d@fܯ (1  6! ܔLHl l՜9T#:ޡ:/aĔS<9  3(*ÔJTжUT\ŤIl Te8A p  ldV dW d=Tڭ=d@ Z޾ X !M̪ T] l f( 1 ll !# H!\Wl  9 Z!(̿ !$ Z8̷ 5̴nܧT)8\) ܜ H1 1\   d5 ld=X# 7TY dBD d@(f) 1Tт$:dG  TCޢDO ld!O+ N* \Z nfP̴fQ lܫ l d^ l d̜!6Tڭ;l d>̢'  /1 d[ 0l̐ޥ  1T\ /l dTe;= l\;;3 6l\] d4{  ޡ  l9fܘ 1T#:ޡ;\:ޡ6" 9 &5 Zl\ lT F{d72ŤK^ĜÜT_ !2 !l  ld= df: $16  $l lc d4Te8A d3T\`R\a\H H4h3h2 /f q d `H"//Mm"m XHXd n  f q` B0FHB0F00 hh f q 'n/ q7 hyh f q hl #Cnh  1TLTH'- d* ` a(D+c )m ?mĜF --H+ 'fC qTF80TDhȬ`}OPTIONS RKPALMXOVCD:  l  l 6 l lT#HTThhh h h.7 d ;@ < =3Tۄ ,M Tۉ N@Sm T T lEn dlPn l @HH Ah  @m @m@HH TT h\h\h     1 :@ "L " T ` m   w !             /   .*   (    $ &  "%  #. !6 <C J ,P-U %% l'h d +d2hT #!3 1 #1h\ *ܘ!(Ռh h d7hǘ:\  lؾ l ̿ ج̺ ȧ h̳ Ƞ bț ;̧ 7\ $!* !"̚ 2dT   ld6\   l\ #1 ' d!X  l dTF-! .   ̺  l l lud̜ l d̡!\̚쨖v  lt  dܖlH TTh,h)Hj  &jn  &n 1*(h(ވl(h +(Ո,l l/.. B .h E  hj /1J-  OT2  ETA h p4Ch:h, ؽHhȽl  Te2ر ^1 ȫh ^6\ إ hȚdT# H 3h; "4h hC hhh B  )h h&TZ, RFTN3A0 h"j T#, AH <$S h TڃڂT 9p h  hXT[j AH  Hjjjhj hjj `8`j% `jʤhX"'hTʹʱh"ʕhXʬhʮʣ``ʦeʛ`ʗ H" T, 2  3)*\e? \_E \YK \SQ \MW \G] \Ac \;i \5o \/u \){ \# \ \ \ \  \H_ h T TH T T_ T  Th \Ac T T \/u \){ \# \ \ \ \  \a! )(*PX Y ,(-' @h hhTF. -   h\ 4T hh˘6 f  \\  \  ̵h hhM TۉNShAhK  K \Đ @mۄPn lJ #\! "N-  G  !T ffffl n lTF. \  S  \l dd4 ̪ \* 3 \'̙  9 !5  3\ 验df-  \̘ ̴ Q̯  {D % lT̬nܗ ̓    d d $\̰ dNTK@Umm! Sm d O Id $\z0  I T @mC \\ d- N @ HH& d-dd5d+d,T!0-*6/  l 0 -T"! ,1PONMLK\" ; (K Dܶ "\̯ l̮d4̩ "\* \  d7dT70 l l2 \(6/ %0 1  T,  \̷ A dHSh TZ$ hTF. S- S\ !N X$ hhd#!+ * Č " >dh h)nصض 1ӌl̼  dT ̳ 1 lȜlTP\̤ ̠  lO l\Q̥lTF +-4 1 Ho :TLW,  hhh dNSh $Lh"p8 hh Hhըh h h 'T l= TF * $. \ȶh "\jت- Ƞ  \ȕ @-h %Ž-܈DŽl @HH'!"#%&:;<>?@[\]^_,TTHt HSNPhOT""SUffU*fV+f,=50Ll[ 2 \nB2. n  hnh hh hhTF. - ؽT[ M TۉNSI 0@mK-  @mk K K \C K \οO κE \dή  T[l d f| 1 ddddNPdSIdlHk    l`笚d Um $Lh(p8% dlƬ Hll ldn l ܘb !- dddTdd d  d̞lTF. M TۉNSI 0@mK(  @mI T[K ̈́Pf| l̍ -  4\[̟ l  ll l dT2 TF̓d훎 \  * $. \[f}\ 1 ؞ !Ι !f~̚ \ 1 f- ̙ l l ̩ lܗ T[\̫    dddd̳d퓟x  3**  $d ,$퍌d$휜lnff l !) n d m l- eT2 ] \[ l̝l̩l 1̜l태 1̎d퇜 1   n"̖dll d dTF̧ .  * 2zl\ u u u T- Q l d d7T2   l\[ d dd(d /$?@[\]^_d2\؜5 hT2  h    l d7 h h\ T lx   ȿ  ػȻ1ȵlȴ h \9Tцo hn  ܨȤnhTe$5̘؛ 1 d!5T2(l /$Fl\$5ܚ lvl /#l\$5  l  El  $lHTThhh\hyHdAEFHI.)R$/X,(0 \ l3 l2l2l2l2hhhT7YX h     h h "! 'UTZdȽ d 1Ⱥ !" : ' hȣ裖G " ; '_zyw Z 1 ̷" 8 $ ̥" 8 $ " 8 $`["! 1umfvmxJmkGEvtf̧ d[ !g"! *[Z7XZ l ̵W  1@"! )F542F76>YUd dV m l d l l l lܿ l l ll l lьl l l l l̻h , l "Zl̲  ̠h $l ̑h $l̋Wl̊  l dXT7YXYU " d " dlV  l[ "| l$H!TThfhh?h\h_hF\h[h1\hWh\hTh3+QR e h! d%TF. ,TE-  [}\ \F!  3+*M P\G  CTu d_Tۉ N@Sm  @m@m 0@mׄPn̦ ̖ \F"\ @m̾nܱ B1̬ lD TH l\I @ HH_T d d!  l lT HJ&aT F \e? T \YK \SQ \MW \G] \Ac \;i \5o T T& Ta TT T TF \  \a NSIVhH  IH  h hH  I5  h@mϨ'h $Lh#p8 hh̽ ȵHhȲhhȭ  Ȩ&hȥ hإΤ ȗnl@:H HTTh-i؍Gg7 n hf hT #2"Rl "TFPNf-  yh   \ lT,M Tۉ0@Sm#  KI Ξ !O'h=E.8  ֬h,K((  @m̗ iTF- . T2ld+* ldNTKΛH  SI- I lI ,lf Tۄ҄PnM Tۉ @m*l3 )( !׌n l 1- 2 L lT/ >2 c  n 0\ '̩  NT  \0\ @SmEn nPf\1E  d*T̶  d) n̫ " d( #! nlTF. *n nܼܻj2  ḻ l @ HHM FTۄ T0TݗM Tۉ N@SmPn- T2 \ TDf l @HHNO3 3.3B h +Tۄ T/]M ENT ! \07Tۉ @SmYZh X  %\1؄P@^m̶  @m @m lTD̟ ]UG- \2̨n- T( ]̗f[ \ ]Nf].    B̴d3T2  Y@m 'f\ l\̸ aɄPn d4Z=ߌ d5n d̲ -  lTK @UmΕl\ N@m[l\ @mζl\ n̎l @ HH  d-dd5d+d,T 0-*6/  l 0 -Ti"! ,1PONMLK\i" ; (K Dܶ "\i̯ l̮d4̩ "\j* \i  d7dkT!0k l l2 \i(6/ %0 1  Tl,  \m̷ A dHS?T1 TH 0d- W, hhh dNSh $Lh"p8 hh Hhըh h h 'T5 l=TF * $. \7ȶh "\5jت- Ƞ  \9ȕ @-h/ %Ž-܈DŽ-l @HH! AaA! ! h# 2R h hhdN  nv hfTPh lTKTf)ˆh h hUH h ) fثتl  \ \ nζhȋ #Ȏdn dl\Οln ll $lmHeBPCE}H'!"#%&:;<>?@[\]^_`\T5 hT2  h    l d7 h h\ Tu lx   ȿ  ػȻ1ȵlȴ h \v9TцsY hX  ܨȤXhTe$5D؛ 1 dxs!5T0  3,+ 2(l /$0l\$5ܚ lvl /#l\$5  l  El  $lHTThhh\hyH AEFHI.)R$/X,(0 Ƚ  l3 l2l2l2l2hhhT!CB h     h h "! 'UT 5TȽ d 1Ⱥ !" : ' hȣ裖1 " ; '_zyw D 1 ̷" 8 $ ̥" 8 $ z" 8 $`["! 1umfvmxJmkGEvtf̧ dE !g"! *[Z7XD l ̵A  1@"! )F542F76>C?d| dz@ m l d{ l l l lܿ l l ll l lьl l l l l̻h , l "|Dl ̲  ̠h $~l ̑h $}l̋Al̊ | l dBT!CBC? " d " dzl@  lE "| l$H!TThfhh?h\h_hF\h[h1\hWh\hTh ̶ T( I n f f f! h@&e" e# e$ e% e& %e'Ee( e)NSK ( e*Pe+ l l- T0 @ HHl\  ̵l\̱ ̭ 0 hhh ld l h d d dP dR dS dT dnf d 5 2 l܌hf fdό h袎 l Ş7ܾ "TF 춞! !dNTKSI줆nlαlÜ =̕Ìd̐ dΕd d 3 "AΡd Z!\ l!$ߌ lӎl`Af̤md  ldRl  A̻  l d̮ S̤죆 lΛ 1 l   l l d l l lCd  l l l l{   d̿  l  fflld l!   , dm l " le l " llC "̹ l lĜ?̶ ḏlή ܖ nn̝ l 2 d 5 2 l " " 2̪n l쵆dnɖ !0d 4d, l d l 5Χ 2 lݎ錚lކ ḻ l̫dfQ̷ ̲ ̭ 򕌹 ll̳8ΘfNܺ F d B l̙  dnll̕l8nܬ ld dl6˜nl ll nS ldU  W2 dOd?QlN 4얮ldQ  l=d  n " ̵ l >l  ̵  d l ln̤dl ddH ! d<QdN n? dd l͜!4d !) nR l춞 ḻ l؜f 7ξnܬll̷ d l򚜛!>Ξl 칞!4̵ 1 n lQdl̖lܜ8nl̦9Nn̚l l l̸d ! Þ !̾l ll̤7λnܹ lܪ  dl7nܐdQ #l dO d d!QdΎ 5N ndRll  lۜ8l n l d l . *̻ & dUξd ̰l =αlη  n̠ ̟l̚l d?d !qn ld dd!  )dȚ  3-+ lln lΌlӜ l̯ ( dl6ʜn̳l l̴ܵl7θnܭl뜏nܺl̍dVl̐  dٌlQЄl l  l̯ lR d l d̟l̽ !(d"TFd:ln l9쌘lnلlӌn l̸  l l9Nn\̠ Q ll̒8nܩ̑l7nܜ #˔f dl ll dUdV dO l̑ V چldڜ7҄nl 1;̺ l l d 6ζ 3 d̮잆 h̥dl7Βnܶ d   d d dddd d= @ HH ENDd) ' d.TT; h hTڭ;h   H1 THV07 \e? \_E \YK \SQ \MW \G] \Ac \;i \5o \/u \){ \# \ \ \ T7 \+ &'-,--)*/>VV"%&: ?[   0 --  h f 1 ddhhh dTF/  d.-  /! w   HT fN fO d ) " \"AhNSKd !̴  `̦ ̣ ܼ nlldq n̮ 4H\& "TTF/  d l.  ? ll l- lM ΓK NSh-A)  K T @ml fNܑ̝ !\ԄPnC  fMd̦ <κ 6αId*!      lΙH  SI  l6dn 3Td NIlI ] ]rId je dλId 2|αIlQ̻ 2̶ 2\l - ΍ d d - d& "TfNl"! 1J 4765432VU`_qR   1 l 7 #T "\ \'!  \:   dT( "T h3 ld  l &̫ 8̨  2\ l ̯ yTF. -  ~d l 6 2 !FMdNTKS d̼ !  T\̺ ̵ l\ fNl̯ d& "T fOܢܡ̨ b̩ bbd0 n܋   l d d 8  2\l\ n n  dl l  ln ! nNl n̿ $ ! fO  n̥ # n nܴ n ̗  ̔   ! dT -    n/ .. &M TۉNPG SK  @mK T̹ *̵ : \f fNU  @m  \u?Մd dd d n fO l̗fMg"dM Tۉ nNSI . 0@m d " 8 $&"Gl" 8 $7TxIdNdl- l l+ \* U d d lT2 '    llŖ  N@Sm d\   l   l 1Y  3.+4 @mTN n:K "W- \   nՄdΘK  nd n'l-d~lff l , 1&̥!*dl. +dl ,dlTݗ fL̞  l llM !Tۉ N@Sm  @m @m #fN19dG e- lȤ K    T nΣK ޵lΰd   "NS K K A K 1ଔ \ @m\ @ HH A! ! A! Aa AXa A$$Nh h j 1SIh!      hH  I  hרh hȻ!# $Lhp8 hhȧ ȧHhȤ hfFؖ hdNOfI 1 dMTF/ .  #TU- fS k z ~* \UYM TۉNSIT 0@mKC  n I K, \UτPf@̤  l̟ ̜ TF/ .  ̡SfC*dn ly- UTU \  C 3 `I,m\̼ D\U̿ OfNdVM& "T̩ ̥ ̡nG ̓ : H E l̳ F lL,,lK,l,,؄D,d* dQ dN@  1  l I  1 6fN!dV  -ABCfOdNTK nSCT  nMJ̣ ̞ n d& "T n fP̱ lίdQ dN@ xΑ IId* d+Wd, #n܍Ϝ !\TݗM Tۉ @m m̌PfNdV n d !\ fO nΪdNTKSCT  n d& "Tΐn fP fQ̿ lN 2q fL fM̮MnQ n @ HHGl!dl' 20 ˡ0   dddd ddlh n d& "Tf lh h j 1ȾhNdΜ 2^ !G hah !쾞"  " h d쪎  d " 8 %i 1 Qlo liO !O̦ u̡ | / N T $& 2Tf ldP   dad  !̠ l  aalε β   d lll llOdΗ  l d  )Υ   ,dl ,l lN ;ܬܫ ll dܠܟ̞ 1  !  l zd "l 7ε  n d& "T f f f! lΗn d !\̳`On !N6  "1PnܶȜ !\ 3 /  Qnܘ̪ !\  Rn& "T ldnd !dNTK bU b bT" @m lb? d  l 2 ld̗f d$\#  " l l l a ] p̰  l   !dNTK Um  @m  h T"d d llܸ>̶ l: l7Ad   lw lsAl         3/+Hl " ln̯ d& "T f f f!̜ l|l ̾ P  fNn n l fO2NUm  @m  T" d $ !T       l f"d& "T5$f lU l%n9&n̿ "/ fN ld!̟@m| le(̐   $'nκ(nṇ l  lnl d !\nܻܺ ! ld) d {n̗ ln l l̒n̏ff} l l fy̽ l̺l d& "T̯`lnҤ*l !? dN  !l K G n  ? ; lܭo f{| ldd^dJd)ll    n   n lT+\, @ HH l0d \e? \_E \YK \SQ \MW \G] Td \;i \5o \/u \){ T \ \ \ \  \NO3 h +Tۄ TM ENT ! \7Tۉ @SmYZh X  %\؄P@^m̶  @m @m lTD̟ UG \̨n- T ̗f[ \ Nf]    ̴dT2  Y@m 'f\ l\̸ aɄPn dZ=ߌ dn d̲ -  lTK @UmΕl\ N@m[l\ @mζl\ n̎l @ HH?T1 TH!+!+!+!)."Hq)/$$*S @>#.O @ dddhdhhdhhh d;#d<!  8 l l ln n nf(f+f.f1 f2 %f)f,+f"Ef-TF- . &T" n l f n n?n n f$ f% f& f' n n̓ l n %nn̈ l #ddJ̺    l̉ l"d̡    l f9 #f: d*d+ d,TݗM TۉNPf;T d " n  ff ̕nn̐ Ռn l l܏h\-  " t f/̳f0s d̓ l %dLd̫d\ o l %l_lTF f) %f* f, %f-Ef. f5 f6̯ . o f# f f$ f% f& f' n n n n n n f(' l %n*n-  n n n n n n n n n n n d d d  lTۄ M oTۉ N@SmtlTF. o \ @m0mKd %T" @mĤ ξI \5̗ l̙ ̔ l f dΥH  ΚI  lNΑI  lf dPf- o dTF .  d  d"̵ l̲ l h)h'h$h!hhhɈ fd6dl̺   T" d(-  d d! ld# d$ d% d&0d'"l dTF .  oM Tۉ0N@Sm Kd $\" @m dH  I  lI  l- & 2o l  30+\T2 \  o̒ ody   o\   dTF̶ ̳ o. od#d$  l  ld% d!˔ A d d"d̻dl d7d̳!T2  lTe&2 l\& d\& d dNS d d  $Llp< dl Hlll l d+ d, lϜ! ̋ lڄ dd*TݗM Tۉ̯Pf l 21d#d$  l  ld% l dl d7l!T2 ̤ lTe&2ܛܲ l\&̒ d\&l Al l!̔ $ d ddn 1 , l\& , l\& ,l\& d! d"̼ d"d)d̵d l 1KYZlX  %T @^m m (l,m'e[e]e\ lҜ;͌ dn܋ l̿lwl[ d dTޙ̙l d dl2dT #1      l T j o (d! l̤ lT̿l l +d-d "dl "TEd l dh ldl.d=d>0d? lT  l l\̧dllll;lΫO ? T@ΜBd9 dA<  l  l  l  4 nG܀hT\C n  n3,dD $LhNp8 dEl HlFl;l좞 ! 윞 "SH8  IB I < nI `, mE& TdG 1NlTK dHνdIdD dJ?~E dK.lNΞH ̠ ΖI SI lIB ,lΕn؄P ldLdMlɔ 1E l̻dAγ  ̴`ͮff̩ lΡ  nܞ̝nϜ 7 nl̐l dN< =ܹܺ ! n̮lT  lldO  lMΪΞ  ldP A  `Lfɜf l n n l ` d9dQ dRО /`lm̥nlm̟nܼܽ  lκ Ԝ γ l d= dSdTld!% dNTKSEl   lAԞn ̔ l dU̐dJd" l\EdHO8dG   ļdVd!μ  θl\@m ̾@m̺ dIS ' Ü ̾ ̦hT TW fON@Smlld=!< 4JĞ 콞 "lTKO8 G ހh\(̟h\\W n̔  E9dQM " dldA dXΖ <  3l-Af f dOld!dN\@Um  !1l̲ܳ 11 ܧܦŒ *Y  lTZ ̔`nnܛܚ9̘  l\Z @ HH'@ m̡PnܟvԔ  h_dNTK h h hhVh &h h h(hA(dŘ<"`p9iɺh  .h(jؽ hؾ 1ض 1 hȯA hȱ@)jȤ h 1T#ltm @6  31+pH HTThN  lPLlK 3 lTKHdwXfvh h Dh h h TZyehT%X28Ih[ X8R+hP= : h84H+hF X h,A1h;h.xh2 " l TLf hERh  unFTN3A1 __ 2h\Y hX <   6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC) PAGE DATE: MM/DD/YY TIME: 9 TLp&XADlYh h@h"1kl qߘX"%A hψhs    Hh3tȾh Ƚ  TLχ41 h d `3H  qX jA TL`G 5Tφ _0n hX hnX hkQh\hQ "p0STh &h ?@[\]^_Hh" "dL` 3#n 3#l` H s" Ժ hsHXhh`Xhhh HL#dh`H ! laal aaI`GchGW "X bX 8L "HTӺ H'sLoAAdT|LZ3AaRy 'Lv T*a)RH%3I  aHQ A a"vR  2LaHH ALȾa `\ R1 [1 Q Aa !2!* *l hhhӕuhi f[G ߂M^@BPCE}GN HJzLLK@````hTTa"aaDa"a 1 aBa     32+@  "&0    lL`>``V`l`oHb`   !"#$%&'()*+,-/45678:;<=>?@HIJKLNO23FG l lLT͊T̚T̫ ̊CCr dhddd&ddddd dddY 1dT \Tڥ\'d  %!\ȶNfV ȯfWȫn>\ TExǞT\\ dA (\̼  \\xǟ\{Ǚ\\uǘ\xǠT vǥ\xǢ lTn d d  (hTܦ dld    d l"!( 1##;:<;=?IHGF cfi2̟̐d b o !TڥŽ lTT?TT\kd d d   f f& ldNTSId nրnhT   TExǟ3 \xǟ2 \xǟT\zǞTڥ̠ddTA lfkl\ dΫE  khsh\Ǡ \xǥ׀lh\xǢ3n  ȀnhT% TE}Ǫ̶oh\xǟ\xǞ ̤kh\xǞTΗdNlTSO Tܦ܀kh\xǠ\xǢ\zǞk \ d # d0h\xǟ  ȀkhTEuǚTuTl̵qhTY dξl θm   l dE lΠdNTT l\  l\  l̻" 9 &$9]̀khTExǶÀlh\xǵ̵ ̸mh\xǞ$̨  ̫kh\xǸ̢mh\xǹ ܀kh\xǴ lh\xǞlh\xǵ  ݀kh\xǶԀmh\xǷ dhTl dTmd S O d߀h\f« f?̚ l f] f{ ٖk!U̿ 2T̺«h\z\ 1nŒf̷`nͦn̰f̭ l̨ n̡ nn l n> ªnnnΦ Σ rdqnnohTY{] o l  lΙܖ« aΑd k " ; (edkfeǷd TEx ^ο  l 1Q«hTڥΫ «hT`d͙ d l{? lΠ " ; (  ǶlǵlǴl  dl lkdndo l\¬TݢfT @ HHk HRhWH HIhNLHAh0h@=> h;=8@h;"513/!Jn,, q+%s%̘H>XEJA hh j2 h  @?̩&X*/h h k) XA h Xh TH@ X h TL@͊  heX; hX j2l hhDؘ 1\Ȅd*Ȅd+Ȅd,TтTݗHt HSNPhOT#"" n1fTfU*fV+fWP5KLl. 2 nB n n _  33+,$$S,n %% -n/n *F,58$$%% hQh dNdM h  F  h lޜ dlTK" 8 % ؄Ph  l ̌dK bN *W +.  ~'dN ,, PNSIM OI  hkQhqhQ "p0ST >h hX hVIH dhY ޕ hZl^D _ hhhdNTK @Um[l\ @m\l\ @m]l\ @mh ȕ ȑdhEh lTݜȇ ޕ̒ >̍dݤ̉dY@dݢ-ΌМ # dݡTݥdݣZ dݦl; dݧnӜl̜l 1ݠ 2 .!!dl    5 2\ݨ    8 5̭ \ݨ @ HH END'!"#%&:;<>?@[\]^_ C * $ . + O M PROGRAMSUBROUTINEFUNCTIONREALFUNCTIONINTEGERFUNCTIONBLOCKDATAMACRODOUBLEPRECISIONFUNCTIONQ8QNAMQ8QBDSTL T SOHq``Hs"ܨ' hhHj  &jn  &n 1i(h(ވl(h j(Ոkl lH *F,80  h  hJhIhdNTSK@ .UH9h h. '辞  踆 hF C I hε  Ƞ 螎h hΪhȒ wvdys 8h lrz1;&|d{f  lnTڑ}}n N@Sm m m&T̫~n~o dT l ܛl \}n܏άl̽d@HHTT#hgh\hb h h  h  h(l ;  Tudǚdd h dT 4lǙll!d lnn n  nn l ldH TT#h\h| H4 H3N#dlh-4R,"DPRLQ  `h̫Xl̢X H <$S h T?=>T h ,h (h n ,h ( h n 1H TT# h h\h dT̫qH(d&d$d"d d hǚ N Tbԃ\Ԇ\ԇהǠ սДǢ ɔǤ ” 3̻ \̴ _̭ ք̦ǟ ղ̟Ǟ ղ̘ R̒ Ľ Fdz ?Dz 9ǯ 3Ǯ -ǫ 'Ǫ !۔ Քǻ ϔǨ ʔǦ  Ŕǥ ǧ Tbԃ̷ #̱ ̫ ̥ǿ ̟Ǿ  ̚ǽ Ǽ \Ԇ !     ۔ ֔ \ԇN\ԃ\Ԇ\ԇN         dԈ l dԉdԊ Tbԃ.Μ  ̿  œ  lll̺  ̫ E  34+̫ ̭ l̴ḽd       dԈl l(Ԕ Ք ֔ Ô Ĕ Ŕ  lD l ,h 9 dԉ֙dԊ  dԌ ,h ,hf 1 l ,h ,h n 1 llK  l $Ԉh ,ƈhf ,h ,h nܴ 1 l ,h ,h n ,h ,h nܘ 1 @TbԆ\ԇ8dNTSKԔ Cԇ UH  dԉ l\C H  l= Lԃ ԍl  l\κO TjԄǙ BU BN BG pdNTSIԇ I ԅKԔ & p”Ǧ  ̽ǥ ̸Ǡ TԐ̖V&ԏ"?K )̛ǜ !ζOԃ ί ΫK  ΥK ΠK Tjn NSԇ Hd lI  lԅ "O \M  l llUHM  l   @m lT @ml\̫ j̥ d̟ ^̙ X̓ Rǿ KǾ Eǽ ?Ǽ 9 J D۔ >Ք 8ϔ 2ɔ ,Ô &̽  ̷  A TԒԄTbԇ l4d + \ԒԄ\Ԇ llxdǟd dT\ԃ ddd dd Ǽ  ԍlݜ dNTKdԓ\Ԕl\ \ԋԄl_l1 *SOԃd֘EԎ ̦  OlE  TԑԄ̔d ḑ l ̡ l -dԉ  Al   1l   Ell\֘[\ԎԄWNVd֔Ǧ dlΔǠ ǫlǪl l l ̲ (̧  ̪ǝ TԒԄ lޤԇ dԉ d dԊ7fT@HHTT#h\h\h\h\h\T ;;H TT#h\h\h## dPdidjdkTjNdlTT#l  (nl #l l HTT#hT tڛڛڛ HTT#hTڑ N@Sm@H HTT#h*F,100  TET̫ dTH hhH(h'  f qh @HB0Fh Fd 0m `h rH ` H2N nfTfUifVjfWKLlk$$S,n %% -n/n *F,58$$%%N &KlT] h ldMvh\Pd @N iW۶ jk SI I K F ;ČhLlȝ Țlh'̰dO +T̫_W_X dT lN d`d[5 nHn h   d  jʔlʍ ʯ j4 ("T׀hTڑN@Sm m  @m @mأ@H H TT#h\hNSIVhH  IH  h hH  I5  h@mϨ'h $Lh#p8 hh̽ ȵHhȲhhȭ  Ȩ&hȥ hإΤ ȗnܶl@H HTT#h  dk # l h  Lhuh" ; ( 0/ hǚh hDžh}hȼhmhǙh̷lhT 9;:6Ȧ ܩܨܧ̥lhTڥ  35+H lYZlhd" : &gk^O (hՀZhTExǠ̀\h\xǦÀZh\xǢȻ]h\xǦn\dNTV SK BhțZh\xǠȓ\h\xǥݧZh\xǢ,4dݨZh\xǤh\xǞhTڥ&4lԀZhTExǤˀ]h\xǠÀZh\xǦҀh\xǷH9YZ dX "T h! h܈ hknh֌l hTxf[dNTSK. ػ]l\K" دخ\l\K Ȣ hȟ  Ȝ  h\zȘf dyv[hTExǠ !<^Oq l\V ΫK 5d{+ՀZh\xǢO 8ƀ]h\xǦ d\xǶz;ll̳Zh\xǢTڥx7Hl̢]h\xǠ̚Zh\xǦ l\|rv]hTExǥ l l̿fH %1Tڥ TTEzǞ\ddT\|Ǜzd'"CdNTǠhSI hI h\x{CH?{TEuǚ\xǣ\}\x didjTM \xǢNll\NfV hA G hG cȱ h谎h h\xǟ=اȦ 蘠hhȝ ș!d4ǥhǫh\uhTExǜ kd\xǟ>\}Ǚi \xǟ=d \xǜ\xǞTڥ\uǘ\\uǘHB dNdP @SmhKA TK9 JA  @mK$ K ˨  d  @mVhWhdž ȐDž ބlΜIh,LJN& NUh   @Smp< m?TڥTExǚHd E T)O \\uǘk c̨dPd n ddlT\ dࡌd "ld  NSO \uǘlO ̛hTڥܔܓ  O ̶dGTEuǘG̣l\T̟  @ HHTEx\}\xǡHn  hǞ    TTExǞ dTT̫ll  TڥH&D "T?kh 9h9T̢C1 l1.l !(!ddE"m TEuǝEk d 1\ ohTڥ H TT#h\hkd% ,dNdCT h lVf] 1T h dn 1 hȔl fl\UHh n fئإ nHN  lPLlK 3 lTH h d 2T h dT|G@f?f f ;!8 !2n Ƚ+hTE}Ǫص @eehe]h hȨ!ȡh 쵎h ؘؗȒf f« f{α d&d' d(Ψd%΢ $Ο 1* !&  + l d+  llδdNTSI. l̼f!? 6̲ 2Ο Ι Κd!㌌l « {]  'l؄&l " $@$* dd fΤ % "  3 lι ?  Φ " [ w !d d"! Ǽl lTE|"T| l dδ  d\« ( Τ  l d οd? 2 " ddNTSI. ll\d-! 2A   Ǡd"I lɗj  36+I lT ǀ" dv:ll! Ǽl l? TE|"J d$ ̙ l l l l l ld!«  ( γ  t tD Μ  n΢ l̤  l lΥ  n! dn̾  Tܦ,TEx\.\x dT| n n! " ld dd A "A S  ldNTn     SI. I I,lΩ Υ 8lΟ Μ !l "A? % "A d d/ #܈hT f  nd 2Tld-! d"Tܦ" Ǣl l lTEx"_α!d dT|Vγ l" l̒  l l!  l? m\{] 2 * 2 "dNTSI. d(K) qTg l\d$  lld%\I, d0ll d+d1\IŒ l l"> +  8n7nf6n nnhTExǟ dT|dNT 9@8H5H2TT# hhh7h& hh2hhh$h hh`h$ hh? hhz hCT # hTܦ h hTEx dT|\xǠ8 $ 1&#h hǘ! h  Ⱥ蹎 hη5   ثCr\uǫȢ  !HTT# h h hTK h d "T h@f?f ) 60f*f] f{f`h hl ž! !H̼l ̵ l A !襞! ί  Ϊ # 8khTbΪdNTSKl hTB "TdjwidT@HH TT# h hPT\ \!dk r q o n nhT  ހshTExǠ \|\xǸ ͜ h 8ȹ(h\uǫ"\uǦ"\xǷ!T ~ǩ#\uǚ$Tڥ̦h̤kh\}Ǚܜ̛ !\!̔jh\xǞ\ "kh\xǞHsh h 1 hj hh h # h   jj@i hi hNUHhT ǀǠȳ" < ( 06:9TTExǷ\|Tڥ7\ǀǧ0\ǀǡ\|\|\|\ǀ\|\ǀǻ\uǮ\ǀ @ HHV  lx !f& !2!d"= *   fxnnnn fxTȪ Ǩh T ǀǡ TE|p\uǮt\ǀsuvw  l dx " : &  lΠdy x lΕdu l!dd "dz dvdw 4Tܦzq    ̴ ḻl ̪ l« ̡ @ ̙ =x"! .#;&*8-10ǥdsklflaǦl\ǽlWlRǾlMlHǿlCl>udNTSK* Vd{ d| dr  l 1 l̎  ǻl dzlDzl T ǀǠTEusrdv ldw l* Džd}DŽldy ^ ldu NdNT @Um 1 - ! ! l \}Ǚuvp 7 4Tܦuq̝ l̙ lΗl̓ l TڥuTEuǘo\uǚu @ HH??]h\x$$dNh hL  37+h\ ZhW VhR PhPhT ǀǠlTSC@ ?UDhh  ) TEuDz騹 hʟdi djȯdkTM T#̧Ph \xǧ ]l4&¤d d \udzNγDl\uDzHTT#h h h h hi & "T3  nTܦ42n ddT|܈ hTExǢ+%H TT#h h hƈj42 h6 ;1 ;dNTn     SI I I hTt  ; h   hȮxhTExǠTȣ ȟ \|q\udzpr \uǚu dvt Sl l,dNTΧIsdwΡEBhBΝOp=   l  ,lԀshT ǥvq \xǥTv@Sm\xǢv $ḓl@l\HHTT#hch h h$݀ l'' % '! #     T l l \T\ lHTT#h hh hh\h h\zȘ h q" "rdNTSI  h   hl k Ȼ躆mh 츞 .ȩ h dȤ!ȟ ḍ h薞 Ȋ h !+ndδ hνld\V  YNSI O G llq qhTb +sl ulrhT ǀǤ̶lTε πrh\ǀǤtdξ rl\̳qh\̭쬆k dkhTdN\ dlΘ Δ q   Ηl  ΕlδlSI ~I z  d lÀrhT ǀhC C̯rh\ǀǡ rdNTUD  Dd h/TEuDZ\Dh%d  h\uǯ\ݬ  ج h\udz\܀rh\ǀǢ *6 djd) $lrhT ǀ ll ,lɀrh\ǀTܦ\xǢ dT|TExH wXfvh h Dh h h TZyehT%X28Ih[ X8R+hP= : h84H+hF X h,A1h;h.xh2 " l TLf hERh  unFTN3A1 __ 2h\Y hX <   6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC) PAGE DATE: MM/DD/YY TIME: @P]ػ 1 !i)Ȯh ( hͨ WȤ h hȤfțhȜ8ؚ@Pnؐȏh d"dΧd / $ ld0d0!d0 lT@P11xd @m d l 1 l\x9~@P d00dT3~1 2. !Y0U " l̩   l@P _̛ O @m }E dΛ.d $ l0   38+@P4d @m  'd d dܜ  @mܩ@P_ 3l̟lŜ  @mܒ , l0d0dT l@P   " dΗ ! ΑL  ̝ @P"d0#d0$d0d%d&d'd0 d d d0 d d@PT1 "slT !0|xH5$)h300d(  @P h*+,d0,d dd!} ν0|  @P2 dP '- 9. 6 dd: -@P]/n01nT 1'T0̺ l ̶ l̲ l̮ l@PI@PT0 22 "@PC@PT @ HHPSET PWTREADGETFLDSYSMSGMOVEL OPENFLLOG1A  PGMINTFGETS UPDRECjERCHK tCLOSFLP PNXTLOC NEXT AVAILABLE LOCATION P *T 00477*K,I8 00478*N,UTSET,,,B 00479  39,*K,I6 00480*K,P8 00481*P,F,2,MARKER 00482 lLTVTBTS ` @Q"dR  `|7hhQp4R$S hTSTl hTJT h\ h\ l,d-d.d dNdPTd E ȡfT @m h f؏ȏ1 h fW؄ȅ1 d d dddddddd ddT dd 4{T̎>lTS K p" ; '5=<; N@m{ d{O  dlT{ %T!T{βE  lΩO 1̫  l ;d d ddd dTߚT3 dlT\ dT߸ d\ 4l l dl ll\\T; "͇ 5l l d ldTW TBdN\ SK T}TzTx̢l\ !| d" ; (  UT\TdlTTd dd d1 d l dTߚT3T; 1%Ü  d lll ;l ḻl l\\ ͌lW ̱l :T  dx d !! l l l\ߤl̵d ^ '!.   dT3  l d  dTl\ "l l l /"TH#NTn d̫ll (d# dTߚ\T;"7 $\Xdd ldP d n 1Td 0ΰTϰdSK H dI  lT߸T3\T d ld! 쵖 <n l l l̤ ̚d d d ld d de3dv l 4X;XA hh h  ̱%X?\h h kW X,IA h `XEhT & hj՘2 5` h hH@ `X!hT J hj2 5` h VhL@V ʖ hAX hX h~h(@P0     ֙  3:,$@P0@P0@P0 @P0%@P0+@P0.@P01@P07@P0<@P8>@P0?@P0B@P0D@P0G$@P0O hkQhdhwQ "p0SmTg>hch h@P0Y@P0[@P0^!U  3;,8@P0b#@P0e"@P0i"@P0k"@P0r @P0u@P0 @P T33?/dTp0dT1xm d0XTx@P+~m h0 TB  h du  h є ˔ \ "̿lȲd Ȯl\ȩl̯ T !+\ \ ḥl 1Q̚dTW G̘   7l d9d: T=;lI8 \>\7\? d͜  Fl\?l l   %3 ( 3 "̯l d@̪  l̰l\@,tPMOVER P PGETFLD B09 A ITOS CCS 3.0 SL-149@P HQHOHMHKHI hGlE (?  a)9 n6  1 $:n/ 5n,B @P+H-H-'$&QH h'" > <  l0  l )  *@PV  W tnn#h h %  lװ#l@P lPGETFLDP PfMMSIZ B10 A ITOS CCS 3.0 SL-149@P HXhWhOhVhThGhF >"`K J+D h<1h0Gl/Fl@P+*a"!/  "h!(,`Ϝ # lLhT[\ `@PV.EF7PMMSIZ PSYSMSGMP P!GETVIT B11 A ITOS CCS 3.0 SL-149@P Hhhh " `"m  ` $$l"L"T΄Ts `OD  3?,TF8T\!xu0P d dd d dTXT͝ d ld 19ӨdΜ*Tߨl\l\l hhȼ<\dfܺذȭ lȔ ! ! ļ lT̨ l̲ !TcȍdX dn% n 1 dTHn HwhvhrH HfFgfh hZX n hN HRhWH HIhNLHAh0h@=> h;=8@h;"513/!Hn,, q+%s%̘Fh hXh hTPSYSMSGPTERMLUCREADR #CLOSFL,OPENFLP PIOLUNT A31 A ITOS CCS 3.0 SL-149TL T SOHq``Hs"ܨ *UD?Pdd dl 4ld hT  b "bԜ  dȬ "hٌ T̾ ̽  + ̱ 7̩l !x̠l̢l̞l\̶  $ 1; $ 1R $ 1*ޤ2d1 dNT Tl42j5! d/{ll hTߨ l̙`͙7dRm ќ "l dM $d ld8 0!6 $ 1.Ԅ ' ̔d  7o  3@,# ) # #  l  lT̵ "ӫ̝dT T+ ddd dLd :d9Hd;l2d<̞ %̛ 2c= T l !0 " ! "c "cتج $d ld8̯d !̡dTTߨd`>dRml̊lܙ̘" 9 &\2RQWd? %dllќ "l̿ #̼dl "/d d֤dNT lڜ "lǜll "/̻ ḻl̳ d̪l\d/  SK: * !T4"!Tͦ6*3,̠ N̏ !J !C d1d!%!d !d $ ߖ#  &d? ! dބ7ll d d/TrcdA̾ "illdNT ̦T #ldBT*llḴņnd8 ̸ 0 l̳l)̬df% l n l d "@$첎d?2l ldRl dd  d 1U,NlSE@  ClK: * 6  l !K E  lEd1  l>$췆T l l/̣ l nΦK ΡA  d d ̛l ;!> dl  lSE@d1  l  ld?$NTdGH&dRld&dRll̞ Cl̕,l -d 0$6dId ̿llllTTߨd`>dRm"= )̧l d=d̢l 8̽ 4TdNT $Tdެldd *lGl d̘ " l -ll\d?ll\ .dl lll% JdX d1n 1'dl\ίd\ dT d @ HHd0 @Tߨd h`\gh hZ\gh hT\gh hN\gh hH\gh hB\gh h<\ghިh  4ȴ *dNT $Th 7 !1 9̦`dRmd  d] l`dRm n̮ T l`ɬmdRm l  2Z d l lTߨl̴`ͥdRmBd " l  l̦`͊dRe lw ̿   l̲ d l ~!_ 1[ d 1V̼ !R̸ ̵  d S N  l̞  V % !N # l`͜dRm n U n dTr` mdRm ld`լm ,d $ldRm d̚  l d"! * 3E6GFEn`͠dRmn̊nn`dRmnnn`dRmnn @ HH     P / ddhl hVf 71dX hה# 1 h  hfW„$h dY Z } hʘh(nآ 1TH 2 hʌhn، 1LfTߌZ (nhTZ̸ l )f̳ 3̯ 1 ddαfܜ 1ܖܕn\Y܏܎ (  3A,n̊h\Y )f l\\d'dNT )dTb l l , d , d`͹h]εZdRf[ mnfܛ 1ddl dd d l fW 1 d T͝ b l` lH lΓ쫎m "1 "dT @ HH@? d h f 1Tߨdh " lh hp8h-nAh 1BhdĨ d h h hȼ;\glnرت d lHl . l ddd d lHPROGRAM LENGTHUNDEFINED SYMSEXTERNALSPhlTH hʿf 1LfTߌ (fhT )f l\\ dNdP dȴdX hT TS K ȓ  hhnܚ 1\ܒ̑dTb .d 6TH l\ l l̯d , d ,Ռ d`h=:dRfW m nܼ 1 lN`͏n͑A  `TdRm `T ldXf̖  \ \\ܔ ldPT GTSC  dn 1THlTb .d 4\l\  N˜C ̪ !\ d @ HH6 Np4R,dPlQ p<( hp8hp8(d TͦnkoT h\nko h\nkp\nkpTȷ h\nko4ȯ h\nkop<( hp8hp8(d T͝nkoTȍ h\nkoȅ h\nkp\nkpTk l\nko4 l\nkoPdQHc'v hN h hhVh &h h h(h((dژ#"`p9iψh  .h(f h 1ؾ 1 @HHh hp8hh(fDh 1 HTTh p4,dh h HTTh?hddNT hd }#  h`&l dT$l% $dn 14 dRl  lTT\ȩ  ̺ hȠhȠ6'nؚ̬ l nnnn )ߴ;εd lߵd߷Ϋ Φ d߶߸&dRll&dRllӤ߹lNSO߲ %  ̽dRl߳l@H HTT* CORE OVFLTT Tͦ ,dddl lH*T `P:  Wh l >Vh `lTͦVl\WWlX h n 91\TxT͝d hȥ褆hȠh\՘ <"Ԙ <2d1d d  !   !$1=h ζ h Tͦ ׀h λ h\ Ȁh Ε h\̺h Ξ h\̭쬆l̚ 1 lrl\ ̠ 9TFHK  d n (1TD(K TͦT\! > h;=8@h;"513/!Hn,, q+%s%̘Fh hXh hT@P@P@P@PTL T SOHq``Hs"ܨ *UD?Pdd dl 4ld hT  a "aԜ  dȬ "hٌ T̾ ̽  + ̱ 7̩l !x̠l̢l̞l\̶  $ 1; $ 1R $ 1*ޤ1d0 dNT߀Tl32i4! d.{ll hT l̙`͙6dRm ќ "l dM $d ld7 0!6 $ 1.Ԅ ' ̔d  # ) # #  l  lTY̵ "Ӫ̝dT  T8* ddd dLd 9d8Hd:l1d;̞ %̛ 2f< T l !0 " ! "f "fدغ $d ld7̯d !̡dTzTd`=dRml̊lܙ̘" 9 &_2UTZd> %dllќ "l̿ #̼dl "0d d֥dNT߀dlל "lĜll "0̸ l̮l̰ ḑl\l.  SK9 ) "T3""Tͥ5)2+̞ N̍ !J !C d0d!%!d !d $ ߖ#  &d> ! dB  3E-6ll d d.Tcd@̾ "glldNT߀̦T #ldAT8)llI̱ņnd7 ̸ . l̳l'̬df% l n l d "A$첎d>1l ldRl dd  d 1U,NlSE?  BlK9 ) 6  l !K E  lEd0  l<$췆T l l-̣ l nΦK ΡA  d d ̛l :!> d;d 'CdRlD l9l dNT߀Π lތlў & 3ΏlE läDl 1̸D "l̴?l  l l (? +llTTdTY -",̷l\̫d ,d̞dSK ) . .TE1D )!G$NdTln d  lBl?םd@5f#f$f%f& l ll"Tͥ5)2+ڄ ΗO  +̫,쫎ll$=l  lSE?d0  l  ld>$NTdFG&dRld&dRll̞ Bl̕,l -d 0$5dHd ̿llllTzTd`=dRm"= )̧l dllhT \ .dl ll\l% IdX d0n 1'dl\Σd\ dT d @ HHT0 @Td h`\vh hZ\vh hT\vh hN\vh hH\vh hB\vh h<\vhިh  4ȴ *dNT߀$Th 7 !1 9̦`dRmd  d] l`dRm n̮ T l`ɬmdRm l  2i d l lTl̴`ͥdRmBd " l  l̦`͊dRe lw ̿   l̲ d l ~!_ 1[ d 1V̼ !R̸ ̵  d S N  l̞  V % !N # l`͜dRm n d n dT` mdRm ld`լm ,d $ldRm d̚  l d"! * 3E6GFE n`͠dRmn̊nn`dRmn n n`dRm n n @ HH     P / ddhl hVf 71dX h֔# 1 h  hfW$h dY Z } hʗh(nء 1T 2 hʋhn؋ 1LfTZ (nhT Z̸ l )f̳ 3̯ 1 ddαfܜ 1ܖܕn\Y܏܎ (n̊h\Y )f l\\d'dNT߀ )dT l l , d , d`͹hδdRf[ mnfܙ 1ddl dd dT lfW 1 dT͜b l` lH lΏ짎m "1 "dT dNdPT5 'SE  /dEd  0llTl d\ @ HH}@? d h f 1Tdh " lh hp8h-nAh 1BhdĨ d h h hȼ;\ܫlnرت d lH hhH.h-  f q!dh" @H B0Fh Fd 0m `h rH" -m`l  3F-l ' l d lHPROGRAM LENGTHUNDEFINED SYMSEXTERNALSPhlT hʿf 1LfT (fhT )f l\\ dNdP dȴdX hT5 rTS] K ȓ  hhynܚ݄ 1\ܒ̑d݈T .d 6T l\ l l̯d݉ , d݊ ,Ռ d݋`h=:dRfW m nܼ 1 lN`͏n͑A  `T݌dRm T l݅dXf̖ ݆ \ \\ܔ ldPT5 GT݇SC]  d݄kn 1TlT .d 4\l\  N˜C ̪ !\݃d @ HH6 Np4R,dPlQ ~p<( hp8hp8(d TͥT h\ h\\Tȷ h\4ȯ h\p<( hp8hp8(d T͜Tȍ h\ȅ h\\T l\4 l\PdQHc'v hN h hhVh &h h h(h((dژ#"`p9iψh  .h(f h 1ؾ 1 @HHh hp8hh(fDh 1 HTTh p4,dh h HTTh?hddNT߀ hd #  h`&l dT$l% $dn 14 dRl  lTT\Ȩ  ̺ hȟhȟ6'nؙ̬ l nnnn ));εd l*d,Ϋ Φ d+-&dRll&dRllӤ.lNSO' %  ̽dRl(l ; T dK T&ɀVhT $lI/ ,θI (fn@H H TTh CORE OVFLTThTY  TͥMFNG ,dddl lH*T `P:  Wh l >Vh `lTͥ~Vl\~WWlX h n 91\~~Tw~T͜~d hȥ褆hȠh\~՘ <"yԘ <2yd1ud d  !   !$1=h ζ h Tͥ > ׀h λ h\ >Ȁh Ε h\~>̺h Ξ h\~>̭쬆l̚ 1 lr}l\ ̠ 9TFHK  d n (1TD(K Tͥ~T\! 23@@SS0 .JA`2 1L@--** ++ , PCD h dT l\f !. hʕh Eh Jh̨h h2fػ 1 %ʡf̻ &l  k !ިh  hȕ Qnܞ =dNSK TZVhT $dI (nI n  +l̖ 1 =̚lvLf\ " !ǀhT ̿ l 7   C  3G-(  5nܡ̠h\̙ l̳  ̡ Rnޤd̸ 1! n l l l'fT ddHN  lPLlK 3 lT߀H dNdPT5  SE K T (%n hd!- ( $n :踞 $n dd謎 $nȤ  hd>̵蚖 %:n ÜlH  l dTgT lHwXfvh h Dh h h TZyehT%X28Ih[ X8R+hP= : h84H+hF X h,A1h;h.xh2 " l TLf hERh  unFTN3A1 __ 2h\Y hX <   6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC) PAGE DATE: MM/DD/YY TIME:  HNhYLHFh5hEBAH32@=:9h,+h*5h)R a> R+ q )0dhh bh h h T`COA 0FMEXCrL18326R9TAF1_JPT13 1GETSYMKFMEXCrCPTBL ,!BDOPR DAYTO *kCBAV "DIMPR WMIPRO FLIST *uAVOLA R9SEF1_SPCEV4CWLGT0 DCWLGT1(CNWAREJLLUV4*VALNAMFMEOFC_CPTBLNIGETCFڭTSAREAJOBENTOPANALkSYSCOP~N12 PTNREL.SYSMON08N5 LSTOUT N7 N8 N9 AYERTO*fLVLSTR  L1827 +81 S1860 @ "L " T ` m   w L18273             /  GETC GETF FCCPLU ^END0V4ZPCCP1 CRDBF CYERTO *iNAMEV4MTYPE PAGCHKDATAPRQCDRDSMXMTEND1BPLABEL>PHASEATIMCPS<uBGNMONZLBATINZPRTCDR1\NRERLE!TOTMIN*qINTSTKfSWPSEC1^OUTENTFSLIMT(IASEMPRu  3H-<ÔJTжUT\INSTLUTe8ASYUTILp  ldV dW d=Tڭ=d@ ZL000 X !M̪ T] l f( 1 ll !# H!\Wl  9 Z!(̿ !$ Z8̷ 5̴nܧT)8\) ܜ H1 1\   d5 ld=X# 7TTIMEC DIAG AREAC PSECON *nWAIT .R9TAF1_MMAT 1DCONTA *oARITH EXIT жMICSB2*Q8PKUPTBLADR*LBATINP STMSV4VCALLCPMARKER,CFIVOC1PARTBLWLIBEDTEFLISTMMLUTB(l f(ܥ 1 l PROTECAMONTO*gINVINT܍ H1T)TRMLUPf) WKSPLU1`N13 R̾$:l dd!+ EXTSTK  l+ PTEOFVdЬdQ d dR+ $ l\CPDޡd $Fd=PTBSIZ@fCCP +  6! ܔLHl l՜9T#:ޡ:/aĔSLOG1 {LOG2 READ PACK MT50U0_MT50U1iJCRDV48HORTO *lGPUT ڦAFILV4[SAVEIDuLOCLZ2RDLABLۄSCHLNGxDIAGRGeCALTHD9 MNTCHKCPCONSL5 DATE: MM/DD/YY TIMEBATLSTp< JPLOAD# l TSOFFM1dTERMLUTAPSETFSCTNE&LMTSIMb )l\bld 5 n l\b l fa 1̠  Cl  Dl\b\ ll̞Wh\h\b̒VhTcb ldi\b <l l 4 lTҽNVh\b dhlTb  l lVh\b\bw dՄPh Twld \ \T>b\b l d 2X @ HH`Hq``Hs"ܨ6 Np4R,dPlQ Dp<( hp8hp8(d TԬϸϵϹT h\ϸϵϹ h\ϸϵϺ\ϸϵϺTȸ h\ϸϵϹ4Ȱ h\ϸϵϹ̵lH'v hh hh4h %h h h(h'(dߘ""`p9iԈh  .h(n h 1 1@HH TϛTϨ h\ hh hhp8h h'n Dh 1H TϛTϨh\ h h !T  h : Sh  Hld !3͜d !+ hh nTbmlAhTԵЭЧm hȭ6 nئȤl hhșh̶9ЩβnH TϛTϨ h\h\h h dXhTq h) (l % !dh֘ h ! h h hȾhȹ HTϛTϨh YfffNPf l' hhhTK =Ԁh\ 1 nl lȽn̽nȶhθh HTϛTϨh\hh hh'v hh3h h %h h h(h$(d"`p9iՈh  h*Ɉh h 1ȿhȹ@H HTϛTϨh hhH(h'  f qh @HB0Fh Fd 0m `h rH ` X lh TH H2"WTԵ !lX X XXXX X TԵҺ h.h TԵҸ  H")hT 7=B`fkӉӔӞ Ӽ *5@ ***** L I S T O F S Y M B O L S ***** CONSTANTS : --------- VALUE ADDRESS REFERENCED BY STATEMENT NB : VARIABLES : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : EXTERNALS : --------- NAME TYPE ADDRESS REFERENCED BY STATEMENT NB : LABELED STATEMENTS : ------------------ LABEL ADDRESS REFERENCED BY STATEMENT NB : B Y T E S I G N . B Y T E I N T R . F N . S T A T . F N . I N T E G E R R E A L D B L E . P R E C . F U N C T I O N I N T E G E R . F N . R E A L . F N . D B L . P R C . F N . S U B R O U T I N E hh h  3 d H"h! h h Ah @ m 5@ HwhvhrH HfUgfh hZX n hN HRhWH HIhNLHAh0h@=> h;=8@h;"513/!Hn,, q+%s%̘Fh hXh hT@POPTION = LIST NAME = @P TL T SOwXfvh h Dh h h TZyehT%X28Ih[ X8R+hP= : h84H+hF X h,A1h;h.xh2 " l TLf hERh  unFTN3A1 __ 2h\Y hX <   6 0j5Q  :j/TL: FTN 3.3B (OPT = LPXC) PAGE DATE: MM/DD/YY TIME: SYBOLہWRTE ۑGESYMWRTE SKPIT݀GESYMOUENTDIG :COV {PAK MWRTE DIGTCFRED STHARCNT EXT VANAMDIG SKPIToTIE DAE PANBRPRNAMASOPT7CRBF LODC OPC /Q8KUPQ8REPWRTE RDABLSTRE DIG $Q8KUPmQ8REPjQ8KUPQ8REPGEC IGEF yGEC &DIG 0STHARPWRTE mPHSEA-ENLOC,RED &WRTE LOAL UPCFIVOC1R9SEF1_^  3K-x@P>@P? @PC$$@PD  @PK@PL P1829 DATE TIME FORK !THDS IOSPR  R9MUX2R9MUX3Q8DXP2ӘR9MUX5R9MUX6WRITE #PBAT01'CHECKFHCOMM18aDATFMTVOLBLK^DGNTAB*MICSUB"FMMOIFQ8DXPTӕVERIFYuDISMNTSECTORTSQPRISTDINP SKIPITN14  QMINTXUNPSRTSUBPPRTSUSER7L1829 L1860 FTN S18326P83310 DXP9 ҐENDDO ޙMINTO *mFMPA01FMPA02FMPA03BRKPT pMONTO *jVFMPA06FMPA07FMPA08FMPA09FMPL01K65CORLFMPL03vFMPL04%FMPL052SAVLAB[FMPL07FMPL08FMPL09DUMMY1 DUMMY2UNPENDJPSTV4FITF 0ENDLOCRMUCLOCPTRAC STRSECPRGNAMSTRLEN-SYSLVL49MMAMAX1CASGNPR{LOCLIZyCNTWAR*wS1827   3L-7h h h .j 1 h h 2j lh lT $  4  S18273   1 6 -3Td-ȧḻ ȡ \ #3̽ / h LOG1A Y1\Ȅd*Ȅd+Ȅd,TтTݗHt HSNPhOT#"" n1fTfU*fV+fWP1811L YKLl. 2 nB n n MIINP EMT25U0jMT25U1kIOPR χCNVT тDOUT FBASV4MTBFE0 BMTBFE1EXITF 0 FMSAVAJPFLV4TMRESLABSMDCFGQ8PREPTSMEND1JPCHGE*ALCLGHVSCHSTKLSTLOC4MPFLAGpCONSUBdSYMBOLݗTSLOFFSTRBASDUMALTCRCOVERi  < #h* h) h( h' dh1h"$`# `X  hHCDhBhB2BF{۬ۯ !%)-->***** D I A G N O S T I C S R E P O R T ***** 1 : FIELD IS NOT RECOGNIZABLE. (ILLEGAL CHARACTERS IN FIELD SUCH AS 8 IN OCTAL FIELD.) 2 : MINIMUM RANGE LIMIT OF A CONSTANT IS EXCEEDED. 3 : MORE THAN SIX CHARACTERS IN A NAME. 4 : MAXIMUM RANGE LIMIT OF A CONSTANT IS EXCEEDED. 5 : EXPONENT IS MISSING IN A CONSTANT. 6 : SUBSCRIPTED VARIABLE WAS NOT PREVIOUSLY DIMENSIONED. 7 : EXPRESSION IN AN IF STATEMENT DOES NOT HAVE INITIAL PARENTHESIS. 8 : INCORRECT FORMAT STATEMENT. 9 : ILLEGAL USE OF THE .NOT. OPERATOR. 10 : ILLEGAL OPERATOR OR OPERAND. 11 : SUBPROGRAM REFERENCE IS ILLEGAL. 12 : LABELED END CARD IS ILLEGAL. 13 : NUMBER OF ARGUMENTS DIFFERS IN REFERENCES TO THE SAME SUBPROGRAM. 14 : IMPLIED DO IN DATA STATEMENT EITHER CONTAINS WRONG NUMBER OF SUBSCRIPTS OR SUBSCRIPT IS OUT OF RANGE. 15 : EXPRESSION HAS AN ILLEGAL TERMINATION. 16 : UNMATCHED PARENTHESES IN AN EXPRESSION. 17 : RELATIONAL OPERATOR IS MISSING. 18 : RELATIONAL OPERATOR USED ILLEGALLY. 19 : ASTERISK IS ASSUMED. 20 : ONLY ONE ** IS ALLOWED PER PARENTHESES LEVEL. 21 : A VARIABLE IS USED AS A SUBPROGRAM NAME OR A SUBPROGRAM NAME IS USED AS A VARIABLE. 22 : SUBPROGRAM NAME DOES NOT APPEAR IN AN EXTERNAL STATEMENT. 23 : ONE OR MORE DO LOOPS TERMINATE ON AN UNDEFINED STATEMENT LABEL. 24 : ILLEGAL SUBSCRIPT. 25 : SYNTAX ERROR IN THIS STATEMENT. 26 : THIS ARRAY PREVIOUSLY DIMENSIONED IN DIMENSION, COMMON, OR TYPE STATEMENT, OR PREVIOUSLY DEFINED IN AN EXTERNAL STATEMENT. THE PREVIOUS DIMENSIONING OR DEFINING IS RETAINED AND THE NEW IGNORED. 27 : THIS FIELD MUST BE A VARIABLE OR ARRAY NAME IF PROCESSING A COMMON, DATA, EQUIVALENCE, BYTE, OR SIGNED BYTE STATEMENT; AN ARRAY NAME IF PROCESSING A DIMENSION STATEMENT; OR AN ARRAY,kJ  3M- VARIABLE, OR FUNCTION NAME IF PROCESSING A TYPE STATEMENT. 28 : LOGICAL IF STATEMENT CONTAINS ANOTHER LOGICAL IF, DO, DATA, OR FORMAT STATEMENT. 29 : NAME MUST BE THE NAME OF AN ARRAY. 30 : MUST BE FIRST STATEMENT OF PROGRAM UNIT. 31 : 32 : A MISSING COMMA IN THIS STATEMENT IS ASSUMED. 33 : 34 : ILLEGAL CHARACTER IN THIS STATEMENT WILL BE CHANGED TO A BLANK. 35 : THIS LINE, WHICH BEGINS A STATEMENT, HAS OTHER THAN ZERO OR BLANK IN COLUMN 6; BLANK IS ASSUMED. 36 : TOO MANY LABELED COMMON BLOCKS DECLARED; CONTINUATION OF THE LAST DECLARED BLOCK IS ASSUMED. 37 : THE NAME IN THIS COMMON STATEMENT IS EITHER A FORMAL ARGUMENT OR DEFINED IN A PREVIOUS COMMON STATEMENT. THE NAME IS IGNORED. 38 : NAME SPECIFIED AS TWO DIFFERENT TYPES. THIS SPECIFICATION IS IGNORED. 39 : THIS BYTE TYPED AS OTHER THAN AN INTEGER, OR IT IS A FORMAL ARGUMENT. THE BYTE SPECIFICATION IS IGNORED. 40 : THIS BYTE PREVIOUSLY SPECIFIED AS A DIFFERENT BYTE. THE PREVIOUS SPECIFICATION IS RETAINED AND THIS ONE IGNORED. 41 : THE BIT SPECIFIED IS NOT WITHIN BOUNDS OF THE 1700 WORD SIZE. 42 : LEAST SIGNIFICANT BIT IN THIS SPECIFICATION IS GREATER THAN THE MOST SIGNIFICANT BIT. 43 : NAME MUST BE AN EXTERNAL FUNCTION OR SUBROUTINE NAME. 44 : FIELD MUST BE A NON-ZERO POSITIVE INTEGER CONSTANT. 45 : ARRAY HAS MORE THAN THREE DIMENSIONS. 46 : DATA STATEMENT CONTAINS TOO MANY CONSTANTS FOR THE SPACE PROVIDED. 47 : STATEMENT HAS MORE THAN FIVE CONTINUATION CARDS; EXCESS CARDS ARE IGNORED. 48 : AN INSUFFICIENT NUMBER OF CONSTANTS IS PROVIDED IN THIS DATA STATEMENT. 49 : 50 : CONSTANT IS NOT SAME TYPE AS CORRESPONDING DATA CELL. 51 : STATEMENT REDEFINES DO LOOP PARAMETER. 52 : STATEMENT TYPE IS UNRECOGNIZABLE; OR IT FOLLOWS AN EXECUTABLE STATEMENT. 53 : 54 : STATEMENT LABEL IS MEANINGLESS; LABEL IS IGNORED. 55 : STATEMENT LABEL PREVIOUSLY DEFINED; CURRENT LABEL IS IGNORED. 56 : A PROGRAM NAME WAS EXPECTED IN THIS FIELD. 57 : TOO MANY DIMENSIONS CAUSED TABLE OVERFLOW. 58 : SYMBOL TABLE OVERFLOWED; COMPILATION TERMINATES. 59 : STATEMENT LABEL MAY NOT BE ZERO. 60 : NO APPARENT EXIT FROM THIS PROGRAM. 61 : UNCLOSED DO-IMPLIED LIST. 62 : UNFORMATTED WRITE MUST HAVE A LIST. 63 : NAME MUST BE AN INTEGER VARIABLE OR INTEGER CONSTANT. 64 : NAME NOT IMPLICITLY AN INTEGER VARIABLE. 65 : A RETURN STATEMENT MAY APPEAR ONLY IN A SUBROUTINE OR FUNCTION DEFINITION. A STOP STATEMENT IS ASSUMED. 66 : SUPERFLUOUS INFORMATION IN THIS STATEMENT IS IGNORED. 67 : THIS FIELD ON STOP CARD MUST HAVE AN OCTAL NUMBER NOT GREATER THAN 77777. STOP IS ASSUMED. 68 : FIELD MUST BE A POSITIVE INTEGER. 69 : FIELD MUST BE AN INTEGER VARIABLE. 70 : FIELD MUST BE A STATEMENT LABEL. 71 : THIS FORM OF ASSEM STATEMENT ARGUMENT CAN'T REFERENCE ELEMENTS IN COMMON, EXTERNAL NAMES OR SUBPROGRAM ARGUMENTS. 72 : THIS TYPE OF STATEMENT MAY NOT TERMINATE A DO LOOP. 73 : THIS STATEMENT TERMINATES A DO LOOP WHICH IS NOT THE LAST DO ENCOUNTERED. 74 : THIS 'GO TO' JUMPS TO ITSELF. 75 : A PROGRAM CONSISTING OF ONLY AN END CARD IS ILLEGAL. 76 : 77 : 78 : LABEL IN A DO STATEMENT MUST REFERENCE A STATEMENT FOLLOWING IT. 79 : MAXIMUM ALLOWABLE NUMBER OF NESTED DO'S EXCEEDED. THE DO LOOP MAY BE IMPLIED IN A DO LIST. 80 : OVERFLOW OF TABLE OF SUBROUTINE PARAMETERS. CAUSED BY LARGE NUMBER OF DECLARED PARAMETERS AND UNIQUE REFERENCES TO THEM. 81 : THIS FORMAL ARGUMENT WAS PREVIOUSLY SPECIFIED AS ANOTHER FORMAL ARGUMENT OR THE SUBPROGRAM NAME. 82 : TOO MANY FORMAL ARGUMENTS CAUSED A COMPILER TABLE OVERFLOW. 83 : THE ABOVE NAME IS NOT A VARIABLE OR ARRAY ELEMENT. 84 : TWO ELEMENTS OF THE SAME ARRAY OR COMMON BLOCK ARE ASSIGNED TO THE SAME STORAGE UNIT. 85 : BLANK COMMON AND FORMAL ARGUMENTS MAY NOT BE INITIALIZED WITH DATA STATE  3N-MENTS. 86 : 87 : AN ARRAY ELEMENT IN A BYTE, SIGNED BYTE, DATA, OR EQUIVALENCE STATEMENT EITHER HAS WRONG NUMBER OF SUBSCRIPTS OR A SUBSCRIPT IS OUT OF RANGE. 88 : TOO MANY EQUIVALENCE NAMES CAUSED A COMPILER TABLE OVERFLOW. 89 : AT LEAST TWO ELEMENTS MUST APPEAR IN AN EQUIVALENCE STATEMENT. 90 : 91 : DATA STATEMENT FIELD IS NOT AN INTEGER, REAL, DOUBLE PRECISION OR LITERAL CONSTANT. 92 : MISSING TERMINATING ASTERISK OR QUOTE IN A LITERAL STRING AS APPROPRIATE. 93 : 94 : 95 : 96 : 97 : 98 : 99 : 100 : CATASTROPHIC TABLE OVERFLOW; COMPILATION IS ABANDONED. COMPILER IS LIMITED TO 300 WORDS OF GENERATED CODE PER SOURCE STATEMENT. IF THE OFFENDING STATEMENT IS ARITHMETIC OR A LOGICAL IF, THE STATEMENT SHOULD BE BROKEN INTO TWO OR MORE STSTATEMENTS AND THE PROGRAM RECOMPILED. 101 : TWO PROGRAM, FUNCTION, SUBROUTINE, OR BLOCK DATA STATEMENTS IN IN ONE PROGRAM UNIT; THE SECOND IS IGNORED. 102 : 103 : RELATIVE ADDRESS ARGUMENT IN ASSEM STATEMENT REQUIRES PRECEDING CONTROL INDICATOR ARGUMENT (*). (*). 104 : 105 : 106 : 107 : 108 : 109 : 110 : SYMBOL REFERENCE TABLE OVERFLOW. SUBSEQUENT REFERENCES WILL NOT BE LISTED BY 'C' OPTION PROCESSOR. 111 : THE INDEX USED IN THIS SUBSCRIPTED VARIABLE IS IN CONFLICT WITH THE DIMENSION DECLARATION. 112 113 : MAXIMUM NUMBER OF MACROS EXCEEDED. THIS MACRO DEFINITION IS IGNORED. 114 : THIS MACRO WAS PREVIOUSLY DEFINED; THE NEW DEFINITION IS IGNORED. 115 : CALL TO AN UNDEFINED MACRO. 116 : NESTED MACROS ARE ILLEGAL. 117 : 118 : 119 : 120 : 152 : ARITHMETIC TABLE OVERFLOW. HwhvhrH Hf gfh hZX n hN HRhWH HIhNLHAh0h@=>ߋ h;=8@h;"513/!Hn,, q+%s%̘Fh hXh hT HNhYLHFh5hEBAH32@=:9h,+h*5h)R a> R+ q )0dhh bARAYSZh T`  3O-COA 0L18326JPT13 1GETSYMKFMEXCrCPTBL ,!BDOPR aDAYTO *kCBAV "DIMPR WMIPRO FLIST *uAVOLA R9SEF1_TL T SO PFORTN F01 A FTNR CCS 3.0 SL-149-@PX/X+X'X# XX}X$X-@P+)Xa"a X" XIb XFb XCa X@b bXL>aArI%@@-PSQRT -PHFLOT DARABS-P P$SIGN G05 A FTNR CCS 3.0 SL-149-@P @` `Xah\ b#1Tt`-PQ8SG SIGN -PHFLOT ARABS-P P0FIXFLT G06 A FTNR CCS 3.0 SL-149-@P @` `@X""``T\ ``@ `@X ""`-@P+\$-PQ8QFIXQ8FX Q8QFLTQ8FLOT!IFIX FLOAT !DFIX Q8DFLTDFLT !-Q8FLOT-IFIX -FLOAT -DFIX -Q8DFLT-DFLT -EXP .ALOG .TANH .SIN .COS .ATAN .PARABS.'Q8IFRM.+Q8FS .1Q8TRAN.jQ8QINI.Q8UNIT..PARABS&HFLOT -P PEXP G07 A FTNR CCS 3.0 SL-149.@P@Xh`\V@ %\O}@ @\H[@|o?C5Ƙ1 `>Ř3.@P+Ƙ= " HX `B\#Z]Y^]J@1G" `R z.@PV` `Tؔ3\՞+(Y^#Y^Y^Y^ Y^]@ŀ`\.\  3R.@P\յ@@>UV=UVŐ1` #. @P+d*@1*A`ݠ4ad` 1`T^]Y. @PV ^\@Zy@X @@A@@UNIe=h,.PTANH .PHFLOT 4ARABSXP ..P PSINCOS G10 A FTNR CCS 3.0 SL-149.@P@Th`\6@Th`\&@ %\}@ ``q@ؘx.>_  3S.@P+7u3K@)Ř7X"` Tե`1Gf $ "Ţ` `\.@PVYJ^C>@:\X]9@ `Ř04Ơ,;.` `\õ~"@\.@PܞY&#^Y^Y^Y\}@\@AdA@*@Ke>@U@>G.$PATAN .%PHFLOT OARABS.&P PPARABN S53 A RPG CCS 3.0 SL-149.(@PHhB4 "c".)PPARABS.*P P?Q8IFRM H01 F FTNR CCS 3.0 SL-149.,  3T.,@P  hhhhhT.-@P THTTh\hh\hh..PQ8IFRM/./PQ8PKUP5Q8PREP2Q8FS Q8TRAN!.0P P5Q8FS H02 F FTNR CCS 3.0 SL-149.2@P.3@P!.4@P/ .5@P1 .6@P+ )(,/.XH0123456789AREF$I.7@PD'*Z.8@P .9@P3 h.:@P; l : T l .;@PLll h.<@PV l \ hlElh hhhh hhT*() h hظȶ ,Ȱ"!& 1.=@P ,j.>@P, 1TT6 l44 l2 / ! + !l dKd- l!!  .?@P d.d( d)Tj.() % Vd.@v  3U.@@P\/\  l !  "ld0l l l l l\.() .A@Pd L6'1l$ V L"TT 6TG .B@PBl d  d& d% l ll  T*.C@Pd\*T*̙ l !  d(d)T*()\*" l ! .D@Pd*.E@P.F@P.G@P.H@P.I@P.J@P.K@P̹ $2 l#, l.L@P.M@P dd: ld$l d.N@P.O@P l.P@P.Q@P l.R@P!.S@P l.T  3V.T@P#.U@P.V@P.W@P l.X@P%.Y@P l.Z@P'.[@P l.\@P).]@P d̘ .^@P/._@P l̒ \*̹  a̱  aTg*\*̡  a̙ .`@P aT`*.a@P9.b@PS.c@P.d@P.e@P2H/TThV\hD\hB\hhh\hh\h\h\h#h\h.f@P-\hh.gPQ8FS .h  3W.hPQ8STP 8Q8PKUP Q8PREPQ8SKIP@Q8FGET}Q8FERM5Q8RWBUQ8FPUT.iP PAQ8TRAN H03 F FTNR CCS 3.0 SL-149.k@P.l@PQ.m@PS.n@PU .o@PY-0 .p@P`F.q@PfED..r@Pp.s@P{*.t@P<'d .u@PA.v@P T h jظ 1 h " < ).w@PP d; h\ dP̼ !TR 9l.x@PRdRl̩ l  dTTPT\R̛  lUdRlVl  dW.y@P dX\R    !> ḷ l !& !/ l 9!/̫.z@P, !+̧ h$[l !( l 5TR.{@PE l̻ ̵dl\WTgTQTR  0l\\\ ld]d ^ dN.|2  3X.|@Pp:\R  ld_ 9!. !* hWĈl̨ l 3\R.}@P    dT !TWT l F7̣ 4̠ l̜  0lTSQ.~@PTV.@P.@P.@P.@P dadbldXdcddde dN f 1TARR  l .@P  l  l \Rl;  $[ lL dDf.@PdWgl,lLlll ̲ l,lLlll, lh.@PJd^ il ̓ l TRR B > : 6 .@Pu 93 % Rd e l 95 2v  0lo  d.@P dalX̺ ̷ ; ̯  EdO l D\R̠ ̜  dc.@PR  9! ! dDb$[l c"a l T_R .@PR 0lԀ.@P.@P d ̱ k3 dleld3d4d5d6d7 d8;.@P% D ll d9d:l T ̻ aO  lX  .@PPdldldl dTTT l\T l\TṊl T a.@P{ ̚dl̛dl l\T l\T).@P.  3Y.@P" < ) EH d;; dPl\PT ! ! lHdR.@PVlTR̘l\R l\R l  Hll\Rˬl dm l.@P dEdFdG dN n 1 dn +dXdc dTT\ET l\FT̗  l.@P\GTdKdIdJʤpdo  -lܺdldl; dl TH.@Pܚ d^n 1 l 0n 1 dN 0n 1  d].@Pi  mdlc ÔMl̿ !i̻  l̶8TU l.@PX \X ldn dl !  0ṉ h\.@Pܫ l̹ l\l̳ l  2\Z̥ l 2] h\.@Pr l l 2\{ lm !d^  dN8.@PTU lX \X l\Z\l l  ̳ h\.@P0ܭ l; \k l\j\cMd|Kd}+ z!" 8 %.@P[ l\Zܨ 1P\Z\J\\ DdTdx dqdwld^ dN.@Pl`p=l  lܹ 0f.lۜll 1 .@P.  3Z.@P +dX dmlT|Tl|pdo dl -l l lz  l 0d.@Pd~ !#  l5TUܘ \Y lڜ9Nh\.@P l4\{.@Pp.@P dT\|T̨ldx dqdwdyl *l ̬ l̩d ,\Ṳ.@P8 l ! l l윳4\Zܯm lz`p5@dDfl 0e 4 .@Pcn ḽḷlN 1 l l  1 d~ ".@P l  +TU l ! d^ " ll 8̽h\.@Pܷ " l  l\`̥ l !\U̶ l  !.@P.@PX.@Pe.@Pb@aH^H[TThh\hhhFhhhh{hhh\hh.@Phhhhhah\hqhhvhhI\hgh\hch\h_h\h[h.@P3\hWh\hShA.PQ8TRAN.PQ8STP Q8PKUPQ8PREPQ8FS Q8RWBUQ8MOVEQ8FERMQ8DXP9=Q8EXP9rQ8DXP19Q8EXP1=.P PQ8QINI H04 A FTNR CCS 3.0 SL-149.@P H]h\hRhMhRKuXhKJhAHFv" c h8"5T39cTh.h;X7.X  3[.@P+H&8%#T$h$h`  TT .@PR.@PX TF TT4h255؈ȇXh&ڨ*I.@PhTTp=H ' &eh @ȫT.@PȨXȞ Tȡ`><Ȓ T H T艀.PQ8QINIQ8UNITVQ8SKIP.Q8SKIP.Q8QEND.Q8CMP0.Q8CMP1.Q8DFAD.Q8QENS.RECEND.Q8BINB.Q8LOCB.Q8RWBU.Q8INTB.Q8BEGB.Q8CLRB.Q8RINT.Q8IBUF.WRFLG .Q8ERRM.Q8FERM..PARABSzQ8DFIN'Q8QUN2Q8CMP1Q8IGP Q8IFRMQ8QENDQ8MAGT5Q8CMP0lQ8QT0MQ8EREMNQ8INTBoQ8ERRM".P P!Q8QEND H05 A FTNR CCS 3.0 SL-149.@P dT TTT .PQ8QEND.PQ8FS Q8DFADQ8UNITQ8QUN2Q8QUN1Q8CMP1.P PQ8CMP H06 A FTNR CCS 3.0 SL-149.@P h3HHdƐhdDhhdTFKhh .@P+hHL8@ hk"ThT h~"  b hvT P.@PVިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe.@P& D!WX"ȭ ȩ!5XMyl,e (!;X Ȍ.@PTT `h Dh XX\\ TaH #.  3\.@Ph! TT .PQ8CMP0Q8CMP19Q8DFADQ8QENSRECEND.PWRFLG Q8EOTTPQ8RINTQ8CLRBQ8LOCBAQ8BEGB=Q8EREM.P PQ8RWBU H07 A FTNR CCS 3.0 SL-149.@P hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #% .@P+ # Dj A Dh h h  Hhh.@PV&aH3[HX" L!`h TT .@PaH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙl.@Pؘؚș _ U h.`PB.PQ8BINBQ8LOCB#Q8RWBUPQ8INTBQ8BEGB(Q8CLRB+Q8RINT:Q8IBUFWRFLG O.PQ8EREM{Q8CMP1.P PQ8ERRM H08 A FTNR CCS 3.0 SL-149.@P HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH.@P+ j `0.@P; .@P@'d .@PJ hrHr s"htjqh hDh`Hah`I/O REQUEST .  3].@Pp     X XX*EX XX&X+@XXX< XwhHh.@P h,ph*X" dh$ h!X mh hX ThX THX.@P TL `u.PQ8ERRMQ8FERMJQ8EREM[.Q8EREM.Q8DFNF.Q8DFIN.Q8QT0M.Q8QTRM.Q8QX .Q8MOVE.Q8QY .Q8QZ .Q8QUN1.Q8QUN2.Q8QUN3.Q8FGET.Q8FPUT.Q8LOCF.Q8IGP .Q8MAGT/Q8EOTT//PQ8LOCBQ8LOCF.P PQ8DFIO H09 A FTNR CCS 3.0 SL-149.@P HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HA.@P+XHXR(?R!39h9X?XInhTK  NX0h+p nmh n.@PV ;ln  H T` + ȋXh؆1  .@P HhH  TT hhhhdhhuXvh̺.@P (BD n&ȫdȫ .PQ8DFNFQ8DFIN.PARABSRECENDQ8QENSQ8DFADQ8QINIQ8EREMQ8ERRM .P PeQ8QX H10 A FTNR CCS 3.0 SL-149.@P hJIEhE h h  hh h8H60TXX h%`".@P+ "h*hTHIJ T h hh.@PVh ll.  3^.PQ8QT0MQ8QTRMQ8QX Q8MOVENQ8QY Q8QZ .PARABS#Q8UNITQ8QUN1Q8BINB>Q8IFRM7.P PQ8QUNI H11 A FTNR CCS 3.0 SL-149.@P X# Xhh@4i` Xj TT Cr q d.`P+^.PQ8QUN1Q8QUN2Q8QUN3.PQ8EREM.P PbQ8FGET H12 A FTNR CCS 3.0 SL-149.@P Y hUDhT XHXhNX hXh:a62Hl2.@P+0X), H,)H& XXh a&hh۸nX X h H /@PV /PQ8FGET Q8FPUT7Q8LOCFQ8IGP /PARABS;/P PQ8MAGT H13 A FTNR CCS 3.0 SL-149/@P HThhh=@ T XT%T\ XFDh5TFh120-3 T/@P+*(%!T TF \T T \T /`PV/-  3_/`PZ/ @Pa H HB0h hȳhhhQ\ٸj\/ PQ8MAGTQ8EOTT>/ PQ8QUN1:Q8QWNDHQ8COMILQ8QUN2 Q8EREM*/ P PTAPCON H14 A FTNR CCS 3.0 SL-149/@P H+h* r Gh hlBhHX"9" "hh0" T+TX%/@P+ hT\H `CT T@ TFhT&h/@PV XX TTT 2X X' h$  X0X/@P XzШ Xhˠ T Tc/PQ8QBCKQ8QFLEYQ8QWNDyEOF i/Q8QBCK/ Q8QFLE/ Q8QWND/ EOF / IOCK /Q8PSE /Q8PSEN/Q8STP /Q8STPN/Q8COMI/Q8PAND/"Q8EXP1/)Q8EXP9/0Q8EXPT/0Q8EXP2/0Q8QGET/9SETBFR/9ENCODE/=/BPARABSQ8IBUFQ8QUN3Q8QUN2EQ8QUN1_Q8CMP1Q8CMP0Q8EREMQ8ERRM#/P PIOCK H15 A FTNR CCS 3.0 SL-149/@P HXhTh  T  /PIOCK /PARABSQ8QUN3Q8QUN1/P P?PSSTOP H16 A FTNR CCS 3.0 SL-149/+  3`/@P H= X H8X H0:TX*@) 7\TJ   hT/@P+H5/@P7STOP PAUSE /PQ8PSE Q8PSENQ8STP Q8STPNQ8COMI!/ PQ8PAND/!P PnQ8PAND H17 A FTNR CCS 3.0 SL-149/#@P h\H jN qDhQ`hS \hL!:R hJE hBEOi:DhL1a: Lw T&RH5 I  vR  /4@PLaT\T /5@P hh Huhi[G M^@BPCE}GN HJzLLK@/6PQ8EXP9 Q8EXPTQ8EXP2/7PIFALT PARABSHFLOT H/8P PQ8QGTX H20 A FTNR CCS 3.0 SL-149/:@P/;PQ8QGETSETBFR/<P P9IOCODE J01 A FTNR CCS 3.0 SL-149/>@PXXHH"4` "a "a a#XaX""aX""aXaXh h/?@P+`/@@P2X/APENCODEDECODE/CDECODE/=COMMON/EISAVE /EIGETCH/IGETCH /IIPACK /NUPDATE/TDECPL /XINTGR /]SPACEX/bHOLRTH/gQUOTE /gDCHX /oHXASC /vAFRMOT/|RFRMOT/AFRMIN/RFRMIN//PARABS7SAVE OMMON ORMTR'/Du  3b/DP P%PSUEDO J02 A FTNR CCS 3.0 SL-149/F`P%/GPCOMMONISAVE /HP PIGETCH J03 A FTNR CCS 3.0 SL-149/J@P#y a%XH!""" A/KPIGETCHGETCH /LPWRITE/MP PBIPACK J04 A FTNR CCS 3.0 SL-149/O@P#*   "!"X# a1rX ""  "!f" !" f""" f"/P@P+ "a""! h " "f"/QPIPACK /RPHCNT .WRITE/SP P UPDATN J05 A FTNR CCS 3.0 SL-149/U@P" "f" !"/VPUPDATE/WP a>  3c/X PDECPL J06 A FTNR CCS 3.0 SL-149/Y@P` a! a a"X  a! a"XXaa/ZPDECPL /[PNTGR PDATEETCH /\P P&INTGR J07 A FTNR CCS 3.0 SL-149/^@P a a! a"X"  !T 9!a Fa a! a"X/_PINTGR /`PPDATE$ETCH /aP PSPACEN J08 A FTNR CCS 3.0 SL-149/c@P a a! a"X a! a"X/dPSPACEX/ePPACK PDATEGETCH/fP PHOLRTH J09 A FTNR CCS 3.0 SL-149/h@P a a! a"3XXa a! a"X  a  /i@P+! a a! a"X a! a"X a! a"3XXa a! a"X=/j@PV    + a  e a a! a"X6 a! a"X/k@PT/lk  3d/lPHOLRTHQUOTE ?/mPHCNT oPACK zPDATEETCH LGETCHI/nP PpDCHX J10 A FTNR CCS 3.0 SL-149/p@P aaaaa `!W a! a"Xa a! a"X    8/q@P+ 4 0a a* "X 9"X>a "XC Fρ" a/r@PVA Fρa1BXLaADdRAa/sPDCHX /tPWRITE`PDATEGETCH/uP PLHXASC J11 A FTNR CCS 3.0 SL-149/w@P `ab a  0c    ` a`b% *aa ` a/x@P+"Xd"2aR @ a! a"X a! a"X/yPHXASC /zPWRITE0PDATEIPACK B/{P P#AFRMOT J12 A FTNR CCS 3.0 SL-149/}@Pa `! a! ܠ a"Xa a! a"X a! a"X/~PAFRMOT/PPDATE PACK ETCH /́  3e/P PRFRMOT J13 A FTNR CCS 3.0 SL-149/@P a a! a"X a! a"X/PRFRMOT/PPDATEPACK /P P,AFRMIN J14 A FTNR CCS 3.0 SL-149/@P a! a"Xa a! a"X a  a! a"Xa a! a"Xȁa/@P+/PAFRMIN/PPDATE&GETCH/P PRFRMIN J15 A FTNR CCS 3.0 SL-149/@P a! a"Xa a! a"X/PRFRMIN/PPDATEGETCH/P P4ASCHX J16 A FTNR CCS 3.0 SL-149/@P a `! a! a"Xa a! a"X a 6 9 2 2X/@P+ aıa/.V  3f/PASCHX /ASCHX /HXDC /FLOTIN/FOUT /EOUT /EWRITE/INITL1/RESTRE/FORMTR/CHCNT /Q8QFI /Q8QFL /Q8QFX /HEXASC/HEXDEC/ASCII /DECHEX/AFORM //PWRITE*PDATEGETCH/P PHXDC J17 A FTNR CCS 3.0 SL-149/@P aafRda -a0F 0ac 2 .a `9/@P+ac a aA `! aa a( a .a 0/@PVa!D Q" !yR *a aa A a! a"X /@Pa! a"Xـ/PHXDC /PPDATEPACK /P PFFLOTIN J18 A FTNR CCS 3.0 SL-149/@P`hA` aXX!!a@bRd@`X X aXT@%/@P+T"ahX T,a`aA/PFLOTIN/P8QFI 5HFLOT 78QFL CHX /P PFOUT J19 A FTNR CCS 3.0 SL-149/@Ph`"Rd@`XT[ZqXn]@1K%TX a`/:  3g/@P+ aX .a a! a"X a! a"X aa`"d`!X%XT Y,/@PV]@XMX.aaȝ`h *a a! a"X8 a! a"X? h/@PBP@@JI>/PFOUT /P8QFL OPDATEyPACK rXDC [8QFX YHFLOT Q8QFI /P PEOUT J20 A FTNR CCS 3.0 SL-149/@Ph`X``` a` a` `/" 4 A *a A    g/@P+R@R@ -A` .a ` a! a"X a! a"XX@T/@PVXI -`" ` c1Xd 2QTRqXY c1XfT/@Pq[Zd@Xx #  a` aܐ!XTYD]@XX a/@P Ea a! a"X? a! a"XF a  +a `"d` 5 aX /@PaaXa `aBP@@/PEOUT /PXDC 8QFL WRITE8QFX PDATEPACK HFLOT 8QFI /P PEWRITE J21 A FTNR CCS 3.0 SL-149/@P#4h h` /PEWRITE/PORMTR/?  3h/P P(INITL1 J22 A FTNR CCS 3.0 SL-149/@PXHH"4` " "aXaX ahh`X/PINITL1RESTRE/PARABS&SAVE OMMON/P PFORMTN J23 A FTNR CCS 3.0 SL-149/@PPqa aa a a a a a! a"Xa"  6 9! /@P+T d  a a! a"X   `  `/@PV  aXaaX" a   a! a"XD /@P aaX'bdRQ"X; aX3 aX+  "X/@PaX  "XaX XaXXf" #"Xf" a#/@P a a A aA aA  XX" a a A aA  /@P  a  aXX"a A a` !RAXaS /@P-aXK aX0C  "XaX6  "XAaX)a#/@PX"X"a` aX aX#"XZ XNaX aa /@P "Xw a! a"Xw a az a a a p a_a( a! /@Pa"X^aX]X1 aA a a! a"X a! a"X a! a"X/@Pِ2a a Da  a  a  a! a"X 3 ! a! a"X/@P /\u  3i/PFORMTRCHCNT /PWRITEPACK OUT {OUT mOUT eFRMOTRFRMOTEXASC 8XDC &PACEX UOTE OLRTHLOTINFRMIN/PFRMINSCHX CHX ECPL cNTGR PDATEETCH 8QGETr/P PQ8QFI J24 A FTNR CCS 3.0 SL-149/@P` ``TBP@/PQ8QFI /PHFLOT /P P+Q8QFL J25 A FTNR CCS 3.0 SL-149/@P#dRAR`B@ @"si`  dr$Rd`@/PQ8QFL /P P0Q8QFX J26 A FTNR CCS 3.0 SL-149/@P$dR@ R  DA ) H f H g Add/@P+RAa/PQ8QFX /P PHEXASC J27 A FTNR CCS 3.0 SL-149/@PX a#a a a a"a aX/  3j/PHEXASC/PHCNT ESTREXASC NITL1/P PHEXDEC J28 A FTNR CCS 3.0 SL-149/@PX a#a a a a a"a !RA aX/PHEXDEC/PHCNT ESTREXDC NITL1/P PASCII J29 A FTNR CCS 3.0 SL-149/@PX a# a a a aXf"/PASCII /PESTRESCHX NITL1/P PDECHEX J30 A FTNR CCS 3.0 SL-149/@PX a# a a a a aXbRdQ" f"/PDECHEX/PESTRECHX NITL1/P PAFORM J31 A FTNR CCS 3.0 SL-149/@PX a# aa a` aX f" /y  3k/PAFORM /PESTREFRMINNITL1/P PRFORM J32 A FTNR CCS 3.0 SL-149/@PX a# aa a` aX f" /PRFORM /RFORM /FLOATG0FLOT 0HFLOT 0IFALT 0SFALT 0OPERND0NXTOP 0FPEROR0PROCHK0SPECOP0FLOFOP0FIXFOP0Q8QD2I0$Q8QD2F0$Q8QD2D0$SNGL 0+DBLE 0+0.PESTREFRMINNITL10P PFLOATG J33 A FTNR CCS 3.0 SL-1490@PX a#a a a a a"a "a aX0PFLOATG0PHCNT ESTREOUT NITL10P P>FLOTN G14 A FTNR CCS 3.0 SL-1490@P  `a` ` `X8A"C  x&Lp0@P+sXa*XFXXȰ,` Ȱ#`X`Ȱ#`XB`Ȱ#`XJX0 @PVbXO`Ƞ$d `d`Ȱ.`X XSXUbb $`S@0 @P@` *`@ed`d`Xo` `Ƞ4`n Ƞ$Ȱ$>0 @Pa.`X"dR`2H `͠ `D`D```XCXXXS#Ȱ.`0   3l0 @P A`@ @ ŀX2X0` `2@A`π`"G0 @P z @35` ` 2` 1`ϐ+ e% b ``"dR0@P-`2H ```XcXX8#Ȱ.`aA@͠`d `0@PXrd 0 d1 " 2a0 `Da0 1 q  ! X0@P` ` `X XAdRXX@`!d߰2H 0@P`"`@`ed`d``Vϐ.`@`@`0@P@ϐ"h t=`hA``h`A``B" e0@P " `@2T "@k"Ƞ>.`Rd"0@P/>`R@`" `0PFLOT HFLOT 0PPERORIXFOP6LOFOP3PECOP-XTOP ROCHKqPERND0P P4COMNFP G15 A FTNR CCS 3.0 SL-1490@P &B``` ",2!#`&2  0@P+X/2 <CF=B#`X X9@ `X!X10@PV Ƞ$XX #!1H%0@PX#X X X 4 4p"d 2esR0@P4R4!D RȢA1`R "dR@ R  B H ga0@Pd `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR0@P@`/@Ƞ4` H(X t` Q  T"" R1 H XRR0  3m0 @P-t`p0!PIFALT  SFALT %OPERNDNXTOP FPERORPROCHKSPECOP*FLOFOPFIXFOP0"PPARABS0#P PtQ8QD2I K01 A FTNR CCS 3.0 SL-1490%@PH  H H h@X`X` f`!d`X"``0&@P+`T@p#``"`\q0T"``` `\@T0'@PVa@%\Թ\̹1\ú@p@0(PQ8QD2IQ8QD2F Q8QD2D0)PARABSDLOG @DEXP RHDFLOT.FALT $0*P PSGLDBL K03 A FTNR CCS 3.0 SL-1490,@P H XhT0-PSNGL DBLE Q8SNGLQ8DBLE0/Q8SNGL0+Q8DBLE0+DABS 01Q8DAB 01DSQRT 06Q8DSG 0>DSIGN 0>DEXP 0CDLOG 0LDSIN 0TDCOS 0TDATAN 0_Q8DXP10hQ8DXP90pQ8DXPT0pQ8DXP20pQ8QDFI0{DOUT 00PARABSHFLOT 00P PDABS K04 A FTNR CCS 3.0 SL-14902@P HXhT@"\t03PDABS Q8DAB 04(  3n04PHDFLOTARABS05P PDSQRT K05 A FTNR CCS 3.0 SL-14907@P@X"``'d`dR``@ZG* AB ;1`Š 4`T08@P+|ܾۚ@h\y@Ő Ɛ 09@PVǐ B\ν@a 4gRd@R@`\\@@?N^ rA̼0:@P>L<"aArI$J0;PDSQRT 0<PARABSHDFLOT*0=P P$DSIGN K06 A FTNR CCS 3.0 SL-1490?@P @` `Xah\ b#1Tt`0@PQ8DSG DSIGN 0APHDFLOTARABS0BP PDEXP K08 A FTNR CCS 3.0 SL-1490D@P@Xh`\P@ %\I}@ @\B[@zw?Cؘ# `>! " H0E@P+X ``"Q\&Z]|^]^@Ř G" `R|@` 0F@PV``TS\՞LHY^BY^UUUV=UUUV<DDDD;[[9h8hh60H.  3o0H@Pw[5I>@X 0IPDEXP 0JPFALT ,HDFLOTYARABS0KP PDLOG K09 A FTNR CCS 3.0 SL-1490M@P@Xh@\A@1X"`  Ő@ ```\%Q0N@P+1`` #d*@@1*A`ߠ4ad` 1`T^-](0O@PVYC>82,& ٵ ^@@Zy@X 0P@P@@A@@UUUUV?fffff?I$I%>q>Et>N>DDDD>xxxxx0QPDLOG 0RPFALT HDFLOTJARABS0SP P DSNCSN K10 A FTNR CCS 3.0 SL-1490U@P@Xh`\c@```\X\S0V@P+@Xh`\2@ %\+}@ ```\"@ؘ=Ƙ0W@PV8ǘ3K@,Ř7X"` TZ}]@Ũ1Gf $ ƪŪ`0X@P ` `\Ye^Ř]7ƘZ?ǘW;\ҵN `ŘD4@40Y@P<!?` ``\(\~-]@\fY@<^Y6^Y0^Y*^Y$0Z@P^Y^Y^Y@\t@QAdQAQ@*Q@Ke0d@P?j g>ׁV@U@>ffff6m>qq.>NN=xxxx0ePDATAN 0fPHDFLOT]ARABS0gP PQ8DXP1 K15 A FTNR CCS 3.0 SL-1490i@P X` h9aaaa&H}H |H%2H M A chxV "Xa0j@P+ bX\ kJ " H\\@T:\ BKTM0k@PVB  HI ;a88Aa,h/aAa+aah$cDAag0l@PhDaau h h HR 0mPQ8DXP10nPQ8DXP2LQ8DXPTUARABSHDFLOTR0oP .}  3q0p P Q8DXP9 K16 A FTNR CCS 3.0 SL-1490q@P H XԺ hfHXhh`Xhh[ HL#dhSH ! 0r@P+laal aa<`9ch9W "X bX *L "H0s@PVTxx HsLoAAd]0t@P}|LQ3AaI 'Lv T*a)RH%3I  aH0u@PQ A a#vR  2LaHH ALȱaX \x0v@PX N[ hhhuhi f[G ߂M^@BPCE}0w@PGN HJzLLK@0xPQ8DXP9 Q8DXPTQ8DXP20yPFALT HDFLOTWARABS0zP PQ8QDFN K17 A FTNR CCS 3.0 SL-1490|@P` ```TBP@0}PQ8QDFI0~PHDFLOT 0P PDOUTN K18 A FTNR CCS 3.0 SL-1490@Ph`X`````` a` a` `/" 4 A *a A 0@P+%lR@@R@@R@ -A` .a ` a! a"X a! a"XX0@PV%hJT``XT -`% ` c1X0f  3r0@Pd 2Q\ݵ``Xo c1X|\[Zr@``X # 0@P a` a!X`` `\YH]@X``X a Da 0@Pa! a"XJ a! a"XQ a  +a `"d` 5 aX aaX0@Pa`aBP@@0PDOUT 0PXDC 8QFL WRITE8QFX PDATEPACK HDFLOTd8QDFI0P PuDFLOTN K12 A FTNR CCS 3.0 SL-1490@PH  bb@`0@P*X X a*` a aX &Baa"aC0@PU3%p,` Ȱ#`Xa0@PXȰ#`XaȰ#`XTbX&)+25,Ȱ#0@P`X TA a!1  !10@PXv`` `">a.`AA&dRARAa 2H a  0@Pa a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ 0@P,` *`@ @id`d`d`  Ȱ.`"Ƞ,0@PW2!Ƞ#`'2 ' dXX.#Ȱ.` 0@P!Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@0@P` !AX`"Š"Š``@ AaaA3Aas0@PA``c` 1 m@`$ `ǨA a a 0S  3s0@P a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#0@P.Ȱ.`1   #0a d a  !13d #2d0@PY Ad( 2adaa1 aDa1bAa?ad A20@PaF ad2aa1`a1`Da1` a a a-`aaaa0@PA&RARAda2H a aaa  ! Ta 0@Pa a a _XadadRXWaAaA!d0@Pذ2H a "a aAa A a hda da da 0@P0 a aa  a1 a A  a A a A a A a" x a  `0@P[ d aa bAa a babAa"H1h #h`A0@Pa`Aaa`AaaMaB a #a  A Dda a 0@Pa #a  n a )a a #a A a A # a 2W 0@P ,or | AA A   AA A  a A kdRA a 0@Pda . Ƞ>t` A U@ `a `X"dR@ R 0@P2 B H gad `Ȱ#`XTbȰ#`X`!d0@P]B2 @rdR@`/@o0PDFLOT *HDFLOT/0DFLOT 0HDFLOT0DSTOR10RSTOR10DSTOR20RMUOPN0RMUCSWd0RMUCF01RMUCFTk1RMUCLO2RPGSM02RPGSM12RPGSM22RPGSM33RPGSM43RPGSM53"RPGSM636RPGSM73O3mPFPERORPROCHKL0P P8DRSTOR K14 A FTNR CCS 3.0 SL-1490a(  3t0@P @s""f"bb @s""f"b @s""0@P+f""  b`b0PDSTOR1RSTOR1DSTOR2"0PARABS0P  @X<H@l?X6H:l9X0H4l3@Ih*)H&%H! $E"Ha.aBdB0F S//72x|]b4HohmhlHj lhghed_h^ h] WHW!  hUHQQhQJT㻕hlHEFHTqK* dsh9H32 l0/29XOs(h* h'!HX, %*HX"lh hhlhhXhhH hؠ l nѐhB@'d  giy`951-)%!]YUQMIEA=  @ Ts@ D 3 hH !hHT   " '&#$%("h+* h%h%$h!-Hhhhh1h  h @HV!HR O@LTJT{G1 0B@dRa9:hh6h5 D+`+)X & !`#!Xh0`XhThT  h h Dh b2@h T&|GZ"h"d"+HkLgMh\cJh__H h]T VhVTQ@STK0. DhFhdT 6T4h2,@ST&0T h TH hDa hT[\ T[h87 "dH1+1Ah'TH%"H#TH!h!H1Ah nh@TÕhhT&h,H, h&H% H$h$!H"h"H* h!d #hh(4h%Tq"TTH!Hl hhlh h H T̠hls"hAhhH@hD XXXX&" !   )A"TZ"hh T9 h\h[hZhYhXhWV"+6AI[IJ@T@d>6Tf/dR+Tk%dG TeD?ThTf dTf dThs dsq dsTTEA"T̠ ʀ/hs!dss1Ⱦ/+$hThThثثحȣ/Ȧ! Ȣ!T .bȋb HH" fAl^ l][ "-LV?S"h" LO TH +F@dRa> *w%1_T*/#  sh>h; h:7A4h3 5a h31h/.Ġh,(h'((dRh#T Hhhhh h  TlTf  3u0s&TT&TMs&Tk &Td&T]Hh/,TH*(b$TH#h# l H1Ahbb0 h bbhBlFH? 7H55 8rC`- dhTP,(% T& ! ddT&A" h T:h h  hhLh  hEhh>sh.a 42:*a?/bDbbh  h hTu 2Db bTXM Hdddh]]ddhUT%rJE"4hE@+; 52 H/H-+(!!n!  ةFA h &Ah#HTXa#H#2  1b>.b TXQ;h2h0>b#$&1 -H, <,b 01X >.bTPN>T 2"8. . , ?/b$TP/ؠ  @0b",TP >.b h bXTXPX  bB2b  bb #HTXa#H1  yAb h9 Ab>.bTX,Q;h)>b#$11A1a 03 16:*aTPN8 2"8. ,$A1aTPA1b ?/b3TP:*aA1b2Db b bb TXXd"h%h$h#h" cdhE"h "hdTZyzh`XXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1 0001000100 YYDDD YYDDD 000000 RING #"a# h& h& Dn q h  n q n q n  n  nTh(o "&$$MOUNTS  h"n q HX"31B2a h hTl( oH " h h hTd( o h hX2%<,b h hTb(o H hTu +hTu B0F4Ȁ00h# "+NO hTLTNO}  b!0TXs*h=-  3w0b:*bTX HTX'TPAU1* HT( "jh H +HX*TPE, HTX51 . !TP hmhk heba]^ " H "HX TPBHDR1VOL1 "h5h4$h3 hphDh hSHBH 0hB Fh TPC.TX)TXTX )e' " "HTup@Tp1TPHTYPTX "HTuB0FHB0F00HB0F4Ȁ00hTup@ HTuTkpTupTut *DT(TX TX8(aTXTX8YACC1BrPUTS Y9DETLR9CKSGcR9LOAD#"a#.)-TX:8EOȿV1B2aE,XCBb @b6-# /TX,TTX"X"Ab @?bA1a,TXX TXTXTX bR9FTSWR9OV0HohXlh HXgh (h h!2 S Q H0%A h^ XJh HXEhXBhd(h (h /ȱnm" $ȧ 62 2 hHȜ- h+ h h"  h2  ؒY9h hF2 R9GETSd0hH hhh H0%A 0FhHшHl hƐ$" uЈh h Ȼ8h 0FhHȵhhȮ nȪhhȣ nȣȥh hثȘDhh h}h|y B0FHfB0Fb00H_B0FH[B0FW00HTB0F200HL "hTu@ F1LBV1h!Gb *DT"(TX " h Tu"#NEOh*EOV1 HL\Hh" a!HA hh (h&hhh aT`LHhA H h(hTu ȼa h l lTH h lhhH |HX hXl q" d   *#C:r> " r < H E A a1"@Z{[lP}M]\Nk`Kaz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOPQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="XXXXXXXXXXH5 h1A"Dh-hTl)(l&%"h!l ll ωGZɋakak-#-ww))14֍֍ȳȳsԷպպպպEt'cXU_tww))1]]]]___w_))____HTFr{μ_ͣ2E ʇ&KUwʘtͣީ5_Q͞ۦi͘ډ-1Sީ=μ94t ͞ۦi͘ډ1-h]['hY hXhVTRhTSNMIHJhJHGhHhGhFDBTޒss ds5 h321h2h1h1.,Tޒ'% dTTFh!!Xsh1h hTsh! Xh1hh܈hTԘshhshÌlhȾhػTJsȫ hȬT\-ḩlȤhȢhؠ hhH"h @T߻ h  hh2HhTTjLlh H h TTjLsHs hqHnf i* l\[aT=VSZTX'T@T OhhLhK bH@"DTh@<@=:Ts3* /-Th+&@GTީD  3x0T=T*@dRautoHohmhlHj lhghed_h^ h] WHW!  hUHQQhQJThlHEFHTK* dsh9H32 l0/29XOs(h* h'!HX, %*HX"lh hhlhhXhhH hؠ l nѐhB@'d  giy`840,($ \XTPLHD@<HDhhCehCHA l?>=8h8[6h7Wh3Th40 Fl.-.%)h#XJ&%FC.@h=h lX5 h  1 h!hHM HThȈñshhH h bтb HT'h!H hh hhThhThh h Th-T&h"H  hh hhThhThhdRh Th--KRYT*T*T d*T,HYhXUTR HP !h " TpC--7<'hh8h<&h62/h31/@/T(%#$Tsh !hoT ` TT&- Wd -Tƹ`l%Tͣ"(TThT TϹ-TT&  @ TsH AhdhH lhH!o wvHbHaQ%\ThhT HPhPhOHMKIlFEHGhDD= 8h;5Dh81H .+h3h',h-"18$##TT?hshhhh! h Th:hThTX(1TTX1 qhTǐh 1  d j ظyOغػȷhThNHLKUGFhGhFChD AhB>?Tѳ 9Thh956Tѳ*0Thh0 *h''h$"h!!h hvthth Tѹ TѹcTޒs TޒshC h! hTՒhؘ!+T hTՒsh˘!Tss'h'hh̺hصصشs1 hȥT-TfHd DEBUG-INDICATORS ON- NONE FIELD ARRAY TABLE VALUE T/H( d1h#XXX "@ \c  H (hT 1S hO h ! hhX>+Ƞhs%hhhH l͜h!Œh/ l hX `h \ h hHT   hh @h}T,wX}z1oj@ \X_BXCZhfK U@ h^\HP@ \HJFhJhS hEhBK  Tn@0H@31h1--,TXiX8&/X-h&hhhhh  @hT hhX1@ThhԈh@Tʈhh׈TѹTX%Xȼ hXȸhsh̷oTرتȯs̪1qT؜@TީT dTdl ll 1@ TT2 T&ΑTheHcaTޒ] TޒW hWhVhUQP c@ T ds ds h210th*&h%'T h#"!hhT h  h1S h h  tf ! h !sTJ!h htfǐh TȸhTJsȯ hȰT\-THh HTJ c@T=ȗT\-,Tƹl21TE,T%T  d T hT TϹT&r  3y1TT.H d1"h H"hh@hT ` T/ b@TީhXh~ H}X{@{T v@Tͣphoiqoh1khdcf@bT hh[`T[Vh\tYThNT hQJhJIThhKo!zD! @@dR6h:s7qH50 l-$$1h'$h"hThhol T-@T hh) bThshhۄoTh1!qTh hȶhȹ1ȵhȻ bȷ@T hh@TީDSPLY -XhHjHix he'HdtHbHbHl[&g#qhW a&rhQshMLXYKXWEhImhGlHE$?h?H=6h=Dh9,5h*,h*)oh.-X3*h( QhX%5 h% h h oXs HThhX"pH1Xh֐hʠ$X(Tѳ˜Thɔz1o6XȹTѳˣ1ȵhnT2ȨTإXhH`ih_H_ h[4hZHWXc"xU2 Q!N?"XOM2=XKXOD2Al;:8h>=<9h75&"h4,1(h&%X,X0!F#!Tѳ X hsqotpntsTh! HTh HXDh  tT TTTT& dTT& T) T)" ""h H " \-2@ D 3 hH !hHT   " '&#$%("h+* h%h%$h!-Hhhhh1h  h @hHhh Tl \ Tlh<hh8h7H33hh)`(T$@"T@GTީTf Fh\Tfh bT-H "0HD -h5 h4H14b"+T  dXXb2d"h#`C T-HAHV!HR O@LTJT̙G1 0B@dRa9:hh6h5 D+`+)X & !`#!Xh0`XhThT  h T+23f",3b d3RT T(, h%$d2FT*3$d332T3,3"d2- Htshsrf Hiq(HbTT(0(QTMTE1%TӍ" Bd T 7T׳ 1b  &TH# "T2T#H H Q d 0""0H T#H T#H26 THd "HQ)TTT9   d T&dRdT&T bh Dh b2@HVhV hUHRSQQ(1L#5hIH hH DhF = =;h9h750Th1+ Th (2<FPZopz011020304050607080901PL0LRH1OAOVU1MR d h&%dHTbH@"a HA^GbEbT&HHh"HRhhMh   17 T d!.TTƹ,-THh hH~|hȾ     htX@kihnX:e hc `hfTHZhbYTSHVX( hX Oh`J TSHFXC S>d:9h=749h2+Jh2)0h/ zh+ l- c@ T `Q":" h s hhT`thTh1XDTAh׈ hhA TTA h  q TȼTdHTشhX̲ lȫq lXTآhȝT?ȚhH hDa hTf\ TfLl(TEh4  3z1$@ TϹ , @dRaӑHRhRHPTHOhOHM#JAGhIHEFhF>>ThTh7h;7h532dRh-+Th-'#h#dRhTh-ThhdRh Th-H%hh"hHThhh Th Td d #TϹ\hL"hT# ,\  lT&2THhhh !S@ T_^h_h^h][YTޒS hQPOhPhOhOLJTޒ hIHhF !BAhA h<;6&4h5sfs .h, H)1TJs ds ds h h d8 T\-XXXX&" !   )A"TZ<"hHH" fAh 'h_ h^h\ h[Y2 VhTR lPN !KIFlGF !C hA? l=<!8 dh64l1/++h)&!%%l# h" ! l l lȺh l h 1 ޭhCHA" h>=@:T߻h9 41 0)T9&b$h#    @@dRa h 9 bb h#4h$$H !T$hhThh T$h  Tѹs h"HA dh0 h l+0L'! @ T l T@Tͣ 0 lԑّLzlyHr h holKhl )i"ء _1n X UXbP  h GT C+@>+:9H 3 1 -1b  3{18) 'd$hdA hTHH h B `hh h`TdhWhX-hW hR ڐhhII lRA h@TLHd0H7 `3TSH- +h)*Tn hH# h 1&TT ȟ ? }@hȖ hpho "HfXmA haTTWh XP$hNTѹ=GEEhCXJB@@@Tsh>h; h:7A4h3 5a h31h/.Ġh,(h'((dRh#T Hhhhh h  Tlh+Hs9HTh l THwHt lnlnlo nlklhljice  $ lX lUX!UC lOQMlJ lKKlH  HCBC l>>Ml9 6D T .$+1('$Ch"ThH%S 1"T @ Tkhhhhhhhh hTihhhlllll hGH̿H1T WH#.H@dRa,T OH T @T ؓȜh@hTs@TީȐ d2 @ T @ T 22"d2T2"d2"! 2Tѳo2Tѹkd2(T&T& h\2"1k2"hP hPKIhK 3/@HhA=T h69h74 ! .!"(+'"22"12"Ih 3y  n2222"x2""2"h1h&h hhAh h˨h -hW1h82 hl,h bA hubhDbAbB h\2 hbvb!@dRalB hiD ehnTHlhl^1Hh1c_bc@h[dRaYlSX` PTnHQOGbK1 E@bBAb@Db 83b5/b1b*H2d22"2)2"h d, 1,+ d+'22"H d- 2"d. d+Hhd/׀hhhh0 d1 ̢@hTSLhHȾ hظȩ1hh0 ̠蟂lܜ"ȕ hؒl'L%% ! @lT hloTh@GTީ $lbؑɑőT?s&T&Ts&T &T&THN+HK*hH.>b#h?>h9h9 h6 `1/X,`,*X '@$T"T̙h 0`XhThH T  h H_h_`'W@TͣQ0HKJGb!GFb"@Tͣ<-A7@Tͣ106h)'h(h h!&h!hhThhThh!  -@dRa@a@Tͣ0(hh'hh&@T hh`'h"&T`߳TT̙0@dRaOT߯߯2߯߯߯߯߯H[HZYHYVb hTQbOb hLJEBbA@ e<:h<h5h6 1h42Thh0*.0 h+$-h$"t ~ q}o{h h h +h+# h110 bh{  3|1Lh@T hm! HT0T&H=T :hh6k3Th-@GTީ &b b#!TSb 3 Xh&T b"llbLTS ! b 7  TÑT hjHghhdT c@ T\ TTSAhPhOK "hK FHDE hD hChA?  5 0h21+T h) t@ T!hshft hHq  ft TJ h htf ! hߘr نtftTJtfQ Hȿغ Ts خȭȭ h T|s1T ȕT\-hBlFH? 7H55 8r`- dhT,(% T& ! ddT&A" T1HR"'hhM&HIIhJhI$CT?%?sh.a 42:*a?/bDbbh  h hT 2Db bTXM+TX`#T 3#aTX#T-6T  1TX !!bDb 1b*h*$ah$h hT7'a h Π1h A hTbb 0 A 1XTXf#A2 "f"  b ! T +TX`#T 3#a(TS-T1q !!bDb 1b A  < hTQ7'aDH h Π1h A hTbb 0 A !# A2 " f"  bb bTTX_ +TX`#T %T -T3#aTX1TX !1b 8(aTX A1bDb Ah ah A hTb 0A 2XTX bbB8a5)h 5h oh a hT( oo%A1a%:*a3#ah0+TX`#T ,$T!-T B+9   /,A1a 1f"T~T ?b 1"h 1b/+ b/ +   A  ;T7'aa/A h !4h #1hhT a b A b 2b1 b b TXls  !A bDb HA h  b#1h hT h !4h #1hhT a b+++bDbb 2b1 b b + TXTX3#a8(a+TX`#T &T& -,T3#aTX @0aT)1 !ߠ1b)h oh h  hT(oo!2!(:*aTXh h  h hT b )h oh  hT(o Db2DboTXT:*ax+TX`#T 6T/2  3~1t-),T3#aTX1   ahhh  aH2hTh  hT )h oh h  hT( ooTX&A1a!%:*a%=-a+TX`#T (TP ,T3#a/T?/a1TXb. h TQ7'a?9)b hhDh h9"aHA1hT7 !  b9b T  2Db?b+TX`#T BT ,T3#a/T?/a1TX'?h  a H!hTaH'h"Q" H"T3;+a  8(ab A1bDb  b h hhT )hhohT)o b2Db?boh:*a+TX`6T  ;T93#aa&T;!)hhohDa h DbT(oo"(12!(:*aTX%B2a3#a1 @0bbDb 2bB?bTX~ Hdddh]]ddhUT%rJE"4hE@+; 52 H/H-+(!!n!  ةFA h &Ah#HTXa#H#2  1b>.b TXQ;h2h0>b#$&1 -H, <,b 01X >.bTN{T 2"8. . , ?/b$T/ؠ  @0b",T >.b h bXTXPX  bB2b  bb #HTXa#H1  yAb" h9 Ab>.bTX,Q;h)>b#$11A1a 03 16:*aTN;8* 2"8. ,$A1aTA1b ?/b3T:*aA1b2Db b bb TXXd"h%h$h#h" cdhE"h "hdTZh`XXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1 0001000100 YYDDD YYDDD 000000 RING #"a# h& h& Dn q h  n q n q n  n  nT(o "&$$MOUNTS  h"n q HX"31B2a h hT( oH " h h hT( o h hX2%<,b h hT(o H hTR9MU +hT B0F4Ȁ00h# "+NO hTLTNO}  b!0Ts*h=-b:*bT HT'TAU1* HT( "jh H +HX*TE, HT51 . !T hmhk heba]^ " H "HX TBHDR1VOL1 "h5h4$h3 hhDh hSHBH 0hB Fh TC.T)TT )e' " "HT@T1THTYPT "HTB0FHB0F00HB0F4Ȁ00hT@ HTTTTt *DT(T T8(aTXT8 ! l l lȺh l h 1 ޭhCHA" h>=#"a#.)-TT:8EOȿV1B2aE,XCBb @b6-# /T,T!  31T"X"Ab @?bA1a,TX TTXT bd)h00HohXlh HXgh (h h!2 S Q H0%A h^ XJh HXEhXBhd(h (h /ȱnm" $ȧ 62 2 hHȜ- h+ h h"  h2  ؒh hF2 d0hH hhh H0%A 0FhHшHl hƐ$" uЈh h Ȼ8h 0FhHȵhhȮ nȪhhȣ nȣȥh hثȘDhh h}h|y B0FHfB0Fb00H_B0FH[B0FW00HTB0F200HL "hT} F1LBV1h!Gb *DT_(T _ h T_`NEOh*EOV1 hRHL\Hh" a!HA hh (h&hhh aT`HhA H h(hT ȼa h l lTH h lhaThhH |HX hXl q" d   *#C:r> " r < H E A a1"@Z{[lP}M]\Nk`Kaz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOPQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="@ a agXXXXXXXXXXH5 h1A"Dh-hTl)(l&%"h!l ll ߆ۣl``Yl4ٍٍll|llllllRllB>&8lltB``Yl____``____HTFr{؈؋ؠاجدصظVq)) BqBڙl+)$ 7f*,,B,l+7fXchX_ dX_^]W"ttycXM  CGB: ŀ ^hQ741//h*$h#ah"  Tݛ X Xݛ7BMX  { d ȷ nXL  ]X; d1Ȣh$Ȟh! X  b T٤b ȌX  h "ah hbH_ D EA"hWhT_ hhH"h @T/ h  hh2HhTTYLlh H h TTYLsHs hqHnf i* l\[aT*VSZTX'T@TOhhLhK bH@"DT辕h@<@=:T3* /-Th+&@GTT*T*@dRautoHDhhCehCHA l?>=8h8[6h7Wh3Th40 Fl.-.%)h#XJ&%FC.@h=h lX5 h  1 h!hHM HThȈߒshhH h bтb Hݛ&-4TTT dTɀ,HYhXUTR HP !h " TڞC-ݛ7<'hh8h<&h62/h31/@/T(%#$TLsh !hoT ` T T&- Wd -TG`l%Tq"(TThT T-TT&d2 @ T, f"  <" 22"d2T2"bQ! 2T$2T d2(g  31T&T& h2"h1X hIh 3HhTh 6$22"1I 3 ~2222"hdx_"8"+Hs h hI-GE1*2 hl9,6 b1A hj*bAb#DbB h}X2 hzbb!@dRaB he6 hgTHehf1$^[b^.lTX`QTeKbN*JFbAbGDb@ ;h<89T3Th401T+Th,H'"h%#"h!hthhT T TݛTrfHT dTdl ll 1@ TT2 T&Α,TGl21T,T%T  d T hT TT&TXHjHix he'HdtHbHbHl[&g#qhW a&rhQshMLXYKXWEhImhGlHE$?h?H=6h=Dh9,5h*,h*)oh.-X3*h( QhX%5 h% h h oXs HThhX"pH1Xh֐hʠ$X(TjThɔz1o6XȹTq1ȵhnT2ȨTإXH`ih_H_ h[4hZHWXc"xU2 Q!N?"XOM2=XKXOD2Al;:8h>=<9h75&"h4,1(h&%X,X0!F#!T X hsqotpntsTh! HTh HXDh  tT TT~TT& dTT& Tɀ) Tɀ)" ""h H " \ݛ2@ D 3 hH !hHT   " '&#$%("h+* h%h%$h!-Hhhhh1h  h @hHhh Tl \ Tlh<hh8h7H33hh)`(T$@"T@GTTf Fh\Tfh bTɀ-H "0HD ݛh5 h4H14b"+T dXXb2d"h#`C THAHV!HR O@LTJTgG1 0B@dRa9:hh6h5 D+`+)X & !`#!Xh0`XhThT  h Tɀ+23f",3b d3RT Tɀ(, h%$d2Tɀ*3$d332T3,3"d2ݛ H?h?`';\m50aH0/,b!,+b"@+\]- @#\U0M)h&hDh ` T@.-.@\(0)*'&"`'"&T `TTg0.hqT Hts  31hsrf Hiq(HbTT(0(QTMT1%T" Bd T 7T8 1b  &TH# "T)TH H Q d 0""0H TH TH26 THd "HQ)TTT,   d T&dRdT&T bh Dh b2@ d h&%dHTbH@"a HA^"bbT&HHh"HRhhMh   17 Td!.TTG,-THh hH~|hȾ     htX@kihnX:e hc `hfTHZhbYTJHVX( hX Oh`J TJHFXC S>d:9h=749h2+Jh2)0h/ zh+ l- c@ T, `Q":"h s hhT`thTh1XDTLAh׈ hhA T TA h  q T ȼTlHTشhX̲ lȫq lXTآhȝT6ȚhH hDa hTf\ TfLl(T@ T , @dRaӑHRhRHPTHOhOHM#JAGhIHEFhF>>Th=@:T/h9 41 0)T9&b$h#    @@dRa h 9 bb h#4h$$H !ThhThh Th  Ts h"HA dh0 h l+0L'! @ Tl l T@Tq 0 lԑّLzlyHr h holKhl )i"&EX`u^ _1n X UXbP  h GTC+@>+:9H 3 1 -1b) 'd$hdA hTHH h B `hhOP h`TdhWhX-hW hR ڐhhII lRA h@TLHd0H7 `3TJH- +h)*Te hH# h 1&TTȟ ? }@hȖ hpho "ZHfXmA haTTLWh XP$hNTGEEhCXJB@@@Tsh>h; h:7A4h3 5a h31h/.Ġh,(h'((dRh#T Hhhhh h  Tlh+HsHTh l TLHwHt lnlnlo nlklhljice  $ lX lUX!UC lOQMlJ lKKlH  HCBC l>>Ml9 6D T .$+1('$Ch"ThH%S 1"T @ T$khhhhhhhh hT7hhhlllll hGH̿H1T WH#.H@dRa,T OH T @TؓȜh@hT@TȐ l'L%% ! @lThloT辕h@GT $lbؑɑőHN+HK*hH.>b#h?>h9h9 h6 `1/X,`,*X '@$T"Tgh 0`XhThH T  hH[HZYHYVb hTQbOb hLJEBbA@ e<:h<h5h6 1h42T躕hh0*.0 h+$-h$"t ~ q}o{h h h +h+# h110 bh{h@Tl hm! HTɀ0T&h%+ ,TG-TG.TG! ,h-h .hTTɀ%+ hh TGݛTrH@hdRe  dRdhW HT&  JbI2lGG TGDB1@h>=T:hh6k3T辕h-@GT &b b#!Tb 3 Xh&T b"llbLT ! b 7  TnÑhBlFH? 7H55 8r`- dhT,(% T& ! ddT&A" Tɀ1HR"'hhM&HIIhJhI$CT?%?sh.a 42:*a?/bDbbh  h hT 2Db bTXM"TX`#T 3#aTX#T-6T  1TX !!bDb 1b*h*$ah$h hT7'a h Π1h A hTbb 0 A 1XTXf#A2 "f"  b ! T "TX`#T 3#a(TS-T1q !!bDb 1b A  < hTQ7'aDH h Π1h A hTbb 0 A !# A2 " f"  bb bTTX_ "TX`#T %T -T3#aTX1TX !1b 8(aTX A1bDb Ah ah A hTb 0A 2XTX bbB8a5)h 5h oh a hT( oo%A1a%:*a3#a"TX`#T &T& -,T3#aTX @0aT)1 !ߠ1b)h oh h  hT(oo!2!(:*aTo  31Xh h  h hT b )h oh  hT(o Db2DboTXT:*ax"TX`#T 6T/-),T3#aTX1   ahhh  aH2hTh  hT )h oh h  hT( ooTX&A1a!%:*a%=-a"TX`#T (TP ,T3#a/T?/a1TXb. h TQH7'a?9)b hhDh h9"aHA1hT7 !  b9b T  2Db?b"TX`6T  ;T93#aa&T;!)hhohDa h DbT(oo"(12!(:*aTX%B2a3#a1 @0bbDb 2bB?bTX~#HTXa#H#2  1b>.b( TXQ;h2h0>b#$&1 -H, <,b 01X >.bTNsT 2"8. . , ?/b$T/ؠ  @0b",T >.b h bXTXPX  bB2b  bb #HTXa#H1  yAbIP h9 Ab>.bTX,Q;h)>b#$11A1a 03 16:*aTN38 2"8. ,$A1aTA1b ?/b3T:*aA1b2Db b bb TXXd"h%h$h#h" cdhE"h "hdTZh`@ a ag@2h0 ah)b[&&d2h X"HhbTXHhh"H hg B  0%"TX`#T BT ,T3#a/T?/a1TX',h H HHTT3;+a  8(ab A1bDb  b h hhT )hhohT)o b2Db?bo{:*aXXXXXXXXXXH5 h1A"Dh-hTl)(l&%"h!l ll HS.@Ҫ f4ɗɗɆ޿޿ޝߠߠߠߠ^Iۋۋpa88ՓF̧w ՓfGGGGN________HTFr{ȐȕȪȱȶȹȿaקfӦBLnӷՓ`ʣpֽ.5ֈַimfh1aϕ61Փ,1ֽֈַmiXchX_ dX_^]W"~~ɃmXM  CGB: ŀ ^hQ741//h*$h#ah"  T X XALWb  { d ȷ nXL  ]X; d1Ȣh$Ȟh! X  b T^ɮb ȌX  h "ah hbH_ D EA"hWhT_ hhH"h @T h  hh2HhTyT(Llh H h TyT(LsHs hqHnf i*<  32 l\[aThVSZTX'T@TgOhhLhK bH@"DTlh@<@=:T3* /-T5h+&@GTThT*@dRautoHohmhlHj lhghed_&h^ h] WHW!  hUHQQhQJThhlHEFHT]K* &dsh9H32 l0/29XOs(h* h'!HX, %*HX"lh )hhlhhXhhH hؠ l nѐhB@'d  giy`|xtplhd`\ˠ˜˘˔ːˌˈ˄ˀHDhhCehCHA l?>=8h8[6h7Wh3Th40 Fl.-.%)h#XJ&%FC.@h=h lX5 h  1 h!hHM HT}hȈshhH h bтb HT'h!H hh hhThhhThhh h TlhT&h"H  hh hhThhhThhhdRh Tlh̖̝̏TETET dET,HYhXUTR HP !h " T˴C-7<'hh8h<&h62/h31/@/T݁(%#$Tsh !hoT} ` TT&- Wd -Tа`l%T"(TThT T^-T T&d2 @ Tz f"  <" 22"d2T2"bQ! 2TX͍2T^͉d2(T&T& h2"h1X hIh 3HhT4h 6$22"1I 3 ~2222"hdx_"8"+Hs h hI-GE1*2 hl9,6 b1A hj*bAb#DbB h}X2 hzbb!@dRaB he6 hgTHehf1$^[b^.lTX`QTKbN*JFbAbGDb@ ;h<89TXz3Tyh401TXЃ+Tyh,H'"h%#"h!hthhT^q T^q TTðfHd DEBUG-INDICATORS ON- NONE FIELD ARRAY TABLE VALUE T/H( d1h#XXX "@п \c  H (hT 1S hO h ! hhX>+Ƞhs%hлhhH l͜h!Œh l hX `h \ h hHT4  hh @h}TwX}z1oj@ \X_BXCZhfK U@ h^\HP@ \HJ]  32FhJhS hEhBK  T@0H@31h1--,TXiX8&/Xh&hhhhh  @hTghhX1@T݁hhԈh@T݁ʈhh׈T^KX%Xȼ hXȸhsh̷oT}رتȯs̪1qT}؜@TT dTdl ll 1@ TT2 T&Α,Tаl21T,T %T  d T hT T^T&TT.H d1"h H"hh@hTg ` T b@ ThXh~ H}X{@{Tgv@ Tphoiqoh1khdcf@bTphh[`T[Vh\tYTlhNT] hQJhJIThhhKo!zD! @@dR6h:s7qH50 l-$$1h'$h"hThhhol T@Tg hh) bThshhۄoTlh1!qTlh hȶhȹ1ȵhȻ bȷ@Tphh@ TDSPLY XHjHix he'HdtHbHbHl[&g#qhW a&rhQshMLXYKXWEhImhGlHE$?h?H=6h=Dh9,5h*,h*)oh.-X3*h( QhX%5 h% h h oXs HT}hhX"pH1Xh֐hʠ$X(TXԻTyhɔz1o6XȹTX1ȵhnT}2ȨT}إXH`ih_H_ h[4hZHWXc"xU2 Q!N?"XOM2=XKXOD2Al;:8h>=<9h75&"h4,1(h&%X,X0!F#!TX. X hsqotpntsT}h! HTyh HXDh  tT TTMTT& dTT& T) T)" ""h H " \2@ D 3 hH !hHT   " '&#$%("h+* h%h%$h!-Hhhhh1h  h @hHhh Tl \ Tlh<hh8h7H33hh)`(T݁$@"T݁@GTTf Fh\Tfh bT-H "0HD h5 h4H14b"+T4 dXXb2d"h#`C TiHAHV!HR O@LTJTոG1 0B@dRa9:hh6h5 D+`+)X & !`#!Xh0`XhTyhT}  h T+23f",3b d3RT T(, h%$d2dT*3$d332T3,3"d2 H?h?`';\m50aH0/,b!,+b"@+\]- @#\U0M)h&hDh ` T݅@.-.@\(0)*'&"`'"&T`TTո0.hT Htshsrf Hiq(HbTT(0(QTMT1%T2" Bd T 7T 1b  &TݳH# "TT_H H Q d 0""0H T_H T_H26 TݳHd "HQ)TT Tϕ   d T&dRdT&T bh Dh b2@HVhV hUHRSQQ(1L#5hIH hH DhF = =;h9h750Tlh1+ Tlh (2<FPZopz011020304050607080901PL0LRH1OAOVU1MR d h&%dHl  32(TbH@"a HA^̋bbT&HHh"HRhhMh   17 T4d!.T Tа,-THh hH~|hȾ     htX@kihnX:e hc `hfTHZhbYTHVX( hX Oh`J THFXC S>d:9h=749h2+Jh2)0h/ zh+ l- c@ Tz `Q":"sځڑڟڰh s hhTy`thT}h1XDTAh׈ hhA TTA h  q TȼTʨHTyشhX̲ lȫq lXTyآhȝTȚhH hDa hTf\ TfLl(T@ T^ , @dRaӑHRhRHPTHOhOHM#JAGhIHEFhF>>ThThh7h;7h532dRh-+Tlh'#h#dRhTlhThhhdRh TlhH%hh"hHThhhh Tlh Td d #T^\hL"hT_ ,\  lT&ג"D "2h 'h_ h^h\ h[Y2 VhTR lPN !KIFlGF !C hA? l=<!8 dh64l1/1  32<++h)&!%%l# h" ! l l lȺh l h 1 ޭhCHA" h>=@:Th9 41 0)T9&b$h#    @@dRa h 9 bb h#4h$$H !TπhhT}hh Tπh  T^Ds h"HA dh0 h l+0L'! @ T l Tf@T 0 lԑّLzlyHr h holKhl )i", _1n X UXbP  h GT4C+@>+:9H 3 1 -1b) 'd$hdA hTHH h B `hh h`T݁dhWhX-hW hR ڐhhII lRA h@TLHd0H7 `3TH- +h)*T hH# h 1&TTHȟ ? }@hȖ hpho "HfXmA haT]TWh XP$hNT^yGEEhCXJB@@@T݁sh>h; h:7A4h3 5a h31h/.Ġh,(h'((dRh#T} Hhhhh h  T}lh+HsuHT]h l THwHt lnlnlo nlklhljice  $ lX lUX!UC lOQMlJ lKKlH  HCBC l>>Ml9 6D T4 .$+1('$Ch"ThH%S 1"T @ T.khhhhhhhh hTֈhhhlllll hGH̿H1T WH#.H@dRa,T OH T @TgؓȜh@hT@TȐ l'L%% ! @lTghloTlh@GT $lbؑɑőHN+HK*hH.>b#h?>h9h9 h6 `1/X,`,*X '@$T"Tոh 0`XhTyhH T}  hH[HZYHYVb hTQbOb hLJEBbA@ e<:h<h5h6 1h42Thhh0*.0 h+$-h$"t ~ q}o{h h h +h+# h110 bh{h@T hm! HT0T&H=Tg:hh6k3Tlh-@GT &b b#!Tfb 3 Xh&T b"llbLTf ! b 7  TÑT hjHghhdT c@ Tz\ T%TSAhPhOK "hK FHDE hD hChA?  5 0h21+T% h) t@ Tz!hshft  32P hHq  ft T h htf ! hߘr نtftTtfQ Hȿغ T%s خȭȭ h T%|s1T ȕThBlFH? 7H55 8r`- dhT,(% T& ! ddT&A" T1HR"'hhM&HIIhJhI$CT?%?sh.a 42:*a?/bDbbh  h hT 2Db bTXMTX`#T 3#aTX#T-6T  1TX !!bDb 1b*h*$ah$h hT7'a h Π1h A hTbb 0 A 1XTXf#A2 "f"  b ! T: TX`#T 3#a(TS-T1q !!bDb 1b A  < hTQ7'aDH h Π1h A hTbb 0 A !# A2 " f"  bb bT:TX_ TX`#T %T -T3#aTX1TX !1b 8(aTX A1bDb Ah ah A hTb 0A 2XTX bbB8a5)h 5h oh a hT( oo%A1a%:*a3#aCLINصR9BYPSةTX`#T ,$T!-T B+9   /,A1a 1f"TTU ?b 1"h 1b/+ b/ +   A  ;T7'aa/A h !4h #1hhT a b A b 2b1 b b T:Xls  !A bDb HA h  b#1h hT h !4h #1hhT a b+++bDbb 2b1 b b + T:XTX3#a8(aTX`#T &T& -,T3#aTX @0aT)1 !ߠ1b)h oh h  hT(oo!2!(:*aTXh h  h hT b )h oh  hT(o Db2DboTXT:*axTX`#T 6T/-),T3#aTX1   ahhh  aH2hTh  hT )h oh h  hT( ooTX&A1a!%:*a%=-aTX`#T (TP ,T3#a/T?/a1TXb. h TQ7'a?9)b hhDh h9"aHA1hT7 !  b9b T:  2Db?bTX`6T  ;T93#aa&T;!)hhohDa h DbT(oo"(12!(:*aTX%B2a3#a1 @0bbDb 2bB?bTX~#HTXa#H#2  1b>.bh TXQ;h2h0>b#$&1 -H, <,b 01X >.bTNT 2"8. . , ?/b$T/ؠ  @0b",T >.b h bXTXPX  bB2b  bb #HTXa#Hn  32x1  yAb h9 Ab>.bTX,Q;h)>b#$11A1a 03 16:*aTN8 2"8. ,$A1aTA1b ?/b3T:*aA1b2Db b bb TXXd"h%h$h#h" cdhE"h "hdTZ h`XXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1 0001000100 YYDDD YYDDD 000000 RING #"a# h& h& Dn q h  n q n q n  n  nT(o "&$$MOUNTS  h"n q HX"31B2a h hT( oH " h h hT ( o h hX2%<,b h hT (o H hT +hT B0F4Ȁ00h# "+NO hTLT)NO}  b!0Ts*h=-b:*bT HT'TAU1* HTD( "jh H +HX*TE, HT51 . !T hmhk heba]^ " H "HX TBHDR1VOL1 "h5h4$h3 hhDh hSHBH 0hB Fh TC.T)TT )e' " "HT@TQ1THT)YPT "HT)B0FHB0F00HB0F4Ȁ00hT4@ HT?TT<TtE *DTD'(T 'T8(aTXT8TR9UPK2ߖR9PCK2ߑR9UPK1R9PCK1R9NXTXjR9AC1SߞR9AC2Sߟ X)T*hH X"4 h#"a#.)-T:8EOȿV1B2aE,XCBb @b6-# /T,TZT"X"Ab @?bA1a,TX TTXT b` "l#l"l!h h0HohXlh HXgh (h h!2 S Q H0%A h^ XJh HXEhXBhd(h (h /ȱnm" $ȧ 62 2 hHȜ- h+ h h"  h2  ؒh hF2 R9DIVDd0hH hhh H0%A 0FhHшHl hƐ$" uЈh h Ȼ8h 0FhHȵhhȮ nȪhhȣ nȣȥh hثȘDhh h}h|y B0FHfB0Fb00H_B0FH[B0FW00HTB0F200HL "hT F1LBV1h!Gb *DTD(T h TNEOh*EOV1 HL\Hh" a!HA hh (h&hhh aT`HhA H h(hT ȼa h l lTH: h lSTRAhhH |HX hXl q" d   *#C:r> " r < H E A a1"@Z{[lP}M]\Nk`Kaz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOPQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="@ a ag@2h0 ah)b[&&d2h X"HhbTXHhh"H hg.@ B  0%TX`#T BT ,T3#a/T?/a1TX',h H HHTT3;+a  8(abo  32 A1bDb  b h hhT )hhohT)o b2Db?bo{:*aXXXXXXXXXXH5 h1A"Dh-hTl)(l&%"h!l ll h\S  dJSSM&MTe%+l:HDhhCehCHA l?>=8h8[6h7Wh3Th40 Fl.-.%)h#XJ&%FC.@h=h lX5 h  1 h!hHM HThȈoshhH h bтb Hl>= "-L855"h"+L/L(&@%T"hlkTh@T:+b @TT-ȑˑH AhdhH l  @ TshH!o wv@ D 3 hH !hHT   " '&#$%("h+* h%h%$h!-Hhhhh1h  h @H hDa hT#\ T#h,H, h&H% H$h$!H"h"H* h!d #h"hAhhH@hD XXXX&" !   )A"TZ9"hHN+HK*hH.>b#h?>h9h9 h6 `1/X,`,*X '@$T"T-h 0`XhThH T  hhBlFH? 7H55 8r`- dhT,(% T& ! ddT&A" h h ɢhT\H+HMhJhH hXO hXC@hThh |hX\XVTWrhpj@T:c@T:hUXT\HNhWKlLTHR1EAhBA@AbDTHFDHD8b?009b h:8h7)5@0Thh*!bhh%bh"!-"@Thh h Y XIsrT Th(X<uThs1qThhX&uThs1qTh̩TNȪ h 1ȣ hT.TNshh̔oTh؍؂hLh  hEhh>sh.bTX,Q;h)>b#$11A1a 03 16:*aTN.8 2"8. ,$A1aTA1b ?/b3T:*aA1b2Db b bb TXXd"h%h$h#h" cdhE"h "hdTZh`XXXXXXXX, MOUNT XXXXXX ON LU XX, RING,READY? HDR1 0001000100 YYDDD YYDDD 000000 RING #"a# h& h& Dn q h  n q n q n  n  nT(o "&$$MOUNTS  h"n q HX"31B2a h hT( oH " h h hT( o h hX2%<,b h hT(o H hTn +hTn B0F4Ȁ00h# "+NO hTLTNO}  b!0Ts*h=-b:*bT HT'TAU1* HT( "jh H +HX*TE, HT51 . !T hmhk heb  32a]^ " H "HX TBHDR1VOL1 "h5h4$h3 hhDh hSHBH 0hB Fh TC.T)TT )e' " "HTn@T1THTYPT "HTnB0FHB0F00HB0F4Ȁ00hTn@ HTnTTn݀Tnt *DT(T T8(aTXT8......#"a#.)-TG:8EOȿV1B2aE,XCBb @b6-# /T,TT"X"Ab @?bA1a,TX TTXT bDhI0HohXlh HXgh (h h!2 S Q H0%A h^ XJh HXEhXBhd(h (h /ȱnm" $ȧ 62 2 hHȜ- h+ h h"  h2  ؒh hF2 d0hH hhh H0%A 0FhHшHl hƐ$" uЈh h Ȼ8h 0FhHȵhhȮ nȪhhȣ nȣȥh hثȘDhh h}h|y B0FHfB0Fb00H_B0FH[B0FW00HTB0F200HL "hTnp F1LBV1h!Gb *DTR(T R h TnRSNEOh*EOV1 HL\Hh" a!HA hh (h&hhh aT`|HhA H h(hTn ȼa h l lTH h l MESSAGEhhH |HX hXl q" d   *#C:r> " r < H E A a1"@Z{[lP}M]\Nk`Kaz^L~no|_m [ABCDEFGHI.<(+&]JKLMNOPQR!$*);^-\/STUVWXYZ,%_>?0123456789:#@'="XXXXXXXXXXH5 h1A"Dh-hTl)(l&%"h!l ll MP*t"H" vH HlD HH" fAhHh T3 hhHh hT&T3 hhH hb l B. H??  @d ?@+h hm%"X hŘ+ @TM 0h T3 - T3hXʬzhvh  @ Tn  @ Tnkhml! @TM$h hY  32Xʧ'DhGA @TM2hXʬ1h% / @ TMhmXfʬ3 T3X RL=PF=TPF=FBP= OP= PC=hI2+h   4hlIhÉÓÛåï÷ÿ ):t{Ăċđğĥĭ !BŦ8Ɵƽ-@ljǔǥDZ 5MnȁȜȮɬXcAleXY7l]XQ/ȠlSXG% =lIEj=j?5 wl/s*"h l`ZjXPdRlI@BdRi=ɪ5l1+l'!l*lX "HlH*3hAl~uhr ohmdhklb Wj PjHGjA;j l'?h*"hh~hhq hT&$ hWZWLON"AD՚A"698-0/$'ȠhܨdhH@>T&$ 5 dhhH T&$h} xvp jDhiddh_`T00 @ @& "h( h&#HhH<@ TMu "h hHhH@:3j"- "h/ h-*Hh&H#<@ TFX/ l4T&$hh$hT&$h  L  lHh׈hӐ$homT&$hh 'T&$hɘ$hKhh~*"hohkX l]h!|hT&$h |0hx 3q" Fl~elzc loXcT&$ld{ H/h ?@#?@@@@@@@@@@: ="X)"H @Tn"hV4F4HeV4*>+f$+DVR*VDVR *VDVR  *VD V(DV)R *V*D V+R *V,D V0R *V1D V2D- *V3D<< *V4D V= , 4 0X*, !VJR *VKD",\ ^, /X\^,/X(,6,`/.zn*@@ ,t,*@@p",^,>- .^,nt.(,6, >-. .nt.* l* l* l>2*@Fn  .Ht*.jFV DZ VDZ VR 2",V\ ^, =X\^,=X(,6,. |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L"hVR4FeV4*D.>Q"QFfZ N4,fX*NVDgPLNh(+VR 0^0 VR  1ǀ116K6K606KVRk 2VR OHHVR6&Q 3VZm 4VZi5 VRn 6VZo 7VRj .V Rp8*@@656 5 8V!D94OX"q 9 ^9 V#Zr :V'R/ V(FsPLNsH6;  <04UX,v >VID;6666B608686086.[ [ ]16^] ]-],0  326&L1666666060!>L0>L<30060066B0 >L0 >L6B.6>2>L16L1:3660>44<556 : 0>45 484485886 6.66B06B .66B0>.0.6>7>.186*@<9;6/V#D.>0(XX6YXW06&I06ttttttttt16WTR0 tttt>99t9*@U>>>t>t[16Ā =6 =.:1=.6=2 =I=t=I ^[ M^0M^B"M^M% Z(+Z86ZJ16\16\ PV\ =x=X*Pt86π =066666=36=B6@=86 =.66=B60=16.&M66M=;6*ѕ=^^8fj =t=@544t5vZ;6d55 Z4l65  =t=Z `vZ*@;l ` k l=8kkllk =;62==;6`=== Z*@;Z`8__` Z86BvZ>Bx= ZtV6D"=\ ^= EX\^=EX(=6=`EptV/D==t=tt>BZ5Zt?B 0688ZPZt:@ =t=<=ZZ;6abZZ"=trZ.V54KxV6T5>Q"QT1TB..( =r=ti =r=.(V"?"@   n 70fVTdVT V= 3 4 0X*3! "0>"hVR4EeV4*DVD"5"6V D..VDV.D <D, + ;tV4k,5 6V.T V!D. J; . Zo5 56 60 V+DV7D"5"6JV$Zp: V+R J>< 7 V7R J>.VD.V+, 0><V7, 1>0 1 ==t=, / =t=H<8:5:6@: < =t=., >8}@ A, >/|B  =(r=vA =r=.PDLN 9>2HV(Z8V4Z89>2P"4F4Z4LN 9~ P9<42 2Z2 X4PB.R28 6  06 8 5XD € 8 2Z28 XR 2  2RXD2V D8Fw, 8r@@J2VD/Fv, /q2t*@@&=<>==>"hV4I4LeV4*PLNf 0H@JVTVTVZg< 1VZh( .( /  (r(t.t1r/0t /6H@@/ J 0*@@n*@@pn"/,B/ / 6 /n "/-B/ / 6 /   /HJ*/ jIUDATE  UMONTH UDAY  UYEAR   M͕JaC/u/QW(х ͱ҃ҊҮGAND)OR) 1234567) **) N1) O ) PBLR)*ERROR) /* ) DZZC)CO) 123456789)123456789R) 12345678) N) TR) 12345) PAGE) SKIP ON CONDITION)** )R9CMSTR9IPUTR9NSQRR9MMOVR9CMOVR9LAHDR9TRALR9BINPR9MHLDR9MMST R9INMKR9FDC1R9INTVREAD12READ13READ14READ15READ10READ16READ11READ09R9IPBG"7fVTAVT8V= B 4 0X*B! "0>"hVR4IeV4*D>,j$,VT&-T&.-VT/T VDF>1}}>7"2"4"5$/VZ>0TZV>8U>88( 8tttVD"<. Y>080 0>9 U,( :09,VR  1}}>998,,&T À&XV+R >4B YV,,k ?V0,l?8n:?m?@? DV4>>DXxDEE>X EZ C >XN!>8D6 >DDo>6 >66DpDEr60!>8  >66 >80 >  |+ II H:DD:C@844>2?82:33>T>X >EBE0Bt B 6D} B@@>E 6C~.>F>E V5Tɕ T59Ǖ >EC D JV;"GD4LV< G^G (GYB@>6>5>2"HV=D4MV> HYJB@>6>5>2>XNV?DJ , J >GHNVA BD"K"L0DK, KVCDL, LVEDM, MVGD >J&6J }X}>N}>P}} }> E |}t}? }t}"B>X2>N >E>6 >806 > OD(BO:606"1G H6 J ?   B>66E B J.$,>1>7}}PFiLN {H6y yB @|@ y J  }} }^} A"0"8"9>U U( Utt{ttt.>1>5VD>.V*>-V>.&/VD. >2VD V64 2>1f }t} 3"4Y.>2 }t}0>998, 43 }t}3 }t}6HH( Q"[, , ,  Z^Z [0 "  33,, [  Z^Z [60>[t(  (r(vQ (r( B^Bn6 >x ^B<\^B6\B0^B \*B$x 061H( Q, ,, 0 ",  Z[(((Q(( 0  2VDV6g>5B`VZh$5"6Y }t} U,. }( Br}vBrB24H4L4M4UZ BB2XR0XR"q0X4R2XR(0J2DZO8>OXR- BXR6} B/ B"/X\>~ }6 }4 04&A4-JbBtBO }t}2V5DvTzZ{"F"N"PV6 B4,X *BPV5L, |2*Bu$FZPBL, N BB 60$ J0"N40X*B|0D P PZP(NX*BN6 N0, V8VV ;^; V  ;^;V262Z2N +26 H602>2<7>1}} BY B@B*@ *B*Bn"B"O^B]O^B]O }t}(B6BO  -n "O B^BeV6 @ }t}V@СO*BtOlO  ,n "B^B }t}(B6B }t} }t}t*@@n"}AB} } 6 } "O6HB O 0>O jC B^B"n*B2 8 ZO  B Z B }t} }t}O6^Zn ^Zn>28 Z^Z>nZ  BB^Z n6э>S^Z6eZ2^Z e2R ;^; R  ;^;R2","1"S"A"U"Y"x"y O^O"\*O$7"   *@@n*@@ z*@&~6HB@   }} }^} A 0\2}.MSшѝѠQm)syҮLӛЄT55AN) OR) /* )** ) H) SR) 0123456789+-.)0123456789) 0123456789R)ABCDEFGV) 12345678) TAB)01234567) PAGE) 1234567) SKIP ON CONDITION)LR) .+- ,)RLABL)*ERROR) TAG )IN) 123456789) R9CALCR9LABLR9OPCDR9DETLR9TOTLR9ADSBR9ZADSR9ADSBR9ZADSR9MULTR9DIVDR9XFOTR9SQRTR9MVRMR9MOVER9MOVER9MOVAR9MOVZR9MOVZR9MOVZR9MOVZR9COMPR9TSTZYTESTNR9TSTBR9LKUPR9LKUPR9STONR9SETFR9BITNR9BITFR9GOTOR9EXITR9NDSRR9EXSRR9CHANR9FORCR9XCPTR9DSPYR9DEBGR9READR9STLLR9TIMER9FTNX R9DBGVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17R9CLBGR9LSTR*@&i@n7*@@n":";"N"l"o*B&YB., p    "T"b"dVT0fVTVT8V= m 4 0X*m! "0>"hV4O4CxV4*"8"9>7T&8kT&9PVD&7>o"o07LNhH  X,6X76Xo6XoXoӣo6Xb6Xb%6XV!T)XJ3^6XY"kVD T 3TA%4L4>:$:tn>;>NVTMF+V40(V h, hth$k0>;>N>:0>Nt$N>:$:n8>;0 >;$;t0>89|( SV D ;$k>75>8D4N h V , ,hthV D4N h V , ,hthVD4N h V, ,hth>7VD*.d O ]V  U^U, n H IF E"Gl O ]V! 6V^V, 0 J Kt O ]V+  W^W, L M6XBL6"m6HmmH6JmJm L hthJ66HH hthH6͊hhM6"m6ImmI6KmKm M hthK66II hthI6͒ϊhh"=">"? 6V6D{06, } >V8, ~ ?V:, *B *  =6#>=>?|%6X X >>?E6F>>?G@'6XX >= >= >>?>?V5Rz <BLN B@0J46X<>?0C06XB>:N09>d6X3-6X&d26XB)VD E8D V+D B 806XG B0 $6XXXF6< -6X!6X<X6L6 6^% <>>? =0 hth> ? hth>ko. >TT hth"T.>;>Tn T. htht)P8B hh h^h l0D O2B mZeDTIB^"[4,X*m"@mB m^mXB,O m<[ €@"  33@m>2*m$[R @m,> @ B B@ 60"A"@40X*m|2D A@! ARA(@X*mF]@ hthA 6hhA 6hhA  hxh062m @^@ m  B^Bm2R ,O$G0,O GBO J  F24,O G0,O GBO J F2R 4',&`  F GBF6>`0,G0,G VO2D 2PF D +LX4 N Q J,6X7Xѱd6O0H,6X7X&1@116d6O<S)"VQ2PF LN f|r2HJf2D .4' m"@X4' R+ A^A @*m|*mX^mD hthx@$F2>ot>7k>:>N8>T*@@6n."hlBh/ h 6 h( (n( "1HB 11(161HB1(1 6 0 )mm HB , ((n (6OH@6v 04H4L4M4O4UZ mm2XRR0XRp0X4R2XR0XR$0D, mp6m8m>2m @^@ m  \^\m2> =? >"?2DO2R ,u B  V1D%Z6 m 6m m e V4DZ8m m 6m m mJ24',v B  V1DZ6  > 6 mV4DJ2,wV1DZ6. mV4D€m8m ZZ! B Z8m Z 6m 6m m 6Z J6Z m2>2D2TPX, mm2 hT0X3&_XPh:L h4 ,X*h6X N + g_  JHX666X g<2"5"/"c m4- .X "a\6pc6p/5acR/aC2>a/X*md6O&! j5 /6 jtj4+-/F6\6p DR 1B1mmhhX0m. hxh0>"F2d6O$ j( 4tjX"m4'\>i hxhX(m6m|>2X4'm a^aD( hr4mF6jtjrh<2BEGSR RLABL 4TAG ADD "# Z-ADD "! SUB "# Z-SUB "!MULT "#DIV "#XFOOT "!SQRT "!MVR "MOVE &aMOVEL &aMOVEA $AMHLZO &AMLHZO $aMHHZO $AMLLZO &a COMP '! TESTZ $" TESTN $# TESTB %$ LOKUP '% LOKUP )'&!SETON ' SETOF ( BITON %)BITOF %*GOTO +EXIT ,ENDSR -EXSR .CHAIN (/FORCE 0EXCPT 1DSPLY (2DEBUG (3READ 4SETLL 5TIME "6EXITF 7REϦ΀0D<onѿO** )/* )AND)OR) ADD)*PLACE) PBRL) XYZ 1234ABCDJKLM) '$')'*') N) 0123456789AB) *PRINT) MR) 1P) 0123456789R)ABCDEFGV) 12345678) PAGE) 1234567) B) SKIP ON CONDITION)*ERRORR9DOTTR9TOTTR9EOTTR9OTPTR9ECODR9EDCNR9XCODR9YCODR9ZCODR9BINTR9FTOVR9PAGER9FSTLR9WOTVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17R9UOTVUPDT26UPDT27UPDT28UPDT29UPDT25YUOT06YUOT07YUOT08R9AOTVADDT30YAOT02ADDT31ADDT32YAOT05YAOT06YAOT07YAOT08R9OTBG*@&c@n(*@@*B&X$i"."/"0"I"e"f"g  VT0"ifVTVTIV= d 4 0X*d! "0>"hV4OdV4*D>ieVT&UVD>i>j dtdt2V4E4T 4HDf>..(.0>//(/0>00(0 1":"Vt"ht"2VT&3VDy@zV4F&4IZ6dd>3B3VD,V, @( 5"6"_V,V,V,>_"jV D+{.>:ddVGD>j>4>6(dd7 d(65ϕ6td0>6,,":V,V,V,V(4*&YZg;8n"9V PD ' @&=I:ddN  33T:V-D9<22 8;(2 dtdt;.02 dtd.$j"^V'RGV,>94 V'4B. B 4 V&4 =<><04X&^4Y^D=Z^IR8 >< 9V'4B&> dtd;822V-TϿ^~Tѿ^~ dtd.>j dtdt2>.>/>06HB 6 I 0 AI @A*@ *A*A*@@(n "deBd d 6 dn"dfBd d 6 dn"dgBd d 6 d *B@ jAPFxL>iN a|h. HBs  dd d^d d@&KdgBKdfjiU @ >4 >6(dd7 dtd"4,"V"h"6( 5. d( ArdvArA2A  BD3B C^BXD R  dX dB CA dtd2 ADRA BX,A B>B@"@B7>66t72 ADRA BX,A B6 dtd$:2V TRt"[ CV!4,X*C0C$[ZC,k BB@ 6 b dtd0,"F"E40X*C|0#D ZlE EE(FX*CF6 dtdE ddE  dxdE  dxdV ,j<[ €b9  B V,4P  04B8 B [ b+ `` H8;o2 "L M"N"O"P"Q"SV-4'u:SmX>N4$X40>O$,0,, M(L$N"P$O0404*,04&&d >c,>d4 MPL>P 4'\>c,0X4'04C \>c,X4R"Q R$P04-$Q0 >PRQ S dtd 8L6Hx 0(At;822 dtd"BV-4'uV.4' \>c dxdX(B6B|m0 X4'B \^\Dv(rA8 B dtd drd0Z0-XZ0%X4RX XhR/p0XR5]&WX V  6]| J08/._ 0>W]0XR: J JJ K^K J  K^KJ2HPLN + b V T?V$BNj 2H2>Vh(r56>V dtd drd2( 8 1 drdv8r8a >3 dtd2 J(S2͘8΀CeЂЉoKА .ѤѱΚMHLDFILX00/* )** )*EQUATE ) *FILES ) ALTSEQ ) 0123456789ABCDEF) SKIP ON CONDITION)}JKLMNOPQR) {ABCDEFGHI) R9ALSQR9FDTBYEXENDR9FBSER9FINSR9CARAR9MARAR9CLSVCLOS38CLOS39CLOS40CLOS41CLOS36CLOS42CLOS37CLOS35R9TOTVWRIT20WRIT21WRIT22WRIT23WRIT18WRIT24WRIT19WRIT17YCLS09R9FNBGR9UDATR9UMTHR9UDAYR9UYER*@@@n*@@"]"^"_6-HB _ UU U^U U]BU^B@s @ BÀr@|qd 0*@@n"U]BU U 6 Un"U^BU U 6 U   *@@( n*@&T@ Y Z"R"W"X"."3VTg0$W,VT TT =,,>W6R,,n"X". RB &0B&1,. >3 >."X$.>W t$0$1"3V 4,,,nQ64 4,f X(464 3 0>X".$X$0$1$V ,n(VV8+ ,. ,$V6 H@,l(V 0*B VThTn$0"1,VTTi,0,>-n-6t0>,n,6t0 \ Y Z ["U6 (UU6\U[HB``Y@n,6t0 0  `: H B8@ @ >^`n(`0  ,J @lBkB / >T SxS*/0   /0x*/x . HB@,0, BB FH,*60 FH,*6 .  B  ?FH >F J>G>I P >G JVTdT"O,VTO= > 7FH>?B,0,>:(  9:,P ;GI>@C,0,(  :9,*6>O*>0>O . ((n (6Htt 06'H"/t /  /  /  / /  / B / /t/ 0VTjjMfVTV= / 4 0X*/! "0>"h2"//a b6H 6/ a6/  b 0>1b >0a StS(//62V  /,*/2DR X X XXm J2>2 [ a"`V:(`0^a [a a`^a [`YHJ2N V|e2H2PQ48L2t B  7 7 /88 80/ / / StS/ / StSt/6 =  B( * 70/t/ 7B 8, @@&F@&HJ2 B  7t 6 =  B( 7* /tt// 7B 8,J @@&F@&H7 / B  >T SxS*/  33h2*/x0x2>O K J <<<T>L H>J:08n6L cxcJX*<2>O D K J<M "N<< ED64-EXL >J:08p6L J *N2 K J <>J9 >T cxc*<2 K K J  <0>JK cxc*<>J>K cxc26(n 2Be  S(  erSdc d2RPGSM83]RPGSM93nRPGII 3vRPGXX 3vRPGYY 3vRPGZZ 3vCATLOG3zCATSEG3zRPGFIL3~R9CNTR3~R9JUMP3~R9SGTB3~R9SGIX3~R9CKSG3~R9MUNO3~ATTCHK3~R9BRAK3~R9ROOT33͜ _q~ΐΚε/X  6"l"m"n ^l^l^l^l^lm^l^l^l^l^ln^l (l6l>m ,,,d6,>n , ,  ,d6 ,, ,d6,6B,,d6 ,6 Ed6 <6 H8<6< 8=6=:> 2 < = > 0<6б 2 H,d< J0,,d6 ,d6 . /.@BF 36 H8363 8464 :5 2 3  4  5 0362 H < = > BNBAX/ A@XE/ DXE0B , B 0/ Hd< J. "fH^f <(f6f d<2 g"h"i"e:ű(e0:(i0:(h00^g )gg<2d6d6d62S O R T E D F I E L D N A M E S NAME TYPE LENGTH DPS O R T E D L A B E L N A M E S NAME LINE THE FOLLOWING INDICATORS WERE SPECIFIED BUT WERE NEVERUSED TO CONDITION OPERATIONSTHE FOLLOWING INDICATORS WERE USED TO CONDITION OPERATIONSBUT WERE NEVER SETTHE FOLLOWING INDICATORS APPEARED IN THIS PROGRAM 010203040506070809101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899 1PL0L1L2L3L4L5L6L7L8L9LR H1H2H3H4H5H6H7H8H9 OAOBOCODOEOFOGOV U1U2U3U4U5U6U7U8 MR P$RPGII P13 A RPG CCS 3.0 SL-1493w@Ph Dh h h TZRPGSM0    Xݐ$3xPRPGII RPGXX RPGYY RPGZZ !3yPRPGII PCATLOG R81 A RPG CCS 3.0 SL-1493{@PTZ CATFIL3|  33|PCATLOGCATSEG3}PCATLOG PR9CNTR P44 A RPG CCS 3.0 SL-1493@Ph$h#H  TXwhTS!X[ h `h0H.h.3@P+H'h&-h,h,h,X-!hTS!KhHX3E jXM  "h `3@PV   M%  !"h X " 3@PXX A"T$HT3PRPGFILR9CNTR&R9JUMPRR9SGTB^R9SGIXTR9CKSGcR9MUNOSATTCHKtR9BRAK3PRMUCLO]RMUCFT\RMUCF0[RMUCSWZRMUOPNYR9TAPFpEXPIRECNTWARkTSAREA>R9PORT R9MODER9UNIT R9USER SYSMSG3PPGMIN SLICUPATTACH:R9RPRT3P PSR9ROOT R36 A RPG CCS 3.0 SL-1493@P3@P+3@P4  3PR9ROOTY9PFCBY9FDC1Y9CMSTY9MMSTY9INMK Y9MHLDY9DETLY9TOTLY9LSTR Y9DOTTY9TOTTY9EOTTY9ALSQ3Y9PFCB3Y9FDC13Y9CMST3Y9MMST3Y9INMK3Y9MHLD3Y9DETL3Y9TOTL3Y9LSTR3Y9DOTT3Y9TOTT3Y9EOTT3Y9ALSQ3Y9CARA3Y9MARA3Y9UDAT3Y9UDAY3Y9UYER33PY9CARAY9MARAY9UDATY9UDAYY9UYERY9UMTHY9FDTB Y9TBIOY9CMOVAY9INTABY9ITLPCY9LAHDDY9MMOVEY9NSQRF3Y9UMTH3Y9FDTB3Y9TBIO3Y9CMOV3Y9INTA3Y9ITLP3Y9LAHD3Y9MMOV3Y9NSQR3Y9PAGE3Y9TBOT3Y9INVP3Y9DSEQ3Y9FBSE3POSSPB3POSSKB3POSSPA3POSSKA33PY9PAGEGY9TBOTHY9INVP Y9DSEQY9FBSEPOSSPBPOSSKBPOSSPAPOSSKAR9OCOD!R9RECP"R9TANF#R9TFLG$Y9APFX%3P-  33R9OCOD3R9RECP3R9TANF3R9TFLG3Y9APFX3Y9ASPC3Y9COUN3Y9DTPT3Y9FDPR3Y9FIPR3Y9FIPT3Y9FLPT3Y9FPTL3Y9FPTR3Y9FSSA3Y9HIND3Y9HNUM3Y9IBUF33PY9ASPC&Y9COUN'Y9DTPT*Y9FDPR)Y9FIPR+Y9FIPT,Y9FLPT-Y9FPTL(Y9FPTR.Y9FSSA/Y9HIND0Y9HNUM1Y9IBUF2Y9KALA43Y9KALA3Y9KAPF3Y9PSFG3Y9RECP3Y9RPTR3Y9TOP13Y9VFT13Y9XRPF3Y9XRTE3DMPTLK3Y9TRCE3Y9ERCD3Y9IREG3R9ERTN3Y9LABL3Y9FTNX3Y9FSTL3R9USER33PY9KAPF5Y9PSFG6Y9RECP7Y9RPTR8Y9TOP19Y9VFT1:Y9XRPF;Y9XRTER9ERTN?Y9LABL 3PY9FTNXJY9FSTLKR9USERLR9UNITPR9MODEQR9PORTRR9EDT1R9EDT2R9EDT3R9EDT4 3R9UNIT3R9MODE3R9PORT3R9EDT13R9EDT23R9EDT33R9EDT43R9RPRT3R9INTB3R9CLIN3R9HTIN3R9VIND3R9USND3R9MRIN3R9FCTR3R9STTS3R9HLFJ3R9REPT33PR9FSTLKR9FTNXJR9LABL R9TRCEIR9FBSER9DSEQR9INVP R9TBOTHR9PAGEGR9NSQRFR9MMOVER9LAHDDR9ITLPCR9INTAB3PR9CMOVAR9TBIOR9FDTB R9UMTHR9UYERR9UDAYR9UDATR9MARAR9CARAR9ALSQR9EOTTR9TOTTR9DOTTR9LSTR 3PR9TOTLR9DETLR9MHLDR9INMK R9MMSTR9CMSTR9FDC1R9PFCB3P PR9RPRT R37 A RPG CCS 3.0 SL-1493@PT......3@P+3@P;3@P @C3@P3PR9RPRTR9INTBR9CLIN R9HTIN R9VIND R9USNDR9MRINR9FCTR"R9STTS:R9HLFJ>R9REPT?R9RYST@R9ACC1YACC1B3R9RYST3R9ACC13YACC1B3YACC1O3R9AC1S3R9AC2S3R9AC3S3R9AC1N3R9AC2N3R9AC3N3R9PPUP3R9UPOP3R9INRZ3R9INRP3R9INRM3R9PONT3R9CNCL3YERRSW33PYACC1ObR9AC1SR9AC2SR9AC3SR9AC1NrR9AC2NR9AC3NR9PPUPBR9UPOPaR9INRZ;R9INRPA15 4h2Tq93TX=9h" @$T hh $3@P9@ D  h 9TiX3@P nh hyӠ"=h:hTh Tؿȷ/3@P D@ T9ȶT -@KT ON OFF]fpx3@P  !$'*-0369<?BEH3@P-3@P]INPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. 3[S  33@POVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WR3@PITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTP3@PUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.3@P MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CH3@P4AIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.3PR9TRCE3PR9MVW R9GTL cR9BASER9LBYXR9SBYXR9MVBXCR9USNDR9INDMvR9TROTR9INTB3P P#R9TROT R64 A RPG CCS 3.0 SL-1493@PHh /hhX TL$ TL"3PR9TROT3PR9UNITWTREAD3P P]R9INDM P77 A RPG CCS 3.0 SL-1493@PHVhV hUHRSQQ(1L#5hIH hH DhF = =;h9 h750T3@P+1+ T)* (2<FPZopz011020304050607080901PL0LRH1OAOVU13@PVMR3PR9INDM3PR9SBY /R9BASE0R9XLAT$3P  33 P3R9LEL P90 A RPG CCS 3.0 SL-1493@Ph,H, h&H% H$h$!H"h"H* h!d #h3@P+3PR9LEL R9GTL 3P PR9MIW P97 A RPG CCS 3.0 SL-1493@PD 3PR9MIW 3P P;R9MVBX R07 A RPG CCS 3.0 SL-1493@PXXXX&" !   )3@P+A"T:"4PR9SBYXR9LBYXR9MVBXR9MIBX&R9MVBTR9MVB R9LBY R9SBY R9MIB R9LBYTR9SBYT4R9MIBX3R9MVBT3R9MVB 3R9LBY 3R9SBY 3R9MIB 3R9LBYT3R9SBYT3R9MVW 4R9FTNX4CVASEB4R9FLDL4R9999B4 R9UPK14%R9UPK24%R9UPK34%SUBRFL4+SUBRED404=PR9MODE*SYSMSG.R9BASE94P P R9MVW R09 A RPG CCS 3.0 SL-1494@PHH" fA4PR9MVW 4P  34 PR9FTNX P70 A RPG CCS 3.0 SL-1494 @P hON" "h_  j[ Ah1 H:;" MTH11j2.j7j<-'2Tl 4 @P+h% `Dl%+ T8 A dhTP j  h 4 `PV4 `PY4 `P`4@PgT Hh"  " A hTCP`ݘ  T74@P9 4`P 4@P4PR9FTNX4PR9999B(R9LABLCVASEBR9BASER9FLDLR9MVB 4P P+CVASEB R89 A RPG CCS 3.0 SL-1494@PH%H"""bRh {HHX hXn  " H 4PCVASEB4PR9XLAT 4P P3R9FLDL P64 A RPG CCS 3.0 SL-1494@P"h+* h%h%$h!-Hhh1h   h @4  34@P+4PR9FLDL4PR9BASEY9FBSEY9FDTB 4P P*R9999B R77 A RPG CCS 3.0 SL-1494!@P( h#h# sL r BHhBHh F FQd4"PR9999B4#PR9BASE%4$P PRR9UNPK R69 A RPG CCS 3.0 SL-1494&@PhLh  hEhh>h<H9'`  T h0h51/A,h/H--T`l'(h'4'@P+ Dh"hDlhhh 1E   L4(PR9UPK1R9UPK2R9UPK34)PR9LBYT%R9MIW R9AC3SR9AC2S R9AC1S4*PEND P+SUBRFL S09 A RPG CCS 3.0 SL-1494,@Ph'"" T!H T!  T%"4-PSUBRFL4.PR9FLDLR9BASE'SYSMSG!4/P t  340 PSUBRED S08 A RPG CCS 3.0 SL-14941@Ph}X1qHzdw iX6uhpX!`mHkXzT!Xfh___T `42@P+X? SK + .J:8AA <": #"7 H"*43@PV1 })!TTc TiT~"44@P" T45PSUBRED46PR9ACC1DSYSMSGxR9CNTRsR9BLNK;R9999BR9UPK1%R9FLDLR9BASER9EDT4 47P P^SUBRMV S11 A RPG CCS 3.0 SL-14949@P BHLhHXM!=AHCXG\D !5:˜8:h9X=4H6X9\6 !'-Ø+-+2)h(X,\)!4:@P+%V!3d ! "TK"4;@PV" T4<PSUBRMVSUBRLMSUBRML4>SUBRMV48SUBRLM48SUBRML48SUBRIN4@SUBRAJ4GR9STH04OERRO464UERRPRO4UFMCALL4[CATFIL4^SWITCH4qTRACER4uMOUNT 4|SELMU 4AVMBIT4CCSADD4CCSBLK4CCSCST44PR9999BRR9BASESR9FLDLZSYSMSGG4?P PdSUBRIN S10 A RPG CCS 3.0 SL-1494A@PhOXX1F\ShKXSIXPGXM1;\H hBXG15\B h=XA1/\< h8X;1)\6h4-  J, 4B@P+ '($  TGTO"4C@PV" T4D  34DPSUBRIN4EPR9999BXR9FLDL`R9MVB FR9ZEROYR9BASEHSYSMSGK4FP PSUBRAJ S07 A RPG CCS 3.0 SL-1494H@Ph{"" ^T1ZT6 hol PT! ^a!H_ h`\! 1=Y4I@P+hOQRM@EKhH?E?2 1'8' qv.1,4J@PV|!$""#T"A  4K@P4LPSUBRAJ4MPR9MZERuR9MONErR9ZERO}R9MINS+R9BLNKR9999B R9FLDLR9BASESYSMSGe4NP PLR9STH0 R54 A RPG CCS 3.0 SL-1494P@PhBlFH? 7H55 8rG`- dhT,(%  4Q@P+T *! ddT.A"  4RPR9STH04SPR9MODEAY9ERCDKERRO46R9CNCL;R9CLIN9R9CNTR=YERRSW34TP P0ERRO46 R91 A RPG CCS 3.0 SL-1494V@Pd"h%h$h#h" cdhE"h "hdT)*h`4W`P+4X  34XPERRO46ERRPRO4YPSYSMSGY9IREG&R9ERTN#4ZP PFMCALL R92 A RPG CCS 3.0 SL-1494\PFMCALL4]P *CATLOG* NAME , OWNER ` PP*B*K*V*E*N008 *Z,6  9hhAho h: h6hڨۘ֨֘hf & 1% T\0ȸ ȭh h hhȬ h d)Ȱ!LT*'* Ȣ T  h3Ȕ \ df.n/n0n )"\ dddTQܱ \nT¥T¼d"\ L % ɜ l ڜ d-є   p4d,h ȘЄl̳ T{̪ Tŀ%̖ j̜  df 1 l  ̰  l %1d dd):T*'\*%O dT*\*%* ~ d22T l% T\#\H"h"hhTZx` ******H>H&H#  Q  ` &T   #@HH jv   qHh  n  h*LIBEDT *K,I6 *K,P8 *P,F,2,RPGFIL *B 'R9CNTR' *B 'R9ROOT' *B 'R9RPRT' *B 'R9SAVE' *B 'SYSMSG' *B 'CREATE' *B 'FMCALL' *B 'STRACE' *B 'RPGOBJ' *B 'R9ELOC' *T *K,I8 *N, ,,,B *K,I6 *Z *V *END 6 GhhT[`a #T_ h h  hڈ hמ  1 hh h Z1hh \f\`a "\_hHTƫTƹ h hh h 8h #h h\h\ h *CATLOG* READY TO INSTALL MASS STORAGE I/O ERROR REQUIRED PROGRAM NOT FOUND LIBRARY PROGRAM NOT VALID PROGRAM ON LGO NOT VALID TOO MANY PROGRAMS ON LGO LAST LGO PROGRAM HAS NO XFR INVALID CONTROL STATEMENT *CATLOG* **** ERROR ****  TQLj , h\jTŨ HTƫTƹh *CATLOG* PROGRAM hh hTŚľěĿĊĉċH TƫTƹh h hTƫTƹh ""YD  hTŖTŨTŪ #T H TƫTƹh\hT5hHhTŚ46*,TŨTŪ+ ! ٶ  34lH TƫTƹh\huhTŚg]_TŨTŪ^ #T]H TƫTƹh\h\hX/ŎX+ŒX'ŖX#Ś XŞX}ţXŲdXŷjXa"a X" XIb XFb XCa X@b bX EhTe-178hTea1293 :; hߪhʬHhۨh    И    ȿ ȼ ȹس 1 I H lA lI HlA lI HlA 묹lIw HlAj l dh̓Al BlC lDlE lFlG lHlTea14@A ;Tf+\15BA ;Tea456`abefXH Tei4mnXTpghR22lO@H "< *SEB4l= OPTION 0,1,2,3 TRACE-RPG RUNTIME OPTION E ERROR STOP ONLY TL HM!"hG!dhFH5  j9 qTő4"T ֑Ñ*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xw H$X% H X0 \ȵ" \` ȲX2whth \ h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӒ H"A HB0Fh  0X  00j qa! 1" hh! u  HTLD֒֒HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`8 D@000000 000000* $$MOUNTS  cny8ACKMVϒ UNRECOGNIZED PARAMETERS INPUT ERROR. WANT TO CONTINUE? FILE NAME IS MISSING FILE MANAGER ERROR MISSING PARAMETER.EXPIRATION DATE WRONG LENGTH. PARAMETER TOO LONG. CODE NOT A OR B OR E .Tc8T["Dh;HT[ PTH_)[gT ߑ/* Ah$ hHT  34F-(HT RBHHH #hkTk[(hhT0 !` /hh\FX6 TTZ]Tq,,'TnTTcTZThh ?T)-?/h)%A@0h h hT0   T,_98(h9:*h=>.h;+hAB2hؠ=<,hh2h5h hh0h2h h h1h-h h TѠ0  T !T! #2hȲ01h Ah  h ȥhHT1 T 6T! A>h Ah h #1h # 2hHThXhPDhK hHHOHNEhBA h>>Bh7Ah8X h0T`S05"-,h)( h%% h#h"hT`SH! 1 h  @HLX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` Hdddh]]ddhUT%rJE"4hE@+; 52 H/H-+(!!n!  ةFA h &Ah$% h-h-Dh(DBh&H&H% Bh0$hDl Ȉ QH  @ , hHhDhShShhhhCd h hH hhhhT0h̘  ØؽغT̕"ȶbȱbȭbȬhlȡ`Ȝب Hh`31hHR4 "D"h$H" aAA bDbb bDbb" ba@ǖ3Te!TTea!"#H "f" SELECT MULTIUSER FOR RPG RUNTIME REPLY 0 OR 1 (RMUCF0) SMALL, MOST LARGER, ALL FEATURES OF RPG FEATURES RPG INCLUDED (MOVZ, BIT OPS, MAG TP) L  HM!"hG!dhFH5  j9 qTl4"TZ&*!vTj H H  -Xz& H   #3T Xk H  Xu&$$SYMSGF$$ SYSVOL \"Xm HE HXC&  X\Xj H6 H X4&  X H$X% H X0& \ȵ" \` ȲX2whth \ h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӒ H"A HB0Fh  0X  00j qa! 1" hh! u  HTLD&&HHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a >  34Vh` PHAVMBIT A01 A CCS CCS 3.0 SL-1494@P HX92h -$h.,'&2T<"$dmŠ'R)2X4@P+*2 1 ** "i 4PAVMBIT4PAVMCKV4P PCCSADD A02 A CCS CCS 3.0 PSR'D SL-1494@PHh HX  }hH 9 " :  0n4@P+  d 0fhIIccZY TR NhQHQ 9 " : 4@PV 0A  d 09hLL44- L4@P  5`2h4`P4@P4 `"i 4PCCSADD4P PCCSBLK A03 A CCS CCS 3.0 SL-1494@PH h" "" 4PCCSBLK4P   34 P@CCSCST A04 A CCS CCS 3.0 SL-1494@PH3h2 HX/ l* "  f  ` 4@P+` `"i 4PCCSCST4P P;CCSEAC A05 A CCS CCS 3.0 PSR'D SL-1494@PX";h1 h0 Xh( @h'# "``HH" H4@P+ `"i ]4@PV [.<(+^&!$*);\-/,%_>?:#@'="4@P0ABCDEFGHI}JKLMNOPQR4@PSTUVWXYZ0123456789@Z{[lP}M]\Nk`Ka4@Pz^L~no|J_'Om4@P4@P-4PCCSE2ACCSA2E 4CCSE2A4CCSA2E4CCSGET4CCSHXA4CCSMVA4CCSPUT4CCSPYT4CCSTIM4ICALJL4IDATVR4JULCAL4GETACR4GETACF4ICCSAD4PUTACR4PUTACF4RPGDT14TAPMOT55P P CCSGET A06 A CCS CCS 3.0 SL-1494@PHh HX l` `"i 4PCCSGET4  34P P-CCSHXA A07 A CCS CCS 3.0 SL-1494@PH h HX  sD  1  : E /` `"i 4@P+4PCCSHXA4P P/CCSMVA A08 A CCS CCS 3.0 SL-1494@PH"h! HX @    ` `"4@P+i 4PCCSMVA4P P CCSPUT A09 A CCS CCS 3.0 SL-1494@PHh HX ` `"i 4PCCSPUT4P PCCSPYT A10 A CCS CCS 3.0 SL-1494@P D4PCCSPYT4P P(CCSTIM A11 A CCS CCS 3.0 SL-1494  34@PH%h$"h Hh @ 8 0 0Fh `&`4PCCSTIM4PHORMIN 4P PDATHAN A13 A CCS CCS 3.0 SL-1494@PH_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F"4@P+ X4i  ; )  4"   2 1 4@PVm  `"i HhH HX %00hh 4@P d " dh  0F 0 04hȻ 0F 0 04h  `­é @4PICALJLIDATVRJULCALm4P P5GETACT A14 A CCS CCS 3.0 SL-1494@PHuX5 H,h* HjXLXXXc hd 'jb PALGO"4@P+#2@2 hGh X A ,#)$h.@@" 4@PVT ""  (h 4@PP} Ǡ#"2X"2Ȱ  h4@P hh( h 0Fȼ&  x&4@Pdhwu Ggb# gY ` ` 0H_V Q4@P& JX`D4PGETACRGETACF4!  34PR9BASENR9FLDLW4PEND PICCSAD A15 A CCS CCS 3.0 SL-1494@PHh"h H  F` 4@4PICCSAD4P PPUTACT A17 A CCS CCS 3.0 SL-1494@PHX H{hy HXXXX1O à h4@P+R & h( h 4@PV!2f#2  |2" vAfwAw r"#24@P#2_]c`_R^YRANS"#2D#2 hKX4@Ph X A ,#)$h/@@" T7 ""4@P  (h  hh( h 0F4@P FԸߠ % hh¼  (4@P-h 0Fȷ hȲá Ȧ ` ` 0Hȟhș 8 Ì4@PXH 0F| unt teX`4@Pf4PPUTACRPUTACF4PR9BASER9FLDL4PEND  34 PRPGDT1 A18 A CCS CCS 3.0 SL-1494@P hBX`ed  5X[3 A&  #XI<4@P+ ATGb  *XK  A4`PV4@Pd" T2 0 3S 3J 3A S3 34@P 3 3 @4PRPGDT14PFTNDT1/R9BASEFR9FLDLj5P P;TAPHAN A19 A CCS CCS 3.0 SL-1495@P""H"  h"""! 1 hT\T 0@P`p#$5@P+""H h hTF5PTAPMOTSTATIT,5STATIT5ASCBIN5AVMCKD5 AVMCKV5AVMSRT5AVMVAC5$BINASC5-EDIT 55FILERR5BFTNDT15OGETCHF5_GPMDT15gGTSDT15rLTPRNT5~LTRDTE5RTVDT15SUMHD 5TOTEDT56 P P ASCBIN B09 F CCS CCS 3.0 SL-1495@P H(hhl5 @P H TTh\h5 PASCBIN5 PQ8PKUPQ8PREP5   35 P P>AVMCKD B10 F CCS CCS 3.0 SL-1495@P**5@P h* % h"      n 1 15@P.5@P1 H TT h5PAVMCKD35PQ8PKUP9Q8PREP65P P,AVMCKV B11 F CCS CCS 3.0 SL-1495@P**5@P h   l 5@P 1 lH TT h\h5PAVMCKV5PQ8PKUP%Q8PREP"5P P]AVMSRT B14 F CCS CCS 3.0 SL-1495@P**5@P h9 >53 60h/l-l, h( ,#! !!hnnh !5@P0 ! h nnƘÀ5 H$  35 @PDؾ 1HTT h h h h5!PAVMSRTL5"PQ8PKUPRQ8PREPO5#P PAVMVAC B15 F CCS CCS 3.0 SL-1495%@P@??@5&@P@ @ 5'@PKhT !JAh\ !C h6 h @h # `hʾ' ,5(@PF#Hl!hĜ "lȽ`h l h l 5)@Pn l l!@ HHTT h h h _h\h\h\h\h\h5*PAVMVACx5+PQ8PKUPQ8PREP}AVMCKV5,P PUBINASC B16 F CCS CCS 3.0 SL-1495.@P 5/@P;hp8(dhp8hp8(dhp8hp8(dhp8hp8(dh50@P1 0h 0Ȉ l 0h 0Ȉl51@PEH TTh\h h52PBINASCG53PQ8PKUPMQ8PREPJ54K  354P PEDIT B50 F CCS CCS 3.0 PSrPD SL-14956@P 57@P9 -058@P99/99/9999999.999/999-9999-99-999959@P/ /"+ "&h h hh!+ΈhT`.ۘ   hT5:@PZ.`5;@Pbh\`.h\.`ػػ5<@Pt V hȝ!h\`.Ȩ ׈h\`؜h\,. 15=@P I.8 l\., \,,\, \, l\.,\5>@P,#H TTh\h\hhhhhhhhhhh\hu\hp>5?PEDIT 5@PQ8PKUPQ8PREPCCSGETNCCSPUTZ5AP PFILERR B52 F CCS CCS 3.1 10-23-81 SL-1495C@P5D@Pr5E@Pt $5F@Pv5G@P FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. 5H=  35H@PlK5I@Pm#7G5J@P3CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GE5K@P^TS UPDRECDELRECCOMFIL1234565L@Pp75M@P( CR TO CONTINUE5N@PqIT PFTNDT1 B54 F CCS CCS 3.0 SL-1495P@P5Q@P5R@P5S@P5T@P5U@P995V@P h h6 fT k h dTh h5W@P0!(TȿhȢ  (hT5X@PG (h ș j (hȒjت5Y@PZT  \Ș #T d\ 65Z@P ll5[@PHTT h\h hd5\g  35\PFTNDT15]PQ8PKUPQ8PREPRTVDT1GTSDT1&GPMDT14TVPDT1DTRHDT1[VALDT1p5^P P`GETCHF B57 F CCS CCS 3.0 SL-1495`@P hdl 2 h5a@PhT5b@Ph !h ( h` n - nn5c@P=!@ HHTT h h h h h h\ h h h5dPGETCHFA5ePQ8PKUPIQ8PREPFICCSAD5fP P^GPMDT1 B59 F CCS CCS 3.0 SL-1495h@P5i@P5j@P<J \!H\ H  l\5@PHF\\J \H\ H  l\HF\\J Ti5@PH\H l\HF\!HT\ d d  d5@P)d $ d $ ddTID   6  d5@PT!fT ̾dܹܺ\ l̺ h T5@P5@P l" ̗n\ Z̏l d̒ h\̈l\5@P̯ d\̦l l\̝ d  h\  l5@P h\  l\" ܳܲT\ l̚  5@P ̦ diܞtܙ 2' l $ d' a`Hd50  35@P 0d  $ l(Hld   ' )̳ Tz5@P [  ̨ \  ̞ \!!\"  \܎5@P 1 l , d $ d"PTH d" 9 &5@P dH!lll dTHFTl̽ dT Z5@P #H # l\HF\ܜ 1\H \!H l\HF \\J5@P  \!H !l\ H$ \HF\T J \H >l\5@P 2%H$%\HF\\J \H\!H$! ]dT H FT 5@P ]\J T !H\&H$& zl\HF\,@+H(H%TT5@P h$\hhhhhhhhhhhhhW5PLTPRNT 5PQ8PKUP Q8PREP PGMIN (CCSBLK "CCSCST=CCSMVA aFWRITE TDISP \LTRDTECCSGETIZ PLTRDTE B76 F CCS CCS 3.0 SL-1495@P5@PI 5@P , 19 5@PJANUARY FEBRUARYMARCH 5@PAPRIL MAY JUNEJULY5@PAUGUSTSEPTEMBER OCTOBER 5@P(NOVEMBERDECEMBER5@P0JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC 5  35@PRhhhh  5@PiTII\IJITd"! ."4GYl~5@P\JHJȫ h \KK5@P\ KHKȗ h\KK\MHMH h\KK\M5@PHM h\KK\OHO hTjKK\PHP5@P h\KK\PHP̲ h\KK\NHN̟ h\5@P*KK}\LHL̍ d\KKj\$JHJH l\KKW5@PU\(KHK l\KKE\,KHK lTKK25@Paz5@PzTyd  dQ\0QOO\II\IJI l\KK5@Pc5@PTH5@P5@POHLTThh h h\hhhhhhhhhhh&h5@P.h5h=hDhLhRh[hahjhphxh~hhhh\hrh\hoW5PLTRDTE5PQ8PKUPQ8PREPCCSMVArICCSAD{EDIT 5P PRTVDT1 C17 F CCS CCS 3.0 SL-1495@P+"35dz  35@PDECTBL  5@P- l: 8j6 412h l.T( !*T( ! T(Ԝ !5@PX  hhƘ9 nÀ5@Pl ȺlȺlȸlHTTh\ h h h h\h5PRTVDT1y5PQ8PKUPQ8PREP|OPENFLCMPDLQ9xCMPSUM9:LPQ8PKUP=Q8PREP:6P PTVPDT1 C29 F CCS CCS 3.0 SL-1496r  36@P6@P6@P6@P l"! ( )(Y6@P h  1  l6@P1  l$$ 1 !!   %  !˜  l6@P\6@Pc̴  lt 9   $  4 dW 96@P Ϝ JȜ %Ɯ A !< l96@P !1̱ !, 5̨ !_ !` !ޜ 5   Ԕ^6@P 8] 3 l8H5TTh-\ h@ ho hjh heh\ h2 h6@Pa h\h hUh\h h h\hhq6PTVPDT16PQ8PKUPQ8PREP6P PUTHEAD C52 F CCS CCS 3.0hELA SL-1496 @P6!@PV6"@P\ 6#@PQHDR06$*  36$@PSHDR06%@PLAUTIFIL  6&@P_T)UUUTV)WU TXYWl\lYlV  h $6'@Pf 1\SVQ\ hn>n>Ƚn<ظ 1TUȨ !1 h؟T6(@P)QUț ! h (h*nؕ 1[ 1TU 6)@PHTT h h h h\h h hf6*PUTHEAD6+PQ8PKUPQ8PREPAYERTOAMONTOzADAYTO~PGMIN `CCSCSTfCCSMVArOPENFLREADR CLOSFL6,P PaVALDT1 C53 F CCS CCS 3.0 SL-1496.@P 6/@P60@P0161@P h;;h:h   H(h hhhllҘ 62@P5p8 0hp8(d 0hn63@PLHTT h h h\h h64PVALDT1N65PQ8PKUPTQ8PREPQ66P PLAHEAD F15 F LA CCS 3.0 SL-14968W  368@P69@PU6:@PW 6;@PQHDR06<@PSHDR06=@PLAUTIFIL  6>@P\lZlWlT h (j 1TSWQX hn=n=n; 6?@P1TZ !0 hؽT)QZȾ ! h (h*nذ 1ئ 6@@P1TZ 6A@PHTT h h h h\h h h6BPLAHEAD6CPQ8PKUPQ8PREPAYERTOeAMONTO]ADAYTOaCCSMVAtOPENFLREADR CLOSFL6DP /DELQMST CCS20 SCRNFILECCS20 TRANFL CCS20 DLYASSN CCS20 ACTIVE CCS20 TRNBCK CCS20 Ǒّ  d,+  l \+ّǑّ Tdv+ &\gۑD lTzv !9 8 ds du d n 1T|vg 'Tgj  36LۑTbv+¤ޜ ̽ 1\gۑ\vTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T 9;7h 3 -lhT:j h ( h\ߔl;\^Tea;:::\ai9HTTh\h\h\hhh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i X/ a! a"Xj hBP@@JI>h`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX@TKX -`" ` c1X\d 2QTKqX c1XCTK[Zd@X #  a` aܐ!XdTKYD]@XX a Ea a! a"Xc a! a"X a  +a `"d` 5 aXe aaX^a `aBP@@` ``TKBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa ` a! a a"X  a! a"XXaa a a! a"X a! a"X a a! a"3X\Xba a! a"X  a   a a! a"XM a! a"X a! a"3X#X)a a! a"Xq     a   a a! a"X a! a"XD aaaaa `!@  0360000102BZOKSRPPRL:0 ?!P8HypPJcj1.<=?(,>* hhT; h h hT h 1\ h h\HT5TChhhh\hhhhN<_DLADDACT CCS20 SREQDL CCS20 UPHSTCM CCS20 @,UH'0Nl1E( 9999999999 T 95 2EJ 5  5\☨š  ?TۘÙ֘љ\ߙ֘љdd h fر 1ƔQ TaM̼ \pMM !r T鑼љM :TM. d l̕1:  36` TaMK \pMKTTEl "4T\T  93 !T2l dQ\蘨š ̴ l lT !̪ ! , lG !ADdO=dP 8 d\ IlT{QÙGÙNN #lTۚTeQ 1'T TnQh\ϙhKKN g\ҙhƘQ"h\OәO\QOԙOh\QOOJ 5\GPT ʚMd TۙGOlؔ _T{癿ߚřN\֘љ h<\ǚL d f 1TRMM !#N r T鑼љM !TM \әŒߚ l dTRMKT ld!;찖  쨖 2̡hTۗәOO 쓖 2̌h\G  Nd dddP     \QOљęOO lT;QљęP l  ldp4,d 0dp< 0ȌlTTeaKљOLTm 4Te T^ 6 3T'H$T5TChhhhhhQhc\ hYhv hS hh'.EX T\M\tM\M\M\󑼙M \ԙMT !? h f 1T>MM !T呼ߗəM  yMK\MTftHAA1                        END OF ACTIVITY HISTORY ACTFIL CCS20 0482 hhfh h f 1TMM "Tےߙ֙hdpT呼ǙhM $  "T{ߙ֖Ǚ֙NN lT3О.M d0l\#xǙM̴  \י#Ş3řN  dYA .l\љ#О.M̑ l.T㑼ǙhMM  "\ߙ֖Ǚ֙Ṇ  lT۞љKdW TkљT9#TeaKљיL1 0 9 Rd ""T TEl 4\ 3T T !> !:T 2 ! d lfn ,l\Kޞ2L l dZ l lTZMKTTMH99999999990000000000(  R К(20HGENERAL DUMP PGM IN ) \RК(52H ENTER FILE NAME(CR) TO BE DUMPED, (CR) TO TERMINATE) hTeΙԑTcQQTЙQ 2TQәđә  TϑTՙ\ҙQ֙ d d d d f 1Tՙ (Tܙۙ{T՘ݘ '\홋ߙޙidddd dTc䙚 \䙚\T=TK\\ԛ ThZ2Л dhT 1 lh\ 1\T>!G(8HFILE IS ,2A2,14H AND CONTAINS ,2A2,F7.0,9H RECORDS.) ̍ \R5Л7(52H ENTER 0/1/2/3/4 (CR) FOR ACCESS BY RRN OR KEYS 1-4.) TЙQ T+Qd  d DThR=Лx,(81H ENTER Y(CR) IF AN EXACT KEY TO BE DUMPED, OTHERWISE DUMP WILL USE 1ST CLOSE KEY )\ЙQ doQp  l\RBЛ(43H ENTER STARTING RECORD NUMBER OR KEY VALUE )TЙQ "̎  !TQ֙˙ TcQ̵֙ OThRLЛ(41H ENTER ENDING RECORD NUMBER OR KEY VALUE )\ЙQ̾ !  !\Q͙֙\Q֙dd \뙴 d fp 1dqdr \qTՑq  /o  (TThRcϜ(43H1 FILE NAME TYPE RETRIEVAL KEY LIMITS)Y`  36t J\ZfϜ l̜hTܕ 1 dh\ 1\\T>(4X,4A2,2X,2A2,5X,I1,10X,F7.0)\ZhϜ\ϙ\(34X,F7.0,//) Tco \ꙄTENTER ITEM,CHANGE OR NEXT FUNCTION OR ACTION,RESULT,LETTER REQUEST,COMMENTENTER NEXT FUNCTION OR ACTION,RESULT,LETTER REQUEST,COMMENTINVALID REQUEST, PLEASE REENTERJK; dB " Y<!9 =d dd l)hTt¤MM s "s h 1TeaKLh  2hל 2%hTۙџܔܓh\џd\џh\џ d"! ,{ y @sKJpdQdOT{QOO ! v\QOO "vκ 1? #̓ lY dRdS dMTxǙM l lTkљT9 PlOlΑl ddQdd $dOl   TQOџO ̝h\QOџO̔l՜ Onjl/lM h hT;џ T*\ãØџδ dl d 2O d ld \љ l dOTeaKљOL l1 $N ld dd̒h̎h ̊hTۣљ l L$l\Ęџ̏ lTk\KљOיLL \ЙĘљ l dT #l l̼9\  lD dO\Oll l̛!\̘ }3 %T Ҥܻ dM  NlTMKT ' Tu‘ & \’G & \’G & & 3dJHT5TChhh\hhhh6506179:8324;NAmwh   h hlTk# hFf" 1Td)Ud*d&T¦Ƚ mȹ h h\혨ȫ TۘÙ' h\ۘș Iȕ hؑ\˘   d(\ $ ̷lМdO 1؜ %l\O+OTL&' %l'    zTۙGŒߙ YlT TՙTĦ \㘨Œߙܙ d\온 /\י\͘ÒߙܙIlH &G  #l h8\ߨI l lT2Ih%\"lTRߙḑ$lq 7̙ 4 6TݙܙTnߙT{ߙۙƒߙڙƙN N %\ܙm\ޒ̚  _Tےߙܦަ ( \ԙT     \ؙl\ \֙\Ԙ¦\Иæ 99 6 93 &Tۙ d d  l 2l 21 d(\Ħ̝ l̘  lT _ l\   Tۘřŗ l0\ř×Il\똨řØ̪H &G  #l dI\ͦITe %Tٙ%\̥  ̢ Tn(d\ߗ  Tk+ ! \ř dO؜ $\TۘO+O& y' y \ߙŗT̰ wTĦ  df 1 ddIlH %G  #ldT2IdI\lTRl$Ôlq 8̵ 5  36 !3\\G d\ܒߙ܄l lTےߨI \əGl̤dǜ"̯lTl d"f 1\֙+ؗ֙( \ɗߙ\—ŒߙT lTdMTU#xǙM dS lJ   ܦTdH6FGHJKLMNOPQRSTUVWXNAmwh   hTk#Td&\d'TL&' 6 ȴhh   ֔ TۙGŒߙ YhT Ǚ\\Òߙܙ dIlH %̛G ̖ #l h0\ĪǙ߫T2Ih%\ǘ"lTRߙd$Ɍlq 7 4 6T\TnߙT{ߙۙƒߙڙƙN N $\㪺\ߪŒ  |Tےߙܪʗު\Ȫ  \T\ * 7 # $\ d d  l 2l 21 ̨d(T\Ř     \調̽l\ު ATۘ× lIlH &G  $d d\ӪǙTe 2q\\™̸ Tn  T×̺ ̔ \ę < l\Ǚؔ $lTۘЙ+& w' w 9\ߙŗ\ u\Ԙ× dIlH &G  #l d\ǙT2Il\ǜlTRd$Ɍlq 8 5 !5T\G d\ڒߙ܄l lTے߫Ǚ\ǙGl̘lǜ#̦dTd lFf"ܯ 1Td)Ud* lfܜ 1T Η\+ؗ֙( \ʒߙ\ŒߙlTdMTU#xǙM dS lJ   ܘTǙdH**A $^sC,"!E A B,%N,OLPM#&ACTVERTBCCS20 COSIGNERCCS20 DAQUE CCS20 UTIFIL CCS20 LTR1LTR21TeKTtMM (T™MKTT 1\T  dr dTۘØ\ϑrM "T呼ߘMŤ ̾ ̷ "ddȑdT*\\>M̠ !#T\јљM̖ ̏ !T\M d f[ 1 d lT>MKTdTdU̲d̳d d (d ľhT߯p W ̻ AlT Xܯ 1T呼߮MM } v !oT2 d\d\dq\߮\Ց߮M֬ל UЬ؜ O !H d dޔ  f 1\߮M̩ ̣ ̝ ! lל  n 1TM d l lTrMKT *gdG *hdH *fdITRGl d  ;l l d f 1TEMM !!T㑼hM !\M dV  1 l l l\EMK\XdhYdi dd l nܬ 1\cM̳ !)T呼ߙhM̩ ̢ ̜ !dd dTM d lTcMKT lT\M drM &\MK\\ M &\ݑ MK\ d\ޑԑMM  3 l\đMMK\\ȑ/M &\/MK\TA     \ۮ\ "g " T呤M l d T㑤M lM  !D X sW sެߜ sddTۭ֘  36lTxǙM I H G pH dd dS̜  dT呤MM % d%D 4n lx laT "  d@ " lTۘ®@s@ d f 1 dbTTM ld̮ !pT㑼ǙhM̤ [̝ !b l $ dTǮ̐ T{s@Ǯ@NN $̴ \ǮǭT̎ \ט  \ܑ 1TۖǙ֘TM\M\Ѯ s l lTTMKT\ޘ™֘dd dT\ߘMM    2 lTؓf &TC$\ߙ֗T*ˬ̜  ƬΜ \\  !=H dp\ίpTEd 4\™"! 1b&w  `s{\T\TNߑ̼Hl\p 1  , df!f" d l < d6ll " ln "g EdD  l l f 1TTMM "Tےߙ֙h\h஛஛T呼ǙhM d ܤ 4TkǮT\TNǒGr ? ;T \஛ǭ஛T瑼ǮM̫ 1% d̢ $ l~\ʭ\ǭ\˖ǒG TᑼǙM̊ $ lf1dTMJT d  lljT\  6sl lW $W  6TTl ldhXdi !D  l dS lTے̦߮֘  l ld\ŮBTNߒlT[r T\ߙM dSM * d ?̲ !%2"d#d $dO\™OO ,l\"ęO"O l lllllll # l l dlHm hdl 2 hhT2h !h ( h` n - nn!@ HHT5TC h h h h h h\ h h hALL 7pH .W  X  h h ( h   h 1 hȾ H T5TCh h DADCDFNARLCSEADSP1P2P3NQOASS h9  > hV8  h)h׈h 1 ȼ ȹ  ȶ ȳ Ȱ  h Ȫ   hȡ HT5TCh?0# END OF SEARCH B dihhl}h h " h  hTksTۘ¶asa hrfg 1 h "ȽhTeaKLT\ߙhMM  "T{h]s]N N 1 dh\ЙKTSLdddh\ߒߙնasaN @\љ\ߙն_љö_\߶PQѶRQ\ߙ֘ѶOe^ 0d d\KљיL  dhTےߙ֖Ƕh 1T\ߙhMM   !Iz lT` Tii ; 93 $\ ld !  l\Ƕi֘ deTeaKL l lTiMKT d dibdhH91 h (hTے߷ӷ\÷Է\񘨙÷߷dڈdTH 0h h h8T ޷ hh!T   1L !H h* h& h hȾh4\Wȵ ȱ 1)ȭ !%̽ h \޸Wآ 1Ȟ h / dT߷ 9d̖ l̓d7T ޷HT5TChhh\hh\hphhh\hmZr T* *ndr T鑌MM !  \ԗM (TMMKTTk͸\ MK\HHHX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa3  36 AA a a Vh`h Hq``X`HX " hHhB4 "c"H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i H%h$"h Hh*p @ 8 0 0Fh `&`H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @HuX5 H,h* HjXLXXXc hd 'jb PALGO"#2@2 hGh X A ,#)$h.@@" T ""  (h R9MUX1R9MUX2MIBX VR9MUX4R9MUX5R9MUX6PBAT00 Pz Ǡ#"2X"2Ȱ h hh( h 0Fȼ&  x&dhwu Ggb# gY ` ` 0H_V Q JX`DHh"h H  F` 4@HX H{hy HXXXXҘ1O à hR & h( h !2f#2  |2" vAfwAw r"#2#2_]c`_R^YRANS"#2D#2 hKXh X A ,#)$h/@@" T7 ""  (h  hh( h 0F FԸߠ % hh¼Š  (h 0Fȷ hȲá Ȧ ` ` 0Hȟhș 8 ÌH 0F| unt teX`f@ @ @??@KhTt !JAh\ !C h6 h @h # `hʾή' ,#Hl!hĜ "lȽ`h l h l     l l!@ HHT5TC h h h _h\h\h\h\h\h  9 -099/99/9999999.999/999-9999-99-9999 /"8+ "8&h 8h hh!+ΈhT˾ۘ  hT S20 h\˾h\ػػ V hȝ!∭h\˾Ȩ ׈h\;؜Έh\ 1 I8 l\ \\ \ l\\#H T5TCh\h\hhhhhhhhhhh\hu\hp>  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUESMDCPSCREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7TA $T]Ͽ_ʿ7h 3 -hT(PTj h ( h\߿ҿӿ_˿\TeaԿ_ɿ^^^\ԿοԿ]BOHT5TCh\h\h\hh$H h HX  sD  1  : E /` `"i ** h   l 2 1 lH T5TC h\hיZ  36>LATRNSFL LAACTFIL $!#""" 13LOCLEX  !l dd l!!   dd dTў % d\\  l !  ldl l l l l\ƞ d$ 6l  "TT*v 6T l d d d l ll  Tw\T̙ l !  ddTў0482LAUTIFIL eafFif{g, dXTeaf{gfh, hŒƕ.0BZ*01  +8<0050Te !"TΑ#$% T*&'$\&'$\Γ&'Α$T!%ȸ (T&% Tf+\9%ȩ &\&% \\ݒΓ% dș &\Γ&% \T!Q(%Ȋf% &\ˑ*% \_+\Q,-T9%) &\.% \T*Q/00\ݒ% &\Γ.% \\Q122\30.0\ܑQ45/67d8dTꑙ,Q,99 .!)T`̒T9%% 2T:% Tf+ l̤; $ǔh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX@TX -`" ` c1Xd 2QTqX c1XT[Zd@X #  a` aܐ!XdTYD]@XX a Ea a! a"Xc a! a"X a  +a `"d` 5 aX aaXa `aBP@@` ``TBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa+CHUPTEMP SYSVOL CHUPTEMP #  36YEXACT SEQ INDXOVERTAPE0 <   TeЙљ  hThR К(20HGENERAL DUMP PGM IN ) \RК(52H ENTER FILE NAME(CR) TO BE DUMPED, (CR) TO TERMINATE) hTeΙԑTcQQTЙQ 2TQәđә  TϑTՙ\ҙQ֙ d d d d f 1Tՙ (Tܙۙ{T՘ݘ '\홋ߙޙidddd dTc䙚 \䙚\T=TK\\ԛ ThZ2Л dhT 1 lh\ 1\T>!G(8HFILE IS ,2A2,14H AND CONTAINS ,2A2,F7.0,9H RECORDS.) ̍ \R5Л7(52H ENTER 0/1/2/3/4 (CR) FOR ACCESS BY RRN OR KEYS 1-4.) TЙQ T+Qd  d DThR=Лx,(81H ENTER Y(CR) IF AN EXACT KEY TO BE DUMPED, OTHERWISE DUMP WILL USE 1ST CLOSE KEY )\ЙQ doQp  l\RBЛ(43H ENTER STARTING RECORD NUMBER OR KEY VALUE )TЙQ "̎  !TQ֙˙ TcQ̵֙ OThRLЛ(41H ENTER ENDING RECORD NUMBER OR KEY VALUE )\ЙQ̾ !  !\Q͙֙\Q֙dd \뙴 d fp 1dqdr \qTՑq  /o  (TThRcϜ(43H1 FILE NAME TYPE RETRIEVAL KEY LIMITS) J\ZfϜ l̜hTܕ 1 dh\ 1\\T>(4X,4A2,2X,2A2,5X,I1,10X,F7.0)\ZhϜ\ϙ\(34X,F7.0,//) Tco \ꙄThZmϝA dh\ 1 l̢h\ܜ 1\ l̓hT܌ 1 lh\ 1T>(4X,4A2,2X,2A2,5X,I1,1X,3A2,3X,16A2)̡ ,\Zpϝk lπh\ 1\(34X,16A2,//) Tq뙴 ",T=TK@ \\@ThZvϝ\\(1X,27HRELATIVE RECORD # IN FILE =,F7.0)Tϑo ,\Rzϝ(1H0) \\\\؛ 2,TՑq  1  2rTTՙ\RО(26HGENERAL DUMP PROGRAM OUT. ) Tf+T*v `"d hAT-@|$ h:\-@|'TK@z h/\-@|+h !(TC-.Ѩhh\-@|T'$\۞!!T=\@$$ȵ \\ l5l)\@0\Ԟ0+!\02șl!T=2\\*T-0\*\0\@0f"H@GHTUTch\h\hhh\h h_: hhT@ߞޞݞTRlHTUTch\h h\h hlh !TChTy (l H TUTch\h\h0  W(_)~ hThRD(126H0 1 2 3 1 2 3 )\R C(126H OFFSET 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 OFFSET 123456789012345678901234567890 ) dd" d "  37l dPhT;Tc99cT*\c\ퟤc d `d d̽dĜ! hT\ϟ9c\ȟ;c lTc\cThZ d:bhT A1T>(65A2) nHTUTchhh\ h\h\huCREThR"Z(35H MOUNT TAPE TO BE DUMPED ON UNIT 0.,/,73H ENTER C/R/E (CR) TO CONTINUE, REWIND AND CONTINUE, OR EXIT TAPE DUMPING.,/,52H IF EBCDIC TAPE FOLLOW C/R WITH E, SUCH AS RE (CR).) hlhTȉ TC  d \ &  T  d ThR (18H1 TAPE REWOUND ) \R(31H ENTER NUMBER OF FILES TO SKIP.) d\ ! [T+ R\ZTT>(I5,21H FILES BEING SKIPPED.) d˜5\ \R!"(24H FILE SKIPPING COMPLETE.) ThZ#;\š\(1H0,I4,14H FILES SKIPPED)ܗ\R&O(33H ENTER NUMBER OF RECORDS TO SKIP.) dT ! 1T+ 1\Z.TT>(I5,24H RECORDS BEING SKIPPED. )d dÜ!T@  TRTT !2ThR6(26H RECORD SKIPPING COMPLETE.) \Z8\\(1H0,I4,16H RECORDS SKIPPED)M\Z;\\2(33H EOF DETECTED WHILE SKIPPING THE ,I4,9HTH RECORD,/,38H ACTION IDENTICAL TO SKIPPING 1 FILE. ) d\Z>;TT> d\RB8(33H ENTER NUMBER OF RECORDS TO DUMP.)T  !T+ zd d!DT@  TRTT !6Ad"lThZP\\(//,32H0 RELATIVE TAPE RECORD NUMBER =,I5) T ܹf\ZUTT>%(64H EOF OR ERROR DETECTED DURING ACCESS OF RELATIVE RECORD NUMBER,I5)5NHKTUTchhAhh-hh\hhhhhhahmhhAhMhbhh~\hhfhhhhh'h@hXhhhhh <.(+&$*)>-/,%?: @'="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789@JKMNP[\]^`aklmoz{|}~.N * hhhTCsr h\Stq  :1 h\6tqTqsԜ& ! h !\uq \uqȼ "ȸh ]"ȳh\ۤquزHTUTchh\hhh\h\hX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/8X+<X'@X#D XHX}MX\XaXa"a X" XIb XFb XCa X@b bXŘ3Ƙ= " HX ( `B\#Z]Y^]J@Ő1G" `R z` `TKؔ3\՞+(Y^#Y^Y^Y^ Y^]@ŀ`\\յ@@>UV=UVŐ1` #d*@1*A`ݠ4ad`Š 1`TK^]مٝYٵ ^\@Zy@X @@A@@UNȡ`><Ȓ T^ H T d_TZ TT^T]]]]^]]]]] h3HHd%hd&DhhdTFKhh hHL8@ hk"TjhTe h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTmT| `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0f+ *v'd  hrHr s"htjqh hDh`Hah`I/O REQUEST @z     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TeHX(65A2) TL `u HehdhgXlXvhb"aT[ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdhhhuX|h̺ (BD_ n&ȫdȫ  hJIEhE h h  hh h8H60TZX?X h%`" "h*hT=>? T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T^ XT%T\ XFDh5TFh120-3 T*(%!TZ TF \TBeT \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T[+TZX% hT\H `CT T^@ TFhTZh XX TZTm 2X X' h$  X0X XzШ Xhˠ TR  37( Tm H= X H8X H0TX*@) \TJ   hTHZhSTOP PAUSE (34X h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dha.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  TX"" R1 H XRRt`pH  H H h@X`X` f`!d`X"```T@)#``"`\*0T"``` `\@T;a@%\Թ\̹1\ú@)@ H X%hTK@Xh`\P@ %\I}@ @\B[@zw?Cؘ# `>Ř! " HXB ``"Q\&Z]|^]^@Ř G" `R|@` ``TؔS\՞LHY^BY^UUUV=UUUV@X @Xdh@\A@1X"`  Ő@ ```\%QŐ1`` #d*@@1*A`ߠ4ad`Š 1`T^-]م(ٝYC>82,& ٵ ^@@Zy@X @@A@@UUUUV?fffff?I$I%>q>Et>N>DDDD>xxxxxH bb@`X X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`4  37<"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T8a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i ""H"  h"""! 1 hT\T 0@P`p#$""H h hTF FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $Tc_Z_7h 3 - hT``ERj h ( h\߻ bc[c\TeadYb\d^dbHTUTch\h\h\hh  hhhhhTf+T HTUTch\hh\hh+ )(,/.XH0123456789AREF$ID'*ZPIRECOV oPRORETpTRNV o  hpU l : T7 l FMll hLO l \ hlElh hhhh hhT! h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/# 1TT*v6 l44 l2 / ! + !l dBd$ l!!   d%d d T% % MdDRtPT\&\  l !  ld'l l l l l\Ƽ% d C6(l M C"TT*v 6T7 l d d d l ll  T!\!T!̙ l !  dd T! \޼! l ! d!̹ $) l, l dd1 ldl d l l l l l l d̘  l̒ \!̹  X̱  XT!\!̡  X̙  XT!2H/TUTchV\hD\hB\hhh\hh\h\h\h#h\h\hhAREASTRBASMSIZV4MAXSECkSYSID tUBPROT LBPROT_UPBDTB INTSTKTVOLBLK^SCHL,  37PNGxMT25U1k'd dDGNTABDUMALTLSUT NP -0 %BAFNP PCORED.MIINETK7WEFTK7DAT*MICSUB T h jظ 1 h " < )P dg h\ d|̼ !T~ 9l~dRl̩ l  dTC|\~̛  ldRll d d\ɾ~    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5T~T l̻ ̵dl\gT}T*v ~  0l\\ ldd dz:\;~  ld 9!. !* hĈl̨ l 3\~    d !TC l F7̣ 4̠ l̜  0lT}T*v ddldddd dz f0 1T~~  l &  l  l .\ݾ~lg 5$ lLdpdl4,lLlll ̲ l3,܌lLlެll2,Ќld l ̓ l .T~~ B > : 6  93 % ~  l 95 2v  0lo  d dlX̺ ̷ g ̯  Ed{ l D\~̠ ̜  d~  9! ! dp$l c" l T~ ~ 0l d6̱ k3 dl՜ld_d`1da2db3dcddg D l4l5dedfl Ta26̻ {  l  dldldl dTC2 l\3 l\4Ṋl T266  ̚dl̛dl l\վ2 l\о3)" < ) EHp dg; d|l\| ! !lHd~lT~̘l\~ l\~ l  Hll\~ˬl d l dqdrds dz n 1 d +dd dTCq l\r̗  l\sdwdudvʤd  -lܺdldlg dl TʸtTmtdyl  -ldlld d /̼dxd$l,ldlLdpllLld߬l,l,ތl,l,l  ,Llجٌl̶dlLlͬlڌlLdԬlܦf6g ̜ !̗ ! d7  dzn 1  y l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ l6 !5 n̜ ܡ, dK̥  ̦ l 7 +l̞dlܚ dn 1 lJ 0n 1 dz 0n 1 d & &dl Ôyl̿ !i̻  l̶8T l \ ld dl !6  0ṉ6h\ܫ l̹ l\̳̾ l  2\̥ l 26h\T l l 2\ l !d  dz8T l \ l\ﾆ\ l  ̳6h\Tܭ lg \־ l\Ѿ\Ͼydwd+ !" 8 % l\ܨ 1P\\KJ\K\LDdd ddld dzl`p=l  lܹ 0fJ.lۜll 1  +d dlTCld dl -l l l  l 0dKd !#  l5Tܘ \ lڜ9zJh\D lӜ4\ᾧ d\̨ld dddl *,l ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5ldpl 0eJ 4 n ḽḷlz 1 l l  1 d ". l +T l ! d " ll 8̽Jh  37d\ܷ ". l  l\Ѿ̥ l !\ž̶ l !b@aH^H[TUTchh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShATm TX` h/&hHgaV`H _H H M A cTXFRXB H H\TKǔ=:\ǖǔ/  HI&Aa%acAD aa h h HR 4X h\H H TXԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTK HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T hAT-@|$ hh Hǔuhi[G M^@BPCE}GN HJzLLK@ `ab a  0c    ` a`b% *aa ` a"Xd"2aR @ a! a"X a! a"X& aafRda -a0F 0ac 2 .a `9ac a aA `! aa a( a .a 0a!D Q" !yR *a aa A a! a"Xb a! a"X#45h h` X HH"4` " "aXaX ahh`XߩPqa aa a a a a a! a"Xa"  6 9! T d  a a! a"X   `  `  aXaaX " a   a! a"X  aaX'bdRQ"X7; aXl3 aXd+  "XaX  "XaX8 XaXtXf" #"Xf" a# a a A aA aA  XX" a a A aA   a  aX}X"a A a` !RAXaS aXK aXC  "XaXK6  "XzaXa)a#"X"a` aX aX#"Xk XQaX aa  "XA a! a"X a az a a a p a_a( a! a"X^aXX1 aA a a! a"XX a! a"X a! a"X2a a Da  a  a  a! a"X 3 ! a! a"X`  Xݜ` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\QQ\QHQ@T:\ QHKHQTQHQB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR d H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT HsLoAAd]|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXl\Xd N[ hhhHuhi f[G ߂M^@BPCE}GN HJzLLK@H h HX  sD  1  : E /` `"i #y a%XH!""" A#*   "!"X# a1rX""  "!f" !" f""" f" "a""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X a! a"X a a! a"3X\X  37xba a! a"X B a  8 a a! a"XM a! a"X a! a"3X#X)a a! a"Xq     a   a a! a"X a! a"XD aaaaa `!W a! a"Xa a! a"X&    8 4 0a a* "Xj 9"Xea "X\ Fρ" aA Fρa1BXHaADdRAaa `! a! ܠ a"Xra a! a"Xw a! a"X a a! a"Xb a! a"X a! a"X:a a! a"X a  a! a"X$a a! a"Xuȁa a! a"Xa a! a"X_ a `! a! a"Xa a! a"XE a 6 9 2 2X aıa`hA` aXX!!a@bRd@`XXaXTK@%TKahXTKa`aAh`"Rd@`XbTK[ZqXn]@1K%TKX a` aX .a a! a"Xi a! a"X aa`"d`!XdX7TKY,]@XXXeaaȝ`h *a a! a"X/ a! a"Xj hBP@@JI>h`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX@TKX -`" ` c1X\d 2QTKqX c1XCTK[Zd@X #  a` aܐ!XdTKYD]@XX a Ea a! a"Xc a! a"X a  +a `"d` 5 aXe aaX^a `aBP@@` ``TKBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAaLAUTIFIL LAACCAGE NO TRND COMPRESSING ACCAGE FILE LARSWFIL RSW LA  R 2#^hTȇԑՑTʑ̑בБב T ّڑ\gّڑg\񑠑ّڑT|ȼ (TّۑZTj+TzȧnȢiȝ '\ߑۑZ\+ّّȈ STvg '\őgۑ\𑯑 '\ۑ d fu 1 ds\vg '\gّۑT+Tlv++ 2WTgۑTeaԑ䑒T|vg̤ '\gّۑThv+X̔ޜN̎ '\Бgۑ  lTʑ+ّǑّ  d,+  l \+ّǑّ Tdv+ &\gۑD lTzv !9 8 ds du d n 1T|vg 'TgّۑTbv+¤ޜ ̽ 1\gۑ\vTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T 9;7h 3   37-lhT:j h ( h\ߔl;\^Tea;:::\ai9HTTh\h\h\hhh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i  LATRNSFL  L01TeБבؑT ڑБۑ TJݑޑT̑ " T¨Øȼ "Hd@\ΑՑȣ e h Wؤ 1T 9S 2 0lTI !C dn E1dd lf 1 դh Ȥl l̶ḽḻl̨l d dTʑTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i aADe+aa AA a a Vh`X/X+X'X# XX}XVX\Xa"a X" XIb XFb XCa X@b bX53 60h/l-l, h( ,#! !!hnnh ! ! h nnƘؾ 1HTT h h h h FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- TDVWX~WT{ ! ! , h\X Kh \ݸXX 9hTeaXHTTh\h\h\hUTIFIL HDR0HDR0 *glZ*hlW*flT h (j 1TD[_  37Y` hn=n=n; 1TB b !0 hؽT01YbȾ ! h (h2nذ 1ئ 1T@b HTT h h h h\h h hh Hq``X`HX" hACTVERTB  **BZRLL C DPNASRPP ACTIVITY VERIFICATION TABLE PAGER E S U L T C O D EACT ION L C CD-- END OF TABLE NCRUN DATE: ( 0")Q ?-0016,9UTIFIL OLPMY 01   TeL TǓ (T&Ǔ T֒ '\Ǔ T T֓  Ⱥ  h\Αȭ "T*LȢ "\ڑTZ hhhdYI T|̒TUdT̒̒ .d/dd Ք f\ڒZ̒d\͒Z̒T l\’̒Tb̒l|\Z̒Tlp\̒TVl l\0̒l[ lT|̒Tl d dl dd $l ,h n 17l#\ʑ̒T l9f 1 llŜ!I  hܤ d ,hfܰod\̒T l FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- TTT ! ! , h\虭㙆 Kh \ݙ虆 9hTeaꙆHTTh\h\h\hUTIFIL HDR0HDR0 *glZ*hlW*flT h (j 1T̚66 hn=n=n; 1TG8 !0 hؽTG_Ⱦ ! h (h`nذ 1ئ 1T G HTT h h h h\h h hh Hq``XI`HXA" hHh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i ** h   l 1 lH TT h\h N  37 SCREEN FILE BUILD COMPLETE  ***** SCREEN EXCEEDS MAXIMUM ALLOWABLE SIZE *****SCRNFILE SCRNDESC EN  SCREEN FILE BUILD SCRNFILERUN DATE -/ 9)(0Pd4Te, YT "" h f 1T{ "&\' "/TV>dTV9\@8TRThTŕ7,T\V8\ݕM8USUT88h\ޕ7,\?d,d\Ε7~,\Tg, "2̦6 =T'd4Ol\7,\ d\ڕ, "2gl\7,\  d\͑h*\ʑ Ȉ% f3Hhd\d  ̿ n̻ d !U A n !Gf5  T'h\$f6f7" n̹n  d h̲ Ad 1T944lݜ "a ldTŕ7Ε,Tnl\󕛔Ε,\ f3Tk44 !T4; d lTו$ l l\' lHl\7:,\Tea=:̔̔̕ FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T567]6TZ ! ! , h\^7 Kh \ݚ77 9hTea7HTTh\h\h\hUTIFIL HDR0HDR0 *glZ*hlW*flT h (j 1T:>8? hn=n=n; 1T{A !0 hؽTi8AȾ ! h (hnذ 1ئ 1TyA HTT h h h h\h h hh Hq``X`HX"   37hHh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i  FILE SPACE REPORT FILE MAXIMUM CURRENT AVAILABLE PCT SPACE NAME RECORDS RECORDS RECORDS AVAILABLE THIS FILE MUST BE COMPRESSED AND HISTORY MUST BE RUN ***** WARNING - THIS FILE SHOULD BE COMPRESSED ***** ABx DELQMST COSIGNERACCAGE ACTFIL SUMHIST TAPEARC INACCT LADLQMSTLACOSIGNLAACCAGELAACTFILLASUMHSTLATAPARCLAINACCT8*gd*hd*fdTehTh T5l h h f 1 (€h\YTXY (TY dXJ#$ '\YT%T@EM&dK\-@KOOO \ԒOGO\ԒMOE\ߑ*\@EQ+l\-@KSSO \ϾԒSGS\ʾےQSGEGIGEI@ h\-@KK\\~ԒEL\IEIK@ "dTR>\Z? dhTx #1T\Z@ lh\ #1\\RAl\ZC l΀h\ 1\ɑ\Ǒ\ő\\ZD l̵h\ܯ (1\\ZE l̢h\ܜ (1\\RFdTZH d;hTx 1\\\\KTTԒWKL&!9\ԒUKL!\ZK lЀh\ #1\HHC\ZM l̳h\ܭ #1\\RN2l\ZP l̘;h\ܒ 1\\\\K\\ԒWKL!4\ԒUKLȺ!TZS dhTx (1T\ZU lh\ (1\\RVTV 2\RY\RZ5Tf+(1H1,////,52X,9A2,2X,1H-,2X,2(1A2,1H/),1A2,////)(/) (//)(40A2)(31X,40A2)(5X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%)(36X,4A2,X,2(4X,F8.0),5X,F8.0,10X,F4.1,1H%) (X) (1H1) T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` @` `@X(""``T\ ``@ `@X ""`\$HhB4 "c" H]h\hRhMhRKuXhKJhAHFv" c h8"5T39cT$h.h;X7H&8%#T$h$h`  T&T  TF TT4h255؈ȇXuh&ڨ*IhTWTz{|p=H ' &eh @ȫTeȨXȞ Tȡ`><Ȓ T H T .dTʠ TTT͖͖͖͖Ζ͖͖͖͖ h3HHdhdDhhdTFKhh hHL8@ hk"ThT՘ h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTT `h Dh XX\\ TaH #h! T&T hBDhEhBhBhDhwkh:8#k  37 `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T&T aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,;h*X" /h$ h!X 8h hX TThX THX TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  T&T hhhhduhhuX|h̺ (BD n&ȫdvȫ  hJIEhE h h  hh h8H6.0TʠX?X h%`" "h*hT TK h hhh ll X# Xhh@4i` Xj T&T Cr q d Y hUDhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 T&*(%!Tʠ TF \TT \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TʠT 2X X' h$  X0X XzШ Xhˠ T& T H= X H8X H0TX*@) \TJ   hTH STOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dha.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`%  38ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`pH3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T5d֡fѡ7h 3 -hT\j h ( h\ߡ١ڡfҡ\TeaۡfСeee\ۡաۡdHT/T=h\h\h\hhh Hq``X`HX~" h  hhhhhTXYZTSUVWTXYZTSUVWHT/T=h\hh\hh+ )(,/.XH0123456789AREF$ID'*Z   h l : T l ILll h l \ hlElh hhhh hhT\ h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/P 1TT*v6 l44 l2 / ! + !l dd l!!   dd dT\ % d \\  l !  ldl l l l l\Ƣ d5 6l  "TT*v 6T l d d d l ll  Th<\T̙ l !  ddT\\ޢ l ! d̹ $Č l, l d5d ldl d| l l l l l l d̘  l̒ \̹  ̱  T\̡  ̙  T2H/T/T=hV\hD\hB\hhh\hh\h\h\h#h\h\hhECLRECCOMFIL123456K#7G7 $T5d֡fѡ7h 3 -hTj h ( h\ߡ١ڡf'd Сeee\ۡաۡ H-0 =h\F\h\hhED.q`*#`X  T h jظ 1 h W" < )P d h\ d̼ !T 9ldRl̩ l  dT\̛  ldRll d d\ɥ    !> ḷ l !& !/ l 9!/̫ !+̧ h$"l !(M l 5T l̻ ̵dl\gTT*v  0l\#\ ld$d% d:\ͥ  ld& 9!. !* hĈl̨ l 3\    d !T l F7̣ 4̠ l̜  0lTT*v d(d)ldd*d+d, d f 1T M l   ll  38  l \ݥNl $" lLd -d.l,lLlll ̲ l,܌lLlެll,Ќl/d% 0l ̓ l T B > : 6  93 % + , l 95 2v  0lo  dN d(lX̺ ̷  ̯  EdM l D\̠ ̜  d*  9! ! d )$"l c"( l T  0l ḏ k3 dl՜,lNdddddd D llddl T̻ͤ (  l  dldldl dTͥ l\Υ l\ϥṊl Tͤ ( ̚dl̛dl l\դͥ l\ФΥ)O" < ) EHp d; dl\M ! !lHdlT̘l\ l\ l  Hll\ˬl d4 l d d d d n 1 d5 +dd* dT  l\ ̗  l\dddʤ7d6  -lܺdldl dl T?Tdl  -ldlld8 d9 /̼d:d;$"l,ld<.lLd -llLld=߬l,l,ތl,l,l  ,Llجٌl̶d>lLlͬlڌlLd?Ԭlܦf ̜ !̗ !N d@  dn 1*   l 7 -ldlO  Ԝl Όl d9 !Y 1TΫ n !M̷ dA̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ d%n 1 l 0n 1 d 0n 1 d$O  N4dMl* Ôl̿ !i̻  l̶8T l \ ld5 dl !  0ṉh\ܫ l̹ l\̥3̳ l  2\!̥ l 2$h\q9 lM l 2\B lN4 !d%  d8T l \ l\!\3 l  ̳h\ܭ l \֥2 l\ѥ1\ϥ*dCdD+ A!" 8 % l\!ܨ 1P\!\J\\Ddd? d8d>ld% dl`p=l  lܹ 0f.lۜll 1  +d d4lTClC7d6 dl -l l lA  l 0dMdE !#  l5Tܘ \ lڜ9h\ lӜ4\B d\C̨ld? d8d>d@l *l ̬ l̩dF ,\̤ l ! l l윳4\!ܯm lA`p5d -l 0e 4 n ḽḷl 1 l l  1 MdE " l +T l ! d% " ll 8̽h\ܷ " l  l\ѥ'̥ l !\ť̶ l !b@aH^H[T/T=hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA T` h/&hHgaV`H _H H M A cTXFRXB H H\T/=:\ح1//  HI&Aa%acAD aa h h HR dX), H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T  H HB0 hh H/uhi[G M^@BPCE}GN HJzLLK@  38,X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\خ\دϮ@T:\ دϯүTԮدϮB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR a H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTTT HsLoAAd]@ed`d`|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaX!\TX N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@``CT T@ TFhThX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XT@bX&)+25,Ȱ#`X T@A a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9T@bbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Tta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT@bȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i h 000000000000 2  38@ LAADDACT LATAPARC LASUMHST LADLQMST  Ǒّ  d,+  l \+ّǑّ Tdv+ &\gۑD lTzv !9 8 ds du d n 1T|vg 'TgّۑTbv+¤ޜ ̽ 1\gۑ\vTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T 9;7h 3 -lhT:j h ( h\ߔl;\^Tea;:::\ai9HTTh\h\h\hhh Hq``X`HX "COPRDECTBL CRDEADDSPTDUEXDBY INPUT=cY d#'.Te 23 h  hhTeΗ56Tޖ7 "+Tܖ7TRZ}T0T((38H DECISION TABLE MAINTENCE PROGRAM IN (,I4,7H WORDS),/) h\R◢\(38H INPUT CR/DE/AD/DS/PT/DU/EX TO EITHER,/,52H CREATE A COMPLETE TABLE, DELETE A TEST, ADD A TEST,/,50H DISPLAY A TEST, PRINT THE TABLE, DUMP THE TABLE,,/,16H END PROCESSING,/) 1 T59: d'Tea;!<;'=> w ) TAPE TO DISK FILE OUTPUT FILE NAME VOLUME NAME *****OPERATOR-MOUNT ^S  38TTAPE FOR XXXXXXXX ON UNIT 0 WITHOUT RING READY (Y/N) FILE COULD NOT BE LOCATED FILE SIZE EXCEEDS 3000 CHARACTERS THIS IS A SUPERVISOR COMMAND ONLY LOAD COMPLETE. MOUNT NEXT REEL IF MULTI-REEL LOAD. RECORDS ADDED TO THE XXXXXXXX FILE 0000000001Y DUPLICATE RECORD CONTENTS  "P   6&'4TexGHI TeaGJuKJnLT2nM\GJKJnMLn TnM|M\nM\ךGJNJnML\nM|OMT񑋑|PȞ .țT|RPGTBxM|SMTȈ T鑋77PP '\ߑ|UPGd+dW"\|MXM̖lTeaGJYJnL̈6 T2ZdT7,+g-TITݚ,d5[f  ETᑋP̥ 1KT|\PG̛]r̥ Ad^ A" Ald_d`n\SJ8aLd8\SJ_LnT㑋PP &\|bPG4T^&Vhh~TeaGJcJnL\GJaJnL1\GJ˚dJnL \GJޚdJnLTh\ e\\|M fM\ȚGJ gJnLTPTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X//X+3X'7X#; X?X}DXSXX Xa"a X" XIb XFb XCa X@b bX\>:6̳ \ɑ8>\‘\>\בߑTN7̵ &\t7+T h\ҔATea4As5O3TZё7\7\7Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T7h 3 -LhTj h ( h\ߗL\>Tea\AIHTTh\h\h\hhh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i a 6 9 2 2X$ aıa`hA` aXX!!a@bRd@`XXaXT@%TahXTa`aAh`"Rd@`XbT[ZqXn]@1K%TX a` aX .a a! a"Xi a! a"X aa`"d`!XdX7TY,]@XXXaaȝn  38|`h *a a! a"X/ a! a"Xj hBP@@JI>h`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX@T絕X -`" ` c1Xd 2QT絥qX c1XT[Zd@X #  a` aܐ!XdTYD]@XX a Ea a! a"Xc a! a"X a  +a `"d` 5 aX aaXa `aBP@@` ``T絕BP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa READY? MNUPRO TeTeaܨTf Tf+T*vMNUPRO LTTe  Tf+T TfT*vMONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY SUNDAY *fh*gh*hh*lh*mh*nh*ih*jh*khTe$()*TgUVWXZ[Tz h (%hTغ 1\P\Q\N\R\S\T hȨ#h\آ 1T(/,5A2,X,A2,1H/,A2,1H/,A2,2X,I2,1H:,I2,1H:,I2,3X,3HID=,4A2) Hw W hQBœN  hJ("p8ߌF lE A#Al?; h=T-@T6h6\-@TT\@\\ۮUU@ (h\-@T (h\-@T\ոԑU =\θԑ\@p8(d lHT{Th\h\h\h\h\hh Hq``XD`HX<" h @` `@X(""``T\ ``@ `@X ""`\$HhB4 "c" H]h\hRhMhRKuXhKJhAHFv" c h8"5T39cT-h.h;X7H&8%#T$h$h`  T/T  TF TT4h255؈ȇXuh&ڨ*IhT`Tp=H ' &eh @ȫTnȨXȞ Tȡ`><Ȓ T H T 7dTӠ TTT+֓֓֓֓ד֓֓֓֓ h3HHdhdDhhd TFKhh hHL8@ hk"ThTޘ h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTT `h Dh XX\\ TaH #h! T/T hBDhEhBhBhDhwth:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T/T aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,Dh*X" 8h$ h!X Ah hX T]hX THX TL %  38`u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  T/T hhhhd~hhuX|h̺ (BD n&ȫdȫ  hJIEhE h h  hh h8H670TӠX?X h%`" "h*hT TT h hhh ll X# Xhh@4i` Xj T/T Cr q d Y hUDhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 T/*(%!TӠ TF \TT \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TӠT 2X X' h$  X0X XzШ Xhˠ T/ T H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dha.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p HM!"hG!dhFH5  j9 qTLSP4"\6  38TLdQP*!vTLP H H  -Xzd H   #3T Xk H  Xud$$SYMSGF$$ SYSVOL \"Xm HE HXCd  X\Xj H6 H X4d  X H$X% H X0d \ȵ" \` ȲX2whth \ h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :Xӟ H"A HB0Fh  0X O 00j qa! 1" hh! u  HTLDddBHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`  hhhhhT+T=HT{Th\hh\hh+ )(,/.XH0123456789AREF$ID'*Z   h) l : T l ll h) l \ hlElh hhhh hhTeQOP h hظȶ趖( ,Ȱ"!& 1 ,j!#%')/S 1T'T*v)6 l44 l2 / ! + !l drdT l!!   dUdO dPTeUOP % }d\V\)  l !  IldWl l l l l\ƠUOP d s6NXlK } s"T'T*v 6T l dG dM dL l ll  T Q\QTQ̙ l !  dOdPTeQOP\ޠQI l ! dQ̹ $Y lJ, l dda ldKl d l l l l l l dF̘  l̒ \Q̹  ̱  TQ\Q((̡  ̙  T Q2H/T{ThV\hD\hB\hhh\hh\h\h\h#h\h\hh HDX hg'd  h-+h) H, @BH'H%Bh" A-0 hFH ED.`0 'd* T+ h jظ 1 h " < )P d h%\9 d̼ !T 9ldRl̩ l  dT\㢮̛  ldRll d d\ɢ    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5T  l̻ ̵dl\gTT*v9  0l\\9 ldd d:\͢  ld 9!. !* hĈl̨ l 3\    d !T l F7̣ 4̠ l̜  0lTT*v ddldddd d f` 1T  l V  l  l ^\ݢ㌾l e$ lLddìld,lLlll ̲ lc,܌lLlެllb,Ќld l ̓ l ^T B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷  ̯  Ed l D\̠ ̜  d  9! ! d$l c" l T   0l df̱ k3 dl՜lddadbdcdd D ldleddl T}bf̻   38  l  dldldl dTb l\c l\dṊl T$bff  ̚dl̛dl l\բb l\Тc)" < ) EHp d; dl\ ! !lHdlT ̘l\ l\ l  Hll\梮ˬl d l ddd d n 1 d +dd dT l\̗  l\򢣢dddʤd  -lܺdldl dl TԢTdl  -ldlld d /̼dd$l,ldѤlLdllLld߬l,l,ތl,l,l  ,Llجٌl̶dӬlLlͬlڌlLdԬlܦff ̜ !̗ ! dg  dn 1  l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ lf !5 n̜ ܡ, d{̥  ̦ l 7 +l̞dlܚ dn 1 lz 0n 1 d 0n 1 d V Vdl Ôl̿ !i̻  l̶8T l \ ld dl !f  0ṉfh\ܫ l̹ l\̢̳ l  2\̥ l 2fh\ l l 2\ l !d  d8T l \ l\\ l  ̳fh\AYܭ l \֢ l\Ѣ\Ϣdd+ !" 8 % l\ܨ 1P\\{J\{\|Ddd ddld dl`p=l  lܹ 0fz.lۜll 1  +d dlTآ*lؤd dl -l l l  l 0d{d !#  l5T ܘ \ lڜ9zh\L lӜ4\ d\آ̨ld dddl *\l ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5dl 0ez 4 n ḽḷl 1 l l  1 d "^ l +T l ! d " ll 8̽zh\#ܷ "^ l  l\Ѣ̥ l !\Ţ̶ l !b@aH^H[T{Thh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShAh@ T` h/&hHgaV`H _H H M A cTXFRXB H H\T=:\ثƫ/  HI&Aa%acAD aa h h HR H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T % hh Huhi[G M^@BPCE}GN HJzLLK@ X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\mm\mdm@T:\ mdgdmTԬmdmB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR My H X[Ժ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT HsLoAAd]`@X(""`|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#  38vR  2LaHH ALȱaX\X N[ hhhduhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`S 1T'T*v)6 l44 l2 / ! +X X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTIbX&)+25,Ȱ#`X TIA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9TIbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T}a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTIbȰ#`X`!dB2 @rdR@`/@o"********************************************************************************  38 LALTRDSC LARPTTBL LALTRFIL LAUTIFIL LTRDESC A*A, , @**1 D=F HDR1HDR2HDR3END LTR1LTR2969M99*$** 2N 1VEXPECTED "*A," - FOUND " ". FOUND AN ILLEGAL BLANK IN PARAMETER " ". EXPECTED LETTER NUMBER - FOUND A "COMMA". DUPLICATE KEY - LETTER NUMBER XX ALEADY PRESENT EXPECTED "END" FOUND " ". FORMAT MISSING "=" SIGN FIELD DESCRIPTION EXCEEDS LIMIT OF 9. EXPECTED "F" - FOUND " ". EXPECTED NUMBER WITH RANGE OF 01-99 FOUND " ". EXCEEDED PARAMETER LIMIT ON PARAMETER # . LINE NUMBER IN FIELD DESCRIPTION EXCEEDS 24.COLUMN NUMBER PLUS FIELD LENGTH EXCEEDS 54. ILLEGAL CHARACTER - FOUND " ".ILLEGAL USE OF PARAM 5. TYPE FIELD DOES NOT = A.UNABLE TO LOCATE FIELD NAME " " IN RPTTBL UNABLE TO LOCATE LINE CONTROL OR CONTROL INVALID. NUMBER OF LETTERS EXCEED 50 2NUMBER OF LINES EXCEED 24 MAX. LINE NUMBER FIELD EXCEEDS LETTER SIZE. UNABLE TO LOCATE LTRX IN THE UTIFIL LETTER FILE BUILD PAGEAS OF:**2 T Y 00  ()3Kd 0PQ<"0,/U 2 2000*'& FTe˜јҘȪ  dTAsՖ‘֘ȟ Tsؘٖs\UؘٖU\dؘٖd\ꖂ֖FTĕF (TƖFؘژ\>U '\UؘژT^^h\TȖd d f 1\Ȗd '\ʖdؘژ\.s̻ '\sؘژ dTИ̨ޜ̡ '\ߘژ ddd ddddddddd T1TՕ\╼ԘdTܕ㖗T\ߕ\Օ\٘╼Ԙ\Ҙp啼\˘畼p4d,ddp4d,dlp4d,dld 0h 0Ȉd 0h 0Ȉd dTAʑ TՑ 1\󘅑畼dTܕ㖗TT1\ږՕ\Ә╼Ԙ\̘ٕT.l\Ԗܕ㖗\\ؘ̨ؖ %\ȕd\ؕԘ l 5l\ܕ㖗\ lTAؘؖ G\Ҙ\lTԘdTܕ㖗Td"@  38\ؖ\Ҙ l\ԑؑҘ\ܑٖҘ㖗\̆ !̇lT1Җ\ؗ>\>Ҙfl\ܑҖ㖗\\Ƙ d\Ֆݑ d hT 94 1  BHlTИ 1\TՕ\ԘdTܕ㖗T ;\ޖݑՒƖט=T1Ҙ\d\ȑԘl\іܕ㖗\d\՗x\xҘ l\ܑҘ㖗\\đ d\TИڤޜF (TƑߘژ  dddTA B 2q̝lTԘhdTܕ㖗TT1Ҙd\k\ۗkҘl\ܑۖҘ㖗\̿ X\Ɩבd\Ԙl\ܕ㖗\ d dTd # )1\Ҙ̞l\LݑҘܥ dTܑҘ㖗TTՑƖב d\ޑ l̲l\ 94̶ 1E̲ ̫ ̤ ̝ #̖ W̐ ̉ T1Ҙ\Ցј\ёҘ-̬ ̧ ̖ ̝ ̌ ̕  ̌    " \l dTՑ ddT   \Ց 1\ْؖT>ڤ 14TƖUژT1Ҙd\ٗ\Ҙ\ dTܑҘ㖗TTA d d d-\ Ց lT ޑTd\$ll ll l d\ޙՑƚ l\ԙՑƚ d 7"\Œ ޑ\Ɩl\Ö,Ȍd l\ޑՒƚ "TИC  2  2   ; ; ; k̽  ̺ l̶ r ̺  dTՑƖבJ̓ ̠   6̒  2 3  ;    k  T"p4d\l" : '0WV lܺ " " dTޘՑƚ "l\ޑC d̼d "̱ " l\ΖޘՑƚ\ǖޑ ̑d  " "d l̼d 7"̒ l\ޘՑƚ lܤ̃ l\ޑՒƚTޑȌ   d  l dTИ( d! Ӕ 2 l l\ T"p4d\,d  l\ޑՒƚ ܽ l\ޑ2w"\Ėl\$l̐ lTޑՒƚ ܌ l\ޑ̽  d\ݖՑƚ d 7" l\˖ޑT1Җ 0l\Ց\Ҙ lR\Җ\ҘF\ّҖ\Ցј\ёҘ3\ƑҖ\Ҙ'\ҖTҘ\Җ̮ 0l\Ց\Ҙ̝ ld dTܑҖ㖗T 2 v 2 T1Җl\XҘql\ЖܑҖ㖗\ d\ lTИ 2\Lߘژ  v\mؘؖ  ddd\\WԘdd\vܕ㖗\v "\2ؘؖ md\rҖ\ ؗ>\>Ҙl\:ܑҖ㖗\:̏ 2d<\ؒƖט\9̘l\Ԙ9l\ ܕ㖗\ "N l 5l\Җ\GҘkd\זܑҖ㖗\ Kd\4  9" 4" 2  ۜ c  39 \dd dl      l ̒l ̌ l\$ ll   d\ 2 0" d l\Ց ,$ l\ڑؘˑ l\Ϙˑ̼ؑ l\ĖՑ [ l e  &̒l 6"\ؑ dl l 2p \xƖזόl׌l\Ҙ\bҘ d\Ҙ\O:Ҙ l lvd\kܑҖ㖗\k8 " TƖݘڤ 2$\ܖdژ\XҘd\ݑ՗&\&Ҙl\ܑҖ㖗\ܵ\2\Օ\ؘ╼ԘFl\ܕ㖗\\\Օ\╼Ԙ\p啼\畼p4d,ddp4d,dlp4d,dld 0d 0Ȍd 0l 0Ȍd d\cʑ \WՑ 2\I畼d\lܕ㖗\l\\/Օ\'╼Ԙ\ٕ\l\=ܕ㖗\=fl "TV\?Җd\*Ҙ5l\ ܑҘ㖗\ d d 2r d"tοm "tηdnnd "rk "oΠlnn̓l l"S 2l̶ 2̱l̺$ h\{E Ylh\mYԙ\e疧l\YY\QYґ l 2 l\.Y,  2'\sژ\ݖ.YUU 2 \ϒYژ\ґYT.Y 2'\Y ژr\0h 9~h\ВY񕼘ԘOh\ܕ㖗\%D\Җhv fQhl\]!\]Ҙu 2Ohai hU\ܑҖ㖗\T•\\.Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/X+X' X# XX}X&X+Xa"a X" XIb XFb XCa X@b bXn>Ƚn<ظ 1TĶ~Ȩ !1 h؟TͶț ! h (hnؕ 1 1T¶ ╼Ԙ\ҘpHTvT h h h h\h h hfph Hq``X`HX" hH h HX  sD  1  : E /` `"i  9 -099/99/9999999.999/999-9999-99-9999l\Ԗ /"+ "&h h hh!+ΈhT'ۘ  hTз'TTh\'h\'ػػӘ V hȝ!∭h\'Ȩ ׈h\ͷܸ'؜Έh\ۘ 1 I8 l\ \޷\ܷ \޷ l\\ݷ#H TvTh\h\hhhhhhhhhhh\hu\hp>  39D****************************************************** N E W S XX/XX/XX ************************ANSWER 1,2,3(CR)READY NEWS  "RSW1" RECORD NOT PRESENT IN UTIFIL VALUES IN "RSW1" RECORD -- NOT NUMERIC. . @(P'J TeA*gd*hd*fd_h^hAE T_Z;TT5L(A2,/,36HCHOOSE ONE OF THE FOLLOWING OPTIONS:,//,2X,12H1) NEWS ONLY,/,2X,34H2) DISPLAY NEWS THEN GO INTO LEGAL,/,2X,26H3) SKIP NEWS GO INTO LEGAL,//) d>Tea𑔔>H d 1 1 TZET! 2y T5\\ᑮ 2yݬ \⑟T_Z-TT5M(A2,/,36HCHOOSE ONE OF THE FOLLOWING OPTIONS:,//,2X,12H1) NEWS ONLY,/,2X,35H2) DISPLAY NEWS THEN GO INTO COLECT,/,2X,27H3) SKIP NEWS GO INTO COLECT,//) d>Tea𑔔>H d 1 1 TZT! / T5T ƔT ƑƔ Ɣ8 פФ *\ӑ d7d d" $d $dƜ ο=  hTƖ WddT_ZN dIhT %1T5(1H ,37A2)TYo\ZQ l܀nh\ %1\\ZR lɀIh\ %1\M h\Ɩ̙ ll hTZƖ\ZZl l̓h\܍ %1\(1H ,37A2) ddi)7 , d>Tea > T_Zj연TT5(A2) lMll-Ṯ )\Zs\ߑ\(A2,///,20X,25H***** NO NEWS TODAY *****) lll Tf9AE \F\ Tf+T*vX%X#X!XXXXXXXXXX X F  39XLADLQMST LAADDACT DELQMST NAME CHANGE KEY-INDEX ERROR *** PROGRAM CONTINUING...Z  TemTm T}y\Tϙ (T\՘홢Ⱥ '\홠T #ȪȤ '\ۘT]#-- T#T # '\\#qTՑq &\홪kT# T}\ T \Ց̵ 1T홨\ؑTՑ̝ +̚\황\ҖTՔq 2^\ɘ홱T͘ՙ\ Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T}̜>Μ9>7h 3 -hT͜?j h ( h\ߛABΜ:B\TeaCΜ8͛͛͜A\C=C̜AHTTh\h\h\hhh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i #y a%XOH!""" A#*   "!"X3# a1rX)""  "!f" !" f""" f" "a""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X~"  !T 9!a Fa a! a"X a a! a"Xf  39la! a"X a a! a"3X6Xh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"Xi a! a"XX@TX -`" ` c1Xd 2QTqX c1XjT[Zd@X #  a` aܐ!XsTYD]@XJX a Ea a! a"X a! a"X, a  +a `"d` 5 aX aaXa `aBP@@#4h h` ` ``TBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAaDELQMST FMPA02XMRSV _)LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlASAV m$FMPL01K65CORFMPL03vFMPL04%FMPL052SAVLABRELFLEFMPL08FMPL09DUMMY1 !DUMMY2UNPENDBCLOSFRELS1AoTCOMPL w )0dT8?? ؔ є ʔ Ô x̼ ̵ ̦ h l=TRZ-x d&hT 1T((8HCOMMAND ,A2,23H NOT IN TABLE, REENTER.)w\R0☕0(51H CREATE FUNCTION WILL CLEAR YOUR CURRENT TABLE FILE,/,30H TYPE Y IF YOU WISH TO DO THAT,/)Tea;!<;'>'@AT77 "NTRR6+(53H CREATE TABLE IN PROCESS, INPUT LU OF INPUT STREAM AS,/,19H 2 NUMERIC DIGITS) \R8!(57H IF LU 04 ENTERED, CREATION WILL BE VIA ADD TEST DIALOG ,/)\;!<;.B>.Fd_DH$EdC dG06 f dd 8d _TKCHH p d7 f 1Tޖ7TЖ7 "Tܖ7TRZJ♧ǀhTT((3X,A2,30H TABLE HAS BEEN FRESHLY LOADED) Tq?? " TБ? "T7̟ "N l nܕ 1\7\7̇ "\7\R[$(63H DISPLAY TEST IN PROCESS. ENTER 3 DIGIT TEST NUMBER FOR DISPLAY,/)Tea;!<;$I>%DHd_$F$Eh"H$KdJTJ?? TRZa^TJT((21H  39 ERROR IN LINE NUMBER,I4,14H NOT IN TABLE) $T4\Re⚂(36H TABLE WAS PRINTED ON LINE PRINTER. ) \Rh⚟K(63H DUMP TABLE IN PROCESS. TABLE WILL BE DUMPED IN FORM COMPATIBLE,/,72H WITH CREATE FUNCTION. INPUT LU OF OUTPUT STREAM AS 2 NUMERIC DIGITS ,/)Tea;!<;,B>,Fd_DH$EdLTcL?? TRZnTLT((20H TABLE DUMPED TO LU ,I3)sTf+\Rr1(49H FILE DECTBL NOT DEFINED. USE UTIL AND TRY AGAIN.)\ZuW\7\(37HFILE DECTBL ERROR IN REMOVING ERROR-,Z4) \Zxy\H\(24HSUBROUTINE LDTABL ERROR-,Z4)}TRZ{⛖T7T((43HFILE DECTBL ERROR IN STORING RECORD, ERROR-,Z4) V\Z~⛺\ڗ?\(36H NO DECISION TABLE IN SYSTEM, ERROR-,Z4)6\Z\?\(24HSUBROUTINE DELDT1 ERROR-,Z4)\Z\?\(25H SUBROUTINE DPTDT1 ERROR-,Z4) 1 T5MNTf+T*vBAD OPERATOR BAD CONNECTOR PB .LE. PA BAD SYNTAX TYPE Y IF CORRECT SYNTAX ERROR, REENTER Y INPUT= d  lh h  ю h  "I d ITRZTT(E(33H ADD TEST IN PROCESS. THERE ARE ,I3,25H TESTS CURRENTLY IN TABLE,/,58H ENTER 3-DIGIT NUMBER OF TEST THAT PRECEEDS YOUR NEW TEST,/)TeaabHh(a$h"H$d ! !TRZ^TT(c(37H STARTING TO DEVELOP A NEW TEST, NO=,I3,/,78H ENTER LEVEL NUMBER (1-9) THEN NEXT LEVEL (0-9) THEN NUMBER OF PARMS (1-9). ,/,55H SEPERATE FIELDS BY COMMAS, FOR EXAMPLE, INPUT=1,0,3 ,/)TeaLAACTFIL A 03_U h 6)Ge000000000000000000000010000000000000TAPEARC RECORD ONLY TAPEARC SUMHIST DELQMST Ё S BT Z5100d UDgTeߠmno TdpߑqrȺ %Tܑdstdq\`qsq\dqq\hqq\ st‘qT^hTduȈ (T dsum\suu '\ssum\4u '\⑂sum\ӑLu '\ԑsum\ŝѝ u '\Ɲ sum~TvTuw#̺x ̵ *\dyum~ ddz d{" $}d| $d~  h7T  dC h"TܑT4Cl l\sum~Tܓ tؠt ޜ% dhh hT  4   Zրh\D Jƀh€h̾h̺8h\<2̮h̪8h̦h̢h\<̰ hh 8hTܓ<؟ 2%ThKJhAHFv" c h8"5T39cT:h.h;X7H&8%#T$h$h`  T<Ȓ T H T DdT TTT h3HHdhdDhhdTFKhh hHL8@ hk"ThT h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTT `h Dh XX\\ TaH #h! T<T hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST &  39    X XX*EX XX&X+@XXX< XwhHh h,Qh*X" Eh$ h!X Nh hX TjhX THX TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+( &%h n ;ln  H T` + ȋXh؆1   HhH㞚  T FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G700 $00TRİT7h 3 -hTʗL  39PEj h ( h\߰ǰȰT\wTeaɰTSSS\ɰzðɰRHTT%h\h\h\hhLAUTIFIL TdpߑqrȺ %Tܑdst4   Zրh\D Jƀh€h̾h̺8h\HDR0HDR0h 8TeFrrrTsFtr Tܱuvt*gl\*hlY*flV h $f- 1\߱psny hn>n>Ƚn<ظ 1T.rȨ !1 h؟T.Fnrț ! h (hGnؕ 1x 1T.r hހhڀHTT% h h h h\h h hf,4h Hq``X`HX " hZHhB4 "c"\\\(1  hhhhhTRSTNMOPQZTRSTNMOPQHTT%h\hh\hh+ )(,/.XH0123456789AREF$ID'*ZORSTATUS,8X,13HINACTIVE DATE X,  h l : T l ḷ l !& !/ l 9!/̫ !+̧ h$l !(G l 5T㥋 l̻ ̵dl\gT+T*v  0l\\ ldd d:\͵  ld 9!. !* hĈl̨ l 3\    d !Tɵ l F7̣ 4̠ l̜  0lT+T*v d"d#ldd$d%d& d f 1T G l   l  l \ݵHl $ lLd'd(l,lLlll ̲ l,܌lLlެll,Ќl)d *l ̓ l T B > : 6  93 % % & l 95 2v  0lo  dH d"lX̺ ̷  ̯  EdG l D\̠ ̜  d$  9! ! d#$l c"" l T  0l ḏ k3 dl՜&lHdddddd D llddl TǴ̻ "  l  dldldl dTɴǵ l\ȵ l\ɵṊl TǴ " ̚dl̛dl l\մǵ l\дȵ)I" < ) EHpO  3:  d; dl\G ! !lHdlT̘l\ l\ l  Hll\ˬl d. l ddd d n 1 d/ +dd$ dTɵ l\̗  l\d d d ʤ1d0  -lܺdldl dl TZ T dl  -ldlld2 d3 /̼d4 d5$l,ld6(lLd'llLld7߬l,l,ތl,l,l  ,Llجٌl̶d8lLlͬlڌlLd9Ԭlܦf ̜ !̗ !H d:  dn 1$   l 7 -ldlI  Ԝl Όl d3 !Y 1TΫ n !M̷ d;̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dn 1 l 0n 1 d 0n 1 dI  H.dGl$ Ôl̿ !i̻  l̶8T l \ ld/ dl !  0ṉh\MMܫ l̹ l\̵-̳ l  2\̥ l 2h\3 lG l 2\< lH. !d  d8T l \ l\\- l  ̳h\ܭ l \ֵ, l\ѵ+\ϵ$d= d>+ ;!" 8 % l\ܨ 1P\\J\\Ddd9 d2d8ld dl`p=l  lܹ 0f.lۜll 1  +d d.lTɵ=l=1d0 dl -l l l;  l 0dGd? !#  l5Tܘ \ lڜ9h\ lӜ4\< d\=̨ld9 d2d8d:l *l {̬ l̩d@ ,\̤ l ! l l윳4\ܯm l;`p5d'l 0e 4 n ḽḷl 1 l l  1 Gd? " l +T l ! d " ll 8̽h\ܷ " l  l\ѵ!̥ l !\ŵ̶ l !b@aH^H[TT%hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA T=` h/&hHgaV`H _H H M A cTXFRXB H H\yyTyy){=:\ؽy+y){/  HI&Aa%acAD aa h h HR H T=Ժ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT HG9Qs>L1a: Lw T&RH5 I  vR  LaT0\T0  hh H)uhi[G M^@BPCE}GN HJzLLK@ aaaaa `!W a! a"X a a! a"X     8 4 0a a* "X2 9"X-a "X$ Fρ" aA Fρa1BXaADdRAa#45h h` X 2H /H ."4` " "aXaX ahh`X^Pqa aa a a a a a! a"X "a"  6 9! T d  a a! a"X F   `  `  aX TaaX 1" a   a! a"X   aaX'bdRQ"X7; aX 3 aX +  "XaX B  "XaX a XaX&X =f" #"X 6f" a# a a A aA aA  X X :" a a A aA   3:   a  aX X "a A a` !RAX a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T="" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ T1B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR K H XAԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT1oo HsLoAAd]D n&ȫ|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\oXc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`X X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTåbX&)+25,Ȱ#`X TåA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tåbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#H  3:4`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTåbȰ#`X`!dB2 @rdR@`/@oHh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i #y a%XH!""" A#*   "!"Xs# a1rXi""  "!f" !" f""" f" "a""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X~"  !T 9!a Fa a! a"X a a! a"Xf a! a"X a a! a"3X6Xh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"XP a! a"X\:  3:HX@T쵕X -`" ` c1Xd 2QT쵥qX c1XT[Zd@X #  a` aܐ!XdTYD]@XX a Ea a! a"X a! a"X a  +a `"d` 5 aX aaXa `aBP@@` ``T쵕BP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAaX  sD  1  : E /` `"i Hh HX ` `"i COLSTSTJCPYIND:MDACRTE:DAQUEL;DECMTNLKDHUPDTW9DMPFIL=LODFIL8=LTRBLD8LTRPRTMHUPDTh?8NEWS =\NMCHNG9CPGCNT1@VPGCNT2@ePGGEN P=PGLTTBAA9T Ǒّ  d,+  l \+ّǑّ Tdv+ &\gۑD lTzv !9 8 ds du d n 1T|vg 'TgّۑTbv+¤ޜ ̽ 1\gۑ\vTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T 9;7h 3 -lhT:j h ( h\ߔl;\^Tea;:::\ai9HTTh\h\h\hhh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i X/ a! a"Xj hBP@@JI>h`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX%  3:\@TKX -`" ` c1X\d 2QTKqX c1XCTK[Zd@X #  a` aܐ!XdTKYD]@XX a Ea a! a"Xc a! a"X a  +a `"d` 5 aXe aaX^a `aBP@@` ``TKBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa ` a! a a"X  a! a"XXaa a a! a"X a! a"X a a! a"3X\Xba a! a"X  a   a a! a"XM a! a"X a! a"3X#X)a a! a"Xq     a   a a! a"X a! a"XD aaaaa `!@  0360000102BZOKSRPPRL:0 ?!P8HypPJcj1.<=?(,>* hhT; h h hT h 1\ h h\HT5TChhhh\hhhhN<_DLADDACT CCS20 SREQDL CCS20 UPHSTCM CCS20 @,UH'0Nl1E( 9999999999 T 95 2EJ 5  5\☨š  ?TۘÙ֘љ\ߙ֘љdd h fر 1ƔQ TaM̼ \pMM !r T鑼љM :TM. d l̕ TaMK \pMKTTEl "4T\T  93 !T2l dQ\蘨š ̴ l lT !̪ ! , lG !ADdO=dP 8 d\ IlT{QÙGÙNN #lTۚTeQ 1'T TnQh\ϙhKKN g\ҙhƘQ"h\OәO\QOԙOh\QOOJ 5\GPT ʚMd TۙGOlؔ _T{癿ߚřN\֘љ h<\ǚL d f 1TRMM !#N r T鑼љM !TM \әŒߚ l dTRMKT ld!;찖  쨖 2̡hTۗәOO 쓖 2̌h\G  Nd dddP     \QOљęOO lT;QљęP l  ldp4,d 0dp< 0ȌlTTeaKљOLTm 4Te T^ 6 3T'H$T5TChhhhhhQhc\ hYhv hS hh'.EX T\M\tM\M\M\󑼙M \ԙMT !? h f 1T>MM !T呼ߗəM  yMK\MTftHAA1                        END OF ACTIVITY HISTORY ACTFIL CCS20 0482 hhfh h f 1TMM "Tےߙ֙hdpT呼ǙhM $  "T{ߙ֖Ǚ֙NN lT3О.M d0l\#xǙM̴  \י#Ş3řN  dYA .l\љ#О.M̑ l.T㑼ǙhMM  "\ߙ֖Ǚ֙Ṇ  lT۞љKdW TkљT9#TeaKљיL1 0 9 Rd ""T TEl 4\ 3T T !> !:T 2 ! d lfn ,l\Kޞ2L l dZ l lTZMKTTMH99999999990000000000(  R К(20HGENERAL DUMP PGM IN ) \RК(52H ENTER FILE NAME(CR) TO BE DUMPED, (CR) TO TERMINATE) hTeΙԑTcQQTЙQ 2TQәđә  TϑTՙ\ҙQ֙ d d d d f 1Tՙ (Tܙۙ{T՘ݘ '\홋ߙޙidddd dTc䙚 \䙚\T=TK\\ԛ ThZ2Л dhT 1 lh\ 1\T>!G(8HFILE IS ,2A2,14H AND CONTAINS ,2A2,F7.0,9H RECORDS.) ̍ \R5Л7(52H ENTER 0/1/2/3/4 (CR) FOR ACCESS BY RRN OR KEYS 1-4.) TЙQ T+Qd  d DThR=Лx,(81H ENTER Y(CR) IF AN EXACT KEY TO BE DUMPED, OTHERWISE DUMP WILL USE 1ST CLOSE KEY )\ЙQ doQp  l\RBЛ(43H ENTER STARTING RECORD NUMBER OR KEY VALUE )TЙQ "̎  DAILY *** END OF REPORT *** COLLECTOR STATISTICS REPORT PAGE AS OF: ACTIONS COLLECTOR NAME COLLECTOR NAME TOTAL HDR1HDR2HDR3LACOLSTS COLSTATSLACOLSTS LAUTIFIL d l)hTt¤MM s "s h 1TeaKLh  2hל 2%hTۙџܔܓh\џd\џh\џ d"! ,{ y @sKJpdQdOT{QOO ! v\QO  3:INDEX FILE COPY (MAX 2000 BYTES) FILE NAME TO COPY FROM VOLUME NAME FILE NAME TO COPY TO OWNER NAME XXXXXXXX FILE COULD NOT BE LOCATED XXXXXXXX FILE NOT INDEX FILE FILE DESCRIPTION NOT THE SAME \̘ }3 %T Ҥܻ dM  NlTMKT ' Tu‘ & \’G & \’G & & 3dJHT5TChhh\hhhh6506179:8324;NAmwh   h hlTk# hFf" 1Td)Ud*d&T¦Ƚ mȹ h h\혨ȫ TۘÙ' h\ۘș Iȕ hؑ\˘   d(\ $ ̷lМdO 1؜ %l\O+OTL&' %l'    zTۙGŒߙ YlT TՙTĦ \㘨ŒMONTHLY  RESULTS TOTAL TOTALS WEEKLY"  ' d & Teƪ456^hgTea4787ʑ9Tʪ:\47ê;7ʪ:9ʘTʑ:ϑ:\ʪ:\٪47Ѫ=7ʪ:9\ʑ:Ϫ>:\ӑʪ:\ƪ47?7ʪ:9\ّʑ:Ϫ@:\ʪ:\47٪A7ʪ:9\‘ʑ: :\ʪ:\47Ѫ=7ʪ:9\ʑ: >:\ʪ:\47?7ʪ:9\ʑ: @:T\ޑϪBBC (TϪDB4:T`/ B '\ B4:\Ӧ/ BԬ՜ '\֦ DB4:TTު2B̽ '\őϪEB4\/2eB̭ '\ EB4e ) j ) dFd ) 1d1TGTHޑBBH3I *TϪJB4 ldK dL!D , dM h6̣(3dN ,\Oh"Tّ h\٪1G1TL/GB̦ '\ PB4[3ܹ Q\ԑϑ:Q:Tea47R7ʑ9>\¦ :Q:\47R7ʑ9-\ϑ:Q:\ݪ47S7ʑ9\ :Q:\̪47S7ʑ9 \ª4787ʑ9TZުB\/BTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFw  3:ILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T٭KۭFK7h 3 - hTڭLj h ( h\߭ NOۭGO\TeaPۭEڬڬڭN\PJP ٭NHTTh\h\h\hhh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i !DELQMST DLYASSN  XH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5TH39cTh.h;X7H&8%#T2$h$h`  TT  TF TNT/4h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ T+ȡ`><Ȓ TK H T dLTG TTKTJJJJKJJJJJ h3HHdhdDhhd~TFKhh hHL8@ hk"TWhTR h~"  b hvTp PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTZTi `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TRHX TL `u HehdhgXlXvhb"aTHZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdUhhuXh̺ (BDL n&ȫdȫ  hJIEhE h h  hh h8H60TG  3:XIX h%`" "h*hT*+, T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXqhNXlhXch:a62Hl20X), H,)H& XXCh a&hh۸nX X h H   HThhh=@ TK XT%T\ XFDh5TFh120-3 T*(%!TG TF \T/RTt \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" TH+TGX% hT\H `CT TK@ TFhTGh XX TGTZ 2X X' h$  X0X XzШ Xhˠ T TZ H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- MTvwxwT ! ! , h\蹟޹չxֹ Kh 1\ݹxعڹxٹ 9hTeaܹx׹ݹݹݹHT(T6h\h\h\h(h Hq``X`HX " h HhB4 "c"   hhhhhTcde_^`ab Tijcde_^`abHT(T6h\hh\hh + )(,/.XH0123456789AREF$ID'*Z    h l : T$ l LLll h l \ hlElh hhhh hhTٺǺź h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/[ 1TT*v6 l44 l2 / ! + !l dd l!!   dd dTٺ˺ź % d̎`\\  l !  ldl l l l l\ƺ˺ź d@ 6Ĕl  "TT*v 6T$ l d d d l ll  T\T̙ l !  ddTٺǺź\޺ l ! d̹ $ό l, l d@d ldl d l l l l l l d̘  l̒ \̹  ̱   3:T\Ǻ̡  ̙  T2H/T(T6hV\hD\hB\hhh\hh\h\h\h#h\h\hhdhT B1T+ lfdܔ B1v\ǢO e \Z{ lԀdh\ B1\Z f'd !,d` -0 3TF11dED.0  *n  T h jظ 1 h b" < )P d h\į d"̼ !T$ 9l$dRl̩ l  d&T0"&\$̛  l'dRl(l d) d*\ɽ$    !> ḷ l !& !/ l 9!/̫ !+̧ h$-l !(X l 5T$  l̻ ̵dl\)&gT#T*vį$  0l\.\į ld/d0 d :\ͽ$  ld1 9!. !* h)Ĉl̨ l 3\$    d& !T0)& l F7̣ 4̠ l̜  0lT#T*v d3d4ld*d5d6d7 d f 1T$$ X l   l  l \ݽ$Yl $- lLd8d)9l,lLlll ̲ l,܌lLlެll,Ќl:d0 ;l ̓ l T$$ B > : 6  93 % $6 7 l 95 2v  0lo  dY d3lX̺ ̷  ̯  Ed!X l D\$̠ ̜  d5$  9! ! d4$-l c"3 l T$ $ 0l ḏ k3 dl՜7lYddddd d D lld d l Teؼ̻ 3!  l*  dldldl d&T0ؽ& l\ٽ& l\ڽ&Ṋl TŚؼ 3 ̚dl̛dl l\ռؽ& l\мٽ&)Z" < ) EHp d ; d"l\"&X ! !lHd$(lT$̘l\$ l\$ l  Hll\$ˬl d? l ddd d n 1 d@ +d*d5 d&T0& l\&̗  l\&dddʤBdA  -lܺdldl dl TɼTd%l  -ldlldC dD /̼dEdF$-l,ldG9lLd8llLldH߬l&,l,ތl,l,l  ,Llجٌl̶dIlLlͬlڌlLdJԬlܦf ̜ !̗ !Y dK  d n 15   l 7 -ldlZ  Ԝl Όl dD !Y 1TΫ n !M̷ dL̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ d0n 1 l 0n 1 d 0n 1 d/Z  Y?dXl5 Ôl̿ !i̻  l̶8T' l* \* ld@ dl !  0ṉh\ܫ l̹ l\̽>̳ l  2\,̥ l 2/h\D lX l 2\M lY? !d0  d 8T' l* \* l\,\> l  ̳h\ܭ l \ֽ= l\ѽ<\Ͻ5dNdO+ L!" 8 % l\,ܨ 1P\,\J\\Dd&dJ dCdIld0 d l`p=l  lܹ 0f.lۜll 1  +d* d?lT0N&àlNBdA dl -l l lL  l 0dXdP !#  l5T'ܘ \+ lڜ9 h\ lӜ4\M d&\N&̨ldJ dCdIdKl *l Č̬ lm*  3:̩dQ ,\'̤ l ! l l윳4\,ܯm lL`p5d8l 0e 4 n ḽḷl 1 l l  1 XdP " l +T' l ! d0 " ll 8̽h\ܷ " l  l\ѽ2̥ l !\Ž'̶ l !b@aH^H[T(T6hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA TN` h/&hHgaV`H _H H M A cTXFRXB H H\ŊŊTNŊŊ:Ō=:\Ŋ<Ŋ:Ō/  HI&Aa%acAD aa h h HR PGTS H TNԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTN%% HG9Qs>L1a: Lw T&RH5 I  vR  LaTɒ\%Tɒ  hh H:uhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  TN"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\UU\ULU@T:\ ULOLUT˓ULUB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT˓ HsLoAAd]S1811TgLUABS |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhLuhi f[G ߂M^@BPCE}GN HJzLLK@H qbb@`uCKTHRDkMASERRXJBPROEn8  3:o/GETREC3MASDRVRPMAX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T;a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oHh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i PORTS AUTON PWFOQ8XP9Q8XP1Q8XP1Q8XP2Q8XPTPAABSHFOT IFLT PAABS%HFOT iWITE PATE&PCK PATEPCK OMTRAABSSVE OMONWITEpPCK ²OT dOT VOT NFMOT;FMOT.XSC !XC PCEXUTE ORTHLTINFMINFMINSHX CX oEPL LNGR ŸPATEECH 8GET[Q8XP2=Q8XPTFAABSHDLOTCFLT cHDLOTAABSÒFPRORoPRCHKWITEpHNT ɭWITEɖNGR PATEECH PCK PATEGTCHHNT jPCK uPATE|ECH GGTCHDWITEPATEʚGTCHʒPATEPCK ECH PATE#PCK PATEKGTCHCPATEaGTCHYWITEˍPATE{GTCHs8FI HFOT 8FL ˳CX ˱8FL ,PATEVPCK OXC 88FX 6HFOT .8FI XC ?8FL WITE8FX PATE"PCK HFOT 8FI kHFOT XCOUTV4pUOLDUMPpwCOBOP qFMCOMEtFMPPROteMMWRITuLOKCHKvtINSLOKvoFMCOVLw}FMFSRCw>PUTRECwGETNXTyLOCKFL{FSHARE{GETZ }UPREC }SMDCX  sD  1  : E /` `"i Hh HX ` `"i PORTS AUTON PWFOFMOT;FMOT.XSC !XC PCEXUTE ORTHLTINFMINFMINSHX CX oEPL LNGR ŸPATEECH 8GET[Q8XP2=Q8XPTFAABSHDLOTCFLT cHDLOTAABSÒY  3:FPRORoPRCHKWITEpHNT ɭWITEɖNGR PATEECH PCK PATEGTCHHNT jPCK uPATE|ECH GGTCHDWITEPATEʚGTCHʒPATEPCK ECH PATE#PCK PATEKGTCHCPATEaGTCHYWITEˍPATE{GTCHs8FI HFOT 8FL ˳CX ˱8FL ,PATEVPCK OXC 88FX 6HFOT .8FI XC ?8FL WITE8FX PATE"PCK HFOT 8FI kHFOT XCOUTV4pUOLDUMPpwCOBOP qFMCOMEtFMPPROteMMWRITuLOKCHKvtINSLOKvoFMCOVLw}FMFSRCw>PUTRECwGETNXTyLOCKFL{FSHARE{GETZ }UPREC }SMDC INTEGER N80 00128 INTEGER N132 00129I>jF}h4" v!2 ;+ COMMON / UP4 / N0, N1, N2, N3, N4, N5, N6, N7, N9 00130 COMMON / UP4 / N10, N11, N13, N14, N15, N16 00131I>jF}h4" v!2 ;+ COMMON / UP4 / N35 00132 COMMON / UP4 / N40 00133I>jF}h4" v!2 ;+ COMMON / UP4 / N80 00134 COMMON / UP4 / N132 00135I>jF}h4" v!2 ;+C*** END OF MACRO DECLARATION. 00136. 00137I>jF}h4" v!2 ;+,,D  l TI,, , ,U "$S , 1QX" , =2]XH \5,,],U, \HX T,,,,,',,' T,} % H! T,' Tb, ,n,i,,s, \,,,,,',,' \,} Tg,, ,U " , =2] H \5,,c,U, \H Tl , , 1QqH \,1 \,,1+X1@1 1 51 1 ]1 U1 1 1 1@X1 1 1 1 ,1 1 '1 1 '1 1 1 }1 1  1@!1 1 1 '1 1 b1  1 n1 i1 1 s1 1 1 1 1 ,1 1 '1 1 '1 1 1 }1 1 g1 1  1 U1 1 1  U1 1+ 1@1 1 51 1 c1 U1 1 1 1@1 1 l1 1 1  1 1(q1@1 1 1 1 1+ R 1@ 1  1   1 ; 1@G 1  1  1  1  1  1 9 1 A 1  1  1  1  1  1   1  J 1 J 1  1) 1@ a 1  1  1   1   1  1  1) 1@ f 1  1  1   1  1+ 1@ k 1   3;1  1 d 1 H 1  1  1  1 M 1@ 1  1  1 Z 1  1 +  #   #7#  *+"  #  # * + #    #7 %1 1 1 1 ,1 1 '1 1 '1 1 1 }1 1  1@q1 1 1 '1 1 &1 i1 1 s1 1 "1 "1  1 1 &1 i1 1 s1 1 '1 s1 1 1 1  1 1(1  1 1)v1   1 1)v1@1@1 1 :1 i1 1 s1 (1 n1 s1@v1 1 1 1 ,1 1 '1 1 '1 1 1 }1 1 g1 #1 (1 U1 1 1  U1  1  1 3 1  1* u 1   1  1+ 1@ u 1@ 1   1  1  1  1  1  1  1  1 ! 1  1  1  1  1  1  1  1 " 1  1  1  1  1  1  1  1 # 1  1  1  1  1  1  1  1 $ 1  1  1  1  1  1  1  1 % 1# )3 " #  ###3 #7###   ##, % ! #7!,%1+ 1@1 1 51 -1 c1 U1 1 1 1@ 1 1 1 1@{1111 1@1 1111 1@1 1@1 1 &1 i1 1 s1 1 '1 s1 1 1 1  1 1(1  1 1)v1   1 1)v1@1@1 1 :1 i1 1 s1 (1 n1 s1@v1 1 1 1 ,1 1 '1 JD  3;$1 '1 1 1 }1 1 g1 #1 (1 U1 1 1  U1  1  1  1  1  1 * 1  1  1  1  1  1  1  1 + 1  1  1  1  1  1  1  1 , 1  1  1  1 \ 1  1  1 \ 1 - 1  1  1  1  1  1  1  1 . 1  1  1  1 / 1  1@ 1 0 1  1  1  1 1 1 9 1 <* ? - -5% !#D -#D #77-  $8%  - 9$*  :) #-#< ##-##=#I $1@01 e1 D1@1 f1 1 1 1 g1 r1 1 1 I1 1 |1 I1 h1 51 A1 i1 i1 r1 i1 1 :1 TSLSIZfP1829 MIB UFNR o&TOD READR GTIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ADEV uTHDS REQXT iR9MUX1R9MUX2MIBX VDR9MUX48R9MUX5R9MUX6Q8QBCKPBAT00 PBAT01'Q8INTBQ8DXP9aREADRCxGQ8MAGTQ8QFLTQ8FGET]COMM18;JBCNFGp!RELBYQ MRECADz&DATFMTREMLOKvDCLOCK-CKUADRudNSTACKSMDAERREADRX}PTCLRBQ8RWBU3TMRTHDVERIFYrCDUMMYSECTORQCOUNTETRMNL<UNPTIMoN14 QMINTXUNPSRTTSUSER7*FUNSHR|PTSUBRTSLUNTeL1829 L1860 EOF I18331#S18326P83310 Q8IGP XFILE4 pCPREL hUNFIX RCTV i~MINTO *mCLOSF }0FMPA02XMRSV _)LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlASAV m$FMPL01K65CORFMPL03vFMPL04%FMPL052SAVLABRELFLEFMPL08FMPL09RDU(  3;8MMY1 DUMMY2UNPENDBCLOSFRELS1AoQ8EOTTTCOMPLUSE LEND nwRESET FILE1 pIFALT JPRET *MP1234lBSMD4 K65T10BUFF 6K65T12MIBUF oIPROC lQ8QUN3NUMLU !fNXUM 1RJPRET1p"CARDRDl'Q8QINIMESAGE2Q8DFIN%GETFCBQJLGOV4?Q8QENSvSMDCPAFQ8q  3;LQWNDU2INITFMUFCBw3SMDCPGZVOLENDOUTPV4TERESPLUNAMEONTIME1kMICSECDENXUC^8EFCOVL#6JPRENp#ABSPARuvCUPDRECCEXPIREZ%USKNPGTSWSEC_HDENXUM^TSCKPM`@EFSTORSMTSIMUNPTBL`EXTREGh%COMREQfCOMSEQzrEMPSRT*MSYSDAY01SWAPARQIN PRO mASC ikRW kPIDR56 L18326JPT13 1SPL4 SAVLU kbSEEK9 CPTBL ,!CPADD hDAYTO *kM1811TISMD #CPCHK h|MMALC _CLINE ALVOL mOPENF }3MFLIST *uzPORTS AUTON PWFOV moSPCEV4SETBNDh9CWLGT0 DpCWLGT1(CCSMVACNWAREJLLUV4*STLPV4nELLNDISBLIKDUM}yJOBINDoFIXONESMDACPeWRTBAKyCPTBLNTSCLLB`8INCRECTSLCUPekTSVFTN`!aJOBENTCLRINTrVTSXERRfhSYSCOP~FMBRRNwzT15 PTNRELqFMSWAPtySWAPONnvTSUSCPg7N7 MPDRIV N9 AYERTO*fLVLSTRSCH nGET S1860 LN4 IDR12 \L18273IDR4 ECXIT FILE2 pCCPLU ^WCONT 5END0V4ZMMEF =xDONE qCPDEF hKI1811TESMD MONI iO/YERTO *iNAMEV4MAUTFA oI1811ZbMINT IFIX LOOP n}/Q8DFADJPSWT pPUTS KQSAV mmVINPV4oPUTZ }CDRDSMXMTEND1BMAXQUEALTDAITDFUNCFMSCOMtSLICUPemALCOREQLOADINp BGNMONZLNRESPr)PWFAILmNTSRFTN`0TSBGIN`NRERLE!TOTMIN*qFMCOMPtSWPSEC1^FSLIMT(IPTMOTN!TSINTReEPORTSCONVERk"SYUTILL000 C18331uRENAM }!DELET }6Q8FS BACK +TIMEC Q8FX CHAIN fXMREL _wBREAK bCABS l^ALLIN lKQ8CMP1 TRVEC oDWADD |WRFLG UPTOD FMASK *tMMAT 1DINPUT cSMDGD1COPYQ MSAV mnRENAMEMDATFLGDELETE[Q8  3;`SKIP Q9PKUPENABLESEKDONGCPSENDSCHERRp*FSTMSV4VPOLCHKNIPROClTIMSLC]XTSNABLZPARTBL1PTRITE~EFLISTNCMPRQoSMDGDRNSTATSUNLOCK{CERRORAMONTO*gINVINTCLFRIOw$TSPMINeWKSPLU1`T16 l.[INIPRT~TSCKMU`dEXTSTKIOVFVOLmPTEOFVPTBSIZCCP +LOG bLOG1 {LOG2 MAKEQ FLOAT FILE3 pMT50U0_MT50U1iS1811TgLUABS l9 NFNR o&JKIN p AUTF9 oXMMOD _NOG30AnYAFILV4[NXTOP Q8LOCBQ8FERMODEBUGwTSIOC1g!TSIOC2gMMREADuCKTHRDkMASERRXJBPROEo*GETREC3MASDRVRPMASKk>TERMCKNPTSTASKZOFNXUC^APLENTH ALMERRXMBLOKZTSOFFM1dWANTDR#DENSWP^ONNXUC^pTSATTCePTYERRmTSACTVZCLRSKNT0 kPET1 kPT2 kPONNXUM^wT4 kPT6 kPLSTPRTT8 T9 j LTSUSRPTSMFLGZTSPMCK`ZATTACHeTSLLSBfPGMOUTf+TSLICEfCPSET h4T18 j eT19 jALTSUBlT14 lVOLR mOFVOL mICORE mT12 nSWAPCKn.UNPIO oRECOV oPRORETpTRNVECoWAUTFB oCOUTV4pUOLDUMPpwCOBOP qFMCOMEtFMPPROt`MMWRITuLOKCHKvtINSLOKvFMCOVLw}FMFSRCw9PUTRECwGETNXTyLOCKFL{FSHARE{}GETZ }UPREC }SMDCPSL(NBRLINTENDQUELBINHEXLUNQUE LINEUPLNDOWNPUT INITZEZCTERMLCPADDR)CEFDTA"CMREQT6CTRMNLIPTAM2TKPTAM2PTERORPTREADDECREC4PTADDRoPTALRMPTMOVERECPUTY3DBATOUBOPENFwOPBATFBGETS BUPRECBTIMERBJOBSTR)AMINTXDTMER DTIMERTMINT tTIMEUPLDEVERRuALTDEVuGETLOSsCSMD uUE18331 EGHOSTB20 XSMD \SEKCHKSETFNSSEKCOMF@SEKINPECKOVRLCLRDASxGCLRSTSrDASTATDRICHKMSBLSBSMDSTSSMDCHSFFILBFFILSMDSMDGCU>SMDRDRLTOFDR_MPDVCK7ICONSLyEDUMMYBUFFE SYSMON08LIBEDTLOADSDnJOBPROPROTECJPLOAD#JCRDV48JPSTV4FRCOVERiBRKPT pSYSSEG&MIPRO MNTCHKDISMNT+AUTOBTKICKOFaCALLCPCPLOOKJTRMLUPTAPSETRESLABSMDCFGCPAREASTRBASMSIZV4MAXSECkSYSID tUBPROTLBPROTZUPBDTBINTSTKOVOLBLK^SCHLNGxMT25U1kWTERMLU!ALTERR_DGNTABDUMALT LSTOUT STDINP BATLST BATINP PCORE kPCONSL5MIINP ETK7WEFTK7DAT{MICSUB"iSEVENTSEVNRDCPTRAC |PCCP1 CALTHDN4 N5 N6 N8 N10 N11 N12 N13 ,N15 HWINITSIMRSVLSTLOCTSAREARDPTV4PTNALCFMRDEL^FMEOFC_FMMOSU FMMOIU ]FMNRCDUCTLENMAXLOCFMMOSFFMFCBS!FMMOIFFMFCBI#'FSCTNE&FCBSCT&FSLEND(NMMLUTB(:PCTABL)BIDLER *(INSTLUIDLCTR*-TMRTYP*ITMCODEFSTIME*PDMICOD*KTBLADR*L\EMPSTP*NCGHOST*d ADAYTO*hMONTO *jHORTO *lSECON *nCONTA *oHORMIN*pTIMCPS<wTODLVLPNSCHED*rTMRLVLLSIZV49PSIZV4ODBSIZlCHRSFG*sCOBOPS|XQ8STP *vND  3;tISP MICSB2*FBASV4PKEYV4RELFILDUMPOT+ACPTBE+TSPAGE,CPTBLZNUMCP XXMAT 0NXUC 1NNSWP 1VTSQPRIPROMTR>BAITOSDATSEP/TSTLOC1ZPRTCDR1\0R9TAPF1_5R9SEGF1_LRGUSR1aRQLLIM1bRQULIM1cRETIME1iFILOAD1nSQPASWD1oWKSTAT1sRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX3.TSPORT1TSPEND7TSUENDTeV^hTȸhTZSȧd@ hTs3Ȫ (Tґ3 w )0dT8?? ؔ є ʔ Ô x̼ ̵ ̦ h l=TRZ-x d&hT 1T((8HCOMMAND ,A2,23H NOT IN TABLE, REENTER.)w\R0☕0(51H CREATE FUNCTION WILL CLEAR YOUR CURRENT TABLE FILE,/,30H TYPE Y IF YOU WISH TO DO THAT,/)Tea;!<;'>'@AT77 "NTRR6+(53H CREATE TABLE IN PROCESS, INPUT LU OF INPUT STREAM AS,/,19H 2 NUMERIC DIGITS) \R8!(57H IF LU 04 ENTERED, CREATION WILL BE VIA ADD TEST DIALOG ,/)\;!<;.  3;B>.Fd_DH$EdC dG06 f dd 8d _TKCHH p d7 f 1Tޖ7TЖ7 "Tܖ7TRZJ♧ǀhTT((3X,A2,30H TABLE HAS BEEN FRESHLY LOADED) Tq?? " TБ? "T7̟ "N l nܕ 1\7\7̇ "\7\R[$(63H DISPLAY TEST IN PROCESS. ENTER 3 DIGIT TEST NUMBER FOR DISPLAY,/)Tea;!<;$I>%DHd_$F$Eh"H$KdJTJ?? TRZa^TJT((21H ERROR IN LINE NUMBER,I4,14H NOT IN TABLE) $T4\Re⚂(36H TABLE WAS PRINTED ON LINE PRINTER. ) \Rh⚟K(63H DUMP TABLE IN PROCESS. TABLE WILL BE DUMPED IN FORM COMPATIBLE,/,72H WITH CREATE FUNCTION. INPUT LU OF OUTPUT STREAM AS 2 NUMERIC DIGITS ,/)Tea;!<;,B>,Fd_DH$EdLTcL?? TRZnTLT((20H TABLE DUMPED TO LU ,I3)sTf+\Rr1(49H FILE DECTBL NOT DEFINED. USE UTIL AND TRY AGAIN.)\ZuW\7\(37HFILE DECTBL ERROR IN REMOVING ERROR-,Z4) \Zxy\H\(24HSUBROUTINE LDTABL ERROR-,Z4)}TRZ{⛖T7T((43HFILE DECTBL ERROR IN STORING RECORD, ERROR-,Z4) V\Z~⛺\ڗ?\(36H NO DECISION TABLE IN SYSTEM, ERROR-,Z4)6\Z\?\(24HSUBROUTINE DELDT1 ERROR-,Z4)\Z\?\(25H SUBROUTINE DPTDT1 ERROR-,Z4) 1 T5MNTf+T*vBAD OPERATOR BAD CONNECTOR PB .LE. PA BAD SYNTAX TYPE Y IF CORRECT SYNTAX ERROR, REENTER Y INPUT= d  lh h  ю h  "I d ITRZTT(E(33H ADD TEST IN PROCESS. THERE ARE ,I3,25H TESTS CURRENTLY IN TABLE,/,58H ENTER 3-DIGIT NUMBER OF TEST THAT PRECEEDS YOUR NEW TEST,/)TeaabHh(a$h"H$d ! !TRZ^TT(c(37H STARTING TO DEVELOP A NEW TEST, NO=,I3,/,78H ENTER LEVEL NUMBER (1-9) THEN NEXT LEVEL (0-9) THEN NUMBER OF PARMS (1-9). ,/,55H SEPERATE FIELDS BY COMMAS, FOR EXAMPLE, INPUT=1,0,3 ,/)TeaLAACTFIL A 03_U h 6)Ge000000000000000000000010000000000000TAPEARC RECORD ONLY TAPEARC SUMHIST DELQMST Ё S BT Z5100d UDgTeߠmno TdpߑqrȺ %Tܑdstl  3;dq\`qsq\dqq\hqq\ st‘qT^hTduȈ (T dsum\suu '\ssum\4u '\⑂sum\ӑLu '\ԑsum\ŝѝ u '\Ɲ sum~TvTuw#̺x ̵ *\dyum~ ddz d{" $}d| $d~  h7T  dC h"TܑT4Cl l\sum~Tܓ tؠt ޜ% dhh hT  4   Zրh\D Jƀh€h̾h̺8h\<2̮h̪8h̦h̢h\<̰ hh 8hTܓ<؟ 2%ThKJhAHFv" c h8"5T39cT:h.h;X7H&8%#T$h$h`  T<Ȓ T H T DdT TTT h3HHdhdDhhdTFKhh hHL8@ hk"ThT h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTT `h Dh XX\\ TaH #h! T<T hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh  3< T 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h000000000000p DUMP FILE TO TAPE INPUT FILE NAME VOLUME NAME *****OPERATOR-MOUNT TAPE FOR XXXXXXXX ON UNIT 0 WITH RING READY (Y/N) FILE COULD NOT BE LOCATED RECORD EXCEEDS 3000 CHARACTERS THIS IS A SUPERVISOR COMMAND ONLY *****OPERATOR-REWIND TAPE ON UNIT 0 RECORDS WRITTEN TO TAPE0000000001 ȋXh؆1   HhH㞚  T@7h 3 -qhT-j h ( h\߲q@\cTea@???\fn>HT Th\h\h\hhh Hq``X`HX" hH h HX  sD  1  : E /` `"i  l !  ldl l l l l\Ʋ d/ 6l  "T+T*v 6T l d d d l ll  TX \T̙ l !  ddTr\޲ l ! d̹ $ l, l d/d ldl dv l l l l l l d̘  l̒ \̹  ̱  T\̡  ̙  T2H/TT%hV\hD\hB\hhh\hh\h\h\h#h\h\hh\<領Tѝu̚ '\ um~T4 ḷ l !& !/ l 9!/̫ !+̧ h$l !(G l 5T㥋 l̻ ̵dl\gT+T*v  0l\\ ldd d:\͵  ld 9!. !* hĈl̨ l 3\    d !Tɵ l F7̣ 4̠ l̜  0lT+T*v d"d#ldd$d%d& d f 1T G l   l  l \ݵHl $ lLd'd(l,lLlll ̲ l,܌lLlެll,Ќl)d *l ̓ l T B > : 6  93 % % & l 95 2v  0lo  dH d"lX̺ ̷  ̯  EdG l D\̠ ̜  d$  9! ! d#g  3<($l c"" l T  0l ḏ k3 dl՜&lHdddddd D llddl TǴ̻ "  l  dldldl dTɴǵ l\ȵ l\ɵṊl TǴ " ̚dl̛dl l\մǵ l\дȵ)I" < ) EHp d; dl\G ! !lHdlT̘l\ l\ l  Hll\ˬl d. l ddd d n 1 d/ +dd$ dTɵ l\̗  l\d d d ʤ1d0  -lܺdldl dl TZ T dl  -ldlld2 d3 /̼d4 d5$l,ld6(lLd'llLld7߬l,l,ތl,l,l  ,Llجٌl̶d8lLlͬlڌlLd9Ԭlܦf ̜ !̗ !H d:  dn 1$   l 7 -ldlI  Ԝl Όl d3 !Y 1TΫ n !M̷ d;̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dn 1 l 0n 1 d 0n 1 dI  H.dGl$ Ôl̿ !i̻  l̶8T l \ ld/ dl !  0ṉh\MMܫ l̹ l\̵-̳ l  2\̥ l 2h\3 lG l 2\< lH. !d  d8T l \ l\\- l  ̳h\ܭ l \ֵ, l\ѵ+\ϵ$d= d>+ ;!" 8 % l\ܨ 1P\\J\\Ddd9 d2d8ld dl`p=l  lܹ 0f.lۜLADLQMST 4 n ḽḷl 1 l l  1 Gd? " l +T l ! d " ll 8̽h\ܷ " l  l\ѵ!̥ l !\ŵ̶ l !b@aH^H[TT%hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhILAINACCT RSWDELQMST LA 2YTesTs Tq\bbhTeνT h " dhTJbȲ " h fIب 1\۽Jb dqț "^hr_hs dTȅ l l " d d d!i,d~r Xw QhTQ dz  18 , dۀ%hT%h ÀhTq%hTǠ܀%h ̪h\ܔ T J& dq ! XTzqA\bq;T l !\J !TVzJ dwhT 1T,(/,3HR -,I9,/,3HS -,I9,/,3HW -,I9)Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX JhKJhAHFv" c h8"5TI39cTâh.h;  3<<X7H&8%#T3$h$h`  T¤T  TF TOT04h255؈ȇXh&ڨ*IhTTp=H ' &eh @ȫTȨXȞ T,ȡ`><Ȓ TL H T dMTH TTLTKKKKLKKKKK h3HHdhdDhhdTFKhh hHL8@ hk"TXhTS h~"  b hvTq PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌT[Tj `h Dh XX\\ TaH #h! T¤T hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T¤T aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,¹h*X" ­h$ h!X ¶h hX ThX TSHX TL `u HehdhgXlXvhb"aTIZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+Ð ÎÍh n ;ln  H T` + ȋXh؆1   HhH㞚  T¤T hhhhdVhhuXh̺ (BDM n&ȫdȫ  hJIEhE h h  hh h8H60THXX h%`" "h*hT+,- T h hhh ll X# Xhh@4i` Xj T¤T Cr q d Y hUDhT XHXhNXhXh:a62Hl20X), H,)H& XXh a&hh۸nX X h H   HThhh=@ TL XT%T\ XFDh5TFh120-3 T¤*(%!TH TF \T0STu \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" TI+THX% hT\H `CT TL@ TFhTHh XX THT[ 2X X' h$  X0X XzШ Xhˠ T¤ T[ H= X H8X H0ƎTƓX*@) Ƌ\TJ   hTHƉSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh ḷ l !& !/ l 9!/̫ !+̧ h$ːl !(˻ l 5Tˇ l̻ ̵dl\ˌˉgT“ˆT*vˇ  0l\ˑ\ ld˒d˓ d˃:\ˇ  ld˔ 9!. !* hˌĈl̨ l 3\ˇ    dˉ !T1ˌˉ l F7̣ 4̠ l̜  0lT“ˆT*v d˖d˗ldˍd˘d˙d˚ d˃ f9 1Tˇˇ ˻ l /  l  l 7\ˇ˼lp >$ː lLdy˛dˌ˜l=,lLlll ̲ l<,܌lLlެll;,Ќl˝d˓ ˞l ̓ l 7Tˇˇ B > : 6  93 % ̇˙ ˚ l 95 2v  0lo  d˼ d˖lX̺ ̷ p ̯  Ed˄˻ l D\ˇ̠ ̜  d˘ˇ  9! ! dy˗$ːl c"̖ l Tˇ ̇ 0l d?̱ k3 dl՜˚l˼dhdi:dj;dkdndol T;?̻ ̖˄  l  3 L1a: Lw T&RH5 I  vR  LaT\ԈT HTOPi REAR hh Hԝuhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d  3 .`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  Tȱ"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\ظظ\ظٯظ@T:\ ظٯٲٯظTظٯظB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR fXMRE H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT44 HsLoAAd]|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\4Xc N[ hhhٯuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`TO*gINVINTCLFRIOw$TSPMINeWKX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTjbX&)+25,Ȱ#`X TjA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tjbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Tמa a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a V  3 < n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTjbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i A  ~  3 < COSIGNER DELQMST LTRFIL TRNSFL UTIFIL A*@B ,,::D $EXT F= HEND 9N .P0112 Y 00LTRF SALC  3< 1234567890123456 DO YOU WISH TO PRINT ALL OF THE LETTERS REQUESTED BY THE COLLECTORS? Y OR N PLEASE REENTER ACCOUNT NUMBER - THERE ARE LESS THEN 16 DIGITS LINE THE * TO THE TOP OF PAGE AND SEVENTH CHARACTER POSITION DO YOU WISH TO HAVE ANOTHER ALIGNMENT LINE PRINTED? ENTER Y OR N ENTER ACCOUNT NUMBER OF THE NEXT LETTER TO BE PRINTED - (16 DIGITS MAX). UNABLE TO LOCATE ACCOUNT IN THE DELQMST FILE UNABLE TO LOCATE ACCOUNT IN THE TRNSFL FILE ERROR ON REOPEN OF TRNSFL UNABLE TO LOCATE COLLECTOR IN UTIFIL. LETTER TO BE SENT TO ACCOUNT NUMBER XXXXXXXXXXXXXXXX HAS NOT BEEN PRINTED UNABLE TO LOCATE LETTER NUMBER TO BE SENT TO ACCT# . * THE REQUESTED LETTERS HAVE BEEN PRINTED. UNABLE TO LOCATE ACCOUNT XXXXXXXXXXXXXXXX IN THE COSIGNER FILE UNABLE TO LOCATE LTRF RECORD IN THE UTIFIL UNABLE TO LOCATE SALC RECORD IN THE UTIFIL RE: C/O  < P .A)B(&'i"=6jJpP30Nljs2  : Te@ *gd8 *hd9 *fd:T͝$ț (T0\<Ȍ '\\ d" '\ߝ\МҠ d '\ΝҠ\T '\ dZddmddTeaU0!c\U0!cT:TS\\:dTK_dT%"d*\UXU*cW I TTԞT ;  1T0\\ؑ/\ԡl\ΝTjϬל ɬʜ  1"\ҞT:TdTK_dT%"d*TeaU0!c\UU*cW !I \žС\ݠUc\ԠUUСcT<ڠ /; 0T0TJБ̘ \󝍡M̌ \睍" aTБɡ TeaUɡ cT˝< d f; 1T͝<̟ 2y\ܠU c\T:ȡ\ dT<;  (T0TJM̑ \󝍡" \ȑT Ƒ d.TTԞƠ̺ ̴T  ̮ 1e\T\\՝  \ΟlTS_dT%l\󞾖T_d\l\螾K_d\T:\!\!d\ʞT_d\!l\K_d\T\TJ \T$v; T  1 T0\I\ȑI\Ip d[d\d`dld^d l d]T: d \v`> + l\v`I  ldQTv`] l̽ lܶ 1̴l\̡T ̞ȠT ;  1T0\ǝ \\  p\̡\̡ 9 34 1`\̡ \̡ n \̡ } T̡  \̡ \̡!T: \̡ n \ݑ̡ \̡֑" } \ϑ̡#\ȑ̡$\̡%  \О x\̑ &T ȠT ;  1T0ҡ\ \\p $(d' hkT n 2h`\ } T: PhR\  dhH\ݑ \螨 h;\Б \ۙ\ƞSdTK_dT%\6 d 2>l\垾K_d\\*T8\**l\ǞK_d\\+TTJjO\,,̢ \坍)@l\K_d\ dT:\g -l 8!1 !- l  d.\  3<l.// d \ "  1 3 l l l\n , & 1Tn  d4TJ4"  l 1 ly̱ d0\ܞn0g0̦ d1l =\؞n "̠ ܓ\n00ۄlM ll >\n "   d3 d\n" ֜lҜ ld4Tn1343 l\g040댍 lT:+?lTK_dT%\\՞R\Ζ G [l\➾K_d\\ә+ \GG l\ d\K_d\\+\} G l\K_d\TJ2"2 \+T G l\K_d\T:+\鞛G̦ d\ޞlTK_dT%\ݙ\Ǟ6l\鞾K_d\\ș4Qd` d5 d/ d da $ d6 $ d7d8\v`D  6 d'H!fTv`.. ̵ܸd-ܱܰ\v`. l̻ d\Sva-- l̜" ̙n\͖v`.Δ ŭl l̔ l\-va--̉l`\v`.̯ d9\v`.̦dL l\v`.̜ d/ $ 6 l\44 4l" l l\l d\זg00҄0 l\ʞL6$. ܘܗ\Ev`. l5 ̊a d-M`'W 2 l $ d:" Hd;-dY $ d6Hldd5 7 ^  TT86̛ ̗ T̞ "\̞6\+̞\ !t\0\i-- \6 \6R\\"<6<\̞ d'\֑'"  1 d A6l\̞76 d1 d\'11 \̞-6- 2 l $ l $ d7=R\d/" 9 & Rd6lllKd\K_d\l6 l\V>G>fl\wK_d\wܗ 1\O\86l\YK_d\Y d\ ԡ?٠ lG d.\R 1/  d'\+\l'/./ d ܌l\ۙ'"  1nj l\ՙԡ.ܻܺ\˙ԡ,.,l\잾K_d\̡ l\ԡ32"2 \+\Uԡ3.l\ĞK_d\\~ԡ@"̣ (\+\}<.. d\pԡ@Md\K_d\\m\V6\Nj . nl\oK_d\o}l\`S_d\`l\ST_d\S!l\FK_d\F\_$\[<\W \S\OTTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/ X+X'X# XX} X/X4Xa"a X" XIb XFb XCa X@b bX  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUE CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $ Tvx7h 3 -hTa j h ( h\߯x\Teaxwww\v HT=TKh\h\h\hh  , 19 JANUARY FEBRUARYMARCH APRIL MAY JUNEJULYAUGUSTSEPTEMBER OCTOBER NOVEMBERDECEMBERJAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC   hhhh   TCAEA\BAETDdD"! ."4GYl~\԰IAȫ h \ʰEA鰌 \MAȗ h\EA鰌\QA h\EA鰌\TA h\EA鰌\WA hTEA鰌\YA h\EA鰌\[A̲ h\ٰEA鰌\а]A̟ h\ưEA鰌}\`A̍ d\EA鰌j\eA l\EA鰌W\iA l\EA鰌E\mA lTEA鰌2TDdD  d\q\CAEA\߰BAE l\հEA鰌TTAAOHLT=TKhh h h\hhhhhhhhhhh&h.h5h=hDhLhRh[hahjhphxh~hhhh\hrh\hoW h Hq``X`HX" hH h HX  sD  1  : E /` `"i Hh HX ` `"i Hh"h H  F` 4@@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ T4ԿB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR ILmN H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X2  3< bX *L "HT4rr HsLoAAd]PGMIN e|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\rXc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`ECXIT FILE2 pCCPLU ^X X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oHh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i  LAADDACT LATAPARC LASUMHST LADLQMST _B  3= Ǒّ  d,+  l \+ّǑّ Tdv+ &\gۑD lTzv !9 8 ds du d n 1T|vg 'TgّۑTbv+¤ޜ ̽ 1\gۑ\vTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T 9;7h 3 -lhT:j h ( h\ߔl;\^Tea;:::\ai9HTTh\h\h\hhh Hq``X`HX "COPRDECTBL CRDEADDSPTDUEXDBY INPUT=cY d#'.Te 23 h  hhTeΗ56Tޖ7 "+Tܖ7TRZ}T0T((38H DECISION TABLE MAINTENCE PROGRAM IN (,I4,7H WORDS),/) h\R◢\(38H INPUT CR/DE/AD/DS/PT/DU/EX TO EITHER,/,52H CREATE A COMPLETE TABLE, DELETE A TEST, ADD A TEST,/,50H DISPLAY A TEST, PRINT THE TABLE, DUMP THE TABLE,,/,16H END PROCESSING,/) 1 T59: d'Tea;!<;'=> w )0dT8?? ؔ є ʔ Ô x̼ ̵ ̦ h l=TRZ-x d&hT 1T((8HCOMMAND ,A2,23H NOT IN TABLE, REENTER.)w\R0☕0(51H CREATE FUNCTION WILL CLEAR YOUR CURRENT TABLE FILE,/,30H TYPE Y IF YOU WISH TO DO THAT,/)Tea;!<;'>'@AT77 "NTRR6+(53H CREATE TABLE IN PROCESS, INPUT LU OF INPUT STREAM AS,/,19H 2 NUMERIC DIGITS) \R8!(57H IF LU 04 ENTERED, CREATION WILL BE VIA ADD TEST DIALOG ,/)\;!<;.B>.Fd_DH$EdC dG06 f dd 8d _TKCHH p d7 f 1Tޖ7TЖ7 "Tܖ7TRZJ♧ǀ8  3=hTT((3X,A2,30H TABLE HAS BEEN FRESHLY LOADED) Tq?? " TБ? "T7̟ "N l nܕ 1\7\7̇ "\7\R[$(63H DISPLAY TEST IN PROCESS. ENTER 3 DIGIT TEST NUMBER FOR DISPLAY,/)Tea;!<;$I>%DHd_$F$Eh"H$KdJTJ?? TRZa^TJT((21H ERROR IN LINE NUMBER,I4,14H NOT IN TABLE) $T4\Re⚂(36H TABLE WAS PRINTED ON LINE PRINTER. ) \Rh⚟K(63H DUMP TABLE IN PROCESS. TABLE WILL BE DUMPED IN FORM COMPATIBLE,/,72H WITH CREATE FUNCTION. INPUT LU OF OUTPUT STREAM AS 2 NUMERIC DIGITS ,/)Tea;!<;,B>,Fd_DH$EdLTcL?? TRZnTLT((20H TABLE DUMPED TO LU ,I3)sTf+\Rr1(49H FILE DECTBL NOT DEFINED. USE UTIL AND TRY AGAIN.)\ZuW\7\(37HFILE DECTBL ERROR IN REMOVING ERROR-,Z4) \Zxy\H\(24HSUBROUTINE LDTABL ERROR-,Z4)}TRZ{⛖T7T((43HFILE DECTBL ERROR IN STORING RECORD, ERROR-,Z4) V\Z~⛺\ڗ?\(36H NO DECISION TABLE IN SYSTEM, ERROR-,Z4)6\Z\?\(24HSUBROUTINE DELDT1 ERROR-,Z4)\Z\?\(25H SUBROUTINE DPTDT1 ERROR-,Z4) 1 T5MNTf+T*vBAD OPERATOR BAD CONNECTOR PB .LE. PA BAD SYNTAX TYPE Y IF CORRECT SYNTAX ERROR, REENTER Y INPUT= d  lh h  ю h  "I d ITRZTT(E(33H ADD TEST IN PROCESS. THERE ARE ,I3,25H TESTS CURRENTLY IN TABLE,/,58H ENTER 3-DIGIT NUMBER OF TEST THAT PRECEEDS YOUR NEW TEST,/)TeaabHh(a$h"H$d ! !TRZ^TT(c(37H STARTING TO DEVELOP A NEW TEST, NO=,I3,/,78H ENTER LEVEL NUMBER (1-9) THEN NEXT LEVEL (0-9) THEN NUMBER OF PARMS (1-9). ,/,55H SEPERATE FIELDS BY COMMAS, FOR EXAMPLE, INPUT=1,0,3 ,/)TeaLAACTFIL A 03_U h 6)Ge000000000000000000000010000000000000TAPEARC RECORD ONLY TAPEARC SUMHIST DELQMST Ё S BT Z5100d UDgTeߠmno TdpߑqrȺ %Tܑdstdq\`qsq\dqq\hqq\ st‘qT^hTduȈ (T dsum\suu '\ssum\4u '\⑂sum\ӑLu '\ԑsumv  3=,\ŝѝ u '\Ɲ sum~TvTuw#̺x ̵ *\dyum~ ddz d{" $}d| $d~  h7T  dC h"TܑT4Cl l\sum~Tܓ tؠt ޜ% dhh hT  4   Zրh\D Jƀh€h̾h̺8h\<2̮h̪8h̦h̢h\<̰ hh 8hTܓ<؟ 2%ThKJhAHFv" c h8"5T39cT:h.h;X7H&8%#T$h$h`  T<Ȓ T H T DdT TTT h3HHdhdDhhdTFKhh hHL8@ hk"ThT h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTT `h Dh XX\\ TaH #h! T<T hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h  3=@000000000000p DUMP FILE TO TAPE INPUT FILE NAME VOLUME NAME *****OPERATOR-MOUNT TAPE FOR XXXXXXXX ON UNIT 0 WITH RING READY (Y/N) FILE COULD NOT BE LOCATED RECORD EXCEEDS 3000 CHARACTERS THIS IS A SUPERVISOR COMMAND ONLY *****OPERATOR-REWIND TAPE ON UNIT 0 RECORDS WRITTEN TO TAPE0000000001 ȋXh؆1   HhH㞚  T@7h 3 -qhT-j h ( h\߲q@\cTea@???\fn>HT Th\h\h\hhh Hq``X`HX" hH h HX  sD  1  : E /` `"i  *NEWS CCS20 COLECT  EX LALEGAL ************************************************************************************************** N E W S XX/XX/XX ************************ANSWER 1,2,3(CR)READY NEWS  "RSW1" RECORD NOT PRESENT IN UTIFIL VALUES IN "RSW1" RECORD -- NOT NUMERIC. . @(P'J TeA*gd*hd*fd_h^hAE T_Z;TT5L(A2,/,36HCHOOSE ONE OF THE FOLLOWING OPTIONS:,//,2X,12H1) NEWS ONLY,/,2X,34H2) DISPLAY NEWS THEN GO INTO LEGAL,/,2X,26H3) SKIP NEWS GO INTZ  3=hO LEGAL,//) d>Tea𑔔>H d 1 1 TZET! 2y T5\\ᑮ 2yݬ \⑟T_Z-TT5M(A2,/,36HCHOOSE ONE OF THE FOLLOWING OPTIONS:,//,2X,12H1) NEWS ONLY,/,2X,35H2) DISPLAY NEWS THEN GO INTO COLECT,/,2X,27H3) SKIP NEWS GO INTO COLECT,//) d>Tea𑔔>H d 1 1 TZT! / T5T ƔT ƑƔ Ɣ8 פФ *\ӑ d7d d" $d $dƜ ο=  hTƖ WddT_ZN dIhT %1T5(1H ,37A2)TYo\ZQ l܀nh\ %1\\ZR lɀIh\ %1\M h\Ɩ̙ ll hTZƖ\ZZl l̓h\܍ %1\(1H ,37A2) ddi)7 , d>Tea > T_Zj연TT5(A2) lMll-Ṯ )\Zs\ߑ\(A2,///,20X,25H***** NO NEWS TODAY *****) lll Tf9AE \F\ Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5TR39cTh.h;X7H&8%#T<$h$h`  TT  TF TXT94h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ T5ȡ`><Ȓ TU H T dVTQ TTUTTTTTUTTTTT h3HHdhdDhhdTFKhh hHL8@ hk"TahT\ h~"  b hvTz PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTdTs `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX T\HX TL `u HehdhgXlXvhb"aTRZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhd_hhuXh̺ (BDV n&ȫdȫ  hJIEhE h h  hh C&  3=|h8H60TQX]X h%`" "h*hT456 T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXhNXhXwh:a62Hl20X), H,)H& XXWh a&hh۸nX X h H   HThhh=@ TU XT%T\ XFDh5TFh120-3 T*(%!TQ TF \T9\T~ \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" TR+TQX% hT\H `CT TU@ TFhTQh XX TQTd 2X X' h$  X0X XzШ Xhˠ T Td H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $TZ{}7h 3 -hTj h ( h\ߡ}\Tea}|||\򡣡򡫡{HTFTTh\h\h\hhh Hq``X`HX " hHhB4 "c"  hhhhhT}|~T}|~HTFTTh\hh\hh+ )(,/.XH0123456789AREF$ID'*Z   h l : T. l ll h l \ hlElh hhhh hhT h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/y 1TT*v6 l44 l2 / ! + !l dd l!!   dd dT % d\\  l !  ldl l l l l\Ƣ d^ 6l  "TT*v 6T. l d d d l ll  T\T̙ l !  ddT\ޢ l ! d̹ $ l, l d^d ldl d l l l l l   3=l d̘  l̒ \̹  ̱  T\墼̡  ̙  T2H/TFTThV\hD\hB\hhh\hh\h\h\h#h\h\hh********************** N E W S XX/XX/XX ************************ANSWER 1,2,3(CR)READY NEWS 'd  -0 FED..* T h jظ 1 h " < )P d+ h\ d@̼ !TB 9lBdRl̩ l  dDT:@D\B̛  lEdRlFl dG dH\ɥB    !> ḷ l !& !/ l 9!/̫ !+̧ h$Kl !(v l 5TB l̻ ̵dl\GDgTAT*vB  0l\L\ ldMdN d>:\ͥB  ldO 9!. !* hGĈl̨ l 3\B    dD !T:GD l F7̣ 4̠ l̜  0lTAT*v dQdRldHdSdTdU d> f 1TBB v l   l  l \ݥBwl+ $K lLd4VdGWl,lLlll ̲ l,܌lLlެll,ЌlXdN Yl ̓ l TBB B > : 6  93 % BT U l 95 2v  0lo  dw dQlX̺ ̷ + ̯  Ed?v l D\B̠ ̜  dSB  9! ! d4R$Kl c"Q l TB B 0l ḏ k3 dl՜Ulwd#d$d%d&d'd(+ D lld)d*l T̻ Q?  lH  dldldl dDT:D l\D l\DṊl T Q ̚dl̛dl l\դD l\ФD)x" < ) EHp d+; d@l\@Dv ! !lHdBFlTB̘l\B l\B l  Hll\Bˬl d] l d5d6d7 d> n 1 d^ +dHdS dDT:5D l\6D̗  l\7Dd;d9d:ʤ`d_  -lܺdldl+ dl Tڥ8T18d=Cl  -ldllda db /̼dcn 1S  = l 7 -ldlx  Ԝl Όl db !Y 1TΫ n !M̷ dj̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dNn 1 l 0n 1 d> 0n 1 dMx  w]dvlS Ô=l̿ !i̻  l̶8TE lH \H ld^ dl !  0ṉh\#ܫ l̹ l\̥\̳ l  2\J̥ l 2Mh\b lv l 2\k lw] !dN  d>8TE lH \H l\J\\ l  ̳h\ܭ l+ \֥[ l\ѥZ\ϥS=dl;dm+ j!" 8 % l\Jܨ 1P\J\J\\DdDdh dadgldN d>l`p=l  lܹ 0f.lۜll 1  +dH d]lT:lDll`d_ dl -l l lj  l 0dvdn !#  l5TEܘ \I lڜ9>h\ lӜ4\k dD  3=\lD̨ldh dadgdil *l ̬ l̩do ,\E̤ l ! l l윳4\Jܯm lj`p50d4Vl 0e 4 n ḽḷl> 1 l l  1 vdn " l +TE l ! dN " ll 8̽h\ܷ " l  l\ѥP̥ l !\ťE̶ l !b@aH^H[TFTThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA7A2) Tl` h/&hHgaV`H _H H M A cTXFRXB H H\TlX=:\حZX/  HI&Aa%acAD aa h h HR hNX H TlԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTlCC HG9Qs>L1a: Lw T&RH5 I  vR  LaT\CT RQ hh HXuhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  Tl"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\ss\sjs@T:\ sjmjsTԲsjsB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR ' H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT HsLoAAd]XMMOD _|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhjuhi f[G ߂M^@BPCE}GN HJzLL {  3=K@H bb@`DRIVHCUCNSTTSMUSR1tNTSUSRUX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XT%bX&)+25,Ȱ#`X T%A a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9T%bbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! TYa a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT%bȰ#`X`!dB2 @rdR@`/@oHh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i UTIFIL DELQMST RPTTBL RPTPGM RPTWKE    3= RPT000 ERROR IN FILE REQUEST, ISTAT = $ ERROR IN UTIFIL--RPTG RECORD NOT FOUND OR INVALID JOB ABORTED  PRCWRK RPTWKP RPTG,MNUPRO PLEASE NOTE ANY ERROR MESSAGES DISPLAYED ABOVE. PRESS CARRIAGE RETURN WHEN READY TO CONTINUE  YT 4.Te˕ T·M (T\e '\\}  '\ \ӕ '\Ք\ő/ '\Ǒ/\≯ '\>\2#̪ '\#TMTTޜ{ڜTӜdddddddTqMҔ !c8dddTbdbdcdd *gde *hdf *fdgTЈJbTwb !"T/0\ *\>$\#\\/\ۑ TeaЕNNN\lKKK\񕆕ŕ \ꕮNNNT΅M\e\}\\󑭔\2\ d ff1 f 1TΉ\>\2#Tfh\ȑM 'T\e &\\} &\ \ '\ۑ/x\ '\Α>kT΅2̿ '\#]\̲ '\PTf+HRPTG, PRINT DATA NAME LIST? ENTER Y OR N SAVE GENERATED REPORT PROGRAM? ENTER Y OR N ENTER SORT FIELD NAME (KEY1,A,KEY2,D (CR)) MAJOR TO MINOR A(ASCENDING) OR D(DESCENDING) MAX OF 3 NAMES PER LINE ENTER REPEAT TO REENTER ALL SORT FIELDS OR ENTER C TO CONTINUE OR ENTER A TO ABORT ENTER LEVEL BREAK NAMES (LVL1,LVL2,LVL3 (CR)) OR ENTER REPEAT TO REENTER ALL LEVEL BREAKS OR ENTER C TO CONTINUE OR ENTER A TO ABORT SELECT RECORDS. ENTER ALL OR (CR) ENTER OPERATION (EQ,NE,GT,LT,GE,LE,RANGE (CR)) OR ENTER REPEAT TO REENTER ALL SELECTIONS OR ENTER C TO CONTINUE OR ENTER A TO ABORT ENTER DATA NAME FOR COMPARISON (NAME1 (CR)) IS 2ND COMPARISON FIELD A DATA NAME? ENTER Y OR N ENTER COMPARISON VALUE (VALUE1 (CR)) OR ENTER RANGE (VALUE1,VALUE2 (CR)) OR ENTER 2ND DATA NAME (NAME2 (CR) NOTE - DATE FIELDS MUST BE IN YEAR, MONTH, DAY ORDER, I.E. YYMMDD ENTER DATA NAMES FOR RPT (NAME1,NAME2 (CR)) OR MAX OF 3 NAMES PER LINE ENTER REPEAT TO REENTER ALL DATA NAMES OR ENTER C TO CONTINUE OR ENTER A TO ABORT ENTER REPORT TITLE - 30 CHARACTERS MAX ENTER REPEAT TO REENTER REPORT TITLE OR ENTER C TO CONTINUE OR ENTER A TO ABORT NEXT ENTER Y IF ALL CONDITIONS MUST BE MET FOR SELECTION ENTER N IF 1 CONDITION IS SUFFICIENT FOR SELECTION INVALID RESPONSE REENTER NO PGM NAMES AVAIL CAN NOT SAVE UNTIL RPTPGM IS PURGED RPT000 IS USED LAST PGM NAME AVAIL. PURGE RPTPGM BEFORE ANY OTHER PROGRAM IS SAVED INVALID NAME XXXXXX REENTER ENTIRE LINE NAME EXCEEDS 6 Cc_  3=HARACTERS REENTER EXCEEDS MAX OF 3 PER LINE-1ST 3 ONLY PROCESSED NAME MUST BE FOLLOWED BY AN A OR D REENTER # OF SORT FIELDS EXCEEDS THE MAX OF 10 ENTER REPEAT OR C OR A # OF LEVEL BREAKS EXCEEDS THE MAX OF 3 ENTER REPEAT OR C OR A # OF OPERATION CODES EXCEEDS THE MAX OF 10 ENTER REPEAT OR C OR A VALUE DOES NOT CORRESPOND TO DATA NAME DESC REENTER VALUE EXCEEDS THE MAX OF 13 CHARACTERS REENTER INVALID OPERATION CODE REENTER VALUE 2 NOT GREATER THAN VALUE 1 REENTER DATA EXCEEDS PRINT POSITIONS AVAILABLE ON RPT REENTER ALL DATA NAMES QUOTE ILLEGAL IN REPORT TITLE REENTER 2 VALUES NOT VALID UNLESS OPERATION CODE IS RA REENTER MUST ENTER 2 VALUES FOR OPERATION CODE RA REENTER (0(06*V8lLJ.&0BBF84$.J2*<6NYRPT00019 x D ALTEQNEGTLTGELERA" A fdT hȹ ȵ 1ȱ yȬ {ȧ Ȣ Tea񗰜2ŜVȖŘ5ȏTd5\Ĝ3ŜVTuMҗ "CXdY5ZՔ[C֔\C^"C]"C\UAl5dddddd d_lTT>`alddd\b̋` 5 "? 1Tea{B̍l̘lYd5TŜa\ܜ4Ŝb{d\c d ddTd 5l Gl h dedfd2 2Ռ !Ќ l\Ŝa\FŜb ;\ʜNgddd d_dh diThŜhi  Tзi_ 1djdddTu}/kl TŜaTea񚠜CŜb ldm!T(՜hWnWi̪ ̣ l\ՑŜa\֕񚠜CŜbkf l l\Ŝ_ỉ i  \Ŝa\EŜbK e$o dhTзih\h dpThpi\ih 1 l\ᗯh̳j l2 lnjlTŜaTea OŜbTdd 5d Gl h\֑Ŝa\וH5Ŝb\ʒ"q dl l\͜d 5l Gl h dedfl 2Ԍ !ό l\Ŝa\GŜb \ŜaTea=HŜbff+\ۑŜa\8Ŝbgdddd2TЈŗ22dddTu}/kl  \Ŝa\񚠜CŜbf,f-f.έ{TŜa\9ŜbXŔY Z f/\ŜaTea>Ŝb d4d5d3d2f  di d|!$} dh d_ThŜ_i - 2 93 " lTзih+ \Ŝa\|JŜb̺ l 1$n l*{TŜa\QŜb̰ d~̕ l̡, l d\Ŝ~i 2 1 9i3 # d|h\ih+  l 1_ l lT5 " l3X \ŜaTea`IŜb7ᜫ !ܜ !!$} ḻ T  3=ؒ+h_+h, l\+h+h, lTn+h_+h, dh\+h+h, d, d dd d_̏!Th+\+ ! 4TŜaTea񛨜LŜb l̉$n l*{\Ŝa\RŜbT5 " l3X|  "!$} dh  Tؒ+h_+h~Tn+h_+hugdddd2 " lTЈŗ22dddTu}/kl TŜaTea񚠜CŜb ̍hX  35 4 ̱ff0̯f1̯f2 l!\Ŝa\y:Ŝb\՜\U\ ddd"yd ddTd 5l Gl h delddd2 2 `\`R ,l̫ lTз̣ lܣ $ d E" ElTЈR\RRYd , l E/ l\Rol\զRR{l\ɦȦRRl\ЦRRl\צRRl\ڦRRls\RRlg\RRl[TЈRRlN\RRd A\R R l5\ڦR R l) dlHGTGELTLEEQNERAYNAL 2 3$H  3>VllLldf߬lD,l,ތl,l,l  ,Llجٌl̶dglLlͬlڌlLdhԬlܦf+ ̜ !̗ !w di  d>n 1S  = l 7 -ldlx  Ԝl Όl db !Y 1TΫ n !M̷ dj̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dNn 1 l 0n 1 d> 0n 1 dMx  w]dvlS Ô=l̿ !i̻  l̶8TE lH \H ld^ dl !  0ṉh\#ܫ l̹ l\̥\̳ l  2\J̥ l 2Mh\b lv l 2\k lw] !dN  d>8TE lH \H l\J\\ l  ̳h\ܭ l+ \֥[ l\ѥZ\ϥS=dl;dm+ j!" 8 % l\Jܨ 1P\J\J\\DdDdh dadgldN d>l`p=l  lܹ 0f.lۜll 1  +dHDELQMST PGEXTR IF(ICMP.XX.0) GO TO X00CALL QCST(A,WRKMST,K+XXXX,XXXX,WRKMST,K+XXXX,XXXX,ICMP) CALL QCST(A,WRKMST,K+XXXX,XXXX,IVLXX,1,XXXX,ICMP) 200 CALL CCSBLK(EXTREC,132) CALL CCSMVA(WRKMST,K+XXXX,XXXX,EXTREC,XXXX,XXX) GO TO 300 DATA IVLXX/'XXXXXXXXXXXXX '/ INTEGER SAVE(3) CALL CCSMVA(WRKMST,K+XXXX,2,SAVE,1,2) CALL CCSMVA(WRKMST,K+XXXX,4,SAVE,3,4) CALL CCSCST(SAVE,1,6,IVLXX,1,6,ICMP) PROGRAM RPTEXX INTEGER ID(4),LU,ISTAT,EFG,FDEL INTEGER REQBFD(24),IDATDM(15),WRKMST(9000) INTEGER REQBFE(24),IDATEX(15),EXTREC(68) INTEGER IVL01(7),IVL02(7),IVL03(7),IVL04(7) INTEGER A,N,T DATA A,N,T/ $41,$4E,$54 / INTEGER IVL05(7),IVL06(7),IVL07(7),IVL08(7) INTEGER IVL09(7),IVL10(7) INTEGER IVL11(7),IVL12(7),IVL13(7),IVL14(7) INTEGER IVL15(7),IVL16(7),IVL17(7),IVL18(7) INTEGER IVL19(7),IVL20(7),I(8) C EXTERNAL FMRDEL C DATA REQBFD /24*0/ ,REQBFE /24*0/ DATA IDATDM /'MMMMMMMMCCS20 ' ,0, 9,0 / DATA IDATEX /'MMMMMMMMCCS20 ' ,0,1,0/ DATA EFG /0 / C CALL PGMIN(ID,LU,MODE,NPORT) ASSEM $C000,FMRDEL,$6400,+FDEL CALL OPENFL(REQBFD,IDATDM,ISTAT) IF(ISTAT.GE.0) GO TO 50 CALL FILERR(IDATDM,3,ISTAT,LU) REQBFD(23) = 1 GO TO 850 50 CALL OPENFL(REQBFE,IDATEX,ISTAT) IF(ISTAT.GE.0) GO TO 100 CALL FILERR(IDATEX,3,ISTAT,LU) GO TO 850 C 100 CALL GETS(REQBFD,WRKMST,I,ISTAT) IF(AND(ISTAT,$8100).EQ.$8100) GO TO 850 IF(AND(ISTAT,$100).EQ.$100) EFG = 1 IF(ISTAT.GE.0) GO TO 115 CALL FILERR(IDATDM,14,ISTAT,LU) GO TO 850 C 115 DO 300 M = 1,9 J = 1000*M-999 K = 2*J-1 IF(WRKMST(J).EQ.$2020.OR.WRKMST(J).EQ.FDEL) GO TO 300 CALL PUTS(REQBFE,EXTREC,1,ISTAT) IF(ISTAT.GE.0) GO TO 300 CALL FILERR(IDATEX,11,ISTAT,LU) GO TO 850 300 CONTINUE IF(EFG.EQ.1) GO TO 850 CALL CCSBLK(WRKMST,18000) GO TO 100 850 CALL CLOSFL(REQBFD,ISTAT) CALL CLOSFL(REQBFE,ISTAT) 900 CALL PGMOUT END *JOB, *K,P2 *FTN MON*LIBEDT *K,I08,P08*P,F,2*K,I08*N,RPTEXX,,,B *ZIF(ICMP.GE.0 .AND. JCMP.LE.0) GO TO 200 DP&20*8  "'$.< d#()J I- , hT>hhhTy "T hTЈϰ h\\Tș Ph\Wȏ Ph\߰Zȅ Ph\խ  Pl\ʬȩ Pl\s Pl\ Pl\) PlF  3 > "p4dLd l\B̿ Pl\Z̵ Pl\̫ PlTЈ̠ Pl\©̖ Pl\۩̌ Pl\̂ Pl\׮  Pl\̮ Pl\® Pl\ Pl\:/\>K\/ Pl\K̿ Pl\f̵ Pl\}̫ Pl "p4dd+  dld!!c Ad. RT>5TЈ5 hH\+u h=\ꬴu Pl* & d\а5\Ѭ5̱ h\ǒ+u h\u Pl̚ "lܚ̿ "p4d &dG l\p̤ Pl\q̚ PlTЈ̏ Pl\ Pl\ȩ Pl\஧ Pl\֮ Pl "p75 d\Ŭ\ƩӰ\өll\Ŭ\Ʃ氕\)d. Z̤ \5TЈ5\ dl\ 8\ 9̕, l\75\۬5j\Ԕj\5\ʬ5j\Ôj\j llFT 8\ 98$9 d7T>75\5N\N du\+uTu} "\Ɣ 8\Ô 9,Ȍ l\ˬ75TЈ5N\N\Nd* ʔ e d\5 )\Ƭ5Tз\#l\ﰺ\uCl\5j\j\Ѱj\jQl~\jTЈuClm dFdL\BwdẊ lT>5̈ \Ӭ5\̬l:\5j\j\jl l̴l\BCl* @ʔ llTЈBCl dFdL\Bd ll\٬BClκ 6̺ !̜l̼l\B#ll̬l\BCl̮l̰l\BCl* @ʔ ̏llTЈBClkdFdL\BydV ll\٬BClEκ 7̺ " l̻l\Bl(l̫l\BCḽl̯l\BCl* ?ʔ ̣llTЈBCldFdL\Bd̙ll\ڬBClœ !̄ll\ŬB"ll̴l\BCl l̷l\BCl "l AdXʔ  \alnTЈ dql^ ld l!b\հTu} "T 8\ 98$9 d7T>75\5\\\笰5\5\d\̡l l d\ PlTЈϩ Pl\ީ Pl\ Pl\ Pl\װ Pl\Ͱ̺ Pl\ð̰ Pl\&̦ Pl\6̜ Pl\F̒ Pl\Ö Pl "p4dfdi d\\ PlTЈ^ Pl\b Pl\g Pl\j Pl\דϰm\аm̽ Pl\ưt̳ Pl "p0 dllHRPTG,UTIFIL IC F 80R04AI 1 DISK PGEXTR IPE F 132 DISK PRINT O F 132 PRINTERC BEGIN TAG C 50 GOTO AROUND C MOVE HDR1 UTKEY 4 C UTKEY CHAINUTIFIL 11C MOVEAHEADER HDR,1 C MOVE HDR2 UTKEY 4 C UTKEY CHAINUTIFIL 11C MOVEAHEADER HDR,2 C MOVE HDR3 UTKEY 4 C UTKEY CHAINUTIFIL C MOVEAHEADER HDR,3 C SETON 50 MOVE SETON Z-ADD TAG ADD SETOF MOVEL COMP GOTO EXCPTTRPTP F EHDR 3 40 IUTIFILAA015 44 HEADERBB0254,0 2 'H& CHLB01 303132 0 T0TRCN5063LNT 20 AROUND 30121 TRCNTHT1931632KLVL HLB !LVL DL8 1 LNCN3ENNDLRPRIN OE 11' .TOTALS "( 2'RECORCOT' Z%'FALOTS'8 R0ZDR,1'PAGE' P,2 DAT UDATE Y,3 7 ' 8 A // /* Ty26Ԕ "T6_G HdaTзab6cd[dd\d]2d`Sl degd8 , dh djdkn 1 1olllmdCndDodIpdJlqlrd9sd:td;ud=vd?|llwdMxdNydOzdP{dQ|dR]llTЈԺ}6}}~llH%d` l d d d de!R̜d8\֒պkb6b dh\ʓUhԔ6T>`\`Ժ6πUhTǀTh\ d$ll\ݺ`\`Ժ6̰lk l̦ lܪPl llTЈk6b̚ ̗ ̔  dF 'daTзa6 2le 1 [d` l!Q$f l!d"d#dTu} "d8\A6l dG dHdKdL\Ԕ6TЈf6fTܝll\D6dPdQdRdS4#l" I de!D̡l\źG6dFlT>e`al $ dk\kaԺTa\`\`f6\kԔ6ܹHd`d8TЈG6̶ldKdL̰dMdOdll\G6llllllld>d?d@dA\J6l̤lpd<\G6dFḷlli  2, de"2 ddd8lTЈG6ldKdLdMdOd`*,l" H dj!Cll\κG6̛l̽lT>j`al $ dk\kaԺTa\`\`f6\kԔ6ܺevdold8dd?d@\ݺԔ6" 7d` l!/̽l̿l\M6lT>e`adG̢lll\Ԕ6\`f6i]܄ľl\P6dddTЈԺb6b9ld8\P6lpll\ߔԺb6bld>d?d@\ʺJ6d`  de"0̼llll 0daTзa6\V6$b dh\"hb6b dddTЈԺ6Tld8d<\A6\"hb6bdKdLwl̗ -l̾ l\ĺD6̳l̰ le ̈l\Ժ6d`c, l̬l̓ l\A6hA d!M\"hb6b̠l̢ ll3̽$b l !2d8 dd?  3">Dd@\J6d 2}l "+̆ dd dd8dj`adG̠ldL̼d> 0e l\aԔ6\`f6i" ;%d`d8dflKl\M6 dF/dKdL(dM" A hh l"!5d8TЈA6\kb6b dKT>e`adL h\hf6f hCܓhl\ʺD6dPdQ*d`̱l\M6dFdKdLdMd>d?d@-l̇ld>d?d@TЈV6MdFQlplMl]d8d:`d;\ݺY6dF]dGel=d8\źD6xdP9dQ~h$d8d>Vd?\J6 u h!qe hhhl)d9dj`adLd`qܒ h lƜ"X hQ hG{hylhd8d96 wlTЈM6mdF# VdF OdG SdHdK?dL`dMFd>Cd?@d@\ĺºԔ6" Nh h"!Dd89d9 d<\M6dFT>j`adGdKadLd>TЈºԔ6\`f6i<1hd8d9\ܺP6h\ѺԺ6 7-he hgc!-d8d9\D6O h\Ժ6vh=\aԺ6ú6Eh,̢d8d9TЈ\6"p4 h||d9yd:Gd;  h"bd8_d=\d>.h'dCėhj`\`f6ٺuTd\`\`Ժ6ںL hF\ԓUhԔ6@ h:ThUha,  G hD- h*< h9Rh hyd8vd=|d>DdCzhYd`da\`Ժ6ŨhPd8@dJdKPdLMdMJdNdOCdPdQdChn"hhd8dJdKdLdMdNdOdPdQdR hFhY h7d" n h1"-!hd8[hg\Ժ6غT>e`TЈ`f6ٺ)Td\`\`Ժ6ں h\ߓUhԔ6 hThUha  h hƞh h hi-d8d=d>dCƷhPd8dJ&dKdLdMdNdOdPdQdRdSdTdUhqhkd8dEdFdGdHdJhdKd8d=d>Ud?KdC-h5d8dEdFdG9dJWdKKhd8dJdKdLdMdNihed8dEzdFZdGfdH+dJdKNjh|Cd8d=/d>dCǡhf-d8dE?dFAdGdJdKǿhH  3#>Xd8 dJdKdLdMdNdOdPh}"d8dEdFdGdHdJdKh[d8d=d>[dChEd8dEdFdGIdJgdK;h'd8ed=d>'dCQh}d8dJ?dKtdLdVTЈԺi6Ժish[d8dJdKRdLtdQ\ޓ6ԺȔhs:d8 d==d>dCȪh] d hBh h"Fd8UdV.-XhTIN  1 hhT>`\`TЈ`Ժ6ں hTU wVh M7 3 h D7 3 h ddLdO\պb6ԺbC h@!qd8Zd=td>VdC\h h! dh h!Z_d8 TdT>`TЈ`Ժ6ں\պb6غb h\UhԔ6H_  h\غaԔ6#dLMdMJdO=dP hB9d6h5 d ,d(dH $CAREPEAT    l l l lHTTh\h h h h 1 DISK PGEXTR IPE F 13 T(7 hh h?Th98Tз8:(C h h=\(:8\89 HTTh\h\h\h\h\h C MO00 HD hj 1 h hh h!ThʕʔTзʔʑʂ hh h=\ʂʑʔ\ʔʕؿHTTh\h\h\h\h\hHDR1HDR2HDR3 PAGE 01 DATE RUN MM/DD/YY PGGEN REPORT GENERATOR DATA NAME LIST STARTING DATA EDIT DEC SUB SUB SUB SUB SUB NAME POSITION LENGTH TYPE CODE POS DESCRIPTION NAME1 NAME2 NAME3 NAME4 NAME5C UTKEY CHAINUTIFIL 11C MOVEAHEADER HDR,2 C MOVE HDR3 UTKEY 4 ( UTKEvw DNUTI ")C  TuM "UTЈ̶̷̸̷\M "U hf6ؿ 1\֑M "U hfxت 1 :h dk *gdp *fds *hh hTh̼̽Tз̽̾7\̼̿7 dddTs}̗a̐ "\/̺ "ܹT>k`ad/ dͅd d̹fs B1TtlT͔l l6n B1ͣl lxn B1Ͳl l˺n B1ͺlTtl lnܫ 71l l3nܜ 71l\t d̺dt du dv dx dy d|d}Th̽Tз̽t\̽\̽t\̽\̽t\̽\̽t d d d̹fs 1 Ml 1l lTЈt l l 1=d%TҔ\ ӔHlX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/X+X'X# XX}XϛXϡXa"a X" XIb XFb XCa X@b bXl`a HX AH=h=X8r""3Xga"a X" Xb Xa f"! 6"b!b$"A1f" Xb H"h "hXs"H" " b b  X XϰϛXXϵϡH Lbb@ H `Hh Hq``X`HX " h HhB4 "c"H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i  H(hhlŜb H TTh\h +5;hp8(dhp8hp8(dhp8hp8(dhp8hp8(dh 0h 0Ȉ l 0h 0Ȉl 5H TTh\h h FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7k $lTЈLѾNѹѾ7h 3 -hTѿj h ( h\NѺ\qTeaNѸMMM\tѽ|LWHTTh\h\h\hhhH h HX  sD  1  : E /` `"i js2  : Te@ *gd8 *hd9 *fd:T$ȟ (T۝n\<Ȑ '\n\ d" '\ߝn\МҠ d '\ΝҠn\T '\n dZddmddTeaU0!c\U0!cTTmS\\:dTڞK_dT"d*\UXU*cW I T~TԞT ;  1T۞Z\\ؑ/\ԡl\ΝTjϬל ɬʜ  1"\ҞZTTmZdTڞK_dT"d*TeaU0!c\UU*cW ~I \ÞС\ޠUc\ՠUUСcT|<ڠ /; T۝ZT Б̙ \\Бɡ\UɡcT< d f; 1T<̺ 1TeaU c\ZTȡ\ d\<̖ Z̏ '\Z\ M \ " Tmȑ\ Ƒ d.T~TԞƠ; T  1fT۝TZ\\˝  \ğlTڞS_dTl\󞾖T_d\l\螾K_d\T\!\!d\ʞT_d\l\K_d\Tm \T  w\T~$v; T  1 T۝Z\I\ȑI\I3 d[d\d`dld^d l d]T d \v`> + l\v`I  ldQTmv`] l̽ lܶ 1̴l\̡T~ ̞ȠT ;  1T۝Z\ǝ\\3 9 34 1`\̡ \̡ n \̡ } \̡  \̡ Tm̡T \̡ n \̡ \̡ } \ݑ̡\̡֑ \ϑ̡!  \О x\̑ "T~ ȠT ;  1T۝ҡZ\  3%>\\3 $$d# hkTm ġ n 2h`\ ġ } T PhR\ ġ dhH\ݑ ġ\螨 h;\Б đ\ۙ\ƞSdTڞK_dT\6 d 2>l\垾K_d\\&T8\&&l\ǞK_d\\'TmT jO\((̢ \坍%l\K_d\ l dT\g 1+  d)\l)** d \ "  1 3 l l l\n , & 1Tmn  d4T 4"  l 1 ly̱ d+\ܞn+g+̦ d,l =\؞n "̠ ܓ\n++ۄlM ll >\n "   d3 d\nđ" ֜lҜ ld4Tmn,343 l\g+4+댍 lT' lTڞK_dT\\՞R\Ζ G %l\➾K_d\\ә' \GG l\ ġ Md\K_d\\'\} G bl\K_d\T -"- \'Tm G l\K_d\T'\鞛G̦ d\ޞġlTڞK_dT\ݙ\Ǟ6l\鞾K_d\\ș/Qd` d0 d/ d da $ d1 $ d2d3\v`D  6 d#H!fTMv`)) ̵ܸd-ܱܰ\v`) l̻ dTmva-Ğ- l̜"̙n\͖v`)Δ p̆l l̔ l\ږva-Ğ-̊l`\v`)̰ d4\v`)̧dL l\v`)̝ d/ $ 1 l\4Ğ4 4l l l\Ğl l\g+ġ+ք+ lTmL1$) ܜܛTMv`) l0 ̎a d-R`#\ 2 l $ d5" `Hd67dY $ d1Hldd5 7 ^  T81̛ ̗ T̞ "\̞1\`̞\ !t\5\t-- \D1 \91R\\,"818\̞ d#\ۑ#"  1 d A1l\71 d, d\#,ġ, \̞-1- 2 l $ l $ d29R\d/" 9 & Rd6llld\K_d\l1 l\ġ:G:+l\|K_d\|ܗ 1\T\m6Il\^K_d\^\Xԡ;٠ lG d)\GR 1+  d#\'\0l#*)* d ܌l\♒#"  1nj l\ ԡ)ܻܺ\ԡ()(l\󞾙K_d\̡ l\ԡ.-"- \'\Wԡ.)l\˞K_d\\ԡ<"̣ (\'\<)) d\ԡ<ġd\K_d\\t\6\j ) 1l\vK_d\v@l\gS_d\gMl\ZT_d\Zl\MK_d\M\|$\x<\t \p\lTTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/X+X'X# XX}XXXa"a X" XIb XFb XCa X@b bXXԬH Lbb@ H `HHhB4 "c"H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @ 9 -0 H99/99/9999999.999/999-9999-99-9999? ENTER /"+ "&h h hh!+ΈhTMauۘ  hT8u h\uh\uػػ V hȝ!∭h\uȨ ׈h\ͮ\؜Έh\su[ 1 Iu8 l\us \^ss\\s \^s l\us\]s#H TTh\h\hhhhhhhhhhh\hu\hp>  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7 ?-  Tm9:;a:T ^ ! ! , h\b; Kh \ݯ;; 9hTea;HTTh\h\h\h  , 19 JANUARY FEBRUARYMARCH APRIL MAY JUNEJULYAUGUSTSEPTEMBER OCTOBER NOVEMBERDECEMBERJAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC   hhhh  e Tm44\454TXd"! ."4GYl~\ԯ535ȫ h \ʯ66 \636ȗ h\66\8383 h\66\838 h\66\:3: hTm66\;3; h\66\;3;̲ h\ٯ66\а939̟ h\Ư66}\ 737̍ d\66j\5353 l\66W\636 l\66E\636 lTm662TXd  d<\<::\44\߯454 l\կ66T3OHLTThh h h\hhhhhhhhhhh&h.h5h=hDhLhRh[hahjhphxh~hhhh\hrh\hoW h Hq``X`HX" hH h HX  sD  1  : E /` `"i Hh HX ` `"i Hh"h H  F` 4@  3'> LATRNSFL 01000000ڒ  3(>b  3)> * COLLECTOR LETTER STATISTICS PAGE: AS OF : LETTERS REQUESTED   3*> NAME NAME NAME NAME 000000000000  TOTALS LAUTIFIL LTR1**TOTALS000000 LTR1 RECORD NOT FOUND ()QE Bd2t vTe}~ d5Tȷ TZ\THCTyȟ (TU}\ݑ\֑U\ϑTyCU\ԫ &\Ԭ} dTgϬ. -\} ]/ d$ d  d d  dTϬ0 -\Ϭ* ! B,݀hTZϬ\Ϭ$z&fRܲ 1 1T FTeFF +TU} d{d 2 d" $d $d hKTF"  )h9\F"*  )h)TZF" "d h\ϑF" W# 214 d lw l lT d f 24 f d d,h f 21 d1y  d h\F" h\F" dz8̒R d d,h d,h λ n|4{ #l d̙! lʜ= d,d"Εnܺ l̶! l= d,ڌl줆nܞ lݜ6Ǝl̓d # lp4 d d",dz d dx $ d,d̦ "̢ll"8  d ]#TG#$T'$ TZ*$\$̶ 1̲ d̠ d B,h\߬1 ll 3̊ lyd+ B,hTê5+,-T 1T 6\.TgϬ. (TU}\Ϭ6 #d 2 l d!B  l$ d d$hTG$ dT$' T$ 1 d"TZ$6"ܻ̬ 1.ɀh\4 l\ͪ'4 \ݪ*4 1 l\̬465d+Tê56+,-T܎̋ " T  d!:  l$ dhTG4 dT'4̙ TZ*4 H|  3+>1\4y̐ 1+\Ӫ4 d\Ԫ'4 \Ԫ*4 1 l\ì4yd+Tê5y+,-Tܐ% # l\57+,-\TwTf+T*v00 >h hn9 1  00l- (dh -&l# h 1p8(h͘ 0hA hȨ  @m Ȼ@mp8hȭ h !@HHTTh\ h h hX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/X+X'X# XX}X۲XಓXa"a X" XIb XFb XCa X@b bX FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $TZ  7h 3 -hTj h ( h\ߴε \Tea\õ ˴HTTh\h\h\hhLAUTIFIL HDR0HDR0 TeThff TZhhf*gl\*hlY*flV h $gfv 1\ߵff hn>n>Ƚn<ظ 1TywhȨ !1 h؟Tgwț ! h (hnؕ 1 1Tww HTT h h h h\h h hfHh HX l` `"i H h HX  sD  1  : E /` `"i bb (Tòlb_\汳p.o d~u!  l 2$mdJd\ǰo.nohTt lTqrr \"nq 1̾  l\cf.nfWd#TQ-.#$%T_ܯ̬ "Tw l̔!2̛  dn̕6h\ l\qr̪ T"qܪ 1\cfqnfmTt6 lTnrr \ְ"nܹ 1u  l\IJcfqnfd#TQ-q#$%T_l\-#$%\TbTf+T*vX%X#X!XXXXXXXXE  3,? XX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/EX+IX'MX#Q XUX}ZXiXn!Xa"a X" XIb XFb XCa X@b bX FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T!"#I"T)F ! ! , h\J# Kh \ݻ## 9hTea#HTTh\h\h\hUTIFIL HDR0HDR0 *glZ*hlW*flT h (j 1T&Ӽ*$Ӽ+ hn=n=n; 1Tռ- !0 hؽT$-Ⱦ ! h (hnذ 1ئ 1T- HTT h h h h\h h hh Hq``X`HX" h aaaaa `!W a! a"Xa a! a"X    8 4 0a a* "X 9"Xa "X Fρ" aA Fρa1BXaADdRAa aafRda -a0F 0ac 2 .a `9ac a aA `! aa a( a .a 0a!D Q" !yR *a aa A a! a"X a! a"X5#45h h` XHH"4` " "aXaX ahh`XdPqa aa a a a a a! a"Xa"  6 9! T d  a a! a"X   `  `  aXaaX" a   a! a"X  aaXI'bdRQ"X7; aX3 aX+  "XaX  "XaX XaXXf" #"Xf" a# a a A aA aA  XoX" a a A aA   a  aX;Xa"a A a` !RAXaS aXK aXC  "XaX6  "XzaX)a#"X"a` aX aX4#"X XQaX a$  3-? a  "XA a! a"Xm a az a a a p a_a( a! a"XK^aXlX1 aA a a! a"X a! a"X+ a! a"X$2a a Da  a  a  a! a"X 3 ! a! a"X Hh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i #y a%XH!""" A#*   "!"X# a1rX""  "!f" !" f""" f" "a""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X~"  !T 9!a Fa a! a"X a a! a"Xf a! a"X a a! a"3X6Xh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX@TX -`" ` c1Xd 2QTqX c1XT[Zd@X #  a` aܐ!XdTYD]@XX a Ea a! a"Xa a! a"X a  +a `"d` 5 aX aaXa `aBP@@` ``TBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e p  3.?4" `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  Td"" R1 H XRRt`pLAINACCT LADLQMST LACOSIGN LAACTFIL LASUMHST LATAPARC LAUTIFIL  "RSW1" RECORD NOT PRESENT IN UTIFIL VALUES IN "RSW1" RECORD -- NOT NUMERIC. RSW}  3/?HHDR0RSW1END OF HISTORY3qw}hZ ) END-OF-TAPE -- MOUNT ANOTHER REEL. CARRIAGE RETURN WHEN READY. READY RELEASED SATISFIED WRITTEN-OFF DELQMST COSIGNERSUMHIST TAPEARC &*2J (d  2m 51.TeۘܘTג ޑߘȿ 3T7""\ǑߑI\ˑߑp\ꑗ⑗\ϑߑ\ܘӑߑ\Ւ Ȇ TI "ȃ (T""Tf+\1I *\ITG \\ޑXp ,\ߑp\ \1\\ˑ /\̑\ܑ \ّ1\֑X\\ 1\\ő \‘1\X\\\̫͑ 1\\ \1\X\\\TI ̍ 1T" \ \1TGX\\\͘Tf+ d"T7! )\ђ \ؑ ,1hT7 1\֑#׬؜ .Teaۘ钁ט\ d f ,d lhTu 94 1\՘ۘ钔ؘTGv $ˎn ڬ$n Ь$췎n 1ܯ 1\ϑ*gd*hd*fdTfԑdTdTǒטT7ԑב ddd.T5 ݘxdTz TV\\\TA(1H0,9X,6HTOTALS,//,12X,13HRELEASED ,I5,/,12X,13HSATISFIED ,I5,/,12X,13HWRITTEN-OFF ,I5,//,7X,18HMOVED TO HISTORY ,I5) TǒטT7%ב dTlT-˜\˜̂ (T"" TזJ \ɖJT d d N 1 l dIfQ 1T71טR '\I#T7ט\ l̷촞 ܰ 1Tfʑl !\ܒԑʑT3 ̷ *T""Td$du\Ӗʑd " dIfQfafYfifr 1 T71טR  '\Io ldd d5h?h5h +hT7 1dddduݬlTגי \ВייT11ט ,T"I T9ҘZ 13\鑾 T7טZ '\ّ\ґבT3ט̾ '\Ñ dTǒי\ӑXטb̨,̢&̜ '\p lT1Xט '\pT7Jב\ƒיd drh\j -լ cT"hTטJ Iπh\̮ '\ۑ_\Jj̶h\Jޔ 1̤ l! d̙ ddKTǒט d# ? #  ll-\{T7͒טsQK (T"  d Tf{  (A2,1H/,A2,1H/,A2) lf̥ l 1T7ԑטT3͒ט̴ '\*Tǒי\Jב\ݒԑט\֘JsT9͒טs̊ '\ jTza dDhTV 1\Ts  30?\(1H1,20A2,8X,27HACCOUNT MOVEMENT TO HISTORY,42X,5HPAGE ,I3) \zc lȀXh\ 1 dh\ 1 ḽlh\ܧ 1\\\\(1X,20A2,12X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,9X,15HAS OF: RELEASED,I3,17H DAYS, SATISFIED ,I3,19H DAYS, WRITTEN-OFF ,I3,5H DAYS,/,1H0,15X,7HACCOUNT,9X,9HBORROWERS,24X,8HINACTIVE,9X,4HDATE,5X,14HDATE LOST WITH,/,16X,6HNUMBER,10X,4HNAME,30X,6HSTATUS,8X,28HINACTIVE TAPE ARCHIVE DATA,/)Tzh dhTV 1 lh\ 1 l $h\ 1 lӀh\ 1 dzh\ 1T(11X,8A2,4X,R1,14A2,A1,3X,6A2,5X,A2,1H/,A2,1H/,A2,4X,4A2) ̎  ddT’טTTYdT-˜\˜Teaۘ阇ژϑ l\Ҙ’Ԙ\\Ԙlլ֜Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/X+X'X# XX}X]XcXa"a X" XIb XFb XCa X@b bX<Ȓ T H T dT TTT h3HHdshdtDhhdTFKhh hHL8@ hk"ThT h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTT `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwIh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX T2hX THXIC. TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1  u  31?p HhH㞚  TT hhhhdShhuX|h̺ (BD n&ȫdTȫ  hJIEhE h h  hh h8H6 0TX?X h%`" "h*hT T) h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 T*(%!T TF \TT \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT 2X X' h$  X0X XzШ Xhˠ T T H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE d h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh ḷ l !& !/ l 9!/̫ !+̧ h$&l !(Q l 5T l̻ ̵dl\"gTT*v  0l\'\ ld(d) d:\ͱ  ld* 9!. !* h"Ĉl̨ l 3\    d !T" l F7̣ 4̠ l̜  0lTT*v d,d-ld#d.d/d0 d f 1T Q l   l  l \ݱRl $& lLd1d"2l,lLlll ̲ l,܌lLlެll,Ќl3d) 4l ̓ l T B > : 6  93 % / 0 l 95 2v  0lo  dR d,lX̺ ̷  ̯  EdQ l D\̠ ̜  d.  9! ! d-$&l c", l T  0l ḏ k3 dl՜0lRdddddd D llddl TưѰ̻ ,  l#  dldldl dTѱ l\ұ l\ӱṊl TѰ , ̚dl̛dl l\հѱ l\аұ)S" < ) EHp d; dl\Q ! !lHd!lT̘l\ l\ l  Hll\ˬl d8 l ddd d n 1 d9 +d#d. dT l\̗  l\dddʤ;d:  -lܺdldl dl=(  33? TT dl  -ldlld< d= /̼d>d?$&l,ld@2lLd1llLldA߬l,l,ތl,l,l  ,Llجٌl̶dBlLlͬlڌlLdCԬlܦf ̜ !̗ !R dD  dn 1.   l 7 -ldlS  Ԝl Όl d= !Y 1TΫ n !M̷ dE̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ d)n 1 l 0n 1 d 0n 1 d(S  R8dQl. Ôl̿ !i̻  l̶8T l# \# ld9 dl !  0ṉh\ܫ l̹ l\̱7̳ l  2\%̥ l 2(h\= lQ l 2\F lR8 !d)  d8T l# \# l\%\7 l  ̳h\ܭ l \ֱ6 l\ѱ5\ϱ.dGdH+ E!" 8 % l\%ܨ 1P\%\J\\DddC dL1a: Lw T&RH5 I  vR  LaT\T QCOUNT hh H3uhi[G M^@BPCE}GN HJzLLK@#y a%XH!""" A#*   "!"X# a1rX""  "!f" !" f""" f" "/a""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X~"  !T 9!a Fa a! a"X a a! a"Xf a! a"X a a! a"3X6Xh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX@TX -`" ` c1Xd 2QTqX c1XjT[Zd@X #  a` aܐ!XsTYD]@XX a Ea a! a"Xh a! a"X a  +a `"d` 5 aX aaXa `aBP@@#4h h` ` ``TBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p Xޅ` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\öö\öĭö@T:\ öĭİĭöTöĭöB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR 5DE H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X<  35? bX *L "HT22 HsLoAAd]EASTRBASMS|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\2Xc N[ hhhĭuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`*dADAYTO*hMONTO *jHORTO *lSECON *nCONTA *oHORMX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XThbX&)+25,Ȱ#`X ThA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Thbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Tœa a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XThbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i LATAPARC LAUTIFIL TMTH0000TAPEARC d TeBTőB T0őő\3*jh*ihT FTEz 1 hȼEhTص 1 hȮYh\ب 1 dh\ 1 hȓmh\؍ 1TTő d " \3 l "Tԑ l " ݤvHhn$hhH$b`dTؑ l̹Ҝj̴ !Z$hIH,܈Dd&h>H,ш9dddG  36? ,l !TEz- dhT 1TT d >\r2\r3  T3\ő\r8 TTf+W(1H1,20A2,6X,39HACCOUNTS BEING PURGED FROM THE TAPEARC ,4HFILE,/,1X,20A2,14X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,35X,14HACCOUNT NUMBER,10X,18HARCHIVE TAPE DATES,/) 8(34X,8A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2,2X,A2,1H/,A2,1H/,A2) (//,52X,21H*** END OF REPORT ***) (/,34H ERROR WHEN UTIFIL RECORD NO FOUND) T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5T839cTh.h;X7H&8%#T"$h$h`  TT  TF T>T4h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ Tȡ`><Ȓ T; H Tu d 3 DH-j+̾Ⱥ(j'% hȲDhTu̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TBHX TL `u HehdhgXlXvhb"aT8ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ }|h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdEhhuXh̺ (BD< n&ȫdȫ  hJIEhE h h  hh h8H60T7XUX h%`" "h*hT T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHX}hNXxhXoh:a62Hl20X), H,)H& XXOh a&hh۸nX X h H   HThhh=@ T; XT%T\ XFDh5TFh120-3 T*(%!T7c  37? TF \TBTd \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" T8+T7X% hT\H `CT T;@ TFhT7h XX T7TJ 2X X' h$  X0X XzШ Xhˠ T TJ H= X H8X H0}TX*@) z\TJ   hTHxSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dhn>Ƚn<ظ 1T;,Ȩ !1 h؟T;S{ț ! h (hTnؕ 1 1T; HT$T2 h h h h\h h hfh Hq``X`HX " hHhB4 "c"  hhhhhT_`a[Z\]^T_`a[Z\]^HT$T2h\hh\hh+ )(,/.XH0123456789AREF$ID'*Z   h l : T l ll h l \ hlElh hhhh hhTɞÞ h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/W 1TT*v6 l44 l2 / ! + !l dd l!!   dd dTɞǞ % d\\  l !  ldl l l l l\ƞǞ d< 6l  "TT*v 6T l d d d l ll  To\T̙ l !  ddTɞÞ\ޞ l ! d̹ $ˌ l, l d ḷ l !& !/ l 9!/̫ !+̧ h$)l !(T l 5To  l̻ ̵dl\%"gTT*v  0l\*\ ld+d, d:\͡  ld- 9!. !* h%Ĉl̨ l 3\     d" !T %" l F7̣ 4̠ l̜  0lTT*v d/d0ld&d1d2d3 d f 1To T l   l  l \ݡ Ul $) lLd4d%5l,lLlll ̲ l,܌lLlެll,Ќl6d, 7l ̓ l To B > : 6  93 %  2 3 l 95 2v  0lo  dU d/lX̺ ̷  ̯  EdT l D\ ̠ ̜  d1  9! ! d0$)l c"/ l To   0l ḏ k3 dl՜3lUdddddd D llddl TaԠ̻ /  l&  dldldl d"T ԡ" l\ա" l\֡"Ṋl TԠ / ̚dl̛dl l\ՠԡ" l\Рա")V" < ) EHp d ; dl\"T ! !lHd $lTo ̘l\  l\ l  Hll\ ˬl d; l ddd d n 1 d< +d&d1 d"T " l\"̗  l\"dddʤ>d=  -lܺdldl dl TTd!l  -ldlld? d@ /̼dAdB$)l,ldC5lLd4llLldD߬l",l,ތl,l,l  ,Llجٌl̶dElLlͬlڌlLdFԬlܦf ̜ !̗ !U dG  dn 11   l 7 -ldlV  Ԝl Όl d@ !Y 1TΫ n !M̷ dH̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ d,n 1 l 0n 1 d 0n 1 d+V  U;dTl1 Ôl̿ !i̻  l̶8To# l& \& ld< dl !  0ṉh\ ܫ l̹ l\̡:̳ l  2\(̥ l 2+h\@ lT l 2\I lU; !d,  d8To# l& \& l\(\: l  ̳h\ܭ l \֡9 l\ѡ8\ϡ1dJdK+ H!" 8 % l\(ܨ 1P\(\J\\Dd"dF d?dEld, dl`p=l  lܹ 0f.lۜll 1  +d& d;lT J"lJ>d= dl -l l lH  l 0dTdL !#  l5To#ܘ \' lڜ9h\A2 lӜ4\I d"\J"̨ldF d?dEdGl *l ̬ l̩dM ,\#̤ l ! l l윳4\(ܯm lH`p5d4l 0e 4 n ḽḷl 1 l l  1 TdL " l +To# l ! d, " ll 8̽h\"ܷ " l  l\ѡ.̥ l !\š#̶ l !b@aH^H[T$T2hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShAT TJ` h/&hHgaV`H _H H M A cTXFRXB H H\TJ6=:\ة86/  HI  39@&Aa%acAD aa h h HR h  H TJԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTJ!! HG9Qs>L1a: Lw T&RH5 I  vR  LaT\!T ;X hh H6uhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  TJ"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\QQ\QHQ@T:\ QHKHQTԮQHQB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR H2 H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTͮ HsLoAAd]`  |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhHuhi f[G ߂M^@BPCE}GN HJzLLK@H mbb@`T7XUX h%`" "h*hTX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` r  3:@$!Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T7a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9T bbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T@a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT bȰ#`X`!dB2 @rdR@`/@oHh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i M  3;@8 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT bȰ#`X`!dB2 @rdR@`/@oHh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i @PV`PCREATE$CLEAR "DELETE OPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS PUPDRECDELRECCOMFILVOLUSEREDUCEPEND0V41CCP AP PaBINASC A24 A ITOS CCS 3.0 SL-149@PHYhXXXhSXhQ ` hOKhLKB0 hG0HFBCV Atm;;m75@P+ 2#h0 `()[0 m 0  m  ` #@PVh PBINASCP8PKUP 8PREPP P Q8PRMA A25 A ITOS CCS 3.0 SL-149y  3<@LDELQMST ADDACT   Temyz{TJ | (Tɘ}|y\՘| '\}|ytT6 #~|Ǩɘi &\ܘ|y`Tؙ#-- T#qT8Ցq|ȡ &\홃|y?T#ȗ \ܑ\ՑT2Ց|| &\홂|yTT:Քq| 1Tɘ홉|yTHՙ|\ |Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T'()O(TL ! ! , h\P) Kh \ݛ)) 9hTea)HTTh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i $$RPMENU$$ UTIFIL $$HOST $$ RPTPGM RPTG MNUPRO 00PRFPG000CCS20 PRCWRK $$PGMNAM$$ RPTE00RPTP00RPT000$$RGMENU$$  :CL Te Ւ֒Th2 )T 2ْؒTf-Th)˨̘ +\2ےؒTh\-d\h h fgذ 1Th21 \ˑȗ '\ْؒ\-d\ˑ㒁ؤڜ *\ےؒ\˒\-\˒\ '\ْؒ\-̪hY̦hV (THQ dT -T ےؒTTf-TOےߒ\㒭Ṭ *\ܒߒؒ\ݒ\ޒ-\ؒd}dTYJ & dC\Yq{ڜޜ # l*TYq # l\Yq~Ϭޜ"ʬߜ # l \Yq̻ / lT JܒؒTYTf-\Y dd\̝ '\ْؒ\-T㒄 *\ӑؒ\ԑ\Ւ-dT\d5T>2 '\>ؒ\-TPA '\Aْؒ\-\P̹̳ -T AؒTPTf-\P d 4LdHdDdd 1  3=@`!  !  :  4  1Tf+ l fOܸ 1 d\T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- TO~Tf ! ! , h\蕧ݕޕ Kh \ݕ╀ 9hTea䕀ߕHT0T>h\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i eMNUPRO UTIFIL RPTG Te\]^ hT̑ ` )T a`\TfT0Z`ۨܘ +\ c`\Tʑ`\Ȥ hT0` h\`ȹ \ӑTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T 2 T/ ! ! , h\3ri ji Kh \ݒ ln mn 9hTeap kqqqrHTTh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i JLASUMHST LAUTIFIL SMTH0000INVALID STATUS SUMHIST R S W d Tex/01T2x34 TA563\(3i3*jh*ihTT|: hȻ "*\i: hȰ "#T|˓: hȣȟ "*ȚdH(d(d@Hl>$AlH$?dlH,l,d dB !BTFz+ ; dChT 1 l  3>@th\ 1 dh\ 1 lՀh\ 1T lT : d;:</ "#TA'ґ2 dEҔ, l- l. l s$>hl@H$AedF&h_H,ZdG7dH9dI ,l "TFz= dChT 1\' lh\ 1 lh\ 1TBT: d;: !O TAӑDڑD\zD l̲h\ܬ 1\' ḷh\ܝ 1 l̖h\ܐ 1\ܶTړDTFrH\rI  T*i;:/\;:/\rN T:Tf+e(1H1,20A2,12X,39HACCOUNTS BEING PURGED FROM THE SUMHIST ,4HFILE,/,1X,20A2,20X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,20X,14HACCOUNT NUMBER,5X,13HINACTIVE DATE,5X,6HSTATUS,15X,14HBORROWERS NAME,/)(20X,8A2,7X,A2,1H/,A2,1H/,A2,9X,A1,10X,R1,14A2,A1,10X,7A2)(//,54X,21H*** END OF REPORT ***) (/,34H ERROR WHEN UTIFIL RECORD NO FOUND) T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5T939cTh.h;X7H&8%#T#$h$h`  TT  TF T?T 4h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ Tȡ`><Ȓ T< H Tv d=T8 TvT 3 DH-j+̾Ⱥ(j'% hȲDhTv̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TCHX TL `u HehdhgXlXvhb"aT9ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ ~}h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdFhhuXh̺ (BD= n&ȫdȫ  hJIEhE h h  hh h8H60T8XeX h%`" "h*hT T h hhh ll X# Xhh@4i` Xj TT Cr q d;  3?@ Y hUDhT XHXhNXhXh:a62Hl20X), H,)H& XX_h a&hh۸nX X h H   HThhh=@ T< XT%T\ XFDh5TFh120-3 T*(%!T8 TF \T CTe \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" T9+T8X% hT\H `CT T<@ TFhT8h XX T8TK 2X X' h$  X0X XzШ Xhˠ T TK H= X H8X H0~TX*@) {\TJ   hTHySTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dhn>Ƚn<ظ 1TL=Ȩ !1 h؟TLdț ! h (henؕ 1 1TL HT5TC h h h h\h h hfh Hq``X`HX " hHhB4 "c"  hhhhhTpqrlkmnoTpqrlkmnoHT5TCh\hh\hh+ )(,/.XH0123456789AREF$ID'*Z   h l : T l ll h l \ hlElh hhhh hhTʠԠҠ h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/h 1TT*v6 l44 l2 / ! + !l dd l!!   dd dTʠؠҠ % d\\  l !  ldl l l l l\ƠؠҠ dM 6єl  "TT*v 6T l d d d l ll  Tp\T̙ l !  ddTʠԠҠ\ޠ l ! d̹ $܌ l, l dMd ldl d l l l l l l d̘  l̒ \̹   ̱   T\Ԡ̡   ̙   Tp2H/T5TChV\hD\hB\hhh\hh\h\h\h#h\h\hh  3@@'d  -0 LAUTIFF ED.TH0000INVALID STATUS*  T h jظ 1 h o" < )P d h\ d/̼ !Tp1 9l1dRl̩ l  d3T!/3\1̛  l4dRl5l d6 d7\ɣ1    !> ḷ l !& !/ l 9!/̫ !+̧ h$:l !(e l 5Tp1; l̻ ̵dl\63gT0T*v1  0l\;\ ld 9!. !* h6Ĉl̨ l 3\1    d3 !T!63 l F7̣ 4̠ l̜  0lT0T*v d@dAld7dBdCdD d- f 1Tp11 e l   l  l \ݣ1fl $: lLd#Ed6Fl,lLlll ̲ l,܌lLlެll,ЌlGd= Hl ̓ l Tp11 B > : 6  93 % 1C D l 95 2v  0lo  df d@lX̺ ̷  ̯  Ed.e l D\1̠ ̜  dB1  9! ! d#A$:l c"@ l Tp1 1 0l ḏ k3 dl՜Dlfdddddd D llddl Tr̻ @.  l7  dldldl d3T!3 l\3 l\3Ṋl T @ ̚dl̛dl l\բ3 l\Т3)g" < ) EHp d; d/l\/3e ! !lHd15lTp1̘l\1 l\1 l  Hll\1ˬl dL l d$d%d& d- n 1 dM +d7dB d3T!$3 l\%3̗  l\&3d*d(d)ʤOdN  -lܺdldl dl Tɣ'T 'd,2l  -ldlldP dQ /̼dR+dS$:l,ldTFlLd#EllLldU߬l3,l,ތl,l,l  ,Llجٌl̶dVlLlͬlڌlLdWԬlܦf ̜ !̗ !f dX  d-n 1B  , l 7 -ldlg  Ԝl Όl dQ !Y 1TΫ n !M̷ dY̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ d=n 1 l 0n 1 d- 0n 1 d<g  fLdelB Ô,l̿ !i̻  l̶8Tp4 l7 \7 ldM dl !  0ṉh\ܫ l̹ l\̣K̳ l  2\9̥ l 2<h\Q le l 2\Z lfL !d=  d-8Tp4 l7 \7 l\9\K l  ̳h\Xܭ l \֣J l\ѣI\ϣB,d[*d\+ Y!" 8 % l\9ܨ 1P\9\J\\Dd3dW dPdVld= d-l`p=l  lܹ 0f.lۜll 1  +d7 dLlT![3l[OdN dl -l l lY  l 0ded] !#  l5Tp4ܘ \8 lڜ9-h\AM lӜ4\Z d3\[3̨ldW dPdVdXl *l ̬ l̩d^ ,\4̤ l ! l l윳4\9ܯm lY`p5d#El 0e 4 n ḽḷl- 1 l l  1 ed] " l +Tp4 l !  3A@ d= " ll 8̽h\ܷ " l  l\ѣ?̥ l !\ţ4̶ l !b@aH^H[T5TChh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShAl44 T[` h/&hHgaV`H _H H M A cTXFRXB H H\T[G=:\ثIG/  HI&Aa%acAD aa h h HR  H T[Ժ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT[22 HG9Qs>L1a: Lw T&RH5 I  vR  LaT\2T ܬ 1\ hh HGuhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T["" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\bb\bYb@T:\ bY\YbT԰bYbB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR dB H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTް HsLoAAd]Kh|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhYuhi f[G ߂M^@BPCE}GN HJzLLK@H ~bb@`INGETFCBJLGOV4?Q8QENSSMDCPAFX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#  3B@`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! THa a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i  dTŬ T ۯj\ j \j\欇 \ ۯj\jۯ Vd\̠l l d\¯,ۯ Pl\?۰ Pl\Nۯ Pl\a۰ Pl\iۯ Pl\pۯ Pl\~۰̻ PlT۰̰ Pl\۰̦ Pl\믦۰̜ Pl\᯶۰̒ Pl\ׯ۰̈ Pl "p4dd* d\̨ۯ Pl\Ψۯ Pl\Ҩۯ Pl\֨ۯ Pl\٨ۯ Pl\ϯܯ\ܨۯ̾ PlTۯ̳ Pl "p6d[d\d]dl dd8 , d dd_n 1 1lldCdDdIdJlld9d:d;d=d?|1lldMdNdOdPdQdR]FllTt[6llHd l d d d d!R̜d8\֒ո6  d\ʓU[6 [TŹ `\`[6πUhTrǀTh\ d$ll\ݹ `\`[6̰l l̦ lܪl llT6̚ ̗ ̔  dF 'dT>6 2l 1 [:d l!Q$ l!d"d#dT} "]d8\ȹ 6l dG dHdKdL\[6 [T6TܝZll\˹ 6dPdQdR dS4l" I d!D̡l\Ÿι 6!dF"lTŸ`al $ d\ [ Tr\`\` 6 \[6 [ܹdd8Tι 6̶l#dK$dL̰dM%dOll\ι 6&l'll(l)l ll*d>+d?,d@-dA\ѹ 6%l̤ld<\ι 6!dFḷlli  2 d" /d."d0d8lTι 6l#dK$dLdM%dOdd*l" H d!Cll\θι 6̛l̽lTŸ`al $ d\ [ Tr\`\` 6 \[6 [ܺv"d0ld81d4d?5d@\ݹ0 [66[" 71d l!/̽l̿l\Թ 67lTŸ`adG̢lll\0 [68[\` 6 ]܄Uľl\׹ 69d/d:dT[6;9uld8\׹ 6=d?>d@\ʸѹ 6d  d"̼l?l@lAl 0dT>B6\ݹ 6$ d\"6C/ d.ddT[6;ld8d<\ȹ 6\"6CdKdLl̗ l̾ l\ĸ˹ 6̳l̰ l ̈l\[6;+dc, l̬l̓ l\ȹ 6A dD!AM\"6C̠l̢ l[l3̽$ l !2d8/ dGd?>d@\ѹ 6dH 2l "̆ d."d0 dId8d 0 l\ [68[\` 6 " ;dd8.dflKl\Թ 6 dF/dK$dL(dM" A hKh l"!5d8Tȹ 6\6C dKTŸ`adL h\6 hCܓdhl\ʸ˹ 6KdP dQ*ḏl\Թ 62dFdK$dLdMd>d?d@l̇lLd>d?d@Tݹ 6MdFQlpll]d8d:`d;\ݸ 6dF]dGl=d8\Ÿ˹ 6dP9dQh$d8d>Vd?\ѹ   3D@6 u h!q hhHhl)d9dCd?@d@\ĹI [66[" NRh h"!Dd89d9 d<\Թ 6dFTŸ`adGdKadLd>TI [68[\` 6 <1yhd8d9\ܸ׹ 6h\ѹ.[ 6;  7´he hgc!-d8d9\˹ 6O h\.[ 6; vh=\[ 6J 6h,̢d8d9T 6"p4 h||d9yd:Gd; e h"ebd8_d=\d>.h'dChDdChYd`da\`[66/hPd8@dJdKPdLMdMJdNdOCdPdQdC{hnĩhhd8dJdKdLdMdNdOdPdQdR hFhY h7d" n h1"-!hd8[hg\0[ 6_ TŸ`T` 6` )Td\`\`[6a h\ߓU[6[ hTU  h h%h h hi-d8d=d>dC>hPd8dJ&dKdLdMdNdOdPdQdRdSdTdUxhqŚhkd8dEdFdGdHdJhdKd8d=d>Ud?KdCŴh5d8dEdFdG9dJWdKhd8dJdKdLdMdNhed8dEzdFZdGfdH+dJdKh|Cd8d=/d>dC(hf-d8dE?dFAdGdJdKFhHd8 dJdKdLdMdNdOdPlh}"d8dEdFdGdHdJdKƎh[d8d=d>[dCƤhEd8dEdFdGIdJgdKh'd8ed=d>'dCh}d8dJ?dKtdLdVT[6[h[d8dJdKRdLtdQ\ޓB6[hs:d8 d==d>dC1h] d hh h"d8UdV.-XhTr2  1 hhTŹ`\`T`[6a hTU wVh M7 3 h D7 3 h ddLdO\չ6[C h@!qd8Zd=td>VdCh h! dLh h!Z_d8 TdTŔ`T`[6a\չ6_ h\U[6[H_  h\ظ [6[#dLMdMJdO=dP hB9d6Yh5 d ,d(dH CAREPEAT 1  3EA   l EDT *K,I8, l lHTiTwh\h h h h&20*8  "TΟȯȾ hh h?TȿT>ȿȯh h=\ȯȿ\ȿHTiTwh\h\h\h\h\hȡ Ph\߯ʨۯȗ Ph\լۯ00ȍ hj 1 h hh h!TT> A hh h=\ \ؿHTiTwh\h\h\h\h\hdHDR1HDR2HDR3 PAGE 01 DATE RUN MM/DD/YY PGGEN REPORT GENERATOR DATA NAME LIST STARTING DATA EDIT DEC SUB SUB SUB SUB SUB NAME POSITION LENGTH TYPE CODE POS DESCRIPTION NAME1 NAME2 NAME3 NAME4 NAME5' d\ѯ \Ҭ 謋̲ h\Ȓ+ h\ۯ걞 Pl̚ "lܚ "p4ddj l\ۯ Pl\۰( P\vw D P ") Pl TMv "T=>|?>\Mx " hfɽؿ 1\֑Mz " hfت 1 :h d *gd *fd *hh hTCsDT>DEɾ\CFɾ dddT}̗G̐ "/HIA "iܹT`adɶ dJ dK d@{f B1TXLMKJTfl lɽn B1*l ln B19l lAn B1AlTΟMPl lʃnܫ 71_l lʺnܜ 71fl\M dAd d d d d ddTNDT>DO\PD\DQ\RD\DS\TD\DU dV dW d@f 1 Ml 1l lTWXVX l l 1dK%TuY\ ZHl,X%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/LX+PX'TX#X X\X}aXp"Xu(Xa"a X" XIb XFb XCa X@b bX&(1H ,4X,5HQUEUE,7X,2H-0,6X,1H0,6X,1H1,6X,1H2,6X,1H3,5X,2H+3,5X,6HTOTALS,/) dXTSZdeT5\6 d6h\ 1T)(1H ,4X,2A2,4X,6(3A2,1X),3X,3A2,/) 1ndTeaeoo]]  l d f& 1y dTk2}5}T u p lT2d{>hTEd !Hqdr &$l %,l؜d 7 4 d " l " lޚ-5 n]44 ldx#̙ &̔  dTR d d6h-hT `6d$lm dۀ6hT+S~~ ɀ6hTk 1ܲ 1& /TSZ% d6hT 1T)(1H ,/,10X,6HTOTALS,10X,6(3A2,4X),4X,3A2) *\Ze lҀ6h\ 1\(1H ,4X,6HTOTALS,2X,6(3A2,1X),3X,3A2,//)T kTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5TF39cTh.h;X7H&8%#T0$h$h`  TT  TF TLT-4h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ T)ȡ`><Ȓ TI H T dJTE TTITHHH  3IAPHIHHHHH h3HHdhdDhhd|TFKhh hHL8@ hk"TUhTP h~"  b hvTn PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTXTg `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TPHX TL `u HehdhgXlXvhb"aTFZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdShhuXh̺ (BDJ n&ȫdȫ  hJIEhE h h  hh h8H60TEXIX h%`" "h*hT()* T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXqhNXlhXch:a62Hl20X), H,)H& XXCh a&hh۸nX X h H   HThhh=@ TI XT%T\ XFDh5TFh120-3 T*(%!TE TF \T-PTr \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" TF+TEX% hT\H `CT TI@ TFhTEh XX TETX 2X X' h$  X0X XzШ Xhˠ T TX H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dhn>Ƚn<ظ 1T=.Ȩ !1 h؟T=U}ț ! h (hVnؕ 1 1T= HT&T4 h h h h\h h hfh Hq``X`HX " hHhB4 "c"  hhhhhTabc]\^_`Tabc]\^_`HT&T4h\hh\hhEM+ )(,/.XH0123456789AREF$ID'*Z   h l : T" l ll h, l \ hlElh hhhh hhTףţã h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/Y 1TT*v6 l44 l2 / ! + !l dd l!!   dd dTףɣã % d'\\  l !  ldl l l l l\ƣɣã d> 6”l  "TT*v 6T" l d d d l ll  T} \T̙ l !  ddTףţã\ޣ l ! d̹ $͌ l, l d>d ldl d l l l l l l d̘  l̒ \̹  ̱  T\ţ̡  ̙  T}2H/T&T4hV\hD\hB\hhh\hh\h\h\h#h\h\hh TL  hhh p8DIC00 X56, ISTAT = 1234. CR T'd EATECLEAR DELETEOPENFLCLFLKF LFIL-0 DFCBREFMEVOLUSEPUED.R GETSUPDRECDELRECCOMFIL12*56K#7 T h jظ 1 h `" < )P d h\ d ̼ !T}" 9l"dRl̩ l  d$T. $\"̛  l%dRl&l d' d(\ɦ"    !> ḷ l !& !/ l 9!/̫ !+̧ h$+l !(V l 5T}"00 l̻ ̵dl\'$gT!T*v"  0l\,\ ld-d. d:\ͦ"  ld/ 9!. !* h'Ĉl̨ l 3\"    d$ !T.'$ l F7̣ 4̠ l̜  0lT!T*v d1d2ld(d3d4d5 d f 1T}"" V l   l  l \ݦ"Wl $+ lLd6d'7l,lLlll ̲ l,܌lLlެll,Ќl8d. 9l ̓ l T}"" B > : Ԏ  3KAx6  93 % "4 5 l 95 2v  0lo  dW d1lX̺ ̷  ̯  EdV l D\"̠ ̜  d3"  9! ! d2$+l c"1 l T}" " 0l ḏ k3 dl՜5lWdddddd D lld d l T֥̻ 1  l(  dldldl d$T.֦$ l\צ$ l\ئ$Ṋl T֥ 1 ̚dl̛dl l\ե֦$ l\Хצ$)X" < ) EHp d ; d l\ $V ! !lHd"&lT}"̘l\" l\" l  Hll\"ˬl d= l ddd d n 1 d> +d(d3 d$T.$ l\$̗  l\$dddʤ@d?  -lܺdldl dl TsTd#l  -ldlldA dB /̼dCdD$+l,ldE7lLd6llLldF߬l$,l,ތl,l,l  ,Llجٌl̶dGlLlͬlڌlLdHԬlܦf ̜ !̗ !W dI  dn 13   l 7 -ldlX  Ԝl Όl dB !Y 1TΫ n !M̷ dJ̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ d.n 1 l 0n 1 d 0n 1 d-X  W=dVl3 Ôl̿ !i̻  l̶8T}% l( \( ld> dl !  0ṉh\֓6ܫ l̹ l\̦<̳ l  2\*̥ l 2-h\B lV l 2\K lW= !d.  d8T}% l( \( l\*\< l  ̳h\4Xܭ l \֦; l\Ѧ:\Ϧ3dLdM+ J!" 8 % l\*ܨ 1P\*\J\\Dd$dH dAdGld. dl`p=l  lܹ 0f.lۜll 1  +d( d=lT.L$lL@d? dl -l l lJ  l 0dVdN !#  l5T}%ܘ \) lڜ9h\h3 lӜ4\K d$\L$̨ldH dAdGdIl *l ̬ l̩dO ,\%̤ l ! l l윳4\*ܯm lJ`p5d6l 0e 4 n ḽḷl 1 l l  1 VdN " l +T}% l ! d. " ll 8̽h\E,ܷ " l  l\Ѧ0̥ l !\Ŧ%̶ l !b@aH^H[T&T4hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShAp TL` h/&hHgaV`H _H H M A cTXFRXB H H\T8=:\خ:8/  HI&Aa%acAD aa h h HR X"9 H TLԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT## HG9Qs>L1a: Lw T&RH5 I  vR  LaTI\#TI TOTALS,2X,6( hh H8uhi[G M^@BPCE}GN HJzLLK@ aafRda -a0F 0ac 2 .a `9ac a aA `! aa a( a .a 0a!D Q" !yR *a aa AR  3LA a! a"X : a! a"X uX H H "4` " "aXaX ahh`XTPqa aa a a a a a! a"X a"  6 9! T d  a a! a"X    `  `  aX aaX " a   a! a"X   aaX 'bdRQ"X; aX 3 aX +  "XaX r  "XaX  XaX X f" #"X f" a# a a A aA aA  X X " a a A aA   a  aX X "a A a` !RAX(aS aX mK aX eC  "XaX 6  "XaX )a#"X j"a` aX t aX #"X R XaXΊ aa  "X a! a"X a az a a a p a_a( a! a"X ^aX X1 aA a a! a"X ? a! a"X z a! a"X s2a a Da  a  a  a! a"X  3 ! a! a"X G   `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  TL"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\ \  @T:\  TJԶ  B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR H X7Ժ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTJ HsLoAAd]USKNPG|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H (bb@`QIN  3MAX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i #y a%XOH!""" A#*   "!"X3# a1rX)""  "!f" !" f""" f" "a""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X~"  !T 9!a Fa a! a"X a a! a"Xf a! a"X a a! a"3X6Xh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"Xi a! a"XX@TX -`" ` c1Xd 2QTqX c1XjT[Zd@X #  a` aܐ!XsTYD]@XJX a Ea a! a"X a! a"X, a  +a `"d` 5 aX aaXa `aBP@@#4h h` ` ``TBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa ! ! , h\4sj kj Kh \ݞ mo no 9hTeaq lrrrsHTTh\h\h\hUTIFIL HDR0HDR0 *glZ*hlW*flT h (j 1Tܟ hn=n=n; 1TΞ !0 hؽTўΞȾ ! h (hnذ 1ئ 1TΟ HTT h h h h\h h hh Hq``X`HX " hHhB4 "c"  hhhhhTҟӟԟΟ͟ϟT"ҟӟԟΟ͟ϟHTTh\hh\hh+ )(,/.XH0123456789AREF$ID'*Z   h l : T l ll h l \ hlElh hhhh hhT645 h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/8 1T^ T*v6 l44 l2 / ! + !l dWd9 l!!   d:d4 d5T:45 % bd\;\  l !  .ld<l l l l l\Ơ:45 d X63=l0 b X"T^ T*v 6T l d, d2 d1 l ll  TK6\6TӠ6̙ l !  d4d5T645\ޠ6. l ! d6̹ $> l/, l ddF ld0l d l l l l l l d+̘  l̒ \6̹  m̱  mTӠ6\6 ̡  m̙  mTK62H/TThV\hD\hB\hhh\hh\h\h\h#h\h\hh'd  -0 FED.* T h jظ 1 h " < )P d| h \ d̼ !TK 9ldRl̩ l  dT\㢓̛  ldRll d d\ɢ    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5TK l̻ ̵dl\gT^T*v  0l\\ ldd d:\͢  lR  3OAd 9!. !* hĈl̨ l 3\    d !T l F7̣ 4̠ l̜  0lT^T*v ddldddd d fE 1TK  l ;  l  l C\ݢȌl| J$ lLddlI,lLlll ̲ lH,܌lLlެllG,Ќld l ̓ l CTK B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷ | ̯  Ed l D\̠ ̜  d  9! ! d$l c" l TK  0l dḴ k3 dl՜ldtduFdvGdwHdxdy| D lIlJdzd{l TԢGK̻   l  dldldl dTG l\H l\IṊl T GKK  ̚dl̛dl l\բG l\ТH)" < ) EHp d|; dl\ ! !lHdlTK̘l\ l\ l  Hll\梓ˬl d l ddd d n 1 d +dd dT l\̗  l\򢈢dddʤd  -lܺdldl| dl T+Tdl  -ldlld d /̼dd$l,ldlLdllLld߬l,l,ތl,l,l  ,Llجٌl̶dlLlͬlڌlLdԬlܦfK| ̜ !̗ ! dL  dn 1  l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ lK !5 n̜ ܡ, d`̥  ̦ l 7 +l̞dlܚ dn 1 l_ 0n 1 d 0n 1 d ; ;Ȅdl Ôl̿ !i̻  l̶8TK l \ ld dl !K  0ṉKh\ܫ l̹ l\̢̳ l  2\̥ l 2Kh\+ l l 2\ lȔ !d  d8TK l \ l\\ l  ̳Kh\ܭ l| \֢ l\Ѣ\Ϣdd+ !" 8 % l\ܨ 1P\\`J\`\aDdd ddld dl`p=l  lܹ 0f_.lۜll 1  +d dlTld dl -l l l  l 0d`ǜd !#  l5TKܘ \ lڜ9_h\  lӜ4\ᢼ d\̨ld dddl *Al ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5dl 0e_ 4 n ḽḷl 1 l l  1 ǜd "C l +TK l ! d " ll 8̽_h\N ܷ "C l  l\Ѣ̥ l !\Ţ̶ l !b@aH^H[TThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA Ȍ T` h/&hHgaV`H _H H M A cTXFRXB H H\T=:\ت/  HI&Aa%acAD aa h h HR h  H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ &  3PAI^HT HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T  X# hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\į\İ@T:\ İTԯİB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR \T H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT@@ HsLoAAd] `CT |LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\@Xc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`IhTTÖĖp=H ' &eX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTvbX&)+25,Ȱ#`X TvA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tvbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1   3QAm@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTvbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i  TRNSFL  L01TeБבؑT "y yTs֨טn !nTݑՑݑ Z hI >ؼ 1T 2S +؟ 0lTIș !6 hfHؒ E1 hf 1 h ͤ߈l l d dTTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H"h! HX @    ` `"i 0000000000000000EX LATRNSFL  L01TeБבؑT ڑБۑ TJݑޑT̑ " T¨Øȼ "Hd@\ΑՑȣ e h Wؤ 1T 9S 2 0lTI !C dn E1dd lf 1 դh Ȥl l̶ḽḻl̨l d dTʑTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z_&  3RB2"4` aADe+aa AA a a Vh`H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i dH(d(d@Hl>$AlH$?dlH,l,d dB !BTFz+ ; dChT 1 lh\ 1 dh\ 1 lՀh\ 1T lT : d;:</ "#TA'ґ2 dEҔ, l- l. l s$>hl@H$AedF&h_H,ZdG7dH9dI ,l "TFz= dChT 1\' lh\ 1 lh\ 1TBT: d;: !O TAӑDڑD\zD l̲h\ܬ 1\' ḷh\ܝ 1 l̖h\ܐ 1\ܶTړDTFrH\rI  T*i;:/\;:/\rN T:Tf+e(1H1,20A2,12X,39HACCOUNTS BEING PURGED FROM THE SUMHIST ,4HFILE,/,1X,20A2,20X,10HRUN DATE: ,A2,1H/,A2,1H/,A2,/,1X,20A2,//,20X,14HACCOUNT NUMBER,5X,13HINACTIVE DATE,5X,6HSTATUS,15X,14HBORROWERS NAME,/)(20X,8A2,7X,A2,1H/,A2,1H/,A2,9X,A1,10X,R1,14A2,A1,10X,7A2)(//,54X,21H*** END OF REPORT ***) (/,34H ERROR WHEN UTIFIL RECORD NO FOUND) T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5T939cTh.h;X7H&8%#T#$h$h`  TT  TF T?T 4h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ Tȡ`><Ȓ T< H Tv d=T8 TvT ONLY IF NO DATA IS TO BE USED THERE IS NO RECORD IN THE MASTER FILE FOR THE NUMBER ENTERED RE-ENTER ACCOUNT NUMBER OR ONLY OR EX TO EXIT ROUTINE THERE IS NO RECORD IN THE COSIGNER FILE FOR THE NUMBER ENTERED THE SCREEN WILL BE PRINTED WITH THE FIELD DESIGNATORS JP ( 6]<  3SB`|~Te"&'(TQ++ (T™Q+&C\`3+ '\3+&C\xB+ '\B+&CTea&),-*\&))8*8a 9T8db  lTsKb+̮6 ̧7  ̡ 1\Q+&C\&)͚*\&)ᚾ)8*`d!T8! !\&)񚿑)8*̩d \&) )8* BdT3\ؑ8\`c++   1&T™3+&Tea&)<Ñ)8*8a 9̞ \.‘T5c !Kb  ^lTsKb+̵6 ̮7  ̨ 1\Q+&\\&)͚*TC‘.š 1/\əxc++ɜ ʜ  1T™Q+&&Tea&)ző*T.‘\c !KT`+\+\x+Tf+T*v/ ( ) [ ] < > 99999999990000000000000000*  \ٸj\ H+h* r Gh hlBhHX"9" "hh0" T9+T8X% hT\H `CT T<@ TFhT8h XX T8TK 2X X' h$  X0X XzШ Xhˠ T TK H= X H8X H0~TX*@) {\TJ   hTHySTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:DhAD9 lT3c`dchTϜac`^T]lTb  h hĘ>h\ac`^\ط hȳfbخ 81 h\ǜac`^\\c`\dnd dv"h\ac`^\ 1\ d l  2I0 l-H dw $dyd_d d"! ,n D [fA@_TCbTb 1^ *\_Tb_ ! !\_Ob_̷ ! $T_y_v툶hTyjTҜ\眯by^Ո h\_y_RΑb HdGp Il  Kl Ml\Gby_ Ayd +Tr\r l̻ Jl̴ Lḽ NlT  3TB,Gby l (dx d dv̿l9fbܳ l (l\dnd{dTϜac`^T T3c`lll\ac`^\ 1\c`ll ll\Ϝac`^\ܥ 1 l̶nܛ 81l\ac`^\\c`l\ac`^\ AdTbcl\ac`^\\c` *gd *hd *fd\ۜHbc\ԜHbc\͠bc\Ơc\c2dTϜac`^T3H0TThHhZhnhy\h-\h\h\hh\ h h h h hh hxUX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/X+X'X# XX}X礙X줟Xa"a X" XIb XFb XCa X@b bX FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $Tz uz7h 3 -;hT{j h ( h\ߧ;}~ v~\-Tea t }\0y8}HTTh\h\h\hh aafRda -a0F 0ac 2 .a `9ac a aA `! aa a( a .a 0a!D Q" !yR *a aa A a! a"X a! a"XXHH"4` " "aXaX ahh`XPqa aa a a a a a! a"Xsa"  6 9! T d  a a! a"X   `  `  aXaaX" a   a! a"Xd  aaX8'bdRQ"XH; aXV3 aXN+  "X/aX  "X"aX" XaX^Xf" #"Xf" a# a a A aA aA  XOX" a a A aA   a  aXXA"a A a` !RAX(aS aXK aXC b  3UB@ "XaX56  "XaXK)a#"X"a` aX aX#"X XbaX aa  "XR a! a"XM a az a a a p a_a( a! a"X+^aXLX1 aA a a! a"X a! a"X a! a"X2a a Da  a  a  a! a"X 3 ! a! a"X H h HX  sD  1  : E /` `"i Hh HX ` `"i #y a%XOH!""" A#*   "!"X3# a1rX)""  "!f" !" f""" f" "9a""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X~"  !T 9!a Fa a! a"X a a! a"Xf a! a"X a a! a"3X6Xh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"Xi a! a"XX@TᵕX -`" ` c1Xd 2QTᵥqX c1XjT[Zd@X #  a` aܐ!XsTYD]@XX a Ea a! a"X a! a"X, a  +a `"d` 5 aX aaXa `aBP@@#4$h h` ` ``TᵕBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1]o  3VBT " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p/LASCNFIL EX LATR ENTER DATE (MMDDYY) OR CR FOR SYSTEM DATE READY (CR) 00DLYASSN  , ( mu0 0TeefgT+#hij TkYi#i  d&Ȼ  lT #kȵ (T#lkeTSZeTT)(A2,2X,20HQUEUE LOADING REPORT,//)Tő\mUmndTeaeopom]]  T !\mm\mUmTUdq !TEWdrT2sT 22kktu /T#vke d lDdw dx"2 $zdyLATRNSFL 2E LOADING REPORT,35X,6HPAGE: ,I2) \ZR%K )ḽh\ܧ <1\\ \ \(1H ,2X,20A2,13X,7HAS OF: ,A2,1H/,A2,1H/,A2,/)TSRT%i;(1H ,48X,29HNEXT CONTACT DATE AGE BY DAYS,/,10X,5HQUEUE,15X,2H-0,9X,1H0,9X,1H1,9X,1H2,9X,1H3,8X,2H+3,9X,6HTOTALS,/) dX\ZW%T5\6 d6h\ 1T)(1H ,9X,2A2,12X,6(3A2,4X),4X,3A2)  5 f$T  3WBhSZ]e\Ƒ\ē$\‘\ \ \-(1H ,A2,28X,20HQUEUE LOADING REPORT,16X,6HPAGE: ,I2,/,32X,7HAS OF: ,A2,1H/,A2,1H/,A2,/) \R_e#(1H ,24X,29HNEXT CONTACT DATE AGE BY DAYS)\Rae>&(1H ,4X,5HQUEUE,7X,2H-0,6X,1H0,6X,1H1,6X,1H2,6X,1H3,5X,2H+3,5X,6HTOTALS,/) dXTSZdeT5\6 d6h\ 1T)(1H ,4X,2A2,4X,6(3A2,1X),3X,3A2,/) 1ndTeaeoo]]  l d f& 1y dTk2}5}T u p lT2d{>hTEd !Hqdr &$l %,l؜d 7 4 d " l " lޚ-5 n]44 ldx#̙ &̔  dTR d d6h-hT `6d$lm dۀ6hT+S~~ ɀ6hTk 1ܲ 1& /TSZ% d6hT 1T)(1H ,/,10X,6HTOTALS,10X,6(3A2,4X),4X,3A2) *\Ze lҀ6h\ 1\(1H ,4X,6HTOTALS,2X,6(3A2,1X),3X,3A2,//)T kTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5TF39cTh.h;X7H&8%#T0$h$h`  TT  TF TLT-4h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ T)ȡ`><Ȓ TI H T dJTE TTITHHHHIHHHHH h3HHdhdDhhd|TFKhh hHL8@ hk"TUhTP h~"  b hvTn PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTXTg `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TPHX TL `u HehdhgXlXvhb"aTFZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdShhuXh̺ (BDJ n&ȫdȫ  hJIEhE h h  hh h8H60TEXIX h%`" "h*hT()* T h hhh ll X# Xhh@4i` Xj TT  3XB| Cr q d Y hUDhT XHXqhNXlhXch:a62Hl20X), H,)H& XXCh a&hh۸nX X h H   HThhh=@ TI XT%T\ XFDh5TFh120-3 T*(%!TE TF \T-PTr \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" TF+TEX% hT\H `CT TI@ TFhTEh XX TETX 2X X' h$  X0X XzШ Xhˠ T TX H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh 6”l  "TT*v 6T" l  3YB d d d l ll  T} \T̙ l !  ddTףţã\ޣ l ! d̹ $͌ l, l d>d ldl d l l l l l l d̘  l̒ \̹  ̱  T\ţ̡  ̙  T}2H/T&T4hV\hD\hB\hhh\hh\h\h\h#h\h\hh TL  hhh p8DIC00 X56, ISTAT = 1234. CR T'd EATECLEAR DELETEOPENFLCLFLKF LFIL-0 DFCBREFMEVOLUSEPUED.R GETSUPDRECDELRECCOMFIL12*56K#7 TWRS LAACCAGE 997 998 999 LARSWFIL SCRNFILEDELQMST #202<!ERROR - STATUS CODE NOT FOUND ON SUPERVISOR CHANGE SCREEN.: 00 2R #&) 2;DwM *gh *hh *fhTe TБ  Ⱦ ,TT  \  \ШБ \,, \## \ܧ|| T֑ȍ "tTđ*Ȃߜ w "wTԑT* d !% , d  Ⱥ ,T>>\kk\񑹗\ꗔ\㗘D\ܗTz'D dhTR 1T (/,8HUSERID =,4A2,37H (CR) TO CONTINUE, OR TYPE EX TO EXIT,/) Tea Tt (T8\,D '\D\Sk '\k\ӑz '\Ց\ő '\Ǒ\M≯ '\>Tbz—̨ ^̠ "^T\z×̒ ^ "^\(\ԑzė՜ ^ "^\֒Trz *gd *hd! *fd"T`S8ʤƜ !TǗ3T8kʗ24Tb̖ ̎Ĝ̈ "{\Ė˗̖\͗e\ٗMeeٜ  "\eΗ\ϗЖ̠͗d#TY#\җӗTԗՒ֗\חؗ9 q\閩ٗڗ\▩ۗՒܗ\ۗݑ\Ԗ˗ޗq, !- 1. 1// 21 23Tܖd ,hDd ,h d d\䖸 l ,h'Dl ,h(lTǗ$Tb,  1-  T]\ٗ$ǒ\ҖȗTd,$ ";\ȗT^,̾ "Tܖ d ,hDd ,d(d d \䖸 l l4l lTb  "{ ϔ Tm嗼ɑ T旼嗼\ȗ $ l dd!.̡ $ +h\Ԗ: +܀h\×   7 \ 藼\<̞ "Ȕ \ǖ\=͗Tf "T^ 2T8Η2 Tr *(39X,12HNEW DATA OR,/,5X,9HACCOUNT #,7X,36HTYPE UPCD AC RC LT COMMENT) lI\z dhTR 1\\ dh\ 1T(2X,8A2,4X,A2,6X,A2,5X,15A2,4X,15H NOT UPDATED***); lTz ; l̶h\ܰ 1\ l̺h\ܴ 1 dh\ 21\(2X,8A2,4X,A2,11X,3(2X,A2),3X,28A2,4X,15H NOT UPDATED***) 4 lT8Η\rj(39HREPLACE SCREEN FILE AND RESTART PROGRAM)Tf+Tr(41H ...PROGRAM ABORTED. - RUN NOT COMPLETE)?\DΗ\헸\zTR\T(9H COID : ,2A2,32H NOT IN UTIFIL - USING HOST ID ) TeTrS\\,\\M\z\4\;\3\2\G(26HTOTAL ACTIVITIES UPDATED ,I4,/,26HTOTAL CHANGES UPDATED ,I4,/,26HTOTAL OTHER RECORDS ,I4,/,26HTOTAL NOT UPDATED ,I4) Tf+T*vHHX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5T39cTh.h;X7H&8%#T$h$h`  TT  TF TT4h255؈ȇX h&ڨ*IhT1TTUVp=H ' &eh @ȫT?ȨXȞ Tȡ`><Ȓ T H T dT TTT" h3HHdohdpDhhdTFKhh hHL8@ hk"ThT h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMĦ  3\Byl,e (!;X ȌTT `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwEh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX T.hX THX TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdOhhuXh̺ (BD n&ȫdPȫ  hJIEhE h h  hh h8H60TXmX h%`" "h*hT T% h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXhNXhXh:a62Hl20X), H,)H& XXgh a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 T*(%!T TF \TT \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT 2X X' h$  X0X XzШ Xhˠ T T H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh dD dC l ll  TܩHTA\HTdH̙ l !  dFdGT6HFG\ީH@ l ! dH̹ $P lA, l ddX ldBl d l l l l l l d=̘  l̒ \H̹  ̱  TdH\H̡  ̙  TܩH2H/TThV\hD\hB\hhh\hh\h\h\h#h\h\hhȌTT `h Dh XX\\ TaH #h! TT hBD'd # `h9 V1a Dh/X)* T-0 #%F  ED.j  Dh h h * T" h jظ 1 h " < )P d h\0 d̼ !Tܫ 9ldRl̩ l  dT\㫥̛  ldRll d d\ɫ    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5Tܫ, l̻ ̵dl\gT﫤T*v0  0l\\0 ldd d:\ͫ  ld 9!. !* hĈl̨ l 3\    d !T l F7̣ 4̠ l̜  0lT﫤T*v ddldddd d fW 1Tܫ  l M  l  l U\ݫڌl \$ lLddl[,lLlll ̲ lZ,܌lLlެllY,Ќld l ̓ l UTܫ B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷  ̯  Ed l D\̠ ̜  d  9! ! d$l c" l :  3^BTܫ  0l d]̱ k3 dl՜lddXdYdZdd D l[l\ddl TY]̻   l  dldldl dTY l\Z l\[Ṋl TY]]  ̚dl̛dl l\իY l\ЫZ)" < ) EHp d; dl\ ! !lHdlTܫ̘l\ l\ l  Hll\櫥ˬl d l ddd d n 1 d +dd dT l\̗  l\򫚫dddʤd  -lܺdldl dl T=Tdl  -ldlld d /̼dd$l,ldȤlLdllLld߬l,l,ތl,l,l  ,Llجٌl̶dʬlLlͬlڌlLdԬlܦf] ̜ !̗ ! d^  dn 1  l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ l] !5 n̜ ܡ, dr̥  ̦ l 7 +l̞dlܚ dn 1 lq 0n 1 d 0n 1 d M Mڄdl Ôl̿ !i̻  l̶8Tܫ l \ ld dl !]  0ṉ]h\Cܫ l̹ l\̫̳ l  2\̥ l 2]h\ l l 2\ lڔ !d  d8Tܫ l \ l\﫭\ l  ̳]h\ ܭ l \֫ l\ѫ\ϫdd+ !" 8 % l\ܨ 1P\\rJ\r\sDdd ddld dl`p=l  lܹ 0fq.lۜll 1  +d dlTϫ!lϤd dl -l l l  l 0drٜd !#  l5Tܫܘ \ lڜ9qh\T lӜ4\ d\ϫ̨ld dddl *Sl  ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5dl 0eq 4 n ḽḷl 1 l l  1 ٜd "U l +Tܫ l ! d " ll 8̽qh\ܷ "U l  l\ѫ̥ l !\ū̶ l !b@aH^H[TThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA T` h/&hHgaV`H _H H M A cTXFRXB H H\ TϹ =:\ش /  HI&Aa%acAD aa h h HR EOF | H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTϹ HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T FILE hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2]j  3_C@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\ָ\ֹ͸@T:\ ֹ͹йTԸֹ͸B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTRR HsLoAAd]|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\RXc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`MAKEQ X X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a `ő  3`C d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i %S18326P83310 * Lʔ kdd#\ˬ۰ lfll\۰ lU dT \ A \ A \Aۯ l2FILE4 pf۰ l!̧l̩lTq۰FREAD TllCPREL h۰ UNFIX ̩ l\RCTV i~A \Ԕ A \ͬAۯMINTO *mlCLOSF }0FMPA02XMRSV _)LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDl TO 300 ASAV m$FMPL01K65CORFMPL03vFMPL04%FMPL052SAVLABRELFLEFMPL08FMPL09DU 0000000000000000000010 00 1vj6@KX_hu" 1 03Te^hT"^ظTN^"T뭁 hȻ (T T׭ȪȤ '\ h"T,9 \^" lȆ ( dT< hT| hTXllӄh\rrTƑ9̿ h\ȑ9ɭ̴huTF9ˑ̩hk\9̭̠hb\9̗ͭhX\̑ϑ9Э̌hMTޑ !hB\͑9ґh8\Ñ9ԭh.\9֑h$\9ؑdTXgaaT5!9­xTC"  7TN^"/lT,9T9\ّ9ڭ\ɭ!9­x\\9\ۑ9ǭ lTXMXRXa"a X" XIb XFb XCa X@b bX FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- ThijiT ! ! , h\贑дǴjȴ Kh \ݴjʴ̴j˴ 9hTeaδjɴϴϴϴHTTh\h\h\hACCOUNT SUMMARY LIST REPORT PAGEAS OF:ACCOUNT NUMBER BORROWERS NAMEDATE AMOUNT PAYOFF DATE AMOUNT CONTACT CODE DELINQUENT DELINQUENT CURRENT QUEUE PROMISED TO PAY NEXT REVIEW 00 d (5z)9@Q *7&bK8p8h(dhp8h(dhp8h(dhh 0h 0ȈhȺ 0hȵ 0ȈhT,)Ty**\+,+\-.-\)/0/ hT<1$ \Զ%1؊ 1\ȶ/3/lT5)TC\)\4+2+\+565TF7l\۶)\\)\8+2+l\ƶ)\T,)Tz**\.9,9\d:;:\{<=<$d\)\\ӵ)\Ե>>?@9l\)\\)IlT5)TCHTTh\hy\h heh .0 T,i h h 1 T<kchccm Tdcckc \kckc h 1\lcnc\oclc\۷fpcocHTThh\hhhhhhhhUTIFIL HDR0HDR0 *glZ*hlW*flT h (j 1T#и'!и( hn=n=n; 1TҸ* !0 hؽTٷ!*Ⱦ ! h (hnذ 1ئ 1T* HTT h h h h\h h hh Hq``X`HX" hH h HX  sD  1  : E /` `"i Hh HX ` `"i [  3bCDtRSWFIL ACCAGE  DELQMST   PLEASE ENTER "AS OF" DATE FOR TREND ANALYSIS CALCULATION - ENTER : MMDDYY OR CARRIAGE RETURN TO USE SYSTEM DATE #);&2D kw2);M 997 998 999 AS OF DATE WAS NOT GREATER THAN LAST RUN DATE YES NOT0 z#  k2RSW Rnm000 d Te?@AT+pB d~ȿ (THpCB? *gd *hd *fd^hvT\ET +CBȗ hȌ 'ȍ '\ΑpGB?\ETlECEHH OdPd ll\ƑE\ÑCI l l l l Tea?J"KJLMd\?JNJOLL  T ! T̕OO= 0 l\CPOO !TdQ\dR !̑  \˕OCSO\ĕOCPO T+CB̼ T+CBB 1̯  dT̩  lTHpTB?̜  dTB '\ꕌCB?\B '\ܑCB? d= T +CB̶F;̯ '\pGB?C T CB̖W̑ۜB '\XB?  ! dYhhh hT̑CC 1 l߀hۀ h׀hӀh\ᑠC 1\ՑZOOT[\\ K]\CCSC^_\CCSC `-\CCSCTCBB (THaB?T+CB 2 G  3cCX\pEB?ddbT̕CCSCT+CB 2\ɑpVB?T\cT B̴F̭ '\GB? \ޑCdT[\\  \ X T dTh hhh\C 1T̑ZOO\ECEdbdi\CCSC>T+CCBB (THpUB?q T+B " d| d~ dY f* 1T+pB '\͑pCB?T+CB̽F̶ 1\peB?s dddTdR\df Bdgdh $il $jlЌٜl 'klll,m"lp4odn,ddpp4rdq,dds 0h 0Ȉ l 0 lvT+B \+B\B\BTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @ FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- TΛT ! ! , h\Ϝ Kh \ݛ 9hTea  HTXTfh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i ACCAGE  DO YOU WANT TO UPDATE PREVIOUS TREND DATA FOR NEXT TREND RUN (YES/NO) YES NO Te hT@ " 'Tp"GT~T. 1 1\"3T1 hȹd>T* 1ȵ &\ˑ"T> Ȩ +\"\"Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- TΒϒВT ! ! , h\6-Г.- Kh \ݒГ02Г12 9hTea4Г/5556HTTh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i H"h! HX @    `  3dCl `"i HH DELQMST UTIFIL COSIGNER ADDACT  INACCT  ACCAGE RSWFIL TRANFL TRNBCK UPDPRINT UPDINPUT   3eC00 #(P0Nl   2Pdi sw   6JO Y] g<NTUTT\ TT T'"$\#%\$* h: $*5d ,h0/0 ̜ ! ! - :ȼ 'ȹ 4ȵ T%TȘ #""TW= ,hd: ,h1d; ,h2d< ,h3 &TI \Ș#\ɘ #""\ʖ=̗' ET;!! )  3\'!! 'TG''\"/"/Tv(T)" (T}+ T T"Tב:;)TȘ #""TW=T! 1Y\ٕ. \T \՘$\ޘ #""\ߖ=A\ɘ"T;!! \;"; )   TG;:;\ #""\=\f (T}~. T HTe *gd*hd*fdT"`#""d h h"p8n (h 1 T7ז (T}ט$ T  \ .\$ \ d\֕W &\ؕW$ \\ɑ &\˕$ \\f~ ̽ &\~$ \\ ̰ &\$ B000000000000- ACCOUNT ALREADY IN ACCAGE wkYw2e_M#&)2;D CO HOST HDR1UPDY000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 <-- HDR1 FROM UTILITY FILE GOES HERE --> <-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE UPDATE REPORT PAGE <-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE-> TRAN ACCOUNT BORROWERS DELINQUENT DELINQUENT CURRENT CODE NUMBER NAME DATE AMOUNT PAYOFF ACTION 301 302 303 0000000001 010360 #(7BPR`ATQ]mN]TKk)mTUmN (T͖xXAT9\Q]/N]\ژQ/Q\ӛNS/S\̑MM/S\śNS/STDONN\/NN\/NNTŞQ\/N]ԞNhTԖԘ̫ ̦ &\YA\̝ 13TԖԘ̓ ̍ &\ZA\TqܞfTԘ (T͖\AT9TN`ΞN`HM0Nl1E(,  , *gh *hh *fhT%ȷ \!!!%Ȫ t\!!!%Ȟ  l hh hȻ!" ( hʓ !V  3fCȏ谚 0Ȩf%2 d1ؚ 5h !0 R. dS 2h 1hT3  3h\" TT \5H2TgTuhbhmhhhh\hZheh\hVhjh\hQheh\hIhJhRh\hhhh\ha'N- NO NON-FINANCIALS ACCEPTED03U   mT/SMMBB 7(TDh\hȞ #Ț dhȗhTNh\/hȍ(Έh 11 *T6NaϞNax hȴ!& ( hC  !ȥEhȡDh ȝChT/Mؐ\/b bB̒ A 4T/SMMBB &\/S/S\/N]mN]TK5)mTUmN (T͖xXAT9T b/bH>YT9bMMBB \:bMMB \;bMMB YT/N]N^\<=O=Tw  (T͖FYAT9 1/ *Tw  &\FZA\\<=O=Tw &\̖F\A\H|WRITEOFF RELEASE SATISFY ADD UPDATE REACTIVATE REJECT - ACCOUNT NOT ACTIVE FOR 30X REJECT - NO ACCOUNT FOR 30X CODE REJECT - INVALID TRANSACTION CODE ,,hTNc˞Oc\NPQP\Q]V] 1? # )\/bab \ט bab % !TNN\OP\ĞOP \NN\ĞOP HTgTuhTTT= T T9T7TNP=NPBB \NP;NPB  \NP9NPB 'T T/ 1T͕\A\ lTDONNT o\NP?NPB̶  TŞV\DONN\盛W TT4TTT//̻ '\YAT9\Ǜ7ǨC Tg\\\\/̝ &\\A\\T\\\T/ 'T͕\A\\9H/ UPDATE WAITING ACCT. NO. .LTQ]NN]T/N   (T͕ZAT9 5 /ެ  d-TQ]ʞ]Ⱥ \Q]ʞ]\˞bȞbTeaAͣɣͣ lTq/H . h P( hT=  T P hTNg;g 1\ \ P hT ( lH&h T 1' T͘ [AT9 dTR TdT h  l  TMH 8 hhhhhh 2 lTDONNdkdl hTkIJ TKIIkؿ 1 TVAjCTd\A-jD\\AojE\TʜP (T͗XAT9 &̞ l \ȥAjF\\AjG\\җʝO &\ԗXA\̥ \AjH\\N̺ &\XA\TqjH TgTuhhh4 &IlTK/\/TQ/Q\NS/S\MM/\\MM/WTŞSTDO̞N̞N\NN\NN\ʑ/N]ԞNhTԖԘ  (T͖YAT9 1/TԖԘ  &\ZA\TqܞfTԘ &\Ԗ\A\TN`ϞN`2I XJlTg*ȞK\/N]MN]\0NQM^QTqWWdYXdZd[\̜*NY\NY\Ŝ2NebNiT5MN (T͗XAT9 \ꗣMN &\엻XA\HWRS997 998 y  3gC999 - ACCOUNT NOT IN ACCAGE   dTŞU|Ǩ C  l\T|HhlTS/S (πh (ʀhTDONN (fh (fh\/NN (xh (xh\ݑ/NN (Th (Th\̘NN\V/V\1\ ]N]\/N"O\S#STN (T͖XAT9T ]NN]TԜN  1ݤ ج \ؖZA\\ڧ$N_ОN_yTԘ &\]A\/d \ԜQԜ Q\Ԝ#PԜ$P\Ԝ%VԜ&V\Ԝ'VԜ(V\/QԜQ $1h\NPԜ#PT/VԜ%V\/VԜ'V\/QԜ!QހhTK"TԞN (T͗&XAT9H * TOTALS * * P R E V I O U S * ACCOUNTS NUMBER AMT DELQ PAYOFF AMT DELQ PAYOFF ADDED REACTIVATED UPDATED RELEASED SATISFIED WRITTENOFF REJECTED 5 Bl dTTS^NS\̞TSNS\ƞTSNS\؞TS*NS\ޞTSnNS\ܜҞTSNS\՜TSNS h h D(NhT-.ȵ  D(NhTKI-ا 1ء 1T񜐞QbOP\QOP\󜖞QOP\휢QiOP\眮QOP\ᜨQOP\ۜ`Q5OP\՜fQyOP\ϜZQOP\ɜQNP\ÜQ=NP\QNP\~QŞNP\QNP\rQDNP\xQNP\lQ̞NP d, D,@hT 1H"  !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5Tܫ, l̻ ̵dl\gT﫤T*v0  0l\\0 ldd d:\ͫ  ld 9!. !* hĈl̨ l 3\    d !T l F7̣ 4̠ l̜  0lT﫤T*v dd !kk@Ekkqqww     (TNS/S h!( ( hʝ ʘ !#hހ"hڀ#hր!h\Ԙ6  3hC/ \Ƒ/NNTk/\N/N\ /! H?" T  \w` \U \疇Ǩ \ߖ \ח@ \ϗ5  \× \ը \ʘ3  \( T QTf+HT/NN\/NN\NN\NN\DOƞNƞNTŞRHTekAop*gd*hd*fdTNONTNS*NS"d h h"p8n (h 1 T ʗ (T͗PAT9  \  .\ PA\  d \֕(h &\ؕhPA\\ɑ &\˕PA\\wF̽ &\FPA\\Ux̰ &\xPA\\̣ &\PA\\̖ &\PA\T & (T͗&PAT92I #\5 &\ꗔPA\\ۗ .٤ \ؗPA\ d dsT(@V¤ ̽ ̸ &\hZA\ B,hT@RdOdW 1\ӕ(@X̖   (T͕hZAT9CtHh/TDB$W)dTqN]\ԜN٬ լ  &\֖ZA\   dHX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/JX+NX'RX#V XZX}_Xn Xs&Xa"a X" XIb XFb XCa X@b bX?:#@'="0ABCDEFGHI}JKLMNOPQRSTUVWXYZ0123456789@Z{[lP}M]\Nk`Kaz^L~no|J_'OmHh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i  DkH%h$"h Hh*p @ 8 0 0Fh `&`H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d "j  3iC dh  0F 0 04hȻ 0F 0 04h  `­é @Hh"h H  F` 4@HX H{hy HXXXXҘ1O à hR & h( h !2f#2  |2" vAfwAw r"#2#2_]c`_R^YRANS"#2D#2 hKXh X A ,#)$h/@@" T 7 ""  (h  hh( h 0F FԸߠ % hh¼Š  (h 0Fȷ hȲá Ȧ ` ` 0Hȟhș 8 ÌH 0F| unt teX`f""H"  h"""! 1 hT\T 0@P`p#$""H h hTF 9 -0EA99/99/9999999.999/999-9999-99-9999bRTNCOR /"+ "&h h hh!+ΈhT;Oۘ  hTKOh\Oh\OػػNS V hȝ!∭h\OȨ ׈h\͸6؜Έh\MO5 1 IO8 l\OM \8MM\6M \8M l\OM\7M#H TgTuh\h\hhhhhhhhhhh\hu\hp>TS FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUEFMSWCREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T7h 3 -FhT޹TSj h ( h\߹F\8Tea\;CHTgTuh\h\h\hhH h HX  sD  1  : E /` `"i F ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT^bȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i T$$USERID  $$USERID FILE MODIFICATION PROGRAM IN ENTER "UPD" TO ADD/UPDATE, "DEL" TO DELETE, OR CARRIAGE RETURN TO EXIT INVALID REQUEST ENTER KEY OF RECORD TO XXXXXXXXXX XXXXXXXX - USER ID XX - PORT NO. RECORD -XXXXXXXXXX- DOES NOT EXIST, CANNOT BE DELETED RECORD -XXXXXXXXXX- ADDED SUCCESSFULLY RECORD -XXXXXXXXXX- DELETED SUCCESSFULLY RECORD -XXXXXXXXXX- UPDATED SUCCESSFULLY USER ID P# REQUEST Q  3jCUPD DEL ADD/UPDATEDELETE  --------*J : , 4Te"?@TA "Tea"BCC5\"BDD5ȼhh\"BYEB F5ȱ ȇ  h ( hʏ ʉ ؓ 1\’"B~G5 $1 hT'@HIHTY9H\"BJB9K55 \"BGB=C5 \ّ9H>HT +>AA2  "̼ <3  \9HLHTea"BJ5cT+A "\9HLH\"BM5G d6̲œ ̭  lT7K+NK\9H+O\"BP5\;K+QK\"B+RB K55  wTY0H d?!Ti ?@ [@8 5T@?1̠ T+AA !=\9HLHTea"BM5T +9A !T9H̒LH\"B̒D5 l l l l lTz@A"V lWSl\"BDD5TATf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" Hh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- TؔٔڕT ! ! , h\@7ڕ87 Kh \ݔڕ:<ڕ;< 9hTea>ڕ9???@HTTh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i | z  3kC DELQMST UTIFIL COSIGNER ADDACT UP4PRINT UP4INPUT  B000000000000HDR1000000000000000000000000 <-- HDR1 FROM UTILITY FILE GOES HERE --> <-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE NON-FINANCIAL UPDATE REPORT PAGE <-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE-> TRAN ACCOUNT CODE NUMBER NEW DATA OLD DATA ACTION 0000000001 000000000000000000000000000000 #(P0Nl   2Pdi sw   6JO Y] g<NTUTT\ TT T'"$\#%\$* h: $*5d ,h0/0 ̜ ! ! - :ȼ 'ȹ 4ȵ T%TȘ #""TW= ,hd: ,h1d; ,h2d< ,h3 &TI \Ș#\ɘ #""\ʖ=̗' ET;!! )  3\'!! 'TG''\"/"/Tv(T)" (T}+ T T"Tב:;)TȘ #""TW=T! 1Y\ٕ. \T \՘$\ޘ #""\ߖ=A\ɘ"T;!! \;"; )   TG;:;\ #""\=\f (T}~. T HTe *gd*hd*fdT"`#""d h h"p8n (h 1 T7ז (T}ט$ T  \ .\$ \ d\֕W &\ؕW$ \\ɑ &\˕$ \\f~ ̽ &\~$ \\ ̰ &\$ \ dT%/ ̞ ̙ ̔ &\W, \ B,xhTG/&1#1 1H1 . h P( hQ  3lD T\9  T$ hTG"2ZԘ2 1\ \薞$ hT5 lHPEh T# 1' T}- T dT}TT–h  l T!H * TOTALS * ACCOUNTS NUMBER UPDATED REJECTED 5 Bl dTG('#'\(';#' h h D(߀+hT'qr  D(Ҁ+hTvq 1 1 h D(hTWص 1H? T5 q \f \ \ ʨ \ߕ "  \ӕ T%Tf+HTG%/"/T%    (T}, T    d lHTG%/"/T%f    (T}~, T    d lH 8 hh hh5hNh 25 lTȘ #""d:d; hT': Tv:ؿ 1 T3T\3\\>3\T)$ (T}ט+ T  &̞ l \Ȟ3\\Ę3\\ҕ# &\ԕט+ \̥ \3\\" ̺ &\ט+ \T3H TThhh4?UPDATE REJECT - ACCOUNT NOT FOUND REJECT - COSIGNER NOT FOUND REJECT - INVALID TRANSACTION CODE ,2ThTG"0m#0\"$=%$\%/=)/ 1#< \;=d;\ڑ:;=e;T=d<\:=e< HTTh0Nl1E(,  , *gh *hh *fhTȷ \Ȫ t\Ȟ  l hh hȻ!" ( hʓ !ȏ谚  Ȩf d ؚ 5h !0 .. d/ h hTG  h\00 \5H2TThbhmhhhh\hZheh\hVhjh\hQheh\hIhJhRh\hhhh\ha'HHX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/uX+yX'}X# XX}XKXQXa"a X" XIb XFb XCa X@b bX?:#@'="0ABCDEFGHI}JKLMNOPQRSTUVWXYZ0123456789@Z{[lP}M]\Nk`Kaz^L~no|J_'OmHh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i ""H"  h"""! 1 hT\T 0@P`p#$""H h hTF 9 -0 99/99/9999999.999/999-9999-99-9999<-- HDR /"+ "&h h hh!+ΈhT'1ۘ  hTv1 h\1h\1ػػOM V hȝ!∭h\1Ȩ ׈h\ͥ1؜Έh\嘒 1 I8 l\ \\ \ l\\#H TTh\h\hhhhhhhhhhh\hu\hp>  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUE CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $ TGç5ŧ057h 3 -hT6 j h ( h\ߦ89ŧ19\Tea:ŧ/ĦĦħ8\:4:ç8 HTTh\h\h\hh H h HX  sD  1  : E /` `"i }LAACTIVE  RESPOND WITH "YES" IF ANY DELETES,ELSE (CR) ENTER COLLECTOR ID TO DELETE OR "END"  0YE *END  Te/bcdTۑe/fg ThifTj (ThjbhT0ZbTБkT(A2)\RbTޑ3jȪȢ '\Ցnjb\Zb hȖh\ؐ 1\Teabp5qp/er/sktld0\bpMup/vrxwTd3d4T/jjym 1 1$TzjbT0Z(bTБ3\4TTۑ3vv{{ Tڑj 1\ԑ|jbTjTf+(1H1,5X,15HUSERS OF COLECT,/,3X,2HID,3X,4HPORT,3X,4HTIME/)(20X,15HUSERS OF COLECT,/,10X,2HID,5X,4HPORT,5X,4HTIME) (2X,2A2,3X,I4,4X,A2,1H:,A2) (9X,2A2,5X,I4,6X,A2,1H:,A2) (5X,5HUSER ,A2,A2,10H NOT FOUND)T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuXhKJhAHFv" c h8"5T#39cT|h.h;X7H&8%#T $h$h`  T~T  TF T)T 4h255؈ȇXh&ڨ*IhTTzғӓp=H ' &eh @ȫTȨXȞ Tȡ`><Ȓ T&   3nD4H T` d'T" T`T&T%%%%&%%%%% h3HHdhdDhhdYTFKhh hHL8@ hk"T2hT- h~"  b hvTK PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌT5TD `h Dh XX\\ TaH #h! T~T hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT`  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T~T aH> 3 DH-j+̾Ⱥ(j'% hȲDhT`̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX T-HX TL `u HehdhgXlXvhb"aT#ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+j hgh n ;ln  H T` + ȋXh؆1   HhH㞚  T~T hhhhd0hhuXh̺ (BD' n&ȫdȫ  hJIEhE h h  hh h8H60T"X[X h%`" "h*hTz T h hhh ll X# Xhh@4i` Xj T~T Cr q d Y hUDhT XHXhNX~hXuh:a62Hl20X), H,)H& XXUh a&hh۸nX X h H   HThhh=@ T& XT%T\ XFDh5TFh120-3 T~*(%!T" TF \T -TO \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" T#+T"X% hT\H `CT T&@ TFhT"h XX T"T5 2X X' h$  X0X XzШ Xhˠ T~ T5 H= X H8X H0hTmX*@) e\TJ   hTHcSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh ḷ l !& !/ l 9!/̫ !+̧ h$l !(E l 5TZ l̻ ̵dl\gTmT*v  0l\\ ldd d :\͟  ld 9!. !* hĈl̨ l 3\    d !T  l F7̣ 4̠ l̜  0lTmT*v d d!ldd"d#d$ d f 1TZ E l   l  l \ݟFl $ lLd%d&l,lLlll ̲ l,܌lLlެll,Ќl'd (l ̓ l TZ B > : 6  93 % # $ l 95 2v  0lo  dF d lX̺ ̷  ̯  EdE l D\̠ ̜  d"  9! ! d!$l c" l TZ  0l ḏ k3 dl՜$lFdddddd D llddl TRŞ̻    l  dldldl dT ş l\Ɵ l\ǟṊl TŞ  ̚dl̛dl l\՞ş l\ОƟ)G" < ) EHp d; dl\E ! !lHdlTZ̘l\ l\ l  Hll\ˬl d, l ddd d n 1 d- +dd" dT  l\̗  l\d dd ʤ/d.  -lܺdldl dl TTdS  3pD\ l  -ldlld0 d1 /̼d2 d3$l,ld4&lLd%llLld5߬l,l,ތl,l,l  ,Llجٌl̶d6lLlͬlڌlLd7Ԭlܦf ̜ !̗ !F d8  d n 1"  l 7 -ldlG  Ԝl Όl d1 !Y 1TΫ n !M̷ d9̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dn 1 l 0n 1 d 0n 1 dG  F,dEl" Ô l̿ !i̻  l̶8TZ l \ ld- dl !  0ṉh\INܫ l̹ l\̟+̳ l  2\̥ l 2h\1 lE l 2\: lF, !d  d 8TZ l \ l\\+ l  ̳h\Xܭ l \֟* l\џ)\ϟ" d; d<+ 9!" 8 % l\ܨ 1P\\J\\Ddd7 d0d6ld d l`p=l  lܹ 0f.lۜll 1  +d d,lT ;l;/d. dl -l l l9  l 0dEd= !#  l5TZܘ \ lڜ9 h\ lӜ4\: d\;̨ld7 d0d6d8l *l y̬ l̩d> ,\̤ l ! l l윳4\ܯm l9`p5d%l 0e 4 n ḽḷl 1 l l  1 Ed= " l +TZ l ! d " ll 8̽h\ܷ " l  l\џ̥ l !\ş̶ l !b@aH^H[TT#hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShAl T;` h/&hHgaV`H _H H M A cTXFRXB H H\wwT;ww'y=:\اw)w'y/  HI&Aa%acAD aa h h HR E l H T;Ժ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT; HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T  hh H'uhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``̙h  3qDp` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T;"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\BB\B9B@T:\ B9<9BTԬB9BB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR rx H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT HsLoAAd]4HPORT,3X,4H!|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhh9uhi f[G ߂M^@BPCE}GN HJzLLK@H ^bb@`TFhT"h XX T"T5 2X X X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T(a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i   3rD& DELQMST UTIFIL COSIGNER ADDACT  INACCT  ACCAGE RSWFIL TRANFL TRNBCK UPDPRINT UPDINPUT \  3sDACCT  ACCAGE RSWFIL TRANFL TRNBCK UPDPRINT UPDINPUT PBINASCP8PKUP 8PREPP B000000000000- ACCOUNT ALREADY IN ACCAGE wkYw2e_M#&)2;D CO HOST HDR1UPDY000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 <-- HDR1 FROM UTILITY FILE GOES HERE --> <-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE UPDATE REPORT PAGE <-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE-> TRAN ACCOUNT BORROWERS DELINQUENT DELINQUENT CURRENT CODE NUMBER NAME DATE AMOUNT PAYOFF ACTION 301 302 303 0000000001 010360 #(7BPR`TTdT T9TTT<>+<>00 \<>)<>0  \<>'<>0 'T\ T ! 1TH J /\ lT02=֞<֞-<>0̶  TD\2=֞<֞<\盍W TTT`TT !! ̻ '\ G /T\Ǜ71 T\\\\ ! ̝ &\ J /\\T\\\T ! 'TH J /\\9H/Te+//0*gd*hd*fdT<= /T  \ .\> /\ d\֕Z &\ؕZ> /\\ɑ &\˕ > /\\i8 ̽ &\8> /\\Gj ̰ &\j> /\\y ̣ &\> /\\ ̖ &\> /\T (TH> /T  3tD$7 #\' &\ꗆ> /\\ۗ .٤ \ؗ> /\ d d3T2H ¤ ̽ ̸ &\ZH /\ B,hT2@R=RI 1\ӕ2J ̖   (THZH /T54Hh/Tו4$E)dT@K\Ɯ@ ٬ լ  &\֖H /\   dH . h P( hT  Ty> hT hT lHh T 1' THI /T dThjTTh  l TTh;H * TOTALS * * P R E V I O U S * ACCOUNTS NUMBER AMT DELQ PAYOFF AMT DELQ PAYOFF ADDED REACTIVATED UPDATED RELEASED SATISFIED WRITTENOFF REJECTED 5 Bl dTBA\?֞=>\󜈞?=>\휔?=>\眠?ݞ=>\᜚?!=>\ۜR?e=>\՜X?=>\ϜL?=>\ɜ?)<>\Üv?m<>\|?<>\p?<>\?0<>\d?t<>\j?<>\^?<> d\ D,phT 1H"? T t \i R \G \y \ߖ \ח 2 \ϗ'   \×  \ Ǩ \ %  \ Ty?Tf+HT?K@Ɯ>\ƜDƜD\ƜDƜD\! ?Ɯ? $h\<>Ɯ>T!DƜD\!DƜD\! ?Ɯ?ހhTTƞ< (THF /TH  3uDIDLE *#MASKT ELIBET oPGMIN eMMREL _SPACE PSABS lQECORE nRDISP iIDRCP1REDUC }HXDC TK7RW FMPA10+FMPA11CTRANV oXMATR 1FMPA14qSPASW oRFMPA16FMPA17FMPA18SPACE4noPTPDT0FMPL10MTBFS0MTBFS1 CDWSUB |{CWSEC1BUSY FMPL16UCTABLFMPL18FSELFLGMAXCOPVLOBDTBDISABLABSREDsBATCLUoFMPFLGSKALNDJBCNCLp UNPIOFooLRTABLHCLRTDAlBPGMINTeTSULBF[ SYFAILCSTATSFMEXECrOFNSWP^IDUMMYRESTORbBFWRIT4CNTTBL*xCOMPRQoONNSWP^~TS !kk@Ekkqqww     (T (THԞF /T &̞ l \Ȭ͝Xқ\\͝Xӛ\\җ= &\ԗԞF /\̥ \Xԛ\\< ̺ &\ԞF /\TXH TThhh4WRITEOFF RELEASE SATISFY ADD UPDATE REACTIVATE REJECT - ACCOUNT NOT ACTIVE FOR 30X REJECT - NO ACCOUNT FOR 30X CODE REJECT - INVALID TRANSACTION CODE ,,hT?>\?KDK 1? # )\!POP \טPOP % !T<<\=>\=> \<<\=> HTThAT?K_?:#@'="0ABCDEFGHI}JKLMNOPQRSTUVWXYZ0123456789@Z{[lP}M]\Nk`Kaz^L~no|J_'OmHh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i  DH%h$"h Hh*p @ 8 0 0Fh `&`H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @Hh"h H  F` 4@HX H{hy HXXXXҘ1O à hR & h( h !2f#2  |2" vAfwAw r"#2#2_]c`J  3wD_R^YRANS"#2D#2 hKXh X A ,#)$h/v@@" T}7 ""  (h  hh( h 0F FԸߠ % hh¼Š  (h 0Fȷ hȲá Ȧ ` ` 0Hȟhș 8 ÌH 0F| unt teX`f""H"  h"""! 1 hT\T 0@P`p#$""H h hTF 9 -099/99/9999999.999/999-9999-99-9999 /"+ "&h h hh!+ΈhTθۘ  hT޷h\h\ػػӰ V hȝ!∭h\Ȩ ׈h\ͷɸ؜Έh\Ș 1 I8 l\ \˷\ɷ \˷ l\\ʷ#H TTh\h\hhhhhhhhhhh\hu\hp> FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- TθTX ! ! , h\Ϲ Kh \ݸ 9hTea  HTTh\h\h\hH h HX  sD  1  : E /` `"i =UTIFIL  UTILITY FILE MODIFICATION PROGRAM IN ENTER "UPD" TO ADD/UPDATE, "DEL" TO DELETE, OR CARRIAGE RETURN TO EXIT INVALID REQUEST ENTER KEY OF RECORD TO XXXXXXXXXX RECORD -XXXX- NOT FOR ADDITION, DELETION, OR UPDATE THRU THIS PROGRAM RECORD -XXXX- IS REQUIRED, CANNOT BE DELETED RECORD -XXXX- DOES NOT EXIST, CANNOT BE DELETED RECORD -XXXX- ADDED SUCCESSFULLY RECORD -XXXX- DELETED SUCCESSFULLY RECORD -XXXX- UPDATED SUCCESSFULLY UPD DEL ADD/UPDATEDELETE ** COIDHDR1HDR2HDR3RSW1ACTCRESCSALCDALTSMTHTMTHUPDYOLPMLTRFRPTGLTR1LTR2HOST** NAME ISPHONE EXT CSUP QUEUES... ---------------------------------------- R---,S---,W--- CODE1 CODE2 CODE3 CODE4 CODE5 CODE6 CODE7 CODE8 CODE9 ---,QUE =---,QUE =---,QUE =---,QUE =---,QUE =---,QUE =--- --- RL--,P--,C--,NA- N------------------------- !;  3xD *J &04LPN$4Te'(TO) "Tea*X+\*Y,d?d@\璒*n-*?. A  d , h   1\*0 , hT(121̹dTdU\*3*T/̺  d4    l d1 l4 1ddTea*-p  ̮ḓd\䒒*՗5U̝dV̜dWT=*V))  " ;  TdUd\*6T7*) " dd\*3 d̳Ü ̮  lT,7̿d*d+ L4& d&Tp&7f.7Tea*f8 dR\󒒗*,9*?7 e ` d'!T?'( [(8 5T(',̝ T9*)) !;Td1Ud2\*,3zT?*T) !d d \*:_ l l l l lTƑ()k;llUSE LEND nwRESET FILE1 pIFALT IPACK JPRET *MP1234lBSMD4 K65T10BUFF 6K65T12MIBUF oIPROC li  3zE$Q8QUN3=NUMLU !MEOUT NXUM 1RJPRET1p"CARDRDl'Q8QINI8MESAGE2Q8DFINGETFCBJLGOV4?Q8QENSSMDCPAFQ8QWNDU2INITFMUFCBw3SMDCPGZVOLENDOUTPV4TERESPLUNAMEONTIME1kUTHEADMICSECDENXUC^8EFCOVL#6JPRENp#ABSPARuvCUPDRECEXPIREZ%USKNPGTSWSEC_HDENXUM^TSCKPM`@EFSTORSMTSIMUNPTBL`EXTREGh%COMREQfCOMSEQzrEMPSRT*MSYSDAY01SWAPARQIN PRO mASC ikRW kPIDR56 L18326JPT13 1SPL4 GETCH SAVLU kbSEEK9 CPTBL ,!CPADD hDAYTO *kM1811TISMD #CPCHK h|MMALC _CLINE ALVOL mOPENF }3FLIST *uaPORTS AUTON PWFOV moSPCEV4SETBNDh9CWLGT0 DWCWLGT1(CCSMVAPCNWAREJLLUV4*STLPV4nELLNDISBLIKDUM}yJOBINDoFIXONESMDACPeWRTBAKyCPTBLNTSCLLB`8INCRECjTSLCUPekTSVFTN`!aJOBENTCLRINTrVTSXERRfhSYSCOP~DELQMST WOEF  ANSWER (1 OR 2) ENTER AS-OF-DATE (MMDDYY) ENTER NUMBER OF DAYS DELINQUENT (NNN) ENTER WRITE-OFFS SINCE DATE (MMDDYY) ANSWER (1,2,OR 3) ARE SUBTOTALS DESIRED (YES/NO) RECORD COUNT--R RECORDS 000000000000 RECORD COUNT--S RECORDS 000000000000 RECORD COUNT--W RECORDS 000000000000 RECORD COUNT--OTHER RECORDS 000000000000  CHOOSE ONE OF THE FOLLOWING REPORTS: 1) ELIGIBLE FOR WRITE-OFF REPORT 2) ACTUAL WRITE-OFF REPORT  CHOOSE ONE OF THE FOLLOWING WAYS TO PRINT THE WRITE-OFF REPORT: 1) PRINT THE REPORT BY ACCOUNT TYPE, QUEUE ASSIGNED 2) PRINT THE REPORT BY QUEUE ASSIGNED, ACCOUNT TYPE 3) PRINT THE REPORT BY STRAIGHT LIST &("*000B<:,p  2kmxX^Y pq! .Teȿ g*gd*hd*fdTVh^hTeag\z\ d\ Hd 2! !d_  d \  Ti  !\ d l\ߟ  \  !TV lQ ldTeaʟ !̘   d"T"n## !\";# ! 1Hl$ȌlH%l&lT\'\(\ޟ)\* l\+̾ ̺H d ! ! 3 ldTea!̛ T!l!## \,<,#  dX l ̽  1d` ̴  2l̯  3l ̧  4l ̟  5lTp@-- (T@!-g\O- '\񝣟!-g d_ Tב.Tup-Ӥ/L̤ *\ȝ@0-` d~~1  3{E8d= d1" $3d2 $5d46L h d"7h`T瑈V"## S 1Մ9hITVd8 !AȌh=T'T!h1\ .$:d !"Tםg;\ g<TǑ\Ց=!g>!dIddld[1l L:\ʑ.Tup--/L *T@?-` l~d= l" $3d2 $5d46L s7hT瑈V## X dڄAhTVd@ !H͌dT'"$ 84 !. $:l՜ !Tםg;\Ց g<\Αn!g>!dsdId|l1j L9 d"/4dC$h`h $h\Cg 1` 6  ׄDdT'=gE=ʄFl\=gG=̾l\鑈=gE=̴l\ߑ=gG=\ؑ_,gH\ё`,gIT{Og-- (TB-`C d"47lT瑈V"##  1TD>>! \DYY \DJJ J\ޑDPP !l\"n# #T'"ܥ *1 !l\$"n#̦ %\$"܋ *"1 !lT:"n## !\ȑ:" *1 !l\P"n# \P" *1 d1\ʑJ1n# \J1 1 l\P1n#̲ T'P1 1 l\Y1n#̘ \Y1ܹ 1 lT>1n## \ˑ>1ܞ 1\JKJK\PK$JK\YK:JK\>KPJKTea*\$*\:*\PLTp-\O-Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`XD a#ia a a a a"a !RA aXAX' a# a a a a aXbRdQ" f""Hh HX  }hH 9 " :  0n  d 0fhIIccZY TR NhQHQ 9 " :  0A  d 09hLL44- L  5`2h4 `"i H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @Hh"h H  F` 4@ FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T'ET=B ! ! , h\F|}| Kh \ݧ 9hTea~HTTh\h\h\hh Hq``X`HX " hHhB4 "c" aaaaa `!W a! a"X~a a! a"X    8 4 0a a* "X 9"Xa "X Fρ" aA Fρa1BXaADdRAa aafRda -a0F 0ac 2 .a `93  3|ELac a aA `! aa a( a .a 0a!D Q" !yR *a aa A a! a"X a! a"X#45h h` XcH`H_"4` " "aXaX ahh`XPqa aa a a a a a! a"XSa"  6 9! T d  a a! a"Xw   `  `  aXaaXb" a   a! a"XD  aaXI'bdRQ"X7; aX3 aX+  "XaXs  "XaX XaXXnf" #"Xgf" a# a a A aA aA  X/Xk" a a A aA   a  aXX!"a A a` !RAXaS aXnK aXfC  "XaX6  "XzaX)a#"X"a` aXu aX#"X XQaXN aa  "XA a! a"X- a az a a a p a_a( a! a"X ^aX,X1 aA a a! a"X a! a"X a! a"X2a a Da  a  a  a! a"Xt 3 ! a! a"X H h HX  sD  1  : E /` `"i #y a%X^H!""" A#*   "!"XB# a1rX8""  "!f" !" f""" f" "Ya""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X~"  !T 9!a Fa a! a"X a a! a"Xf a! a"X a a! a"3X6Xh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX@TX -`" ` c1Xd 2QTqX c1XT[Zd@X #  a` aܐ!XdTYD]@X:X a Ea a! a"Xa a! a"X a  +a `"d` 5 aX  aaXa `aBP@@` ``TBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa  `a` ` `X,8A"C  x&LpsX;a*  3}E`XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`ph$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTenh ]xwϦ T&......4DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4݈  3~Et` aADe+aa AA a a Vh`Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L@ QGN@W^D"D"D"D""D(" @ Z $  $  $  Z  ((̥P)@ Hץ`)@ Hp)@ H)@ H)@ H   x1@(8F@@@8xň}}-!   x1@(87@zBB:5   x1@((aB@@ x18 @8 (@@88@@8h 0@1@ aapaap)aap3aap=aapGG @1@ 8<@@@8Z\\\@Z @1@ 8<@@@8Z\\\@Z`18A\\\@@@@\\\A @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ .b  ;""#####'#@#^#b#f#j#n#r'#'#'#hHd`h!E"4 h|hX[hhdhcd h] h\ǐhhW FhV S@MTN hL hLHhI߸FhFD=ChB;hA>A15 4h2TX3TXʐhh" @$T hh $@ D  h TX hh hyӠ"=hhǐhhTh Tؿȷ/ @ TȶT @T ON OFF&07?GNWcmortwz|éƩɩ̩ϩҩINPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. OVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WRITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTPUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CHAIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.Hh /hhX TL$ TLHVhV hUHRSQQ(1L#5hIH hH DhF = =;h9h750Th1+ Th (2<FPZopz011020304050607080901PL0LRH1OAOVU1MRh,H, h&H% H$h$!H"h"H* h!d #hXXXX&" !   )A"TZ"hHH" fAh$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTej:NhDCD  3E  T&...... '' 4CALL' *B 'STRACE' *B 'COLCHG' *B 'R9ELOC' *T *K,I8 *N,COLCHG,,,B *K,I6 *Z *V #T_ h h  hDhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`a"a XHh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L,3)@@@@ q..$//N$//N/$//N? cq /   !!! ! ( ( ٚ  X @(8E}@@@8M8xň}} X /@(8;@DD X ?@((  X 8 z@@**@  X 8@8<@`8O@8r@rE@ H 28<8< 8 >@ _@  \@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ i '           ' hhdhcd h] h\RhhW FhV S@MT/N hL hLHhI߸FhFD=ChB;hA>A15 4h2T㜉Q3TcXUhh" @$T hh $Q@ D  h QTcX hh hyӠ"=hhRhhT'h T+ؿȷ/ \@ TQQȶTc E@TQ ON OFFu~ʝҝٝ !$'*-0369>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L? ?> >  H=H=@A@BACA BH= BH= CH= CH=O =(= !c!c(<_ < < zz/8 z ;DP;DH;DH; ;&(;&x;qER18 \\\\\98%@@8+@811A 1@4) 8J@@ 8P @8V8K@@8T8xňE}}RF1@5)8D@zMM\W1@6))|a41@)8 A@-U8va@.41@8?@aap,R8 r@aap*Χ41@ 8G@@P@K ``p$T8U`@%Y8n@+41@!8?K@@&ff41@"@#8GK@@P@K ``p'T8U`@(YY6 418 @@@8"@@@8 1`8K\\\\\@@@@\\\\\K[;41 aat D  D  D D - Dmm`41 /aat /D  /D  /D /D - /Dmm41 ?aat ?D  ?D  ?D ?D -   3F?Dmmʨ41 Oaat OD  OD  OD OD - ODmm 418+\\\\\\\\\\\\\\\\\\\\\\\\8C\\\\\\\\\\\\\\\\\\\\\\\\8[\\\\\\\\\\\\\\\\\\\\\\\\8p\\\\\\\\\\\\\\\\\\\\\p@1@418 @@ 84@@@@918+\\\\\\\\\\\\\\\\\\\\\\\\8C\\\\\\\\\\\\\\\\\\\\\\\\8[\\\\\\\\\\\\\\\\\\\\\\\\8p\\\\\\\\\\\\\\\\\\\\\p}x`1@`1@ 186\\\\\8O@@z7V8\\\\\\\`1@`1@ 1/8\\\@@@/8/@`@@\\\ /8O`@@@@`O)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@**@@@@@@@@*@@@@@@@@+@@@@@@@@+@@@@@@@@@@@@@@@@+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@,@@@,@@@@@@`@kk@@@@@@@@@@@@@@@`@@k@k@@@@@@@@@@@@@@@@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@`@@-@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@. @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ln ( R) G)h *Ԡ* * + + + 7, , ;- - - - .......'.D.T.X.h.....ۀ ../ / / ////#)/()/-;/i/l/o/p/r'/'/'////////000 00$0(00hHd`h!E"4 h|hX[hhdhcd h] h\FhhW FhV S@MT#N hL hLHhI߸FhFD=ChB;hA>A15 4h2T׮}E3TWXIhh" @$Tz hh $E@ D  h ETWX hh hyӠ"=hhFhhTh Tؿȷ/ P@ TEEȶTW 9@TE ON OFFir|Ưͯ֯ !$'*-0369>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.LPUTRECwGETNXTyLOCKFL{FSHARE{GETZ }UPREC }SMDCPSL2NBRLINTENDQUELBINHEXLUNQUE LINEUPLNDOWNPUT INITZEZCTERMLCPADDR)CEFDTA"CMREQT6CTRMNLIPTAM2^KPTAM2PTERORPTREADDECREC>PTADDRyPTALRMPTMOVEPTSUBRRECPUTY=DBATOUBOPENFwOPBATFBGETS BUPREC BTIMERLJOBSTR)AMINTXDTMER DTIMERTMINT ~TIMEUPLDEVERRuALTDEVuGETLOSsCSMD u_E18331 EGHOSTB20 XSMD \SEKCHKSETFNS)SEKCOMFJSEKINPECKOVRLCLRDASxQCLRSTSrDASTATDRICHKMSBLSBSMDSTSSMDCHSFFILBFFILSMDSMDGCUHSMDRDRLTOFDR_MPDVCK7ICONSLyEDUMMYBUFFE SYSMON08LIBEDTLOADSDxJOBPROPROTECJPLOAD#JCRDV48JPSTV4FRCOVERiBRKPT pSYSSEG0MIPRO MNTCHKDISMNT5AUTOBTKICKOFRCALLCPCPLOOKTTRMLUPTAPSETRESLABSMDCFGCPAREASTRBASMSIZV4MAXSECkSYSID tUBPROTLBPROTdUPBDTBINTSTKYVOLBLK^SCHLNGxMT25U1kTERMLU+ALTERRiDGNTABDUMALTLSTOUT STDINP BATLST*BATINP PCORE \PCONSL5MIINP ETK7WEFTK7DATMICSUB"sSEVENTSEVNRDCPTRAC PCCP1 CALTHD N4 N5 N6 N8 N10 N11 N12 N13 6N15 HWINITSIMRSVLSTLOCTSAREARDPTV4PTNALCFMRDEL^FMEOFC_FMMOSU FMMOIU gFMNRCDUCTLENMAXLOCFMMOSFFMFCBS!FMMOIFFMFCBI#1FSCTNE&FCBSCT&FSLEND(XMMLUTB(DPCTABL)BIDLER *(INSTLUIDLCTR*-TMRTYP*ITMCODEFSTIME*PDMICOD*KTBLADR*LEMPSTP*NCGHOST*dADAYTO*hMONTO *jHORTO *lSECON *nCONTA *oHORMIN*p TIMCPS<TODLVLPNSCHED*rTMRLVLLSIZV4CPSIZV4ODBSIZvCHRSFG*s)COBOPS|bQ8STP *vNDISP MICSB2*FBASV4PKEYV4RELFILDUMPOT+ACPTBE+&TSPAGE,CPTBLZNUMCP XXMAT 0NXUC 1NNSWP 1VTSQPRIPROMTR>BAITOSDATSEP/TSTLOC1ZPRTCDR1\:R9TAPF1_?R9SEGF1_LRGUSR1aRQLLIM1bRQULIM1cRETIME1iFILOAD1n]QPASWD1oWKSTAT1sRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX33TSPORT1TSPEND7TSUEND@?@@DA@B@C/@DM@Ek@F@GDH@I@J@K@L@M@N@ODP@Q@R@SDT@UDV@W@XDY@Z@["@\'D]+@^1@_@`@a@b@c@d0@eDDfIDgODhXDi^DjdDkjDlpDmvDnDoDpDqDrDs@tDu@v@w@xDyDzD{@|D}D~DD@ D>@DDNDWD`DiDrDxD~D?F@@ .$ N $ N/ $ N? .  SQRVTU WX   < <   : GQ OR : S T )U ,V 5W 8"  3FxX :      =   VN  VN/  VN?  V/NO  V?N_  VONo  V_N  VoN  VN  VN  VN  VN/  VN?  V/NO  V?N_  VONo  V_N  VoN  VN  VN  VN  VN/  VN?  V/NO  V?N_  VONo  V_N  VoN  VN  VN  .. FFzb\!1ixsD!@<~ A @ )8C@8L8 gz@;l8ňA /@ )8=@ FF˭A ?@ )) A8 8 '81898G@8P8f@@8q8vK8 @Q A8 K8 (@K81K8;8F8P8Y8g8o8v8 @@yV A@@@S*@v1@w;mHaapkRaapf\gh@UoHuvr~@A8@B08B@HAD8 b@@Kή A8 @@C08F@@K ``pTR8 `K@@L A8 @@D08CK@@HsE8 caa@Mz@NJ A8 aa@E&@F08 >@z Q ``pHK Q8L`@JPQ@IM8d@z R ``pPr R8s`@RwR@QtwsO A8 @8@@68@J8 b@@z@mmx@A8 88 "@8+818 @@8 N@8d@@@bﯷ A8888 "@@@@8*828>@8 N@8d@@@c" AaapV @W@xHyHzH{"@^(@X1aap~>N8 `aa@dz@eq'@A8 88 +@8 9@8 E8N8e\@\@@@@@@@@8@@@@@@@@@@@8\@\v A8 88 +@868BKK8P@P An oaapp'q9@ZBaapP@|@A88@88*@838@8 S\@\@\@\@\@\8f@@@@@@@@8 w@@@@@@8 \@\@\@\@\@\0 A8888)@838 C@@__5 Aaaph aapiaaplaapj*@\3aap]A@`id A@a{n@A8@ A8@@@@@ A aap A aap A aap@PA8@@@@@@@@8@@@8 ,@@@@@8 <@@@@@@8T@@@@a@@@@@8[@@8o@@@@@@@@@8@@@K@@@@@@F PA@@?@UH[ S```pnS@k T```pT@!zL PA@$@%?@&UH'[ U```p(nU@*k V```p+V@- PA@0@1?@2UH3[ W```p4nW@6k X```p7X@9ڲ A @ )8K@8 g@;l8ňA /@ )8?@ HHA ?@ ))I A8 8#8+838;8F8W\@\@\@\@\@\@\@\8o@@@@@@@@@@@@@@8\@\@\@\@\@\@\@\@\@\kO A8 K8!8*828:8DK@KDq dA@ @ 8a /@ 8e  3F!a ?@ # O@ ) _@ 1 o@ 9 @ A @ C@ dA8 8 @K@:-8 9@@9`A8K\\\\@@@@\\\\K=2@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d ?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Ls P< =< ?$ ?d '?܀????O@6@7@F@V@W@X@Y@w@@@@@ @À@@ @ڀ@ۀ@@AA,A/A7A8 AFANAO A]A^A_A}AAAAA AɀAA AAAABBBB%B&BDBbBBBB B BBBBBCC C CCC( C-C1C5C9C:C;C?CDCHCLCMCkCCCCCCD)DD D DDD)D)D#)D(D,)D1)D6D7D?DADFDNDRDTDVDX'DDD)DDDD D)D)Dŀ)Dʀ)DπDӀD׀DۀD'EE E EE/hHd`h!E"4 h|hX[hhdhcd h] h\]hhW FhV S@MT:N hL hLHhI߸FhFD=ChB;hA>A15 4h2T\3TnX`hh" @$T hh $\@ D  h \TnX hh hyӠ"=hh]hhT2h T6ؿȷ/ g@ T\\ȶTn P@T\ ON OFFƺͺպݺ  #&),/258;>ADGJMPSVY\_behk `h0H.h.H'h&-h,h,h,X-!hTeS!KINPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. OVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WRITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OU  3FTPUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CHAIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.Hh /hhX TL$ TLHVhV hUHRSQQ(1L#5hIH hH DhF = =;h9h750T%h1+ T%h (2<FPZopz011020304050607080901PL0LRH1OAOVU1MRh,H, h&H% H$h$!H"h"H* h!d #hXXXX&" !   )A"TZ["hHH" fAHuX5 H,h* HjXLXXXc hd 'jb PALGO"#2@2 hGh X A ,#)$h.h@@" T ""  (h Y9CARAREQXT iR9MUX1R9RCAD-Y9IBUF>R9MUX4P Ǡ#"2X"2Ȱ h hh( h 0Fȼ&  x&dhwu Ggb# gY ` ` 0H_V Q JX`D"h+* h%h%$h!-Hhhhh1h  h @h$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTeĚ hHd T&......4DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`Hh j qhkK[\`@Nal@@  3F |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.LA15 4h2T/3TXhh" @$T hh $@ D  h TX Yhh hyӠ"=hhhhTsh Twؿȷ/ @ TȶT @T ON OFFʛԛܛ%.:DFIKNQSVY[^adgjmpsvy|INPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. OVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WRITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTPUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CHAIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.Hh /hhX TL$ TLHVhV hUHRSQQ(1L#5hIH hH DhF = =;h9h750Tfh1+   3FTfh (2<FPZopz011020304050607080901PL0LRH1OAOVU1MRh,H, h&H% H$h$!H"h"H* h!d #hXXXX&" !   )A"TZ"hHH" fAh$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe*h園 ⚓CȚ T&......4DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L @ B H N P R T rO  '  ODHJLNThHd`h!E"4 h|hX[hhdhcd h] h\hhW FhV S@MTN hL hLHhI߸FhFD=ChB;hA>A15 4h2T93TXhh" @$T6 hh $@ D  h TX hh hyӠ"=hhhhTh Tؿȷ/  @ TȶT @T ON OFF%.8@IPXakrzžŞȞ˞ΞўԞמڞݞ INPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. OVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WRITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTPUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CHAIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.Hh /hhX TL)$ TL5+HVhV hUHRSQQK  3F(1L#5hIH hH DhF = =;h9h750Tʕh1+ Tʕh (2<FPZopz011020304050607080901PL0LRH1OAOVU1MRh,H, h&H% H$h$!H"h"H* h!d #hXXXX&" !   )A"TZ"hHH" fAh$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTehV ơ} T&}......4DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L ? @ A B C D EfE 7E 7 72  3G 7 7Ef/E 8EEf?E 9EEfOE :EEf_E ;EEfoE <EEfE >EEfE ?EEfE @EEfE AEEf/E BEEf?E CEEfOE DEf_E FE F 423756:89=;<@>?FA(G 7 7 72  8   FF 0GGGG FG3FG3FGFG FG  4  0GG4GG    955 95555  :66 :6666 G9H:IH G I7777 F ;FF ;FF ;FF8F8 F@ FFG >GGF >GGF ;G ;FG; V ? (J JQ/ JR? JSO JT_ JUQKARKBSKCTKDU 8  0 (2(4(3(5(6 6((6L2(L4(L3ML(M5(6 6([swß{vu/a}۠*>snT0)@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DN8P@Pd0)@!P@7PP2D)@8@9 @:@;@<@=@>@?0@@6@A<@BB@CH@DN8P@PD7 1 @(8qňNvvXI1 /@(8q@Հ {{d]1 ?@((i188?@@@@8W@@@W188 #@@8c@@@@@@@@@@@@@8u@@@@@@u18@@@@8 #@@8 8@@8b@@@@@@8t@@@@tDTdt1@8@9 @:@;@<@>"@?K@@S@AZ@Ba@Ch@Do@"@# @$@%@&@("@)K@+S@,Z@-a@.h@/o@7s28 @@38 @@@@48 @@@58 @@68 @@@78 @@@88 @@98 @@:8 @@;8 @@@=8 @@@>8 @@@?8 @@@@8 @@@A8 @@@@18@@@2184#1833(18@@LC8185H18@@M,@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"@@@@@@@@k@@@k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@k`k`k`k@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@{@@@@M]@@`@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@ߐ  3G,@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M]@@@@@@@@@@@@@@@@@@@``@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@ Lv= 'X O J#####O#n#r'#O#########$$9$?$E$K$Q$WO$$$$$$$$$$$%%% %%%%%%!%$%&%'%-%1%5%6%7%8%9%W%]%c%i%o%uO%%ǀ%ʀ%̀%Ѐ%%׀%ڀ%݁hHd`h!E"4 h|hX[hhdhcd h] h\.hhW FhV S@MT N hL hLHhI߸FhFD=ChB;hA>A15 4h2Te-3T?X1hh" @$Tb hh $-@ D  h -T?X hh hyӠ"=hh.hhTh Tؿȷ/ 8@ T--ȶT? !@T- ON OFFQZdlu|ʪԪ֪٪۪ު !$'*-0369<@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@INPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. OVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WRITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTPUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CHAIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.Hh /hhX TLU$ TLaWHVhV hUHRSQQ(1L#5hIH hH DhF = =;h9h750Th1+ Th (2<FPZopz011020304050607080901PL0LRH1OAOVU1MRh,H, h&H% H$h$!H"h"H* h!d #hXXXX&" !   )A"TZ,"hHH" fAh$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTeϜRf_h㟊\YY[ޛ/{ڞݞܞ Z T&...... '' 4CALL' *B 'STRACE' *B 'TIMUSE' *B 'R9ELOC' *T *K,I8 *N,TIMUSE,,,B *K,I6 *Z *V   3G@#T_ h h  hDhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`a"a XHh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L@ ??>?<=% (%& (& '& % '22'((') '**)2 (++ ,+, ,(((FFG,,Gr) (r-r-)r(r.$r$r .r .lcdH HHpd@,H HH@$!8 `@@zp-&& $!8.&&   x $ !@!((۝   x $ !@"(8K@@8yň/~~   x $ !@#(8A@zJJ@@ x@$ !8 z@ @%%C@@ x@$ !888!8&8/858:8@@|P   x $ !888!8&8/858:8@8II !q@ 2 >zp = >zp 2zp!2zp*&aap/@5@:@@@~~`!8F\\\@@@@\\\F @@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ iw   7VZ[^ad''''"%(,.17>AD@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@ i}t 0468;=?BDJLNP7'Ҁ''&'NQTWZ^`cipsvhHd`h!E"4 h|hX[hhdhcd h] h\?hhW FhV S@MTN hL hLHhI߸FhFD=ChB;hA>A15 4h2TСv>3TPXBhh" @$Ts h$  3Ghh $>@ D  h >TPX hh hyӠ"=hh?hhTh Tؿȷ/ I@ T>>ȶTP 2@T> ON OFFbku}ƢϢۢ  #&),/258;>ADGJMINPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. OVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WRITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTPUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CHAIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.Hh /hhX TLf$ TLrhHVhV hUHRSQQ(1L#5hIH hH DhF = =;h9h750Th1+ Th (2<FPZopz011020304050607080901PL0LRH1OAOVU1MRh,H, h&H% H$h$!H"h"H* h!d #hXXXX&" !   )A"TZ="hHH" fAh$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe,@8hQ6$>5= % T&...... '' 4CALL' *B 'STRACE' *B 'TRENDP' *B 'R9ELOC' *T *K,I8 *N,TRENDP,,,B *K,I6 *Z *V #T_ h h  hDhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`a"a XHh j qhkK[\`@Nal@@T]  3G| |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.L?@@@@@@@@@@: ="X)"H @Tn@BCRVZ^bdfjnrvwy{|'€ƀȀʀ̀΀Ѐҁvz|hHd`h!E"4 h|hX[ hhdhcd h] h\NhhW FhV S@MT+N hL hLHhI߸FhFD=ChB;hA>A15 4h2TߣM3T_XQhh" @$T hh $M@ D  h MT_X hh hyӠ"=hhNhhT#h T'ؿȷ/ X@ TMMȶT_ A@TM ON OFFqzƤΤդޤ  #&),/258;>ADGJMPSVY\INPUT RECORD FROM.SELECT RECORe  3GD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. OVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WRITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTPUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CHAIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.Hh /hhX TLu$ TLwHVhV hUHRSQQ(1L#5hIH hH DhF = =;h9h750Th1+ Th (2<FPZopz011020304050607080901PL0LRH1OAOVU1MRh,H, h&H% H$h$!H"h"H* h!d #hXXXX&" !   )A"TZL"hHH" fA  UPD500 REQUIRES A QSS FROM CONTROL DATA.,TeaTf+T*v   *wM% 1_ !"h X " XXA"TZ$HZTe=QhũGFݨߩܫ T&......4DhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`Hh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.LUSE LEND nwRESET FILE1 pIFALT 7IPACK JPRET *MP1234lBSMD4 K65T10BUFF 6K65T12MIBUF oIPROC lNUMLU !EOUT NXUM 1RJPRET1p"CARDRDl'MESAGE2GETFCBJLGOV4?SMDCPAFINITL1 U2INITFMUFCBw3SMDCPGZVOLENDOUTPV4TERESPLUNAMEONTIME1kMICSECDENXUC^8EFCOVL#6JPRENp#ABSPARuvCUPDRECsMEXPIREZ%USKNPGTSWSEC_HDENXUM^TSCKPM`@EFSTORSMTSIMUNPTBL`EXTREGh%COMREQfCOMSEQzrEMPSRT*MSYSDAY01SWAPARQIN PRO mASC ikRW kPIDR56 L18326JPT13 1SPL4 GETCH SAVLU kbSEEK9 CPTBL ,!CPADD hDAYTO *kM1811TISMD #CPCHK h|MMALC _CLINE ALVOL mOPENF }3FLIST *uPORTS AUTON PWFOV moCCSADDSPCEV4SETBNDh9CWLGT0 DCWLGT1(CCSMVA'CNWAREJLLUV4*STLPV4nELLNDISBLIKDUM}yJOBINDoFIXONESMDACPeWRTBAKyCPTBLNTSCLLB`8INCRECTSLCUPekTSVFTN`!aJOBENTCLRINTrVTSXERRfhSYSCOP~  3GFMBRRNwzFORMTR7T15 PTNRELqFMSWAPtySWAPONnvTSUSCPg7N7 MPDRIV N9 AYERTO*fLVLSTRUTIFIL 0 PS({PRINT " OC~@;@ D @ @DD-DNDWD`DiDrDxD~D3:@@ Z;O-LU[FFU$IIN$IIN/$IIN?IJL;; ---[;;  ;;;O;;-Z@@;@@;(;(Zȩ̩$HWH`HiHrHxH~HH T  x! @((L%T x! /@(8C@@@8W@@@@8oňtt]TT x! ?@(FFe T  x!8$828B8N8WW T  x!8$818B8MM !@ $@6CaapN@ZL8 g@O8l@@@[8q@@@@q@!8..@!8#8,, @!8",,@!8"Ĉ,,!`!8L\\\@@@@\\\L +@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@, @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ @@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Gv+ + ',4,8,:,<,>,@,B,E,U),Z,^),c),h),m),r,v,z,~,',,,,,hHd`h!E"4 h|hX[hhdhcd h] h\=hhW FhV S@MTN hL hLHhI߸FhFD=ChB;hA>A15 4h2Tάt<3TNX@hh" @$Tq hh $<@ D  h >??ppqqrrssttuuvvwwxxyy::#@ '==""R  3H{#AABBCCDDEEFFGGHHII})J$K.L@F8J@@RRț x$4 ?@(8E@zNN 4 $    x8 @@@@@@  ! "8 @@@@@@8H8V@8\8c8k8y8@l+4$ x8 @  ! "8 @88&8H8U8\8b8k8y8@aq@  " !@ @  " !@ @ @@JW\@ alzŜ``8 AK8 Y@@8n@@8 }@}8 \\8@@@@ 8@8@\\AY l!||`8 AK@8 Y@@8n@@8 }@}T# 8 \\\\8@  "8@@@@!8@@@@@@@@@8 @\\\\A"Y#l$||Y` /8\\\@@@8I\\\\@@@@\\\\I`8 AK@8 Y@@8n@@8 }@}Н8 \\8@@@@ 8@8j  3H@\\AY l!||  @(8P@@`8Q@`@8rň%ww- /@(8D@@L8>F8J@@RRC3 ?@(8E@zNNnI`Ć8 AK@8 Y@@8n@@8 }@}t Ć8 \\\\8@  "8@@@@!8@@@@@@@@@8 @\\\\A"Y#l$||@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ YV '   $%)-KO)T)Y]_c)hijl'  +++++€+ȁhHd`h!E"4 h|hX[hhdhcd h] h\ҐhhW FhV S@MTN hL hLHhI߸FhFD=ChB;hA>A15 4h2Tc 3TXՐhh" @$T hh $@ D  h TX hh hyӠ"=hhҐhhTh Tؿȷ/ @ TȶT @T ON OFF (1;BJRYbnxz}¡šȡˡΡѡԡסڡݡINPUT RECORD FROM.SELECT RECORD FROM. CONTROL BREAKS. TOTAL CALCULATION.TOTAL OUTPUT. OVERFLOW OUTPUT.GET INPUT FIELDS. DETAIL CALCULATION. DETAIL OUTPUT.PRINT RECORD ON.WRITE RECORD ON.ADD RECORD TO.UPDATE RECORD ON. LAST RECORD CALCULATION.LAST RECORD OUTPUT. ADD.Z-ADD.SUB.Z-SUB.MULT. DIV.XFOOT.SQRT. MVR.MOVE. MOVEL.MOVEA.MOVZ0.MLHZO.MHHZO.MLLZO.COMP. TESTZ.TESTN.TESTB.LOKUP.SETON.SETOF.BITON.BITOF.GOTO. EXIT. ENDSR.EXSR. CHAIN.FORCE.DSPLY.DEBUG.READ. SETLM.TIME. EXCPT.Hh /hhX TL$ TLHVhV hUHRSQQ(1L#5hIH hH DhF = =;h9h750Th1+ Th (2<FPZopz011020304050607080901PL0LRH1OAOVU1MRh,H, h&H% H$h$!H"h"H* h!d #hXXXX&" !   )A"TZ"hHH" fA** ACCAGE CCS20 ACTFIL CCS20 ACTIVE CCS20 ACTVERTBCCS20 ADDACT CCS20 AGEWRK CCS20 AVMDESC CCS20 COLSTATSCCS20 COSIGNERCCS20 DAQUE CCS20 DECTBL CCS20 DELQMST CCS20 DLYASSN CCS20 DLYWRK CCS20 INACCT CCS20 LTRDESC CCS20 LTRFIL CCS20 NEWS CCS20 PGEXTR CCS20 RPTPGM CCS20 RSWFIL CCS20 SREQDL CCS20 SUMHIST CCS20 TAPEARC CCS20 TRANFL CCS20 TRNBCK CCS20 TRNSFL CCS20 UPHSTCM CCS20 UTIFIL CCS20 ** (Te h!< (h65 1 (h+* % h n 1 (ЀhTu  -  3H0 (ÀhTQطTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- TדT ! ! , h\ؔ Kh \ݓ 9hTeaHTaToh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i ** LAACCAGELA LAAGEWRKLA LAACTFILLA LAACTIVELA LAACTVTBLA LAADDACTLA LAAVMDSCLA LACLIENTLA LACOLSTSLA LACOSIGNLA LADAQUE LA LADECTBLLA LADLQKEYLA LADLQMSTLA LADLYASNLA LADLYWRKLA LAFILTMPLA LAFINTRNLA LAINACCTLA LALTRDSCLA LALTRFILLA LAPMTFILLA LAPGEXTRLA LARPTDATLA LARPTPGMLA LARSWFILLA LASREQDLLA LASUMHSTLA LATAPARCLA LATRANFLLA LATRNBCKLA LATRNSFLLA LAUPHSCMLA LAUTIFILLA ** (Te h!< (h65 1 (h+* % h n 1 (ЀhTu  - (ÀhTQطTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- TדT ! ! , h\ؔ Kh \ݓ 9hTeaHTaToh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i  R  3HDC18331uRENAM }!DELET }6BACK +R9FDC1 BR9MVW Y9VFT1XMREL _wBREAK _CABS l.ALLIN lTRVEC oDWADD |MHLD01Y9LAHDUPTOD FMASK *tR9FFCB INPUT 3SMDGD1R9VINDY9INTAFMSAV mnY9TBIOHRENAMER9MONEwR9INIGEDELETE4R9SNHLY9HNUMR9MINSqsY9ALSQR9INRP-rR9UPOPR7SCHERRp*Y9RPTRUR9CMOVR9MUNOSNIPROCl'TIMSLC]XR9VSWTY9DTPTPTRITEEFLISTNCMPRQoY9FTNXSMDGDRNSTATSUNLOCK{CERRORAMONTO*gINVINTCLFRIOwTSPMINegWKSPLU1`T16 l.INIPRT~TSCKMU`dEXTSTK<OVFVOLmPTEOFVPTBSIZCCP +LOG bLOG1 {LOG2 MAKEQ FILE3 pMT50U0_MT50U1iS1811TgLUABS l9^NFNR o&JKIN p AUTF9 oXMMOD _R9SAVEzY9FBSENOG30An)Y9MHLDR9TFLGfR9AC2NtR9CLBGY9FSSA0R9UMTHR9HLFJ/R9TRCETSIOC1g!TSIOC2gMMREADuCKTHRDkMASERRXR9CNTR&R9MMSTwMASDRVY9EOTTTERMCKNR9JUMPRaTSTASKZY9APFXR9MRSW#ALMERRXMBLOKZTSOFFM1dWANTDRDENSWP^lONNXUC^pTSATTCePTYERRmDMPTLKCLRSKNT0 kPT1 kPBT2 kPLONNXUM^wT4 kPT6 kPLSTPRTT8 NT9 j LTSUSRPY9DSEQVPOSSPBY9ASPCY9FIPTY9KAPFY9XRTEY9ERCDR9PORTkR9EDT1tR9RPRTCR9REPT0RR9AC2SR9AC3SqR9AC1NcR9INRZ,zR9INRM.R9NFCBR9PRGDR9BYPS  R9ACAXCREATE LOKFILUPDFCBDELRECFMCALLDZR9BASEh.R9FBSEhjR9ONESkR9ZEROoR9CHARsR9BLNKtR9PLUSuR9MZERvR9CHRA{R9CHRJ}KR9INVP-R9FRCDR9XLAT~R9PFCB R9DSEQR9DMNDR9TBOT}R9BINPR9CMSTnR9DETLR9LSTRR9LABL!R9EOTTR9DOTTR9TOTT?R9PAGER9FTOVR9ZCODR9XCODR9FSTLGR9FNBGxR9ALSQ`R9CARAR9UDATR9UDAYR9ELOCTSNABLZTSACTVZTSCNACZ;TSMFLGZOFNXUC^DENXUC^TSPMCK`ZPGMIN ePGMINTeATTACHeCHAIN fTSLLSBf$TSXERRf8PGMOUTf+TSLICEfSETBNDh9CPSET h NMONI iOMONI iOT18 j T19 jjSAVLU kbRPMASKkALTSUBlT14 lWIPROC lVOLR mOFVOL mICORE mT12 nSTLPV4nESWAPCKnFINDRQo&PUNPIOFoCOMPV4p/cINPTV4oJOBINDo1TRANV oUNPIO oLIBET oRECOV oBATCLUoPRORETpJBPROEoTRNVECoUAUTFA o"AUTFB oJBCFGZpuJBCNCLp JPRET1p"COUTV4pUOLDUMPpwCOBOP qFMCOMEtFMPPROtMMWRITuLOKCHKvtREMLOKvINSLOKvFMCOVLw}FMFSRCwPUTRECwGETNXTy;MRECADz&LOCKFL{FSHARE{9CLOSF }0PUTZ }GETZ }UPREC }SMDCPGZSMDCPSLSMDACPehNBRL  3HXINTDPLENTH ENDQUELMAXQUEBINHEXLCPSENDQUEUP aUNQUE COPYQ MESAGE2LINEUPLNDOWNTERESPPUT DCLOCKINITZEZDISABLENABLEmCTERMLYCPADDR)6TCOMPLR9MUX4R9MUX5R9MUX6PBAT00 R9NINEz4READRCxY9RECPR9LBYT'R9RESTR9LBYX'COMM18 R9FRMK JBCNFGp!R9SGIXTR9PPUP3DATFMTR9MMOVY9ITLPdCKUADRuNSTACKSMDAERREADRX}PTCLRBPOSSKAPOSSKBTMRTHDR9RYST1VERIFYGCDUMMYISECTORQCOUNTETRMNLUNPTIMoN14 QMINTXUNPSRTWRITERFFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#S18326P83310 R9LEL R9MIB #FILE4 pR9MVB CPREL hUNFIX RCTV i~MINTO *mY9FDTBFMPA02XMRSV _)LPTRS p+QOUT FMPA06FMPA07FMPA08ABSADDlASAV m$R9AC3N\K65CORFMPL03vFMPL04%FMPL052Y9TBOTRELFLEFMPL08FMPL09R9CNCLDUMMY2Y9FPTLUNPENDY9FSTLRELS1AoR9FTIM@Y9FPTRR9ROOTkWTREADeaCLRACR-UNLFILSLICER`TSLMSBfPOSSPAEY9UYERSORDER*ERRMSGoSCHTOPiREAREQ\3TSCHANf"PTERCD'CLOSFLSTRLEN-TSATCH]PGLUNTeSYSLVL49RMMAMAX1COPHOSTYSETLMCLRTCU~CNTWAR*wCYLTRKGTNXUM^PTVRDYS1827 IUP oJS18273IDR60 LOG1A YP1811L YVOLA mCONCU NABS lyCPFET i,=PARBV4o@MT25U0jSWTCH pY9MARAR9LAHDCPMOD hR9ECODXMRTN _{3JBFLV4DOUT Y9HINDPARAMEl9R9INTAR9INTB,R9TBIOUSE LEND nwRESET FILE1 pJPRET *MP1234lBSMD4 yK65T10Y9KALAK65T12MIBUF oY9PAGER9OCODNUMLU !R9SGTB^%R9CHRCrNXUM 1RY9LABLCARDRDl'R9CHRI|R9CFIL*GETFCBR9RECPJLGOV4?Y9TRCESMDCPAFY9IREGR9CLINU2INITFMUFCBw3R9BRAKR9TRALVOLENDOUTPV4Y9MMSTR9UNITR9PONT2R9ITLPY9LSTRMICSECR9STTS+EFCOVL#JPRENp#ABSPARuv(UPDRECEXPIREZUSKNPGTSWSEC_2DENXUM^TSCKPM`@EFSTORSYSMSGZUNPTBL`EXTREGh%COMREQxCOMSEQzrEMPSRT*MSYSDAY01SWAPARQIN PRO mASC ikRW kPIDR56 L18326R9SBY JPT13 1SPL4 CLEAR SEEK9 CPTBL ,!CPADD hDAYTO *kM1811TISMD #CPCHK h|MMALC _CLINE ALVOL mOPENF }3R9FDTBoY9PFCBPORTS AUTON PWFOV moSPCEV4R9EDCNR9MODE R9FCTRY9UMTHMR9USNDR9SBYX+R9OTBGSJLLUV4*R9AMPR~LNDISB  3HLIKDUM}yR9HTINY9MMOVeFIXONER9USERWRTBAKyCPTBLNTSCLLB`8INCRECR9UYERTSLCUPe}TSVFTN`!iJOBENTVOLUSEOOPENFLSYSCOP~TSLSIZfP1829 MIB UFNR o&TOD R9LBY READR R9GTL TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ADEV uY9CARAREQXT iR9MUX1R9RCAD-Y9IBUF>R9MUX4R9MUX5R9MUX6PBAT00 R9NINEz/READRCxY9RECPR9LBYTR9FLDLR9RESTR9LBYXCOMM18R9FRMK JBCNFGp!R9SGIXTR9PPUP3DATFMTR9MMOVY9ITLP_CKUADRuNSTACKSMDAERREADRX}PTCLRBPOSSKAPOSSKBTMRTHDR9RYST1VERIFYBCDUMMYDSECTORQCOUNTETRMNLUNPTIMoN14 QMINTXUNPSRTWRITERAFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#S18326P83310 R9LEL R9MIB FILE4 pR9MVB CPREL hUNFIX RCTV i~MINTO *mY9FDTBFMPA02XMRSV _)LPTRS p&QOUT FMPA06FMPA07FMPA08ABSADDlASAV m$R9AC3NWK65CORFMPL03vFMPL04%FMPL052Y9TBOTRELFLEFMPL08FMPL09R9CNCL{DUMMY2Y9FPTLUNPENDY9FSTLRELS1AoR9FTIM;Y9FPTRR9ROOTpWTREADeaCLRACR(UNLFILSLICER`TSLMSBfPOSSPA@Y9UYERSORDER%ERRMSGoSCHTOPiREAREQ\3TSCHANf"PTERCD"CLOSFLSTRLEN-TSATCH]PGLUNTeSYSLVL49MMMAMAX1COPHOSTYSETLMCLRTCU~CNTWAR*wCYLTRKGTNXUM^PTVRDYS1827 IUP oES18273IDR60 INDEX FILE COPY (MAX 3000 BYTES) FILE NAME TO COPY FROM VOLUME NAME FILE NAME TO COPY TO OWNER NAME XXXXXXXX FILE COULD NOT BE LOCATED XXXXXXXX FILE NOT INDEX FILE FILE DESCRIPTION NOT THE SAME w  3HTSFMCPgDISPXXi TSMMERhCONSLUCONTCUOUTPUTn;HA mrACK REL nIP1 mMAS300IDLE *#MASKT EoR9ACX1Y9FDC1R9EDT2R9EDT3R9EDT4MMREL _SPACE PSABS lQtECORE nRDISP ijIDRCP1Y9TOP1REDUC }TK7RW FMPA10+FMPA11CR9TANFXMATR 1R9PERDmSPASW oUSE LEND nwRESET FILE1 pJPRET *MP1234lBSMD4 tK65T10Y9KALAK65T12MIBUF oY9PAGER9OCODNUMLU !R9SGTB^%R9CHRCrNXUM 1RY9LABLCARDRDl'R9CHRI|R9CFIL*GETACFWGETFCBR9RECPJLGOV4?Y9TRCESMDCPAFY9IREGR9CLINU2INITFMUFCBw3R9BRAKR9TRAL VOLENDJOUTPV4Y9MMSTR9UNITR9PONT2R9ITLPY9LSTRMICSECR9STTS+EFCOVL#JPRENp#zABSPARuv#UPDRECEXPIREZUSKNPGTSWSEC_-DENXUM^TSCKPM`@EFSTORSYSMSGZUNPTBL`EXTREGh%COMREQsCOMSEQzrEMPSRT*MSYSDAY01SWAPARDLACTVTB$$ DLDECTBL$$ DLRPTTBL$$ DLSCNDSC$$ DLSCNFIL$$ DLUTIFIL$$ ** LAACTVTBLA LADECTBLLA LARPTTBLLA LASCNDSCLA LASCNFILLA LAUTIFILLA ** ** : d & "Teƶijk^h2 h hTln[no FTlmϑm\\p϶qp\#lmm\\pqp h ffإ 1Thޑ϶sȜȖ (TǑ϶usiFTlsȆ '\siF\ۯsst '\گusiFT`޵s '\ɑ϶vsi;\es '\vsi;e 1 j 1 dwd 1 1dTxTTޑs̞y;̗z ̒ *TǑ϶{si ld| d}!e , d~ h>̤(;d M̟ ,\Dh$TƑD h\Ƶ TX Dss 1!\䶁siv h\ّƵ TZ s &\䶂sighܘ Sg\ϑppTeaiʑ?\  3Hpp\iʑ.\ϑpöp\ݶiöʑTpöp\˶iöʑ \iӶʑTf޶s\s lPTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T%&'M&T J ! ! , h\N' Kh \ݹ'' 9hTea'HTTh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i #C18331uRENAM }!DELET }6BACK +R9FDC1=R9MVW EY9VFT1XMREL _wBREAK ZCABS l)ALLIN lTRVEC oDWADD |MHLD01Y9LAHDUPTOD FMASK *tR9FFCB INPUT .SMDGD1R9VINDY9INTAAMSAV mnY9TBIORENAMER9MONEwR9INIG@DELETE4R9SNHLY9HNUMR9MINSqnY9ALSQR9INRP-mR9UPOPR2SCHERRp*Y9RPTRPR9CMOVR9MUNOSNIPROCl"TIMSLC]XR9VSWTY9DTPTPTRITEEFLISTNCMPRQoY9FTNXSMDGDRNSTATSUNLOCK{CERRORAMONTO*gINVINTCLFRIOw|TSPMINebWKSPLU1`T16 l.INIPRT~TSCKMU`dEXTSTK7OVFVOLm~PTEOFVPTBSIZCCP +LOG bLOG1 {LOG2 MAKEQ FILE3 pMT50U0_MT50U1iS1811TgLUABS l9YNFNR o&JKIN p AUTF9 oXMMOD _R9SAVEuY9FBSENOG30An$Y9MHLDR9TFLGaR9AC2NtR9CLBG Y9FSSA+R9UMTHrR9HLFJ/R9TRCE TSIOC1g!TSIOC2gMMREADuCKTHRDkMASERRXR9CNTR&R9MMSTMASDRVY9EOTTTERMCKNR9JUMPR\TSTASKZY9APFXR9MRSWALMERRXMBLOKZTSOFFM1dWANTDRDENSWP^gONNXUC^pTSATTCePTYERRmDMPTLK  3H P 0hTV ThTؗh- T} h f 1T -TTTȯ &\~ !hh (hȡA hȝ+h\ \d\ \\hĤ lhTV ThTؗh T. T 1T!\T )\"\ӑ5Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/NX+RX'VX#Z X^X}cXr$Xw*Xa"a X" XIb XFb XCa X@b bX*H Lbb@ H `H^HhB4 "c"H"h! HX @    ` `"i ""H"  h"""! 1 hT\T 0@P`p#$""H h hTF FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- T}T ! ! , h\OFGF Kh \ݙIKJK 9hTeaMHNNNOHTTh\h\h\hh Hq``X`HX" hH h HX  sD  1  : E /` `"i   DS RDPTV4PTNALCFMRDEL^FMEOFC_,FMMOSU FMMOIU UFMNRCDUCTLENUCTABLMAXLOCLRTABLFMMOSFFMFCBS!FMMOIFFMFCBI#FSCTNE&FCBSCT&FSLEND(BAITOSDATSEP/TSTLOC1ZPRTCDR1\R9TAPF1_R9SEGF1_LRGUSR1aRQLLIM1bRQULIM1cRETIME1iONTIME1kFILOAD1nFQPASWD1oWKSTAT1sRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX2R9MUX3TSPORT1TSPEND7TSUSER7TSUENDBAITOSDATSEP/TSTLOC1ZPRTCDR1\R9TAPF1_R9SEGF1_LRGUSR1aRQLLIM1bRQULIM1cRETIME1iONTIME1kFILOAD1nFQPASWD1oWKSTAT1sRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX2R9MUX3TSPORT1TSPEND7TSUSER7TSUENDR9MUX4R9MUX5R9MUX6PBAT00 R9NINEz/READRCxY9RECPR9LBYT2R9FLDLR9RESTR9LBYX2COMM18R9FRMK JBCNFGp!R9SGIXTR9PPUP3DATFMTR9MMOVY9ITLP_CKUADRuNSTACKSMDAERREADRX}PTCLRBPOSSKAPOSSKBTMRTHDR9RYST1VERIFYBCDUMMYDSECTORQCOUNTETRMNLUNPTIMoN14 QMINTXUNPSRTWRITERAFUNSHR|PTSUBRTSLUNTeL1829 L1860 I18331#-  3HS18326P83310 R9LEL R9MIB .FILE4 pR9MVB )CPREL hUNFIX RCTV i~MINTO *mY9FDTBFMPA02XMRSV _)LPTRS p&QOUT FMPA06FMPA07FMPA08ABSADDlASAV m$R9AC3NWK65CORFMPL03vFMPL04%FMPL052Y9TBOTRELFLEFMPL08FMPL09R9CNCL{DUMMY2Y9FPTLUNPENDY9FSTLRELS1AoR9FTIM;Y9FPTRR9ROOTpWTREADeaCLRACR(UNLFILSLICER`TSLMSBfPOSSPA@Y9UYERSORDER%ERRMSGoSCHTOPiREAREQ\3TSCHANf"PTERCD"CLOSFLSTRLEN-TSATCH]PGLUNTeSYSLVL49MMMAMAX1COPHOSTYSETLMCLRTCU~CNTWAR*wCYLTRKGTNXUM^PTVRDYS1827 IUP oES18273IDR60 UTIFIL 0 P\(LOG1A YP1811L YVOLA mCONCU NABS lyCPFET i,8PARBV4o;MT25U0jSWTCH pY9MARAR9LAHDCPMOD hR9ECODXMRTN _{.JBFLV4DOUT Y9HINDPARAMEl9R9INTAR9INTB'R9TBIO7ECCALG~BDWMUL |R9SLSHyY9FDPRR9IPBGY9UDATY9INMKY9PSFGVY9FIPRY9UDAYY9INVPwY9FLPTY9CMSTTSMEND1R9MRPRY9NSQRLR9STARpEFLOCK_SCHSTKVATTCHKtMPFLAGpFMCHKOwoR9FTNXfTSIPRC`tADNSWP^TSLOFFRTNCORCTSCLOK`OUTQUEUPLOWMlTSFMCPgDISPXXi TSMMERhCONSLUCONTCUOUTPUTn;HA mrACK REL nIP1 mSREQDL  MAS300IDLE *#MASKT EoR9ACX1Y9FDC1R9EDT2R9EDT3R9EDT4MMREL _SPACE PSABS lQtECORE nRDISP ijIDRCP1Y9TOP1REDUC }TK7RW FMPA10+FMPA11CR9TANFXMATR 1R9PERDmSPASW oUSE   3HLEND nwRESET FILE1 pJPRET *MP1234lBSMD4 tK65T10Y9KALAK65T12MIBUF oY9PAGER9OCODNUMLU !R9SGTB^%R9CHRCrNXUM 1RY9LABLCARDRDl'R9CHRI|R9CFIL*GETACFnGETFCBR9RECPJLGOV4?Y9TRCESMDCPAFY9IREGR9CLINU2INITFMUFCBw3R9BRAKR9TRAL VOLENDJOUTPV4Y9MMSTR9UNITR9PONT2R9ITLPY9LSTRMICSECR9STTS+EFCOVL#JPRENp#zABSPARuv#UPDRECEXPIREZUSKNPGTSWSEC_-DENXUM^TSCKPM`@EFSTORSYSMSGZUNPTBL`EXTREGh%COMREQsCOMSEQzrEMPSRT*MSYSDAY01SWAPARQIN PRO mASC ikRW kPIDR56 L18326R9SBY %JPT13 1SPL4 CLEAR SEEK9 CPTBL ,!CPADD hDAYTO *kM1811TISMD #CPCHK h|MMALC _CLINE ALVOL mOPENF }3R9FDTBjY9PFCBPORTS AUTON PWFOV moSPCEV4R9EDCNR9MODE R9FCTRY9UMTHHR9USNDR9SBYX6R9OTBGnNJLLUV4*R9AMPR~LNDISBLIKDUM}yR9HTINY9MMOV`FIXONER9USERWRTBAKyCPTBLNTSCLLB`8INCRECR9UYERZTSLCUPexTSVFTN`!dJOBENTVOLUSEJOPENFLSYSCOP~FMBRRNwYERRSWT15 WPTNRELiFMSWAPtSWAPONnv>TSUSCPgN7 MPDRIV HN9 fAYERTO*fLVLSTRSCH nGET S1860 LN4 IDR12 ZL18273IDR4 DELQMST 0 П裊ECXIT R9ACC1sFILE2 pCCPLU ^WCONT 5END0V4ZMMEF =*DONE qCPDEF hK3I1811TESMD GETS YERTO *iNAMEV4MR9MARAI1811ZbMINT LOOP n}R9YCODYACC1BrJPSWT pPUTS QSAV mmY9DETLR9CKSGcVINPV4oR9AC1SsR9BLBLR9INMKSYACC1OSR9TOTLd1R9MNINx Y9COUNR9BLTR /R9MRINSTRACEXRY9DOTTkFMSCOMtR9NSQRSLICUPe8ALCORELOADINp R9LRSW LNRESPrPWFAILmNTSRFTN`0TSBGIN`NRERLE!TOTMIN*qFMCOMPtSWPSEC1^FSLIMT(IPTMOTN!TSINTReEPORTSCONVERkSYUTILL000 C18331uY  3I RENAM }!DELET }6BACK +R9FDC1=R9MVW \Y9VFT1XMREL _wBREAK ZCABS l)ALLIN lTRVEC oDWADD |MHLD01Y9LAHDUPTOD FMASK *tR9FFCB INPUT .SMDGD1R9VINDY9INTAAMSAV mnY9TBIORENAMER9MONEwR9INIG@DELETE4R9SNHLY9HNUMR9MINSqnY9ALSQR9INRP-mR9UPOPR2SCHERRp*Y9RPTRPR9CMOVR9MUNOSNIPROCl"TIMSLC]XR9VSWTY9DTPTPTRITEEFLISTNCMPRQoY9FTNXSMDGDRNSTATSUNLOCK{CERRORAMONTO*gINVINTCLFRIOw|TSPMINebWKSPLU1`T16 l.INIPRT~TSCKMU`dEXTSTK7OVFVOLm~PTEOFVPTBSIZCCP +PRINT " LOG bINACCT   LOG1 {LOG2 MAKEQ FILE3 pMT50U0_MT50U1iS1811TgLUABS l9YNFNR o&JKIN p AUTF9 oXMMOD _R9SAVEuY9FBSENOG30An$Y9MHLDR9TFLGaR9AC2NtR9CLBG\Y9FSSA+R9UMTHXR9HLFJ/R9TRCE#TSIOC1g!TSIOC2gMMREADuCKTHRDkMASERRXR9CNTR&R9MMSTRMASDRVY9EOTTTERMCKNR9JUMPR\TSTASKZY9APFXR9MRSWALMERRXMBLOKZTSOFFM1dWANTDRDENSWP^gONNXUC^pTSATTCePTYERRmDMPTLKCLRSKNT0 kPT1 kP=T2 kPGONNXUM^wT4 kP T6 kPLSTPRTT8 IT9 j LTSUSRPY9DSEQQPOSSPBY9ASPCY9FIPTY9KAPFY9XRTEY9ERCDR9PORTfR9EDT1oR9RPRTCR9REPT0MR9AC2SR9AC3SlR9AC1NcR9INRZ,uR9INRM.R9NFCBR9PRGDR9BYPS  R9INDEX FILE COPY (MAX 3000 BYTES) FILE NAME TO COPY FROM VOLUME NAME FILE NAME TO COPY TO OWNER NAME XXXXXXXX FILE COULD NOT BE LOCATED XXXXXXXX FILE NOT INDEX FILE FILE DESCRIPTION NOT THE SAME JOBINDo,TRANV oUNPIO oLIBET oRECOV oBATCLUoPRORETpJBPROEoTRNVECoPAUTFA oAUTFB o JBCFGZppJBCNCLp JPRET1p"COUTV4pUOLDUMPpwCOBOP qFMCOMEtFMPPROtMMWRITuLOKCHKvtREMLOKvINSLOKvFMCOVLw}FMFSRCwPUTRECwGETNXTy6MRECADz&LOCKFL{FSHARE{4CLOSF }0PUTZ }GETZ }UPREC }SMDCPGZSMDCPSLSMDACPecNBRLINT?PLENTH ENDQUELMAXQUEBINHEXLCPSENDQUEUP aUNQUE COPYQ MESAGE2LINEUPLNDOWNTERESPPUT DCLOCKINITZEZDISABLENABLEhCTERMLTCPADDR)1TCOMPLUG  3I ̤(;d M̟ ,\Dh$TvFD h\F Tد D 1!\v h\ّF Tگ  &\gܘ Sg\ϑ𯰷Teaʑ?\𯰷\ʑ.\ϑ÷\ݶ÷ʑTv÷\˶÷ʑ \ӷʑT޶\ lPTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh  3I4`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL7?- Tv͹T ! ! , h\κ  Kh \ݹ  9hTea  HTWTeh\h\h\hh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i  PCCSSBT A02 A CCS CCS 3.0 SL-149I:@PHh HXz us ohsHr = 9  }  0_I;@P+hII\\SR MK GhJHJ = 9  }  09hLI<@PVL44-  L  I=@P5`2yI>`P I?@PE `"i I@PCCSSBTIAP PCCSMTP A02 A CCS CCS 3.0 SL-149IC@PHh HXz us ohsHr = 9  }  0_ID@P+h  \\SR MK GhJHJ = 9  }  09h IE@PV 44-    IF@P5`2yIG`P IH  3IH@PE `"i IIPCCSMTPIJP PCCSDVD A02 A CCS CCS 3.0 SL-149IL@PHh HXz us ohsHr = 9  }  0_IM@P+hII\\SR MK GhJHJ = 9  }  09hLIN@PVL44-  L  IO@P5`2yIP`P IQ@PE `"i IRPCCSDVDISP @PxTrmr7h 3 -3 hTsIU@Pj h ( h\3uvnv\%Twlu\w(qw0uIV@PHTTh\h\h\hhIWPFILERRIXPQ8PKUPQ8PREPCCSMVAyCCSHXAWTREADIYP P PQCST C56 F CCS CCS 3.1 .PSRD 03/83 SL-173I\{/  3I\@P}JKLMNOPQRI]@P 0123456789I^@Py u _ W QQ hPP hT\ I;Ⱦ 8I_@PDȻ hT 94Ȱ 1B 94Ȫ 1[ hȣ躚 ȶ h\I`@Pgȗ譚 ȩ h\Ia@Ptء 1T dl\\$Ib@P I: 7 l\ 93 # l \ l,H)TTIc@Ph\hshhhhh\hh\hh\hhhhhhh\hh\hh\hh6IdPQCST IePQ8PKUPQ8PREPCCSGET6CCSPUTHCCSCST|IfP PLVFYACF ROUTINE TO VERIFY ACTIVITY BLOCK LENGTH Ih@P Ii@Pdh$( hT 9! !   1Th Ij@P.(ՈhӘ2Ik@P6TH TThh hIlPVFYACF=InVFYACFIgCMPACC7FIXINA0;RSWCHGBZSRREQ 8fREBILD NPROVE NPQ8PKUPCQ8PREP@CCSGETICCSAD)CCSBLK7IoP n:  3IpLAACTFIL  TeT TNT*FT%" (T7Tf+T"ŨŘ0 &\\\đȳ Ȣ  E" l9 l\ h " lTcz d d ,BhT 1 1 lh\ 1T9\R!v\r" v d\z$ 9h\\̒\\Z%9h\\\ 1\z& \D\\Z'\D\T#"Tf+8(//,14X,43HTHE FOLLOWING IS A SUMMARY OF THE NUMBER OF,/14X,43HACCOUNTS WITH XXX NUMBER OF ACTIVITY BLOCKS,/) (14X,I5,16H ACCOUNTS WITH ,I2,16H ACTIVITY BLOCKS) (14X,I5,34H ACCOUNTS WITH >10 ACTIVITY BLOCKS,//) #(1H1,/,1X,20A2,/,1X,20A2,/,1X,20A2,3X,8HAS OF : ,A2,1H/,A2,1H/,A2,/)T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5TV39cTh.h;X7H&8%#T@$h$h`  TT  TF T\T=4h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ T9ȡ`><Ȓ TY H T dZTU TTYTXXXXYXXXXX h3HHd hd!DhhdTFKhh hHL8@ hk"TehT` h~"  b hvT~ PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌThTw `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX T`HX TL `u HehdhgXlXvhb"aTVZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ hP  3I n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdchhuXh̺ (BDZ n&ȫdȫ  hJIEhE h h  hh h8H60TUXUX h%`" "h*hT89: T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHX}hNXxhXoh:a62Hl20X), H,)H& XXOh a&hh۸nX X h H   HThhh=@ TY XT%T\ XFDh5TFh120-3 T*(%!TU TF \T=`T \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" TV+TUX% hT\H `CT TY@ TFhTUh XX TUTh 2X X' h$  X0X XzШ Xhˠ T Th H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dhn>Ƚn<ظ 1T%YJȨ !1 h؟TYqț ! h (hrnؕ 1 1T#Y HTBTP h h h h\h h hfh Hq``X`HX " hHhB4 "c"  hhhhhT}~yxz{|T}~yxz{|HTBTPh\hh\hh+ )(,/.XH0123456789AREF$ID'*Z   h l : T2 l ll h l \ hlElh hhhh hhTߞ h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/u 1TT*v6 l44 l2 / ! + !l dd l!!   dd dTߞ %  d\\  l !  ldl l l l l\ƞߞ dZ 6ޔl  "TT*v 6T2 l d*  3I d d l ll  T\T̙ l !  ddTߞ\ޞ l ! d̹ $ l, l dZd ldl d l l l l l l d̘  l̒ \̹  ̱  T\ី̡  ̙  T2H/TBTPhV\hD\hB\hhh\hh\h\h\h#h\h\hh'd  -0 FED.* T h jظ 1 h |" < )P d' h\ d<̼ !T> 9l>dRl̩ l  d@T><@\>̛  lAdRlBl dC dD\ɡ>    !> ḷ l !& !/ l 9!/̫ !+̧ h$Gl !(r l 5T> l̻ ̵dl\C@gT=T*v>  0l\H\ ldIdJ d::\͡>  ldK 9!. !* hCĈl̨ l 3\>    d@ !T>C@ l F7̣ 4̠ l̜  0lT=T*v dMdNldDdOdPdQ d: f 1T>> r l   l  l \ݡ>sl' $G lLd0RdCSl,lLlll ̲ l,܌lLlެll,ЌlTdJ Ul ̓ l T>> B > : 6  93 % >P Q l 95 2v  0lo  ds dMlX̺ ̷ ' ̯  Ed;r l D\>̠ ̜  dO>  9! ! d0N$Gl c"M l T> > 0l ḏ k3 dl՜Qlsdd d!d"d#d$' D lld%d&l T̻ M;  lD  dldldl d@T>@ l\@ l\@Ṋl T M ̚dl̛dl l\ՠ@ l\Р@)t" < ) EHp d'; dBlT>̘l\> l\> l  Hll\>ˬl dY l d1d2d3 d: n 1 dZ +dDdO d@T>1@ l\2@̗  l\3@d7d5d6ʤ\d[  -lܺdldl' dl T֡4T-4d9?l  -ldlld] d^ /̼d_8d`$Gl,ldaSlLd0RllLldb߬l@,l,ތl,l,l  ,Llجٌl̶dclLlͬlڌlLddԬlܦf' ̜ !̗ !s de  d:n 1O  9 l 7 -ldlt  Ԝl Όl d^ !Y 1TΫ n !M̷ df̳  l!̩ l !5 n̜ ܡ, d ̥  ̦ l 7 +l̞dlܚ dJn 1 l 0n 1 d: 0n 1 dIt  sYdrlO Ô9l̿ !i̻  l̶8TA lD \D ldZ dl !  0ṉh\ ܫ l̹ l\̡X̳ l  2\F̥ l 2Ih\H"^ lr l 2\g lsY !dJ  d:8TA lD \D l\F\X l  ̳h\34ܭ l' \֡W l\ѡV\ϡO9dh7di+ f!" 8 % l\Fܨ 1P\F\ J\ \ Dd@dd d]dcldJ d:l`p=l  lܹ0  3I 0f .lۜll 1  +dD dYlT>h@lh\d[ dl -l l lf  l 0d rdj !#  l5TAܘ \E lڜ9: h\ lӜ4\g d@\h@̨ldd d]dcdel *l ̬ l̩dk ,\A̤ l ! l l윳4\Fܯm lf`p5,d0Rl 0e 4 n ḽḷl: 1 l l  1 rdj " l +TA l ! dJ " ll 8̽ h\ܷ " l  l\ѡL̥ l !\šA̶ l !b@aH^H[TBTPhh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA\ Th` h/&hHgaV`H _H H M A cTXFRXB H H\ThT=:\ةVT/  HI&Aa%acAD aa h h HR H1,/,1X, H ThԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTh?? HG9Qs>L1a: Lw T&RH5 I  vR  LaT\?T  " l hh HTuhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  Th"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\oo\ofo@T:\ ofifoTԮofoB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR Hh H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT HsLoAAd]Ğ89: T|LQ3AaI 'L#  3Iv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhhfuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`ߞ dZ 6ޔl  X X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XT!bX&)+25,Ȱ#`X T!A a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9T!bbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! TUa a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XT!bȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i r EQUIVALENCE ( WPPY(1), RSWPPY(1,1) ) , ( RPPY(1), RSWPPY(1,2) ) , C3600160 + ( SPPY(1), RSWPPY(1,3) ) C3600161I>jF}h4" v!2 ;+C* RELEASED, SATISFIED, AND WRITTEN-OFF PREVIOUS AMOUNT C3600162C* DELINQUENT BUCKETS. C3600163I>jF}h4" v!2 ;+ INTEGER RSWPAD(6,3), RPAD(6), SPAD(6), WPAD(6) C3600164 EQUIVALENCE ( WPAD(1), RSWPAD(1,1) ) , ( RPAD(1), RSWPAD(1,2) ) , C3600165I>jF}h4" v!2 ;+ + ( SPAD(1), RSWPAD(1,3) ) C3600166C* ADDED, UPDATED, AND REACTIVATED AMOUNT DELINQUENT BUCKETS. C3600167I>jF}h4" v!2 ;+  3I INTEGER ADDAD(6), UPDAD(6), REAAD(6) C3600168C* ADDED, UPDATED, AND REACTIVATED CURRENT PAYOFF/TOTAL DUE BUCKETS. C3600169I>jF}h4" v!2 ;+ INTEGER ADDPAY(6), UPDPAY(6), REAPAY(6) C3600170C* UPDATED PREVIOUS AMOUNT DELINQUENT BUCKET. C3600171I>jF}h4" v!2 ;+ INTEGER UPDPAD(6) C3600172C* UPDATED PREVIOUS CURRENT PAYOFF/TOTAL DUE BUCKET. C3600173I>jF}h4" v!2 ;+ INTEGER UPDPPY(6) C3600174 COMMON / UPD / RSWPAY, RSWPPY, RSWPAD, ADDAD, UPDAD, REAAD C3600175I>jF}h4" v!2 ;+ COMMON / UPD / ADDPAY, UPDPAY, REAPAY, UPDPAD, UPDPPY C3600176C*** TWELVE DIGIT ASCII ACCUMULATOR/COUNTER FOR TRANSACTIONS. C3600177I>jF}h4" v!2 ;+C* ADDS, UPDATES, REACTIVATIONS. C3600178 INTEGER NUMADD(6), NUMUPD(6), NUMREA(6) C3600179I>jF}h4" v!2 ;+C* RELEASES, SATISFIES, WRITE-OFFS. C3600180 INTEGER NUMRSW(6,3), NUMR(6), NUMS(6), NUMW(6) C3600181I>jF}h4" v!2 ;+ EQUIVALENCE ( NUMW(1), NUMRSW(1,1) ) , ( NUMR(1), NUMRSW(1,2) ) , C3600182 + ( NUMS(1), NUMRSW(1,3) ) C3600183I>jF}h4" v!2 ;+C* REJECTS C3600184 INTEGER NUMREJ(6) C3600185I>jF}h4" v!2 ;+ COMMON / UPD / NUMADD, NUMUPD, NUMREA, NUMRSW, NUMREJ C3600186C*** NON-FINANCIAL UPDATE ACCEPTANCE PARAMETER FROM UPDY RECORD. C3600187I>jF}h4" v!2 ;+ INTEGER UPDY C3600188 COMMON / UPD / UPDY C3600189I>jF}h4" v!2 ;+C*** REPORT HEADING OUTPUT LINES AND TRAILER WORDS FOR FILE OUTPUT. C3600190C ****************************************************** ???*A029********I>jF}h4" v!2 ;+ INTEGER HDLIN(66,3), HDLINT(2) ******** INTEGER COLHD(66,2), COLHDT(2) ********I>jF}h4" v!2 ;+ COMMON / UPD / HDLIN, HDLINT, COLHD, COLHDT ********C ****************************************************** ???*A029********I>jF}h4" v!2 ;+C*** TRANSACTION CODES. C3600195C* WRITE-OFF, RELEASE, SATISFY, AND ADD/UPDATE/REACTIVATE (BLANK CODE). C3600196I>jF}h4" v!2 ;+ INTEGER TRN301(2), TRN302(2), TRN303(2), TRNBLK(2) C3600197 COMMON / UPD / TRN301, TRN302, TRN303, TRNBLK C3600198I>jF}h4" v!2 ;+C*** TERMINAL LOGICAL UNIT. C3600199 INTEGER TLU C3600200I>jF}h4" v!2 ;+ COMMON / UPD / TLU C3600201C*** COMPARE STRING RETURN INDICATOR. C3600202I>jF}h4" v!2 ;+UTIFIL 0 P\(K  3IPRINT " XC !PCOSIGNER`AjLSREQDL dsINACCT ACTFIL d1DELQMST `A UTIFIL `APPPRINT &~@X@@@@DD@@1@ODcDh@h@hDv@ v@!vD"D#@$@%@&D'D(@)@*D+@,@-D.D/@0@1@25D3ID4N@5N@6ND7\@8\@9\j^e@:@;|pw@:@<@=` + @>@?@@DA@B@C/@DM@Ek@F@GDH@I@J@K@L@M@N@ODP@Q@R@SDT@UDV@W@XDY@Z@["@\'D]+@^1@_@`@a@b@c@d0@eDDfIDgODhXDi^DjdDkjDlpDmvDnDoDpDqDrDs@tDu@v@w@xDyDzD{@|D}D~DD@ @!D"D+D1@7D;@DDN@TDX@aDk@qDu@~D@D@D@D@D@D@D@D@D@D@@@7@@@I@Y@h@qDr@|@D@@@@D@@DD@DDDDDDDD@@@@4D7D=@F@HDKDTDY@^DaDg@k@n@o@p@q@r@s@t@v@w@xDyDD@@@DDD@DDD@@@@DD@D@@@@@@DDDDDDDD%@+@,E-A4AFAGAe18A@ .$ N $ N/ $ N?   .  SQRVTU WX   < <   : GQ OR : S T )U ,V 5W 8X  :  @@ !     =   !    I Q ) ) ! ccc .. FFzc]# <zuD!@< A @ )8C@8L8 gz@;l8ʼn A /@ )8=@ FFͭA ?@ )) A8 8 '81898G@8P8f@@8q8vK8 @S A8 K8 (@K81K8;8F8P8Y8g8o8v8 @@{X A@@@S*@v1@w;mHaapkRaapf\gh@UoHuvr@A8@B08B@HAD8 b@@KЮ A8 @@C08F@@K ``pTR8 `K@@L A8 @@D08CK@@HsE8 caa@Mz@NL A8 aa@E&@F08 >@z Q ``pHK Q8L`@JPQ@IM8d@z R ``pPr R8s`@RwR@QtwQ@A8 88 "@8+818 @@8 N@8d@@@bȯ A8888 "@@@@8*828>@8 N@8d@Sp  3I@@c AaapV @W@xHyHzH{"@^(@X1aap~>N8 `aa@dz@eJ@A8 88 +@8 9@8 E8N8e\@\@@@@@@@@8@@@@@@@@@@@8\@\vO A8 88 +@868BKK8P@P{ An oaapp'q9@ZBaapP@|ఛ@A88@88*@838@8 S\@\@\@\@\@\8f@@@@@@@@8 w@@@@@@8 \@\@\@\@\@\ A8888)@838 C@@_8 Aaaph aapiaaplaapj*@\3aap]A@`B= A@aH@PA8@@@@@@@@8@@@8 ,@@@@@8 <@@@@@@8T@@@@a@@@@@8[@@8o@@@@@@@@@8@@@K@@@@@@ȱ PA@@?@UH[ S```pnS@k T```pT@! PA@$@%?@&UH'[ U```p(nU@*k V```p+V@-0 PA@0@1?@2UH3[ W```p4nW@6k X```p7X@9P5 A8 88#8**mU A8888 **r Aaap@@)8 G@@@V8j@ Aaap@@)8C@@V8 s@@@첾 Aaap@@)8J@@V8 u@@`@ ``p Aaap@@)8 G@@aapV8k@? Aaap@@)8A@@V8x@@aD Aaap@@)8@@{@V8j@f Aaap@@)8C@{@V8l@ Aaap@@)8A@{@V8n@ݳ@A8 881@@@G8]@i8 |@a@ A8 882@@G8 Z{@@@i8aaa@; A8 @8 /@@G8U@{@i8y@@g@ A8 @8 -@@G8W@i8y@@l A8 @82@G8 Z@Hi8@a@ƴ A8 @8 -@@aG8 Y@Hi8x@@ A8 @8 .@aapG8^@a@@i8 |@@/ A8 @8 .@@G8 \@@aapi8 |@@a4 A8 @8 -{@@@G8]@@api8x@@f A8{@@@@81@@aapG8 Z@@i8 z@@ӵ@A8@aap8 /@@G8W@aapi8w@ A8 @8 0@@G8 Y@@i8s4 A8 @84@@@aapG8W@@i8x^9 A8 {@@a@8*@@G8W@@i8xc A8 {@@@8 .{@@@G8 X@@i8 z@@aap A8 @8 ,{@@@G8U@@i8 |@@ A8 @{@ ``p8 /@@aapG8V@@i8 {@@= A8 @{@ ``p8 /@8 :a@G8 \@@aapi8 z@~B   3JA8 @{@ ``p86{@@@@@G8^@@i8@@A A8@87{@@N@@@G8T{@@ii·@A8 @@38a@@A A8@@38 [@@Aww A8@38 Z`@( A @ )8K@8 g@;l8ʼn <.A /@ )8?@ HHIBA ?@ ))O A8 8#8+838;8F8W\@\@\@\@\@\@\@\8o@@@@@@@@@@@@@@8\@\@\@\@\@\@\@\@\@\ A8 K8!8*828:8DK@KD츿 dAA @ 8a /@ 8!a ?@ # O@ ) _@ 1 o@ 9 @ A @ C@ dA8 8 @K@:-8 9@@9`A8K\\\\@@@@\\\\KG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@ @@@@@ @@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ @@@@ @@@@@@@@@@ @@@@ @@@@@@@@@@ @@@@ @@@@@@@@@@ @@@@ @@@@@@@@@@ @@@@ @@@@@@@@@@ @@@LAACTVTB LAAVMDSC LAUTIFIL ACTCRESC************************************************************************************************************************************LAST RESULT CODE REJECTEF  3J$D - NOT UNIQUE*****NEXT CONTACT DATE OUT OF RANGE - SET TO ZERO0**** " " ($ ) NOT A VALID RESULT CODE - IGNORED 4****LAST RESULT CODE REJECTED - OVERFLOWS TABLE 0****LAST ACTION CODE A SCREEN FUNCTION - REJECTED 2ACTIONNADSDFDADCCSP1P2P3RLNQOASSDLAAEAUH ACTVERTBAVMDESC P @ACRS ACTIVITY VERIFICATION MATRIX BUILD OF - RESULT CODE INPUT (Te[`ab TT}c[de Tőd_d\ɑdnd\}fg}dTCnh !TqCahȸ 53 60h/l-l, h( ,#! !!hnnh ! ! h nnƘؾ 1HTT h h h h HX92h -$h.,'&2T["$dmŠ'R)2X*2 1 ** "i X%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`X/X+X'X# XX}X緙X췟Xa"a X" XIb XFb XCa X@b bXn>Ƚn<ظ 1TʹȨ !1 h؟Tsʹ ț ! h (hnؕ 1 1Tʺ HTT h h h h\h h hf;CHUPTEMP SYSVOL CHUPTEMP   H]h\hRhMhRKuXhKJhAHFv" c h8"5T39cT-h.h;X7H&8%#T$h$h`  T/T  TF TT4h255؈ȇXuh&ڨ*IhT`Tp=H ' &eh @ȫTnȨXȞ Tȡ`><Ȓ T H T 7dTӠ TTT+֓֓֓֓ד֓֓֓֓ h3HHdhdDhhd TFKhh hHL8@ hk"ThTޘ h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTT `h Dh XX\\ TaH #h! T/T hBDhEhBhBhDhwth:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh T/T aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHd"  3JLhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,Dh*X" 8h$ h!X Ah hX T]hX THX TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  T/T hhhhd~hhuX|h̺ (BD n&ȫdȫ  hJIEhE h h  hh h8H670TӠX?X h%`" "h*hT TT h hhh ll X# Xhh@4i` Xj T/T Cr q d Y hUDhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 T/*(%!TӠ TF \TT \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TӠT 2X X' h$  X0X XzШ Xhˠ T/ T H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh<Ȓ T% H T_ d&T! T_T%T$$$$%$$$$$ h3HHdhdDhhdXTFKhh hHL8@ hk"T1hT, h~"  b hvTJ PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌT4TC `h Dh XX\\ TaH #h! T}T hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT_  #%  # Dj A]  3JtA Dh h h  Hhh&aH3[HX" L!`Ψh T}T aH> 3 DH-j+̾Ⱥ(j'% hȲDhT_̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX T,HX TL `u HehdhgXlXvhb"aT"ZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+i gfh n ;ln  H T` + ȋXh؆1   HhH㞚  T}T hhhhd/hhuX|h̺ (BD& n&ȫdȫ  hJIEhE h h  hh h8H60T!X?X h%`" "h*hT T h hhh ll X# Xhh@4i` Xj T}T Cr q d Y hUDhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T% XT%T\ XFDh5TFh120-3 T}*(%!T! TF \T ,TN \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T"+T!X% hT\H `CT T%@ TFhT!h XX T!T4 2X X' h$  X0X XzШ Xhˠ T} T4 H= X H8X H0gTlX*@) d\TJ   hTHbSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dhn>Ƚn<ظ 1T¬n_Ȩ !1 h؟Tnț ! h (hnؕ 1 1Tn TER "EX" TO END HTWTe h h h h\h h hfh Hq``X`HX" hMOUNT REEL XDE  hhhhhT|{}~T|{}~HTWTeh\hh\hh4+ )(,/.XH0123456789AREF$ID'*ZhT?6T/z"  h   h l : T l ll h1 l \ hlElh hhhh hhT h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/xb 1TlT*v6 l44 l2 / ! + !l dd l!!   dd dT % dXb X\\  l !  ldl l l l l\ƭ d] 6l  "TlT*v 6T l d d d l ll  TYPO\T̙ l !  ddT\ޭ l ! d̹ $ l, l d]d ldl d l l l l l l d̘  l̒ \̹  ̱  T\䭻̡  ̙  TY2H/TWTehV\hD\hB\hhh\hh\h\h\h#h\h\hh Tҝ\\\ d: f 1Tđ}Tf+h(1H1,20A2,9X,26HTAPE HISTORY UPDATE REPORT,/,1X,20A2'd 2,1H/,A2,1H/,A2,/,1X,20A//0X ACCO-0 ER,8X,FHBORROWERSED.ATE OFAPE,5X,17HRECORDS AD*D TO ,13 T h jظ 1 h " < )P d* h\ d?̼ !TYA 9lAdRl̩ l  dCT ?C\A̛  lDdRlEl dF dG\ɰA    !> ḷ l !& !/ l 9!/̫ !+̧ h$Jl !(u l 5TYA l̻ ̵dl\FCgTl@T*vA  0l\K\ ldLdM d=:\ͰA  ldN 9!. !* hFĈl̨ l 3\A    dC !T FC l F7̣ 4̠ l̜  0lTl@T*v dPdQldGdRdSdT d= f 1TYAA u l   l  l \ݰAvl* $J lLd3UdFVl,lLlll ̲ l,܌lLlެll,ЌlWdM Xl ̓ l TYAA B > : 6  93 % AS T l 95 2v  0lo  dv dPlX̺ ̷ * ̯  Ed>u l D\A̠ ̜  dRA  9! ! d3Q$Jl c"P l TYA A 0l ḏ k3 dl՜Tlvd"d#d$d%d&d'* D lld(d)l T;̻ P>  lG  dldldl dCT C l\C l\CṊl T P ̚dl̛dl l\կC l\ЯC)w" < ) EHp d*; d?l\?Cu ! !lHdAElTYA̘l\A l\A l  Hll\Aˬl d\ l d4d5d6 d= n 1 d] +dGdR dCT 4C l\5C̗  l\6Cd:d8d9ʤ_d^  -lܺdldl* dl T7T07d<Bl  -ldlld5  3J` da /̼db;dc$Jl,lddVlLd3UllLlde߬lC,l,ތl,l,l  ,Llجٌl̶dflLlͬlڌlLdgԬlܦf* ̜ !̗ !v dh  d=n 1R  < l 7 -ldlw  Ԝl Όl da !Y 1TΫ n !M̷ di̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dMn 1 l 0n 1 d= 0n 1 dLw  v\dulR ÔL1a: Lw T&RH5 I  vR  LaTh\BTh  hh HWuhi[G M^@BPCE}GN HJzLLK@ aafRda -a0F 0ac 2 .a `9ac a aA `! aa a( a .a 0a!D Q" !yR *a aa A a! a"X : a! a"X uX H H "4` " "aXaX ahh`XPqa aa a a a a a! a"X a"  6 9! T d  a a! a"X    `  `  aX aaX " a   a! a"X   aaX 'bdRQ"X; aX 3 aX +  "XaX r  "XaX  XaX X f" #"X f" a# a a A aA aA  X X " a a A aA   a  aX X "a A a` !RAX(aS aX mK aX eC  "XaX 6  "XaX )a#"X j"a` aX t aX #"X R XaXk aa  "X a! a"X a az a a a p a_=  3Ja( a! a"X ^aX X1 aA a a! a"X ? a! a"X z a! a"X s2a a Da  a  a  a! a"X  3 ! a! a"X G   `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\++\+"+@T:\ +"%"+Ti+"+B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTi HsLoAAd] T|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhh"uhi f[G ߂M^@BPCE}GN HJzLLK@H Gbb@`UTQ8LOCFQ8QFLEQ8STPNKQ8COMINHEXDECCCX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a  3J"Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i #y a%XOH!""" A#*   "!"X3# a1rX)""  "!f" !" f""" f" "a""! h " "f"" "f" !"` a! a a"X  a! a"XXaa a a! a"X~"  !T 9!a Fa a! a"X a a! a"Xf a! a"X a a! a"3X6Xh`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"Xi a! a"XX@T$X -`" ` c1Xd 2QT$qX c1XjT$[Zd@X #  a` aܐ!XsT$YD]@XJX a Ea a! a"X a! a"X, a  +a `"d` 5 aX aaXa `aBP@@#4h h` ` ``T$BP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  D  3JA ) H f H g AddRAaǑّ  d,+  l \+ّǑّ Tdv+ &\gۑD lTzv !9 8 ds du d n 1T|vg 'TgّۑTbv+¤ޜ ̽ 1\gۑ\vTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T 9;7h 3 -lhT:j h ( h\ߔl;\^Tea;:::\ai9HTTh\h\h\hhh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i X/ a! a"Xj hBP@@JI>h`X``` a` a` `/" 4 A *a A    gR@R@ -A` .a ` a! a"X a! a"XX@TKX -`" ` c1X\d 2QTKqX c1XCTK[Zd@X #  a` aܐ!XdTKYD]@XX a Ea a! a"Xc a! a"X a  +a `"d` 5 aXe aaX^a `aBP@@` ``TKBP@#dRAR`B@ @"si`  dr$Rd`@$dR@ R  DA ) H f H g AddRAa  3J ` a! a a"X  a! a"XXaa a a! a"X a! a"X a a! a"3X\Xba a! a"X  a   a a! a"XM a! a"X a! a"3X#X)a a! a"Xq     a   a a! a"X a! a"XD aaaaa `!@  0360000102BZOKSRPPRL:0 ?!P8HypPJcj1.<=?(,>* hhT; h h hT h 1\ h h\HT5TChhhh\hhhhN<_DLADDACT CCS20 SREQDL CCS20 UPHSTCM CCS20 @,UH'0Nl1E( 9999999999 T 95 2EJ 5  5\☨š  ?TۘÙ֘љ\ߙ֘љdd h fر 1ƔQ TaM̼ \pMM !r T鑼љM :TM. d l̕ TaMK \pMKTTEl "4T\T  93 !T2l dQ\蘨š ̴ l lT !̪ ! , lG !ADdO=dP 8 d\ IlT{QÙGÙNN #lTۚTeQ 1'T TnQh\ϙhKKN g\ҙhƘQ"h\OәO\QOԙOh\QOOJ 5\GPT ʚMd TۙGOlؔ _T{癿ߚřN\֘љ h<\ǚL d f 1TRMM !#N r T鑼љM !TM \әŒߚ l dTRMKT ld!;찖  쨖 2̡hTۗәOO 쓖 2̌h\G  Nd dddP     \QOљęOO lT;QљęP l  ldp4,d 0dp< 0ȌlTTeaKљOLTm 4Te T^ 6 3T'H$T5TChhhhhhQhc\ hYhv hS hh'.EX T\M\tM\M\M\󑼙M \ԙMT !? h f 1T>MM !T呼ߗəM  yMK\MTftHAA1                        END OF ACTIVITY HISTORY ACTFIL CCS20 0482 hhfh h f 1TMM "Tےߙ֙hdpT呼ǙhM $  "T{ߙ֖Ǚ֙NN lT3О.M d0l\#xǙM̴  \י#Ş3řN  dYA .l\љ#О.M̑ l.T㑼ǙhMM  "\ߙ֖Ǚ֙Ṇ  lT۞љKdW TkљT9#TeaKљיL1 0 9 Rd ""T  3KTEl 4\ 3T T !> !:T 2 ! d lfn ,l\Kޞ2L l dZ l lTZMKTTMH99999999990000000000(  R К(20HGENERAL DUMP PGM IN ) \RК(52H ENTER FILE NAME(CR) TO BE DUMPED, (CR) TO TERMINATE) hTeΙԑTcQQTЙQ 2TQәđә  TϑTՙ\ҙQ֙ d d d d f 1Tՙ (Tܙۙ{T՘ݘ '\홋ߙޙidddd dTc䙚 \䙚\T=TK\\ԛ ThZ2Л dhT 1 lh\ 1\T>!G(8HFILE IS ,2A2,14H AND CONTAINS ,2A2,F7.0,9H RECORDS.) ̍ \R5Л7(52H ENTER 0/1/2/3/4 (CR) FOR ACCESS BY RRN OR KEYS 1-4.) TЙQ T+Qd  d DThR=Лx,(81H ENTER Y(CR) IF AN EXACT KEY TO BE DUMPED, OTHERWISE DUMP WILL USE 1ST CLOSE KEY )\ЙQ doQp  l\RBЛ(43H ENTER STARTING RECORD NUMBER OR KEY VALUE )TЙQ "̎  DAILY *** END OF REPORT *** COLLECTOR STATISTICS REPORT PAGE AS OF: ACTIONS COLLECTOR NAME COLLECTOR NAME TOTAL HDR1HDR2HDR3LACOLSTS COLSTATSLACOLSTS LAUTIFIL d l)hTt¤MM s "s h 1TeaKLh  2hל 2%hTۙџܔܓh\џd\џh\џ d"! ,{ y @sKJpdQdOT{QOO ! v\QOO "vκ 1? #̓ lY dRdS dMTxǙM l lTkљT9 PlOlΑl ddQdd $dOl   TQOџO ̝h\QOџO̔l՜ Onjl/lM h hT;џ T*\ãØџδ dl d 2O d ld \љ l dOTeaKљOL l1 $N ld dd̒h̎h ̊hTۣљ l L$l\Ęџ̏ lTk\KљOיLL \ЙĘљ l dT #l l̼9\  lD dO\Oll l̛!\̘ }3 %T Ҥܻ dM  NlTMKT ' Tu‘ & \’G & \’G & & 3dJHT5y  3KTChhh\hhhh6506179:8324;NAmwh   h hlTk# hFf" 1Td)Ud*d&T¦Ƚ mȹ h h\혨ȫ TۘÙ' h\ۘș Iȕ hؑ\˘   d(\ $ ̷lМdO 1؜ %l\O+OTL&' %l'    zTۙGŒߙ YlT TՙTĦ \㘨ŒMONTHLY  RESULTS TOTAL TOTALS WEEKLY0000FACTC  '(DCBRE **A }B SC~ 0;0 Te9rT:=פ9ةȳ TzLؤ=\LؤP\_کۤ_*gdL*hdM*fdNT΢Lݑh h hi"p<nl 1 d  1 l z 1TQM_ (T_ڨr\5= '\=ڨrddT?M '\٤_r l l,h@ >fܐ 1ܐ1 d fFf1 d[d\d T=5̗ /̔\=r̡h  l TzשG l\שGH G KAdܫT?M G  1T_r\©שG\ש $eh\ ک ,eh\ ̳l̫l\۩ב d9 Hd  dTz55H$d,l6H,ll,ӌd ,ΌhȌn[l4\ ld l̠!! f&n d,l̎`ˎm5ޕ n̼1Z JT?M+\]% !!\M-Tz <\ԩM/ܬݜ (T_r\ݩ l" 8 % \ƢI]\ۢ]\] d\e# d d $ dTzީף 1\ߑdl l l , l\ѩީףܼ 1\ĩs⣧ ddܚ̙dd\1ᢟ\l ddļI4!/ F ;ľjm^ (1lldldlٜLlld d=lTQ5P 'TPڨrKT=5Id ,:\Pr4Cd   d d= lTzՑIT;5I̺ &\Prä TOM\5Tf+TR3\Z4 d \hT/ B1Te\Z5 lh\ B1\\Z6% lրh\ B1\\Z7 lÀ"h\ܽ B1\\Z9% l̮h\ܨ B1\\Z;% l̙h\ܓ B1\Tzߑe d 5 l lF 0d  d\בeld \Ϥ3e\Ǥ1e  3K(l d,d l $ d \1e ܩ 1 ,eh\eTZV d dhT/ B1TeTzߑe d 9 l l\dd\1کףe [ll \Ӥ3e2 l\ä1e\ve d $ d lGl\1e &lXl \3e ̴̶lTz1e ܼ 1TR}\Z~ d dhT/ B1Te lfdܔ B1C\ǢOe\Z+ lԀdh\ B1\' fFf d!,d `m4 nT11d32d4 l0n  nܻ 1(1H1,//)(1H ,/) (1H ,66A2)(1H ,66A2/) (1H ,/////66A2) X%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX AhKJhAHFv" c h8"5T39cTh.h;X7H&8%#Tl$h$h`  TT  TF TTi4h255؈ȇX h&ڨ*IhTT 123p=H ' &eh @ȫTȨXȞ Teȡ`><Ȓ T H T dT TTT4 h3HHdLhdMDhhdTFKhh hHL8@ hk"ThT h~"  b hvT PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTT `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhw"h:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX T hX THX TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhd,hhuXh̺ (BD n&ȫd-ȫ  hJIEhE h h  hh h8H60TXX h%`" "h*hT def T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXhNXhw  3K<Xh:a62Hl20X), H,)H& XXh a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 T*(%!T TF \TiT \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT 2X X' h$  X0X XzШ Xhˠ T T H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUE"pCREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $ Tzb]b7h 3 -#hTЌc j h ( h\ߺ#ef^f\Teag\e\gag e HTTh\h\h\hh h Hq``X`HX " h HhB4 "c"   hhhhhT4TFHTTh\hh\hh+ )(,/.XH0123456789AREF$ID'*Z  1(1H1,//)(1H ,/ (1  h2) l : T^ l ll h2X l \ hlElh hhhh hhTZXY h hظȶ趖1 ,Ȱ"!& 1 ,j!#%')/\ 1T̻0T*v26 l44 l2 / ! + !l d{d] l!!   d^dX dYT^XY % d \_\2  l !  Rld`l l l l l\ƻ^XY d |6WalT  |"T̻0T*v 6T^ l dP dV dU l ll  TZ\ZTAZ̙ l !  dXdYTZXY\޻ZR l ! dZ̹ $b lS, l ddj ldTl d l l l l l l dO̘  l̒ \Z̹  ̱  TAZ\Z11̡  ̙  TZ2H/TThV\hD\hB\hhh\hh\h\h\h#h\h\hh% !!\M-Tz <\ԩM/ܬݜ (T_r\ݩ h  3KPl'd  \ƢI]\ -0 ]F dED.#d d $* dT T4 h jظ 1 h " < )P d h.\B d̼ !T 9ldRl̩ l  dTj\㽷̛  ldRll d d\ɽ    !> ḷ l !& !/ l 9!/̫ !+̧ h$l !( l 5T l̻ ̵dl\gT̽T*vB  0l\\B ldd d:\ͽ  ld 9!. !* hĈl̨ l 3\    d !Tj l F7̣ 4̠ l̜  0lT̽T*v ddldddd d fi 1T  l _  l  l g\ݽ쌾l n$ lLdd̬lm,lLlll ̲ ll,܌lLlެllk,Ќld l ̓ l gT B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷  ̯  Ed l D\̠ ̜  d  9! ! d$l c" l T  0l do̱ k3 dl՜lddjdkdldd D lmlnddl Tko̻   l  dldldl dTjk l\l l\mṊl T-koo  ̚dl̛dl l\սk l\нl)" < ) EHp d; dl\ ! !lHdlT̘l\ l\ l  Hll\潷ˬl d l ddd d n 1 d +dd dTj l\̗  l\򽬽dddʤd  -lܺdldl dl TOTŦdl  -ldlld d /̼dd$l,ldڤlLdllLld߬l,l,ތl,l,l  ,Llجٌl̶dܬlLlͬlڌlLdԬlܦfo ̜ !̗ ! dp  dn 1  l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ lo !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dn 1 l 0n 1 d 0n 1 d _ _dl Ôl̿ !i̻  l̶8T l \ ld dl !o  0ṉoh\ܫ l̹ l\̳̽ l  2\̥ l 2€oh\ l l 2\ l !d  d8T l \ l\ｿ\ l  ̳oh\ܭ l \ֽ l\ѽ\Ͻdðd+ !" 8 % l\ܨ 1P\\J\\Ddd ddld dl`p=l  lܹ 0f.lۜll 1  +d dlTjό3ld dl -l l l  l 0dd !#  l5Tܘ \ lڜ9h\ lӜ4\ d\ό̨ld dddl *el ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5dl 0e 4 n ḽḷl 1 l l  1 d "g l +T l ! d " ll 8̽h\RKܷ:]  3Kd "g l  l\ѽ̥ l !\Ž̶ l !b@aH^H[TThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA T` h/&hHgaV`H _H H M A cTXFRXB H H\T=:\/  HI&Aa%acAD aa h h HR H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTƸƸ HG9Qs>L1a: Lw T&RH5 I  vR  LaT%\ƸT%  hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ T&B  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR T o H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT&dd HsLoAAd]18SPACE4noPT|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\dXc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`RFTN`0TSBGIN`NRERLE!TOTMIN*qFMCOMPtX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTɚbX&)+25,'x  3KxȰ#`X TɚA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tɚbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTɚbȰ#`X`!dB2 @rdR@`/@oHh HX l` `"i H h HX  sD  1  : E /` `"i Hh HX ` `"i O `  3KǑّ  d,+  l \+ّǑّ Tdv+ &\gۑD lTzv !9 8 ds du d n 1T|vg 'TgّۑTbv+¤ޜ ̽ 1\gۑ\vTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T 9;7h 3 -lhT:j h ( h\ߔl;\^Tea;:::\ai9HTTh\h\h\hhh Hq``X`HX "COPRDECTBL CRDEADDSPTDUEXDBY INPUT=cY d#'.Te 23 h  hhTeΗ56Tޖ7 "+Tܖ7TRZ}T0T((38H DECISION TABLE MAINTENCE PROGRAM IN (,I4,7H WORDS),/) h\R◢\(38H INPUT CR/DE/AD/DS/PT/DU/EX TO EITHER,/,52H CREATE A COMPLETE TABLE, DELETE A TEST, ADD A TEST,/,50H DISPLAY A TEST, PRINT THE TABLE, DUMP THE TABLE,,/,16H END PROCESSING,/) 1 T59: d'Tea;!<;'=> w )0dT8?? ؔ є ʔ Ô x̼ ̵ ̦ h l=TRZ-x d&hT 1T((8HCOMMAND ,A2,23H NOT IN TABLE, REENTER.)w\R0☕0(51H CREATE FUNCTION WILL CLEAR YOUR CURRENT TABLE FILE,/,30H TYPE Y IF YOU WISH TO DO THAT,/)Tea;!<;'>'@AT77 "NTRR6+(53H CREATE TABLE IN PROCESS, INPUT LU OF INPUT STREAM AS,/,19H 2 NUMERIC DIGITS) \R8!(57H IF LU 04 ENTERED, CREATION WILL BE VIA ADD TEST DIALOG ,/)\;!<;.B>.Fd_DH$EdC dG06 f dd 8d _TKCHH p d7 f 1Tޖ7TЖ7 "Tܖ7TRZJ♧ǀhTT((3X,A2,30H TABLE HAS BEEN FRESHLY LOADED) Tq?? " TБ? "T7̟ "N l nܕ 1\7\7̇ "\7\R[$(63H DISPLAY TEST IN PROCESS. ENTER 3 DIGIT TEST NUMBER FOR DISPLAY,/)Tea;!<;$I>%DHd_$F$Eh"H$KdJTJ?? TRZa^TJT((21H ERROR IN LINE NUMBER,I4,14H NOT IN TABLE) $T4\Re⚂(36H TABLE WAS PRINTED ON LINE PRINTER. ) \Rh⚟K(63H DUMP TABLE IN PROCESS. TABLE WILL BE DUMPED IN FORM COMPATIBLE,/,72H WITH CREATE FUNCTION. INPUT LU OF OUTPUT STREAM AS 2 NUMERIC DIGITS ,/)Tea;!<;,B>,Fd_DH$EdLTcL?? TRZnTLT((20H TABLE DUMPED TO LU ,I3)sTf+\Rr1(49H FILE DECTBL NOT DEFINED. USE UTIL AND TRY AGAIN.)\ZuW\7\(37HFILE DECTBL ERROR IN REMOVING ERROR-,Z4) \Zxy\H\(24HSUBROUTINE  3K LDTABL ERROR-,Z4)}TRZ{⛖T7T((43HFILE DECTBL ERROR IN STORING RECORD, ERROR-,Z4) V\Z~⛺\ڗ?\(36H NO DECISION TABLE IN SYSTEM, ERROR-,Z4)6\Z\?\(24HSUBROUTINE DELDT1 ERROR-,Z4)\Z\?\(25H SUBROUTINE DPTDT1 ERROR-,Z4) 1 T5MNTf+T*vBAD OPERATOR BAD CONNECTOR PB .LE. PA BAD SYNTAX TYPE Y IF CORRECT SYNTAX ERROR, REENTER Y INPUT= d  lh h  ю h  "I d ITRZTT(E(33H ADD TEST IN PROCESS. THERE ARE ,I3,25H TESTS CURRENTLY IN TABLE,/,58H ENTER 3-DIGIT NUMBER OF TEST THAT PRECEEDS YOUR NEW TEST,/)TeaabHh(a$h"H$d ! !TRZ^TT(c(37H STARTING TO DEVELOP A NEW TEST, NO=,I3,/,78H ENTER LEVEL NUMBER (1-9) THEN NEXT LEVEL (0-9) THEN NUMBER OF PARMS (1-9). ,/,55H SEPERATE FIELDS BY COMMAS, FOR EXAMPLE, INPUT=1,0,3 ,/)TeaaaHdbHdcHdTtl\l\l " " "  d\TP\``hT=\Мd " !\`h\\ " l lTRZ/AT\\T(,(5H LVL=,I1,7H, NLVL=,I1,5H, NP=,I1,43H TYPE Y IF CORRECT, TYPE N TO ENTER AGAIN.,/) Teaaa l PT "d\Z7 d`h\ 1\((39HNON-NUMERIC FIELD IN LAST INPUT, INPUT=,2A2,A1,21H RE-ENTER LAST INPUT,/)TRZ:TT(A(20HLEVEL ERROR, LEVEL= ,I1,33H LEVEL MUST BE .GE. PREVIOUS LVL,/,30H AND .LE. NEXT TEST LEVEL,/,19H REENTER LAST INPUT,/) d " \Z@6\\(17H ENTER PARAMETER ,I1,58H INFO. ENTER OPERATOR (NULL/.EQ./.LE./.GT./.NE./.WE./.OS.),/,77H FOLLOWED BY 6 CHARACTER PARAMETER VALUE ( 2 VALUES IF OPERATOR IS .WE./.OS.,/,37H FOLLOWED BY CONNECTOR (.AND./.OR.).,/,41H SEPERATE FIELDS BY COMMA, FOR EXAMPLE,,/,33H INPUT=.WE.,000500,000650,.AND. ,/)  TRZCTT((18H ENTER PARAMETER ,I1,6H INFO.,/) #\RF(49H DO NOT INPUT CONNECTOR ON THIS LAST PARAMETER.,/) df` 1Teaa(12A2) d̹  lTa;58 "3 ![TRZR d`hT 1 d4h\ 1 l:h\ 1T('(4H OP=,2A2,5H, PA=,3A2,6H, CON=,3A2,32H TYPE Y IF CORRECT, N TO REENTER,/) d\ZU l̦`h\ܠ 1 l̨4h\ܢ 1 l̛7h\ܕ 1 l̎:hT 1\'(5H OP=,2A2,5H, PA=,3A2,5H, PB=,3A2,6H, CON=,3A2,19H TYPE Y IF CORRECT,/) Teaaa l TN58 "j lTRZa] d`h\ 1 d ,Ō h\ 1T($(42H ERROR IN LAST INPUT. REENTER LAST LINE. ,/,6HINPUT=,11A2,6X,8A2) d\ReG(73H ENTER RESULTS (COLLECTOR NUMBERS OR PRIORITY) TO ASSIGN IF TEST IS TRUE ,/,54H FIRST ENTER 2 DIGIT COUNT OF RESULTS TO BE ENTERED ,/)Teaaad\H$d !̖ l d " 2lTRZo T\T(H(14H ENTER RESULT ,I2,6H THRU ,I2,31H. EACH RESULT IS 4 CHARACTERS.,/,65H SEPERATE RESULTS WITH COMMAS, FOR EXAMPLE, INPUT=0071,0085,0091,/) df` 1Teaa(12A2)T!a> d " lTRZxT\ d`h\ 1 d ,܌;h\ 1T((7H RESULT,I3,5H THRU,I3,8H EQUALS ,12A2,1X,12A2,/) ̦ !\aa l d! "p4,dl , =2a h7 V h- hT hhܘ!/ (1#TRZ hȝhTؖ (1T((40A2) h\ЧfدȬ $Ȣf\Z lh\ (1\Ȓ \l\Z lрh\ (1\ dz\Z \\ lHTT* h h\hhhh\hNNULL.EQ..LE..GT..NE..WE..OS..AND. .OR.  TP "0hT=Ǩȹ(h\ȨȲ!h\ɨ h h hTRZT\\\T(1(/,/,34H DECISION TABLE TEST NUMBER -,I4,10H LVL - ,I1,10H, NLVL - ,I1,8H, NP - ,I1)\RI%(/,64H PRM NUM OPERATOR VALUE 1 VALUE 2 CONNECTOR ) lI dƜ"TT  d d $ d d؜  l lTRZTdߜ9h\ d{h\ 1 lh\ 1d8h\T((8X,I1,10X,2A2,6X,1H*,3A2,1H*,5X,1H*,3A2,1H*,7X,3A2)p\Z"̯h\̩h\\$(/,31H NUMBER OF RESULT VALUES - ,A2,22H, CURRENT POSITION - ,A2)hT=zh\ͨTth%\$ֈ d d dTRZ)vl9̖hTܐT((15H RESULTS - ,  3K2A2,9(1H,2A2))\R+ (/,12H END OF TEST,//) ll.H+TT* hgh] h)hh\ hh\hhJ\hChhh?hh\h <hUhmhh h\hY\h+\hh\ h h h\ h h' h{ hz\ h hL ho hn\hhdNULL.EQ..LE..GT..NE..WE..OS..AND. .OR. ,,   d *fh *hh *gh *phT_uTuʮʮȹ T:u\uʮʮȩ WTRZ6 d d ,`hT 1 1T( (1H1,3(/2X,20R2)) \Z_ d ,h\ 1\Ү\Ю\ή\̮\%(43X,5A2,37H DECISION TABLE CONTENTS DATE ,A2,1H/,A2,1H/,A2,I5)\R A(122H0 TEST LEVEL NEXT NO. OF PARAM PARAM PARAM PARAM PARAM NO. OF RETURN CURRENT RETURNED VALUES)TRR"9(106H NO LEVEL PARAMS NO. OPERATOR VALUE 1 VALUE 2 CONNECTOR VALUES RET VAL )Tͮή͔W dϜ!_ d ,hWTf% 1 ,&h , hT_`_  d ,h2``-f ,h(a%n $ l ,h`nfA ,hofB ,h pfCܞ l ,ḥf@ܙ 1 ddd"J dT]Үѭ 1 KKd֬H$d ld d d 3 d)d \ʮۭ lhT=Ѯ\ݮۭܴ 1Ϝ 7 ! l̙ TRZPmT\\\\ d $̌h\ 1 d , h\ 1 d ,ߌ%h\ 1 d ,ό@h\ 1̤h\̟ h\ dh\ 1T(3(1H0,2X,I3,5X,I1,6X,I1,6X,I1,6X,I1,6X,2A2,5X,1H*,3A2,1H*,2X,1H*,3A2,1H*,3X,3A2,9X,A2,11X,A2,5X,12A2) ")TRZTT d ,h\ 1 d ,݌ h\ 1 d ,͌%h\ 1 d ,@h\ 1 dh\ 17  3KT(&(32X,I1,6X,2A2,5X,1H*,3A2,1H*,2X,1H*,3A2,1H*,3X,3A2,9X,2X,11X,2X,5X,12A2) TRZW? l€hTܻ 1\(104X,12A2) K d=\Z`b\\\,(1H0,17H END OF TABLE ,21H TOTAL TABLE LENGTH =,I4,24H MAXIMUM TABLE LENGTH =,I4) 3@2H/H,TT* hY hjhh h h hI h\hfhhhhIhhoh,E "p8(d>h (  h hT=Ʋ 8 h h hܘ!) h\ʲ     ؽT]Dzȴ س lȮlHTT*hh\h\h\hDECTBL "3 l: 8j6 412h l.T޳2JZ !*Tʳ2Z ! Tܳ2ZԜ !  hhƘ9 n ȺlȺlȸlHTT*h\ h h h h\hX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`h Hq``X`HX " hHhB4 "c" H]h\hRhMhRKuXhKJhAHFv" c h8"5TE39cTh.h;X7H&8%#T/$h$h`  TT  " TF TKT,4h255؈ȇXuh&ڨ*IhTTp=H ' &eh @ȫTȨXȞ T(ȡ`><Ȓ TH H T dITD TTHTGGGGHGGGGG h3HHdhdDhhd{TFKhh hHL8@ hk"TThTO h~"  b hvTm PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTWTf `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0IN ZEZCT'd INE CP hrHr s"htjqh hDh`Hah`I/O REQUEST READ     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TOHXINZMT TL `u HehdhgXlXvhb"aTEZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdRhhuX|h̺ (BDI n&ȫdȫ  hJIEhE h h  hh h8H60TDX?X h%`" "h*hT'() T h hhh ll X# Xhh@4i` Xj TT Cr q d  3K Y hUDhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ TH XT%T\ XFDh5TFh120-3 T*(%!TD TF \T,OTq \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" TE+TDX% hT\H `CT TH@ TFhTDh XX TDTW 2X X' h$  X0X XzШ Xhˠ T TW H= X H8X H0TX*@) \TJ   hTH BE STOP PAUSE d h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh d " lTRZxT\ d`HDR0HDR0  TeҼҼT}Ӽ}Լ T̼ռּ}*gl\*hlY*flV h $~f 1\߼м}Ӽμ} hn>n>Ƚn<ظ 1T޼Ȩ !1 h؟T̼μț ! h (hnؕ 1 1Tܼ cHdTtHTT* h h h h\h h hfLAUTIFIL \Мd " !\`h\\ " l lTRZ/AT\\T(,(5H LVL=,I1,7HHDR0HDR0,5 ,I1,*glZ*hlW*flT h (j 1T̽ʽwνȽw hn=n=n; 1T޽y !0 hؽT̽ȽȾ ! h (hnذ 1ئ 1Tܽ - ,I1,10H, NLVHTT* h h h h\h h hUM OPERATOR   hhhhhTVWXRQSTUlITȦVWXRQSTUHTT*h\hh\hh+ )(,/.XH0123456789AREF$ID'*Zh\ d{   h\ l : T! l ll h l \ hlElh hhhh hhT־ h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/Nd 1TT*v6 l44 l2 / ! + !l dd l!!   dd dT־ % dh\\\  l !  ldl l l l l\ƾ d3 6l  "TT*v 6T! l d d d l ll  T|!\T̙ l !  ddT־\޾ l ! d̹ $Œ l, l d3d ldl dz l l l l l l d̘  l̒ \̹  ̱  T\̡  ̙  T|2H/TT*hV\hD\hB\hhh\hh\h\h\h#h\h\hh A(122H0 TEST LEVEL NEXT NO. OF PARAM PARAM PARAM PARAM PARAM NO. OF RETURN CURRENT  3LȨ'd Ȟ T(ȡ`>< -0 H TF ED. THTGGGG*GGGG T h jظ 1 h U" < )P d hŽ\Ȣ d̼ !T| 9ldRl̩ l  dT-\̛  ldRll d d\    !> ḷ l !& !/ l 9!/̫ !+̧ h$ l !(K l 5T| l̻ ̵dl\gTT*vȢ  0l\!\Ȣ ld"d# d:\  ld$ 9!. !* hĈl̨ l 3\    d !T- l F7̣ 4̠ l̜  0lTT*v d&d'ldd(d)d* d f 1T| K l ÿ  l  l \Ll $ lLd +d,l,lLlll ̲ l,܌lLlެll,Ќl-d# .l ̓ l T| B > : 6  93 % ) * l 95 2v  0lo  dL d&lX̺ ̷  ̯  EdK l D\̠ ̜  d(  9! ! d '$ l c"& l T|  0l ḏ k3 dl՜*lLdddddd D llddl TX̻ &  l  dldldl dT- l\ l\Ṋl Tɍ & ̚dl̛dl l\ l\)M" < ) EHp d; dl\K ! !lHdlT|̘l\ l\ l  Hll\ˬl d2 l d d d d n 1 d3 +dd( dT-  l\ ̗  l\ dddʤ5d4  -lܺdldl dl Tͯ T dl  -ldlld6 d7 /̼d8d9$ l,ld:,lLd +llLld;߬l,l,ތl,l,l  ,Llجٌl̶d  dn 1(   l 7 -ldlM  Ԝl Όl d7 !Y 1TΫ n !M̷ d?̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ d#n 1 l 0n 1 d 0n 1 d"M ƿ ƿL2dKl( Ôl̿ !i̻  l̶8T| l \ ld3 dl !  0ṉh\ܫ l̹ l\1̳ l  2\̥ l 2"h\X,7 lK l 2\@ lL2 !d#  d8T| l \ l\\1 l  ̳h\ܭ l \0 l\/\(dAdB+ ?!" 8 % l\ܨ 1P\\J\\Ddd= d6dl *l ̬ l̩dD ,\̤ l ! l l윳4\ܯm l?`p5d +l 0e 4 n ḽḷl 1 l l  1 KdC " l +T| l ! d# " ll 8̽h\ܷP^  3L " l  l\%̥ l !\̶ l !b@aH^H[TT*hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA+) TB` h/&hHgaV`H _H H M A cTXFRXB H H\}}TA}}-=:\}/}-/  HI&Aa%acAD aa h h HR BATCLUo H TBԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HTA HG9Qs>L1a: Lw T&RH5 I  vR  LaTͅ\Tͅ FMPA06FM hh H-uhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  TB"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\HH\H?H@T:\ H?B?HTφH?HB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR FMPA H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HTφ HsLoAAd]|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhh?uhi f[G ߂M^@BPCE}GN HJzLLK@H dbb@`TSCLLB`8INCRECTSLCUPX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,؄  3L,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T.a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH"h! HX @    ` `"i LADLQMST TOTALSNUMBER OF ACCOUNTSDELINQUENT AMOUNT CURRENT PAY OFF ***END OF REPORT*** IS SR REQUEST WILL NOT BE PROCESSED dLADLYWRK LATRNSFL LAUTIFIL  7  3L@  % ( *gh *hh *fhTe Ttۑܔ Ttޔߑt\ޔߑ\񑒔ޔߑT\ё77 (Tӑޑ7:\7 '\񑃔ޑ7T`t7 h f؏ 1\ёt7 '\ӑtޑ7TH7¤0̻ '\7 d".,d hGTҔۑ@ۑ66 * $h5\Ҕۑ8ۑ6 * h%TҔ<TJє<77TN (Tӑ7_\۔>\>:6̳ \ɑ8>\‘\>\בߑTN7̵ &\t7+T h\ҔATea4As5O3TZё7\7\7Tf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i H"h! HX @    ` `"i  FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T7h 3 -LhTj h ( h\ߗL\>Tea\AIHTTh\h\h\hhh Hq``X`HX " hHhB4 "c"H h HX  sD  1  : E /` `"i H2 H-3Z2"4` aADe+aa AA a a Vh` H]h\hRhMhRKuX hKJhAHFv" c h8"5TF39cTh.h;X7H&8%#T0$h$h`  TT  TF TLT-4h255؈ȇX h&ڨ*IhTTp=H ' &eh @ȫTȨXȞ T)ȡ`><Ȓ TI H T dJTE TTITHHHHIHHHHH h3HHdhdDhhd|TFKhh hHL8@ hk"TUhTP h~"  b hvTn PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌTXTg `h Dh XX\\ TaH #h! TT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DT  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TT aH> 3 DH-j+̾Ⱥ(j'% hȲDhT̝Ȟ̘nΙlؘؚș _ U h;  3LT HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0 'd  hrHr s"htjqh hDh`Hah`I/O REQUEST     X XX*EX XX&X+@XXX< XwhHh h,h*X" h$ h!X h hX ThX TPHX TL `u HehdhgXlXvhb"aTFZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+ h n ;ln  H T` + ȋXh؆1   HhH㞚  TT hhhhdShhuXh̺ (BDJ n&ȫdȫ  hJIEhE h h  hh h8H60TEXIX h%`" "h*hT()* T h hhh ll X# Xhh@4i` Xj TT Cr q d Y hUDhT XHXqhNXlhXch:a62Hl20X), H,)H& XXCh a&hh۸nX X h H   HThhh=@ TI XT%T\ XFDh5TFh120-3 T*(%!TE TF \T-PTr \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHX"9" "hh0" TF+TEX% hT\H `CT TI@ TFhTEh XX TETX 2X X' h$  X0X XzШ Xhˠ T TX H= X H8X H0TX*@) \TJ   hTHSTOP PAUSE h\H jN qDhQ`hS \hL!:R hJE hBEOi:DhB  3LhLADLQMST   hhhhhTabc]\^_`Tabc]\^_`HT&T4h\hh\hhEM+ )(,/.XH0123456789AREF$ID'*Z   h l : T" l ll h, l \ hlElh hhhh hhTףţã h hظȶ趖 ,Ȱ"!& 1 ,j!#%')/Y 1TT*v6 l44 l2 / ! + !l dd l!!   dd dTףɣã % d'\\  l !  ldl l l l l\ƣɣã d> 6”l  "TT*v 6T" l d d d l ll  T} \T̙ l !  ddTףţã\ޣ l ! d̹ $͌ l, l d>d ldl d l l l l l l d̘  l̒ \̹  ̱  T\ţ̡  ̙  T}2H/T&T4hV\hD\hB\hhh\hh\h\h\h#h\h\hh TL  hhh p8DIC00 X56, ISTAT = 1234. CR T'd EATECLEAR DELETEOPENFLCLFLKF LFIL-0 DFCBREFMEVOLUSEPUED.R GETSUPDRECDELRECCOMFIL12*56K#7 TWRS LAACCAGE 997 998 999 LARSWFIL SCRNFILEDELQMST #202<!ERROR - STATUS CODE NOT FOUND ON SUPERVISOR CHANGE SCREEN.: 00 2R #&) 2;DwM *gh *hh *fhTe TБ  Ⱦ ,TT  \  \ШБ \,, \## \ܧ|| T֑ȍ "tTđ*Ȃߜ w "wTԑT* d !% , d   FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T%c^c7h 3 -$hT#dj h ( h\߷$fg_g\Teah]f\hbh!fHTTh\h\h\hh .0 T h h 1 Tķ T%ķ \ķķ h 1\ŷǷ\ȷŷ\۷ɷȷHTThh\hhhhhhhhLAUTIFIL HDR0HDR0 TeR~~~TŸ+)R)~ T%++)*gl\*hlY*flV h $*f9 1\߸|)z) hn>n>Ƚn<ظ 1TP:+~Ȩ !1 h؟T>:Rz~ț ! h (hSnؕ 1 1TN:~ HTT h h h h\h h hfH h HX  sD  1  : E /` `"i Hh HX ` `"i LARSWFIL t  3LLAACCAGE   3L  3L  3L  3L  3M n  3M Y  3M0 1000*M-999 K = 2*J-1 IF(WRKMST(J).EQ.$2020.OR.WRKMST(J).EQ.FDEL) GO TO 300 CALL PUTS(REQBFE,EXTREC,1,ISTAT) IF(ISTAT.GE.0) GO TO 300 CALL FILERR(IDATEX,11,ISTAT,LU) GO TO 850 300 CONTINUE IF(EFG.EQ.1) GO TO 850 CALL CCSBLK(WRKMST,18000) GO TO 100 850 CALL CLOSFL(REQBFD,ISTAT) CALL CLOSFL(REQBFE,ISTAT) 900 CALL PGMOUT END *JOB, *K,P2 *FTN MON*LIBEDT *K,I08,P08*P,F,2*K,I08*N,RPTEXX,,,B *ZIF(ICMP.GE.0 .AND. JCMP.LE.0) GO TO 200 DP&20*8  "'$.< d#()J I- , hT>hhhTy "T hTЈϰ h\\Tș Ph\Wȏ Ph\߰Zȅ Ph\խ  Pl\ʬȩ Pl\s Pl\ Pl\) Pl "p4dLd l\B̿ Pl\Z̵ Pl\̫ PlTЈ̠ Pl\©̖ Pl\۩̌ Pl\̂ Pl\׮  Pl\̮ Pl\® Pl\ Pl\ LADLQMST  PLEASE ENTER "AS OF" DATE FOR TREND ANALYSIS CALCULATION - ENTER : MMDDYY OR CARRIAGE RETURN TO USE SYSTEM DATE l\̯ Pl#);&2D kw2);M !"RSW 998 999 997 +uTu} "ThTзİN\İj d   l HT 8\ 98$9 d7T>75 d\Ŭ\ƩӰ\өll\Ŭ\Ʃ氕\)d. Z̤ \5TЈ5\h  3MD dl\ 8\ 9̕, l\75\۬5j\Ԕj\5\ʬ5j\Ôj\j llFT 8\ 98$9 d7T>75\5N\N du\+uTu} "\Ɣ 8\Ô 9,Ȍ l\ˬ75TЈ5N\N\Nd* ʔ e d\5 )\Ƭ5Tз\#l\ﰺ\uCl\5j\j\Ѱj\jQl~\jTЈuClm dFdL\BwdẊ lT>5̈ \Ӭ5\̬l:\5j\j\jl l̴l\BCl* @ʔ llTЈBCl dFdL\Bd ll\٬BClκ 6̺ !̜l̼l\B AS OF DATE WAS NOT GREATER THAN LAST RUN DATE YES NO:DELQMST THE DATE ENTERED IS . IS THIS THE CORRECT DATE? Y OR N 2T0z @NON Y #*) 2kR nm000 d Te̟όύώT}Ϗ̟ϐϑȰ Tݑϒϓϐ\pϒϓpϐ\fϐ<ϐT/+pϔȔ (Tqpϒϔό *gdS *hdT *fdU^hTmϖT+Cϔϔϗ dd . '\ˑpϘϔό\ߑϖ\ϖCϖϙϙ OdPd ll\CCϚϒ\ϖ\Cϛ l l l l TeaόϜCϝϜVϞTVVϘ\όϜbϟϜVϠϞϞ Vϡ\SϓjϢϓ\VϓjϢϓdϊ\όϜjϣϜϊϏϞϥϤϦ[ ʜ \ TV !\SϓVϓd 5 dO\Cϧϓ]ϓX_ "pT ]dϨ\Vdϩ "p  T]ϓCϪϓ\VϓCϧϓ T+Cϔ̷ T+Cϔϔ 1̪  dϫ̤  lTqpϫϔόT-+ϔcϮ"p4ϯdϭp4ϱdϰ d|d}d  dHdI llT3ϔ̻ '\ȑϔό dϲ f* f 1T/+pϔ̜ '\pϒϔό\<ϔ̎ '\<ϒϔό\ϔϔ '\ϒϔό d̤ ӇT+ϔϗ d_  (TqpϘϔό9dϳ 22 dϴ"6$϶ dϵ^ / 2hT ϖKϖTKϔ̘"̒Ϸ"̋ '\<ϸϔόTսϹϺ dϻ\ϻϼϼϺ  1 9  ) dϲ̱h̭h̗ẖh ̩hϵh\ 1 l׀hӀ̻hhˀh ǀ̵hTݑ ܻ 1\Ͻϓ̥ϓϻ 1hhT} Ϫϒˑϒϑϑ ia d?$϶ dϾh ̠h\ Ͽ Ͽh ,ˀh\ ϒ Ϫϒϵh\ˑϒ Ϫϒ˔b !T!aϔϔ (Tqϔό l` F$dԔ΀hT̨ϒ Ϫϒh\ˑϒ Ϫϒ l d^ϴT+ϔ '\pϬϔό_  l a !?  d dT+ϔ̖ '\pϸϔό\ˑϒϚϒ\+ϔϔ 2TqpϬϔόTKϔϗ ḻ  '\<Ϙϔόdϳ Ԃ dϴ"Ԇ$ϱdϵ ԂTmCϿ dϫh̻hh ̵hހhT C 1̀h\ Ͻϓ̥ϓ€h\ ϖCϖ̷hTս ϹϺ dϻ\ϻϼϼϺ  1 !')dԔd^\̨ϒCϪϒeT+CCϔϔ 1FTqpϠϔόa$϶ dϾ ,hT ϒCϪϒh\CϿ Ͽb !T!aϔ '\ɑϔό l` ϴ&_ Ӈ l !q d̤d̨d̩T Vdϩ\̥dX̧ BddŜ $l $lЌٜl 'll*ʜ"lp4d,d$h  3MXdp4d,dd 0h 0Ȉ l 0 l T-+ϔ \+ϔ\ϔ\ϔTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @ FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUE CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $ Tַ)ֹ$)7h 3 -hT׸* j h ( h\,-ֹ%-\Tea.ֹ#ָָָ,\.(.ַ, HTׂTאh\h\h\hh h Hq``X`HX " h HhB4 "c"H h HX  sD  1  : E /` `"i 000000  $2Ykw99NO0000000000000000000010000000000000000000000000WRS 000000000000"ra@FgOYES 0000 MODIFICATION PROGRAM IN ENTER "UPD" TO ADD/UPDATE, "DEL" TO DELETE, OR CARRIAGE RETURN TO EXIT INVALID REQUEST ENTER KEY OF RECORD TO XXXXXXXXXX RECORD -XXXX- NOT FOR ADDITION, DELETION, OR UPDATE THRU THIS PROGRAM RECORD -XXXX- IS REQUIRED, CANNOT BE DELETED RECORD -XXXX- DOES NOT EXIST, CANNOT BE DELETED RECORD -XXXX- ADDED SUCCESSFULLY RECORD -XXXX- DELETED SUCCESSFULLY RECORD -XXXX- UPDATED SUCCESSFULLY UPD DEL ADD/UPDATEDELETE ** COIDHDR1HDR2HDR3RSW1ACTCRESCSALCDALTSMTHTMTHUPDYOLPMLTRFRPTGLTR1LTR2HOST** NAME ISPHONE EXT CSUP QUEUES... ---------------------------------------- R---,S---,W--- CODE1 CODE2 CODE3 CODE4 CODE5 CODE6 CODE7 CODE8 CODE9 ---,QUE =---,QUE =---,QUE =---,QUE =---,QUE =---,QUE =--- --- RL--,P--,C--,NA- N------------------------- ->  3Ml *J &04LPN$4Te'(TO) "Tea*X+\*Y,d?d@\璒*n-*?. A  d , h   1\*0 , hT(121̹dTdU\*3*T/̺  d4    l d1 l4 1ddTea*-p  ̮ḓd\䒒*՗5U̝dV̜dWT=*V))  " ;  TdUd\*6T7*) " dd\*3 d̳Ü ̮  lT,7̿d*d+ L4& d&Tp&7f.7Tea*f8 dR\󒒗*,9*?7 e ` d'!T?'( [(8 5T(',̝ T9*)) !;Td1Ud2\*,3zT?*T) !d d \*:_ l l l l lTƑ()k;ll ḷ l !& !/ l 9!/̫ !+̧ h$l !(E l 5TZ l̻ ̵dl\gTmT*v  0l\\ ldd d :\͟  ld 9!. !* hĈl̨ l 3\    d !T  l F7̣ 4̠ l̜  0lTmT*v d d!ldd"d#d$ d f 1TZ E l   l  l \ݟFl $ lLd%d&l,lLlll ̲ l,܌lLlެll,Ќl'd (l ̓ l TZ B > : 6  93 % # $ l 95 2v  0lo  dF d lX̺ ̷  ̯  EdE l D\̠ ̜  d"  9! ! d!$l c" l TZ  0l ḏ k3 dl՜$lFdddddd D llddl TRŞ̻    l  dldldl dT ş l\Ɵ l\ǟṊl TŞ  ̚dl̛dl l\՞ş l\ОƟ)G" < ) EHp d; dl\E ! !lHdlTZ̘l\ l\ l  Hll\ˬl d, l ddd d n 1 d- +dd" dT  l\̗  l\d dd ʤ/d.  -lܺdldl dl TTd l  -ldlld0 d1 /̼d2 d3$l,ld4&lLd%llLld5߬l,l,ތl,l,l  ,Llجٌl̶d6lLlͬlڌlLd7Ԭlܦf ̜ !̗ !F d8  d n 1"  l 7 -ldlG  Ԝl Όl d1 !Y 7o  3M 1TΫ n !M̷ d9̳  l!̩ l !5 n̜ ܡ, d̥  ̦ l 7 +l̞dlܚ dn 1 l 0n 1 d 0n 1 dG  F,dEl" Ô l̿ !i̻  l̶8TZ l \ ld- dl !  0ṉh\INܫ l̹ l\̟+̳ l  2\̥ l 2h\1 lE l 2\: lF, !d  d 8TZ l \ l\\+ l  ̳h\Xܭ l \֟* l\џ)\ϟ" d; d<+ 9!" 8 % l\ܨ 1P\\J\\Ddd7 d0d6ld d l`p=l  lܹ 0f.lۜll 1  +d d,lT ;l;/d. dl -l l l9  l 0dEd= !#  l5TZܘ \ lڜ9 h\ lӜ4\: d\;̨ld7 d0d6d8l *l y̬ l̩d> ,\̤ l ! l l윳4\ܯm l9`p5d%l 0e 4 n ḽḷl 1 l l  1 Ed= " l +TZ l ! d " ll 8̽h\ܷ " l  l\џ̥ l !\ş̶ l !b@aH^H[TT#hh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShAl T;` h/&hHgaV`H _H H M A cTXFRXB H H\wwT;ww'y=:\اw)w'y/  HI&Aa%acAD aa h h HR E l H T;Ժ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT; HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T  hh H'uhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  Bȳ  3M H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T;"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\BB\B9B@T:\ B9<9BTԬB9BB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR rx H XԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT HsLoAAd]4HPORT,3X,4H!|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\Xc N[ hhh9uhi f[G ߂M^@BPCE}GN HJzLLK@H ^bb@`TFhT"h XX T"T5 2X X X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! T(a a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTbȰ#`X`!dB2 @rdR@`/@oH h HX  sD  1  : E /` `"i !b$"A1f" Xb H"h "hXs"H" " b b  X Xٲ5 XXԲ:&H Lbb@ H `HZh Hq``X`HX " h HhB4 "c"Hh HX=  }hH 9 ﵙ  3M" :  0n  d 0fhIIccZHY TR NhQHQ 9 " :  0A  d 09hLL44-=HSS^ L^  5`2h4 `"i H h" "" H3h2 HX/ l* "  f  ` ` `"i X"h1 h0 X|h( @h'# "``HH" H `"i ] [.<(+^&!$*);\-/,%_>?:#@'="0ABCDEFGHI}JKLMNOPQRSTUVWXYZ0123456789@Z{[lP}M]\Nk`Kaz^L~no|J_'OmHh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i  DkH%h$"h Hh*p @ 8 0 0Fh `&`H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @Hh"h H  F` 4@HX H{hy HXXXXҘ1O à hR & h( h !2f#2  |2" vAfwAw r"#2#2_]c`_R^YRANS"#2D#2 hKXh X A ,#)$h/@@" T 7 ""  (h  hh( h 0F FԸߠ % hh¼Š  (h 0Fȷ hȲLADLQMST LAWOEF FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUEFMSWCREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $T7h 3 -FhT޹TSj h ( h\߹F\8Tea\;CHTgTuh\h\h\hhH h HX  sD  1  : E /` `"i h7  3M%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTbX&)+25,Ȱ#`X TA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Tbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX. ANSWER (1 OR 2) ENTER AS-OF-DATE (MMDDYY) ENTER NUMBER OF DAYS DELINQUENT (NNN) ENTER WRITE-OFFS SINCE DATE (MMDDYY) ANSWER (1,2,OR 3) ARE SUBTOTALS DESIRED (YES/NO) RECORD COUNT--R RECORDS 000000000000 RECORD COUNT--S RECORDS 000000000000 RECORD COUNT--W RECORDS 000000000000 RECORD COUNT--OTHER RECORDS 000000000000  CHOOSE ONE OF THE FOLLOWING REPORTS: 1) ELIGIBLE FOR WRITE-OFF REPORT 2) ACTUAL WRITE-OFF REPORT  CHOOSE ONE OF THE FOLLOWING WAYS TO PRINT THE WRITE-OFF REPORT: 1) PRINT THE REPORT BY ACCOUNT TYPE, QUEUE ASSIGNED 2) PRINT THE REPORT BY QUEUE ASSIGNED, ACCOUNT TYPE 3) PRINT THE REPORT BY STRAIGHT LIST DELQMST &("  *B<:, 2kxX^Y pqs!.TeܽݽTˉߑȼ T\֑ป0dd*gd*hd*fdTh^hTeaܽ,\ܽ?\ܽS d\ܽw Hd 2! !db\  \ܽ漀 \ܽ漤  T T+  ! J\Teaܽ漏 ̜d ! ! d!Tˉq !\> !T\ܽd\ܽ潅\ܽ潣\ܽT\ܽ漸  H d ! ! 6\ӑTeaܽ½ Tˉo \ߑ?߽  d[ l ̺  1dc ̱  2l̬  3l ̤  4l ̜  5lTs (T͙\︪ '\ db TΑsפФ *\̸¿ dd@ d!h $d $d M dhETˉsY 8 1րhTÌ T !Ty¾T ¾\¾tdLМylЗܕ̌ hTΑs +T͙¿ dd@ d!{ $d $d dhTˉsY M dۀhTÌ \q 1€h\\ˑq Ty¾T ¾\q¾ dL%l R d2d 'hch 'h\ő 1c 6  ׄ ds\s¾ ˄ l\s¾̿l\s¾ ̵lT鑋s¾\bߑ¾\cߑ¾$ d h\߸‘ !TԸ ۽ (T͙  l Fρ dlTˉsY  1TʥGAA \G\\ \GMM \GSS> l  d\Mqe  3M̼ TM 1 l\Sq̢ \S 1 lTˉ\q \ˑ\ܷ 1 l\Aq \Aܞ 2f\MӾ\S\\\ATeaܽӽ\ܽ\ܽ\ܽTs\Tf+T*v hlh !ThTD(l H T T.h\h\hTTh\h\hT7  \\h\h\h\T7p8h(d h #Ȩh hȪhȡ9ȱ Ȯ ؙتȔdh \Ҹ " lTİHT T.h\h\h\h\h\hx W hVBœS  hO(hp8hڌI lH D#DlB> h@T7-@è9h9\-@êTî\@èì\ä\ۮìê@ï (h \-@ñ (h\-@ô h\Ӹïñ>ج\˸ïôï\@ïù\ù\\ø\ôùp4ö,d lHT T.h\h\h\hh\h\hn00 >h hn9 1  00l- (dh -&l# h 1p8(h͘ 0hA hȨ  @m Ȼ@mp8hȭ h !@HHT T.h\ h h hX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`h Hq``X`HX" hH%  H H h@X`X`h G`!d`e1=` `a@()T7A ` AJ&\ ` Q9X"` `\׽@ `@T\˴1X` `\@XZ!1e\@  0 8khd A@@ @` `@X2""``T7\ ``@ `@X""`\$@Xh`\V@ %\O}@ @\H[@|o?C5Ƙ1 `>Ř3Ƙ= " HXI `B\#Z]Y^]J@Ő1G" `R z` `T7ؔ3\՞+(Y^#Y^Y^Y^ Y^]@ŀ`\\յ@@>UV=UVŐ1` #d*@1*A`ݠ4ad`Š 1`T7^]مٝYٵ ^\@Zy@X @@A@@UNa.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X  3M/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T#"" R1 H XRRt`pHh HXE  }hH 9 " :  0n  d 0fhIIccZPY TR NhQHQ 9 " :  0A  d 09hLL44-EP[[f Lf  5`2h4 `"i H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @Hh"h H  F` 4@ FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUECREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G700 $00TQLQ7h 3 -hTͪRj h ( h\TUMU\TeaVKT\VPVTHT T.h\h\h\hhH h HX  sD  1  : E /` `"i  00FILE $$ SYSVOL @NON Y #*) 2kR nm000 d Te̟όύώT}Ϗ̟ϐϑȰ Tݑϒϓϐ\pϒϓpϐ\fϐ<ϐT/+pϔȔ (Tqpϒϔό *gdS *hdT *fdU^hTmϖT+Cϔϔϗ dd . '\ˑpϘϔό\ߑϖ\ϖCϖϙϙ OdPd ll\CCϚϒ\ϖ\Cϛ l l l l TeaόϜCϝϜVϞTVVϘ\όϜbϟϜVϠϞϞ Vϡ\SϓjϢϓ\VϓjϢϓdϊ\όϜjϣϜϊϏϞϥϤϦ[ ʜ \ TV !\SϓVϓd 5 dO\Cϧϓ]ϓX_ "pT ]dϨ\Vdϩ "p  T]ϓCϪϓ\VϓCϧϓ   3N T+Cϔ̷ T+Cϔϔ 1̪  dϫ̤  lTqpϫϔόT-+ϔcϮ"p4ϯdϭp4ϱdϰ d|d}d  dHdI llT3ϔ̻ '\ȑϔό dϲ f* f 1T/+pϔ̜ '\pϒϔό\<ϔ̎ '\<ϒϔό\ϔϔ '\ϒϔό d̤ ӇT+ϔϗ d_  (TqpϘϔό9dϳ 22 dϴ"6$϶ dϵ^ / 2hT ϖKϖTKϔ̘"̒Ϸ"̋ '\<ϸϔόTսϹϺ dϻ\ϻϼϼϺ  1 9  ) dϲ̱h̭h̗ẖh ̩hϵh\ 1 l׀hӀ̻hhˀh ǀ̵hTݑ ܻ 1\Ͻϓ̥ϓϻ 1hhT} Ϫϒˑϒϑϑ ia d?$϶ dϾh ̠h\ Ͽ Ͽh ,ˀh\ ϒ Ϫϒϵh\ˑϒ Ϫϒ˔b !T!aϔϔ (Tqϔό l` F$dԔ΀hT̨ϒ Ϫϒh\ˑϒ Ϫϒ l d^ϴT+ϔ '\pϬϔό_  l a !?  d dT+ϔ̖ '\pϸϔό\ˑϒϚϒ\+ϔϔ 2TqpϬϔόTKϔϗ ḻ  '\<Ϙϔόdϳ Ԃ dϴ"Ԇ$ϱdϵ ԂTmCϿ dϫh̻hh ̵hހhT C 1̀h\ Ͻϓ̥ϓ€h\ ϖCϖ̷hTս ϹϺ dϻ\ϻϼϼϺ  1 !')dԔd^\̨ϒCϪϒeT+CCϔϔ 1FTqpϠϔόa$϶ dϾ ,hT ϒCϪϒh\CϿ Ͽb !T!aϔ '\ɑϔό l` ϴ&_ Ӈ l !q d̤d̨d̩T Vdϩ\̥dX̧ BddŜ $l $lЌٜl 'll*ʜ"lp4d,ddp4d,dd 0h 0Ȉ l 0 l T-+ϔ \+ϔ\ϔ\ϔTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @ FILE MANAGER ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUE CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $ Tַ)ֹ$)7h 3 -hT׸* j h ( h\,-ֹ%-\Tea.ֹ#ָָָ,\.(.ַ, HTׂTאh\h\h\hh h Hq``X`HX " h HhB4 "c"H h HX  sD  1  : E /` `"i  62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TF  3N h120-3 To*(%!T TF \TT@ \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT& 2X X' h$  X0X XzШ Xhˠ To T& H= X H8X H0YT^X*@) V\TJ   hTHT BE STOP PAUSE IT 0 h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dha.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`pH3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i Hh HX ` `"i TSLSIZf !  P1829 9 n ȺlȺlȸlHMIB Uh\ h h h h\hFNR o&TOD READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ADEV uTHDS REQXT iR9MUX1R9MUX2MIBX VqR9MUX4jR9MUX5R9MUX6Q8QBCK6PBAT00 PBAT01'Q8INTB,GTSDT1`READRCx  3N4Q8MAGT/CRDEADDSPTDUEXQ8FGETCOMM18cJBCNFGp!RELBYQCMRECADz& DATFMTREMLOKv7DCLOCKPCKUADRuNSTACKSMDAERREADRX}PTCLRB"7TZQ8RWBU|eTMRTHD8H DECISIOVERIFYINTENCE PROGRAM IN (CDUMMYSECTORQCOUNT ETRMNL_UT CR/DE/AUNPTIMo/EX TO EIN14  CREATE AQMINTXUNPSRTTSUSER7fFUNSHR|PTSUBRTSLUNTeL1829 L1860 EOF COPRDECTBL I18331# S18326P83310 Q8IGP NULL.EQ..LE..GT..NE..WE..OS..AND. .OR. FILE4 p ,, CPREL h UNFIX RCTV i~ h h h MINTO *mTuCLOSF }0FMPA02BLKDT1LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlRTVDT1FMPL01K65CORFMPL03vFMPL04%FMPL052SAVLABRELFLEFMPL08FMPL09DUMMY1 DDUMMY2UNPENDBCLOSFRELS1AoQ8EOTTmTCOMPLUSE LEND nwERESET FILE1 pIFALT ͅJPRET *MP1234lBSMD4 RESDT1!BUFF 6K65T12MIBUF o IPROC lQ8QUN3WNUMLU !NXUM 1RJPRET1p"CARDRDl'Q8QINIRMESAGE2Q8DFINGETFCBJLGOV4?Q8QENSSMDCPAFQ8QWND,U2INITFMUFCBw3SMDCPGZVOLENDOUTPV4TERESPLUNAMEONTIME1kUTHEAD_MICSECDENXUC^[EFCOVL#^JPRENp#/ABSPARuv\UPDRECEXPIREZ>USKNPGTSWSEC_aDENXUM^TSCKPM`@EFSTORSMTSIMUNPTBL`EXTREGh%COMREQCOMSEQzrEMPSRT*MSYSDAY01SWAPARQIN d  1 1lPRO mASC ikTh(h1h>hUhmhRW kPhY\h+IDR56 L18326h\ h h' h{ hz\ h hL ho hn\hJPT13 1SPL4 SAVLU kbHSEEK9 CPTBL ,!CPADD hDAYTO *kM1811TISMD #CPCHK h|MMALC _DEBDT15ALVOL mOPENF }3FLIST *uPORTS AUTON 0DPTDT1cPWFOV moAREDT1SPCEV4SETBNDh9CWLGT0 DCWLGT1(CCSMVACNWAREJLLUV4*STLPV4nEoLNDISBLIKDUM}yJOBINDo FIXONESMDACPe8WRTBAKyCPTBLNTSCLLB`8INCRECTSLCUPeTSVFTN`!JOBENTCLRINTryTSXERRfSYSCOP~FMBRRNwT15 PTNRELFMSWAPtSWAPONnvTSUSCPgZN7 MPDRIV N9 AYERTO*fLVLSTRh h h\hhFhph\SCH nGET S1860 **%%(LN4 2a h7 V h- hT hhܘ!IDR12 zL18273 hȝIDR4 ؖ (1T(40A2) h\ЧfدȬ $Ȣf\Z lh\ (1\Ȓ \l\ZECXIT FILE2 pCCPLU ^WCONT 5END0V4Z8MMEF =DONE qCPDEF hKI1811TESMD MONI iOkYERTO *iNAMEV4MAUTFA oI1811ZbMINT LOOP n}HQ8DFADIGPMDT1JPSWT pDSPDT1aQSAV mmYD  3N\VINPV4oPUTZ }CDRDSMXMTEND1BMAXQUEALTDAITDFUNCFMSCOMt SLICUPeALCOREtLOADINp BGNMONZLNRESPrLPWFAILmNTSRFTN`0&TSBGIN`*NRERLE!TOTMIN*qFMCOMPtSWPSEC1^FSLIMT(IPTMOTN!TSINTReEPORTSCONVERkJSYUTILL000 DENXUC^C18331uJPRENp#EXPIRENAM }!DELET }6Q8FS BACK +TIMEC CHAIN fXMREL _wBREAK CABS lALLIN lnQ8CMP1TRVEC oDELDT1qDWADD |WRFLG {UPTOD FMASK *t+MMAT 1DINPUT SMDGD1COPYQ MSAV mnRENAMEDATFLGDELETEQ8PKUP*Q9PKUP1ENABLE=SEKDONGCPSENDSCHERRp*iSTMSV4VPOLCHKNIPROClTIMSLC]XVDECMTNPARTBLYPTRITEEFLIST NCMPRQo;SMDGDRNSTATSUNLOCK{CERRORAMONTO*gINVINTCLFRIOwGTSPMINeWKSPLU1`T16 l.~INIPRT~TSCKMU`dEXTSTKvOVFVOLmPTEOFVPTBSIZCCP +޹ lLOG bTT h h h h h h h h\h\h\ h\ h\h\h{N 0 l  d !5 h < n  LOG1 {LOG2   n MAKEQ l HTT h h h h h h h h\h h\hFILE3 p7nH TT hMT50U0_MT50U1iS1811TgLUABS l9.NFNR o&JKIN p AUTF9 oXMMOD _PMEDT1NOG30AnAFILV4[NXTOP {Q8LOCBOQ8FERMODEBUGwTSIOC1g!TSIOC2gMMREADuINTSTKwVOLBLK^SCHLNGxMT25U1kTERMLUNALTERRDGNTABDUMALT1LSTOUT STDINP BATLSTWBATINP PCORE PCONSL5MIINP ETK7WEFTK7DATMICSUB"SEVENTSEVNRDCPTRAC PCCP1 CALTHD'N4 BN5 N6 N8 N10 N11 N12 N13 TN15 HWINITSIMRSVLSTLOCTSAREARDPTV4PTNALCK65T10FMRDEL^FMEOFC_FMMOSU FMMOIU FMNRCDUCTLENMAXLOC*FMMOSFFMFCBS!FMMOIF!FMFCBI#OFSCTNE&FCBSCT&FSLEND({MMLUTB(gPCTABL)BIDLER *(INSTLUIDLCTR*-TMRTYP*ITMCODEFSTIME*PDMICOD*KTBLADR*LEMPSTP*NCGHOST*d:ADAYTO*hMONTO *jHORTO *lSECON *nCONTA *oHORMIN*pMTIMCPS<TODLVLPNSCHED*rTMRLVLLSIZV4uPSIZV4ODBSIZCHRSFG*sQCOBOPS|Q8STP *vNDISP MICSB2*FBASV4PKEYV4RELFILDUMPOT+ACPTBE+ITSPAGE,CPTBLZNUMCP XXMATR 1 XMAT 0NXUC 1NNSWP 1VTSQPRIPROMTR>BAITOSDATSEP/TSTLOC1ZPRTCDR1\]R9TAPF1_bR9SEGF1_LRGUSR1aRQLLIM1b?RQULIM1cRETIME1iFILOAD1nQPASWD1oWKSTAT1sRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX3[TSPORT1TSPEND7TSUEND̸ '\>\2#̪ '\#T*TTȯޜ{ڜTӜdddddddT>MҔ !c8dddTbdbdcdd *gde *hdf *fdgTUJbTDb !"Tӑ/0\ *\>$\#\\/\ۑ TeaЕNNN\lKKK\񕆕ŕ \ꕮNNNTRM\e\}\\󑭔\2\ d ff1 f 1TV\>\2#Tfh\ȑM 'Tӑ\e &\\} &\ \ '\ۑ/x\ '\Α>kTR2̿ '\#]\̲ '\PTf+HRPTG, PRINT DATA NAME LIST? ENTER Y OR N SAVE GENERATED REPORT PROGRAM? ENTER Y OR N ENTER SORT FIELD NAME (KEY1,A,KEY2,D (CR)) MAJOR TO MINOR A(ASCENDING) OR D(DESCENDING) MAX OF 3 NAMES PER LINE ENTER REPEAT TO REENTER ALL SORT FIELDS OR ENTER C TO CONTINUE OR ENTER A TO ABORT ENTER LEVEL BREAK NAMES (LVL1,LVL2,LVL3 (CR)) OR ENTER REPEAT TO REENTER ALL LEVEL BREAKS OR ENTER C TO CONTINUE OR ENTER A TO ABORT SELECT RECORDS. ENTER ALL OR (CR) ENTER OPERATION (EQ,NE,GT,LT,GE,LE,RANGE (CR)) OR ENTER REPEAT TO REENTER ALL SELECTIONS OR ENTER C TO CONTINUE OR Q8TP Q8INIQ8X Q8ENDPGIN PPGINT`OPNFLCLSFLDEDT1 WTEADRTDT1%CLAR LDDT1mPUS DEDT1ADDT1DSDT1FPRDT1yDPDT1PGOUTQ8KUPQ8REPQ8INIQ8X Q8ENDWTEAD.NUDT1GTDT1CCGETALDT1PMDT1;APDT1"REDT1pARDT1DSDT1Q8KUPQ8REPGTDT1WQ8KUPTQ8REPQQ8KUPQ8REPQ8KUPQ8REPQ8KUP;Q8REP8Q8INIQ8X Q8ENDQ8KUPwQ8REPtQ8INIQ8X Q8ENDWTEADGTDT1CQ8KUPiQ8REPfQ8INIQ8X Q8ENDBLDT1Q8KUPQ8REPQ8INI`Q8X nQ8ENDtGTDT1CCGET?BLDT1{GPDT1NUDT1KQ8KUPQ8REPCCGETQ8KUPVQ8REPSQ8KUPQ8REPCCGETQ8KUPQQ8REPNQ8INIQ8X Q8ENDQ8KUPzQ8REPwQ8KUPQ8REPCCGETVCCPUToQ8KUPQ8REPQ8INI*Q8X 6Q8END  3NAYRTOADYTOAMNTOHOMINUTEADCCCSTLAEADGTDT1 GPDT1:CCPUTCCGETQ8KUP'Q8REP$CCGETCCPUT Q8KUPQ8REPOPNFLnGES wCLSFLEN0V4CC AABS6AABSQ8FINyQ8UN2Q8MP1%Q8GP Q8FRMQ8ENDQ8AGTQ8MP0Q8T0MQ8REMQ8NTBQ8RRMtQ8S ;Q8FAD-Q8NIT*Q8UN29Q8UN1/Q8MP16WRLG aQ8OTTQ8INTQ8LRBQ8OCBQ8EGBQ8REM'Q8REMQ8MP1Q8OCBQ8OCFAABSREENDQ8ENSQ8FADQ8INIQ8REMQ8RRM)AABSQ8NITQ8UN1Q8INBQ8FRMQ8REM]AABSQ8UN1iQ8WNDwQ8OMI{Q8UN29Q8REMYAABSQ8BUFQ8UN3NQ8UN2Q8UN1Q8MP1Q8MP0Q8REMFQ8RRMQ8ANDaQ8KUPeQ8REPbAYRTOAMNTOADYTOPGIN CCCSTCCMVAOPNFL%REDR 1CLSFLQQ8KUP@Q8REP=AYRTOAMNTOADYTOCCMVAOPNFLREDR CLSFL,Q8KUPQ8REPQ8S dQ8RANrQ8TP Q8KUPQ8REPQ8KIPQ8GET Q8ERMQ8WBUQ8PUTwQ8TP ŒQ8KUPȮQ8REPȫQ8S IQ8WBU]Q8OVEzQ8ERM‰Q8XP9Q8XP97Q8XP1Q8XP1Q8XP2HQ8XPTJPAABS HFOT :IFLT PAABSɅHFOT PRORIFOPsLFOPpPCOPjXOP ORCHKʮPRNDPAABS͕Q8XP2Q8XPTAABSͲHDLOTFLT !HDLOTΣAABSPFPROR-PRCHKӣFMPL02FMPA03FMPA04FMPA05FMPL06FMPL07FMPA09FMPL10FMPL11FMPA12Q.FMPL12FMPA13aFMPL13FMPL14FMPA15FMPL15JFMPA17FMPL17FMPA19FMPL192STRSECDATBASCREATE\CLEAR OPENFLCLOSFLLOKFILUPDFCBPUTS WRITERGETS DELRECCOMFILVOLUSEREŜ?Xd\@ d dATA l $l h dBdCd2 2Ռ !Ќ l\Ŝ>\؜#Ŝ? ;\񚧜+Dd \e? \_E \YK \SQ \MW \G] \Ac \;i \5o \/u \){ \# \ \ \ \  \l\ᗯE̳G l2 lnjlTŜ>Tea,Ŝ?TAA d $l h\֑Ŝ>\וHŜ?\ʒ"N dl l\͜A l $l h dBdCl 2Ԍ !ό l\Ŝ>\$Ŝ? \} Ŝ?m ldJ!T՜E4}K4F̭ ̦ l\בŜ>Tea} Ŝ?DB$H=NUMBR RCRDS=KEY1 LENGTH=KEY1 POSITN=KEY2 LENGTH=KEY2 POSITN=KEY3 LENGTH=KEY3 POSIT ALGNED=% REBUILD FILESYSVN DUP KEY: 31 RECORDS = 000 hdDELQMST LADLQMSTh hhT`hعn TehTe^h_hTeaGHT]IT=JJA\BJJFT KLK\MJMJTّNTjOȞ 'TOP\푎QTb-OȊ &\OPThOO &\ޑOP\GP\GJ\GNTeaGP-d2R1p4UhT-@ST\\\\U\S@v \U\\\SdMdd;d,,, SYSVOL ZMPX  T  {Tea|}M~}  \|} Țh Tf+ h\ Y h hhT h hTYhȱ h\ ZYȧh\ h ho\Yhkȗ hi\ ZYȍ d \d\ l hG\YhC hAT ZY d  h/\ Yl\ l͜ h\Yh h\ ZY̽ d \t HTThwhhhh\hh\\h l & lTw  ! lhHTTh\h\hh\h h "h H TTh\h h7 nhH TT h\h FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #FFCLOSCREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS UPDRECDELRECCOMFILVOLUSEREDUCE7?-  PAUSE @T T l ! ! , h\^LML Kh S\OQPQ 9hTeaSNTTT^ Ȼ   \SU_S`^  Tf+HTTh\h\h\hh\h 00 4>h hn9 1  00l- (dh -&l# h 1p8(h͘ 0hA hȨ  @m @PȻ@mp8hȭ h !@HHTTh\ h h hX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`h Hq``XD`HX<" h @` `@X(""``T\ ``@ `@X ""`\$ HhB4 "c"  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0йV  3N 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`pH3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i DO{PT{JNLU{M      $!#""" PRINTER LOCLBATCH   PLUPDATPLAFUPDP P [ADDIT B05 F CCS CCS 3.0 SL-149@PA@PT33 A M] >0 MT3 ]T33E] > (3Th H3 1T3\ A M30 > M\3; A@P0,  A\33 > C3 C\33 = = 03 C\ >33 C C3T 4 ?33 > >3\  30 > >\3;  >@P0W >T A\33 > M >0 XT30̫ ̦ &\33 I 1\̝ 13T38̓@P0 ̍ 3&\ J3 1\T0 VT3 (3T L3 1T3T >3; P > P@PHMn  3NPADDIT PCCSMVACCSPUT PUTS FILERRUPDENDCCSADDDFORMLNZWRITERdREADR |CCSBLKUPDREC  REBUILD FILE VER 2.0 N DUP KEY:  RECORDS = 000  COPYING BACK DELQMST LADLQMST$$PRINT  `R9 $Te"#$PhTe% ^hk_hhTea"j k T囑lT[mm_\`mmd\emmiTxnon\pmpmT滑q-d `d!TՑsȍ 'T碑s"t\摓uT͑2ss &\s"t)d \q vq\"j w 2d7x1p4rhT}-@yTX\\\\r\y@h \r\\\ydRdd@dAd(p ) 'T碑s"tT滑q l l lTՑs &\瑗s"tm\⑯q l l l\㑯s &\ˑs"tT͑s̳ &\s"t d{T曑Y\8WYW " lXZ 6  l Tӑs\qTבss 'T碑s"tT滑qZ dd|Ts} l۬ &\ؑs"t#d 2 d~", d, d  ʔ  l   J @ :d _ ǀhTxni ̷h\̬ ̬h ̣h\~ TǑss 'T碑s"t| BTӑs &\s"tTea"jN T滑qTّs &\Бs"t\q d7  l dTՑs̰ &\s"t\s̤ &\s"t\Ñqd\ߑs̐ &\s"t ld&Tss} d| 'T碑s"td 2̜ TǑs &\s"t  dۜ", dd=ddTxh\߀hTősnns'  &\s"t#T碑s" d̳h\)vTea"j)  &?Tj?K\Kuo@o l\"j@k p| &TӑsT滑qTבs̗ &\s"  d   dTˑ2ss 'T碑s"t\ȑsTf+T*v,,,,,,,,, ,,, SYSVOL ZMP Tx^WX^WTea^ \XXX Țh Tf+ h\ZW^ h hhT^Yh hThȱ h\^Wȧh\^Yh ho\hkȗ hi\^ȍ d \Wd\^Yl hG\hC hATx^ d  h/\^Xl\^Yl͜ h\h h\^̽ d \WHTT!hwhhhh\hh\\h l & lT+  ! lhHTT!h\h\hh\h h "h H TT!h\h00 >h hn9 1  00l- (dh -&l# h 1p8(h͘ 0hA hȨ  @m Ȼ@mp8hȭ h !@HHTT!h\ h h h  3Nhh HhllHTT!h h\h h h7 nH TT! h\h FILE MANAGER ERROR: FILE NAME = , REQUEST = , ISTAT = . #FFCLOSCREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEPUTS WRITERREADR GETS UPDRECDELRECCOMFILVOLUSEREDUCE7?-  PAUSE @TxTKl ! ! , h\@./. Kh \1323 9hTea50666@ Ȼ   \57A5B@  Tf+HTT!h\h\h\hh\hX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`h Hq``XD`HX<" h @` `@X(""``T}\ ``@ `@X ""`\$HhB4 "c"  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  Ti"" R1 H XRRt`pH3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H h HX  sD  1  : E /` `"i H"h! HX @    ` `"i TTTf+T*vSYSVOL  3N @NON Y #*) 2kR nm000 d Te̟όύώT}Ϗ̟ϐϑȰ Tݑϒϓϐ\pϒϓpϐ\fϐ<ϐT/+pϔȔ (Tqpϒϔό *gdS *hdT *fdU^hTmϖT+Cϔϔϗ dd . '\ˑpϘϔό\ߑϖ\ϖCϖϙϙ OdPd ll\CCϚϒ\ϖ\Cϛ l l l l TeaόϜCϝϜVϞTVVϘ\όϜbϟϜVϠϞϞ Vϡ\SϓjϢϓ\VϓjϢϓdϊ\όϜjϣϜϊϏϞϥϤϦ[ ʜ \ TV !\SϓVϓd 5 dO\Cϧϓ]ϓX_ "pT ]dϨ\Vdϩ "p  T]ϓCϪϓ\VϓCϧϓ T+Cϔ̷ T+Cϔϔ 1̪  dϫ̤  lTqpϫϔόT-+ϔcϮ"p4ϯdϭp4ϱdϰ d|d}d  dHdI llT3ϔ̻ '\ȑϔό dϲ f* f 1T/+pϔ̜ '\pϒϔό\<ϔ̎ '\<ϒϔό\ϔϔ '\ϒϔό d̤ ӇT+ϔϗ d_  (TqpϘϔό9dϳ 22 dϴ"6$϶ dϵ^ / 2hT ϖKϖTKϔ̘"̒Ϸ"̋ '\<ϸϔόTսϹϺ dϻ\ϻϼϼϺ  1 9  ) dϲ̱h̭h̗ẖh ̩hϵh\ 1 l׀hӀ̻hhˀh ǀ̵hTݑ ܻ 1\Ͻϓ̥ϓϻ 1hhT} Ϫϒˑϒϑϑ ia d?$϶ dϾh ̠h\ Ͽ Ͽh ,ˀh\ ϒ Ϫϒϵh\ˑϒ Ϫϒ˔b !T!aϔϔ (Tqϔό l` F$dԔ΀hT̨ϒ Ϫϒh\ˑϒ Ϫϒ l d^ϴT+ϔ '\pϬϔό_  l a !?  d dT+ϔ̖ '\pϸϔό\ˑϒϚϒ\+ϔϔ 2TqpϬϔόTKϔϗ ḻ  '\<Ϙϔόdϳ Ԃ dϴ"Ԇ$ϱdϵ ԂTmCϿ dϫh̻hh ̵hހhT C 1̀h\ Ͻϓ̥ϓ€h\ ϖCϖ̷hTս ϹϺ dϻ\ϻϼϼϺ  1 !')dԔd^\̨ϒCϪϒeT+CCϔϔ 1FTqpϠϔόa$϶ dϾ ,hT ϒCϪϒh\CϿ Ͽb !T!aϔ '\ɑϔό l` ϴ&_ Ӈ l !q d̤d̨d̩T Vdϩ\̥dX̧ BddŜ $l $lЌٜl 'll*ʜ"lp4d,ddp4d,dd 0h 0Ȉ l 0 l T-+ϔ \+ϔ\ϔ\ϔTf+T*vX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`H h" "" H3h2 HX/ l* "  f  ` ` `"i Hh HX l` `"i H"h! HX @    ` `"i H_h^HG H[X[X6FF rDHLhKH4 HHXHX.  `'X F" X4i  ; )  4"   2 1 m  `"i HhH HX %00hh  d " dh  0F 0 04hȻ 0F 0 04h  `­é @ FILE MANAGER  3O ERROR: FILE NAME = 12345678, REQUEST = 123456, ISTAT = 1234. CR TO CONTINUE CREATECLEAR DELETEOPENFLCLOSFLLOKFILUNLFILGETFCBUPDFCBRENAMEVOLUSEPUTS WRITERREADR GETS UPDRECDELRECCOMFIL123456K#7G7 $ Tַ)ֹ$)7h 3 -hT׸* j h ( h\,-ֹ%-\Tea.ֹ#ָָָ,\.(.ַ, HTׂTאh\h\h\hh h Hq``X`HX " h HhB4 "c"H h HX  sD  1  : E /` `"i  62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 To*(%!T TF \TT@ \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT& 2X X' h$  X0X XzШ Xhˠ To T& H= X H8X H0YT^X*@) V\TJ   hTHT BE STOP PAUSE IT 0 h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dha.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2X0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`pH3h2 HX/ l* "  f  ` ` `"i Hh HX lDd  3O$` `"i H"h! HX @    ` `"i Hh HX ` `"i TSLSIZf !  P1829 9 n ȺlȺlȸlHMIB Uh\ h h h h\hFNR o&TOD READR TIME MAKQ CREAT }<LOCF pBSMD CDRCP1 XMALC _%ADEV uTHDS REQXT iR9MUX1R9MUX2MIBX VqR9MUX4jR9MUX5R9MUX6Q8QBCK6PBAT00 PBAT01'Q8INTB,GTSDT1`READRCxQ8MAGT/CRDEADDSPTDUEXQ8FGETCOMM18cJBCNFGp!RELBYQCMRECADz& DATFMTREMLOKv7DCLOCKPCKUADRuNSTACKSMDAERREADRX}PTCLRB"7TZQ8RWBU|eTMRTHD8H DECISIOVERIFYINTENCE PROGRAM IN (CDUMMYSECTORQCOUNT ETRMNL_UT CR/DE/AUNPTIMo/EX TO EIN14  CREATE AQMINTXUNPSRTTSUSER7fFUNSHR|PTSUBRTSLUNTeL1829 L1860 EOF COPRDECTBL I18331# S18326P83310 Q8IGP NULL.EQ..LE..GT..NE..WE..OS..AND. .OR. FILE4 p ,, CPREL h UNFIX RCTV i~ h h h MINTO *mTuCLOSF }0FMPA02BLKDT1LPTRS pQOUT FMPA06FMPA07FMPA08ABSADDlRTVDT1FMPL01K65CORFMPL03vFMPL04%FMPL052SAVLABRELFLEFMPL08FMPL09DUMMY1 DDUMMY2UNPENDBCLOSFRELS1AoQ8EOTTmTCOMPLUSE LEND nwERESET FILE1 pIFALT ͅJPRET *MP1234lBSMD4 RESDT1!BUFF 6K65T12MIBUF o IPROC lQ8QUN3WNUMLU !NXUM 1RJPRET1p"CARDRDl'Q8QINIRMESAGE2Q8DFINGETFCBJLGOV4?Q8QENSSMDCPAFQ8QWND,U2INITFMUFCBw3SMDCPGZVOLENDOUTPV4TERESPLUNAMEONTIME1kUTHEAD_MICSECDENXUC^[EFCOVL#^JPRENp#/ABSPARuv\UPDRECEXPIREZ>USKNPGTSWSEC_aDENXUM^TSCKPM`@EFSTORSMTSIMUNPTBL`EXTREGh%COMREQCOMSEQzrEMPSRT*MSYSDAY01SWAPARQIN d  1 1lPRO mASC ikTh(h1h>hUhmhRW kPhY\h+IDR56 L18326h\ h h' h{ hz\ h hL ho hn\hJPT13 1SPL4 SAVLU kbHSEEK9 CPTBL ,!CPADD hDAYTO *kM1811TISMD #CPCHK h|MMALC _DEBDT15ALVOL mOPENF }3FLIST *uPORTS AUTON 0DPTDT1cPWFOV moAREDT1SPCEV4SETBNDh9CWLGT0 DCWLGT1(CCSMVACNWAREJLLUV4*STLPV4nEoLNDISBLIKDUM}yJOBINDo FIXONESMDACPe8WRTBAKyCPTBLNTSCLLB`8INCRECTSLCUPeTSVFTN`!JOBENTCLRINTryTSXERRfSYSCOP~Չ  3OLFMBRRNwT15 PTNRELFMSWAPtSWAPONnvTSUSCPgZN7 MPDRIV N9 AYERTO*fLVLSTRh h h\hhFhph\SCH nGET S1860 **%%(LN4 2a h7 V h- hT hhܘ!IDR12 zL18273 hȝIDR4 ؖ (1T(40A2) h\ЧfدȬ $Ȣf\Z lh\ (1\Ȓ \l\ZECXIT FILE2 pCCPLU ^WCONT 5END0V4Z8MMEF =DONE qCPDEF hKI1811TESMD MONI iOkYERTO *iNAMEV4MAUTFA oI1811ZbMINT LOOP n}HQ8DFADIGPMDT1JPSWT pDSPDT1aQSAV mmVINPV4oPUTZ }CDRDSMXMTEND1BMAXQUEALTDAITDFUNCFMSCOMt SLICUPeALCOREtLOADINp BGNMONZLNRESPrLPWFAILmNTSRFTN`0&TSBGIN`*NRERLE!TOTMIN*qFMCOMPtSWPSEC1^FSLIMT(IPTMOTN!TSINTReEPORTSCONVERkJSYUTILL000 DENXUC^C18331uJPRENp#EXPIRENAM }!DELET }6Q8FS BACK +TIMEC CHAIN fXMREL _wBREAK CABS lALLIN lnQ8CMP1TRVEC oDELDT1qDWADD |WRFLG {UPTOD FMASK *t+MMAT 1DINPUT SMDGD1COPYQ MSAV mnRENAMEDATFLGDELETEQ8PKUP*Q9PKUP1ENABLE=SEKDONGCPSENDSCHERRp*iSTMSV4VPOLCHKNIPROClTIMSLC]XVDECMTNPARTBLYPTRITEEFLIST NCMPRQo;SMDGDRNSTATSUNLOCK{CERRORAMONTO*gINVINTCLFRIOwGTSPMINeWKSPLU1`T16 l.~INIPRT~TSCKMU`dEXTSTKvOVFVOLmPTEOFVPTBSIZCCP +޹ lLOG bTT h h h h h h h h\h\h\ h\ h\h\h{N 0 l  d !5 h < n  LOG1 {LOG2   n MAKEQ l HTT h h h h h h h h\h h\hFILE3 p7nH TT hMT50U0_MT50U1iS1811TgLUABS l9.NFNR o&JKIN p AUTF9 oXMMOD _PMEDT1NOG30AnAFILV4[NXTOP {Q8LOCBOQ8FERMODEBUGwTSIOC1g!TSIOC2gMMREADuINTSTKwVOLBLK^SCHLNGxMT25U1kTERMLUNALTERRDGNTABDUMALT1LSTOUT STDINP BATLSTWBATINP PCORE PCONSL5MIINP ETK7WEFTK7DATMICSUB"SEVENTSEVNRDCPTRAC PCCP1 CALTHD'N4 BN5 N6 N8 N10 N11 N12 N13 TN15 HWINITSIMRSVLSTLOCTSAREARDPTV4PTNALCK65T10FMRDEL^FMEOFC_FMMOSU FMMOIU FMNRCDUCTLENMAXLOC*FMMOSFFMFCBS!FMMOIF!FMFCBI#OFSCTNE&FCBSCT&FSLEND({MMLUTB(gPCTABL)BIDLER *(INSTLUIDLCTR*-TMRTYP*ITMCODEFSTIME*PDMICOD*KTBLADR*LEMPSTP*NCGHOST*d:ADAYTO*hMONTO *jHORTO *lSECON *nCONTA *oHORMIN*pMTIMCPS<TODLVLPNSCHED*rTMRLVLLSIZV4uPSIZV4ODBSIZCHRSFG*sQCOBOPS|Q8STP *vNDISP MICSB2*FBASV4PKEYV4RELFILDUMPOT+ACPTBE+ITSPAGE,CPTBLZNUMCP XXMATR 1 XMAT 0NXUC 1NNSWP 1VTSQPRIPROMTR>BAITOSDATSEP/TSTLOC1ZPRTCDR1\]R9TAPF1_bR9SEGF1_LRGUSR1aRQLLIM1b?RQULIM1cRETIME1iFILOAD1nQPASWD1oWKSTAT1sRMUOPNRMUCSWRMUCF0RMUCFTRMUCLOR9MUX3[TSPORT1TSPEND7TSUEND̸ '\>\2#̪ '\#T*TTȯޜ{ڜTӜdddddddT>MҔ !c8dddTbdbdcdd *gde *hdf *fdgTUJbTDb !"Tӑ/0\ *\>$\#\\/\ۑ TeaЕNNN\lKKK\񕆕ŕ \ꕮNNNTRM\e\}\\󑭔\2\ d ff1 f 1TV\>\2#Tfh\ȑM 'Tӑ\e &\\} &\ \ '\ۑ/x\ '\Α>kTR2̿ '\#]\̲ '\PTf+HRPTG, PRINT DATA NAME LIST? ENTER Y OR N SAVE GENERATED REPORT PROGRAM? ENTER Y OR N ENTER SORT FIELD NAME (KEY1,A,KEY2,D (CR)) MAJOR TO MINOR A(ASCENDING) OR D(DESCENDING) MAX OF 3 NAMES PER LINE ENTER REPEAT TO REENTER ALL SORT FIELDS OR ENTER C TO CONTINUE OR ENTER A TO ABORT ENTER LEVEL BREAK NAMES (LVL1,LVL2,LVL3 (CR)) OR ENTER REPEAT TO REENTER ALL LEVEL BREAKS OR ENTER C TO CONq  3OTINUE OR ENTER A TO ABORT SELECT RECORDS. ENTER ALL OR (CR) ENTER OPERATION (EQ,NE,GT,LT,GE,LE,RANGE (CR)) OR ENTER REPEAT TO REENTER ALL SELECTIONS OR ENTER C TO CONTINUE OR Q8TP Q8INIQ8X Q8ENDPGIN PPGINT`OPNFLCLSFLDEDT1 WTEADRTDT1%CLAR LDDT1mPUS DEDT1ADDT1DSDT1FPRDT1yDPDT1PGOUTQ8KUPQ8REPQ8INIQ8X Q8ENDWTEAD.NUDT1GTDT1CCGETALDT1PMDT1;APDT1"REDT1pARDT1DSDT1Q8KUPQ8REPGTDT1WQ8KUPTQ8REPQQ8KUPQ8REPQ8KUPQ8REPQ8KUP;Q8REP8Q8INIQ8X Q8ENDQ8KUPwQ8REPtQ8INIQ8X Q8ENDWTEADGTDT1CQ8KUPiQ8REPfQ8INIQ8X Q8ENDBLDT1Q8KUPQ8REPQ8INI`Q8X nQ8ENDtGTDT1CCGET?BLDT1{GPDT1NUDT1KQ8KUPQ8REPCCGETQ8KUPVQ8REPSQ8KUPQ8REPCCGETQ8KUPQQ8REPNQ8INIQ8X Q8ENDQ8KUPzQ8REPwQ8KUPQ8REPCCGETVCCPUToQ8KUPQ8REPQ8INI*Q8X 6Q8ENDAYRTOADYTOAMNTOHOMINUTEADCCCSTLAEADGTDT1 GPDT1:CCPUTCCGETQ8KUP'Q8REP$CCGETCCPUT Q8KUPQ8REPOPNFLnGES wCLSFLEN0V4CC AABS6AABSQ8FINyQ8UN2Q8MP1%Q8GP Q8FRMQ8ENDQ8AGTQ8MP0Q8T0MQ8REMQ8NTBQ8RRMtQ8S ;Q8FAD-Q8NIT*Q8UN29Q8UN1/Q8MP16WRLG aQ8OTTQ8INTQ8LRBQ8OCBQ8EGBQ8REM'Q8REMQ8MP1Q8OCBQ8OCFAABSREENDQ8ENSQ8FADQ8INIQ8REMQ8RRM)AABSQ8NITQ8UN1Q8INBQ8FRMQ8REM]AABSQ8UN1iQ8WNDwQ8OMI{Q8UN29Q8REMYAABSQ8BUFQ8UN3NQ8UN2Q8UN1Q8MP1Q8MP0Q8REMFQ8RRMQ8ANDaQ8KUPeQ8REPbAYRTOAMNTOADYTOPGIN CCCSTCCMVAOPNFL%REDR 1CLSFLQQ8KUP@Q8REP=AYRTOAMNTOADYTOCCMVAOPNFLREDR CLSFL,Q8KUPQ8REPQ8S dQ8RANrQ8TP Q8KUPQ8REPQ8KIPQ8GET Q8ERMQ8WBUQ8PUTwQ8TP ŒQ8KUPȮQ8REPȫQ8S IQ8WBU]Q8OVEzQ8ERM‰Q8XP9Q8XP97Q8XP1Q8XP1Q8XP2HQ8XPTJPAABS HFOT :IFLT PAABSɅHFOT PRORIFOPsLFOPpPCOPjXOP ORCHKʮPRNDPAABS͕Q8XP2Q8XPTAABSͲHDLOTFLT !HDLOTΣAABSPFPROR-PRCHKӣFMPL02FMPA03FMPA04FMPA05FMPL06FMPL07FMPA09FMPL10FMPL11FMPA12Q.FMPL12FMPA13aFMPL13FMPL14FMPA15FMPL15JFMPA17FMPL17FMPA19FM2STRSECDATBASCREATE\CLEAR OPENFLCLOSFLLOKFILUPDFCBPUTS WRITERGETS DELRECCOMFILVOLUSEREŜ?Xd\@ d dATA l $l h dBdCd2 2Ռ !Ќ l\Ŝ>\؜#Ŝ? ;\񚧜+Dd \e? \_E \YK \SQ \MW \G] \Ac \;i \5o \/u \){ \# \ \ \ \  \l\ᗯE̳G l2 lnjlTŜ>Tea,Ŝ?TAA d $l h\֑Ŝ>\וHŜ?\ʒ"N dl l\͜A lJPRENp# P R O V E - VALIDATE FILE MANAGER STRUCTURENOT MASTER CONSOLEENTER MMUNIT: INVALID MMUNIT NUMBER VLWPS IS NOT 96  . ` dX dY dZ d[ d\ d]Teaͪͫͬ^___ͭ d*TͮTےͯT@pͰ\_\ͱͲ  lȾdbT@͐ͳb^ͳhTݗ͵ lT݋Ͷ h\d+\+d # 'TZ͗ͷ͸ F,  3Oh\h\͹d,lȌ h\d`͹ h\daTA,ͻ`)lD kT٦dT+dg\,dh\-di\.djTZJ*θTe\f\d\n dͼch\ 1T lIlTٱ`E-+Gl\`-`+ $ͻh\,` d+A,d\,?l d) ,l .T@͢ͽTf+%(14H1 PROVE RUN ,A2,1H/,A2,1H/,A2,4X,I6,//,15H VOLUME LABEL ,4A2,///)H@ @ `AL$$  h h (h>= : (h54  (h-, TZ'* (̀hT (Āh\T (hTNB  hدȬ \R+*ҎTִ dd @ h @1G 2 @$hTA,J-*d+ dߜ 2 d `,]h б l `,[h `,ބXhTٱ1+ `,ьhTٷ5/+ `,Ōh\53+\1/+TN3  TZ=*ҪTT `,dJϤ * `,Zh\/d 8\Z?*ў\\ `$h\1 8\Z@*ѱ\\TA,/d+\ZB*\\\/ \ZC*\\\3 \ZD*\\ d `,\lɔ  l `,dJʔ  l `,l˔  l `,l̔  l dϔ lה lޜ l l `$l  ̣  TZO*TT `,XhTN= 3TD d d l  \ZT*\\\  ddJn7ծۜ  \ZV*ҽ\\\ dlnܯTٱ-5-+SH  TZ\*8T\HTG Dd d!Κ Η \Z`*V\h\\\ lΚ Η \Zc*\̀7h\\1\Re* l ,dJ" \Zh*҃ ,h\ ,h\ ,hT ,h\T(9H NFCB = $,Z4,17H KEYBA TOO SMALL) (9H NFCB = $,Z4,17H KEYBA TOO LARGE) (9H NFCB = $,Z4,19H NO *AL* IN HEADER) (9H NFCB = $,Z4,27H HEADER ADDRESS ERROR, FCB) (9H NFCB = $,Z4,24H HEADER SIZE ERROR, FCB)(9H NFCB = $,Z4,25H HEADER OWNER ERROR, FCB) (9H NFCB = $,Z4,30H FIAT DISAGREEMENT, MASK = $,Z4) (33H FILE COUNTS CONFLICT: NFILES = ,I5,12H, VLCURF = ,I5)(21H FIAT LEFTOVER, FIAT(,I5,5H) = $,Z4,10H FCB IS $,Z3,1H0,24H+ BIT POSITION ( F - 0 )) (5H ASD:,4(3H $,Z4)) (50H VLLBL DISAGREES WITH ASD - LARGEST HOLE AVAILABLE) (9H NFCB = $,Z4,17H FILE SIZE ERROR) (9H NFCB = $,Z4,29H FDB DISAGREEMENT, MASK = $,Z4)(20H FDB LEFTOVER, FDBX(,I5,5H) = $,Z4) (//35H "ASD" WITH ALL FILES REMOVED IS: //)(21H ZERO LENGTH HOLE: $,Z4,1H,,Z4)H ԵTN/ " $)h\/ 2t h (h t (Ӏh\/d # hh՘!8 (h (h10n (h (h&%f (h (hf (h (h fȏ dܚ $h3n ,h4n ,h/n ,h0n ,hTN1d !l) l +TZ;*TT ,€h ,hTٱ+ ,hTٷ/+̨ llΜ!6 ,dT ,hf ,l ,hf $l ,dӔf ,l ,lf $h ,h\+TN/d ") l +TZI*TT ,Ӏh ,΀hTٱ+ ,Àh ,hTٷ+̴l˜!6 ,dT ,lf $l ,dӔf ,l ,lf ,l ,lf l3l4l/l0l $)l nd l!3 ,l ,ln ,l ,ln ,l ,ln ,l ,lTn l܇̯d̯l̰ḻlTN1d "̩ l +TZj*TTTٱ+Tٷ/+ d̈!3 ,l ,dӔf ,l ,lf ,l ,lf ,l ,lf $)l3n ,dT4n ,l/n ,l0n ,l n ,ۀh ,֖  3Oh\+TN/d !e l +TZ~*TT ,h ,hTٷ1+ ,l f;(6H FCB $,Z4,40H OVERLAPS FILE SPACE WITH LARGER ADDRESS) (6H FCB $,Z4,41H OVERLAPS FILE SPACE WITH SMALLER ADDRESS)HTThh4hh  h  ! h h  h 5 hHTTh h\h h `IAhTݾ8a h f]1EhFh d7 @ h @1 1$ @(h TA,ֱ^*h h 1 `(€hTqTٱ^5^+صH`7h hFhTjֺ h U1l4 o/J 1.IAd% h] /n hhTٱָEָ+Tٷָ5ָ+ȹFlTA,־ָhTZ5*+T7\TV\Z7*E\7\Ș]h\\E(6H FDB $,Z4,32H INDEXES UNALLOCATED OVF BLOCK $,Z4)(6H FDB $,Z4,31H INDEXES MULTI-USED OVF BLOCK $,Z4,25H PREVIOUS REFERENCE FDB $,Z4) HTT h hhh?@ @ ` h hm  h 1 e h hYhXh 1IAhp8hDף˜F i hAhTٱׁ-ׁ+TA,צׁh / h' 4ب 1D h h7蜦ׂ )ȕ`dRmeTZ>*T\7TM\Z@*\\7\B\ZB*\\7\7 dפhTfג 1\ZG*G\7 l爼h\ 1 lۀגh\ 1\\ lɈh\n€h\fךܹ 1\ZM*+ ḽhTܦ 1 l̟גh\ܙ 1TTZN*9 dפh\ 1 lגh\ 1\(31H NO FCB FOR FDB ENTRY, NFCB = $,Z4,10H, NFDB = $,Z4)(31H NAME/OWNER ERROR, NFCB = $,Z4,10H, NFDB = $,Z4)(31H FDB MULTI-MARK, NFCB = $,Z4,10H, NFDB = $,Z4)(8H FDD : ,8(X,Z4),2X,8A2) (8H FCB : ,8(X,Z4),8X,8A2) (25H FDD HASH ERROR, NFDD = $,Z4,X,8(X,Z4),2X,8A2,3H $,Z4) "@!HHTT hh" hhhhh\h"T݋ً h\٢h h\يn 1 H TT hh hV h hP hLHGhFTT"h6h5\"h2: 5\h4\h3h)\h-\h,*`TSTwTځ 6fbf b l ` hhh3h hT dT`DhHTTh\h\h h\hh!@  " 2a"a ! A%dada`hdbdbh@!Ha"! B  2ADa a`$$  l=Teڠڤڥڦ l2 l- l(ܘ l# dRlZըh dRl h dRl HTTh H" 2 1 `h"Ƞ 2 1 `ȸX hh hTea=Tea hX X:XjDhBhTeaNXo X /6Ȉh}Ȉ{h~hhTeac ۍh [YlX7 X! 1 OhF?X& Xlh=19116h h+&Ȉ$h h ! hTea$TeaX Xȟ h H !bhΐjTeaێXTea$X X\h! 1 Oh^! 1 hhX X8XhBh@h?h Ȉ7h ' jTeaNO$|hhy TeaN !h h hTeaOX=! uyntXy+ !ijeͤ _nXdhHH TePTU h@  PAUSE A  3OXo Xl)hyX` Xw= lhtoȠ lbel blhbVHݕݖH"h"hC   1 h7 nH TT h\hX/X+X'X# XX}XޡXާXa"a X" XIb XFb XCa X@b bX<Ȓ T H TN tdT TNTT  h3HHdېhdDhhdGTFKhh hHL8@ hk"T hT h~"  b hvT9 PިXM H֨CbC|Ψ Z hX Va `hQ1D{lJwe& D!WX"ȭ ȩ!5XMyl,e (!;X ȌT#T2 `h Dh XX\\ TaH #h! TlT hBDhEhBhBhDhwh:8# `h9 V1a Dh/X+)*h+DTN  #%  # Dj A Dh h h  Hhh&aH3[HX" L!`Ψh TlT aH> 3 DH-j+̾Ⱥ(j'% hȲDhTN̝Ȟ̘nΙlؘؚș _ U h HDX hgHghf>XhdHdhc h-+h) H, @BH'H%#B9*h"H AhBH j `0  l0'd  n , hrHr s"htjqh hDh`Hah`I/O REQUEST T)     X XX*EX XX&X+@XXX< XwhHh h,h*X" uh$ h!X ~h hX ThX THXEC_kDE TL `u HehdhgXlXvhb"aTZWDT hUHUHRRQ  pJf XNXXhEn HAXHXR(?R!39h9X?XInhTK  NX0h+X VUh n ;ln  H T` + ȋXh؆1   HhH㞚  TlT hhhhdhhuX|h̺ (BD n&ȫdȫ  hJIEhE h h  hh h8H6t0TX?X h%`" "h*hT T h hhh ll X# Xhh@4i` Xj TlT Cr q d Y hUD  3OhT XHXghNXbhXYh:a62Hl20X), H,)H& XX9h a&hh۸nX X h H   HThhh=@ T XT%T\ XFDh5TFh120-3 Tl*(%!T TF \TT= \T  H HB0h hȳhhhQ\ٸj\ H+h* r Gh hlBhHXy"9" "hh0" T+TX% hT\H `CT T@ TFhTh XX TT# 2X X' h$  X0X XzШ Xhˠ Tl T# H= X H8X H0VT[X*@) S\TJ   hTHQW oSTOP PAUSE FMPA h\H jN qDhQ`hS \hL!:R hJE hBEOi:Dh ḷ l !& !/ l 9!/̫ !+̧ h$阈l !( l 5TH00 l̻ ̵dl\gT[T*v  0l\\ ldd d:\  ld 9!. !* hĈl̨ l 3\    d !T l F7̣ 4̠ l̜  0lT[T*v ddldddd d fA 1TH  l 7  l  l ?\Člx F$阌 lLdꁤd餬lE,lLlll ̲ lD,܌lLlެllC,Ќld l ̓ l ?TH B > : 6  93 %   l 95 2v  0lo  d dlX̺ ̷ x ̯  Ed l D\̠ ̜  d  9! ! d$阌l  3O c" l TH  0l dG̱ k3 dl՜ldpdqBdrCdsDdtdux D lElFdvdwl TCG̻   l  dldldl dTC l\D l\EṊl TCGG  ̚dl̛dl l\C l\D)" < ) EHp dx; dl\ ! !lHd鏤lTH̘l\ l\ l  Hll\ˬl d l ddd d n 1 d +dd dT l\̗  l\dddʤd  -lܺdldlx dl T'T~dl  -ldlld d /̼dd$l,ld鲤lLdꁤllLld߬l,l,ތl,l,l  ,Llجٌl̶d鴬lLlͬlڌlLdԬlܦfGx ̜ !̗ ! dH  dn 1  l 7 -ldl  Ԝl Όl d !Y 1TΫ n !M̷ d̳  l!̩ lG !5 n̜ ܡ, d\̥  ̦ l 7 +l̞dlܚ dn 1 l[ 0n 1 d 0n 1 d 7 7Ądl Ôl̿ !i̻  l̶8TH l \ ld dl !G  0ṉGh\6 ܫ l̹ l\̳ l  2\̥ l 2隀Gh\ l l 2\ lĔ !d  d8TH l \ l\\ l  ̳Gh\ܭ lx \ l\\dd+ !" 8 % l\ܨ 1P\\\J\\\]Ddd ddld dl`p=l  lܹ 0f[.lۜll 1  +d dlT l鹤d dl -l l l  l 0d\Üd !#  l5THܘ \ lڜ9鋀[h\ lӜ4\ d\̨ld dddl *=l ̬ l̩d ,\̤ l ! l l윳4\ܯm l`p5}dꁤl 0e[ 4 n ḽḷl 1 l l  1 Üd "? l +TH l ! d " ll 8̽[h\ܷ "? l  l\̥ l !\̶ l !b@aH^H[TThh\hhhFhhhh{hhh\hhhhhhhah\hqhhvhhI\hgh\hch\h_h\h[h\hWh\hShA T` h/&hHgaV`H _H H M A cTXFRXB H H\T=:\/  HI&Aa%acAD aa h h HR kPALTS H TԺ hHXhxhy`Xhh{ HfL#dhtHg ! lbag4lZ a``]cTX^RXZ I^HT HG9Qs>L1a: Lw T&RH5 I  vR  LaT\T NE&FCBSCT hh Huhi[G M^@BPCE}GN HJzLLK@  `a` ` `X,8A"C  x&LpsX;a*XFXXȰ,` Ȱ#`X `Ȱ#`X`Ȱ#`XXhbXO`Ƞ$d `d`Ȱ.`X XXLbb Ƞ$`S@@`Ϡ *`@ed`d`X` `Ƞ4`n Ƞ$Ȱ$>a.`X"dR`2H `͠ `D`D```XCXX}XS#Ȱ.` A`@ @ ŀX2/  3PX0` `2@A`πҐ`"G z @35` ` 2` 1`ϐ+ e% b ``"dR`2H ```XcX X8#Ȱ.`aA@͠`d `rd 0 d1 " 2a0 `Da0 1 q  ! Xn` ` `X XdRXX@`!d߰2H `Ԡ"`@`ed`d``Vϐ.`@`@`@ϐ"h t=`hA``h`A``B΀" e " `@2T "@k"Ƞ>.`Rd"Ƞ>`R@`" ` &B``` "Ƞ,2!Ƞ#`&2  X/2 <CF=BȰ#`X X9@ `X!X1 Ƞ$XX Ȱ#!1H%X#X X X 4 4p"d 2esR4R4!D RȢA1`R "dR@ R  B H gad `Ȱ#`X0Xb Ȱ#`X$`!dB2 @rdR@`/@Ƞ4` H(X t` Q  T"" R1 H XRRt`p X` h9aaaa&H}H |H%2H M A chxV "Xa bX\ kJ " H\\@T:\ TB  HI ;a88Aa,h/aAa+aah$cDAaghDaau h h HR \\ H XEԺ hfHXhh`Xhh[ HL#dhSH ! laal aa<`9ch9W "X bX *L "HT<< HsLoAAd]aH> 3|LQ3AaI 'Lv T*a)RH%3I  aHQ A a#vR  2LaHH ALȱaXk\<Xc N[ hhhuhi f[G ߂M^@BPCE}GN HJzLLK@H bb@`FMPA08ABSADDl FDWADDٱFMPL01K65CX X a*` a aX &Baa"aC3%pȰ,` Ȱ#`XaXȰ#`XaȰ#`XTrbX&)+25,Ȱ#`X TrA a!1  !1Xv`` `"Ƞ>a.`AA&dRARAa 2H a a a a 4Da a a a Ƞ>`)X X9Trbbb T@@@ ` *`@ @id`d`d`  Ȱ.`"Ƞ,2!Ƞ#`'2 ' dXX.#Ȱ.` !Aa@ !! A !! A !Aa@Xa@ !! ƁXÁX@` !AX`"Š"Š``@ AaaA3AasA``c` 1 m@`$ `ǨA a a a "Ƞ-G . a a a a a a a #a Ƞ=`XX(X~#Ȱ.`1   #0a d a  !13d #2d Ad( 2adaa1 aDa1bAa?ad A2aF ad2aa1`a1`Da1` a a aȀ-`aaaaA&RARAda2H a aaa  ! Ta a a a _XadadRXWaAaA!dذ2H a "a aAa A a hda da da  a aa  a1 a A  a A a A a A a  3P" x a ` d aa bAa a babAa"H1h #h`Aa`Aaa`AaaMaB a #a  A Dda a a #a  n a )a a #a A a A # a 2W  ,or | AA A   AA A  a A kdRA a da . Ƞ>t` A U@ `a `X"dR@ R  B H gad `Ȱ#`XTrbȰ#`X`!dB2 @rdR@`/@o*Th$h#H  TeXwhTeS!X[ h `h0H.h.H'h&-h,h,h,X-!hTeS!KhHX3E jXM  "h `   *wM% 1_ !"h X " XXA"TZ$HZTe,@8hQ6$>5= % T&...... '' 4CALL' *B 'STRACE' *B 'TRENDP' *B 'R9ELOC' *T *K,I8 *N,TRENDP,,,B *K,I6 *Z *V #T_ h h  hDhISSBT "h4h14h4-F q -' %(&*A"TZ"hhh y l  n Z HM!"hG!dhFH5  j9 qT4"T*!vT H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xa H$X%t H X0 \ȵ" \` ȲX2whth \| h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӔt H"A HB0Fh  0Xt  00j qa! 1" hh! u  HTLDHHSYSTEM MESSAGE XXXXX%X#X!XXXXXXXXXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`a"a XHh j qhkK[\`@Nal@@ |@Z{[llP]}M]\Nkk``Kaazzm^L~~nnoo |[.<(+^&!$J*_)';O\m--//bbccddeeffgghhiijj,,%%_;>>??ppqqrrssttuuvvwwxxyy::#@ '==""{#AABBCCDDEEFFGGHHII})J$K.LX  3?C  3@.  3A  3B  3C  3D'  3E;  3FO  3Gc  3HwAL!}S $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmMACROS_`MACSKLXREF `TABLSTPASS3  PASS2  PASS1 ^SKFILEHELPERLIBIDO EDTLPFO2@DSKT50@DSKTAP IOUPV4 PBDFIL@REBFDDMNUPROULBUFF_TSLOG @SI SUTDISC!!UTBATC #UTIL /7 PROCED7SCMENUSYMENUySYMSGFџUSERID&@ UTPURG# UTSAVE# @UTDISM"UTMOUN"UTCOMM" UTRENA"UTLIST" UTCLEA"c%UTDELE"]@UTSTAT": UTDEFI!(UTINIT!@UTFLUS! UTDISP! `UTBATS!k `UTPRIN!M @UTSET !@UTHOST!1@SMCEDT(9SMCMON(! DSORT '7EDITOR&6`QTRMLD&(QTORLD&/$QTLOAD% QTCOMM% QTDELE%@QTDEFI%(QTIL $7 UTRMLD$(UTORLD$$UTLOAD# UTCOPY# UTRELO#oUTDUMP#2UTCOMP#(`FTN3B1+q0FTN3A5+N FTN3A4+%`FTN3A3* FTN3A2*FTN3A1*b*CPFILE(YSMCFMG(USMCIMG(PSMCSRT(I@FTN3ER-q" FTN3F1-+@FTN3E1,%FTN3D1,f$FTN3C1+*RPGSM73O@RPGSM636 `RPGSM53"RPGSM43 RPGSM33@RPGSM22@RPGSM12RPGSM02 RMUCLO2 RMUCFT17RMUCF01'`RMUCSW0: RMUOPN0RPGSM93nRPGSM83]SELMU 4MOUNT 4|`TRACER4uSWITCH4qCATFIL4^ CMPSUM9CMPDLQ9x CHUPD287 CHEKID8@CCSSPC8#@CCSPAS8`CCSDMP77LTRPRT>J!LTRBLD='LODFIL=DMPFIL=EDHUPDTUTRENA"UTRMLD:UTSAVEUTSET -UTSTAT&WRTOFEWRTOFPXREF UTPRIN,UTPURGUTRENA"UTSAVEUTSET -UTSTAT&XREF %PRTSCNQLOAD QTCOMM6QTDEFI8QTDELE7QTIL 9QTLOAD5QTORLD4QTRMLD3REBFDDRMUCF0ZRMUCFTYRMUCLOXRMUCSW[RMUOPN\RPGSM0WRPGSM1VRPGSM2URPGSM3TRPGSM4SRPGSM5RRPGSM6QRPGSM7PRPGSM8^RPGSM9]SCMENUSELMU _SI SKFILESMCEDT/SMCFMGHSMCIMGISMCMON0SMCSRTJSUMACLSWITCHbSYMENURMUCF0ZRMUCFTYRMUCLOXRPGSM0WRPGSM1VRPGSM2URPGSM3TRPGSM4SRPGSM5RRPGSM6QRPGSM7PSCMENUSI SKFILESMCEDT/SMCFMGHSMCIMGISMCMON0SMCSRTJ'FTN3C1OFTN3D1NFTN3E1MFTN3ERKFTN3F1LHELPER IOUPV4LCLRFLLIBIDO LMOVDTLODDATLODFIL{LTRBLDzLTRPRTyLTRSTAxMACROSMACSKLMHUPDTwMNUPROMOUNT `MOVDATNEWS vNMCHNGuPASS1 PASS2 PASS3 PBDFILPGCMPRPGCNT1tPGCNT2sPGGEN rPGLISTPGLTTBqPGPURGPGUPTBPHDEL1PHDEL2PRETSRPROCEDLTRPRTyLTRSTAxMACROSMACSKLMHUPDTwMNUPROMOUNT `NEWS vNMCHNGuPASS1 PASS2 PASS3 PBDFILPGCNT1tPGCNT2sPGGEN rPGLTTBq__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X uFTN3D1NFTN3E1MFTN3ERKFTN3F1LHELPER IOUPV4LARPRTLAXTRTLBATPTLBATUDLCLIUDLCLRFLLDACRTLDAQELLEGAL LIBIDO LIST LMNENTLMOVDTLODDATLODFIL|LOOK LPGUTBLTRBLD{LTRPRTzLTRSTAyLUTFMTMACROSMACSKLMANENTMHUPDTxMOUNT `MOVDATMOVE MOVEIDMSG NEWS wNMq 3K}AL!}S $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmMACROS_`MACSKLXREF `TABLSTPASS3  PASS2  PASS1 ^SKFILEHELPERLIBIDO EDTLPFO2@DSKT50@DSKTAP IOUPV4 PBDFIL@REBFDDMNUPROULBUFF_TSLOG @SI SUTDISC!!UTBATC #UTIL /7 PROCED7SCMENUSYMENUySYMSGFџUSERID&@ UTPURG# UTSAVE# @UTDISM"UTMOUN"UTCOMM" UTRENA"UTLIST" UTCLEA"c%UTDELE"]@UTSTAT": UTDEFI!(UTINIT!@UTFLUS! UTDISP! `UTBATS!k `UTPRIN!M @UTSET !@UTHOST!1@SMCEDT(9SMCMON(! DSORT '7EDITOR&6`QTRMLD&(QTORLD&/$QTLOAD% QTCOMM% QTDELE%@QTDEFI%(QTIL $7 UTRMLD$(UTORLD$$UTLOAD# UTCOPY# UTRELO#oUTDUMP#2UTCOMP#(`FTN3B1+q0FTN3A5+N FTN3A4+%`FTN3A3* FTN3A2*FTN3A1*b*CPFILE(YSMCFMG(USMCIMG(PSMCSRT(I@FTN3ER-q" FTN3F1-+@FTN3E1,%FTN3D1,f$FTN3C1+*RPGSM73O@RPGSM636 `RPGSM53"RPGSM43 RPGSM33@RPGSM22@RPGSM12RPGSM02 RMUCLO2 RMUCFT17RMUCF01'`RMUCSW0: RMUOPN0RPGSM93nRPGSM83]SELMU 4MOUNT 4|`TRACER4uSWITCH4qCATFIL4^ CMPSUM9CMPDLQ9x CHUPD287 CHEKID8@CCSSPC8#@CCSPAS8`CCSDMP77LTRPRT>J!LTRBLD='LODFIL=DMPFIL=EDHUPDTUTRENA"UTRMLD:UTSAVEUTSET -UTSTAT&WRTOFEWRTOFPXREF UTPRIN,UTPURGUTRENA"UTSAVEUTSET -UTSTAT&XREF %PRTSCNQLOAD QTCOMM6QTDEFI8QTDELE7QTIL 9QTLOAD5QTORLD4QTRMLD3REBFDDRMUCF0ZRMUCFTYRMUCLOXRMUCSW[RMUOPN\RPGSM0WRPGSM1VRPGSM2URPGSM3TRPGSM4SRPGSM5RRPGSM6QRPGSM7PRPGSM8^RPGSM9]SCMENUSELMU _SI SKFILESMCEDT/SMCFMGHSMCIMGISMCMON0SMCSRTJSUMACLSWITCHbSYMENURMUCF0ZRMUCFTYRMUCLOXRPGSM0WRPGSM1VRPGSM2URPGSM3TRPGSM4SRPGSM5RRPGSM6QRPGSM7PSCMENUSI SKFILESMCEDT/SMCFMGHSMCIMGISMCMON0SMCSRTJ'FTN3C1OFTN3D1NFTN3E1MFTN3ERKFTN3F1LHELPER IOUPV4LCLRFLLIBIDO LMOVDTLODDATLODFIL{LTRBLDzLTRPRTyLTRSTAxMACROSMACSKLMHUPDTwMNUPROMOUNT `MOVDATNEWS vNMCHNGuPASS1 PASS2 PASS3 PBDFILPGCMPRPGCNT1tPGCNT2sPGGEN rPGLISTPGLTTBqPGPURGPGUPTBPHDEL1PHDEL2PRETSRPROCEDLTRPRTyLTRSTAxMACROSMACSKLMHUPDTwMNUPROMOUNT `NEWS vNMCHNGuPASS1 PASS2 PASS3 PBDFILPGCNT1tPGCNT2sPGGEN rPGLTTBq__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X uFTN3D1NFTN3E1MFTN3ERKFTN3F1LHELPER IOUPV4LARPRTLAXTRTLBATPTLBATUDLCLIUDLCLRFLLDACRTLDAQELLEGAL LIBIDO LIST LMNENTLMOVDTLODDATLODFIL|LOOK LPGUTBLTRBLD{LTRPRTzLTRSTAyLUTFMTMACROSMACSKLMANENTMHUPDTxMOUNT `MOVDATMOVE MOVEIDMSG NEWS wNMCHNGvNOHISTPASS1 PASS2 PASS3 PASSW PBDFILPGCMPRPGCNT1uPGCNT2tPGGEN sPGLISTPGLTTBrPGPURGqPGUPTBPHDEL1PHDEL2PRETSRPRINT CPFIL1CPFILEGCPYINDCRETINDACRTDDACRTEDALISTDAQUELDDT DECMTNDHUPDT~DISM DL DLYUSEDMPFCBDMPFIL}DOCPRTDSKT50 ALS qCFS DTLS13EDITOR2EDTLPF FIXINAFTN3A1FFTN3A2EFTN3A3DFTN3A4CFTN3A5BFTN3B1AFTN3C1ODACRTDDACRTEDALISTDAQUELDDT DEALcHS $$ PROCEDPASS1 PASS2 PASS3 PBDFILPGCMPRPGCNT1sPGCNT2rPGGEN qPGLISTPGLTTBPGPURGPGUPTBPHDEL1PHDEL2PRETSR>17 e `DUg!  3O CCS20 qV ,7a@87VV& X SLITF00$$ 110983110983I *D^ $_CTX%X#X!XXXXXXX'XXX X X XXXXXH2 H-3Z2"4` aADe+aa AA a a Vh`',XH?XL X DXB hH(h'"H"X$ " hXHXh h h T`6L>(T`B-"HhHXhX hXhhX~IhXhEX}"" hhX5XF hzl\X g h#dhh6 XXTf+Te>hTeΦ(@!""  iH`p`H"nnn L#Ts"@h hH nn  ! Lh`H5Ts+"wAH{:h Te>X} h\\h \ \ hlݦ) h8n H TT h\h\h HM!"hG!dhFH5  j9 qTǨȧ4"T٧Ƨ*!vTŨ H H  -Xz H   #3T Xk H  Xu$$SYMSGF$$ SYSVOL \"Xm HE HXC  X\Xj H6 H X4  Xz H$X% H X0 \ȵ" \` ȲX2whth \ h H ! qH  HHa2Ƞ(h!n 8 H X X' hdLH 1  :XӨ H"A HB0Fh  0X  00j qa! 1" hh! u  HTLD٨٨HHSYSTEM MESSAGE XX  3PXX5 TT[T P SLITF00$$ SYSVOL VEDITOR IN EDITOR OUT(  T[Tei+HI+lTd 56\e78\59\U59dJdKdL hup8rdM d4dBd%Cd^^d2_d[1`(dddd d*TId d>f} 1 d d>d\m? Bdv `dyTǣm~-- 10@ d Ts Ad'mTdm? l `l lλfܵ 1Tͣm- !\~=8 lhfܛ 1*gdd*hdd*fddTm -̣ ! d]TTeΩ (Bd(T +(CTTţm-e8\-\+.DTf+T H READY AUTO,TYPE,BASE,INCR,IDENT CHANGE,OSTR,NSTR,STRT,END,SCOL,ECOL,VETO CLEAR COMMAN CTAB DELETE,STRT,END 8EXIT GET,FN,R LINE,NMBR,TYPE LIST,STRT,END RESEQ,BASE,INCR SEARCH,STR,STRT,END,SCOL,ECOL SEQUEN,FN,R,N 9STAB,TYPE/N1,N2,...,N20 45(DTTd Tea+3`e3 \\   4 *B0"Dj Ad`ddadbdc`d'd d.T$!H E @Ddc``bDdQadiodec  "c. `a2da2bcy Ts ]LRke"V"'"]Fd(d'UAUTO CHANGECLEAR COMMANCTAB DELETEEXIT GET LINE LIST RESEQ SEARCHSEQUENSTAB %<X/ѾD TT Ts  TT+fT+T+٪T 12345678901234567890123456789012345678901234567890123456789012345678901234567890)00000 1 123456789012345678901234567890123456789012345678901234567890123456789012345678904-.8?BNUV (H )TeTs  dZTd\UT' 0dXTc * #  l  dld)\  dW l #ٌlT# bdcddd̺ T=̭  dTdu&Ts Z T +H  ldO d1T'  dQ d8Od a %\ǬlT5-- 1 d>Κf 1d\  )dYhZlη ȄZdYTea+Z5YU\X  +T)Q\)% dPd$QhĬňl%h̼lTdK\^ ̣Ts ̜ll̗ d>nn 1\)HhȈdKHhȈdHhȄdLHlجȌdȄXdMȌd\5Q ȄZdY V lHnܝ 51Tea+ZU\\+Z%YU\ l} a\ ŌduAdR ζA d>α  dS= dTTf-ΗAl lӜ!ی lHd@nݤln 1̠" : 'y l̨ Al̤ δ Rέl4nΣΝl𬺌n> P18O an)* # dtT5-- 1 ldf 1dTs Td\UМ "lȄWlQ "0 u 1 d}\єUTea+UYU\   S\U  l " l̼ Q ȄZdYa 1T5`-- "\[d5T5- "#l*dT- 1 d>df 1dTs d'T  @ HH PAUSE TYPE CARRIAGE RETURN IF CHANGE IS OKOPERATION FINISHED...STRING NOT FOUND 5?U (&(T%eT+  3Qs,  d$*d& h Ph hdk dZT ' > h %\ڰ+  lf 1\  dTc  # "ldT\  "l  ̦l\̶  #dl\̨  #d  l  l  T#b. d&$ "eӜ "e P"e  ed)T'  ٜ " d>4f (1 l [ ̸l d drdj1 ɜ . d."ll Pdsl Kl "lTd0. ddmdRTƘh *  di dkl T1ɜ ;lT 1\̺ 12h<%17l2d&3d'Z T +Tea+Z/3\ 4dT\+Z5TA\B 0 d>f4 (1T5-- 1 ldf 1dTs- d'& d >̲  \+363A\ l)( k T +7T HEDRS(  TTd-.eAT**-- *d Ts+ d't  dT l ,lTŔ- 1 d>df 1d\Ӳ, l\e23\43T T HTTd첛 d Id dGT 5H2?O T<eTs eTc' k # 1Ud$d)\ [ 2ld& !> d1T Edq lT5-l- 1 d>df 1d\  8fO dt̵ (ܱ\ l ̩* 2TQdT HzLIKLM/  TT'  d` daT  d>df 1TTdHA%d lf} 1 dd dȷd lȯ!5 `dTǔ~-- 1!  dTsB G d,n 1\C 8ۤG ܛ\D -    ! d0  lTR dt'  \E TŔ-TdeLMT HB12345678901234567890123456789012345678901234567890123456789012345678901234567890T00000 1 12345678901234567890123456789012345678901234567890123456789012345678901234567890h -.8?BNUV ()H TeTsr Tdxy\UxyTc' Ք#4 ; d d \۴o d)T 0dX T=  du d1T8O a %\sT +{ 1_ Twd@d$ d>nn 1T)Hh6}Ȉ0d;Hh*Ȉ&dHhȈd<Hh٬ȈdȄXd=Ȍd0MS) !\)A\)% llAhl%hlTd;|w\|wd? dQ  dY  d>8n 51Tea+ U\\+%{YUx\} [\ ɌduAdR κA lζ  dS≠ dTTf(ΜAl lԜ!̠ lHdJ@nݤ}ln 1̡" : '8O 6 dad)* # dtnT5-- 1 d>df 1dTst 5[ wl l AdRۤ } dJ4nlnܳ P1T5-̣ 1 lΥnܠ 1̕l\u Tdxy\Uxy*) "lQ 2Q  \  u 1 d}\ϔUxyTea+UYUx\  j!\Uxy  l̽ " l̸ μ  dY d8OlT5-- 1 d>df 1dTst hT +{T+5x\+x dQ  l\+YUx\F*d\5`-̺ 2}̵~ F[d5T5-̣ "wlT-̔ 2 lΕnܐ 2̄l\v d'T  @ HH2? ]  3R PAUSE (1TXeTs }dF dZd$*d&Tc' j#  !l\ Y llߜ !I؜ #lld) d1( ; T +FT -̺ !(\+5ȔdA̧ dB\+A̞ "ܛ lTea+ȷɷȑ \Ts T HnSCRATCXX$$ SYSVOL P8>?SWXYZ[\] R/***0(GET,,RTeTsz   dt dVdUԘTc' #  ll\   ll d$d)*d& d>}f^ 1TIdb ln 1 d ddTd)^dldm lf 1Tͤ)-- 1! d Ts| d'Tɤ)- 1l\츂 \)^^d2 `d5TǤ)~- &l\Ӹ}  dA dBadv d` l dT &) " U kTV hZld[d\ lI 5̹  l̳ ٬HhʬȈlԬHh̬Ȉd67hƬȈl̶TZ## !T)5]-- )d Ts~ 0aBVUl)2o\x \y TŤ)-vlTd5O 1[d5dRdSd>>\)5]-̲ !lT)^^-̢ '̟l\ \)-̕ '̒l\ \-- 1 ldf 1dTs{ Tɔe- 1 lnܤ 1l\币 T)~e- (d \Ը t 2Td d d d>έn 1d  l\ޣe d. d ,dTT H PAUSE OPERATION FINISHED...STRING NOT FOUND 25? (T/eTs d$*d& h Ph dZT ' *> dm 1QTc *# ldT\ * "l  ̿l !(\ * dl\̸ * #d  l &Ts  lfܙ 1$d) dl( uT& !m d>4f (1 l d 1 Ӝ , d.̛ 2̘l Pdsl Kl 9dR̕ #lTƘh "ܪ lZ T +Tea+Z \ 2\+ZA\ ll \ܥ+T HKLMNU-/  /***TT'  d` daT  d>df 1T Tc #dWTd>4%d lf} 1 d dȣd lț!> `dTǔ~-- 1)  $dTs5 l\eBC d,Θn 1\6 Ӥ= >\ݼ7    \ͼ;  ! d0  l dd)W  llD1d d d \: d'TŔ-T5`pp /E dTs8 T)52 r[ o 13FG̡  l%̛ !̭IHh̤HȈl̦Hh̞Ȉ d67h̘ȈlhZۈld[d\ )l* "lT5pp )dTs9 gaLhd lTT Hu9 *TD.d9db !OT#' OHd Z6H 1<٘7Ԙ2l ,l ddSTc *#f 1 l  & 1 Ts֕ ̫HdXT=T HTZTdPJH\5LHT HQ TTZ*K "p!" d|d}TmP-- 1 d Ts^-d'TdPMa dO dolT HhDHBX)X-h9X*h7 h3h5`3 FZ9h/,*QH :1 !"h!#h `l d d Ts d'-T$ !. Ad!  lHl  lT HTQ d1)d5 !lT' 8B  3SO   ld*T HNTT' @8O )& 11 ddT5-- 1 d>df 1dTsU l52 T HT)p4Kd" d7,d$4d6TêT H2 T#Tdbʿ !D Tsɕ d'8 l d>T$ !-  l'  Ad,an A lnln 1T H1 TTde)* !_ S l d>T$ !O  A  :  3 ~!/ !+ ר Ad,dn lA lṉl쌬nܷ 1Ts( d'T H2300TcTd\ d# "^ S l d>T$ !5 / 9"X "X X Ad!ਸ਼ n h n 1W l d"l Al̼ ܨ1֨d3Ф$ɤHl Ad פ n hn l> l 1T# Ts \ d'T HD2T d/d0 # l1 % lT$  l  !l  l 3   lTsh d'T H25;<=T Td (Ts d'P  lT$ !  _3 $\ df d>\  $\ ɜ  4\ ̽f 1\̲ :̯  l\ T H00 9hTd&'  0/l, (dh -l h 0p8(hҘ 0hA hͨ  @m I@mp8hȳ h !@HHTTh\ h h h(Tê7O À dPdM;O À dD d=d< d"d!P n # ndC $ll 2l lB$K d:Q  n d|γd}̠n̿n n 1OhTm-- -d Ts— šd'7o !<ČdTOdΗd̸OhTdK–dS!l̦OhTm•- &̽› lnfP d̻d:OhTm-̜ &̙œ PB$KM l6d; $1 n  fQ7dOdNd8T H-67T= dGX  ;   Tsð d'h lT l`   l) -  d d \ï  l   l̴  l̯  l̪  l̥  l̠  dGX  l  l  l Tsñ TT Hq)+0K'5<BK (+.47:K!#&(+-025K#*4;K!+16<K &-K KTG (dS d>dTAf 1T H-NY( /***0TR d d1 d` daT5`pp 1  d>df 1dTs d'Md@  l4 (1 d?" ( dA2 ޔ[ M 18є̔  l' #μHd5HhίȈd6HhȈdYlZl[lT)' |̾ )l/d d d Ts ^* "lTa8fO?gp $Td5  1;[l dRdSd>!'T5-- 1 d,df 1d\ d5 dT H+ZTƘ dhRh.dim  &" ll d>!T$ ! d ; lT HΗTm ) d>!"r AdT ` 3TALcHS $$ PROCEDPASS1 PASS2 PASS3 PBDFILPGCMPRPGCNT1sPGCNT2rPGGEN qPGLISTPGLTTBPGPURGPGUPTBPHDEL1PHDEL2PRETSR>17 e `DUg!LA 05@LA 06ALA 07BLA 08CLA 09DLA 10ELA 11FLA 12GLA 13HLA 14ILA 15JLA 16KLA 17LLA 18MLA 19NLA 20OLA 21PLA 22QLA 04?LA 05@LA 06ALA 07BLA 08CLA 09DLA 10ELA 11FLA 12GLA 13HLA 14ILA 15JLA 16KLA 17LLA 18MLA 19NLA 20OLA 21PLA 22QLA 23RLA 24SLA 25TLA 26ULA 27VLA 28WLA 29XLA 30YLA 31ZLA 32[LA 33\LA 34]LA 35^LA 36_LA 37`LA 38aLA 39bLA 40cLA 41dLA 42eLA 43f#LA 25TLA 26ULA 27VLA 28WLA 29XLA 30YLA 31ZLA 32[LA 33\LA 34]LA 35^LA 36_LA 37`LA 38aLA 39bLA 40cLA 41dLA 42eLA 43fLA 44gLA 45hLA 46iLA 47jLA 48kLA 49lLA 50mLA 51nLA 52oLA 53pLA 54qLA 55rLA 56sLIBRARY 00vSPECIAL 00uLA 39bLA 40cLA 41dLA 42eLA 43f__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3YommmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL7oS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmI  3ZoqAL@oqS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 00 CCS20 00 LA 00 01 NEWS 02 NEWS 03 NEWS 04 NEWS 05 NEWS 06 NEWS 07 NEWS 08 NEWS 09 NEWS 10 NEWS 11 NEWS 12 NEWS 13 NEWS 14 NEWS 15 NEWS 16 NEWS 17 NEWS 18 NEWS 19 NEWS 20 NEWS 21 NEWS 22 NEWS 23 NEWS 24 NEWS 25 NEWS 26 NEWS 27 NEWS 28 NEWS 29 NEWS 30 NEWS 31 NEWS 32 NEWS 33 NEWS 34 NEWS 35 NEWS 36 NEWS 37 NEWS 38 NEWS 39 NEWS 40 NEWS 41 NEWS 42 NEWS 43 NEWS 44 NEWS 45 NEWS 46 NEWS 47 NEWS 48 NEWS 49 NEWS 50 NEWS 51 NEWS 52 NEWS 53 NEWS 54 NEWS 55 NEWS 56 NEWS LA 01 NEWS LA 02 NEWS LA 03 NEWS LA 04 NEWS LA 05 NEWS LA 06 NEWS LA 07 NEWS LA 08 NEWS LA 09 NEWS LA 10 NEWS LA 11 NEWS LA 12 NEWS LA 13 NEWS LA 14 NEWS LA 15 NEWS LA 16 NEWS LA 17 NEWS LA 18 NEWS LA 19 NEWS LA 20 NEWS LA 21 NEWS LA 22 NEWS LA 23 NEWS LA 24 NEWS LA 25 NEWS LA 26 NEWS LA 27 NEWS LA 28 NEWS LA 29 NEWS LA 30 NEWS LA 31 NEWS LA 32 NEWS LA 33 NEWS LA 34 NEWS LA 35 NEWS LA 36 NEWS LA 37 NEWS LA 38 NEWS LA 39 NEWS LA 40 NEWS LA 41 NEWS LA 42 NEWS LA 43 NEWS LA 44 NEWS LA 45 NEWS LA 46 NEWS LA 47 NEWS LA 48 NEWS LA 49 NEWS LA 50 NEWS LA 51 NEWS LA 52 NEWS LA 53 NEWS LA 54 NEWS LA 55 NEWS LA 56 NEWS CCS149 00 SPECIAL 00 LIBRARY 00 __ 05 __mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3[ommmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 19 40LA 03LA 24 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30! 31" 32# 33$ 34% 35& 36'CCS20 00LA 00 20 21 22 23 24 25 26 27 28 29 30! 31" 32# 33$ 34% 35& 36' 37( 38) 39* 40+ 41, 42- 43. 44/ 450 461 472 483 494 505 516 527 538 549 55: 56;CCS20 00LA 00LA 01< 41, 42- 43. 44/ 450 461 472 483 494 505 516 527 538 549 55: 56;CCS149 00tCCS20 00LA 00LA 01LA 05@LA 06ALA 07BLA 08CLA 09DLA 10ELA 11FLA 12GLA 13HLA 14ILA 15JLA 16KLA 17LLA 18MLA 19NLA 20OLA 21PLA 22QLA 04?LA 05@LA 06ALA 07BLA 08CLA 09DLA 10ELA 11FLA 12GLA 13HLA 14ILA 15JLA 16KLA 17LLA 18MLA 19NLA 20OLA 21PLA 22QLA 23RLA 24SLA 25TLA 26ULA 27VLA 28WLA 29XLA 30YLA 31ZLA 32[LA 33\LA 34]LA 35^LA 36_LA 37`LA 38aLA 39bLA 40cLA 41dLA 42eLA 43f8}  3\o#LA 25TLA 26ULA 27VLA 28WLA 29XLA 30YLA 31ZLA 32[LA 33\LA 34]LA 35^LA 36_LA 37`LA 38aLA 39bLA 40cLA 41dLA 42eLA 43fLA 44gLA 45hLA 46iLA 47jLA 48kLA 49lLA 50mLA 51nLA 52oLA 53pLA 54qLA 55rLA 56sLIBRARY 00vSPECIAL 00uLA 39bLA 40cLA 41dLA 42eLA 43f__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm|  3]ommmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL7oS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmCARDPRO READER TAPEPRO TAPE0 DCCOLACT PRFDC001DCPRTLTR PRFDC002DCACTADD PRFDC003DCUPDTAP PRFDC004DCNFINUP PRFDC005DCFINUPD PRFDC006DCUPDHIS PRFDC007DCDUMMIE PRFDC008DCDUMDUM PRFDC009DCSRTTRN PRFDC010DCBLDDAS PRFDC011HSMOVHIS PRFHS001HSUPDTAP PRFHS002HSPRGHIS PRFHS003HSPRGTAP PRFHS004MTRDRLTR PRFMT001MTCONLTR PRFMT002MTUTIFIL PRFMT003MTDECTBL PRFMT004MTAVMDMP PRFMT005MTACTMTX PRFMT006MTSPCAUD PRFMT007MTLDSCRN PRFMT008MTSVSCRN PRFMT009MTPRGMST PRFMT010MTACTMTN PRFMT011MTUSEMTN PRFMT012MTDETCRD PRFMT013MTDETCON PRFMT014MTPDFMTN PRFMT015MTSCNPRT PRFMT016RPDRCIAC PRFRP001RPDRCSRQ PRFRP002RPTAPRRN PRFRP003RPTAPTQU PRFRP004RPTAPTTY PRFRP005RPWRTOFF PRFRP006RPDLYASN PRFRP007RPSUMACT PRFRP008RPWCOLST PRFRP009RPMCOLST PRFRP010RPTCNTRL PRFCNTRLPRFRP012 PRFRP012PRFRP013 PRFRP013PRFPG000 PRFPG000PRFPG001 PRFPG001PRFPG002 PRFPG002PRFPG003 PRFPG003PRFPG004 PRFPG004PRFPG005 PRFPG005PRFPG006 PRFPG006PRFPG007 PRFPG007PRFPG008 PRFPG008PRFPG009 PRFPG009PRFPG010 PRFPG010PRFPG011 PRFPG011PRFPG012 PRFPG012PRFPG013 PRFPG013PRFPG014 PRFPG014PRFPG015 PRFPG015PRFPG016 PRFPG016PRFPG017 PRFPG017PRFPG018 PRFPG018PRFPG019 PRFPG019LDCOLACT PRFLD001LDPRTLTR PRFLD002LDACTADD PRFLD003LDUPDTAP PRFLD004LDNFINUP PRFLD005LDFINUPD PRFLD006LDUPDHIS PRFLD007LDDUMMIE PRFLD008LDDUMDUM PRFLD009LDSRTTRN PRFLD010LDBLDDAS PRFLD011PRFLD012 PRFLD012PRFLD013 PRFLD013LHMOVHIS PRFLH001LHUPDTAP PRFLH002LHPRGHIS PRFLH003LHPRGTAP PRFLH004LHPRGCLI PRFLH005LMRDRLTR PRFLM001LMCONLTR PRFLM002LMUTIFIL PRFLM003LMDECTBL PRFLM004LMAVMDMP PRFLM005LMACTMTX PRFLM006LMSPCAUD PRFLM007LMLDSCRN PRFLM008LMSVSCRN PRFLM009LMPRGMST PRFLM010LMACTMTN PRFLM011LMUSEMTN PRFLM012LMDETCRD PRFLM013LMDETCON PRFLM014LMPDFMTN PRFLM015LMSCNPRT PRFLM016PRFLM017 PRFLM017LODRCIAC PRFLO001LODRCSRQ PRFLO002LOTAPRRN PRFLO003LOTAPTQU PRFLO004LOTAPTTY PRFLO005LOWRTOFF PRFLO006LODLYASN PRFLO007LOSUMACT PRFLO008LOWCOLST PRFLO009LOMCOLST PRFLO010LOTCNTRL PRFLACTRPRFLO012 PRFLO012PRFLO013 PRFLO013PRFLO014 PRFLO014PRFLO015 PRFLO015PRFLO016 PRFLO016PRFLO017 PRFLO017PRFLP000 PRFLP000PRFLP001 PRFLP001PRFLP002 PRFLP002PRFLP003 PRFLP003PRFLP004 PRFLP004PRFLP005 PRFLP005PRFLP006 PRFLP006PRFLP007 PRFLP007PRFLP008 PRFLP008PRFLP009 PRFLP009PRFLP010 PRFLP010PRFLP011 PRFLP011PRFLP012 PRFLP012PRFLP013 PRFLP013PRFLP014 PRFLP014PRFLP015 PRFLP015PRFLP016 PRFLP016PRFLP017 PRFLP017PRFLP018 PRFLP018PRFLP019 PRFLP019PRFSC001 PRFSC001PRFSC002 PRFSC002PRFSC003 PRFSC003PRFSC004 PRFSC004PRFSC005 PRFSC005PRFSC006 PRFSC006PRFSC007 PRFSC007PRFSC008 PRFSC008PRFSC009 PRFSC009PRFSC010 PRFSC010PRFRP014 PRFRP014__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm&  3^ommmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmLDNFINUPMTDETCRDPRFLP005PRFPG010CARDPRO DCACTADDDCBLDDAS DCCOLACTDCDUMDUM DCDUMMIE DCFINUPDDCNFINUPDCPRTLTRDCSRTTRN DCUPDHIS DCUPDTAPHSMOVHISHSPRGHISHSPRGTAPHSUPDTAPLDACTADDELDBLDDASMLDCOLACTCLDDUMDUMKLDDUMMIEJLDFINUPDHLDNFINUPGLDPRTLTRDLDSRTTRNLLDUPDHISILDUPDTAPFLHMOVHISPLHPRGCLITLHPRGHISRLHPRGTAPSLHUPDTAPQLMACTMTXZLMAVMDMPYLMCONLTRVLMDECTBLXLMLDSCRN\LMRDRLTRULMSPCAUD[LMUTIFILWMTACTMTNMTACTMTXMTAVMDMPMTCONLTRMTDECTBLMTDETCONMTLDSCRNMTPDFMTN MTPRGMSTMTRDRLTRMTSCNPRT!MTSPCAUDMTSVSCRNMTUSEMTNMTUTIFILPRFLD012NPRFLD013OPRFLM017ePRFLO012qPRFLO013rPRFLO014sPRFLO015tPRFLO016uPRFLO017vPRFLP000wPRFLP001xPRFLP002yPRFLP003zPRFLP004{PRFLP005|PRFLP006}PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098+LDPRTLTRDLDSRTTRNLLDUPDHISILDUPDTAPFLHMOVHISPLHPRGCLITLHPRGHISRLHPRGTAPSLHUPDTAPQLMACTMTN_LMACTMTXZLMAVMDMPYLMCONLTRVLMDECTBLXLMDETCONbLMDETCRDaLMLDSCRN\LMPDFMTNcLMPRGMST^LMRDRLTRULMSCNPRTdLMSPCAUD[LMSVSCRN]LMUSEMTN`LMUTIFILWLODLYASNlLODRCIACfLODRCSRQgLOMCOLSToLOSUMACTmLOTAPRRNhLOTAPTQUiLOTAPTTYjLOTCNTRLpLOWCOLSTnLOWRTOFFkMTACTMTNMTACTMTXMTAVMDMPMTCONLTRMTDECTBLMTDETCONMTDETCRDMTAVMDMPMTCONLTRMTDECTBLMTDETCON#PRFPG011:PRFPG012;PRFPG013PRFPG016?PRFPG017@PRFPG018APRFPG019BPRFRP012-PRFRP013.PRFRP014PRFSC001PRFSC002PRFSC003PRFSC004PRFSC005PRFSC006PRFSC007PRFSC008PRFSC009PRFSC010RPDLYASN(RPDRCIAC"RPDRCSRQ#RPMCOLST+RPSUMACT)RPTAPRRN$RPTAPTQU%RPTAPTTY&RPTCNTRL,  3_oRPWCOLST*RPWRTOFF'TAPEPRO RPDLYASN(RPDRCIAC"RPDRCSRQ#RPMCOLST+RPSUMACT)RPTAPRRN$RPTAPTQU%RPTAPTTY&RPTCNTRL,RPWCOLST*RPWRTOFF'TAPEPRO PRFLP006}PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFLP019PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098PRFPG0109PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALoS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmے  3`o * SYSTEM MENU X0200001 * X0200002MNUPRO SC - SYSTEM CONFIGURATOR X0200003UTIL UT - SYSTEM UTILITIES X0200004EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILESX0200005MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING PREPARATION X0200006MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES X0200007MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES X0200008MNUPRO RP - CCS20 ON DEMAND REPORTING X0200009MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY X0200010MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION X0200011MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES X0200012MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES X0200013MNUPRO LO - L/A ON DEMAND REPORTING X0200014MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY X0200015MNUPRO EX - EXIT X0200016mmmmmmmmmmmmmmmmAL oS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM CONFIGURATION MENU 00001 * 00002 * BEFORE MAKING A SELECTION FROM THIS MENU BE SURE THE AUXILIARY 00003 * DISK(S) HAVE BEEN INITIALIZED WITH THE CORRECT VOLUME LABEL 00004 * OR LABELS FOR THE SYSTEM WHICH YOU WILL SELECT. ALL DISK 00005 * PACKS SHOULD BE MOUNTED AND READY. 00006 * 00007PRFSC001 A-12000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00008PRFSC002 B-24000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00009PRFSC003 C-36000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00010PRFSC004 D-78000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00011PRFSC005 E-12000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD03) 00012PRFSC006 F-24000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00013PRFSC007 G-36000/13500 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00014PRFSC008 H-60000/18000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01) 00015PRFSC009 I-CLEAR CCS SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00016PRFSC010 J-CLEAR CCS/LA SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00017 Z-EXIT 00018mmmmmmmmmmmmmmmmmmmmmmmmALoS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * 00010 * PROCEDURE TO BUILD 12000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC001 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * gA  3asALsS $$ X0300051PARAMETER ENTRY ERROR X0300052VOLUME HAS OPEN FILES, NOT DISMOUNTED ERROR - PROGRAM PROTECT VIOLATION AT LOCATION $$$$ X0300001ERROR - ILLEGAL PROGRAM ATTACHMENT AT LOCATION $$$$ X0300002ERROR - ILLEGAL FILE MANAGER REQUEST AT LOCATION $$$$ X0300003ERROR - ILLEGAL FILE REQUEST PARAMETER AT LOCATION $$$$ X0300004ERROR - ILLEGAL MONITOR REQUEST AT LOCATION $$$$ X0300005ERROR - ILLEGAL REQUEST PARAMETER AT LOCATION $$$$ X0300006ERROR - ILLEGAL I/O REQUEST LOGICAL UNIT AT LOCATION $$$$ X0300007ERROR - ATTEMPT TO PERFORM STACKED I/O REQUESTS AT LOCATION $$$$ X0300008NOTICE - THE CCS SYSTEM HAS BEEN DISABLED. X0300009A MASS MEMORY I/O ERROR HAS OCCURRED. PROGRAM TERMINATED. X0300010ERROR - ATTEMPT TO MODIFY THE FILE REQUEST BUFFER AT LOCATION $$$$ X0300011PROGRAM ABORTED X0300012@@@ ## ## ##:##:## X0300013C C S LOG OFF ##:##:## X0300014@@ IS INVALID X0300015ILLEGAL LOG IN X0300016REQUEST @@@@@@@@ CANNOT BE FOUND X0300017ERROR - @@@@@@@@ IS TOO LARGE TO BE EXECUTED X0300018ERROR STATUS $$$$ DURING OPEN OF FILE @@@@@@@@@@@@@@@@ X0300019ERROR STATUS $$$$ DURING CLOSE OF FILE @@@@@@@@@@@@@@@@ X0300020ERROR STATUS $$$$ DURING READR OF FILE @@@@@@@@@@@@@@@@ X0300021ERROR STATUS $$$$ DURING GETS OF FILE @@@@@@@@@@@@@@@@ X0300022ERROR STATUS $$$$ DURING FORCE FILE CLOSE X0300023PROCEDURE @@@@@@@@ CANNOT BE FOUND X0300024SYSTEM MESSAGE 0025 X0300025SYSTEM MESSAGE 0026 X0300026SYSTEM MESSAGE 0027 X0300027SYSTEM MESSAGE 0028 X0300028SYSTEM MESSAGE 0029 X0300029REQUESTED UTILITY PROCESSOR NOT FOUND X0300030REQUESTED COMMAND IS NOT LEGAL X0300031ILLEGAL COMMAND FORMAT X0300032FILE REQUEST REJECTED X0300033FILE COULD NOT BE LOCATED X0300034MM I/O ERROR WAS NOTED X0300035DISK UNIT SPECIFIED ALREADY MOUNTED X0300036FILE REQUEST ILLEGAL X0300037FILE IS CURRENTLY OPEN X0300038MISSING PARAMETER X0300039ILLEGAL GETFLD STATUS X0300040VIT COULD NOT BE FOUND X0300041FILE IS CURRENTLY LOCKED X0300042INTERNAL FM ERROR X0300043MAX. NO OF OPEN FILES FOR A SINGLE USER X0300044MAX. NO OF OPEN FILES, RETRY X0300045EQUIPMENT TYPE NOT FOUND   3bs X0300046VOLUME NOT ON SPECIFIED DISK UNIT X0300047VOLUME WAS ALREADY MOUNTED X0300048THIS VOLUME IS DISMOUNTED X0300049MOUNTED VOLUME HAS OPEN FILES X0300050WRONG VOLUME MOUNTED X0300051PARAMETER ENTRY ERROR X0300052VOLUME HAS OPEN FILES, NOT DISMOUNTED X0300053NO KEY ENTERED FOR INDEXED FILES X0300054INSUFFICIENT MM FILE SPACE X0300055INSUFFICIENT FID SPACE FOR FILES X0300056FILE NAME/OWNER NOT UNIQUE X0300057FCB INDEX OUT OF RANGE X0300058FILE REQUEST BUFFER NOT INITIALIZED X0300059UNDEFINED FM STATUS ERROR X0300060FILE HAS A SET OF LOCKED RECORDS X0300061DIRECT FILE RECORD LENGTH EXCEEDS 256 WORDS X0300062INVALID SYSTEM PERIPHERAL NAME X0300063RECORD LENGTH TOO LARGE FOR THIS COMMAND X0300064RECORD LENGTH NOT EQUAL X0300065FILE TYPE NOT EQUAL X0300066PRIMARY KEY NOT UNIQUE X0300067WRONG KEY VALUE X0300068ILLEGAL PARAMETER RECEIVED X0300069INTERNAL UTILITY ERROR X0300070ERROR IN COMPUTING MM WORD ADDR X0300071FILE FORMERLY OPENED FOR COMPRESSION X0300072VOLUME 2 MAY NOT BE MOUNTED X0300073CLASS CODE IS NOT A DISK X0300074THIS COMMAND IS ONLY ALLOWED IF ITOS IS DISABLED X0300075THIS IS A SUPERVISOR COMMAND ONLY X0300076RECORD LOCK-TABLE IS CURRENTLY FULL X0300077RECORD IS LOCKED BY ANOTHER USER X0300078FILE REQUEST BUFFER NOT PROPERLY INITIALIZED X0300079FILE SPECIFIED SHOULD BE A DIRECT FILE X0300080TAPE RECORD EXCEEDS INTERNAL BUFFER SIZE X0300081INDEX TOO BIG FOR UTILITY ORDERED LOAD X0300082OUT OF ORDER PRIMARY KEY X0300083SYSTEM MESSAGE 0084 FMUTIL ERROR 84 X0300084SYSTEM MESSAGE 0085 FMUTIL ERROR 85 X0300085DISK DRIVE/DISK PACK NOT COMPATIBLE X0300086SYSTEM MESSAGE 0087 X0300087SYSTEM MESSAGE 0088 X0300088SYSTEM MESSAGE 0089 X0300089SYSTEM MESSAGE 0090 X0300090SUBRCM CALL ERROR - ILLEGAL REQUEST TYPE X0300091SUBRCM CALL ERROR - X COORDINATE LESS THAN ZERO X0300092SUBRCM CALL ERROR - X COORDINATE GREATER THAN 79 X0300093SUBRCM CALL ERROR - Y COORDINATE LESS THAN ZERO 6  3cs X0300094SUBRCM CALL ERROR - Y COORDINATE GREATER THAN 23 X0300095SUBRCM CALL ERROR - BUFFER LENGTH LESS THAN 1 X0300096SUBRCM CALL ERROR - BUFFER LENGTH GREATER THAN 80 X0300097SUBRCM CALL ERROR - ILLEGAL 'DTYPE' X0300098SYSTEM MESSAGE 0099 X0300099SYSTEM MESSAGE 0100 X0300100RPG ERROR 001D @@@@@@@@ FILE IS ALREADY OPENED X0300101RPG ERROR 002D @@@@@@@@ TRIED TO PROCESS FILE IN WRONG MODE X0300102RPG ERROR 003D @@@@@@@@ SPECIFIED RECORD LENGTH INCORRECT X0300103RPG ERROR 004D @@@@@@@@ FILE NOT DEFINED IN DIRECTORY X0300104RPG ERROR 005D @@@@@@@@ AN ADD FILE FOR SEQ PROC MUST BE DEF AS OUTPT X0300105RPG ERROR 006D @@@@@@@@ ADD/LOAD SEQUENTIALLY NOT FOR DIRECT DEF FILE X0300106RPG ERROR 007D @@@@@@@@ FILE DEFINITION IS WRONG FOR SEQ. PROC. X0300107RPG ERROR 008D @@@@@@@@ RECORD LENGTH NOT COMPATIBLE WITH THE DIRECTORY X0300108RPG ERROR 009D @@@@@@@@ FILE MGR. DID NOT HANDLE DIR REQ STAT $$$$ X0300109RPG ERROR 010D @@@@@@@@ TRIED TO ACCESS AN UNOPENED FILE X0300110RPG ERROR 011D @@@@@@@@ READ 09 FOUND FILE TO BE NON UNIT-RECORD DEFINEDX0300111RPG ERROR 012D @@@@@@@@ RECORD ######## WAS SHORT-PADDED WITH BLANKS X0300112RPG ERROR 013D @@@@@@@@ READ 12 FOUND FILE DEFINED AS A NON-DISK FILE X0300113RPG ERROR 014D @@@@@@@@ RECORD ######## WAS TO LONG-RECORD TRUNCATED X0300114RPG ERROR 015D @@@@@@@@ WRIT17 FND FILE DEF AS NON-UNIT REC FILE X0300115RPG ERROR 016D @@@@@@@@ WRIT20 FND FILE DEF AS NON DISK SEQ FILE X0300116RPG ERROR 017D @@@@@@@@ UPDT26 FND FILE DEF AS NON DISK SEQ FILE X0300117RPG ERROR 018D @@@@@@@@ MULTIPLE UPDATES W/O READ IN BETWEEN INVALID X0300118RPG ERROR 019D @@@@@@@@ APDT30 FOUND FILE DEFINED AS A NON DISK-SEQ FILEX0300119RPG ERROR 020D @@@@@@@@ CLOS35 FOUND FILE DEFI AS NON UNIT REC FILE X0300120RPG ERROR 021D @@@@@@@@ CLOS38 FOUND FILE DEFINED AS A NON DISK-SEQ FILEX0300121RPG ERROR 022D @@@@@@@@ MASS STORAGE ERROR X0300122RPG ERROR 023D @@@@@@@@ FILE MGR DID NOT HANDLE FILE REQUEST $$$$ X0300123RPG ERROR 024D @@@@@@@@ END OF TAPE ENCOUNTERED X0300124RPG ERROR 025D @@@@@@@@ INPUT DEVICE FAILURE X0300125RPG ERROR 026D @@@@@@@@ OUTPUT DEVICE FAILURE X0300126RPG ERROR 027D @@@@@@@@ SHARED BUFFERS NOT ALLOWED FOR TAPE FILES X0300127RPG ERROR 028D @@@@@@@@ BLOCK SIZE MUST BE INTEGER MULTIPLE OF REC SIZE X0300128RPG ERROR 029D @@@@@@@@ READ 11 FOUND FILE NOT DEFINED AS TAPE X0300129RPG ERROR 030D @@@@@@@@ WRIT19 FOUND FILE NOT DEFINED AS TAPE X0300130RPG ERROR 031D @@@@@@@@ CLOS 37 FOUND FILE NOT DEFINED AS TAPE X0300131RPG ERROR 032D @@@@@@@@ DATA OVERFLOW - NO MORE TAPE VOLUMES DECLARED X0300132RPG ERROR 033D @@@@@@@@ ADDING RECORDS IS NOT ALLOWED IN DIRECT PROC. X0300133RPG ERROR 034D @@@@@@@@ OUTPT FILE FOR DIRCT PROC MUST BE DEF DIR X0300134RPG ERROR 035D @@@@@@@@ DIRECT PROC. ON INDEXED FILE ALLOWD ONLY FOR INPX0300135RPG ERROR 036D @@@@@@@@ FILE DEFINITION IS WRONG FOR DIRECT PROC. X0300136RPG ERROR 037D @@@@@@@@ READ13 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300137RPG ERROR 038D @@@@@@@@ WRIT21 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300138RPG ERROR 039D @@@@@@@@ UPDT27 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300139RPG ERROR 040D @@@@@@@@ CLOS39 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300140RPG ERROR 041D @@@@@@@@ RECORD NUMBER ######## OUT OF RANGE X0300141RPG ERROR 042D @@@@@@@@ DOUBLE BUFFERING NOT ALL  3dsOWED FOR INDEX FILE X0300142RPG ERROR 043D @@@@@@@@ INDEX PROC. IS ALLOWED ONLY FOR INDEX-DEF FILES X0300143RPG ERROR 044D @@@@@@@@ KEY LENGTH/POSITION NOT COMPATIBLE WITH DIRECTORX0300144RPG ERROR 045D @@@@@@@@ OPEN 05 WAS CALLED FOR NON-RANDOM PROCESSING X0300145RPG ERROR 046D @@@@@@@@ READ15 FOUND FILE DEFINED AS A NON INDEX FILE X0300146RPG ERROR 047D @@@@@@@@ WRIT23 FOUND FILE DEFINED AS A NON INDEX FILE X0300147RPG ERROR 048D @@@@@@@@ ADDT32 FOUND FILE DEFINED AS A NON INDEX FILE X0300148RPG ERROR 049D @@@@@@@@ CLOS41 FOUND FILE DEFINED AS A NON INDEX FILE X0300149RPG ERROR 050D @@@@@@@@ UPDT29 FOUND FILE DEFINED AS A NON INDEX FILE X0300150RPG ERROR 051D @@@@@@@@ THE KEY IN RECORD ######## MODIFIED BY UPDATE X0300151RPG ERROR 052D @@@@@@@@ CLOS40 FOUND FILE DEFINED AS A NON INDEX FILE X0300152RPG ERROR 053D @@@@@@@@ READ19 FOUND FILE DEFINED AS A NON INDEX FILE X0300153RPG ERROR 054D @@@@@@@@ WRIT22 FOUND FILE DEFINED AS A NON INDEX FILE X0300154RPG ERROR 055D @@@@@@@@ UPDT28 FOUND FILE DEFINED AS A NON INDEX FILE X0300155RPG ERROR 056D @@@@@@@@ ADDT31 FOUND FILE DEFINED AS A NON INDEX FILE X0300156RPG ERROR 057D @@@@@@@@ SETL33 FOUND FILE DEFINED AS A NON INDEX SEQ FILX0300157RPG ERROR 058D @@@@@@@@ RECORD ######## OUT OF ORDER X0300158RPG ERROR 059D @@@@@@@@ SETL33 SET LOWER LIMIT NOT ALLOWED FOR ADD FILESX0300159RPG ERROR 060D @@@@@@@@ KEY OF RECORD ######## ALREADY EXISTS X0300160RPG ERROR 061D @@@@@@@@ SEQ. PROC. FOR INDEX-DEFINED FILE ONLY FOR INPUTX0300161RPG ERROR 062D @@@@@@@@ UNABLE TO SORT THE KEYS X0300162RPG ERROR 063D @@@@@@@@ SLCT34 CALL STACKER SELECT IS NOT SUPPORTED X0300163RPG ERROR 064D @@@@@@@@ ERROR CODE IN BUFFER IS WRONG FOR TAPE X0300164RPG ERROR 065D @@@@@@@@ NO VOL1 LABEL ON SL TAPE X0300165RPG ERROR 066D @@@@@@@@ WRONG DATA SET NAME X0300166RPG ERROR 067D @@@@@@@@ TAPE VOLUMES MOUNTED IN WRONG ORDER X0300167RPG ERROR 068D @@@@@@@@ TAPE FILE NOT DEFINED BY MOUNT UTILITY X0300168RPG ERROR 069D @@@@@@@@ WRONG VOLUME SERIAL NUMBER X0300169RPG ERROR 070D @@@@@@@@ INVALID EXPIRATION DATE X0300170RPG ERROR 071D @@@@@@@@ FILE MANAGER ERROR IN READING MOUNT FILE X0300171RPG ERROR 072D @@@@@@@@ UNEXPIRED DATE SET X0300172RPG ERROR 073D @@@@@@@@ NOT USED X0300173RPG ERROR 074D @@@@@@@@ COMBINED FILES NOT SUPPORTED X0300174RPG ERROR 075D @@@@@@@@ OPEN02 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300175RPG ERROR 076D @@@@@@@@ WRONG BUFFER SIZE CAN NOT BE USED FOR FIXED BLK X0300176RPG ERROR 077D @@@@@@@@ BLOCKING IS IMPOSSIBLE FOR SHARED BUFFERS X0300177RPG ERROR 078D @@@@@@@@ ERROR RETURN FROM SPEC. DEV DRVR, STAT= $$$$ X0300178RPG ERROR 079D @@@@@@@@ READ 10 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300179RPG ERROR 080D @@@@@@@@ UPDT25 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300180RPG ERROR 081D @@@@@@@@ RECORD ######## WAS TOO LONG - RECORD IGNORED X0300181RPG ERROR 082D @@@@@@@@ CLOS36 FOUND FILE DE AS NON SPECIAL DEV FILE X0300182RPG ERROR 083D @@@@@@@@ WRIT 18 REQUIRES FILES DEFI. AS SPECIAL DEVICE X0300183RPG ERROR 084D @@@@@@@@ NOT USED X0300184RPG ERROR 085D @@@@@@@@ NOT USED X0300185RPG ERROR 086D @@@@@@@@ NOT USED X0300186RPG ERROR 087D @@@@@@@@ NOT USED X0300187RPG ERROR 088D @@@@@@@@ NOT USED X0300188RPG ERROR 089D @@@@@@@@ NOT USED X0300189RPG ERROR 090D @@@@@@@@ NOT USED  3es X0300190RPG ERROR 091D @@@@@@@@ NOT USED X0300191RPG ERROR 092D @@@@@@@@ NOT USED X0300192RPG ERROR 093D @@@@@@@@ NOT USED X0300193RPG ERROR 094D @@@@@@@@ NOT USED X0300194RPG ERROR 095D @@@@@@@@ NOT USED X0300195RPG ERROR 096D @@@@@@@@ NOT USED X0300196RPG ERROR 097D @@@@@@@@ NOT USED X0300197RPG ERROR 098D @@@@@@@@ NOT USED X0300198RPG ERROR 099D @@@@@@@@ ERROR AT LOCATION = $$$$ X0300199RPG ERROR 100D @@@@@@@@ NOT USED X0300200RPG ERROR 101R @@@@@@@@ HALT INDICATOR H1 IS ON X0300201RPG ERROR 102R @@@@@@@@ HALT INDICATOR H2 IS ON X0300202RPG ERROR 103R @@@@@@@@ HALT INDICATOR H3 IS ON X0300203RPG ERROR 104R @@@@@@@@ HALT INDICATOR H4 IS ON X0300204RPG ERROR 105R @@@@@@@@ HALT INDICATOR H5 IS ON X0300205RPG ERROR 106R @@@@@@@@ HALT INDICATOR H6 IS ON X0300206RPG ERROR 107R @@@@@@@@ HALT INDICATOR H7 IS ON X0300207RPG ERROR 108R @@@@@@@@ HALT INDICATOR H8 IS ON X0300208RPG ERROR 109R @@@@@@@@ HALT INDICATOR H9 IS ON X0300209RPG ERROR 110R @@@@@@@@ NO PRIMARY OR SECONDARY FILES ARE OPENED X0300210RPG ERROR 111R @@@@@@@@ SQUARE ROOT OF NEGATIVE NUMBER X0300211RPG ERROR 112R @@@@@@@@ NOT USED X0300212RPG ERROR 113R @@@@@@@@ DIVISION BY ZERO X0300213RPG ERROR 114R @@@@@@@@ ARRAY INDEX OUT OF RANGE X0300214RPG ERROR 115R @@@@@@@@ INPUT TABLE OR ARRAY OUT OF SEQUENCE X0300215RPG ERROR 116R @@@@@@@@ NO TABLE OR ARRAY DATA IN FILE X0300216RPG ERROR 117R @@@@@@@@ TOO MUCH DATA FOR TABLE OR ARRAY X0300217RPG ERROR 118R @@@@@@@@ SUBROUTINE RETURN STACK IS FULL X0300218RPG ERROR 119R @@@@@@@@ SUBROUTINE RETURN WITHOUT PREVIOUS EXSR X0300219RPG ERROR 120R @@@@@@@@ END OF FILE FOR DEMAND FILE X0300220RPG ERROR 121R @@@@@@@@ RECORD NOT FOUND, KEY NOT IN INDEX FILE X0300221RPG ERROR 122R @@@@@@@@ RELATIVE RECORD NUMBER OUT OF RANGE X0300222RPG ERROR 123R @@@@@@@@ RECORD IS OUT OF SEQUENCE X0300223RPG ERROR 124R @@@@@@@@ FILE OUT OF MATCHING RECORD SEQUENCE X0300224RPG ERROR 125R @@@@@@@@ UNIDENTIFIED RECORD IN FILE X0300225RPG ERROR 126R @@@@@@@@ TOO MUCH DATA FOR RECORD X0300226RPG ERROR 127R @@@@@@@@ NOT USED X0300227RPG ERROR 128R @@@@@@@@ NOT USED X0300228RPG ERROR 129R @@@@@@@@ NOT USED X0300229RPG ERROR 130R @@@@@@@@ ATTEMPT TO OUTPUT TO FULL FILE X0300230RPG ERROR 131R @@@@@@@@ DIRECT ACCESS RECORD NO. OUT OF RANGE X0300231RPG ERROR 132R @@@@@@@@ ATTEMPT TO UPDATE FILE BEFORE INPUT X0300232RPG ERROR 133R @@@@@@@@ RECORD NOT FOUND WITH SPECIFIED KEY X0300233RPG ERROR 134R @@@@@@@@ DUPLICATE KEY FOR OUTPUT TO FILE X0300234RPG ERROR 135R @@@@@@@@ DATA TRANSFER FAILED, CHECK DEVICE OR FILE X0300235RPG ERROR 136R @@@@@@@@ FILE IS NOT PRESENT X0300236RPG ERROR 137R @@@@@@@@ FILE DOES NOT CORRESPOND TO DMPT DESCRIPTION X0300237RPG ERROR 138R @@@@@@@@ KEY MODIFIED BY UPDATE w  3fs X0300238RPG ERROR 139R @@@@@@@@ KEY OUT OF ORDER X0300239RPG ERROR 140R UNABLE TO CONTINUE DUE TO PREVIOUS ERROR X0300240RPG ERROR 141R @@@@@@@@ ILLEGAL FILE TYPE FOR SETLL X0300241RPG ERROR 142R WRONG PROCESSOR SELECTED. RUN SELMU, SELECTING OPTION 1X0300242RPG ERROR 143R INTERNAL RPG RUNTIME ERROR IN R9MVBX X0300243RPG ERROR 144R @@@@@@@@ NOT USED X0300244RPG ERROR 145R @@@@@@@@ NOT USED X0300245RPG ERROR 146R @@@@@@@@ NOT USED X0300246RPG ERROR 147R @@@@@@@@ NOT USED X0300247RPG ERROR 148R @@@@@@@@ NOT USED X0300248RPG ERROR 149R @@@@@@@@ NOT USED X0300249RPG ERROR 150R @@@@@@@@ ALL HALT INDICATORS HAVE BEEN DISPLAYED X0300250RPG ERROR 151R @@@@@@@@ NOT USED X0300251RPG ERROR 152R @@@@@@@@ NOT USED X0300252RPG ERROR 153R @@@@@@@@ NOT USED X0300253RPG ERROR 154R @@@@@@@@ NOT USED X0300254RPG ERROR 155R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRFL X0300255RPG ERROR 156R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRAJ X0300256RPG ERROR 157R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRMV X0300257RPG ERROR 158R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRIN X0300258RPG ERROR 159R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRED X0300259RPG ERROR 160R @@@@@@@@ NOT USED X0300260SPARE MESSAGE 261 X0300261SPARE MESSAGE 262 X0300262SPARE MESSAGE 263 X0300263SPARE MESSAGE 264 X0300264SPARE MESSAGE 265 X0300265SPARE MESSAGE 266 X0300266SPARE MESSAGE 267 X0300267SPARE MESSAGE 268 X0300268SPARE MESSAGE 269 X0300269SPARE MESSAGE 270 X0300270SPARE MESSAGE 271 X0300271SPARE MESSAGE 272 X0300272SPARE MESSAGE 273 X0300273SPARE MESSAGE 274 X0300274SPARE MESSAGE 275 X0300275SPARE MESSAGE 276 X0300276SPARE MESSAGE 277 X0300277SPARE MESSAGE 278 X0300278SPARE MESSAGE 279 X0300279SPARE MESSAGE 280 X0300280SPARE MESSAGE 281 X0300281SPARE MESSAGE 282 X0300282SPARE MESSAGE 283 X0300283SPARE MESSAGE 284 X0300284SPARE MESSAGE 285 X0300285SPARE MESSAGE 286 C"  3gs X0300286SPARE MESSAGE 287 X0300287SPARE MESSAGE 288 X0300288SPARE MESSAGE 289 X0300289SPARE MESSAGE 290 X0300290SPARE MESSAGE 291 X0300291SPARE MESSAGE 292 X0300292SPARE MESSAGE 293 X0300293SPARE MESSAGE 294 X0300294SPARE MESSAGE 295 X0300295SPARE MESSAGE 296 X0300296SPARE MESSAGE 297 X0300297SPARE MESSAGE 298 X0300298SPARE MESSAGE 299 X0300299SPARE MESSAGE 300 X0300300ILLEGAL LINE NUMBER ##### SPECIFIED X0300301NO PROGRAM ID ON H FORMAT SPECIFICATION X0300302FILE @@@@@@@@ IS NOT AN EDITOR FILE X0300303AN ERROR OCCURRED WHEN BUILDING THE STATEMENT LABEL INDEX X0300304ILLEGAL FILE NAME X0300305INVALID FIELD X0300306INVALID NUMERIC VALUE X0300307COMMAND NAME NOT UNIQUE X0300308INVALID COMMAND X0300309WRONG FORMAT TYPE FOR THIS FILE X0300310INVALID FORMAT SPECIFICATION X0300311LINE NUMBER OVERFLOW X0300312INCORRECT TAB STOP ORDER X0300313INVALID RPG ARRAY DATA LINE NUMBER X0300314INVALID DELIMITER X0300315DELIMITER MISSING X0300316CHARACTER STRING TOO LONG X0300317RESEQUENCE WITH A LOWER BASE AND/OR INCREMENT X0300318NO FILE OPEN FOR EDITOR USE X0300319SAVRTN STACK OVERFLOW X0300320SAVRTN STACK UNDERFLOW X0300321FILE IS FULL X0300322SPARE EDITOR MESSAGE X0300323SPARE EDITOR MESSAGE X0300324SPARE EDITOR MESSAGE X0300325SPARE EDITOR MESSAGE X0300326SPARE EDITOR MESSAGE X0300327SPARE EDITOR MESSAGE X0300328SPARE EDITOR MESSAGE X0300329SPARE EDITOR MESSAGE X0300330FILE MANAGER ERROR WHEN OPENING FILE @@@@@@@@ ISTAT = $$$$ X0300331COULD NOT LOCATE FILE @@@@@@@@ USER @@@@@@@@ X0300332FILE @@@@@@@@ IS LOCKED. TRY AGAIN LATER X0300333FILE MANAGER ERROR WHEN READING FILE @@@@@@@@ ISN  3htTAT = $$$$ X0300334FILE MANAGER ERROR WHEN DELETING FROM FILE @@@@@@@@ ISTAT = $$$$ X0300335AN ERROR OCCURRED WHEN INITIALIZING THE EDITOR ISTAT = $$$$ X0300336FILE MANAGER ERROR IN STATEMENT LABEL INDEX FILE ISTAT = $$$$ X0300337FILE MANAGER ERROR WHEN UPDATING FCB ISTAT = $$$$ X0300338FILE MANAGER ERROR WHEN CLOSING FILE @@@@@@@@ ISTAT = $$$$ X0300339FILE MANAGER ERROR WHEN INITIALIZING SCRATCH FILE ISTAT = $$$$ X0300340FILE MANAGER ERROR WHEN UPDATING FILE @@@@@@@@ ISTAT = $$$$ X0300341FILE MANAGER ERROR WHEN UPDATING FCB FOR FILE @@@@@@@@ ISTAT = $$$$ X0300342FILE MANAGER ERROR WHEN CREATING SCRATCH FILE ISTAT = $$$$ X0300343FILE MANAGER ERROR WHEN OPENING SCRATCH FILE ISTAT = $$$$ X0300344FILE MANAGER ERROR WHEN WRITING SCRATCH FILE ISTAT = $$$$ X0300345FILE MANAGER ERROR WHEN CLOSING SCRATCH FILE ISTAT = $$$$ X0300346FILE MANAGER ERROR WHEN RENAMING SCRATCH FILE ISTAT = $$$$ X0300347FILE MANAGER ERROR WHEN DELETING FILE @@@@@@@@ ISTAT = $$$$ X0300348FILE MANAGER ERROR WHEN DELETING SCRATCH FILE ISTAT = $$$$ X0300349CLOSFL REQIND@@@@@@@@ X0300350OPENFL REQIND@@@@@@@@ X0300351DELETE REQIND@@@@@@@@ X0300352CREATE REQIND@@@@@@@@ X0300353GETS REQIND@@@@@@@@ X0300354PUTS REQIND@@@@@@@@ X0300355GETFCB REQIND@@@@@@@@ X0300356UPDFCB REQIND@@@@@@@@ X0300357VOLUME= @@@@@@@@ X0300358FILNAM= @@@@@@@@, @@@@@@@@ X0300359ABNORMAL ERROR@@@@@@@@@@@@ X0300360BLKSIZ/RECLTH .NE. 1,2,3... X0300361@@@@@@@@@@@@ X0300362FATAL ERROR X0300363DONE@@@@@@@@@@@@ X0300364TYPE-IN ERROR X0300365EXPECTED @@@@@@@@@@@@@@@@@@@@@@ FOUND @@ X0300366CANNOT OPEN INPUT FILE X0300367TOO LITTLE CORE X0300368INTERPHASE RECORD COUNTS DISAGREE X0300369@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@X0300370PASSED@@@@@@@@@@@@ X0300371SEQ. DIR. ERROR X0300372TOO LITTLE DISK X0300373OUTPUT RECORD COUNT BAD X0300374INPUT FILE LENGTHS ARE NOT EQUAL X0300375FN=@@@@@@@@,@@@@@@@@ X0300376OUTPUT FILE RECORD LENGTH IS ZERO X0300377ADDROUT SORTS ONLY 1 FILE X0300378VOLUME @@@@@@@@ NOT MOUNTED X0300379START OF KEY FIELD OUTSIDE OF RECORD X0300380KEY FIELD EXTENDS BEYOND END OF RECORD X0300381SYSTEM MESSAGE 0382  3it# X0300382SYSTEM MESSAGE 0383 X0300383SYSTEM MESSAGE 0384 X0300384SYSTEM MESSAGE 0385 X0300385SYSTEM MESSAGE 0386 X0300386SYSTEM MESSAGE 0387 X0300387SYSTEM MESSAGE 0388 X0300388SYSTEM MESSAGE 0389 X0300389SYSTEM MESSAGE 0390 X0300390SYSTEM MESSAGE 0391 X0300391SYSTEM MESSAGE 0392 X0300392SYSTEM MESSAGE 0393 X0300393SYSTEM MESSAGE 0394 X0300394SYSTEM MESSAGE 0395 X0300395SYSTEM MESSAGE 0396 X0300396SYSTEM MESSAGE 0397 X0300397SYSTEM MESSAGE 0398 X0300398SYSTEM MESSAGE 0399 X0300399NO ROOM IN HOST FILE X0300400HOST NAME NOT FOUND X0300401PARAMETER MUST BE ADD OR DEL X0300402DUPLICATE HOST NAME X0300403PROTOCOL TYPE MUST BE 200UT OR HASP X0300404BATCH DRIVER BUSY ON THIS HOST X0300405JOB(S) PENDING FOR THIS HOST X0300406SYSTEM MESSAGE 0407 X0300407INVALID LOGICAL UNIT X0300408SYSTEM MESSAGE 0409 X0300409LOGICAL UNIT ALREADY SET FOR THIS HOST X0300410DUPLICATE LOGICAL UNIT X0300411ILLEGAL TO DELETE LOCAL HOST X0300412NO ROOM IN BATCH FILE X0300413NO *JOB RECORD IN THE INPUT FILE X0300414INVALID JOB NUMBER X0300415INVALID OWNER IDENTIFICATION X0300416JOB ALREADY DISCARDED X0300417FILE MANAGER ERROR IN ACCESSING THE BATCH FILE X0300418JOB NOT FOUND X0300419JOB INACTIVE X0300420NO JOBS TO PRINT X0300421NO SUCH HOST X0300422SYSTEM MESSAGE 423 X0300423OUTPUT NOT RECEIVED X0300424TE, USE THE UTILITY 00500 * COMMAND 'BATSAL:t5S $$ THE JOB 00510 * NUMBER LISTED BELOW. WHEN THE STATUS IS NO LONGER 00520 * 'BEING SENT', USE THE UTILITY COMMAND 'PRINT' **** OPERATOR - A JOB WILL BE BATCHED IN THIS PROCEDURE TO PURGE THE 00010 * THE PROGRAM LIBRARY. THE BATCH HOST MUST BE ACTIVE 00020 * BEFORE PROCEDD  3jt7ING. TO ACTIVATE THE BATCH HOST, 00030 * PERFORM 00040 * MI, *BATCH,F 00050 * 00060 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 00070 * 00080 * CARRAIGE RETURN ONLY - TO CONTINUE 00090CCSPAS 00100 * THE DATA FILES WILL BE CLEARED 00110CLRFIL 00120 * THE FILES WILL BE INITIALIZED FOR START OF PARAMETERIZATION 00130INPUT=PRFSC009 00140QTIL 00150DELETE,FN=$$SYMENU 00160DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00170LOAD,FN=$$SYMENU,OW=$$ 00180 * SYSTEM MENU 00190 * 00200UTIL UT - SYSTEM UTILITIES 00210EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00220MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00230MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00240MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00250MNUPRO RP - CCS20 ON DEMAND REPORTING 00260MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00270MNUPRO EX - EXIT 00280LOAD,FN=UTIFIL,OW=CCS20 00290HDR1 00300HDR2 00310HDR3 00320RSW1 00330ACTC 00340RESC 00350SALC 00360DALT 00370LTRF 00380LTR1 00390LTR2 00400SMTH 00410TMTH 00420UPDY 00430OLPM 00440HOST 00450RPTG RPT001 00460LOAD,FN=ACCAGE,OW=CCS20 00470 00480EX 00490 ***** OPERATOR - WHEN THIS SELECTION IS COMPLETE, USE THE UTILITY 00500 * COMMAND 'BATS  3ktK' TO CHECK THE PROGRESS OF THE JOB 00510 * NUMBER LISTED BELOW. WHEN THE STATUS IS NO LONGER 00520 * 'BEING SENT', USE THE UTILITY COMMAND 'PRINT' TO 00530 * PRINT THE JOB. VERIFY THE JOB COMPLETED WITHOUT 00540 * ERROR. 00550 * 00560INPUT=PRFSC009 00570UTIL 00580BATCH,FN=DISCQT,TY=N 00590DELETE,FN=DMDLQMST 00600DELETE,FN=DMCOSIGN 00610DELETE,FN=DMRPTTBL 00620DELETE,FN=DMACTVTB 00630DELETE,FN=DMUTIFIL 00640DELETE,FN=DMSCNDSC 00650DELETE,FN=DMSCNFIL 00660DELETE,FN=DMDECTBL 00670DELETE,FN=DMLTRFIL 00680DELETE,FN=DMLTRDSC 00690DELETE,FN=DMNEWS 00700DELETE,FN=DMACCAGE 00710DELETE,FN=DMSUMHIS 00720DELETE,FN=DMTAPARC 00730DELETE,FN=DISCQT 00740DELETE,FN=PRFSC001 00750DELETE,FN=PRFSC002 00760DELETE,FN=PRFSC003 00770DELETE,FN=PRFSC004 00780DELETE,FN=PRFSC005 00790DELETE,FN=PRFSC006 00800DELETE,FN=PRFSC007 00810DELETE,FN=PRFSC008 00820DELETE,FN=PRFSC010 00830EX 00840 * CCS SYSTEM FILES ARE READY FOR PARAMETERIZATION 00850MNUPRO 00860__*RPWRTOFF'TAPEPRO PRFLP006}PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFLP019PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098PRFPG0109PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmۚ|  3lt_mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm__ALtlS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM MENU X0200001 * X0200002MNUPRO SC - SYSTEM CONFIGURATOR X0200003UTIL UT - SYSTEM UTILITIES X0200004EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILESX0200005MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING PREPARATION X0200006MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES X0200007MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES X0200008MNUPRO RP - CCS20 ON DEMAND REPORTING X0200009MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY X0200010MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION X0200011MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES X0200012MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES X0200013MNUPRO LO - L/A ON DEMAND REPORTING X0200014MNUPRO LR - L/A REPORT GENERA\  3mtsTOR - REPORT DIRECTORY X0200015MNUPRO EX - EXIT X0200016mmmmmmmmmmmmmmmmAL ttS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM CONFIGURATION MENU 00001 * 00002 * BEFORE MAKING A SELECTION FROM THIS MENU BE SURE THE AUXILIARY 00003 * DISK(S) HAVE BEEN INITIALIZED WITH THE CORRECT VOLUME LABEL 00004 * OR LABELS FOR THE SYSTEM WHICH YOU WILL SELECT. ALL DISK 00005 * PACKS SHOULD BE MOUNTED AND READY. 00006 * 00007PRFSC001 A-12000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00008PRFSC002 B-24000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00009PRFSC003 C-36000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00010PRFSC004 D-78000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00011PRFSC005 E-12000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD03) 00012PRFSC006 F-24000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00013PRFSC007 G-36000/13500 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00014PRFSC008 H-60000/18000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01) 00015PRFSC009 I-CLEAR CCS SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00016PRFSC010 J-CLEAR CCS/LA SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00017 Z-EXIT 00018********************************AL!t}S   A@ 073409 0STATUS CD __tJ004 J005 J006 J007 J008 J009 J010 J011 J012 J013 J014 J015 J016 J017 J018 J019 J020 J021 J022 J023 J024 J025 J026 J027 ~q  3ntJ028 J029 J030 J031 J032 J033 __J055 J056 J057 J058 J059 J060 J101 J102 J103 J104 J105 J106 J107 J108 J109 J110 J111 J112 J113 J114 J115 J116 J117 J118 J119 J120 J121 J122 J123 J124 J125 J126 J127  3otJ128 J129 J130 J131 J132 J133 J134 J135 J136 ALtS $$ J138 J139 LOCL J145 ALtS $$ J147 J148 J001DEVEL CCS149 J001 09118312 043091183120055091183120340J002DEVEL CCS149 J002 091183124157091183124212091183124454J003SITES CCS20 J003 091183124348091183124450091183124713J004 J005 J006 J007 J008 J009 J010 J011 J012 J013 J014 J015 J016 J017 J018 J019 J020 J021 J022 J023 J024 J025 J026 J027 J028 J029 J030 J031 J032 J033 J034 J035 J036 J037 J038 J039 'l  3ptJ040 J041 J042 J043 J044 J045 J046 J047 J048 J049 J050 J051 J052 J053 J054 J055 J056 J057 J058 J059 J060 J101 J102 J103 J104 J105 J106 J107 J108 J109 J110 J111 J112 J113 J114 J115 J116 J117 J118 J119 J120 J121 J122 J123 J124 J125 J126 J127 J128 J129 J130 J131 J132 J133 J134 J135 J136 J137 J138 J139 Qr  3qtJ140 J141 J142 J143 J144 J145 J146 J147 J148 J149 J150 J151 J152 J153 J154 J155 J156 J157 J158 J159 J160 J201 J202 J203 J204 J205 J206 J207 J208 J209 J210 J211 J212 J213 J214 J215 J216 J217 J218 J219 J220 J221 J222 J223 J224 J225 J226 J227 J228 J229 J230 J231 J232 J233 J234 J235 J236 J237 J238 J239 Q!  3rtJ240 J241 J242 J243 J244 J245 J246 J247 J248 J249 J250 J251 J252 J253 J254 J255 J256 J257 J258 J259 J260 J301 J302 J303 J304 J305 J306 J307 J308 J309 J310 J311 J312 J313 J314 J315 J316 J317 J318 J319 J320 J321 J322 J323 J324 J325 J326 J327 J328 J329 J330 J331 J332 J333 J334 J335 J336 J337 J338 J339 P  3stJ340 J341 J342 J343 J344 J345 J346 J347 J348 J349 J350 J351 J352 J353 J354 J355 J356 J357 J358 J359 J360 J401 J402 J403 J404 J405 J406 J407 J408 J409 J410 J411 J412 J413 J414 J415 J416 J417 J418 J419 J420 J421 J422 J423 J424 J425 J426 J427 J428 J429 J430 J431 J432 J433 J434 J435 J436 J437 J438 J439 P  3ttJ440 J441 J442 J443 J444 J445 J446 J447 J448 J449 J450 J451 J452 J453 J454 J455 J456 J457 J458 J459 J460 J501 J502 J503 J504 J505 J506 J507 J508 J509 J510 J511 J512 J513 J514 J515 J516 J517 J518 J519 J520 J521 J522 J523 J524 J525 J526 J527 J528 J529 J530 J531 J532 J533 J534 J535 J536 J537 J538 J539 P.  3uuJ540 J541 J542 J543 J544 J545 J546 J547 J548 J549 J550 J551 J552 J553 J554 J555 J556 J557 J558 J559 J560 J601 J602 J603 J604 J605 J606 J607 J608 J609 J610 J611 J612 J613 J614 J615 J616 J617 J618 J619 J620 J621 J622 J623 J624 J625 J626 J627 J628 J629 J630 J631 J632 J633 J634 J635 J636 J637 J638 J639 O  3vu'J640 J641 J642 J643 J644 J645 J646 J647 J648 J649 J650 J651 J652 J653 J654 J655 J656 J657 J658 J659 J660 J701 J702 J703 J704 J705 J706 J707 J708 J709 J710 J711 J712 J713 J714 J715 J716 J717 J718 J719 J720 J721 J722 J723 J724 J725 J726 J727 J728 J729 J730 J731 J732 J733 J734 J735 J736 J737 J738 J739 O  3woLDNFINUPMTDETCRDPRFLP005PRFPG010CARDPRO DCACTADDDCBLDDAS DCCOLACTDCDUMDUM DCDUMMIE DCFINUPDDCNFINUPDCPRTLTRDCSRTTRN DCUPDHIS DCUPDTAPHSMOVHISHSPRGHISHSPRGTAPHSUPDTAPLDACTADDELDBLDDASMLDCOLACTCLDDUMDUMKLDDUMMIEJLDFINUPDHLDNFINUPGLDPRTLTRDLDSRTTRNLLDUPDHISILDUPDTAPFLHMOVHISPLHPRGCLITLHPRGHISRLHPRGTAPSLHUPDTAPQLMACTMTXZLMAVMDMPYLMCONLTRVLMDECTBLXLMLDSCRN\LMRDRLTRULMSPCAUD[LMUTIFILWMTACTMTNMTACTMTXMTAVMDMPMTCONLTRMTDECTBLMTDETCONMTLDSCRNMTPDFMTN MTPRGMSTMTRDRLTRMTSCNPRT!MTSPCAUDMTSVSCRNMTUSEMTNMTUTIFILPRFLD012NPRFLD013OPRFLM017ePRFLO012qPRFLO013rPRFLO014sPRFLO015tPRFLO016uPRFLO017vPRFLP000wPRFLP001xPRFLP002yPRFLP003zPRFLP004{PRFLP005|PRFLP006}PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098+LDPRTLTRDLDSRTTRNLLDUPDHISILDUPDTAPFLHMOVHISPLHPRGCLITLHPRGHISRLHPRGTAPSLHUPDTAPQLMACTMTN_LMACTMTXZLMAVMDMPYLMCONLTRVLMDECTBLXLMDETCONbLMDETCRDaLMLDSCRN\LMPDFMTNcLMPRGMST^LMRDRLTRULMSCNPRTdLMSPCAUD[LMSVSCRN]LMUSEMTN`LMUTIFILWLODLYASNlLODRCIACfLODRCSRQgLOMCOLSToLOSUMACTmLOTAPRRNhLOTAPTQUiLOTAPTTYjLOTCNTRLpLOWCOLSTnLOWRTOFFkMTACTMTNMTACTMTXMTAVMDMPMTCONLTRMTDECTBLMTDETCONMTDETCRDMTAVMDMPMTCONLTRMTDECTBLMTDETCON#PRFPG011:PRFPG012;PRFPG013PRFPG016?PRFPG017@PRFPG018APRFPG019BPRFRP012-PRFRP013.PRFRP014PRFSC001PRFSC002PRFSC003PRFSC004PRFSC005PRFSC006PRFSC007PRFSC008PRFSC009PRFSC010RPDLYASN(RPDRCIAC"RPDRCSRQ#RPMCOLST+RPSUMACT)RPTAPRRN$RPTAPTQU%RPTAPTTY&RPTCNTRL,RPWCOLST*RPWRTOFF'TAPEPRO RPDLYASN(RPDRCIAC"RPDRCSRQ#RPMCOLST+RPSUMACT)RPTAPRRN$RPTAPTQU%RPTAPTTY&RPTCNTRL,RPWCOLST*RPWRTOFF'TAPEPRO PRFLP006}PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFLP019PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098PRFPG0109PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3xommmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALoS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM MENU X0200001 * X0200002MNUPRO SC - SYSTEM CONFIGURATOR X0200003UTIL UT - SYSTEM UTILITIES X0200004EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILESX0200005MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING PREPARATION X0200006MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES X0200007MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES X0200008MNUPRO RP - CCS20 ON DEMAND REPORTING X0200009MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY X0200010MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION X0200011MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES X0200012MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES X0200013MNUPRO LO - L/A ON DEMAND REPORTING X0200014MNUPRO LR - L/A REPORT GENERAVu  3yoAL7oS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmCARDPRO READER TAPEPRO TAPE0 DCCOLACT PRFDC001DCPRTLTR PRFDC002DCACTADD PRFDC003DCUPDTAP PRFDC004DCNFINUP PRFDC005DCFINUPD PRFDC006DCUPDHIS PRFDC007DCDUMMIE PRFDC008DCDUMDUM PRFDC009DCSRTTRN PRFDC010DCBLDDAS PRFDC011HSMOVHIS PRFHS001HSUPDTAP PRFHS002HSPRGHIS PRFHS003HSPRGTAP PRFHS004MTRDRLTR PRFMT001MTCONLTR PRFMT002MTUTIFIL PRFMT003MTDECTBL PRFMT004MTAVMDMP PRFMT005MTACTMTX PRFMT006MTSPCAUD PRFMT007MTLDSCRN PRFMT008MTSVSCRN PRFMT009MTPRGMST PRFMT010MTACTMTN PRFMT011MTUSEMTN PRFMT012MTDETCRD PRFMT013MTDETCON PRFMT014MTPDFMTN PRFMT015MTSCNPRT PRFMT016RPDRCIAC PRFRP001RPDRCSRQ PRFRP002RPTAPRRN PRFRP003RPTAPTQU PRFRP004RPTAPTTY PRFRP005RPWRTOFF PRFRP006RPDLYASN PRFRP007RPSUMACT PRFRP008RPWCOLST PRFRP009RPMCOLST PRFRP010RPTCNTRL PRFCNTRLPRFRP012 PRFRP012PRFRP013 PRFRP013PRFPG000 PRFPG000PRFPG001 PRFPG001PRFPG002 PRFPG002PRFPG003 PRFPG003PRFPG004 PRFPG004PRFPG005 PRFPG005PRFPG006 PRFPG006PRFPG007 PRFPG007PRFPG008 PRFPG008PRFPG009 PRFPG009PRFPG010 PRFPG010PRFPG011 PRFPG011PRFPG012 PRFPG012PRFPG013 PRFPG013PRFPG014 PRFPG014PRFPG015 PRFPG015PRFPG016 PRFPG016PRFPG017 PRFPG017PRFPG018 PRFPG018PRFPG019 PRFPG019LDCOLACT PRFLD001LDPRTLTR PRFLD002LDACTADD PRFLD003LDUPDTAP PRFLD004LDNFINUP PRFLD005LDFINUPD PRFLD006LDUPDHIS PRFLD007LDDUMMIE PRFLD008LDDUMDUM PRFLD009LDSRTTRN PRFLD010LDBLDDAS PRFLD011PRFLD012 PRFLD012PRFLD013 PRFLD013LHMOVHIS PRFLH001LHUPDTAP PRFLH002LHPRGHIS PRFLH003LHPRGTAP PRFLH004LHPRGCLI PRFLH005LMRDRLTR PRFLM001LMCONLTR PRFLM002LMUTIFIL PRFLM003LMDECTBL PRFLM004LMAVMDMP PRFLM005LMACTMTX PRFLM006LMSPCAUD PRFLM007LMLDSCRN PRFLM008LMSVSCRN PRFLM009LMPRGMST PRFLM010LMACTMTN PRFLM011LMUSEMTN PRFLM012LMDETCRD PRFLM013LMDETCON PRFLM014LMPDFMTN PRFLM015LMSCNPRT PRFLM016PRFLM017 PRFLM017LODRCIAC PRFLO001LODRCSRQ PRFLO002LOTAPRRN PRFLO003LOTAPTQU PRFLO004LOTAPTTY PRFLO005LOWRTOFF PRFLO006LODLYASN PRFLO007LOSUMACT PRFLO008LOWCOLST PRFLO009LOMCOLST PRFLO010LOTCNTRL PRFLACTRPRFLO012 PRFLO012PRFLO013 PRFLO013PRFLO014 PRFLO014PRFLO015 PRFLO015PRFLO016 PRFLO016PRFLO017 PRFLO017PRFLP000 PRFLP000PRFLP001 PRFLP001PRFLP002 PRFLP002PRFLP003 PRFLP003PRFLP004 PRFLP004PRFLP005 PRFLP005PRFLP006 PRFLP006PRFLP007 PRFLP007PRFLP008 PRFLP008PRFLP009 PRFLP009PRFLP010 PRFLP010PRFLP011 PRFLP011PRFLP012 PRFLP012PRFLP013 PRFLP013PRFLP014 PRFLP014PRFLP015 PRFLP015PRFLP016 PRFLP016PRFLP017 PRFLP017PRFLP018 PRFLP018PRFLP019 PRFLP019PRFSC001 PRFSC001PRFSC002 PRFSC002PRFSC003 PRFSC003PRFSC004 PRFSC004PRFSC005 PRFSC005PRFSC006 PRFSC006PRFSC007 PRFSC007PRFSC008 PRFSC008PRFSC009 PRFSC009PRFSC010 PRFSC010PRFRP014 PRFRP014__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm&  3zommmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmLDNFINUPMTDETCRDPRFLP005PRFPG010CARDPRO DCACTADDDCBLDDAS DCCOLACTDCDUMDUM DCDUMMIE DCFINUPDDCNFINUPDCPRTLTRDCSRTTRN DCUPDHIS DCUPDTAPHSMOVHISHSPRGHISHSPRGTAPHSUPDTAPLDACTADDELDBLDDASMLDCOLACTCLDDUMDUMKLDDUMMIEJLDFINUPDHLDNFINUPGLDPRTLTRDLDSRTTRNLLDUPDHISILDUPDTAPFLHMOVHISPLHPRGCLITLHPRGHISRLHPRGTAPSLHUPDTAPQLMACTMTXZLMAVMDMPYLMCONLTRVLMDECTBLXLMLDSCRN\LMRDRLTRULMSPCAUD[LMUTIFILWMTACTMTNMTACTMTXMTAVMDMPMTCONLTRMTDECTBLMTDETCONMTLDSCRNMTPDFMTN MTPRGMSTMTRDRLTRMTSCNPRT!MTSPCAUDMTSVSCRNMTUSEMTNMTUTIFILPRFLD012NPRFLD013OPRFLM017ePRFLO012qPRFLO013rPRFLO014sPRFLO015tPRFLO016uPRFLO017vPRFLP000wPRFLP001xPRFLP002yPRFLP003zPRFLP004{PRFLP005|PRFLP006}PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098+LDPRTLTRDLDSRTTRNLLDUPDHISILDUPDTAPFLHMOVHISPLHPRGCLITLHPRGHISRLHPRGTAPSLHUPDTAPQLMACTMTN_LMACTMTXZLMAVMDMPYLMCONLTRVLMDECTBLXLMDETCONbLMDETCRDaLMLDSCRN\LMPDFMTNcLMPRGMST^LMRDRLTRULMSCNPRTdLMSPCAUD[LMSVSCRN]LMUSEMTN`LMUTIFILWLODLYASNlLODRCIACfLODRCSRQgLOMCOLSToLOSUMACTmLOTAPRRNhLOTAPTQUiLOTAPTTYjLOTCNTRLpLOWCOLSTnLOWRTOFFkMTACTMTNMTACTMTXMTAVMDMPMTCONLTRMTDECTBLMTDETCONMTDETCRDMTAVMDMPMTCONLTRMTDECTBLMTDETCON#PRFPG011:PRFPG012;PRFPG013PRFPG016?PRFPG017@PRFPG018APRFPG019BPRFRP012-PRFRP013.PRFRP014PRFSC001PRFSC002PRFSC003PRFSC004PRFSC005PRFSC006PRFSC007PRFSC008PRFSC009PRFSC010RPDLYASN(RPDRCIAC"RPDRCSRQ#RPMCOLST+RPSUMACT)RPTAPRRN$RPTAPTQU%RPTAPTTY&RPTCNTRL,RPWCOLST*RPWRTOFF'TAPEPRO RPDLYASN(RPDRCIAC"RPDRCSRQ#RPMCOLST+RPSUMACT)RPTAPRRN$RPTAPTQU%RPTAPTTY&RPTCNTRL,RPWCOLST*RPWRTOFF'TAPEPRO PRFLP006}PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFLP019PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098PRFPG0109PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098;>  3{o__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALoS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM MENU X0200001 * X0200002MNUPRO SC - SYSTEM CONFIGURATOR X0200003UTIL UT - SYSTEM UTILITIES X0200004EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILESX0200005MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING PREPARATION X0200006MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES X0200007MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES X0200008MNUPRO RP - CCS20 ON DEMAND REPORTING X0200009MNUPRO RG - CCS20 REPORT GENERATOR - REPORT D>  3|oIRECTORY X0200010MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION X0200011MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES X0200012MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES X0200013MNUPRO LO - L/A ON DEMAND REPORTING X0200014MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY X0200015MNUPRO EX - EXIT X0200016mmmmmmmmmmmmmmmmAL oS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM CONFIGURATION MENU 00001 * 00002 * BEFORE MAKING A SELECTION FROM THIS MENU BE SURE THE AUXILIARY 00003 * DISK(S) HAVE BEEN INITIALIZED WITH THE CORRECT VOLUME LABEL 00004 * OR LABELS FOR THE SYSTEM WHICH YOU WILL SELECT. ALL DISK 00005 * PACKS SHOULD BE MOUNTED AND READY. 00006 * 00007PRFSC001 A-12000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00008PRFSC002 B-24000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00009PRFSC003 C-36000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00010PRFSC004 D-78000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00011PRFSC005 E-12000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD03) 00012PRFSC006 F-24000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00013PRFSC007 G-36000/13500 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00014PRFSC008 H-60000/18000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01) 00015PRFSC009 I-CLEAR CCS SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00016PRFSC010 J-CLEAR CCS/LA SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00017 Z-EXIT 00018mmmmmmmmmmmmmmmmmmmmmmmmALoS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * 00010 * PROCEDURE TO BUILD 12000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC001 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY  3}p 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL)  3~p 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960 * 00970PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 00980PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 00990PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01000PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01010PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01020PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01030PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01040PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01050PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01060PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01070PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01080PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01090PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01100PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01110PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01120PRFPG016 P - R.G. REPORT 16 - (AVAILABLE)   3p) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/! 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIME USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO   3p= 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY |  3oALoS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM MENU X0200001 * X0200002MNUPRO SC - SYSTEM CONFIGURATOR X0200003UTIL UT - SYSTEM UTILITIES X0200004EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILESX0200005MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING PREPARATION X0200006MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES X0200007MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES X0200008MNUPRO RP - CCS20 ON DEMAND REPORTING X0200009MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY X0200010MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION X0200011MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES X0200012MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES X0200013MNUPRO LO - L/A ON DEMAND REPORTING X0200014MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY X0200015MNUPRO EX - EXIT X0200016mmmmmmmmmmmmmmmmAL oS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM CONFIGURATION MENU 00001 * 00002 * BEFORE MAKING A SELECTION FROM THIS MENU BE SURE THE AUXILIARY 00003 * DISK(S) HAVE BEEN INITIALIZED WITH THE CORRECT VOLUME LABEL 00004 * OR LABELS FOR THE SYSTEM WHICH YOU WILL SELECT. ALL DISK 00005 * PACKS SHOULD BE MOUNTED AND READY. 00006 * 00007PRFSC001 A-12000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00008PRFSC002 B-24000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00009PRFSC003 C-36000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00010PRFSC004 D-78000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00011PRFSC005 E-12000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD03) 00012PRFSC006 F-24000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00013PRFSC007 G-36000/13500 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00014PRFSC008 H-60000/18000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01) 00015PRFSC009 I-CLEAR CCS SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00016PRFSC010 J-CLEAR CCS/LA SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00017 Z-EXIT 00018mmmmmmmmmmmmmmmmmmmmmmmmALoS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm۳ 3oAL oS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM CONFIGURATION MENU 00001 * 00002 * BEFORE MAKING A SELECTION FROM THIS MENU BE SURE THE AUXILIARY 00003 * DISK(S) HAVE BEEN INITIALIZED WITH THE CORRECT VOLUME LABEL 00004 * OR LABELS FOR THE SYSTEM WHICH YOU WILL SELECT. ALL DISK 00005 * PACKS SHOULD BE MOUNTED AND READY. 00006 * 00007PRFSC001 A-12000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00008PRFSC002 B-24000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00009PRFSC003 C-36000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00010PRFSC004 D-78000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00011PRFSC005 E-12000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD03) 00012PRFSC006 F-24000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00013PRFSC007 G-36000/13500 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00014PRFSC008 H-60000/18000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01) 00015PRFSC009 I-CLEAR CCS SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00016PRFSC010 J-CLEAR CCS/LA SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00017 Z-EXIT 00018mmmmmmmmmmmmmmmmmmmmmmmmALoS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * 00010 * PROCEDURE TO BUILD 12000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC001 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240K  3pDCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720T 3tf__J055 J056 J057 J058 J059 J060 0W3t}AL!t}S   A@ 073409 0STATUS CD __tM3tALtS $$ J138 J139 LOCL J145 ALtS $$ J147 J148 J001DEVEL CCS149 J001 09118312 043091183120055091183120340J002DEVEL CCS149 J002 091183124157091183124212091183124454J003SITES CCS20 J003 091183124348091183124450091183124713J004 J005 J006 J007 J008 J009 J010 J011 J012 J013 J014 J015 J016 J017 J018  3uB J035J111J147J223J259J335J411J447 J523 J559 J635 J711 $J001J002J003J004J005J006J007J008J009 J010 J011 J012 J013 J014J015J016J017J018J019J020J021J022J023J024J025J026J027J028J029J030J031J032 J033!J034"J035#J036$J037%J038&J039'J040(J041)J042*J043+J044,J045-J046.J047/J0480J0491J0502J0513J0524J0535J0546J0557J0568J0579J058:J059;J060J103?J104@J105AJ106BJ107CJ108DJ109E$J036$J037%J038&J039'J040(J041)J042*J043+J044,J045-J046.J047/J0480J0491J0502J0513J0524J0535J0546J0557J0568J0579J058:J059;J060J103?J104@J105AJ106BJ107CJ108DJ109EJ110FJ111GJ112HJ113IJ114JJ115KJ116LJ117MJ118NJ119OJ120PJ121QJ122RJ123SJ124TJ125UJ126VJ127WJ128XJ129YJ130ZJ131[J132\J133]J134^J135_J136`J137aJ138bJ139cJ140dJ141eJ142fJ143gJ144hJ145i$J112HJ113IJ114JJ115KJ116LJ117MJ118NJ119OJ120PJ121QJ122RJ123SJ124TJ125UJ126VJ127WJ128XJ129YJ130ZJ131[J132\J133]J134^J135_J136`J137aJ138bJ139cJ140dJ141eJ142fJ143gJ144hJ145iJ146jJ147kJ148lJ149mJ150nJ151oJ152pJ153qJ154rJ155sJ156tJ157uJ158vJ159wJ160xJ201yJ202zJ203{J204|J205}J206~J207J208J209J210J211J212J213J214J215J216J217J218J219J220J221$J148lJ149mJ150nJ151oJ152pJ153qJ154rJ155sJ156tJ157uJ158vJ159wJ160xJ201yJ202zJ203{J204|J205}J206~J207J208J209J210J211J212J213J214J215J216J217J218J219J220J221J222J223J224J225J226J227J228J229J230J231J232J233J234J235J236J237J238J239J240J241J242J243J244J245J246J247J248J249J250J251J252J253J254J255J256J257$J224J225J226J227J228J229J230J231J232J233J234J235J236J237J238J239J240J241J242J243J244J245J246J247J248J249J250J251J252J253J254J255J256J257J258J259J260J301J302J303J304J305J306J307J308J309J310J311J312J313J314J315J316J317J318J319J320J321J322J323J324J325J326J327J328J329J330J331J332J333$J260J301J302J303J304J305J306J307J308J309J310J311J312J313J314J315J316J317J318J319J320J321J322J323J324J325J326J327J328J329J330J331J332J333J334J335J336J337J338J339J340J341J342J343J344J345J346  3uVJ347J348J349J350J351J352J353J354J355J356J357J358J359J360J401J402J403J404J405J406J407J408J409$ J336J337J338J339J340J341J342J343J344J345J346J347J348J349J350J351J352J353J354J355J356J357J358J359J360J401J402J403J404J405J406J407J408J409J410J411J412J413J414J415J416J417J418J419J420J421J422J423J424J425 J426 J427 J428 J429 J430J431J432J433J434J435J436J437J438J439J440J441J442J443J444J445$ J412J413J414J415J416J417J418J419J420J421J422J423J424J425 J426 J427 J428 J429 J430J431J432J433J434J435J436J437J438J439J440J441J442J443J444J445J446J447J448 J449!J450"J451#J452$J453%J454&J455'J456(J457)J458*J459+J460,J501-J502.J503/J5040J5051J5062J5073J5084J5095J5106J5117J5128J5139J514:J515;J516J519?J520@J521A$ J448 J449!J450"J451#J452$J453%J454&J455'J456(J457)J458*J459+J460,J501-J502.J503/J5040J5051J5062J5073J5084J5095J5106J5117J5128J5139J514:J515;J516J519?J520@J521AJ522BJ523CJ524DJ525EJ526FJ527GJ528HJ529IJ530JJ531KJ532LJ533MJ534NJ535OJ536PJ537QJ538RJ539SJ540TJ541UJ542VJ543WJ544XJ545YJ546ZJ547[J548\J549]J550^J551_J552`J553aJ554bJ555cJ556dJ557e$ J524DJ525EJ526FJ527GJ528HJ529IJ530JJ531KJ532LJ533MJ534NJ535OJ536PJ537QJ538RJ539SJ540TJ541UJ542VJ543WJ544XJ545YJ546ZJ547[J548\J549]J550^J551_J552`J553aJ554bJ555cJ556dJ557eJ558fJ559gJ560hJ601iJ602jJ603kJ604lJ605mJ606nJ607oJ608pJ609qJ610rJ611sJ612tJ613uJ614vJ615wJ616xJ617yJ618zJ619{J620|J621}J622~J623J624J625J626J627J628J629J630J631J632J633$ J560hJ601iJ602jJ603kJ604lJ605mJ606nJ607oJ608pJ609qJ610rJ611sJ612tJ613uJ614vJ615wJ616xJ617yJ618zJ619{J620|J621}J622~J623J624J625J626J627J628J629J630J631J632J633J634J635J636J637J638J639J640J641J642J643J644J645J646J647J648J649J650J651J652J653J654J655J656J657J658J659J660J701J702J703J704J705J706J707J708J709$J636J637J638J639J640J641J642J643J644J645J646J647J648J649J650J651J652J653J654J655J656J657J658J659J660J701J702J703J704J705J706J707J708J709J710J711J712J713J714J715J716J717J718J719J720J721J722J723J724J725J726J727J728J729J730J731J732J733J734J735J736J737J738J739J740J741J742J743J744J7452J712J713J714J715J716J717J718J719J720J721J722J723J724J725J726J727J728J729J730J731J732J733J734  3ujJ735J736J737J738J739J740J741J742J743J744J745J746J747J748J749J750J751J752J753J754J755J756J757J758J759J760J726J727J728J729J730J731J732J733J734J735J736J737J738J739J740J741J742J743J744J745__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X uIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NRALuoS $$ OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU PR01 PR02 PR03 PR04 PR05 PR06 PR07 PR08 PR09 PR10 PR11 PR12 PR13 PR14 PR15 PR16 PR17 PR18 PR19 PR20 PR21 PR22 PR23 PR24 PR25 PR26 PR27 PR28 PR29 PR30 PR31 PR32 PR33 PR34 PR35 PR36 PR37 PR38 PR39 PR40 PR41 PR42 PR43 PR44 PR45 PR46 PR47 PR48 PR49 PR50 SCRN J - PRINT SCREEN DEFIN4PR01PR02PR03PR04PR05PR06PR07PR08PR09 PR10 PR11 PR12 PR13 PR14PR15PR16PR17PR18PR19PR20PR21PR22PR23PR24PR25PR26PR27PR28PR29PR30PR31PR32 PR33!PR34"PR35#PR36$PR37%PR38&PR39'PR40(PR41)PR42*PR43+PR44,PR45-PR46  3tALtS $$ J147 J148 J001DEVEL CCS149 J001 09118312 043091183120055091183120340J002DEVEL CCS149 J002 091183124157091183124212091183124454J003SITES CCS20 J003 091183124348091183124450091183124713J004 J005 J006 J007 J008 J009 J010 J011 J012 J013 J014 J015 J016 J017 J018 J019 J020 J021 J022 J023 J024 J025 J026 J027 J028 J029 J030 J031 J032 J033 J034 J035 J036 J037 J038 J039 J040 J041 J042 J043 J044 J045 J046 J047 J048 J049 J050 J051 J052 J053 J054 J055 J056 J057 {  3tJ058 J059 J060 J101 J102 J103 J104 J105 J106 J107 J108 J109 J110 J111 J112 J113 J114 J115 J116 J117 J118 J119 J120 J121 J122 J123 J124 J125 J126 J127 J128 J129 J130 J131 J132 J133 J134 J135 J136 J137 J138 J139 J140 J141 J142 J143 J144 J145 J146 J147 J148 J149 J150 J151 J152 J153 J154 J155 J156 J157 Q?  3tJ158 J159 J160 J201 J202 J203 J204 J205 J206 J207 J208 J209 J210 J211 J212 J213 J214 J215 J216 J217 J218 J219 J220 J221 J222 J223 J224 J225 J226 J227 J228 J229 J230 J231 J232 J233 J234 J235 J236 J237 J238 J239 J240 J241 J242 J243 J244 J245 J246 J247 J248 J249 J250 J251 J252 J253 J254 J255 J256 J257 P  3tJ258 J259 J260 J301 J302 J303 J304 J305 J306 J307 J308 J309 J310 J311 J312 J313 J314 J315 J316 J317 J318 J319 J320 J321 J322 J323 J324 J325 J326 J327 J328 J329 J330 J331 J332 J333 J334 J335 J336 J337 J338 J339 J340 J341 J342 J343 J344 J345 J346 J347 J348 J349 J350 J351 J352 J353 J354 J355 J356 J357 P  3tJ358 J359 J360 J401 J402 J403 J404 J405 J406 J407 J408 J409 J410 J411 J412 J413 J414 J415 J416 J417 J418 J419 J420 J421 J422 J423 J424 J425 J426 J427 J428 J429 J430 J431 J432 J433 J434 J435 J436 J437 J438 J439 J440 J441 J442 J443 J444 J445 J446 J447 J448 J449 J450 J451 J452 J453 J454 J455 J456 J457 PL  3uJ458 J459 J460 J501 J502 J503 J504 J505 J506 J507 J508 J509 J510 J511 J512 J513 J514 J515 J516 J517 J518 J519 J520 J521 J522 J523 J524 J525 J526 J527 J528 J529 J530 J531 J532 J533 J534 J535 J536 J537 J538 J539 J540 J541 J542 J543 J544 J545 J546 J547 J548 J549 J550 J551 J552 J553 J554 J555 J556 J557 O  3uJ558 J559 J560 J601 J602 J603 J604 J605 J606 J607 J608 J609 J610 J611 J612 J613 J614 J615 J616 J617 J618 J619 J620 J621 J622 J623 J624 J625 J626 J627 J628 J629 J630 J631 J632 J633 J634 J635 J636 J637 J638 J639 J640 J641 J642 J643 J644 J645 J646 J647 J648 J649 J650 J651 J652 J653 J654 J655 J656 J657 O  3u-J658 J659 J660 J701 J702 J703 J704 J705 J706 J707 J708 J709 J710 J711 J712 J713 J714 J715 J716 J717 J718 J719 J720 J721 J722 J723 J724 J725 J726 J727 J728 J729 J730 J731 J732 J733 J734 J735 J736 J737 J738 J739 J740 J741 J742 J743 J744 J745 J746 J747 J748 J749 J750 J751 J752 J753 J754 J755 J756 J757 OY  3uAJ758 J759 J760 J035J111J147J223J259J335J411J447 J523 J559 J635 J711 $J001J002J003J004J005J006J007J008J009 J010 J011 J012 J013 J014J015J016J017J018J019J020J021J022J023J024J025J026J027J028J029J030J031J032 J033!J034"J035#J036$J037%J038&J039'J040(J041)J042*J043+J044,J045-J046.J047/J0480J0491J0502J0513J0524J0535J0546J0557J0568J0579J058:J059;J060J103?J104@J105AJ106BJ107CJ108DJ109E$J036$J037%J038&J039'J040(J041)J042*J043+J044,J045-J046.J047/J0480J0491J0502J0513J0524J0535J0546J0557J0568J0579J058:J059;J060J103?J104@J105AJ106BJ107CJ108DJ109EJ110FJ111GJ112HJ113IJ114JJ115KJ116LJ117MJ118NJ119OJ120PJ121QJ122RJ123SJ124TJ125UJ126VJ127WJ128XJ129YJ130ZJ131[J132\J133]J134^J135_J136`J137aJ138bJ139cJ140dJ141eJ142fJ143gJ144hJ145i$J112HJ113IJ114JJ115KJ116LJ117MJ118NJ119OJ120PJ121QJ122RJ123SJ124TJ125UJ126VJ127WJ128XJ129YJ130ZJ131[J132\J133]J134^J135_J136`J137aJ138bJ139cJ140dJ141eJ142fJ143gJ144hJ145iJ146jJ147kJ148lJ149mJ150nJ151oJ152pJ153qJ154rJ155sJ156tJ157uJ158vJ159wJ160xJ201yJ202zJ203{J204|J205}J206~J207J208J209J210J211J212J213J214J215J216J217J218J219J220J221$J148lJ149mJ150nJ151oJ152pJ153qJ154rJ155sJ156tJ157uJ158vJ159wJ160xJ201yJ202zJ203{J204|J205}J206~J207J208J209J210J211J212J213J214J215J216J217J218J219J220J221J222J223J224J225J226J227J228J229J230J231J232J233J234J235J236J237J238J239J240J241J242J243J244J245J246J247J248J249J250J251J252J253J254J255J256J257$J224J225J226J227J228J229J230J231J232J233J234J235J236J237J238J239J240J241J242J243J244J245J246J247J248J249J250J251J252J253J254J255J256J257J258J259J260J301J302J303J304J305J306J307J308J309J310J311J312J313J314J315J316J317J318J319J320J321J322J323J324J325J326J327J328J329J330J331J332J333$J260J301J302J303J304J305J306J307J308J309J310J311J312J313J314J315J316J317J318J319J320J321J322  3uUJ323J324J325J326J327J328J329J330J331J332J333J334J335J336J337J338J339J340J341J342J343J344J345J346J347J348J349J350J351J352J353J354J355J356J357J358J359J360J401J402J403J404J405J406J407J408J409$ J336J337J338J339J340J341J342J343J344J345J346J347J348J349J350J351J352J353J354J355J356J357J358J359J360J401J402J403J404J405J406J407J408J409J410J411J412J413J414J415J416J417J418J419J420J421J422J423J424J425 J426 J427 J428 J429 J430J431J432J433J434J435J436J437J438J439J440J441J442J443J444J445$ J412J413J414J415J416J417J418J419J420J421J422J423J424J425 J426 J427 J428 J429 J430J431J432J433J434J435J436J437J438J439J440J441J442J443J444J445J446J447J448 J449!J450"J451#J452$J453%J454&J455'J456(J457)J458*J459+J460,J501-J502.J503/J5040J5051J5062J5073J5084J5095J5106J5117J5128J5139J514:J515;J516J519?J520@J521A$ J448 J449!J450"J451#J452$J453%J454&J455'J456(J457)J458*J459+J460,J501-J502.J503/J5040J5051J5062J5073J5084J5095J5106J5117J5128J5139J514:J515;J516J519?J520@J521AJ522BJ523CJ524DJ525EJ526FJ527GJ528HJ529IJ530JJ531KJ532LJ533MJ534NJ535OJ536PJ537QJ538RJ539SJ540TJ541UJ542VJ543WJ544XJ545YJ546ZJ547[J548\J549]J550^J551_J552`J553aJ554bJ555cJ556dJ557e$ J524DJ525EJ526FJ527GJ528HJ529IJ530JJ531KJ532LJ533MJ534NJ535OJ536PJ537QJ538RJ539SJ540TJ541UJ542VJ543WJ544XJ545YJ546ZJ547[J548\J549]J550^J551_J552`J553aJ554bJ555cJ556dJ557eJ558fJ559gJ560hJ601iJ602jJ603kJ604lJ605mJ606nJ607oJ608pJ609qJ610rJ611sJ612tJ613uJ614vJ615wJ616xJ617yJ618zJ619{J620|J621}J622~J623J624J625J626J627J628J629J630J631J632J633$ J560hJ601iJ602jJ603kJ604lJ605mJ606nJ607oJ608pJ609qJ610rJ611sJ612tJ613uJ614vJ615wJ616xJ617yJ618zJ619{J620|J621}J622~J623J624J625J626J627J628J629J630J631J632J633J634J635J636J637J638J639J640J641J642J643J644J645J646J647J648J649J650J651J652J653J654J655J656J657J658J659J660J701J702J703J704J705J706J707J708J709$J636J637J638J639J640J641J642J643J644J645J646J647J648J649J650J651J652J653J654J655J656J657J658J659J660J701J702J703J704J705J706J707J708J709J710J711J712J713J714J715J716J717J718J719J720J721J722J723J724J725J726J727J728J729J730J731J732J733J734J735J736J737J738J739J740J741J742J743J744J745  3ui2J712J713J714J715J716J717J718J719J720J721J722J723J724J725J726J727J728J729J730J731J732J733J734J735J736J737J738J739J740J741J742J743J744J745J746J747J748J749J750J751J752J753J754J755J756J757J758J759J760J726J727J728J729J730J731J732J733J734J735J736J737J738J739J740J741J742J743J744J745__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X uIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NRALuoS $$ OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU PR01 PR02 PR03 PR04 PR05 PR06 PR07 PR08 PR09 PR10 PR11 PR12 PR13 PR14 PR15 PR16 PR17 PR18 PR19 PR20 PR21 PR22 PR23 PR24 PR25 PR26 PR27 PR28 PR29 PR30 PR31 PR32 PR33 PR34 PR35 PR36 PR37 PR38 PR39 PR40 PR41 PR42 PR43 PR44 PR45 PR46 PR47 PR48 PR49 PR50 SCRN J - PRINT SCREEN DEFIN4PR01PR02PR03PR04PR05PR06PR07PR08PR09 PR10 PR11 PR12 PR13 PR14PR15PR16PR17PR18PR19PR20PR21PR22`  3u}PR23PR24PR25PR26PR27PR28PR29PR30PR31PR32 PR33!PR34"PR35#PR36$PR37%PR38&PR39'PR40(PR41)PR42*PR43+PR44,PR45-PR46.PR47/PR480PR491PR502__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X uEND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840ALuS $$ UNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR * 00010 * PROCEDURE TO BUILD 24000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC002 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVIT  3uIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY Pm  3uRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960 * 00970PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 00980PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 00990PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01000PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01010PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01020PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01030PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01040PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01050PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01060PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01070PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01080PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01090PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01100PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01110PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01120PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/! 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIME USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED q  3u 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED ^  3u 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY 02090CCSPAS 02100INPUT=PRFDC004 02110SWITCH 0212010000000 02130 * THE UPDATE TAPE WILL BE PROCESSED 02140UPDATE 02150 * THE UPDATE TAPE HAS BEEN PROCESSED 02160 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02170 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02180 * SCREEN INFORMATION 02190CCSSPC 02200CCSPAS 02210 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02220MNUPRO 02230/! 02240DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02250LOAD,FN=PRFDC005,OW=CCS20  3u 02260CHEKID 02270 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02280 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02290 * CARRIAGE RETURN WHEN READY 02300CCSPAS 02310INPUT=PRFDC005 02320SWITCH 0233010000000 02340UPD400 02350 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02360MNUPRO 02370/! 02380DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02390LOAD,FN=PRFDC006,OW=CCS20 02400CHEKID 02410 * THE FINANCIAL UPDATES WILL BE PROCESSED 02420 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02430 * 02440INPUT=PRFDC006 02450MOUNT 02460FTAPE,B,P 02470/* 02480UPD500 02490 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02500MNUPRO 02510/! 02520DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02530LOAD,FN=PRFDC007,OW=CCS20 02540CHEKID 02550 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02560DHUPDT 02570 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02580MNUPRO 02590/! 02600DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02610LOAD,FN=PRFDC008,OW=CCS20 02620CHEKID 02630 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02640 * COLLECTORS ARE OFF-LINE FOR THE DAY 02650MNUPRO 02660/! 02670DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02680LOAD,FN=PRFDC009,OW=CCS20 02690CHEKID 02700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02710 * COLLECTORS ARE OFF-LINE FOR THE DAY 02720MNUPRO 02730/! p  3u 02740DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02750LOAD,FN=PRFDC010,OW=CCS20 02760CHEKID 02770 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02780 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02790 * CARRIAGE RETURN ONLY - TO CONTINUE 02800 * 02810CCSPAS 02820 * 02830 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02840 * 02850INPUT=PRFDC010 02860UTIL 02870CLEAR,FN=TRNSFL 02880EX 02890INPUT=PRFDC010 02900DSORT 02910FN=TRANFL,CCS20 02920F2=TRNSFL,CCS20, 02930OP=T,F,A 02940KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 02950SL=I 02960PRETSR 02970INPUT=PRFDC010 02980UTIL 02990CLEAR,FN=ACTIVE 03000CLEAR,FN=TRANFL 03010CLEAR,FN=TRNBCK 03020EX 03030 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03040NMCHNG 03050RSWCHG 03060INPUT=PRFDC010 03070UTIL 03080CLEAR,FN=ADDACT 03090EX 03100MNUPRO 03110/! 03120DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03130LOAD,FN=PRFDC011,OW=CCS20 03140CHEKID 03150 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03160 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03170 * CARRIAGE RETURN ONLY - TO CONTINUE 03180 * 03190CCSPAS 03200 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03210INPUT=PRFDC011  3v  03220UTIL 03230CLEAR,FN=DLYWRK 03240EX 03250SRREQ 03260 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03270 * 03280 * THE DLYASSN FILE IS BEING CREATED 03290DACRTE 03300 * THE DLYASSN FILE HAS BEEN CREATED 03310 * THE DLYASSN FILE IS BEING SORTED 03320INPUT=PRFDC011 03330DSORT 03340FN=DLYWRK,CCS20 03350FN=DLYASSN,CCS20 03360F2=DLYASSN,CCS20, 03370OP=T,F,A 03380KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03390SL=I 03400 * THE DLYASSN FILE HAS BEEN SORTED 03410INPUT=PRFDC011 03420UTIL 03430CLEAR,FN=DAQUE 03440EX 03450 * THE DAILY QUEUE FILE IS BEING CREATED 03460DAQUEL 03470 * THE DAILY QUEUE FILE HAS BEEN CREATED 03480 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03490 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03500 * SCREEN INFORMATION 03510CCSSPC 03520CCSPAS 03530 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03540 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03550MNUPRO 03560/! 03570DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03580LOAD,FN=PRFHS001,OW=CCS20 03590CHEKID 03600 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03610 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03620INPUT=PRFHS001 03630DSORT 03640FN=INACCT,CCS20 03650F2=INTEMP,CCS20, 03660OP=T,F,A 03670KF=A,1,16,D,23,2,D,19,4 03680SL=I 03690INPUT=PRFHS001 ,@  3v 03700UTIL 03710CLEAR,FN=INACCT 03720COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03730DELETE,FN=INTEMP 03740EX 03750 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03760 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03770 * WITH WRITE RING 03780 * CARRIAGE RETURN WHEN READY 03790CCSPAS 03800MHUPDT 03810 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 03820 * REBUILDING INACCT 03830FIXINA 03840 * INACCT REBUILD COMPLETE 03850MNUPRO 03860/! 03870DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03880LOAD,FN=PRFHS002,OW=CCS20 03890CHEKID 03900 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03910 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03920 * CARRIAGE RETURN ONLY - TO CONTINUE 03930 * 03940CCSPAS 03950 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 03960INPUT=PRFHS002 03970UTIL 03980DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 03990EX 04000CHUPD1 04010 * THE UPREQ FILE WILL BE SORTED 04020INPUT=PRFHS002 04030DSORT 04040FN=UPREQ,CCS20 04050F2=UPREQ,CCS20, 04060OP=T,F,A 04070KF=D,21,2,D,17,4,A,1,16 04080SL=I 04090 * THE UPREQ FILE HAS BEEN SORTED 04100INPUT=PRFHS002 04110UTIL 04120CLEAR,FN=UPHSTCM 04130EX 04140 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04150 * EXECUTION OF THE NEXT JOB 04160CHUPD2 04170INPUT=PRFHS002 z  3v1 04180UTIL 04190DELETE,FN=UPREQ 04200EX 04210 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04220MNUPRO 04230/! 04240DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04250LOAD,FN=PRFHS003,OW=CCS20 04260CHEKID 04270 * THE SUMHIST FILE WILL BE PURGED 04280PHDEL2 04290CMPSUM 04300 * THE SUMHIST FILE HAS BEEN PURGED 04310MNUPRO 04320/! 04330DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04340LOAD,FN=PRFHS004,OW=CCS20 04350CHEKID 04360 * THE TAPEARC FILE WILL BE PURGED 04370PHDEL1 04380INPUT=PRFHS004 04390UTIL 04400COMPRE,FN=TAPEARC 04410EX 04420 * THE TAPEARC FILE HAS BEEN PURGED 04430MNUPRO 04440/! 04450DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04460LOAD,FN=PRFMT001,OW=CCS20 04470CHEKID 04480 * THE LETTER DEFINITION FILE WILL BE PRINTED 04490INPUT=PRFMT001 04500UTIL 04510LIST,FN=LTRDESC,L=LPRINTER,F=U 04520EX 04530 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04540 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04550 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04560 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04570 * CARRIAGE RETURN WHEN READY TO CONTINUE 04580CCSPAS 04590MNUPRO 04600/! 04610DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04620LOAD,FN=PRFMT002,OW=CCS20 04630CHEKID 04640 * THE LETTER FILE WILL BE CREATED 04650 * Qm  3vE 04660INPUT=PRFMT002 04670UTIL 04680CLEAR,FN=LTRFIL 04690EX 04700LTRBLD 04710 * THE LETTER FILE HAS BEEN CREATED 04720MNUPRO 04730/! 04740DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04750LOAD,FN=PRFMT003,OW=CCS20 04760CHEKID 04770 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04780 * 04790 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04800 * FROM THE CONSOLE 04810 * 04820 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04830UTFMTN 04840 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04850INPUT=PRFMT003 04860UTIL 04870LIST,FN=UTIFIL,L=LPRINTER,F=U 04880EX 04890 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04900 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04910MNUPRO 04920/! 04930DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04940LOAD,FN=PRFMT004,OW=CCS20 04950CHEKID 04960 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 04970 * 04980 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04990DECMTN 05000 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05010MNUPRO 05020/! 05030DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05040LOAD,FN=PRFMT005,OW=CCS20 05050CHEKID 05060 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05070AVMDMP 05080 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05090MNUPRO 05100/! 05110DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05120LOAD,FN=PRFMT006,OW=CCS20 05130CHEKID TE  3vY 05140 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05150 * 05160AVMCON 05170 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05180 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05190AVMDMP 05200 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05210MNUPRO 05220/! 05230DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05240LOAD,FN=PRFMT007,OW=CCS20 05250CHEKID 05260 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05270 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05280 * SCREEN INFORMATION 05290CCSSPC 05300CCSPAS 05310 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05320MNUPRO 05330/! 05340DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05350LOAD,FN=PRFMT008,OW=CCS20 05360CHEKID 05370 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05380INPUT=PRFMT008 05390UTIL 05400LIST,FN=SCRNDESC,L=LPRINTER,F=U 05410EX 05420 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05430 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05440 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05450 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05460 * CARRIAGE RETURN WHEN READY TO CONTINUE 05470CCSPAS 05480MNUPRO 05490/! 05500DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05510LOAD,FN=PRFMT009,OW=CCS20 05520CHEKID 05530 * THE SCREEN FILE WILL BE CREATED 05540BLDSRN 05550 * THE SCREEN FILE HAS BEEN CREATED 05560MNUPRO 05570/! 05580DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05590LOAD,FN=PRFMT010,OW=CCS20 05600CHEKID 05610 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE"  3vm 05620 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05630 * CARRIAGE RETURN ONLY - TO CONTINUE 05640 * 05650CCSPAS 05660 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05670CMPDLQ 05680INPUT=PRFMT010 05690UTIL 05700COMPRE,FN=COSIGNER 05710COMPRE,FN=ACTFIL 05720EX 05730 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05740MNUPRO 05750/! 05760DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05770LOAD,FN=PRFMT011,OW=CCS20 05780CHEKID 05790 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05800 * WILL BE PRINTED 05810ACTMTN 05820 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05830 * HAS BEEN PRINTED 05840MNUPRO 05850/! 05860DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05870LOAD,FN=PRFMT012,OW=CCS20 05880CHEKID 05890 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05900 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05910 * 05920USEMTN 05930 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05940MNUPRO 05950/! 05960DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 05970LOAD,FN=PRFMT013,OW=CCS20 05980CHEKID 05990 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06000PGLTTB 06010MNUPRO 06020/! 06030DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06040LOAD,FN=PRFMT014,OW=CCS20 06050CHEKID 06060 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06070 * 06080 * THE DATA ELEMENT TABLE WILL BE PRINTED 06090PGLTTB  3v 06100 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06110 * 06120 * THE DATA ELEMENT TABLE WILL BE UPDATED 06130 * 06140 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06150 * 06160INPUT=PRFMT014 06170SWITCH 06180000000000 06190PGUPTB 06200 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06210 * 06220 * THE DATA ELEMENT TABLE WILL BE PURGED 06230INPUT=PRFMT014 06240UTIL 06250DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06260EX 06270PGCMPR 06280INPUT=PRFMT014 06290UTIL 06300DELETE,FN=RPTTBL 06310RENAME,FN=TBLWRK,F2=RPTTBL 06320EX 06330 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06340 * 06350 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06360MNUPRO 06370/! 06380DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06390LOAD,FN=PRFMT015,OW=CCS20 06400CHEKID 06410 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06420 * 06430 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06440PGLIST 06450 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06460 * 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06490 * 06500 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06510 * 06520PGPURG 06530INPUT=PRFMT015 06540UTIL 06550COMPRE,FN=RPTPGM 06560EX 06570 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED v 3uyf4PR01PR02PR03PR04PR05PR06PR07PR08PR09 PR10 PR11 PR12 PR13 PR14PR15PR16PR17PR18PR19PR20PR21PR22PR23PR24PR25PR26PR27PR28PR29PR30PR31PR32 PR33!PR34"PR35#PR36$PR37%PR38&PR39'PR40(PR41)PR42*PR43+PR44,PR45-PR46.PR47/PR480PR491PR502__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X uEND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840 x 3uoALuoS $$ OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU PR01 PR02 PR03 PR04 PR05 PR06 PR07 PR08 PR09 PR10 PR11 PR12 PR13 PR14 PR15 PR16 PR17 PR18 PR19 PR20 PR21 PR22 PR23 PR24 PR25 PR26 PR27 PR28 PR29 PR30 PR31 PR32 PR33 PR34 PR35 PR36 PR37 PR38 PR39 PR40 PR41 PR42 PR43 PR44 PR45 PR46 PR47 PR48 PR49 PR50 SCRN J - PRINT SCREEN DEFIN4PR01PR02PR03PR04PR05PR06PR07PR08PR09 PR10 PR11 PR12 PR13 PR14PR15PR16PR17PR18PR19PR20PR21PR22PR23PR24PR25PR26PR27PR28PR29PR30PR31PR32 PR33!PR34"PR35#PR36$PR37%PR38&PR39'PR40(PR41)PR42*PR43+PR44,PR45-PR46.PR47/PR480PR491PR502__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X uEND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840ALuS $$ UNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR   3u * 00010 * PROCEDURE TO BUILD 24000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC002 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480  3u/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960  3oALoS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * 00010 * PROCEDURE TO BUILD 12000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC001 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPhb  3p E ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VLR  3p!=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960 * 00970PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 00980PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 00990PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01000PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01010PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01020PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01030PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01040PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01050PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01060PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01070PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01080PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01090PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01100PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01110PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01120PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/! 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIME USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED !Z  3p5 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VLߕ  3pI=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY 02090CCSPAS 02100INPUT=PRFDC004 02110SWITCH 0212010000000 02130 * THE UPDATE TAPE WILL BE PROCESSED 02140UPDATE 02150 * THE UPDATE TAPE HAS BEEN PROCESSED 02160 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02170 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02180 * SCREEN INFORMATION 02190CCSSPC 02200CCSPAS 02210 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02220MNUPRO 02230/! 02240DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02250LOAD,FN=PRFDC005,OW=CCS20 02260CHEKID 02270 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02280 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02290 * CARRIAGE RETURN WHEN READY 02300CCSPAS 02310INPUT=PRFDC005 02320SWITCH 0233010000000 02340UPD400 02350 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02360MNUPRO 02370/! *  3p] 02380DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02390LOAD,FN=PRFDC006,OW=CCS20 02400CHEKID 02410 * THE FINANCIAL UPDATES WILL BE PROCESSED 02420 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02430 * 02440INPUT=PRFDC006 02450MOUNT 02460FTAPE,B,P 02470/* 02480UPD500 02490 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02500MNUPRO 02510/! 02520DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02530LOAD,FN=PRFDC007,OW=CCS20 02540CHEKID 02550 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02560DHUPDT 02570 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02580MNUPRO 02590/! 02600DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02610LOAD,FN=PRFDC008,OW=CCS20 02620CHEKID 02630 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02640 * COLLECTORS ARE OFF-LINE FOR THE DAY 02650MNUPRO 02660/! 02670DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02680LOAD,FN=PRFDC009,OW=CCS20 02690CHEKID 02700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02710 * COLLECTORS ARE OFF-LINE FOR THE DAY 02720MNUPRO 02730/! 02740DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02750LOAD,FN=PRFDC010,OW=CCS20 02760CHEKID 02770 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02780 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02790 * CARRIAGE RETURN ONLY - TO CONTINUE 02800 * 02810CCSPAS 02820 * 02830 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02840 * 02850INPUT=PRFDC010 \  3pq 02860UTIL 02870CLEAR,FN=TRNSFL 02880EX 02890INPUT=PRFDC010 02900DSORT 02910FN=TRANFL,CCS20 02920F2=TRNSFL,CCS20, 02930OP=T,F,A 02940KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 02950SL=I 02960PRETSR 02970INPUT=PRFDC010 02980UTIL 02990CLEAR,FN=ACTIVE 03000CLEAR,FN=TRANFL 03010CLEAR,FN=TRNBCK 03020EX 03030 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03040NMCHNG 03050RSWCHG 03060INPUT=PRFDC010 03070UTIL 03080CLEAR,FN=ADDACT 03090EX 03100MNUPRO 03110/! 03120DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03130LOAD,FN=PRFDC011,OW=CCS20 03140CHEKID 03150 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03160 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03170 * CARRIAGE RETURN ONLY - TO CONTINUE 03180 * 03190CCSPAS 03200 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03210INPUT=PRFDC011 03220UTIL 03230CLEAR,FN=DLYWRK 03240EX 03250SRREQ 03260 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03270 * 03280 * THE DLYASSN FILE IS BEING CREATED 03290DACRTE 03300 * THE DLYASSN FILE HAS BEEN CREATED 03310 * THE DLYASSN FILE IS BEING SORTED 03320INPUT=PRFDC011 03330DSORT b  3p 03340FN=DLYWRK,CCS20 03350FN=DLYASSN,CCS20 03360F2=DLYASSN,CCS20, 03370OP=T,F,A 03380KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03390SL=I 03400 * THE DLYASSN FILE HAS BEEN SORTED 03410INPUT=PRFDC011 03420UTIL 03430CLEAR,FN=DAQUE 03440EX 03450 * THE DAILY QUEUE FILE IS BEING CREATED 03460DAQUEL 03470 * THE DAILY QUEUE FILE HAS BEEN CREATED 03480 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03490 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03500 * SCREEN INFORMATION 03510CCSSPC 03520CCSPAS 03530 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03540 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03550MNUPRO 03560/! 03570DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03580LOAD,FN=PRFHS001,OW=CCS20 03590CHEKID 03600 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03610 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03620INPUT=PRFHS001 03630DSORT 03640FN=INACCT,CCS20 03650F2=INTEMP,CCS20, 03660OP=T,F,A 03670KF=A,1,16,D,23,2,D,19,4 03680SL=I 03690INPUT=PRFHS001 03700UTIL 03710CLEAR,FN=INACCT 03720COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03730DELETE,FN=INTEMP 03740EX 03750 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03760 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03770 * WITH WRITE RING 03780 * CARRIAGE RETURN WHEN READY 03790CCSPAS 03800MHUPDT 03810 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HIST   3pORY 03820 * REBUILDING INACCT 03830FIXINA 03840 * INACCT REBUILD COMPLETE 03850MNUPRO 03860/! 03870DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03880LOAD,FN=PRFHS002,OW=CCS20 03890CHEKID 03900 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03910 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03920 * CARRIAGE RETURN ONLY - TO CONTINUE 03930 * 03940CCSPAS 03950 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 03960INPUT=PRFHS002 03970UTIL 03980DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 03990EX 04000CHUPD1 04010 * THE UPREQ FILE WILL BE SORTED 04020INPUT=PRFHS002 04030DSORT 04040FN=UPREQ,CCS20 04050F2=UPREQ,CCS20, 04060OP=T,F,A 04070KF=D,21,2,D,17,4,A,1,16 04080SL=I 04090 * THE UPREQ FILE HAS BEEN SORTED 04100INPUT=PRFHS002 04110UTIL 04120CLEAR,FN=UPHSTCM 04130EX 04140 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04150 * EXECUTION OF THE NEXT JOB 04160CHUPD2 04170INPUT=PRFHS002 04180UTIL 04190DELETE,FN=UPREQ 04200EX 04210 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04220MNUPRO 04230/! 04240DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04250LOAD,FN=PRFHS003,OW=CCS20 04260CHEKID 04270 * THE SUMHIST FILE WILL BE PURGED 04280PHDEL2 04290CMPSUM  3p 04300 * THE SUMHIST FILE HAS BEEN PURGED 04310MNUPRO 04320/! 04330DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04340LOAD,FN=PRFHS004,OW=CCS20 04350CHEKID 04360 * THE TAPEARC FILE WILL BE PURGED 04370PHDEL1 04380INPUT=PRFHS004 04390UTIL 04400COMPRE,FN=TAPEARC 04410EX 04420 * THE TAPEARC FILE HAS BEEN PURGED 04430MNUPRO 04440/! 04450DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04460LOAD,FN=PRFMT001,OW=CCS20 04470CHEKID 04480 * THE LETTER DEFINITION FILE WILL BE PRINTED 04490INPUT=PRFMT001 04500UTIL 04510LIST,FN=LTRDESC,L=LPRINTER,F=U 04520EX 04530 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04540 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04550 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04560 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04570 * CARRIAGE RETURN WHEN READY TO CONTINUE 04580CCSPAS 04590MNUPRO 04600/! 04610DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04620LOAD,FN=PRFMT002,OW=CCS20 04630CHEKID 04640 * THE LETTER FILE WILL BE CREATED 04650 * 04660INPUT=PRFMT002 04670UTIL 04680CLEAR,FN=LTRFIL 04690EX 04700LTRBLD 04710 * THE LETTER FILE HAS BEEN CREATED 04720MNUPRO 04730/! 04740DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04750LOAD,FN=PRFMT003,OW=CCS20 04760CHEKID 04770 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE @  3pEXECUTED 04780 * 04790 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04800 * FROM THE CONSOLE 04810 * 04820 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04830UTFMTN 04840 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04850INPUT=PRFMT003 04860UTIL 04870LIST,FN=UTIFIL,L=LPRINTER,F=U 04880EX 04890 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04900 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04910MNUPRO 04920/! 04930DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04940LOAD,FN=PRFMT004,OW=CCS20 04950CHEKID 04960 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 04970 * 04980 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04990DECMTN 05000 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05010MNUPRO 05020/! 05030DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05040LOAD,FN=PRFMT005,OW=CCS20 05050CHEKID 05060 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05070AVMDMP 05080 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05090MNUPRO 05100/! 05110DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05120LOAD,FN=PRFMT006,OW=CCS20 05130CHEKID 05140 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05150 * 05160AVMCON 05170 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05180 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05190AVMDMP 05200 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05210MNUPRO 05220/! 05230DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05240LOAD,FN=PRFMT007,OW=CCS20 05250CHEKID {  3p 05260 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05270 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05280 * SCREEN INFORMATION 05290CCSSPC 05300CCSPAS 05310 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05320MNUPRO 05330/! 05340DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05350LOAD,FN=PRFMT008,OW=CCS20 05360CHEKID 05370 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05380INPUT=PRFMT008 05390UTIL 05400LIST,FN=SCRNDESC,L=LPRINTER,F=U 05410EX 05420 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05430 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05440 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05450 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05460 * CARRIAGE RETURN WHEN READY TO CONTINUE 05470CCSPAS 05480MNUPRO 05490/! 05500DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05510LOAD,FN=PRFMT009,OW=CCS20 05520CHEKID 05530 * THE SCREEN FILE WILL BE CREATED 05540BLDSRN 05550 * THE SCREEN FILE HAS BEEN CREATED 05560MNUPRO 05570/! 05580DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05590LOAD,FN=PRFMT010,OW=CCS20 05600CHEKID 05610 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05620 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05630 * CARRIAGE RETURN ONLY - TO CONTINUE 05640 * 05650CCSPAS 05660 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05670CMPDLQ 05680INPUT=PRFMT010 05690UTIL 05700COMPRE,FN=COSIGNER 05710COMPRE,FN=ACTFIL 05720EX 05730 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE B&  3pEEN PURGED 05740MNUPRO 05750/! 05760DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05770LOAD,FN=PRFMT011,OW=CCS20 05780CHEKID 05790 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05800 * WILL BE PRINTED 05810ACTMTN 05820 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05830 * HAS BEEN PRINTED 05840MNUPRO 05850/! 05860DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05870LOAD,FN=PRFMT012,OW=CCS20 05880CHEKID 05890 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05900 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05910 * 05920USEMTN 05930 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05940MNUPRO 05950/! 05960DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 05970LOAD,FN=PRFMT013,OW=CCS20 05980CHEKID 05990 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06000PGLTTB 06010MNUPRO 06020/! 06030DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06040LOAD,FN=PRFMT014,OW=CCS20 06050CHEKID 06060 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06070 * 06080 * THE DATA ELEMENT TABLE WILL BE PRINTED 06090PGLTTB 06100 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06110 * 06120 * THE DATA ELEMENT TABLE WILL BE UPDATED 06130 * 06140 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06150 * 06160INPUT=PRFMT014 06170SWITCH 06180000000000 06190PGUPTB 06200 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06210 *  3p 06220 * THE DATA ELEMENT TABLE WILL BE PURGED 06230INPUT=PRFMT014 06240UTIL 06250DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06260EX 06270PGCMPR 06280INPUT=PRFMT014 06290UTIL 06300DELETE,FN=RPTTBL 06310RENAME,FN=TBLWRK,F2=RPTTBL 06320EX 06330 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06340 * 06350 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06360MNUPRO 06370/! 06380DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06390LOAD,FN=PRFMT015,OW=CCS20 06400CHEKID 06410 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06420 * 06430 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06440PGLIST 06450 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06460 * 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06490 * 06500 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06510 * 06520PGPURG 06530INPUT=PRFMT015 06540UTIL 06550COMPRE,FN=RPTPGM 06560EX 06570 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06580 * 06590 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06600PGLIST 06610 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06620 * 06630 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06640MNUPRO 06650/! 06660DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06670LOAD,FN=PRFMT016,OW=CCS20 06680CHEKID 06690 * THE SCREEN FILES WILL BE PRINTED E  3q 06700 * D 06710 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06720 * 06730PRTSCN 06740 * THE SCREEN FILES HAVE BEEN PRINTED 06750MNUPRO 06760/! 06770DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06780LOAD,FN=PRFRP001,OW=CCS20 06790CHEKID 06800INPUT=PRFRP001 06810SWITCH 0682010000000 06830 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06840 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06850 * PRINTED 06860DTLLST 06870 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06880MNUPRO 06890/! 06900DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06910LOAD,FN=PRFRP002,OW=CCS20 06920CHEKID 06930INPUT=PRFRP002 06940SWITCH 0695001000000 06960 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06970 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 06980DTLLST 06990INPUT=PRFRP002 07000UTIL 07010CLEAR,FN=SREQDL 07020EX 07030 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07040MNUPRO 07050/! 07060DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07070LOAD,FN=PRFRP003,OW=CCS20 07080CHEKID 07090 * CALCULATE AGE FOR TREND ANALYSIS 07100TRENDF 07110 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07120 * 07130 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07140INPUT=PRFRP003 07150UTIL 07160DELETE,FN=AGEWRK 07170EX  3q% 07180INPUT=PRFRP003 07190DSORT 07200FN=ACCAGE,CCS20 07210FN=RSWFIL,CCS20 07220F2=AGEWRK,CCS20,SYSVOL 07230OP=T,F,A 07240KF=A,17,4,A,1,1 07250SL=OMIT,35,3,EQ,'RSW' 07260 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07270 * 07280 **** OPERATOR - 07290 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07300 * TREND DATA FOR NEXT RUN 07310 * 07320 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07330 * FOR NEXT RUN 07340CCSPAS 07350TRENDU 07360INPUT=PRFRP003 07370UTIL 07380CLEAR,FN=RSWFIL 07390EX 07400MNUPRO 07410/! 07420DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07430LOAD,FN=PRFRP004,OW=CCS20 07440CHEKID 07450 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07460 * THE AGEWRK FILE IS BEING SORTED 07470INPUT=PRFRP004 07480DSORT 07490FN=AGEWRK,CCS20 07500F2=AGEWRK,CCS20, 07510OP=T,F,A 07520KF=A,17,4,A,1,1 07530SL=OMIT,35,3,EQ,'RSW' 07540 * THE AGEWRK FILE HAS BEEN SORTED 07550 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07560INPUT=PRFRP004 07570SWITCH 0758010000000 07590TRENDP 07600 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07610MNUPRO 07620/! 07630DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07640LOAD,FN=PRFRP005,OW=CCS20 07650CHEKID  3q9 07660 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07670 * THE AGEWRK FILE IS BEING SORTED 07680INPUT=PRFRP005 07690DSORT 07700FN=AGEWRK,CCS20 07710F2=AGEWRK,CCS20, 07720OP=T,F,A 07730KF=A,25,4,A,1,1 07740SL=I 07750 * THE AGEWRK FILE HAS BEEN SORTED 07760 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07770INPUT=PRFRP005 07780SWITCH 0779000000000 07800TRENDP 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07820MNUPRO 07830/! 07840DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07850LOAD,FN=PRFRP006,OW=CCS20 07860CHEKID 07870 * THE WRITE-OFF REPORT WILL BE GENERATED 07880 * THE WOEF FILE WILL BE CREATED 07890INPUT=PRFRP006 07900UTIL 07910DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07920EX 07930WRTOFE 07940 * THE WOEF FILE HAS BEEN CREATED 07950 * THE WOEF FILE IS BEING SORTED 07960INPUT=PRFRP006 07970DSORT 07980FN=WOEF,CCS20 07990F2=WOEF,CCS20, 08000OP=T,F,A 08010KF=A,25,1,A,17,4,A,21,4,A,1,16 08020SL=I 08030 * THE WOEF FILE HAS BEEN SORTED 08040 * THE WRITE-OFF REPORT WILL BE PRINTED 08050WRTOFP 08060INPUT=PRFRP006 08070UTIL 08080DELETE,FN=WOEF 08090EX 08100 * THE WRITE-OFF REPORT IS COMPLETE 08110MNUPRO 08120/! 08130DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL  3qM=SYSVOL ,OW=CCS20 08140LOAD,FN=PRFRP007,OW=CCS20 08150CHEKID 08160 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08170DALIST 08180 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08190MNUPRO 08200/! 08210DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08220LOAD,FN=PRFRP008,OW=CCS20 08230CHEKID 08240 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08250SUMACL 08260 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08270MNUPRO 08280/! 08290DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08300LOAD,FN=PRFRP009,OW=CCS20 08310CHEKID 08320 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08330INPUT=PRFRP009 08340SWITCH 0835001000000 08360COLSTS 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08380 **** OPERATOR - 08390 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08400 * 08410 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08420CCSPAS 08430INPUT=PRFRP009 08440SWITCH 0845000001000 08460COLSTS 08470MNUPRO 08480/! 08490DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08500LOAD,FN=PRFRP010,OW=CCS20 08510CHEKID 08520 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08530INPUT=PRFRP010 08540SWITCH 0855000100000 08560COLSTS 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08580 **** OPERATOR - 08590 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08600 * STATISTICS COUNT FILE 08610 * E  3qa 08620 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08630 * COUNT FILE 08640CCSPAS 08650INPUT=PRFRP010 08660UTIL 08670CLEAR,FN=COLSTATS 08680EX 08690MNUPRO 08700/! 08710DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08720LOAD,FN=PRFCNTRL,OW=CCS20 08730CHEKID 08740 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08750 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08760 * TO ACTIVATE BATCH HOST 08770 * MI, *BATCH,F 08780 * 08790 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08800 * 08810 * CARRIAGE RETURN ONLY - TO CONTINUE 08820CCSPAS 08830 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08840INPUT=PRFCNTRL 08850UTIL 08860DEFINE,FN=RPTWKE,LR=80,NR=1000 08870DEFINE,FN=RPTWKP,LR=80,NR=1000 08880DEFINE,FN=PRCWRK,LR=80,NR=50 08890EX 08900PGGEN 08910 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08920 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08930INPUT=PRFCNTRL 08940UTIL 08950BATCH,FN=RPTWKE,TY=N 08960BATCH,FN=RPTWKP,TY=R 08970DELETE,FN=RPTWKE 08980DELETE,FN=RPTWKP 08990CLEAR,FN=PGEXTR 09000EX 09010PGCNT1 09020 * 09030 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09040 * CARRIAGE RETURN WHEN READY 09050CCSPAS 09060MNUPRO 09070/! 09080DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09090LOAD,FN=PRFRP012,OW=CCS20 E  3qu 09100CHEKID 09110 * THE QUEUE LOADING REPORT WILL BE PRINTED 09120QLOAD 09130 * THE QUEUE LOADING REPORT IS COMPLETE 09140MNUPRO 09150/! 09160DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09170LOAD,FN=PRFRP014,OW=CCS20 09180CHEKID 09190 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09200 ***** 09210 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09220 ***** OR NOT TREND ANALYSIS IS BEING USED. 09230 ***** 09240 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09250 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09260 **** 09270 *** 09280CCSPAS 09290 * 09300CMPACC 09310 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09320MNUPRO 09330/! 09340 09350 09360 09370 09380 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570   3q 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09690NR=50 09700DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=12000,OW=CCS20 09710DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=12000,VL=CDD01; 09720OW=CCS20 09730DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09740DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09750DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=12000,VL=CDD01,OW=CCS20 09760DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=12000,VL=SYSVOL,OW=CCS20 09770DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09780DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09790OW=CCS20 09800DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=12000,VL=CDD01; 09810OW=CCS20 09820DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09830DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09840DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=12000; 09850VL=CDD01,OW=CCS20 09860DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=12000,VL=SYSVOL,OW=CCS20 09870DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=1000,VL=CDD01,OW=CCS20 09880DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09890LOAD,FN=DUMMY,OW=CCS20 09900 09910/! 09920DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=12000,VL=CDD01,OW=CCS20 09930DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09940DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 09950OW=CCS20 09960DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 09970DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=12000,OW=CCS20 09980DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 09990DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=6000,VL=CDD01,OW=CCS20 10020DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10030DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10040OW=CCS20 10050DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=100,VL=u  3qCDD01,OW=CCS20 10060DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=12000,VL=CDD01; 10070OW=CCS20 10080DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=12000,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10110DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10120DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10130DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20 10140DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10150EX 10160MOVDAT 10170 * THE 12000 ACCOUNT SYSTEM BUILD IS COMPLETE 10180 * 10190 * PROCEED WITH THE INSTALLATION TEST PROCEDURES. 10200 * 10210MNUPRO 10220__ 00240234140 0ULT,LETTER REQUEST,COMMENT 00250END 0026093******************CLIENT FILE MAINTENANCE - FINANCIAL SCREEN 00270010108 0CLIENT # 0028001110400012 CLIENT # 00290012423 0CLIENT FINANCIAL SCREEN 00300030236 0# AMT AMT # AMT COMM 00310034233 0# AMT # COURT HISTORY 00320040138 0ACCT ACCT COL PIF PIF EARNED 00330044133 0CLD CLD ACT COSTS MO/YR 0034006010301592 # OF ACCTS PLACED- MNTH 1 0035006050701622 AMT OF ACCTS PLACED- MNTH 1 0036006130701712 AMT COLLECTED - MNTH 1 0037006210301802 # OF PAID-IN-FULL- MNTH 1 0038006250701832 AMT OF PAID-IN-FULL- MNTH 1 0039006330701922 COMMISSIONS EARNED - MNTH 1 0040006410302012 # OF ACCTS CLOSED- MNTH 1 0041006450702042 AMT OF ACCTS CLOSED- MNTH 1 0042006530302132 # OF ACTIVE ACCTS- MNTH 1 0043006570702252 COURT COSTS - MNTH 1 0044006690201572 CLIENT HISTORY MNTH - MNTH 1 00450067101 0/ 0046006720201552 CLIENT HISTORY YEAR- MNTH 1 0047007010302472 # OF ACCTS PLACED- MNTH 2 0048007050702502 AMT OF ACCTS PLACED- MNTH 2 0049007130702592 AMT COLLECTED - MNTH 2 0050007210302682 # OF PAID-IN-FULL- MNTH 2 0051007250702712 AMT OF PAID-IN-FULL- MNTH 2 0052007330702802 COMMISSIONS EARNED - MNTH 2 0053007410302892 # OF ACCTS CLOSED- MNTH 2 0054007450702922 AMT OF ACCTS CLOSED- MNTH 2 0055007530303012 &u  3q # OF ACTIVE ACCTS- MNTH 2 0056007570703132 COURT COSTS - MNTH 2 0057007690202452 CLIENT HISTORY MNTH - MNTH 2 00580077101 0/ 0059007720202432 CLIENT HISTORY YEAR- MNTH 2 0060008010303352 # OF ACCTS PLACED- MNTH 3 0061008050703382 AMT OF ACCTS PLACED- MNTH 3 0062008130703472 AMT COLLECTED - MNTH 3 0063008210303562 # OF PAID-IN-FULL- MNTH 3 0064008250703592 AMT OF PAID-IN-FULL- MNTH 3 0065008330703682 COMMISSIONS EARNED - MNTH 3 0066008410303772 # OF ACCTS CLOSED- MNTH 3 0067008450703802 AMT OF ACCTS CLOSED- MNTH 3 0068008530303892 # OF ACTIVE ACCTS- MNTH 3 0069008570704012 COURT COSTS - MNTH 3 0070008690203332 CLIENT HISTORY MNTH - MNTH 3 00710087101 0/ 0072008720203312 CLIENT HISTORY YEAR- MNTH 3 0073009010304232 # OF ACCTS PLACED- MNTH 4 0074009050704262 ALqS $$ D- MNTH 4 0075009130704352 AMT COLLECTED - MNTH 4 0076009210304442 # OF PAID-IN-FULL- MNTH *JOB,PURGE,-----------PURGE PROGRAM LIBRARY 00010*LIBEDT 00020*R,LODDAT,F 00030*R,MOVDAT,F 00040*R,LMOVDT,F 00050*R,CLRFIL,F 00060*R,LCLRFL,F 00070*R,QTIL,F 00080*R,QTDEFI,F 00090*R,QTDELE,F 00100*R,QTCOMM,F 00110*R,QTLOAD,F 00120*R,QTORLD,F 00130*R,QTRMLD,F 00140*K,I13,L14,P8 00150*N,PROCED,,,B 00160CARDPRO READER 00170TAPEPRO TAPE0 00180*N,USERID,,,B 00190 00 00200$$ 00 00210*N,SCMENU,,,B 00220 SYSTEM CONFIGURE MENU 00230*Z 00240*Z 00250_  3q 0111011720205952 CLIENT HISTORY YEAR- MNTH 6 0112012010306872 # OF ACCTS PLACED- MNTH ALqS $$ 2 AMT OF ACCTS PLACED- MNTH 7 0114012130706992 AMT COLLECTED - MNTH 7 0115012210307082 0107878631234567 MASTERS,JAMES 156 APPLETON WAY JAMESTOWN, PA 32233 0164884221234567 BACH,JANET COIN,MARY MARTEN,MAGERET 0182874321234567 POTTER,CRAIG 0243719561234567 SWEENEY,ARTHUR SAVER (COSIGNER 2) 0287164291234567 SWEENEY,DELORES 0353693391234567 NETTLES,BOB LOSITER,NORRIS 0397288631234567 FLAMINGO,ROBERTO STEINMAN,HORACE MONAGUE,FLORRIE 0479043391234567 PARIS,PETER >  3q __ # OF ACCTS PLACED- MNTH 10 0152015050709542 AMT OF ACCTS PLACED- MNTH 10 0153015130709632 AMT COLLECTED - MNTH 10 0154015210309722 # OF PAID-IN-FULL- MNTH 10 0155015250709752 AMT OF PAID-IN-FULL- MNTH 10 0156015330709842 COMMISSIONS EARNED - MNTH 10 0157015410309932 # OF ACCTS CLOSED- MNTH 10 0158015450709962 AMT OF ACCTS CLOSED- MNTH 10 0159015530310052 # OF ACTIVE ACCTS- MNTH 10 0160015570710172 COURT COSTS - MNT 01078786312345670164884221234567018287432123456702437195612345670287164291234567035369339123456703972886312345670479043391234567ALqS $$ 0176016720210352 CLIENT HISTORY YEAR- MNTH 11 0177017010311272 # OF ACCSRA1A2A3A4******************************************************BZPPR1R2R3R4 **************************************************A@ AID-IN-FULL- MNTH 12 0182017330711602 ALRqS $$ - MNTH 12 0183017410311692 # OF ACCTS CLOSED- MNTH 12 0184017450711722 AMT OF ACCTS CLOSED- MNTHDR1CYBER CREDIT SYSTEM HDR2VERSION 3.0 HDR3SYSTEM VERIFICATION RSW1R010,S015,W005 ACTCA1A2A3A4SR****************************************************** RESC BZPPR1R2R3R4************************************************** SALCMR MS MISS MRS DALT005 LTRF0COLLECTION DEPT SMTHR006,S006,W006 TMTH012 UPDY015 OLPMRL06,P02,C31,NAN RPTG RPT001 0002GARRET P32225551200 9a  3q412100030002,ALL 0003SHERMAN H12225551119 2 0003,ALL 0004BEASON S22225551200 430000030004,ALL 0001LOWE M12225551115 1000300010002,ALL LTR10102** LTR2 __ 02050012824 0BORROWER'S CHANGE SCREEN 02060030109 0ACCT NAME 02070031430 182 BORROWER'S NAME 02080035206 0ACCT # 02090036016 12 ACCT # 02100040111 0LAST CHANGE 02110041406 8631 LAST CHANGE 02120055108 0PREVIOUS 02130060115 801 HOME ADDR 1 02140061930 482 HOME ADDR 1 0215006513007572 PREVIOUS ADDRESS LINE 1 02160070115 802 HOME ADDR 2 02170071930 782 HOME ADDR 2 0218007513007872 PREVIOUS ADDRESS LINE 2 02190080115 803 CITY, STATE 02200081920 1082 CITY, STATE 0221008512008172 PREVIOUS CITY/STATE 02220090115 804 HOME ZIP 02230091905 1282 ZIP 0224009510508372 PREVIOUS ZIP 02250100115 805 HOME PHONE 02260101910 1334 PHONE # 02270110115 806 HOME EXT 02280111904 1432 EXT 02290120115 807 BUS NAME 02300121930 1472 BUS NAME 02310130115 808 BUS ADDR 02320131930 1772 BUS ADDR 02330140115 809 CITY, STATE 02340141920 2072 CITY,STATE 02350150115 810 BUS ZIP 02360151905 2272 ZIP 02370160115 811 BUS PHONE 02380161910 2324 BUS PHONE 02390170111 812 BUS EXT 02400171904 2422 BUS EXT 02410230140 0ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC 02420234140 0TION,RESULT,LETTER REQUEST,COMMENT 02430END 0244035******************SUPERVISOR SCREEN 02450012726 0SUPERVISOR'S CHANGE SCREEN 02460030109 0ACCT NAME 02470031830 182 k  3r ACCT NAME 02480035409 0ACCT # 02490036516 12 ACCT # 02500040110 0CURR QUEUE 02510041804 2712 CURR QUEUE 02520045410 0AMT DELQ 02530046509 8873 AMT DELQ 02540050115 0LAST QUEUE CHNG 02550051806 3001 LAST QUEUE CHNG 02560055409 0DELQ DATE 02570056506 8751 DELQ DATE 02580060111 0CURR CLIENT 0259006180410722 CURR CLIENT 02600065411 0PREV CLIENT 0261006660412292 PREV CLIENT 02620091519 801 REASSIGN CLIENT 0263009390413822 REASSIGN CLIENT 02640101522 802 NEXT CONTACT DATE 02650103906 2751 NEXT CONTACT DATE 02660111520 803 PRIORITY CODE 02670113904 2812 PRIORITY CODE 02680121522 804 SUPV FOR THIS ACCT 02690123904 2872 SUPV FOR ACCT 02700131522 805 SUPV STATUS CODE 02710133902 2922 STATUS CODE 02720141522 806 QUEUE REASSIGN CODE 02730143901 2942 REASSIGN CODE 02740151522 807 ACCT REVIEW CODE 02750153901 2912 REVIEW CODE 02760161513 808 PP AMOUNT 0277016390910223 PROMISED TO PAY AMOUNT - CHECKOUT!!02780230140 0ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC 02790234140 0TION,RESULT,LETTER REQUEST,COMMENT 02800END 0281010******************ACCOUNT MASTER SCREEN 02820012825 0BORROWER'S MASTER SCREEN 02830020511 0SUPV ACCT # 02840021704 2872 SP ACCT # 02850026504 0TIME 02860027104 7 TIME 02870040130 182 BORROWER'S NAME 02880043407 0QUEUE # 02890044704 2712 QUEUE # 02900045406 0ACCT # 02910046516 12 ACCT # 02920050130 482 HOME ADDR 1 02930053411 0POINT SCORE 02940054803 9472 POINT SCORE 02950055408 0AMT D  3rELQ 02960057009 8873 AMT DELQ 02970060130 782 HOME ADDR 2 02980063409 0ACCT TYPE 02990064604 9632 ACCT TYPE 03000065409 0DELQ DATE 03010067306 8751 DELQ DATE 03020070120 1082 CITY,STATE 1 03030072605 1282 ZIP 03040073409 0STATUS CD 03050075001 3062 STATUS CD 03060075408 0PREV QUE 03070077704 2962 PREV QUE 03080080106 0HOME # 03090080810 1334 HOME # 03100083408 0PP FLAG 03110085001 2852 PP FLAG 03120085408 0PRIORITY 03130087704 2812 03140090106 0SAL CD 03150090801 172 SAL CD 03160095412 0NEXT CONTACT 03170097306 2751 NEXT CONTACT 03180110130 1472 BUS NAME 03190113410 0SOC SEC # 03200114709 2626 SOC SEC # 03210120130 1772 BUS ADDR 03220123410 0ADL ACCT # 03230124716 2462 ADL ACCT # 03240130120 2072 CITY, STATE 03250132605 2272 ZIP 03260133410 0SAV ACCT # 03270140106 0WORK # 03280140810 2324 WORK # 03290142303 0EXT 03300142704 2422 EXT 03310143410 0CK ACCT # 03320153410 0ENTRY DATE 03330154706 8691 ENTRY DATE 03340160115 0NUMBER COSIGNER 03350161801 9382 COSIGNER 03360̦  3r)0001000200030004ACTCDALTHDR1HDR2HDR3LTR1LTR2LTRF OLPM RESCRPTGRSW1SALCSMTH TMTH UPDY __S 03510013218 0FINANCIAL HISTORY 03520030109 0ACCT NAME 03530031230 182 ACCT NAME 03540035706 0ACCT # 03550036416 12 03560040109 0ACCT TYPE 03570041204 9632 ACCT TYPE 03580050109 0LOAN OFF 03590051208 9552 LOAN OFF 03600060115 0SPEC DESC FIELD 03610061840 9732 DESC FIELD 03620080110 0AMT DELQ 03630081409 8873 AMT DELQ 03640083310 0OPEN DATE 03650084706 8811 OPEN DATE 03660090110 0DELQ DATE 03670091606 8751 DELQ DATE 03680093311 0OPEN AMOUNT 03690094509 9293 OPEN AMOUNT 03700100111 0LAST UPDATE 03710101606 8571 LAST UPDATE 03720103312 0CUR BALANCE 03730104509 8963 CURR BALANCE 03740110111 0ENTRY DATE 03750111606 8691 ENTRY DATE 03760113311 0CUR PAYOFF 037701145 9 9053 CUR PAYOFF 03780130114 0CURRENT CLIENT 03790133315 0PREVIALr8S $$ 0380014013010822 CURR CLIENT FIRM 0381014333012392 [QXX \122 00 10Q 01001000 101 3000004001000004 101 3000003001000003 101 3000002001000002 101 00 01000001 201 10B 01009000 201 00 01002000  3r= 002 ZIP 04200AL+rIS $$ 04210096004 1292 EXT 04220101305 805 *NEWS 00010THIS IS A TEST OF THE CYBERCREDIT SYSTEM'S NEWS FUNCTION FOR THE 00020INSTALLATION TEST KIT PROCEDURES. 00030__ 04260121630 1352 COSIGNER 2 NAME 04270125107 815 HOME 04280126010 2204 HOME PHONE 04290131302 811 04300131630 1652 HOME ADDRESS 04310135106 816 EXT 04320136004 2302 EXT 04330141302 812 04340141620 1952 CTY STATE 04350145106 817 BUS 04360146010 2344 BUS PHONE 04370151302 813 04380151605 2152 ZIP 04390155106 818 EX8  3rQT 04400156004 2442 EXT 04410161302 814 04420161601 1332 SAL CODE 04430180110 0COSIGNER 3 04440181302 819 04450181630 2502 COSIGNER 3 NAME 04460185107 824 HOME 04470186010 3354 HOME PHONE 04480191302 820 04490191630 2802 HOME ADDR 04500195106 825 EXT 04510196004 3452 EXT 045202013 2 821 04530201620 3102 CITY STATE 04540205106 826 BUS 04550206010 3494 BUS PHONE 04560211302 822 04570211605 3302 ZIP 04580215106 827 EXT 04590216004 3592 EXT 04600221302 823 04610221601 2482 SAL CD 04620230140 0ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC 04630234140 0TION,RESULT,LETTER REQUEST,COMMENT 04640END 0465031******************SELECTION SCREEN 04660114021 0A = AUTOMATIC 04670124016 0B, = NAME 04680134026 0N,<#> = ACCOUNT NUMBER 04690144025 0C, = COSIGNER NAME 04700154025 0P = PAYMENT ENTRY 04710164016 0E = EXIT 04720230122 0PLEASE ENTER SELECTION 04730END 0474036******************SELECTION SCREEN, ACCOUNT BUSY 04750114021 0A = AUTOMATIC 04760124016 0B, = NAME 04770134026 0N,<#> = ACCOUNT NUMBER 04780144025 0C, = COSIGNER NAME 04790154025 0P = PAYMENT ENTRY 04800164016 0E = EXIT 04810230162 0SELECTED ACCOUNT BUSY, TRY AGAIN LATER. PLEASE ENTER SELECTION 04820END 0483037******************SELECTION SCREEN, ACCOUNT NOT FOUND 04840114021 0A = AUTOMATIC 04850124016 0B, = NAME 04860134026 0N,<#> = ACCOUNT NUMBER 04870144025 0C, = COSIGNER NAME 04880154025 0P = PAYMENT ENTRY 04890164016 0E = EXIT 04900230150 0SELECTED ACCOUNT NOT FOUND, PLEASE ENTER SELECTION 04910END 0492039******************SELECTION SCREEN, ACCOUNT NOT FOUND COSIGNER SEARCH 04930114021 0A = AUTOMATIC 04940124016 0B, = NAME 04950134026 0N,<#> = ACCOUNT NUMBER 04960144025 0C, = COSIGNER NAME 04970154025 0P = PAYMENT ENTRY 04980164016 0E = EXIT 04990220113 0END OF SEARCH 05000221602 12 NUMBER OF BUSY ACCOUNTS 05010221922 0ACCOUNTS WERE BUSY AND 05020230150 0SELECTED ACCOUNT NOT FOUND, PLEASE ENTER SELECTION 05030END 0504038******************SELECTION SCREEN, ACCOUNT NOT IN ALLOWED QUEUE 05050114021 0A = AUTOMATIC 05060124016 0B, = NAME 05070134026 0N,<#> = ACCOUNT NUMBER 05080144025 0C, = COSIGNER NAME 05090154025 0P = PAYMENT ENTRY 05100164016 0E = EXIT 05110230164 0SELECTED ACCOUNT IN A QUEUE NOT ALLOWED FOR YOUR REVIEW. PLEASE 05120236515 0ENTER SELECTION 05130END 0514001******************END OF DAILY ASSIGNMENTS 05150111025 0END OF DAILY ASSIGNMENTS. 05160END 0517030******************LOGIN PROMPT SCREEN 05180190124 0CREDIT COLLECTION SYSTEM 05190200118 0LEGAL VERSION 3.0 05200210104 7 05210230125 0PLEASE ENTER COLLECTOR ID 05220END 0523065 ALGrtS $$ 05240230133 0INVALID SELECTION, PLEASE REENTER 05250END 100177 01000244912045670002 03061277111 000040170 000030353 01001355612345670001 02072377070 000016836 000010752 01069442912345670001 05050177153 000009450 000004950 01078796312345670001 02083077032 000011665 000009713 01106441912345670002 05060877115 000031900 000021100 01108131012345670001 02091277019 000011056 000000651 01295375712345670001 02051877136 000004279 000002168 01315933912345670001 03101877000 000017939 000009033 01370065312345670001 0204  3ry1677168 000013600 000007030 01473467812345670001 02082677036 000012716 000008452 01499076912345670001 05052877126 000021887 000014787 01648842212345670001 02102777000 000023164 000013354 01653605112345670004 02090177030 000082338 000071859 01737129712345670001 02063077093 000008320 000003827 01744345612345670001 02051977135 000004210 000002429 01747473812345670001 02082877034 000007403 000000752 01814064812345670001 02092377008 000005682 000003721 01828743212345670001 02100177000 000033690 000016843 01861267812345670001 02062877095 000004562 000003040 01893487612345670001 02042877156 000018860 000012491 01943848712345670001 02061277111 000020416 000013193 01970264912345670001 05072377070 000009812 000007412 02044146812345670001 02050177153 000000889 000000000 02072714812345670001 02083077032 000015018 000011567 02122625712345670001 02060877115 000012186 000006162 02149255912345670001 03091277019 000011341 000007464 02163231712345670001 02051877136 000000361 000000000 02309151012345670001 02101877000 000008222 000005418 02343848712345670001 02041677168 000000083 000000000 02350420712345670001 02082677036 000003768 000001895 02363415912345670001 03052877126 000017159 000009037 02365926212345670003 02102777000 000057603 000037736 02390238712345670001 02090177030 000010888 000007241 02394091912345670001 03063077093 000019777 000014123 02414657712345670001 02051977135 000007544 000000000 02416933912345670002 03082877034 000034768 000023043 02437195612345670001 02092377008 000007404 000003334 02482853912345670002 05100177000 000028173 000021273 02501744912345670001 03062877095 000004969 000002896 02502144912345670001 03042877156 000018431 000013580 02553503612345670001 02061277111 000005345 000003676 02630075612345670001 02072377070 000008775 000005921 02673175912345670001 05050177153 000012810 000008610 02700075912345670002 05083077032 000039247 000029647 02730833212345670001 02060877115 000015406 000000000 02769921912345670001 03091277019 000003883 000002584 02786345612345670001 02051877136 000016674 000012540 02822822912345670001 03101877000 000004319 000004275 02827985912345670001 03041677168 000009785 000006131 02829906912345670001 03082677036 000030987 000020993 02832195912345670001 03052877126 000000083 000000000 02871642912345670001 05102777000 000010513 000000413 02885714812345670001 02090177030 000014678 000009256 02921175712345670001 02063077093 000011003 000005856 03061772212345670003 04051977135 000055753 000036919 0308046431234567:  3r0001 02082877034 000000193 000000000 03114757712345670001 02092377008 000008128 000004122 03149079712345670001 02100177000 000001558 000000000 03328985612345670001 02062877095 000010407 000006301 03460131712345670001 02042877156 000001506 000000032 03497164812345670001 02061277111 000002454 000000478 03536933912345670001 03072377070 000003711 000001830 03540191012345670001 02050177153 000001391 000001374 03596666912345670001 05083077032 000019729 000013329 03680741912345670001 05060877115 000014640 000009840 03774755612345670001 02091277019 000005167 000003275 03780655612345670001 02051877136 000017056 000007779 03788644912345670001 03101877000 000016224 000008876 03789241212345670001 02041677168 000013537 000008313 03847151012345670001 02082677036 000005237 000005161 03962116612345670001 02052877126 000000068 000000000 03972886312345670001 02102777000 000004396 000002230 04015786312345670001 02090177030 000005231 000000311 04020131012345670001 02063077093 000009934 000005007 04170476712345670001 02051977135 000008227 000004335 04180742912345670001 05082877034 000024000 000012000 04280405812345670001 02092377008 000017405 000012737 04288075912345670001 05100177000 000022359 000016959 04312345612345670001 02062877095 000003705 000002215 04312948112345670004 02042877156 000074530 000062688 04343959812345670001 02061277111 000028900 000019155 04529241912345670001 05061877105 000026325 000018595 04571855612345670001 02050177153 000003642 000000000 04691231912345670001 03073077063 000005240 000002662 04760442912345670001 05050877146 000023485 000015785 04763367812345670001 02081277050 000006795 000003053 04790433912345670004 03041877166 000069876 000055226 04828255912345670001 03081877044 000008369 000005378 04886263912345670001 05041677168 000009244 000006340 04892018112345670001 02082677036 000006845 000000200 __ 06190230140 0INVALID RESULT, ENTER NEXT FUNCTION OR A 06200234135 0CTION,RESULT,LETTER REQUEST,COMMENT 06210END 0622047 06230230140 0INVALID RES, ENTER ITEM,CHANGE OR NEXT F 06240234139 0UNCTION OR ACTION,RESULT,LETTER,COMMENT 06250END 0626062 06270230130 0PLEASE ENTER NEXT CONTACT DATE 06280END 01653605112345670230915101234567026731759123456703149079712345670401578631234567  3r 01000244912045670100135561234567010694429123456701078796312345670110644191234567011081310123456701295375712345670131593391234567 0137006531234567 0147346781234567 0149907691234567 0164884221234567 01653605112345670173712971234567017443456123456701747473812345670181406481234567018287432123456701861267812345670189348761234567019438487123456701970264912345670204414681234567020727148123456702122625712345670214925591234567017371297123456701744345612345670174747381234567018140648123456701828743212345670186126781234567018934876123456701943848712345670197026491234567020441468123456702072714812345670212262571234567021492559123456702163231712345670230915101234567023438487123456702350420712345670236341591234567 0236592621234567!0239023871234567"0239409191234567#0241465771234567$0241693391234567%0243719561234567&0248285391234567'0250174491234567(0250214491234567)0255350361234567*023438487123456702350420712345670236341591234567 0236592621234567!0239023871234567"0239409191234567#0241465771234567$0241693391234567%0243719561234567&0248285391234567'0250174491234567(0250214491234567)0255350361234567*0263007561234567+0267317591234567,0270007591234567-0273083321234567.0276992191234567/027863456123456700282282291234567102827985912345672028299069123456730283219591234567402871642912345675028857148123456760292117571234567703061772212345678030804643123456790270007591234567-0273083321234567.0276992191234567/027863456123456700282282291234567102827985912345672028299069123456730283219591234567402871642912345675028857148123456760292117571234567703061772212345678030804643123456790311475771234567:0314907971234567;0332898561234567<0346013171234567=0349716481234567>0353693391234567?0354019101234567@0359666691234567A0368074191234567B0377475561234567C0378065561234567D0378864491234567E0378924121234567F0384715101234567G0396211661234567H0332898561234567<0346013171234567=0349716481234567>0353693391234567?0354019101234567@0359666691234567A0368074191234567B0377475561234567C0378065561234567D0378864491234567E0378924121234567F0384715101234567G0396211661234567H0397288631234567I0401578631234567J0402013101234567K0417047671234567L0418074291234567M0428040581234567N0428807591234567O0431234561234567P0431294811234567Q0434395981234567R0452924191234567S0457185561234567T0469123191234567U0476044291234567V0476336781234567W0402013101234567K0417047671234567L0418074291234567M0428040581234567N0428807591234567O0431234561234567P0431294811234567Q0434395981234567R0452924191234567S0457185561234567T0469123191234567U0476044291234567V0476336781234567W0479043391234567X0482825591234567Y0488626391234567Z0489201811234567[0428040581234567N0428807591234567O0431234561234567P0431294811234567Q0434395981234567R0452924191234567S0457185561234567T0469123191234567U0476044291234567V0476336781234567Wp  3r__TER ADDRESSEE CODE 06800END 0681082 06820230153 0INVALID ADDRESSEE CODE, PLEASE REENTER ADDRESSEE CODE 06830END 0684083 06850230124 0PLEASE ENTER LETTER DATE 06860END 0687084 06880230140 0INVALID DATE, PLEASE REENTER LETTER DATE 06890END 0690085 06910230126 0PLEASE ENTER LETTER AMOUNT 06920END 0693086 AL*rS $$ 0694023010601061 LETTER DATE 06950230901 0, 069600561326391234567073177RSEHUQUIEST,MARGAUT M APT 1234 4312 SOME ST. TOWN, ST. 543211231234567SAIAH COVEUTRY 234123567876230313 061977BCIM 20 CHECK WILL ARRIVE ON 6/21MOVES ALL THE TIME CALL AFTER 3PM ONLY 0500000000001863164 0577995391234567073177SPUCCI,ROBERT F ADDRESS LINE ONE CITY STATE LINE 098769873452354WOODHILL FLETCHER 7775551212345 0012111111111111073177A2R1 20 COMMENT 4 +22222222222222222222222222222222222222222073177A1R20120 COMMENT 4 +333333333333333333333333073177A2R1 20 COMMENT 4 +]44444444444444444444444073177A2R2 20 COMMENT 4 +555555555555555555555555555555073177A2R1 20 COMMENT 4 +6666666666666666666666666073177A2R1 20 COMMENT 4 +7777777777777777777777777777777PERMENANT COMMENT ONE PERMENANT COMMENT THREE 0500000000000026064 __ 07130154040 0S,<#> = CLIENT STATUS INQUIRY/UPDATE 07140174016 0E = EXIT 07150230122 0PLEASE ENTER SELECTION 07160END 0717092******************CLIENT FILE MAINTENANCE - CHANGE SCREEN 07180010108 0CLIENT # 0719001110400012 CLIENT NUMBER 07200012620 0CLIENT CHANGE SCREEN 07210040112 801,FIRM NAME 0722004203000052 FIRM NAME 07230060117 802,FIRM ADDRESS 1 0724006203000652 FIRM ADDRESS 1 07250080117 803,FIRM ADDRESS 2 0726008203000952 FIRM ADDRESS 2 07270100115 804,COX  3rNTACT NAME 0728010203000352 CONTACT NAME 07290120115 805,PHONE NUMBER 0730012201001254 PHONE NUMBER 07310140112 806,EXTENSION 0732014200401352 EXTENSION 07330160117 807,CURR COMM RATE 0734016200401452 CURRENT COMMISSION RATE 07350180117 808,PREV COMM RATE 0736018200401492 PREVIOUS COMMISSION RATE 07370230134 0ENTER CHANGE ITEM OR NEXT FUNCTION 07380END 0739008***************************** LEGAL AGENCY PAYMENT ENTRY SCREEN 07400022422 0PAYMENT ENTRY SCREEN # 07410024702 6312 07420050120 0ITEM ACCOUNT # 07430052813 0LEGAL# TYPE 07440054621 0DATE AMOUNT 07450060302 32 ITEM NUMBER -1 07460060916 52 ACCOUNT # -1 07470062904 212 LEGAL # -1 07480063802 252 TYPE -1 07490064406 271 DATE -1 07500065609 333 AMOUNT -1 07510066801 422 CREDIT SIGN -1 07520070302 452 ITEM NUMBER -2 07530070916 472 ACCOUNT # -2 07540072904 632 LEGAL # -2 07550073802 672 TYPE -2 07560074406 691 DATE -2 07570075609 753 AMOUNT -2 07580076801 842 CREDIT SIGN -2 07590080302 872 ITEM NUMBER -3 07600080916 892 ACCOUNT # -3 07610082904 1052 LEGAL # -3 07620083802 1092 TYPE -3 07630084406 1111 DATE -3 07640085609 1173 AMOUNT -3 07650086801 1262 CREDIT SIGN -3 07660090302 1292 ITEM NUMBER -4 07670090916 1312 ACCOUNT # -4 07680092904 1472 LEGAL # -4 07690093802 1512 TYPE -4 07700094406 1531 DATE -4 07710095609 1593 AMOUNT -4 07720096801 1682 CREDIT SIGN -4 07730100302 1712 ITEM NUMBER -5 07740100916 1732 ACCOUNT # -5 07750102904 1892  3r LEGAL # -5 07760103802 1932 TYPE -5 07770104406 1951 DATE -5 07780105609 2013 AMOUNT -5 07790106801 2102 CREDIT SIGN -5 0780005613263912345670577995391234567AL rS $$ 07950130916 2992 ACCOUNT # -8 07960132904 3152 LEGAL # -8 0561326391234567073177 0577995391234567073177 __ AMOUNT -8 08000136801 3362 CREDIT SIGN -8 08010140302 3392 ITEM NUMBER -9 08020140916 3412 ACCOUNT # -9 08030142904 3572 LEGAL # -9 0804005613263912345670577995391234567ALrS $$ 08190164406 4471 DATE -11 08200165609 4533 AMOUNT -11 SRA1A2A3A4******************************************************BZPPR1R2R3R4 **************************************************%  3rA@ 08250173802 4872 TYPE ALRrS $$ 08260174406 4891 DATE -12 08270175609 4953 AMOUNT -12 08280HDR1LEGAL AND AGENCY SYSTEM HDR2VERSION 3.0 HDR3SYSTEM VERIFICATION RSW1R010,S015,W005 ACTCA1A2A3A4SR****************************************************** RESC BZPPR1R2R3R4************************************************** SALCMR MS MISS MRS DALT005 LTRF0COLLECTION DEPT SMTHR006,S006,W006 TMTH012 UPDY015 OLPMRL06,P02,C31,NAN RPTG LRP001 0002COLLECTOR2 100030002,ALL 0003SUPERVISOR1 2 0003,ALL 0004CLERICAL1 0004,ALL 0001COLLECTOR1 1000300010002,ALL LTR101020304** LTR2 LACLLA,AA,00 LAC1ATTORNEY COLLECTION FIRM LAC2COLLECTION AGENCY LAC3IN-HOUSE COLLECTIONS LAC4 LAC5 __04 12 08550060804 0TYPE 08560062104 0TYPE 08570066005 0TOTAL 08580070920 0NO. TRANSACTION 08590076006 0AMOUNT 08600091014 001 DIRECT 08610094818 52 08620111016 002 INDIRECT 08630114818 232 08640131035 003 NON-RECOVERABLE COURT COSTS 08650134818 412 08660151031 004 RECOVERABLE COURT COSTS 08670154818 592 08680171012 005 FEES 08690174818 772 08700200140 0ENTER TO ACCEPT DATA-UPDATE RECORDS 08710210133 0  3s TO REVIEW TRANSACTIONS 08720220137 0 TO ABORT ROUTINE-NO UPDATE 08730END 0874067****** L/A COMPOSITE OF MESSAGE SCREENS 08750230174 12*THE ACTUAL MESSAGE IS PASSED FROM THE CALLING PROGRAM 08760END 0877095******************CLIENT FILE MAINTENANCE - NEW RECORD MESSAGE 08780210122 0***** NEW CLIENT ***** 08790230154 0ENTER FUNCTION OR TO CONTINUE (CREATE NEW RECORD) 08800END 0881096******************CLIENT FILE MAINTENANCE - RECORD BUSY MESSAGE 08820012423 0CLIENT SELECTION SCREEN 08830114523 0A, = CLIENT NAME 08840134525 0N,<#> = CLIENT NUMBER 08850154516 0E = EXIT 08860230162 0SELECTED ACCOUNT BUSY, TRY AGAIN LATER. PLEASE ENTER SELECTION 08870END 0888097******************CLIENT FILE MAINTENANCE - ACTIVE STATUS SCREEN 08890180112 0L/A CLIENT # 0890018150400012 CLIENT NUMBER 08910200136 0CURRENT CLIENT STATUS IS * ACTIVE * 08920230154 0ENTER NEW STATUS OR TO RETURN TO SELECTION SCREEN 08930END 0894098******************CLIENT FILE MAINTENANCE - INACTIVE STATUS SCREEN 08950180112 0L/A CLIENT # 0896018150400012 CLIENT NUMBER 08970200138 0CURRENT CLIENT STATUS IS * INACTIVE * 08980230154 0ENTER NEW STATUS OR TO RETURN TO SELECTION SCREEN 08990END 0900099******************CLIENT FILE MAINTENANCE - INACTIVE CLIENT MESSAGE 09010210134 0*** *** IS AN INACTIVE CLIENT 0902021050400012 CLIENT NUMBER 09030230151 0ENTER FUNCTION OR TO CONTINUE TO CHANGE SCREEN 09040END 09050END 09060END 09070__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm:S  3smmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL^s%S $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 00 CCS20 00 LA 00 01 NEWS 02 NEWS 03 NEWS 04 NEWS 05 NEWS 06 NEWS 07 NEWS 08 NEWS 09 NEWS 10 NEWS 11 NEWS 12 NEWS 13 NEWS 14 NEWS 15 NEWS 16 NEWS 17 NEWS 18 NEWS 19 NEWS 20 NEWS 21 NEWS 22 NEWS 23 NEWS 24 NEWS 25 NEWS 26 NEWS 27 NEWS 28 NEWS 29 NEWS 30 NEWS 31 NEWS 32 NEWS 33 NEWS 34 NEWS 35 NEWS 36 NEWS 37 NEWS 38 NEWS 39 NEWS 40 NEWS 41 NEWS 42 NEWS 43 NEWS 44 NEWS 45 NEWS 46 NEWS 47 NEWS 48 NEWS 49 NEWS 50 NEWS 51 NEWS 52 NEWS 53 NEWS 54 NEWS 55 NEWS 56 NEWS 57 NEWS 58 NEWS 59 NEWS 60 NEWS 61 NEWS 62 NEWS 63 NEWS 64 NEWS @  3s- 65 NEWS 66 NEWS 67 NEWS 68 NEWS 69 NEWS 70 NEWS 71 NEWS 72 NEWS 73 NEWS 74 NEWS 75 NEWS 76 NEWS 77 NEWS 78 NEWS 79 NEWS 80 NEWS 81 NEWS 82 NEWS 83 NEWS 84 NEWS LA 01 NEWS LA 02 NEWS LA 03 NEWS LA 04 NEWS LA 05 NEWS LA 06 NEWS LA 07 NEWS LA 08 NEWS LA 09 NEWS LA 10 NEWS LA 11 NEWS LA 12 NEWS LA 13 NEWS LA 14 NEWS LA 15 NEWS LA 16 NEWS LA 17 NEWS LA 18 NEWS LA 19 NEWS LA 20 NEWS LA 21 NEWS LA 22 NEWS LA 23 NEWS LA 24 NEWS LA 25 NEWS LA 26 NEWS LA 27 NEWS LA 28 NEWS LA 0001000200030004ACTCDALTHDR1HDR2HDR3LAC1LAC2LAC3LAC4LAC5LACLLTR1LTR2LTRF OLPM RESCRPTGRSW1SALCSMTH TMTH UPDY __mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmA  3sAmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALsDS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmJ@GG K102 00 10 01000003103 00 00 3000010101000002103 00 00 3000000001000001 101 00 01000004 62A 63B 64C 65D 66E  3sUAL sUS CCS20 69H 70I 71J 72K 73L 74M 75N 76O 77P 78QCCS20 00LA 00*JOB,, INSTALL UPDATE CCS3.0-5 SYSTEM 11/03/82 00010*K,L14 00020*CTO, INSTALLING UPDATE FROM B.UPDATE, CCS20 FILE /CCS3.0-5 SYS 00030*OPEN,FN=B.UPDATE,OW=CCS20,LU=21,R 00040*REW,21 00050*K,L14 00060*LIBEDT 00070*K,I21,P8 00080*P,F,2 00090*K,I8 00100*N,UPDATE,,,B 00110*Z 00120*K,I13 00130*CLOSE 00140*CTO, PROGRAM UPDATE HAS BEEN INSTALLED 00150*CTO, 00160*CTO, 00170*CTO, INSTALL C O M P L E T E !!! 00180*Z 00190_ LA 55LA 56LA 57ALs_S LA LA 40LA 41LA 42LA 43LA 44LA 45LA 46LA 47LA 48LA 49LA 50LA 51*JOB,, INSTALL LUPDAT CCS3.0-5 SYSTEM 03/17/83 00010*K,L14 00020*CTO, INSTALLING LUPDAT FROM B.LUPDAT, LA FILE /CCS3.0-4 SYS 00030*OPEN,FN=B.LUPDAT,OW=LA,LU=21,R 00040*REW,21 00050*K,L14 00060*LIBEDT 00070*K,I21,P8 00080*P,F,2 00090*K,I8 00100*N,LUPDAT,,,B 00110*Z 00120*K,I13 00130*CLOSE 00140*CTO, PROGRAM LUPDAT HAS BEEN INSTALLED 00150*CTO, 00160*CTO, 00170*CTO, INSTALL C O M P L E T E !!! 00180*Z 00190_ H  3si mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALsmS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 00 CCS20 00 LA 00 01 NEWS 02 NEWS 03 NEWS 04 NEWS 05 NEWS 06 NEWS 07 NEWS 08 NEWS 09 NEWS 10 NEWS 11 NEWS 12 NEWS 13 NEWS 14 NEWS 15 NEWS 16 NEWS 17 NEWS 18 NEWS 19 NEWS 20 NEWS 21 NEWS 22 NEWS 23 NEWS 24 NEWS 25 NEWS 26 NEWS 27 NEWS 28 NEWS 29 NEWS 30 NEWS 31 NEWS 32 NEWS 33 NEWS 34 NEWS 35 NEWS 36 NEWS 37 NEWS 38 NEWS 39 NEWS 40 NEWS 41 NEWS 42 NEWS 43 NEWS 44 NEWS 45 NEWS 46 NEWS 47 NEWS 48 NEWS 49 NEWS 50 NEWS 51 NEWS 52 NEWS 53 NEWS 54 NEWS 55 NEWS 56 NEWS LA 01 NEWS LA 02 NEWS LA 03 NEWS LA 04 NEWS LA 05 NEWS LA 06 NEWS LA 07 NEWS LA 08 NEWS LA 09 NEWS LA 10 NEWS LA 11 NEWS LA 12 NEWS LA 13 NEWS LA 14 NEWS LA 15 NEWS LA 16 NEWS LA 17 NEWS LA 18 NEWS LA 19 NEWS LA 20 NEWS LA 21 NEWS LA 22 NEWS LA 23 NEWS LA 24 NEWS LA 25 NEWS LA 26 NEWS LA 27 NEWS LA 28 NEWS LA 29 NEWS LA 30 NEWS LA 31 NEWS LA 32 NEWS LA 33 NEWS LA 34 NEWS LA 35 NEWS LA 36 NEWS LA 37 NEWS LA 38 NEWS LA 39 NEWS LA 40 NEWS LA 41 NEWS LA 42 NEWS LA 43 NEWS LA 44 NEWS LA 45 NEWS LA 46 NEWS LA 47 NEWS LA 48 NEWS LA 49 NEWS LA 50 NEWS LA 51 NEWS LA 52 NEWS LA 53 NEWS LA 54 NEWS LA 55 NEWS LA 56 NEWS CCS149 00 SPECIAL 00 LIBRARY 00 __ X0300030REQUESTED COMMAND IS NOT LEGAL X0300031ILLEGAL COMMAND FORMAT X0300032FILE REQUEST REJECTED X0300033FILE COULD NOT BE LOCATED X0300034MM I/O ERROR WAS NOTED X0300035DISK UNIT SPECIFIED ALREADY MOUNTED X0300036  3s}FILE REQUEST ILLEGAL X0300037FILE IS CURRENTLY OPEN X0300038MISSING PARAMETER X0300039ILLEGAL GETFLD STATUS X0300040VIT COULD NOT BE FOUND X0300041FILE IS CURRENTLY LOCKED X0300042INTERNAL FM ERROR X0300043MAX. NO OF OPEN FILES FOR A SINGLE USER X0300044MAX. NO OF OPEN FILES, RETRY X0300045EQUIPMENT TYPE NOT FOUND X0300046VOLUME NOT ON SPECIFIED DISK UNIT X0300047VOLUME WAS ALREADY MOUNTED X0300048THIS VOLUME IS DISMOUNTED X0300049MOUNTED VOLUME HAS OPEN FILES X0300050WRONG VOLUME MOUNTED ALsS $$ X0300051PARAMETER ENTRY ERROR X0300052VOLUME HAS OPEN FILES, NOT DISMOUNTED ERROR - PROGRAM PROTECT VIOLATION AT LOCATION $$$$ X0300001ERROR - ILLEGAL PROGRAM ATTACHMENT AT LOCATION $$$$ X0300002ERROR - ILLEGAL FILE MANAGER REQUEST AT LOCATION $$$$ X0300003ERROR - ILLEGAL FILE REQUEST PARAMETER AT LOCATION $$$$ X0300004ERROR - ILLEGAL MONITOR REQUEST AT LOCATION $$$$ X0300005ERROR - ILLEGAL REQUEST PARAMETER AT LOCATION $$$$ X0300006ERROR - ILLEGAL I/O REQUEST LOGICAL UNIT AT LOCATION $$$$ X0300007ERROR - ATTEMPT TO PERFORM STACKED I/O REQUESTS AT LOCATION $$$$ X0300008NOTICE - THE CCS SYSTEM HAS BEEN DISABLED. X0300009A MASS MEMORY I/O ERROR HAS OCCURRED. PROGRAM TERMINATED. X0300010ERROR - ATTEMPT TO MODIFY THE FILE REQUEST BUFFER AT LOCATION $$$$ X0300011PROGRAM ABORTED X0300012@@@ ## ## ##:##:## X0300013C C S LOG OFF ##:##:## X0300014@@ IS INVALID X0300015ILLEGAL LOG IN X0300016REQUEST @@@@@@@@ CANNOT BE FOUND X0300017ERROR - @@@@@@@@ IS TOO LARGE TO BE EXECUTED X0300018ERROR STATUS $$$$ DURING OPEN OF FILE @@@@@@@@@@@@@@@@ X0300019ERROR STATUS $$$$ DURING CLOSE OF FILE @@@@@@@@@@@@@@@@ X0300020ERROR STATUS $$$$ DURING READR OF FILE @@@@@@@@@@@@@@@@ X0300021ERROR STATUS $$$$ DURING GETS OF FILE @@@@@@@@@@@@@@@@ X0300022ERROR STATUS $$$$ DURING FORCE FILE CLOSE X0300023PROCEDURE @@@@@@@@ CANNOT BE FOUND X0300024SYSTEM MESSAGE 0025 X0300025SYSTEM MESSAGE 0026 X0300026SYSTEM MESSAGE 0027 X0300027SYSTEM MESSAGE 0028 X0300028SYSTEM MESSAGE 0029 X0300029REQUESTED UTILITY PROCESSOR NOT FOUND X0300030REQUESTED COMMAND IS NOT LEGAL X0300031ILLEGAL COMMAND r  3sFORMAT X0300032FILE REQUEST REJECTED X0300033FILE COULD NOT BE LOCATED X0300034MM I/O ERROR WAS NOTED X0300035DISK UNIT SPECIFIED ALREADY MOUNTED X0300036FILE REQUEST ILLEGAL X0300037FILE IS CURRENTLY OPEN X0300038MISSING PARAMETER X0300039ILLEGAL GETFLD STATUS X0300040VIT COULD NOT BE FOUND X0300041FILE IS CURRENTLY LOCKED X0300042INTERNAL FM ERROR X0300043MAX. NO OF OPEN FILES FOR A SINGLE USER X0300044MAX. NO OF OPEN FILES, RETRY X0300045EQUIPMENT TYPE NOT FOUND X0300046VOLUME NOT ON SPECIFIED DISK UNIT X0300047VOLUME WAS ALREADY MOUNTED X0300048THIS VOLUME IS DISMOUNTED X0300049MOUNTED VOLUME HAS OPEN FILES X0300050WRONG VOLUME MOUNTED X0300051PARAMETER ENTRY ERROR X0300052VOLUME HAS OPEN FILES, NOT DISMOUNTED X0300053NO KEY ENTERED FOR INDEXED FILES X0300054INSUFFICIENT MM FILE SPACE X0300055INSUFFICIENT FID SPACE FOR FILES X0300056FILE NAME/OWNER NOT UNIQUE X0300057FCB INDEX OUT OF RANGE X0300058FILE REQUEST BUFFER NOT INITIALIZED X0300059UNDEFINED FM STATUS ERROR X0300060FILE HAS A SET OF LOCKED RECORDS X0300061DIRECT FILE RECORD LENGTH EXCEEDS 256 WORDS X0300062INVALID SYSTEM PERIPHERAL NAME X0300063RECORD LENGTH TOO LARGE FOR THIS COMMAND X0300064RECORD LENGTH NOT EQUAL X0300065FILE TYPE NOT EQUAL X0300066PRIMARY KEY NOT UNIQUE X0300067WRONG KEY VALUE X0300068ILLEGAL PARAMETER RECEIVED X0300069INTERNAL UTILITY ERROR X0300070ERROR IN COMPUTING MM WORD ADDR X0300071FILE FORMERLY OPENED FOR COMPRESSION X0300072VOLUME 2 MAY NOT BE MOUNTED X0300073CLASS CODE IS NOT A DISK X0300074THIS COMMAND IS ONLY ALLOWED IF ITOS IS DISABLED X0300075THIS IS A SUPERVISOR COMMAND ONLY X0300076RECORD LOCK-TABLE IS CURRENTLY FULL X0300077RECORD IS LOCKED BY ANOTHER USER X0300078FILE REQUEST BUFFER NOT PROPERLY INITIALIZED X0300079FILE SPECIFIED S1  3sHOULD BE A DIRECT FILE X0300080TAPE RECORD EXCEEDS INTERNAL BUFFER SIZE X0300081INDEX TOO BIG FOR UTILITY ORDERED LOAD X0300082OUT OF ORDER PRIMARY KEY X0300083SYSTEM MESSAGE 0084 FMUTIL ERROR 84 X0300084SYSTEM MESSAGE 0085 FMUTIL ERROR 85 X0300085DISK DRIVE/DISK PACK NOT COMPATIBLE X0300086SYSTEM MESSAGE 0087 X0300087SYSTEM MESSAGE 0088 X0300088SYSTEM MESSAGE 0089 X0300089SYSTEM MESSAGE 0090 X0300090SUBRCM CALL ERROR - ILLEGAL REQUEST TYPE X0300091SUBRCM CALL ERROR - X COORDINATE LESS THAN ZERO X0300092SUBRCM CALL ERROR - X COORDINATE GREATER THAN 79 X0300093SUBRCM CALL ERROR - Y COORDINATE LESS THAN ZERO X0300094SUBRCM CALL ERROR - Y COORDINATE GREATER THAN 23 X0300095SUBRCM CALL ERROR - BUFFER LENGTH LESS THAN 1 X0300096SUBRCM CALL ERROR - BUFFER LENGTH GREATER THAN 80 X0300097SUBRCM CALL ERROR - ILLEGAL 'DTYPE' X0300098SYSTEM MESSAGE 0099 X0300099SYSTEM MESSAGE 0100 X0300100RPG ERROR 001D @@@@@@@@ FILE IS ALREADY OPENED X0300101RPG ERROR 002D @@@@@@@@ TRIED TO PROCESS FILE IN WRONG MODE X0300102RPG ERROR 003D @@@@@@@@ SPECIFIED RECORD LENGTH INCORRECT X0300103RPG ERROR 004D @@@@@@@@ FILE NOT DEFINED IN DIRECTORY X0300104RPG ERROR 005D @@@@@@@@ AN ADD FILE FOR SEQ PROC MUST BE DEF AS OUTPT X0300105RPG ERROR 006D @@@@@@@@ ADD/LOAD SEQUENTIALLY NOT FOR DIRECT DEF FILE X0300106RPG ERROR 007D @@@@@@@@ FILE DEFINITION IS WRONG FOR SEQ. PROC. X0300107RPG ERROR 008D @@@@@@@@ RECORD LENGTH NOT COMPATIBLE WITH THE DIRECTORY X0300108RPG ERROR 009D @@@@@@@@ FILE MGR. DID NOT HANDLE DIR REQ STAT $$$$ X0300109RPG ERROR 010D @@@@@@@@ TRIED TO ACCESS AN UNOPENED FILE X0300110RPG ERROR 011D @@@@@@@@ READ 09 FOUND FILE TO BE NON UNIT-RECORD DEFINEDX0300111RPG ERROR 012D @@@@@@@@ RECORD ######## WAS SHORT-PADDED WITH BLANKS X0300112RPG ERROR 013D @@@@@@@@ READ 12 FOUND FILE DEFINED AS A NON-DISK FILE X0300113RPG ERROR 014D @@@@@@@@ RECORD ######## WAS TO LONG-RECORD TRUNCATED X0300114RPG ERROR 015D @@@@@@@@ WRIT17 FND FILE DEF AS NON-UNIT REC FILE X0300115RPG ERROR 016D @@@@@@@@ WRIT20 FND FILE DEF AS NON DISK SEQ FILE X0300116RPG ERROR 017D @@@@@@@@ UPDT26 FND FILE DEF AS NON DISK SEQ FILE X0300117RPG ERROR 018D @@@@@@@@ MULTIPLE UPDATES W/O READ IN BETWEEN INVALID X0300118RPG ERROR 019D @@@@@@@@ APDT30 FOUND FILE DEFINED AS A NON DISK-SEQ FILEX0300119RPG ERROR 020D @@@@@@@@ CLOS35 FOUND FILE DEFI AS NON UNIT REC FILE X0300120RPG ERROR 021D @@@@@@@@ CLOS38 FOUND FILE DEFINED AS A NON DISK-SEQ FILEX0300121RPG ERROR 022D @@@@@@@@ MASS STORAGE ERROR X0300122RPG ERROR 023D @@@@@@@@ FILE MGR DID NOT HANDLE FILE REQUEST $$$$ X0300123RPG ERROR 024D @@@@@@@@ END OF TAPE ENCOUNTERED X0300124RPG ERROR 025D @@@@@@@@ INPUT DEVICE FAILURE X0300125RPG ERROR 026D @@@@@@@@ OUTPUT DEVICE FAILURE X0300126RPG ERROR 027D @@@@@@@@ SHARED BUFFERS NOT ALLOWED FOR TAPE FILES X0300127RPG ERROR 028D @Ή  3s@@@@@@@ BLOCK SIZE MUST BE INTEGER MULTIPLE OF REC SIZE X0300128RPG ERROR 029D @@@@@@@@ READ 11 FOUND FILE NOT DEFINED AS TAPE X0300129RPG ERROR 030D @@@@@@@@ WRIT19 FOUND FILE NOT DEFINED AS TAPE X0300130RPG ERROR 031D @@@@@@@@ CLOS 37 FOUND FILE NOT DEFINED AS TAPE X0300131RPG ERROR 032D @@@@@@@@ DATA OVERFLOW - NO MORE TAPE VOLUMES DECLARED X0300132RPG ERROR 033D @@@@@@@@ ADDING RECORDS IS NOT ALLOWED IN DIRECT PROC. X0300133RPG ERROR 034D @@@@@@@@ OUTPT FILE FOR DIRCT PROC MUST BE DEF DIR X0300134RPG ERROR 035D @@@@@@@@ DIRECT PROC. ON INDEXED FILE ALLOWD ONLY FOR INPX0300135RPG ERROR 036D @@@@@@@@ FILE DEFINITION IS WRONG FOR DIRECT PROC. X0300136RPG ERROR 037D @@@@@@@@ READ13 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300137RPG ERROR 038D @@@@@@@@ WRIT21 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300138RPG ERROR 039D @@@@@@@@ UPDT27 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300139RPG ERROR 040D @@@@@@@@ CLOS39 FOUND FILE DEFI AS NON DISK DIRECT FILE X0300140RPG ERROR 041D @@@@@@@@ RECORD NUMBER ######## OUT OF RANGE X0300141RPG ERROR 042D @@@@@@@@ DOUBLE BUFFERING NOT ALLOWED FOR INDEX FILE X0300142RPG ERROR 043D @@@@@@@@ INDEX PROC. IS ALLOWED ONLY FOR INDEX-DEF FILES X0300143RPG ERROR 044D @@@@@@@@ KEY LENGTH/POSITION NOT COMPATIBLE WITH DIRECTORX0300144RPG ERROR 045D @@@@@@@@ OPEN 05 WAS CALLED FOR NON-RANDOM PROCESSING X0300145RPG ERROR 046D @@@@@@@@ READ15 FOUND FILE DEFINED AS A NON INDEX FILE X0300146RPG ERROR 047D @@@@@@@@ WRIT23 FOUND FILE DEFINED AS A NON INDEX FILE X0300147RPG ERROR 048D @@@@@@@@ ADDT32 FOUND FILE DEFINED AS A NON INDEX FILE X0300148RPG ERROR 049D @@@@@@@@ CLOS41 FOUND FILE DEFINED AS A NON INDEX FILE X0300149RPG ERROR 050D @@@@@@@@ UPDT29 FOUND FILE DEFINED AS A NON INDEX FILE X0300150RPG ERROR 051D @@@@@@@@ THE KEY IN RECORD ######## MODIFIED BY UPDATE X0300151RPG ERROR 052D @@@@@@@@ CLOS40 FOUND FILE DEFINED AS A NON INDEX FILE X0300152RPG ERROR 053D @@@@@@@@ READ19 FOUND FILE DEFINED AS A NON INDEX FILE X0300153RPG ERROR 054D @@@@@@@@ WRIT22 FOUND FILE DEFINED AS A NON INDEX FILE X0300154RPG ERROR 055D @@@@@@@@ UPDT28 FOUND FILE DEFINED AS A NON INDEX FILE X0300155RPG ERROR 056D @@@@@@@@ ADDT31 FOUND FILE DEFINED AS A NON INDEX FILE X0300156RPG ERROR 057D @@@@@@@@ SETL33 FOUND FILE DEFINED AS A NON INDEX SEQ FILX0300157RPG ERROR 058D @@@@@@@@ RECORD ######## OUT OF ORDER X0300158RPG ERROR 059D @@@@@@@@ SETL33 SET LOWER LIMIT NOT ALLOWED FOR ADD FILESX0300159RPG ERROR 060D @@@@@@@@ KEY OF RECORD ######## ALREADY EXISTS X0300160RPG ERROR 061D @@@@@@@@ SEQ. PROC. FOR INDEX-DEFINED FILE ONLY FOR INPUTX0300161RPG ERROR 062D @@@@@@@@ UNABLE TO SORT THE KEYS X0300162RPG ERROR 063D @@@@@@@@ SLCT34 CALL STACKER SELECT IS NOT SUPPORTED X0300163RPG ERROR 064D @@@@@@@@ ERROR CODE IN BUFFER IS WRONG FOR TAPE X0300164RPG ERROR 065D @@@@@@@@ NO VOL1 LABEL ON SL TAPE X0300165RPG ERROR 066D @@@@@@@@ WRONG DATA SET NAME X0300166RPG ERROR 067D @@@@@@@@ TAPE VOLUMES MOUNTED IN WRONG ORDER X0300167RPG ERROR 068D @@@@@@@@ TAPE FILE NOT DEFINED BY MOUNT UTILITY X0300168RPG ERROR 069D @@@@@@@@ WRONG VOLUME SERIAL NUMBER X0300169RPG ERROR 070D @@@@@@@@ INVALID EXPIRATION DATE X0300170RPG ERROR 071D @@@@@@@@ FILE MANAGER ERROR IN READING MOUNT FILE X0300171RPG ERROR 072D @@@@@@@@ UNEXPIRED DATE SET X0300172RPG ERROR 073D @@@@@@@@ NOT USED X0300173RPG ERROR 074D @@@@@@@@ COMBINED FILES NOT SUPPORTED X0300174RPG ERROR 075D @@@@@@@@ OPEN02 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300175RPG ERROR 076D @  3s@@@@@@@ WRONG BUFFER SIZE CAN NOT BE USED FOR FIXED BLK X0300176RPG ERROR 077D @@@@@@@@ BLOCKING IS IMPOSSIBLE FOR SHARED BUFFERS X0300177RPG ERROR 078D @@@@@@@@ ERROR RETURN FROM SPEC. DEV DRVR, STAT= $$$$ X0300178RPG ERROR 079D @@@@@@@@ READ 10 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300179RPG ERROR 080D @@@@@@@@ UPDT25 FOUND FILE DEF AS NON SPECIAL DEV FILE X0300180RPG ERROR 081D @@@@@@@@ RECORD ######## WAS TOO LONG - RECORD IGNORED X0300181RPG ERROR 082D @@@@@@@@ CLOS36 FOUND FILE DE AS NON SPECIAL DEV FILE X0300182RPG ERROR 083D @@@@@@@@ WRIT 18 REQUIRES FILES DEFI. AS SPECIAL DEVICE X0300183RPG ERROR 084D @@@@@@@@ NOT USED X0300184RPG ERROR 085D @@@@@@@@ NOT USED X0300185RPG ERROR 086D @@@@@@@@ NOT USED X0300186RPG ERROR 087D @@@@@@@@ NOT USED X0300187RPG ERROR 088D @@@@@@@@ NOT USED X0300188RPG ERROR 089D @@@@@@@@ NOT USED X0300189RPG ERROR 090D @@@@@@@@ NOT USED X0300190RPG ERROR 091D @@@@@@@@ NOT USED X0300191RPG ERROR 092D @@@@@@@@ NOT USED X0300192RPG ERROR 093D @@@@@@@@ NOT USED X0300193RPG ERROR 094D @@@@@@@@ NOT USED X0300194RPG ERROR 095D @@@@@@@@ NOT USED X0300195RPG ERROR 096D @@@@@@@@ NOT USED X0300196RPG ERROR 097D @@@@@@@@ NOT USED X0300197RPG ERROR 098D @@@@@@@@ NOT USED X0300198RPG ERROR 099D @@@@@@@@ ERROR AT LOCATION = $$$$ X0300199RPG ERROR 100D @@@@@@@@ NOT USED X0300200RPG ERROR 101R @@@@@@@@ HALT INDICATOR H1 IS ON X0300201RPG ERROR 102R @@@@@@@@ HALT INDICATOR H2 IS ON X0300202RPG ERROR 103R @@@@@@@@ HALT INDICATOR H3 IS ON X0300203RPG ERROR 104R @@@@@@@@ HALT INDICATOR H4 IS ON X0300204RPG ERROR 105R @@@@@@@@ HALT INDICATOR H5 IS ON X0300205RPG ERROR 106R @@@@@@@@ HALT INDICATOR H6 IS ON X0300206RPG ERROR 107R @@@@@@@@ HALT INDICATOR H7 IS ON X0300207RPG ERROR 108R @@@@@@@@ HALT INDICATOR H8 IS ON X0300208RPG ERROR 109R @@@@@@@@ HALT INDICATOR H9 IS ON X0300209RPG ERROR 110R @@@@@@@@ NO PRIMARY OR SECONDARY FILES ARE OPENED X0300210RPG ERROR 111R @@@@@@@@ SQUARE ROOT OF NEGATIVE NUMBER X0300211RPG ERROR 112R @@@@@@@@ NOT USED X0300212RPG ERROR 113R @@@@@@@@ DIVISION BY ZERO X0300213RPG ERROR 114R @@@@@@@@ ARRAY INDEX OUT OF RANGE X0300214RPG ERROR 115R @@@@@@@@ INPUT TABLE OR ARRAY OUT OF SEQUENCE X0300215RPG ERROR 116R @@@@@@@@ NO TABLE OR ARRAY DATA IN FILE X0300216RPG ERROR 117R @@@@@@@@ TOO MUCH DATA FOR TABLE OR ARRAY X0300217RPG ERROR 118R @@@@@@@@ SUBROUTINE RETURN STACK IS FULL X0300218RPG ERROR 119R @@@@@@@@ SUBROUTINE RETURN WITHOUT PREVIOUS EXSR X0300219RPG ERROR 120R @@@@@@@@ END OF FILE FOR DEMAND FILE X0300220RPG ERROR 121R @@@@@@@@ RECORD NOT FOUND, KEY NOT IN INDEX FILE X0300221RPG ERROR 122R @@@@@@@@ RELATIVE RECORD NUMBER OUT OF RANGE X0300222RPG ERROR 123R @@@@@@@@ RECORD IS OUT OF SEQUENCE X0300223RPG ERROR 124R @4w  3s@@@@@@@ FILE OUT OF MATCHING RECORD SEQUENCE X0300224RPG ERROR 125R @@@@@@@@ UNIDENTIFIED RECORD IN FILE X0300225RPG ERROR 126R @@@@@@@@ TOO MUCH DATA FOR RECORD X0300226RPG ERROR 127R @@@@@@@@ NOT USED X0300227RPG ERROR 128R @@@@@@@@ NOT USED X0300228RPG ERROR 129R @@@@@@@@ NOT USED X0300229RPG ERROR 130R @@@@@@@@ ATTEMPT TO OUTPUT TO FULL FILE X0300230RPG ERROR 131R @@@@@@@@ DIRECT ACCESS RECORD NO. OUT OF RANGE X0300231RPG ERROR 132R @@@@@@@@ ATTEMPT TO UPDATE FILE BEFORE INPUT X0300232RPG ERROR 133R @@@@@@@@ RECORD NOT FOUND WITH SPECIFIED KEY X0300233RPG ERROR 134R @@@@@@@@ DUPLICATE KEY FOR OUTPUT TO FILE X0300234RPG ERROR 135R @@@@@@@@ DATA TRANSFER FAILED, CHECK DEVICE OR FILE X0300235RPG ERROR 136R @@@@@@@@ FILE IS NOT PRESENT X0300236RPG ERROR 137R @@@@@@@@ FILE DOES NOT CORRESPOND TO DMPT DESCRIPTION X0300237RPG ERROR 138R @@@@@@@@ KEY MODIFIED BY UPDATE X0300238RPG ERROR 139R @@@@@@@@ KEY OUT OF ORDER X0300239RPG ERROR 140R UNABLE TO CONTINUE DUE TO PREVIOUS ERROR X0300240RPG ERROR 141R @@@@@@@@ ILLEGAL FILE TYPE FOR SETLL X0300241RPG ERROR 142R WRONG PROCESSOR SELECTED. RUN SELMU, SELECTING OPTION 1X0300242RPG ERROR 143R INTERNAL RPG RUNTIME ERROR IN R9MVBX X0300243RPG ERROR 144R @@@@@@@@ NOT USED X0300244RPG ERROR 145R @@@@@@@@ NOT USED X0300245RPG ERROR 146R @@@@@@@@ NOT USED X0300246RPG ERROR 147R @@@@@@@@ NOT USED X0300247RPG ERROR 148R @@@@@@@@ NOT USED X0300248RPG ERROR 149R @@@@@@@@ NOT USED X0300249RPG ERROR 150R @@@@@@@@ ALL HALT INDICATORS HAVE BEEN DISPLAYED X0300250RPG ERROR 151R @@@@@@@@ NOT USED X0300251RPG ERROR 152R @@@@@@@@ NOT USED X0300252RPG ERROR 153R @@@@@@@@ NOT USED X0300253RPG ERROR 154R @@@@@@@@ NOT USED X0300254RPG ERROR 155R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRFL X0300255RPG ERROR 156R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRAJ X0300256RPG ERROR 157R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRMV X0300257RPG ERROR 158R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRIN X0300258RPG ERROR 159R ERROR IN PARAMETER(S) PASSED TO SUBROUTINE SUBRED X0300259RPG ERROR 160R @@@@@@@@ NOT USED X0300260SPARE MESSAGE 261 X0300261SPARE MESSAGE 262 X0300262SPARE MESSAGE 263 X0300263SPARE MESSAGE 264 X0300264SPARE MESSAGE 265 X0300265SPARE MESSAGE 266 X0300266SPARE MESSAGE 267 X0300267SPARE MESSAGE 268 X0300268SPARE MESSAGE 269 X0300269SPARE MESSAGE 270 X0300270SPARE MESSAGE 271 X0300271SPARE MESSAGE 27T  3s2 X0300272SPARE MESSAGE 273 X0300273SPARE MESSAGE 274 X0300274SPARE MESSAGE 275 X0300275SPARE MESSAGE 276 X0300276SPARE MESSAGE 277 X0300277SPARE MESSAGE 278 X0300278SPARE MESSAGE 279 X0300279SPARE MESSAGE 280 X0300280SPARE MESSAGE 281 X0300281SPARE MESSAGE 282 X0300282SPARE MESSAGE 283 X0300283SPARE MESSAGE 284 X0300284SPARE MESSAGE 285 X0300285SPARE MESSAGE 286 X0300286SPARE MESSAGE 287 X0300287SPARE MESSAGE 288 X0300288SPARE MESSAGE 289 X0300289SPARE MESSAGE 290 X0300290SPARE MESSAGE 291 X0300291SPARE MESSAGE 292 X0300292SPARE MESSAGE 293 X0300293SPARE MESSAGE 294 X0300294SPARE MESSAGE 295 X0300295SPARE MESSAGE 296 X0300296SPARE MESSAGE 297 X0300297SPARE MESSAGE 298 X0300298SPARE MESSAGE 299 X0300299SPARE MESSAGE 300 X0300300ILLEGAL LINE NUMBER ##### SPECIFIED X0300301NO PROGRAM ID ON H FORMAT SPECIFICATION X0300302FILE @@@@@@@@ IS NOT AN EDITOR FILE X0300303AN ERROR OCCURRED WHEN BUILDING THE STATEMENT LABEL INDEX X0300304ILLEGAL FILE NAME X0300305INVALID FIELD X0300306INVALID NUMERIC VALUE X0300307COMMAND NAME NOT UNIQUE X0300308INVALID COMMAND X0300309WRONG FORMAT TYPE FOR THIS FILE X0300310INVALID FORMAT SPECIFICATION X0300311LINE NUMBER OVERFLOW X0300312INCORRECT TAB STOP ORDER X0300313INVALID RPG ARRAY DATA LINE NUMBER X0300314INVALID DELIMITER X0300315DELIMITER MISSING X0300316CHARACTER STRING TOO LONG X0300317RESEQUENCE WITH A LOWER BASE AND/OR INCREMENT X0300318NO FILE OPEN FOR EDITOR USE X0300319SAVRTN STACK OVEl  3qALqS $$ D- MNTH 4 0075009130704352 AMT COLLECTED - MNTH 4 0076009210304442 # OF PAID-IN-FULL- MNTH *JOB,PURGE,-----------PURGE PROGRAM LIBRARY 00010*LIBEDT 00020*R,LODDAT,F 00030*R,MOVDAT,F 00040*R,LMOVDT,F 00050*R,CLRFIL,F 00060*R,LCLRFL,F 00070*R,QTIL,F 00080*R,QTDEFI,F 00090*R,QTDELE,F 00100*R,QTCOMM,F 00110*R,QTLOAD,F 00120*R,QTORLD,F 00130*R,QTRMLD,F 00140*K,I13,L14,P8 00150*N,PROCED,,,B 00160CARDPRO READER 00170TAPEPRO TAPE0 00180*N,USERID,,,B 00190 00 00200$$ 00 00210*N,SCMENU,,,B 00220 SYSTEM CONFIGURE MENU 00230*Z 00240*Z 00250_ 0111011720205952 CLIENT HISTORY YEAR- MNTH 6 0112012010306872 # OF ACCTS PLACED- MNTH ALqS $$ 2 AMT OF ACCTS PLACED- MNTH 7 0114012130706992 AMT COLLECTED - MNTH 7 0115012210307082 0107878631234567 MASTERS,JAMES 156 APPLETON WAY JAMESTOWN, PA 32233 0164884221234567 BACH,JANET COIN,MARY  3q MARTEN,MAGERET 0182874321234567 POTTER,CRAIG 0243719561234567 SWEENEY,ARTHUR SAVER (COSIGNER 2) 0287164291234567 SWEENEY,DELORES 0353693391234567 NETTLES,BOB LOSITER,NORRIS 0397288631234567 FLAMINGO,ROBERTO STEINMAN,HORACE MONAGUE,FLORRIE 0479043391234567 PARIS,PETER __ # OF ACCTS PLACED- MNTH 10 0152015050709542 AMT OF ACCTS PLACED- MNTH 10 0153015130709632 AMT COLLECTED - MNTH 10 0154015210309722 # OF PAID-IN-FULL- MNTH 10 0155015250709752 AMT OF PAID-IN-FULL- MNTH 10 0156015330709842 COMMISSIONS EARNED - MNTH 10 0157015410309932 # OF ACCTS CLOSED- MNTH 10 0158015450709962 AMT OF ACCTS CLOSED- MNTH 10 0159015530310052 # OF ACTIVE ACCTS- MNTH 10 0160015570710172 COURT COSTS - MNT 01078786312345670164884221234567018287432123456702437195612345670287164291234567035369339123456703972886312345670479043391234567  3uALuS $$ UNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR * 00010 * PROCEDURE TO BUILD 24000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC002 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAP[  3uE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VLM=  3u=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960 * 00970PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 00980PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 00990PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01000PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01010PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01020PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01030PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01040PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01050PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01060PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01070PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01080PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01090PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01100PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01110PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01120PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/! 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIME USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED   3u 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL  3u=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY 02090CCSPAS 02100INPUT=PRFDC004 02110SWITCH 0212010000000 02130 * THE UPDATE TAPE WILL BE PROCESSED 02140UPDATE 02150 * THE UPDATE TAPE HAS BEEN PROCESSED 02160 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02170 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02180 * SCREEN INFORMATION 02190CCSSPC 02200CCSPAS 02210 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02220MNUPRO 02230/! 02240DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02250LOAD,FN=PRFDC005,OW=CCS20 02260CHEKID 02270 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02280 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02290 * CARRIAGE RETURN WHEN READY 02300CCSPAS 02310INPUT=PRFDC005 02320SWITCH 0233010000000 02340UPD400 02350 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02360MNUPRO 02370/! k  3u 02380DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02390LOAD,FN=PRFDC006,OW=CCS20 02400CHEKID 02410 * THE FINANCIAL UPDATES WILL BE PROCESSED 02420 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02430 * 02440INPUT=PRFDC006 02450MOUNT 02460FTAPE,B,P 02470/* 02480UPD500 02490 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02500MNUPRO 02510/! 02520DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02530LOAD,FN=PRFDC007,OW=CCS20 02540CHEKID 02550 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02560DHUPDT 02570 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02580MNUPRO 02590/! 02600DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02610LOAD,FN=PRFDC008,OW=CCS20 02620CHEKID 02630 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02640 * COLLECTORS ARE OFF-LINE FOR THE DAY 02650MNUPRO 02660/! 02670DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02680LOAD,FN=PRFDC009,OW=CCS20 02690CHEKID 02700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02710 * COLLECTORS ARE OFF-LINE FOR THE DAY 02720MNUPRO 02730/! 02740DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02750LOAD,FN=PRFDC010,OW=CCS20 02760CHEKID 02770 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02780 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02790 * CARRIAGE RETURN ONLY - TO CONTINUE 02800 * 02810CCSPAS 02820 * 02830 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02840 * 02850INPUT=PRFDC010 W-  3u 02860UTIL 02870CLEAR,FN=TRNSFL 02880EX 02890INPUT=PRFDC010 02900DSORT 02910FN=TRANFL,CCS20 02920F2=TRNSFL,CCS20, 02930OP=T,F,A 02940KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 02950SL=I 02960PRETSR 02970INPUT=PRFDC010 02980UTIL 02990CLEAR,FN=ACTIVE 03000CLEAR,FN=TRANFL 03010CLEAR,FN=TRNBCK 03020EX 03030 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03040NMCHNG 03050RSWCHG 03060INPUT=PRFDC010 03070UTIL 03080CLEAR,FN=ADDACT 03090EX 03100MNUPRO 03110/! 03120DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03130LOAD,FN=PRFDC011,OW=CCS20 03140CHEKID 03150 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03160 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03170 * CARRIAGE RETURN ONLY - TO CONTINUE 03180 * 03190CCSPAS 03200 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03210INPUT=PRFDC011 03220UTIL 03230CLEAR,FN=DLYWRK 03240EX 03250SRREQ 03260 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03270 * 03280 * THE DLYASSN FILE IS BEING CREATED 03290DACRTE 03300 * THE DLYASSN FILE HAS BEEN CREATED 03310 * THE DLYASSN FILE IS BEING SORTED 03320INPUT=PRFDC011 03330DSORT  3v 03340FN=DLYWRK,CCS20 03350FN=DLYASSN,CCS20 03360F2=DLYASSN,CCS20, 03370OP=T,F,A 03380KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03390SL=I 03400 * THE DLYASSN FILE HAS BEEN SORTED 03410INPUT=PRFDC011 03420UTIL 03430CLEAR,FN=DAQUE 03440EX 03450 * THE DAILY QUEUE FILE IS BEING CREATED 03460DAQUEL 03470 * THE DAILY QUEUE FILE HAS BEEN CREATED 03480 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03490 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03500 * SCREEN INFORMATION 03510CCSSPC 03520CCSPAS 03530 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03540 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03550MNUPRO 03560/! 03570DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03580LOAD,FN=PRFHS001,OW=CCS20 03590CHEKID 03600 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03610 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03620INPUT=PRFHS001 03630DSORT 03640FN=INACCT,CCS20 03650F2=INTEMP,CCS20, 03660OP=T,F,A 03670KF=A,1,16,D,23,2,D,19,4 03680SL=I 03690INPUT=PRFHS001 03700UTIL 03710CLEAR,FN=INACCT 03720COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03730DELETE,FN=INTEMP 03740EX 03750 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03760 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03770 * WITH WRITE RING 03780 * CARRIAGE RETURN WHEN READY 03790CCSPAS 03800MHUPDT 03810 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTS  3v"ORY 03820 * REBUILDING INACCT 03830FIXINA 03840 * INACCT REBUILD COMPLETE 03850MNUPRO 03860/! 03870DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03880LOAD,FN=PRFHS002,OW=CCS20 03890CHEKID 03900 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03910 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03920 * CARRIAGE RETURN ONLY - TO CONTINUE 03930 * 03940CCSPAS 03950 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 03960INPUT=PRFHS002 03970UTIL 03980DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 03990EX 04000CHUPD1 04010 * THE UPREQ FILE WILL BE SORTED 04020INPUT=PRFHS002 04030DSORT 04040FN=UPREQ,CCS20 04050F2=UPREQ,CCS20, 04060OP=T,F,A 04070KF=D,21,2,D,17,4,A,1,16 04080SL=I 04090 * THE UPREQ FILE HAS BEEN SORTED 04100INPUT=PRFHS002 04110UTIL 04120CLEAR,FN=UPHSTCM 04130EX 04140 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04150 * EXECUTION OF THE NEXT JOB 04160CHUPD2 04170INPUT=PRFHS002 04180UTIL 04190DELETE,FN=UPREQ 04200EX 04210 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04220MNUPRO 04230/! 04240DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04250LOAD,FN=PRFHS003,OW=CCS20 04260CHEKID 04270 * THE SUMHIST FILE WILL BE PURGED 04280PHDEL2 04290CMPSUM   3v6 04300 * THE SUMHIST FILE HAS BEEN PURGED 04310MNUPRO 04320/! 04330DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04340LOAD,FN=PRFHS004,OW=CCS20 04350CHEKID 04360 * THE TAPEARC FILE WILL BE PURGED 04370PHDEL1 04380INPUT=PRFHS004 04390UTIL 04400COMPRE,FN=TAPEARC 04410EX 04420 * THE TAPEARC FILE HAS BEEN PURGED 04430MNUPRO 04440/! 04450DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04460LOAD,FN=PRFMT001,OW=CCS20 04470CHEKID 04480 * THE LETTER DEFINITION FILE WILL BE PRINTED 04490INPUT=PRFMT001 04500UTIL 04510LIST,FN=LTRDESC,L=LPRINTER,F=U 04520EX 04530 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04540 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04550 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04560 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04570 * CARRIAGE RETURN WHEN READY TO CONTINUE 04580CCSPAS 04590MNUPRO 04600/! 04610DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04620LOAD,FN=PRFMT002,OW=CCS20 04630CHEKID 04640 * THE LETTER FILE WILL BE CREATED 04650 * 04660INPUT=PRFMT002 04670UTIL 04680CLEAR,FN=LTRFIL 04690EX 04700LTRBLD 04710 * THE LETTER FILE HAS BEEN CREATED 04720MNUPRO 04730/! 04740DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04750LOAD,FN=PRFMT003,OW=CCS20 04760CHEKID 04770 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE  3vJEXECUTED 04780 * 04790 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04800 * FROM THE CONSOLE 04810 * 04820 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04830UTFMTN 04840 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04850INPUT=PRFMT003 04860UTIL 04870LIST,FN=UTIFIL,L=LPRINTER,F=U 04880EX 04890 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04900 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04910MNUPRO 04920/! 04930DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04940LOAD,FN=PRFMT004,OW=CCS20 04950CHEKID 04960 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 04970 * 04980 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04990DECMTN 05000 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05010MNUPRO 05020/! 05030DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05040LOAD,FN=PRFMT005,OW=CCS20 05050CHEKID 05060 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05070AVMDMP 05080 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05090MNUPRO 05100/! 05110DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05120LOAD,FN=PRFMT006,OW=CCS20 05130CHEKID 05140 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05150 * 05160AVMCON 05170 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05180 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05190AVMDMP 05200 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05210MNUPRO 05220/! 05230DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05240LOAD,FN=PRFMT007,OW=CCS20 05250CHEKID   3v^ 05260 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05270 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05280 * SCREEN INFORMATION 05290CCSSPC 05300CCSPAS 05310 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05320MNUPRO 05330/! 05340DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05350LOAD,FN=PRFMT008,OW=CCS20 05360CHEKID 05370 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05380INPUT=PRFMT008 05390UTIL 05400LIST,FN=SCRNDESC,L=LPRINTER,F=U 05410EX 05420 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05430 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05440 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05450 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05460 * CARRIAGE RETURN WHEN READY TO CONTINUE 05470CCSPAS 05480MNUPRO 05490/! 05500DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05510LOAD,FN=PRFMT009,OW=CCS20 05520CHEKID 05530 * THE SCREEN FILE WILL BE CREATED 05540BLDSRN 05550 * THE SCREEN FILE HAS BEEN CREATED 05560MNUPRO 05570/! 05580DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05590LOAD,FN=PRFMT010,OW=CCS20 05600CHEKID 05610 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05620 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05630 * CARRIAGE RETURN ONLY - TO CONTINUE 05640 * 05650CCSPAS 05660 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05670CMPDLQ 05680INPUT=PRFMT010 05690UTIL 05700COMPRE,FN=COSIGNER 05710COMPRE,FN=ACTFIL 05720EX 05730 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE B \  3vrEEN PURGED 05740MNUPRO 05750/! 05760DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05770LOAD,FN=PRFMT011,OW=CCS20 05780CHEKID 05790 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05800 * WILL BE PRINTED 05810ACTMTN 05820 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05830 * HAS BEEN PRINTED 05840MNUPRO 05850/! 05860DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05870LOAD,FN=PRFMT012,OW=CCS20 05880CHEKID 05890 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05900 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05910 * 05920USEMTN 05930 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05940MNUPRO 05950/! 05960DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 05970LOAD,FN=PRFMT013,OW=CCS20 05980CHEKID 05990 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06000PGLTTB 06010MNUPRO 06020/! 06030DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06040LOAD,FN=PRFMT014,OW=CCS20 06050CHEKID 06060 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06070 * 06080 * THE DATA ELEMENT TABLE WILL BE PRINTED 06090PGLTTB 06100 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06110 * 06120 * THE DATA ELEMENT TABLE WILL BE UPDATED 06130 * 06140 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06150 * 06160INPUT=PRFMT014 06170SWITCH 06180000000000 06190PGUPTB 06200 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06210 *   3v 06220 * THE DATA ELEMENT TABLE WILL BE PURGED 06230INPUT=PRFMT014 06240UTIL 06250DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06260EX 06270PGCMPR 06280INPUT=PRFMT014 06290UTIL 06300DELETE,FN=RPTTBL 06310RENAME,FN=TBLWRK,F2=RPTTBL 06320EX 06330 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06340 * 06350 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06360MNUPRO 06370/! 06380DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06390LOAD,FN=PRFMT015,OW=CCS20 06400CHEKID 06410 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06420 * 06430 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06440PGLIST 06450 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06460 * 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06490 * 06500 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06510 * 06520PGPURG 06530INPUT=PRFMT015 06540UTIL 06550COMPRE,FN=RPTPGM 06560EX 06570 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06580 * 06590 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06600PGLIST 06610 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06620 * 06630 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06640MNUPRO 06650/! 06660DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06670LOAD,FN=PRFMT016,OW=CCS20 06680CHEKID 06690 * THE SCREEN FILES WILL BE PRINTED ?T  3v 06700 * D 06710 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06720 * 06730PRTSCN 06740 * THE SCREEN FILES HAVE BEEN PRINTED 06750MNUPRO 06760/! 06770DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06780LOAD,FN=PRFRP001,OW=CCS20 06790CHEKID 06800INPUT=PRFRP001 06810SWITCH 0682010000000 06830 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06840 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06850 * PRINTED 06860DTLLST 06870 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06880MNUPRO 06890/! 06900DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06910LOAD,FN=PRFRP002,OW=CCS20 06920CHEKID 06930INPUT=PRFRP002 06940SWITCH 0695001000000 06960 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06970 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 06980DTLLST 06990INPUT=PRFRP002 07000UTIL 07010CLEAR,FN=SREQDL 07020EX 07030 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07040MNUPRO 07050/! 07060DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07070LOAD,FN=PRFRP003,OW=CCS20 07080CHEKID 07090 * CALCULATE AGE FOR TREND ANALYSIS 07100TRENDF 07110 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07120 * 07130 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07140INPUT=PRFRP003 07150UTIL 07160DELETE,FN=AGEWRK 07170EX  3v 07180INPUT=PRFRP003 07190DSORT 07200FN=ACCAGE,CCS20 07210FN=RSWFIL,CCS20 07220F2=AGEWRK,CCS20,SYSVOL 07230OP=T,F,A 07240KF=A,17,4,A,1,1 07250SL=OMIT,35,3,EQ,'RSW' 07260 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07270 * 07280 **** OPERATOR - 07290 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07300 * TREND DATA FOR NEXT RUN 07310 * 07320 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07330 * FOR NEXT RUN 07340CCSPAS 07350TRENDU 07360INPUT=PRFRP003 07370UTIL 07380CLEAR,FN=RSWFIL 07390EX 07400MNUPRO 07410/! 07420DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07430LOAD,FN=PRFRP004,OW=CCS20 07440CHEKID 07450 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07460 * THE AGEWRK FILE IS BEING SORTED 07470INPUT=PRFRP004 07480DSORT 07490FN=AGEWRK,CCS20 07500F2=AGEWRK,CCS20, 07510OP=T,F,A 07520KF=A,17,4,A,1,1 07530SL=OMIT,35,3,EQ,'RSW' 07540 * THE AGEWRK FILE HAS BEEN SORTED 07550 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07560INPUT=PRFRP004 07570SWITCH 0758010000000 07590TRENDP 07600 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07610MNUPRO 07620/! 07630DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07640LOAD,FN=PRFRP005,OW=CCS20 07650CHEKID   3v 07660 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07670 * THE AGEWRK FILE IS BEING SORTED 07680INPUT=PRFRP005 07690DSORT 07700FN=AGEWRK,CCS20 07710F2=AGEWRK,CCS20, 07720OP=T,F,A 07730KF=A,25,4,A,1,1 07740SL=I 07750 * THE AGEWRK FILE HAS BEEN SORTED 07760 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07770INPUT=PRFRP005 07780SWITCH 0779000000000 07800TRENDP 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07820MNUPRO 07830/! 07840DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07850LOAD,FN=PRFRP006,OW=CCS20 07860CHEKID 07870 * THE WRITE-OFF REPORT WILL BE GENERATED 07880 * THE WOEF FILE WILL BE CREATED 07890INPUT=PRFRP006 07900UTIL 07910DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07920EX 07930WRTOFE 07940 * THE WOEF FILE HAS BEEN CREATED 07950 * THE WOEF FILE IS BEING SORTED 07960INPUT=PRFRP006 07970DSORT 07980FN=WOEF,CCS20 07990F2=WOEF,CCS20, 08000OP=T,F,A 08010KF=A,25,1,A,17,4,A,21,4,A,1,16 08020SL=I 08030 * THE WOEF FILE HAS BEEN SORTED 08040 * THE WRITE-OFF REPORT WILL BE PRINTED 08050WRTOFP 08060INPUT=PRFRP006 08070UTIL 08080DELETE,FN=WOEF 08090EX 08100 * THE WRITE-OFF REPORT IS COMPLETE 08110MNUPRO 08120/! 08130DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL  3v=SYSVOL ,OW=CCS20 08140LOAD,FN=PRFRP007,OW=CCS20 08150CHEKID 08160 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08170DALIST 08180 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08190MNUPRO 08200/! 08210DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08220LOAD,FN=PRFRP008,OW=CCS20 08230CHEKID 08240 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08250SUMACL 08260 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08270MNUPRO 08280/! 08290DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08300LOAD,FN=PRFRP009,OW=CCS20 08310CHEKID 08320 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08330INPUT=PRFRP009 08340SWITCH 0835001000000 08360COLSTS 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08380 **** OPERATOR - 08390 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08400 * 08410 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08420CCSPAS 08430INPUT=PRFRP009 08440SWITCH 0845000001000 08460COLSTS 08470MNUPRO 08480/! 08490DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08500LOAD,FN=PRFRP010,OW=CCS20 08510CHEKID 08520 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08530INPUT=PRFRP010 08540SWITCH 0855000100000 08560COLSTS 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08580 **** OPERATOR - 08590 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08600 * STATISTICS COUNT FILE 08610 * ކ  3v 08620 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08630 * COUNT FILE 08640CCSPAS 08650INPUT=PRFRP010 08660UTIL 08670CLEAR,FN=COLSTATS 08680EX 08690MNUPRO 08700/! 08710DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08720LOAD,FN=PRFCNTRL,OW=CCS20 08730CHEKID 08740 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08750 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08760 * TO ACTIVATE BATCH HOST 08770 * MI, *BATCH,F 08780 * 08790 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08800 * 08810 * CARRIAGE RETURN ONLY - TO CONTINUE 08820CCSPAS 08830 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08840INPUT=PRFCNTRL 08850UTIL 08860DEFINE,FN=RPTWKE,LR=80,NR=1000 08870DEFINE,FN=RPTWKP,LR=80,NR=1000 08880DEFINE,FN=PRCWRK,LR=80,NR=50 08890EX 08900PGGEN 08910 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08920 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08930INPUT=PRFCNTRL 08940UTIL 08950BATCH,FN=RPTWKE,TY=N 08960BATCH,FN=RPTWKP,TY=R 08970DELETE,FN=RPTWKE 08980DELETE,FN=RPTWKP 08990CLEAR,FN=PGEXTR 09000EX 09010PGCNT1 09020 * 09030 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09040 * CARRIAGE RETURN WHEN READY 09050CCSPAS 09060MNUPRO 09070/! 09080DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09090LOAD,FN=PRFRP012,OW=CCS20 ?  3v 09100CHEKID 09110 * THE QUEUE LOADING REPORT WILL BE PRINTED 09120QLOAD 09130 * THE QUEUE LOADING REPORT IS COMPLETE 09140MNUPRO 09150/! 09160DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09170LOAD,FN=PRFRP014,OW=CCS20 09180CHEKID 09190 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09200 ***** 09210 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09220 ***** OR NOT TREND ANALYSIS IS BEING USED. 09230 ***** 09240 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09250 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09260 **** 09270 *** 09280CCSPAS 09290 * 09300CMPACC 09310 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09320MNUPRO 09330/! 09340 09350 09360 09370 09380 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570 W  3w 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09690NR=50 09700DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=24000,OW=CCS20 09710DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=24000,VL=CDD01; 09720OW=CCS20 09730DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09740DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09750DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=24000,VL=CDD01,OW=CCS20 09760DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=24000,VL=SYSVOL,OW=CCS20 09770DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09780DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09790OW=CCS20 09800DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=24000,VL=CDD01; 09810OW=CCS20 09820DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09830DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09840DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=24000; 09850VL=CDD02,OW=CCS20 09860DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=24000,VL=SYSVOL,OW=CCS20 09870DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=2000,VL=CDD01,OW=CCS20 09880DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09890LOAD,FN=DUMMY,OW=CCS20 09900 09910/! 09920DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=24000,VL=CDD01,OW=CCS20 09930DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09940DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 09950OW=CCS20 09960DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 09970DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=24000,OW=CCS20 09980DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 09990DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=12000,VL=CDD01,OW=CCS20 10020DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10030DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10040OW=CCS20 10050DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=200,VL=~  3w&CDD01,OW=CCS20 10060DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=24000,VL=CDD01; 10070OW=CCS20 10080DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=24000,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10110DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10120DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10130DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20 10140DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10150EX 10160MOVDAT 10170 * THE 24000 ACCOUNT SYSTEM BUILD IS COMPLETE 10180 * 10190 * PROCEED WITH THE INSTALLATION TEST PROCEDURES. 10200 * 10210MNUPRO 10220__NISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL)  3w: 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840ALwBS $$ UNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR * 00010 * PROCEDURE TO BUILD 36000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC003 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE U  3wNPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ (  3wb 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960 * 00970PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 00980PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 00990PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01000PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01010PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01020PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01030PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01040PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01050PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01060PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01070PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01080PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01090PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01100PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01110PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01120PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/! 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIM5  3wvE USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A   3w 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY 02090CCSPAS 02100INPUT=PRFDC004 02110SWITCH 0212010000000 02130 * THE UPDATE TAPE WILL BE PROCESSED 02140UPDATE 02150 * THE UPDATE TAPE HAS BEEN PROCESSED 02160 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02170 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02180 * SCREEN INFORMAT  3wION 02190CCSSPC 02200CCSPAS 02210 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02220MNUPRO 02230/! 02240DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02250LOAD,FN=PRFDC005,OW=CCS20 02260CHEKID 02270 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02280 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02290 * CARRIAGE RETURN WHEN READY 02300CCSPAS 02310INPUT=PRFDC005 02320SWITCH 0233010000000 02340UPD400 02350 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02360MNUPRO 02370/! 02380DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02390LOAD,FN=PRFDC006,OW=CCS20 02400CHEKID 02410 * THE FINANCIAL UPDATES WILL BE PROCESSED 02420 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02430 * 02440INPUT=PRFDC006 02450MOUNT 02460FTAPE,B,P 02470/* 02480UPD500 02490 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02500MNUPRO 02510/! 02520DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02530LOAD,FN=PRFDC007,OW=CCS20 02540CHEKID 02550 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02560DHUPDT 02570 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02580MNUPRO 02590/! 02600DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02610LOAD,FN=PRFDC008,OW=CCS20 02620CHEKID 02630 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02640 * COLLECTORS ARE OFF-LINE FOR THE DAY 02650MNUPRO 02660/! h  3w 02670DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02680LOAD,FN=PRFDC009,OW=CCS20 02690CHEKID 02700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02710 * COLLECTORS ARE OFF-LINE FOR THE DAY 02720MNUPRO 02730/! 02740DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02750LOAD,FN=PRFDC010,OW=CCS20 02760CHEKID 02770 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02780 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02790 * CARRIAGE RETURN ONLY - TO CONTINUE 02800 * 02810CCSPAS 02820 * 02830 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02840 * 02850INPUT=PRFDC010 02860UTIL 02870CLEAR,FN=TRNSFL 02880EX 02890INPUT=PRFDC010 02900DSORT 02910FN=TRANFL,CCS20 02920F2=TRNSFL,CCS20, 02930OP=T,F,A 02940KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 02950SL=I 02960PRETSR 02970INPUT=PRFDC010 02980UTIL 02990CLEAR,FN=ACTIVE 03000CLEAR,FN=TRANFL 03010CLEAR,FN=TRNBCK 03020EX 03030 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03040NMCHNG 03050RSWCHG 03060INPUT=PRFDC010 03070UTIL 03080CLEAR,FN=ADDACT 03090EX 03100MNUPRO 03110/! 03120DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03130LOAD,FN=PRFDC011,OW=CCS20 03140CHEKID xg  3w 03150 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03160 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03170 * CARRIAGE RETURN ONLY - TO CONTINUE 03180 * 03190CCSPAS 03200 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03210INPUT=PRFDC011 03220UTIL 03230CLEAR,FN=DLYWRK 03240EX 03250SRREQ 03260 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03270 * 03280 * THE DLYASSN FILE IS BEING CREATED 03290DACRTE 03300 * THE DLYASSN FILE HAS BEEN CREATED 03310 * THE DLYASSN FILE IS BEING SORTED 03320INPUT=PRFDC011 03330DSORT 03340FN=DLYWRK,CCS20 03350FN=DLYASSN,CCS20 03360F2=DLYASSN,CCS20, 03370OP=T,F,A 03380KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03390SL=I 03400 * THE DLYASSN FILE HAS BEEN SORTED 03410INPUT=PRFDC011 03420UTIL 03430CLEAR,FN=DAQUE 03440EX 03450 * THE DAILY QUEUE FILE IS BEING CREATED 03460DAQUEL 03470 * THE DAILY QUEUE FILE HAS BEEN CREATED 03480 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03490 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03500 * SCREEN INFORMATION 03510CCSSPC 03520CCSPAS 03530 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03540 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03550MNUPRO 03560/! 03570DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03580LOAD,FN=PRFHS001,OW=CCS20 03590CHEKID 03600 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03610 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03620INPUT=PRFHS001 gR  3w 03630DSORT 03640FN=INACCT,CCS20 03650F2=INTEMP,CCS20, 03660OP=T,F,A 03670KF=A,1,16,D,23,2,D,19,4 03680SL=I 03690INPUT=PRFHS001 03700UTIL 03710CLEAR,FN=INACCT 03720COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03730DELETE,FN=INTEMP 03740EX 03750 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03760 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03770 * WITH WRITE RING 03780 * CARRIAGE RETURN WHEN READY 03790CCSPAS 03800MHUPDT 03810 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 03820 * REBUILDING INACCT 03830FIXINA 03840 * INACCT REBUILD COMPLETE 03850MNUPRO 03860/! 03870DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03880LOAD,FN=PRFHS002,OW=CCS20 03890CHEKID 03900 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03910 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03920 * CARRIAGE RETURN ONLY - TO CONTINUE 03930 * 03940CCSPAS 03950 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 03960INPUT=PRFHS002 03970UTIL 03980DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 03990EX 04000CHUPD1 04010 * THE UPREQ FILE WILL BE SORTED 04020INPUT=PRFHS002 04030DSORT 04040FN=UPREQ,CCS20 04050F2=UPREQ,CCS20, 04060OP=T,F,A 04070KF=D,21,2,D,17,4,A,1,16 04080SL=I 04090 * THE UPREQ FILE HAS BEEN SORTED 04100INPUT=PRFHS002 q  3w 04110UTIL 04120CLEAR,FN=UPHSTCM 04130EX 04140 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04150 * EXECUTION OF THE NEXT JOB 04160CHUPD2 04170INPUT=PRFHS002 04180UTIL 04190DELETE,FN=UPREQ 04200EX 04210 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04220MNUPRO 04230/! 04240DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04250LOAD,FN=PRFHS003,OW=CCS20 04260CHEKID 04270 * THE SUMHIST FILE WILL BE PURGED 04280PHDEL2 04290CMPSUM 04300 * THE SUMHIST FILE HAS BEEN PURGED 04310MNUPRO 04320/! 04330DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04340LOAD,FN=PRFHS004,OW=CCS20 04350CHEKID 04360 * THE TAPEARC FILE WILL BE PURGED 04370PHDEL1 04380INPUT=PRFHS004 04390UTIL 04400COMPRE,FN=TAPEARC 04410EX 04420 * THE TAPEARC FILE HAS BEEN PURGED 04430MNUPRO 04440/! 04450DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04460LOAD,FN=PRFMT001,OW=CCS20 04470CHEKID 04480 * THE LETTER DEFINITION FILE WILL BE PRINTED 04490INPUT=PRFMT001 04500UTIL 04510LIST,FN=LTRDESC,L=LPRINTER,F=U 04520EX 04530 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04540 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04550 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04560 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04570 * CARRIAGE RETURN WHEN READY TO CONTINUE 04580CCSPAS  3x 04590MNUPRO 04600/! 04610DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04620LOAD,FN=PRFMT002,OW=CCS20 04630CHEKID 04640 * THE LETTER FILE WILL BE CREATED 04650 * 04660INPUT=PRFMT002 04670UTIL 04680CLEAR,FN=LTRFIL 04690EX 04700LTRBLD 04710 * THE LETTER FILE HAS BEEN CREATED 04720MNUPRO 04730/! 04740DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04750LOAD,FN=PRFMT003,OW=CCS20 04760CHEKID 04770 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04780 * 04790 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04800 * FROM THE CONSOLE 04810 * 04820 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04830UTFMTN 04840 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04850INPUT=PRFMT003 04860UTIL 04870LIST,FN=UTIFIL,L=LPRINTER,F=U 04880EX 04890 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04900 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04910MNUPRO 04920/! 04930DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04940LOAD,FN=PRFMT004,OW=CCS20 04950CHEKID 04960 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 04970 * 04980 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04990DECMTN 05000 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05010MNUPRO 05020/! 05030DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05040LOAD,FN=PRFMT005,OW=CCS20 05050CHEKID 05060 * THE ACTIVITY VERIFICATION TABrB  3xLE WILL BE PRINTED 05070AVMDMP 05080 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05090MNUPRO 05100/! 05110DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05120LOAD,FN=PRFMT006,OW=CCS20 05130CHEKID 05140 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05150 * 05160AVMCON 05170 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05180 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05190AVMDMP 05200 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05210MNUPRO 05220/! 05230DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05240LOAD,FN=PRFMT007,OW=CCS20 05250CHEKID 05260 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05270 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05280 * SCREEN INFORMATION 05290CCSSPC 05300CCSPAS 05310 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05320MNUPRO 05330/! 05340DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05350LOAD,FN=PRFMT008,OW=CCS20 05360CHEKID 05370 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05380INPUT=PRFMT008 05390UTIL 05400LIST,FN=SCRNDESC,L=LPRINTER,F=U 05410EX 05420 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05430 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05440 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05450 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05460 * CARRIAGE RETURN WHEN READY TO CONTINUE 05470CCSPAS 05480MNUPRO 05490/! 05500DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05510LOAD,FN=PRFMT009,OW=CCS20 05520CHEKID 05530 * THE SCREEN FILE WILL BE CREATED 05540BLDSRN   3x* 05550 * THE SCREEN FILE HAS BEEN CREATED 05560MNUPRO 05570/! 05580DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05590LOAD,FN=PRFMT010,OW=CCS20 05600CHEKID 05610 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05620 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05630 * CARRIAGE RETURN ONLY - TO CONTINUE 05640 * 05650CCSPAS 05660 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05670CMPDLQ 05680INPUT=PRFMT010 05690UTIL 05700COMPRE,FN=COSIGNER 05710COMPRE,FN=ACTFIL 05720EX 05730 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05740MNUPRO 05750/! 05760DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05770LOAD,FN=PRFMT011,OW=CCS20 05780CHEKID 05790 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05800 * WILL BE PRINTED 05810ACTMTN 05820 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05830 * HAS BEEN PRINTED 05840MNUPRO 05850/! 05860DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05870LOAD,FN=PRFMT012,OW=CCS20 05880CHEKID 05890 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05900 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05910 * 05920USEMTN 05930 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05940MNUPRO 05950/! 05960DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 05970LOAD,FN=PRFMT013,OW=CCS20 05980CHEKID 05990 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06000PGLTTB 06010MNUPRO 06020/! -  3x> 06030DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06040LOAD,FN=PRFMT014,OW=CCS20 06050CHEKID 06060 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06070 * 06080 * THE DATA ELEMENT TABLE WILL BE PRINTED 06090PGLTTB 06100 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06110 * 06120 * THE DATA ELEMENT TABLE WILL BE UPDATED 06130 * 06140 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06150 * 06160INPUT=PRFMT014 06170SWITCH 06180000000000 06190PGUPTB 06200 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06210 * 06220 * THE DATA ELEMENT TABLE WILL BE PURGED 06230INPUT=PRFMT014 06240UTIL 06250DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06260EX 06270PGCMPR 06280INPUT=PRFMT014 06290UTIL 06300DELETE,FN=RPTTBL 06310RENAME,FN=TBLWRK,F2=RPTTBL 06320EX 06330 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06340 * 06350 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06360MNUPRO 06370/! 06380DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06390LOAD,FN=PRFMT015,OW=CCS20 06400CHEKID 06410 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06420 * 06430 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06440PGLIST 06450 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06460 * 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06490 * 06500 **** OPERATOR - FOLLOW THE INSTG  3xRRUCTIONS AS THEY APPEAR ON THE SCREEN 06510 * 06520PGPURG 06530INPUT=PRFMT015 06540UTIL 06550COMPRE,FN=RPTPGM 06560EX 06570 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06580 * 06590 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06600PGLIST 06610 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06620 * 06630 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06640MNUPRO 06650/! 06660DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06670LOAD,FN=PRFMT016,OW=CCS20 06680CHEKID 06690 * THE SCREEN FILES WILL BE PRINTED 06700 * D 06710 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06720 * 06730PRTSCN 06740 * THE SCREEN FILES HAVE BEEN PRINTED 06750MNUPRO 06760/! 06770DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06780LOAD,FN=PRFRP001,OW=CCS20 06790CHEKID 06800INPUT=PRFRP001 06810SWITCH 0682010000000 06830 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06840 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06850 * PRINTED 06860DTLLST 06870 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06880MNUPRO 06890/! 06900DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06910LOAD,FN=PRFRP002,OW=CCS20 06920CHEKID 06930INPUT=PRFRP002 06940SWITCH 0695001000000 06960 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06970 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 06980DTLLST R  3xf 06990INPUT=PRFRP002 07000UTIL 07010CLEAR,FN=SREQDL 07020EX 07030 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07040MNUPRO 07050/! 07060DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07070LOAD,FN=PRFRP003,OW=CCS20 07080CHEKID 07090 * CALCULATE AGE FOR TREND ANALYSIS 07100TRENDF 07110 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07120 * 07130 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07140INPUT=PRFRP003 07150UTIL 07160DELETE,FN=AGEWRK 07170EX 07180INPUT=PRFRP003 07190DSORT 07200FN=ACCAGE,CCS20 07210FN=RSWFIL,CCS20 07220F2=AGEWRK,CCS20,SYSVOL 07230OP=T,F,A 07240KF=A,17,4,A,1,1 07250SL=OMIT,35,3,EQ,'RSW' 07260 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07270 * 07280 **** OPERATOR - 07290 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07300 * TREND DATA FOR NEXT RUN 07310 * 07320 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07330 * FOR NEXT RUN 07340CCSPAS 07350TRENDU 07360INPUT=PRFRP003 07370UTIL 07380CLEAR,FN=RSWFIL 07390EX 07400MNUPRO 07410/! 07420DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07430LOAD,FN=PRFRP004,OW=CCS20 07440CHEKID 07450 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07460 * THE AGEWRK FILE IS BEING SORTJ  3xzED 07470INPUT=PRFRP004 07480DSORT 07490FN=AGEWRK,CCS20 07500F2=AGEWRK,CCS20, 07510OP=T,F,A 07520KF=A,17,4,A,1,1 07530SL=OMIT,35,3,EQ,'RSW' 07540 * THE AGEWRK FILE HAS BEEN SORTED 07550 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07560INPUT=PRFRP004 07570SWITCH 0758010000000 07590TRENDP 07600 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07610MNUPRO 07620/! 07630DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07640LOAD,FN=PRFRP005,OW=CCS20 07650CHEKID 07660 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07670 * THE AGEWRK FILE IS BEING SORTED 07680INPUT=PRFRP005 07690DSORT 07700FN=AGEWRK,CCS20 07710F2=AGEWRK,CCS20, 07720OP=T,F,A 07730KF=A,25,4,A,1,1 07740SL=I 07750 * THE AGEWRK FILE HAS BEEN SORTED 07760 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07770INPUT=PRFRP005 07780SWITCH 0779000000000 07800TRENDP 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07820MNUPRO 07830/! 07840DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07850LOAD,FN=PRFRP006,OW=CCS20 07860CHEKID 07870 * THE WRITE-OFF REPORT WILL BE GENERATED 07880 * THE WOEF FILE WILL BE CREATED 07890INPUT=PRFRP006 07900UTIL 07910DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07920EX 07930WRTOFE 07940 * THE WOEF FILE HAS BEEN CREATE  3xD 07950 * THE WOEF FILE IS BEING SORTED 07960INPUT=PRFRP006 07970DSORT 07980FN=WOEF,CCS20 07990F2=WOEF,CCS20, 08000OP=T,F,A 08010KF=A,25,1,A,17,4,A,21,4,A,1,16 08020SL=I 08030 * THE WOEF FILE HAS BEEN SORTED 08040 * THE WRITE-OFF REPORT WILL BE PRINTED 08050WRTOFP 08060INPUT=PRFRP006 08070UTIL 08080DELETE,FN=WOEF 08090EX 08100 * THE WRITE-OFF REPORT IS COMPLETE 08110MNUPRO 08120/! 08130DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08140LOAD,FN=PRFRP007,OW=CCS20 08150CHEKID 08160 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08170DALIST 08180 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08190MNUPRO 08200/! 08210DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08220LOAD,FN=PRFRP008,OW=CCS20 08230CHEKID 08240 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08250SUMACL 08260 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08270MNUPRO 08280/! 08290DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08300LOAD,FN=PRFRP009,OW=CCS20 08310CHEKID 08320 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08330INPUT=PRFRP009 08340SWITCH 0835001000000 08360COLSTS 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08380 **** OPERATOR - 08390 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08400 * 08410 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08420CCSPAS   3x 08430INPUT=PRFRP009 08440SWITCH 0845000001000 08460COLSTS 08470MNUPRO 08480/! 08490DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08500LOAD,FN=PRFRP010,OW=CCS20 08510CHEKID 08520 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08530INPUT=PRFRP010 08540SWITCH 0855000100000 08560COLSTS 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08580 **** OPERATOR - 08590 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08600 * STATISTICS COUNT FILE 08610 * 08620 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08630 * COUNT FILE 08640CCSPAS 08650INPUT=PRFRP010 08660UTIL 08670CLEAR,FN=COLSTATS 08680EX 08690MNUPRO 08700/! 08710DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08720LOAD,FN=PRFCNTRL,OW=CCS20 08730CHEKID 08740 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08750 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08760 * TO ACTIVATE BATCH HOST 08770 * MI, *BATCH,F 08780 * 08790 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08800 * 08810 * CARRIAGE RETURN ONLY - TO CONTINUE 08820CCSPAS 08830 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08840INPUT=PRFCNTRL 08850UTIL 08860DEFINE,FN=RPTWKE,LR=80,NR=1000 08870DEFINE,FN=RPTWKP,LR=80,NR=1000 08880DEFINE,FN=PRCWRK,LR=80,NR=50 08890EX 08900PGGEN |  3x 08910 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08920 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08930INPUT=PRFCNTRL 08940UTIL 08950BATCH,FN=RPTWKE,TY=N 08960BATCH,FN=RPTWKP,TY=R 08970DELETE,FN=RPTWKE 08980DELETE,FN=RPTWKP 08990CLEAR,FN=PGEXTR 09000EX 09010PGCNT1 09020 * 09030 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09040 * CARRIAGE RETURN WHEN READY 09050CCSPAS 09060MNUPRO 09070/! 09080DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09090LOAD,FN=PRFRP012,OW=CCS20 09100CHEKID 09110 * THE QUEUE LOADING REPORT WILL BE PRINTED 09120QLOAD 09130 * THE QUEUE LOADING REPORT IS COMPLETE 09140MNUPRO 09150/! 09160DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09170LOAD,FN=PRFRP014,OW=CCS20 09180CHEKID 09190 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09200 ***** 09210 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09220 ***** OR NOT TREND ANALYSIS IS BEING USED. 09230 ***** 09240 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09250 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09260 **** 09270 *** 09280CCSPAS 09290 * 09300CMPACC 09310 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09320MNUPRO 09330/! 09340 09350 09360 09370 09380 u  3x 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09690NR=50 09700DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=36000,OW=CCS20 09710DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=36000,VL=CDD01; 09720OW=CCS20 09730DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09740DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09750DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=36000,VL=CDD01,OW=CCS20 09760DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=36000,VL=SYSVOL,OW=CCS20 09770DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09780DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09790OW=CCS20 09800DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=36000,VL=CDD01; 09810OW=CCS20 09820DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09830DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09840DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=36000; 09850VL=CDD02,OW=CCS20 09860DEFINE,FN=DLYASSN,ED=999999,TY=SV  3x,LR=40,NR=36000,VL=SYSVOL,OW=CCS20 09870DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=3000,VL=CDD01,OW=CCS20 09880DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09890LOAD,FN=DUMMY,OW=CCS20 09900 09910/! 09920DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=36000,VL=CDD01,OW=CCS20 09930DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09940DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 09950OW=CCS20 09960DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 09970DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=36000,OW=CCS20 09980DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 09990DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=18000,VL=CDD01,OW=CCS20 10020DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10030DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10040OW=CCS20 10050DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20 10060DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=36000,VL=CDD01; 10070OW=CCS20 10080DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=36000,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10110DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10120DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10130DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20 10140DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10150EX 10160MOVDAT 10170 * THE 36000 ACCOUNT SYSTEM BUILD IS COMPLETE 10180 * 10190 * PROCEED WITH THE INSTALLATION TEST PROCEDURES. 10200 * 10210MNUPRO 10220__NISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPKq  3 xE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840ALyS $$ UNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR * 00010 * PROCEDURE TO BUILD 78000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC004 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * +*  3 y SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UT,  3 yILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960 * 00970PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 00980PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 00990PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01000PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01010PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01020PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01030PRFPG007 G - R.  3 y.G. REPORT 7 - (AVAILABLE) 01040PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01050PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01060PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01070PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01080PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01090PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01100PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01110PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01120PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/! 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIME USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: '0  3 yBN' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I j  3yV 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY 02090CCSPAS 02100INPUT=PRFDC004 02110SWITCH 0212010000000 02130 * THE UPDATE TAPE WILL BE PROCESSED 02140UPDATE 02150 * THE UPDATE TAPE HAS BEEN PROCESSED 02160 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02170 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02180 * SCREEN INFORMATION 02190CCSSPC 02200CCSPAS 02210 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02220MNUPRO 02230/! 02240DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02250LOAD,FN=PRFDC005,OW=CCS20 02260CHEKID 02270 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02280 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02290 * CARRIAGE RETURN WHEN READY 02300CCSPAS 02310INPUT=PRFDC005 02320SWITCH 0233010000000 02340UPD400 02350 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02360MNUPRO 02370/! 02380DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02390LOAD,FN=PRFDC006,OW=CCS20 02400CHEKID 02410 * THE FINANCIAL UPDATES WILL BE PROCESSED 02420 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02430 * 02440INPUT=PRFDC006 02450MOUNT 02460FTAPE,B,P 02470/* $  3yj 02480UPD500 02490 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02500MNUPRO 02510/! 02520DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02530LOAD,FN=PRFDC007,OW=CCS20 02540CHEKID 02550 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02560DHUPDT 02570 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02580MNUPRO 02590/! 02600DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02610LOAD,FN=PRFDC008,OW=CCS20 02620CHEKID 02630 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02640 * COLLECTORS ARE OFF-LINE FOR THE DAY 02650MNUPRO 02660/! 02670DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02680LOAD,FN=PRFDC009,OW=CCS20 02690CHEKID 02700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02710 * COLLECTORS ARE OFF-LINE FOR THE DAY 02720MNUPRO 02730/! 02740DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02750LOAD,FN=PRFDC010,OW=CCS20 02760CHEKID 02770 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02780 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02790 * CARRIAGE RETURN ONLY - TO CONTINUE 02800 * 02810CCSPAS 02820 * 02830 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02840 * 02850INPUT=PRFDC010 02860UTIL 02870CLEAR,FN=TRNSFL 02880EX 02890INPUT=PRFDC010 02900DSORT 02910FN=TRANFL,CCS20 02920F2=TRNSFL,CCS20, 02930OP=T,F,A 02940KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 02950SL=I Y  3y~ 02960PRETSR 02970INPUT=PRFDC010 02980UTIL 02990CLEAR,FN=ACTIVE 03000CLEAR,FN=TRANFL 03010CLEAR,FN=TRNBCK 03020EX 03030 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03040NMCHNG 03050RSWCHG 03060INPUT=PRFDC010 03070UTIL 03080CLEAR,FN=ADDACT 03090EX 03100MNUPRO 03110/! 03120DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03130LOAD,FN=PRFDC011,OW=CCS20 03140CHEKID 03150 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03160 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03170 * CARRIAGE RETURN ONLY - TO CONTINUE 03180 * 03190CCSPAS 03200 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03210INPUT=PRFDC011 03220UTIL 03230CLEAR,FN=DLYWRK 03240EX 03250SRREQ 03260 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03270 * 03280 * THE DLYASSN FILE IS BEING CREATED 03290DACRTE 03300 * THE DLYASSN FILE HAS BEEN CREATED 03310 * THE DLYASSN FILE IS BEING SORTED 03320INPUT=PRFDC011 03330DSORT 03340FN=DLYWRK,CCS20 03350FN=DLYASSN,CCS20 03360F2=DLYASSN,CCS20, 03370OP=T,F,A 03380KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03390SL=I 03400 * THE DLYASSN FILE HAS BEEN SORTED 03410INPUT=PRFDC011 03420UTIL 03430CLEAR,FN=DAQUE ?  3wBALwBS $$ UNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR * 00010 * PROCEDURE TO BUILD 36000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC003 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAP  3wVE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VLKI  3wj=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960 * 00970PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 00980PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 00990PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01000PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01010PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01020PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01030PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01040PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01050PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01060PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01070PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01080PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01090PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01100PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01110PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01120PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/! 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIME USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED   3w~ 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL  3w=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY 02090CCSPAS 02100INPUT=PRFDC004 02110SWITCH 0212010000000 02130 * THE UPDATE TAPE WILL BE PROCESSED 02140UPDATE 02150 * THE UPDATE TAPE HAS BEEN PROCESSED 02160 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02170 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02180 * SCREEN INFORMATION 02190CCSSPC 02200CCSPAS 02210 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02220MNUPRO 02230/! 02240DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02250LOAD,FN=PRFDC005,OW=CCS20 02260CHEKID 02270 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02280 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02290 * CARRIAGE RETURN WHEN READY 02300CCSPAS 02310INPUT=PRFDC005 02320SWITCH 0233010000000 02340UPD400 02350 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02360MNUPRO 02370/! w  3w 02380DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02390LOAD,FN=PRFDC006,OW=CCS20 02400CHEKID 02410 * THE FINANCIAL UPDATES WILL BE PROCESSED 02420 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02430 * 02440INPUT=PRFDC006 02450MOUNT 02460FTAPE,B,P 02470/* 02480UPD500 02490 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02500MNUPRO 02510/! 02520DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02530LOAD,FN=PRFDC007,OW=CCS20 02540CHEKID 02550 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02560DHUPDT 02570 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02580MNUPRO 02590/! 02600DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02610LOAD,FN=PRFDC008,OW=CCS20 02620CHEKID 02630 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02640 * COLLECTORS ARE OFF-LINE FOR THE DAY 02650MNUPRO 02660/! 02670DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02680LOAD,FN=PRFDC009,OW=CCS20 02690CHEKID 02700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02710 * COLLECTORS ARE OFF-LINE FOR THE DAY 02720MNUPRO 02730/! 02740DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02750LOAD,FN=PRFDC010,OW=CCS20 02760CHEKID 02770 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02780 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02790 * CARRIAGE RETURN ONLY - TO CONTINUE 02800 * 02810CCSPAS 02820 * 02830 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02840 * 02850INPUT=PRFDC010 U9  3w 02860UTIL 02870CLEAR,FN=TRNSFL 02880EX 02890INPUT=PRFDC010 02900DSORT 02910FN=TRANFL,CCS20 02920F2=TRNSFL,CCS20, 02930OP=T,F,A 02940KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 02950SL=I 02960PRETSR 02970INPUT=PRFDC010 02980UTIL 02990CLEAR,FN=ACTIVE 03000CLEAR,FN=TRANFL 03010CLEAR,FN=TRNBCK 03020EX 03030 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03040NMCHNG 03050RSWCHG 03060INPUT=PRFDC010 03070UTIL 03080CLEAR,FN=ADDACT 03090EX 03100MNUPRO 03110/! 03120DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03130LOAD,FN=PRFDC011,OW=CCS20 03140CHEKID 03150 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03160 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03170 * CARRIAGE RETURN ONLY - TO CONTINUE 03180 * 03190CCSPAS 03200 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03210INPUT=PRFDC011 03220UTIL 03230CLEAR,FN=DLYWRK 03240EX 03250SRREQ 03260 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03270 * 03280 * THE DLYASSN FILE IS BEING CREATED 03290DACRTE 03300 * THE DLYASSN FILE HAS BEEN CREATED 03310 * THE DLYASSN FILE IS BEING SORTED 03320INPUT=PRFDC011 03330DSORT   3w 03340FN=DLYWRK,CCS20 03350FN=DLYASSN,CCS20 03360F2=DLYASSN,CCS20, 03370OP=T,F,A 03380KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03390SL=I 03400 * THE DLYASSN FILE HAS BEEN SORTED 03410INPUT=PRFDC011 03420UTIL 03430CLEAR,FN=DAQUE 03440EX 03450 * THE DAILY QUEUE FILE IS BEING CREATED 03460DAQUEL 03470 * THE DAILY QUEUE FILE HAS BEEN CREATED 03480 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03490 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03500 * SCREEN INFORMATION 03510CCSSPC 03520CCSPAS 03530 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03540 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03550MNUPRO 03560/! 03570DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03580LOAD,FN=PRFHS001,OW=CCS20 03590CHEKID 03600 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03610 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03620INPUT=PRFHS001 03630DSORT 03640FN=INACCT,CCS20 03650F2=INTEMP,CCS20, 03660OP=T,F,A 03670KF=A,1,16,D,23,2,D,19,4 03680SL=I 03690INPUT=PRFHS001 03700UTIL 03710CLEAR,FN=INACCT 03720COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03730DELETE,FN=INTEMP 03740EX 03750 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03760 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03770 * WITH WRITE RING 03780 * CARRIAGE RETURN WHEN READY 03790CCSPAS 03800MHUPDT 03810 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HIST_  3wORY 03820 * REBUILDING INACCT 03830FIXINA 03840 * INACCT REBUILD COMPLETE 03850MNUPRO 03860/! 03870DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03880LOAD,FN=PRFHS002,OW=CCS20 03890CHEKID 03900 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03910 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03920 * CARRIAGE RETURN ONLY - TO CONTINUE 03930 * 03940CCSPAS 03950 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 03960INPUT=PRFHS002 03970UTIL 03980DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 03990EX 04000CHUPD1 04010 * THE UPREQ FILE WILL BE SORTED 04020INPUT=PRFHS002 04030DSORT 04040FN=UPREQ,CCS20 04050F2=UPREQ,CCS20, 04060OP=T,F,A 04070KF=D,21,2,D,17,4,A,1,16 04080SL=I 04090 * THE UPREQ FILE HAS BEEN SORTED 04100INPUT=PRFHS002 04110UTIL 04120CLEAR,FN=UPHSTCM 04130EX 04140 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04150 * EXECUTION OF THE NEXT JOB 04160CHUPD2 04170INPUT=PRFHS002 04180UTIL 04190DELETE,FN=UPREQ 04200EX 04210 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04220MNUPRO 04230/! 04240DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04250LOAD,FN=PRFHS003,OW=CCS20 04260CHEKID 04270 * THE SUMHIST FILE WILL BE PURGED 04280PHDEL2 04290CMPSUM !  3w 04300 * THE SUMHIST FILE HAS BEEN PURGED 04310MNUPRO 04320/! 04330DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04340LOAD,FN=PRFHS004,OW=CCS20 04350CHEKID 04360 * THE TAPEARC FILE WILL BE PURGED 04370PHDEL1 04380INPUT=PRFHS004 04390UTIL 04400COMPRE,FN=TAPEARC 04410EX 04420 * THE TAPEARC FILE HAS BEEN PURGED 04430MNUPRO 04440/! 04450DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04460LOAD,FN=PRFMT001,OW=CCS20 04470CHEKID 04480 * THE LETTER DEFINITION FILE WILL BE PRINTED 04490INPUT=PRFMT001 04500UTIL 04510LIST,FN=LTRDESC,L=LPRINTER,F=U 04520EX 04530 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04540 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04550 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04560 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04570 * CARRIAGE RETURN WHEN READY TO CONTINUE 04580CCSPAS 04590MNUPRO 04600/! 04610DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04620LOAD,FN=PRFMT002,OW=CCS20 04630CHEKID 04640 * THE LETTER FILE WILL BE CREATED 04650 * 04660INPUT=PRFMT002 04670UTIL 04680CLEAR,FN=LTRFIL 04690EX 04700LTRBLD 04710 * THE LETTER FILE HAS BEEN CREATED 04720MNUPRO 04730/! 04740DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04750LOAD,FN=PRFMT003,OW=CCS20 04760CHEKID 04770 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE  3x EXECUTED 04780 * 04790 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04800 * FROM THE CONSOLE 04810 * 04820 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04830UTFMTN 04840 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04850INPUT=PRFMT003 04860UTIL 04870LIST,FN=UTIFIL,L=LPRINTER,F=U 04880EX 04890 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04900 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04910MNUPRO 04920/! 04930DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04940LOAD,FN=PRFMT004,OW=CCS20 04950CHEKID 04960 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 04970 * 04980 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04990DECMTN 05000 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05010MNUPRO 05020/! 05030DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05040LOAD,FN=PRFMT005,OW=CCS20 05050CHEKID 05060 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05070AVMDMP 05080 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05090MNUPRO 05100/! 05110DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05120LOAD,FN=PRFMT006,OW=CCS20 05130CHEKID 05140 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05150 * 05160AVMCON 05170 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05180 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05190AVMDMP 05200 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05210MNUPRO 05220/! 05230DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05240LOAD,FN=PRFMT007,OW=CCS20 05250CHEKID  3x 05260 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05270 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05280 * SCREEN INFORMATION 05290CCSSPC 05300CCSPAS 05310 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05320MNUPRO 05330/! 05340DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05350LOAD,FN=PRFMT008,OW=CCS20 05360CHEKID 05370 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05380INPUT=PRFMT008 05390UTIL 05400LIST,FN=SCRNDESC,L=LPRINTER,F=U 05410EX 05420 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05430 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05440 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05450 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05460 * CARRIAGE RETURN WHEN READY TO CONTINUE 05470CCSPAS 05480MNUPRO 05490/! 05500DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05510LOAD,FN=PRFMT009,OW=CCS20 05520CHEKID 05530 * THE SCREEN FILE WILL BE CREATED 05540BLDSRN 05550 * THE SCREEN FILE HAS BEEN CREATED 05560MNUPRO 05570/! 05580DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05590LOAD,FN=PRFMT010,OW=CCS20 05600CHEKID 05610 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05620 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05630 * CARRIAGE RETURN ONLY - TO CONTINUE 05640 * 05650CCSPAS 05660 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05670CMPDLQ 05680INPUT=PRFMT010 05690UTIL 05700COMPRE,FN=COSIGNER 05710COMPRE,FN=ACTFIL 05720EX 05730 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE Bh  3x2EEN PURGED 05740MNUPRO 05750/! 05760DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05770LOAD,FN=PRFMT011,OW=CCS20 05780CHEKID 05790 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05800 * WILL BE PRINTED 05810ACTMTN 05820 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05830 * HAS BEEN PRINTED 05840MNUPRO 05850/! 05860DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05870LOAD,FN=PRFMT012,OW=CCS20 05880CHEKID 05890 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05900 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05910 * 05920USEMTN 05930 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05940MNUPRO 05950/! 05960DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 05970LOAD,FN=PRFMT013,OW=CCS20 05980CHEKID 05990 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06000PGLTTB 06010MNUPRO 06020/! 06030DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06040LOAD,FN=PRFMT014,OW=CCS20 06050CHEKID 06060 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06070 * 06080 * THE DATA ELEMENT TABLE WILL BE PRINTED 06090PGLTTB 06100 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06110 * 06120 * THE DATA ELEMENT TABLE WILL BE UPDATED 06130 * 06140 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06150 * 06160INPUT=PRFMT014 06170SWITCH 06180000000000 06190PGUPTB 06200 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06210 * "  3xF 06220 * THE DATA ELEMENT TABLE WILL BE PURGED 06230INPUT=PRFMT014 06240UTIL 06250DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06260EX 06270PGCMPR 06280INPUT=PRFMT014 06290UTIL 06300DELETE,FN=RPTTBL 06310RENAME,FN=TBLWRK,F2=RPTTBL 06320EX 06330 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06340 * 06350 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06360MNUPRO 06370/! 06380DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06390LOAD,FN=PRFMT015,OW=CCS20 06400CHEKID 06410 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06420 * 06430 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06440PGLIST 06450 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06460 * 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06490 * 06500 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06510 * 06520PGPURG 06530INPUT=PRFMT015 06540UTIL 06550COMPRE,FN=RPTPGM 06560EX 06570 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06580 * 06590 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06600PGLIST 06610 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06620 * 06630 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06640MNUPRO 06650/! 06660DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06670LOAD,FN=PRFMT016,OW=CCS20 06680CHEKID 06690 * THE SCREEN FILES WILL BE PRINTED =`  3xZ 06700 * D 06710 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06720 * 06730PRTSCN 06740 * THE SCREEN FILES HAVE BEEN PRINTED 06750MNUPRO 06760/! 06770DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06780LOAD,FN=PRFRP001,OW=CCS20 06790CHEKID 06800INPUT=PRFRP001 06810SWITCH 0682010000000 06830 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06840 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06850 * PRINTED 06860DTLLST 06870 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06880MNUPRO 06890/! 06900DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06910LOAD,FN=PRFRP002,OW=CCS20 06920CHEKID 06930INPUT=PRFRP002 06940SWITCH 0695001000000 06960 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06970 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 06980DTLLST 06990INPUT=PRFRP002 07000UTIL 07010CLEAR,FN=SREQDL 07020EX 07030 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07040MNUPRO 07050/! 07060DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07070LOAD,FN=PRFRP003,OW=CCS20 07080CHEKID 07090 * CALCULATE AGE FOR TREND ANALYSIS 07100TRENDF 07110 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07120 * 07130 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07140INPUT=PRFRP003 07150UTIL 07160DELETE,FN=AGEWRK 07170EX  3 xn 07180INPUT=PRFRP003 07190DSORT 07200FN=ACCAGE,CCS20 07210FN=RSWFIL,CCS20 07220F2=AGEWRK,CCS20,SYSVOL 07230OP=T,F,A 07240KF=A,17,4,A,1,1 07250SL=OMIT,35,3,EQ,'RSW' 07260 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07270 * 07280 **** OPERATOR - 07290 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07300 * TREND DATA FOR NEXT RUN 07310 * 07320 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07330 * FOR NEXT RUN 07340CCSPAS 07350TRENDU 07360INPUT=PRFRP003 07370UTIL 07380CLEAR,FN=RSWFIL 07390EX 07400MNUPRO 07410/! 07420DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07430LOAD,FN=PRFRP004,OW=CCS20 07440CHEKID 07450 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07460 * THE AGEWRK FILE IS BEING SORTED 07470INPUT=PRFRP004 07480DSORT 07490FN=AGEWRK,CCS20 07500F2=AGEWRK,CCS20, 07510OP=T,F,A 07520KF=A,17,4,A,1,1 07530SL=OMIT,35,3,EQ,'RSW' 07540 * THE AGEWRK FILE HAS BEEN SORTED 07550 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07560INPUT=PRFRP004 07570SWITCH 0758010000000 07590TRENDP 07600 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07610MNUPRO 07620/! 07630DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07640LOAD,FN=PRFRP005,OW=CCS20 07650CHEKID *  3!x 07660 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07670 * THE AGEWRK FILE IS BEING SORTED 07680INPUT=PRFRP005 07690DSORT 07700FN=AGEWRK,CCS20 07710F2=AGEWRK,CCS20, 07720OP=T,F,A 07730KF=A,25,4,A,1,1 07740SL=I 07750 * THE AGEWRK FILE HAS BEEN SORTED 07760 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07770INPUT=PRFRP005 07780SWITCH 0779000000000 07800TRENDP 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07820MNUPRO 07830/! 07840DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07850LOAD,FN=PRFRP006,OW=CCS20 07860CHEKID 07870 * THE WRITE-OFF REPORT WILL BE GENERATED 07880 * THE WOEF FILE WILL BE CREATED 07890INPUT=PRFRP006 07900UTIL 07910DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07920EX 07930WRTOFE 07940 * THE WOEF FILE HAS BEEN CREATED 07950 * THE WOEF FILE IS BEING SORTED 07960INPUT=PRFRP006 07970DSORT 07980FN=WOEF,CCS20 07990F2=WOEF,CCS20, 08000OP=T,F,A 08010KF=A,25,1,A,17,4,A,21,4,A,1,16 08020SL=I 08030 * THE WOEF FILE HAS BEEN SORTED 08040 * THE WRITE-OFF REPORT WILL BE PRINTED 08050WRTOFP 08060INPUT=PRFRP006 08070UTIL 08080DELETE,FN=WOEF 08090EX 08100 * THE WRITE-OFF REPORT IS COMPLETE 08110MNUPRO 08120/! 08130DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL  3"x=SYSVOL ,OW=CCS20 08140LOAD,FN=PRFRP007,OW=CCS20 08150CHEKID 08160 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08170DALIST 08180 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08190MNUPRO 08200/! 08210DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08220LOAD,FN=PRFRP008,OW=CCS20 08230CHEKID 08240 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08250SUMACL 08260 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08270MNUPRO 08280/! 08290DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08300LOAD,FN=PRFRP009,OW=CCS20 08310CHEKID 08320 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08330INPUT=PRFRP009 08340SWITCH 0835001000000 08360COLSTS 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08380 **** OPERATOR - 08390 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08400 * 08410 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08420CCSPAS 08430INPUT=PRFRP009 08440SWITCH 0845000001000 08460COLSTS 08470MNUPRO 08480/! 08490DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08500LOAD,FN=PRFRP010,OW=CCS20 08510CHEKID 08520 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08530INPUT=PRFRP010 08540SWITCH 0855000100000 08560COLSTS 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08580 **** OPERATOR - 08590 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08600 * STATISTICS COUNT FILE 08610 * ܒ  3#x 08620 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08630 * COUNT FILE 08640CCSPAS 08650INPUT=PRFRP010 08660UTIL 08670CLEAR,FN=COLSTATS 08680EX 08690MNUPRO 08700/! 08710DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08720LOAD,FN=PRFCNTRL,OW=CCS20 08730CHEKID 08740 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08750 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08760 * TO ACTIVATE BATCH HOST 08770 * MI, *BATCH,F 08780 * 08790 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08800 * 08810 * CARRIAGE RETURN ONLY - TO CONTINUE 08820CCSPAS 08830 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08840INPUT=PRFCNTRL 08850UTIL 08860DEFINE,FN=RPTWKE,LR=80,NR=1000 08870DEFINE,FN=RPTWKP,LR=80,NR=1000 08880DEFINE,FN=PRCWRK,LR=80,NR=50 08890EX 08900PGGEN 08910 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08920 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08930INPUT=PRFCNTRL 08940UTIL 08950BATCH,FN=RPTWKE,TY=N 08960BATCH,FN=RPTWKP,TY=R 08970DELETE,FN=RPTWKE 08980DELETE,FN=RPTWKP 08990CLEAR,FN=PGEXTR 09000EX 09010PGCNT1 09020 * 09030 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09040 * CARRIAGE RETURN WHEN READY 09050CCSPAS 09060MNUPRO 09070/! 09080DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09090LOAD,FN=PRFRP012,OW=CCS20 =  3$x 09100CHEKID 09110 * THE QUEUE LOADING REPORT WILL BE PRINTED 09120QLOAD 09130 * THE QUEUE LOADING REPORT IS COMPLETE 09140MNUPRO 09150/! 09160DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09170LOAD,FN=PRFRP014,OW=CCS20 09180CHEKID 09190 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09200 ***** 09210 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09220 ***** OR NOT TREND ANALYSIS IS BEING USED. 09230 ***** 09240 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09250 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09260 **** 09270 *** 09280CCSPAS 09290 * 09300CMPACC 09310 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09320MNUPRO 09330/! 09340 09350 09360 09370 09380 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570 c  3%x 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09690NR=50 09700DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=36000,OW=CCS20 09710DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=36000,VL=CDD01; 09720OW=CCS20 09730DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09740DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09750DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=36000,VL=CDD01,OW=CCS20 09760DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=36000,VL=SYSVOL,OW=CCS20 09770DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09780DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09790OW=CCS20 09800DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=36000,VL=CDD01; 09810OW=CCS20 09820DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09830DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09840DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=36000; 09850VL=CDD02,OW=CCS20 09860DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=36000,VL=SYSVOL,OW=CCS20 09870DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=3000,VL=CDD01,OW=CCS20 09880DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09890LOAD,FN=DUMMY,OW=CCS20 09900 09910/! 09920DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=36000,VL=CDD01,OW=CCS20 09930DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09940DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 09950OW=CCS20 09960DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 09970DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=36000,OW=CCS20 09980DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 09990DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=18000,VL=CDD01,OW=CCS20 10020DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10030DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10040OW=CCS20 10050DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=300,VL=h  3&xCDD01,OW=CCS20 10060DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=36000,VL=CDD01; 10070OW=CCS20 10080DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=36000,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10110DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10120DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10130DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20 10140DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10150EX 10160MOVDAT 10170 * THE 36000 ACCOUNT SYSTEM BUILD IS COMPLETE 10180 * 10190 * PROCEED WITH THE INSTALLATION TEST PROCEDURES. 10200 * 10210MNUPRO 10220__NISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL)  3'x 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840ALyS $$ UNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR * 00010 * PROCEDURE TO BUILD 78000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC004 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE U  3(yPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 4  3)y" 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960 * 00970PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 00980PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 00990PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01000PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01010PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01020PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01030PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01040PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01050PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01060PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01070PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01080PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01090PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01100PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01110PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01120PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/! 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIMA  3*y6E USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A %  3+yJ 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY 02090CCSPAS 02100INPUT=PRFDC004 02110SWITCH 0212010000000 02130 * THE UPDATE TAPE WILL BE PROCESSED 02140UPDATE 02150 * THE UPDATE TAPE HAS BEEN PROCESSED 02160 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02170 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02180 * SCREEN INFORMAT}  3,y^ION 02190CCSSPC 02200CCSPAS 02210 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02220MNUPRO 02230/! 02240DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02250LOAD,FN=PRFDC005,OW=CCS20 02260CHEKID 02270 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02280 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02290 * CARRIAGE RETURN WHEN READY 02300CCSPAS 02310INPUT=PRFDC005 02320SWITCH 0233010000000 02340UPD400 02350 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02360MNUPRO 02370/! 02380DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02390LOAD,FN=PRFDC006,OW=CCS20 02400CHEKID 02410 * THE FINANCIAL UPDATES WILL BE PROCESSED 02420 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02430 * 02440INPUT=PRFDC006 02450MOUNT 02460FTAPE,B,P 02470/* 02480UPD500 02490 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02500MNUPRO 02510/! 02520DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02530LOAD,FN=PRFDC007,OW=CCS20 02540CHEKID 02550 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02560DHUPDT 02570 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02580MNUPRO 02590/! 02600DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02610LOAD,FN=PRFDC008,OW=CCS20 02620CHEKID 02630 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02640 * COLLECTORS ARE OFF-LINE FOR THE DAY 02650MNUPRO 02660/! t  3-yr 02670DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02680LOAD,FN=PRFDC009,OW=CCS20 02690CHEKID 02700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02710 * COLLECTORS ARE OFF-LINE FOR THE DAY 02720MNUPRO 02730/! 02740DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02750LOAD,FN=PRFDC010,OW=CCS20 02760CHEKID 02770 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02780 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02790 * CARRIAGE RETURN ONLY - TO CONTINUE 02800 * 02810CCSPAS 02820 * 02830 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02840 * 02850INPUT=PRFDC010 02860UTIL 02870CLEAR,FN=TRNSFL 02880EX 02890INPUT=PRFDC010 02900DSORT 02910FN=TRANFL,CCS20 02920F2=TRNSFL,CCS20, 02930OP=T,F,A 02940KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 02950SL=I 02960PRETSR 02970INPUT=PRFDC010 02980UTIL 02990CLEAR,FN=ACTIVE 03000CLEAR,FN=TRANFL 03010CLEAR,FN=TRNBCK 03020EX 03030 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03040NMCHNG 03050RSWCHG 03060INPUT=PRFDC010 03070UTIL 03080CLEAR,FN=ADDACT 03090EX 03100MNUPRO 03110/! 03120DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03130LOAD,FN=PRFDC011,OW=CCS20 03140CHEKID vs  3.y 03150 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03160 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03170 * CARRIAGE RETURN ONLY - TO CONTINUE 03180 * 03190CCSPAS 03200 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03210INPUT=PRFDC011 03220UTIL 03230CLEAR,FN=DLYWRK 03240EX 03250SRREQ 03260 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03270 * 03280 * THE DLYASSN FILE IS BEING CREATED 03290DACRTE 03300 * THE DLYASSN FILE HAS BEEN CREATED 03310 * THE DLYASSN FILE IS BEING SORTED 03320INPUT=PRFDC011 03330DSORT 03340FN=DLYWRK,CCS20 03350FN=DLYASSN,CCS20 03360F2=DLYASSN,CCS20, 03370OP=T,F,A 03380KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03390SL=I 03400 * THE DLYASSN FILE HAS BEEN SORTED 03410INPUT=PRFDC011 03420UTIL 03430CLEAR,FN=DAQUE 03440EX 03450 * THE DAILY QUEUE FILE IS BEING CREATED 03460DAQUEL 03470 * THE DAILY QUEUE FILE HAS BEEN CREATED 03480 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03490 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03500 * SCREEN INFORMATION 03510CCSSPC 03520CCSPAS 03530 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03540 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03550MNUPRO 03560/! 03570DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03580LOAD,FN=PRFHS001,OW=CCS20 03590CHEKID 03600 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03610 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03620INPUT=PRFHS001 e^  3/y 03630DSORT 03640FN=INACCT,CCS20 03650F2=INTEMP,CCS20, 03660OP=T,F,A 03670KF=A,1,16,D,23,2,D,19,4 03680SL=I 03690INPUT=PRFHS001 03700UTIL 03710CLEAR,FN=INACCT 03720COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03730DELETE,FN=INTEMP 03740EX 03750 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03760 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03770 * WITH WRITE RING 03780 * CARRIAGE RETURN WHEN READY 03790CCSPAS 03800MHUPDT 03810 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 03820 * REBUILDING INACCT 03830FIXINA 03840 * INACCT REBUILD COMPLETE 03850MNUPRO 03860/! 03870DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03880LOAD,FN=PRFHS002,OW=CCS20 03890CHEKID 03900 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03910 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03920 * CARRIAGE RETURN ONLY - TO CONTINUE 03930 * 03940CCSPAS 03950 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 03960INPUT=PRFHS002 03970UTIL 03980DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 03990EX 04000CHUPD1 04010 * THE UPREQ FILE WILL BE SORTED 04020INPUT=PRFHS002 04030DSORT 04040FN=UPREQ,CCS20 04050F2=UPREQ,CCS20, 04060OP=T,F,A 04070KF=D,21,2,D,17,4,A,1,16 04080SL=I 04090 * THE UPREQ FILE HAS BEEN SORTED 04100INPUT=PRFHS002 }  30y 04110UTIL 04120CLEAR,FN=UPHSTCM 04130EX 04140 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04150 * EXECUTION OF THE NEXT JOB 04160CHUPD2 04170INPUT=PRFHS002 04180UTIL 04190DELETE,FN=UPREQ 04200EX 04210 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04220MNUPRO 04230/! 04240DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04250LOAD,FN=PRFHS003,OW=CCS20 04260CHEKID 04270 * THE SUMHIST FILE WILL BE PURGED 04280PHDEL2 04290CMPSUM 04300 * THE SUMHIST FILE HAS BEEN PURGED 04310MNUPRO 04320/! 04330DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04340LOAD,FN=PRFHS004,OW=CCS20 04350CHEKID 04360 * THE TAPEARC FILE WILL BE PURGED 04370PHDEL1 04380INPUT=PRFHS004 04390UTIL 04400COMPRE,FN=TAPEARC 04410EX 04420 * THE TAPEARC FILE HAS BEEN PURGED 04430MNUPRO 04440/! 04450DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04460LOAD,FN=PRFMT001,OW=CCS20 04470CHEKID 04480 * THE LETTER DEFINITION FILE WILL BE PRINTED 04490INPUT=PRFMT001 04500UTIL 04510LIST,FN=LTRDESC,L=LPRINTER,F=U 04520EX 04530 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04540 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04550 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04560 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04570 * CARRIAGE RETURN WHEN READY TO CONTINUE 04580CCSPAS  31y 04590MNUPRO 04600/! 04610DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04620LOAD,FN=PRFMT002,OW=CCS20 04630CHEKID 04640 * THE LETTER FILE WILL BE CREATED 04650 * 04660INPUT=PRFMT002 04670UTIL 04680CLEAR,FN=LTRFIL 04690EX 04700LTRBLD 04710 * THE LETTER FILE HAS BEEN CREATED 04720MNUPRO 04730/! 04740DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04750LOAD,FN=PRFMT003,OW=CCS20 04760CHEKID 04770 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04780 * 04790 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04800 * FROM THE CONSOLE 04810 * 04820 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04830UTFMTN 04840 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04850INPUT=PRFMT003 04860UTIL 04870LIST,FN=UTIFIL,L=LPRINTER,F=U 04880EX 04890 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04900 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04910MNUPRO 04920/! 04930DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04940LOAD,FN=PRFMT004,OW=CCS20 04950CHEKID 04960 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 04970 * 04980 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04990DECMTN 05000 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05010MNUPRO 05020/! 05030DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05040LOAD,FN=PRFMT005,OW=CCS20 05050CHEKID 05060 * THE ACTIVITY VERIFICATION TABpN  32yLE WILL BE PRINTED 05070AVMDMP 05080 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05090MNUPRO 05100/! 05110DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05120LOAD,FN=PRFMT006,OW=CCS20 05130CHEKID 05140 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05150 * 05160AVMCON 05170 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05180 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05190AVMDMP 05200 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05210MNUPRO 05220/! 05230DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05240LOAD,FN=PRFMT007,OW=CCS20 05250CHEKID 05260 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05270 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05280 * SCREEN INFORMATION 05290CCSSPC 05300CCSPAS 05310 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05320MNUPRO 05330/! 05340DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05350LOAD,FN=PRFMT008,OW=CCS20 05360CHEKID 05370 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05380INPUT=PRFMT008 05390UTIL 05400LIST,FN=SCRNDESC,L=LPRINTER,F=U 05410EX 05420 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05430 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05440 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05450 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05460 * CARRIAGE RETURN WHEN READY TO CONTINUE 05470CCSPAS 05480MNUPRO 05490/! 05500DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05510LOAD,FN=PRFMT009,OW=CCS20 05520CHEKID 05530 * THE SCREEN FILE WILL BE CREATED 05540BLDSRN   33y 05550 * THE SCREEN FILE HAS BEEN CREATED 05560MNUPRO 05570/! 05580DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05590LOAD,FN=PRFMT010,OW=CCS20 05600CHEKID 05610 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05620 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05630 * CARRIAGE RETURN ONLY - TO CONTINUE 05640 * 05650CCSPAS 05660 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05670CMPDLQ 05680INPUT=PRFMT010 05690UTIL 05700COMPRE,FN=COSIGNER 05710COMPRE,FN=ACTFIL 05720EX 05730 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05740MNUPRO 05750/! 05760DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05770LOAD,FN=PRFMT011,OW=CCS20 05780CHEKID 05790 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05800 * WILL BE PRINTED 05810ACTMTN 05820 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05830 * HAS BEEN PRINTED 05840MNUPRO 05850/! 05860DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05870LOAD,FN=PRFMT012,OW=CCS20 05880CHEKID 05890 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05900 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05910 * 05920USEMTN 05930 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05940MNUPRO 05950/! 05960DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 05970LOAD,FN=PRFMT013,OW=CCS20 05980CHEKID 05990 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06000PGLTTB 06010MNUPRO 06020/! +  34y 06030DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06040LOAD,FN=PRFMT014,OW=CCS20 06050CHEKID 06060 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06070 * 06080 * THE DATA ELEMENT TABLE WILL BE PRINTED 06090PGLTTB 06100 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06110 * 06120 * THE DATA ELEMENT TABLE WILL BE UPDATED 06130 * 06140 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06150 * 06160INPUT=PRFMT014 06170SWITCH 06180000000000 06190PGUPTB 06200 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06210 * 06220 * THE DATA ELEMENT TABLE WILL BE PURGED 06230INPUT=PRFMT014 06240UTIL 06250DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06260EX 06270PGCMPR 06280INPUT=PRFMT014 06290UTIL 06300DELETE,FN=RPTTBL 06310RENAME,FN=TBLWRK,F2=RPTTBL 06320EX 06330 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06340 * 06350 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06360MNUPRO 06370/! 06380DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06390LOAD,FN=PRFMT015,OW=CCS20 06400CHEKID 06410 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06420 * 06430 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06440PGLIST 06450 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06460 * 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06490 * 06500 **** OPERATOR - FOLLOW THE INST}S  35zRUCTIONS AS THEY APPEAR ON THE SCREEN 06510 * 06520PGPURG 06530INPUT=PRFMT015 06540UTIL 06550COMPRE,FN=RPTPGM 06560EX 06570 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06580 * 06590 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06600PGLIST 06610 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06620 * 06630 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06640MNUPRO 06650/! 06660DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06670LOAD,FN=PRFMT016,OW=CCS20 06680CHEKID 06690 * THE SCREEN FILES WILL BE PRINTED 06700 * D 06710 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06720 * 06730PRTSCN 06740 * THE SCREEN FILES HAVE BEEN PRINTED 06750MNUPRO 06760/! 06770DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06780LOAD,FN=PRFRP001,OW=CCS20 06790CHEKID 06800INPUT=PRFRP001 06810SWITCH 0682010000000 06830 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06840 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06850 * PRINTED 06860DTLLST 06870 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06880MNUPRO 06890/! 06900DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06910LOAD,FN=PRFRP002,OW=CCS20 06920CHEKID 06930INPUT=PRFRP002 06940SWITCH 0695001000000 06960 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06970 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 06980DTLLST P  36z& 06990INPUT=PRFRP002 07000UTIL 07010CLEAR,FN=SREQDL 07020EX 07030 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07040MNUPRO 07050/! 07060DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07070LOAD,FN=PRFRP003,OW=CCS20 07080CHEKID 07090 * CALCULATE AGE FOR TREND ANALYSIS 07100TRENDF 07110 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07120 * 07130 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07140INPUT=PRFRP003 07150UTIL 07160DELETE,FN=AGEWRK 07170EX 07180INPUT=PRFRP003 07190DSORT 07200FN=ACCAGE,CCS20 07210FN=RSWFIL,CCS20 07220F2=AGEWRK,CCS20,SYSVOL 07230OP=T,F,A 07240KF=A,17,4,A,1,1 07250SL=OMIT,35,3,EQ,'RSW' 07260 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07270 * 07280 **** OPERATOR - 07290 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07300 * TREND DATA FOR NEXT RUN 07310 * 07320 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07330 * FOR NEXT RUN 07340CCSPAS 07350TRENDU 07360INPUT=PRFRP003 07370UTIL 07380CLEAR,FN=RSWFIL 07390EX 07400MNUPRO 07410/! 07420DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07430LOAD,FN=PRFRP004,OW=CCS20 07440CHEKID 07450 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07460 * THE AGEWRK FILE IS BEING SORTH  37z:ED 07470INPUT=PRFRP004 07480DSORT 07490FN=AGEWRK,CCS20 07500F2=AGEWRK,CCS20, 07510OP=T,F,A 07520KF=A,17,4,A,1,1 07530SL=OMIT,35,3,EQ,'RSW' 07540 * THE AGEWRK FILE HAS BEEN SORTED 07550 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07560INPUT=PRFRP004 07570SWITCH 0758010000000 07590TRENDP 07600 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07610MNUPRO 07620/! 07630DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07640LOAD,FN=PRFRP005,OW=CCS20 07650CHEKID 07660 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07670 * THE AGEWRK FILE IS BEING SORTED 07680INPUT=PRFRP005 07690DSORT 07700FN=AGEWRK,CCS20 07710F2=AGEWRK,CCS20, 07720OP=T,F,A 07730KF=A,25,4,A,1,1 07740SL=I 07750 * THE AGEWRK FILE HAS BEEN SORTED 07760 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07770INPUT=PRFRP005 07780SWITCH 0779000000000 07800TRENDP 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07820MNUPRO 07830/! 07840DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07850LOAD,FN=PRFRP006,OW=CCS20 07860CHEKID 07870 * THE WRITE-OFF REPORT WILL BE GENERATED 07880 * THE WOEF FILE WILL BE CREATED 07890INPUT=PRFRP006 07900UTIL 07910DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07920EX 07930WRTOFE 07940 * THE WOEF FILE HAS BEEN CREATE  38zND 07950 * THE WOEF FILE IS BEING SORTED 07960INPUT=PRFRP006 07970DSORT 07980FN=WOEF,CCS20 07990F2=WOEF,CCS20, 08000OP=T,F,A 08010KF=A,25,1,A,17,4,A,21,4,A,1,16 08020SL=I 08030 * THE WOEF FILE HAS BEEN SORTED 08040 * THE WRITE-OFF REPORT WILL BE PRINTED 08050WRTOFP 08060INPUT=PRFRP006 08070UTIL 08080DELETE,FN=WOEF 08090EX 08100 * THE WRITE-OFF REPORT IS COMPLETE 08110MNUPRO 08120/! 08130DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08140LOAD,FN=PRFRP007,OW=CCS20 08150CHEKID 08160 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08170DALIST 08180 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08190MNUPRO 08200/! 08210DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08220LOAD,FN=PRFRP008,OW=CCS20 08230CHEKID 08240 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08250SUMACL 08260 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08270MNUPRO 08280/! 08290DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08300LOAD,FN=PRFRP009,OW=CCS20 08310CHEKID 08320 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08330INPUT=PRFRP009 08340SWITCH 0835001000000 08360COLSTS 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08380 **** OPERATOR - 08390 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08400 * 08410 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08420CCSPAS  39zb 08430INPUT=PRFRP009 08440SWITCH 0845000001000 08460COLSTS 08470MNUPRO 08480/! 08490DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08500LOAD,FN=PRFRP010,OW=CCS20 08510CHEKID 08520 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08530INPUT=PRFRP010 08540SWITCH 0855000100000 08560COLSTS 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08580 **** OPERATOR - 08590 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08600 * STATISTICS COUNT FILE 08610 * 08620 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08630 * COUNT FILE 08640CCSPAS 08650INPUT=PRFRP010 08660UTIL 08670CLEAR,FN=COLSTATS 08680EX 08690MNUPRO 08700/! 08710DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08720LOAD,FN=PRFCNTRL,OW=CCS20 08730CHEKID 08740 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08750 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08760 * TO ACTIVATE BATCH HOST 08770 * MI, *BATCH,F 08780 * 08790 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08800 * 08810 * CARRIAGE RETURN ONLY - TO CONTINUE 08820CCSPAS 08830 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08840INPUT=PRFCNTRL 08850UTIL 08860DEFINE,FN=RPTWKE,LR=80,NR=1000 08870DEFINE,FN=RPTWKP,LR=80,NR=1000 08880DEFINE,FN=PRCWRK,LR=80,NR=50 08890EX 08900PGGEN  3:zv 08910 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08920 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08930INPUT=PRFCNTRL 08940UTIL 08950BATCH,FN=RPTWKE,TY=N 08960BATCH,FN=RPTWKP,TY=R 08970DELETE,FN=RPTWKE 08980DELETE,FN=RPTWKP 08990CLEAR,FN=PGEXTR 09000EX 09010PGCNT1 09020 * 09030 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09040 * CARRIAGE RETURN WHEN READY 09050CCSPAS 09060MNUPRO 09070/! 09080DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09090LOAD,FN=PRFRP012,OW=CCS20 09100CHEKID 09110 * THE QUEUE LOADING REPORT WILL BE PRINTED 09120QLOAD 09130 * THE QUEUE LOADING REPORT IS COMPLETE 09140MNUPRO 09150/! 09160DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09170LOAD,FN=PRFRP014,OW=CCS20 09180CHEKID 09190 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09200 ***** 09210 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09220 ***** OR NOT TREND ANALYSIS IS BEING USED. 09230 ***** 09240 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09250 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09260 **** 09270 *** 09280CCSPAS 09290 * 09300CMPACC 09310 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09320MNUPRO 09330/! 09340 09350 09360 09370 09380 ́  3;z 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09690NR=50 09700DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=78000,OW=CCS20; 09710VL=CDD01 09720DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=78000,VL=SYSVOL; 09730OW=CCS20 09740DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09750DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09760DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=78000,VL=SYSVOL,OW=CCS20 09770DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=78000,VL=SYSVOL,OW=CCS20 09780DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=SYSVOL,OW=CCS20 09790DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=SYSVOL; 09800OW=CCS20 09810DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=78000,VL=SYSVOL; 09820OW=CCS20 09830DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09840DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09850DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=78000; 09860VL=CDD01,OW=CCS20 `  3<z 09870DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=78000,VL=SYSVOL,OW=CCS20 09880DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=6500,VL=CDD01,OW=CCS20 09890DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09900LOAD,FN=DUMMY,OW=CCS20 09910 09920/! 09930DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=78000,VL=CDD01,OW=CCS20 09940DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09950DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 09960OW=CCS20 09970DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=SYSVOL,OW=CCS20 09980DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=78000,OW=CCS20,VL=CDD01 09990DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=SYSVOL,OW=CCS20 10000DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=SYSVOL; 10010OW=CCS20 10020DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=39000,VL=SYSVOL,OW=CCS20 10030DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10040DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=SYSVOL; 10050OW=CCS20 10060DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=650,VL=SYSVOL,OW=CCS20 10070DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=78000,VL=SYSVOL; 10080OW=CCS20 10090DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=78000,VL=CDD01; 10100OW=CCS20 10110DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10120DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10130DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10140DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=650,VL=SYSVOL,OW=CCS20 10150DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10160EX 10170MOVDAT 10180 * THE 78000 ACCOUNT SYSTEM BUILD IS COMPLETE 10190 * 10200 * PROCEED WITH THE INSTALLATION TEST PROCEDURES. 10210 * 10220MNUPRO 10230__ 00320DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00330DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSME]"  3=zNU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU 00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00840ALzS $$ IS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REP * 00010 * PROCEDURE TO BUILD 12000-9000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC005 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ rf  3>z 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00180MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES 00190MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES 00200MNUPRO LO - L/A ON DEMAND REPORTING 00210MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY 00220MNUPRO EX - EXIT 00230/! 00240DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00250LOAD,FN=$$DCMENU,OW=$$ 00260 * DAILY CYCLE MENU 00270 * 00280DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00290DCPRTLTR B - PRINT REQUESTED LETTERS 00300DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00310DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00320DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00330DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU 00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT ;  3?z 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00840RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00870RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00880RPDLYASN G - DAILY ASSIGNMENT LIST 00890RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00900RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00910RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00920RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00930PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00940PRFRP012 M - QUEUE LOADING REPORT 00950PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00960 Z - EXIT 00970/! 00980DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00990LOAD,FN=$$RGMENU,OW=$$ 01000 * REPORT GENERATOR - REPORT DIRECTORY  3@z 01010 * 01020PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 01030PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 01040PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01050PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01060PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01070PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01080PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01090PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01100PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01110PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01120PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01130PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01140PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01150PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01160PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01170PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01180PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01190PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01200PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01210 Z - EXIT 01220/! 01230DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01240LOAD,FN=PRFDC001,OW=CCS20 01250CHEKID 01260 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01270 * - TIME USAGE REPORT 01280 * - DAILY COLLECTOR STATISTICS REPORT 01290 * 01300INPUT=PRFDC001 01310UTIL 01320CLEAR,FN=DLYWRK 01330EX 01340 * TRNSFL FILE IS NOW BEING SORTED 01350INPUT=PRFDC001 01360DSORT 01370FN=TRNSFL,CCS20 01380F2=TRNSFL,CCS20, 01390OP=T,F,A 01400KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01410SL=I 01420 * THE TRNSFL FILE HAS BEEN SORTED 01430 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01440COLCHG 01450 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01460 * THE TIME USAGE REPORT WILL BE PRINTED 01470TIMUSE 01480 * THE TIME USAGE REPORT IS COMPLETE 2  3A{ 01490INPUT=PRFDC001 01500SWITCH 0151010000000 01520 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01530COLSTS 01540 * THE DAILY STATISTICS REPORT IS COMPLETE 01550 **** OPERATOR - 01560 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01570 * 01580 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01590CCSPAS 01600INPUT=PRFDC001 01610SWITCH 0162000010000 01630COLSTS 01640 * THIS ROUTINE IS COMPLETE 01650MNUPRO 01660/! 01670DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01680LOAD,FN=PRFDC002,OW=CCS20 01690CHEKID 01700 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01710INPUT=PRFDC002 01720DSORT 01730FN=TRNSFL,CCS20 01740F2=TRNSFL,CCS20, 01750OP=T,F,A 01760KF=A,17,4,A,41,2,A,1,16 01770SL=I 01780 **** OPERATOR - LOAD LETTER PAPER 01790 * CARRIAGE RETURN WHEN READY 01800 * 01810CCSPAS 01820 * THE REQUESTED LETTERS WILL BE PRINTED 01830LTRPRT 01840 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01850 **** OPERATOR - LOAD REGULAR PAPER 01860 * CARRIAGE RETURN WHEN READY 01870 * 01880CCSPAS 01890 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01900LTRSTA 01910 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01920MNUPRO 01930/! 01940DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01950LOAD,FN=PRFDC003,OW=CCS20 01960CHEKID z  3B{ 01970 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01980INPUT=PRFDC003 01990DSORT 02000FN=TRNSFL,CCS20 02010F2=TRNSFL,CCS20, 02020OP=T,F,A 02030KF=A,29,2,A,21,4,D,25,4,D,121,2 02040SL=I 02050ACTADD 02060 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02070MNUPRO 02080/! 02090DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02100LOAD,FN=PRFDC004,OW=CCS20 02110CHEKID 02120 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02130 * CARRIAGE RETURN WHEN READY 02140CCSPAS 02150INPUT=PRFDC004 02160SWITCH 0217010000000 02180 * THE UPDATE TAPE WILL BE PROCESSED 02190UPDATE 02200 * THE UPDATE TAPE HAS BEEN PROCESSED 02210 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02220 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02230 * SCREEN INFORMATION 02240CCSSPC 02250CCSPAS 02260 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02270MNUPRO 02280/! 02290DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02300LOAD,FN=PRFDC005,OW=CCS20 02310CHEKID 02320 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02330 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02340 * CARRIAGE RETURN WHEN READY 02350CCSPAS 02360INPUT=PRFDC005 02370SWITCH 0238010000000 02390UPD400 02400 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02410MNUPRO 02420/! 02430DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02440LOAD,FN=PRFDC006,OW=CCS20 Ȁ  3C{* 02450CHEKID 02460 * THE FINANCIAL UPDATES WILL BE PROCESSED 02470 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02480 * 02490INPUT=PRFDC006 02500MOUNT 02510FTAPE,B,P 02520/* 02530UPD500 02540 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02550MNUPRO 02560/! 02570DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02580LOAD,FN=PRFDC007,OW=CCS20 02590CHEKID 02600 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02610DHUPDT 02620 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02630MNUPRO 02640/! 02650DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02660LOAD,FN=PRFDC008,OW=CCS20 02670CHEKID 02680 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02690 * COLLECTORS ARE OFF-LINE FOR THE DAY 02700MNUPRO 02710/! 02720DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02730LOAD,FN=PRFDC009,OW=CCS20 02740CHEKID 02750 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02760 * COLLECTORS ARE OFF-LINE FOR THE DAY 02770MNUPRO 02780/! 02790DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02800LOAD,FN=PRFDC010,OW=CCS20 02810CHEKID 02820 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02830 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02840 * CARRIAGE RETURN ONLY - TO CONTINUE 02850 * 02860CCSPAS 02870 * 02880 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02890 * 02900INPUT=PRFDC010 02910UTIL 02920CLEAR,FN=TRNSFL  3D{> 02930EX 02940INPUT=PRFDC010 02950DSORT 02960FN=TRANFL,CCS20 02970F2=TRNSFL,CCS20, 02980OP=T,F,A 02990KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 03000SL=I 03010PRETSR 03020INPUT=PRFDC010 03030UTIL 03040CLEAR,FN=ACTIVE 03050CLEAR,FN=TRANFL 03060CLEAR,FN=TRNBCK 03070EX 03080 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03090NMCHNG 03100RSWCHG 03110INPUT=PRFDC010 03120UTIL 03130CLEAR,FN=ADDACT 03140EX 03150MNUPRO 03160/! 03170DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03180LOAD,FN=PRFDC011,OW=CCS20 03190CHEKID 03200 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03210 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03220 * CARRIAGE RETURN ONLY - TO CONTINUE 03230 * 03240CCSPAS 03250 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03260INPUT=PRFDC011 03270UTIL 03280CLEAR,FN=DLYWRK 03290EX 03300SRREQ 03310 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03320 * 03330 * THE DLYASSN FILE IS BEING CREATED 03340DACRTE 03350 * THE DLYASSN FILE HAS BEEN CREATED 03360 * THE DLYASSN FILE IS BEING SORTED 03370INPUT=PRFDC011 03380DSORT 03390FN=DLYWRK,CCS20 03400FN=DLYASSN,CCS20 gA  3EyALyS $$ UNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR * 00010 * PROCEDURE TO BUILD 78000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC004 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAP  3FyE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VLIU  3Gy*=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960 * 00970PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 00980PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 00990PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01000PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01010PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01020PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01030PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01040PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01050PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01060PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01070PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01080PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01090PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01100PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01110PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01120PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/! 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIME USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED   3Hy> 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL  3IyR=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY 02090CCSPAS 02100INPUT=PRFDC004 02110SWITCH 0212010000000 02130 * THE UPDATE TAPE WILL BE PROCESSED 02140UPDATE 02150 * THE UPDATE TAPE HAS BEEN PROCESSED 02160 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02170 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02180 * SCREEN INFORMATION 02190CCSSPC 02200CCSPAS 02210 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02220MNUPRO 02230/! 02240DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02250LOAD,FN=PRFDC005,OW=CCS20 02260CHEKID 02270 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02280 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02290 * CARRIAGE RETURN WHEN READY 02300CCSPAS 02310INPUT=PRFDC005 02320SWITCH 0233010000000 02340UPD400 02350 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02360MNUPRO 02370/!  3Jyf 02380DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02390LOAD,FN=PRFDC006,OW=CCS20 02400CHEKID 02410 * THE FINANCIAL UPDATES WILL BE PROCESSED 02420 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02430 * 02440INPUT=PRFDC006 02450MOUNT 02460FTAPE,B,P 02470/* 02480UPD500 02490 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02500MNUPRO 02510/! 02520DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02530LOAD,FN=PRFDC007,OW=CCS20 02540CHEKID 02550 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02560DHUPDT 02570 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02580MNUPRO 02590/! 02600DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02610LOAD,FN=PRFDC008,OW=CCS20 02620CHEKID 02630 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02640 * COLLECTORS ARE OFF-LINE FOR THE DAY 02650MNUPRO 02660/! 02670DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02680LOAD,FN=PRFDC009,OW=CCS20 02690CHEKID 02700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02710 * COLLECTORS ARE OFF-LINE FOR THE DAY 02720MNUPRO 02730/! 02740DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02750LOAD,FN=PRFDC010,OW=CCS20 02760CHEKID 02770 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02780 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02790 * CARRIAGE RETURN ONLY - TO CONTINUE 02800 * 02810CCSPAS 02820 * 02830 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02840 * 02850INPUT=PRFDC010 SE  3Kyz 02860UTIL 02870CLEAR,FN=TRNSFL 02880EX 02890INPUT=PRFDC010 02900DSORT 02910FN=TRANFL,CCS20 02920F2=TRNSFL,CCS20, 02930OP=T,F,A 02940KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 02950SL=I 02960PRETSR 02970INPUT=PRFDC010 02980UTIL 02990CLEAR,FN=ACTIVE 03000CLEAR,FN=TRANFL 03010CLEAR,FN=TRNBCK 03020EX 03030 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03040NMCHNG 03050RSWCHG 03060INPUT=PRFDC010 03070UTIL 03080CLEAR,FN=ADDACT 03090EX 03100MNUPRO 03110/! 03120DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03130LOAD,FN=PRFDC011,OW=CCS20 03140CHEKID 03150 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03160 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03170 * CARRIAGE RETURN ONLY - TO CONTINUE 03180 * 03190CCSPAS 03200 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03210INPUT=PRFDC011 03220UTIL 03230CLEAR,FN=DLYWRK 03240EX 03250SRREQ 03260 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03270 * 03280 * THE DLYASSN FILE IS BEING CREATED 03290DACRTE 03300 * THE DLYASSN FILE HAS BEEN CREATED 03310 * THE DLYASSN FILE IS BEING SORTED 03320INPUT=PRFDC011 03330DSORT   3Ly 03340FN=DLYWRK,CCS20 03350FN=DLYASSN,CCS20 03360F2=DLYASSN,CCS20, 03370OP=T,F,A 03380KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03390SL=I 03400 * THE DLYASSN FILE HAS BEEN SORTED 03410INPUT=PRFDC011 03420UTIL 03430CLEAR,FN=DAQUE 03440EX 03450 * THE DAILY QUEUE FILE IS BEING CREATED 03460DAQUEL 03470 * THE DAILY QUEUE FILE HAS BEEN CREATED 03480 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03490 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03500 * SCREEN INFORMATION 03510CCSSPC 03520CCSPAS 03530 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03540 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03550MNUPRO 03560/! 03570DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03580LOAD,FN=PRFHS001,OW=CCS20 03590CHEKID 03600 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03610 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03620INPUT=PRFHS001 03630DSORT 03640FN=INACCT,CCS20 03650F2=INTEMP,CCS20, 03660OP=T,F,A 03670KF=A,1,16,D,23,2,D,19,4 03680SL=I 03690INPUT=PRFHS001 03700UTIL 03710CLEAR,FN=INACCT 03720COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03730DELETE,FN=INTEMP 03740EX 03750 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03760 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03770 * WITH WRITE RING 03780 * CARRIAGE RETURN WHEN READY 03790CCSPAS 03800MHUPDT 03810 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTk  3MyORY 03820 * REBUILDING INACCT 03830FIXINA 03840 * INACCT REBUILD COMPLETE 03850MNUPRO 03860/! 03870DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03880LOAD,FN=PRFHS002,OW=CCS20 03890CHEKID 03900 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03910 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03920 * CARRIAGE RETURN ONLY - TO CONTINUE 03930 * 03940CCSPAS 03950 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 03960INPUT=PRFHS002 03970UTIL 03980DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 03990EX 04000CHUPD1 04010 * THE UPREQ FILE WILL BE SORTED 04020INPUT=PRFHS002 04030DSORT 04040FN=UPREQ,CCS20 04050F2=UPREQ,CCS20, 04060OP=T,F,A 04070KF=D,21,2,D,17,4,A,1,16 04080SL=I 04090 * THE UPREQ FILE HAS BEEN SORTED 04100INPUT=PRFHS002 04110UTIL 04120CLEAR,FN=UPHSTCM 04130EX 04140 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04150 * EXECUTION OF THE NEXT JOB 04160CHUPD2 04170INPUT=PRFHS002 04180UTIL 04190DELETE,FN=UPREQ 04200EX 04210 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04220MNUPRO 04230/! 04240DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04250LOAD,FN=PRFHS003,OW=CCS20 04260CHEKID 04270 * THE SUMHIST FILE WILL BE PURGED 04280PHDEL2 04290CMPSUM -  3Ny 04300 * THE SUMHIST FILE HAS BEEN PURGED 04310MNUPRO 04320/! 04330DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04340LOAD,FN=PRFHS004,OW=CCS20 04350CHEKID 04360 * THE TAPEARC FILE WILL BE PURGED 04370PHDEL1 04380INPUT=PRFHS004 04390UTIL 04400COMPRE,FN=TAPEARC 04410EX 04420 * THE TAPEARC FILE HAS BEEN PURGED 04430MNUPRO 04440/! 04450DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04460LOAD,FN=PRFMT001,OW=CCS20 04470CHEKID 04480 * THE LETTER DEFINITION FILE WILL BE PRINTED 04490INPUT=PRFMT001 04500UTIL 04510LIST,FN=LTRDESC,L=LPRINTER,F=U 04520EX 04530 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04540 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04550 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04560 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04570 * CARRIAGE RETURN WHEN READY TO CONTINUE 04580CCSPAS 04590MNUPRO 04600/! 04610DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04620LOAD,FN=PRFMT002,OW=CCS20 04630CHEKID 04640 * THE LETTER FILE WILL BE CREATED 04650 * 04660INPUT=PRFMT002 04670UTIL 04680CLEAR,FN=LTRFIL 04690EX 04700LTRBLD 04710 * THE LETTER FILE HAS BEEN CREATED 04720MNUPRO 04730/! 04740DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04750LOAD,FN=PRFMT003,OW=CCS20 04760CHEKID 04770 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE  3OyEXECUTED 04780 * 04790 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04800 * FROM THE CONSOLE 04810 * 04820 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04830UTFMTN 04840 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04850INPUT=PRFMT003 04860UTIL 04870LIST,FN=UTIFIL,L=LPRINTER,F=U 04880EX 04890 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04900 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04910MNUPRO 04920/! 04930DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04940LOAD,FN=PRFMT004,OW=CCS20 04950CHEKID 04960 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 04970 * 04980 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04990DECMTN 05000 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05010MNUPRO 05020/! 05030DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05040LOAD,FN=PRFMT005,OW=CCS20 05050CHEKID 05060 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05070AVMDMP 05080 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05090MNUPRO 05100/! 05110DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05120LOAD,FN=PRFMT006,OW=CCS20 05130CHEKID 05140 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05150 * 05160AVMCON 05170 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05180 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05190AVMDMP 05200 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05210MNUPRO 05220/! 05230DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05240LOAD,FN=PRFMT007,OW=CCS20 05250CHEKID  3Py 05260 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05270 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05280 * SCREEN INFORMATION 05290CCSSPC 05300CCSPAS 05310 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05320MNUPRO 05330/! 05340DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05350LOAD,FN=PRFMT008,OW=CCS20 05360CHEKID 05370 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05380INPUT=PRFMT008 05390UTIL 05400LIST,FN=SCRNDESC,L=LPRINTER,F=U 05410EX 05420 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05430 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05440 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05450 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05460 * CARRIAGE RETURN WHEN READY TO CONTINUE 05470CCSPAS 05480MNUPRO 05490/! 05500DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05510LOAD,FN=PRFMT009,OW=CCS20 05520CHEKID 05530 * THE SCREEN FILE WILL BE CREATED 05540BLDSRN 05550 * THE SCREEN FILE HAS BEEN CREATED 05560MNUPRO 05570/! 05580DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05590LOAD,FN=PRFMT010,OW=CCS20 05600CHEKID 05610 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05620 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05630 * CARRIAGE RETURN ONLY - TO CONTINUE 05640 * 05650CCSPAS 05660 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05670CMPDLQ 05680INPUT=PRFMT010 05690UTIL 05700COMPRE,FN=COSIGNER 05710COMPRE,FN=ACTFIL 05720EX 05730 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE Bt  3QyEEN PURGED 05740MNUPRO 05750/! 05760DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05770LOAD,FN=PRFMT011,OW=CCS20 05780CHEKID 05790 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05800 * WILL BE PRINTED 05810ACTMTN 05820 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05830 * HAS BEEN PRINTED 05840MNUPRO 05850/! 05860DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05870LOAD,FN=PRFMT012,OW=CCS20 05880CHEKID 05890 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05900 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05910 * 05920USEMTN 05930 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05940MNUPRO 05950/! 05960DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 05970LOAD,FN=PRFMT013,OW=CCS20 05980CHEKID 05990 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06000PGLTTB 06010MNUPRO 06020/! 06030DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06040LOAD,FN=PRFMT014,OW=CCS20 06050CHEKID 06060 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06070 * 06080 * THE DATA ELEMENT TABLE WILL BE PRINTED 06090PGLTTB 06100 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06110 * 06120 * THE DATA ELEMENT TABLE WILL BE UPDATED 06130 * 06140 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06150 * 06160INPUT=PRFMT014 06170SWITCH 06180000000000 06190PGUPTB 06200 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06210 * .  3Rz 06220 * THE DATA ELEMENT TABLE WILL BE PURGED 06230INPUT=PRFMT014 06240UTIL 06250DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06260EX 06270PGCMPR 06280INPUT=PRFMT014 06290UTIL 06300DELETE,FN=RPTTBL 06310RENAME,FN=TBLWRK,F2=RPTTBL 06320EX 06330 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06340 * 06350 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06360MNUPRO 06370/! 06380DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06390LOAD,FN=PRFMT015,OW=CCS20 06400CHEKID 06410 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06420 * 06430 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06440PGLIST 06450 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06460 * 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06490 * 06500 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06510 * 06520PGPURG 06530INPUT=PRFMT015 06540UTIL 06550COMPRE,FN=RPTPGM 06560EX 06570 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06580 * 06590 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06600PGLIST 06610 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06620 * 06630 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06640MNUPRO 06650/! 06660DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06670LOAD,FN=PRFMT016,OW=CCS20 06680CHEKID 06690 * THE SCREEN FILES WILL BE PRINTED ;l  3Sz 06700 * D 06710 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06720 * 06730PRTSCN 06740 * THE SCREEN FILES HAVE BEEN PRINTED 06750MNUPRO 06760/! 06770DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06780LOAD,FN=PRFRP001,OW=CCS20 06790CHEKID 06800INPUT=PRFRP001 06810SWITCH 0682010000000 06830 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06840 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06850 * PRINTED 06860DTLLST 06870 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06880MNUPRO 06890/! 06900DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06910LOAD,FN=PRFRP002,OW=CCS20 06920CHEKID 06930INPUT=PRFRP002 06940SWITCH 0695001000000 06960 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06970 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 06980DTLLST 06990INPUT=PRFRP002 07000UTIL 07010CLEAR,FN=SREQDL 07020EX 07030 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07040MNUPRO 07050/! 07060DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07070LOAD,FN=PRFRP003,OW=CCS20 07080CHEKID 07090 * CALCULATE AGE FOR TREND ANALYSIS 07100TRENDF 07110 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07120 * 07130 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07140INPUT=PRFRP003 07150UTIL 07160DELETE,FN=AGEWRK 07170EX  3Tz. 07180INPUT=PRFRP003 07190DSORT 07200FN=ACCAGE,CCS20 07210FN=RSWFIL,CCS20 07220F2=AGEWRK,CCS20,SYSVOL 07230OP=T,F,A 07240KF=A,17,4,A,1,1 07250SL=OMIT,35,3,EQ,'RSW' 07260 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07270 * 07280 **** OPERATOR - 07290 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07300 * TREND DATA FOR NEXT RUN 07310 * 07320 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07330 * FOR NEXT RUN 07340CCSPAS 07350TRENDU 07360INPUT=PRFRP003 07370UTIL 07380CLEAR,FN=RSWFIL 07390EX 07400MNUPRO 07410/! 07420DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07430LOAD,FN=PRFRP004,OW=CCS20 07440CHEKID 07450 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07460 * THE AGEWRK FILE IS BEING SORTED 07470INPUT=PRFRP004 07480DSORT 07490FN=AGEWRK,CCS20 07500F2=AGEWRK,CCS20, 07510OP=T,F,A 07520KF=A,17,4,A,1,1 07530SL=OMIT,35,3,EQ,'RSW' 07540 * THE AGEWRK FILE HAS BEEN SORTED 07550 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07560INPUT=PRFRP004 07570SWITCH 0758010000000 07590TRENDP 07600 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07610MNUPRO 07620/! 07630DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07640LOAD,FN=PRFRP005,OW=CCS20 07650CHEKID 6  3UzB 07660 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07670 * THE AGEWRK FILE IS BEING SORTED 07680INPUT=PRFRP005 07690DSORT 07700FN=AGEWRK,CCS20 07710F2=AGEWRK,CCS20, 07720OP=T,F,A 07730KF=A,25,4,A,1,1 07740SL=I 07750 * THE AGEWRK FILE HAS BEEN SORTED 07760 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07770INPUT=PRFRP005 07780SWITCH 0779000000000 07800TRENDP 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07820MNUPRO 07830/! 07840DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07850LOAD,FN=PRFRP006,OW=CCS20 07860CHEKID 07870 * THE WRITE-OFF REPORT WILL BE GENERATED 07880 * THE WOEF FILE WILL BE CREATED 07890INPUT=PRFRP006 07900UTIL 07910DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07920EX 07930WRTOFE 07940 * THE WOEF FILE HAS BEEN CREATED 07950 * THE WOEF FILE IS BEING SORTED 07960INPUT=PRFRP006 07970DSORT 07980FN=WOEF,CCS20 07990F2=WOEF,CCS20, 08000OP=T,F,A 08010KF=A,25,1,A,17,4,A,21,4,A,1,16 08020SL=I 08030 * THE WOEF FILE HAS BEEN SORTED 08040 * THE WRITE-OFF REPORT WILL BE PRINTED 08050WRTOFP 08060INPUT=PRFRP006 08070UTIL 08080DELETE,FN=WOEF 08090EX 08100 * THE WRITE-OFF REPORT IS COMPLETE 08110MNUPRO 08120/! 08130DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL  3VzV=SYSVOL ,OW=CCS20 08140LOAD,FN=PRFRP007,OW=CCS20 08150CHEKID 08160 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08170DALIST 08180 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08190MNUPRO 08200/! 08210DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08220LOAD,FN=PRFRP008,OW=CCS20 08230CHEKID 08240 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08250SUMACL 08260 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08270MNUPRO 08280/! 08290DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08300LOAD,FN=PRFRP009,OW=CCS20 08310CHEKID 08320 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08330INPUT=PRFRP009 08340SWITCH 0835001000000 08360COLSTS 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08380 **** OPERATOR - 08390 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08400 * 08410 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08420CCSPAS 08430INPUT=PRFRP009 08440SWITCH 0845000001000 08460COLSTS 08470MNUPRO 08480/! 08490DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08500LOAD,FN=PRFRP010,OW=CCS20 08510CHEKID 08520 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08530INPUT=PRFRP010 08540SWITCH 0855000100000 08560COLSTS 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08580 **** OPERATOR - 08590 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08600 * STATISTICS COUNT FILE 08610 * ڞ  3Wzj 08620 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08630 * COUNT FILE 08640CCSPAS 08650INPUT=PRFRP010 08660UTIL 08670CLEAR,FN=COLSTATS 08680EX 08690MNUPRO 08700/! 08710DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08720LOAD,FN=PRFCNTRL,OW=CCS20 08730CHEKID 08740 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08750 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08760 * TO ACTIVATE BATCH HOST 08770 * MI, *BATCH,F 08780 * 08790 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08800 * 08810 * CARRIAGE RETURN ONLY - TO CONTINUE 08820CCSPAS 08830 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08840INPUT=PRFCNTRL 08850UTIL 08860DEFINE,FN=RPTWKE,LR=80,NR=1000 08870DEFINE,FN=RPTWKP,LR=80,NR=1000 08880DEFINE,FN=PRCWRK,LR=80,NR=50 08890EX 08900PGGEN 08910 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08920 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08930INPUT=PRFCNTRL 08940UTIL 08950BATCH,FN=RPTWKE,TY=N 08960BATCH,FN=RPTWKP,TY=R 08970DELETE,FN=RPTWKE 08980DELETE,FN=RPTWKP 08990CLEAR,FN=PGEXTR 09000EX 09010PGCNT1 09020 * 09030 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09040 * CARRIAGE RETURN WHEN READY 09050CCSPAS 09060MNUPRO 09070/! 09080DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09090LOAD,FN=PRFRP012,OW=CCS20 <  3Xz~ 09100CHEKID 09110 * THE QUEUE LOADING REPORT WILL BE PRINTED 09120QLOAD 09130 * THE QUEUE LOADING REPORT IS COMPLETE 09140MNUPRO 09150/! 09160DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09170LOAD,FN=PRFRP014,OW=CCS20 09180CHEKID 09190 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09200 ***** 09210 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09220 ***** OR NOT TREND ANALYSIS IS BEING USED. 09230 ***** 09240 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09250 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09260 **** 09270 *** 09280CCSPAS 09290 * 09300CMPACC 09310 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09320MNUPRO 09330/! 09340 09350 09360 09370 09380 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570 o  3Yz 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09690NR=50 09700DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=78000,OW=CCS20; 09710VL=CDD01 09720DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=78000,VL=SYSVOL; 09730OW=CCS20 09740DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09750DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09760DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=78000,VL=SYSVOL,OW=CCS20 09770DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=78000,VL=SYSVOL,OW=CCS20 09780DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=SYSVOL,OW=CCS20 09790DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=SYSVOL; 09800OW=CCS20 09810DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=78000,VL=SYSVOL; 09820OW=CCS20 09830DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09840DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09850DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=78000; 09860VL=CDD01,OW=CCS20 09870DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=78000,VL=SYSVOL,OW=CCS20 09880DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=6500,VL=CDD01,OW=CCS20 09890DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09900LOAD,FN=DUMMY,OW=CCS20 09910 09920/! 09930DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=78000,VL=CDD01,OW=CCS20 09940DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09950DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 09960OW=CCS20 09970DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=SYSVOL,OW=CCS20 09980DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=78000,OW=CCS20,VL=CDD01 09990DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=SYSVOL,OW=CCS20 10000DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=SYSVOL; 10010OW=CCS20 10020DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=39000,VL=SYSVOL,OW=CCS20 10030DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10040DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=SYSVOL; 10050OW=CCS20   3Zz 10060DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=650,VL=SYSVOL,OW=CCS20 10070DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=78000,VL=SYSVOL; 10080OW=CCS20 10090DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=78000,VL=CDD01; 10100OW=CCS20 10110DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10120DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10130DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10140DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=650,VL=SYSVOL,OW=CCS20 10150DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10160EX 10170MOVDAT 10180 * THE 78000 ACCOUNT SYSTEM BUILD IS COMPLETE 10190 * 10200 * PROCEED WITH THE INSTALLATION TEST PROCEDURES. 10210 * 10220MNUPRO 10230__ 00320DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00330DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU 00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VER  3[zIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00840ALzS $$ IS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REP * 00010 * PROCEDURE TO BUILD 12000-9000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC005 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00180MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES 00190MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES 00200MNUPRO LO - L/A ON DEMAND REPORTING 00210MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY 00220MNUPRO EX - EXIT 00230/! 00240P  3\zDEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00250LOAD,FN=$$DCMENU,OW=$$ 00260 * DAILY CYCLE MENU 00270 * 00280DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00290DCPRTLTR B - PRINT REQUESTED LETTERS 00300DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00310DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00320DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00330DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU 00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720  3]zMTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00840RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00870RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00880RPDLYASN G - DAILY ASSIGNMENT LIST 00890RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00900RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00910RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00920RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00930PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00940PRFRP012 M - QUEUE LOADING REPORT 00950PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00960 Z - EXIT 00970/! 00980DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00990LOAD,FN=$$RGMENU,OW=$$ 01000 * REPORT GENERATOR - REPORT DIRECTORY 01010 * 01020PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 01030PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 01040PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01050PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01060PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01070PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01080PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01090PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01100PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01110PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01120PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01130PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01140PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01150PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01160PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01170PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01180PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01190PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01200  3^zPRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01210 Z - EXIT 01220/! 01230DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01240LOAD,FN=PRFDC001,OW=CCS20 01250CHEKID 01260 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01270 * - TIME USAGE REPORT 01280 * - DAILY COLLECTOR STATISTICS REPORT 01290 * 01300INPUT=PRFDC001 01310UTIL 01320CLEAR,FN=DLYWRK 01330EX 01340 * TRNSFL FILE IS NOW BEING SORTED 01350INPUT=PRFDC001 01360DSORT 01370FN=TRNSFL,CCS20 01380F2=TRNSFL,CCS20, 01390OP=T,F,A 01400KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01410SL=I 01420 * THE TRNSFL FILE HAS BEEN SORTED 01430 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01440COLCHG 01450 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01460 * THE TIME USAGE REPORT WILL BE PRINTED 01470TIMUSE 01480 * THE TIME USAGE REPORT IS COMPLETE 01490INPUT=PRFDC001 01500SWITCH 0151010000000 01520 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01530COLSTS 01540 * THE DAILY STATISTICS REPORT IS COMPLETE 01550 **** OPERATOR - 01560 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01570 * 01580 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01590CCSPAS 01600INPUT=PRFDC001 01610SWITCH 0162000010000 01630COLSTS 01640 * THIS ROUTINE IS COMPLETE 01650MNUPRO 01660/! 01670DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01680M  3_{ LOAD,FN=PRFDC002,OW=CCS20 01690CHEKID 01700 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01710INPUT=PRFDC002 01720DSORT 01730FN=TRNSFL,CCS20 01740F2=TRNSFL,CCS20, 01750OP=T,F,A 01760KF=A,17,4,A,41,2,A,1,16 01770SL=I 01780 **** OPERATOR - LOAD LETTER PAPER 01790 * CARRIAGE RETURN WHEN READY 01800 * 01810CCSPAS 01820 * THE REQUESTED LETTERS WILL BE PRINTED 01830LTRPRT 01840 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01850 **** OPERATOR - LOAD REGULAR PAPER 01860 * CARRIAGE RETURN WHEN READY 01870 * 01880CCSPAS 01890 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01900LTRSTA 01910 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01920MNUPRO 01930/! 01940DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01950LOAD,FN=PRFDC003,OW=CCS20 01960CHEKID 01970 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01980INPUT=PRFDC003 01990DSORT 02000FN=TRNSFL,CCS20 02010F2=TRNSFL,CCS20, 02020OP=T,F,A 02030KF=A,29,2,A,21,4,D,25,4,D,121,2 02040SL=I 02050ACTADD 02060 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02070MNUPRO 02080/! 02090DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02100LOAD,FN=PRFDC004,OW=CCS20 02110CHEKID 02120 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02130 * CARRIAGE RETURN WHEN READY 02140CCSPAS 02150INPUT=PRFDC004 02160  3`{SWITCH 0217010000000 02180 * THE UPDATE TAPE WILL BE PROCESSED 02190UPDATE 02200 * THE UPDATE TAPE HAS BEEN PROCESSED 02210 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02220 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02230 * SCREEN INFORMATION 02240CCSSPC 02250CCSPAS 02260 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02270MNUPRO 02280/! 02290DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02300LOAD,FN=PRFDC005,OW=CCS20 02310CHEKID 02320 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02330 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02340 * CARRIAGE RETURN WHEN READY 02350CCSPAS 02360INPUT=PRFDC005 02370SWITCH 0238010000000 02390UPD400 02400 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02410MNUPRO 02420/! 02430DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02440LOAD,FN=PRFDC006,OW=CCS20 02450CHEKID 02460 * THE FINANCIAL UPDATES WILL BE PROCESSED 02470 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02480 * 02490INPUT=PRFDC006 02500MOUNT 02510FTAPE,B,P 02520/* 02530UPD500 02540 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02550MNUPRO 02560/! 02570DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02580LOAD,FN=PRFDC007,OW=CCS20 02590CHEKID 02600 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02610DHUPDT 02620 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02630MNUPRO 02640y+  3a{2/! 02650DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02660LOAD,FN=PRFDC008,OW=CCS20 02670CHEKID 02680 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02690 * COLLECTORS ARE OFF-LINE FOR THE DAY 02700MNUPRO 02710/! 02720DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02730LOAD,FN=PRFDC009,OW=CCS20 02740CHEKID 02750 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02760 * COLLECTORS ARE OFF-LINE FOR THE DAY 02770MNUPRO 02780/! 02790DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02800LOAD,FN=PRFDC010,OW=CCS20 02810CHEKID 02820 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02830 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02840 * CARRIAGE RETURN ONLY - TO CONTINUE 02850 * 02860CCSPAS 02870 * 02880 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02890 * 02900INPUT=PRFDC010 02910UTIL 02920CLEAR,FN=TRNSFL 02930EX 02940INPUT=PRFDC010 02950DSORT 02960FN=TRANFL,CCS20 02970F2=TRNSFL,CCS20, 02980OP=T,F,A 02990KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 03000SL=I 03010PRETSR 03020INPUT=PRFDC010 03030UTIL 03040CLEAR,FN=ACTIVE 03050CLEAR,FN=TRANFL 03060CLEAR,FN=TRNBCK 03070EX 03080 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03090NMCHNG 03100RSWCHG 03110INPUT=PRFDC010 03120{  3b{FUTIL 03130CLEAR,FN=ADDACT 03140EX 03150MNUPRO 03160/! 03170DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03180LOAD,FN=PRFDC011,OW=CCS20 03190CHEKID 03200 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03210 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03220 * CARRIAGE RETURN ONLY - TO CONTINUE 03230 * 03240CCSPAS 03250 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03260INPUT=PRFDC011 03270UTIL 03280CLEAR,FN=DLYWRK 03290EX 03300SRREQ 03310 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03320 * 03330 * THE DLYASSN FILE IS BEING CREATED 03340DACRTE 03350 * THE DLYASSN FILE HAS BEEN CREATED 03360 * THE DLYASSN FILE IS BEING SORTED 03370INPUT=PRFDC011 03380DSORT 03390FN=DLYWRK,CCS20 03400FN=DLYASSN,CCS20 03410F2=DLYASSN,CCS20, 03420OP=T,F,A 03430KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03440SL=I 03450 * THE DLYASSN FILE HAS BEEN SORTED 03460INPUT=PRFDC011 03470UTIL 03480CLEAR,FN=DAQUE 03490EX 03500 * THE DAILY QUEUE FILE IS BEING CREATED 03510DAQUEL 03520 * THE DAILY QUEUE FILE HAS BEEN CREATED 03530 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03540 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03550 * SCREEN INFORMATION 03560CCSSPC 03570CCSPAS 03580 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03590 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03600,  3c{ZMNUPRO 03610/! 03620DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03630LOAD,FN=PRFHS001,OW=CCS20 03640CHEKID 03650 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03660 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03670INPUT=PRFHS001 03680DSORT 03690FN=INACCT,CCS20 03700F2=INTEMP,CCS20, 03710OP=T,F,A 03720KF=A,1,16,D,23,2,D,19,4 03730SL=I 03740INPUT=PRFHS001 03750UTIL 03760CLEAR,FN=INACCT 03770COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03780DELETE,FN=INTEMP 03790EX 03800 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03810 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03820 * WITH WRITE RING 03830 * CARRIAGE RETURN WHEN READY 03840CCSPAS 03850MHUPDT 03860 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 03870 * REBUILDING INACCT 03880FIXINA 03890 * INACCT REBUILD COMPLETE 03900MNUPRO 03910/! 03920DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03930LOAD,FN=PRFHS002,OW=CCS20 03940CHEKID 03950 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03960 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03970 * CARRIAGE RETURN ONLY - TO CONTINUE 03980 * 03990CCSPAS 04000 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 04010INPUT=PRFHS002 04020UTIL 04030DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 04040EX 04050CHUPD1 04060 * THE UPREQ FILE WILL BE SORTED 04070INPUT=PRFHS002 04080  3d{nDSORT 04090FN=UPREQ,CCS20 04100F2=UPREQ,CCS20, 04110OP=T,F,A 04120KF=D,21,2,D,17,4,A,1,16 04130SL=I 04140 * THE UPREQ FILE HAS BEEN SORTED 04150INPUT=PRFHS002 04160UTIL 04170CLEAR,FN=UPHSTCM 04180EX 04190 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04200 * EXECUTION OF THE NEXT JOB 04210CHUPD2 04220INPUT=PRFHS002 04230UTIL 04240DELETE,FN=UPREQ 04250EX 04260 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04270MNUPRO 04280/! 04290DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04300LOAD,FN=PRFHS003,OW=CCS20 04310CHEKID 04320 * THE SUMHIST FILE WILL BE PURGED 04330PHDEL2 04340CMPSUM 04350 * THE SUMHIST FILE HAS BEEN PURGED 04360MNUPRO 04370/! 04380DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04390LOAD,FN=PRFHS004,OW=CCS20 04400CHEKID 04410 * THE TAPEARC FILE WILL BE PURGED 04420PHDEL1 04430INPUT=PRFHS004 04440UTIL 04450COMPRE,FN=TAPEARC 04460EX 04470 * THE TAPEARC FILE HAS BEEN PURGED 04480MNUPRO 04490/! 04500DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04510LOAD,FN=PRFMT001,OW=CCS20 04520CHEKID 04530 * THE LETTER DEFINITION FILE WILL BE PRINTED 04540INPUT=PRFMT001 04550UTIL 04560.  3e{LIST,FN=LTRDESC,L=LPRINTER,F=U 04570EX 04580 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04590 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04600 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04610 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04620 * CARRIAGE RETURN WHEN READY TO CONTINUE 04630CCSPAS 04640MNUPRO 04650/! 04660DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04670LOAD,FN=PRFMT002,OW=CCS20 04680CHEKID 04690 * THE LETTER FILE WILL BE CREATED 04700 * 04710INPUT=PRFMT002 04720UTIL 04730CLEAR,FN=LTRFIL 04740EX 04750LTRBLD 04760 * THE LETTER FILE HAS BEEN CREATED 04770MNUPRO 04780/! 04790DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04800LOAD,FN=PRFMT003,OW=CCS20 04810CHEKID 04820 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04830 * 04840 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04850 * FROM THE CONSOLE 04860 * 04870 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04880UTFMTN 04890 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04900INPUT=PRFMT003 04910UTIL 04920LIST,FN=UTIFIL,L=LPRINTER,F=U 04930EX 04940 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04950 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04960MNUPRO 04970/! 04980DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04990LOAD,FN=PRFMT004,OW=CCS20 05000CHEKID 05010 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 05020 * 05030 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05040  3f{DECMTN 05050 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05060MNUPRO 05070/! 05080DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05090LOAD,FN=PRFMT005,OW=CCS20 05100CHEKID 05110 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05120AVMDMP 05130 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05140MNUPRO 05150/! 05160DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05170LOAD,FN=PRFMT006,OW=CCS20 05180CHEKID 05190 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05200 * 05210AVMCON 05220 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05230 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05240AVMDMP 05250 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05260MNUPRO 05270/! 05280DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05290LOAD,FN=PRFMT007,OW=CCS20 05300CHEKID 05310 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05320 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05330 * SCREEN INFORMATION 05340CCSSPC 05350CCSPAS 05360 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05370MNUPRO 05380/! 05390DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05400LOAD,FN=PRFMT008,OW=CCS20 05410CHEKID 05420 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05430INPUT=PRFMT008 05440UTIL 05450LIST,FN=SCRNDESC,L=LPRINTER,F=U 05460EX 05470 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05480 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05490 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05500 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05510 * CARRIAGE RETURN WHEN READY TO CONTINUE 05520  3g{CCSPAS 05530MNUPRO 05540/! 05550DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05560LOAD,FN=PRFMT009,OW=CCS20 05570CHEKID 05580 * THE SCREEN FILE WILL BE CREATED 05590BLDSRN 05600 * THE SCREEN FILE HAS BEEN CREATED 05610MNUPRO 05620/! 05630DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05640LOAD,FN=PRFMT010,OW=CCS20 05650CHEKID 05660 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05670 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05680 * CARRIAGE RETURN ONLY - TO CONTINUE 05690 * 05700CCSPAS 05710 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05720CMPDLQ 05730INPUT=PRFMT010 05740UTIL 05750COMPRE,FN=COSIGNER 05760COMPRE,FN=ACTFIL 05770EX 05780 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05790MNUPRO 05800/! 05810DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05820LOAD,FN=PRFMT011,OW=CCS20 05830CHEKID 05840 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05850 * WILL BE PRINTED 05860ACTMTN 05870 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05880 * HAS BEEN PRINTED 05890MNUPRO 05900/! 05910DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05920LOAD,FN=PRFMT012,OW=CCS20 05930CHEKID 05940 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05950 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05960 * 05970USEMTN 05980 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05990MNUPRO 06000  3h{/! 06010DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 06020LOAD,FN=PRFMT013,OW=CCS20 06030CHEKID 06040 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06050PGLTTB 06060MNUPRO 06070/! 06080DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06090LOAD,FN=PRFMT014,OW=CCS20 06100CHEKID 06110 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06120 * 06130 * THE DATA ELEMENT TABLE WILL BE PRINTED 06140PGLTTB 06150 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06160 * 06170 * THE DATA ELEMENT TABLE WILL BE UPDATED 06180 * 06190 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06200 * 06210INPUT=PRFMT014 06220SWITCH 06230000000000 06240PGUPTB 06250 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06260 * 06270 * THE DATA ELEMENT TABLE WILL BE PURGED 06280INPUT=PRFMT014 06290UTIL 06300DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06310EX 06320PGCMPR 06330INPUT=PRFMT014 06340UTIL 06350DELETE,FN=RPTTBL 06360RENAME,FN=TBLWRK,F2=RPTTBL 06370EX 06380 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06390 * 06400 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06410MNUPRO 06420/! 06430DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06440LOAD,FN=PRFMT015,OW=CCS20 06450CHEKID 06460 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06470 * 06480  3i{ * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06490PGLIST 06500 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06510 * 06520 * 06530 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06540 * 06550 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06560 * 06570PGPURG 06580INPUT=PRFMT015 06590UTIL 06600COMPRE,FN=RPTPGM 06610EX 06620 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06630 * 06640 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06650PGLIST 06660 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06670 * 06680 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06690MNUPRO 06700/! 06710DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06720LOAD,FN=PRFMT016,OW=CCS20 06730CHEKID 06740 * THE SCREEN FILES WILL BE PRINTED 06750 * D 06760 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06770 * 06780PRTSCN 06790 * THE SCREEN FILES HAVE BEEN PRINTED 06800MNUPRO 06810/! 06820DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06830LOAD,FN=PRFRP001,OW=CCS20 06840CHEKID 06850INPUT=PRFRP001 06860SWITCH 0687010000000 06880 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06890 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06900 * PRINTED 06910DTLLST 06920 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06930MNUPRO 06940/! 06950DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06960Y  3j{LOAD,FN=PRFRP002,OW=CCS20 06970CHEKID 06980INPUT=PRFRP002 06990SWITCH 0700001000000 07010 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 07020 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 07030DTLLST 07040INPUT=PRFRP002 07050UTIL 07060CLEAR,FN=SREQDL 07070EX 07080 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07090MNUPRO 07100/! 07110DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07120LOAD,FN=PRFRP003,OW=CCS20 07130CHEKID 07140 * CALCULATE AGE FOR TREND ANALYSIS 07150TRENDF 07160 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07170 * 07180 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07190INPUT=PRFRP003 07200UTIL 07210DELETE,FN=AGEWRK 07220EX 07230INPUT=PRFRP003 07240DSORT 07250FN=ACCAGE,CCS20 07260FN=RSWFIL,CCS20 07270F2=AGEWRK,CCS20,SYSVOL 07280OP=T,F,A 07290KF=A,17,4,A,1,1 07300SL=OMIT,35,3,EQ,'RSW' 07310 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07320 * 07330 **** OPERATOR - 07340 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07350 * TREND DATA FOR NEXT RUN 07360 * 07370 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07380 * FOR NEXT RUN 07390CCSPAS 07400TRENDU 07410INPUT=PRFRP003 07420UTIL 07430CLEAR,FN=RSWFIL 07440F  3k{EX 07450MNUPRO 07460/! 07470DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07480LOAD,FN=PRFRP004,OW=CCS20 07490CHEKID 07500 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07510 * THE AGEWRK FILE IS BEING SORTED 07520INPUT=PRFRP004 07530DSORT 07540FN=AGEWRK,CCS20 07550F2=AGEWRK,CCS20, 07560OP=T,F,A 07570KF=A,17,4,A,1,1 07580SL=OMIT,35,3,EQ,'RSW' 07590 * THE AGEWRK FILE HAS BEEN SORTED 07600 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07610INPUT=PRFRP004 07620SWITCH 0763010000000 07640TRENDP 07650 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07660MNUPRO 07670/! 07680DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07690LOAD,FN=PRFRP005,OW=CCS20 07700CHEKID 07710 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07720 * THE AGEWRK FILE IS BEING SORTED 07730INPUT=PRFRP005 07740DSORT 07750FN=AGEWRK,CCS20 07760F2=AGEWRK,CCS20, 07770OP=T,F,A 07780KF=A,25,4,A,1,1 07790SL=I 07800 * THE AGEWRK FILE HAS BEEN SORTED 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07820INPUT=PRFRP005 07830SWITCH 0784000000000 07850TRENDP 07860 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07870MNUPRO 07880/! 07890DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07900LOAD,FN=PRFRP006,OW=CCS20 07910CHEKID 07920  3l| * THE WRITE-OFF REPORT WILL BE GENERATED 07930 * THE WOEF FILE WILL BE CREATED 07940INPUT=PRFRP006 07950UTIL 07960DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07970EX 07980WRTOFE 07990 * THE WOEF FILE HAS BEEN CREATED 08000 * THE WOEF FILE IS BEING SORTED 08010INPUT=PRFRP006 08020DSORT 08030FN=WOEF,CCS20 08040F2=WOEF,CCS20, 08050OP=T,F,A 08060KF=A,25,1,A,17,4,A,21,4,A,1,16 08070SL=I 08080 * THE WOEF FILE HAS BEEN SORTED 08090 * THE WRITE-OFF REPORT WILL BE PRINTED 08100WRTOFP 08110INPUT=PRFRP006 08120UTIL 08130DELETE,FN=WOEF 08140EX 08150 * THE WRITE-OFF REPORT IS COMPLETE 08160MNUPRO 08170/! 08180DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08190LOAD,FN=PRFRP007,OW=CCS20 08200CHEKID 08210 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08220DALIST 08230 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08240MNUPRO 08250/! 08260DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08270LOAD,FN=PRFRP008,OW=CCS20 08280CHEKID 08290 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08300SUMACL 08310 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08320MNUPRO 08330/! 08340DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08350LOAD,FN=PRFRP009,OW=CCS20 08360CHEKID 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08380INPUT=PRFRP009 08390SWITCH 08400  3m|"01000000 08410COLSTS 08420 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08430 **** OPERATOR - 08440 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08450 * 08460 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08470CCSPAS 08480INPUT=PRFRP009 08490SWITCH 0850000001000 08510COLSTS 08520MNUPRO 08530/! 08540DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08550LOAD,FN=PRFRP010,OW=CCS20 08560CHEKID 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08580INPUT=PRFRP010 08590SWITCH 0860000100000 08610COLSTS 08620 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08630 **** OPERATOR - 08640 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08650 * STATISTICS COUNT FILE 08660 * 08670 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08680 * COUNT FILE 08690CCSPAS 08700INPUT=PRFRP010 08710UTIL 08720CLEAR,FN=COLSTATS 08730EX 08740MNUPRO 08750/! 08760DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08770LOAD,FN=PRFCNTRL,OW=CCS20 08780CHEKID 08790 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08800 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08810 * TO ACTIVATE BATCH HOST 08820 * MI, *BATCH,F 08830 * 08840 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08850 * 08860 * CARRIAGE RETURN ONLY - TO CONTINUE 08870CCSPAS 08880Xz  3n|6 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08890INPUT=PRFCNTRL 08900UTIL 08910DEFINE,FN=RPTWKE,LR=80,NR=1000 08920DEFINE,FN=RPTWKP,LR=80,NR=1000 08930DEFINE,FN=PRCWRK,LR=80,NR=50 08940EX 08950PGGEN 08960 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08970 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08980INPUT=PRFCNTRL 08990UTIL 09000BATCH,FN=RPTWKE,TY=N 09010BATCH,FN=RPTWKP,TY=R 09020DELETE,FN=RPTWKE 09030DELETE,FN=RPTWKP 09040CLEAR,FN=PGEXTR 09050EX 09060PGCNT1 09070 * 09080 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09090 * CARRIAGE RETURN WHEN READY 09100CCSPAS 09110MNUPRO 09120/! 09130DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09140LOAD,FN=PRFRP012,OW=CCS20 09150CHEKID 09160 * THE QUEUE LOADING REPORT WILL BE PRINTED 09170QLOAD 09180 * THE QUEUE LOADING REPORT IS COMPLETE 09190MNUPRO 09200/! 09210DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09220LOAD,FN=PRFRP014,OW=CCS20 09230CHEKID 09240 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09250 ***** 09260 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09270 ***** OR NOT TREND ANALYSIS IS BEING USED. 09280 ***** 09290 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09300 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09310 **** 09320 *** 09330CCSPAS 09340 * 09350CMPACC 09360.  3o|J **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09370MNUPRO 09380/! 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680 09690 09700 09710 09720 09730DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09740NR=50 09750DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=12000,OW=CCS20 09760DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=12000,VL=CDD01; 09770OW=CCS20 09780DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09790DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09800DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=12000,VL=CDD01,OW=CCS20 09810DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=12000,VL=SYSVOL,OW=CCS20 09820DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09830DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09840b  3p|^OW=CCS20 09850DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=12000,VL=CDD01; 09860OW=CCS20 09870DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09880DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09890DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=12000; 09900VL=CDD01,OW=CCS20 09910DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=12000,VL=SYSVOL,OW=CCS20 09920DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=1000,VL=CDD01,OW=CCS20 09930DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09940LOAD,FN=DUMMY,OW=CCS20 09950 09960/! 09970DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=12000,VL=CDD01,OW=CCS20 09980DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09990DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 10020DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=12000,OW=CCS20 10030DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 10040DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10050OW=CCS20 10060DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=6000,VL=CDD01,OW=CCS20 10070DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10080DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20 10110DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=12000,VL=CDD01; 10120OW=CCS20 10130DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=12000,VL=CDD01; 10140OW=CCS20 10150DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10160DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10170DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10180DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20 10190DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10200DEFINE,FN=$$LDMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10210LOAD,FN=$$LDMENU,OW=$$ 10220 * LEGAL AND AGENCY DAILY CYCLE MENU 10230 * 10240LDCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 10250LDPRTLTR B - PRINT REQUESTED LETTERS 10260LDACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 10270LDUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 10280LDNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 10290LDFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 10300LODRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 10310LODRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 10320  3q|rLDUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 10330LDDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 10340LDDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 10350LDSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 10360LDBLDDAS M - CREATE DAILY ASSIGNMENT FILES 10370PRFLD012 N - NIGHTLY BATCH UPDATE 10380PRFLD013 O - L/A EXTRACT PROCESS 10390 Z - EXIT 10400/! 10410DEFINE,FN=$$LHMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10420LOAD,FN=$$LHMENU,OW=$$ 10430 LEGAL AND AGENCY HISTORY SYSTEM MENU 10440 * 10450LHMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 10460LHUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 10470LHPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10480LHPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10490LMPRGMST E - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10500LHPRGCLI F - PURGE CLIENT FILE (LACLIENT) 10510 Z - EXIT 10520/! 10530DEFINE,FN=$$LMMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10540LOAD,FN=$$LMMENU,OW=$$ 10550 * LEGAL AND AGENCY FILE MAINTENANCE MENU 10560 * 10570LMRDRLTR A - PRINT THE LETTER DEFINITION FILE 10580LMCONLTR B - CREATE THE LETTER FILE 10590LMUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 10600LMDECTBL D - DECISION TABLE MAINTENANCE 10610LMAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 10620LMACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 10630LMSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 10640LHPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10650LHPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10660LMLDSCRN J - PRINT SCREEN DEFINITION FILE 10670LMSVSCRN K - CREATE THE SCREEN FILE 10680LMPRGMST L - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10690LMACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 10700LMUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 10710LMDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 10720LMDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 10730LMPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 10740LMSCNPRT R - SAMPLE SCREEN PRINT UTILITY 10750PRFLM017 S - CLIENT FILE MAINTENANCE 10760 Z - EXIT 10770/! 10780DEFINE,FN=$$LOMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10790LOAD,FN=$$LOMENU,OW=$$ 10800Sb  3r| * LEGAL AND AGENCY ON DEMAND REPORT MENU 10810 * 10820LODRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 10830LODRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 10840LOTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 10850LOTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 10860LOTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 10870LOWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 10880LODLYASN G - DAILY ASSIGNMENT LIST 10890LOSUMACT H - SUMMARY ACCOUNT LIST REPORT 10900LOWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 10910LOMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 10920LOTCNTRL K - CREATE REPORT GENERATOR PROGRAM 10930PRFLP000 L - EXECUTE REPORT GENERATOR PROGRAM 10940PRFLO012 M - QUEUE LOADING REPORT 10950PRFLO013 N - COMPLETE PAYMENT, DIRECT PAYMENT STATEMENT REPORTS 10960PRFLO014 O - INVENTORY REPORTS BY ACCOUNT, CLIENT 10970PRFLO015 P - RECOVERY ANALYSIS REPORT 10980PRFRP014 Q - PURGE REPORT FILES ( LAACCAGE - LARSWFIL ) 10990 Z - EXIT 11000/! 11010DEFINE,FN=$$LRMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 11020LOAD,FN=$$LRMENU,OW=$$ 11030 * LEGAL AND AGENCY REPORT GENERATOR - REPORT DIRECTORY 11040 * 11050PRFLP001 A - R.G. REPORT 1 - (AVAILABLE) 11060PRFLP002 B - R.G. REPORT 2 - (AVAILABLE) 11070PRFLP003 C - R.G. REPORT 3 - (AVAILABLE) 11080PRFLP004 D - R.G. REPORT 4 - (AVAILABLE) 11090PRFLP005 E - R.G. REPORT 5 - (AVAILABLE) 11100PRFLP006 F - R.G. REPORT 6 - (AVAILABLE) 11110PRFLP007 G - R.G. REPORT 7 - (AVAILABLE) 11120PRFLP008 H - R.G. REPORT 8 - (AVAILABLE) 11130PRFLP009 I - R.G. REPORT 9 - (AVAILABLE) 11140PRFLP010 J - R.G. REPORT 10 - (AVAILABLE) 11150PRFLP011 K - R.G. REPORT 11 - (AVAILABLE) 11160PRFLP012 L - R.G. REPORT 12 - (AVAILABLE) 11170PRFLP013 M - R.G. REPORT 13 - (AVAILABLE) 11180PRFLP014 N - R.G. REPORT 14 - (AVAILABLE) 11190PRFLP015 O - R.G. REPORT 15 - (AVAILABLE) 11200PRFLP016 P - R.G. REPORT 16 - (AVAILABLE) 11210PRFLP017 Q - R.G. REPORT 17 - (AVAILABLE) 11220PRFLP018 R - R.G. REPORT 18 - (AVAILABLE) 11230PRFLP019 S - R.G. REPORT 19 - (AVAILABLE) 11240 Z - EXIT 11250/! 11260DEFINE,FN=PRFLD001,OW=LA,ED=999999,TY=S,LR=80,NR=50 11270LOAD,FN=PRFLD001,OW=LA 11280b  3s|CHEKID 11290 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 11300 * - TIME USAGE REPORT 11310 * - DAILY COLLECTOR STATISTICS REPORT 11320 * 11330 * LATRNSFL FILE IS NOW BEING SORTED 11340INPUT=PRFLD001 11350DSORT 11360FN=LATRNSFL,LA 11370F2=LATRNSFL,LA, 11380OP=T,F,A 11390KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 11400SL=I 11410 * THE LATRNSFL FILE HAS BEEN SORTED 11420 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 11430LCOLCG 11440 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 11450 * THE TIME USAGE REPORT WILL BE PRINTED 11460LTMUSE 11470 * THE TIME USAGE REPORT IS COMPLETE 11480INPUT=PRFLD001 11490SWITCH 1150010000000 11510 * THE DAILY STATISTICS REPORT WILL BE PRINTED 11520COLSTS 11530 * THE DAILY STATISTICS REPORT IS COMPLETE 11540 **** OPERATOR - 11550 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 11560 * 11570 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 11580CCSPAS 11590INPUT=PRFLD001 11600SWITCH 1161000010000 11620COLSTS 11630 * THIS ROUTINE IS COMPLETE 11640MNUPRO 11650/! 11660DEFINE,FN=PRFLD002,OW=LA,ED=999999,TY=S,LR=80,NR=30 11670LOAD,FN=PRFLD002,OW=LA 11680CHEKID 11690 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 11700INPUT=PRFLD002 11710DSORT 11720FN=LATRNSFL,LA 11730F2=LATRNSFL,LA, 11740OP=T,F,A 11750KF=A,17,4,A,41,2,A,1,16 11760P  3t|SL=I 11770 **** OPERATOR - LOAD LETTER PAPER 11780 * CARRIAGE RETURN WHEN READY 11790 * 11800CCSPAS 11810 * THE REQUESTED LETTERS WILL BE PRINTED 11820LLTPRT 11830 * THE REQUESTED LETTERS HAVE BEEN PRINTED 11840 **** OPERATOR - LOAD REGULAR PAPER 11850 * CARRIAGE RETURN WHEN READY 11860 * 11870CCSPAS 11880 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 11890LTRSTA 11900 * THE LETTER STATISTICS SUMMARY IS COMPLETE 11910MNUPRO 11920/! 11930DEFINE,FN=PRFLD003,OW=LA,ED=999999,TY=S,LR=80,NR=25 11940LOAD,FN=PRFLD003,OW=LA 11950CHEKID 11960 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 11970INPUT=PRFLD003 11980DSORT 11990FN=LATRNSFL,LA 12000F2=LATRNSFL,LA, 12010OP=T,F,A 12020KF=A,29,2,A,21,4,D,25,4,D,121,2 12030SL=I 12040ACTADD 12050 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 12060MNUPRO 12070/! 12080DEFINE,FN=PRFLD004,OW=LA,ED=999999,TY=S,LR=80,NR=25 12090LOAD,FN=PRFLD004,OW=LA 12100CHEKID 12110 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 12120 * CARRIAGE RETURN WHEN READY 12130CCSPAS 12140INPUT=PRFLD004 12150SWITCH 1216010000000 12170 * THE UPDATE TAPE WILL BE PROCESSED 12180LUPDAT 12190 * THE UPDATE TAPE HAS BEEN PROCESSED 12200 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 12210 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 12220 * SCREEN INFORMATION 12230CCSSPC 12240Z  3u|CCSPAS 12250 * THE FILE SPACE AUDIT REPORT IS COMPLETE 12260MNUPRO 12270/! 12280DEFINE,FN=PRFLD005,OW=LA,ED=999999,TY=S,LR=80,NR=20 12290LOAD,FN=PRFLD005,OW=LA 12300CHEKID 12310 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 12320 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 12330 * CARRIAGE RETURN WHEN READY 12340CCSPAS 12350INPUT=PRFLD005 12360SWITCH 1237010000000 12380LUD400 12390 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 12400MNUPRO 12410/! 12420DEFINE,FN=PRFLD006,OW=LA,ED=999999,TY=S,LR=80,NR=20 12430LOAD,FN=PRFLD006,OW=LA 12440CHEKID 12450 * THE FINANCIAL UPDATES WILL BE PROCESSED 12460 **** OPERATOR - FINANCIAL UPDATE TAPE SHOULD BE MOUNTED ON UNIT '0' 12470 * 12480INPUT=PRFLD006 12490SWITCH 1250010000000 12510INPUT=PRFLD006 12520MOUNT 12530FTAPE,B,P 12540/* 12550LUD500 12560 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 12570MNUPRO 12580/! 12590DEFINE,FN=PRFLD007,OW=LA,ED=999999,TY=S,LR=80,NR=15 12600LOAD,FN=PRFLD007,OW=LA 12610CHEKID 12620 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 12630DHUPDT 12640 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 12650MNUPRO 12660/! 12670DEFINE,FN=PRFLD008,OW=LA,ED=999999,TY=S,LR=80,NR=10 12680LOAD,FN=PRFLD008,OW=LA 12690CHEKID 12700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12710 * COLLECTORS ARE OFF-LINE FOR THE DAY 12720  3v|MNUPRO 12730/! 12740DEFINE,FN=PRFLD009,OW=LA,ED=999999,TY=S,LR=80,NR=10 12750LOAD,FN=PRFLD009,OW=LA 12760CHEKID 12770 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12780 * COLLECTORS ARE OFF-LINE FOR THE DAY 12790MNUPRO 12800/! 12810DEFINE,FN=PRFLD010,OW=LA,ED=999999,TY=S,LR=80,NR=50 12820LOAD,FN=PRFLD010,OW=LA 12830CHEKID 12840 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 12850 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 12860 * CARRIAGE RETURN ONLY - TO CONTINUE 12870 * 12880CCSPAS 12890 * 12900 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTOR REPORTS 12910 * 12920INPUT=PRFLD010 12930UTIL 12940CLEAR,FN=LATRNSFL 12950EX 12960INPUT=PRFLD010 12970DSORT 12980FN=LATRANFL,LA 12990F2=LATRNSFL,LA, 13000OP=T,F,A 13010KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 13020SL=I 13030PRETSR 13040INPUT=PRFLD010 13050UTIL 13060CLEAR,FN=LAACTIVE 13070CLEAR,FN=LATRANFL 13080CLEAR,FN=LATRNBCK 13090EX 13100 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 13110NMCHNG 13120RSWCHG 13130INPUT=PRFLD010 13140UTIL 13150CLEAR,FN=LAADDACT 13160EX 13170MNUPRO 13180/! 13190DEFINE,FN=PRFLD011,OW=LA,ED=999999,TY=S,LR=80,NR=60 13200  3w|LOAD,FN=PRFLD011,OW=LA 13210CHEKID 13220 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 13230 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 13240 * CARRIAGE RETURN ONLY - TO CONTINUE 13250 * 13260CCSPAS 13270 * THE SUPERVISOR REQUEST FILE IS BEING CLEARED AND UPDATED 13280INPUT=PRFLD011 13290UTIL 13300CLEAR,FN=LADLYWRK 13310EX 13320SRREQ 13330 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 13340 * 13350 * THE LADLYASN FILE IS BEING CREATED 13360LDACRT 13370 * THE LADLYASN FILE HAS BEEN CREATED 13380 * THE LADLYASN FILE IS BEING SORTED 13390INPUT=PRFLD011 13400DSORT 13410FN=LADLYWRK,LA 13420FN=LADLYASN,LA 13430F2=LADLYASN,LA, 13440OP=T,F,A 13450KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 13460SL=I 13470 * THE LADLYASN FILE HAS BEEN SORTED 13480INPUT=PRFLD011 13490UTIL 13500CLEAR,FN=LADAQUE 13510EX 13520 * THE DAILY QUEUE FILE IS BEING CREATED 13530LDAQEL 13540 * THE DAILY QUEUE FILE HAS BEEN CREATED 13550 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 13560 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 13570 * SCREEN INFORMATION 13580CCSSPC 13590CCSPAS 13600 * THE FILE SPACE AUDIT REPORT IS COMPLETE 13610 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 13620 * 13630 * THE TRANSACTIONS ARE BEING SORTED INTO FILE FOR NIGTHLY BATCH PROCESS 13640INPUT=PRFLD011 13650DSORT 13660FN=LAFILTMP,LA 13670FN=LATRNSFL,LA 13680  3x|F2=LAFINTRN,, 13690OP=T,F,A 13700KF=A,1,16,A,17,4,A,50,3 13710SL=I 13720MNUPRO 13730/! 13740DEFINE,FN=PRFLD012,OW=LA,ED=999999,TY=S,LR=80,NR=35 13750LOAD,FN=PRFLD012,OW=LA 13760CHEKID 13770 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 13780 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 13790 * CARRIAGE RETURN ONLY - TO CONTINUE 13800CCSPAS 13810 * OPERATOR - CHECK THE DATE PRINTED ON THE MATRIX 13820 * IT MUST BE THE CORRECT DATE 13830 * RESPOND - 'N' CARRIAGE RETURN TO ABORT 13840 * CARRIAGE RETURN ONLY TO CONTINUE 13850CCSPAS 13860 *THE NIGHTLY BATCH FILES WILL BE CLEARED 13870INPUT=PRFLD012 13880UTIL 13890CLEAR,FN=LAFILTMP 13900CLEAR,FN=LARPTDAT 13910EX 13920 *BATCH UPDATE WILL BEGIN 13930LBATUD 13940 * BATCH UPDATE COMPLETE, AUDIT TRAIL REPORT WILL BEGIN 13950LBATPT 13960 * AUDIT TRAIL REPORT COMPLETE 13970 * THE LACLIENT FILE IS BEING UPDATED FOR ON-LINE USE 13980LCLIUD 13990 *NIGHTLY BATCH UPDATE PROCESS COMPLETE 14000MNUPRO 14010/! 14020DEFINE,FN=PRFLD013,OW=LA,ED=999999,TY=S,LR=80,NR=20 14030LOAD,FN=PRFLD013,OW=LA 14040CHEKID 14050 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 14060 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 14070 * CARRIAGE RETURN ONLY - TO CONTINUE 14080CCSPAS 14090 * THE LEGAL AND AGENCY EXTRACT PROGRAM WILL BEGIN 14100LAXTRT 14110 * THE LEGAL AND AGENCY EXTRACT PROCESS IS COMPLETE. 14120 * REFERRAL REPORT WILL BEGIN 14130LARPRT 14140 * REFERRAL REPORT COMPLETE 14150 * THE LADLQKEY FILE IS BEING CLEARED 14160  3yzALzS $$ IS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REP * 00010 * PROCEDURE TO BUILD 12000-9000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC005 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00180MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES 00190MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES 00200MNUPRO LO - L/A ON DEMAND REPORTING 00210MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY 00220MNUPRO EX - EXIT 00230/! 00240DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00250LOAD,FN=$$DCMENU,OW=$$ 00260 * DAILY CYCLE MENU 00270 * 00280DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00290DCPRTLTR B - PRINT REQUESTED LETTERS 00300DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00310DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00320DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00330DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU  3zz 00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00840RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00870RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00880RPDLYASN G - DAILY ASSIGNMENT LIST 00890RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00900RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00910RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00920RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00930PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM K  3{z 00940PRFRP012 M - QUEUE LOADING REPORT 00950PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00960 Z - EXIT 00970/! 00980DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00990LOAD,FN=$$RGMENU,OW=$$ 01000 * REPORT GENERATOR - REPORT DIRECTORY 01010 * 01020PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 01030PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 01040PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01050PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01060PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01070PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01080PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01090PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01100PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01110PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01120PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01130PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01140PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01150PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01160PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01170PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01180PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01190PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01200PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01210 Z - EXIT 01220/! 01230DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01240LOAD,FN=PRFDC001,OW=CCS20 01250CHEKID 01260 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01270 * - TIME USAGE REPORT 01280 * - DAILY COLLECTOR STATISTICS REPORT 01290 * 01300INPUT=PRFDC001 01310UTIL 01320CLEAR,FN=DLYWRK 01330EX 01340 * TRNSFL FILE IS NOW BEING SORTED 01350INPUT=PRFDC001 01360DSORT 01370FN=TRNSFL,CCS20 01380F2=TRNSFL,CCS20, 01390OP=T,F,A 01400KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01410SL=I  3|z 01420 * THE TRNSFL FILE HAS BEEN SORTED 01430 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01440COLCHG 01450 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01460 * THE TIME USAGE REPORT WILL BE PRINTED 01470TIMUSE 01480 * THE TIME USAGE REPORT IS COMPLETE 01490INPUT=PRFDC001 01500SWITCH 0151010000000 01520 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01530COLSTS 01540 * THE DAILY STATISTICS REPORT IS COMPLETE 01550 **** OPERATOR - 01560 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01570 * 01580 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01590CCSPAS 01600INPUT=PRFDC001 01610SWITCH 0162000010000 01630COLSTS 01640 * THIS ROUTINE IS COMPLETE 01650MNUPRO 01660/! 01670DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01680LOAD,FN=PRFDC002,OW=CCS20 01690CHEKID 01700 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01710INPUT=PRFDC002 01720DSORT 01730FN=TRNSFL,CCS20 01740F2=TRNSFL,CCS20, 01750OP=T,F,A 01760KF=A,17,4,A,41,2,A,1,16 01770SL=I 01780 **** OPERATOR - LOAD LETTER PAPER 01790 * CARRIAGE RETURN WHEN READY 01800 * 01810CCSPAS 01820 * THE REQUESTED LETTERS WILL BE PRINTED 01830LTRPRT 01840 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01850 **** OPERATOR - LOAD REGULAR PAPER 01860 * CARRIAGE RETURN WHEN READY 01870 * 01880CCSPAS 01890 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED  3}{ 01900LTRSTA 01910 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01920MNUPRO 01930/! 01940DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01950LOAD,FN=PRFDC003,OW=CCS20 01960CHEKID 01970 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01980INPUT=PRFDC003 01990DSORT 02000FN=TRNSFL,CCS20 02010F2=TRNSFL,CCS20, 02020OP=T,F,A 02030KF=A,29,2,A,21,4,D,25,4,D,121,2 02040SL=I 02050ACTADD 02060 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02070MNUPRO 02080/! 02090DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02100LOAD,FN=PRFDC004,OW=CCS20 02110CHEKID 02120 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02130 * CARRIAGE RETURN WHEN READY 02140CCSPAS 02150INPUT=PRFDC004 02160SWITCH 0217010000000 02180 * THE UPDATE TAPE WILL BE PROCESSED 02190UPDATE 02200 * THE UPDATE TAPE HAS BEEN PROCESSED 02210 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02220 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02230 * SCREEN INFORMATION 02240CCSSPC 02250CCSPAS 02260 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02270MNUPRO 02280/! 02290DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02300LOAD,FN=PRFDC005,OW=CCS20 02310CHEKID 02320 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02330 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02340 * CARRIAGE RETURN WHEN READY 02350CCSPAS 02360INPUT=PRFDC005 02370SWITCH 5  3~{' 0238010000000 02390UPD400 02400 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02410MNUPRO 02420/! 02430DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02440LOAD,FN=PRFDC006,OW=CCS20 02450CHEKID 02460 * THE FINANCIAL UPDATES WILL BE PROCESSED 02470 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02480 * 02490INPUT=PRFDC006 02500MOUNT 02510FTAPE,B,P 02520/* 02530UPD500 02540 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02550MNUPRO 02560/! 02570DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02580LOAD,FN=PRFDC007,OW=CCS20 02590CHEKID 02600 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02610DHUPDT 02620 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02630MNUPRO 02640/! 02650DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02660LOAD,FN=PRFDC008,OW=CCS20 02670CHEKID 02680 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02690 * COLLECTORS ARE OFF-LINE FOR THE DAY 02700MNUPRO 02710/! 02720DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02730LOAD,FN=PRFDC009,OW=CCS20 02740CHEKID 02750 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02760 * COLLECTORS ARE OFF-LINE FOR THE DAY 02770MNUPRO 02780/! 02790DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02800LOAD,FN=PRFDC010,OW=CCS20 02810CHEKID 02820 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02830 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02840 * CARRIAGE RETURN ONLY - TO CONTINUE 02850 * [  3{; 02860CCSPAS 02870 * 02880 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02890 * 02900INPUT=PRFDC010 02910UTIL 02920CLEAR,FN=TRNSFL 02930EX 02940INPUT=PRFDC010 02950DSORT 02960FN=TRANFL,CCS20 02970F2=TRNSFL,CCS20, 02980OP=T,F,A 02990KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 03000SL=I 03010PRETSR 03020INPUT=PRFDC010 03030UTIL 03040CLEAR,FN=ACTIVE 03050CLEAR,FN=TRANFL 03060CLEAR,FN=TRNBCK 03070EX 03080 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03090NMCHNG 03100RSWCHG 03110INPUT=PRFDC010 03120UTIL 03130CLEAR,FN=ADDACT 03140EX 03150MNUPRO 03160/! 03170DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03180LOAD,FN=PRFDC011,OW=CCS20 03190CHEKID 03200 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03210 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03220 * CARRIAGE RETURN ONLY - TO CONTINUE 03230 * 03240CCSPAS 03250 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03260INPUT=PRFDC011 03270UTIL 03280CLEAR,FN=DLYWRK 03290EX 03300SRREQ 03310 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03320 * 03330 * THE DLYASSN FILE IS BEING CREATED .k  3{O 03340DACRTE 03350 * THE DLYASSN FILE HAS BEEN CREATED 03360 * THE DLYASSN FILE IS BEING SORTED 03370INPUT=PRFDC011 03380DSORT 03390FN=DLYWRK,CCS20 03400FN=DLYASSN,CCS20 03410F2=DLYASSN,CCS20, 03420OP=T,F,A 03430KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03440SL=I 03450 * THE DLYASSN FILE HAS BEEN SORTED 03460INPUT=PRFDC011 03470UTIL 03480CLEAR,FN=DAQUE 03490EX 03500 * THE DAILY QUEUE FILE IS BEING CREATED 03510DAQUEL 03520 * THE DAILY QUEUE FILE HAS BEEN CREATED 03530 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03540 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03550 * SCREEN INFORMATION 03560CCSSPC 03570CCSPAS 03580 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03590 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03600MNUPRO 03610/! 03620DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03630LOAD,FN=PRFHS001,OW=CCS20 03640CHEKID 03650 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03660 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03670INPUT=PRFHS001 03680DSORT 03690FN=INACCT,CCS20 03700F2=INTEMP,CCS20, 03710OP=T,F,A 03720KF=A,1,16,D,23,2,D,19,4 03730SL=I 03740INPUT=PRFHS001 03750UTIL 03760CLEAR,FN=INACCT 03770COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03780DELETE,FN=INTEMP 03790EX 03800 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03810 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE O0  3{cN TAPE UNIT '0' 03820 * WITH WRITE RING 03830 * CARRIAGE RETURN WHEN READY 03840CCSPAS 03850MHUPDT 03860 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 03870 * REBUILDING INACCT 03880FIXINA 03890 * INACCT REBUILD COMPLETE 03900MNUPRO 03910/! 03920DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03930LOAD,FN=PRFHS002,OW=CCS20 03940CHEKID 03950 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03960 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03970 * CARRIAGE RETURN ONLY - TO CONTINUE 03980 * 03990CCSPAS 04000 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 04010INPUT=PRFHS002 04020UTIL 04030DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 04040EX 04050CHUPD1 04060 * THE UPREQ FILE WILL BE SORTED 04070INPUT=PRFHS002 04080DSORT 04090FN=UPREQ,CCS20 04100F2=UPREQ,CCS20, 04110OP=T,F,A 04120KF=D,21,2,D,17,4,A,1,16 04130SL=I 04140 * THE UPREQ FILE HAS BEEN SORTED 04150INPUT=PRFHS002 04160UTIL 04170CLEAR,FN=UPHSTCM 04180EX 04190 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04200 * EXECUTION OF THE NEXT JOB 04210CHUPD2 04220INPUT=PRFHS002 04230UTIL 04240DELETE,FN=UPREQ 04250EX 04260 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04270MNUPRO 04280/! 04290DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL@  3{w=SYSVOL ,OW=CCS20 04300LOAD,FN=PRFHS003,OW=CCS20 04310CHEKID 04320 * THE SUMHIST FILE WILL BE PURGED 04330PHDEL2 04340CMPSUM 04350 * THE SUMHIST FILE HAS BEEN PURGED 04360MNUPRO 04370/! 04380DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04390LOAD,FN=PRFHS004,OW=CCS20 04400CHEKID 04410 * THE TAPEARC FILE WILL BE PURGED 04420PHDEL1 04430INPUT=PRFHS004 04440UTIL 04450COMPRE,FN=TAPEARC 04460EX 04470 * THE TAPEARC FILE HAS BEEN PURGED 04480MNUPRO 04490/! 04500DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04510LOAD,FN=PRFMT001,OW=CCS20 04520CHEKID 04530 * THE LETTER DEFINITION FILE WILL BE PRINTED 04540INPUT=PRFMT001 04550UTIL 04560LIST,FN=LTRDESC,L=LPRINTER,F=U 04570EX 04580 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04590 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04600 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04610 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04620 * CARRIAGE RETURN WHEN READY TO CONTINUE 04630CCSPAS 04640MNUPRO 04650/! 04660DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04670LOAD,FN=PRFMT002,OW=CCS20 04680CHEKID 04690 * THE LETTER FILE WILL BE CREATED 04700 * 04710INPUT=PRFMT002 04720UTIL 04730CLEAR,FN=LTRFIL 04740EX 04750LTRBLD 04760 * THE LETTER FILE HAS BEEN CREATED 04770MNUPRO p  3{ 04780/! 04790DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04800LOAD,FN=PRFMT003,OW=CCS20 04810CHEKID 04820 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04830 * 04840 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04850 * FROM THE CONSOLE 04860 * 04870 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04880UTFMTN 04890 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04900INPUT=PRFMT003 04910UTIL 04920LIST,FN=UTIFIL,L=LPRINTER,F=U 04930EX 04940 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04950 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04960MNUPRO 04970/! 04980DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04990LOAD,FN=PRFMT004,OW=CCS20 05000CHEKID 05010 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 05020 * 05030 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05040DECMTN 05050 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05060MNUPRO 05070/! 05080DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05090LOAD,FN=PRFMT005,OW=CCS20 05100CHEKID 05110 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05120AVMDMP 05130 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05140MNUPRO 05150/! 05160DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05170LOAD,FN=PRFMT006,OW=CCS20 05180CHEKID 05190 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05200 * 05210AVMCON 05220 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05230 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05240AVMDMP 05250 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRIN`  3{TED 05260MNUPRO 05270/! 05280DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05290LOAD,FN=PRFMT007,OW=CCS20 05300CHEKID 05310 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05320 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05330 * SCREEN INFORMATION 05340CCSSPC 05350CCSPAS 05360 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05370MNUPRO 05380/! 05390DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05400LOAD,FN=PRFMT008,OW=CCS20 05410CHEKID 05420 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05430INPUT=PRFMT008 05440UTIL 05450LIST,FN=SCRNDESC,L=LPRINTER,F=U 05460EX 05470 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05480 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05490 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05500 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05510 * CARRIAGE RETURN WHEN READY TO CONTINUE 05520CCSPAS 05530MNUPRO 05540/! 05550DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05560LOAD,FN=PRFMT009,OW=CCS20 05570CHEKID 05580 * THE SCREEN FILE WILL BE CREATED 05590BLDSRN 05600 * THE SCREEN FILE HAS BEEN CREATED 05610MNUPRO 05620/! 05630DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05640LOAD,FN=PRFMT010,OW=CCS20 05650CHEKID 05660 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05670 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05680 * CARRIAGE RETURN ONLY - TO CONTINUE 05690 * 05700CCSPAS 05710 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05720CMPDLQ 05730INPUT=PRFMT010 k+  3{ 05740UTIL 05750COMPRE,FN=COSIGNER 05760COMPRE,FN=ACTFIL 05770EX 05780 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05790MNUPRO 05800/! 05810DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05820LOAD,FN=PRFMT011,OW=CCS20 05830CHEKID 05840 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05850 * WILL BE PRINTED 05860ACTMTN 05870 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05880 * HAS BEEN PRINTED 05890MNUPRO 05900/! 05910DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05920LOAD,FN=PRFMT012,OW=CCS20 05930CHEKID 05940 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05950 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05960 * 05970USEMTN 05980 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05990MNUPRO 06000/! 06010DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 06020LOAD,FN=PRFMT013,OW=CCS20 06030CHEKID 06040 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06050PGLTTB 06060MNUPRO 06070/! 06080DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06090LOAD,FN=PRFMT014,OW=CCS20 06100CHEKID 06110 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06120 * 06130 * THE DATA ELEMENT TABLE WILL BE PRINTED 06140PGLTTB 06150 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06160 * 06170 * THE DATA ELEMENT TABLE WILL BE UPDATED 06180 * 06190 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06200 * 06210INPUT=PRFMT014 ϩ  3{ 06220SWITCH 06230000000000 06240PGUPTB 06250 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06260 * 06270 * THE DATA ELEMENT TABLE WILL BE PURGED 06280INPUT=PRFMT014 06290UTIL 06300DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06310EX 06320PGCMPR 06330INPUT=PRFMT014 06340UTIL 06350DELETE,FN=RPTTBL 06360RENAME,FN=TBLWRK,F2=RPTTBL 06370EX 06380 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06390 * 06400 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06410MNUPRO 06420/! 06430DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06440LOAD,FN=PRFMT015,OW=CCS20 06450CHEKID 06460 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06490PGLIST 06500 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06510 * 06520 * 06530 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06540 * 06550 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06560 * 06570PGPURG 06580INPUT=PRFMT015 06590UTIL 06600COMPRE,FN=RPTPGM 06610EX 06620 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06630 * 06640 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06650PGLIST 06660 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06670 * 06680 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06690MNUPRO V  3{ 06700/! 06710DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06720LOAD,FN=PRFMT016,OW=CCS20 06730CHEKID 06740 * THE SCREEN FILES WILL BE PRINTED 06750 * D 06760 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06770 * 06780PRTSCN 06790 * THE SCREEN FILES HAVE BEEN PRINTED 06800MNUPRO 06810/! 06820DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06830LOAD,FN=PRFRP001,OW=CCS20 06840CHEKID 06850INPUT=PRFRP001 06860SWITCH 0687010000000 06880 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06890 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06900 * PRINTED 06910DTLLST 06920 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06930MNUPRO 06940/! 06950DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06960LOAD,FN=PRFRP002,OW=CCS20 06970CHEKID 06980INPUT=PRFRP002 06990SWITCH 0700001000000 07010 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 07020 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 07030DTLLST 07040INPUT=PRFRP002 07050UTIL 07060CLEAR,FN=SREQDL 07070EX 07080 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07090MNUPRO 07100/! 07110DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07120LOAD,FN=PRFRP003,OW=CCS20 07130CHEKID 07140 * CALCULATE AGE FOR TREND ANALYSIS 07150TRENDF 07160 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07170 * ~  3{ 07180 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07190INPUT=PRFRP003 07200UTIL 07210DELETE,FN=AGEWRK 07220EX 07230INPUT=PRFRP003 07240DSORT 07250FN=ACCAGE,CCS20 07260FN=RSWFIL,CCS20 07270F2=AGEWRK,CCS20,SYSVOL 07280OP=T,F,A 07290KF=A,17,4,A,1,1 07300SL=OMIT,35,3,EQ,'RSW' 07310 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07320 * 07330 **** OPERATOR - 07340 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07350 * TREND DATA FOR NEXT RUN 07360 * 07370 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07380 * FOR NEXT RUN 07390CCSPAS 07400TRENDU 07410INPUT=PRFRP003 07420UTIL 07430CLEAR,FN=RSWFIL 07440EX 07450MNUPRO 07460/! 07470DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07480LOAD,FN=PRFRP004,OW=CCS20 07490CHEKID 07500 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07510 * THE AGEWRK FILE IS BEING SORTED 07520INPUT=PRFRP004 07530DSORT 07540FN=AGEWRK,CCS20 07550F2=AGEWRK,CCS20, 07560OP=T,F,A 07570KF=A,17,4,A,1,1 07580SL=OMIT,35,3,EQ,'RSW' 07590 * THE AGEWRK FILE HAS BEEN SORTED 07600 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07610INPUT=PRFRP004 07620SWITCH 0763010000000 07640TRENDP 07650 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLET  3|E 07660MNUPRO 07670/! 07680DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07690LOAD,FN=PRFRP005,OW=CCS20 07700CHEKID 07710 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07720 * THE AGEWRK FILE IS BEING SORTED 07730INPUT=PRFRP005 07740DSORT 07750FN=AGEWRK,CCS20 07760F2=AGEWRK,CCS20, 07770OP=T,F,A 07780KF=A,25,4,A,1,1 07790SL=I 07800 * THE AGEWRK FILE HAS BEEN SORTED 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07820INPUT=PRFRP005 07830SWITCH 0784000000000 07850TRENDP 07860 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07870MNUPRO 07880/! 07890DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07900LOAD,FN=PRFRP006,OW=CCS20 07910CHEKID 07920 * THE WRITE-OFF REPORT WILL BE GENERATED 07930 * THE WOEF FILE WILL BE CREATED 07940INPUT=PRFRP006 07950UTIL 07960DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07970EX 07980WRTOFE 07990 * THE WOEF FILE HAS BEEN CREATED 08000 * THE WOEF FILE IS BEING SORTED 08010INPUT=PRFRP006 08020DSORT 08030FN=WOEF,CCS20 08040F2=WOEF,CCS20, 08050OP=T,F,A 08060KF=A,25,1,A,17,4,A,21,4,A,1,16 08070SL=I 08080 * THE WOEF FILE HAS BEEN SORTED 08090 * THE WRITE-OFF REPORT WILL BE PRINTED 08100WRTOFP 08110INPUT=PRFRP006 08120UTIL 08130DELETE,FN=WOEF  3| 08140EX 08150 * THE WRITE-OFF REPORT IS COMPLETE 08160MNUPRO 08170/! 08180DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08190LOAD,FN=PRFRP007,OW=CCS20 08200CHEKID 08210 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08220DALIST 08230 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08240MNUPRO 08250/! 08260DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08270LOAD,FN=PRFRP008,OW=CCS20 08280CHEKID 08290 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08300SUMACL 08310 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08320MNUPRO 08330/! 08340DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08350LOAD,FN=PRFRP009,OW=CCS20 08360CHEKID 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08380INPUT=PRFRP009 08390SWITCH 0840001000000 08410COLSTS 08420 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08430 **** OPERATOR - 08440 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08450 * 08460 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08470CCSPAS 08480INPUT=PRFRP009 08490SWITCH 0850000001000 08510COLSTS 08520MNUPRO 08530/! 08540DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08550LOAD,FN=PRFRP010,OW=CCS20 08560CHEKID 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08580INPUT=PRFRP010 08590SWITCH 0860000100000 08610COLSTS )  3|+ 08620 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08630 **** OPERATOR - 08640 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08650 * STATISTICS COUNT FILE 08660 * 08670 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08680 * COUNT FILE 08690CCSPAS 08700INPUT=PRFRP010 08710UTIL 08720CLEAR,FN=COLSTATS 08730EX 08740MNUPRO 08750/! 08760DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08770LOAD,FN=PRFCNTRL,OW=CCS20 08780CHEKID 08790 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08800 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08810 * TO ACTIVATE BATCH HOST 08820 * MI, *BATCH,F 08830 * 08840 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08850 * 08860 * CARRIAGE RETURN ONLY - TO CONTINUE 08870CCSPAS 08880 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08890INPUT=PRFCNTRL 08900UTIL 08910DEFINE,FN=RPTWKE,LR=80,NR=1000 08920DEFINE,FN=RPTWKP,LR=80,NR=1000 08930DEFINE,FN=PRCWRK,LR=80,NR=50 08940EX 08950PGGEN 08960 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08970 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08980INPUT=PRFCNTRL 08990UTIL 09000BATCH,FN=RPTWKE,TY=N 09010BATCH,FN=RPTWKP,TY=R 09020DELETE,FN=RPTWKE 09030DELETE,FN=RPTWKP 09040CLEAR,FN=PGEXTR 09050EX 09060PGCNT1 09070 * 09080 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09090 * CARRIAGE RETURN WHEN READY !}  3|? 09100CCSPAS 09110MNUPRO 09120/! 09130DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09140LOAD,FN=PRFRP012,OW=CCS20 09150CHEKID 09160 * THE QUEUE LOADING REPORT WILL BE PRINTED 09170QLOAD 09180 * THE QUEUE LOADING REPORT IS COMPLETE 09190MNUPRO 09200/! 09210DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09220LOAD,FN=PRFRP014,OW=CCS20 09230CHEKID 09240 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09250 ***** 09260 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09270 ***** OR NOT TREND ANALYSIS IS BEING USED. 09280 ***** 09290 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09300 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09310 **** 09320 *** 09330CCSPAS 09340 * 09350CMPACC 09360 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09370MNUPRO 09380/! 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570 X  3|S 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680 09690 09700 09710 09720 09730DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09740NR=50 09750DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=12000,OW=CCS20 09760DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=12000,VL=CDD01; 09770OW=CCS20 09780DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09790DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09800DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=12000,VL=CDD01,OW=CCS20 09810DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=12000,VL=SYSVOL,OW=CCS20 09820DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09830DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09840OW=CCS20 09850DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=12000,VL=CDD01; 09860OW=CCS20 09870DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09880DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09890DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=12000; 09900VL=CDD01,OW=CCS20 09910DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=12000,VL=SYSVOL,OW=CCS20 09920DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=1000,VL=CDD01,OW=CCS20 09930DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09940LOAD,FN=DUMMY,OW=CCS20 09950 09960/! 09970DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=12000,VL=CDD01,OW=CCS20 09980DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09990DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 10020DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=12000,OW=CCS20 10030DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 10040DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10050OW=CCS20 4  3|g 10060DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=6000,VL=CDD01,OW=CCS20 10070DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10080DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20 10110DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=12000,VL=CDD01; 10120OW=CCS20 10130DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=12000,VL=CDD01; 10140OW=CCS20 10150DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10160DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10170DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10180DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD01,OW=CCS20 10190DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10200DEFINE,FN=$$LDMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10210LOAD,FN=$$LDMENU,OW=$$ 10220 * LEGAL AND AGENCY DAILY CYCLE MENU 10230 * 10240LDCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 10250LDPRTLTR B - PRINT REQUESTED LETTERS 10260LDACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 10270LDUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 10280LDNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 10290LDFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 10300LODRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 10310LODRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 10320LDUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 10330LDDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 10340LDDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 10350LDSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 10360LDBLDDAS M - CREATE DAILY ASSIGNMENT FILES 10370PRFLD012 N - NIGHTLY BATCH UPDATE 10380PRFLD013 O - L/A EXTRACT PROCESS 10390 Z - EXIT 10400/! 10410DEFINE,FN=$$LHMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10420LOAD,FN=$$LHMENU,OW=$$ 10430 LEGAL AND AGENCY HISTORY SYSTEM MENU 10440 * 10450LHMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 10460LHUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 10470LHPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10480LHPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10490LMPRGMST E - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10500LHPRGCLI F - PURGE CLIENT FILE (LACLIENT) 10510 Z - EXIT 10520/! 10530DEFINE,FN=$$LMMENU,TY=S,LR=80,NR=22,ED=999999,VL<  3|{=SYSVOL ,OW=$$ 10540LOAD,FN=$$LMMENU,OW=$$ 10550 * LEGAL AND AGENCY FILE MAINTENANCE MENU 10560 * 10570LMRDRLTR A - PRINT THE LETTER DEFINITION FILE 10580LMCONLTR B - CREATE THE LETTER FILE 10590LMUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 10600LMDECTBL D - DECISION TABLE MAINTENANCE 10610LMAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 10620LMACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 10630LMSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 10640LHPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10650LHPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10660LMLDSCRN J - PRINT SCREEN DEFINITION FILE 10670LMSVSCRN K - CREATE THE SCREEN FILE 10680LMPRGMST L - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10690LMACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 10700LMUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 10710LMDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 10720LMDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 10730LMPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 10740LMSCNPRT R - SAMPLE SCREEN PRINT UTILITY 10750PRFLM017 S - CLIENT FILE MAINTENANCE 10760 Z - EXIT 10770/! 10780DEFINE,FN=$$LOMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10790LOAD,FN=$$LOMENU,OW=$$ 10800 * LEGAL AND AGENCY ON DEMAND REPORT MENU 10810 * 10820LODRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 10830LODRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 10840LOTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 10850LOTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 10860LOTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 10870LOWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 10880LODLYASN G - DAILY ASSIGNMENT LIST 10890LOSUMACT H - SUMMARY ACCOUNT LIST REPORT 10900LOWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 10910LOMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 10920LOTCNTRL K - CREATE REPORT GENERATOR PROGRAM 10930PRFLP000 L - EXECUTE REPORT GENERATOR PROGRAM 10940PRFLO012 M - QUEUE LOADING REPORT 10950PRFLO013 N - COMPLETE PAYMENT, DIRECT PAYMENT STATEMENT REPORTS 10960PRFLO014 O - INVENTORY REPORTS BY ACCOUNT, CLIENT 10970PRFLO015 P - RECOVERY ANALYSIS REPORT 10980PRFRP014 Q - PURGE REPORT FILES ( LAACCAGE - LARSWFIL ) 10990 Z - EXIT 11000/! 11010DEFINE,FN=$$LRMENU,TY=S,LR=80,NR=22,ED=999999,VL  3|=SYSVOL ,OW=$$ 11020LOAD,FN=$$LRMENU,OW=$$ 11030 * LEGAL AND AGENCY REPORT GENERATOR - REPORT DIRECTORY 11040 * 11050PRFLP001 A - R.G. REPORT 1 - (AVAILABLE) 11060PRFLP002 B - R.G. REPORT 2 - (AVAILABLE) 11070PRFLP003 C - R.G. REPORT 3 - (AVAILABLE) 11080PRFLP004 D - R.G. REPORT 4 - (AVAILABLE) 11090PRFLP005 E - R.G. REPORT 5 - (AVAILABLE) 11100PRFLP006 F - R.G. REPORT 6 - (AVAILABLE) 11110PRFLP007 G - R.G. REPORT 7 - (AVAILABLE) 11120PRFLP008 H - R.G. REPORT 8 - (AVAILABLE) 11130PRFLP009 I - R.G. REPORT 9 - (AVAILABLE) 11140PRFLP010 J - R.G. REPORT 10 - (AVAILABLE) 11150PRFLP011 K - R.G. REPORT 11 - (AVAILABLE) 11160PRFLP012 L - R.G. REPORT 12 - (AVAILABLE) 11170PRFLP013 M - R.G. REPORT 13 - (AVAILABLE) 11180PRFLP014 N - R.G. REPORT 14 - (AVAILABLE) 11190PRFLP015 O - R.G. REPORT 15 - (AVAILABLE) 11200PRFLP016 P - R.G. REPORT 16 - (AVAILABLE) 11210PRFLP017 Q - R.G. REPORT 17 - (AVAILABLE) 11220PRFLP018 R - R.G. REPORT 18 - (AVAILABLE) 11230PRFLP019 S - R.G. REPORT 19 - (AVAILABLE) 11240 Z - EXIT 11250/! 11260DEFINE,FN=PRFLD001,OW=LA,ED=999999,TY=S,LR=80,NR=50 11270LOAD,FN=PRFLD001,OW=LA 11280CHEKID 11290 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 11300 * - TIME USAGE REPORT 11310 * - DAILY COLLECTOR STATISTICS REPORT 11320 * 11330 * LATRNSFL FILE IS NOW BEING SORTED 11340INPUT=PRFLD001 11350DSORT 11360FN=LATRNSFL,LA 11370F2=LATRNSFL,LA, 11380OP=T,F,A 11390KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 11400SL=I 11410 * THE LATRNSFL FILE HAS BEEN SORTED 11420 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 11430LCOLCG 11440 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 11450 * THE TIME USAGE REPORT WILL BE PRINTED 11460LTMUSE 11470 * THE TIME USAGE REPORT IS COMPLETE 11480INPUT=PRFLD001 11490SWITCH  3| 1150010000000 11510 * THE DAILY STATISTICS REPORT WILL BE PRINTED 11520COLSTS 11530 * THE DAILY STATISTICS REPORT IS COMPLETE 11540 **** OPERATOR - 11550 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 11560 * 11570 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 11580CCSPAS 11590INPUT=PRFLD001 11600SWITCH 1161000010000 11620COLSTS 11630 * THIS ROUTINE IS COMPLETE 11640MNUPRO 11650/! 11660DEFINE,FN=PRFLD002,OW=LA,ED=999999,TY=S,LR=80,NR=30 11670LOAD,FN=PRFLD002,OW=LA 11680CHEKID 11690 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 11700INPUT=PRFLD002 11710DSORT 11720FN=LATRNSFL,LA 11730F2=LATRNSFL,LA, 11740OP=T,F,A 11750KF=A,17,4,A,41,2,A,1,16 11760SL=I 11770 **** OPERATOR - LOAD LETTER PAPER 11780 * CARRIAGE RETURN WHEN READY 11790 * 11800CCSPAS 11810 * THE REQUESTED LETTERS WILL BE PRINTED 11820LLTPRT 11830 * THE REQUESTED LETTERS HAVE BEEN PRINTED 11840 **** OPERATOR - LOAD REGULAR PAPER 11850 * CARRIAGE RETURN WHEN READY 11860 * 11870CCSPAS 11880 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 11890LTRSTA 11900 * THE LETTER STATISTICS SUMMARY IS COMPLETE 11910MNUPRO 11920/! 11930DEFINE,FN=PRFLD003,OW=LA,ED=999999,TY=S,LR=80,NR=25 11940LOAD,FN=PRFLD003,OW=LA 11950CHEKID 11960 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 11970INPUT=PRFLD003 z  3| 11980DSORT 11990FN=LATRNSFL,LA 12000F2=LATRNSFL,LA, 12010OP=T,F,A 12020KF=A,29,2,A,21,4,D,25,4,D,121,2 12030SL=I 12040ACTADD 12050 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 12060MNUPRO 12070/! 12080DEFINE,FN=PRFLD004,OW=LA,ED=999999,TY=S,LR=80,NR=25 12090LOAD,FN=PRFLD004,OW=LA 12100CHEKID 12110 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 12120 * CARRIAGE RETURN WHEN READY 12130CCSPAS 12140INPUT=PRFLD004 12150SWITCH 1216010000000 12170 * THE UPDATE TAPE WILL BE PROCESSED 12180LUPDAT 12190 * THE UPDATE TAPE HAS BEEN PROCESSED 12200 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 12210 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 12220 * SCREEN INFORMATION 12230CCSSPC 12240CCSPAS 12250 * THE FILE SPACE AUDIT REPORT IS COMPLETE 12260MNUPRO 12270/! 12280DEFINE,FN=PRFLD005,OW=LA,ED=999999,TY=S,LR=80,NR=20 12290LOAD,FN=PRFLD005,OW=LA 12300CHEKID 12310 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 12320 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 12330 * CARRIAGE RETURN WHEN READY 12340CCSPAS 12350INPUT=PRFLD005 12360SWITCH 1237010000000 12380LUD400 12390 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 12400MNUPRO 12410/! 12420DEFINE,FN=PRFLD006,OW=LA,ED=999999,TY=S,LR=80,NR=20 12430LOAD,FN=PRFLD006,OW=LA 12440CHEKID 12450 * THE FINANCIAL UPDATES WILL BE PROCESSED 3  3| 12460 **** OPERATOR - FINANCIAL UPDATE TAPE SHOULD BE MOUNTED ON UNIT '0' 12470 * 12480INPUT=PRFLD006 12490SWITCH 1250010000000 12510INPUT=PRFLD006 12520MOUNT 12530FTAPE,B,P 12540/* 12550LUD500 12560 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 12570MNUPRO 12580/! 12590DEFINE,FN=PRFLD007,OW=LA,ED=999999,TY=S,LR=80,NR=15 12600LOAD,FN=PRFLD007,OW=LA 12610CHEKID 12620 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 12630DHUPDT 12640 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 12650MNUPRO 12660/! 12670DEFINE,FN=PRFLD008,OW=LA,ED=999999,TY=S,LR=80,NR=10 12680LOAD,FN=PRFLD008,OW=LA 12690CHEKID 12700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12710 * COLLECTORS ARE OFF-LINE FOR THE DAY 12720MNUPRO 12730/! 12740DEFINE,FN=PRFLD009,OW=LA,ED=999999,TY=S,LR=80,NR=10 12750LOAD,FN=PRFLD009,OW=LA 12760CHEKID 12770 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12780 * COLLECTORS ARE OFF-LINE FOR THE DAY 12790MNUPRO 12800/! 12810DEFINE,FN=PRFLD010,OW=LA,ED=999999,TY=S,LR=80,NR=50 12820LOAD,FN=PRFLD010,OW=LA 12830CHEKID 12840 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 12850 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 12860 * CARRIAGE RETURN ONLY - TO CONTINUE 12870 * 12880CCSPAS 12890 * 12900 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTOR REPORTS 12910 * 12920INPUT=PRFLD010 12930UTIL  3| 12940CLEAR,FN=LATRNSFL 12950EX 12960INPUT=PRFLD010 12970DSORT 12980FN=LATRANFL,LA 12990F2=LATRNSFL,LA, 13000OP=T,F,A 13010KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 13020SL=I 13030PRETSR 13040INPUT=PRFLD010 13050UTIL 13060CLEAR,FN=LAACTIVE 13070CLEAR,FN=LATRANFL 13080CLEAR,FN=LATRNBCK 13090EX 13100 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 13110NMCHNG 13120RSWCHG 13130INPUT=PRFLD010 13140UTIL 13150CLEAR,FN=LAADDACT 13160EX 13170MNUPRO 13180/! 13190DEFINE,FN=PRFLD011,OW=LA,ED=999999,TY=S,LR=80,NR=60 13200LOAD,FN=PRFLD011,OW=LA 13210CHEKID 13220 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 13230 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 13240 * CARRIAGE RETURN ONLY - TO CONTINUE 13250 * 13260CCSPAS 13270 * THE SUPERVISOR REQUEST FILE IS BEING CLEARED AND UPDATED 13280INPUT=PRFLD011 13290UTIL 13300CLEAR,FN=LADLYWRK 13310EX 13320SRREQ 13330 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 13340 * 13350 * THE LADLYASN FILE IS BEING CREATED 13360LDACRT 13370 * THE LADLYASN FILE HAS BEEN CREATED 13380 * THE LADLYASN FILE IS BEING SORTED 13390INPUT=PRFLD011 13400DSORT 13410FN=LADLYWRK,LA T  3| 13420FN=LADLYASN,LA 13430F2=LADLYASN,LA, 13440OP=T,F,A 13450KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 13460SL=I 13470 * THE LADLYASN FILE HAS BEEN SORTED 13480INPUT=PRFLD011 13490UTIL 13500CLEAR,FN=LADAQUE 13510EX 13520 * THE DAILY QUEUE FILE IS BEING CREATED 13530LDAQEL 13540 * THE DAILY QUEUE FILE HAS BEEN CREATED 13550 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 13560 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 13570 * SCREEN INFORMATION 13580CCSSPC 13590CCSPAS 13600 * THE FILE SPACE AUDIT REPORT IS COMPLETE 13610 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 13620 * 13630 * THE TRANSACTIONS ARE BEING SORTED INTO FILE FOR NIGTHLY BATCH PROCESS 13640INPUT=PRFLD011 13650DSORT 13660FN=LAFILTMP,LA 13670FN=LATRNSFL,LA 13680F2=LAFINTRN,, 13690OP=T,F,A 13700KF=A,1,16,A,17,4,A,50,3 13710SL=I 13720MNUPRO 13730/! 13740DEFINE,FN=PRFLD012,OW=LA,ED=999999,TY=S,LR=80,NR=35 13750LOAD,FN=PRFLD012,OW=LA 13760CHEKID 13770 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 13780 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 13790 * CARRIAGE RETURN ONLY - TO CONTINUE 13800CCSPAS 13810 * OPERATOR - CHECK THE DATE PRINTED ON THE MATRIX 13820 * IT MUST BE THE CORRECT DATE 13830 * RESPOND - 'N' CARRIAGE RETURN TO ABORT 13840 * CARRIAGE RETURN ONLY TO CONTINUE 13850CCSPAS 13860 *THE NIGHTLY BATCH FILES WILL BE CLEARED 13870INPUT=PRFLD012 13880UTIL 13890CLEAR,FN=LAFILTMP   3} 13900CLEAR,FN=LARPTDAT 13910EX 13920 *BATCH UPDATE WILL BEGIN 13930LBATUD 13940 * BATCH UPDATE COMPLETE, AUDIT TRAIL REPORT WILL BEGIN 13950LBATPT 13960 * AUDIT TRAIL REPORT COMPLETE 13970 * THE LACLIENT FILE IS BEING UPDATED FOR ON-LINE USE 13980LCLIUD 13990 *NIGHTLY BATCH UPDATE PROCESS COMPLETE 14000MNUPRO 14010/! 14020DEFINE,FN=PRFLD013,OW=LA,ED=999999,TY=S,LR=80,NR=20 14030LOAD,FN=PRFLD013,OW=LA 14040CHEKID 14050 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 14060 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 14070 * CARRIAGE RETURN ONLY - TO CONTINUE 14080CCSPAS 14090 * THE LEGAL AND AGENCY EXTRACT PROGRAM WILL BEGIN 14100LAXTRT 14110 * THE LEGAL AND AGENCY EXTRACT PROCESS IS COMPLETE. 14120 * REFERRAL REPORT WILL BEGIN 14130LARPRT 14140 * REFERRAL REPORT COMPLETE 14150 * THE LADLQKEY FILE IS BEING CLEARED 14160INPUT=PRFLD013 14170UTIL 14180CLEAR,FN=LADLQKEY 14190EX 14200MNUPRO 14210/! 14220DEFINE,FN=PRFLH001,OW=LA,ED=999999,TY=S,LR=80,NR=30 14230LOAD,FN=PRFLH001,OW=LA 14240CHEKID 14250 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 14260 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 14270INPUT=PRFLH001 14280DSORT 14290FN=LAINACCT,LA 14300F2=LAINTEMP,LA, 14310OP=T,F,A 14320KF=A,1,16,D,23,2,D,19,4 14330SL=I 14340INPUT=PRFLH001 14350UTIL 14360CLEAR,FN=LAINACCT 14370COPY,FN=LAINTEMP,F2=LAINACCT,OW=LA  3} 14380DELETE,FN=LAINTEMP 14390EX 14400 * THE LAINACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 14410 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 14420 * WITH WRITE RING - CARRIAGE RETURN WHEN READY 14430CCSPAS 14440MHUPDT 14450 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 14460 * REBUILDING LAINACCT 14470FIXINA 14480 * LAINACCT REBUILD COMPLETE 14490MNUPRO 14500/! 14510DEFINE,FN=PRFLH002,OW=LA,ED=999999,TY=S,LR=80,NR=40 14520LOAD,FN=PRFLH002,OW=LA 14530CHEKID 14540 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 14550 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 14560 * CARRIAGE RETURN ONLY - TO CONTINUE 14570 * 14580CCSPAS 14590 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 14600INPUT=PRFLH002 14610UTIL 14620DEFINE,FN=LAUPDREQ,ED=999999,TY=S,LR=22,NR=300 14630EX 14640LCHUD1 14650 * THE LAUPDREQ FILE WILL BE SORTED 14660INPUT=PRFLH002 14670DSORT 14680FN=LAUPDREQ,LA 14690F2=LAUPDREQ,LA, 14700OP=T,F,A 14710KF=D,21,2,D,17,4,A,1,16 14720SL=I 14730 * THE LAUPDREQ FILE HAS BEEN SORTED 14740INPUT=PRFLH002 14750UTIL 14760CLEAR,FN=LAUPHSCM 14770EX 14780 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 14790 * EXECUTION OF THE NEXT JOB 14800CHUPD2 14810INPUT=PRFLH002 14820UTIL 14830DELETE,FN=LAUPDREQ 14840EX 14850 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM TH*  3}/E TAPE ARCHIVES 14860MNUPRO 14870/! 14880DEFINE,FN=PRFLH003,OW=LA,ED=999999,TY=S,LR=80,NR=15 14890LOAD,FN=PRFLH003,OW=LA 14900CHEKID 14910 * THE LASUMHST FILE WILL BE PURGED 14920PHDEL2 14930LCMPSM 14940 * THE LASUMHST FILE HAS BEEN PURGED 14950MNUPRO 14960/! 14970DEFINE,FN=PRFLH004,OW=LA,ED=999999,TY=S,LR=80,NR=15 14980LOAD,FN=PRFLH004,OW=LA 14990CHEKID 15000 * THE LATAPARC FILE WILL BE PURGED 15010PHDEL1 15020INPUT=PRFLH004 15030UTIL 15040COMPRE,FN=LATAPARC 15050EX 15060 * THE LATAPARC FILE HAS BEEN PURGED 15070MNUPRO 15080/! 15090DEFINE,FN=PRFLH005,OW=LA,ED=999999,TY=S,LR=80,NR=25 15100LOAD,FN=PRFLH005,OW=LA 15110CHEKID 15120 * THE CLIENT FILE WILL BE PURGED 15130INPUT=PRFLH005 15140UTIL 15150DEFINE,FN=LAPURGED,LR=1600,NR=100 15160EX 15170 *THE LACLIENT FILE WILL BE SCANNED FOR CLIENTS READY TO BE PURGED 15180LACLPG 15190 *THE INACTIVATED AND/OR PURGED REPORT WILL BE PRINTED 15200LPGRPT 15210 * THE LAPURGED FILE WILL BE DELETED 15220INPUT=PRFLH005 15230UTIL 15240DELETE,FN=LAPURGED 15250EX 15260 * THE CLIENT FILE PURGE ROUTINES ARE COMPLETE 15270MNUPRO 15280/! 15290DEFINE,FN=PRFLM001,OW=LA,ED=999999,TY=S,LR=80,NR=20 15300LOAD,FN=PRFLM001,OW=LA 15310CHEKID 15320 * THE LETTER DEFINITION FILE WILL BE PRINTED 15330INPUT=PRFLM001 2  3}C 15340UTIL 15350LIST,FN=LALTRDSC,L=LPRINTER,F=U 15360EX 15370 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 15380 **** OPERATOR - IF ANY CHANGES ARE TO BE MADE TO THE LETTER FILE 15390 * ENTER THE EDITOR TO PROCESS THE LALTRDSC FILE, WHEN 15400 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 15410 * CARRIAGE RETURN WHEN READY TO CONTINUE 15420CCSPAS 15430MNUPRO 15440/! 15450DEFINE,FN=PRFLM002,OW=LA,ED=999999,TY=S,LR=80,NR=15 15460LOAD,FN=PRFLM002,OW=LA 15470CHEKID 15480 * THE LETTER FILE WILL BE CREATED 15490INPUT=PRFLM002 15500UTIL 15510CLEAR,FN=LALTRFIL 15520EX 15530LTRBLD 15540 * THE LETTER FILE HAS BEEN CREATED 15550MNUPRO 15560/! 15570DEFINE,FN=PRFLM003,OW=LA,ED=999999,TY=S,LR=80,NR=25 15580LOAD,FN=PRFLM003,OW=LA 15590CHEKID 15600 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 15610 * 15620 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 15630 * FROM THE CONSOLE 15640 * 15650 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 15660LUTFMT 15670 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 15680INPUT=PRFLM003 15690UTIL 15700LIST,FN=LAUTIFIL,L=LPRINTER,F=U 15710EX 15720 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 15730 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 15740MNUPRO 15750/! 15760DEFINE,FN=PRFLM004,OW=LA,ED=999999,TY=S,LR=80,NR=15 15770LOAD,FN=PRFLM004,OW=LA 15780CHEKID 15790 * THE DECISION TABLE MAINTENANCE ROUTIN WILL BE EXECUTED 15800 * 15810 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY  3}WAPPEAR ON THE SCREEN 15820LDECMT 15830 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 15840MNUPRO 15850/! 15860DEFINE,FN=PRFLM005,OW=LA,ED=999999,TY=S,LR=80,NR=15 15870LOAD,FN=PRFLM005,OW=LA 15880CHEKID 15890 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 15900LAVMDP 15910 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 15920MNUPRO 15930/! 15940DEFINE,FN=PRFLM006,OW=LA,ED=999999,TY=S,LR=80,NR=15 15950LOAD,FN=PRFLM006,OW=LA 15960CHEKID 15970 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 15980 * 15990AVMCON 16000 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 16010 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 16020LAVMDP 16030 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 16040MNUPRO 16050/! 16060DEFINE,FN=PRFLM007,OW=LA,ED=999999,TY=S,LR=80,NR=15 16070LOAD,FN=PRFLM007,OW=LA 16080CHEKID 16090 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 16100 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 16110 * SCREEN INFORMATION 16120CCSSPC 16130CCSPAS 16140 * THE FILE SPACE AUDIT REPORT IS COMPLETE 16150MNUPRO 16160/! 16170DEFINE,FN=PRFLM008,OW=LA,ED=999999,TY=S,LR=80,NR=20 16180LOAD,FN=PRFLM008,OW=LA 16190CHEKID 16200 * THE SCREEN DEFINITION FILE WILL BE PRINTED 16210INPUT=PRFLM008 16220UTIL 16230LIST,FN=LASCNDSC,L=LPRINTER,F=U 16240EX 16250 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 16260 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 16270 * FILE ENTER THE EDITOR TO PROCESS THE LASCNDSC FILE, 16280 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 16290 * CARRIAGE RETURN WHEN READY TO C<  3}kONTINUE 16300CCSPAS 16310MNUPRO 16320/! 16330DEFINE,FN=PRFLM009,OW=LA,ED=999999,TY=S,LR=80,NR=15 16340LOAD,FN=PRFLM009,OW=LA 16350CHEKID 16360 * THE SCREEN FILE WILL BE CREATED 16370LBLDSR 16380 * THE SCREEN FILE HAS BEEN CREATED 16390MNUPRO 16400/! 16410DEFINE,FN=PRFLM010,OW=LA,ED=999999,TY=S,LR=80,NR=20 16420LOAD,FN=PRFLM010,OW=LA 16430CHEKID 16440 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 16450 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 16460 * CARRIAGE RETURN ONLY - TO CONTINUE 16470 * 16480CCSPAS 16490 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES WILL BE PURGED 16500LCMPDQ 16510INPUT=PRFLM010 16520UTIL 16530COMPRE,FN=LACOSIGN 16540COMPRE,FN=LAACTFIL 16550EX 16560 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES HAVE BEEN PURGED 16570MNUPRO 16580/! 16590DEFINE,FN=PRFLM011,OW=LA,ED=999999,TY=S,LR=80,NR=15 16600LOAD,FN=PRFLM011,OW=LA 16610CHEKID 16620 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 16630 * WILL BE PRINTED 16640ACTMTN 16650 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 16660 * HAS BEEN PRINTED 16670MNUPRO 16680/! 16690DEFINE,FN=PRFLM012,OW=LA,ED=999999,TY=S,LR=80,NR=15 16700LOAD,FN=PRFLM012,OW=LA 16710CHEKID 16720 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE WILL BE EXECUTED 16730 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 16740 * 16750USEMTN 16760 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE IS COMPLETE 16770MNUPRO   3} 16780/! 16790DEFINE,FN=PRFLM013,OW=LA,ED=999999,TY=S,LR=80,NR=10 16800LOAD,FN=PRFLM013,OW=LA 16810CHEKID 16820 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 16830LPGLTB 16840MNUPRO 16850/! 16860DEFINE,FN=PRFLM014,OW=LA,ED=999999,TY=S,LR=80,NR=40 16870LOAD,FN=PRFLM014,OW=LA 16880CHEKID 16890 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 16900 * 16910 * THE DATA ELEMENT TABLE WILL BE PRINTED 16920LPGLTB 16930 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 16940 * 16950 * THE DATA ELEMENT TABLE WILL BE UPDATED 16960 * 16970 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 16980 * 16990INPUT=PRFLM014 17000SWITCH 17010000000000 17020LPGUTB 17030 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 17040 * 17050 * THE DATA ELEMENT TABLE WILL BE PURGED 17060INPUT=PRFLM014 17070UTIL 17080DEFINE,FN=LATBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 17090EX 17100LPGCMP 17110INPUT=PRFLM014 17120UTIL 17130DELETE,FN=LARPTTBL 17140RENAME,FN=LATBLWRK,F2=LARPTTBL 17150EX 17160 * THE DATA ELEMENT TABLE HAS BEEN PURGED 17170 * 17180 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 17190MNUPRO 17200/! 17210DEFINE,FN=PRFLM015,OW=LA,ED=999999,TY=S,LR=80,NR=35 17220LOAD,FN=PRFLM015,OW=LA 17230CHEKID 17240 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 17250 * 7  3} 17260 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 17270LPGLIS 17280 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 17290 * 17300 * 17310 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 17320 * 17330 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 17340 * 17350LPGPRG 17360INPUT=PRFLM015 17370UTIL 17380COMPRE,FN=LARPTPGM 17390EX 17400 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 17410 * 17420 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 17430LPGLIS 17440 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 17450 * 17460 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 17470MNUPRO 17480/! 17490DEFINE,FN=PRFLM016,OW=LA,ED=999999,TY=S,LR=80,NR=15 17500LOAD,FN=PRFLM016,OW=LA 17510CHEKID 17520 * THE SCREEN FILES WILL BE PRINTED 17530 * 17540 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 17550 * 17560LPRSCN 17570 * THE SCREEN FILES HAVE BEEN PRINTED 17580MNUPRO 17590/! 17600DEFINE,FN=PRFLM017,OW=LA,ED=999999,TY=S,LR=80,NR=15 17610LOAD,FN=PRFLM017,OW=LA 17620CHEKID 17630 * THE CLIENT FILE MAINTENANCE PROGRAM WILL BEGIN 17640CLIENT 17650 * THE CLIENT FILE MAINTENANCE PROGRAM HAS COMPLETED 17660MNUPRO 17670/! 17680DEFINE,FN=PRFLO001,OW=LA,ED=999999,TY=S,LR=80,NR=20 17690LOAD,FN=PRFLO001,OW=LA 17700CHEKID 17710INPUT=PRFLO001 17720SWITCH 1773010000000 L]  3} 17740 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 17750 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 17760 * PRINTED 17770LDTLST 17780 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 17790MNUPRO 17800/! 17810DEFINE,FN=PRFLO002,OW=LA,ED=999999,TY=S,LR=80,NR=20 17820LOAD,FN=PRFLO002,OW=LA 17830CHEKID 17840INPUT=PRFLO002 17850SWITCH 1786001000000 17870 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 17880 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 17890LDTLST 17900INPUT=PRFLO002 17910UTIL 17920CLEAR,FN=LASREQDL 17930EX 17940 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 17950MNUPRO 17960/! 17970DEFINE,FN=PRFLO003,OW=LA,ED=999999,TY=S,LR=80,NR=40 17980LOAD,FN=PRFLO003,OW=LA 17990CHEKID 18000 * CALCULATE AGE FOR TREND ANALYSIS 18010TRENDF 18020 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 18030 * 18040 * THE LAACCAGE AND LARSWFIL FILES ARE BEING SORTED INTO LAAGEWRK 18050INPUT=PRFLO003 18060UTIL 18070DELETE,FN=LAAGEWRK 18080EX 18090INPUT=PRFLO003 18100DSORT 18110FN=LAACCAGE,LA 18120FN=LARSWFIL,LA 18130F2=LAAGEWRK,LA,SYSVOL 18140OP=T,F,A 18150KF=A,17,4,A,1,1 18160SL=OMIT,35,3,EQ,'RSW' 18170 * THE LAACCAGE AND LARSWFIL FILES HAVE BEEN SORTED 18180 * 18190 **** OPERATOR - 18200 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 18210 * TREND DATA FOR NEXT RUN X/  3} 18220 * 18230 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 18240 * FOR NEXT RUN 18250CCSPAS 18260LTRNDU 18270INPUT=PRFLO003 18280UTIL 18290CLEAR,FN=LARSWFIL 18300EX 18310MNUPRO 18320/! 18330DEFINE,FN=PRFLO004,OW=LA,ED=999999,TY=S,LR=80,NR=25 18340LOAD,FN=PRFLO004,OW=LA 18350CHEKID 18360 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 18370 * THE LAAGEWRK FILE IS BEING SORTED 18380INPUT=PRFLO004 18390DSORT 18400FN=LAAGEWRK,LA 18410F2=LAAGEWRK,LA, 18420OP=T,F,A 18430KF=A,17,4,A,1,1 18440SL=I 18450 * THE LAAGEWRK FILE HAS BEEN SORTED 18460 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 18470INPUT=PRFLO004 18480SWITCH 1849010000000 18500LTRNDP 18510 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 18520MNUPRO 18530/! 18540DEFINE,FN=PRFLO005,OW=LA,ED=999999,TY=S,LR=80,NR=25 18550LOAD,FN=PRFLO005,OW=LA 18560CHEKID 18570 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 18580 * THE LAAGEWRK FILE IS BEING SORTED 18590INPUT=PRFLO005 18600DSORT 18610FN=LAAGEWRK,LA 18620F2=LAAGEWRK,LA, 18630OP=T,F,A 18640KF=A,17,4,A,1,1 18650SL=I 18660 * THE LAAGEWRK FILE HAS BEEN SORTED 18670 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 18680INPUT=PRFLO005 18690SWITCH  3} 1870000000000 18710LTRNDP 18720 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 18730MNUPRO 18740/! 18750DEFINE,FN=PRFLO006,OW=LA,ED=999999,TY=S,LR=80,NR=35 18760LOAD,FN=PRFLO006,OW=LA 18770CHEKID 18780 * THE WRITE-OFF REPORT WILL BE GENERATED 18790 * THE LAWOEF FILE WILL BE CREATED 18800INPUT=PRFLO006 18810UTIL 18820DEFINE,FN=LAWOEF,ED=999999,TY=S,LR=115,NR=6000 18830EX 18840WRTOFE 18850 * THE LAWOEF FILE HAS BEEN CREATED 18860 * THE LAWOEF FILE IS BEING SORTED 18870INPUT=PRFLO006 18880DSORT 18890FN=LAWOEF,LA 18900F2=LAWOEF,LA, 18910OP=T,F,A 18920KF=A,25,1,A,17,4,A,21,4,A,1,16 18930SL=I 18940 * THE LAWOEF FILE HAS BEEN SORTED 18950 * THE WRITE-OFF REPORT WILL BE PRINTED 18960LWROFP 18970INPUT=PRFLO006 18980UTIL 18990DELETE,FN=LAWOEF 19000EX 19010 * THE WRITE-OFF REPORT IS COMPLETE 19020MNUPRO 19030/! 19040DEFINE,FN=PRFLO007,OW=LA,ED=999999,TY=S,LR=80,NR=15 19050LOAD,FN=PRFLO007,OW=LA 19060CHEKID 19070 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 19080LDALST 19090 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 19100MNUPRO 19110/! 19120DEFINE,FN=PRFLO008,OW=LA,ED=999999,TY=S,LR=80,NR=15 19130LOAD,FN=PRFLO008,OW=LA 19140CHEKID 19150 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 19160SUMACL 19170 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE  3} 19180MNUPRO 19190/! 19200DEFINE,FN=PRFLO009,OW=LA,ED=999999,TY=S,LR=80,NR=25 19210LOAD,FN=PRFLO009,OW=LA 19220CHEKID 19230 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 19240INPUT=PRFLO009 19250SWITCH 1926001000000 19270COLSTS 19280 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 19290 **** OPERATOR - 19300 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 19310 * 19320 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 19330CCSPAS 19340INPUT=PRFLO009 19350SWITCH 1936000001000 19370COLSTS 19380MNUPRO 19390/! 19400DEFINE,FN=PRFLO010,OW=LA,ED=999999,TY=S,LR=80,NR=25 19410LOAD,FN=PRFLO010,OW=LA 19420CHEKID 19430 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 19440INPUT=PRFLO010 19450SWITCH 1946000100000 19470COLSTS 19480 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 19490 **** OPERATOR - 19500 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 19510 * STATISTICS COUNT FILE 19520 * 19530 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 19540 * COUNT FILE 19550CCSPAS 19560INPUT=PRFLO010 19570UTIL 19580CLEAR,FN=LACOLSTS 19590EX 19600MNUPRO 19610/! 19620DEFINE,FN=PRFLACTR,OW=LA,ED=999999,TY=S,LR=80,NR=40 19630LOAD,FN=PRFLACTR,OW=LA 19640CHEKID 19650 **** OPERATOR - THE BATCH HOST MUST BE ACTIVE B  3}EFORE PROCEEDING 19660 **** OPERATOR - (BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING) 19670 * TO ACTIVATE BATCH HOST 19680 * MI, *BATCH,F 19690 * 19700 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 19710 * 19720 * CARRIAGE RETURN ONLY - TO CONTINUE 19730CCSPAS 19740 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 19750INPUT=PRFLACTR 19760UTIL 19770DEFINE,FN=LARPTWKE,LR=80,NR=1000 19780DEFINE,FN=LARPTWKP,LR=80,NR=1000 19790DEFINE,FN=LAPRCWRK,LR=80,NR=50 19800EX 19810LPGGEN 19820 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 19830 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 19840INPUT=PRFLACTR 19850UTIL 19860BATCH,FN=LARPTWKE,TY=N 19870BATCH,FN=LARPTWKP,TY=R 19880DELETE,FN=LARPTWKE 19890DELETE,FN=LARPTWKP 19900CLEAR,FN=LAPGEXTR 19910EX 19920LPGCT1 19930 * 19940 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 19950 * CARRIAGE RETURN WHEN READY 19960CCSPAS 19970MNUPRO 19980/! 19990DEFINE,FN=PRFLO012,OW=LA,ED=999999,TY=S,LR=80,NR=15 20000LOAD,FN=PRFLO012,OW=LA 20010CHEKID 20020 * THE QUEUE LOADING REPORT WILL BE PRINTED 20030QLOAD 20040 * THE QUEUE LOADING REPORT IS COMPLETE 20050MNUPRO 20060/! 20070DEFINE,FN=PRFLO013,OW=LA,ED=999999,TY=S,LR=80,NR=25 20080LOAD,FN=PRFLO013,OW=LA 20090CHEKID 20100 * LAPMTFIL WILL BE SORTED FOR THE COMPLETE & DIRECT PAYMENT REPORTS 20110INPUT=PRFLO013 20120DSORT 20130FN=LAPMTFIL,LA sb  3~  20140F2=LAPMTFIL,LA, 20150OP=T,F,A 20160KF=A,34,4,A,1,16 20170SL=I 20180INPUT=PRFLO013 20190 * COMPLETE PAYMENT REPORT WILL NOW BE PRINTED 20200COMPAY 20210 * DIRECT PAYMENT REPORT WILL NOW BE PRINTED 20220DIRPAY 20230 ***** OPERATOR - RESPOND 'N' CARRIAGE RETURN TO BYPASS CLEARING THE 20240 * PAYMENT FILE 20250 * 20260 * RESPOND CARRIAGE RETURN ONLY TO CLEAR PAYMENT FILE 20270 * 20280CCSPAS 20290INPUT=PRFLO013 20300UTIL 20310CLEAR,FN=LAPMTFIL 20320EX 20330MNUPRO 20340/! 20350DEFINE,FN=PRFLO014,OW=LA,ED=999999,TY=S,LR=80,NR=45 20360LOAD,FN=PRFLO014,OW=LA 20370CHEKID 20380 * THE INVENTORY REPORT PROCESS WILL NOW BEGIN 20390 * THE CLIENT FILE IS BEING EXTRACTED 20400INPUT=PRFLO014 20410UTIL 20420DEFINE,FN=LACLINV,TY=S,LR=80,NR=9000 20430EX 20440CLXTRT 20450 * CLIENT EXTRACT RECORDS WILL BE SORTED 20460INPUT=PRFLO014 20470DSORT 20480FN=LACLINV,LA 20490F2=LACLINV,, 20500OP=T,F,A 20510KF=A,1,16 20520SL=I 20530INPUT=PRFLO014 20540 * THE INVENTORY REPORT BY ACCOUNT WILL BE PRINTED 20550INVCUS 20560 * CLIENT EXTRACT RECORDS WILL BE SORTED BY CLIENT 20570INPUT=PRFLO014 20580DSORT 20590FN=LACLINV,LA 20600F2=LACLINV,, 20610OP=T,F,A E  3~ 20620KF=A,17,4 20630SL=I 20640INPUT=PRFLO014 20650 * THE INVENTORY REPORT BY CLIENT WILL BE PRINTED 20660INVCLI 20670INPUT=PRFLO014 20680UTIL 20690DELETE,FN=LACLINV 20700EX 20710 * INVENTORY REPORT PROCESS IS COMPLETE 20720MNUPRO 20730/! 20740DEFINE,FN=PRFLO015,OW=LA,ED=999999,TY=S,LR=80,NR=15 20750LOAD,FN=PRFLO015,OW=LA 20760CHEKID 20770 * THE RECOVERY ANALYSIS REPORT WILL BEGIN 20780RECVRY 20790 * THE RECOVERY ANALYSIS REPORT IS COMPLETE 20800MNUPRO 20810/! 20820DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=LA 20830LOAD,FN=PRFRP014,OW=LA 20840CHEKID 20850 ***** PURGE TREND ANALYSIS FILES (LAACCAGE-LARSWFIL) 20860 ***** 20870 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 20880 ***** OR NOT TREND ANALYSIS IS BEING USED. 20890 ***** 20900 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 20910 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 20920 **** 20930 *** 20940CCSPAS 20950 * 20960CMPACC 20970 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 20980MNUPRO 20990/! 21000DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50; 21010OW=LA,VL=CDD03 21020DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=9000,VL=CDD03; 21030OW=LA 21040DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD03; 21050OW=LA 21060DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD03; 21070OW=LA 21080DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD03,OW=LA 21090DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=9000,@  3~3VL=CDD03,OW=LA 21100DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=9000,VL=SYSVOL,OW=LA 21110DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD03,OW=LA 21120DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1600,NR=100; 21130VL=CDD03,OW=LA 21140DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD03; 21150OW=LA 21160DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=9000,VL=CDD03; 21170OW=LA 21180DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=128,VL=CDD03,OW=LA 21190DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD03,OW=LA 21200DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD03,OW=LA 21210DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=9000; 21220VL=CDD03,OW=LA 21230DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=9000,VL=SYSVOL,OW=LA 21240DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=750,VL=CDD03,OW=LA 21250DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD03,OW=LA 21260LOAD,FN=LADUMMY,OW=LA 21270 21280/! 21290DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD03,OW=LA 21300DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA 21310DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=9000,VL=CDD03,OW=LA 21320DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD03,OW=LA 21330DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD03; 21340OW=LA 21350DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA 21360DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=9000,VL=SYSVOL,OW=LA 21370DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=200,NR=4000,VL=CDD03,OW=LA 21380DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD03,OW=LA 21390DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD03; 21400OW=LA 21410DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=4500,VL=CDD03,OW=LA 21420DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD03,OW=LA 21430DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=CDD03; 21440OW=LA 21450DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA 21460DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=9000,VL=CDD03; 21470OW=LA 21480DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=9000,VL=CDD03; 21490OW=LA 21500DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD03,OW=LA 21510DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA 21520DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA 21530DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA 21540DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD03; 21550OW=LA 21560DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD03,OW=LA 21570EX i  3~G 21580MOVDAT 21590LMOVDT 21600 * THE 12000/9000 ACCOUNT SYSTEM BUILD IS COMPLETE 21610 * 21620 * PROCEED WITH THE INSTALLATION TEST PROCEDURE. 21630 * 21640MNUPRO 21650__ 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU 00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR Pԑ  3~[ROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00840AL~_S $$ IS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REP * 00010 * PROCEDURE TO BUILD 24000-9000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC006 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00180MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES 00190MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES 00200MNUPRO LO - L/A ON DEMAND REPORTING 00210MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY 00220MNUPRO EX - EXIT 00230/! 00240DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00250LOAD,FN=$$DCMENU,OW=$$ 00260 * DAILY CYCLE MENU 00270 * 00280DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00290DCPRTLTR B - PRINT REQUESTED LETTERS 00300DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00310DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00320DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00330DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360  3~oDCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU 00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 008407  3~RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00870RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00880RPDLYASN G - DAILY ASSIGNMENT LIST 00890RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00900RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00910RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00920RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00930PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00940PRFRP012 M - QUEUE LOADING REPORT 00950PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00960 Z - EXIT 00970/! 00980DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00990LOAD,FN=$$RGMENU,OW=$$ 01000 * REPORT GENERATOR - REPORT DIRECTORY 01010 * 01020PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 01030PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 01040PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01050PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01060PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01070PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01080PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01090PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01100PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01110PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01120PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01130PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01140PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01150PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01160PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01170PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01180PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01190PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01200PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01210 Z - EXIT 01220/! 01230DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01240LOAD,FN=PRFDC001,OW=CCS20 01250CHEKID 01260 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01270 * - TIME USAGE REPORT 01280 * - DAILY COLLECTOR STATISTICS REPORT 01290 * 01300INPUT=PRFDC001 01310UTIL 01320  3~CLEAR,FN=DLYWRK 01330EX 01340 * TRNSFL FILE IS NOW BEING SORTED 01350INPUT=PRFDC001 01360DSORT 01370FN=TRNSFL,CCS20 01380F2=TRNSFL,CCS20, 01390OP=T,F,A 01400KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01410SL=I 01420 * THE TRNSFL FILE HAS BEEN SORTED 01430 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01440COLCHG 01450 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01460 * THE TIME USAGE REPORT WILL BE PRINTED 01470TIMUSE 01480 * THE TIME USAGE REPORT IS COMPLETE 01490INPUT=PRFDC001 01500SWITCH 0151010000000 01520 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01530COLSTS 01540 * THE DAILY STATISTICS REPORT IS COMPLETE 01550 **** OPERATOR - 01560 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01570 * 01580 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01590CCSPAS 01600INPUT=PRFDC001 01610SWITCH 0162000010000 01630COLSTS 01640 * THIS ROUTINE IS COMPLETE 01650MNUPRO 01660/! 01670DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01680LOAD,FN=PRFDC002,OW=CCS20 01690CHEKID 01700 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01710INPUT=PRFDC002 01720DSORT 01730FN=TRNSFL,CCS20 01740F2=TRNSFL,CCS20, 01750OP=T,F,A 01760KF=A,17,4,A,41,2,A,1,16 01770SL=I 01780 **** OPERATOR - LOAD LETTER PAPER 01790 * CARRIAGE RETURN WHEN READY 01800u  3~ * 01810CCSPAS 01820 * THE REQUESTED LETTERS WILL BE PRINTED 01830LTRPRT 01840 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01850 **** OPERATOR - LOAD REGULAR PAPER 01860 * CARRIAGE RETURN WHEN READY 01870 * 01880CCSPAS 01890 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01900LTRSTA 01910 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01920MNUPRO 01930/! 01940DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01950LOAD,FN=PRFDC003,OW=CCS20 01960CHEKID 01970 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01980INPUT=PRFDC003 01990DSORT 02000FN=TRNSFL,CCS20 02010F2=TRNSFL,CCS20, 02020OP=T,F,A 02030KF=A,29,2,A,21,4,D,25,4,D,121,2 02040SL=I 02050ACTADD 02060 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02070MNUPRO 02080/! 02090DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02100LOAD,FN=PRFDC004,OW=CCS20 02110CHEKID 02120 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02130 * CARRIAGE RETURN WHEN READY 02140CCSPAS 02150INPUT=PRFDC004 02160SWITCH 0217010000000 02180 * THE UPDATE TAPE WILL BE PROCESSED 02190UPDATE 02200 * THE UPDATE TAPE HAS BEEN PROCESSED 02210 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02220 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02230 * SCREEN INFORMATION 02240CCSSPC 02250CCSPAS 02260 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02270MNUPRO 02280  3~/! 02290DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02300LOAD,FN=PRFDC005,OW=CCS20 02310CHEKID 02320 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02330 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02340 * CARRIAGE RETURN WHEN READY 02350CCSPAS 02360INPUT=PRFDC005 02370SWITCH 0238010000000 02390UPD400 02400 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02410MNUPRO 02420/! 02430DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02440LOAD,FN=PRFDC006,OW=CCS20 02450CHEKID 02460 * THE FINANCIAL UPDATES WILL BE PROCESSED 02470 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02480 * 02490INPUT=PRFDC006 02500MOUNT 02510FTAPE,B,P 02520/* 02530UPD500 02540 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02550MNUPRO 02560/! 02570DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02580LOAD,FN=PRFDC007,OW=CCS20 02590CHEKID 02600 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02610DHUPDT 02620 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02630MNUPRO 02640/! 02650DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02660LOAD,FN=PRFDC008,OW=CCS20 02670CHEKID 02680 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02690 * COLLECTORS ARE OFF-LINE FOR THE DAY 02700MNUPRO 02710/! 02720DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02730LOAD,FN=PRFDC009,OW=CCS20 02740CHEKID 02750 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02760u  3~ * COLLECTORS ARE OFF-LINE FOR THE DAY 02770MNUPRO 02780/! 02790DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02800LOAD,FN=PRFDC010,OW=CCS20 02810CHEKID 02820 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02830 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02840 * CARRIAGE RETURN ONLY - TO CONTINUE 02850 * 02860CCSPAS 02870 * 02880 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02890 * 02900INPUT=PRFDC010 02910UTIL 02920CLEAR,FN=TRNSFL 02930EX 02940INPUT=PRFDC010 02950DSORT 02960FN=TRANFL,CCS20 02970F2=TRNSFL,CCS20, 02980OP=T,F,A 02990KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 03000SL=I 03010PRETSR 03020INPUT=PRFDC010 03030UTIL 03040CLEAR,FN=ACTIVE 03050CLEAR,FN=TRANFL 03060CLEAR,FN=TRNBCK 03070EX 03080 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03090NMCHNG 03100RSWCHG 03110INPUT=PRFDC010 03120UTIL 03130CLEAR,FN=ADDACT 03140EX 03150MNUPRO 03160/! 03170DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03180LOAD,FN=PRFDC011,OW=CCS20 03190CHEKID 03200 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03210 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03220 * CARRIAGE RETURN ONLY - TO CONTINUE 03230 * 03240w  3~CCSPAS 03250 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03260INPUT=PRFDC011 03270UTIL 03280CLEAR,FN=DLYWRK 03290EX 03300SRREQ 03310 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03320 * 03330 * THE DLYASSN FILE IS BEING CREATED 03340DACRTE 03350 * THE DLYASSN FILE HAS BEEN CREATED 03360 * THE DLYASSN FILE IS BEING SORTED 03370INPUT=PRFDC011 03380DSORT 03390FN=DLYWRK,CCS20 03400FN=DLYASSN,CCS20 03410F2=DLYASSN,CCS20, 03420OP=T,F,A 03430KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03440SL=I 03450 * THE DLYASSN FILE HAS BEEN SORTED 03460INPUT=PRFDC011 03470UTIL 03480CLEAR,FN=DAQUE 03490EX 03500 * THE DAILY QUEUE FILE IS BEING CREATED 03510DAQUEL 03520 * THE DAILY QUEUE FILE HAS BEEN CREATED 03530 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03540 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03550 * SCREEN INFORMATION 03560CCSSPC 03570CCSPAS 03580 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03590 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03600MNUPRO 03610/! 03620DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03630LOAD,FN=PRFHS001,OW=CCS20 03640CHEKID 03650 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03660 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03670INPUT=PRFHS001 03680DSORT 03690FN=INACCT,CCS20 03700F2=INTEMP,CCS20, 03710OP=T,F,A 03720Q  3~KF=A,1,16,D,23,2,D,19,4 03730SL=I 03740INPUT=PRFHS001 03750UTIL 03760CLEAR,FN=INACCT 03770COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03780DELETE,FN=INTEMP 03790EX 03800 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03810 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03820 * WITH WRITE RING 03830 * CARRIAGE RETURN WHEN READY 03840CCSPAS 03850MHUPDT 03860 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 03870 * REBUILDING INACCT 03880FIXINA 03890 * INACCT REBUILD COMPLETE 03900MNUPRO 03910/! 03920DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03930LOAD,FN=PRFHS002,OW=CCS20 03940CHEKID 03950 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03960 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03970 * CARRIAGE RETURN ONLY - TO CONTINUE 03980 * 03990CCSPAS 04000 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 04010INPUT=PRFHS002 04020UTIL 04030DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 04040EX 04050CHUPD1 04060 * THE UPREQ FILE WILL BE SORTED 04070INPUT=PRFHS002 04080DSORT 04090FN=UPREQ,CCS20 04100F2=UPREQ,CCS20, 04110OP=T,F,A 04120KF=D,21,2,D,17,4,A,1,16 04130SL=I 04140 * THE UPREQ FILE HAS BEEN SORTED 04150INPUT=PRFHS002 04160UTIL 04170CLEAR,FN=UPHSTCM 04180EX 04190 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04200b+  3 * EXECUTION OF THE NEXT JOB 04210CHUPD2 04220INPUT=PRFHS002 04230UTIL 04240DELETE,FN=UPREQ 04250EX 04260 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04270MNUPRO 04280/! 04290DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04300LOAD,FN=PRFHS003,OW=CCS20 04310CHEKID 04320 * THE SUMHIST FILE WILL BE PURGED 04330PHDEL2 04340CMPSUM 04350 * THE SUMHIST FILE HAS BEEN PURGED 04360MNUPRO 04370/! 04380DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04390LOAD,FN=PRFHS004,OW=CCS20 04400CHEKID 04410 * THE TAPEARC FILE WILL BE PURGED 04420PHDEL1 04430INPUT=PRFHS004 04440UTIL 04450COMPRE,FN=TAPEARC 04460EX 04470 * THE TAPEARC FILE HAS BEEN PURGED 04480MNUPRO 04490/! 04500DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04510LOAD,FN=PRFMT001,OW=CCS20 04520CHEKID 04530 * THE LETTER DEFINITION FILE WILL BE PRINTED 04540INPUT=PRFMT001 04550UTIL 04560LIST,FN=LTRDESC,L=LPRINTER,F=U 04570EX 04580 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04590 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04600 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04610 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04620 * CARRIAGE RETURN WHEN READY TO CONTINUE 04630CCSPAS 04640MNUPRO 04650/! 04660DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04670LOAD,FN=PRFMT002,OW=CCS20 046804  3#CHEKID 04690 * THE LETTER FILE WILL BE CREATED 04700 * 04710INPUT=PRFMT002 04720UTIL 04730CLEAR,FN=LTRFIL 04740EX 04750LTRBLD 04760 * THE LETTER FILE HAS BEEN CREATED 04770MNUPRO 04780/! 04790DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04800LOAD,FN=PRFMT003,OW=CCS20 04810CHEKID 04820 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04830 * 04840 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04850 * FROM THE CONSOLE 04860 * 04870 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04880UTFMTN 04890 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04900INPUT=PRFMT003 04910UTIL 04920LIST,FN=UTIFIL,L=LPRINTER,F=U 04930EX 04940 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04950 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04960MNUPRO 04970/! 04980DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04990LOAD,FN=PRFMT004,OW=CCS20 05000CHEKID 05010 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 05020 * 05030 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05040DECMTN 05050 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05060MNUPRO 05070/! 05080DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05090LOAD,FN=PRFMT005,OW=CCS20 05100CHEKID 05110 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05120AVMDMP 05130 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05140MNUPRO 05150/! 05160  37DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05170LOAD,FN=PRFMT006,OW=CCS20 05180CHEKID 05190 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05200 * 05210AVMCON 05220 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05230 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05240AVMDMP 05250 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05260MNUPRO 05270/! 05280DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05290LOAD,FN=PRFMT007,OW=CCS20 05300CHEKID 05310 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05320 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05330 * SCREEN INFORMATION 05340CCSSPC 05350CCSPAS 05360 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05370MNUPRO 05380/! 05390DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05400LOAD,FN=PRFMT008,OW=CCS20 05410CHEKID 05420 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05430INPUT=PRFMT008 05440UTIL 05450LIST,FN=SCRNDESC,L=LPRINTER,F=U 05460EX 05470 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05480 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05490 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05500 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05510 * CARRIAGE RETURN WHEN READY TO CONTINUE 05520CCSPAS 05530MNUPRO 05540/! 05550DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05560LOAD,FN=PRFMT009,OW=CCS20 05570CHEKID 05580 * THE SCREEN FILE WILL BE CREATED 05590BLDSRN 05600 * THE SCREEN FILE HAS BEEN CREATED 05610MNUPRO 05620/! 05630DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05640  3KLOAD,FN=PRFMT010,OW=CCS20 05650CHEKID 05660 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05670 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05680 * CARRIAGE RETURN ONLY - TO CONTINUE 05690 * 05700CCSPAS 05710 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05720CMPDLQ 05730INPUT=PRFMT010 05740UTIL 05750COMPRE,FN=COSIGNER 05760COMPRE,FN=ACTFIL 05770EX 05780 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05790MNUPRO 05800/! 05810DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05820LOAD,FN=PRFMT011,OW=CCS20 05830CHEKID 05840 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05850 * WILL BE PRINTED 05860ACTMTN 05870 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05880 * HAS BEEN PRINTED 05890MNUPRO 05900/! 05910DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05920LOAD,FN=PRFMT012,OW=CCS20 05930CHEKID 05940 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05950 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05960 * 05970USEMTN 05980 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05990MNUPRO 06000/! 06010DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 06020LOAD,FN=PRFMT013,OW=CCS20 06030CHEKID 06040 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06050PGLTTB 06060MNUPRO 06070/! 06080DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06090LOAD,FN=PRFMT014,OW=CCS20 06100CHEKID 06110 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06120  3_ * 06130 * THE DATA ELEMENT TABLE WILL BE PRINTED 06140PGLTTB 06150 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06160 * 06170 * THE DATA ELEMENT TABLE WILL BE UPDATED 06180 * 06190 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06200 * 06210INPUT=PRFMT014 06220SWITCH 06230000000000 06240PGUPTB 06250 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06260 * 06270 * THE DATA ELEMENT TABLE WILL BE PURGED 06280INPUT=PRFMT014 06290UTIL 06300DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06310EX 06320PGCMPR 06330INPUT=PRFMT014 06340UTIL 06350DELETE,FN=RPTTBL 06360RENAME,FN=TBLWRK,F2=RPTTBL 06370EX 06380 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06390 * 06400 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06410MNUPRO 06420/! 06430DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06440LOAD,FN=PRFMT015,OW=CCS20 06450CHEKID 06460 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06490PGLIST 06500 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06510 * 06520 * 06530 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06540 * 06550 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06560 * 06570PGPURG 06580INPUT=PRFMT015 06590UTIL 06600C  3sCOMPRE,FN=RPTPGM 06610EX 06620 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06630 * 06640 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06650PGLIST 06660 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06670 * 06680 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06690MNUPRO 06700/! 06710DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06720LOAD,FN=PRFMT016,OW=CCS20 06730CHEKID 06740 * THE SCREEN FILES WILL BE PRINTED 06750 * D 06760 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06770 * 06780PRTSCN 06790 * THE SCREEN FILES HAVE BEEN PRINTED 06800MNUPRO 06810/! 06820DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06830LOAD,FN=PRFRP001,OW=CCS20 06840CHEKID 06850INPUT=PRFRP001 06860SWITCH 0687010000000 06880 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06890 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06900 * PRINTED 06910DTLLST 06920 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06930MNUPRO 06940/! 06950DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06960LOAD,FN=PRFRP002,OW=CCS20 06970CHEKID 06980INPUT=PRFRP002 06990SWITCH 0700001000000 07010 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 07020 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 07030DTLLST 07040INPUT=PRFRP002 07050UTIL 07060CLEAR,FN=SREQDL 07070EX 07080  3 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07090MNUPRO 07100/! 07110DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07120LOAD,FN=PRFRP003,OW=CCS20 07130CHEKID 07140 * CALCULATE AGE FOR TREND ANALYSIS 07150TRENDF 07160 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07170 * 07180 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07190INPUT=PRFRP003 07200UTIL 07210DELETE,FN=AGEWRK 07220EX 07230INPUT=PRFRP003 07240DSORT 07250FN=ACCAGE,CCS20 07260FN=RSWFIL,CCS20 07270F2=AGEWRK,CCS20,SYSVOL 07280OP=T,F,A 07290KF=A,17,4,A,1,1 07300SL=OMIT,35,3,EQ,'RSW' 07310 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07320 * 07330 **** OPERATOR - 07340 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07350 * TREND DATA FOR NEXT RUN 07360 * 07370 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07380 * FOR NEXT RUN 07390CCSPAS 07400TRENDU 07410INPUT=PRFRP003 07420UTIL 07430CLEAR,FN=RSWFIL 07440EX 07450MNUPRO 07460/! 07470DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07480LOAD,FN=PRFRP004,OW=CCS20 07490CHEKID 07500 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07510 * THE AGEWRK FILE IS BEING SORTED 07520INPUT=PRFRP004 07530DSORT 07540FN=AGEWRK,CCS20 07550F2=AGEWRK,CCS20, 07560  3OP=T,F,A 07570KF=A,17,4,A,1,1 07580SL=OMIT,35,3,EQ,'RSW' 07590 * THE AGEWRK FILE HAS BEEN SORTED 07600 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07610INPUT=PRFRP004 07620SWITCH 0763010000000 07640TRENDP 07650 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07660MNUPRO 07670/! 07680DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07690LOAD,FN=PRFRP005,OW=CCS20 07700CHEKID 07710 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07720 * THE AGEWRK FILE IS BEING SORTED 07730INPUT=PRFRP005 07740DSORT 07750FN=AGEWRK,CCS20 07760F2=AGEWRK,CCS20, 07770OP=T,F,A 07780KF=A,25,4,A,1,1 07790SL=I 07800 * THE AGEWRK FILE HAS BEEN SORTED 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07820INPUT=PRFRP005 07830SWITCH 0784000000000 07850TRENDP 07860 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07870MNUPRO 07880/! 07890DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07900LOAD,FN=PRFRP006,OW=CCS20 07910CHEKID 07920 * THE WRITE-OFF REPORT WILL BE GENERATED 07930 * THE WOEF FILE WILL BE CREATED 07940INPUT=PRFRP006 07950UTIL 07960DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07970EX 07980WRTOFE 07990 * THE WOEF FILE HAS BEEN CREATED 08000 * THE WOEF FILE IS BEING SORTED 08010INPUT=PRFRP006 08020DSORT 08030FN=WOEF,CCS20 08040  3F2=WOEF,CCS20, 08050OP=T,F,A 08060KF=A,25,1,A,17,4,A,21,4,A,1,16 08070SL=I 08080 * THE WOEF FILE HAS BEEN SORTED 08090 * THE WRITE-OFF REPORT WILL BE PRINTED 08100WRTOFP 08110INPUT=PRFRP006 08120UTIL 08130DELETE,FN=WOEF 08140EX 08150 * THE WRITE-OFF REPORT IS COMPLETE 08160MNUPRO 08170/! 08180DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08190LOAD,FN=PRFRP007,OW=CCS20 08200CHEKID 08210 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08220DALIST 08230 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08240MNUPRO 08250/! 08260DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08270LOAD,FN=PRFRP008,OW=CCS20 08280CHEKID 08290 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08300SUMACL 08310 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08320MNUPRO 08330/! 08340DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08350LOAD,FN=PRFRP009,OW=CCS20 08360CHEKID 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08380INPUT=PRFRP009 08390SWITCH 0840001000000 08410COLSTS 08420 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08430 **** OPERATOR - 08440 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08450 * 08460 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08470CCSPAS 08480INPUT=PRFRP009 08490SWITCH 0850000001000 08510COLSTS 08520h  3MNUPRO 08530/! 08540DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08550LOAD,FN=PRFRP010,OW=CCS20 08560CHEKID 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08580INPUT=PRFRP010 08590SWITCH 0860000100000 08610COLSTS 08620 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08630 **** OPERATOR - 08640 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08650 * STATISTICS COUNT FILE 08660 * 08670 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08680 * COUNT FILE 08690CCSPAS 08700INPUT=PRFRP010 08710UTIL 08720CLEAR,FN=COLSTATS 08730EX 08740MNUPRO 08750/! 08760DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08770LOAD,FN=PRFCNTRL,OW=CCS20 08780CHEKID 08790 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08800 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08810 * TO ACTIVATE BATCH HOST 08820 * MI, *BATCH,F 08830 * 08840 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08850 * 08860 * CARRIAGE RETURN ONLY - TO CONTINUE 08870CCSPAS 08880 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08890INPUT=PRFCNTRL 08900UTIL 08910DEFINE,FN=RPTWKE,LR=80,NR=1000 08920DEFINE,FN=RPTWKP,LR=80,NR=1000 08930DEFINE,FN=PRCWRK,LR=80,NR=50 08940EX 08950PGGEN 08960 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08970 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08980INPUT=PRFCNTRL 08990UTIL 09000d  3BATCH,FN=RPTWKE,TY=N 09010BATCH,FN=RPTWKP,TY=R 09020DELETE,FN=RPTWKE 09030DELETE,FN=RPTWKP 09040CLEAR,FN=PGEXTR 09050EX 09060PGCNT1 09070 * 09080 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09090 * CARRIAGE RETURN WHEN READY 09100CCSPAS 09110MNUPRO 09120/! 09130DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09140LOAD,FN=PRFRP012,OW=CCS20 09150CHEKID 09160 * THE QUEUE LOADING REPORT WILL BE PRINTED 09170QLOAD 09180 * THE QUEUE LOADING REPORT IS COMPLETE 09190MNUPRO 09200/! 09210DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09220LOAD,FN=PRFRP014,OW=CCS20 09230CHEKID 09240 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09250 ***** 09260 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09270 ***** OR NOT TREND ANALYSIS IS BEING USED. 09280 ***** 09290 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09300 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09310 **** 09320 *** 09330CCSPAS 09340 * 09350CMPACC 09360 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09370MNUPRO 09380/! 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480_  3 09490 09500 09510 09520 09530 09540 09550 09560 09570 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680 09690 09700 09710 09720 09730DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09740NR=50 09750DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=24000,OW=CCS20 09760DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=24000,VL=CDD01; 09770OW=CCS20 09780DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09790DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09800DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=24000,VL=CDD01,OW=CCS20 09810DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=24000,VL=SYSVOL,OW=CCS20 09820DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09830DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09840OW=CCS20 09850DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=24000,VL=CDD01; 09860OW=CCS20 09870DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09880DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09890DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=24000; 09900VL=CDD02,OW=CCS20 09910DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=24000,VL=SYSVOL,OW=CCS20 09920DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=2000,VL=CDD01,OW=CCS20 09930DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09940LOAD,FN=DUMMY,OW=CCS20 09950 09960  3/! 09970DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=24000,VL=CDD01,OW=CCS20 09980DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09990DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 10020DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=24000,OW=CCS20 10030DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 10040DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10050OW=CCS20 10060DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=12000,VL=CDD01,OW=CCS20 10070DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10080DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20 10110DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=24000,VL=CDD01; 10120OW=CCS20 10130DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=24000,VL=CDD01; 10140OW=CCS20 10150DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10160DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10170DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10180DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20 10190DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10200DEFINE,FN=$$LDMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10210LOAD,FN=$$LDMENU,OW=$$ 10220 * LEGAL AND AGENCY DAILY CYCLE MENU 10230 * 10240LDCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 10250LDPRTLTR B - PRINT REQUESTED LETTERS 10260LDACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 10270LDUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 10280LDNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 10290LDFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 10300LODRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 10310LODRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 10320LDUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 10330LDDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 10340LDDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 10350LDSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 10360LDBLDDAS M - CREATE DAILY ASSIGNMENT FILES 10370PRFLD012 N - NIGHTLY BATCH UPDATE 10380PRFLD013 O - L/A EXTRACT PROCESS 10390 Z - EXIT 10400/! 10410DEFINE,FN=$$LHMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10420LOAD,FN=$$LHMENU,OW=$$ 10430 LEGAL AND AGENCY HISTORY SYSTEM MENU 10440|D  3 * 10450LHMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 10460LHUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 10470LHPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10480LHPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10490LMPRGMST E - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10500LHPRGCLI F - PURGE CLIENT FILE (LACLIENT) 10510 Z - EXIT 10520/! 10530DEFINE,FN=$$LMMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10540LOAD,FN=$$LMMENU,OW=$$ 10550 * LEGAL AND AGENCY FILE MAINTENANCE MENU 10560 * 10570LMRDRLTR A - PRINT THE LETTER DEFINITION FILE 10580LMCONLTR B - CREATE THE LETTER FILE 10590LMUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 10600LMDECTBL D - DECISION TABLE MAINTENANCE 10610LMAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 10620LMACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 10630LMSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 10640LHPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10650LHPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10660LMLDSCRN J - PRINT SCREEN DEFINITION FILE 10670LMSVSCRN K - CREATE THE SCREEN FILE 10680LMPRGMST L - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10690LMACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 10700LMUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 10710LMDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 10720LMDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 10730LMPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 10740LMSCNPRT R - SAMPLE SCREEN PRINT UTILITY 10750PRFLM017 S - CLIENT FILE MAINTENANCE 10760 Z - EXIT 10770/! 10780DEFINE,FN=$$LOMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10790LOAD,FN=$$LOMENU,OW=$$ 10800 * LEGAL AND AGENCY ON DEMAND REPORT MENU 10810 * 10820LODRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 10830LODRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 10840LOTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 10850LOTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 10860LOTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 10870LOWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 10880LODLYASN G - DAILY ASSIGNMENT LIST 10890LOSUMACT H - SUMMARY ACCOUNT LIST REPORT 10900LOWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 10910LOMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 10920  3'LOTCNTRL K - CREATE REPORT GENERATOR PROGRAM 10930PRFLP000 L - EXECUTE REPORT GENERATOR PROGRAM 10940PRFLO012 M - QUEUE LOADING REPORT 10950PRFLO013 N - COMPLETE PAYMENT, DIRECT PAYMENT STATEMENT REPORTS 10960PRFLO014 O - INVENTORY REPORTS BY ACCOUNT, CLIENT 10970PRFLO015 P - RECOVERY ANALYSIS REPORT 10980PRFRP014 Q - PURGE REPORT FILES ( LAACCAGE - LARSWFIL ) 10990 Z - EXIT 11000/! 11010DEFINE,FN=$$LRMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 11020LOAD,FN=$$LRMENU,OW=$$ 11030 * LEGAL AND AGENCY REPORT GENERATOR - REPORT DIRECTORY 11040 * 11050PRFLP001 A - R.G. REPORT 1 - (AVAILABLE) 11060PRFLP002 B - R.G. REPORT 2 - (AVAILABLE) 11070PRFLP003 C - R.G. REPORT 3 - (AVAILABLE) 11080PRFLP004 D - R.G. REPORT 4 - (AVAILABLE) 11090PRFLP005 E - R.G. REPORT 5 - (AVAILABLE) 11100PRFLP006 F - R.G. REPORT 6 - (AVAILABLE) 11110PRFLP007 G - R.G. REPORT 7 - (AVAILABLE) 11120PRFLP008 H - R.G. REPORT 8 - (AVAILABLE) 11130PRFLP009 I - R.G. REPORT 9 - (AVAILABLE) 11140PRFLP010 J - R.G. REPORT 10 - (AVAILABLE) 11150PRFLP011 K - R.G. REPORT 11 - (AVAILABLE) 11160PRFLP012 L - R.G. REPORT 12 - (AVAILABLE) 11170PRFLP013 M - R.G. REPORT 13 - (AVAILABLE) 11180PRFLP014 N - R.G. REPORT 14 - (AVAILABLE) 11190PRFLP015 O - R.G. REPORT 15 - (AVAILABLE) 11200PRFLP016 P - R.G. REPORT 16 - (AVAILABLE) 11210PRFLP017 Q - R.G. REPORT 17 - (AVAILABLE) 11220PRFLP018 R - R.G. REPORT 18 - (AVAILABLE) 11230PRFLP019 S - R.G. REPORT 19 - (AVAILABLE) 11240 Z - EXIT 11250/! 11260DEFINE,FN=PRFLD001,OW=LA,ED=999999,TY=S,LR=80,NR=50 11270LOAD,FN=PRFLD001,OW=LA 11280CHEKID 11290 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 11300 * - TIME USAGE REPORT 11310 * - DAILY COLLECTOR STATISTICS REPORT 11320 * 11330 * LATRNSFL FILE IS NOW BEING SORTED 11340INPUT=PRFLD001 11350DSORT 11360FN=LATRNSFL,LA 11370F2=LATRNSFL,LA, 11380OP=T,F,A 11390KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 11400  3;SL=I 11410 * THE LATRNSFL FILE HAS BEEN SORTED 11420 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 11430LCOLCG 11440 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 11450 * THE TIME USAGE REPORT WILL BE PRINTED 11460LTMUSE 11470 * THE TIME USAGE REPORT IS COMPLETE 11480INPUT=PRFLD001 11490SWITCH 1150010000000 11510 * THE DAILY STATISTICS REPORT WILL BE PRINTED 11520COLSTS 11530 * THE DAILY STATISTICS REPORT IS COMPLETE 11540 **** OPERATOR - 11550 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 11560 * 11570 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 11580CCSPAS 11590INPUT=PRFLD001 11600SWITCH 1161000010000 11620COLSTS 11630 * THIS ROUTINE IS COMPLETE 11640MNUPRO 11650/! 11660DEFINE,FN=PRFLD002,OW=LA,ED=999999,TY=S,LR=80,NR=30 11670LOAD,FN=PRFLD002,OW=LA 11680CHEKID 11690 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 11700INPUT=PRFLD002 11710DSORT 11720FN=LATRNSFL,LA 11730F2=LATRNSFL,LA, 11740OP=T,F,A 11750KF=A,17,4,A,41,2,A,1,16 11760SL=I 11770 **** OPERATOR - LOAD LETTER PAPER 11780 * CARRIAGE RETURN WHEN READY 11790 * 11800CCSPAS 11810 * THE REQUESTED LETTERS WILL BE PRINTED 11820LLTPRT 11830 * THE REQUESTED LETTERS HAVE BEEN PRINTED 11840 **** OPERATOR - LOAD REGULAR PAPER 11850 * CARRIAGE RETURN WHEN READY 11860 * 11870CCSPAS 11880C  3O * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 11890LTRSTA 11900 * THE LETTER STATISTICS SUMMARY IS COMPLETE 11910MNUPRO 11920/! 11930DEFINE,FN=PRFLD003,OW=LA,ED=999999,TY=S,LR=80,NR=25 11940LOAD,FN=PRFLD003,OW=LA 11950CHEKID 11960 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 11970INPUT=PRFLD003 11980DSORT 11990FN=LATRNSFL,LA 12000F2=LATRNSFL,LA, 12010OP=T,F,A 12020KF=A,29,2,A,21,4,D,25,4,D,121,2 12030SL=I 12040ACTADD 12050 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 12060MNUPRO 12070/! 12080DEFINE,FN=PRFLD004,OW=LA,ED=999999,TY=S,LR=80,NR=25 12090LOAD,FN=PRFLD004,OW=LA 12100CHEKID 12110 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 12120 * CARRIAGE RETURN WHEN READY 12130CCSPAS 12140INPUT=PRFLD004 12150SWITCH 1216010000000 12170 * THE UPDATE TAPE WILL BE PROCESSED 12180LUPDAT 12190 * THE UPDATE TAPE HAS BEEN PROCESSED 12200 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 12210 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 12220 * SCREEN INFORMATION 12230CCSSPC 12240CCSPAS 12250 * THE FILE SPACE AUDIT REPORT IS COMPLETE 12260MNUPRO 12270/! 12280DEFINE,FN=PRFLD005,OW=LA,ED=999999,TY=S,LR=80,NR=20 12290LOAD,FN=PRFLD005,OW=LA 12300CHEKID 12310 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 12320 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 12330 * CARRIAGE RETURN WHEN READY 12340CCSPAS 12350INPUT=PRFLD005 12360  3cSWITCH 1237010000000 12380LUD400 12390 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 12400MNUPRO 12410/! 12420DEFINE,FN=PRFLD006,OW=LA,ED=999999,TY=S,LR=80,NR=20 12430LOAD,FN=PRFLD006,OW=LA 12440CHEKID 12450 * THE FINANCIAL UPDATES WILL BE PROCESSED 12460 **** OPERATOR - FINANCIAL UPDATE TAPE SHOULD BE MOUNTED ON UNIT '0' 12470 * 12480INPUT=PRFLD006 12490SWITCH 1250010000000 12510INPUT=PRFLD006 12520MOUNT 12530FTAPE,B,P 12540/* 12550LUD500 12560 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 12570MNUPRO 12580/! 12590DEFINE,FN=PRFLD007,OW=LA,ED=999999,TY=S,LR=80,NR=15 12600LOAD,FN=PRFLD007,OW=LA 12610CHEKID 12620 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 12630DHUPDT 12640 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 12650MNUPRO 12660/! 12670DEFINE,FN=PRFLD008,OW=LA,ED=999999,TY=S,LR=80,NR=10 12680LOAD,FN=PRFLD008,OW=LA 12690CHEKID 12700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12710 * COLLECTORS ARE OFF-LINE FOR THE DAY 12720MNUPRO 12730/! 12740DEFINE,FN=PRFLD009,OW=LA,ED=999999,TY=S,LR=80,NR=10 12750LOAD,FN=PRFLD009,OW=LA 12760CHEKID 12770 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12780 * COLLECTORS ARE OFF-LINE FOR THE DAY 12790MNUPRO 12800/! 12810DEFINE,FN=PRFLD010,OW=LA,ED=999999,TY=S,LR=80,NR=50 12820LOAD,FN=PRFLD010,OW=LA 12830CHEKID 12840hv  3w **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 12850 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 12860 * CARRIAGE RETURN ONLY - TO CONTINUE 12870 * 12880CCSPAS 12890 * 12900 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTOR REPORTS 12910 * 12920INPUT=PRFLD010 12930UTIL 12940CLEAR,FN=LATRNSFL 12950EX 12960INPUT=PRFLD010 12970DSORT 12980FN=LATRANFL,LA 12990F2=LATRNSFL,LA, 13000OP=T,F,A 13010KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 13020SL=I 13030PRETSR 13040INPUT=PRFLD010 13050UTIL 13060CLEAR,FN=LAACTIVE 13070CLEAR,FN=LATRANFL 13080CLEAR,FN=LATRNBCK 13090EX 13100 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 13110NMCHNG 13120RSWCHG 13130INPUT=PRFLD010 13140UTIL 13150CLEAR,FN=LAADDACT 13160EX 13170MNUPRO 13180/! 13190DEFINE,FN=PRFLD011,OW=LA,ED=999999,TY=S,LR=80,NR=60 13200LOAD,FN=PRFLD011,OW=LA 13210CHEKID 13220 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 13230 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 13240 * CARRIAGE RETURN ONLY - TO CONTINUE 13250 * 13260CCSPAS 13270 * THE SUPERVISOR REQUEST FILE IS BEING CLEARED AND UPDATED 13280INPUT=PRFLD011 13290UTIL 13300CLEAR,FN=LADLYWRK 13310EX 13320  3SRREQ 13330 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 13340 * 13350 * THE LADLYASN FILE IS BEING CREATED 13360LDACRT 13370 * THE LADLYASN FILE HAS BEEN CREATED 13380 * THE LADLYASN FILE IS BEING SORTED 13390INPUT=PRFLD011 13400DSORT 13410FN=LADLYWRK,LA 13420FN=LADLYASN,LA 13430F2=LADLYASN,LA, 13440OP=T,F,A 13450KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 13460SL=I 13470 * THE LADLYASN FILE HAS BEEN SORTED 13480INPUT=PRFLD011 13490UTIL 13500CLEAR,FN=LADAQUE 13510EX 13520 * THE DAILY QUEUE FILE IS BEING CREATED 13530LDAQEL 13540 * THE DAILY QUEUE FILE HAS BEEN CREATED 13550 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 13560 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 13570 * SCREEN INFORMATION 13580CCSSPC 13590CCSPAS 13600 * THE FILE SPACE AUDIT REPORT IS COMPLETE 13610 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 13620 * 13630 * THE TRANSACTIONS ARE BEING SORTED INTO FILE FOR NIGTHLY BATCH PROCESS 13640INPUT=PRFLD011 13650DSORT 13660FN=LAFILTMP,LA 13670FN=LATRNSFL,LA 13680F2=LAFINTRN,, 13690OP=T,F,A 13700KF=A,1,16,A,17,4,A,50,3 13710SL=I 13720MNUPRO 13730/! 13740DEFINE,FN=PRFLD012,OW=LA,ED=999999,TY=S,LR=80,NR=35 13750LOAD,FN=PRFLD012,OW=LA 13760CHEKID 13770 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 13780 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 13790 * CARRIAGE RETURN ONLY - TO CONTINUE 13800P  3CCSPAS 13810 * OPERATOR - CHECK THE DATE PRINTED ON THE MATRIX 13820 * IT MUST BE THE CORRECT DATE 13830 * RESPOND - 'N' CARRIAGE RETURN TO ABORT 13840 * CARRIAGE RETURN ONLY TO CONTINUE 13850CCSPAS 13860 *THE NIGHTLY BATCH FILES WILL BE CLEARED 13870INPUT=PRFLD012 13880UTIL 13890CLEAR,FN=LAFILTMP 13900CLEAR,FN=LARPTDAT 13910EX 13920 *BATCH UPDATE WILL BEGIN 13930LBATUD 13940 * BATCH UPDATE COMPLETE, AUDIT TRAIL REPORT WILL BEGIN 13950LBATPT 13960 * AUDIT TRAIL REPORT COMPLETE 13970 * THE LACLIENT FILE IS BEING UPDATED FOR ON-LINE USE 13980LCLIUD 13990 *NIGHTLY BATCH UPDATE PROCESS COMPLETE 14000MNUPRO 14010/! 14020DEFINE,FN=PRFLD013,OW=LA,ED=999999,TY=S,LR=80,NR=20 14030LOAD,FN=PRFLD013,OW=LA 14040CHEKID 14050 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 14060 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 14070 * CARRIAGE RETURN ONLY - TO CONTINUE 14080CCSPAS 14090 * THE LEGAL AND AGENCY EXTRACT PROGRAM WILL BEGIN 14100LAXTRT 14110 * THE LEGAL AND AGENCY EXTRACT PROCESS IS COMPLETE. 14120 * REFERRAL REPORT WILL BEGIN 14130LARPRT 14140 * REFERRAL REPORT COMPLETE 14150 * THE LADLQKEY FILE IS BEING CLEARED 14160INPUT=PRFLD013 14170UTIL 14180CLEAR,FN=LADLQKEY 14190EX 14200MNUPRO 14210/! 14220DEFINE,FN=PRFLH001,OW=LA,ED=999999,TY=S,LR=80,NR=30 14230LOAD,FN=PRFLH001,OW=LA 14240CHEKID 14250 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 14260 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 14270INPUT=PRFLH001 14280  3DSORT 14290FN=LAINACCT,LA 14300F2=LAINTEMP,LA, 14310OP=T,F,A 14320KF=A,1,16,D,23,2,D,19,4 14330SL=I 14340INPUT=PRFLH001 14350UTIL 14360CLEAR,FN=LAINACCT 14370COPY,FN=LAINTEMP,F2=LAINACCT,OW=LA 14380DELETE,FN=LAINTEMP 14390EX 14400 * THE LAINACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 14410 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 14420 * WITH WRITE RING - CARRIAGE RETURN WHEN READY 14430CCSPAS 14440MHUPDT 14450 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 14460 * REBUILDING LAINACCT 14470FIXINA 14480 * LAINACCT REBUILD COMPLETE 14490MNUPRO 14500/! 14510DEFINE,FN=PRFLH002,OW=LA,ED=999999,TY=S,LR=80,NR=40 14520LOAD,FN=PRFLH002,OW=LA 14530CHEKID 14540 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 14550 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 14560 * CARRIAGE RETURN ONLY - TO CONTINUE 14570 * 14580CCSPAS 14590 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 14600INPUT=PRFLH002 14610UTIL 14620DEFINE,FN=LAUPDREQ,ED=999999,TY=S,LR=22,NR=300 14630EX 14640LCHUD1 14650 * THE LAUPDREQ FILE WILL BE SORTED 14660INPUT=PRFLH002 14670DSORT 14680FN=LAUPDREQ,LA 14690F2=LAUPDREQ,LA, 14700OP=T,F,A 14710KF=D,21,2,D,17,4,A,1,16 14720SL=I 14730 * THE LAUPDREQ FILE HAS BEEN SORTED 14740INPUT=PRFLH002 14750UTIL 14760L  3CLEAR,FN=LAUPHSCM 14770EX 14780 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 14790 * EXECUTION OF THE NEXT JOB 14800CHUPD2 14810INPUT=PRFLH002 14820UTIL 14830DELETE,FN=LAUPDREQ 14840EX 14850 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 14860MNUPRO 14870/! 14880DEFINE,FN=PRFLH003,OW=LA,ED=999999,TY=S,LR=80,NR=15 14890LOAD,FN=PRFLH003,OW=LA 14900CHEKID 14910 * THE LASUMHST FILE WILL BE PURGED 14920PHDEL2 14930LCMPSM 14940 * THE LASUMHST FILE HAS BEEN PURGED 14950MNUPRO 14960/! 14970DEFINE,FN=PRFLH004,OW=LA,ED=999999,TY=S,LR=80,NR=15 14980LOAD,FN=PRFLH004,OW=LA 14990CHEKID 15000 * THE LATAPARC FILE WILL BE PURGED 15010PHDEL1 15020INPUT=PRFLH004 15030UTIL 15040COMPRE,FN=LATAPARC 15050EX 15060 * THE LATAPARC FILE HAS BEEN PURGED 15070MNUPRO 15080/! 15090DEFINE,FN=PRFLH005,OW=LA,ED=999999,TY=S,LR=80,NR=25 15100LOAD,FN=PRFLH005,OW=LA 15110CHEKID 15120 * THE CLIENT FILE WILL BE PURGED 15130INPUT=PRFLH005 15140UTIL 15150DEFINE,FN=LAPURGED,LR=1600,NR=100 15160EX 15170 *THE LACLIENT FILE WILL BE SCANNED FOR CLIENTS READY TO BE PURGED 15180LACLPG 15190 *THE INACTIVATED AND/OR PURGED REPORT WILL BE PRINTED 15200LPGRPT 15210 * THE LAPURGED FILE WILL BE DELETED 15220INPUT=PRFLH005 15230UTIL 15240g  3DELETE,FN=LAPURGED 15250EX 15260 * THE CLIENT FILE PURGE ROUTINES ARE COMPLETE 15270MNUPRO 15280/! 15290DEFINE,FN=PRFLM001,OW=LA,ED=999999,TY=S,LR=80,NR=20 15300LOAD,FN=PRFLM001,OW=LA 15310CHEKID 15320 * THE LETTER DEFINITION FILE WILL BE PRINTED 15330INPUT=PRFLM001 15340UTIL 15350LIST,FN=LALTRDSC,L=LPRINTER,F=U 15360EX 15370 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 15380 **** OPERATOR - IF ANY CHANGES ARE TO BE MADE TO THE LETTER FILE 15390 * ENTER THE EDITOR TO PROCESS THE LALTRDSC FILE, WHEN 15400 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 15410 * CARRIAGE RETURN WHEN READY TO CONTINUE 15420CCSPAS 15430MNUPRO 15440/! 15450DEFINE,FN=PRFLM002,OW=LA,ED=999999,TY=S,LR=80,NR=15 15460LOAD,FN=PRFLM002,OW=LA 15470CHEKID 15480 * THE LETTER FILE WILL BE CREATED 15490INPUT=PRFLM002 15500UTIL 15510CLEAR,FN=LALTRFIL 15520EX 15530LTRBLD 15540 * THE LETTER FILE HAS BEEN CREATED 15550MNUPRO 15560/! 15570DEFINE,FN=PRFLM003,OW=LA,ED=999999,TY=S,LR=80,NR=25 15580LOAD,FN=PRFLM003,OW=LA 15590CHEKID 15600 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 15610 * 15620 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 15630 * FROM THE CONSOLE 15640 * 15650 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 15660LUTFMT 15670 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 15680INPUT=PRFLM003 15690UTIL 15700LIST,FN=LAUTIFIL,L=LPRINTER,F=U 15710EX 15720N  3 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 15730 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 15740MNUPRO 15750/! 15760DEFINE,FN=PRFLM004,OW=LA,ED=999999,TY=S,LR=80,NR=15 15770LOAD,FN=PRFLM004,OW=LA 15780CHEKID 15790 * THE DECISION TABLE MAINTENANCE ROUTIN WILL BE EXECUTED 15800 * 15810 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 15820LDECMT 15830 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 15840MNUPRO 15850/! 15860DEFINE,FN=PRFLM005,OW=LA,ED=999999,TY=S,LR=80,NR=15 15870LOAD,FN=PRFLM005,OW=LA 15880CHEKID 15890 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 15900LAVMDP 15910 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 15920MNUPRO 15930/! 15940DEFINE,FN=PRFLM006,OW=LA,ED=999999,TY=S,LR=80,NR=15 15950LOAD,FN=PRFLM006,OW=LA 15960CHEKID 15970 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 15980 * 15990AVMCON 16000 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 16010 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 16020LAVMDP 16030 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 16040MNUPRO 16050/! 16060DEFINE,FN=PRFLM007,OW=LA,ED=999999,TY=S,LR=80,NR=15 16070LOAD,FN=PRFLM007,OW=LA 16080CHEKID 16090 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 16100 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 16110 * SCREEN INFORMATION 16120CCSSPC 16130CCSPAS 16140 * THE FILE SPACE AUDIT REPORT IS COMPLETE 16150MNUPRO 16160/! 16170DEFINE,FN=PRFLM008,OW=LA,ED=999999,TY=S,LR=80,NR=20 16180LOAD,FN=PRFLM008,OW=LA 16190CHEKID 16200  3 * THE SCREEN DEFINITION FILE WILL BE PRINTED 16210INPUT=PRFLM008 16220UTIL 16230LIST,FN=LASCNDSC,L=LPRINTER,F=U 16240EX 16250 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 16260 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 16270 * FILE ENTER THE EDITOR TO PROCESS THE LASCNDSC FILE, 16280 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 16290 * CARRIAGE RETURN WHEN READY TO CONTINUE 16300CCSPAS 16310MNUPRO 16320/! 16330DEFINE,FN=PRFLM009,OW=LA,ED=999999,TY=S,LR=80,NR=15 16340LOAD,FN=PRFLM009,OW=LA 16350CHEKID 16360 * THE SCREEN FILE WILL BE CREATED 16370LBLDSR 16380 * THE SCREEN FILE HAS BEEN CREATED 16390MNUPRO 16400/! 16410DEFINE,FN=PRFLM010,OW=LA,ED=999999,TY=S,LR=80,NR=20 16420LOAD,FN=PRFLM010,OW=LA 16430CHEKID 16440 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 16450 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 16460 * CARRIAGE RETURN ONLY - TO CONTINUE 16470 * 16480CCSPAS 16490 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES WILL BE PURGED 16500LCMPDQ 16510INPUT=PRFLM010 16520UTIL 16530COMPRE,FN=LACOSIGN 16540COMPRE,FN=LAACTFIL 16550EX 16560 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES HAVE BEEN PURGED 16570MNUPRO 16580/! 16590DEFINE,FN=PRFLM011,OW=LA,ED=999999,TY=S,LR=80,NR=15 16600LOAD,FN=PRFLM011,OW=LA 16610CHEKID 16620 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 16630 * WILL BE PRINTED 16640ACTMTN 16650 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 16660 * HAS BEEN PRINTED 16670MNUPRO 16680ao  3/! 16690DEFINE,FN=PRFLM012,OW=LA,ED=999999,TY=S,LR=80,NR=15 16700LOAD,FN=PRFLM012,OW=LA 16710CHEKID 16720 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE WILL BE EXECUTED 16730 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 16740 * 16750USEMTN 16760 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE IS COMPLETE 16770MNUPRO 16780/! 16790DEFINE,FN=PRFLM013,OW=LA,ED=999999,TY=S,LR=80,NR=10 16800LOAD,FN=PRFLM013,OW=LA 16810CHEKID 16820 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 16830LPGLTB 16840MNUPRO 16850/! 16860DEFINE,FN=PRFLM014,OW=LA,ED=999999,TY=S,LR=80,NR=40 16870LOAD,FN=PRFLM014,OW=LA 16880CHEKID 16890 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 16900 * 16910 * THE DATA ELEMENT TABLE WILL BE PRINTED 16920LPGLTB 16930 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 16940 * 16950 * THE DATA ELEMENT TABLE WILL BE UPDATED 16960 * 16970 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 16980 * 16990INPUT=PRFLM014 17000SWITCH 17010000000000 17020LPGUTB 17030 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 17040 * 17050 * THE DATA ELEMENT TABLE WILL BE PURGED 17060INPUT=PRFLM014 17070UTIL 17080DEFINE,FN=LATBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 17090EX 17100LPGCMP 17110INPUT=PRFLM014 17120UTIL 17130DELETE,FN=LARPTTBL 17140RENAME,FN=LATBLWRK,F2=LARPTTBL 17150EX 17160  3+ * THE DATA ELEMENT TABLE HAS BEEN PURGED 17170 * 17180 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 17190MNUPRO 17200/! 17210DEFINE,FN=PRFLM015,OW=LA,ED=999999,TY=S,LR=80,NR=35 17220LOAD,FN=PRFLM015,OW=LA 17230CHEKID 17240 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 17250 * 17260 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 17270LPGLIS 17280 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 17290 * 17300 * 17310 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 17320 * 17330 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 17340 * 17350LPGPRG 17360INPUT=PRFLM015 17370UTIL 17380COMPRE,FN=LARPTPGM 17390EX 17400 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 17410 * 17420 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 17430LPGLIS 17440 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 17450 * 17460 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 17470MNUPRO 17480/! 17490DEFINE,FN=PRFLM016,OW=LA,ED=999999,TY=S,LR=80,NR=15 17500LOAD,FN=PRFLM016,OW=LA 17510CHEKID 17520 * THE SCREEN FILES WILL BE PRINTED 17530 * 17540 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 17550 * 17560LPRSCN 17570 * THE SCREEN FILES HAVE BEEN PRINTED 17580MNUPRO 17590/! 17600DEFINE,FN=PRFLM017,OW=LA,ED=999999,TY=S,LR=80,NR=15 17610LOAD,FN=PRFLM017,OW=LA 17620CHEKID 17630 * THE CLIENT FILE MAINTENANCE PROGRAM WILL BEGIN 17640i  3?CLIENT 17650 * THE CLIENT FILE MAINTENANCE PROGRAM HAS COMPLETED 17660MNUPRO 17670/! 17680DEFINE,FN=PRFLO001,OW=LA,ED=999999,TY=S,LR=80,NR=20 17690LOAD,FN=PRFLO001,OW=LA 17700CHEKID 17710INPUT=PRFLO001 17720SWITCH 1773010000000 17740 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 17750 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 17760 * PRINTED 17770LDTLST 17780 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 17790MNUPRO 17800/! 17810DEFINE,FN=PRFLO002,OW=LA,ED=999999,TY=S,LR=80,NR=20 17820LOAD,FN=PRFLO002,OW=LA 17830CHEKID 17840INPUT=PRFLO002 17850SWITCH 1786001000000 17870 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 17880 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 17890LDTLST 17900INPUT=PRFLO002 17910UTIL 17920CLEAR,FN=LASREQDL 17930EX 17940 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 17950MNUPRO 17960/! 17970DEFINE,FN=PRFLO003,OW=LA,ED=999999,TY=S,LR=80,NR=40 17980LOAD,FN=PRFLO003,OW=LA 17990CHEKID 18000 * CALCULATE AGE FOR TREND ANALYSIS 18010TRENDF 18020 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 18030 * 18040 * THE LAACCAGE AND LARSWFIL FILES ARE BEING SORTED INTO LAAGEWRK 18050INPUT=PRFLO003 18060UTIL 18070DELETE,FN=LAAGEWRK 18080EX 18090INPUT=PRFLO003 18100DSORT 18110FN=LAACCAGE,LA 18120[  3SFN=LARSWFIL,LA 18130F2=LAAGEWRK,LA,SYSVOL 18140OP=T,F,A 18150KF=A,17,4,A,1,1 18160SL=OMIT,35,3,EQ,'RSW' 18170 * THE LAACCAGE AND LARSWFIL FILES HAVE BEEN SORTED 18180 * 18190 **** OPERATOR - 18200 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 18210 * TREND DATA FOR NEXT RUN 18220 * 18230 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 18240 * FOR NEXT RUN 18250CCSPAS 18260LTRNDU 18270INPUT=PRFLO003 18280UTIL 18290CLEAR,FN=LARSWFIL 18300EX 18310MNUPRO 18320/! 18330DEFINE,FN=PRFLO004,OW=LA,ED=999999,TY=S,LR=80,NR=25 18340LOAD,FN=PRFLO004,OW=LA 18350CHEKID 18360 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 18370 * THE LAAGEWRK FILE IS BEING SORTED 18380INPUT=PRFLO004 18390DSORT 18400FN=LAAGEWRK,LA 18410F2=LAAGEWRK,LA, 18420OP=T,F,A 18430KF=A,17,4,A,1,1 18440SL=I 18450 * THE LAAGEWRK FILE HAS BEEN SORTED 18460 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 18470INPUT=PRFLO004 18480SWITCH 1849010000000 18500LTRNDP 18510 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 18520MNUPRO 18530/! 18540DEFINE,FN=PRFLO005,OW=LA,ED=999999,TY=S,LR=80,NR=25 18550LOAD,FN=PRFLO005,OW=LA 18560CHEKID 18570 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 18580 * THE LAAGEWRK FILE IS BEING SORTED 18590INPUT=PRFLO005 18600Z  3gDSORT 18610FN=LAAGEWRK,LA 18620F2=LAAGEWRK,LA, 18630OP=T,F,A 18640KF=A,17,4,A,1,1 18650SL=I 18660 * THE LAAGEWRK FILE HAS BEEN SORTED 18670 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 18680INPUT=PRFLO005 18690SWITCH 1870000000000 18710LTRNDP 18720 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 18730MNUPRO 18740/! 18750DEFINE,FN=PRFLO006,OW=LA,ED=999999,TY=S,LR=80,NR=35 18760LOAD,FN=PRFLO006,OW=LA 18770CHEKID 18780 * THE WRITE-OFF REPORT WILL BE GENERATED 18790 * THE LAWOEF FILE WILL BE CREATED 18800INPUT=PRFLO006 18810UTIL 18820DEFINE,FN=LAWOEF,ED=999999,TY=S,LR=115,NR=6000 18830EX 18840WRTOFE 18850 * THE LAWOEF FILE HAS BEEN CREATED 18860 * THE LAWOEF FILE IS BEING SORTED 18870INPUT=PRFLO006 18880DSORT 18890FN=LAWOEF,LA 18900F2=LAWOEF,LA, 18910OP=T,F,A 18920KF=A,25,1,A,17,4,A,21,4,A,1,16 18930SL=I 18940 * THE LAWOEF FILE HAS BEEN SORTED 18950 * THE WRITE-OFF REPORT WILL BE PRINTED 18960LWROFP 18970INPUT=PRFLO006 18980UTIL 18990DELETE,FN=LAWOEF 19000EX 19010 * THE WRITE-OFF REPORT IS COMPLETE 19020MNUPRO 19030/! 19040DEFINE,FN=PRFLO007,OW=LA,ED=999999,TY=S,LR=80,NR=15 19050LOAD,FN=PRFLO007,OW=LA 19060CHEKID 19070 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 19080C  3{LDALST 19090 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 19100MNUPRO 19110/! 19120DEFINE,FN=PRFLO008,OW=LA,ED=999999,TY=S,LR=80,NR=15 19130LOAD,FN=PRFLO008,OW=LA 19140CHEKID 19150 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 19160SUMACL 19170 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 19180MNUPRO 19190/! 19200DEFINE,FN=PRFLO009,OW=LA,ED=999999,TY=S,LR=80,NR=25 19210LOAD,FN=PRFLO009,OW=LA 19220CHEKID 19230 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 19240INPUT=PRFLO009 19250SWITCH 1926001000000 19270COLSTS 19280 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 19290 **** OPERATOR - 19300 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 19310 * 19320 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 19330CCSPAS 19340INPUT=PRFLO009 19350SWITCH 1936000001000 19370COLSTS 19380MNUPRO 19390/! 19400DEFINE,FN=PRFLO010,OW=LA,ED=999999,TY=S,LR=80,NR=25 19410LOAD,FN=PRFLO010,OW=LA 19420CHEKID 19430 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 19440INPUT=PRFLO010 19450SWITCH 1946000100000 19470COLSTS 19480 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 19490 **** OPERATOR - 19500 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 19510 * STATISTICS COUNT FILE 19520 * 19530 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 19540 * COUNT FILE 19550CCSPAS 19560̹  3INPUT=PRFLO010 19570UTIL 19580CLEAR,FN=LACOLSTS 19590EX 19600MNUPRO 19610/! 19620DEFINE,FN=PRFLACTR,OW=LA,ED=999999,TY=S,LR=80,NR=40 19630LOAD,FN=PRFLACTR,OW=LA 19640CHEKID 19650 **** OPERATOR - THE BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 19660 **** OPERATOR - (BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING) 19670 * TO ACTIVATE BATCH HOST 19680 * MI, *BATCH,F 19690 * 19700 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 19710 * 19720 * CARRIAGE RETURN ONLY - TO CONTINUE 19730CCSPAS 19740 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 19750INPUT=PRFLACTR 19760UTIL 19770DEFINE,FN=LARPTWKE,LR=80,NR=1000 19780DEFINE,FN=LARPTWKP,LR=80,NR=1000 19790DEFINE,FN=LAPRCWRK,LR=80,NR=50 19800EX 19810LPGGEN 19820 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 19830 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 19840INPUT=PRFLACTR 19850UTIL 19860BATCH,FN=LARPTWKE,TY=N 19870BATCH,FN=LARPTWKP,TY=R 19880DELETE,FN=LARPTWKE 19890DELETE,FN=LARPTWKP 19900CLEAR,FN=LAPGEXTR 19910EX 19920LPGCT1 19930 * 19940 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 19950 * CARRIAGE RETURN WHEN READY 19960CCSPAS 19970MNUPRO 19980/! 19990DEFINE,FN=PRFLO012,OW=LA,ED=999999,TY=S,LR=80,NR=15 20000LOAD,FN=PRFLO012,OW=LA 20010CHEKID 20020 * THE QUEUE LOADING REPORT WILL BE PRINTED 20030QLOAD 20040*  3 * THE QUEUE LOADING REPORT IS COMPLETE 20050MNUPRO 20060/! 20070DEFINE,FN=PRFLO013,OW=LA,ED=999999,TY=S,LR=80,NR=25 20080LOAD,FN=PRFLO013,OW=LA 20090CHEKID 20100 * LAPMTFIL WILL BE SORTED FOR THE COMPLETE & DIRECT PAYMENT REPORTS 20110INPUT=PRFLO013 20120DSORT 20130FN=LAPMTFIL,LA 20140F2=LAPMTFIL,LA, 20150OP=T,F,A 20160KF=A,34,4,A,1,16 20170SL=I 20180INPUT=PRFLO013 20190 * COMPLETE PAYMENT REPORT WILL NOW BE PRINTED 20200COMPAY 20210 * DIRECT PAYMENT REPORT WILL NOW BE PRINTED 20220DIRPAY 20230 ***** OPERATOR - RESPOND 'N' CARRIAGE RETURN TO BYPASS CLEARING THE 20240 * PAYMENT FILE 20250 * 20260 * RESPOND CARRIAGE RETURN ONLY TO CLEAR PAYMENT FILE 20270 * 20280CCSPAS 20290INPUT=PRFLO013 20300UTIL 20310CLEAR,FN=LAPMTFIL 20320EX 20330MNUPRO 20340/! 20350DEFINE,FN=PRFLO014,OW=LA,ED=999999,TY=S,LR=80,NR=45 20360LOAD,FN=PRFLO014,OW=LA 20370CHEKID 20380 * THE INVENTORY REPORT PROCESS WILL NOW BEGIN 20390 * THE CLIENT FILE IS BEING EXTRACTED 20400INPUT=PRFLO014 20410UTIL 20420DEFINE,FN=LACLINV,TY=S,LR=80,NR=9000 20430EX 20440CLXTRT 20450 * CLIENT EXTRACT RECORDS WILL BE SORTED 20460INPUT=PRFLO014 20470DSORT 20480FN=LACLINV,LA 20490F2=LACLINV,, 20500OP=T,F,A 20510KF=A,1,16 20520  3SL=I 20530INPUT=PRFLO014 20540 * THE INVENTORY REPORT BY ACCOUNT WILL BE PRINTED 20550INVCUS 20560 * CLIENT EXTRACT RECORDS WILL BE SORTED BY CLIENT 20570INPUT=PRFLO014 20580DSORT 20590FN=LACLINV,LA 20600F2=LACLINV,, 20610OP=T,F,A 20620KF=A,17,4 20630SL=I 20640INPUT=PRFLO014 20650 * THE INVENTORY REPORT BY CLIENT WILL BE PRINTED 20660INVCLI 20670INPUT=PRFLO014 20680UTIL 20690DELETE,FN=LACLINV 20700EX 20710 * INVENTORY REPORT PROCESS IS COMPLETE 20720MNUPRO 20730/! 20740DEFINE,FN=PRFLO015,OW=LA,ED=999999,TY=S,LR=80,NR=15 20750LOAD,FN=PRFLO015,OW=LA 20760CHEKID 20770 * THE RECOVERY ANALYSIS REPORT WILL BEGIN 20780RECVRY 20790 * THE RECOVERY ANALYSIS REPORT IS COMPLETE 20800MNUPRO 20810/! 20820DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=LA 20830LOAD,FN=PRFRP014,OW=LA 20840CHEKID 20850 ***** PURGE TREND ANALYSIS FILES (LAACCAGE-LARSWFIL) 20860 ***** 20870 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 20880 ***** OR NOT TREND ANALYSIS IS BEING USED. 20890 ***** 20900 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 20910 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 20920 **** 20930 *** 20940CCSPAS 20950 * 20960CMPACC 20970 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 20980MNUPRO 20990/! 21000  3DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50; 21010OW=LA,VL=CDD03 21020DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=9000,VL=CDD03; 21030OW=LA 21040DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD03; 21050OW=LA 21060DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD03; 21070OW=LA 21080DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD03,OW=LA 21090DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=9000,VL=CDD03,OW=LA 21100DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=9000,VL=SYSVOL,OW=LA 21110DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD03,OW=LA 21120DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1600,NR=100; 21130VL=CDD03,OW=LA 21140DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD03; 21150OW=LA 21160DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=9000,VL=CDD03; 21170OW=LA 21180DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=128,VL=CDD03,OW=LA 21190DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD03,OW=LA 21200DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD03,OW=LA 21210DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=9000; 21220VL=CDD03,OW=LA 21230DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=9000,VL=SYSVOL,OW=LA 21240DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=750,VL=CDD03,OW=LA 21250DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD03,OW=LA 21260LOAD,FN=LADUMMY,OW=LA 21270 21280/! 21290DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD03,OW=LA 21300DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA 21310DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=9000,VL=CDD03,OW=LA 21320DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD03,OW=LA 21330DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD03; 21340OW=LA 21350DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA 21360DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=9000,VL=SYSVOL,OW=LA 21370DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=200,NR=4000,VL=CDD03,OW=LA 21380DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD03,OW=LA 21390DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD03; 21400OW=LA 21410DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=4500,VL=CDD03,OW=LA 21420DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD03,OW=LA 21430DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=CDD03; 21440OW=LA 21450DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA 21460DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=9000,VL=CDD03; 21470OW=LA 214804  3DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=9000,VL=CDD03; 21490OW=LA 21500DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD03,OW=LA 21510DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA 21520DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA 21530DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA 21540DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD03; 21550OW=LA 21560DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD03,OW=LA 21570EX 21580MOVDAT 21590LMOVDT 21600 * THE 24000/9000 ACCOUNT SYSTEM BUILD IS COMPLETE 21610 * 21620 * PROCEED WITH THE INSTALLATION TEST PROCEDURE. 21630 * 21640MNUPRO 21650__ 000000000000000062477 062177072377000000000010752000016836000016836 0000048000 000 0000 02000000 000 01069442912345670SIMONE,DONNA M 9999 Z ST HOME TOWN, USA 9999977755512120000DONNA M SIMONE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001 000000000000000062477 062277050177000000000004950000009450000009450 0000479000 000 4000 05000000 000  3 01078796312345670SPARKS,BARBARA B 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 0001 AL=S $$ 000000000000000061977 0619770830770000000000097130000116650000116601000244912045670GRAHAM,JAMES P 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 7775551212000001106441912345670000000001111102777111100 10002 000000000000000062277 061977061277000000000030353000040170000040170 0000000000 000 00 03000000 000 KLINE 011847 000011000000005500 101577100177 01001355612345670DAVIS,JOAN E 9999 Z ST HOME m  3TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 000000000000000062477 062177072377000000000010752000016836000016836 0000048000 000 0000 02000000 000 01069442912345670SIMONE,DONNA M 9999 Z ST HOME TOWN, USA 9999977755512120000DONNA M SIMONE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001 000000000000000062477 062277050177000000000004950000009450000009450 0000479000 000 4000 05000000 000  3 01078796312345670SPARKS,BARBARA B 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 0001 000000000000000061977 061977083077000000000009713000011665000011665 0000000002 000 00 02000000 000 01106441912345670SARACO,DOMENICK J 9999 Z ST HOME TOWN, USA 9999977755512120000PELHAM CHURCH GDS 888 ZZZ ST BUSY TOWN, USA 88888 7775551212000001000244912045670000000001111110177111100 10002 000000000000000061977 061977060877000000000021100000031900000031900 0002158000 000 9200 2 05000000 000 F  3/ 01108131012345670ANGREES,RICHARD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 061977091277000000000000651000011056000011056 0000281000 000 0000 02000000 000 01295375712345670OBRIEN,MICHAEL 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 062177051877000000000002168000004279000004279 0002768000 000 0000 2 02000000 000 F  3C 01315933912345670CONCA,SAM 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 000000000000000062477 061977101877000000000009033000017939000017939 0000046000 000 0000 03000000 000 01370065312345670FRIEDMAN,GLENN M 9999 Z ST HOME TOWN, USA 9999977755512120000NBO 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000062477 061977041677000000000007030000013600000013600 0000000000 000 00 02000000 000 _:  3W 01473467812345670RAWLS,YVONNE 9999 Z ST HOME TOWN, USA 9999977755512120000AT&T TELEPHONE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111100 0001 000000000000000062277 061977082677000000000008452000012716000012716 0000000000 000180 00 02000000 000 01499076912345670MAYE,KENNETH E 9999 Z ST HOME TOWN, USA 9999977755512120000BUFFY MOSE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977052877000000000014787000021887000021887 0002148001 000 5600 2 05000000 000  3k 01648842212345670BACHARACH,MARYLEE 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103077111100 0001 000000000000000061977 061977102777000000000013354000023164000023164 0000453003 000 0000 02000000 000 01653605112345670RADIN,DAVID 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102977111100 0004 000000000000000061977 061977090177000000000071859000082338000082338 0000000000 000176 00 02000000 000 f  3 01737129712345670MCGRATH,PHILIP J 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000062477 062477063077000000000003827000008320000008320 0000229000 000 0000 02000000 000 01744345612345670MAURO,JOHN 9999 Z ST HOME TOWN, USA 9999977755512120000 BRONX BLUE PRINT CO 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000062177 061977051977000000000002429000004210000004210 0000062000 000 0000 02000000 )  3 000 01747473812345670BROOM,ALMA M 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000062477 061977082877000000000000752000007403000007403 0000064000 000 0000 02000000 000 01814064812345670SHEARN,DWIGHT W 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001  3 000000000000000062477 061977092377000000000003721000005682000005682 0000001000 000 0000 02000000 000 01828743212345670LAZO,EDWARD H 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000061977 061977100177000000000016843000033690000033690 0000381001 000 0000 02000000 000 01861267812345670ARRINGTON,WILLIAM H 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 U  3 000000000000000062477 062177062877000000000003040000004562000004562 0000140000 000 0000 02000000 000 01893487612345670SEPULVEDA,JOSEPH A 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 062477042877000000000012491000018860000018860 0000025000 000 0000 02000000 000 01943848712345670MARTINDALE,WINSTON A 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102777111100 0001 ^  3 000000000000000062277 061977061277000000000013193000020416000020416 0000000000 000 00 02000000 000 01970264912345670HAIDUCK,NEAL GOODMAN 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 000000000000000062277 061977072377000000000007412000009812000009812 0000506001 000114 7600 05000000 000 02044146812345670RIOS,ANTONIO 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001   3 000000000000000062177 061977050177000000000000000000000889000000889 0000616000 000 0000 02000000 000 02072714812345670WIGGINS,MARVIN 9999 Z ST HOME TOWN, USA 9999977755512120000PLYMOUTH THREAD YARN 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 0001 000000000000000061977 061977083077000000000011567000015018000015018 0000000000 000 00 02000000 000 02122625712345670ROSS,ROBERT 9999 Z ST HOME TOWN, USA 9999977755512120000RETIRED 888 ZZZ ST b  3 BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977060877000000000006162000012186000012186 0000062000 000161 0000 02000000 000 02149255912345670AURRICHIO,LOUIS 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000071177 071177091277000000000007464000011341000011341 0000004000 000 0000 03000000 000 02163231712345670GREAVES,FRANKLI3  3 N E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977051877000000000000000000000361000000361 0000270000 000 0000 02000000 000 02309151012345670FOGLIA,MARGUERITE M 9999 Z ST HOME TOWN, USA 9999977755512120000MISERICORDIA HOSP 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111110 0001 000000000000000062477 061977101877000000000005418000008222000008222 0000257000 000 0000 02000000 000 R  3 02343848712345670TRIPPI,LORRAINE A 9999 Z ST HOME TOWN, USA 9999977755512120000BELKNAP MORAN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000061977 061977041677000000000000000000000083000000083 0000000000 000108 00 02000000 000 02350420712345670ALLEN,JANET E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111100 0001 000000000000000062177 061977082677000000000001895000003768000003768 0000004000 000 0000 02000000 000 !  33 02363415912345670PIDGEON,R V 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000071177 071177052877000000000009037000017159000017159 0000296000 000 0000 03000000 000 02365926212345670SMITH,CRAIG G 9999 Z ST HOME TOWN, USA 9999977755512120000COOPER& LYBRAND 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103077111100 10003 000000000000000062477 061977102777000000000037736000057603000057603 0000231000 000 0000 02000000 000 WILKES 122057DODGE  3~_AL~_S $$ IS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REP * 00010 * PROCEDURE TO BUILD 24000-9000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC006 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00180MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES 00190MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES 00200MNUPRO LO - L/A ON DEMAND REPORTING 00210MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY 00220MNUPRO EX - EXIT 00230/! 00240DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00250LOAD,FN=$$DCMENU,OW=$$ 00260 * DAILY CYCLE MENU 00270 * 00280DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00290DCPRTLTR B - PRINT REQUESTED LETTERS 00300DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00310DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00320DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00330DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU   3~s 00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00840RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00870RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00880RPDLYASN G - DAILY ASSIGNMENT LIST 00890RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00900RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00910RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00920RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00930PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM B  3~ 00940PRFRP012 M - QUEUE LOADING REPORT 00950PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00960 Z - EXIT 00970/! 00980DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00990LOAD,FN=$$RGMENU,OW=$$ 01000 * REPORT GENERATOR - REPORT DIRECTORY 01010 * 01020PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 01030PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 01040PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01050PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01060PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01070PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01080PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01090PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01100PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01110PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01120PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01130PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01140PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01150PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01160PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01170PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01180PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01190PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01200PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01210 Z - EXIT 01220/! 01230DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01240LOAD,FN=PRFDC001,OW=CCS20 01250CHEKID 01260 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01270 * - TIME USAGE REPORT 01280 * - DAILY COLLECTOR STATISTICS REPORT 01290 * 01300INPUT=PRFDC001 01310UTIL 01320CLEAR,FN=DLYWRK 01330EX 01340 * TRNSFL FILE IS NOW BEING SORTED 01350INPUT=PRFDC001 01360DSORT 01370FN=TRNSFL,CCS20 01380F2=TRNSFL,CCS20, 01390OP=T,F,A 01400KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01410SL=I  3~ 01420 * THE TRNSFL FILE HAS BEEN SORTED 01430 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01440COLCHG 01450 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01460 * THE TIME USAGE REPORT WILL BE PRINTED 01470TIMUSE 01480 * THE TIME USAGE REPORT IS COMPLETE 01490INPUT=PRFDC001 01500SWITCH 0151010000000 01520 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01530COLSTS 01540 * THE DAILY STATISTICS REPORT IS COMPLETE 01550 **** OPERATOR - 01560 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01570 * 01580 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01590CCSPAS 01600INPUT=PRFDC001 01610SWITCH 0162000010000 01630COLSTS 01640 * THIS ROUTINE IS COMPLETE 01650MNUPRO 01660/! 01670DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01680LOAD,FN=PRFDC002,OW=CCS20 01690CHEKID 01700 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01710INPUT=PRFDC002 01720DSORT 01730FN=TRNSFL,CCS20 01740F2=TRNSFL,CCS20, 01750OP=T,F,A 01760KF=A,17,4,A,41,2,A,1,16 01770SL=I 01780 **** OPERATOR - LOAD LETTER PAPER 01790 * CARRIAGE RETURN WHEN READY 01800 * 01810CCSPAS 01820 * THE REQUESTED LETTERS WILL BE PRINTED 01830LTRPRT 01840 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01850 **** OPERATOR - LOAD REGULAR PAPER 01860 * CARRIAGE RETURN WHEN READY 01870 * 01880CCSPAS 01890 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED  3~ 01900LTRSTA 01910 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01920MNUPRO 01930/! 01940DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01950LOAD,FN=PRFDC003,OW=CCS20 01960CHEKID 01970 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01980INPUT=PRFDC003 01990DSORT 02000FN=TRNSFL,CCS20 02010F2=TRNSFL,CCS20, 02020OP=T,F,A 02030KF=A,29,2,A,21,4,D,25,4,D,121,2 02040SL=I 02050ACTADD 02060 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02070MNUPRO 02080/! 02090DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02100LOAD,FN=PRFDC004,OW=CCS20 02110CHEKID 02120 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02130 * CARRIAGE RETURN WHEN READY 02140CCSPAS 02150INPUT=PRFDC004 02160SWITCH 0217010000000 02180 * THE UPDATE TAPE WILL BE PROCESSED 02190UPDATE 02200 * THE UPDATE TAPE HAS BEEN PROCESSED 02210 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02220 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02230 * SCREEN INFORMATION 02240CCSSPC 02250CCSPAS 02260 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02270MNUPRO 02280/! 02290DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02300LOAD,FN=PRFDC005,OW=CCS20 02310CHEKID 02320 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02330 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02340 * CARRIAGE RETURN WHEN READY 02350CCSPAS 02360INPUT=PRFDC005 02370SWITCH ,  3~ 0238010000000 02390UPD400 02400 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02410MNUPRO 02420/! 02430DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02440LOAD,FN=PRFDC006,OW=CCS20 02450CHEKID 02460 * THE FINANCIAL UPDATES WILL BE PROCESSED 02470 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02480 * 02490INPUT=PRFDC006 02500MOUNT 02510FTAPE,B,P 02520/* 02530UPD500 02540 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02550MNUPRO 02560/! 02570DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02580LOAD,FN=PRFDC007,OW=CCS20 02590CHEKID 02600 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02610DHUPDT 02620 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02630MNUPRO 02640/! 02650DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02660LOAD,FN=PRFDC008,OW=CCS20 02670CHEKID 02680 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02690 * COLLECTORS ARE OFF-LINE FOR THE DAY 02700MNUPRO 02710/! 02720DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02730LOAD,FN=PRFDC009,OW=CCS20 02740CHEKID 02750 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02760 * COLLECTORS ARE OFF-LINE FOR THE DAY 02770MNUPRO 02780/! 02790DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02800LOAD,FN=PRFDC010,OW=CCS20 02810CHEKID 02820 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02830 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02840 * CARRIAGE RETURN ONLY - TO CONTINUE 02850 * W  3~ 02860CCSPAS 02870 * 02880 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02890 * 02900INPUT=PRFDC010 02910UTIL 02920CLEAR,FN=TRNSFL 02930EX 02940INPUT=PRFDC010 02950DSORT 02960FN=TRANFL,CCS20 02970F2=TRNSFL,CCS20, 02980OP=T,F,A 02990KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 03000SL=I 03010PRETSR 03020INPUT=PRFDC010 03030UTIL 03040CLEAR,FN=ACTIVE 03050CLEAR,FN=TRANFL 03060CLEAR,FN=TRNBCK 03070EX 03080 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03090NMCHNG 03100RSWCHG 03110INPUT=PRFDC010 03120UTIL 03130CLEAR,FN=ADDACT 03140EX 03150MNUPRO 03160/! 03170DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03180LOAD,FN=PRFDC011,OW=CCS20 03190CHEKID 03200 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03210 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03220 * CARRIAGE RETURN ONLY - TO CONTINUE 03230 * 03240CCSPAS 03250 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03260INPUT=PRFDC011 03270UTIL 03280CLEAR,FN=DLYWRK 03290EX 03300SRREQ 03310 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03320 * 03330 * THE DLYASSN FILE IS BEING CREATED *b  3~ 03340DACRTE 03350 * THE DLYASSN FILE HAS BEEN CREATED 03360 * THE DLYASSN FILE IS BEING SORTED 03370INPUT=PRFDC011 03380DSORT 03390FN=DLYWRK,CCS20 03400FN=DLYASSN,CCS20 03410F2=DLYASSN,CCS20, 03420OP=T,F,A 03430KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03440SL=I 03450 * THE DLYASSN FILE HAS BEEN SORTED 03460INPUT=PRFDC011 03470UTIL 03480CLEAR,FN=DAQUE 03490EX 03500 * THE DAILY QUEUE FILE IS BEING CREATED 03510DAQUEL 03520 * THE DAILY QUEUE FILE HAS BEEN CREATED 03530 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03540 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03550 * SCREEN INFORMATION 03560CCSSPC 03570CCSPAS 03580 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03590 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03600MNUPRO 03610/! 03620DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03630LOAD,FN=PRFHS001,OW=CCS20 03640CHEKID 03650 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03660 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03670INPUT=PRFHS001 03680DSORT 03690FN=INACCT,CCS20 03700F2=INTEMP,CCS20, 03710OP=T,F,A 03720KF=A,1,16,D,23,2,D,19,4 03730SL=I 03740INPUT=PRFHS001 03750UTIL 03760CLEAR,FN=INACCT 03770COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03780DELETE,FN=INTEMP 03790EX 03800 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03810 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE O'  3~N TAPE UNIT '0' 03820 * WITH WRITE RING 03830 * CARRIAGE RETURN WHEN READY 03840CCSPAS 03850MHUPDT 03860 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 03870 * REBUILDING INACCT 03880FIXINA 03890 * INACCT REBUILD COMPLETE 03900MNUPRO 03910/! 03920DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03930LOAD,FN=PRFHS002,OW=CCS20 03940CHEKID 03950 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03960 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03970 * CARRIAGE RETURN ONLY - TO CONTINUE 03980 * 03990CCSPAS 04000 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 04010INPUT=PRFHS002 04020UTIL 04030DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 04040EX 04050CHUPD1 04060 * THE UPREQ FILE WILL BE SORTED 04070INPUT=PRFHS002 04080DSORT 04090FN=UPREQ,CCS20 04100F2=UPREQ,CCS20, 04110OP=T,F,A 04120KF=D,21,2,D,17,4,A,1,16 04130SL=I 04140 * THE UPREQ FILE HAS BEEN SORTED 04150INPUT=PRFHS002 04160UTIL 04170CLEAR,FN=UPHSTCM 04180EX 04190 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04200 * EXECUTION OF THE NEXT JOB 04210CHUPD2 04220INPUT=PRFHS002 04230UTIL 04240DELETE,FN=UPREQ 04250EX 04260 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04270MNUPRO 04280/! 04290DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL<  3=SYSVOL ,OW=CCS20 04300LOAD,FN=PRFHS003,OW=CCS20 04310CHEKID 04320 * THE SUMHIST FILE WILL BE PURGED 04330PHDEL2 04340CMPSUM 04350 * THE SUMHIST FILE HAS BEEN PURGED 04360MNUPRO 04370/! 04380DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04390LOAD,FN=PRFHS004,OW=CCS20 04400CHEKID 04410 * THE TAPEARC FILE WILL BE PURGED 04420PHDEL1 04430INPUT=PRFHS004 04440UTIL 04450COMPRE,FN=TAPEARC 04460EX 04470 * THE TAPEARC FILE HAS BEEN PURGED 04480MNUPRO 04490/! 04500DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04510LOAD,FN=PRFMT001,OW=CCS20 04520CHEKID 04530 * THE LETTER DEFINITION FILE WILL BE PRINTED 04540INPUT=PRFMT001 04550UTIL 04560LIST,FN=LTRDESC,L=LPRINTER,F=U 04570EX 04580 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04590 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04600 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04610 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04620 * CARRIAGE RETURN WHEN READY TO CONTINUE 04630CCSPAS 04640MNUPRO 04650/! 04660DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04670LOAD,FN=PRFMT002,OW=CCS20 04680CHEKID 04690 * THE LETTER FILE WILL BE CREATED 04700 * 04710INPUT=PRFMT002 04720UTIL 04730CLEAR,FN=LTRFIL 04740EX 04750LTRBLD 04760 * THE LETTER FILE HAS BEEN CREATED 04770MNUPRO g  3' 04780/! 04790DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04800LOAD,FN=PRFMT003,OW=CCS20 04810CHEKID 04820 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04830 * 04840 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04850 * FROM THE CONSOLE 04860 * 04870 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04880UTFMTN 04890 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04900INPUT=PRFMT003 04910UTIL 04920LIST,FN=UTIFIL,L=LPRINTER,F=U 04930EX 04940 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04950 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04960MNUPRO 04970/! 04980DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04990LOAD,FN=PRFMT004,OW=CCS20 05000CHEKID 05010 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 05020 * 05030 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05040DECMTN 05050 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05060MNUPRO 05070/! 05080DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05090LOAD,FN=PRFMT005,OW=CCS20 05100CHEKID 05110 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05120AVMDMP 05130 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05140MNUPRO 05150/! 05160DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05170LOAD,FN=PRFMT006,OW=CCS20 05180CHEKID 05190 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05200 * 05210AVMCON 05220 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05230 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05240AVMDMP 05250 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINW  3;TED 05260MNUPRO 05270/! 05280DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05290LOAD,FN=PRFMT007,OW=CCS20 05300CHEKID 05310 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05320 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05330 * SCREEN INFORMATION 05340CCSSPC 05350CCSPAS 05360 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05370MNUPRO 05380/! 05390DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05400LOAD,FN=PRFMT008,OW=CCS20 05410CHEKID 05420 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05430INPUT=PRFMT008 05440UTIL 05450LIST,FN=SCRNDESC,L=LPRINTER,F=U 05460EX 05470 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05480 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05490 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05500 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05510 * CARRIAGE RETURN WHEN READY TO CONTINUE 05520CCSPAS 05530MNUPRO 05540/! 05550DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05560LOAD,FN=PRFMT009,OW=CCS20 05570CHEKID 05580 * THE SCREEN FILE WILL BE CREATED 05590BLDSRN 05600 * THE SCREEN FILE HAS BEEN CREATED 05610MNUPRO 05620/! 05630DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05640LOAD,FN=PRFMT010,OW=CCS20 05650CHEKID 05660 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05670 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05680 * CARRIAGE RETURN ONLY - TO CONTINUE 05690 * 05700CCSPAS 05710 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05720CMPDLQ 05730INPUT=PRFMT010 g"  3O 05740UTIL 05750COMPRE,FN=COSIGNER 05760COMPRE,FN=ACTFIL 05770EX 05780 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05790MNUPRO 05800/! 05810DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05820LOAD,FN=PRFMT011,OW=CCS20 05830CHEKID 05840 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05850 * WILL BE PRINTED 05860ACTMTN 05870 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05880 * HAS BEEN PRINTED 05890MNUPRO 05900/! 05910DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05920LOAD,FN=PRFMT012,OW=CCS20 05930CHEKID 05940 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05950 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05960 * 05970USEMTN 05980 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05990MNUPRO 06000/! 06010DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 06020LOAD,FN=PRFMT013,OW=CCS20 06030CHEKID 06040 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06050PGLTTB 06060MNUPRO 06070/! 06080DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06090LOAD,FN=PRFMT014,OW=CCS20 06100CHEKID 06110 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06120 * 06130 * THE DATA ELEMENT TABLE WILL BE PRINTED 06140PGLTTB 06150 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06160 * 06170 * THE DATA ELEMENT TABLE WILL BE UPDATED 06180 * 06190 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06200 * 06210INPUT=PRFMT014 ˠ  3c 06220SWITCH 06230000000000 06240PGUPTB 06250 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06260 * 06270 * THE DATA ELEMENT TABLE WILL BE PURGED 06280INPUT=PRFMT014 06290UTIL 06300DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06310EX 06320PGCMPR 06330INPUT=PRFMT014 06340UTIL 06350DELETE,FN=RPTTBL 06360RENAME,FN=TBLWRK,F2=RPTTBL 06370EX 06380 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06390 * 06400 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06410MNUPRO 06420/! 06430DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06440LOAD,FN=PRFMT015,OW=CCS20 06450CHEKID 06460 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06490PGLIST 06500 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06510 * 06520 * 06530 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06540 * 06550 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06560 * 06570PGPURG 06580INPUT=PRFMT015 06590UTIL 06600COMPRE,FN=RPTPGM 06610EX 06620 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06630 * 06640 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06650PGLIST 06660 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06670 * 06680 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06690MNUPRO R  3w 06700/! 06710DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06720LOAD,FN=PRFMT016,OW=CCS20 06730CHEKID 06740 * THE SCREEN FILES WILL BE PRINTED 06750 * D 06760 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06770 * 06780PRTSCN 06790 * THE SCREEN FILES HAVE BEEN PRINTED 06800MNUPRO 06810/! 06820DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06830LOAD,FN=PRFRP001,OW=CCS20 06840CHEKID 06850INPUT=PRFRP001 06860SWITCH 0687010000000 06880 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06890 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06900 * PRINTED 06910DTLLST 06920 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06930MNUPRO 06940/! 06950DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06960LOAD,FN=PRFRP002,OW=CCS20 06970CHEKID 06980INPUT=PRFRP002 06990SWITCH 0700001000000 07010 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 07020 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 07030DTLLST 07040INPUT=PRFRP002 07050UTIL 07060CLEAR,FN=SREQDL 07070EX 07080 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07090MNUPRO 07100/! 07110DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07120LOAD,FN=PRFRP003,OW=CCS20 07130CHEKID 07140 * CALCULATE AGE FOR TREND ANALYSIS 07150TRENDF 07160 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07170 * u  3 07180 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07190INPUT=PRFRP003 07200UTIL 07210DELETE,FN=AGEWRK 07220EX 07230INPUT=PRFRP003 07240DSORT 07250FN=ACCAGE,CCS20 07260FN=RSWFIL,CCS20 07270F2=AGEWRK,CCS20,SYSVOL 07280OP=T,F,A 07290KF=A,17,4,A,1,1 07300SL=OMIT,35,3,EQ,'RSW' 07310 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07320 * 07330 **** OPERATOR - 07340 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07350 * TREND DATA FOR NEXT RUN 07360 * 07370 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07380 * FOR NEXT RUN 07390CCSPAS 07400TRENDU 07410INPUT=PRFRP003 07420UTIL 07430CLEAR,FN=RSWFIL 07440EX 07450MNUPRO 07460/! 07470DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07480LOAD,FN=PRFRP004,OW=CCS20 07490CHEKID 07500 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07510 * THE AGEWRK FILE IS BEING SORTED 07520INPUT=PRFRP004 07530DSORT 07540FN=AGEWRK,CCS20 07550F2=AGEWRK,CCS20, 07560OP=T,F,A 07570KF=A,17,4,A,1,1 07580SL=OMIT,35,3,EQ,'RSW' 07590 * THE AGEWRK FILE HAS BEEN SORTED 07600 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07610INPUT=PRFRP004 07620SWITCH 0763010000000 07640TRENDP 07650 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLET  3E 07660MNUPRO 07670/! 07680DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07690LOAD,FN=PRFRP005,OW=CCS20 07700CHEKID 07710 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07720 * THE AGEWRK FILE IS BEING SORTED 07730INPUT=PRFRP005 07740DSORT 07750FN=AGEWRK,CCS20 07760F2=AGEWRK,CCS20, 07770OP=T,F,A 07780KF=A,25,4,A,1,1 07790SL=I 07800 * THE AGEWRK FILE HAS BEEN SORTED 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07820INPUT=PRFRP005 07830SWITCH 0784000000000 07850TRENDP 07860 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07870MNUPRO 07880/! 07890DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07900LOAD,FN=PRFRP006,OW=CCS20 07910CHEKID 07920 * THE WRITE-OFF REPORT WILL BE GENERATED 07930 * THE WOEF FILE WILL BE CREATED 07940INPUT=PRFRP006 07950UTIL 07960DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07970EX 07980WRTOFE 07990 * THE WOEF FILE HAS BEEN CREATED 08000 * THE WOEF FILE IS BEING SORTED 08010INPUT=PRFRP006 08020DSORT 08030FN=WOEF,CCS20 08040F2=WOEF,CCS20, 08050OP=T,F,A 08060KF=A,25,1,A,17,4,A,21,4,A,1,16 08070SL=I 08080 * THE WOEF FILE HAS BEEN SORTED 08090 * THE WRITE-OFF REPORT WILL BE PRINTED 08100WRTOFP 08110INPUT=PRFRP006 08120UTIL 08130DELETE,FN=WOEF  3 08140EX 08150 * THE WRITE-OFF REPORT IS COMPLETE 08160MNUPRO 08170/! 08180DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08190LOAD,FN=PRFRP007,OW=CCS20 08200CHEKID 08210 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08220DALIST 08230 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08240MNUPRO 08250/! 08260DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08270LOAD,FN=PRFRP008,OW=CCS20 08280CHEKID 08290 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08300SUMACL 08310 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08320MNUPRO 08330/! 08340DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08350LOAD,FN=PRFRP009,OW=CCS20 08360CHEKID 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08380INPUT=PRFRP009 08390SWITCH 0840001000000 08410COLSTS 08420 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08430 **** OPERATOR - 08440 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08450 * 08460 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08470CCSPAS 08480INPUT=PRFRP009 08490SWITCH 0850000001000 08510COLSTS 08520MNUPRO 08530/! 08540DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08550LOAD,FN=PRFRP010,OW=CCS20 08560CHEKID 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08580INPUT=PRFRP010 08590SWITCH 0860000100000 08610COLSTS %  3 08620 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08630 **** OPERATOR - 08640 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08650 * STATISTICS COUNT FILE 08660 * 08670 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08680 * COUNT FILE 08690CCSPAS 08700INPUT=PRFRP010 08710UTIL 08720CLEAR,FN=COLSTATS 08730EX 08740MNUPRO 08750/! 08760DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08770LOAD,FN=PRFCNTRL,OW=CCS20 08780CHEKID 08790 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08800 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08810 * TO ACTIVATE BATCH HOST 08820 * MI, *BATCH,F 08830 * 08840 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08850 * 08860 * CARRIAGE RETURN ONLY - TO CONTINUE 08870CCSPAS 08880 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08890INPUT=PRFCNTRL 08900UTIL 08910DEFINE,FN=RPTWKE,LR=80,NR=1000 08920DEFINE,FN=RPTWKP,LR=80,NR=1000 08930DEFINE,FN=PRCWRK,LR=80,NR=50 08940EX 08950PGGEN 08960 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08970 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08980INPUT=PRFCNTRL 08990UTIL 09000BATCH,FN=RPTWKE,TY=N 09010BATCH,FN=RPTWKP,TY=R 09020DELETE,FN=RPTWKE 09030DELETE,FN=RPTWKP 09040CLEAR,FN=PGEXTR 09050EX 09060PGCNT1 09070 * 09080 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09090 * CARRIAGE RETURN WHEN READY t  3 09100CCSPAS 09110MNUPRO 09120/! 09130DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09140LOAD,FN=PRFRP012,OW=CCS20 09150CHEKID 09160 * THE QUEUE LOADING REPORT WILL BE PRINTED 09170QLOAD 09180 * THE QUEUE LOADING REPORT IS COMPLETE 09190MNUPRO 09200/! 09210DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09220LOAD,FN=PRFRP014,OW=CCS20 09230CHEKID 09240 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09250 ***** 09260 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09270 ***** OR NOT TREND ANALYSIS IS BEING USED. 09280 ***** 09290 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09300 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09310 **** 09320 *** 09330CCSPAS 09340 * 09350CMPACC 09360 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09370MNUPRO 09380/! 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570 T  3 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680 09690 09700 09710 09720 09730DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09740NR=50 09750DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=24000,OW=CCS20 09760DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=24000,VL=CDD01; 09770OW=CCS20 09780DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09790DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09800DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=24000,VL=CDD01,OW=CCS20 09810DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=24000,VL=SYSVOL,OW=CCS20 09820DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09830DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09840OW=CCS20 09850DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=24000,VL=CDD01; 09860OW=CCS20 09870DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09880DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09890DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=24000; 09900VL=CDD02,OW=CCS20 09910DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=24000,VL=SYSVOL,OW=CCS20 09920DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=2000,VL=CDD01,OW=CCS20 09930DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09940LOAD,FN=DUMMY,OW=CCS20 09950 09960/! 09970DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=24000,VL=CDD01,OW=CCS20 09980DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09990DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 10020DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=24000,OW=CCS20 10030DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 10040DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10050OW=CCS20   3 10060DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=12000,VL=CDD01,OW=CCS20 10070DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10080DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20 10110DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=24000,VL=CDD01; 10120OW=CCS20 10130DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=24000,VL=CDD01; 10140OW=CCS20 10150DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10160DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10170DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10180DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20 10190DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10200DEFINE,FN=$$LDMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10210LOAD,FN=$$LDMENU,OW=$$ 10220 * LEGAL AND AGENCY DAILY CYCLE MENU 10230 * 10240LDCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 10250LDPRTLTR B - PRINT REQUESTED LETTERS 10260LDACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 10270LDUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 10280LDNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 10290LDFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 10300LODRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 10310LODRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 10320LDUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 10330LDDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 10340LDDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 10350LDSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 10360LDBLDDAS M - CREATE DAILY ASSIGNMENT FILES 10370PRFLD012 N - NIGHTLY BATCH UPDATE 10380PRFLD013 O - L/A EXTRACT PROCESS 10390 Z - EXIT 10400/! 10410DEFINE,FN=$$LHMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10420LOAD,FN=$$LHMENU,OW=$$ 10430 LEGAL AND AGENCY HISTORY SYSTEM MENU 10440 * 10450LHMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 10460LHUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 10470LHPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10480LHPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10490LMPRGMST E - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10500LHPRGCLI F - PURGE CLIENT FILE (LACLIENT) 10510 Z - EXIT 10520/! 10530DEFINE,FN=$$LMMENU,TY=S,LR=80,NR=22,ED=999999,VLr  3=SYSVOL ,OW=$$ 10540LOAD,FN=$$LMMENU,OW=$$ 10550 * LEGAL AND AGENCY FILE MAINTENANCE MENU 10560 * 10570LMRDRLTR A - PRINT THE LETTER DEFINITION FILE 10580LMCONLTR B - CREATE THE LETTER FILE 10590LMUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 10600LMDECTBL D - DECISION TABLE MAINTENANCE 10610LMAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 10620LMACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 10630LMSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 10640LHPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10650LHPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10660LMLDSCRN J - PRINT SCREEN DEFINITION FILE 10670LMSVSCRN K - CREATE THE SCREEN FILE 10680LMPRGMST L - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10690LMACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 10700LMUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 10710LMDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 10720LMDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 10730LMPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 10740LMSCNPRT R - SAMPLE SCREEN PRINT UTILITY 10750PRFLM017 S - CLIENT FILE MAINTENANCE 10760 Z - EXIT 10770/! 10780DEFINE,FN=$$LOMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10790LOAD,FN=$$LOMENU,OW=$$ 10800 * LEGAL AND AGENCY ON DEMAND REPORT MENU 10810 * 10820LODRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 10830LODRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 10840LOTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 10850LOTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 10860LOTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 10870LOWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 10880LODLYASN G - DAILY ASSIGNMENT LIST 10890LOSUMACT H - SUMMARY ACCOUNT LIST REPORT 10900LOWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 10910LOMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 10920LOTCNTRL K - CREATE REPORT GENERATOR PROGRAM 10930PRFLP000 L - EXECUTE REPORT GENERATOR PROGRAM 10940PRFLO012 M - QUEUE LOADING REPORT 10950PRFLO013 N - COMPLETE PAYMENT, DIRECT PAYMENT STATEMENT REPORTS 10960PRFLO014 O - INVENTORY REPORTS BY ACCOUNT, CLIENT 10970PRFLO015 P - RECOVERY ANALYSIS REPORT 10980PRFRP014 Q - PURGE REPORT FILES ( LAACCAGE - LARSWFIL ) 10990 Z - EXIT 11000/! 11010DEFINE,FN=$$LRMENU,TY=S,LR=80,NR=22,ED=999999,VL'  3+=SYSVOL ,OW=$$ 11020LOAD,FN=$$LRMENU,OW=$$ 11030 * LEGAL AND AGENCY REPORT GENERATOR - REPORT DIRECTORY 11040 * 11050PRFLP001 A - R.G. REPORT 1 - (AVAILABLE) 11060PRFLP002 B - R.G. REPORT 2 - (AVAILABLE) 11070PRFLP003 C - R.G. REPORT 3 - (AVAILABLE) 11080PRFLP004 D - R.G. REPORT 4 - (AVAILABLE) 11090PRFLP005 E - R.G. REPORT 5 - (AVAILABLE) 11100PRFLP006 F - R.G. REPORT 6 - (AVAILABLE) 11110PRFLP007 G - R.G. REPORT 7 - (AVAILABLE) 11120PRFLP008 H - R.G. REPORT 8 - (AVAILABLE) 11130PRFLP009 I - R.G. REPORT 9 - (AVAILABLE) 11140PRFLP010 J - R.G. REPORT 10 - (AVAILABLE) 11150PRFLP011 K - R.G. REPORT 11 - (AVAILABLE) 11160PRFLP012 L - R.G. REPORT 12 - (AVAILABLE) 11170PRFLP013 M - R.G. REPORT 13 - (AVAILABLE) 11180PRFLP014 N - R.G. REPORT 14 - (AVAILABLE) 11190PRFLP015 O - R.G. REPORT 15 - (AVAILABLE) 11200PRFLP016 P - R.G. REPORT 16 - (AVAILABLE) 11210PRFLP017 Q - R.G. REPORT 17 - (AVAILABLE) 11220PRFLP018 R - R.G. REPORT 18 - (AVAILABLE) 11230PRFLP019 S - R.G. REPORT 19 - (AVAILABLE) 11240 Z - EXIT 11250/! 11260DEFINE,FN=PRFLD001,OW=LA,ED=999999,TY=S,LR=80,NR=50 11270LOAD,FN=PRFLD001,OW=LA 11280CHEKID 11290 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 11300 * - TIME USAGE REPORT 11310 * - DAILY COLLECTOR STATISTICS REPORT 11320 * 11330 * LATRNSFL FILE IS NOW BEING SORTED 11340INPUT=PRFLD001 11350DSORT 11360FN=LATRNSFL,LA 11370F2=LATRNSFL,LA, 11380OP=T,F,A 11390KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 11400SL=I 11410 * THE LATRNSFL FILE HAS BEEN SORTED 11420 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 11430LCOLCG 11440 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 11450 * THE TIME USAGE REPORT WILL BE PRINTED 11460LTMUSE 11470 * THE TIME USAGE REPORT IS COMPLETE 11480INPUT=PRFLD001 11490SWITCH  3? 1150010000000 11510 * THE DAILY STATISTICS REPORT WILL BE PRINTED 11520COLSTS 11530 * THE DAILY STATISTICS REPORT IS COMPLETE 11540 **** OPERATOR - 11550 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 11560 * 11570 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 11580CCSPAS 11590INPUT=PRFLD001 11600SWITCH 1161000010000 11620COLSTS 11630 * THIS ROUTINE IS COMPLETE 11640MNUPRO 11650/! 11660DEFINE,FN=PRFLD002,OW=LA,ED=999999,TY=S,LR=80,NR=30 11670LOAD,FN=PRFLD002,OW=LA 11680CHEKID 11690 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 11700INPUT=PRFLD002 11710DSORT 11720FN=LATRNSFL,LA 11730F2=LATRNSFL,LA, 11740OP=T,F,A 11750KF=A,17,4,A,41,2,A,1,16 11760SL=I 11770 **** OPERATOR - LOAD LETTER PAPER 11780 * CARRIAGE RETURN WHEN READY 11790 * 11800CCSPAS 11810 * THE REQUESTED LETTERS WILL BE PRINTED 11820LLTPRT 11830 * THE REQUESTED LETTERS HAVE BEEN PRINTED 11840 **** OPERATOR - LOAD REGULAR PAPER 11850 * CARRIAGE RETURN WHEN READY 11860 * 11870CCSPAS 11880 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 11890LTRSTA 11900 * THE LETTER STATISTICS SUMMARY IS COMPLETE 11910MNUPRO 11920/! 11930DEFINE,FN=PRFLD003,OW=LA,ED=999999,TY=S,LR=80,NR=25 11940LOAD,FN=PRFLD003,OW=LA 11950CHEKID 11960 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 11970INPUT=PRFLD003 5q  3S 11980DSORT 11990FN=LATRNSFL,LA 12000F2=LATRNSFL,LA, 12010OP=T,F,A 12020KF=A,29,2,A,21,4,D,25,4,D,121,2 12030SL=I 12040ACTADD 12050 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 12060MNUPRO 12070/! 12080DEFINE,FN=PRFLD004,OW=LA,ED=999999,TY=S,LR=80,NR=25 12090LOAD,FN=PRFLD004,OW=LA 12100CHEKID 12110 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 12120 * CARRIAGE RETURN WHEN READY 12130CCSPAS 12140INPUT=PRFLD004 12150SWITCH 1216010000000 12170 * THE UPDATE TAPE WILL BE PROCESSED 12180LUPDAT 12190 * THE UPDATE TAPE HAS BEEN PROCESSED 12200 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 12210 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 12220 * SCREEN INFORMATION 12230CCSSPC 12240CCSPAS 12250 * THE FILE SPACE AUDIT REPORT IS COMPLETE 12260MNUPRO 12270/! 12280DEFINE,FN=PRFLD005,OW=LA,ED=999999,TY=S,LR=80,NR=20 12290LOAD,FN=PRFLD005,OW=LA 12300CHEKID 12310 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 12320 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 12330 * CARRIAGE RETURN WHEN READY 12340CCSPAS 12350INPUT=PRFLD005 12360SWITCH 1237010000000 12380LUD400 12390 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 12400MNUPRO 12410/! 12420DEFINE,FN=PRFLD006,OW=LA,ED=999999,TY=S,LR=80,NR=20 12430LOAD,FN=PRFLD006,OW=LA 12440CHEKID 12450 * THE FINANCIAL UPDATES WILL BE PROCESSED  3g 12460 **** OPERATOR - FINANCIAL UPDATE TAPE SHOULD BE MOUNTED ON UNIT '0' 12470 * 12480INPUT=PRFLD006 12490SWITCH 1250010000000 12510INPUT=PRFLD006 12520MOUNT 12530FTAPE,B,P 12540/* 12550LUD500 12560 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 12570MNUPRO 12580/! 12590DEFINE,FN=PRFLD007,OW=LA,ED=999999,TY=S,LR=80,NR=15 12600LOAD,FN=PRFLD007,OW=LA 12610CHEKID 12620 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 12630DHUPDT 12640 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 12650MNUPRO 12660/! 12670DEFINE,FN=PRFLD008,OW=LA,ED=999999,TY=S,LR=80,NR=10 12680LOAD,FN=PRFLD008,OW=LA 12690CHEKID 12700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12710 * COLLECTORS ARE OFF-LINE FOR THE DAY 12720MNUPRO 12730/! 12740DEFINE,FN=PRFLD009,OW=LA,ED=999999,TY=S,LR=80,NR=10 12750LOAD,FN=PRFLD009,OW=LA 12760CHEKID 12770 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12780 * COLLECTORS ARE OFF-LINE FOR THE DAY 12790MNUPRO 12800/! 12810DEFINE,FN=PRFLD010,OW=LA,ED=999999,TY=S,LR=80,NR=50 12820LOAD,FN=PRFLD010,OW=LA 12830CHEKID 12840 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 12850 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 12860 * CARRIAGE RETURN ONLY - TO CONTINUE 12870 * 12880CCSPAS 12890 * 12900 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTOR REPORTS 12910 * 12920INPUT=PRFLD010 12930UTIL E  3{ 12940CLEAR,FN=LATRNSFL 12950EX 12960INPUT=PRFLD010 12970DSORT 12980FN=LATRANFL,LA 12990F2=LATRNSFL,LA, 13000OP=T,F,A 13010KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 13020SL=I 13030PRETSR 13040INPUT=PRFLD010 13050UTIL 13060CLEAR,FN=LAACTIVE 13070CLEAR,FN=LATRANFL 13080CLEAR,FN=LATRNBCK 13090EX 13100 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 13110NMCHNG 13120RSWCHG 13130INPUT=PRFLD010 13140UTIL 13150CLEAR,FN=LAADDACT 13160EX 13170MNUPRO 13180/! 13190DEFINE,FN=PRFLD011,OW=LA,ED=999999,TY=S,LR=80,NR=60 13200LOAD,FN=PRFLD011,OW=LA 13210CHEKID 13220 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 13230 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 13240 * CARRIAGE RETURN ONLY - TO CONTINUE 13250 * 13260CCSPAS 13270 * THE SUPERVISOR REQUEST FILE IS BEING CLEARED AND UPDATED 13280INPUT=PRFLD011 13290UTIL 13300CLEAR,FN=LADLYWRK 13310EX 13320SRREQ 13330 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 13340 * 13350 * THE LADLYASN FILE IS BEING CREATED 13360LDACRT 13370 * THE LADLYASN FILE HAS BEEN CREATED 13380 * THE LADLYASN FILE IS BEING SORTED 13390INPUT=PRFLD011 13400DSORT 13410FN=LADLYWRK,LA J  3 13420FN=LADLYASN,LA 13430F2=LADLYASN,LA, 13440OP=T,F,A 13450KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 13460SL=I 13470 * THE LADLYASN FILE HAS BEEN SORTED 13480INPUT=PRFLD011 13490UTIL 13500CLEAR,FN=LADAQUE 13510EX 13520 * THE DAILY QUEUE FILE IS BEING CREATED 13530LDAQEL 13540 * THE DAILY QUEUE FILE HAS BEEN CREATED 13550 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 13560 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 13570 * SCREEN INFORMATION 13580CCSSPC 13590CCSPAS 13600 * THE FILE SPACE AUDIT REPORT IS COMPLETE 13610 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 13620 * 13630 * THE TRANSACTIONS ARE BEING SORTED INTO FILE FOR NIGTHLY BATCH PROCESS 13640INPUT=PRFLD011 13650DSORT 13660FN=LAFILTMP,LA 13670FN=LATRNSFL,LA 13680F2=LAFINTRN,, 13690OP=T,F,A 13700KF=A,1,16,A,17,4,A,50,3 13710SL=I 13720MNUPRO 13730/! 13740DEFINE,FN=PRFLD012,OW=LA,ED=999999,TY=S,LR=80,NR=35 13750LOAD,FN=PRFLD012,OW=LA 13760CHEKID 13770 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 13780 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 13790 * CARRIAGE RETURN ONLY - TO CONTINUE 13800CCSPAS 13810 * OPERATOR - CHECK THE DATE PRINTED ON THE MATRIX 13820 * IT MUST BE THE CORRECT DATE 13830 * RESPOND - 'N' CARRIAGE RETURN TO ABORT 13840 * CARRIAGE RETURN ONLY TO CONTINUE 13850CCSPAS 13860 *THE NIGHTLY BATCH FILES WILL BE CLEARED 13870INPUT=PRFLD012 13880UTIL 13890CLEAR,FN=LAFILTMP >v  3 13900CLEAR,FN=LARPTDAT 13910EX 13920 *BATCH UPDATE WILL BEGIN 13930LBATUD 13940 * BATCH UPDATE COMPLETE, AUDIT TRAIL REPORT WILL BEGIN 13950LBATPT 13960 * AUDIT TRAIL REPORT COMPLETE 13970 * THE LACLIENT FILE IS BEING UPDATED FOR ON-LINE USE 13980LCLIUD 13990 *NIGHTLY BATCH UPDATE PROCESS COMPLETE 14000MNUPRO 14010/! 14020DEFINE,FN=PRFLD013,OW=LA,ED=999999,TY=S,LR=80,NR=20 14030LOAD,FN=PRFLD013,OW=LA 14040CHEKID 14050 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 14060 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 14070 * CARRIAGE RETURN ONLY - TO CONTINUE 14080CCSPAS 14090 * THE LEGAL AND AGENCY EXTRACT PROGRAM WILL BEGIN 14100LAXTRT 14110 * THE LEGAL AND AGENCY EXTRACT PROCESS IS COMPLETE. 14120 * REFERRAL REPORT WILL BEGIN 14130LARPRT 14140 * REFERRAL REPORT COMPLETE 14150 * THE LADLQKEY FILE IS BEING CLEARED 14160INPUT=PRFLD013 14170UTIL 14180CLEAR,FN=LADLQKEY 14190EX 14200MNUPRO 14210/! 14220DEFINE,FN=PRFLH001,OW=LA,ED=999999,TY=S,LR=80,NR=30 14230LOAD,FN=PRFLH001,OW=LA 14240CHEKID 14250 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 14260 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 14270INPUT=PRFLH001 14280DSORT 14290FN=LAINACCT,LA 14300F2=LAINTEMP,LA, 14310OP=T,F,A 14320KF=A,1,16,D,23,2,D,19,4 14330SL=I 14340INPUT=PRFLH001 14350UTIL 14360CLEAR,FN=LAINACCT 14370COPY,FN=LAINTEMP,F2=LAINACCT,OW=LA 4  3 14380DELETE,FN=LAINTEMP 14390EX 14400 * THE LAINACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 14410 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 14420 * WITH WRITE RING - CARRIAGE RETURN WHEN READY 14430CCSPAS 14440MHUPDT 14450 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 14460 * REBUILDING LAINACCT 14470FIXINA 14480 * LAINACCT REBUILD COMPLETE 14490MNUPRO 14500/! 14510DEFINE,FN=PRFLH002,OW=LA,ED=999999,TY=S,LR=80,NR=40 14520LOAD,FN=PRFLH002,OW=LA 14530CHEKID 14540 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 14550 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 14560 * CARRIAGE RETURN ONLY - TO CONTINUE 14570 * 14580CCSPAS 14590 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 14600INPUT=PRFLH002 14610UTIL 14620DEFINE,FN=LAUPDREQ,ED=999999,TY=S,LR=22,NR=300 14630EX 14640LCHUD1 14650 * THE LAUPDREQ FILE WILL BE SORTED 14660INPUT=PRFLH002 14670DSORT 14680FN=LAUPDREQ,LA 14690F2=LAUPDREQ,LA, 14700OP=T,F,A 14710KF=D,21,2,D,17,4,A,1,16 14720SL=I 14730 * THE LAUPDREQ FILE HAS BEEN SORTED 14740INPUT=PRFLH002 14750UTIL 14760CLEAR,FN=LAUPHSCM 14770EX 14780 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 14790 * EXECUTION OF THE NEXT JOB 14800CHUPD2 14810INPUT=PRFLH002 14820UTIL 14830DELETE,FN=LAUPDREQ 14840EX 14850 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THh!  3E TAPE ARCHIVES 14860MNUPRO 14870/! 14880DEFINE,FN=PRFLH003,OW=LA,ED=999999,TY=S,LR=80,NR=15 14890LOAD,FN=PRFLH003,OW=LA 14900CHEKID 14910 * THE LASUMHST FILE WILL BE PURGED 14920PHDEL2 14930LCMPSM 14940 * THE LASUMHST FILE HAS BEEN PURGED 14950MNUPRO 14960/! 14970DEFINE,FN=PRFLH004,OW=LA,ED=999999,TY=S,LR=80,NR=15 14980LOAD,FN=PRFLH004,OW=LA 14990CHEKID 15000 * THE LATAPARC FILE WILL BE PURGED 15010PHDEL1 15020INPUT=PRFLH004 15030UTIL 15040COMPRE,FN=LATAPARC 15050EX 15060 * THE LATAPARC FILE HAS BEEN PURGED 15070MNUPRO 15080/! 15090DEFINE,FN=PRFLH005,OW=LA,ED=999999,TY=S,LR=80,NR=25 15100LOAD,FN=PRFLH005,OW=LA 15110CHEKID 15120 * THE CLIENT FILE WILL BE PURGED 15130INPUT=PRFLH005 15140UTIL 15150DEFINE,FN=LAPURGED,LR=1600,NR=100 15160EX 15170 *THE LACLIENT FILE WILL BE SCANNED FOR CLIENTS READY TO BE PURGED 15180LACLPG 15190 *THE INACTIVATED AND/OR PURGED REPORT WILL BE PRINTED 15200LPGRPT 15210 * THE LAPURGED FILE WILL BE DELETED 15220INPUT=PRFLH005 15230UTIL 15240DELETE,FN=LAPURGED 15250EX 15260 * THE CLIENT FILE PURGE ROUTINES ARE COMPLETE 15270MNUPRO 15280/! 15290DEFINE,FN=PRFLM001,OW=LA,ED=999999,TY=S,LR=80,NR=20 15300LOAD,FN=PRFLM001,OW=LA 15310CHEKID 15320 * THE LETTER DEFINITION FILE WILL BE PRINTED 15330INPUT=PRFLM001 )  3 15340UTIL 15350LIST,FN=LALTRDSC,L=LPRINTER,F=U 15360EX 15370 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 15380 **** OPERATOR - IF ANY CHANGES ARE TO BE MADE TO THE LETTER FILE 15390 * ENTER THE EDITOR TO PROCESS THE LALTRDSC FILE, WHEN 15400 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 15410 * CARRIAGE RETURN WHEN READY TO CONTINUE 15420CCSPAS 15430MNUPRO 15440/! 15450DEFINE,FN=PRFLM002,OW=LA,ED=999999,TY=S,LR=80,NR=15 15460LOAD,FN=PRFLM002,OW=LA 15470CHEKID 15480 * THE LETTER FILE WILL BE CREATED 15490INPUT=PRFLM002 15500UTIL 15510CLEAR,FN=LALTRFIL 15520EX 15530LTRBLD 15540 * THE LETTER FILE HAS BEEN CREATED 15550MNUPRO 15560/! 15570DEFINE,FN=PRFLM003,OW=LA,ED=999999,TY=S,LR=80,NR=25 15580LOAD,FN=PRFLM003,OW=LA 15590CHEKID 15600 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 15610 * 15620 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 15630 * FROM THE CONSOLE 15640 * 15650 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 15660LUTFMT 15670 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 15680INPUT=PRFLM003 15690UTIL 15700LIST,FN=LAUTIFIL,L=LPRINTER,F=U 15710EX 15720 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 15730 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 15740MNUPRO 15750/! 15760DEFINE,FN=PRFLM004,OW=LA,ED=999999,TY=S,LR=80,NR=15 15770LOAD,FN=PRFLM004,OW=LA 15780CHEKID 15790 * THE DECISION TABLE MAINTENANCE ROUTIN WILL BE EXECUTED 15800 * 15810 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY   3APPEAR ON THE SCREEN 15820LDECMT 15830 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 15840MNUPRO 15850/! 15860DEFINE,FN=PRFLM005,OW=LA,ED=999999,TY=S,LR=80,NR=15 15870LOAD,FN=PRFLM005,OW=LA 15880CHEKID 15890 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 15900LAVMDP 15910 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 15920MNUPRO 15930/! 15940DEFINE,FN=PRFLM006,OW=LA,ED=999999,TY=S,LR=80,NR=15 15950LOAD,FN=PRFLM006,OW=LA 15960CHEKID 15970 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 15980 * 15990AVMCON 16000 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 16010 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 16020LAVMDP 16030 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 16040MNUPRO 16050/! 16060DEFINE,FN=PRFLM007,OW=LA,ED=999999,TY=S,LR=80,NR=15 16070LOAD,FN=PRFLM007,OW=LA 16080CHEKID 16090 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 16100 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 16110 * SCREEN INFORMATION 16120CCSSPC 16130CCSPAS 16140 * THE FILE SPACE AUDIT REPORT IS COMPLETE 16150MNUPRO 16160/! 16170DEFINE,FN=PRFLM008,OW=LA,ED=999999,TY=S,LR=80,NR=20 16180LOAD,FN=PRFLM008,OW=LA 16190CHEKID 16200 * THE SCREEN DEFINITION FILE WILL BE PRINTED 16210INPUT=PRFLM008 16220UTIL 16230LIST,FN=LASCNDSC,L=LPRINTER,F=U 16240EX 16250 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 16260 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 16270 * FILE ENTER THE EDITOR TO PROCESS THE LASCNDSC FILE, 16280 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 16290 * CARRIAGE RETURN WHEN READY TO CZ3  3ONTINUE 16300CCSPAS 16310MNUPRO 16320/! 16330DEFINE,FN=PRFLM009,OW=LA,ED=999999,TY=S,LR=80,NR=15 16340LOAD,FN=PRFLM009,OW=LA 16350CHEKID 16360 * THE SCREEN FILE WILL BE CREATED 16370LBLDSR 16380 * THE SCREEN FILE HAS BEEN CREATED 16390MNUPRO 16400/! 16410DEFINE,FN=PRFLM010,OW=LA,ED=999999,TY=S,LR=80,NR=20 16420LOAD,FN=PRFLM010,OW=LA 16430CHEKID 16440 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 16450 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 16460 * CARRIAGE RETURN ONLY - TO CONTINUE 16470 * 16480CCSPAS 16490 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES WILL BE PURGED 16500LCMPDQ 16510INPUT=PRFLM010 16520UTIL 16530COMPRE,FN=LACOSIGN 16540COMPRE,FN=LAACTFIL 16550EX 16560 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES HAVE BEEN PURGED 16570MNUPRO 16580/! 16590DEFINE,FN=PRFLM011,OW=LA,ED=999999,TY=S,LR=80,NR=15 16600LOAD,FN=PRFLM011,OW=LA 16610CHEKID 16620 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 16630 * WILL BE PRINTED 16640ACTMTN 16650 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 16660 * HAS BEEN PRINTED 16670MNUPRO 16680/! 16690DEFINE,FN=PRFLM012,OW=LA,ED=999999,TY=S,LR=80,NR=15 16700LOAD,FN=PRFLM012,OW=LA 16710CHEKID 16720 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE WILL BE EXECUTED 16730 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 16740 * 16750USEMTN 16760 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE IS COMPLETE 16770MNUPRO   3  16780/! 16790DEFINE,FN=PRFLM013,OW=LA,ED=999999,TY=S,LR=80,NR=10 16800LOAD,FN=PRFLM013,OW=LA 16810CHEKID 16820 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 16830LPGLTB 16840MNUPRO 16850/! 16860DEFINE,FN=PRFLM014,OW=LA,ED=999999,TY=S,LR=80,NR=40 16870LOAD,FN=PRFLM014,OW=LA 16880CHEKID 16890 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 16900 * 16910 * THE DATA ELEMENT TABLE WILL BE PRINTED 16920LPGLTB 16930 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 16940 * 16950 * THE DATA ELEMENT TABLE WILL BE UPDATED 16960 * 16970 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 16980 * 16990INPUT=PRFLM014 17000SWITCH 17010000000000 17020LPGUTB 17030 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 17040 * 17050 * THE DATA ELEMENT TABLE WILL BE PURGED 17060INPUT=PRFLM014 17070UTIL 17080DEFINE,FN=LATBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 17090EX 17100LPGCMP 17110INPUT=PRFLM014 17120UTIL 17130DELETE,FN=LARPTTBL 17140RENAME,FN=LATBLWRK,F2=LARPTTBL 17150EX 17160 * THE DATA ELEMENT TABLE HAS BEEN PURGED 17170 * 17180 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 17190MNUPRO 17200/! 17210DEFINE,FN=PRFLM015,OW=LA,ED=999999,TY=S,LR=80,NR=35 17220LOAD,FN=PRFLM015,OW=LA 17230CHEKID 17240 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 17250 *  3 / 17260 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 17270LPGLIS 17280 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 17290 * 17300 * 17310 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 17320 * 17330 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 17340 * 17350LPGPRG 17360INPUT=PRFLM015 17370UTIL 17380COMPRE,FN=LARPTPGM 17390EX 17400 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 17410 * 17420 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 17430LPGLIS 17440 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 17450 * 17460 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 17470MNUPRO 17480/! 17490DEFINE,FN=PRFLM016,OW=LA,ED=999999,TY=S,LR=80,NR=15 17500LOAD,FN=PRFLM016,OW=LA 17510CHEKID 17520 * THE SCREEN FILES WILL BE PRINTED 17530 * 17540 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 17550 * 17560LPRSCN 17570 * THE SCREEN FILES HAVE BEEN PRINTED 17580MNUPRO 17590/! 17600DEFINE,FN=PRFLM017,OW=LA,ED=999999,TY=S,LR=80,NR=15 17610LOAD,FN=PRFLM017,OW=LA 17620CHEKID 17630 * THE CLIENT FILE MAINTENANCE PROGRAM WILL BEGIN 17640CLIENT 17650 * THE CLIENT FILE MAINTENANCE PROGRAM HAS COMPLETED 17660MNUPRO 17670/! 17680DEFINE,FN=PRFLO001,OW=LA,ED=999999,TY=S,LR=80,NR=20 17690LOAD,FN=PRFLO001,OW=LA 17700CHEKID 17710INPUT=PRFLO001 17720SWITCH 1773010000000 S  3 C 17740 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 17750 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 17760 * PRINTED 17770LDTLST 17780 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 17790MNUPRO 17800/! 17810DEFINE,FN=PRFLO002,OW=LA,ED=999999,TY=S,LR=80,NR=20 17820LOAD,FN=PRFLO002,OW=LA 17830CHEKID 17840INPUT=PRFLO002 17850SWITCH 1786001000000 17870 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 17880 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 17890LDTLST 17900INPUT=PRFLO002 17910UTIL 17920CLEAR,FN=LASREQDL 17930EX 17940 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 17950MNUPRO 17960/! 17970DEFINE,FN=PRFLO003,OW=LA,ED=999999,TY=S,LR=80,NR=40 17980LOAD,FN=PRFLO003,OW=LA 17990CHEKID 18000 * CALCULATE AGE FOR TREND ANALYSIS 18010TRENDF 18020 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 18030 * 18040 * THE LAACCAGE AND LARSWFIL FILES ARE BEING SORTED INTO LAAGEWRK 18050INPUT=PRFLO003 18060UTIL 18070DELETE,FN=LAAGEWRK 18080EX 18090INPUT=PRFLO003 18100DSORT 18110FN=LAACCAGE,LA 18120FN=LARSWFIL,LA 18130F2=LAAGEWRK,LA,SYSVOL 18140OP=T,F,A 18150KF=A,17,4,A,1,1 18160SL=OMIT,35,3,EQ,'RSW' 18170 * THE LAACCAGE AND LARSWFIL FILES HAVE BEEN SORTED 18180 * 18190 **** OPERATOR - 18200 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 18210 * TREND DATA FOR NEXT RUN %  3 W 18220 * 18230 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 18240 * FOR NEXT RUN 18250CCSPAS 18260LTRNDU 18270INPUT=PRFLO003 18280UTIL 18290CLEAR,FN=LARSWFIL 18300EX 18310MNUPRO 18320/! 18330DEFINE,FN=PRFLO004,OW=LA,ED=999999,TY=S,LR=80,NR=25 18340LOAD,FN=PRFLO004,OW=LA 18350CHEKID 18360 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 18370 * THE LAAGEWRK FILE IS BEING SORTED 18380INPUT=PRFLO004 18390DSORT 18400FN=LAAGEWRK,LA 18410F2=LAAGEWRK,LA, 18420OP=T,F,A 18430KF=A,17,4,A,1,1 18440SL=I 18450 * THE LAAGEWRK FILE HAS BEEN SORTED 18460 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 18470INPUT=PRFLO004 18480SWITCH 1849010000000 18500LTRNDP 18510 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 18520MNUPRO 18530/! 18540DEFINE,FN=PRFLO005,OW=LA,ED=999999,TY=S,LR=80,NR=25 18550LOAD,FN=PRFLO005,OW=LA 18560CHEKID 18570 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 18580 * THE LAAGEWRK FILE IS BEING SORTED 18590INPUT=PRFLO005 18600DSORT 18610FN=LAAGEWRK,LA 18620F2=LAAGEWRK,LA, 18630OP=T,F,A 18640KF=A,17,4,A,1,1 18650SL=I 18660 * THE LAAGEWRK FILE HAS BEEN SORTED 18670 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 18680INPUT=PRFLO005 18690SWITCH  3 k 1870000000000 18710LTRNDP 18720 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 18730MNUPRO 18740/! 18750DEFINE,FN=PRFLO006,OW=LA,ED=999999,TY=S,LR=80,NR=35 18760LOAD,FN=PRFLO006,OW=LA 18770CHEKID 18780 * THE WRITE-OFF REPORT WILL BE GENERATED 18790 * THE LAWOEF FILE WILL BE CREATED 18800INPUT=PRFLO006 18810UTIL 18820DEFINE,FN=LAWOEF,ED=999999,TY=S,LR=115,NR=6000 18830EX 18840WRTOFE 18850 * THE LAWOEF FILE HAS BEEN CREATED 18860 * THE LAWOEF FILE IS BEING SORTED 18870INPUT=PRFLO006 18880DSORT 18890FN=LAWOEF,LA 18900F2=LAWOEF,LA, 18910OP=T,F,A 18920KF=A,25,1,A,17,4,A,21,4,A,1,16 18930SL=I 18940 * THE LAWOEF FILE HAS BEEN SORTED 18950 * THE WRITE-OFF REPORT WILL BE PRINTED 18960LWROFP 18970INPUT=PRFLO006 18980UTIL 18990DELETE,FN=LAWOEF 19000EX 19010 * THE WRITE-OFF REPORT IS COMPLETE 19020MNUPRO 19030/! 19040DEFINE,FN=PRFLO007,OW=LA,ED=999999,TY=S,LR=80,NR=15 19050LOAD,FN=PRFLO007,OW=LA 19060CHEKID 19070 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 19080LDALST 19090 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 19100MNUPRO 19110/! 19120DEFINE,FN=PRFLO008,OW=LA,ED=999999,TY=S,LR=80,NR=15 19130LOAD,FN=PRFLO008,OW=LA 19140CHEKID 19150 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 19160SUMACL 19170 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE r  3 19180MNUPRO 19190/! 19200DEFINE,FN=PRFLO009,OW=LA,ED=999999,TY=S,LR=80,NR=25 19210LOAD,FN=PRFLO009,OW=LA 19220CHEKID 19230 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 19240INPUT=PRFLO009 19250SWITCH 1926001000000 19270COLSTS 19280 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 19290 **** OPERATOR - 19300 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 19310 * 19320 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 19330CCSPAS 19340INPUT=PRFLO009 19350SWITCH 1936000001000 19370COLSTS 19380MNUPRO 19390/! 19400DEFINE,FN=PRFLO010,OW=LA,ED=999999,TY=S,LR=80,NR=25 19410LOAD,FN=PRFLO010,OW=LA 19420CHEKID 19430 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 19440INPUT=PRFLO010 19450SWITCH 1946000100000 19470COLSTS 19480 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 19490 **** OPERATOR - 19500 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 19510 * STATISTICS COUNT FILE 19520 * 19530 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 19540 * COUNT FILE 19550CCSPAS 19560INPUT=PRFLO010 19570UTIL 19580CLEAR,FN=LACOLSTS 19590EX 19600MNUPRO 19610/! 19620DEFINE,FN=PRFLACTR,OW=LA,ED=999999,TY=S,LR=80,NR=40 19630LOAD,FN=PRFLACTR,OW=LA 19640CHEKID 19650 **** OPERATOR - THE BATCH HOST MUST BE ACTIVE B2  3EFORE PROCEEDING 19660 **** OPERATOR - (BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING) 19670 * TO ACTIVATE BATCH HOST 19680 * MI, *BATCH,F 19690 * 19700 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 19710 * 19720 * CARRIAGE RETURN ONLY - TO CONTINUE 19730CCSPAS 19740 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 19750INPUT=PRFLACTR 19760UTIL 19770DEFINE,FN=LARPTWKE,LR=80,NR=1000 19780DEFINE,FN=LARPTWKP,LR=80,NR=1000 19790DEFINE,FN=LAPRCWRK,LR=80,NR=50 19800EX 19810LPGGEN 19820 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 19830 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 19840INPUT=PRFLACTR 19850UTIL 19860BATCH,FN=LARPTWKE,TY=N 19870BATCH,FN=LARPTWKP,TY=R 19880DELETE,FN=LARPTWKE 19890DELETE,FN=LARPTWKP 19900CLEAR,FN=LAPGEXTR 19910EX 19920LPGCT1 19930 * 19940 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 19950 * CARRIAGE RETURN WHEN READY 19960CCSPAS 19970MNUPRO 19980/! 19990DEFINE,FN=PRFLO012,OW=LA,ED=999999,TY=S,LR=80,NR=15 20000LOAD,FN=PRFLO012,OW=LA 20010CHEKID 20020 * THE QUEUE LOADING REPORT WILL BE PRINTED 20030QLOAD 20040 * THE QUEUE LOADING REPORT IS COMPLETE 20050MNUPRO 20060/! 20070DEFINE,FN=PRFLO013,OW=LA,ED=999999,TY=S,LR=80,NR=25 20080LOAD,FN=PRFLO013,OW=LA 20090CHEKID 20100 * LAPMTFIL WILL BE SORTED FOR THE COMPLETE & DIRECT PAYMENT REPORTS 20110INPUT=PRFLO013 20120DSORT 20130FN=LAPMTFIL,LA X  3 20140F2=LAPMTFIL,LA, 20150OP=T,F,A 20160KF=A,34,4,A,1,16 20170SL=I 20180INPUT=PRFLO013 20190 * COMPLETE PAYMENT REPORT WILL NOW BE PRINTED 20200COMPAY 20210 * DIRECT PAYMENT REPORT WILL NOW BE PRINTED 20220DIRPAY 20230 ***** OPERATOR - RESPOND 'N' CARRIAGE RETURN TO BYPASS CLEARING THE 20240 * PAYMENT FILE 20250 * 20260 * RESPOND CARRIAGE RETURN ONLY TO CLEAR PAYMENT FILE 20270 * 20280CCSPAS 20290INPUT=PRFLO013 20300UTIL 20310CLEAR,FN=LAPMTFIL 20320EX 20330MNUPRO 20340/! 20350DEFINE,FN=PRFLO014,OW=LA,ED=999999,TY=S,LR=80,NR=45 20360LOAD,FN=PRFLO014,OW=LA 20370CHEKID 20380 * THE INVENTORY REPORT PROCESS WILL NOW BEGIN 20390 * THE CLIENT FILE IS BEING EXTRACTED 20400INPUT=PRFLO014 20410UTIL 20420DEFINE,FN=LACLINV,TY=S,LR=80,NR=9000 20430EX 20440CLXTRT 20450 * CLIENT EXTRACT RECORDS WILL BE SORTED 20460INPUT=PRFLO014 20470DSORT 20480FN=LACLINV,LA 20490F2=LACLINV,, 20500OP=T,F,A 20510KF=A,1,16 20520SL=I 20530INPUT=PRFLO014 20540 * THE INVENTORY REPORT BY ACCOUNT WILL BE PRINTED 20550INVCUS 20560 * CLIENT EXTRACT RECORDS WILL BE SORTED BY CLIENT 20570INPUT=PRFLO014 20580DSORT 20590FN=LACLINV,LA 20600F2=LACLINV,, 20610OP=T,F,A ~  3 20620KF=A,17,4 20630SL=I 20640INPUT=PRFLO014 20650 * THE INVENTORY REPORT BY CLIENT WILL BE PRINTED 20660INVCLI 20670INPUT=PRFLO014 20680UTIL 20690DELETE,FN=LACLINV 20700EX 20710 * INVENTORY REPORT PROCESS IS COMPLETE 20720MNUPRO 20730/! 20740DEFINE,FN=PRFLO015,OW=LA,ED=999999,TY=S,LR=80,NR=15 20750LOAD,FN=PRFLO015,OW=LA 20760CHEKID 20770 * THE RECOVERY ANALYSIS REPORT WILL BEGIN 20780RECVRY 20790 * THE RECOVERY ANALYSIS REPORT IS COMPLETE 20800MNUPRO 20810/! 20820DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=LA 20830LOAD,FN=PRFRP014,OW=LA 20840CHEKID 20850 ***** PURGE TREND ANALYSIS FILES (LAACCAGE-LARSWFIL) 20860 ***** 20870 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 20880 ***** OR NOT TREND ANALYSIS IS BEING USED. 20890 ***** 20900 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 20910 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 20920 **** 20930 *** 20940CCSPAS 20950 * 20960CMPACC 20970 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 20980MNUPRO 20990/! 21000DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50; 21010OW=LA,VL=CDD03 21020DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=9000,VL=CDD03; 21030OW=LA 21040DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD03; 21050OW=LA 21060DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD03; 21070OW=LA 21080DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD03,OW=LA 21090DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=9000,67  3VL=CDD03,OW=LA 21100DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=9000,VL=SYSVOL,OW=LA 21110DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD03,OW=LA 21120DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1600,NR=100; 21130VL=CDD03,OW=LA 21140DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD03; 21150OW=LA 21160DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=9000,VL=CDD03; 21170OW=LA 21180DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=128,VL=CDD03,OW=LA 21190DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD03,OW=LA 21200DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD03,OW=LA 21210DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=9000; 21220VL=CDD03,OW=LA 21230DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=9000,VL=SYSVOL,OW=LA 21240DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=750,VL=CDD03,OW=LA 21250DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD03,OW=LA 21260LOAD,FN=LADUMMY,OW=LA 21270 21280/! 21290DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD03,OW=LA 21300DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA 21310DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=9000,VL=CDD03,OW=LA 21320DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD03,OW=LA 21330DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD03; 21340OW=LA 21350DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA 21360DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=9000,VL=SYSVOL,OW=LA 21370DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=200,NR=4000,VL=CDD03,OW=LA 21380DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD03,OW=LA 21390DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD03; 21400OW=LA 21410DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=4500,VL=CDD03,OW=LA 21420DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD03,OW=LA 21430DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=CDD03; 21440OW=LA 21450DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA 21460DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=9000,VL=CDD03; 21470OW=LA 21480DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=9000,VL=CDD03; 21490OW=LA 21500DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD03,OW=LA 21510DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA 21520DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA 21530DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=100,VL=CDD03,OW=LA 21540DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD03; 21550OW=LA 21560DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD03,OW=LA 21570EX  3 21580MOVDAT 21590LMOVDT 21600 * THE 24000/9000 ACCOUNT SYSTEM BUILD IS COMPLETE 21610 * 21620 * PROCEED WITH THE INSTALLATION TEST PROCEDURE. 21630 * 21640MNUPRO 21650__ 000000000000000062477 062177072377000000000010752000016836000016836 0000048000 000 0000 02000000 000 01069442912345670SIMONE,DONNA M 9999 Z ST HOME TOWN, USA 9999977755512120000DONNA M SIMONE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001 000000000000000062477 062277050177000000000004950000009450000009450 0000479000 000 4000 05000000 000  3 01078796312345670SPARKS,BARBARA B 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 0001 AL=S $$ 000000000000000061977 0619770830770000000000097130000116650000116601000244912045670GRAHAM,JAMES P 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 7775551212000001106441912345670000000001111102777111100 10002 000000000000000062277 061977061277000000000030353000040170000040170 0000000000 000 00 03000000 000 KLINE 011847 000011000000005500 101577100177 01001355612345670DAVIS,JOAN E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 000000000000000062477 062177072377  3 000000000010752000016836000016836 0000048000 000 0000 02000000 000 01069442912345670SIMONE,DONNA M 9999 Z ST HOME TOWN, USA 9999977755512120000DONNA M SIMONE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001 000000000000000062477 062277050177000000000004950000009450000009450 0000479000 000 4000 05000000 000 01078796312345670SPARKS,BARBARA B 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 0001 ܀  3 000000000000000061977 061977083077000000000009713000011665000011665 0000000002 000 00 02000000 000 01106441912345670SARACO,DOMENICK J 9999 Z ST HOME TOWN, USA 9999977755512120000PELHAM CHURCH GDS 888 ZZZ ST BUSY TOWN, USA 88888 7775551212000001000244912045670000000001111110177111100 10002 000000000000000061977 061977060877000000000021100000031900000031900 0002158000 000 9200 2 05000000 000 01108131012345670ANGREES,RICHARD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 =  33 000000000000000062477 061977091277000000000000651000011056000011056 0000281000 000 0000 02000000 000 01295375712345670OBRIEN,MICHAEL 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 062177051877000000000002168000004279000004279 0002768000 000 0000 2 02000000 000 01315933912345670CONCA,SAM 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001  3G 000000000000000062477 061977101877000000000009033000017939000017939 0000046000 000 0000 03000000 000 01370065312345670FRIEDMAN,GLENN M 9999 Z ST HOME TOWN, USA 9999977755512120000NBO 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000062477 061977041677000000000007030000013600000013600 0000000000 000 00 02000000 000 01473467812345670RAWLS,YVONNE 9999 Z ST HOME TOWN, USA 9999977755512120000AT&T TELEPHONE 888 ZZZ ST BUSY TOWN, USA 88888 777555121Ql  3[20000 0000000001111110477111100 0001 000000000000000062277 061977082677000000000008452000012716000012716 0000000000 000180 00 02000000 000 01499076912345670MAYE,KENNETH E 9999 Z ST HOME TOWN, USA 9999977755512120000BUFFY MOSE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977052877000000000014787000021887000021887 0002148001 000 5600 2 05000000 000 01648842212345670BACHARACH,MARYLEE 9999 Z ST K  3o HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103077111100 0001 000000000000000061977 061977102777000000000013354000023164000023164 0000453003 000 0000 02000000 000 01653605112345670RADIN,DAVID 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102977111100 0004 000000000000000061977 061977090177000000000071859000082338000082338 0000000000 000176 00 02000000 000  3 01737129712345670MCGRATH,PHILIP J 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000062477 062477063077000000000003827000008320000008320 0000229000 000 0000 02000000 000 01744345612345670MAURO,JOHN 9999 Z ST HOME TOWN, USA 9999977755512120000 BRONX BLUE PRINT CO 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000062177 061977051977000000000002429000004210000004210 0000062000 000 0000 02000000 000 J  3 01747473812345670BROOM,ALMA M 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000062477 061977082877000000000000752000007403000007403 0000064000 000 0000 02000000 000 01814064812345670SHEARN,DWIGHT W 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 061977092377000000000003721000005682000005682 0000001000 000 0000 02000000 000 ]  3 01828743212345670LAZO,EDWARD H 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000061977 061977100177000000000016843000033690000033690 0000381001 000 0000 02000000 000 01861267812345670ARRINGTON,WILLIAM H 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 000000000000000062477 062177062877000000000003040000004562000004562 0000140000 000 0000 02000000 000 `  3 01893487612345670SEPULVEDA,JOSEPH A 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 062477042877000000000012491000018860000018860 0000025000 000 0000 02000000 000 01943848712345670MARTINDALE,WINSTON A 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102777111100 0001 000000000000000062277 061977061277000000000013193000020416000020416 0000000000 000 00 02000000 000 p  3 01970264912345670HAIDUCK,NEAL GOODMAN 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 000000000000000062277 061977072377000000000007412000009812000009812 0000506001 000114 7600 05000000 000 02044146812345670RIOS,ANTONIO 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001 000000000000000062177 061977050177000000000000000000000889000000889 0000616000 000 0000 02000000 000 ƶ  3  02072714812345670WIGGINS,MARVIN 9999 Z ST HOME TOWN, USA 9999977755512120000PLYMOUTH THREAD YARN 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 0001 000000000000000061977 061977083077000000000011567000015018000015018 0000000000 000 00 02000000 000 02122625712345670ROSS,ROBERT 9999 Z ST HOME TOWN, USA 9999977755512120000RETIRED 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977060877000000000006162000012186000012186 0000062000 000161 0000 .  3! 02000000 000 02149255912345670AURRICHIO,LOUIS 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000071177 071177091277000000000007464000011341000011341 0000004000 000 0000 03000000 000 02163231712345670GREAVES,FRANKLIN E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 ]  3" 000000000000000061977 061977051877000000000000000000000361000000361 0000270000 000 0000 02000000 000 02309151012345670FOGLIA,MARGUERITE M 9999 Z ST HOME TOWN, USA 9999977755512120000MISERICORDIA HOSP 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111110 0001 000000000000000062477 061977101877000000000005418000008222000008222 0000257000 000 0000 02000000 000 02343848712345670TRIPPI,LORRAINE A 9999 Z ST HOME TOWN, USA 9999977755512120000BELKNAP MORAN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001   3## 000000000000000061977 061977041677000000000000000000000083000000083 0000000000 000108 00 02000000 000 02350420712345670ALLEN,JANET E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111100 0001 000000000000000062177 061977082677000000000001895000003768000003768 0000004000 000 0000 02000000 000 02363415912345670PIDGEON,R V 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 X  3$7 000000000000000071177 071177052877000000000009037000017159000017159 0000296000 000 0000 03000000 000 02365926212345670SMITH,CRAIG G 9999 Z ST HOME TOWN, USA 9999977755512120000COOPER& LYBRAND 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103077111100 10003 000000000000000062477 061977102777000000000037736000057603000057603 0000231000 000 0000 02000000 000 WILKES 122057DODGE 02390238712345670BROOKS,CHARLES E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102977111100 0001 d  3%K 000000000000000062477 062477090177000000000007241000010888000010888 0000628000 000 0000 02000000 000 02394091912345670BRAY,DAVID P 9999 Z ST HOME TOWN, USA 9999977755512120000 CITIBANK 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000061977 061977063077000000000014123000019777000019777 0000137000 000 2000 03000000 000 02414657712345670ELEARY,CORNELIUS 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC  3&_ 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000061977 061977051977000000000000000000007544000007544 0000990000 000 0000 02000000 000 02416933912345670HAWKINS,FREDERIC H 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 7775551212000002414657712345670000000001111102877111100 0002 000000000000000062477 061977082877000000000023043000034768000034768 0000061000 000 0000 03000000 000 ^  3's02437195612345670SAVARESE,RAYMOND D I 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977092377000000000003334000007404000007404 0000030002 000 0000 02000000 000 02482853912345670SOTO,ANGELO E 9999 Z ST HOME TOWN, USA 9999977755512120000DR A MOORE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0002 000000000000000061977 061977100177000000000021273000028173000028173 0002062001 000 8400 2 05000000 000 5  3( 02501744912345670LOZANO,JOSEPHINE M 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 000000000000000062477 062277062877000000000002896000004969000004969 0000118000 000 0000 03000000 000 02502144912345670PETERSON,DELORES P 9999 Z ST HOME TOWN, USA 9999977755512120000BD. OF EDC. 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062277 061977042877000000000013580000018431000018431 0000000000 000 0000 03000000 000 g  3) 02553503612345670MORGAN,EDWARD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102777111100 0001 062277000000000062177 061977061277000000000003676000005345000005345 0000069000 000 0000 02000000 000 02630075612345670CHAMBERS,LLOYD R 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 000000000000000062477 062177072377000000000005921000008775000008775 0000000000 000 00 02000000 000   3* 02673175912345670BALVELT,HAROLD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001 000000000000000071177 071177050177000000000008610000012810000012810 0001282000 000 1200 1 05000000 000 02700075912345670YOUNG,THEODORE D 9999 Z ST HOME TOWN, USA 9999977755512120000TOWN OF GREENBURGH 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111110 0002 000000000000000071177 061977083077000000000029647000039247000039247 0002104000 000 0400 2 05000000 000 k  3+ 02730833212345670BECKER,ROBERT E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977060877000000000000000000015406000015406 0000939002 000 0000 02000000 000 02769921912345670YOUNMANS,JOSEPHINE M 9999 Z ST HOME TOWN, USA 9999977755512120000NY TEL. 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111110 0001 000000000000000061977 061977091277000000000002584000003883000003883 0000004000 000 0000 03000000 000 H  3, 02786345612345670WILLIAMS,RICHARD L 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062177 061977051877000000000012540000016674000016674 0000059000 000 0000 02000000 000 02822822912345670MAYMES,DEMA 9999 Z ST HOME TOWN, USA 9999977755512120000PROVIDENCE HOSP 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 061777000000000061977 061977101877000000000004275000004319000004319 0000000000 000107 00 03000000 000  3- 02827985912345670RANDALL,LEWIS W 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000071177 071177041677000000000006131000009785000009785 0000061000 000 0000 03000000 000 02829906912345670PAGANO,JOHN A 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111100 0001 000000000000000062277 061977082677m  3.000000000020993000030987000030987 0000031000 000 0000 03000000 000 02832195912345670JONES,PATRICIA A 9999 Z ST HOME TOWN, USA 9999977755512120000CITIBANK 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 061977052877000000000000000000000083000000083 0000105000 000 0000 03000000 000 02871642912345670SWEENEY,MARTIN J 9999 Z ST HOME TOWN, USA 9999977755512120000NY POLICE DEPT 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103077111100 0001 0  3/ 000000000000000071177 061977102777000000000000413000010513000010513 0003604001 000 4800 3 05000000 000 02885714812345670GORDIAN,DOMINGO 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102977111100 0001 000000000000000062477 061977090177000000000009256000014678000014678 0000000000 000 0000 02000000 000 02921175712345670HEISS,EDWARD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 h  30' 000000000000000062477 062177063077000000000005856000011003000011003 0000086000 000 0000 02000000 000 03061772212345670MAJOR'S WINE & LIQUOR STORE, 9999 Z ST HOME TOWN, USA 9999977755512120000 MAJORS WINE LIQUOR 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0003 050477000036919061977 061977051977000000000036919000055753000055753 0000002000 000 0000 04000000 000 03080464312345670PREZIOSO,WILLIAM R 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001  31; 000000000000000062477 061977082877000000000000000000000193000000193 0000370000 000 0000 02000000 000 03114757712345670LEE,THOMAS J 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977092377000000000004122000008128000008128 0000098000 000 4000 02000000 000 03149079712345670RODRIGUEZ,NORAH 9999 Z ST HOME TOWN, USA 9999977755512120000GOTHAM DYEING & FINI 888 ZZZ ST BUSY TOWN, USA 88888 777555121PF  32O20000 0000000001111110377111100 0001 000000000000000062277 061977100177000000000000000000001558000001558 0000038000 000 0000 02000000 000 03328985612345670DURHAM,ANGELYNN 9999 Z ST HOME TOWN, USA 9999977755512120000NYC BD ED 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 000000000000000061977 061977062877000000000006301000010407000010407 0000000000 000 0000 02000000 000 03460131712345670WILLIAMS,EDNA MAE 9999 Z ST  33c HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 062277000003360062277 061977042877000000000000032000001506000001506 0000040000 000 0000 02000000 000 03497164812345670BAILEY,GEORGE 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102777111100 0001 000000000000000062277 061977061277000000000000478000002454000002454 0000155000 000 0000 02000000 000  34w 03536933912345670NIESSL,THOMAS 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 000000000000000062277 061977072377000000000001830000003711000003711 0000019002 000 0000 03000000 000 03540191012345670CLARKE,GLADSTONE 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001 000000000000000062477 062477050177000000000001374000001391000001391 0000686000 000 0000 02000000 000 T  35 03596666912345670MODGE,MELVIN 9999 Z ST HOME TOWN, USA 9999977755512120000LOCAL 1888 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 0001 000000000000000061977 061977083077000000000013329000019729000019729 0001936000 000 0400 1 05000000 000 03680741912345670DEMAIO,WALTER M 9999 Z ST HOME TOWN, USA 9999977755512120000BRADFORD SECURLTIES 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977060877000000000009840000014640000014640 0001046001 000 5200 1 05000000 000 @  36 03774755612345670JACKSON,KARL D 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 062177091277000000000003275000005167000005167 0000000000 000 00 02000000 000 03780655612345670CAMPBELL,WILLIE G 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000071177 061977051877000000000007779000017056000017056 0000082000 000 0000 02000000 000 X  37 03788644912345670EADY ,CARNEL G 9999 Z ST HOME TOWN, USA 9999977755512120000NYCTA 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111110 0001 000000000000000071177 061977101877000000000008876000016224000016224 0000000000 000 00 03000000 000 03789241212345670HENRY,MICHELE A 9999 Z ST HOME TOWN, USA 9999977755512120000BROWM BROS. HARRIMAN 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000061977 061977041677000000000008313000013537000013537 0001398000 000 0000 1 02000000 000 K  38 03847151012345670PURSLEY,WILLIE R 9999 Z ST HOME TOWN, USA 9999977755512120000MC CALLS FUNERAL HOM 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111100 0001 000000000000000062477 061977082677000000000005161000005237000005237 0000000000 000 00 02000000 000 03962116612345670BEDICS,JOSEPH F 9999 Z ST HOME TOWN, USA 9999977755512120000ALLCITY INSURANCE SE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977052877000000000000000000000068000000068 0000301000 000 0000 02000000 000 Y  39 03972886312345670FLAMHOLTZ,CARL 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103077111100 0001 061777000000000061977 061977102777000000000002230000004396000004396 0000080003 000 0000 02000000 000 04015786312345670MARTELLO,LAWRENCE 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102977111100 0001 062477000010143062277 061977090177000000000000311000005231000005231 0000000000 000 00 Y  3: 02000000 000 04020131012345670ROBINSON,SHEILA C 9999 Z ST HOME TOWN, USA 9999977755512120000PEOPLES BANK FOR SAV 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111110 0001 000000000000000061977 061977063077000000000005007000009934000009934 0000201000 000 0000 02000000 000 04170476712345670CASALE,JOHN B MD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001  3; 000000000000000071177 071177051977000000000004335000008227000008227 0000074000 000 0000 02000000 000 04180742912345670HUNTER,DONALD 9999 Z ST HOME TOWN, USA 9999977755512120000HUNTER EXCVATINE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111110 0001 000000000000000061977 061977082877000000000012000000024000000024000 0003419000 000 2000 3 05000000 000 04280405812345670MUNOZ,SIGIDFREDO 9999 Z ST HOME TOWN, USA 9999977755512120000WEDGE INN REST 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 Y  3< 051977000012599062277 061977092377000000000012737000017405000017405 0000026000 000 0000 02000000 000 04288075912345670BRONTE,DAVIEL PETER 9999 Z ST HOME TOWN, USA 9999977755512120000NY POLICE DEPT 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000071177 061977100177000000000016959000022359000022359 0000485000 000 4800 05000000 000 04312345612345670VELAZQUEZ,RONALD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001  3=+ 000000000000000062477 062177062877000000000002215000003705000003705 0000514000 000 0000 02000000 000 04312948112345670DIGGS,LAWRENCE JR 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0004 000000000000000061977 061977042877000000000062688000074530000074530 0000000000 000 00 02000000 000 04343959812345670HUNT ,WILLIAM 9999 Z ST HOME TOWN, USA 9999977755512120000N.Y.S.DEPT OF YOUTH 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102777111100 0002 U  3>? 000000000000000062477 061977061277000000000019155000034587000028900 0000172000 000100 0000 02000000 000 04529241912345670COLON,EUGENE 9999 Z ST HOME TOWN, USA 9999977755512120000M.K. COLLECTIONS 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 060377000013928061977 061977061877000000000018595000018428000026325 0000444000 000 4000 05000000 000 04571855612345670SABLO,DONNA P 9999 Z ST HOME TOWN, USA 9999977755512120000VA HOSPTL.  3?S 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 10001 000000000000000062477 061977050177000000000000000000003642000003642 0000099000 000 0000 02000000 000 JOHNSON 032433SAAB 04691231912345670ALEXANDER,SUE C 9999 Z ST HOME TOWN, USA 9999977755512120000NORTH CENTRAL HOSP. 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 10001 061777000002662061977 061977073077000000000002662000005240000005240 0000266000 000 0000 03000000 000 KRICHTER 090949CHEVROLET &  3@g04760442912345670FOOTE,DORIS 9999 Z ST HOME TOWN, USA 9999977755512120000AMERICAN CAN 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977050877000000000015785000023485000023485 0002243000 000 7200 2 05000000 000 04763367812345670O'LOUGHLIN,MICHAEL J K 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 10001 000000000000000062477 062177081277000000000003053000006795000006795 0000008000 000 0000 02000000 000 HILL 021654TOYOTA  3A{ 04790433912345670PARISI,MICHAEL P 9999 Z ST HOME TOWN, USA 9999977755512120000METROPOLITAN LIFE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0004 000000000000000061977 061977041877000000000055226000068876000069876 0000000001 000116 00 03000000 000 04828255912345670MARSHALL,CHARLES 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 000000000000000071177 071177081877000000000005378000006139000008369 0000093000 000 0000 03000000 000 p  3B 04886263912345670HALL,JOYCE 9999 Z ST HOME TOWN, USA 9999977755512120000BRONX LEBANON 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000061977 061977041677000000000006340000012303000009244 0000531000 000 7600 05000000 000 04892018112345670COFFEY,J. ARTHUR 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111110 10001 070777000020701071177 061977082677000000000000200000006845000006845 0000000000 000 00 02000000 000 PIERCE 051344NO AUTO p  3C __CH 0151010000000 01520 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01530COLSTS 01540 * THE DAILY STATISTICS REPORT IS COMPLETE 01550 **** OPERATOR - 01560 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01570 * 01580 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01590CCSPAS 01600INPUT=PRFDC001 01610SWITCH 0162000010000 01630COLSTS 01640 * THIS ROUTINE IS COMPLETE 01650MNUPRO 01660/! 01670DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01680LOAD,FN=PRFDC002,OW=CCS20 01690CHEKID 01700 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01710INPUT=PRFDC002 01720DSORT 01730FN=TRNSFL,CCS20 01740F2=TRNSFL,CCS20, 01750OP=T,F,A 01760KF=A,17,4,A,41,2,A,1,16 01770SL=I 01780 **** OPERATOR - LOAD LETTER PAPER 01790 * CARRIAGE RETURN WHEN READY 01800 * 01810CCSPAS 01820 * THE REQUESTED LETTERS WILL BE PRINTED 01830LTRPRT 01840 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01850 **** OPERATOR - LOAD REGULAR PAPER 01860 * CARRIAGE RETURN WHEN READY 01870 * 01880CCSPAS 01890 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01900LTRSTA 01910 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01920  3DMNUPRO 01930/! 01940DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01950LOAD,FN=PRFDC003,OW=CCS20 01960CHEKID 01970 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01980INPUT=PRFDC003 01990DSORT 02000FN=TRNSFL,CCS20 02010F2=TRNSFL,CCS20, 02020OP=T,F,A 02030KF=A,29,2,A,21,4,D,25,4,D,121,2 02040SL=I 02050ACTADD 02060 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02070MNUPRO 02080/! 02090DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02100LOAD,FN=PRFDC004,OW=CCS20 02110CHEKID 02120 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02130 * CARRIAGE RETURN WHEN READY 02140CCSPAS 02150INPUT=PRFDC004 02160SWITCH 0217010000000 02180 * THE UPDATE TAPE WILL BE PROCESSED 02190UPDATE 02200 * THE UPDATE TAPE HAS BEEN PROCESSED 02210 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02220 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02230 * SCREEN INFORMATION 02240CCSSPC 02250CCSPAS 02260 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02270MNUPRO 02280/! 02290DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02300LOAD,FN=PRFDC005,OW=CCS20 02310CHEKID 02320 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02330 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02340 * CARRIAGE RETURN WHEN READY 02350CCSPAS 02360INPUT=PRFDC005 02370SWITCH 0238010000000 02390UPD400 02400h<  3E * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02410MNUPRO 02420/! 02430DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02440LOAD,FN=PRFDC006,OW=CCS20 02450CHEKID 02460 * THE FINANCIAL UPDATES WILL BE PROCESSED 02470 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02480 * 02490INPUT=PRFDC006 02500MOUNT 02510FTAPE,B,P 02520/* 02530UPD500 02540 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02550MNUPRO 02560/! 02570DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02580LOAD,FN=PRFDC007,OW=CCS20 02590CHEKID 02600 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02610DHUPDT 02620 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02630MNUPRO 02640/! 02650DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02660LOAD,FN=PRFDC008,OW=CCS20 02670CHEKID 02680 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02690 * COLLECTORS ARE OFF-LINE FOR THE DAY 02700MNUPRO 02710/! 02720DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02730LOAD,FN=PRFDC009,OW=CCS20 02740CHEKID 02750 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02760 * COLLECTORS ARE OFF-LINE FOR THE DAY 02770MNUPRO 02780/! 02790DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02800LOAD,FN=PRFDC010,OW=CCS20 02810CHEKID 02820 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02830 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02840 * CARRIAGE RETURN ONLY - TO CONTINUE 02850 * 02860CCSPAS 02870 * 028800  3F * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02890 * 02900INPUT=PRFDC010 02910UTIL 02920CLEAR,FN=TRNSFL 02930EX 02940INPUT=PRFDC010 02950DSORT 02960FN=TRANFL,CCS20 02970F2=TRNSFL,CCS20, 02980OP=T,F,A 02990KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 03000SL=I 03010PRETSR 03020INPUT=PRFDC010 03030UTIL 03040CLEAR,FN=ACTIVE 03050CLEAR,FN=TRANFL 03060CLEAR,FN=TRNBCK 03070EX 03080 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03090NMCHNG 03100RSWCHG 03110INPUT=PRFDC010 03120UTIL 03130CLEAR,FN=ADDACT 03140EX 01737129712345670234384871234567027000759123456703328985612345670402013101234567 MAURO,010002449120456701001355612345670106944291234567010787963123456701106441912345670110813101234567012953757123456701315933912345670137006531234567 0147346781234567 0149907691234567 0164884221234567 0165360511234567 01737129712345670174434561234567017474738123456701814064812345670182874321234567018612678123456701893487612345670194384871234567019702649123456702044146812345670207271481234567021226257123456702149255912345670216323171234567f  3G4ALEXANTALLEN,ANGREEARRINGAURRICBACHAR BAILEY=BALVEL+BECKER-BEDICSGBRAY,D"BRONTENBROOKS!BROOM,CAMPBECCASALEKCHAMBE*CLARKE?COFFEYZCOLON,RCONCA,DAVIS,DEMAIOADIGGS,PDURHAM;EADY ,DELEARY#FLAMHOHFOGLIAFOOTE,UFRIEDM GORDIA5GRAHAMGREAVEHAIDUCHALL,JYHAWKIN$HEISS,6HENRY,EHUNT ,QHUNTERLJACKSOBJONES,3LAZO,ELEE,TH9LOZANO'MAJOR'7MARSHAXMARTELIMARTINMAURO,WIGGINWILLIA/YOUNG,,YOUNMA.017443456123456701747473812345670181406481234567018287432123456701861267812345670189348761234567019438487123456701970264912345670204414681234567020727148123456702122625712345670214925591234567021632317123456702309151012345670234384871234567023504207123456702363415912345670236592621234567 0239023871234567!0239409191234567"0241465771234567#0241693391234567$0243719561234567%0248285391234567&0250174491234567'0250214491234567(0255350361234567)0263007561234567*023504207123456702363415912345670236592621234567 0239023871234567!0239409191234567"0241465771234567#0241693391234567$0243719561234567%0248285391234567&0250174491234567'0250214491234567(0255350361234567)0263007561234567*0267317591234567+0270007591234567,0273083321234567-0276992191234567.0278634561234567/02822822912345670028279859123456710282990691234567202832195912345673028716429123456740288571481234567502921175712345676030617722123456770308046431234567803114757712345679(MAYE,K MAYMES0MCGRATMODGE,@MORGAN)MUNOZ,MNIESSL>O'LOUGVOBRIENPAGANO2PARISIWPETERS(PIDGEOPREZIO8PURSLEFRADIN, RANDAL1RAWLS, RIOS,AROBINSJRODRIG:ROSS,RSABLO,SSARACOSAVARE%SEPULVSHEARNSIMONESMITH, SOTO,A&SPARKSSWEENE4TRIPPIVELAZQOWIGGINWILLIA/WILLIA0354019101234567?0359666691234567@0368074191234567A0377475561234567B0378065561234567C0378864491234567D0378924121234567E0384715101234567F0396211661234567G0397288631234567H 0346013171234567<0349716481234567=0353693391234567>0354019101234567?0359666691234567@0368074191234567A0377475561234567B0378065561234567C0378864491234567D0378924121234567E0384715101234567F0396211661234567G0397288631234567H0401578631234567I0402013101234567J0417047671234567K0418074291234567L0428040581234567M0428807591234567N0431234561234567O0431294811234567P0434395981234567Q0452924191234567R0457185561234567S0469123191234567T0476044291234567U0476336781234567V0479043391234567W0417047671234567K0418074291234567L0428040581234567M0428807591234567N0431234561234567O0431294811234567P0434395981234567Q0452924191234567R0457185561234567S0469123191234567T0476044291234567U0476336781234567V0479043391234567W0482825591234567X0488626391234567Y0489201811234567Z0428040581234567M042880759123di  3H4567N0431234561234567O0431294811234567P0434395981234567Q0452924191234567R0457185561234567S0469123191234567T0476044291234567U0476336781234567V0479043391234567W__OVED TO HISTORY 03870 * REBUILDING INACCT 03880FIXINA 03890 * INACCT REBUILD COMPLETE 03900MNUPRO 03910/! 03920DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03930LOAD,FN=PRFHS002,OW=CCS20 03940CHEKID 03950 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03960 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03970 * CARRIAGE RETURN ONLY - TO CONTINUE 03980 * 03990CCSPAS 04000 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 01737129712345670234384871234567027000759123456703328985612345670402013101234567 MAURO,010002449120456701001355612345670106944291234567010787963123456701106441912345670110813101234567012953757123456701315933912345670137006531234567 0147346781234567 0149907691234567 0164884221234567 0165360511234567 017371297123456701744345612345670174747381234567018140648123456701828743212345670186126781234567018934876123456701943848712345670197026491234567020441468123456702072714812345670212262571234567021492559123456702163231712345674ALEXANTALLEN,ANGREEARRINGAURRICBACHAR BAILEY=BALVEL+BECKER-BEDICSGBRAY,D"BRONTENBROOKS!BROOM,CAMPBECCASALEKCHAMBE*CLARKE?COFFEYZCOLON,RCONCA,DAVIS,DEMAIOADIGGS,PDURHAM;EADY ,DELEARY#FLAMHOHFOGLIAFOOTE,UFRIEDM GORDIA5GRAHAMGREAVEHAIDUCHALL,JYHAWKIN$HEISS,6HENRY,EHUNT ,QHUNTERLJACKSOBJONES,3LAZO,ELEE,TH9LOZANO'MAJOR'7MARSHAXMARTELIMARTINMAURO,WIGGINWILLIA/YOUNG,,YOUNMA.017443456123456701747473812345670181406481234567018287432123456701861267812345670189348761234567019438487123456701970264912345670204414681234567R  3I020727148123456702122625712345670214925591234567021632317123456702309151012345670234384871234567023504207123456702363415912345670236592621234567 0239023871234567!0239409191234567"0241465771234567#0241693391234567$0243719561234567%0248285391234567&0250174491234567'0250214491234567(0255350361234567)0263007561234567*023504207123456702363415912345670236592621234567 0239023871234567!0239409191234567"0241465771234567#0241693391234567$0243719561234567%0248285391234567&0250174491234567'0250214491234567(0255350361234567)0263007561234567*0267317591234567+0270007591234567,0273083321234567-0276992191234567.0278634561234567/02822822912345670028279859123456710282990691234567202832195912345673028716429123456740288571481234567502921175712345676030617722123456770308046431234567803114757712345679(MAYE,K MAYMES0MCGRATMODGE,@MORGAN)MUNOZ,MNIESSL>O'LOUGVOBRIENPAGANO2PARISIWPETERS(PIDGEOPREZIO8PURSLEFRADIN, RANDAL1RAWLS, RIOS,AROBINSJRODRIG:ROSS,RSABLO,SSARACOSAVARE%SEPULVSHEARNSIMONESMITH, SOTO,A&SPARKSSWEENE4TRIPPIVELAZQOWIGGINWILLIA/WILLIA0354019101234567?0359666691234567@0368074191234567A0377475561234567B0378065561234567C0378864491234567D0378924121234567E0384715101234567F0396211661234567G0397288631234567H 0346013171234567<0349716481234567=0353693391234567>0354019101234567?0359666691234567@0368074191234567A0377475561234567B0378065561234567C0378864491234567D0378924121234567E0384715101234567F0396211661234567G0397288631234567H0401578631234567I0402013101234567J0417047671234567K0418074291234567L0428040581234567M0428807591234567N0431234561234567O0431294811234567P0434395981234567Q0452924191234567R0457185561234567S0469123191234567T0476044291234567U0476336781234567V0479043391234567W0417047671234567K0418074291234567L0428040581234567M0428807591234567N0431234561234567O0431294811234567P0434395981234567Q0452924191234567R0457185561234567S0469123191234567T0476044291234567U0476336781234567V0479043391234567W0482825591234567X0488626391234567Y0489201811234567Z0428040581234567M0428807591234567N0431234561234567O0431294811234567P0434395981234567Q0452924191234567R0457185561234567S0469123191234567T0476044291234567U0476336781234567V0479043391234567W__COUNT REVIEW CODE MSCD 02920002A SUPV STAT CODE-NOT USED BY CCS MSDF 09730040A 1 SPECIAL DESCRIPTION FIELD MSLCD 00170001A 0 BORROWERS SALUTATION CODE MSOC 02620009A 0 SOCIAL SECURITY NUMBER MSTC 03060001A 0 ACCOUNT STATUS CODE MSTDT 08570006NY00DATE ACCT LAST UPD BY A/R SYS MSUP 02870004A 0 SUPERVISOR FOR6h  3J/ THIS ACCOUNT MTCD 09630004A 0 ACCOUNT TYPE CODE/PRODUCT TYPE MTD3 09670002N300# TIMES ACCT 30 DAYS DELINQ MTD6 09690002N300# TIMES ACCT 60 DAYS DELINQ MTD9 09710002N300# TIMES ACCT 90 DAYS DELINQ MTHD 10310006NY 0DATE OF TAPE,IF IN HISTORY MTP 09390008A 0 RESERVED FOR FUTURE USE MUPDT 08630006NY 0DATE ACCT LAST UPDATED BY CHG MZP 01280005A 0 BORROWERS ZIP CODE __ 04890 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04900INPUT=PRFMT003 04910UTIL 04920LIST,FN=UTIFIL,L=LPRINTER,F=U 04930EX 04940 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04950 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04960MNUPRO 04970/! 04980DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04990LOAD,FN=PRFMT004,OW=CCS20 05000CHEKID 05010 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BAL'8S $$ 05020 * 05030 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05040MACCT 00010016A 0 ACCOUNT NUMBER MACTFG MACT 03070360A 0 COLLECTOR ACTIVITY BLOCK MACTFG00010001A 0 ACCOUNT TYPE FLAG MADL 02460016A 0 ADDITIONAL ACCOUNT NUMBER MADLQ 08870009TA02AMOUNT DELINQUENT (PAST DUE) MADR1 00480030A 0 BORROWERS ADDRESS LINE 1 MADR2 00780030A 0 BORROWERS ADDRESS LINE 2 MBAD 01770030A 0 BUSINESS ADDRESS MBBR 09500005A 0 BANK BRANCH MBCS 02070020A 0 BUSINESS CITY,STATE MBEX 02420004A 0 BUSINESS PHONE EXTENSION MBFG 02860001A 0 ACCOUNT BUSY FLAG MBNM 01470030A 0 BUSINESS NAME MBPH 02320010A 0 BUSINESS PHONE MBZP 02270005A 0 BUSINESS ZIP CODE MCBAL 08960009TA02CURRENT BALANCE MCCDT 08690006NY00DATE ACCT 1ST APPRS IN CCS SYS MCMN 09380001A 0 NUMBER OF COSIGNERS MCPGD 09140006NY00CURRENT PAYOFF GOOD UNTIL MCS 01080020A 0 BORROWERS CITY, STATE MDLDT 08750006NY00DATE ACCOUNT DELINQUENT FROM MDYDL 10130003N300# OF DAYS ACCOUNT DELINQUENT MEXT 01430004A 0 BORROWERS EXTENSION/COMMENT MLLAT 08480009NC02LAST LETTER REQUEST AMOUNT ܁  3KCMLLDT 08420006NY00LAST LETTER REQUEST DATE MLON 09550008A 0 LOAN OFFICER MNADR 00180116A 0 BORROWERS NAME/ADDR COMBINED MNAM MADR1 MADR2 MCS MZP MNAM 00180030A 0 BORROWERS NAME MNPA 09200009NA02NEXT PAYOFF AMOUNT MNXTC 02750006NY 0NEXT CONTACT DATE MOAMT 09290009NC02OPEN AMOUNT/CREDIT LIMIT MOLNAM10470006A OLD KEY VALUE-NAME CHANGE MOLS 02950001A RESERVED FOR ON-LINE COLECT MOPDT 08810006NY00ACCOUNT OPEN DATE MP1 06670030A 0 PERMANENT COMMENT 1 MP2 06970030A 0 PERMANENT COMMENT 2 MP3 07270030A 0 PERMANENT COMMENT 3 MPAD1 07570030A 0 PREVIOUS ADDRESS 1 MPAD2 07870030A 0 PREVIOUS ADDRESS 2 MPCS 08170020A 0 PREVIOUS CITY,STATE MPDQ 03000006NY00DATE QUEUE CHANGED MPFG 02850001A 0 PROMISE TO PAY FLAG MPHN 01330010A 0 BORROWERS HOME PHONE MPPA 10220009NA02PROMISED TO PAY AMOUNT MPPB 10390002N3 0# OF BROKEN PROM TO PAY MPPCD 10410006NY 0PROMISE TO PAY COMMIT DATE MPPD 10160006NY00PROMISED TO PAY DATE MPPK 10370002N3 0# KEPT PROMISES TO PAY MPQU 02960004A 0 PREVIOUS QUEUE ASSIGNED MPRI 02810004A ACCOUNT PRIORITY CODE MPTS 09470003A 0 CREDIT/POINT SCORE MPYOF 09050009TA02CURRENT PAYOFF/TOTAL DUE MPZC 08370005A 0 PREVIOUS ZIP CODE MQAS 02940001A QUEUE REASSIGN CODE MQUE 02710004A 0 QUEUE ASSIGNED MRCD 02910001A ACCOUNT REVIEW CODE MSCD 02920002A SUPV STAT CODE-NOT USED BY CCS MSDF 09730040A 1 SPECIAL DESCRIPTION FIELD MSLCD 00170001A 0 BORROWERS SALUTATION CODE MSOC 02620009A 0 SOCIAL SECURITY NUMBER MSTC 03060001A 0 ACCOUNT STATUS CODE MSTDT 08570006NY00DATE ACCT LAST UPD BY A/R SYS MSUP 02870004A 0 SUPERVISOR FOR THIS ACCOUNT MTCD 09630004A 0 ACCOUNT TYPE CODE/PRODUCT TYPE MTD3 09670002N300# TIMES ACCT 30 DAYS DELINQ MTD6 09690002N300# TIMES ACCT 60 DAYS DELINQ MTD9 09710002N300# TIMES ACCT 90 DAYS DELINQ MTHD 10310006NY 0DATE OF TAPE,IF IN HISTORY MTP 09390008A 0 RESERVED FOR FUTURE USE MUPDT 08630006NY 0DATE ACCT LAST UPDATED BY CHG MZP 01280005A 0 BORROWERS ZIP CODE __RE,FN=COSIGNER 057605  3LWCOMPRE,FN=ACTFIL 05770EX 05780 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05790MNUPRO 05800/! 05810DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05820LOAD,FN=PRFMT011,OW=CCS20 05830CHEKID 05840 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05850 * WILL BE PRINTED 05860ACTMTN 05870 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05880 * HAS BEEN PRINTED 05890MNUPRO 05900/! 05910DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05920LOAD,FN=PRFMT012,OW=CCS20 05930CHEKID 05940 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05950 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05960 * 05970USEMTN 05980 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05990MNUPRO 06000/! 06010DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 06020LOAD,FN=PRFMT013,OW=CCS20 06030CHEKID 06040 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06050PGLTTB 06060MNUPRO 06070/! 06080DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06090LOAD,FN=PRFMT014,OW=CCS20 06100CHEKID 06110 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06120 * 06130 * THE DATA ELEMENT TABLE WILL BE PRINTED 06140PGLTTB 06150 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06160 * 06170 * THE DATA ELEMENT TABLE WILL BE UPDATED 06180 * 06190 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06200 * 06210INPUT=PRFMT014 06220SWITCH 06230000000000 062405Z  3MkPGUPTB 06250 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06260 * 06270 * THE DATA ELEMENT TABLE WILL BE PURGED 06280INPUT=PRFMT014 06290UTIL 06300DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06310EX 06320PGCMPR 06330INPUT=PRFMT014 06340UTIL 06350DELETE,FN=RPTTBL 06360RENAME,FN=TBLWRK,F2=RPTTBL 06370EX 06380 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06390 * 06400 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06410MNUPRO 06420/! 06430DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06440LOAD,FN=PRFMT015,OW=CCS20 06450CHEKID 06460 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06490PGLIST 06500 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06510 * 06520 * 06530 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06540 * 06550 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06560 * 06570PGPURG 06580INPUT=PRFMT015 06590UTIL 06600COMPRE,FN=RPTPGM 06610EX 06620 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06630 * 06640 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06650PGLIST 06660 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06670 * 06680 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06690MNUPRO 06700/! 06710DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06720  3NLOAD,FN=PRFMT016,OW=CCS20 06730CHEKID 06740 * THE SCREEN FILES WILL BE PRINTED 06750 * D 06760 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06770 * 06780PRTSCN 06790 * THE SCREEN FILES HAVE BEEN PRINTED 06800MNUPRO 06810/! 06820DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06830LOAD,FN=PRFRP001,OW=CCS20 06840CHEKID 06850INPUT=PRFRP001 06860SWITCH 0687010000000 06880 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06890 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06900 * PRINTED 06910DTLLST 06920 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06930MNUPRO 06940/! 06950DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06960LOAD,FN=PRFRP002,OW=CCS20 06970CHEKID 06980INPUT=PRFRP002 06990SWITCH 0700001000000 07010 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 07020 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 07030DTLLST 07040INPUT=PRFRP002 07050UTIL 07060CLEAR,FN=SREQDL 07070EX 07080 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07090MNUPRO 07100/! 07110DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07120LOAD,FN=PRFRP003,OW=CCS20 07130CHEKID 07140 * CALCULATE AGE FOR TREND ANALYSIS 07150TRENDF 07160 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07170 * 07180 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07190INPUT=PRFRP003 07200#  3OUTIL 07210DELETE,FN=AGEWRK 07220EX 07230INPUT=PRFRP003 07240DSORT 07250FN=ACCAGE,CCS20 07260FN=RSWFIL,CCS20 07270F2=AGEWRK,CCS20,SYSVOL 07280OP=T,F,A 07290KF=A,17,4,A,1,1 07300SL=OMIT,35,3,EQ,'RSW' 07310 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07320 * 07330 **** OPERATOR - 07340 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07350 * TREND DATA FOR NEXT RUN 07360 * 07370 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07380 * FOR NEXT RUN 07390CCSPAS 07400TRENDU 07410INPUT=PRFRP003 07420UTIL 07430CLEAR,FN=RSWFIL 07440EX 07450MNUPRO 07460/! 07470DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07480LOAD,FN=PRFRP004,OW=CCS20 07490CHEKID 07500 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07510 * THE AGEWRK FILE IS BEING SORTED 07520INPUT=PRFRP004 07530DSORT 07540FN=AGEWRK,CCS20 07550F2=AGEWRK,CCS20, 07560OP=T,F,A 07570KF=A,17,4,A,1,1 07580SL=OMIT,35,3,EQ,'RSW' 07590 * THE AGEWRK FILE HAS BEEN SORTED 07600 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07610INPUT=PRFRP004 07620SWITCH 0763010000000 07640TRENDP 07650 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07660MNUPRO 07670/! 07680!8  3PDEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07690LOAD,FN=PRFRP005,OW=CCS20 07700CHEKID 07710 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07720 * THE AGEWRK FILE IS BEING SORTED 07730INPUT=PRFRP005 07740DSORT 07750FN=AGEWRK,CCS20 07760F2=AGEWRK,CCS20, 07770OP=T,F,A 07780KF=A,25,4,A,1,1 07790SL=I 07800 * THE AGEWRK FILE HAS BEEN SORTED 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07820INPUT=PRFRP005 07830SWITCH 0784000000000 07850TRENDP 07860 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07870MNUPRO 07880/! 07890DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07900LOAD,FN=PRFRP006,OW=CCS20 07910CHEKID 07920 * THE WRITE-OFF REPORT WILL BE GENERATED 07930 * THE WOEF FILE WILL BE CREATED 07940INPUT=PRFRP006 07950UTIL 07960DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07970EX 07980WRTOFE 07990 * THE WOEF FILE HAS BEEN CREATED 08000 * THE WOEF FILE IS BEING SORTED 08010INPUT=PRFRP006 08020DSORT 08030FN=WOEF,CCS20 08040F2=WOEF,CCS20, 08050OP=T,F,A 08060KF=A,25,1,A,17,4,A,21,4,A,1,16 08070SL=I 08080 * THE WOEF FILE HAS BEEN SORTED 08090 * THE WRITE-OFF REPORT WILL BE PRINTED 08100WRTOFP 08110INPUT=PRFRP006 08120UTIL 08130DELETE,FN=WOEF 08140EX 08150 * THE WRITE-OFF REPORT IS COMPLETE 08160  3QMNUPRO 08170/! 08180DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08190LOAD,FN=PRFRP007,OW=CCS20 08200CHEKID 08210 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08220DALIST 08230 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08240MNUPRO 08250/! 08260DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08270LOAD,FN=PRFRP008,OW=CCS20 08280CHEKID 08290 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08300SUMACL 08310 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08320MNUPRO 08330/! 08340DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08350LOAD,FN=PRFRP009,OW=CCS20 08360CHEKID 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08380INPUT=PRFRP009 08390SWITCH 0840001000000 08410COLSTS 08420 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08430 **** OPERATOR - 08440 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08450 * 08460 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08470CCSPAS 08480INPUT=PRFRP009 08490SWITCH 0850000001000 08510COLSTS 08520MNUPRO 08530/! 08540DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08550LOAD,FN=PRFRP010,OW=CCS20 08560CHEKID 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08580INPUT=PRFRP010 08590SWITCH 0860000100000 08610COLSTS 08620 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08630 **** OPERATOR - 08640X  3R * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08650 * STATISTICS COUNT FILE 08660 * 08670 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08680 * COUNT FILE 08690CCSPAS 08700INPUT=PRFRP010 08710UTIL 08720CLEAR,FN=COLSTATS 08730EX 08740MNUPRO 08750/! 08760DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08770LOAD,FN=PRFCNTRL,OW=CCS20 08780CHEKID 08790 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08800 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08810 * TO ACTIVATE BATCH HOST 08820 * MI, *BATCH,F 08830 * 08840 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08850 * 08860 * CARRIAGE RETURN ONLY - TO CONTINUE 08870CCSPAS 08880 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08890INPUT=PRFCNTRL 08900UTIL 08910DEFINE,FN=RPTWKE,LR=80,NR=1000 08920DEFINE,FN=RPTWKP,LR=80,NR=1000 08930DEFINE,FN=PRCWRK,LR=80,NR=50 08940EX 08950PGGEN 08960 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08970 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08980INPUT=PRFCNTRL 08990UTIL 09000BATCH,FN=RPTWKE,TY=N 09010BATCH,FN=RPTWKP,TY=R 09020DELETE,FN=RPTWKE 09030DELETE,FN=RPTWKP 09040CLEAR,FN=PGEXTR 09050EX 09060PGCNT1 09070 * 09080 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09090 * CARRIAGE RETURN WHEN READY 09100CCSPAS 09110MNUPRO 09120!  3S01737129712345670234384871234567027000759123456703328985612345670402013101234567 MAURO,010002449120456701001355612345670106944291234567010787963123456701106441912345670110813101234567012953757123456701315933912345670137006531234567 0147346781234567 0149907691234567 0164884221234567 0165360511234567 017371297123456701744345612345670174747381234567018140648123456701828743212345670186126781234567018934876123456701943848712345670197026491234567020441468123456702072714812345670212262571234567021492559123456702163231712345674ALEXANTALLEN,ANGREEARRINGAURRICBACHAR BAILEY=BALVEL+BECKER-BEDICSGBRAY,D"BRONTENBROOKS!BROOM,CAMPBECCASALEKCHAMBE*CLARKE?COFFEYZCOLON,RCONCA,DAVIS,DEMAIOADIGGS,PDURHAM;EADY ,DELEARY#FLAMHOHFOGLIAFOOTE,UFRIEDM GORDIA5GRAHAMGREAVEHAIDUCHALL,JYHAWKIN$HEISS,6HENRY,EHUNT ,QHUNTERLJACKSOBJONES,3LAZO,ELEE,TH9LOZANO'MAJOR'7MARSHAXMARTELIMARTINMAURO,WIGGINWILLIA/YOUNG,,YOUNMA.017443456123456701747473812345670181406481234567018287432123456701861267812345670189348761234567019438487123456701970264912345670204414681234567020727148123456702122625712345670214925591234567021632317123456702309151012345670234384871234567023504207123456702363415912345670236592621234567 0239023871234567!0239409191234567"0241465771234567#0241693391234567$0243719561234567%0248285391234567&0250174491234567'0250214491234567(0255350361234567)0263007561234567*023504207123456702363415912345670236592621234567 0239023871234567!0239409191234567"0241465771234567#0241693391234567$0243719561234567%0248285391234567&0250174491234567'0250214491234567(0255350361234567)0263007561234567*0267317591234567+0270007591234567,0273083321234567-0276992191234567.0278634561234567/02822822912345670028279859123456710282990691234567202832195912345673028716429123456740288571481234567502921175712345676030617722123456770308046431234567803114757712345679(MAYE,K MAYMES0MCGRATMODGE,@MORGAN)MUNOZ,MNIESSL>O'LOUGVOBRIENPAGANO2PARISIWPETERS(PIDGEOPREZIO8PURSLEFRADIN, RANDAL1RAWLS, RIOS,AROBINSJRODRIG:ROSS,RSABLO,SSARACOSAVARE%SEPULVSHEARNSIMONESMITH, SOTO,A&SPARKSSWEENE4TRIPPIVELAZQOWIGGINWILLIA/WILLIA0354019101234567?0359666691234567@0368074191234567A0377475561234567B0378065561234567C0378864491234567D0378924121234567E0384715101234567F0396211661234567G0397288631234567H 0346013171234567<0349716481234567=0353693391234567>0354019101234567?0359666691234567@0368074191234567A0377475561234567B0378065561234567C0378864491234567D0378924121234567E0384715101234567F0396211661234567G0397288631234567H0401578631234567I0402013101234567J0417047671234567K0418074291234567L0428040581234567M0428807591234567N0431234561234567O0431294811234567P0434395981234567Q0452924191234567R0457185561234567S0469123191234567T0476044291234567U0476336781234567V0479043391234567W0417047671234567K0418074291234567L0428040581234567M0428807591234567N0431234561234567O0431294811234567P0434395981234567Q0452924191234567R0457185561234567S0469123191234567T0476044291234567U0476336781234567V0479043391234567W0482825591234567X0488626391234567Y0489201811234567Z0428040581234567M0428807591234567N0431234561234567O0431294811234567P0434395981234567Q0452924191234567R0457185561234567S0469123191234567T0476044291234567U0476336781234567V0479043391234567W__COUNT REVIEW CODE MSCD 02920002A SUPV STAT CODE-NOT USED BY CCS MSDF 09730040A 1 SPECIAL DESCRIPTION FIELD MSLCD 00170001A 0 BORROWERS SALUTATION CODE MSOC 02620009A 0 SOCIAL SECURITY NUMBER MSTC 03060001A 0 ACCOUNT STATUS CODE MSTDT 08570006NY00DATE ACCT LAST UPD BY A/R SYS MSUP 02870004A 0 SUPERVISOR FOR THIS ACCOUNT MTCD 09630004A 0 ACCOUNT TYPE CODE/PRODUCT TYPE MTD3 09670002N300# TIMES ACCT 30 DAYS DELINQ MTD6 09690002N300# TIMES ACCT 60 DAYS DELINQ MTD9 09710002N300# TIMES ACCT 90 DAYS DELINQ MTHD 10310006NY 0DATE OF TAPE,IF IN HISTORY MTP 09390008A 0 RESERVED FOR FUTURE USE MUPDT 08630006NY 0DATE ACCT LAST UPDATED BY CHG MZP 01280005A 0 BORROWERS ZIP CODE __ 04890 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04900INPUT=PRFMT003 04910UTIL 04920LIST,FN=UTIFIL,L=LPRINTER,F=U 04930EX 04940 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04950 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04960MNUPRO  3UAL=S $$ 000000000000000061977 0619770830770000000000097130000116650000116601000244912045670GRAHAM,JAMES P 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 7775551212000001106441912345670000000001111102777111100 10002 000000000000000062277 061977061277000000000030353000040170000040170 0000000000 000 00 03000000 000 KLINE 011847 000011000000005500 101577100177 01001355612345670DAVIS,JOAN E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 000000000000000062477 062177072377000000000010752000016836000016836 0000048000 000 0000 02000000 000   3V 01069442912345670SIMONE,DONNA M 9999 Z ST HOME TOWN, USA 9999977755512120000DONNA M SIMONE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001 000000000000000062477 062277050177000000000004950000009450000009450 0000479000 000 4000 05000000 000 01078796312345670SPARKS,BARBARA B 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 0001 000000000000000061977 061977083077000000000009713000011665000011665 0000000002 000 00 02000000 000   3W# 01106441912345670SARACO,DOMENICK J 9999 Z ST HOME TOWN, USA 9999977755512120000PELHAM CHURCH GDS 888 ZZZ ST BUSY TOWN, USA 88888 7775551212000001000244912045670000000001111110177111100 10002 000000000000000061977 061977060877000000000021100000031900000031900 0002158000 000 9200 2 05000000 000 01108131012345670ANGREES,RICHARD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 061977091277000000000000651000011056000011056 0000281000 000 0000 02000000 000 4  3X7 01295375712345670OBRIEN,MICHAEL 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 062177051877000000000002168000004279000004279 0002768000 000 0000 2 02000000 000 01315933912345670CONCA,SAM 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 000000000000000062477 061977101877000000000009033000017939000017939 0000046000 000 0000 03000000 000 å  3YK 01370065312345670FRIEDMAN,GLENN M 9999 Z ST HOME TOWN, USA 9999977755512120000NBO 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000062477 061977041677000000000007030000013600000013600 0000000000 000 00 02000000 000 01473467812345670RAWLS,YVONNE 9999 Z ST HOME TOWN, USA 9999977755512120000AT&T TELEPHONE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111100 0001 000000000000000062277 061977082677000000000008452000012716000012716 0000000000 000180 00 02000000 X  3Z_ 000 01499076912345670MAYE,KENNETH E 9999 Z ST HOME TOWN, USA 9999977755512120000BUFFY MOSE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977052877000000000014787000021887000021887 0002148001 000 5600 2 05000000 000 01648842212345670BACHARACH,MARYLEE 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103077111100 0001 00000006  3[s00000000061977 061977102777000000000013354000023164000023164 0000453003 000 0000 02000000 000 01653605112345670RADIN,DAVID 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102977111100 0004 000000000000000061977 061977090177000000000071859000082338000082338 0000000000 000176 00 02000000 000 01737129712345670MCGRATH,PHILIP J 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 [  3\ 000000000000000062477 062477063077000000000003827000008320000008320 0000229000 000 0000 02000000 000 01744345612345670MAURO,JOHN 9999 Z ST HOME TOWN, USA 9999977755512120000 BRONX BLUE PRINT CO 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000062177 061977051977000000000002429000004210000004210 0000062000 000 0000 02000000 000 01747473812345670BROOM,ALMA M 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 ]V  3] 000000000000000062477 061977082877000000000000752000007403000007403 0000064000 000 0000 02000000 000 01814064812345670SHEARN,DWIGHT W 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 061977092377000000000003721000005682000005682 0000001000 000 0000 02000000 000 01828743212345670LAZO,EDWARD H 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001  3^ 000000000000000061977 061977100177000000000016843000033690000033690 0000381001 000 0000 02000000 000 01861267812345670ARRINGTON,WILLIAM H 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 000000000000000062477 062177062877000000000003040000004562000004562 0000140000 000 0000 02000000 000 01893487612345670SEPULVEDA,JOSEPH A 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUE  3_SY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 062477042877000000000012491000018860000018860 0000025000 000 0000 02000000 000 01943848712345670MARTINDALE,WINSTON A 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102777111100 0001 000000000000000062277 061977061277000000000013193000020416000020416 0000000000 000 00 02000000 000 01970264912345670HAIDUCK,NEAL GOODMAN 9  3`999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 000000000000000062277 061977072377000000000007412000009812000009812 0000506001 000114 7600 05000000 000 02044146812345670RIOS,ANTONIO 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001 000000000000000062177 061977050177000000000000000000000889000000889 0000616000 000 0000 02000000 000  3a 02072714812345670WIGGINS,MARVIN 9999 Z ST HOME TOWN, USA 9999977755512120000PLYMOUTH THREAD YARN 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 0001 000000000000000061977 061977083077000000000011567000015018000015018 0000000000 000 00 02000000 000 02122625712345670ROSS,ROBERT 9999 Z ST HOME TOWN, USA 9999977755512120000RETIRED 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977060877000000000006162000012186000012186 0000062000 000161 0000 02000000 000 (  3b 02149255912345670AURRICHIO,LOUIS 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000071177 071177091277000000000007464000011341000011341 0000004000 000 0000 03000000 000 02163231712345670GREAVES,FRANKLIN E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977051877000000000000000000000361000000361 0000270000 000 0000 02000000 000 5  3c 02309151012345670FOGLIA,MARGUERITE M 9999 Z ST HOME TOWN, USA 9999977755512120000MISERICORDIA HOSP 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111110 0001 000000000000000062477 061977101877000000000005418000008222000008222 0000257000 000 0000 02000000 000 02343848712345670TRIPPI,LORRAINE A 9999 Z ST HOME TOWN, USA 9999977755512120000BELKNAP MORAN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000061977 061977041677000000000000000000000083000000083 0000000000 000108 00 02000000 000 ܻ  3d' 02350420712345670ALLEN,JANET E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111100 0001 000000000000000062177 061977082677000000000001895000003768000003768 0000004000 000 0000 02000000 000 02363415912345670PIDGEON,R V 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000071177 071177052877000000000009037000017159000017159 0000296000 000 0000 03000000 000 <`  3e; 02365926212345670SMITH,CRAIG G 9999 Z ST HOME TOWN, USA 9999977755512120000COOPER& LYBRAND 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103077111100 10003 000000000000000062477 061977102777000000000037736000057603000057603 0000231000 000 0000 02000000 000 WILKES 122057DODGE 02390238712345670BROOKS,CHARLES E 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102977111100 0001 000000000000000062477 062477090177000000000007241000010888000010888 0000628000 000 0000 02000000 000 %  3fO 02394091912345670BRAY,DAVID P 9999 Z ST HOME TOWN, USA 9999977755512120000 CITIBANK 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000061977 061977063077000000000014123000019777000019777 0000137000 000 2000 03000000 000 02414657712345670ELEARY,CORNELIUS 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000061977 061977051977000000000000000000007544000007544 <  3gc0000990000 000 0000 02000000 000 02416933912345670HAWKINS,FREDERIC H 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 7775551212000002414657712345670000000001111102877111100 0002 000000000000000062477 061977082877000000000023043000034768000034768 0000061000 000 0000 03000000 000 02437195612345670SAVARESE,RAYMOND D I 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 j  3hw 000000000000000061977 061977092377000000000003334000007404000007404 0000030002 000 0000 02000000 000 02482853912345670SOTO,ANGELO E 9999 Z ST HOME TOWN, USA 9999977755512120000DR A MOORE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0002 000000000000000061977 061977100177000000000021273000028173000028173 0002062001 000 8400 2 05000000 000 02501744912345670LOZANO,JOSEPHINE M 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001  3i 000000000000000062477 062277062877000000000002896000004969000004969 0000118000 000 0000 03000000 000 02502144912345670PETERSON,DELORES P 9999 Z ST HOME TOWN, USA 9999977755512120000BD. OF EDC. 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062277 061977042877000000000013580000018431000018431 0000000000 000 0000 03000000 000 02553503612345670MORGAN,EDWARD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102777111100 0001 0r  3j 062277000000000062177 061977061277000000000003676000005345000005345 0000069000 000 0000 02000000 000 02630075612345670CHAMBERS,LLOYD R 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 000000000000000062477 062177072377000000000005921000008775000008775 0000000000 000 00 02000000 000 02673175912345670BALVELT,HAROLD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 !  3k 0001 000000000000000071177 071177050177000000000008610000012810000012810 0001282000 000 1200 1 05000000 000 02700075912345670YOUNG,THEODORE D 9999 Z ST HOME TOWN, USA 9999977755512120000TOWN OF GREENBURGH 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111110 0002 000000000000000071177 061977083077000000000029647000039247000039247 0002104000 000 0400 2 05000000 000 02730833212345670BECKER,ROBERT E 9999 Z ST HOME TOWN, USA 9d  3l999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977060877000000000000000000015406000015406 0000939002 000 0000 02000000 000 02769921912345670YOUNMANS,JOSEPHINE M 9999 Z ST HOME TOWN, USA 9999977755512120000NY TEL. 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111110 0001 000000000000000061977 061977091277000000000002584000003883000003883 0000004000 000 0000 03000000 000  3m 02786345612345670WILLIAMS,RICHARD L 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062177 061977051877000000000012540000016674000016674 0000059000 000 0000 02000000 000 02822822912345670MAYMES,DEMA 9999 Z ST HOME TOWN, USA 9999977755512120000PROVIDENCE HOSP 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 061777000000000061977 061977101877000000000004275000004319000004319 0000000000 000107 00 03000000 000 i  3n 02827985912345670RANDALL,LEWIS W 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000071177 071177041677000000000006131000009785000009785 0000061000 000 0000 03000000 000 02829906912345670PAGANO,JOHN A 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111100 0001 000000000000000062277 061977082677000000000020993000030987000030987 0000031000 000 0000 03000000 000 ,  3o 02832195912345670JONES,PATRICIA A 9999 Z ST HOME TOWN, USA 9999977755512120000CITIBANK 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000062477 061977052877000000000000000000000083000000083 0000105000 000 0000 03000000 000 02871642912345670SWEENEY,MARTIN J 9999 Z ST HOME TOWN, USA 9999977755512120000NY POLICE DEPT 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103077111100 0001 000000000000000071177 061977102777000000000000413000010513000010513 0003604001 000 4800 3 05000000 000 n  3p 02885714812345670GORDIAN,DOMINGO 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102977111100 0001 000000000000000062477 061977090177000000000009256000014678000014678 0000000000 000 0000 02000000 000 02921175712345670HEISS,EDWARD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000062477 062177063077000000000005856000011003000011003 0000086000 000 0000 02000000 000 <  3q+ 03061772212345670MAJOR'S WINE & LIQUOR STORE, 9999 Z ST HOME TOWN, USA 9999977755512120000 MAJORS WINE LIQUOR 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0003 050477000036919061977 061977051977000000000036919000055753000055753 0000002000 000 0000 04000000 000 03080464312345670PREZIOSO,WILLIAM R 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000062477 061977082877000000000000000000000193000000193 0000370000 000 0000 02000000 000  3r? 03114757712345670LEE,THOMAS J 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977092377000000000004122000008128000008128 0000098000 000 4000 02000000 000 03149079712345670RODRIGUEZ,NORAH 9999 Z ST HOME TOWN, USA 9999977755512120000GOTHAM DYEING & FINI 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000062277 061977100177000000000000000000001558000001558 0000038000 000 0000 02000000 F  3sS 000 03328985612345670DURHAM,ANGELYNN 9999 Z ST HOME TOWN, USA 9999977755512120000NYC BD ED 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 000000000000000061977 061977062877000000000006301000010407000010407 0000000000 000 0000 02000000 000 03460131712345670WILLIAMS,EDNA MAE 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 0622770y>  3tg00003360062277 061977042877000000000000032000001506000001506 0000040000 000 0000 02000000 000 03497164812345670BAILEY,GEORGE 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102777111100 0001 000000000000000062277 061977061277000000000000478000002454000002454 0000155000 000 0000 02000000 000 03536933912345670NIESSL,THOMAS 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001  3u{ 000000000000000062277 061977072377000000000001830000003711000003711 0000019002 000 0000 03000000 000 03540191012345670CLARKE,GLADSTONE 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 0001 000000000000000062477 062477050177000000000001374000001391000001391 0000686000 000 0000 02000000 000 03596666912345670MODGE,MELVIN 9999 Z ST HOME TOWN, USA 9999977755512120000LOCAL 1888 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 0001  3v 000000000000000061977 061977083077000000000013329000019729000019729 0001936000 000 0400 1 05000000 000 03680741912345670DEMAIO,WALTER M 9999 Z ST HOME TOWN, USA 9999977755512120000BRADFORD SECURLTIES 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977060877000000000009840000014640000014640 0001046001 000 5200 1 05000000 000 03774755612345670JACKSON,KARL D 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001   3w 000000000000000062477 062177091277000000000003275000005167000005167 0000000000 000 00 02000000 000 03780655612345670CAMPBELL,WILLIE G 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000071177 061977051877000000000007779000017056000017056 0000082000 000 0000 02000000 000 03788644912345670EADY ,CARNEL G 9999 Z ST HOME TOWN, USA 9999977755512120000NYCTA 888 ZZZ ST BU6x  3xSY TOWN, USA 88888 77755512120000 0000000001111110277111110 0001 000000000000000071177 061977101877000000000008876000016224000016224 0000000000 000 00 03000000 000 03789241212345670HENRY,MICHELE A 9999 Z ST HOME TOWN, USA 9999977755512120000BROWM BROS. HARRIMAN 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 000000000000000061977 061977041677000000000008313000013537000013537 0001398000 000 0000 1 02000000 000 03847151012345670PURSLEY,WILLIE R 9@  3y999 Z ST HOME TOWN, USA 9999977755512120000MC CALLS FUNERAL HOM 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111100 0001 000000000000000062477 061977082677000000000005161000005237000005237 0000000000 000 00 02000000 000 03962116612345670BEDICS,JOSEPH F 9999 Z ST HOME TOWN, USA 9999977755512120000ALLCITY INSURANCE SE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 000000000000000061977 061977052877000000000000000000000068000000068 0000301000 000 0000 02000000 000 P  3z 03972886312345670FLAMHOLTZ,CARL 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103077111100 0001 061777000000000061977 061977102777000000000002230000004396000004396 0000080003 000 0000 02000000 000 04015786312345670MARTELLO,LAWRENCE 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102977111100 0001 062477000010143062277 061977090177000000000000311000005231000005231 0000000000 000 00 02000000 000 A  3{ 04020131012345670ROBINSON,SHEILA C 9999 Z ST HOME TOWN, USA 9999977755512120000PEOPLES BANK FOR SAV 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111110 0001 000000000000000061977 061977063077000000000005007000009934000009934 0000201000 000 0000 02000000 000 04170476712345670CASALE,JOHN B MD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000071177 071177051977000000000004335000008227000008227 0000074000 000 0000 02000000 000   3| 04180742912345670HUNTER,DONALD 9999 Z ST HOME TOWN, USA 9999977755512120000HUNTER EXCVATINE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111110 0001 000000000000000061977 061977082877000000000012000000024000000024000 0003419000 000 2000 3 05000000 000 04280405812345670MUNOZ,SIGIDFREDO 9999 Z ST HOME TOWN, USA 9999977755512120000WEDGE INN REST 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 051977000012599062277 061977092377000000000012737000017405000017405 0000026000 000 0000 02000000 000 ~  3} 04288075912345670BRONTE,DAVIEL PETER 9999 Z ST HOME TOWN, USA 9999977755512120000NY POLICE DEPT 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110377111100 0001 000000000000000071177 061977100177000000000016959000022359000022359 0000485000 000 4800 05000000 000 04312345612345670VELAZQUEZ,RONALD 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 000000000000000062477 062177062877000000000002215000003705000003705 0000514000 000 0000 02000000 000 c  3~/ 04312948112345670DIGGS,LAWRENCE JR 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0004 000000000000000061977 061977042877000000000062688000074530000074530 0000000000 000 00 02000000 000 04343959812345670HUNT ,WILLIAM 9999 Z ST HOME TOWN, USA 9999977755512120000N.Y.S.DEPT OF YOUTH 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102777111100 0002 000000000000000062477 061977061277000000000019155000034587000028900 0000172000 000100 0000 02000000 000  3C 04529241912345670COLON,EUGENE 9999 Z ST HOME TOWN, USA 9999977755512120000M.K. COLLECTIONS 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111103177111100 0001 060377000013928061977 061977061877000000000018595000018428000026325 0000444000 000 4000 05000000 000 04571855612345670SABLO,DONNA P 9999 Z ST HOME TOWN, USA 9999977755512120000VA HOSPTL. 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110877111100 10001 000000000000000062477 061977050177000000000000000000003642000003642 &  3W0000099000 000 0000 02000000 000 JOHNSON 032433SAAB 04691231912345670ALEXANDER,SUE C 9999 Z ST HOME TOWN, USA 9999977755512120000NORTH CENTRAL HOSP. 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110577111100 10001 061777000002662061977 061977073077000000000002662000005240000005240 0000266000 000 0000 03000000 000 KRICHTER 090949CHEVROLET 04760442912345670FOOTE,DORIS 9999 Z ST HOME TOWN, USA 9999977755512120000AMERICAN CAN 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0001 z  3k 000000000000000061977 061977050877000000000015785000023485000023485 0002243000 000 7200 2 05000000 000 04763367812345670O'LOUGHLIN,MICHAEL J K 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 10001 000000000000000062477 062177081277000000000003053000006795000006795 0000008000 000 0000 02000000 000 HILL 021654TOYOTA 04790433912345670PARISI,MICHAEL P 9999 Z ST HOME TOWN, USA 9999977755512120000METROPOLITAN LIFE 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110177111100 0004 %  3 000000000000000061977 061977041877000000000055226000068876000069876 0000000001 000116 00 03000000 000 04828255912345670MARSHALL,CHARLES 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110277111100 0001 000000000000000071177 071177081877000000000005378000006139000008369 0000093000 000 0000 03000000 000 04886263912345670HALL,JOYCE 9999 Z ST HOME TOWN, USA 9999977755512120000BRONX LEBANON 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111102877111100 0001 3  3 000000000000000061977 061977041677000000000006340000012303000009244 0000531000 000 7600 05000000 000 04892018112345670COFFEY,J. ARTHUR 9999 Z ST HOME TOWN, USA 9999977755512120000BUSY TOWN INC 888 ZZZ ST BUSY TOWN, USA 88888 77755512120000 0000000001111110477111110 10001 070777000020701071177 061977082677000000000000200000006845000006845 0000000000 000 00 02000000 000 PIERCE 051344NO AUTO __CH 0151010000000 01520 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01530COLSTS %  3 01540 * THE DAILY STATISTICS REPORT IS COMPLETE 01550 **** OPERATOR - 01560 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01570 * 01580 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01590CCSPAS 01600INPUT=PRFDC001 01610SWITCH 0162000010000 01630COLSTS 01640 * THIS ROUTINE IS COMPLETE 01650MNUPRO 01660/! 01670DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01680LOAD,FN=PRFDC002,OW=CCS20 01690CHEKID 01700 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01710INPUT=PRFDC002 01720DSORT 01730FN=TRNSFL,CCS20 01740F2=TRNSFL,CCS20, 01750OP=T,F,A 01760KF=A,17,4,A,41,2,A,1,16 01770SL=I 01780 **** OPERATOR - LOAD LETTER PAPER 01790 * CARRIAGE RETURN WHEN READY 01800 * 01810CCSPAS 01820 * THE REQUESTED LETTERS WILL BE PRINTED 01830LTRPRT 01840 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01850 **** OPERATOR - LOAD REGULAR PAPER 01860 * CARRIAGE RETURN WHEN READY 01870 * 01880CCSPAS 01890 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01900LTRSTA 01910 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01920MNUPRO 01930/! 01940DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01950LOAD,FN=PRFDC003,OW=CCS20 01960CHEKID 01970 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01980INPUT=PRFDC003 01990DSORT 02000FN=TRNSFL,CCS20 02010F2=TRNSFL,CCS20, 2  3 02020OP=T,F,A 02030KF=A,29,2,A,21,4,D,25,4,D,121,2 02040SL=I 02050ACTADD 02060 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02070MNUPRO 02080/! 02090DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02100LOAD,FN=PRFDC004,OW=CCS20 02110CHEKID 02120 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02130 * CARRIAGE RETURN WHEN READY 02140CCSPAS 02150INPUT=PRFDC004 02160SWITCH 0217010000000 02180 * THE UPDATE TAPE WILL BE PROCESSED 02190UPDATE 02200 * THE UPDATE TAPE HAS BEEN PROCESSED 02210 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02220 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02230 * SCREEN INFORMATION 02240CCSSPC 02250CCSPAS 02260 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02270MNUPRO 02280/! 02290DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02300LOAD,FN=PRFDC005,OW=CCS20 02310CHEKID 02320 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02330 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02340 * CARRIAGE RETURN WHEN READY 02350CCSPAS 02360INPUT=PRFDC005 02370SWITCH 0238010000000 02390UPD400 02400 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02410MNUPRO 02420/! 02430DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02440LOAD,FN=PRFDC006,OW=CCS20 02450CHEKID 02460 * THE FINANCIAL UPDATES WILL BE PROCESSED 02470 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02480 * 02490INPUT=PRFDC006 O  3 02500MOUNT 02510FTAPE,B,P 02520/* 02530UPD500 02540 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02550MNUPRO 02560/! 02570DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02580LOAD,FN=PRFDC007,OW=CCS20 02590CHEKID 02600 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02610DHUPDT 02620 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02630MNUPRO 02640/! 02650DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02660LOAD,FN=PRFDC008,OW=CCS20 02670CHEKID 02680 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02690 * COLLECTORS ARE OFF-LINE FOR THE DAY 02700MNUPRO 02710/! 02720DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02730LOAD,FN=PRFDC009,OW=CCS20 02740CHEKID 02750 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02760 * COLLECTORS ARE OFF-LINE FOR THE DAY 02770MNUPRO 02780/! 02790DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02800LOAD,FN=PRFDC010,OW=CCS20 02810CHEKID 02820 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02830 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02840 * CARRIAGE RETURN ONLY - TO CONTINUE 02850 * 02860CCSPAS 02870 * 02880 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02890 * 02900INPUT=PRFDC010 02910UTIL 02920CLEAR,FN=TRNSFL 02930EX 02940INPUT=PRFDC010 02950DSORT 02960FN=TRANFL,CCS20 02970F2=TRNSFL,CCS20, 3qf 01078786312345670164884221234567018287432123456702437195612345670287164291234567035369339123456703972886312345670479043391234567ALqS $$ 0176016720210352 CLIENT HISTORY YEAR- MNTH 11 0177017010311272 # OF ACCSRA1A2A3A4******************************************************BZPPR1R2R3R4 **************************************************A@ AID-IN-FULL- MNTH 12 0182017330711602 U 3qALqS $$ 2 AMT OF ACCTS PLACED- MNTH 7 0114012130706992 AMT COLLECTED - MNTH 7 0115012210307082 0107878631234567 MASTERS,JAMES 156 APPLETON WAY JAMESTOWN, PA 32233 0164884221234567 BACH,JANET COIN,MARY MARTEN,MAGERET 0182874321234567 POTTER,CRAIG 0243719561234567 SWEENEY,ARTHUR SAVER (COSIGNER 2) 0287164291234567 SWEENEY,DELORES 0353693391234567 NETTLES,BOB LOSITER,NORRIS 0397288631234567 FLAMINGO,ROBERTO STEINMAN,HORACE MONAGUE,FLORRIE 0479043391234567 PARIS,PETER __ # OF ACCTS PLACED- MNTH 10 0152015050709542 AMT OF ACCTS PLACED- MNTH 10 0153015130709632 AMT COLLECTED - MNTH 10 0154015210309722 # OF PAID-IN-FULL- MNTH 10 0155015250709752 AMT OF PAID-IN-FULL- MNTH 10 01560 3 {MNAM MACCT MACT MACTFGMADL MADLQ MADR1 MADR2 MBAD MBBR MBCS MBEX MBFG MBNM MBPH MBZP MCBAL MCCDT MCMN MCPGD MCS MDLDT MDYDL MEXT MLLAT MLLDT MLON MNADR MNAM MNPA MNXTC MOAMT MOLNAM MOLS !MOPDT "MP1 #MP2 $MP3 %MPAD1 &MPAD2 'MPCS (MPDQ )MPFG *MPHN +MPPA ,MPPB -MPPCD .MPPD /MPPK 0MPQU 1MPRI 2MPTS 3MPYOF 4MPZC 5MQAS 6MQUE 7,MNPA MNXTC MOAMT MOLNAM MOLS !MOPDT "MP1 #MP2 $MP3 %MPAD1 &MPAD2 'MPCS (MPDQ )MPFG *MPHN +MPPA ,MPPB -MPPCD .MPPD /MPPK 0MPQU 1MPRI 2MPTS 3MPYOF 4MPZC 5MQAS 6MQUE 7MRCD 8MSCD 9MSDF :MSLCD ;MSOC MSUP ?MTCD @MTD3 AMTD6 BMTD9 CMTHD DMTP EMUPDT FMZP GMPPA ,MPPB -MPPCD .MPPD /MPPK 0MPQU 1MPRI 2MPTS 3MPYOF 4MPZC 5MQAS 6MQUE 7__ 03100RSWCHG 03110INPUT=PRFDC010 03120UTIL 03130CLEAR,FN=ADDACT 03140EX 03150MNUPRO 03160/! 38AL'8S $$ 05020 * 05030 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05040MACCT 00010016A 0 ACCOUNT NUMBER MACTFG MACT 03070360A 0 COLLECTOR ACTIVITY BLOCK MACTFG00010001A 0 ACCOUNT TYPE FLAG MADL 02460016A 0 ADDITIONAL ACCOUNT NUMBER MADLQ 08870009TA02AMOUNT DELINQUENT (PAST DUE) MADR1 00480030A 0 BORROWERS ADDRESS LINE 1 MADR2 00780030A 0 BORROWERS ADDRESS LINE 2 MBAD 01770030A 0 BUSINESS ADDRESS MBBR 09500005A 0 BANK BRANCH MBCS 02070020A 0 BUSINESS CITY,STATE MBEX 02420004A 0 BUSINESS PHONE EXTENSION MBFG 02860001A 0 ACCOUNT BUSY FLAG MBNM 01470030A 0 BUSINESS NAME MBPH 02320010A 0 BUSINESS PHONE MBZP 02270005A 0 BUSINESS ZIP CODE MCBAL 08960009TA02CURRENT BALANCE MCCDT 08690006NY00DATE ACCT 1ST APPRS IN CCS SYS MCMN 09380001A 0 NUMBER OF COSIGNERS MCPGD 09140006NY00CURRENT PAYOFF GOOD UNTIL MCS 01080020A 0 BORROWERS CITY, STATE MDLDT 08750006NY00DATE ACCOUNT DELINQUENT FROM MDYDL 10130003N300# OF DAYS ACCOUNT DELINQUENT MEXT 01430004A 0 BORROWERS EXTENSION/COMMENT MLLAT 08480009NC02LAST LETTER REQUEST AMOUNT MLLDT 08420006NY00LAST LETTER REQUEST DATE MLON 09550008A 0 LOAN OFFICER MNADR 00180116A 0 BORROWERS NAME/ADDR COMBINED MNAM MADR1 MADR2 MCS MZP MNAM 00180030A 0 BORROWERS NAME MNPA 09200009NA02NEXT PAYOFF AMOUNT MNXTC 02750006NY 0NEXT CONTACT DATE MOAMT 09290009NC02OPEN AMOUNT/CREDIT LIMIT MOLNAM10470006A OLD KEY VALUE-NAME CHANGE MOLS 02950001A RESERVED FOR ON-LINE COLECT MOPDT 08810006NY00ACCOUNT OPEN DATE MP1 06670030A 0 PERMANENT COMMENT 1 MP2 06970030A 0 PERMANENT COMMENT 2 MP3 07270030A 0 PERMANENT COMMENT 3 MPAD1 07570030A 0 PREVIOUS ADDRESS 1 MPAD2 07870030A 0 PREVIOUS ADDRESS 2 MPCS 08170020A 0 PREVIOUS CITY,STATE MPDQ 03000006NY00DATE QUEUE CHANGED MPFG 02850001A 0 PROMISE TO PAY FLAG MPHN 01330010A 0 BORROWERS HOME PHONE MPPA 10220009NA02PROMISED TO PAY AMOUNT MPPB 10390002N3 0# OF BROKEN PROM TO PAY MPPCD 10410006NY 0PROMISE TO PAY COMMIT DATE }  3L MPPD 10160006NY00PROMISED TO PAY DATE MPPK 10370002N3 0# KEPT PROMISES TO PAY MPQU 02960004A 0 PREVIOUS QUEUE ASSIGNED MPRI 02810004A ACCOUNT PRIORITY CODE MPTS 09470003A 0 CREDIT/POINT SCORE MPYOF 09050009TA02CURRENT PAYOFF/TOTAL DUE MPZC 08370005A 0 PREVIOUS ZIP CODE MQAS 02940001A QUEUE REASSIGN CODE MQUE 02710004A 0 QUEUE ASSIGNED MRCD 02910001A ACCOUNT REVIEW CODE MSCD 02920002A SUPV STAT CODE-NOT USED BY CCS MSDF 09730040A 1 SPECIAL DESCRIPTION FIELD MSLCD 00170001A 0 BORROWERS SALUTATION CODE MSOC 02620009A 0 SOCIAL SECURITY NUMBER MSTC 03060001A 0 ACCOUNT STATUS CODE MSTDT 08570006NY00DATE ACCT LAST UPD BY A/R SYS MSUP 02870004A 0 SUPERVISOR FOR THIS ACCOUNT MTCD 09630004A 0 ACCOUNT TYPE CODE/PRODUCT TYPE MTD3 09670002N300# TIMES ACCT 30 DAYS DELINQ MTD6 09690002N300# TIMES ACCT 60 DAYS DELINQ MTD9 09710002N300# TIMES ACCT 90 DAYS DELINQ MTHD 10310006NY 0DATE OF TAPE,IF IN HISTORY MTP 09390008A 0 RESERVED FOR FUTURE USE MUPDT 08630006NY 0DATE ACCT LAST UPDATED BY CHG MZP 01280005A 0 BORROWERS ZIP CODE __RE,FN=COSIGNER 05760COMPRE,FN=ACTFIL 05770EX 05780 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05790MNUPRO 05800/! 05810DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05820LOAD,FN=PRFMT011,OW=CCS20 05830CHEKID 05840 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05850 * WILL BE PRINTED 05860ACTMTN 05870 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05880 * HAS BEEN PRINTED 05890MNUPRO 05900/! 05910DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05920LOAD,FN=PRFMT012,OW=CCS20 05930CHEKID 05940 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05950 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05960 * 05970USEMTN  3` 05980 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05990MNUPRO 06000/! 06010DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 06020LOAD,FN=PRFMT013,OW=CCS20 06030CHEKID 06040 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06050PGLTTB 06060MNUPRO 06070/! 06080DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06090LOAD,FN=PRFMT014,OW=CCS20 06100CHEKID 06110 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06120 * 06130 * THE DATA ELEMENT TABLE WILL BE PRINTED 06140PGLTTB 06150 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06160 * 06170 * THE DATA ELEMENT TABLE WILL BE UPDATED 06180 * 06190 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06200 * 06210INPUT=PRFMT014 06220SWITCH 06230000000000 06240PGUPTB 06250 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06260 * 06270 * THE DATA ELEMENT TABLE WILL BE PURGED 06280INPUT=PRFMT014 06290UTIL 06300DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06310EX 06320PGCMPR 06330INPUT=PRFMT014 06340UTIL 06350DELETE,FN=RPTTBL 06360RENAME,FN=TBLWRK,F2=RPTTBL 06370EX 06380 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06390 * 06400 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06410MNUPRO 06420/! 06430DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06440LOAD,FN=PRFMT015,OW=CCS20 06450CHEKID r  3t 06460 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06490PGLIST 06500 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06510 * 06520 * 06530 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06540 * 06550 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06560 * 06570PGPURG 06580INPUT=PRFMT015 06590UTIL 06600COMPRE,FN=RPTPGM 06610EX 06620 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06630 * 06640 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06650PGLIST 06660 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06670 * 06680 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06690MNUPRO 06700/! 06710DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06720LOAD,FN=PRFMT016,OW=CCS20 06730CHEKID 06740 * THE SCREEN FILES WILL BE PRINTED 06750 * D 06760 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06770 * 06780PRTSCN 06790 * THE SCREEN FILES HAVE BEEN PRINTED 06800MNUPRO 06810/! 06820DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06830LOAD,FN=PRFRP001,OW=CCS20 06840CHEKID 06850INPUT=PRFRP001 06860SWITCH 0687010000000 06880 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06890 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06900 * PRINTED 06910DTLLST 06920 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06930MNUPRO y  3qALqS $$ 0176016720210352 CLIENT HISTORY YEAR- MNTH 11 0177017010311272 # OF ACCSRA1A2A3A4******************************************************BZPPR1R2R3R4 **************************************************A@ AID-IN-FULL- MNTH 12 0182017330711602 ALRqS $$ - MNTH 12 0183017410311692 # OF ACCTS CLOSED- MNTH 12 0184017450711722 AMT OF ACCTS CLOSED- MNT 3r&f0001000200030004ACTCDALTHDR1HDR2HDR3LTR1LTR2LTRF OLPM RESCRPTGRSW1SALCSMTH TMTH UPDY __S 03510013218 0FINANCIAL HISTORY 03520030109 0ACCT NAME 03530031230 182 ACCT NAME 03540035706 0ACCT # 03550036416 12 03560040109 0ACCT TYPE 03570041204 9632 ACCT TYP5 3qALRqS $$ - MNTH 12 0183017410311692 # OF ACCTS CLOSED- MNTH 12 0184017450711722 AMT OF ACCTS CLOSED- MNTHDR1CYBER CREDIT SYSTEM HDR2VERSION 3.0 HDR3SYSTEM VERIFICATION RSW1R010,S015,W005 ACTCA1A2A3A4SR****************************************************** RESC BZPPR1R2R3R4************************************************** SALCMR MS MISS MRS DALT005 LTRF0COLLECTION DEPT SMTHR006,S006,W006 TMTH012 UPDY015 OLPMRL06,P02,C31,NAN RPTG RPT001 0002GARRET P32225551200 412100030002,ALL 0003SHERMAN H12225551119 2 0003,ALL 0004BEASON S22225551200 430000030004,ALL 0001LOWE M12225551115 1000300010002,ALL LTR10102** LTR2 __ 02050012824 0BORROWER'S CHANGE SCREEN 02060030109 0ACCT NAME 02070031430 182 BORROWER'S NAME 02080035206 0ACCT # 02090036016 12 ACCT # 02100040111 0LAST CHANGE 02110041406 8631 LAST CHANGE 02120055108 0PREVIOUS 02130060115 801 HOME ADDR 1 02140061930 482 HOME ADDR 1 0215006513007572 PREVIOUS ADDRESS LINE 1 02160070115 802 HOME ADDR 2 02170071930 782 HOME ADDR 2 0218007513007872 PREVIOUS ADDRESS LINE 2 02190080115 803 CITY, STATE 02200081920 1082 CITY, STATE 0221008512008172 PREVIOUS CITY/STATE 02220090115 804 HOME ZIP 02230091905 1282 ZIP 0224009510508372 PREVIOUS ZIP 02250100115 805 HOME PHONE 02260101910 1334 PHONE # 02270110115 806 HOME EXT 02280111904 1432 EXT 02290120115 807 BUS NAME 02300121930 1472 m  3q BUS NAME 02310130115 808 BUS ADDR 02320131930 1772 BUS ADDR 02330140115 809 CITY, STATE 02340141920 2072 CITY,STATE 02350150115 810 BUS ZIP 02360151905 2272 ZIP 02370160115 811 BUS PHONE 02380161910 2324 BUS PHONE 02390170111 812 BUS EXT 02400171904 2422 BUS EXT 02410230140 0ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC 02420234140 0TION,RESULT,LETTER REQUEST,COMMENT 02430END 0244035******************SUPERVISOR SCREEN 02450012726 0SUPERVISOR'S CHANGE SCREEN 02460030109 0ACCT NAME 02470031830 182 ACCT NAME 02480035409 0ACCT # 02490036516 12 ACCT # 02500040110 0CURR QUEUE 02510041804 2712 CURR QUEUE 02520045410 0AMT DELQ 02530046509 8873 AMT DELQ 02540050115 0LAST QUEUE CHNG 02550051806 3001 LAST QUEUE CHNG 02560055409 0DELQ DATE 02570056506 8751 DELQ DATE 02580060111 0CURR CLIENT 0259006180410722 CURR CLIENT 02600065411 0PREV CLIENT 0261006660412292 PREV CLIENT 02620091519 801 REASSIGN CLIENT 0263009390413822 REASSIGN CLIENT 02640101522 802 NEXT CONTACT DATE 02650103906 2751 NEXT CONTACT DATE 02660111520 803 PRIORITY CODE 02670113904 2812 PRIORITY CODE 02680121522 804 SUPV FOR THIS ACCT 02690123904 2872 SUPV FOR ACCT 02700131522 805 SUPV STATUS CODE 02710133902 2922 STATUS CODE 02720141522 806 QUEUE REASSIGN CODE 02730143901 2942 REASSIGN CODE 02740151522 807 ACCT REVIEW CODE 02750153901 2912 REVIEW CODE 02760161513 808 PP AMOUNT 0277016390910223 PROMISED TO PAY AMOUNT - CHECKOUT!!02780230140 0ENTER ITEM,CHANGE OR k  3 _AL _S $$ 00850093904 2712 QUEUE ID 00860095410 0PREV QUEUE 33******************BORROWER'S CHANGE SCREEN 00010012824 0BORROWER'S CHANGE SCREEN 00020030109 0ACCT NAME 00030031430 182 BORROWER'S NAME 00040035206 0ACCT # 00050036016 12 ACCT # 00060040111 0LAST CHANGE 00070041408 8631 LAST CHANGE 00080055108 0PREVIOUS 00090060115 801 HOME ADDR 1 00100061930 482 HOME ADDR 1 0011006513007572 PREVIOUS ADDRESS LINE 1 00120070115 802 HOME ADDR 2 00130071930 782 HOME ADDR 2 0014007513007872 PREVIOUS ADDRESS LINE 2 00150080115 803 CITY, STATE 00160081920 1082 CITY, STATE 0017008512008172 PREVIOUS CITY/STATE 00180090115 804 HOME ZIP 00190091905 1282 ZIP 0020009510508372 PREVIOUS ZIP 00210100115 805 HOME PHONE 00220101910 1334 PHONE # 00230110115 806 HOME EXT 00240111904 1432 EXT 00250120115 807 BUS NAME 00260121930 1472 BUS NAME 00270130115 808 BUS ADDR 00280131930 1772 BUS ADDR 00290140115 809 CITY, STATE 00300141920 2072 CITY,STATE 00310150115 810 BUS ZIP 00320151905 2272 ZIP 00330160115 811 BUS PHONE 00340161910 2324 BUS PHONE 00350170111 812 BUS EXT 00360171904 2422 BUS EXT 00370180116 813 MO MAID NAME 0037118193010572 MAIDEN NAME 00372190113 814 BIRTHDATE 0037319190610871 DATE OF BIRTH 00374200116 815 MAKE OF AUTO 0037520191010932 MAKE OF AUTO 00376230140 0ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC 00440234140 0TION,RESULT,LETTER REQUEST,COMMENT 00450END   3 s 0046002******************COLLECTION ACTIVITY SCREEN 00470012020 0COLLECTION ACTIVITY 00480030110 0ACCT NAME 00490031230 182 ACCT NAME 00500035013 0ACCT # 00510036516 012 ACCT # 00520040109 0AMT DELQ 00530041209 8873 AMT DELQ 00540045013 0LAST LTR DATE 00550046506 8421 LAST LRT DATE 00560050109 0DELQ DATE 00570051206 8751 DELQ DATE 00580055013 0LAST LTR AMT 00590056509 8483 LAST LRT AMT 00600070115 0PERM COMMENT 1: 00610072130 6672 COMMENT 1 00620080115 0PERM COMMENT 2: 00630082130 6972 COMMENT 2 00640090115 0PERM COMMENT 3: 00650092130 7272 COMMENT 3 00660110117 0CONTACT AC RS LR 00670120131 0 DATE CD CD CD COLL COMMENTS 00680130180 5 AC RS LR COMMENTS 00690END 0070035******************SUPERVISOR SCREEN 00710012726 0SUPERVISOR'S CHANGE SCREEN 00720030109 0ACCT NAME 00730031830 182 ACCT NAME 00740035409 0ACCT # 00750036516 12 ACCT # 00760040110 0CURR QUEUE 00770041804 2712 CURR QUEUE 00780045410 0AMT DELQ 00790046510 8873 AMT DELQ 00800050115 0LAST QUEUE CHNG 00810051806 3001 LAST QUEUE CHNG 00820055409 0DELQ DATE 00830056506 8751 DELQ DATE 00840091522 801 QUEUE ID 00850093904 2712 QUEUE ID 00860095410 0PREV QUEUE 00870096504 2962 PREV QUEUE 00880101522 802 NEXT CONTACT DATE 00890103906 2751 NEXT CONTACT DATE 00900111520 803 PRIORITY CODE 00910113904 2812 PRIORITY CODE 00920121522 804 SUPV FOR THIS ACCT 00930123904 2872 SUPV F  3 OR ACCT 00940131522 805 SUPV STATUS CODE 00950133902 2922 STATUS CODE 00960141522 806 QUEUE REASSIGN CODE 00970143901 2942 REASSIGN CODE 00980151522 807 ACCT REVIEW CODE 00990153901 2912 REVIEW CODE 01000161513 808 PP AMOUNT 0101016390910223 PROMISED TO PAY AMOUNT - CHECKOUT!!01020230140 0ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC 01030234140 0TION,RESULT,LETTER REQUEST,COMMENT 01040END 0105010******************ACCOUNT MASTER SCREEN 01060012825 0BORROWER'S MASTER SCREEN 01070020511 0SUPV ACCT # 01080021704 2872 SP ACCT # 01090026504 0TIME 01100027104 7 TIME 01110040130 182 BORROWER'S NAME 01120043407 0QUEUE # 01130044704 2712 QUEUE # 01140045406 0ACCT # 01150046516 12 ACCT # 01160050130 482 HOME ADDR 1 01170053411 0POINT SCORE 01180054803 9472 POINT SCORE 01190055408 0AMT DELQ 01200057109 8873 AMT DELQ 01210060130 782 HOME ADDR 2 01220063409 0ACCT TYPE 01230064604 9632 ACCT TYPE 01240065409 0DELQ DATE 01250067306 8751 DELQ DATE 01260070120 1082 CITY,STATE 1 01270072605 1282 ZIP 01280073409 0STATUS CD 01290075001 3062 STATUS CD 01300075408 0PREV QUE 01310077704 2962 PREV QUE 01320080106 0HOME # 01330080810 1334 HOME # 01340083408 0PP FLAG 01350085001 2852 PP FLAG 01360085408 0PRIORITY 01370087704 2812 01380090106 0SAL CD 01390090801 172 SAL CD 01400095412 0NEXT CONTACT 01410097306 2751 NEXT CONhy  3 TACT 01420110130 1472 BUS NAME 01430113410 0SOC SEC # 01440114709 2626 SOC SEC # 01450120130 1772 BUS ADDR 01460123410 0ADL ACCT # 01470124716 2462 ADL ACCT # 01480130120 2072 CITY, STATE 01490132605 2272 ZIP 01500133410 0SAV ACCT # 01510140106 0WORK # 01520140810 2324 WORK # 01530142303 0EXT 01540142704 2422 EXT 01550143410 0CK ACCT # 01560153410 0ENTRY DATE 01570154706 8691 ENTRY DATE 01580160115 0NUMBER COSIGNER 01590161801 9382 COSIGNER 01600163411 0LAST UPDATE 01610164706 8631 LAST UPDATE 01620173415 0PERM COMMENT 1: 01630175130 6672 COMMENT 1 01640183415 0PERM COMMENT 2: 01650185130 6972 COMMENT 2 01660193415 0PERM COMMENT 3: 01670195130 7272 COMMENT 3 01680190115 0LAST ACTIVITY 01690200328 0DATE AC RS LT COLL COMMENT 017002101 9 MOST RECENT COLLECTION ACTIVITY 01710230140 0PLEASE ENTER NEXT FUNCTION OR ACTION,RES 01720234140 0ULT,LETTER REQUEST,COMMENT 01730END 0174020******************FINANCIAL SCREENS 01750013218 0FINANCIAL HISTORY 01760030109 0ACCT NAME 01770031230 182 ACCT NAME 01780035706 0ACCT # 01790036416 12 01800040109 0ACCT TYPE 01810041204 9632 ACCT TYPE 01820050109 0LOAN OFF 01830051208 9552 LOAN OFF 01840060115 0SPEC DESC FIELD 01850061840 9732 DESC FIELD 01860065915 0PAYMENT HISTORY 01861075617 0AMOUNT DATE 01862080110 0AMT DELQ 01870081409 8873 AMT DELQC  3  01880083310 0OPEN DATE 01890084706 8811 OPEN DATE 0190008560911033 LAST PAYMENT 0190108690611391 LAST PAYMENT DATE 01902090110 0DELQ DATE 01910091606 8751 DELQ DATE 01920093311 0OPEN AMOUNT 01930094509 9293 OPEN AMOUNT 0194009560911123 PERV PAYMENT 1 0194109690611451 PREV PMT DT 1 01942100111 0LAST UPDATE 01950101606 8571 LAST UPDATE 01960103312 0CUR BALANCE 01970104509 8963 CURR BALANCE 0198010560911213 PREV PMT 2 0198110690611511 PREV PMT DT 2 01982110111 0ENTRY DATE 01990111606 8691 ENTRY DATE 02000113311 0CUR PAYOFF 020101145 9 9053 CUR PAYOFF 0202011560911303 PREV PMT 3 0202111690611571 PREV PMT DT3 02022130116 0TIMES DELINQUENT 02030133322 0PROMISED TO PAY FIELDS 02040140107 030 DAYS 02050141402 9672 30 DAYS 02060143304 0FLAG 0207014510102852 PROMISED TO PAY FLAG 02080150107 060 DAYS 02090151402 9692 60 DAYS 02100153304 0MADE 0211015440610411 PP COMMITMENT DATE 02120160107 090 DAYS 02130161402 9712 90 DAYS 02140163307 0BY DATE 0215016440610161 PP DATE 02160173306 0AMOUNT 0217017420910223 PP AMOUNT 02180200132 0DATE OF TAPE, IF IN TAPE HISTORY 0219021350610311 TAPE TO HSITORY 02200230140 0PLEASE ENTER NEXT FUNCTION OR ACTION,RES 02210234140 0ULT,LETTER REQUEST,COMMENT 02220END 0223004******************COSIGNER SCREEN, PART 1 02240013315 0** COSIGNER ** 02250030509 0ACCT NAME 02260031630 182 BORROWER'S NAME 02270035106 0ACCT # e  3  02280035916 12 ACCT # 02290040509 0AMT DELQ 02300041610 8873 9999999.99 02310042809 0DELQ DATE 02320043906 8751 DATE 02330END 0234094******************COSIGNER'S SCREEN, PART 2 02350060110 0COSIGNER 1 02360061302 801 02370061630 202 COSIGNER 1 02380065107 806 HOME 02390066010 1054 HOME PHONE 02400071302 802 02410071630 502 ADDRESS 02420075106 807 EXT 02430076004 1152 EXT 02440081302 803 02450081620 802 CTY STATE 02460085106 808 BUS 02470086010 1194 BUS-PH-NO 02480091302 804 02490091605 1002 ZIP 02500095106 809 EXT 02510096004 1292 EXT 02520101305 805 02530101601 182 SAL CODE 02540120110 0COSIGNER 2 02550121302 810 02560121630 1352 COSIGNER 2 NAME 02570125107 815 HOME 02580126010 2204 HOME PHONE 02590131302 811 02600131630 1652 HOME ADDRESS 02610135106 816 EXT 02620136004 2302 EXT 02630141302 812 02640141620 1952 CTY STATE 02650145106 817 BUS 02660146010 2344 BUS PHONE 02670151302 813 02680151605 2152 ZIP 02690155106 818 EXT 02700156004 2442 EXT 02710161302 814 02720161601 1332 SAL CODE 02730180110 0COSIGNER 3 02740181302 819 02750181630 2502 COSIGNER:  3  3 NAME 02760185107 824 HOME 02770186010 3354 HOME PHONE 02780191302 820 02790191630 2802 HOME ADDR 02800195106 825 EXT 02810196004 3452 EXT 028202013 2 821 02830201620 3102 CITY STATE 02840205106 826 BUS 02850206010 3494 BUS PHONE 02860211302 822 02870211605 3302 ZIP 02880215106 827 EXT 02890216004 3592 EXT 02900221302 823 02910221601 2482 SAL CD 02920230140 0ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC 02930234140 0TION,RESULT,LETTER REQUEST,COMMENT 02940END 0295031******************SELECTION SCREEN 02960114021 0A = AUTOMATIC 02970124016 0B, = NAME 02980134026 0N,<#> = ACCOUNT NUMBER 02990144025 0C, = COSIGNER NAME 03000154016 0E = EXIT 03010230122 0PLEASE ENTER SELECTION 03020END 0303036******************SELECTION SCREEN, ACCOUNT BUSY 03040114021 0A = AUTOMATIC 03050124016 0B, = NAME 03060134026 0N,<#> = ACCOUNT NUMBER 03070144025 0C, = COSIGNER NAME 03080154016 0E = EXIT 03090230162 0SELECTED ACCOUNT BUSY, TRY AGAIN LATER. PLEASE ENTER SELECTION 03100END 0311037******************SELECTION SCREEN, ACCOUNT NOT FOUND 03120114021 0A = AUTOMATIC 03130124016 0B, = NAME 03140134026 0N,<#> = ACCOUNT NUMBER 03150144025 0C, = COSIGNER NAME 03160154016 0E = EXIT 03170230150 0SELECTED ACCOUNT NOT FOUND, PLEASE ENTER SELECTION 03180END 0319039******************SELECTION SCREEN, ACCOUNT NOT FOUND COSIGNER SEARCH 03200114021 0A = AUTOMATIC 03210124016 0B, = NAME 03220134026 0N,<#> = ACCOUNT NUMBER 03230144025 0C, = COSIGNER NAME  3  03240154016 0E = EXIT 03250220113 0END OF SEARCH 03260221602 12 NUMBER OF BUSY ACCOUNTS 03270221922 0ACCOUNTS WERE BUSY AND 03280230150 0SELECTED ACCOUNT NOT FOUND, PLEASE ENTER SELECTION 03290END 0330038******************SELECTION SCREEN, ACCOUNT NOT IN ALLOWED QUEUE 03310114021 0A = AUTOMATIC 03320124016 0B, = NAME 03330134026 0N,<#> = ACCOUNT NUMBER 03340144025 0C, = COSIGNER NAME 03350154016 0E = EXIT 03360230164 0SELECTED ACCOUNT IN A QUEUE NOT ALLOWED FOR YOUR REVIEW. PLEASE 03370236515 0ENTER SELECTION 03380END 0339001******************END OF DAILY ASSIGNMENTS 03400111025 0END OF DAILY ASSIGNMENTS. 03410END 0342030******************LOGIN PROMPT SCREEN 03430190124 0CREDIT COLLECTION SYSTEM 03440200118 0COLECT VERSION 3.0 034502101 7 03460230125 0PLEASE ENTER COLLECTOR ID 03470END 0348065 03490230133 0INVALID SELECTION, PLEASE REENTER 03500END 0351066******************NAME SEARCH PROMPT SCREEN 03520190418 0# = SELECT NAME 03530200422 0D = DISCONTINUE SEARCH 03540210419 0 = CONTINUE SEARCH 03550230122 0PLEASE ENTER SELECTION 03560END 0357034******************COSIGNER NAME SEARCH DISPLAY SCREEN 03580170130 202 COSIGNER NAME 03590180130 502 COSIGNER ADDRESS 03600190120 802 COSIGNER CITY,STATE 03610192305 1002 COSIGNER ZIP 03620203511 0C = CORRECT 03630213515 0D = DISCONTINUE 03640223512 0 = CONTINUE 03650230122 0PLEASE ENTER SELECTION 03660END 0367048 03680230140 0PLEASE ENTER PROMISED TO PAY DATE,AMOUNT 03690END 0370049 03710230156 0FORMAT ERROR, PLEASE REENTER PROMISED  3  TO PAY DATE,AMOUNT 03720END 0373050 03740230156 0INVALID DATE, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT 03750END 0376051 03770230158 0INVALID AMOUNT, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT 03780END 0379052 03800230115 0PROMISED TO PAY 0381023170910223 PROMISED TO PAY AMOUNT 03820232802 0BY 0383023310610161 PROMISED TO PAY DATE 03840233939 0. VERIFY 'OK', OR ENTER NEW DATE,AMOUNT 03850END 0386053 03870230140 0PLEASE ENTER ADDRESSEE CODE,LETTER CODE, 03880234125 0LETTER DATE,LETTER AMOUNT 03890END 0390055 03910230140 0INVALID ADDRESSEE, REENTER ADDRESSEE COD 03920234139 0E,LETTER CODE,LETTER DATE,LETTER AMOUNT 03930END 0394054 03950230140 0FORMAT ERROR, REENTER ADDRESSEE CODE,LET 03960234134 0TER CODE,LETTER DATE,LETTER AMOUNT 03970END 0398056 03990230140 0INVALID LETTER CODE, REENTER ADDRESSEE,L 04000234136 0ETTER CODE,LETTER DATE,LETTER AMOUNT 04010END 0402057 04030230140 0INVALID LETTER DATE, REENTER ADDRESSEE,L 04040234136 0ETTER CODE,LETTER DATE,LETTER AMOUNT 04050END 0406058 04070230140 0INVALID LETTER AMOUNT, REENTER ADDRESSEE 04080234138 0,LETTER CODE,LETTER DATE,LETTER AMOUNT 04090END 0410059 04110230106 0LETTER 04120230802 412 LETTER CODE 04130231110 0TO ADDRESS 04140232201 1052 ADDRESSEE CODE 04150232301 0. 04160232506 1061 LETTER REQUEST DATE 04170233303 0, $ 04180233609 1123 LETTER REQUEST AMOUNT 04190234733 0REQUESTED. ENTER OK OR NEW FIELDS ]  3  04200END 0421060 04220230139 0A COMMENT IS REQUIRED, PLEASE ENTER ONE 04230END 0424061 04250230143 0COMMENT ENTERED IS TOO LONG, PLEASE REENTER 04260END 0427042 04280230140 0FORMAT ERROR, ENTER NEXT FUNCTION OR ACT 04290234133 0ION,RESULT,LETTER REQUEST,COMMENT 04300END 0431043 04320230139 0FORMAT ERROR, ENTER ITEM,CHANGE OR NEXT 04330234140 0FUNCTION OR ACTION,RESULT,LETTER,COMMENT 04340END 0435044 04360230140 0COMMENT TOO LONG, ENTER NEXT FUNCTION OR 04370234137 0 ACTION,RESULT,LETTER REQUEST,COMMENT 04380END 0439045 04400230139 0COMMENT LONG, ENTER ITEM,CHANGE OR NEXT 04410234140 0FUNCTION OR ACTION,RESULT,LETTER,COMMENT 04420END 0443046 04440230140 0INVALID RESULT, ENTER NEXT FUNCTION OR A 04450234135 0CTION,RESULT,LETTER REQUEST,COMMENT 04460END 0447047 04480230140 0INVALID RES, ENTER ITEM,CHANGE OR NEXT F 04490234139 0UNCTION OR ACTION,RESULT,LETTER,COMMENT 04500END 0451062 04520230130 0PLEASE ENTER NEXT CONTACT DATE 04530END 0454063 04550230146 0INVALID DATE, PLEASE REENTER NEXT CONTACT DATE 04560END 0457040 04580230163 0NO ACTIVITY ALLOWED ON THIS ACCOUNT, PLEASE ENTER NEXT FUNCTION 04590END 0460041 04610230140 0NO ACTIVITY ALLOWED ON THIS ACCOUNT, PLE 04620234138 0ASE ENTER ITEM,CHANGE OR NEXT FUNCTION 04630END 0464064 04650230139 0INVALID DATE, ENTER ITEM,CHANGE OR NEXT 04660234140 0FUNCTION OR ACTION,RESULT,LETTER,COMMENT 04670END 5  3 ' 0468070 04690230124 0PLEASE ENTER ACTION CODE 04700END 0471071 04720230124 0PLEASE ENTER RESULT CODE 04730END 0474072 04750230140 0INVALID ACTION, ENTER NEXT FUNCTION OR A 04760234135 0CTION,RESULT,LETTER REQUEST,COMMENT 04770END 0478073 04790230140 0INVALID ACT, ENTER ITEM,CHANGE OR NEXT F 04800234139 0UNCTION OR ACTION,RESULT,LETTER,COMMENT 04810END 0482074 04830230133 0PLEASE ENTER PROMISED TO PAY DATE 04840END 0485075 04860230149 0INVALID DATE, PLEASE REENTER PROMISED TO PAY DATE 04870END 0488076 04890230135 0PLEASE ENTER PROMISED TO PAY AMOUNT 04900END 0491077 04920230153 0INVALID AMOUNT, PLEASE REENTER PROMISED TO PAY AMOUNT 04930END 0494078 04950230124 0PLEASE ENTER LETTER CODE 04960END 0497079 04980230146 0A LETTER IS REQUIRED, PLEASE ENTER LETTER CODE 04990END 0500080 05010230147 0INVALID LETTER CODE, PLEASE REENTER LETTER CODE 05020END 0503081 05040230127 0PLEASE ENTER ADDRESSEE CODE 05050END 0506082 05070230153 0INVALID ADDRESSEE CODE, PLEASE REENTER ADDRESSEE CODE 05080END 0509083 05100230124 0PLEASE ENTER LETTER DATE 05110END 0512084 05130230140 0INVALID DATE, PLEASE REENTER LETTER DATE 05140END 0515085  3 ; 05160230126 0PLEASE ENTER LETTER AMOUNT 05170END 0518086 0519023010601061 LETTER DATE 05200230901 0, 0521023110901123 LETTER AMOUNT 05220232241 0,REQUESTED. VERIFY 'OK' OR ENTER NEW DATE 05230END 0524087 05250230120 0PLEASE ENTER COMMENT 05260END 0527088 05280230115 0PROMISED TO PAY 0529023170910223 PROMISED TO PAY AMOUNT 05300232802 0BY 0531023310610161 PROMISED TO PAY DATE 05320233940 0. VERIFY 'OK' OR ENTER NEW PROMISED DATE 05330END 05340END 05350__ 13830 * RESPOND - 'N' CARRIAGE RETURN TO ABORT 13840 * CARRIAGE RETURN ONLY TO CONTINUE 13850CCSPAS 13860 *THE NIGHTLY BATCH FILES WILL BE CLEARED 13870INPUT=PRFLD012 13880UTIL 13890CLEAR,FN=LAFILTMP 13900CLEAR,FN=LARPTDAT 13910EX 13920 *BATCH UPDATE WILL BEGIN 13930LBATUD 13940 * BATCH UPDATE COMPLETE, AUDIT TRAIL REPORT WILL BEGIN 13950LBATPT 13960 * AUDIT TRAIL REPORT COMPLETE 13970 * THE LACLIENT FILE IS BEING UPDATED FOR ON-LINE USE 13980LCLIUD 13990 *NIGHTLY BATCH UPDATE PROCESS COMPLETE 14000MNUPRO 14010/! 14020DEFINE,FN=PRFLD013,OW=LA,ED=999999,TY=S,LR=80,NR=20 14030LOAD,FN=PRFLD013,OW=LA 14040CHEKID 14050 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 14060 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 14070 * CARRIAGE RETURN ONLY - TO CONTINUE 14080CCSPAS 14090 * THE LEGAL AND AGENCY EXTRACT PROGRAM WILL BEGIN 14100LAXTRT 14110 * THE LEGAL AND  3 O AGENCY EXTRACT PROCESS IS COMPLETE. 14120 * REFERRAL REPORT WILL BEGIN 14130LARPRT 14140 * REFERRAL REPORT COMPLETE 14150 * THE LADLQKEY FILE IS BEING CLEARED 14160INPUT=PRFLD013 14170UTIL 14180CLEAR,FN=LADLQKEY 14190EX 14200MNUPRO 14210/! 14220DEFINE,FN=PRFLH001,OW=LA,ED=999999,TY=S,LR=80,NR=30 14230LOAD,FN=PRFLH001,OW=LA 14240CHEKID 14250 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 14260 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 14270INPUT=PRFLH001 14280DSORT 14290FN=LAINACCT,LA 14300F2=LAINTEMP,LA, 14310OP=T,F,A 14320KF=A,1,16,D,23,2,D,19,4 14330SL=I 14340INPUT=PRFLH001 14350UTIL 14360CLEAR,FN=LAINACCT 14370COPY,FN=LAINTEMP,F2=LAINACCT,OW=LA 14380DELETE,FN=LAINTEMP 14390EX 14400 * THE LAINACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 14410 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 14420 * WITH WRITE RING - CARRIAGE RETURN WHEN READY 14430CCSPAS 14440MHUPDT 14450 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 14460 * REBUILDING LAINACCT 14470FIXINA 14480 * LAINACCT REBUILD COMPLETE 14490MNUPRO 14500/! 14510DEFINE,FN=PRFLH002,OW=LA,ED=999999,TY=S,LR=80,NR=40 14520LOAD,FN=PRFLH002,OW=LA 14530CHEKID 14540 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 14550 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 14560 * CARRIAGE RETURN ONLY - TO CONTINUE 14570 * 14580CCSPAS 14590 * THE ACTIVE ACV  3 cCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 14600INPUT=PRFLH002 14610UTIL 14620DEFINE,FN=LAUPDREQ,ED=999999,TY=S,LR=22,NR=300 14630EX 14640LCHUD1 14650 * THE LAUPDREQ FILE WILL BE SORTED 14660INPUT=PRFLH002 14670DSORT 14680FN=LAUPDREQ,LA 14690F2=LAUPDREQ,LA, 14700OP=T,F,A 14710KF=D,21,2,D,17,4,A,1,16 14720SL=I 14730 * THE LAUPDREQ FILE HAS BEEN SORTED 14740INPUT=PRFLH002 14750UTIL 14760CLEAR,FN=LAUPHSCM 14770EX 14780 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 14790 * EXECUTION OF THE NEXT JOB 14800CHUPD2 14810INPUT=PRFLH002 14820UTIL 14830DELETE,FN=LAUPDREQ 14840EX 14850 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 14860MNUPRO 14870/! 14880DEFINE,FN=PRFLH003,OW=LA,ED=999999,TY=S,LR=80,NR=15 14890LOAD,FN=PRFLH003,OW=LA 14900CHEKID 14910 * THE LASUMHST FILE WILL BE PURGED 14920PHDEL2 14930LCMPSM 14940 * THE LASUMHST FILE HAS BEEN PURGED 14950MNUPRO 14960/! 14970DEFINE,FN=PRFLH004,OW=LA,ED=999999,TY=S,LR=80,NR=15 14980LOAD,FN=PRFLH004,OW=LA 14990CHEKID 15000 * THE LATAPARC FILE WILL BE PURGED 15010PHDEL1 15020INPUT=PRFLH004 15030UTIL 15040COMPRE,FN=LATAPARC 15050EX 15060 * THE LATAPARC FILE HAS BEEN PURGED 15070MNUPRO +  3 w 15080/! 15090DEFINE,FN=PRFLH005,OW=LA,ED=999999,TY=S,LR=80,NR=25 15100LOAD,FN=PRFLH005,OW=LA 15110CHEKID 15120 * THE CLIENT FILE WILL BE PURGED 15130INPUT=PRFLH005 15140UTIL 15150DEFINE,FN=LAPURGED,LR=1600,NR=100 15160EX 15170 *THE LACLIENT FILE WILL BE SCANNED FOR CLIENTS READY TO BE PURGED 15180LACLPG 15190 *THE INACTIVATED AND/OR PURGED REPORT WILL BE PRINTED 15200LPGRPT 15210 * THE LAPURGED FILE WILL BE DELETED 15220INPUT=PRFLH005 15230UTIL 15240DELETE,FN=LAPURGED 15250EX 15260 * THE CLIENT FILE PURGE ROUTINES ARE COMPLETE 15270MNUPRO 15280/! 15290DEFINE,FN=PRFLM001,OW=LA,ED=999999,TY=S,LR=80,NR=20 15300LOAD,FN=PRFLM001,OW=LA 15310CHEKID 15320 * THE LETTER DEFINITION FILE WILL BE PRINTED 15330INPUT=PRFLM001 15340UTIL 15350LIST,FN=LALTRDSC,L=LPRINTER,F=U 15360EX 15370 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 15380 **** OPERATOR - IF ANY CHANGES ARE TO BE MADE TO THE LETTER FILE 15390 * ENTER THE EDITOR TO PROCESS THE LALTRDSC FILE, WHEN 15400 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 15410 * CARRIAGE RETURN WHEN READY TO CONTINUE 15420CCSPAS 15430MNUPRO 15440/! 15450DEFINE,FN=PRFLM002,OW=LA,ED=999999,TY=S,LR=80,NR=15 15460LOAD,FN=PRFLM002,OW=LA 15470CHEKID 15480 * THE LETTER FILE WILL BE CREATED 15490INPUT=PRFLM002 15500UTIL 15510CLEAR,FN=LALTRFIL 15520EX 15530LTRBLD 15540 * THE LETTER FILE HAS BEEN CREATED 15550MNUPRO  3  15560/! 15570DEFINE,FN=PRFLM003,OW=LA,ED=999999,TY=S,LR=80,NR=25 15580LOAD,FN=PRFLM003,OW=LA 15590CHEKID 15600 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 15610 * 15620 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 15630 * FROM THE CONSOLE 15640 * 15650 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 15660LUTFMT 15670 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 15680INPUT=PRFLM003 15690UTIL 15700LIST,FN=LAUTIFIL,L=LPRINTER,F=U 15710EX 15720 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 15730 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 15740MNUPRO 15750/! 15760DEFINE,FN=PRFLM004,OW=LA,ED=999999,TY=S,LR=80,NR=15 15770LOAD,FN=PRFLM004,OW=LA 15780CHEKID 15790 * THE DECISION TABLE MAINTENANCE ROUTIN WILL BE EXECUTED 15800 * 15810 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 15820LDECMT 15830 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 15840MNUPRO 15850/! 15860DEFINE,FN=PRFLM005,OW=LA,ED=999999,TY=S,LR=80,NR=15 15870LOAD,FN=PRFLM005,OW=LA 15880CHEKID 15890 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 15900LAVMDP 15910 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 15920MNUPRO 15930/! 15940DEFINE,FN=PRFLM006,OW=LA,ED=999999,TY=S,LR=80,NR=15 15950LOAD,FN=PRFLM006,OW=LA 15960CHEKID 15970 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 15980 * 15990AVMCON 16000 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 16010 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 16020LAVMDP 16030 * THE ACTIVITY iD  3 VERIFICATION TABLE HAS BEEN PRINTED 16040MNUPRO 16050/! 16060DEFINE,FN=PRFLM007,OW=LA,ED=999999,TY=S,LR=80,NR=15 16070LOAD,FN=PRFLM007,OW=LA 16080CHEKID 16090 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 16100 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 16110 * SCREEN INFORMATION 16120CCSSPC 16130CCSPAS 16140 * THE FILE SPACE AUDIT REPORT IS COMPLETE 16150MNUPRO 16160/! 16170DEFINE,FN=PRFLM008,OW=LA,ED=999999,TY=S,LR=80,NR=20 16180LOAD,FN=PRFLM008,OW=LA 16190CHEKID 16200 * THE SCREEN DEFINITION FILE WILL BE PRINTED 16210INPUT=PRFLM008 16220UTIL 16230LIST,FN=LASCNDSC,L=LPRINTER,F=U 16240EX 16250 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 16260 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 16270 * FILE ENTER THE EDITOR TO PROCESS THE LASCNDSC FILE, 16280 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 16290 * CARRIAGE RETURN WHEN READY TO CONTINUE 16300CCSPAS 16310MNUPRO 16320/! 16330DEFINE,FN=PRFLM009,OW=LA,ED=999999,TY=S,LR=80,NR=15 16340LOAD,FN=PRFLM009,OW=LA 16350CHEKID 16360 * THE SCREEN FILE WILL BE CREATED 16370LBLDSR 16380 * THE SCREEN FILE HAS BEEN CREATED 16390MNUPRO 16400/! 16410DEFINE,FN=PRFLM010,OW=LA,ED=999999,TY=S,LR=80,NR=20 16420LOAD,FN=PRFLM010,OW=LA 16430CHEKID 16440 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 16450 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 16460 * CARRIAGE RETURN ONLY - TO CONTINUE 16470 * 16480CCSPAS 16490 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES WILL BE PURGED 16500LCMPDQ 16510INPUT=PRFLM010  3  16520UTIL 16530COMPRE,FN=LACOSIGN 16540COMPRE,FN=LAACTFIL 16550EX 16560 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES HAVE BEEN PURGED 16570MNUPRO 16580/! 16590DEFINE,FN=PRFLM011,OW=LA,ED=999999,TY=S,LR=80,NR=15 16600LOAD,FN=PRFLM011,OW=LA 16610CHEKID 16620 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 16630 * WILL BE PRINTED 16640ACTMTN 16650 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 16660 * HAS BEEN PRINTED 16670MNUPRO 16680/! 16690DEFINE,FN=PRFLM012,OW=LA,ED=999999,TY=S,LR=80,NR=15 16700LOAD,FN=PRFLM012,OW=LA 16710CHEKID 16720 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE WILL BE EXECUTED 16730 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 16740 * 16750USEMTN 16760 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE IS COMPLETE 16770MNUPRO 16780/! 16790DEFINE,FN=PRFLM013,OW=LA,ED=999999,TY=S,LR=80,NR=10 16800LOAD,FN=PRFLM013,OW=LA 16810CHEKID 16820 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 16830LPGLTB 16840MNUPRO 16850/! 16860DEFINE,FN=PRFLM014,OW=LA,ED=999999,TY=S,LR=80,NR=40 16870LOAD,FN=PRFLM014,OW=LA 16880CHEKID 16890 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 16900 * 16910 * THE DATA ELEMENT TABLE WILL BE PRINTED 16920LPGLTB 16930 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 16940 * 16950 * THE DATA ELEMENT TABLE WILL BE UPDATED 16960 * 16970 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 16980 * 16990INPUT=PRFLM014 |  3  17000SWITCH 17010000000000 17020LPGUTB 17030 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 17040 * 17050 * THE DATA ELEMENT TABLE WILL BE PURGED 17060INPUT=PRFLM014 17070UTIL 17080DEFINE,FN=LATBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 17090EX 17100LPGCMP 17110INPUT=PRFLM014 17120UTIL 17130DELETE,FN=LARPTTBL 17140RENAME,FN=LATBLWRK,F2=LARPTTBL 17150EX 17160 * THE DATA ELEMENT TABLE HAS BEEN PURGED 17170 * 17180 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 17190MNUPRO 17200/! 17210DEFINE,FN=PRFLM015,OW=LA,ED=999999,TY=S,LR=80,NR=35 17220LOAD,FN=PRFLM015,OW=LA 17230CHEKID 17240 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 17250 * 17260 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 17270LPGLIS 17280 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 17290 * 17300 * 17310 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 17320 * 17330 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 17340 * 17350LPGPRG 17360INPUT=PRFLM015 17370UTIL 17380COMPRE,FN=LARPTPGM 17390EX 17400 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 17410 * 17420 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 17430LPGLIS 17440 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 17450 * 17460 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 17470MNUPRO ?  3  17480/! 17490DEFINE,FN=PRFLM016,OW=LA,ED=999999,TY=S,LR=80,NR=15 17500LOAD,FN=PRFLM016,OW=LA 17510CHEKID 17520 * THE SCREEN FILES WILL BE PRINTED 17530 * 17540 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 17550 * 17560LPRSCN 17570 * THE SCREEN FILES HAVE BEEN PRINTED 17580MNUPRO 17590/! 17600DEFINE,FN=PRFLM017,OW=LA,ED=999999,TY=S,LR=80,NR=15 17610LOAD,FN=PRFLM017,OW=LA 17620CHEKID 17630 * THE CLIENT FILE MAINTENANCE PROGRAM WILL BEGIN 17640CLIENT 17650 * THE CLIENT FILE MAINTENANCE PROGRAM HAS COMPLETED 17660MNUPRO 17670/! 17680DEFINE,FN=PRFLO001,OW=LA,ED=999999,TY=S,LR=80,NR=20 17690LOAD,FN=PRFLO001,OW=LA 17700CHEKID 17710INPUT=PRFLO001 17720SWITCH 1773010000000 17740 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 17750 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 17760 * PRINTED 17770LDTLST 17780 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 17790MNUPRO 17800/! 17810DEFINE,FN=PRFLO002,OW=LA,ED=999999,TY=S,LR=80,NR=20 17820LOAD,FN=PRFLO002,OW=LA 17830CHEKID 17840INPUT=PRFLO002 17850SWITCH 1786001000000 17870 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 17880 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 17890LDTLST 17900INPUT=PRFLO002 17910UTIL 17920CLEAR,FN=LASREQDL 17930EX 17940 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 17950MNUPRO &  3  17960/! 17970DEFINE,FN=PRFLO003,OW=LA,ED=999999,TY=S,LR=80,NR=40 17980LOAD,FN=PRFLO003,OW=LA 17990CHEKID 18000 * CALCULATE AGE FOR TREND ANALYSIS 18010TRENDF 18020 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 18030 * 18040 * THE LAACCAGE AND LARSWFIL FILES ARE BEING SORTED INTO LAAGEWRK 18050INPUT=PRFLO003 18060UTIL 18070DELETE,FN=LAAGEWRK 18080EX 18090INPUT=PRFLO003 18100DSORT 18110FN=LAACCAGE,LA 18120FN=LARSWFIL,LA 18130F2=LAAGEWRK,LA,SYSVOL 18140OP=T,F,A 18150KF=A,17,4,A,1,1 18160SL=OMIT,35,3,EQ,'RSW' 18170 * THE LAACCAGE AND LARSWFIL FILES HAVE BEEN SORTED 18180 * 18190 **** OPERATOR - 18200 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 18210 * TREND DATA FOR NEXT RUN 18220 * 18230 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 18240 * FOR NEXT RUN 18250CCSPAS 18260LTRNDU 18270INPUT=PRFLO003 18280UTIL 18290CLEAR,FN=LARSWFIL 18300EX 18310MNUPRO 18320/! 18330DEFINE,FN=PRFLO004,OW=LA,ED=999999,TY=S,LR=80,NR=25 18340LOAD,FN=PRFLO004,OW=LA 18350CHEKID 18360 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 18370 * THE LAAGEWRK FILE IS BEING SORTED 18380INPUT=PRFLO004 18390DSORT 18400FN=LAAGEWRK,LA 18410F2=LAAGEWRK,LA, 18420OP=T,F,A 18430KF=A,17,4,A,1,1 s  3  18440SL=I 18450 * THE LAAGEWRK FILE HAS BEEN SORTED 18460 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 18470INPUT=PRFLO004 18480SWITCH 1849010000000 18500LTRNDP 18510 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 18520MNUPRO 18530/! 18540DEFINE,FN=PRFLO005,OW=LA,ED=999999,TY=S,LR=80,NR=25 18550LOAD,FN=PRFLO005,OW=LA 18560CHEKID 18570 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 18580 * THE LAAGEWRK FILE IS BEING SORTED 18590INPUT=PRFLO005 18600DSORT 18610FN=LAAGEWRK,LA 18620F2=LAAGEWRK,LA, 18630OP=T,F,A 18640KF=A,17,4,A,1,1 18650SL=I 18660 * THE LAAGEWRK FILE HAS BEEN SORTED 18670 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 18680INPUT=PRFLO005 18690SWITCH 1870000000000 18710LTRNDP 18720 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 18730MNUPRO 18740/! 18750DEFINE,FN=PRFLO006,OW=LA,ED=999999,TY=S,LR=80,NR=35 18760LOAD,FN=PRFLO006,OW=LA 18770CHEKID 18780 * THE WRITE-OFF REPORT WILL BE GENERATED 18790 * THE LAWOEF FILE WILL BE CREATED 18800INPUT=PRFLO006 18810UTIL 18820DEFINE,FN=LAWOEF,ED=999999,TY=S,LR=115,NR=6000 18830EX 18840WRTOFE 18850 * THE LAWOEF FILE HAS BEEN CREATED 18860 * THE LAWOEF FILE IS BEING SORTED 18870INPUT=PRFLO006 18880DSORT 18890FN=LAWOEF,LA 18900F2=LAWOEF,LA, 18910OP=T,F,A  3  18920KF=A,25,1,A,17,4,A,21,4,A,1,16 18930SL=I 18940 * THE LAWOEF FILE HAS BEEN SORTED 18950 * THE WRITE-OFF REPORT WILL BE PRINTED 18960LWROFP 18970INPUT=PRFLO006 18980UTIL 18990DELETE,FN=LAWOEF 19000EX 19010 * THE WRITE-OFF REPORT IS COMPLETE 19020MNUPRO 19030/! 19040DEFINE,FN=PRFLO007,OW=LA,ED=999999,TY=S,LR=80,NR=15 19050LOAD,FN=PRFLO007,OW=LA 19060CHEKID 19070 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 19080LDALST 19090 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 19100MNUPRO 19110/! 19120DEFINE,FN=PRFLO008,OW=LA,ED=999999,TY=S,LR=80,NR=15 19130LOAD,FN=PRFLO008,OW=LA 19140CHEKID 19150 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 19160SUMACL 19170 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 19180MNUPRO 19190/! 19200DEFINE,FN=PRFLO009,OW=LA,ED=999999,TY=S,LR=80,NR=25 19210LOAD,FN=PRFLO009,OW=LA 19220CHEKID 19230 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 19240INPUT=PRFLO009 19250SWITCH 1926001000000 19270COLSTS 19280 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 19290 **** OPERATOR - 19300 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 19310 * 19320 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 19330CCSPAS 19340INPUT=PRFLO009 19350SWITCH 1936000001000 19370COLSTS 19380MNUPRO 19390/! .  3 + 19400DEFINE,FN=PRFLO010,OW=LA,ED=999999,TY=S,LR=80,NR=25 19410LOAD,FN=PRFLO010,OW=LA 19420CHEKID 19430 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 19440INPUT=PRFLO010 19450SWITCH 1946000100000 19470COLSTS 19480 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 19490 **** OPERATOR - 19500 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 19510 * STATISTICS COUNT FILE 19520 * 19530 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 19540 * COUNT FILE 19550CCSPAS 19560INPUT=PRFLO010 19570UTIL 19580CLEAR,FN=LACOLSTS 19590EX 19600MNUPRO 19610/! 19620DEFINE,FN=PRFLACTR,OW=LA,ED=999999,TY=S,LR=80,NR=40 19630LOAD,FN=PRFLACTR,OW=LA 19640CHEKID 19650 **** OPERATOR - THE BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 19660 **** OPERATOR - (BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING) 19670 * TO ACTIVATE BATCH HOST 19680 * MI, *BATCH,F 19690 * 19700 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 19710 * 19720 * CARRIAGE RETURN ONLY - TO CONTINUE 19730CCSPAS 19740 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 19750INPUT=PRFLACTR 19760UTIL 19770DEFINE,FN=LARPTWKE,LR=80,NR=1000 19780DEFINE,FN=LARPTWKP,LR=80,NR=1000 19790DEFINE,FN=LAPRCWRK,LR=80,NR=50 19800EX 19810LPGGEN 19820 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 19830 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 19840INPUT=PRFLACTR 19850UTIL 19860BATCH,FN=LARPTWKE,TY=N 19870BATCH,FN=LARPTWKNb  3 ?P,TY=R 19880DELETE,FN=LARPTWKE 19890DELETE,FN=LARPTWKP 19900CLEAR,FN=LAPGEXTR 19910EX 19920LPGCT1 19930 * 19940 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 19950 * CARRIAGE RETURN WHEN READY 19960CCSPAS 19970MNUPRO 19980/! 19990DEFINE,FN=PRFLO012,OW=LA,ED=999999,TY=S,LR=80,NR=15 20000LOAD,FN=PRFLO012,OW=LA 20010CHEKID 20020 * THE QUEUE LOADING REPORT WILL BE PRINTED 20030QLOAD 20040 * THE QUEUE LOADING REPORT IS COMPLETE 20050MNUPRO 20060/! 20070DEFINE,FN=PRFLO013,OW=LA,ED=999999,TY=S,LR=80,NR=25 20080LOAD,FN=PRFLO013,OW=LA 20090CHEKID 20100 * LAPMTFIL WILL BE SORTED FOR THE COMPLETE & DIRECT PAYMENT REPORTS 20110INPUT=PRFLO013 20120DSORT 20130FN=LAPMTFIL,LA 20140F2=LAPMTFIL,LA, 20150OP=T,F,A 20160KF=A,34,4,A,1,16 20170SL=I 20180INPUT=PRFLO013 20190 * COMPLETE PAYMENT REPORT WILL NOW BE PRINTED 20200COMPAY 20210 * DIRECT PAYMENT REPORT WILL NOW BE PRINTED 20220DIRPAY 20230 ***** OPERATOR - RESPOND 'N' CARRIAGE RETURN TO BYPASS CLEARING THE 20240 * PAYMENT FILE 20250 * 20260 * RESPOND CARRIAGE RETURN ONLY TO CLEAR PAYMENT FILE 20270 * 20280CCSPAS 20290INPUT=PRFLO013 20300UTIL 20310CLEAR,FN=LAPMTFIL 20320EX 20330MNUPRO 20340/! 20350DEFINE,FN=PRFLO0+|  3 S14,OW=LA,ED=999999,TY=S,LR=80,NR=45 20360LOAD,FN=PRFLO014,OW=LA 20370CHEKID 20380 * THE INVENTORY REPORT PROCESS WILL NOW BEGIN 20390 * THE CLIENT FILE IS BEING EXTRACTED 20400INPUT=PRFLO014 20410UTIL 20420DEFINE,FN=LACLINV,TY=S,LR=80,NR=9000 20430EX 20440CLXTRT 20450 * CLIENT EXTRACT RECORDS WILL BE SORTED 20460INPUT=PRFLO014 20470DSORT 20480FN=LACLINV,LA 20490F2=LACLINV,, 20500OP=T,F,A 20510KF=A,1,16 20520SL=I 20530INPUT=PRFLO014 20540 * THE INVENTORY REPORT BY ACCOUNT WILL BE PRINTED 20550INVCUS 20560 * CLIENT EXTRACT RECORDS WILL BE SORTED BY CLIENT 20570INPUT=PRFLO014 20580DSORT 20590FN=LACLINV,LA 20600F2=LACLINV,, 20610OP=T,F,A 20620KF=A,17,4 20630SL=I 20640INPUT=PRFLO014 20650 * THE INVENTORY REPORT BY CLIENT WILL BE PRINTED 20660INVCLI 20670INPUT=PRFLO014 20680UTIL 20690DELETE,FN=LACLINV 20700EX 20710 * INVENTORY REPORT PROCESS IS COMPLETE 20720MNUPRO 20730/! 20740DEFINE,FN=PRFLO015,OW=LA,ED=999999,TY=S,LR=80,NR=15 20750LOAD,FN=PRFLO015,OW=LA 20760CHEKID 20770 * THE RECOVERY ANALYSIS REPORT WILL BEGIN 20780RECVRY 20790 * THE RECOVERY ANALYSIS REPORT IS COMPLETE 20800MNUPRO 20810/! 20820DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=LA 20830LOAD,FN=PRFRP014.  3 g,OW=LA 20840CHEKID 20850 ***** PURGE TREND ANALYSIS FILES (LAACCAGE-LARSWFIL) 20860 ***** 20870 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 20880 ***** OR NOT TREND ANALYSIS IS BEING USED. 20890 ***** 20900 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 20910 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 20920 **** 20930 *** 20940CCSPAS 20950 * 20960CMPACC 20970 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 20980MNUPRO 20990/! 21000DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50; 21010OW=LA,VL=CDD01 21020DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=18000,VL=CDD01; 21030OW=LA 21040DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD01; 21050OW=LA 21060DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD01; 21070OW=LA 21080DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=LA 21090DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=18000,VL=CDD01,OW=LA 21100DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=18000,VL=SYSVOL,OW=LA 21110DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=LA 21120DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1600,NR=100; 21130VL=CDD01,OW=LA 21140DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 21150OW=LA 21160DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=18000,VL=CDD01; 21170OW=LA 21180DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=128,VL=CDD01,OW=LA 21190DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=LA 21200DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD01,OW=LA 21210DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000; 21220NR=18000,VL=CDD01,OW=LA 21230DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=18000,VL=SYSVOL,OW=LA 21240DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=1500,VL=CDD01,OW=LA 21250DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=LA 21260LOAD,FN=LADUMMY,OW=LA 21270 21280/! 21290DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD01,OW=LA 21300DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA 21310DEFINE,FN=LAINACm<  3 {CT,ED=999999,TY=S,LR=24,NR=18000,VL=CDD01,OW=LA 21320DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD01,OW=LA 21330DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 21340OW=LA 21350DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA 21360DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=18000,VL=SYSVOL,OW=LA 21370DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=200,NR=4000,VL=SYSVOL,OW=LA 21380DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=SYSVOL,OW=LA 21390DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=SYSVOL; 21400OW=LA 21410DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=9000,VL=SYSVOL,OW=LA 21420DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=SYSVOL,OW=LA 21430DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=SYSVOL; 21440OW=LA 21450DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=150,VL=SYSVOL,OW=LA 21460DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=18000,VL=SYSVOL; 21470OW=LA 21480DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=18000,VL=SYSVOL; 21490OW=LA 21500DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD01,OW=LA 21510DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA 21520DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA 21530DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=150,VL=CDD01,OW=LA 21540DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01; 21550OW=LA 21560DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD01,OW=LA 21570EX 21580MOVDAT 21590LMOVDT 21600 * THE 60000/18000 ACCOUNT SYSTEM BUILD IS COMPLETE 21610 * 21620 * PROCEED WITH THE INSTALLATION TEST PROCEDURE. 21630 * 21640MNUPRO 21650__ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00840RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00870RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00880RPDLYASN G - DAILY ASSIGNMENT LIST 00890RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00900RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00910RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00920RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00930PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM xE 3f?  !"#$ % & ' (())* +!,"-#.$/%0123456789:;<=>&?'@*ABF+G,H-I.J/K0L1M2N3O4P5Q6R7S8T9U:V;W<X=^__N IS COMPLETE 18030 * 18040 * THE LAACCAGE AND LARSWFIL FILES ARE BEING SORTED INTO LAAGEWRK 18050INPUT=PRFLO003 18060UTIL 18070DELETE,FN=LAAGEWRK 18080EX 18090INPUT=PRFLO003 1 3BALBS $$ !BORROWER'S CHANGE SCREEN ACCT NAME "3*ACCT #;/: LAST CHANGE ?_2HPREVIOUSU01 HOME ADDR 1 Z02_l02 HOME ADDR 2 qN2v03 CITY, STATE l2104 HOME ZIP 2E 05 HOME PHONE   06 HOME EXT   07 BUS NAME   08 BUS ADDR   09 CITY, STATE   10 BUS ZIP 11 BUS PHONE " - 12 BUS EXT 2?13 MO MAID NAMED!P 14 BIRTHDATE U?b15 MAKE OF AUTOg E(ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC((TION,RESULT,LETTER REQUEST,COMMENT COLLECTION ACTIVITY  ACCT NAME  1, ACCT # @1; AMT DELQ @ w1L LAST LTR DATE @QJ[ DELQ DATE `k1l LAST LTR AMT @q P~PERM COMMENT 1: PERM COMMENT 2: PERM COMMENT 3:  CONTACT AC RS LR  DATE CD CD CD COLL COMMENTS P #SUPERVISOR'S CHANGE SCREEN   3VACCT NAME #5- ACCT # @2< CURR QUEUEA5K AMT DELQ @P w]LAST QUEUE CHNG b,5l DELQ DATE @qk01 QUEUE ID &5 PREV QUEUE@( 02 NEXT CONTACT DATE &  03 PRIORITY CODE &  04 SUPV FOR THIS ACCT&  05 SUPV STATUS CODE & $ 06 QUEUE REASSIGN COD& & 07 ACCT REVIEW CODE &# 08 PP AMOUNT &# <(ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC((TION,RESULT,LETTER REQUEST,COMMENT BORROWER'S MASTER SCREEN  SUPV ACCT # $@+TIMEF05!>QUEUE # .C5KACCT #@PU0!` POINT SCORE /e5nAMT DELQFs wxN! ACCT TYPE -5 DELQ DATE Hkl! STATUS CD 125PREV QUEL(HOME # !PP FLAG 15PRIORITYLSAL CD5 NEXT CONTACTH !  SOC SEC #.   ! & ADL ACCT #. + 0 5! ? SAV ACCT # GWORK # L  SEXT  X! b CK ACCT #!l ENTRY DATE.qe~NUMBER COSIGNER ! LAST UPDATE ._!PERM COMMENT 1: 2!PERM COMMENT 2: 2!PERM COMMENT 3: 2LAST ACTIVITY DATE AC RS LT COLL COMMENT (PLEASE ENTER NEXT FUNCTION OR ACTION,RES((ULT,LETTER REQUEST,COMMENT FINANCIAL HISTORY  ACCT NAME 8'ACCT #?,6 ACCT TYPE ;E LOAN OFF JWSPEC DESC FIELD \(:iPAYMENT HISTORY 7wAMOUNT DATE  AMT DELQ  w  OPEN DATE ./U  3jq7 ODs DELQ DATE k  OPEN AMOUNT , 7 XDy LAST UPDATE  Y CUR BALANCE , 7 aD  ENTRY DATE  e  CUR PAYOFF ,  7  jD  )TIMES DELINQUENT 9PROMISED TO PAY FIELDS B30 DAYS G NFLAG2 S\60 DAYS a hMADE+mv90 DAYS { BY DATE + AMOUNT)  DATE OF TAPE, IF IN TAPE HISTORY"(PLEASE ENTER NEXT FUNCTION OR ACTION,RES((ULT,LETTER REQUEST,COMMENT  ** COSIGNER **  ACCT NAME 2&ACCT #:+5 AMT DELQ : wD DELQ DATE &k ^ COSIGNER 1 012 06 HOME ;% i +02022807 EXT;=s C03HP2P08 BUS;U w [04`d2h09 EXT;m u05  z COSIGNER 2 10 2 15 HOME ;  11 2 16 EXT;  12 2 17 BUS;  13218 EXT; 14 COSIGNER 3 192b  3~24 HOME ; O 202&25 EXT;+Y 121662>26 BUS;C ] I22NJ2V27 EXT;[g a23f(ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC((TION,RESULT,LETTER REQUEST,COMMENT ' A = AUTOMATIC ' B, = NAME' 1N,<#> = ACCOUNT NUMBER' CC, = COSIGNER NAME 'PE = EXITPLEASE ENTER SELECTION $' A = AUTOMATIC ' B, = NAME' 1N,<#> = ACCOUNT NUMBER' CC, = COSIGNER NAME 'PE = EXIT>SELECTED ACCOUNT BUSY, TRY AGAIN LATER. PLEASE ENTER SELECTION R  3 %' A = AUTOMATIC ' B, = NAME' 1N,<#> = ACCOUNT NUMBER' CC, = COSIGNER NAME 'PE = EXIT2SELECTED ACCOUNT NOT FOUND, PLEASE ENTER SELECTION '' A = AUTOMATIC ' B, = NAME' 1N,<#> = ACCOUNT NUMBER' CC, = COSIGNER NAME 'PE = EXIT\ END OF SEARCH aqACCOUNTS WERE BUSY AND2SELECTED ACCOUNT NOT FOUND, PLEASE ENTER SELECTION !  3 &' A = AUTOMATIC ' B, = NAME' 1N,<#> = ACCOUNT NUMBER' CC, = COSIGNER NAME 'PE = EXITu@SELECTED ACCOUNT IN A QUEUE NOT ALLOWED FOR YOUR REVIEW. PLEASE @ENTER SELECTION  END OF DAILY ASSIGNMENTS. j  3 CREDIT COLLECTION SYSTEM!COLECT VERSION 3.0&PLEASE ENTER COLLECTOR ID A!INVALID SELECTION, PLEASE REENTER   3 B# = SELECT NAME  D = DISCONTINUE SEARCH/ = CONTINUE SEARCH PLEASE ENTER SELECTION " 2Pd"! C = CORRECT ".D = DISCONTINUE "9  = CONTINUEPLEASE ENTER SELECTION   3 0(PLEASE ENTER PROMISED TO PAY DATE,AMOUNT 18FORMAT ERROR, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT 28INVALID DATE, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT  3 3:INVALID AMOUNT, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT 4PROMISED TO PAY  BY&'. VERIFY 'OK', OR ENTER NEW DATE,AMOUNT   3  5(PLEASE ENTER ADDRESSEE CODE,LETTER CODE,(LETTER DATE,LETTER AMOUNT 7(INVALID ADDRESSEE, REENTER ADDRESSEE COD('E,LETTER CODE,LETTER DATE,LETTER AMOUNT   3 6(FORMAT ERROR, REENTER ADDRESSEE CODE,LET("TER CODE,LETTER DATE,LETTER AMOUNT 8(INVALID LETTER CODE, REENTER ADDRESSEE,L($ETTER CODE,LETTER DATE,LETTER AMOUNT 8  32 9(INVALID LETTER DATE, REENTER ADDRESSEE,L($ETTER CODE,LETTER DATE,LETTER AMOUNT :(INVALID LETTER AMOUNT, REENTER ADDRESSEE(&,LETTER CODE,LETTER DATE,LETTER AMOUNT   3F ; LETTER)  TO ADDRESSi$. )j 0, $ #5 p.!REQUESTED. ENTER OK OR NEW FIELDS <'A COMMENT IS REQUIRED, PLEASE ENTER ONE :  3Z =+COMMENT ENTERED IS TOO LONG, PLEASE REENTER *(FORMAT ERROR, ENTER NEXT FUNCTION OR ACT(!ION,RESULT,LETTER REQUEST,COMMENT  3n +'FORMAT ERROR, ENTER ITEM,CHANGE OR NEXT ((FUNCTION OR ACTION,RESULT,LETTER,COMMENT ,(COMMENT TOO LONG, ENTER NEXT FUNCTION OR(% ACTION,RESULT,LETTER REQUEST,COMMENT -'COMMENT LONG, ENTER ITEM,CHANGE OR N=  3EXT ((FUNCTION OR ACTION,RESULT,LETTER,COMMENT .(INVALID RESULT, ENTER NEXT FUNCTION OR A(#CTION,RESULT,LETTER REQUEST,COMMENT /(INVALID RES, ENTER ITEM,CHANGE OR NEXT F('UNCTION OR ACTION,RESULT,LETTER,COMMENT :)  3 >PLEASE ENTER NEXT CONTACT DATE ?.INVALID DATE, PLEASE REENTER NEXT CONTACT DATE 4  3 (?NO ACTIVITY ALLOWED ON THIS ACCOUNT, PLEASE ENTER NEXT FUNCTION )(NO ACTIVITY ALLOWED ON THIS ACCOUNT, PLE(&ASE ENTER ITEM,CHANGE OR NEXT FUNCTION E  3 @'INVALID DATE, ENTER ITEM,CHANGE OR NEXT ((FUNCTION OR ACTION,RESULT,LETTER,COMMENT FPLEASE ENTER ACTION CODE (.  3 GPLEASE ENTER RESULT CODE H(INVALID ACTION, ENTER NEXT FUNCTION OR A(#CTION,RESULT,LETTER REQUEST,COMMENT X  3 I(INVALID ACT, ENTER ITEM,CHANGE OR NEXT F('UNCTION OR ACTION,RESULT,LETTER,COMMENT J!PLEASE ENTER PROMISED TO PAY DATE   3 K1INVALID DATE, PLEASE REENTER PROMISED TO PAY DATE L#PLEASE ENTER PROMISED TO PAY AMOUNT  3 M5INVALID AMOUNT, PLEASE REENTER PROMISED TO PAY AMOUNT NPLEASE ENTER LETTER CODE O.A LETTER IS REQUIRED, PLEASE ENTER LETTER CODE \  3" P/INVALID LETTER CODE, PLEASE REENTER LETTER CODE QPLEASE ENTER ADDRESSEE CODE  36 R5INVALID ADDRESSEE CODE, PLEASE REENTER ADDRESSEE CODE SPLEASE ENTER LETTER DATE 7  3J T(INVALID DATE, PLEASE REENTER LETTER DATE UPLEASE ENTER LETTER AMOUNT  3^ Vj ,  p),REQUESTED. VERIFY 'OK' OR ENTER NEW DATE WPLEASE ENTER COMMENT 6c  3r XPROMISED TO PAY  BY&(. VERIFY 'OK' OR ENTER NEW PROMISED DATE __TURN WHEN READY 09100CCSPAS 09110MNUPRO 09120/! 09130DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09140LOAD,FN=PRFRP012,OW=CCS20 09150CHEKID 09160 * THE QUEUE LOADING REPORT WILL BE PRINTED 09170QLOAD 09180 * THE QUEUE LOADING REPORT IS COMPLETE 09190MNUPRO 09200/! 09210DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09220LOAD,FN=PRFRP014,OW=CCS20 09230CHEKID 09240 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09250 ***** 09260 ***** THIS PROCEDURE SHOULD W  3BE RUN ONCE A MONTH WHETHER 09270 ***** OR NOT TREND ANALYSIS IS BEING USED. 09280 ***** 09290 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09300 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09310 **** 09320 *** 09330CCSPAS 09340 * 09350CMPACC 09360 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09370MNUPRO 09380/! 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680 09690 09700 09710 09720 09730DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09740NR=50   3 09750DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=24000,OW=CCS20 09760DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=24000,VL=CDD01; 09770OW=CCS20 09780DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09790DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09800DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=24000,VL=CDD01,OW=CCS20 09810DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=24000,VL=SYSVOL,OW=CCS20 09820DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09830DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09840OW=CCS20 09850DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=24000,VL=CDD01; 09860OW=CCS20 09870DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09880DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09890DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=24000; 09900VL=CDD02,OW=CCS20 09910DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=24000,VL=SYSVOL,OW=CCS20 09920DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=2000,VL=CDD01,OW=CCS20 09930DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09940LOAD,FN=DUMMY,OW=CCS20 09950 09960/! 09970DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=24000,VL=CDD01,OW=CCS20 09980DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09990DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 10020DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=24000,OW=CCS20 10030DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 10040DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10050OW=CCS20 10060DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=12000,VL=CDD01,OW=CCS20 10070DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10080DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20 10110DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=24000,VL=CDD01; 10120OW=CCS20 10130DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=24000,VL=CDD01; 10140OW=CCS20 10150DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10160DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10170DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10180DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20 10190DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10200DEFINE,FN=$$LDMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10210LOAD,FN=$$LDMENU,OW=$$ 10220 * LEGAL AND AGENCY D\  3r8ALr8S $$ 0380014013010822 CURR CLIENT FIRM 0381014333012392 [QXX \122 00 10Q 01001000 101 3000004001000004 101 3000003001000003 101 3000002001000002 101 00 01000001 201 10B 01009000 201 00 01002000 002 ZIP 04200AL+rIS $$ 04210096004 1292 EXT 04220101305 805 3ALCS $$ CCAGE AND LARSWFIL FILES HAVE BEEN SORTED 18180 * 18190 **** OPERATOR -*A,01 00010F1=7,12,MADLQ 00020F2=8,12,$,905,0 00030F3=9,9,MDLDT 00040F4=10,9,D,914,2 00050F5=11,10,MSOC 00060DEAR @1,**2 00070THIS IS SAMPLE LETTER NUMBER 01.**2 00080IT CONTAINS TWO DOLLAR AMOUNTS, TWO DATES, 00090AND ONE STRING. ALL ARE FROM THE ROOT AREA 00100OF THE FILE AND ARE NOT FIELDS THAT ARE 00110ENTERED BY A COLLECTOR.**2 00120DOLLAR 1 : $XXXXXXX.XX = AMOUNT DELINQUENT**2 00130DOLLAR 2 : $XXXXXXX.XX = CURRENT PAYOFF**2 00140DATE 1: XX/XX/XX = DELINQUENT DATE**2 00150DATE 2: XXX XX, XXXX = PAYOFF GOOD UNTIL DATE**2 00160STRING : XXXXXXXXX = SOCIAL SECURITY NUMBER**3 00170 VERY TRULY YOURS,**2 00180END 00190*A,02 00200F1=5,23,MLLAT 00210F2=6,21,MLLDT 00220DEAR @2: 00230THIS IS SAMPLE LETTER NUMBER 02.**2 00240IT CONTAINS ONE DATE AND ONE AMOUNT, BOTH 00250OF WHICH ARE COLLECTOR ENTERED.**2 00260THE DOLLAR ENTERED IS $XXXXXXX.XX .**2 00270THE DATE ENTERED IS XX/XX/XX .**3 00280 SINCERELY,**2 00290END 00300END 00310__ 18510 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 18520MNUPRO 18530/! 18540DEFINE,FN=PRFLO005,OW=LA,ED=999999,TY=S,LR=80,NR=25 18550LOAD,FN=PRFLO005,OW=LA 18560CHEKID 18570 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 18580 * THE LAAGEWRK FILE IS BEING SORTED 18590INPUT=PRFLO005 18600DSORT 18610FN=LAAGEWRK,LA 18620F2=LAAGEWRK,LA, 18630OP=T,F,A 18640KF=A,17,4,A,1,1 @  3  18650SL=I 18660 * THE LAAGEWRK FILE HAS BEEN SORTED 18670 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 18680INPUT=PRFLO005 18690SWITCH 1870000000000 18710LTRNDP 18720 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 18730MNUPRO 18740/! 18750DEFINE,FN=PRFLO006,OW=LA,ED=999999,TY=S,LR=80,NR=35 18760LOAD,FN=PRFLO006,OW=LA 18770CHEKID 18780 * THE WRITE-OFF REPORT WILL BE GENERATED 18790 * THE LAWOEF FILE WILL BE CREATED 18800INPUT=PRFLO006 18810UTIL 18820DEFINE,FN=LAWOEF,ED=999999,TY=S,LR=115,NR=6000 18830EX 18840WRTOFE 18850 * THE LAWOEF FILE HAS BEEN CREATED 18860 * THE LAWOEF FILE IS BEING SORTED 18870INPUT=PRFLO006 18880DSORT 18890FN=LAWOEF,LA 18900F2=LAWOEF,LA, 18910OP=T,F,A 18920KF=A,25,1,A,17,4,A,21,4,A,1,16 18930SL=I 18940 * THE LAWOEF FILE HAS BEEN SORTED 18950 * THE WRITE-OFF REPORT WILL BE PRINTED 18960LWROFP 18970INPUT=PRFLO006 18980UTIL 18990DELETE,FN=LAWOEF 19000EX 19010 * THE WRITE-OFF REPORT IS COMPLETE 19020MNUPRO 19030/! 19040DEFINE,FN=PRFLO007,OW=LA,ED=999999,TY=S,LR=80,NR=15 19050LOAD,FN=PRFLO007,OW=LA 19060CHEKID 19070 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 19080LDALST 19090 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 19100MNUPRO 19110/! 19120DEFINE,FN=PRFLO008,OW=LA,ED=999999,TY=S,LR=80,NR=15 KU 3f0102__ MRCD 02910001A ACCT REVIEW CODE MSCD 02920002A SUPV STAT CODE-NOT USED BY LA MSDF 09730040A 1 SPECIAL DESCRIPTION FIELD MSLCD 00170001A 0 BORROWERS SALUTATION CODE MSOC 02620009A 0 SOCIAL SECURITY NUMBER MSTC 03060001A 0 ACCOUNT STATUS CODE MSTDT 08570006NY00DATE ACCT LAST UPD BY A/R SYS % 3<AL<S $$ N PRINTED 16040MNUPRO 16050/! 01F= $wF= 9$F= DkF= DF= ADEAR @1,**2THIS IS SAMPLE LETTER NUMBER 01.**2IT CONTAINS TWO DOLLAR AMOUNTS, TWO DATES,**1AND ONE STRING. ALL ARE FROM THE ROOT AREA**1OF THE FILE AND ARE NOT FIELDS THAT ARE**1ENTERED BY A COLLECTOR.**2DOLLAR 1 : $XXXXXXX.XX = AMOUNT DELINQUENT**2DOLLAR 2 : $XXXXXXX.XX = CURRENT PAYOFF**2DATE 1: XX/XX/XX = DELINQUENT DATE**2DATE 2: XXX XX, XXXX = PAYOFF GOOD UNTIL DATE**2STRING : XXXXXXXXX = SOCIAL SECURITY NUMBER**3 VERY TRULY YOURS,**2END 02F= $PF=DJDEAR @2:**1THIS IS SAMPLE LETTER NUMBER 02.**2IT CONTAINS ONE DATE AND ONE AMOUNT, BOTH**1OF WHICH ARE COLLECTOR ENTERED.**2THE DOLLAR ENTERED IS $XXXXXXX.XX .**2THE DATE ENTERED IS XX/XX/XX .**3 SINCERELY,**2END __ 16440 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 16450 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 16460 * CARRIAa 3rIAL+rIS $$ 04210096004 1292 EXT 04220101305 805 *NEWS 00010THIS IS A TEST OF THE CYBERCREDIT SYSTEM'S NEWS FUNCTION FOR THE 00020INSTALLATION TEST KIT PROCEDURES. 00030__ 04260121630 1352 COSIGNER 2 NAME 04270125107 815 HOME 04280126010 2204 HOME PHONE 04290131302 811 04300131630 1652 HOME ADDRESS 04310135106 816 EXT 04320D 3r01653605112345670230915101234567026731759123456703149079712345670401578631234567 01000244912045670100135561234567010694429123456701078796312345670110644191234567011081310123456701295375712345670131593391234567 0137006531234567 0147346781234567 0149907691234567 0164884221234567 01653605112345670173712971234567017443456123456701747473812345670181406481234567018287432123456701861267812345670189348761234567019438487123456701970264912345670204414681234567020727148123456702122625712345670214925591234567017371297123456701744345612345670174747381234567018140648123456701828743212345670186126781234567018934876123456701943848712345670197026491234567020441468123456702072714812345670212262571234567021492559123456702163231712345670230915101234567023438487123456702350420712345670236341591234567 0236592621234567!0239023871234567"0239409191234567#0241465771234567$0241693391234567%0243719561234567&0248285391234567'0250174491234567(0250214491234567)0255350361234567*023438487123456702350420712345670236341591234567 0236592621234567!0239023871234567"0239409191234567#0241465771234567$0241693391234567%0243719561234567&0248285391234567'0250174491234567(0250214491234567)0255350361234567*0263007561234567+0267317591234567,0270007591234567-0273083321234567.0276992191234567/027863456123456700282282291234567102827985912345672028299069123456730283219591234567402871642912345675028857148123456760292117571234567703061772212345678030804643123456790270007591234567-0273083321234567.0276992191234567/027863456123456700282282291234567102827985912345672028299069123456730283219591234567402871642912345675028857148123456760292117571234567703061772212345678030804643123456790311475771234567:0314907971234567;0332898561234567<0346013171234567=0349716481234567>0353693391234567?0354019101234567@0359666691234567A0368074191234567B0377475561234567C0378065561234567D0378864491234567E0378924121234567F0384715101234567G0396211661234567H0332898561234567<0346013171234567=0349716481234567>0353693391234567?0354019101234567@0359666691234567A0368074191234567B0377475561234567C0378065561234567D0378864491234567E0378924121234567F0384715101234567G0396211661234567H0397288631234567I0401578631234567J0402013101234567K0417047671234567L0418074291234567M0428040581234567N0428807591234567O0431234561234567P0431294811234567Q0434395981234567R0452924191234567S0457185561234567T0469123191234567U0476044291234567V0476336781234567W0402013101234567K0417047671234567L0418074291234567M0428040581234567N0428807591234567O0431234561234567P0431294811234567Q0434395981234567R0452924191234567S0457185561234567T0469123191234567U0476044291234567V0476336781234567W0479043391234567X0482825591234567Y0488626391234567Z0489201811234567[042804058123g  3r4567N0428807591234567O0431234561234567P0431294811234567Q0434395981234567R0452924191234567S0457185561234567T0469123191234567U0476044291234567V0476336781234567W__TER ADDRESSEE CODE 06800END 0681082 06820230153 0INVALID ADDRESSEE CODE, PLEASE REENTER ADDRESSEE CODE 06830END 0684083 06850230124 0PLEASE ENTER LETTER DATE 06860END 0687084 06880230140 0INVALID DATE, PLEASE REENTER LETTER DATE 06890END 0690085 06910230126 0PLEASE ENTER LETTER AMOUNT 06920END 0693086 AL*rS $$ 0694023010601061 LETTER DATE 06950230901 0, 069600561326391234567073177RSEHUQUIEST,MARGAUT M APT 1234 4312 SOME ST. TOWN, ST. 543211231234567SAIAH COVEUTRY 234123567876230313 061977BCIM 20 CHECK WILL ARRIVE ON 6/21MOVES ALL THE TIME CALL AFTER 3PM ONLY 0500000000001863164 0577995391234567073177SPUCCI,ROBERT F ADDRESS LINE ONE CITY STATE LINE 098769873452354WOODHILL FLETCHER 7775551212345 0012111111111111073177A2R1 20 COMMENT 4 +22222222222222222222222222222222222222222073177A1R20120 COMMENT 4 +333333333333333333333333073177A2R1 20 COMMENT 4 +]44444444444444444444444073177A2R2 20 COMMENT 4 +555555555555555555555555555555073177A2R1 20 COMMENT 4 +6666666666666666666666666073177A2R1 20 COMMENT 4 +7777777777777777777777777777777PERMENANT COMMENT ONE PERMENANT COMMENT THREE 0500000000000026064 __ 07130154040 0S,<#> = CLIENT STATUS INQUIRY/UPDATE 07140174016 0E = EXIT 07150230122 0PLEASE ENTER SELECTION 07160END 0717092******************CLIENT FILE MAINTENANCE - CHANGE SCREEN 07180010108 0CLIENT # 0719001110400012 CLIENT NUMBER 07200012620 0CLIENT CHANGE SCREEN 07210040112 801,FIRM NAME 0722004203000052 FIRM NAME 07230060117 802,FIRM ADDRESS 1 0724006203000652 FIRM ADDRESS 1  3rtALGrtS $$ 05240230133 0INVALID SELECTION, PLEASE REENTER 05250END 100177 01000244912045670002 03061277111 000040170 000030353 01001355612345670001 02072377070 000016836 000010752 01069442912345670001 05050177153 000009450 000004950 01078796312345670001 02083077032 000011665 000009713 01106441912345670002 05060877115 000031900 000021100 01108131012345670001 02091277019 000011056 000000651 01295375712345670001 02051877136 000004279 000002168 01315933912345670001 03101877000 000017939 000009033 01370065312345670001 02041677168 000013600 000007030 01473467812345670001 02082677036 000012716 000008452 01499076912345670001 05052877126 000021887 000014787 01648842212345670001 02102777000 000023164 000013354 01653605112345670004 02090177030 000082338 000071859 01737129712345670001 02063077093 000008320 000003827 01744345612345670001 02051977135 000004210 000002429 01747473812345670001 02082877034 000007403 000000752 01814064812345670001 02092377008 000005682 000003721 01828743212345670001 02100177000 000033690 000016843 01861267812345670001 02062877095 000004562 000003040 01893487612345670001 02042877156 000018860 000012491 01943848712345670001 02061277111 000020416 000013193 01970264912345670001 05072377070 000009812 000007412 02044146812345670001 02050177153 000000889 000000000 02072714812345670001 02083077032 000015018 000011567 02122625712345670001 02060877115 000012186 000006162 02149255912345670001 03091277019 000011341 000007464 02163231712345670001 02051877136 000000361 000000000 02309151012345670001 02101877000 000008222 000005418 02343848712345670001 02041677168 000000083 000000000 02350420712345670001 02082677036 000003768 000001895 02363415912345670001 03052877126 000017159 000009037 02365926212345670003 02102777000 000057603 000037736 02390238712345670001 02090177030 000010888 000007241 02394091912345670001 03063077093 000019777 000014123 02414657712345670001 02051977135 000007544 000000000 02416933912345670002 03082877034 000034768 000023043 02437195612345670001 02092377008 000007404 000003334 02482853912345670002 05100177000 000028173 000021273 02501744912345670001 03062877095 000004969 000002896 02502144912345670001 03042877156 000018431 000013580 02553503612345670001 02061277111 000005345 000003676 02630075612345670001 02072377070 000008775 000005921 02673175912345670001 05050177153 000012810 000008610 02700075912345670002 05083077032 33  3r000039247 000029647 02730833212345670001 02060877115 000015406 000000000 02769921912345670001 03091277019 000003883 000002584 02786345612345670001 02051877136 000016674 000012540 02822822912345670001 03101877000 000004319 000004275 02827985912345670001 03041677168 000009785 000006131 02829906912345670001 03082677036 000030987 000020993 02832195912345670001 03052877126 000000083 000000000 02871642912345670001 05102777000 000010513 000000413 02885714812345670001 02090177030 000014678 000009256 02921175712345670001 02063077093 000011003 000005856 03061772212345670003 04051977135 000055753 000036919 03080464312345670001 02082877034 000000193 000000000 03114757712345670001 02092377008 000008128 000004122 03149079712345670001 02100177000 000001558 000000000 03328985612345670001 02062877095 000010407 000006301 03460131712345670001 02042877156 000001506 000000032 03497164812345670001 02061277111 000002454 000000478 03536933912345670001 03072377070 000003711 000001830 03540191012345670001 02050177153 000001391 000001374 03596666912345670001 05083077032 000019729 000013329 03680741912345670001 05060877115 000014640 000009840 03774755612345670001 02091277019 000005167 000003275 03780655612345670001 02051877136 000017056 000007779 03788644912345670001 03101877000 000016224 000008876 03789241212345670001 02041677168 000013537 000008313 03847151012345670001 02082677036 000005237 000005161 03962116612345670001 02052877126 000000068 000000000 03972886312345670001 02102777000 000004396 000002230 04015786312345670001 02090177030 000005231 000000311 04020131012345670001 02063077093 000009934 000005007 04170476712345670001 02051977135 000008227 000004335 04180742912345670001 05082877034 000024000 000012000 04280405812345670001 02092377008 000017405 000012737 04288075912345670001 05100177000 000022359 000016959 04312345612345670001 02062877095 000003705 000002215 04312948112345670004 02042877156 000074530 000062688 04343959812345670001 02061277111 000028900 000019155 04529241912345670001 05061877105 000026325 000018595 04571855612345670001 02050177153 000003642 000000000 04691231912345670001 03073077063 000005240 000002662 04760442912345670001 05050877146 000023485 000015785 04763367812345670001 02081277050 000006795 000003053 04790433912345670004 03041877166 000069876 000055226 04828255912345670001 03081877044 000008369 000005378 04886263912345670001 05041677168 000009244 000006340 04892018112345670001 02082677036 000006845 000000200 __ 06190230140 0INVALI  3rID RESULT, ENTER NEXT FUNCTION OR A 06200234135 0CTION,RESULT,LETTER REQUEST,COMMENT 06210END 0622047 06230230140 0INVALID RES, ENTER ITEM,CHANGE OR NEXT F 06240234139 0UNCTION OR ACTION,RESULT,LETTER,COMMENT 06250END 0626062 06270230130 0PLEASE ENTER NEXT CONTACT DATE 06280END 01653605112345670230915101234567026731759123456703149079712345670401578631234567 01000244912045670100135561234567010694429123456701078796312345670110644191234567011081310123456701295375712345670131593391234567 0137006531234567 0147346781234567 0149907691234567 0164884221234567 01653605112345670173712971234567017443456123456701747473812345670181406481234567018287432123456701861267812345670189348761234567019438487123456701970264912345670204414681234567020727148123456702122625712345670214925591234567017371297123456701744345612345670174747381234567018140648123456701828743212345670186126781234567018934876123456701943848712345670197026491234567020441468123456702072714812345670212262571234567021492559123456702163231712345670230915101234567023438487123456702350420712345670236341591234567 0236592621234567!0239023871234567"0239409191234567#0241465771234567$0241693391234567%0243719561234567&0248285391234567'0250174491234567(0250214491234567)0255350361234567*023438487123456702350420712345670236341591234567 0236592621234567!0239023871234567"0239409191234567#0241465771234567$0241693391234567%0243719561234567&0248285391234567'0250174491234567(0250214491234567)0255350361234567*0263007561234567+0267317591234567,0270007591234567-0273083321234567.0276992191234567/027863456123456700282282291234567102827985912345672028299069123456730283219591234567402871642912345675028857148123456760292117571234567703061772212345678030804643123456790270007591234567-0273083321234567.0276992191234567/027863456123456700282282291234567102827985912345672028299069123456730283219591234567402871642912345675028857148123456760292117571234567703061772212345678030804643123456790311475771234567:0314907971234567;0332898561234567<0346013171234567=0349716481234567>0353693391234567?0354019101234567@0359666691234567A0368074191234567B0377475561234567C0378065561234567D0378864491234567E0378924121234567F0384715101234567G0396211661234567H0332898561234567<0346013171234567=0349716481234567>0353693391234567?0354019101234567@0359666691234567A0368074191234567B0377475561234567C0378065561234567DG  3r0378864491234567E0378924121234567F0384715101234567G0396211661234567H0397288631234567I0401578631234567J0402013101234567K0417047671234567L0418074291234567M0428040581234567N0428807591234567O0431234561234567P0431294811234567Q0434395981234567R0452924191234567S0457185561234567T0469123191234567U0476044291234567V0476336781234567W0402013101234567K0417047671234567L0418074291234567M0428040581234567N0428807591234567O0431234561234567P0431294811234567Q0434395981234567R0452924191234567S0457185561234567T0469123191234567U0476044291234567V0476336781234567W0479043391234567X0482825591234567Y0488626391234567Z0489201811234567[0428040581234567N0428807591234567O0431234561234567P0431294811234567Q0434395981234567R0452924191234567S0457185561234567T0469123191234567U0476044291234567V0476336781234567W__TER ADDRESSEE CODE 06800END 0681082 06820230153 0INVALID ADDRESSEE CODE, PLEASE REENTER ADDRESSEE CODE 06830END 0684083 06850230124 0PLEASE ENTER LETTER DATE 06860END 0687084 06880230140 0INVALID DATE, PLEASE REENTER LETTER DATE 06890END 0690085 06910230126 0PLEASE ENTER LETTER AMOUNT 06920END 0693086 AL*rS $$ 0694023010601061 LETTER DATE 06950230901 0, 069600561326391234567073177RSEHUQUIEST,MARGAUT M APT 1234 4312 SOME ST. TOWN, ST. 543211231234567SAIAH COVEUTRY 234123567876230313 061977BCIM 20 CHECK WILL ARRIVE ON 6/21MOVES ALL THE TIME CALL AFTER 3PM ONLY 0500000000001863164 0577995391234567073177SPUCCI,ROBERT F ADDRESS LINE ONE CITY STATE LINE 098769873452354WOODHILL FLETCHER 7775551212345 0012111111111111073177A2R1 20 COMMENT 4 +22222222222222222222222222222222222222222073177A1R20120 COMMENT 4 +333333333333333333333333073177A2R1 20 COMMENT 4 +]44444444444444444444444073177A2R2 20 COMMENT 4 +555555555555555555555555555555073177A2R1 20 COMMENT 4 +6666666666666666666666666073177A2R1 20 COMMENT 4 +7777777777777777777777777777777PERMENANT COMMENT ONE PERMENANT COMMENT THREE 0500000000000026064 __ 07130154040 0S,<#> = CLIENT STATUS INQUIRY/UPDATE 07140174016 0E = EXIT 07150230122 0PLEAS[  3rE ENTER SELECTION 07160END 0717092******************CLIENT FILE MAINTENANCE - CHANGE SCREEN 07180010108 0CLIENT # 0719001110400012 CLIENT NUMBER 07200012620 0CLIENT CHANGE SCREEN 07210040112 801,FIRM NAME 0722004203000052 FIRM NAME 07230060117 802,FIRM ADDRESS 1 0724006203000652 FIRM ADDRESS 1 07250080117 803,FIRM ADDRESS 2 0726008203000952 FIRM ADDRESS 2 07270100115 804,CONTACT NAME 0728010203000352 CONTACT NAME 07290120115 805,PHONE NUMBER 0730012201001254 PHONE NUMBER 07310140112 806,EXTENSION 0732014200401352 EXTENSION 07330160117 807,CURR COMM RATE 0734016200401452 CURRENT COMMISSION RATE 07350180117 808,PREV COMM RATE 0736018200401492 PREVIOUS COMMISSION RATE 07370230134 0ENTER CHANGE ITEM OR NEXT FUNCTION 07380END 0739008***************************** LEGAL AGENCY PAYMENT ENTRY SCREEN 07400022422 0PAYMENT ENTRY SCREEN # 07410024702 6312 07420050120 0ITEM ACCOUNT # 07430052813 0LEGAL# TYPE 07440054621 0DATE AMOUNT 07450060302 32 ITEM NUMBER -1 07460060916 52 ACCOUNT # -1 07470062904 212 LEGAL # -1 07480063802 252 TYPE -1 07490064406 271 DATE -1 07500065609 333 AMOUNT -1 07510066801 422 CREDIT SIGN -1 07520070302 452 ITEM NUMBER -2 07530070916 472 ACCOUNT # -2 07540072904 632 LEGAL # -2 07550073802 672 TYPE -2 07560074406 691 DATE -2 07570075609 753 AMOUNT -2 07580076801 842 CREDIT SIGN -2 07590080302 872 ITEM NUMBER -3 07600080916 892 ACCOUNT # -3 07610082904 1052 LEGAL # -3 07620083802 1092 TYPE -3 07630084406 1111 3rf05613263912345670577995391234567AL rS $$ 07950130916 2992 ACCOUNT # -8 07960132904 3152 LEGAL # -8 0561326391234567073177 0577995391234567073177 __ AMOUNT -8 08000136801 3362 CREDIT SIGN -8 08010140302 3392 ITEM NUMp3rAL*rS $$ 0694023010601061 LETTER DATE 06950230901 0, 069600561326391234567073177RSEHUQUIEST,MARGAUT M APT 1234 4312 SOME ST. TOWN, ST. 543211231234567SAIAH COVEUTRY 234123567876230313 061977BCIM 20 CHECK WILL ARRIVE ON 6/21MOVES ALL THE TIME CALL AFTER 3PM ONLY 0500000000001863164 0577995391234567073177SPUCCI,ROBERT F ADDRESS LINE ONE CITY STATE LINE 098769873452354WOODHILL FLETCHER 7775551212345 0012111111111111073177A2R1 20 COMMENT 4 +22222222222222222222222222222222222222222073177A1R20120 COMMENT 4 +333333333333333333333333073177A2R1 20 COMMENT 4 +]44444444444444444444444073177A2R2 20 COMMENT 4 +555555555555555555555555555555073177A2R1 20 COMMENT 4 +6666666666666666666666666073177A2R1 20 COMMENT 4 +7777777777777777777777777777777PERMENANT COMMENT ONE PERMENANT COMMENT THREE 0500000000000026064 __ 07130154040 0S,<#> = CLIENT STATUS INQUIRY/UPDATE 07140174016 0E = EXIT 07150230122 0PLEASE ENTER SELECTION 07160END 0717092******************CLIENT FILE MAINTENANCE - CHI3rf05613263912345670577995391234567ALrS $$ 08190164406 4471 DATE -11 08200165609 4533 AMOUNT -11 SRA1A2A3A4******************************************************BZPPR1R2R3R4 **************************************************A@ 08250173802 4872 TYPE 9 3rAL rS $$ 07950130916 2992 ACCOUNT # -8 07960132904 3152 LEGAL # -8 0561326391234567073177 0577995391234567073177 __ AMOUNT -8 08000136801 3362 CREDIT SIGN -8 08010140302 3392 ITEM NUMBER -9 08020140916 3412 ACCOUNT # -9 08030142904 3572 LEGAL # -9 08040S L 3MADR1 MP1 LAADR1LAADR2LABAL1LABAL2LACNT1LACNT2LACOD1LACOD2LADUE LAEXT1 LAEXT2 LAFRM1 LAFRM2 LANO1 LANO2 LAPER1LAPHN1LAPHN2LARDT1LARDT2LAREASLATLA MACCT MACT MACTFGMADL MADLQ MADR1 MADR2 MBAD MBBR MBCS MBEX !MBFG "MBNM #MBPH $MBZP %MCBAL &MCCDT 'MCMN (MCPGD )MCS *MDLDT +MDYDL ,MEXT -MLLAT .MLLDT /MLON 0MNADR 1MNAM 2MNPA 3MNXTC 4MOAMT 5MOLNAM6MOLS 7MADR2 MBAD MBBR MBCS MBEX !MBFG "MBNM #MBPH $MBZP %MCBAL &MCCDT 'MCMN (MCPGD )MCS *MDLDT +MDYDL ,MEXT -MLLAT .MLLDT /MLON 0MNADR 1MNAM 2MNPA 3MNXTC 4MOAMT 5MOLNAM6MOLS 7MOPDT 8MP1 9MP2 :MP3 ;MPAD1 MPDQ ?MPFG @MPHN AMPPA BMPPB CMPPCD DMPPD EMPPK FMPQU GMPRI HMPTS IMPYOF JMPZC KMQAS LMQUE MMRCD NMSCD OMSDF PMSLCD QMSOC RMSTC SMSTDT T%MP2 :MP3 ;MPAD1 MPDQ ?MPFG @MPHN AMPPA BMPPB CMPPCD DMPPD EMPPK FMPQU GMPRI HMPTS IMPYOF JMPZC KMQAS LMQUE MMRCD NMSCD OMSDF PMSLCD QMSOC RMSTC SMSTDT TMSUP UMTCD VMTD3 WMTD6 XMTD9 YMTHD ZMTP [MUPDT \MZP ]MPPA BMPPB CMPPCD DMPPD EMPPK FMPQU GMPRI HMPTS IMPYOF JMPZC KMQAS LMQUE MMRCD NMSCD OMSDF PMSLCD QMSOC RMSTC SMSTDT T__N DEMAND REPORTING 00320MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY 00330MNUPRO EX - EXIT 00340/! 00350LOAD,FN=UTIFIL,OW=CCS20 00360HDR1 00370HDR2 00380HDR3 ^TL 3AL'S $$ OR FOR THIS ACCOUNT MTCD 09630004A 0 ACCOUNT TYPE CODE/PRODUCT TYPE MTD3 09670002N300# TIMES ACCT 3LAADR111420060A FIRM ADDRESS LAADR212990060A FIRM ADDRESS-PREVIOUS LABAL112160009TA 2BALANCE DUE AT PLACEMENT LABAL213730009TA 2BAL. DUE AT PLACEMENT-PREV LACNT111120030A CONTACT NAME LACNT212690030A CONTACT NAME-PREVIOUS LACOD110720002A ATTORNEY/AGENCY CODE LA/AA LACOD212290002A ATTNY/AGY CODE-PREVIOUS LADUE 10630009TA 2BALANCE DUE TO LA LAEXT112120004A FIRM EXTENSION LAEXT213690004A EXTENSION-PREVIOUS LAFRM110820030A FIRM NAME LAFRM212390030A FIRM NAME-PREVIOUS LANO1 10740002A ATTORNEY/AGENCY NUMBER LANO2 12310002A ATTNY/AGY NUMBER-PREV. LAPER112250004NA 0FIRM FEE PERCENT LAPHN112020010A FIRM PHONE NUMBER LAPHN213590010A FIRM PHONE-PREVIOUS LARDT110760006NY 0REFERRAL DATE LARDT212330006NY 0REFERRAL DATE-PREVIOUS LAREAS13820004A CLIENT REASSIGNMENT CODE LATLA 10570006NY 0DATE TO LA MACCT 00010016A 0 ACCOUNT NUMBER MACTFG MACT 03070360A 0 COLLECTOR ACTIVITY BLOCK MACTFG00010001A 0 ACCOUNT TYPE FLAG MADL 02460016A 0 ADDITIONAL ACCOUNT NUMBER MADLQ 08870009TA02AMOUNT DELINQUENT (PAST DUE) MADR1 00480030A 0 BORROWERS ADDRESS LINE 1 MADR2 00780030A 0 BORROWERS ADDRESS LINE 2 MBAD 01770030A 0 BUSINESS ADDRESS MBBR 09500005A 0 BANK BRANCH MBCS 02070020A 0 BUSINESS CITY,STATE MBEX 02420004A 0 BUSINESS PHONE EXTENSION MBFG 02860001A 0 ACCOUNT BUSY FLAG MBNM 01470030A 0 BUSINESS NAME MBPH 02320010A 0 BUSINESS PHONE MBZP 02270005A 0 BUSINESS ZIP CODE MCBAL 08960009TA02CURRENT BALANCE MCCDT 08690006NY00DATE ACCT 1ST APPRS IN CCS SYS MCMN 09380001A 0 NUMBER OF COSIGNERS MCPGD 09140006NY00CURRENT PAYOFF GOOD UNTIL MCS 01080020A 0 BORROWERS CITY, STATE MDLDT 08750006NY00DATE ACCOUNT DELINQUENT FROM MDYDL 10130003N300# OF DAYS ACCOUNT DELINQUENT MEXT 01430004A 0 BORROWERS EXTENSION/COMMENT MLLAT 08480009NC02LAST LETTER REQUEST AMOUNT k7  3 MLLDT 08420006NY00LAST LETTER REQUEST DATE MLON 09550008A 0 LOAN OFFICER MNADR 00180116A 0 BORROWERS NAME/ADDR COMBINED MNAM MADR1 MADR2 MCS MZP MNAM 00180030A 0 BORROWERS NAME MNPA 09200009NA02NEXT PAYOFF AMOUNT MNXTC 02750006NY 0NEXT CONTACT DATE MOAMT 09290009NC02OPEN AMOUNT/CREDIT LIMIT MOLNAM10470006A OLD KEY VALUE-NAME CHANGE MOLS 02950001A RESERVED FOR ON-LINE LEGAL MOPDT 08810006NY00ACCOUNT OPEN DATE MP1 06670030A 0 PERMANENT COMMENT 1 MP2 06970030A 0 PERMANENT COMMENT 2 MP3 07270030A 0 PERMANENT COMMENT 3 MPAD1 07570030A 0 PREVIOUS ADDRESS 1 MPAD2 07870030A 0 PREVIOUS ADDRESS 2 MPCS 08170020A 0 PREVIOUS CITY,STATE MPDQ 03000006NY00DATE QUEUE CHANGED MPFG 02850001A 0 PROMISE TO PAY FLAG MPHN 01330010A 0 BORROWERS HOME PHONE MPPA 10220009NA02PROMISED TO PAY AMOUNT MPPB 10390002N3 0# OF BROKEN PROM TO PAY MPPCD 10410006NY 0PROMISE TO PAY COMMIT DATE MPPD 10160006NY00PROMISED TO PAY DATE MPPK 10370002N3 0# KEPT PROMISES TO PAY MPQU 02960004A 0 PREVIOUS QUEUE ASSIGNED MPRI 02810004A ACCOUNT PRIORITY CODE MPTS 09470003A 0 CREDIT/POINT SCORE MPYOF 09050009TA02CURRENT PAYOFF/TOTAL DUE MPZC 08370005A 0 PREVIOUS ZIP CODE MQAS 02940001A QUEUE REASSIGN CODE MQUE 02710004A 0 QUEUE ASSIGNED MRCD 02910001A ACCT REVIEW CODE MSCD 02920002A SUPV STAT CODE-NOT USED BY LA MSDF 09730040A 1 SPECIAL DESCRIPTION FIELD MSLCD 00170001A 0 BORROWERS SALUTATION CODE MSOC 02620009A 0 SOCIAL SECURITY NUMBER MSTC 03060001A 0 ACCOUNT STATUS CODE MSTDT 08570006NY00DATE ACCT LAST UPD BY A/R SYS MSUP 02870004A 0 SUPERVISOR FOR THIS ACCOUNT MTCD 09630004A 0 ACCOUNT TYPE CODE/PRODUCT TYPE MTD3 09670002N300# TIMES ACCT 30 DAYS DELINQ MTD6 09690002N300# TIMES ACCT 60 DAYS DELINQ MTD9 09710002N300# TIMES ACCT 90 DAYS DELINQ MTHD 10310006NY 0DATE OF TAPE,IF IN HISTORY MTP 09390008A 0 RESERVED FOR FUTURE USE MUPDT 08630006NY 0DATE ACCT LAST UPDATED VIA CHG MZP 01280005A 0 BORROWERS ZIP CODE __VOL ,OW=CCS20 04510LOAD,FN=PRFMT001%  3,OW=CCS20 04520CHEKID 04530 * THE LETTER DEFINITION FILE WILL BE PRINTED 04540INPUT=PRFMT001 04550UTIL 04560LIST,FN=LTRDESC,L=LPRINTER,F=U 04570EX 04580 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04590 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04600 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04610 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04620 * CARRIAGE RETURN WHEN READY TO CONTINUE 04630CCSPAS 04640MNUPRO 04650/! 04660DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04670LOAD,FN=PRFMT002,OW=CCS20 04680CHEKID 04690 * THE LETTER FILE WILL BE CREATED 04700 * 04710INPUT=PRFMT002 04720UTIL 04730CLEAR,FN=LTRFIL 04740EX 04750LTRBLD 04760 * THE LETTER FILE HAS BEEN CREATED 04770MNUPRO 04780/! 04790DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04800LOAD,FN=PRFMT003,OW=CCS20 04810CHEKID 04820 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04830 * 04840 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04850 * FROM THE CONSOLE 04860 * 04870 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04880UTFMTN 04890 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04900INPUT=PRFMT003 04910UTIL 04920LIST,FN=UTIFIL,L=LPRINTER,F=U 04930EX 04940 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04950 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04960MNUPRO 04970/! 04980DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04990LOAD,FN=PRFMT004C  3 ,OW=CCS20 05000CHEKID 05010 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 05020 * 05030 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05040DECMTN 05050 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05060MNUPRO 05070/! 05080DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05090LOAD,FN=PRFMT005,OW=CCS20 05100CHEKID 05110 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05120AVMDMP 05130 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05140MNUPRO 05150/! 05160DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05170LOAD,FN=PRFMT006,OW=CCS20 05180CHEKID 05190 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05200 * 05210AVMCON 05220 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05230 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05240AVMDMP 05250 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05260MNUPRO 05270/! 05280DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05290LOAD,FN=PRFMT007,OW=CCS20 05300CHEKID 05310 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05320 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05330 * SCREEN INFORMATION 05340CCSSPC 05350CCSPAS 05360 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05370MNUPRO 05380/! 05390DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05400LOAD,FN=PRFMT008,OW=CCS20 05410CHEKID 05420 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05430INPUT=PRFMT008 05440UTIL 05450LIST,FN=SCRNDESC,L=LPRINTER,F=U 05460EX 05470 * THE SCREEN DEb  3 FINITION FILE HAS BEEN PRINTED 05480 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05490 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05500 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05510 * CARRIAGE RETURN WHEN READY TO CONTINUE 05520CCSPAS 05530MNUPRO 05540/! 05550DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05560LOAD,FN=PRFMT009,OW=CCS20 05570CHEKID 05580 * THE SCREEN FILE WILL BE CREATED 05590BLDSRN 05600 * THE SCREEN FILE HAS BEEN CREATED 05610MNUPRO 05620/! 05630DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05640LOAD,FN=PRFMT010,OW=CCS20 05650CHEKID 05660 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05670 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05680 * CARRIAGE RETURN ONLY - TO CONTINUE 05690 * 05700CCSPAS 05710 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05720CMPDLQ 05730INPUT=PRFMT010 05740UTIL 05750COMPRE,FN=COSIGNER 05760COMPRE,FN=ACTFIL 05770EX 05780 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05790MNUPRO 05800/! 05810DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05820LOAD,FN=PRFMT011,OW=CCS20 05830CHEKID 05840 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05850 * WILL BE PRINTED 05860ACTMTN 05870 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05880 * HAS BEEN PRINTED 05890MNUPRO 05900/! 05910DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05920LOAD,FN=PRFMT012,OW=CCS20 05930CHEKID 05940 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05950 **** OPERATOR -  3rALrS $$ 08190164406 4471 DATE -11 08200165609 4533 AMOUNT -11 SRA1A2A3A4******************************************************BZPPR1R2R3R4 **************************************************A@ 08250173802 4872 TYPE ALRrS $$ 08260174406 4891 DATE -12 08270175609 4953 AMOUNT -12 08280 3s2f0001000200030004ACTCDALTHDR1HDR2HDR3LAC1LAC2LAC3LAC4LAC5LACLLTR1LTR2LTRF OLPM RESCRPTGRSW1SALCSMTH TMTH UPDY __mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmL 3rALRrS $$ 08260174406 4891 DATE -12 08270175609 4953 AMOUNT -12 08280HDR1LEGAL AND AGENCY SYSTEM HDR2VERSION 3.0 HDR3SYSTEM VERIFICATION RSW1R010,S015,W005 ACTCA1A2A3A4SR****************************************************** RESC BZPPR1R2R3R4************************************************** SALCMR MS MISS MRS DALT005 LTRF0COLLECTION DEPT SMTHR006,S006,W006 TMTH012 UPDY015 OLPMRL06,P02,C31,NAN RPTG LRP001 0002COLLECTOR2 100030002,ALL 0003SUPERVISOR1 2 0003,ALL 0004CLERICAL1 0004,ALL 0001COLLECTOR1 1000300010002,ALL LTR101020304** LTR2 LACLLA,AA,00 LAC1ATTORNEY COLLECTION FIRM LAC2COLLECTION AGENCY LAC3IN-HOUSE COLLECTIONS LAC4 LAC5 __04 12 08550060804 0TYPE 08560062104 0TYPE 08570066005 0TOTAL 08580070920 0NO. TRANSACTION 08590076006 0AMOUNT 08600091014 001 DIRECT 08610094818 52 08620111016 002 INDIRECT 08630114818 232 08640131035 003 NON-RECOVERABLE COURT COSTS 08650134818 412 08660151031 004 RECOVERABLE COURT COSTS 08670154818 592 08680171012 005 FEES 08690174818 772 08700200140 0ENTER TO ACCEPT DATA-UPDATE RECORDS 08710210133 0 TO REVIEW TRANSACTIONS 08720220137 0 TO ABORT ROUTINE-NO UPDATE 08730END 8  3s 0874067****** L/A COMPOSITE OF MESSAGE SCREENS 08750230174 12*THE ACTUAL MESSAGE IS PASSED FROM THE CALLING PROGRAM 08760END 0877095******************CLIENT FILE MAINTENANCE - NEW RECORD MESSAGE 08780210122 0***** NEW CLIENT ***** 08790230154 0ENTER FUNCTION OR TO CONTINUE (CREATE NEW RECORD) 08800END 0881096******************CLIENT FILE MAINTENANCE - RECORD BUSY MESSAGE 08820012423 0CLIENT SELECTION SCREEN 08830114523 0A, = CLIENT NAME 08840134525 0N,<#> = CLIENT NUMBER 08850154516 0E = EXIT 08860230162 0SELECTED ACCOUNT BUSY, TRY AGAIN LATER. PLEASE ENTER SELECTION 08870END 0888097******************CLIENT FILE MAINTENANCE - ACTIVE STATUS SCREEN 08890180112 0L/A CLIENT # 0890018150400012 CLIENT NUMBER 08910200136 0CURRENT CLIENT STATUS IS * ACTIVE * 08920230154 0ENTER NEW STATUS OR TO RETURN TO SELECTION SCREEN 08930END 0894098******************CLIENT FILE MAINTENANCE - INACTIVE STATUS SCREEN 08950180112 0L/A CLIENT # 0896018150400012 CLIENT NUMBER 08970200138 0CURRENT CLIENT STATUS IS * INACTIVE * 08980230154 0ENTER NEW STATUS OR TO RETURN TO SELECTION SCREEN 08990END 0900099******************CLIENT FILE MAINTENANCE - INACTIVE CLIENT MESSAGE 09010210134 0*** *** IS AN INACTIVE CLIENT 0902021050400012 CLIENT NUMBER 09030230151 0ENTER FUNCTION OR TO CONTINUE TO CHANGE SCREEN 09040END 09050END 09060END 09070__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3ALS $$ T DATE 00850103906 2751 NEXT CONTACT DATE 00860111520 803 PRIORITY CODE 33******************BORROWER'S CHANGE SCREEN 00010012824 0BORROWER'S CHANGE SCREEN 00020030109 0ACCT NAME 00030031430 182 BORROWER'S NAME 00040035206 0ACCT # 00050036016 12 ACCT # 00060040111 0LAST CHANGE 00070041408 8631 LAST CHANGE 00080055108 0PREVIOUS 00090060115 801 HOME ADDR 1 00100061930 482 HOME ADDR 1 0011006513007572 PREVIOUS ADDRESS LINE 1 00120070115 802 HOME ADDR 2 00130071930 782 HOME ADDR 2 0014007513007872 PREVIOUS ADDRESS LINE 2 00150080115 803 CITY, STATE 00160081920 1082 CITY, STATE 0017008512008172 PREVIOUS CITY/STATE 00180090115 804 HOME ZIP 00190091905 1282 ZIP 0020009510508372 PREVIOUS ZIP 00210100115 805 HOME PHONE 00220101910 1334 PHONE # 00230110115 806 HOME EXT 00240111904 1432 EXT 00250120115 807 BUS NAME 00260121930 1472 BUS NAME 00270130115 808 BUS ADDR 00280131930 1772 BUS ADDR 00290140115 809 CITY, STATE 00300141920 2072 CITY,STATE 00310150115 810 BUS ZIP 00320151905 2272 ZIP 00330160115 811 BUS PHONE 00340161910 2324 BUS PHONE 00350170111 812 BUS EXT 00360171904 2422 BUS EXT 00370230140 0ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC 00380234140 0TION,RESULT,LETTER REQUEST,COMMENT 00390END 0040002******************COLLECTION ACTIVITY SCREEN 00410012020 0COLLECTION ACTIVITY 00420030110 0ACCT NAME 00430031230 182 ACCT NAME 00440035013 0ACCT # 00450036516 012 ACCT #p  3  00460040109 0AMT DELQ 00470041209 8873 AMT DELQ 00480045013 0LAST LTR DATE 00490046506 8421 LAST LRT DATE 00500050109 0DELQ DATE 00510051206 8751 DELQ DATE 00520055013 0LAST LTR AMT 00530056509 8483 LAST LRT AMT 00540070115 0PERM COMMENT 1: 00550072130 6672 COMMENT 1 00560080115 0PERM COMMENT 2: 00570082130 6972 COMMENT 2 00580090115 0PERM COMMENT 3: 00590092130 7272 COMMENT 3 00600110117 0CONTACT AC RS LR 00610120131 0 DATE CD CD CD COLL COMMENTS 00620130180 5 AC RS LR COMMENTS 00630END 0064035******************SUPERVISOR SCREEN 00650012726 0SUPERVISOR'S CHANGE SCREEN 00660030109 0ACCT NAME 00670031830 182 ACCT NAME 00680035409 0ACCT # 00690036516 12 ACCT # 00700040110 0CURR QUEUE 00710041804 2712 CURR QUEUE 00720045410 0AMT DELQ 00730046510 8873 AMT DELQ 00740050115 0LAST QUEUE CHNG 00750051806 3001 LAST QUEUE CHNG 00760055409 0DELQ DATE 00770056506 8751 DELQ DATE 00780060111 0CURR CLIENT 0079006180410722 CURR CLIENT 00800065411 0PREV CLIENT 0081006660412292 PREV CLIENT 00820091519 801 REASSIGN CLIENT 0083009390413822 REASSIGN CLIENT 00840101522 802 NEXT CONTACT DATE 00850103906 2751 NEXT CONTACT DATE 00860111520 803 PRIORITY CODE 00870113904 2812 PRIORITY CODE 00880121522 804 SUPV FOR THIS ACCT 00890123904 2872 SUPV FOR ACCT 00900131522 805 SUPV STATUS CODE 00910133902 2922 STATUS CODE 00920141522 806 QUEUE REASSIGN CODE 00930143901 2942 REASSI[l  3GN CODE 00940151522 807 ACCT REVIEW CODE 00950153901 2912 REVIEW CODE 00960161513 808 PP AMOUNT 0097016390910223 PROMISED TO PAY AMOUNT - CHECKOUT!!00980230140 0ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC 00990234140 0TION,RESULT,LETTER REQUEST,COMMENT 01000END 0101010******************ACCOUNT MASTER SCREEN 01020012825 0BORROWER'S MASTER SCREEN 01030020511 0SUPV ACCT # 01040021704 2872 SP ACCT # 01050026504 0TIME 01060027104 7 TIME 01070040130 182 BORROWER'S NAME 01080043407 0QUEUE # 01090044704 2712 QUEUE # 01100045406 0ACCT # 01110046516 12 ACCT # 01120050130 482 HOME ADDR 1 01130053411 0POINT SCORE 01140054803 9472 POINT SCORE 01150055408 0AMT DELQ 01160057109 8873 AMT DELQ 01170060130 782 HOME ADDR 2 01180063409 0ACCT TYPE 01190064604 9632 ACCT TYPE 01200065409 0DELQ DATE 01210067306 8751 DELQ DATE 01220070120 1082 CITY,STATE 1 01230072605 1282 ZIP 01240073409 0STATUS CD 01250075001 3062 STATUS CD 01260075408 0PREV QUE 01270077704 2962 PREV QUE 01280080106 0HOME # 01290080810 1334 HOME # 01300083408 0PP FLAG 01310085001 2852 PP FLAG 01320085408 0PRIORITY 01330087704 2812 01340090106 0SAL CD 01350090801 172 SAL CD 01360095412 0NEXT CONTACT 01370097306 2751 NEXT CONTACT 01380110130 1472 BUS NAME 01390113410 0SOC SEC # 01400114709 2626 SOC SEC # 01410120130 1772 BUS ADDRf  33 01420123410 0ADL ACCT # 01430124716 2462 ADL ACCT # 01440130120 2072 CITY, STATE 01450132605 2272 ZIP 01460133410 0SAV ACCT # 01470140106 0WORK # 01480140810 2324 WORK # 01490142303 0EXT 01500142704 2422 EXT 01510143410 0CK ACCT # 01520153410 0ENTRY DATE 01530154706 8691 ENTRY DATE 01540160115 0NUMBER COSIGNER 01550161801 9382 COSIGNER 01560163411 0LAST UPDATE 01570164706 8631 LAST UPDATE 01580173415 0PERM COMMENT 1: 01590175130 6672 COMMENT 1 01600183415 0PERM COMMENT 2: 01610185130 6972 COMMENT 2 01620193415 0PERM COMMENT 3: 01630195130 7272 COMMENT 3 01640190115 0LAST ACTIVITY 01650200328 0DATE AC RS LT COLL COMMENT 016602101 9 MOST RECENT COLLECTION ACTIVITY 01670230140 0PLEASE ENTER NEXT FUNCTION OR ACTION,RES 01680234140 0ULT,LETTER REQUEST,COMMENT 01690END 0170020******************FINANCIAL SCREENS 01710013218 0FINANCIAL HISTORY 01720030109 0ACCT NAME 01730031230 182 ACCT NAME 01740035706 0ACCT # 01750036416 12 01760040109 0ACCT TYPE 01770041204 9632 ACCT TYPE 01780050109 0LOAN OFF 01790051208 9552 LOAN OFF 01800060115 0SPEC DESC FIELD 01810061840 9732 DESC FIELD 01820080110 0AMT DELQ 01830081409 8873 AMT DELQ 01840083310 0OPEN DATE 01850084706 8811 OPEN DATE 01860090110 0DELQ DATE 01870091606 8751 DELQ DATE 01880093311 0OPEN AMOUNT 01890094509 9293 OPEN AMO  3GUNT 01900100111 0LAST UPDATE 01910101606 8571 LAST UPDATE 01920103312 0CUR BALANCE 01930104509 8963 CURR BALANCE 01940110111 0ENTRY DATE 01950111606 8691 ENTRY DATE 01960113311 0CUR PAYOFF 019701145 9 9053 CUR PAYOFF 01980130114 0CURRENT CLIENT 01990133315 0PREVIOUS CLIENT 0200014013010822 CURR CLIENT FIRM 0201014333012392 PREV CLIENT FIRM 0202015013111122 CURR CONTACT 0203015333012692 PREV CONTACT 0204016011012024 CURR CLIENT PHONE 0205016331013594 PREV CLIENT PHONE 0206017010912163 BAL DUE AT ASSIGN-CURR 0207017330913733 BAL DUE AT ASSIGN-PREV 02080200132 0DATE OF TAPE, IF IN TAPE HISTORY 0209021350610311 TAPE TO HSITORY 02100230140 0PLEASE ENTER NEXT FUNCTION OR ACTION,RES 02110234140 0ULT,LETTER REQUEST,COMMENT 02120END 0213004******************COSIGNER SCREEN, PART 1 02140013315 0** COSIGNER ** 02150030509 0ACCT NAME 02160031630 182 BORROWER'S NAME 02170035106 0ACCT # 02180035916 12 ACCT # 02190040509 0AMT DELQ 02200041610 8873 9999999.99 02210042809 0DELQ DATE 02220043906 8751 DATE 02230END 0224094******************COSIGNER'S SCREEN, PART 2 02250060110 0COSIGNER 1 02260061302 801 02270061630 202 COSIGNER 1 02280065107 806 HOME 02290066010 1054 HOME PHONE 02300071302 802 02310071630 502 ADDRESS 02320075106 807 EXT 02330076004 1152 EXT 02340081302 803 02350081620 802 CTY STATE 02360085106 808 BUS 02370086010 1194 BUS-PH-NA  3[O 02380091302 804 02390091605 1002 ZIP 02400095106 809 EXT 02410096004 1292 EXT 02420101305 805 02430101601 182 SAL CODE 02440120110 0COSIGNER 2 02450121302 810 02460121630 1352 COSIGNER 2 NAME 02470125107 815 HOME 02480126010 2204 HOME PHONE 02490131302 811 02500131630 1652 HOME ADDRESS 02510135106 816 EXT 02520136004 2302 EXT 02530141302 812 02540141620 1952 CTY STATE 02550145106 817 BUS 02560146010 2344 BUS PHONE 02570151302 813 02580151605 2152 ZIP 02590155106 818 EXT 02600156004 2442 EXT 02610161302 814 02620161601 1332 SAL CODE 02630180110 0COSIGNER 3 02640181302 819 02650181630 2502 COSIGNER 3 NAME 02660185107 824 HOME 02670186010 3354 HOME PHONE 02680191302 820 02690191630 2802 HOME ADDR 02700195106 825 EXT 02710196004 3452 EXT 027202013 2 821 02730201620 3102 CITY STATE 02740205106 826 BUS 02750206010 3494 BUS PHONE 02760211302 822 02770211605 3302 ZIP 02780215106 827 EXT 02790216004 3592 EXT 02800221302 823 02810221601 2482 SAL CD 02820230140 0ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC 02830234140 0TION,RESULT,LETTER REQUEST,COMMENT 02840END 0285031******************SELECTION SCREEN f  3o 02860114021 0A = AUTOMATIC 02870124016 0B, = NAME 02880134026 0N,<#> = ACCOUNT NUMBER 02890144025 0C, = COSIGNER NAME 02900154025 0P = PAYMENT ENTRY 02910164016 0E = EXIT 02920230122 0PLEASE ENTER SELECTION 02930END 0294036******************SELECTION SCREEN, ACCOUNT BUSY 02950114021 0A = AUTOMATIC 02960124016 0B, = NAME 02970134026 0N,<#> = ACCOUNT NUMBER 02980144025 0C, = COSIGNER NAME 02990154025 0P = PAYMENT ENTRY 03000164016 0E = EXIT 03010230162 0SELECTED ACCOUNT BUSY, TRY AGAIN LATER. PLEASE ENTER SELECTION 03020END 0303037******************SELECTION SCREEN, ACCOUNT NOT FOUND 03040114021 0A = AUTOMATIC 03050124016 0B, = NAME 03060134026 0N,<#> = ACCOUNT NUMBER 03070144025 0C, = COSIGNER NAME 03080154025 0P = PAYMENT ENTRY 03090164016 0E = EXIT 03100230150 0SELECTED ACCOUNT NOT FOUND, PLEASE ENTER SELECTION 03110END 0312039******************SELECTION SCREEN, ACCOUNT NOT FOUND COSIGNER SEARCH 03130114021 0A = AUTOMATIC 03140124016 0B, = NAME 03150134026 0N,<#> = ACCOUNT NUMBER 03160144025 0C, = COSIGNER NAME 03170154025 0P = PAYMENT ENTRY 03180164016 0E = EXIT 03190220113 0END OF SEARCH 03200221602 12 NUMBER OF BUSY ACCOUNTS 03210221922 0ACCOUNTS WERE BUSY AND 03220230150 0SELECTED ACCOUNT NOT FOUND, PLEASE ENTER SELECTION 03230END 0324038******************SELECTION SCREEN, ACCOUNT NOT IN ALLOWED QUEUE 03250114021 0A = AUTOMATIC 03260124016 0B, = NAME 03270134026 0N,<#> = ACCOUNT NUMBER 03280144025 0C, = COSIGNER NAME 03290154025 0P = PAYMENT ENTRY 03300164016 0E = EXIT 03310230164 0SELECTED ACCOUNT IN A QUEUE NOT ALLOWED FOR YOUR REVIEW. PLEASE 03320236515 0ENTER SELECTION 03330END   3 0334001******************END OF DAILY ASSIGNMENTS 03350111025 0END OF DAILY ASSIGNMENTS. 03360END 0337030******************LOGIN PROMPT SCREEN 03380190124 0CREDIT COLLECTION SYSTEM 03390200118 0LEGAL VERSION 3.0 034002101 7 03410230125 0PLEASE ENTER COLLECTOR ID 03420END 0343065 03440230133 0INVALID SELECTION, PLEASE REENTER 03450END 0346066******************NAME SEARCH PROMPT SCREEN 03470190418 0# = SELECT NAME 03480200422 0D = DISCONTINUE SEARCH 03490210419 0 = CONTINUE SEARCH 03500230122 0PLEASE ENTER SELECTION 03510END 0352034******************COSIGNER NAME SEARCH DISPLAY SCREEN 03530170130 202 COSIGNER NAME 03540180130 502 COSIGNER ADDRESS 03550190120 802 COSIGNER CITY,STATE 03560192305 1002 COSIGNER ZIP 03570203511 0C = CORRECT 03580213515 0D = DISCONTINUE 03590223512 0 = CONTINUE 03600230122 0PLEASE ENTER SELECTION 03610END 0362048 03630230140 0PLEASE ENTER PROMISED TO PAY DATE,AMOUNT 03640END 0365049 03660230156 0FORMAT ERROR, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT 03670END 0368050 03690230156 0INVALID DATE, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT 03700END 0371051 03720230158 0INVALID AMOUNT, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT 03730END 0374052 03750230115 0PROMISED TO PAY 0376023170910223 PROMISED TO PAY AMOUNT 03770232802 0BY 0378023310610161 PROMISED TO PAY DATE 03790233939 0. VERIFY 'OK', OR ENTER NEW DATE,AMOUNT 03800END 0381053 )  3 03820230140 0PLEASE ENTER ADDRESSEE CODE,LETTER CODE, 03830234125 0LETTER DATE,LETTER AMOUNT 03840END 0385055 03860230140 0INVALID ADDRESSEE, REENTER ADDRESSEE COD 03870234139 0E,LETTER CODE,LETTER DATE,LETTER AMOUNT 03880END 0389054 03900230140 0FORMAT ERROR, REENTER ADDRESSEE CODE,LET 03910234134 0TER CODE,LETTER DATE,LETTER AMOUNT 03920END 0393056 03940230140 0INVALID LETTER CODE, REENTER ADDRESSEE,L 03950234136 0ETTER CODE,LETTER DATE,LETTER AMOUNT 03960END 0397057 03980230140 0INVALID LETTER DATE, REENTER ADDRESSEE,L 03990234136 0ETTER CODE,LETTER DATE,LETTER AMOUNT 04000END 0401058 04020230140 0INVALID LETTER AMOUNT, REENTER ADDRESSEE 04030234138 0,LETTER CODE,LETTER DATE,LETTER AMOUNT 04040END 0405059 04060230106 0LETTER 04070230802 412 LETTER CODE 04080231110 0TO ADDRESS 04090232201 1052 ADDRESSEE CODE 04100232301 0. 04110232506 1061 LETTER REQUEST DATE 04120233303 0, $ 04130233609 1123 LETTER REQUEST AMOUNT 04140234733 0REQUESTED. ENTER OK OR NEW FIELDS 04150END 0416060 04170230139 0A COMMENT IS REQUIRED, PLEASE ENTER ONE 04180END 0419061 04200230143 0COMMENT ENTERED IS TOO LONG, PLEASE REENTER 04210END 0422042 04230230140 0FORMAT ERROR, ENTER NEXT FUNCTION OR ACT 04240234133 0ION,RESULT,LETTER REQUEST,COMMENT 04250END 0426043 04270230139 0FORMAT ERROR, ENTER ITEM,CHANGE OR NEXT 04280234140 0FUNCTION OR ACTION,RESULT,LETTER,COMMENT 04290END *  3 0430044 04310230140 0COMMENT TOO LONG, ENTER NEXT FUNCTION OR 04320234137 0 ACTION,RESULT,LETTER REQUEST,COMMENT 04330END 0434045 04350230139 0COMMENT LONG, ENTER ITEM,CHANGE OR NEXT 04360234140 0FUNCTION OR ACTION,RESULT,LETTER,COMMENT 04370END 0438046 04390230140 0INVALID RESULT, ENTER NEXT FUNCTION OR A 04400234135 0CTION,RESULT,LETTER REQUEST,COMMENT 04410END 0442047 04430230140 0INVALID RES, ENTER ITEM,CHANGE OR NEXT F 04440234139 0UNCTION OR ACTION,RESULT,LETTER,COMMENT 04450END 0446062 04470230130 0PLEASE ENTER NEXT CONTACT DATE 04480END 0449063 04500230146 0INVALID DATE, PLEASE REENTER NEXT CONTACT DATE 04510END 0452040 04530230163 0NO ACTIVITY ALLOWED ON THIS ACCOUNT, PLEASE ENTER NEXT FUNCTION 04540END 0455041 04560230140 0NO ACTIVITY ALLOWED ON THIS ACCOUNT, PLE 04570234138 0ASE ENTER ITEM,CHANGE OR NEXT FUNCTION 04580END 0459064 04600230139 0INVALID DATE, ENTER ITEM,CHANGE OR NEXT 04610234140 0FUNCTION OR ACTION,RESULT,LETTER,COMMENT 04620END 0463070 04640230124 0PLEASE ENTER ACTION CODE 04650END 0466071 04670230124 0PLEASE ENTER RESULT CODE 04680END 0469072 04700230140 0INVALID ACTION, ENTER NEXT FUNCTION OR A 04710234135 0CTION,RESULT,LETTER REQUEST,COMMENT 04720END 0473073 04740230140 0INVALID ACT, ENTER ITEM,CHANGE OR NEXT F 04750234139 0UNCTION OR ACTION,RESULT,LETTER,COMMENT 04760END 0477074 ~  3 04780230133 0PLEASE ENTER PROMISED TO PAY DATE 04790END 0480075 04810230149 0INVALID DATE, PLEASE REENTER PROMISED TO PAY DATE 04820END 0483076 04840230135 0PLEASE ENTER PROMISED TO PAY AMOUNT 04850END 0486077 04870230153 0INVALID AMOUNT, PLEASE REENTER PROMISED TO PAY AMOUNT 04880END 0489078 04900230124 0PLEASE ENTER LETTER CODE 04910END 0492079 04930230146 0A LETTER IS REQUIRED, PLEASE ENTER LETTER CODE 04940END 0495080 04960230147 0INVALID LETTER CODE, PLEASE REENTER LETTER CODE 04970END 0498081 04990230127 0PLEASE ENTER ADDRESSEE CODE 05000END 0501082 05020230153 0INVALID ADDRESSEE CODE, PLEASE REENTER ADDRESSEE CODE 05030END 0504083 05050230124 0PLEASE ENTER LETTER DATE 05060END 0507084 05080230140 0INVALID DATE, PLEASE REENTER LETTER DATE 05090END 0510085 05110230126 0PLEASE ENTER LETTER AMOUNT 05120END 0513086 0514023010601061 LETTER DATE 05150230901 0, 0516023110901123 LETTER AMOUNT 05170232241 0,REQUESTED. VERIFY 'OK' OR ENTER NEW DATE 05180END 0519087 05200230120 0PLEASE ENTER COMMENT 05210END 0522088 05230230115 0PROMISED TO PAY 0524023170910223 PROMISED TO PAY AMOUNT 05250232802 0BY {  3 0526023310610161 PROMISED TO PAY DATE 05270233940 0. VERIFY 'OK' OR ENTER NEW PROMISED DATE 05280END 0529091******************CLIENT FILE MAINTENANCE - SELECTION SCREEN 05300012423 0CLIENT SELECTION SCREEN 05310114030 0A, = CLIENT NAME SEARCH 05320134035 0N,<#> = CLIENT NUMBER RETRIEVAL 05330154040 0S,<#> = CLIENT STATUS INQUIRY/UPDATE 05340174016 0E = EXIT 05350230122 0PLEASE ENTER SELECTION 05360END 0537092******************CLIENT FILE MAINTENANCE - CHANGE SCREEN 05380010108 0CLIENT # 0539001110400012 CLIENT NUMBER 05400012620 0CLIENT CHANGE SCREEN 05410040112 801,FIRM NAME 0542004203000052 FIRM NAME 05430060117 802,FIRM ADDRESS 1 0544006203000652 FIRM ADDRESS 1 05450080117 803,FIRM ADDRESS 2 0546008203000952 FIRM ADDRESS 2 05470100115 804,CONTACT NAME 0548010203000352 CONTACT NAME 05490120115 805,PHONE NUMBER 0550012201001254 PHONE NUMBER 05510140112 806,EXTENSION 0552014200401352 EXTENSION 05530160117 807,CURR COMM RATE 0554016200401452 CURRENT COMMISSION RATE 05550180117 808,PREV COMM RATE 0556018200401492 PREVIOUS COMMISSION RATE 05570230134 0ENTER CHANGE ITEM OR NEXT FUNCTION 05580END 0559093******************CLIENT FILE MAINTENANCE - FINANCIAL SCREEN 05600010108 0CLIENT # 0561001110400012 CLIENT NUMBER 05620012423 0CLIENT FINANCIAL SCREEN 05630030236 0# AMT AMT # AMT COMM 05640034233 0# AMT # COURT HISTORY 05650040138 0ACCT ACCT COL PIF PIF EARNED 05660044133 0CLD CLD ACT COSTS MO/YR 0567006010301592 NUMBER OF ACCTS PLACED- MONTH 1 0568006050701622 AMOUNT OF ACCTS PLACED- MONTH 1 0569006130701712 AMOUNT COLLECTED - MONTH 1 0570006210301802 NUMBER OF PAID-IN-FULL- MONTH 1 0571006250701832 AMOUNT OF PAID-IN-FULL- MONTH 1 0572006330701922 COMMISSIONS EARNED - MONTH 1 0573006410302012 NUMBER OS  3F ACCTS CLOSED- MONTH 1 0574006450702042 AMOUNT OF ACCTS CLOSED- MONTH 1 0575006530302132 NUMBER OF ACTIVE ACCTS- MONTH 1 0576006570702252 COURT COSTS - MONTH 1 0577006690201572 CLIENT HISTORY MONTH - MONTH 1 05780067101 0/ 0579006720201552 CLIENT HISTORY YEAR - MONTH 1 0580007010302472 NUMBER OF ACCTS PLACED- MONTH 2 0581007050702502 AMOUNT OF ACCTS PLACED- MONTH 2 0582007130702592 AMOUNT COLLECTED - MONTH 2 0583007210302682 NUMBER OF PAID-IN-FULL- MONTH 2 0584007250702712 AMOUNT OF PAID-IN-FULL- MONTH 2 0585007330702802 COMMISSIONS EARNED - MONTH 2 0586007410302892 NUMBER OF ACCTS CLOSED- MONTH 2 0587007450702922 AMOUNT OF ACCTS CLOSED- MONTH 2 0588007530303012 NUMBER OF ACTIVE ACCTS- MONTH 2 0589007570703132 COURT COSTS - MONTH 2 0590007690202452 CLIENT HISTORY MONTH - MONTH 2 05910077101 0/ 0592007720202432 CLIENT HISTORY YEAR - MONTH 2 0593008010303352 NUMBER OF ACCTS PLACED- MONTH 3 0594008050703382 AMOUNT OF ACCTS PLACED- MONTH 3 0595008130703472 AMOUNT COLLECTED - MONTH 3 0596008210303562 NUMBER OF PAID-IN-FULL- MONTH 3 0597008250703592 AMOUNT OF PAID-IN-FULL- MONTH 3 0598008330703682 COMMISSIONS EARNED - MONTH 3 0599008410303772 NUMBER OF ACCTS CLOSED- MONTH 3 0600008450703802 AMOUNT OF ACCTS CLOSED- MONTH 3 0601008530303892 NUMBER OF ACTIVE ACCTS- MONTH 3 0602008570704012 COURT COSTS - MONTH 3 0603008690203332 CLIENT HISTORY MONTH - MONTH 3 06040087101 0/ 0605008720203312 CLIENT HISTORY YEAR - MONTH 3 0606009010304232 NUMBER OF ACCTS PLACED- MONTH 4 0607009050704262 AMOUNT OF ACCTS PLACED- MONTH 4 0608009130704352 AMOUNT COLLECTED - MONTH 4 0609009210304442 NUMBER OF PAID-IN-FULL- MONTH 4 0610009250704472 AMOUNT OF PAID-IN-FULL- MONTH 4 0611009330704562 COMMISSIONS EARNED - MONTH 4 0612009410304652 NUMBER OF ACCTS CLOSED- MONTH 4 0613009450704682 AMOUNT OF ACCTS CLOSED- MONTH 4 0614009530304772 NUMBER OF ACTIVE ACCTS- MONTH 4 0615009570704892 COURT COSTS - MONTH 4 0616009690204212 CLIENT HISTORY MONTH - MONTH 4 06170097101 0/ 0618009720204192 CLIENT HISTORY YEAR - MONTH 4 0619010010305112 NUMBER OF ACCTS PLACED- MONTH 5 0620010050705142 AMOUNT OF ACCTS PLACED- MONTH 5 0621010130705232 AMOUNT CI  3OLLECTED - MONTH 5 0622010210305322 NUMBER OF PAID-IN-FULL- MONTH 5 0623010250705352 AMOUNT OF PAID-IN-FULL- MONTH 5 0624010330705442 COMMISSIONS EARNED - MONTH 5 0625010410305532 NUMBER OF ACCTS CLOSED- MONTH 5 0626010450705562 AMOUNT OF ACCTS CLOSED- MONTH 5 0627010530305652 NUMBER OF ACTIVE ACCTS- MONTH 5 0628010570705772 COURT COSTS - MONTH 5 0629010690205092 CLIENT HISTORY MONTH - MONTH 5 06300107101 0/ 0631010720205072 CLIENT HISTORY YEAR - MONTH 5 0632011010305992 NUMBER OF ACCTS PLACED- MONTH 6 0633011050706022 AMOUNT OF ACCTS PLACED- MONTH 6 0634011130706112 AMOUNT COLLECTED - MONTH 6 0635011210306202 NUMBER OF PAID-IN-FULL- MONTH 6 0636011250706232 AMOUNT OF PAID-IN-FULL- MONTH 6 0637011330706322 COMMISSIONS EARNED - MONTH 6 0638011410306412 NUMBER OF ACCTS CLOSED- MONTH 6 0639011450706442 AMOUNT OF ACCTS CLOSED- MONTH 6 0640011530306532 NUMBER OF ACTIVE ACCTS- MONTH 6 0641011570706652 COURT COSTS - MONTH 6 0642011690205972 CLIENT HISTORY MONTH - MONTH 6 06430117101 0/ 0644011720205952 CLIENT HISTORY YEAR - MONTH 6 0645012010306872 NUMBER OF ACCTS PLACED- MONTH 7 0646012050706902 AMOUNT OF ACCTS PLACED- MONTH 7 0647012130706992 AMOUNT COLLECTED - MONTH 7 0648012210307082 NUMBER OF PAID-IN-FULL- MONTH 7 0649012250707112 AMOUNT OF PAID-IN-FULL- MONTH 7 0650012330707202 COMMISSIONS EARNED - MONTH 7 0651012410307292 NUMBER OF ACCTS CLOSED- MONTH 7 0652012450707322 AMOUNT OF ACCTS CLOSED- MONTH 7 0653012530307412 NUMBER OF ACTIVE ACCTS- MONTH 7 0654012570707532 COURT COSTS - MONTH 7 0655012690206852 CLIENT HISTORY MONTH - MONTH 7 06560127101 0/ 0657012720206832 CLIENT HISTORY YEAR - MONTH 7 0658013010307752 NUMBER OF ACCTS PLACED- MONTH 8 0659013050707782 AMOUNT OF ACCTS PLACED- MONTH 8 0660013130707872 AMOUNT COLLECTED - MONTH 8 0661013210307962 NUMBER OF PAID-IN-FULL- MONTH 8 0662013250707992 AMOUNT OF PAID-IN-FULL- MONTH 8 0663013330708082 COMMISSIONS EARNED - MONTH 8 0664013410308172 NUMBER OF ACCTS CLOSED- MONTH 8 0665013450708202 AMOUNT OF ACCTS CLOSED- MONTH 8 0666013530308292 NUMBER OF ACTIVE ACCTS- MONTH 8 0667013570708412 COURT COSTS - MONTH 8 0668013690207732 CLIENT HISTORY MONTH - MONTH 8 06690137101 0/ ܴ  3 0670013720207712 CLIENT HISTORY YEAR - MONTH 8 0671014010308632 NUMBER OF ACCTS PLACED- MONTH 9 0672014050708662 AMOUNT OF ACCTS PLACED- MONTH 9 0673014130708752 AMOUNT COLLECTED - MONTH 9 0674014210308842 NUMBER OF PAID-IN-FULL- MONTH 9 0675014250708872 AMOUNT OF PAID-IN-FULL- MONTH 9 0676014330708962 COMMISSIONS EARNED - MONTH 9 0677014410309052 NUMBER OF ACCTS CLOSED- MONTH 9 0678014450709082 AMOUNT OF ACCTS CLOSED- MONTH 9 0679014530309172 NUMBER OF ACTIVE ACCTS- MONTH 9 0680014570709292 COURT COSTS - MONTH 9 0681014690208612 CLIENT HISTORY MONTH - MONTH 9 06820147101 0/ 0683014720208592 CLIENT HISTORY YEAR - MONTH 9 0684015010309512 NUMBER OF ACCTS PLACED- MONTH 10 0685015050709542 AMOUNT OF ACCTS PLACED- MONTH 10 0686015130709632 AMOUNT COLLECTED - MONTH 10 0687015210309722 NUMBER OF PAID-IN-FULL- MONTH 10 0688015250709752 AMOUNT OF PAID-IN-FULL- MONTH 10 0689015330709842 COMMISSIONS EARNED - MONTH 10 0690015410309932 NUMBER OF ACCTS CLOSED- MONTH 10 0691015450709962 AMOUNT OF ACCTS CLOSED- MONTH 10 0692015530310052 NUMBER OF ACTIVE ACCTS- MONTH 10 0693015570710172 COURT COSTS - MONTH 10 0694015690209492 CLIENT HISTORY MONTH - MONTH 10 06950157101 0/ 0696015720209472 CLIENT HISTORY YEAR - MONTH 10 0697016010310392 NUMBER OF ACCTS PLACED- MONTH 11 0698016050710422 AMOUNT OF ACCTS PLACED- MONTH 11 0699016130710512 AMOUNT COLLECTED - MONTH 11 0700016210310602 NUMBER OF PAID-IN-FULL- MONTH 11 0701016250710632 AMOUNT OF PAID-IN-FULL- MONTH 11 0702016330710722 COMMISSIONS EARNED - MONTH 11 0703016410310812 NUMBER OF ACCTS CLOSED- MONTH 11 0704016450710842 AMOUNT OF ACCTS CLOSED- MONTH 11 0705016530310932 NUMBER OF ACTIVE ACCTS- MONTH 11 0706016570711052 COURT COSTS - MONTH 11 0707016690210372 CLIENT HISTORY MONTH - MONTH 11 07080167101 0/ 0709016720210352 CLIENT HISTORY YEAR - MONTH 11 0710017010311272 NUMBER OF ACCTS PLACED- MONTH 12 0711017050711302 AMOUNT OF ACCTS PLACED- MONTH 12 0712017130711392 AMOUNT COLLECTED - MONTH 12 0713017210311482 NUMBER OF PAID-IN-FULL- MONTH 12 0714017250711512 AMOUNT OF PAID-IN-FULL- MONTH 12 0715017330711602 COMMISSIONS EARNED - MONTH 12 0716017410311692 NUMBER OF ACCTS CLOSED- MONTH 12 0717017450711722 AMOUNT O  3#F ACCTS CLOSED- MONTH 12 0718017530311812 NUMBER OF ACTIVE ACCTS- MONTH 12 0719017570711932 COURT COSTS - MONTH 12 0720017690211252 CLIENT HISTORY MONTH - MONTH 12 07210177101 0/ 0722017720211232 CLIENT HISTORY YEAR - MONTH 12 07230196708 012 MONTH 0724020010312152 NUMBER OF ACCTS PLACED- LAST12 MOS 0725020050712182 AMOUNT OF ACCTS PLACED- LAST12 MOS 0726020130712272 AMOUNT COLLECTED - LAST12 MOS 0727020210312362 NUMBER OF PAID-IN-FULL- LAST12 MOS 0728020250712392 AMOUNT OF PAID-IN-FULL- LAST12 MOS 0729020330712482 COMMISSIONS EARNED - LAST12 MOS 0730020410312572 NUMBER OF ACCTS CLOSED- LAST12 MOS 0731020450712602 AMOUNT OF ACCTS CLOSED- LAST12 MOS 0732020530312692 NUMBER OF ACTIVE ACCTS- LAST12 MOS 0733020570712812 COURT COSTS - LAST12 MOS 07340206707 0SUMMARY 07350230119 0ENTER NEXT FUNCTION 07360END 0737008***************************** LEGAL AGENCY PAYMENT ENTRY SCREEN 07380022422 0PAYMENT ENTRY SCREEN # 07390024702 6312 07400050120 0ITEM ACCOUNT # 07410052813 0LEGAL# TYPE 07420054621 0DATE AMOUNT 07430060302 32 ITEM NUMBER -1 07440060916 52 ACCOUNT # -1 07450062904 212 LEGAL # -1 07460063802 252 TYPE -1 07470064406 271 DATE -1 07480065609 333 AMOUNT -1 07490066801 422 CREDIT SIGN -1 07500070302 452 ITEM NUMBER -2 07510070916 472 ACCOUNT # -2 07520072904 632 LEGAL # -2 07530073802 672 TYPE -2 07540074406 691 DATE -2 07550075609 753 AMOUNT -2 07560076801 842 CREDIT SIGN -2 07570080302 872 ITEM NUMBER -3 07580080916 892 ACCOUNT # -3 07590082904 1052 LEGAL # -3 07600083802 1092 TYPE -3 07610084406 1111 DATE -3 07620085609 1173 AMOUNT -3 07630086801 1262 CREDIT SIGN -3 07640090302 1292 ITEM NUMBER -4 07650090916 1312 ACCOUNT  37# -4 07660092904 1472 LEGAL # -4 07670093802 1512 TYPE -4 07680094406 1531 DATE -4 07690095609 1593 AMOUNT -4 07700096801 1682 CREDIT SIGN -4 07710100302 1712 ITEM NUMBER -5 07720100916 1732 ACCOUNT # -5 07730102904 1892 LEGAL # -5 07740103802 1932 TYPE -5 07750104406 1951 DATE -5 07760105609 2013 AMOUNT -5 07770106801 2102 CREDIT SIGN -5 07780110302 2132 ITEM NUMBER -6 07790110916 2152 ACCOUNT # -6 07800112904 2312 LEGAL # -6 07810113802 2352 TYPE -6 07820114406 2371 DATE -6 07830115609 2433 AMOUNT -6 07840116801 2522 CREDIT SIGN -6 07850120302 2552 ITEM NUMBER -7 07860120916 2572 ACCOUNT # -7 07870122904 2732 LEGAL # -7 07880123802 2772 TYPE -7 07890124406 2791 DATE -7 07900125609 2853 AMOUNT -7 07910126801 2942 CREDIT SIGN -7 07920130302 2972 ITEM NUMBER -8 07930130916 2992 ACCOUNT # -8 07940132904 3152 LEGAL # -8 07950133802 3192 TYPE -8 07960134406 3211 DATE -8 07970135609 3273 AMOUNT -8 07980136801 3362 CREDIT SIGN -8 07990140302 3392 ITEM NUMBER -9 08000140916 3412 ACCOUNT # -9 08010142904 3572 LEGAL # -9 08020143802 3612 TYPE -9 08030144406 3631 DATE -9 08040145609 3693 AMOUNT -9 08050146801 3782 CREDIT SIGN -9 08060150302 3812 ITEM NUMBER -10 08070150916 3832 ACCOUNT # -10 08080152904 3992 LEGAL # -10 08090153802 4032 TYPE -10 08100154406 4051 DATE -10 08110155609 4113 AMOUNT -10 08120156801 4202 CREDIT SIGN -10 08130160302 4232 ITEM NUME  3KBER -11 08140160916 4252 ACCOUNT # -11 08150162904 4412 LEGAL # -11 08160163802 4452 TYPE -11 08170164406 4471 DATE -11 08180165609 4533 AMOUNT -11 08190166801 4622 CREDIT SIGN -11 08200170302 4652 ITEM NUMBER -12 08210170916 4672 ACCOUNT # -12 08220172904 4832 LEGAL # -12 08230173802 4872 TYPE -12 08240174406 4891 DATE -12 08250175609 4953 AMOUNT -12 08260176801 5042 CREDIT SIGN -12 08270180302 5072 ITEM NUMBER -13 08280180916 5092 ACCOUNT # -13 08290182904 5252 LEGAL # -13 08300183802 5292 TYPE -13 08310184406 5311 DATE -13 08320185609 5373 AMOUNT -13 08330186801 5462 CREDIT SIGN -13 08340190302 5492 ITEM NUMBER -14 08350190916 5512 ACCOUNT # -14 08360192904 5672 LEGAL # -14 08370193802 5712 TYPE -14 08380194406 5731 DATE -14 08390195609 5793 AMOUNT -14 08400196801 5882 CREDIT SIGN -14 08410200302 5912 ITEM NUMBER -15 08420200916 5932 ACCOUNT # -15 08430202904 6092 LEGAL # -15 08440203802 6132 TYPE -15 08450204406 6151 DATE -15 08460205609 6213 AMOUNT -15 08470206801 6302 CREDIT SIGN -15 08480END 0849009************************LEGAL AGENCY STATEMENT BALANCE SCREEN 08500022417 0STATEMENT BALANCE 08510040221 0TOTAL ITEMS ENTERED = 08520042304 12 08530060804 0TYPE 08540062104 0TYPE 08550066005 0TOTAL 08560070920 0NO. TRANSACTION 08570076006 0AMOUNT 08580091014 001 DIRECT 08590094818 52 08600111016 002 INDIRECT 08610114818 232 a  3_ 08620131035 003 NON-RECOVERABLE COURT COSTS 08630134818 412 08640151031 004 RECOVERABLE COURT COSTS 08650154818 592 08660171012 005 FEES 08670174818 772 08680200140 0ENTER TO ACCEPT DATA-UPDATE RECORDS 08690210133 0 TO REVIEW TRANSACTIONS 08700220137 0 TO ABORT ROUTINE-NO UPDATE 08710END 0872067****** L/A COMPOSITE OF MESSAGE SCREENS 08730230174 12*THE ACTUAL MESSAGE IS PASSED FROM THE CALLING PROGRAM 08740END 0875095******************CLIENT FILE MAINTENANCE - NEW RECORD MESSAGE 08760210122 0***** NEW CLIENT ***** 08770230154 0ENTER FUNCTION OR TO CONTINUE (CREATE NEW RECORD) 08780END 0879096******************CLIENT FILE MAINTENANCE - RECORD BUSY MESSAGE 08800012423 0CLIENT SELECTION SCREEN 08810114523 0A, = CLIENT NAME 08820134525 0N,<#> = CLIENT NUMBER 08830154516 0E = EXIT 08840230162 0SELECTED ACCOUNT BUSY, TRY AGAIN LATER. PLEASE ENTER SELECTION 08850END 0886097******************CLIENT FILE MAINTENANCE - ACTIVE STATUS SCREEN 08870180112 0L/A CLIENT # 0888018150400012 CLIENT NUMBER 08890200136 0CURRENT CLIENT STATUS IS * ACTIVE * 08900230154 0ENTER NEW STATUS OR TO RETURN TO SELECTION SCREEN 08910END 0892098******************CLIENT FILE MAINTENANCE - INACTIVE STATUS SCREEN 08930180112 0L/A CLIENT # 0894018150400012 CLIENT NUMBER 08950200138 0CURRENT CLIENT STATUS IS * INACTIVE * 08960230154 0ENTER NEW STATUS OR TO RETURN TO SELECTION SCREEN 08970END 0898099******************CLIENT FILE MAINTENANCE - INACTIVE CLIENT MESSAGE 08990210134 0*** *** IS AN INACTIVE CLIENT 0900021050400012 CLIENT NUMBER 09010230151 0ENTER FUNCTION OR TO CONTINUE TO CHANGE SCREEN 09020END 09030END 09040__G016 P - R.G. REPORT 16 - (AVAILABLE) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/!  3s 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIME USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINT(  3ING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY 02090CCSPAS 02100INPUT=PRFDC004 02110SWITCH 0212010000000 02130 * THE UPDATE TAPE WILL BE PROCESSED |  3 02140UPDATE 02150 * THE UPDATE TAPE HAS BEEN PROCESSED 02160 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02170 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02180 * SCREEN INFORMATION 02190CCSSPC 02200CCSPAS 02210 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02220MNUPRO 02230/! 02240DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02250LOAD,FN=PRFDC005,OW=CCS20 02260CHEKID 02270 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02280 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02290 * CARRIAGE RETURN WHEN READY 02300CCSPAS 02310INPUT=PRFDC005 02320SWITCH 0233010000000 02340UPD400 02350 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02360MNUPRO 02370/! 02380DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02390LOAD,FN=PRFDC006,OW=CCS20 02400CHEKID 02410 * THE FINANCIAL UPDATES WILL BE PROCESSED 02420 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02430 * 02440INPUT=PRFDC006 02450MOUNT 02460FTAPE,B,P 02470/* 02480UPD500 02490 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02500MNUPRO 02510/! 02520DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02530LOAD,FN=PRFDC007,OW=CCS20 02540CHEKID 02550 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02560DHUPDT 02570 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02580MNUPRO 02590/! 02600DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02610LOAD,FN=PRFDC008,OW=CCS20  3 02620CHEKID 02630 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02640 * COLLECTORS ARE OFF-LINE FOR THE DAY 02650MNUPRO 02660/! 02670DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02680LOAD,FN=PRFDC009,OW=CCS20 02690CHEKID 02700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02710 * COLLECTORS ARE OFF-LINE FOR THE DAY 02720MNUPRO 02730/! 02740DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02750LOAD,FN=PRFDC010,OW=CCS20 02760CHEKID 02770 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02780 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02790 * CARRIAGE RETURN ONLY - TO CONTINUE 02800 * 02810CCSPAS 02820 * 02830 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02840 * 02850INPUT=PRFDC010 02860UTIL 02870CLEAR,FN=TRNSFL 02880EX 02890INPUT=PRFDC010 02900DSORT 02910FN=TRANFL,CCS20 02920F2=TRNSFL,CCS20, 02930OP=T,F,A 02940KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 02950SL=I 02960PRETSR 02970INPUT=PRFDC010 02980UTIL 02990CLEAR,FN=ACTIVE 03000CLEAR,FN=TRANFL 03010CLEAR,FN=TRNBCK 03020EX 03030 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03040NMCHNG 03050RSWCHG 03060INPUT=PRFDC010 03070UTIL 03080CLEAR,FN=ADDACT 03090EX J  3 03100MNUPRO 03110/! 03120DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03130LOAD,FN=PRFDC011,OW=CCS20 03140CHEKID 03150 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03160 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03170 * CARRIAGE RETURN ONLY - TO CONTINUE 03180 * 03190CCSPAS 03200 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03210INPUT=PRFDC011 03220UTIL 03230CLEAR,FN=DLYWRK 03240EX 03250SRREQ 03260 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03270 * 03280 * THE DLYASSN FILE IS BEING CREATED 03290DACRTE 03300 * THE DLYASSN FILE HAS BEEN CREATED 03310 * THE DLYASSN FILE IS BEING SORTED 03320INPUT=PRFDC011 03330DSORT 03340FN=DLYWRK,CCS20 03350FN=DLYASSN,CCS20 03360F2=DLYASSN,CCS20, 03370OP=T,F,A 03380KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03390SL=I 03400 * THE DLYASSN FILE HAS BEEN SORTED 03410INPUT=PRFDC011 03420UTIL 03430CLEAR,FN=DAQUE 03440EX 03450 * THE DAILY QUEUE FILE IS BEING CREATED 03460DAQUEL 03470 * THE DAILY QUEUE FILE HAS BEEN CREATED 03480 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03490 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03500 * SCREEN INFORMATION 03510CCSSPC 03520CCSPAS 03530 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03540 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03550MNUPRO 03560/! 03570DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VLp  3=SYSVOL ,OW=CCS20 03580LOAD,FN=PRFHS001,OW=CCS20 03590CHEKID 03600 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03610 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03620INPUT=PRFHS001 03630DSORT 03640FN=INACCT,CCS20 03650F2=INTEMP,CCS20, 03660OP=T,F,A 03670KF=A,1,16,D,23,2,D,19,4 03680SL=I 03690INPUT=PRFHS001 03700UTIL 03710CLEAR,FN=INACCT 03720COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03730DELETE,FN=INTEMP 03740EX 03750 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03760 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03770 * WITH WRITE RING 03780 * CARRIAGE RETURN WHEN READY 03790CCSPAS 03800MHUPDT 03810 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 03820 * REBUILDING INACCT 03830FIXINA 03840 * INACCT REBUILD COMPLETE 03850MNUPRO 03860/! 03870DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03880LOAD,FN=PRFHS002,OW=CCS20 03890CHEKID 03900 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03910 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03920 * CARRIAGE RETURN ONLY - TO CONTINUE 03930 * 03940CCSPAS 03950 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 03960INPUT=PRFHS002 03970UTIL 03980DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 03990EX 04000CHUPD1 04010 * THE UPREQ FILE WILL BE SORTED 04020INPUT=PRFHS002 04030DSORT 04040FN=UPREQ,CCS20 04050F2=UPREQ,CCS20,  3 04060OP=T,F,A 04070KF=D,21,2,D,17,4,A,1,16 04080SL=I 04090 * THE UPREQ FILE HAS BEEN SORTED 04100INPUT=PRFHS002 04110UTIL 04120CLEAR,FN=UPHSTCM 04130EX 04140 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04150 * EXECUTION OF THE NEXT JOB 04160CHUPD2 04170INPUT=PRFHS002 04180UTIL 04190DELETE,FN=UPREQ 04200EX 04210 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04220MNUPRO 04230/! 04240DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04250LOAD,FN=PRFHS003,OW=CCS20 04260CHEKID 04270 * THE SUMHIST FILE WILL BE PURGED 04280PHDEL2 04290CMPSUM 04300 * THE SUMHIST FILE HAS BEEN PURGED 04310MNUPRO 04320/! 04330DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04340LOAD,FN=PRFHS004,OW=CCS20 04350CHEKID 04360 * THE TAPEARC FILE WILL BE PURGED 04370PHDEL1 04380INPUT=PRFHS004 04390UTIL 04400COMPRE,FN=TAPEARC 04410EX 04420 * THE TAPEARC FILE HAS BEEN PURGED 04430MNUPRO 04440/! 04450DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04460LOAD,FN=PRFMT001,OW=CCS20 04470CHEKID 04480 * THE LETTER DEFINITION FILE WILL BE PRINTED 04490INPUT=PRFMT001 04500UTIL 04510LIST,FN=LTRDESC,L=LPRINTER,F=U 04520EX 04530 * THE LETTER DEFINITION FILE HAS BEEN PRINTED X  3 04540 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04550 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04560 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04570 * CARRIAGE RETURN WHEN READY TO CONTINUE 04580CCSPAS 04590MNUPRO 04600/! 04610DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04620LOAD,FN=PRFMT002,OW=CCS20 04630CHEKID 04640 * THE LETTER FILE WILL BE CREATED 04650 * 04660INPUT=PRFMT002 04670UTIL 04680CLEAR,FN=LTRFIL 04690EX 04700LTRBLD 04710 * THE LETTER FILE HAS BEEN CREATED 04720MNUPRO 04730/! 04740DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04750LOAD,FN=PRFMT003,OW=CCS20 04760CHEKID 04770 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04780 * 04790 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04800 * FROM THE CONSOLE 04810 * 04820 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04830UTFMTN 04840 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04850INPUT=PRFMT003 04860UTIL 04870LIST,FN=UTIFIL,L=LPRINTER,F=U 04880EX 04890 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04900 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04910MNUPRO 04920/! 04930DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04940LOAD,FN=PRFMT004,OW=CCS20 04950CHEKID 04960 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 04970 * 04980 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04990DECMTN 05000 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05010MNUPRO b  3 05020/! 05030DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05040LOAD,FN=PRFMT005,OW=CCS20 05050CHEKID 05060 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05070AVMDMP 05080 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05090MNUPRO 05100/! 05110DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05120LOAD,FN=PRFMT006,OW=CCS20 05130CHEKID 05140 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05150 * 05160AVMCON 05170 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05180 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05190AVMDMP 05200 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05210MNUPRO 05220/! 05230DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05240LOAD,FN=PRFMT007,OW=CCS20 05250CHEKID 05260 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05270 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05280 * SCREEN INFORMATION 05290CCSSPC 05300CCSPAS 05310 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05320MNUPRO 05330/! 05340DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05350LOAD,FN=PRFMT008,OW=CCS20 05360CHEKID 05370 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05380INPUT=PRFMT008 05390UTIL 05400LIST,FN=SCRNDESC,L=LPRINTER,F=U 05410EX 05420 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05430 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05440 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05450 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05460 * CARRIAGE RETURN WHEN READY TO CONTINUE 05470CCSPAS 05480MNUPRO 05490/! q  3' 05500DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05510LOAD,FN=PRFMT009,OW=CCS20 05520CHEKID 05530 * THE SCREEN FILE WILL BE CREATED 05540BLDSRN 05550 * THE SCREEN FILE HAS BEEN CREATED 05560MNUPRO 05570/! 05580DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05590LOAD,FN=PRFMT010,OW=CCS20 05600CHEKID 05610 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05620 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05630 * CARRIAGE RETURN ONLY - TO CONTINUE 05640 * 05650CCSPAS 05660 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05670CMPDLQ 05680INPUT=PRFMT010 05690UTIL 05700COMPRE,FN=COSIGNER 05710COMPRE,FN=ACTFIL 05720EX 05730 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05740MNUPRO 05750/! 05760DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05770LOAD,FN=PRFMT011,OW=CCS20 05780CHEKID 05790 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05800 * WILL BE PRINTED 05810ACTMTN 05820 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05830 * HAS BEEN PRINTED 05840MNUPRO 05850/! 05860DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05870LOAD,FN=PRFMT012,OW=CCS20 05880CHEKID 05890 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05900 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05910 * 05920USEMTN 05930 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05940MNUPRO 05950/! 05960DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 05970LOAD,FN=PRFMT013,OW=CCS20 6  3; 05980CHEKID 05990 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06000PGLTTB 06010MNUPRO 06020/! 06030DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06040LOAD,FN=PRFMT014,OW=CCS20 06050CHEKID 06060 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06070 * 06080 * THE DATA ELEMENT TABLE WILL BE PRINTED 06090PGLTTB 06100 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06110 * 06120 * THE DATA ELEMENT TABLE WILL BE UPDATED 06130 * 06140 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06150 * 06160INPUT=PRFMT014 06170SWITCH 06180000000000 06190PGUPTB 06200 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06210 * 06220 * THE DATA ELEMENT TABLE WILL BE PURGED 06230INPUT=PRFMT014 06240UTIL 06250DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06260EX 06270PGCMPR 06280INPUT=PRFMT014 06290UTIL 06300DELETE,FN=RPTTBL 06310RENAME,FN=TBLWRK,F2=RPTTBL 06320EX 06330 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06340 * 06350 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06360MNUPRO 06370/! 06380DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06390LOAD,FN=PRFMT015,OW=CCS20 06400CHEKID 06410 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06420 * 06430 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06440PGLIST 06450 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED +  3O 06460 * 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06490 * 06500 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06510 * 06520PGPURG 06530INPUT=PRFMT015 06540UTIL 06550COMPRE,FN=RPTPGM 06560EX 06570 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06580 * 06590 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06600PGLIST 06610 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06620 * 06630 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06640MNUPRO 06650/! 06660DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06670LOAD,FN=PRFMT016,OW=CCS20 06680CHEKID 06690 * THE SCREEN FILES WILL BE PRINTED 06700 * D 06710 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06720 * 06730PRTSCN 06740 * THE SCREEN FILES HAVE BEEN PRINTED 06750MNUPRO 06760/! 06770DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06780LOAD,FN=PRFRP001,OW=CCS20 06790CHEKID 06800INPUT=PRFRP001 06810SWITCH 0682010000000 06830 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06840 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06850 * PRINTED 06860DTLLST 06870 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06880MNUPRO 06890/! 06900DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06910LOAD,FN=PRFRP002,OW=CCS20 06920CHEKID 06930INPUT=PRFRP002  3c 06940SWITCH 0695001000000 06960 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06970 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 06980DTLLST 06990INPUT=PRFRP002 07000UTIL 07010CLEAR,FN=SREQDL 07020EX 07030 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07040MNUPRO 07050/! 07060DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07070LOAD,FN=PRFRP003,OW=CCS20 07080CHEKID 07090 * CALCULATE AGE FOR TREND ANALYSIS 07100TRENDF 07110 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07120 * 07130 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07140INPUT=PRFRP003 07150UTIL 07160DELETE,FN=AGEWRK 07170EX 07180INPUT=PRFRP003 07190DSORT 07200FN=ACCAGE,CCS20 07210FN=RSWFIL,CCS20 07220F2=AGEWRK,CCS20,SYSVOL 07230OP=T,F,A 07240KF=A,17,4,A,1,1 07250SL=OMIT,35,3,EQ,'RSW' 07260 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07270 * 07280 **** OPERATOR - 07290 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07300 * TREND DATA FOR NEXT RUN 07310 * 07320 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07330 * FOR NEXT RUN 07340CCSPAS 07350TRENDU 07360INPUT=PRFRP003 07370UTIL 07380CLEAR,FN=RSWFIL 07390EX 07400MNUPRO 07410/! r  3 w 07420DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07430LOAD,FN=PRFRP004,OW=CCS20 07440CHEKID 07450 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07460 * THE AGEWRK FILE IS BEING SORTED 07470INPUT=PRFRP004 07480DSORT 07490FN=AGEWRK,CCS20 07500F2=AGEWRK,CCS20, 07510OP=T,F,A 07520KF=A,17,4,A,1,1 07530SL=OMIT,35,3,EQ,'RSW' 07540 * THE AGEWRK FILE HAS BEEN SORTED 07550 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07560INPUT=PRFRP004 07570SWITCH 0758010000000 07590TRENDP 07600 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07610MNUPRO 07620/! 07630DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07640LOAD,FN=PRFRP005,OW=CCS20 07650CHEKID 07660 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07670 * THE AGEWRK FILE IS BEING SORTED 07680INPUT=PRFRP005 07690DSORT 07700FN=AGEWRK,CCS20 07710F2=AGEWRK,CCS20, 07720OP=T,F,A 07730KF=A,25,4,A,1,1 07740SL=I 07750 * THE AGEWRK FILE HAS BEEN SORTED 07760 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07770INPUT=PRFRP005 07780SWITCH 0779000000000 07800TRENDP 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07820MNUPRO 07830/! 07840DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07850LOAD,FN=PRFRP006,OW=CCS20 07860CHEKID 07870 * THE WRITE-OFF REPORT WILL BE GENERATED 07880 * THE WOEF FILE WILL BE CREATED 07890INPUT=PRFRP006 #  3  07900UTIL 07910DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07920EX 07930WRTOFE 07940 * THE WOEF FILE HAS BEEN CREATED 07950 * THE WOEF FILE IS BEING SORTED 07960INPUT=PRFRP006 07970DSORT 07980FN=WOEF,CCS20 07990F2=WOEF,CCS20, 08000OP=T,F,A 08010KF=A,25,1,A,17,4,A,21,4,A,1,16 08020SL=I 08030 * THE WOEF FILE HAS BEEN SORTED 08040 * THE WRITE-OFF REPORT WILL BE PRINTED 08050WRTOFP 08060INPUT=PRFRP006 08070UTIL 08080DELETE,FN=WOEF 08090EX 08100 * THE WRITE-OFF REPORT IS COMPLETE 08110MNUPRO 08120/! 08130DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08140LOAD,FN=PRFRP007,OW=CCS20 08150CHEKID 08160 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08170DALIST 08180 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08190MNUPRO 08200/! 08210DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08220LOAD,FN=PRFRP008,OW=CCS20 08230CHEKID 08240 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08250SUMACL 08260 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08270MNUPRO 08280/! 08290DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08300LOAD,FN=PRFRP009,OW=CCS20 08310CHEKID 08320 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08330INPUT=PRFRP009 08340SWITCH 0835001000000 08360COLSTS 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMh  3 PLETE 08380 **** OPERATOR - 08390 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08400 * 08410 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08420CCSPAS 08430INPUT=PRFRP009 08440SWITCH 0845000001000 08460COLSTS 08470MNUPRO 08480/! 08490DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08500LOAD,FN=PRFRP010,OW=CCS20 08510CHEKID 08520 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08530INPUT=PRFRP010 08540SWITCH 0855000100000 08560COLSTS 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08580 **** OPERATOR - 08590 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08600 * STATISTICS COUNT FILE 08610 * 08620 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08630 * COUNT FILE 08640CCSPAS 08650INPUT=PRFRP010 08660UTIL 08670CLEAR,FN=COLSTATS 08680EX 08690MNUPRO 08700/! 08710DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08720LOAD,FN=PRFCNTRL,OW=CCS20 08730CHEKID 08740 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08750 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08760 * TO ACTIVATE BATCH HOST 08770 * MI, *BATCH,F 08780 * 08790 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08800 * 08810 * CARRIAGE RETURN ONLY - TO CONTINUE 08820CCSPAS 08830 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08840INPUT=PRFCNTRL 08850UTIL  3  08860DEFINE,FN=RPTWKE,LR=80,NR=1000 08870DEFINE,FN=RPTWKP,LR=80,NR=1000 08880DEFINE,FN=PRCWRK,LR=80,NR=50 08890EX 08900PGGEN 08910 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08920 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08930INPUT=PRFCNTRL 08940UTIL 08950BATCH,FN=RPTWKE,TY=N 08960BATCH,FN=RPTWKP,TY=R 08970DELETE,FN=RPTWKE 08980DELETE,FN=RPTWKP 08990CLEAR,FN=PGEXTR 09000EX 09010PGCNT1 09020 * 09030 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09040 * CARRIAGE RETURN WHEN READY 09050CCSPAS 09060MNUPRO 09070/! 09080DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09090LOAD,FN=PRFRP012,OW=CCS20 09100CHEKID 09110 * THE QUEUE LOADING REPORT WILL BE PRINTED 09120QLOAD 09130 * THE QUEUE LOADING REPORT IS COMPLETE 09140MNUPRO 09150/! 09160DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09170LOAD,FN=PRFRP014,OW=CCS20 09180CHEKID 09190 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09200 ***** 09210 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09220 ***** OR NOT TREND ANALYSIS IS BEING USED. 09230 ***** 09240 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09250 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09260 **** 09270 *** 09280CCSPAS 09290 * 09300CMPACC 09310 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09320MNUPRO 09330/!  3  09340 09350 09360 09370 09380 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09690NR=50 09700DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=24000,OW=CCS20 09710DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=24000,VL=CDD01; 09720OW=CCS20 09730DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09740DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09750DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=24000,VL=CDD01,OW=CCS20 09760DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=24000,VL=SYSVOL,OW=CCS20 09770DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09780DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09790OW=CCS20 09800DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=24000,VL=CDD01; 09810OW=CCS20 5  3 09820DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09830DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09840DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=24000; 09850VL=CDD02,OW=CCS20 09860DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=24000,VL=SYSVOL,OW=CCS20 09870DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=2000,VL=CDD01,OW=CCS20 09880DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09890LOAD,FN=DUMMY,OW=CCS20 09900 09910/! 09920DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=24000,VL=CDD01,OW=CCS20 09930DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09940DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 09950OW=CCS20 09960DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 09970DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=24000,OW=CCS20 09980DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 09990DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=12000,VL=CDD01,OW=CCS20 10020DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10030DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10040OW=CCS20 10050DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20 10060DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=24000,VL=CDD01; 10070OW=CCS20 10080DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=24000,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10110DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10120DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10130DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD01,OW=CCS20 10140DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10150EX 10160MOVDAT 10170 * THE 24000 ACCOUNT SYSTEM BUILD IS COMPLETE 10180 * 10190 * PROCEED WITH THE INSTALLATION TEST PROCEDURES. 10200 * 10210MNUPRO 10220__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmۭ;  3mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmAL%S $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * 00010 * PROCEDURE TO BUILD 36000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC003 5  3 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO EX - EXIT 00180/! 00190DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00200LOAD,FN=$$DCMENU,OW=$$ 00210 * DAILY CYCLE MENU 00220 * 00230DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00240DCPRTLTR B - PRINT REQUESTED LETTERS 00250DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00260DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00270DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00280DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00290RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00300RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00310DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00320DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00330DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00340DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00350DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00360 Z - EXIT 00370/! 00380DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00390LOAD,FN=$$HSMENU,OW=$$ 00400 * HISTORY SYSTEM MENU 00410 * 00420HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00430HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00440HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00450HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00460MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00470 Z - EXIT 00480/! 00490DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00500LOAD,FN=$$MTMENU,OW=$$ \  3 00510 * FILE MAINTENANCE MENU 00520 * 00530MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00540MTCONLTR B - CREATE THE LETTER FILE 00550MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00560MTDECTBL D - DECISION TABLE MAINTENANCE 00570MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00580MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00590MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00600HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00610HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00620MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00630MTSVSCRN K - CREATE THE SCREEN FILE 00640MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00650MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00660MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00670MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00680MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00690MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00700MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00710 Z - EXIT 00720/! 00730DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00740LOAD,FN=$$RPMENU,OW=$$ 00750 * ON DEMAND REPORT MENU 00760 * 00770RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00780RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00790RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00800RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00810RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00820RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00830RPDLYASN G - DAILY ASSIGNMENT LIST 00840RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00850RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00860RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00870RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00880PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00890PRFRP012 M - QUEUE LOADING REPORT 00900PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00910 Z - EXIT 00920/! 00930DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00940LOAD,FN=$$RGMENU,OW=$$ 00950 * REPORT GENERATOR - REPORT DIRECTORY 00960 * 00970PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 00980PRFPG002 B - R.G. REPORT 2 - (  3+AVAILABLE) 00990PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01000PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01010PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01020PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01030PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01040PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01050PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01060PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01070PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01080PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01090PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01100PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01110PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01120PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01130PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01140PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01150PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01160 Z - EXIT 01170/! 01180DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01190LOAD,FN=PRFDC001,OW=CCS20 01200CHEKID 01210 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01220 * - TIME USAGE REPORT 01230 * - DAILY COLLECTOR STATISTICS REPORT 01240 * 01250INPUT=PRFDC001 01260UTIL 01270CLEAR,FN=DLYWRK 01280EX 01290 * TRNSFL FILE IS NOW BEING SORTED 01300INPUT=PRFDC001 01310DSORT 01320FN=TRNSFL,CCS20 01330F2=TRNSFL,CCS20, 01340OP=T,F,A 01350KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01360SL=I 01370 * THE TRNSFL FILE HAS BEEN SORTED 01380 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01390COLCHG 01400 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01410 * THE TIME USAGE REPORT WILL BE PRINTED 01420TIMUSE 01430 * THE TIME USAGE REPORT IS COMPLETE 01440INPUT=PRFDC001 01450SWITCH 0146010000000  3? 01470 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01480COLSTS 01490 * THE DAILY STATISTICS REPORT IS COMPLETE 01500 **** OPERATOR - 01510 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01520 * 01530 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01540CCSPAS 01550INPUT=PRFDC001 01560SWITCH 0157000010000 01580COLSTS 01590 * THIS ROUTINE IS COMPLETE 01600MNUPRO 01610/! 01620DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01630LOAD,FN=PRFDC002,OW=CCS20 01640CHEKID 01650 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01660INPUT=PRFDC002 01670DSORT 01680FN=TRNSFL,CCS20 01690F2=TRNSFL,CCS20, 01700OP=T,F,A 01710KF=A,17,4,A,41,2,A,1,16 01720SL=I 01730 **** OPERATOR - LOAD LETTER PAPER 01740 * CARRIAGE RETURN WHEN READY 01750 * 01760CCSPAS 01770 * THE REQUESTED LETTERS WILL BE PRINTED 01780LTRPRT 01790 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01800 **** OPERATOR - LOAD REGULAR PAPER 01810 * CARRIAGE RETURN WHEN READY 01820 * 01830CCSPAS 01840 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01850LTRSTA 01860 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01870MNUPRO 01880/! 01890DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01900LOAD,FN=PRFDC003,OW=CCS20 01910CHEKID 01920 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01930INPUT=PRFDC003 01940DSORT   3S 01950FN=TRNSFL,CCS20 01960F2=TRNSFL,CCS20, 01970OP=T,F,A 01980KF=A,29,2,A,21,4,D,25,4,D,121,2 01990SL=I 02000ACTADD 02010 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02020MNUPRO 02030/! 02040DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02050LOAD,FN=PRFDC004,OW=CCS20 02060CHEKID 02070 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02080 * CARRIAGE RETURN WHEN READY 02090CCSPAS 02100INPUT=PRFDC004 02110SWITCH 0212010000000 02130 * THE UPDATE TAPE WILL BE PROCESSED 02140UPDATE 02150 * THE UPDATE TAPE HAS BEEN PROCESSED 02160 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02170 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02180 * SCREEN INFORMATION 02190CCSSPC 02200CCSPAS 02210 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02220MNUPRO 02230/! 02240DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02250LOAD,FN=PRFDC005,OW=CCS20 02260CHEKID 02270 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02280 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02290 * CARRIAGE RETURN WHEN READY 02300CCSPAS 02310INPUT=PRFDC005 02320SWITCH 0233010000000 02340UPD400 02350 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02360MNUPRO 02370/! 02380DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02390LOAD,FN=PRFDC006,OW=CCS20 02400CHEKID 02410 * THE FINANCIAL UPDATES WILL BE PROCESSED 02420 **** OPERATOR - MOUNT FINANCIALL  3g UPDATE INPUT TAPE ON TAPE UNIT '0' 02430 * 02440INPUT=PRFDC006 02450MOUNT 02460FTAPE,B,P 02470/* 02480UPD500 02490 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02500MNUPRO 02510/! 02520DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02530LOAD,FN=PRFDC007,OW=CCS20 02540CHEKID 02550 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02560DHUPDT 02570 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02580MNUPRO 02590/! 02600DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02610LOAD,FN=PRFDC008,OW=CCS20 02620CHEKID 02630 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02640 * COLLECTORS ARE OFF-LINE FOR THE DAY 02650MNUPRO 02660/! 02670DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02680LOAD,FN=PRFDC009,OW=CCS20 02690CHEKID 02700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02710 * COLLECTORS ARE OFF-LINE FOR THE DAY 02720MNUPRO 02730/! 02740DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02750LOAD,FN=PRFDC010,OW=CCS20 02760CHEKID 02770 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02780 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02790 * CARRIAGE RETURN ONLY - TO CONTINUE 02800 * 02810CCSPAS 02820 * 02830 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02840 * 02850INPUT=PRFDC010 02860UTIL 02870CLEAR,FN=TRNSFL 02880EX 02890INPUT=PRFDC010 02900DSORT =  3{ 02910FN=TRANFL,CCS20 02920F2=TRNSFL,CCS20, 02930OP=T,F,A 02940KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 02950SL=I 02960PRETSR 02970INPUT=PRFDC010 02980UTIL 02990CLEAR,FN=ACTIVE 03000CLEAR,FN=TRANFL 03010CLEAR,FN=TRNBCK 03020EX 03030 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03040NMCHNG 03050RSWCHG 03060INPUT=PRFDC010 03070UTIL 03080CLEAR,FN=ADDACT 03090EX 03100MNUPRO 03110/! 03120DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03130LOAD,FN=PRFDC011,OW=CCS20 03140CHEKID 03150 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03160 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03170 * CARRIAGE RETURN ONLY - TO CONTINUE 03180 * 03190CCSPAS 03200 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03210INPUT=PRFDC011 03220UTIL 03230CLEAR,FN=DLYWRK 03240EX 03250SRREQ 03260 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03270 * 03280 * THE DLYASSN FILE IS BEING CREATED 03290DACRTE 03300 * THE DLYASSN FILE HAS BEEN CREATED 03310 * THE DLYASSN FILE IS BEING SORTED 03320INPUT=PRFDC011 03330DSORT 03340FN=DLYWRK,CCS20 03350FN=DLYASSN,CCS20 03360F2=DLYASSN,CCS20, 03370OP=T,F,A 03380KF=A,17,4,A,25,2,A,21,4,D,27,4,A͑ 3$fJ A B !"#$ % & ' (())* +!,"-#.$/%0123456789:;<=>&?'@*ABCCF+G,H-I.J/K0L1M2N3O4P5Q6R7S8T9U:V;W<X=[>\?]@^_D`EaFbGcH__CTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT U 3 AL S $$ NUMBER COSIGNER ! LAST UPDATE ._!PERM COMMENT 1: 2!PERM COMMENT 2: 2!PERM COMMENT 3: 2!BORROWER'S CHANGE SCREEN ACCT NAME "3*ACCT #;/: LAST CHANGE ?_2HPREVIOUSU01 HOME ADDR 1 Z02_l02 HOME ADDR 2 qN2v03 CITY, STATE l2104 HOME ZIP 2E 05 HOME PHONE   06 HOME EXT   07 BUS NAME   08 BUS ADDR   09 CITY, STATE   10 BUS ZIP 11 BUS PHONE " - 12 BUS EXT 2K(ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC((TION,RESULT,LETTER REQUEST,COMMENT COLLECTION ACTIVITY  ACCT NAME  1, ACCT # @1; AMT DELQ @ w1L LAST LTR DATE @QJ[ DELQ DATE `k1l LAST LTR AMT @q P~PERM COMMENT 1: PERM COMMENT 2: PERM COMMENT 3:  CONTACT AC RS LR  DATE CD CD CD COLL COMMENTS P  3  #SUPERVISOR'S CHANGE SCREEN ACCT NAME #5- ACCT # @2< CURR QUEUEA5K AMT DELQ @P w]LAST QUEUE CHNG b,5l DELQ DATE @qk| CURR CLIENT 05 PREV CLIENT A01 REASSIGN CLIENT &f 02 NEXT CONTACT DATE &  03 PRIORITY CODE &  04 SUPV FOR THIS ACCT&  05 SUPV STATUS CODE & $ 06 QUEUE REASSIGN COD&  &07 ACCT REVIEW CODE &"#. 08 PP AMOUNT &3 L(ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC((TION,RESULT,LETTER REQUEST,COMMENT BORROWER'S MASTER SCREEN  SUPV ACCT # $@+TIMEF05!>QUEUE # .C5KACCT #@PU0!` POINT SCORE /e5nAMT DELQFs wxN! ACCT TYPE -5 DELQ DATE Hkl! STATUS CD 125PREV QUEL(HOME # !PP FLAG 15PRIORITYLSAL CD5 NEXT CONTACTH !  SOC SEC #.   ! & ADL ACCT #. + 0 5! ? SAV ACCT # GWORK # L  SEXT  X! b CK ACCT #!l ENTRY DATE.qe~NUMBER COSIGNER ! LAST UPDATE ._!PERM COMMENT 1: 2!PERM COMMENT 2: 2!PERM COMMENT 3: 2LAST ACTIVITY DATE AC RS LT COLL COMMENT (PLEASE ENTER NEXT FUNCTION OR ACTION,RES((ULT,LETTER REQUEST,COMMENT   3! FINANCIAL HISTORY  ACCT NAME 8'ACCT #?,6 ACCT TYPE ;E LOAN OFF JWSPEC DESC FIELD \(f AMT DELQ k w u OPEN DATE .zq DELQ DATE k  OPEN AMOUNT ,  LAST UPDATE  Y CUR BALANCE ,  ENTRY DATE  e CUR PAYOFF ,  CURRENT CLIENT PREVIOUS CLIENT : X    O   ]/ DATE OF TAPE, IF IN TAPE HISTORY"4M(PLEASE ENTER NEXT FUNCTION OR ACTION,RES((ULT,LETTER REQUEST,COMMENT  ** COSIGNER **  ACCT NAME 2&ACCT #:+5 AMT DELQ : wD DELQ DATE &k -  3! ^ COSIGNER 1 012 06 HOME ;% i +02022807 EXT;=s C03HP2P08 BUS;U w [04`d2h09 EXT;m u05  z COSIGNER 2 10 2 15 HOME ;  11 2 16 EXT;  12 2 17 BUS;  13218 EXT; 14 COSIGNER 3 19224 HOME ; O 202&25 EXT;+Y 121662>26 BUS;C ] I22NJ2V27 EXT;[g a23f(ENTER ITEM,CHANGE OR NEXT FUNCTION OR AC((TION,RESULT,LETTER REQUEST,COMMENT ' A = AUTOMATIC ' B, = NAME' 1N,<#> = ACCOUNT NUMBER' CC, = COSIGNER NAME 'UP = PAYMENT ENTRY 'bE = EXITPLEASE ENTER SELECTION ->  3!* $' A = AUTOMATIC ' B, = NAME' 1N,<#> = ACCOUNT NUMBER' CC, = COSIGNER NAME 'UP = PAYMENT ENTRY 'bE = EXIT>SELECTED ACCOUNT BUSY, TRY AGAIN LATER. PLEASE ENTER SELECTION %' A = AUTOMATIC ' B, = NAME' 1N,<#> = ACCOUNT NUMBER' CC, = COSIGNER NAME 'UP = PAYMENT ENTRY 'bE = EXIT2SELECTED ACCOUNT NOT FOUND, PLEASE ENTER SELECTION  3!> '' A = AUTOMATIC ' B, = NAME' 1N,<#> = ACCOUNT NUMBER' CC, = COSIGNER NAME 'UP = PAYMENT ENTRY 'bE = EXITn END OF SEARCH sACCOUNTS WERE BUSY AND2SELECTED ACCOUNT NOT FOUND, PLEASE ENTER SELECTION &' A = AUTOMATIC ' B, = NAME' 1N,<#> = ACCOUNT NUMBER' CC, = COSIGNER NAME 'UP = PAYMENT ENTRY 'bE = EXIT@SELECTED ACCOUNT IN A QUEUE NOT ALLOWED FOR YOUR REVIEW. PLEASE @ENTER SELECTION B  3!R  END OF DAILY ASSIGNMENTS. CREDIT COLLECTION SYSTEM!LEGAL VERSION 3.0&PLEASE ENTER COLLECTOR ID   3!f A!INVALID SELECTION, PLEASE REENTER B# = SELECT NAME  D = DISCONTINUE SEARCH/ = CONTINUE SEARCH PLEASE ENTER SELECTION   3 !z " 2Pd"! C = CORRECT ".D = DISCONTINUE "9  = CONTINUEPLEASE ENTER SELECTION 0(PLEASE ENTER PROMISED TO PAY DATE,AMOUNT   3!! 18FORMAT ERROR, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT 28INVALID DATE, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT j  3"! 3:INVALID AMOUNT, PLEASE REENTER PROMISED TO PAY DATE,AMOUNT 4PROMISED TO PAY  r  3#!BY&'. VERIFY 'OK', OR ENTER NEW DATE,AMOUNT 5(PLEASE ENTER ADDRESSEE CODE,LETTER CODE,(LETTER DATE,LETTER AMOUNT \  3$! 7(INVALID ADDRESSEE, REENTER ADDRESSEE COD('E,LETTER CODE,LETTER DATE,LETTER AMOUNT 6(FORMAT ERROR, REENTER ADDRESSEE CODE,LET("TER CODE,LETTER DATE,LETTER AMOUNT Y  3%! 8(INVALID LETTER CODE, REENTER ADDRESSEE,L($ETTER CODE,LETTER DATE,LETTER AMOUNT 9(INVALID LETTER DATE, REENTER ADDRESSEE,L($ETTER CODE,LETTER DATE,LETTER AMOUNT 24  3&! :(INVALID LETTER AMOUNT, REENTER ADDRESSEE(&,LETTER CODE,LETTER DATE,LETTER AMOUNT ; LETTER)  TO ADDRESSi$. )j 0, $ #5 p.!REQUESTED. ENTER OK OR NEW FIELDS "  3'" <'A COMMENT IS REQUIRED, PLEASE ENTER ONE =+COMMENT ENTERED IS TOO LONG, PLEASE REENTER 0(  3(" *(FORMAT ERROR, ENTER NEXT FUNCTION OR ACT(!ION,RESULT,LETTER REQUEST,COMMENT +'FORMAT ERROR, ENTER ITEM,CHANGE OR NEXT ((FUNCTION OR ACTION,RESULT,LETTER,COMMENT  3)". ,(COMMENT TOO LONG, ENTER NEXT FUNCTION OR(% ACTION,RESULT,LETTER REQUEST,COMMENT -'COMMENT LONG, ENTER ITEM,CHANGE OR NEXT ((FUNCTION OR ACTION,RESULT,LETTER,COMMENT   3*"B .(INVALID RESULT, ENTER NEXT FUNCTION OR A(#CTION,RESULT,LETTER REQUEST,COMMENT /(INVALID RES, ENTER ITEM,CHANGE OR NEXT F('UNCTION OR ACTION,RESULT,LETTER,COMMENT .  3+"V >PLEASE ENTER NEXT CONTACT DATE ?.INVALID DATE, PLEASE REENTER NEXT CONTACT DATE  3,"j (?NO ACTIVITY ALLOWED ON THIS ACCOUNT, PLEASE ENTER NEXT FUNCTION )(NO ACTIVITY ALLOWED ON THIS ACCOUNT, PLE(&ASE ENTER ITEM,CHANGE OR NEXT FUNCTION 3  3-"~ @'INVALID DATE, ENTER ITEM,CHANGE OR NEXT ((FUNCTION OR ACTION,RESULT,LETTER,COMMENT FPLEASE ENTER ACTION CODE   3." GPLEASE ENTER RESULT CODE H(INVALID ACTION, ENTER NEXT FUNCTION OR A(#CTION,RESULT,LETTER REQUEST,COMMENT -  3/" I(INVALID ACT, ENTER ITEM,CHANGE OR NEXT F('UNCTION OR ACTION,RESULT,LETTER,COMMENT ,H  30" J!PLEASE ENTER PROMISED TO PAY DATE K1INVALID DATE, PLEASE REENTER PROMISED TO PAY DATE Ǭ  31" L#PLEASE ENTER PROMISED TO PAY AMOUNT M5INVALID AMOUNT, PLEASE REENTER PROMISED TO PAY AMOUNT  32" NPLEASE ENTER LETTER CODE O.A LETTER IS REQUIRED, PLEASE ENTER LETTER CODE h  33" P/INVALID LETTER CODE, PLEASE REENTER LETTER CODE QPLEASE ENTER ADDRESSEE CODE _  34#  R5INVALID ADDRESSEE CODE, PLEASE REENTER ADDRESSEE CODE SPLEASE ENTER LETTER DATE  35# T(INVALID DATE, PLEASE REENTER LETTER DATE UPLEASE ENTER LETTER AMOUNT ~  36#2 Vj ,  p),REQUESTED. VERIFY 'OK' OR ENTER NEW DATE WPLEASE ENTER COMMENT $#  37#F XPROMISED TO PAY  BY&(. VERIFY 'OK' OR ENTER NEW PROMISED DATE [CLIENT SELECTION SCREEN ' 'A, = CLIENT NAME SEARCH' >#N,<#> = CLIENT NUMBER RETRIEVAL 'W(S,<#> = CLIENT STATUS INQUIRY/UPDATE'dE = EXITPLEASE ENTER SELECTION  38#Z \ CLIENT # CLIENT CHANGE SCREEN* 01,FIRM NAME/=02,FIRM ADDRESS 1 BAP03,FIRM ADDRESS 2 U_ b04,CONTACT NAME  g# t05,PHONE NUMBER  y } 06,EXTENSION 07,CURR COMM RATE 08,PREV COMM RATE "ENTER CHANGE ITEM OR NEXT FUNCTION ] CLIENT # !CLIENT FINANCIAL SCREEN 8$# AMT AMT # AMT COMM)N!# AMT # COURT HISTORY f&ACCT ACCT COL PIF PIF EARNED(|!CLD CLD ACT COSTS MO/YR   (,48DF/ G   (!,$4-89DF/ GO Rjx  39#n [dg p(#y,(|4-82D7MF=/ GBKGL QV[ `(e,j4o8tDyF/ G        ( ), ,4 58 AD F / G  W Z c l o x( , 4 8 D UF / G S      ! &( +, 04 58 :D ?F E/ G J O T  Y ^ c h(( m1, r44 w=8 |ID F / G  _ b k t w ( , 4 8 D ]F / G [  (,48DF / G $$)' .0(39,8<4=E8BQDG FM/ GR Wg\j asf|k p(u,z48DeF/ GcB12 MONTH  (,48BSUMMARY ENTER NEXT FUNCTION PAYMENT ENTRY SCREEN #.w&ITEM ACCOUNT #2 LEGAL# TYPE -BDATE AMOUNT GLQ%V+[7` !Ce*j-o/t?%yC+~E7 KCTWYi%m+o7 uC~%+7 C   % + 7 C    % +  7  C    #% (+ -7 2 C 7& <) A+ F;% K?+ PA7 U GC ZP _S dU ie% ni+ sk7 x qC }z}%+7 C%+7 C%+7 C %+7 C "%'7%;+"=7' CC,L1O6Q;a%@e+Eg7J mCv STATEMENT BALANCE  TOTAL ITEMS ENTERED = %,TYPE3TYPE;;TOTAL JNO. TRANSACTION;RAMOUNT ^01 DIRECT/c p02 INDIRECT/ u #03 NON-RECOVERABLE COURT COSTS / ) 04 RECOVERABLE COURT COSTS /;  05 FEES/u  3:#M(ENTER TO ACCEPT DATA-UPDATE RECORDS! TO REVIEW TRANSACTIONS % TO ABORT ROUTINE-NO UPDATE CJ _***** NEW CLIENT *****6ENTER FUNCTION OR TO CONTINUE (CREATE NEW RECORD)   3;# `CLIENT SELECTION SCREEN , $A, = CLIENT NAME , 6N,<#> = CLIENT NUMBER ,CE = EXIT>SELECTED ACCOUNT BUSY, TRY AGAIN LATER. PLEASE ENTER SELECTION a L/A CLIENT #)$CURRG  3<#ENT CLIENT STATUS IS * ACTIVE *6ENTER NEW STATUS OR TO RETURN TO SELECTION SCREEN b L/A CLIENT #*&CURRENT CLIENT STATUS IS * INACTIVE *6ENTER NEW STATUS OR TO RETURN TO SELECTION SCREEN  3=# c"*** *** IS AN INACTIVE CLIENT3ENTER FUNCTION OR TO CONTINUE TO CHANGE SCREEN __ 07830SWITCH 0784000000000 07850TRENDP 07860 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07870MNUPRO 07880/! 07890DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07900LOAD,FN=PRFRP006,OW=CCS20 07910CHEKID 07920 * THE WRITE-OFF REPORT WILL BE GENERATED 07930 * THE WOEF FILE WILL BE CREATED 07940INPUT=PRFRP006 07950UTIL 07960DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07970EX 07980WRTOFE 07990 * THE WOEF FILE HAS BEEN CREATED 08000 * THE WOEF FILE IS BEING SORTED 08010INPUT=PRFRP006 08020DSORT 08030FN=WOEF,CCS20 08040  3>#F2=WOEF,CCS20, 08050OP=T,F,A 08060KF=A,25,1,A,17,4,A,21,4,A,1,16 08070SL=I 08080 * THE WOEF FILE HAS BEEN SORTED 08090 * THE WRITE-OFF REPORT WILL BE PRINTED 08100WRTOFP 08110INPUT=PRFRP006 08120UTIL 08130DELETE,FN=WOEF 08140EX 08150 * THE WRITE-OFF REPORT IS COMPLETE 08160MNUPRO 08170/! 08180DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08190LOAD,FN=PRFRP007,OW=CCS20 08200CHEKID 08210 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08220DALIST 08230 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08240MNUPRO 08250/! 08260DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08270LOAD,FN=PRFRP008,OW=CCS20 08280CHEKID 08290 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08300SUMACL 08310 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08320MNUPRO 08330/! 08340DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08350LOAD,FN=PRFRP009,OW=CCS20 08360CHEKID 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08380INPUT=PRFRP009 08390SWITCH 0840001000000 08410COLSTS 08420 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08430 **** OPERATOR - 08440 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08450 * 08460 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08470CCSPAS 08480INPUT=PRFRP009 08490SWITCH 0850000001000 08510COLSTS 08520B  3?#MNUPRO 08530/! 08540DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08550LOAD,FN=PRFRP010,OW=CCS20 08560CHEKID 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08580INPUT=PRFRP010 08590SWITCH 0860000100000 08610COLSTS 08620 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08630 **** OPERATOR - 08640 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08650 * STATISTICS COUNT FILE 08660 * 08670 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08680 * COUNT FILE 08690CCSPAS 08700INPUT=PRFRP010 08710UTIL 08720CLEAR,FN=COLSTATS 08730EX 08740MNUPRO 08750/! 08760DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08770LOAD,FN=PRFCNTRL,OW=CCS20 08780CHEKID 08790 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08800 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08810 * TO ACTIVATE BATCH HOST 08820 * MI, *BATCH,F 08830 * 08840 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08850 * 08860 * CARRIAGE RETURN ONLY - TO CONTINUE 08870CCSPAS 08880 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08890INPUT=PRFCNTRL 08900UTIL 08910DEFINE,FN=RPTWKE,LR=80,NR=1000 08920DEFINE,FN=RPTWKP,LR=80,NR=1000 08930DEFINE,FN=PRCWRK,LR=80,NR=50 08940EX 08950PGGEN 08960 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08970 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08980INPUT=PRFCNTRL 08990UTIL 09000  3@sDALsDS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmJ@GG K102 00 10 01000003103 00 00 3000010101000002103 00 00 3000000001000001 101 00 01000004 62A 63B 64C 65D 66E AL sUS CCS20 69H 70I 71J 72K 73L 74M 75N 76O 77P 78QCCS20 00LA 00 3A$AL$S $$ IS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REP * 00010 * PROCEDURE TO BUILD 36000-13500 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC007 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00180MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES 00190MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES 00200MNUPRO LO - L/A ON DEMAND REPORTING 00210MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY 00220MNUPRO EX - EXIT 00230/! 00240DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00250LOAD,FN=$$DCMENU,OW=$$ 00260 * DAILY CYCLE MENU 00270 * 00280DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00290DCPRTLTR B - PRINT REQUESTED LETTERS 00300DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00310DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00320DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00330DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU #  3B%  00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00840RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00870RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00880RPDLYASN G - DAILY ASSIGNMENT LIST 00890RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00900RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00910RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00920RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00930PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 5M  3C%! 00940PRFRP012 M - QUEUE LOADING REPORT 00950PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00960 Z - EXIT 00970/! 00980DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00990LOAD,FN=$$RGMENU,OW=$$ 01000 * REPORT GENERATOR - REPORT DIRECTORY 01010 * 01020PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 01030PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 01040PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01050PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01060PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01070PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01080PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01090PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01100PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01110PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01120PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01130PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01140PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01150PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01160PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01170PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01180PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01190PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01200PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01210 Z - EXIT 01220/! 01230DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01240LOAD,FN=PRFDC001,OW=CCS20 01250CHEKID 01260 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01270 * - TIME USAGE REPORT 01280 * - DAILY COLLECTOR STATISTICS REPORT 01290 * 01300INPUT=PRFDC001 01310UTIL 01320CLEAR,FN=DLYWRK 01330EX 01340 * TRNSFL FILE IS NOW BEING SORTED 01350INPUT=PRFDC001 01360DSORT 01370FN=TRNSFL,CCS20 01380F2=TRNSFL,CCS20, 01390OP=T,F,A 01400KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01410SL=I   3D%5 01420 * THE TRNSFL FILE HAS BEEN SORTED 01430 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01440COLCHG 01450 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01460 * THE TIME USAGE REPORT WILL BE PRINTED 01470TIMUSE 01480 * THE TIME USAGE REPORT IS COMPLETE 01490INPUT=PRFDC001 01500SWITCH 0151010000000 01520 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01530COLSTS 01540 * THE DAILY STATISTICS REPORT IS COMPLETE 01550 **** OPERATOR - 01560 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01570 * 01580 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01590CCSPAS 01600INPUT=PRFDC001 01610SWITCH 0162000010000 01630COLSTS 01640 * THIS ROUTINE IS COMPLETE 01650MNUPRO 01660/! 01670DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01680LOAD,FN=PRFDC002,OW=CCS20 01690CHEKID 01700 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01710INPUT=PRFDC002 01720DSORT 01730FN=TRNSFL,CCS20 01740F2=TRNSFL,CCS20, 01750OP=T,F,A 01760KF=A,17,4,A,41,2,A,1,16 01770SL=I 01780 **** OPERATOR - LOAD LETTER PAPER 01790 * CARRIAGE RETURN WHEN READY 01800 * 01810CCSPAS 01820 * THE REQUESTED LETTERS WILL BE PRINTED 01830LTRPRT 01840 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01850 **** OPERATOR - LOAD REGULAR PAPER 01860 * CARRIAGE RETURN WHEN READY 01870 * 01880CCSPAS 01890 * THE LETTER STATISTICS SUMMARY WILL BE PRINTEDK  3E%I 01900LTRSTA 01910 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01920MNUPRO 01930/! 01940DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01950LOAD,FN=PRFDC003,OW=CCS20 01960CHEKID 01970 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01980INPUT=PRFDC003 01990DSORT 02000FN=TRNSFL,CCS20 02010F2=TRNSFL,CCS20, 02020OP=T,F,A 02030KF=A,29,2,A,21,4,D,25,4,D,121,2 02040SL=I 02050ACTADD 02060 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02070MNUPRO 02080/! 02090DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02100LOAD,FN=PRFDC004,OW=CCS20 02110CHEKID 02120 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02130 * CARRIAGE RETURN WHEN READY 02140CCSPAS 02150INPUT=PRFDC004 02160SWITCH 0217010000000 02180 * THE UPDATE TAPE WILL BE PROCESSED 02190UPDATE 02200 * THE UPDATE TAPE HAS BEEN PROCESSED 02210 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02220 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02230 * SCREEN INFORMATION 02240CCSSPC 02250CCSPAS 02260 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02270MNUPRO 02280/! 02290DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02300LOAD,FN=PRFDC005,OW=CCS20 02310CHEKID 02320 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02330 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02340 * CARRIAGE RETURN WHEN READY 02350CCSPAS 02360INPUT=PRFDC005 02370SWITCH o6  3F%] 0238010000000 02390UPD400 02400 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02410MNUPRO 02420/! 02430DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02440LOAD,FN=PRFDC006,OW=CCS20 02450CHEKID 02460 * THE FINANCIAL UPDATES WILL BE PROCESSED 02470 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02480 * 02490INPUT=PRFDC006 02500MOUNT 02510FTAPE,B,P 02520/* 02530UPD500 02540 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02550MNUPRO 02560/! 02570DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02580LOAD,FN=PRFDC007,OW=CCS20 02590CHEKID 02600 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02610DHUPDT 02620 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02630MNUPRO 02640/! 02650DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02660LOAD,FN=PRFDC008,OW=CCS20 02670CHEKID 02680 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02690 * COLLECTORS ARE OFF-LINE FOR THE DAY 02700MNUPRO 02710/! 02720DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02730LOAD,FN=PRFDC009,OW=CCS20 02740CHEKID 02750 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02760 * COLLECTORS ARE OFF-LINE FOR THE DAY 02770MNUPRO 02780/! 02790DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02800LOAD,FN=PRFDC010,OW=CCS20 02810CHEKID 02820 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02830 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02840 * CARRIAGE RETURN ONLY - TO CONTINUE 02850 *  3G%q 02860CCSPAS 02870 * 02880 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02890 * 02900INPUT=PRFDC010 02910UTIL 02920CLEAR,FN=TRNSFL 02930EX 02940INPUT=PRFDC010 02950DSORT 02960FN=TRANFL,CCS20 02970F2=TRNSFL,CCS20, 02980OP=T,F,A 02990KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 03000SL=I 03010PRETSR 03020INPUT=PRFDC010 03030UTIL 03040CLEAR,FN=ACTIVE 03050CLEAR,FN=TRANFL 03060CLEAR,FN=TRNBCK 03070EX 03080 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03090NMCHNG 03100RSWCHG 03110INPUT=PRFDC010 03120UTIL 03130CLEAR,FN=ADDACT 03140EX 03150MNUPRO 03160/! 03170DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03180LOAD,FN=PRFDC011,OW=CCS20 03190CHEKID 03200 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03210 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03220 * CARRIAGE RETURN ONLY - TO CONTINUE 03230 * 03240CCSPAS 03250 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03260INPUT=PRFDC011 03270UTIL 03280CLEAR,FN=DLYWRK 03290EX 03300SRREQ 03310 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03320 * 03330 * THE DLYASSN FILE IS BEING CREATED l  3H% 03340DACRTE 03350 * THE DLYASSN FILE HAS BEEN CREATED 03360 * THE DLYASSN FILE IS BEING SORTED 03370INPUT=PRFDC011 03380DSORT 03390FN=DLYWRK,CCS20 03400FN=DLYASSN,CCS20 03410F2=DLYASSN,CCS20, 03420OP=T,F,A 03430KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03440SL=I 03450 * THE DLYASSN FILE HAS BEEN SORTED 03460INPUT=PRFDC011 03470UTIL 03480CLEAR,FN=DAQUE 03490EX 03500 * THE DAILY QUEUE FILE IS BEING CREATED 03510DAQUEL 03520 * THE DAILY QUEUE FILE HAS BEEN CREATED 03530 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03540 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03550 * SCREEN INFORMATION 03560CCSSPC 03570CCSPAS 03580 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03590 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03600MNUPRO 03610/! 03620DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03630LOAD,FN=PRFHS001,OW=CCS20 03640CHEKID 03650 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03660 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03670INPUT=PRFHS001 03680DSORT 03690FN=INACCT,CCS20 03700F2=INTEMP,CCS20, 03710OP=T,F,A 03720KF=A,1,16,D,23,2,D,19,4 03730SL=I 03740INPUT=PRFHS001 03750UTIL 03760CLEAR,FN=INACCT 03770COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03780DELETE,FN=INTEMP 03790EX 03800 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03810 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE O2  3I%N TAPE UNIT '0' 03820 * WITH WRITE RING 03830 * CARRIAGE RETURN WHEN READY 03840CCSPAS 03850MHUPDT 03860 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 03870 * REBUILDING INACCT 03880FIXINA 03890 * INACCT REBUILD COMPLETE 03900MNUPRO 03910/! 03920DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03930LOAD,FN=PRFHS002,OW=CCS20 03940CHEKID 03950 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03960 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03970 * CARRIAGE RETURN ONLY - TO CONTINUE 03980 * 03990CCSPAS 04000 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 04010INPUT=PRFHS002 04020UTIL 04030DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 04040EX 04050CHUPD1 04060 * THE UPREQ FILE WILL BE SORTED 04070INPUT=PRFHS002 04080DSORT 04090FN=UPREQ,CCS20 04100F2=UPREQ,CCS20, 04110OP=T,F,A 04120KF=D,21,2,D,17,4,A,1,16 04130SL=I 04140 * THE UPREQ FILE HAS BEEN SORTED 04150INPUT=PRFHS002 04160UTIL 04170CLEAR,FN=UPHSTCM 04180EX 04190 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04200 * EXECUTION OF THE NEXT JOB 04210CHUPD2 04220INPUT=PRFHS002 04230UTIL 04240DELETE,FN=UPREQ 04250EX 04260 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04270MNUPRO 04280/! 04290DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL  3J%=SYSVOL ,OW=CCS20 04300LOAD,FN=PRFHS003,OW=CCS20 04310CHEKID 04320 * THE SUMHIST FILE WILL BE PURGED 04330PHDEL2 04340CMPSUM 04350 * THE SUMHIST FILE HAS BEEN PURGED 04360MNUPRO 04370/! 04380DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04390LOAD,FN=PRFHS004,OW=CCS20 04400CHEKID 04410 * THE TAPEARC FILE WILL BE PURGED 04420PHDEL1 04430INPUT=PRFHS004 04440UTIL 04450COMPRE,FN=TAPEARC 04460EX 04470 * THE TAPEARC FILE HAS BEEN PURGED 04480MNUPRO 04490/! 04500DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04510LOAD,FN=PRFMT001,OW=CCS20 04520CHEKID 04530 * THE LETTER DEFINITION FILE WILL BE PRINTED 04540INPUT=PRFMT001 04550UTIL 04560LIST,FN=LTRDESC,L=LPRINTER,F=U 04570EX 04580 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04590 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04600 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04610 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04620 * CARRIAGE RETURN WHEN READY TO CONTINUE 04630CCSPAS 04640MNUPRO 04650/! 04660DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04670LOAD,FN=PRFMT002,OW=CCS20 04680CHEKID 04690 * THE LETTER FILE WILL BE CREATED 04700 * 04710INPUT=PRFMT002 04720UTIL 04730CLEAR,FN=LTRFIL 04740EX 04750LTRBLD 04760 * THE LETTER FILE HAS BEEN CREATED 04770MNUPRO eq  3K% 04780/! 04790DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04800LOAD,FN=PRFMT003,OW=CCS20 04810CHEKID 04820 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04830 * 04840 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04850 * FROM THE CONSOLE 04860 * 04870 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04880UTFMTN 04890 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04900INPUT=PRFMT003 04910UTIL 04920LIST,FN=UTIFIL,L=LPRINTER,F=U 04930EX 04940 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04950 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04960MNUPRO 04970/! 04980DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04990LOAD,FN=PRFMT004,OW=CCS20 05000CHEKID 05010 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 05020 * 05030 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05040DECMTN 05050 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05060MNUPRO 05070/! 05080DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05090LOAD,FN=PRFMT005,OW=CCS20 05100CHEKID 05110 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05120AVMDMP 05130 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05140MNUPRO 05150/! 05160DEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05170LOAD,FN=PRFMT006,OW=CCS20 05180CHEKID 05190 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05200 * 05210AVMCON 05220 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05230 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05240AVMDMP 05250 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINa  3L%TED 05260MNUPRO 05270/! 05280DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05290LOAD,FN=PRFMT007,OW=CCS20 05300CHEKID 05310 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05320 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05330 * SCREEN INFORMATION 05340CCSSPC 05350CCSPAS 05360 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05370MNUPRO 05380/! 05390DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05400LOAD,FN=PRFMT008,OW=CCS20 05410CHEKID 05420 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05430INPUT=PRFMT008 05440UTIL 05450LIST,FN=SCRNDESC,L=LPRINTER,F=U 05460EX 05470 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05480 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05490 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05500 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05510 * CARRIAGE RETURN WHEN READY TO CONTINUE 05520CCSPAS 05530MNUPRO 05540/! 05550DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05560LOAD,FN=PRFMT009,OW=CCS20 05570CHEKID 05580 * THE SCREEN FILE WILL BE CREATED 05590BLDSRN 05600 * THE SCREEN FILE HAS BEEN CREATED 05610MNUPRO 05620/! 05630DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05640LOAD,FN=PRFMT010,OW=CCS20 05650CHEKID 05660 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05670 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05680 * CARRIAGE RETURN ONLY - TO CONTINUE 05690 * 05700CCSPAS 05710 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05720CMPDLQ 05730INPUT=PRFMT010 ,  3M% 05740UTIL 05750COMPRE,FN=COSIGNER 05760COMPRE,FN=ACTFIL 05770EX 05780 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05790MNUPRO 05800/! 05810DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05820LOAD,FN=PRFMT011,OW=CCS20 05830CHEKID 05840 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05850 * WILL BE PRINTED 05860ACTMTN 05870 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05880 * HAS BEEN PRINTED 05890MNUPRO 05900/! 05910DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05920LOAD,FN=PRFMT012,OW=CCS20 05930CHEKID 05940 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05950 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05960 * 05970USEMTN 05980 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05990MNUPRO 06000/! 06010DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 06020LOAD,FN=PRFMT013,OW=CCS20 06030CHEKID 06040 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06050PGLTTB 06060MNUPRO 06070/! 06080DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06090LOAD,FN=PRFMT014,OW=CCS20 06100CHEKID 06110 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06120 * 06130 * THE DATA ELEMENT TABLE WILL BE PRINTED 06140PGLTTB 06150 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06160 * 06170 * THE DATA ELEMENT TABLE WILL BE UPDATED 06180 * 06190 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06200 * 06210INPUT=PRFMT014 #  3N% 06220SWITCH 06230000000000 06240PGUPTB 06250 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06260 * 06270 * THE DATA ELEMENT TABLE WILL BE PURGED 06280INPUT=PRFMT014 06290UTIL 06300DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06310EX 06320PGCMPR 06330INPUT=PRFMT014 06340UTIL 06350DELETE,FN=RPTTBL 06360RENAME,FN=TBLWRK,F2=RPTTBL 06370EX 06380 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06390 * 06400 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06410MNUPRO 06420/! 06430DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06440LOAD,FN=PRFMT015,OW=CCS20 06450CHEKID 06460 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06490PGLIST 06500 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06510 * 06520 * 06530 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06540 * 06550 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06560 * 06570PGPURG 06580INPUT=PRFMT015 06590UTIL 06600COMPRE,FN=RPTPGM 06610EX 06620 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06630 * 06640 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06650PGLIST 06660 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06670 * 06680 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06690MNUPRO  3O& 06700/! 06710DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06720LOAD,FN=PRFMT016,OW=CCS20 06730CHEKID 06740 * THE SCREEN FILES WILL BE PRINTED 06750 * D 06760 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06770 * 06780PRTSCN 06790 * THE SCREEN FILES HAVE BEEN PRINTED 06800MNUPRO 06810/! 06820DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06830LOAD,FN=PRFRP001,OW=CCS20 06840CHEKID 06850INPUT=PRFRP001 06860SWITCH 0687010000000 06880 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06890 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06900 * PRINTED 06910DTLLST 06920 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06930MNUPRO 06940/! 06950DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06960LOAD,FN=PRFRP002,OW=CCS20 06970CHEKID 06980INPUT=PRFRP002 06990SWITCH 0700001000000 07010 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 07020 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 07030DTLLST 07040INPUT=PRFRP002 07050UTIL 07060CLEAR,FN=SREQDL 07070EX 07080 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07090MNUPRO 07100/! 07110DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07120LOAD,FN=PRFRP003,OW=CCS20 07130CHEKID 07140 * CALCULATE AGE FOR TREND ANALYSIS 07150TRENDF 07160 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07170 * 5  3P&% 07180 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07190INPUT=PRFRP003 07200UTIL 07210DELETE,FN=AGEWRK 07220EX 07230INPUT=PRFRP003 07240DSORT 07250FN=ACCAGE,CCS20 07260FN=RSWFIL,CCS20 07270F2=AGEWRK,CCS20,SYSVOL 07280OP=T,F,A 07290KF=A,17,4,A,1,1 07300SL=OMIT,35,3,EQ,'RSW' 07310 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07320 * 07330 **** OPERATOR - 07340 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07350 * TREND DATA FOR NEXT RUN 07360 * 07370 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07380 * FOR NEXT RUN 07390CCSPAS 07400TRENDU 07410INPUT=PRFRP003 07420UTIL 07430CLEAR,FN=RSWFIL 07440EX 07450MNUPRO 07460/! 07470DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07480LOAD,FN=PRFRP004,OW=CCS20 07490CHEKID 07500 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07510 * THE AGEWRK FILE IS BEING SORTED 07520INPUT=PRFRP004 07530DSORT 07540FN=AGEWRK,CCS20 07550F2=AGEWRK,CCS20, 07560OP=T,F,A 07570KF=A,17,4,A,1,1 07580SL=OMIT,35,3,EQ,'RSW' 07590 * THE AGEWRK FILE HAS BEEN SORTED 07600 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07610INPUT=PRFRP004 07620SWITCH 0763010000000 07640TRENDP 07650 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLET  3Q&9E 07660MNUPRO 07670/! 07680DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07690LOAD,FN=PRFRP005,OW=CCS20 07700CHEKID 07710 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07720 * THE AGEWRK FILE IS BEING SORTED 07730INPUT=PRFRP005 07740DSORT 07750FN=AGEWRK,CCS20 07760F2=AGEWRK,CCS20, 07770OP=T,F,A 07780KF=A,25,4,A,1,1 07790SL=I 07800 * THE AGEWRK FILE HAS BEEN SORTED 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07820INPUT=PRFRP005 07830SWITCH 0784000000000 07850TRENDP 07860 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07870MNUPRO 07880/! 07890DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07900LOAD,FN=PRFRP006,OW=CCS20 07910CHEKID 07920 * THE WRITE-OFF REPORT WILL BE GENERATED 07930 * THE WOEF FILE WILL BE CREATED 07940INPUT=PRFRP006 07950UTIL 07960DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07970EX 07980WRTOFE 07990 * THE WOEF FILE HAS BEEN CREATED 08000 * THE WOEF FILE IS BEING SORTED 08010INPUT=PRFRP006 08020DSORT 08030FN=WOEF,CCS20 08040F2=WOEF,CCS20, 08050OP=T,F,A 08060KF=A,25,1,A,17,4,A,21,4,A,1,16 08070SL=I 08080 * THE WOEF FILE HAS BEEN SORTED 08090 * THE WRITE-OFF REPORT WILL BE PRINTED 08100WRTOFP 08110INPUT=PRFRP006 08120UTIL 08130DELETE,FN=WOEF ް  3R&M 08140EX 08150 * THE WRITE-OFF REPORT IS COMPLETE 08160MNUPRO 08170/! 08180DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08190LOAD,FN=PRFRP007,OW=CCS20 08200CHEKID 08210 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08220DALIST 08230 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08240MNUPRO 08250/! 08260DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08270LOAD,FN=PRFRP008,OW=CCS20 08280CHEKID 08290 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08300SUMACL 08310 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08320MNUPRO 08330/! 08340DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08350LOAD,FN=PRFRP009,OW=CCS20 08360CHEKID 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08380INPUT=PRFRP009 08390SWITCH 0840001000000 08410COLSTS 08420 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08430 **** OPERATOR - 08440 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08450 * 08460 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08470CCSPAS 08480INPUT=PRFRP009 08490SWITCH 0850000001000 08510COLSTS 08520MNUPRO 08530/! 08540DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08550LOAD,FN=PRFRP010,OW=CCS20 08560CHEKID 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08580INPUT=PRFRP010 08590SWITCH 0860000100000 08610COLSTS }  3S&a 08620 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08630 **** OPERATOR - 08640 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08650 * STATISTICS COUNT FILE 08660 * 08670 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08680 * COUNT FILE 08690CCSPAS 08700INPUT=PRFRP010 08710UTIL 08720CLEAR,FN=COLSTATS 08730EX 08740MNUPRO 08750/! 08760DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08770LOAD,FN=PRFCNTRL,OW=CCS20 08780CHEKID 08790 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08800 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08810 * TO ACTIVATE BATCH HOST 08820 * MI, *BATCH,F 08830 * 08840 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08850 * 08860 * CARRIAGE RETURN ONLY - TO CONTINUE 08870CCSPAS 08880 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08890INPUT=PRFCNTRL 08900UTIL 08910DEFINE,FN=RPTWKE,LR=80,NR=1000 08920DEFINE,FN=RPTWKP,LR=80,NR=1000 08930DEFINE,FN=PRCWRK,LR=80,NR=50 08940EX 08950PGGEN 08960 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08970 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08980INPUT=PRFCNTRL 08990UTIL 09000BATCH,FN=RPTWKE,TY=N 09010BATCH,FN=RPTWKP,TY=R 09020DELETE,FN=RPTWKE 09030DELETE,FN=RPTWKP 09040CLEAR,FN=PGEXTR 09050EX 09060PGCNT1 09070 * 09080 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09090 * CARRIAGE RETURN WHEN READY u~  3T&u 09100CCSPAS 09110MNUPRO 09120/! 09130DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09140LOAD,FN=PRFRP012,OW=CCS20 09150CHEKID 09160 * THE QUEUE LOADING REPORT WILL BE PRINTED 09170QLOAD 09180 * THE QUEUE LOADING REPORT IS COMPLETE 09190MNUPRO 09200/! 09210DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09220LOAD,FN=PRFRP014,OW=CCS20 09230CHEKID 09240 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09250 ***** 09260 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09270 ***** OR NOT TREND ANALYSIS IS BEING USED. 09280 ***** 09290 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09300 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09310 **** 09320 *** 09330CCSPAS 09340 * 09350CMPACC 09360 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09370MNUPRO 09380/! 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480 09490 09500 09510 09520 09530 09540 09550 09560 09570  3U& 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680 09690 09700 09710 09720 09730DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09740NR=50 09750DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=36000,OW=CCS20 09760DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=36000,VL=CDD01; 09770OW=CCS20 09780DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09790DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09800DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=36000,VL=CDD01,OW=CCS20 09810DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=36000,VL=SYSVOL,OW=CCS20 09820DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=CDD01,OW=CCS20 09830DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD01; 09840OW=CCS20 09850DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=36000,VL=CDD01; 09860OW=CCS20 09870DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09880DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09890DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=36000; 09900VL=CDD02,OW=CCS20 09910DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=36000,VL=SYSVOL,OW=CCS20 09920DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=3000,VL=CDD01,OW=CCS20 09930DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09940LOAD,FN=DUMMY,OW=CCS20 09950 09960/! 09970DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=36000,VL=CDD01,OW=CCS20 09980DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09990DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 10020DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=36000,OW=CCS20 10030DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD01,OW=CCS20 10040DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD01; 10050OW=CCS20   3V& 10060DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=18000,VL=CDD01,OW=CCS20 10070DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD01,OW=CCS20 10080DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=CDD01; 10090OW=CCS20 10100DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20 10110DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=36000,VL=CDD01; 10120OW=CCS20 10130DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=36000,VL=CDD01; 10140OW=CCS20 10150DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10160DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10170DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10180DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=300,VL=CDD01,OW=CCS20 10190DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10200DEFINE,FN=$$LDMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10210LOAD,FN=$$LDMENU,OW=$$ 10220 * LEGAL AND AGENCY DAILY CYCLE MENU 10230 * 10240LDCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 10250LDPRTLTR B - PRINT REQUESTED LETTERS 10260LDACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 10270LDUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 10280LDNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 10290LDFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 10300LODRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 10310LODRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 10320LDUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 10330LDDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 10340LDDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 10350LDSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 10360LDBLDDAS M - CREATE DAILY ASSIGNMENT FILES 10370PRFLD012 N - NIGHTLY BATCH UPDATE 10380PRFLD013 O - L/A EXTRACT PROCESS 10390 Z - EXIT 10400/! 10410DEFINE,FN=$$LHMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10420LOAD,FN=$$LHMENU,OW=$$ 10430 LEGAL AND AGENCY HISTORY SYSTEM MENU 10440 * 10450LHMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 10460LHUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 10470LHPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10480LHPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10490LMPRGMST E - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10500LHPRGCLI F - PURGE CLIENT FILE (LACLIENT) 10510 Z - EXIT 10520/! 10530DEFINE,FN=$$LMMENU,TY=S,LR=80,NR=22,ED=999999,VL@  3W&=SYSVOL ,OW=$$ 10540LOAD,FN=$$LMMENU,OW=$$ 10550 * LEGAL AND AGENCY FILE MAINTENANCE MENU 10560 * 10570LMRDRLTR A - PRINT THE LETTER DEFINITION FILE 10580LMCONLTR B - CREATE THE LETTER FILE 10590LMUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 10600LMDECTBL D - DECISION TABLE MAINTENANCE 10610LMAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 10620LMACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 10630LMSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 10640LHPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10650LHPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10660LMLDSCRN J - PRINT SCREEN DEFINITION FILE 10670LMSVSCRN K - CREATE THE SCREEN FILE 10680LMPRGMST L - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10690LMACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 10700LMUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 10710LMDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 10720LMDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 10730LMPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 10740LMSCNPRT R - SAMPLE SCREEN PRINT UTILITY 10750PRFLM017 S - CLIENT FILE MAINTENANCE 10760 Z - EXIT 10770/! 10780DEFINE,FN=$$LOMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10790LOAD,FN=$$LOMENU,OW=$$ 10800 * LEGAL AND AGENCY ON DEMAND REPORT MENU 10810 * 10820LODRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 10830LODRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 10840LOTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 10850LOTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 10860LOTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 10870LOWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 10880LODLYASN G - DAILY ASSIGNMENT LIST 10890LOSUMACT H - SUMMARY ACCOUNT LIST REPORT 10900LOWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 10910LOMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 10920LOTCNTRL K - CREATE REPORT GENERATOR PROGRAM 10930PRFLP000 L - EXECUTE REPORT GENERATOR PROGRAM 10940PRFLO012 M - QUEUE LOADING REPORT 10950PRFLO013 N - COMPLETE PAYMENT, DIRECT PAYMENT STATEMENT REPORTS 10960PRFLO014 O - INVENTORY REPORTS BY ACCOUNT, CLIENT 10970PRFLO015 P - RECOVERY ANALYSIS REPORT 10980PRFRP014 Q - PURGE REPORT FILES ( LAACCAGE - LARSWFIL ) 10990 Z - EXIT 11000/! 11010DEFINE,FN=$$LRMENU,TY=S,LR=80,NR=22,ED=999999,VL  3X&=SYSVOL ,OW=$$ 11020LOAD,FN=$$LRMENU,OW=$$ 11030 * LEGAL AND AGENCY REPORT GENERATOR - REPORT DIRECTORY 11040 * 11050PRFLP001 A - R.G. REPORT 1 - (AVAILABLE) 11060PRFLP002 B - R.G. REPORT 2 - (AVAILABLE) 11070PRFLP003 C - R.G. REPORT 3 - (AVAILABLE) 11080PRFLP004 D - R.G. REPORT 4 - (AVAILABLE) 11090PRFLP005 E - R.G. REPORT 5 - (AVAILABLE) 11100PRFLP006 F - R.G. REPORT 6 - (AVAILABLE) 11110PRFLP007 G - R.G. REPORT 7 - (AVAILABLE) 11120PRFLP008 H - R.G. REPORT 8 - (AVAILABLE) 11130PRFLP009 I - R.G. REPORT 9 - (AVAILABLE) 11140PRFLP010 J - R.G. REPORT 10 - (AVAILABLE) 11150PRFLP011 K - R.G. REPORT 11 - (AVAILABLE) 11160PRFLP012 L - R.G. REPORT 12 - (AVAILABLE) 11170PRFLP013 M - R.G. REPORT 13 - (AVAILABLE) 11180PRFLP014 N - R.G. REPORT 14 - (AVAILABLE) 11190PRFLP015 O - R.G. REPORT 15 - (AVAILABLE) 11200PRFLP016 P - R.G. REPORT 16 - (AVAILABLE) 11210PRFLP017 Q - R.G. REPORT 17 - (AVAILABLE) 11220PRFLP018 R - R.G. REPORT 18 - (AVAILABLE) 11230PRFLP019 S - R.G. REPORT 19 - (AVAILABLE) 11240 Z - EXIT 11250/! 11260DEFINE,FN=PRFLD001,OW=LA,ED=999999,TY=S,LR=80,NR=50 11270LOAD,FN=PRFLD001,OW=LA 11280CHEKID 11290 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 11300 * - TIME USAGE REPORT 11310 * - DAILY COLLECTOR STATISTICS REPORT 11320 * 11330 * LATRNSFL FILE IS NOW BEING SORTED 11340INPUT=PRFLD001 11350DSORT 11360FN=LATRNSFL,LA 11370F2=LATRNSFL,LA, 11380OP=T,F,A 11390KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 11400SL=I 11410 * THE LATRNSFL FILE HAS BEEN SORTED 11420 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 11430LCOLCG 11440 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 11450 * THE TIME USAGE REPORT WILL BE PRINTED 11460LTMUSE 11470 * THE TIME USAGE REPORT IS COMPLETE 11480INPUT=PRFLD001 11490SWITCH  3Y& 1150010000000 11510 * THE DAILY STATISTICS REPORT WILL BE PRINTED 11520COLSTS 11530 * THE DAILY STATISTICS REPORT IS COMPLETE 11540 **** OPERATOR - 11550 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 11560 * 11570 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 11580CCSPAS 11590INPUT=PRFLD001 11600SWITCH 1161000010000 11620COLSTS 11630 * THIS ROUTINE IS COMPLETE 11640MNUPRO 11650/! 11660DEFINE,FN=PRFLD002,OW=LA,ED=999999,TY=S,LR=80,NR=30 11670LOAD,FN=PRFLD002,OW=LA 11680CHEKID 11690 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 11700INPUT=PRFLD002 11710DSORT 11720FN=LATRNSFL,LA 11730F2=LATRNSFL,LA, 11740OP=T,F,A 11750KF=A,17,4,A,41,2,A,1,16 11760SL=I 11770 **** OPERATOR - LOAD LETTER PAPER 11780 * CARRIAGE RETURN WHEN READY 11790 * 11800CCSPAS 11810 * THE REQUESTED LETTERS WILL BE PRINTED 11820LLTPRT 11830 * THE REQUESTED LETTERS HAVE BEEN PRINTED 11840 **** OPERATOR - LOAD REGULAR PAPER 11850 * CARRIAGE RETURN WHEN READY 11860 * 11870CCSPAS 11880 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 11890LTRSTA 11900 * THE LETTER STATISTICS SUMMARY IS COMPLETE 11910MNUPRO 11920/! 11930DEFINE,FN=PRFLD003,OW=LA,ED=999999,TY=S,LR=80,NR=25 11940LOAD,FN=PRFLD003,OW=LA 11950CHEKID 11960 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 11970INPUT=PRFLD003 |  3Z& 11980DSORT 11990FN=LATRNSFL,LA 12000F2=LATRNSFL,LA, 12010OP=T,F,A 12020KF=A,29,2,A,21,4,D,25,4,D,121,2 12030SL=I 12040ACTADD 12050 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 12060MNUPRO 12070/! 12080DEFINE,FN=PRFLD004,OW=LA,ED=999999,TY=S,LR=80,NR=25 12090LOAD,FN=PRFLD004,OW=LA 12100CHEKID 12110 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 12120 * CARRIAGE RETURN WHEN READY 12130CCSPAS 12140INPUT=PRFLD004 12150SWITCH 1216010000000 12170 * THE UPDATE TAPE WILL BE PROCESSED 12180LUPDAT 12190 * THE UPDATE TAPE HAS BEEN PROCESSED 12200 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 12210 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 12220 * SCREEN INFORMATION 12230CCSSPC 12240CCSPAS 12250 * THE FILE SPACE AUDIT REPORT IS COMPLETE 12260MNUPRO 12270/! 12280DEFINE,FN=PRFLD005,OW=LA,ED=999999,TY=S,LR=80,NR=20 12290LOAD,FN=PRFLD005,OW=LA 12300CHEKID 12310 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 12320 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 12330 * CARRIAGE RETURN WHEN READY 12340CCSPAS 12350INPUT=PRFLD005 12360SWITCH 1237010000000 12380LUD400 12390 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 12400MNUPRO 12410/! 12420DEFINE,FN=PRFLD006,OW=LA,ED=999999,TY=S,LR=80,NR=20 12430LOAD,FN=PRFLD006,OW=LA 12440CHEKID 12450 * THE FINANCIAL UPDATES WILL BE PROCESSED  3[' 12460 **** OPERATOR - FINANCIAL UPDATE TAPE SHOULD BE MOUNTED ON UNIT '0' 12470 * 12480INPUT=PRFLD006 12490SWITCH 1250010000000 12510INPUT=PRFLD006 12520MOUNT 12530FTAPE,B,P 12540/* 12550LUD500 12560 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 12570MNUPRO 12580/! 12590DEFINE,FN=PRFLD007,OW=LA,ED=999999,TY=S,LR=80,NR=15 12600LOAD,FN=PRFLD007,OW=LA 12610CHEKID 12620 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 12630DHUPDT 12640 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 12650MNUPRO 12660/! 12670DEFINE,FN=PRFLD008,OW=LA,ED=999999,TY=S,LR=80,NR=10 12680LOAD,FN=PRFLD008,OW=LA 12690CHEKID 12700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12710 * COLLECTORS ARE OFF-LINE FOR THE DAY 12720MNUPRO 12730/! 12740DEFINE,FN=PRFLD009,OW=LA,ED=999999,TY=S,LR=80,NR=10 12750LOAD,FN=PRFLD009,OW=LA 12760CHEKID 12770 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12780 * COLLECTORS ARE OFF-LINE FOR THE DAY 12790MNUPRO 12800/! 12810DEFINE,FN=PRFLD010,OW=LA,ED=999999,TY=S,LR=80,NR=50 12820LOAD,FN=PRFLD010,OW=LA 12830CHEKID 12840 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 12850 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 12860 * CARRIAGE RETURN ONLY - TO CONTINUE 12870 * 12880CCSPAS 12890 * 12900 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTOR REPORTS 12910 * 12920INPUT=PRFLD010 12930UTIL   3\' 12940CLEAR,FN=LATRNSFL 12950EX 12960INPUT=PRFLD010 12970DSORT 12980FN=LATRANFL,LA 12990F2=LATRNSFL,LA, 13000OP=T,F,A 13010KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 13020SL=I 13030PRETSR 13040INPUT=PRFLD010 13050UTIL 13060CLEAR,FN=LAACTIVE 13070CLEAR,FN=LATRANFL 13080CLEAR,FN=LATRNBCK 13090EX 13100 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 13110NMCHNG 13120RSWCHG 13130INPUT=PRFLD010 13140UTIL 13150CLEAR,FN=LAADDACT 13160EX 13170MNUPRO 13180/! 13190DEFINE,FN=PRFLD011,OW=LA,ED=999999,TY=S,LR=80,NR=60 13200LOAD,FN=PRFLD011,OW=LA 13210CHEKID 13220 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 13230 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 13240 * CARRIAGE RETURN ONLY - TO CONTINUE 13250 * 13260CCSPAS 13270 * THE SUPERVISOR REQUEST FILE IS BEING CLEARED AND UPDATED 13280INPUT=PRFLD011 13290UTIL 13300CLEAR,FN=LADLYWRK 13310EX 13320SRREQ 13330 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 13340 * 13350 * THE LADLYASN FILE IS BEING CREATED 13360LDACRT 13370 * THE LADLYASN FILE HAS BEEN CREATED 13380 * THE LADLYASN FILE IS BEING SORTED 13390INPUT=PRFLD011 13400DSORT 13410FN=LADLYWRK,LA ]U  3]') 13420FN=LADLYASN,LA 13430F2=LADLYASN,LA, 13440OP=T,F,A 13450KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 13460SL=I 13470 * THE LADLYASN FILE HAS BEEN SORTED 13480INPUT=PRFLD011 13490UTIL 13500CLEAR,FN=LADAQUE 13510EX 13520 * THE DAILY QUEUE FILE IS BEING CREATED 13530LDAQEL 13540 * THE DAILY QUEUE FILE HAS BEEN CREATED 13550 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 13560 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 13570 * SCREEN INFORMATION 13580CCSSPC 13590CCSPAS 13600 * THE FILE SPACE AUDIT REPORT IS COMPLETE 13610 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 13620 * 13630 * THE TRANSACTIONS ARE BEING SORTED INTO FILE FOR NIGTHLY BATCH PROCESS 13640INPUT=PRFLD011 13650DSORT 13660FN=LAFILTMP,LA 13670FN=LATRNSFL,LA 13680F2=LAFINTRN,, 13690OP=T,F,A 13700KF=A,1,16,A,17,4,A,50,3 13710SL=I 13720MNUPRO 13730/! 13740DEFINE,FN=PRFLD012,OW=LA,ED=999999,TY=S,LR=80,NR=35 13750LOAD,FN=PRFLD012,OW=LA 13760CHEKID 13770 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 13780 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 13790 * CARRIAGE RETURN ONLY - TO CONTINUE 13800CCSPAS 13810 * OPERATOR - CHECK THE DATE PRINTED ON THE MATRIX 13820 * IT MUST BE THE CORRECT DATE 13830 * RESPOND - 'N' CARRIAGE RETURN TO ABORT 13840 * CARRIAGE RETURN ONLY TO CONTINUE 13850CCSPAS 13860 *THE NIGHTLY BATCH FILES WILL BE CLEARED 13870INPUT=PRFLD012 13880UTIL 13890CLEAR,FN=LAFILTMP   3^'= 13900CLEAR,FN=LARPTDAT 13910EX 13920 *BATCH UPDATE WILL BEGIN 13930LBATUD 13940 * BATCH UPDATE COMPLETE, AUDIT TRAIL REPORT WILL BEGIN 13950LBATPT 13960 * AUDIT TRAIL REPORT COMPLETE 13970 * THE LACLIENT FILE IS BEING UPDATED FOR ON-LINE USE 13980LCLIUD 13990 *NIGHTLY BATCH UPDATE PROCESS COMPLETE 14000MNUPRO 14010/! 14020DEFINE,FN=PRFLD013,OW=LA,ED=999999,TY=S,LR=80,NR=20 14030LOAD,FN=PRFLD013,OW=LA 14040CHEKID 14050 *** OPERATOR - THE COLLECTORS MUST BE OFFLINE 14060 * RESPOND 'N' CARRIAGE RETURN - TO ABORT 14070 * CARRIAGE RETURN ONLY - TO CONTINUE 14080CCSPAS 14090 * THE LEGAL AND AGENCY EXTRACT PROGRAM WILL BEGIN 14100LAXTRT 14110 * THE LEGAL AND AGENCY EXTRACT PROCESS IS COMPLETE. 14120 * REFERRAL REPORT WILL BEGIN 14130LARPRT 14140 * REFERRAL REPORT COMPLETE 14150 * THE LADLQKEY FILE IS BEING CLEARED 14160INPUT=PRFLD013 14170UTIL 14180CLEAR,FN=LADLQKEY 14190EX 14200MNUPRO 14210/! 14220DEFINE,FN=PRFLH001,OW=LA,ED=999999,TY=S,LR=80,NR=30 14230LOAD,FN=PRFLH001,OW=LA 14240CHEKID 14250 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 14260 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 14270INPUT=PRFLH001 14280DSORT 14290FN=LAINACCT,LA 14300F2=LAINTEMP,LA, 14310OP=T,F,A 14320KF=A,1,16,D,23,2,D,19,4 14330SL=I 14340INPUT=PRFLH001 14350UTIL 14360CLEAR,FN=LAINACCT 14370COPY,FN=LAINTEMP,F2=LAINACCT,OW=LA  3_'Q 14380DELETE,FN=LAINTEMP 14390EX 14400 * THE LAINACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 14410 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 14420 * WITH WRITE RING - CARRIAGE RETURN WHEN READY 14430CCSPAS 14440MHUPDT 14450 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 14460 * REBUILDING LAINACCT 14470FIXINA 14480 * LAINACCT REBUILD COMPLETE 14490MNUPRO 14500/! 14510DEFINE,FN=PRFLH002,OW=LA,ED=999999,TY=S,LR=80,NR=40 14520LOAD,FN=PRFLH002,OW=LA 14530CHEKID 14540 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 14550 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 14560 * CARRIAGE RETURN ONLY - TO CONTINUE 14570 * 14580CCSPAS 14590 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 14600INPUT=PRFLH002 14610UTIL 14620DEFINE,FN=LAUPDREQ,ED=999999,TY=S,LR=22,NR=300 14630EX 14640LCHUD1 14650 * THE LAUPDREQ FILE WILL BE SORTED 14660INPUT=PRFLH002 14670DSORT 14680FN=LAUPDREQ,LA 14690F2=LAUPDREQ,LA, 14700OP=T,F,A 14710KF=D,21,2,D,17,4,A,1,16 14720SL=I 14730 * THE LAUPDREQ FILE HAS BEEN SORTED 14740INPUT=PRFLH002 14750UTIL 14760CLEAR,FN=LAUPHSCM 14770EX 14780 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 14790 * EXECUTION OF THE NEXT JOB 14800CHUPD2 14810INPUT=PRFLH002 14820UTIL 14830DELETE,FN=LAUPDREQ 14840EX 14850 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM TH@,  3`'eE TAPE ARCHIVES 14860MNUPRO 14870/! 14880DEFINE,FN=PRFLH003,OW=LA,ED=999999,TY=S,LR=80,NR=15 14890LOAD,FN=PRFLH003,OW=LA 14900CHEKID 14910 * THE LASUMHST FILE WILL BE PURGED 14920PHDEL2 14930LCMPSM 14940 * THE LASUMHST FILE HAS BEEN PURGED 14950MNUPRO 14960/! 14970DEFINE,FN=PRFLH004,OW=LA,ED=999999,TY=S,LR=80,NR=15 14980LOAD,FN=PRFLH004,OW=LA 14990CHEKID 15000 * THE LATAPARC FILE WILL BE PURGED 15010PHDEL1 15020INPUT=PRFLH004 15030UTIL 15040COMPRE,FN=LATAPARC 15050EX 15060 * THE LATAPARC FILE HAS BEEN PURGED 15070MNUPRO 15080/! 15090DEFINE,FN=PRFLH005,OW=LA,ED=999999,TY=S,LR=80,NR=25 15100LOAD,FN=PRFLH005,OW=LA 15110CHEKID 15120 * THE CLIENT FILE WILL BE PURGED 15130INPUT=PRFLH005 15140UTIL 15150DEFINE,FN=LAPURGED,LR=1600,NR=100 15160EX 15170 *THE LACLIENT FILE WILL BE SCANNED FOR CLIENTS READY TO BE PURGED 15180LACLPG 15190 *THE INACTIVATED AND/OR PURGED REPORT WILL BE PRINTED 15200LPGRPT 15210 * THE LAPURGED FILE WILL BE DELETED 15220INPUT=PRFLH005 15230UTIL 15240DELETE,FN=LAPURGED 15250EX 15260 * THE CLIENT FILE PURGE ROUTINES ARE COMPLETE 15270MNUPRO 15280/! 15290DEFINE,FN=PRFLM001,OW=LA,ED=999999,TY=S,LR=80,NR=20 15300LOAD,FN=PRFLM001,OW=LA 15310CHEKID 15320 * THE LETTER DEFINITION FILE WILL BE PRINTED 15330INPUT=PRFLM001 3  3a'y 15340UTIL 15350LIST,FN=LALTRDSC,L=LPRINTER,F=U 15360EX 15370 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 15380 **** OPERATOR - IF ANY CHANGES ARE TO BE MADE TO THE LETTER FILE 15390 * ENTER THE EDITOR TO PROCESS THE LALTRDSC FILE, WHEN 15400 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 15410 * CARRIAGE RETURN WHEN READY TO CONTINUE 15420CCSPAS 15430MNUPRO 15440/! 15450DEFINE,FN=PRFLM002,OW=LA,ED=999999,TY=S,LR=80,NR=15 15460LOAD,FN=PRFLM002,OW=LA 15470CHEKID 15480 * THE LETTER FILE WILL BE CREATED 15490INPUT=PRFLM002 15500UTIL 15510CLEAR,FN=LALTRFIL 15520EX 15530LTRBLD 15540 * THE LETTER FILE HAS BEEN CREATED 15550MNUPRO 15560/! 15570DEFINE,FN=PRFLM003,OW=LA,ED=999999,TY=S,LR=80,NR=25 15580LOAD,FN=PRFLM003,OW=LA 15590CHEKID 15600 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 15610 * 15620 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 15630 * FROM THE CONSOLE 15640 * 15650 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 15660LUTFMT 15670 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 15680INPUT=PRFLM003 15690UTIL 15700LIST,FN=LAUTIFIL,L=LPRINTER,F=U 15710EX 15720 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 15730 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 15740MNUPRO 15750/! 15760DEFINE,FN=PRFLM004,OW=LA,ED=999999,TY=S,LR=80,NR=15 15770LOAD,FN=PRFLM004,OW=LA 15780CHEKID 15790 * THE DECISION TABLE MAINTENANCE ROUTIN WILL BE EXECUTED 15800 * 15810 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY  3b'APPEAR ON THE SCREEN 15820LDECMT 15830 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 15840MNUPRO 15850/! 15860DEFINE,FN=PRFLM005,OW=LA,ED=999999,TY=S,LR=80,NR=15 15870LOAD,FN=PRFLM005,OW=LA 15880CHEKID 15890 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 15900LAVMDP 15910 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 15920MNUPRO 15930/! 15940DEFINE,FN=PRFLM006,OW=LA,ED=999999,TY=S,LR=80,NR=15 15950LOAD,FN=PRFLM006,OW=LA 15960CHEKID 15970 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 15980 * 15990AVMCON 16000 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 16010 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 16020LAVMDP 16030 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 16040MNUPRO 16050/! 16060DEFINE,FN=PRFLM007,OW=LA,ED=999999,TY=S,LR=80,NR=15 16070LOAD,FN=PRFLM007,OW=LA 16080CHEKID 16090 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 16100 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 16110 * SCREEN INFORMATION 16120CCSSPC 16130CCSPAS 16140 * THE FILE SPACE AUDIT REPORT IS COMPLETE 16150MNUPRO 16160/! 16170DEFINE,FN=PRFLM008,OW=LA,ED=999999,TY=S,LR=80,NR=20 16180LOAD,FN=PRFLM008,OW=LA 16190CHEKID 16200 * THE SCREEN DEFINITION FILE WILL BE PRINTED 16210INPUT=PRFLM008 16220UTIL 16230LIST,FN=LASCNDSC,L=LPRINTER,F=U 16240EX 16250 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 16260 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 16270 * FILE ENTER THE EDITOR TO PROCESS THE LASCNDSC FILE, 16280 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 16290 * CARRIAGE RETURN WHEN READY TO C2>  3c'ONTINUE 16300CCSPAS 16310MNUPRO 16320/! 16330DEFINE,FN=PRFLM009,OW=LA,ED=999999,TY=S,LR=80,NR=15 16340LOAD,FN=PRFLM009,OW=LA 16350CHEKID 16360 * THE SCREEN FILE WILL BE CREATED 16370LBLDSR 16380 * THE SCREEN FILE HAS BEEN CREATED 16390MNUPRO 16400/! 16410DEFINE,FN=PRFLM010,OW=LA,ED=999999,TY=S,LR=80,NR=20 16420LOAD,FN=PRFLM010,OW=LA 16430CHEKID 16440 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 16450 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 16460 * CARRIAGE RETURN ONLY - TO CONTINUE 16470 * 16480CCSPAS 16490 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES WILL BE PURGED 16500LCMPDQ 16510INPUT=PRFLM010 16520UTIL 16530COMPRE,FN=LACOSIGN 16540COMPRE,FN=LAACTFIL 16550EX 16560 * THE LADLQMST, LACOSIGN AND LAACTFIL FILES HAVE BEEN PURGED 16570MNUPRO 16580/! 16590DEFINE,FN=PRFLM011,OW=LA,ED=999999,TY=S,LR=80,NR=15 16600LOAD,FN=PRFLM011,OW=LA 16610CHEKID 16620 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 16630 * WILL BE PRINTED 16640ACTMTN 16650 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 16660 * HAS BEEN PRINTED 16670MNUPRO 16680/! 16690DEFINE,FN=PRFLM012,OW=LA,ED=999999,TY=S,LR=80,NR=15 16700LOAD,FN=PRFLM012,OW=LA 16710CHEKID 16720 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE WILL BE EXECUTED 16730 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 16740 * 16750USEMTN 16760 * THE LEGAL ACTIVE USER FILE MAINTENANCE ROUTINE IS COMPLETE 16770MNUPRO   3d' 16780/! 16790DEFINE,FN=PRFLM013,OW=LA,ED=999999,TY=S,LR=80,NR=10 16800LOAD,FN=PRFLM013,OW=LA 16810CHEKID 16820 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 16830LPGLTB 16840MNUPRO 16850/! 16860DEFINE,FN=PRFLM014,OW=LA,ED=999999,TY=S,LR=80,NR=40 16870LOAD,FN=PRFLM014,OW=LA 16880CHEKID 16890 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 16900 * 16910 * THE DATA ELEMENT TABLE WILL BE PRINTED 16920LPGLTB 16930 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 16940 * 16950 * THE DATA ELEMENT TABLE WILL BE UPDATED 16960 * 16970 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 16980 * 16990INPUT=PRFLM014 17000SWITCH 17010000000000 17020LPGUTB 17030 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 17040 * 17050 * THE DATA ELEMENT TABLE WILL BE PURGED 17060INPUT=PRFLM014 17070UTIL 17080DEFINE,FN=LATBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 17090EX 17100LPGCMP 17110INPUT=PRFLM014 17120UTIL 17130DELETE,FN=LARPTTBL 17140RENAME,FN=LATBLWRK,F2=LARPTTBL 17150EX 17160 * THE DATA ELEMENT TABLE HAS BEEN PURGED 17170 * 17180 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 17190MNUPRO 17200/! 17210DEFINE,FN=PRFLM015,OW=LA,ED=999999,TY=S,LR=80,NR=35 17220LOAD,FN=PRFLM015,OW=LA 17230CHEKID 17240 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 17250 *  3e' 17260 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 17270LPGLIS 17280 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 17290 * 17300 * 17310 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 17320 * 17330 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 17340 * 17350LPGPRG 17360INPUT=PRFLM015 17370UTIL 17380COMPRE,FN=LARPTPGM 17390EX 17400 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 17410 * 17420 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 17430LPGLIS 17440 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 17450 * 17460 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 17470MNUPRO 17480/! 17490DEFINE,FN=PRFLM016,OW=LA,ED=999999,TY=S,LR=80,NR=15 17500LOAD,FN=PRFLM016,OW=LA 17510CHEKID 17520 * THE SCREEN FILES WILL BE PRINTED 17530 * 17540 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 17550 * 17560LPRSCN 17570 * THE SCREEN FILES HAVE BEEN PRINTED 17580MNUPRO 17590/! 17600DEFINE,FN=PRFLM017,OW=LA,ED=999999,TY=S,LR=80,NR=15 17610LOAD,FN=PRFLM017,OW=LA 17620CHEKID 17630 * THE CLIENT FILE MAINTENANCE PROGRAM WILL BEGIN 17640CLIENT 17650 * THE CLIENT FILE MAINTENANCE PROGRAM HAS COMPLETED 17660MNUPRO 17670/! 17680DEFINE,FN=PRFLO001,OW=LA,ED=999999,TY=S,LR=80,NR=20 17690LOAD,FN=PRFLO001,OW=LA 17700CHEKID 17710INPUT=PRFLO001 17720SWITCH 1773010000000 ^  3f' 17740 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 17750 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 17760 * PRINTED 17770LDTLST 17780 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 17790MNUPRO 17800/! 17810DEFINE,FN=PRFLO002,OW=LA,ED=999999,TY=S,LR=80,NR=20 17820LOAD,FN=PRFLO002,OW=LA 17830CHEKID 17840INPUT=PRFLO002 17850SWITCH 1786001000000 17870 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 17880 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 17890LDTLST 17900INPUT=PRFLO002 17910UTIL 17920CLEAR,FN=LASREQDL 17930EX 17940 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 17950MNUPRO 17960/! 17970DEFINE,FN=PRFLO003,OW=LA,ED=999999,TY=S,LR=80,NR=40 17980LOAD,FN=PRFLO003,OW=LA 17990CHEKID 18000 * CALCULATE AGE FOR TREND ANALYSIS 18010TRENDF 18020 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 18030 * 18040 * THE LAACCAGE AND LARSWFIL FILES ARE BEING SORTED INTO LAAGEWRK 18050INPUT=PRFLO003 18060UTIL 18070DELETE,FN=LAAGEWRK 18080EX 18090INPUT=PRFLO003 18100DSORT 18110FN=LAACCAGE,LA 18120FN=LARSWFIL,LA 18130F2=LAAGEWRK,LA,SYSVOL 18140OP=T,F,A 18150KF=A,17,4,A,1,1 18160SL=OMIT,35,3,EQ,'RSW' 18170 * THE LAACCAGE AND LARSWFIL FILES HAVE BEEN SORTED 18180 * 18190 **** OPERATOR - 18200 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 18210 * TREND DATA FOR NEXT RUN 0  3g' 18220 * 18230 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 18240 * FOR NEXT RUN 18250CCSPAS 18260LTRNDU 18270INPUT=PRFLO003 18280UTIL 18290CLEAR,FN=LARSWFIL 18300EX 18310MNUPRO 18320/! 18330DEFINE,FN=PRFLO004,OW=LA,ED=999999,TY=S,LR=80,NR=25 18340LOAD,FN=PRFLO004,OW=LA 18350CHEKID 18360 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 18370 * THE LAAGEWRK FILE IS BEING SORTED 18380INPUT=PRFLO004 18390DSORT 18400FN=LAAGEWRK,LA 18410F2=LAAGEWRK,LA, 18420OP=T,F,A 18430KF=A,17,4,A,1,1 18440SL=I 18450 * THE LAAGEWRK FILE HAS BEEN SORTED 18460 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 18470INPUT=PRFLO004 18480SWITCH 1849010000000 18500LTRNDP 18510 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 18520MNUPRO 18530/! 18540DEFINE,FN=PRFLO005,OW=LA,ED=999999,TY=S,LR=80,NR=25 18550LOAD,FN=PRFLO005,OW=LA 18560CHEKID 18570 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 18580 * THE LAAGEWRK FILE IS BEING SORTED 18590INPUT=PRFLO005 18600DSORT 18610FN=LAAGEWRK,LA 18620F2=LAAGEWRK,LA, 18630OP=T,F,A 18640KF=A,17,4,A,1,1 18650SL=I 18660 * THE LAAGEWRK FILE HAS BEEN SORTED 18670 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 18680INPUT=PRFLO005 18690SWITCH ^  3h( 1870000000000 18710LTRNDP 18720 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 18730MNUPRO 18740/! 18750DEFINE,FN=PRFLO006,OW=LA,ED=999999,TY=S,LR=80,NR=35 18760LOAD,FN=PRFLO006,OW=LA 18770CHEKID 18780 * THE WRITE-OFF REPORT WILL BE GENERATED 18790 * THE LAWOEF FILE WILL BE CREATED 18800INPUT=PRFLO006 18810UTIL 18820DEFINE,FN=LAWOEF,ED=999999,TY=S,LR=115,NR=6000 18830EX 18840WRTOFE 18850 * THE LAWOEF FILE HAS BEEN CREATED 18860 * THE LAWOEF FILE IS BEING SORTED 18870INPUT=PRFLO006 18880DSORT 18890FN=LAWOEF,LA 18900F2=LAWOEF,LA, 18910OP=T,F,A 18920KF=A,25,1,A,17,4,A,21,4,A,1,16 18930SL=I 18940 * THE LAWOEF FILE HAS BEEN SORTED 18950 * THE WRITE-OFF REPORT WILL BE PRINTED 18960LWROFP 18970INPUT=PRFLO006 18980UTIL 18990DELETE,FN=LAWOEF 19000EX 19010 * THE WRITE-OFF REPORT IS COMPLETE 19020MNUPRO 19030/! 19040DEFINE,FN=PRFLO007,OW=LA,ED=999999,TY=S,LR=80,NR=15 19050LOAD,FN=PRFLO007,OW=LA 19060CHEKID 19070 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 19080LDALST 19090 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 19100MNUPRO 19110/! 19120DEFINE,FN=PRFLO008,OW=LA,ED=999999,TY=S,LR=80,NR=15 19130LOAD,FN=PRFLO008,OW=LA 19140CHEKID 19150 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 19160SUMACL 19170 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE J  3i( 19180MNUPRO 19190/! 19200DEFINE,FN=PRFLO009,OW=LA,ED=999999,TY=S,LR=80,NR=25 19210LOAD,FN=PRFLO009,OW=LA 19220CHEKID 19230 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 19240INPUT=PRFLO009 19250SWITCH 1926001000000 19270COLSTS 19280 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 19290 **** OPERATOR - 19300 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 19310 * 19320 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 19330CCSPAS 19340INPUT=PRFLO009 19350SWITCH 1936000001000 19370COLSTS 19380MNUPRO 19390/! 19400DEFINE,FN=PRFLO010,OW=LA,ED=999999,TY=S,LR=80,NR=25 19410LOAD,FN=PRFLO010,OW=LA 19420CHEKID 19430 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 19440INPUT=PRFLO010 19450SWITCH 1946000100000 19470COLSTS 19480 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 19490 **** OPERATOR - 19500 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 19510 * STATISTICS COUNT FILE 19520 * 19530 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 19540 * COUNT FILE 19550CCSPAS 19560INPUT=PRFLO010 19570UTIL 19580CLEAR,FN=LACOLSTS 19590EX 19600MNUPRO 19610/! 19620DEFINE,FN=PRFLACTR,OW=LA,ED=999999,TY=S,LR=80,NR=40 19630LOAD,FN=PRFLACTR,OW=LA 19640CHEKID 19650 **** OPERATOR - THE BATCH HOST MUST BE ACTIVE B   3j(-EFORE PROCEEDING 19660 **** OPERATOR - (BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING) 19670 * TO ACTIVATE BATCH HOST 19680 * MI, *BATCH,F 19690 * 19700 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 19710 * 19720 * CARRIAGE RETURN ONLY - TO CONTINUE 19730CCSPAS 19740 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 19750INPUT=PRFLACTR 19760UTIL 19770DEFINE,FN=LARPTWKE,LR=80,NR=1000 19780DEFINE,FN=LARPTWKP,LR=80,NR=1000 19790DEFINE,FN=LAPRCWRK,LR=80,NR=50 19800EX 19810LPGGEN 19820 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 19830 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 19840INPUT=PRFLACTR 19850UTIL 19860BATCH,FN=LARPTWKE,TY=N 19870BATCH,FN=LARPTWKP,TY=R 19880DELETE,FN=LARPTWKE 19890DELETE,FN=LARPTWKP 19900CLEAR,FN=LAPGEXTR 19910EX 19920LPGCT1 19930 * 19940 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 19950 * CARRIAGE RETURN WHEN READY 19960CCSPAS 19970MNUPRO 19980/! 19990DEFINE,FN=PRFLO012,OW=LA,ED=999999,TY=S,LR=80,NR=15 20000LOAD,FN=PRFLO012,OW=LA 20010CHEKID 20020 * THE QUEUE LOADING REPORT WILL BE PRINTED 20030QLOAD 20040 * THE QUEUE LOADING REPORT IS COMPLETE 20050MNUPRO 20060/! 20070DEFINE,FN=PRFLO013,OW=LA,ED=999999,TY=S,LR=80,NR=25 20080LOAD,FN=PRFLO013,OW=LA 20090CHEKID 20100 * LAPMTFIL WILL BE SORTED FOR THE COMPLETE & DIRECT PAYMENT REPORTS 20110INPUT=PRFLO013 20120DSORT 20130FN=LAPMTFIL,LA c  3k(A 20140F2=LAPMTFIL,LA, 20150OP=T,F,A 20160KF=A,34,4,A,1,16 20170SL=I 20180INPUT=PRFLO013 20190 * COMPLETE PAYMENT REPORT WILL NOW BE PRINTED 20200COMPAY 20210 * DIRECT PAYMENT REPORT WILL NOW BE PRINTED 20220DIRPAY 20230 ***** OPERATOR - RESPOND 'N' CARRIAGE RETURN TO BYPASS CLEARING THE 20240 * PAYMENT FILE 20250 * 20260 * RESPOND CARRIAGE RETURN ONLY TO CLEAR PAYMENT FILE 20270 * 20280CCSPAS 20290INPUT=PRFLO013 20300UTIL 20310CLEAR,FN=LAPMTFIL 20320EX 20330MNUPRO 20340/! 20350DEFINE,FN=PRFLO014,OW=LA,ED=999999,TY=S,LR=80,NR=45 20360LOAD,FN=PRFLO014,OW=LA 20370CHEKID 20380 * THE INVENTORY REPORT PROCESS WILL NOW BEGIN 20390 * THE CLIENT FILE IS BEING EXTRACTED 20400INPUT=PRFLO014 20410UTIL 20420DEFINE,FN=LACLINV,TY=S,LR=80,NR=9000 20430EX 20440CLXTRT 20450 * CLIENT EXTRACT RECORDS WILL BE SORTED 20460INPUT=PRFLO014 20470DSORT 20480FN=LACLINV,LA 20490F2=LACLINV,, 20500OP=T,F,A 20510KF=A,1,16 20520SL=I 20530INPUT=PRFLO014 20540 * THE INVENTORY REPORT BY ACCOUNT WILL BE PRINTED 20550INVCUS 20560 * CLIENT EXTRACT RECORDS WILL BE SORTED BY CLIENT 20570INPUT=PRFLO014 20580DSORT 20590FN=LACLINV,LA 20600F2=LACLINV,, 20610OP=T,F,A  3l(U 20620KF=A,17,4 20630SL=I 20640INPUT=PRFLO014 20650 * THE INVENTORY REPORT BY CLIENT WILL BE PRINTED 20660INVCLI 20670INPUT=PRFLO014 20680UTIL 20690DELETE,FN=LACLINV 20700EX 20710 * INVENTORY REPORT PROCESS IS COMPLETE 20720MNUPRO 20730/! 20740DEFINE,FN=PRFLO015,OW=LA,ED=999999,TY=S,LR=80,NR=15 20750LOAD,FN=PRFLO015,OW=LA 20760CHEKID 20770 * THE RECOVERY ANALYSIS REPORT WILL BEGIN 20780RECVRY 20790 * THE RECOVERY ANALYSIS REPORT IS COMPLETE 20800MNUPRO 20810/! 20820DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=LA 20830LOAD,FN=PRFRP014,OW=LA 20840CHEKID 20850 ***** PURGE TREND ANALYSIS FILES (LAACCAGE-LARSWFIL) 20860 ***** 20870 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 20880 ***** OR NOT TREND ANALYSIS IS BEING USED. 20890 ***** 20900 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 20910 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 20920 **** 20930 *** 20940CCSPAS 20950 * 20960CMPACC 20970 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 20980MNUPRO 20990/! 21000DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,NR=50; 21010OW=LA,VL=CDD03 21020DEFINE,FN=LAACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=13500,VL=CDD03; 21030OW=LA 21040DEFINE,FN=LAACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=6000,VL=CDD03; 21050OW=LA 21060DEFINE,FN=LAACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,VL=CDD03; 21070OW=LA 21080DEFINE,FN=LAACTVTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD03,OW=LA 21090DEFINE,FN=LAADDACT,ED=999999,TY=S,LR=18,NR=13500M  3m(i,VL=CDD03,OW=LA 21100DEFINE,FN=LAAGEWRK,ED=999999,TY=S,LR=82,NR=13500,VL=SYSVOL,OW=LA 21110DEFINE,FN=LAAVMDSC,ED=999999,TY=S,LR=80,NR=100,VL=CDD03,OW=LA 21120DEFINE,FN=LACLIENT,ED=999999,TY=R,K1=4,P1=1,K2=6,P2=5,LR=1600,NR=100; 21130VL=CDD03,OW=LA 21140DEFINE,FN=LACOLSTS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=CDD03; 21150OW=LA 21160DEFINE,FN=LACOSIGN,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=13500,VL=CDD03; 21170OW=LA 21180DEFINE,FN=LADAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=128,VL=CDD03,OW=LA 21190DEFINE,FN=LADECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD03,OW=LA 21200DEFINE,FN=LADLQKEY,ED=999999,TY=S,LR=16,NR=1000,VL=CDD03,OW=LA 21210DEFINE,FN=LADLQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000; 21220NR=13500,VL=CDD03,OW=LA 21230DEFINE,FN=LADLYASN,ED=999999,TY=S,LR=40,NR=13500,VL=SYSVOL,OW=LA 21240DEFINE,FN=LADLYWRK,ED=999999,TY=S,LR=40,NR=1125,VL=CDD03,OW=LA 21250DEFINE,FN=LADUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD03,OW=LA 21260LOAD,FN=LADUMMY,OW=LA 21270 21280/! 21290DEFINE,FN=LAFILTMP,ED=999999,TY=S,LR=138,NR=1000,VL=CDD03,OW=LA 21300DEFINE,FN=LAFINTRN,ED=999999,TY=S,LR=138,NR=2000,VL=SYSVOL,OW=LA 21310DEFINE,FN=LAINACCT,ED=999999,TY=S,LR=24,NR=13500,VL=CDD03,OW=LA 21320DEFINE,FN=LALTRDSC,ED=999999,TY=S,LR=80,NR=2000,VL=CDD03,OW=LA 21330DEFINE,FN=LALTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD03; 21340OW=LA 21350DEFINE,FN=LAPMTFIL,ED=999999,TY=S,LR=40,NR=5000,VL=SYSVOL,OW=LA 21360DEFINE,FN=LAPGEXTR,ED=999999,TY=S,LR=132,NR=13500,VL=SYSVOL,OW=LA 21370DEFINE,FN=LARPTDAT,ED=999999,TY=S,LR=200,NR=4000,VL=CDD03,OW=LA 21380DEFINE,FN=LARPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=CDD03,OW=LA 21390DEFINE,FN=LARPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=CDD03; 21400OW=LA 21410DEFINE,FN=LARSWFIL,ED=999999,TY=S,LR=82,NR=6750,VL=CDD03,OW=LA 21420DEFINE,FN=LASCNDSC,ED=999999,TY=S,LR=80,NR=3000,VL=CDD03,OW=LA 21430DEFINE,FN=LASCNFIL,ED=999999,TY=R,K1=2,P1=1,LR=2000,NR=100,VL=CDD03; 21440OW=LA 21450DEFINE,FN=LASREQDL,ED=999999,TY=S,LR=20,NR=200,VL=CDD03,OW=LA 21460DEFINE,FN=LASUMHST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=13500,VL=CDD03; 21470OW=LA 21480DEFINE,FN=LATAPARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=13500,VL=CDD03; 21490OW=LA 21500DEFINE,FN=LATRANFL,ED=999999,TY=S,LR=138,NR=4800,VL=CDD03,OW=LA 21510DEFINE,FN=LATRNBCK,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA 21520DEFINE,FN=LATRNSFL,ED=999999,TY=S,LR=138,NR=4800,VL=SYSVOL,OW=LA 21530DEFINE,FN=LAUPHSCM,ED=999999,TY=S,LR=20,NR=200,VL=CDD03,OW=LA 21540DEFINE,FN=LAUTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD03; 21550OW=LA 21560DEFINE,FN=NULL,ED=999999,TY=S,LR=2,NR=1,VL=CDD03,OW=LA 21570EX i  3n(} 21580MOVDAT 21590LMOVDT 21600 * THE 36000/13500 ACCOUNT SYSTEM BUILD IS COMPLETE 21610 * 21620 * PROCEED WITH THE INSTALLATION TEST PROCEDURE. 21630 * 21640MNUPRO 21650__ 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU 00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PBc  3o(ROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 00840AL(S $$ IS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REP * 00010 * PROCEDURE TO BUILD 60000-18000 ACCOUNT SYSTEM IN PROCESS. 00020INPUT=PRFSC008 00030QTIL 00040DELETE,FN=$$SYMENU,OW=$$ 00050DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00060LOAD,FN=$$SYMENU,OW=$$ 00070 * SYSTEM MENU 00080 * 00090MNUPRO SC - SYSTEM CONFIGURATOR 00100UTIL UT - SYSTEM UTILITIES 00110EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00120MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00130MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00140MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00150MNUPRO RP - CCS20 ON DEMAND REPORTING 00160MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00170MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00180MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES 00190MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES 00200MNUPRO LO - L/A ON DEMAND REPORTING 00210MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY 00220MNUPRO EX - EXIT 00230/! 00240DEFINE,FN=$$DCMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00250LOAD,FN=$$DCMENU,OW=$$ 00260 * DAILY CYCLE MENU 00270 * 00280DCCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 00290DCPRTLTR B - PRINT REQUESTED LETTERS 00300DCACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 00310DCUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 00320DCNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 00330DCFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 00340RPDRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 00350RPDRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 00360  3p(DCUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 00370DCDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 00380DCDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 00390DCSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 00400DCBLDDAS M - CREATE DAILY ASSIGNMENT FILES 00410 Z - EXIT 00420/! 00430DEFINE,FN=$$HSMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00440LOAD,FN=$$HSMENU,OW=$$ 00450 * HISTORY SYSTEM MENU 00460 * 00470HSMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 00480HSUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 00490HSPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00500HSPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00510MTPRGMST E - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00520 Z - EXIT 00530/! 00540DEFINE,FN=$$MTMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00550LOAD,FN=$$MTMENU,OW=$$ 00560 * FILE MAINTENANCE MENU 00570 * 00580MTRDRLTR A - PRINT THE LETTER DEFINITION FILE 00590MTCONLTR B - CREATE THE LETTER FILE 00600MTUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 00610MTDECTBL D - DECISION TABLE MAINTENANCE 00620MTAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 00630MTACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 00640MTSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 00650HSPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 00660HSPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 00670MTLDSCRN J - PRINT SCREEN DEFINITION FILE 00680MTSVSCRN K - CREATE THE SCREEN FILE 00690MTPRGMST L - PURGE MASTER FILES (DELQMST-COSIGNER-ACTFIL) 00700MTACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 00710MTUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 00720MTDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 00730MTDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 00740MTPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 00750MTSCNPRT R - SAMPLE SCREEN PRINT UTILITY 00760 Z - EXIT 00770/! 00780DEFINE,FN=$$RPMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00790LOAD,FN=$$RPMENU,OW=$$ 00800 * ON DEMAND REPORT MENU 00810 * 00820RPDRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 00830RPDRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 0084019  3q(RPTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 00850RPTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 00860RPTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 00870RPWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 00880RPDLYASN G - DAILY ASSIGNMENT LIST 00890RPSUMACT H - SUMMARY ACCOUNT LIST REPORT 00900RPWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 00910RPMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 00920RPTCNTRL K - CREATE REPORT GENERATOR PROGRAM 00930PRFPG000 L - EXECUTE REPORT GENERATOR PROGRAM 00940PRFRP012 M - QUEUE LOADING REPORT 00950PRFRP014 N - PURGE REPORT FILES ( ACCAGE - RSWFIL ) 00960 Z - EXIT 00970/! 00980DEFINE,FN=$$RGMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 00990LOAD,FN=$$RGMENU,OW=$$ 01000 * REPORT GENERATOR - REPORT DIRECTORY 01010 * 01020PRFPG001 A - R.G. REPORT 1 - (AVAILABLE) 01030PRFPG002 B - R.G. REPORT 2 - (AVAILABLE) 01040PRFPG003 C - R.G. REPORT 3 - (AVAILABLE) 01050PRFPG004 D - R.G. REPORT 4 - (AVAILABLE) 01060PRFPG005 E - R.G. REPORT 5 - (AVAILABLE) 01070PRFPG006 F - R.G. REPORT 6 - (AVAILABLE) 01080PRFPG007 G - R.G. REPORT 7 - (AVAILABLE) 01090PRFPG008 H - R.G. REPORT 8 - (AVAILABLE) 01100PRFPG009 I - R.G. REPORT 9 - (AVAILABLE) 01110PRFPG010 J - R.G. REPORT 10 - (AVAILABLE) 01120PRFPG011 K - R.G. REPORT 11 - (AVAILABLE) 01130PRFPG012 L - R.G. REPORT 12 - (AVAILABLE) 01140PRFPG013 M - R.G. REPORT 13 - (AVAILABLE) 01150PRFPG014 N - R.G. REPORT 14 - (AVAILABLE) 01160PRFPG015 O - R.G. REPORT 15 - (AVAILABLE) 01170PRFPG016 P - R.G. REPORT 16 - (AVAILABLE) 01180PRFPG017 Q - R.G. REPORT 17 - (AVAILABLE) 01190PRFPG018 R - R.G. REPORT 18 - (AVAILABLE) 01200PRFPG019 S - R.G. REPORT 19 - (AVAILABLE) 01210 Z - EXIT 01220/! 01230DEFINE,FN=PRFDC001,TY=S,LR=80,NR=50,ED=999999,VL=SYSVOL ,OW=CCS20 01240LOAD,FN=PRFDC001,OW=CCS20 01250CHEKID 01260 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 01270 * - TIME USAGE REPORT 01280 * - DAILY COLLECTOR STATISTICS REPORT 01290 * 01300INPUT=PRFDC001 01310UTIL 01320k  3r(CLEAR,FN=DLYWRK 01330EX 01340 * TRNSFL FILE IS NOW BEING SORTED 01350INPUT=PRFDC001 01360DSORT 01370FN=TRNSFL,CCS20 01380F2=TRNSFL,CCS20, 01390OP=T,F,A 01400KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 01410SL=I 01420 * THE TRNSFL FILE HAS BEEN SORTED 01430 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 01440COLCHG 01450 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 01460 * THE TIME USAGE REPORT WILL BE PRINTED 01470TIMUSE 01480 * THE TIME USAGE REPORT IS COMPLETE 01490INPUT=PRFDC001 01500SWITCH 0151010000000 01520 * THE DAILY STATISTICS REPORT WILL BE PRINTED 01530COLSTS 01540 * THE DAILY STATISTICS REPORT IS COMPLETE 01550 **** OPERATOR - 01560 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 01570 * 01580 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 01590CCSPAS 01600INPUT=PRFDC001 01610SWITCH 0162000010000 01630COLSTS 01640 * THIS ROUTINE IS COMPLETE 01650MNUPRO 01660/! 01670DEFINE,FN=PRFDC002,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 01680LOAD,FN=PRFDC002,OW=CCS20 01690CHEKID 01700 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 01710INPUT=PRFDC002 01720DSORT 01730FN=TRNSFL,CCS20 01740F2=TRNSFL,CCS20, 01750OP=T,F,A 01760KF=A,17,4,A,41,2,A,1,16 01770SL=I 01780 **** OPERATOR - LOAD LETTER PAPER 01790 * CARRIAGE RETURN WHEN READY 01800  3s( * 01810CCSPAS 01820 * THE REQUESTED LETTERS WILL BE PRINTED 01830LTRPRT 01840 * THE REQUESTED LETTERS HAVE BEEN PRINTED 01850 **** OPERATOR - LOAD REGULAR PAPER 01860 * CARRIAGE RETURN WHEN READY 01870 * 01880CCSPAS 01890 * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 01900LTRSTA 01910 * THE LETTER STATISTICS SUMMARY IS COMPLETE 01920MNUPRO 01930/! 01940DEFINE,FN=PRFDC003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 01950LOAD,FN=PRFDC003,OW=CCS20 01960CHEKID 01970 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 01980INPUT=PRFDC003 01990DSORT 02000FN=TRNSFL,CCS20 02010F2=TRNSFL,CCS20, 02020OP=T,F,A 02030KF=A,29,2,A,21,4,D,25,4,D,121,2 02040SL=I 02050ACTADD 02060 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 02070MNUPRO 02080/! 02090DEFINE,FN=PRFDC004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 02100LOAD,FN=PRFDC004,OW=CCS20 02110CHEKID 02120 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 02130 * CARRIAGE RETURN WHEN READY 02140CCSPAS 02150INPUT=PRFDC004 02160SWITCH 0217010000000 02180 * THE UPDATE TAPE WILL BE PROCESSED 02190UPDATE 02200 * THE UPDATE TAPE HAS BEEN PROCESSED 02210 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 02220 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 02230 * SCREEN INFORMATION 02240CCSSPC 02250CCSPAS 02260 * THE FILE SPACE AUDIT REPORT IS COMPLETE 02270MNUPRO 02280.  3t(/! 02290DEFINE,FN=PRFDC005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02300LOAD,FN=PRFDC005,OW=CCS20 02310CHEKID 02320 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 02330 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02340 * CARRIAGE RETURN WHEN READY 02350CCSPAS 02360INPUT=PRFDC005 02370SWITCH 0238010000000 02390UPD400 02400 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 02410MNUPRO 02420/! 02430DEFINE,FN=PRFDC006,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 02440LOAD,FN=PRFDC006,OW=CCS20 02450CHEKID 02460 * THE FINANCIAL UPDATES WILL BE PROCESSED 02470 **** OPERATOR - MOUNT FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 02480 * 02490INPUT=PRFDC006 02500MOUNT 02510FTAPE,B,P 02520/* 02530UPD500 02540 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 02550MNUPRO 02560/! 02570DEFINE,FN=PRFDC007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 02580LOAD,FN=PRFDC007,OW=CCS20 02590CHEKID 02600 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 02610DHUPDT 02620 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 02630MNUPRO 02640/! 02650DEFINE,FN=PRFDC008,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02660LOAD,FN=PRFDC008,OW=CCS20 02670CHEKID 02680 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02690 * COLLECTORS ARE OFF-LINE FOR THE DAY 02700MNUPRO 02710/! 02720DEFINE,FN=PRFDC009,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 02730LOAD,FN=PRFDC009,OW=CCS20 02740CHEKID 02750 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 02760  3u)  * COLLECTORS ARE OFF-LINE FOR THE DAY 02770MNUPRO 02780/! 02790DEFINE,FN=PRFDC010,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 02800LOAD,FN=PRFDC010,OW=CCS20 02810CHEKID 02820 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 02830 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 02840 * CARRIAGE RETURN ONLY - TO CONTINUE 02850 * 02860CCSPAS 02870 * 02880 * THE TRANSACTION FILE WILL BE SORTED FOR THE COLLECTORS REPORTS 02890 * 02900INPUT=PRFDC010 02910UTIL 02920CLEAR,FN=TRNSFL 02930EX 02940INPUT=PRFDC010 02950DSORT 02960FN=TRANFL,CCS20 02970F2=TRNSFL,CCS20, 02980OP=T,F,A 02990KF=A,29,2,A,17,4,A,1,16,A,21,4,A,25,4,A,137,2 03000SL=I 03010PRETSR 03020INPUT=PRFDC010 03030UTIL 03040CLEAR,FN=ACTIVE 03050CLEAR,FN=TRANFL 03060CLEAR,FN=TRNBCK 03070EX 03080 * THE FILE WILL BE UPDATED WITH NAME AND ON-LINE STATUS CODE CHANGES 03090NMCHNG 03100RSWCHG 03110INPUT=PRFDC010 03120UTIL 03130CLEAR,FN=ADDACT 03140EX 03150MNUPRO 03160/! 03170DEFINE,FN=PRFDC011,TY=S,LR=80,NR=45,ED=999999,VL=SYSVOL ,OW=CCS20 03180LOAD,FN=PRFDC011,OW=CCS20 03190CHEKID 03200 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03210 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03220 * CARRIAGE RETURN ONLY - TO CONTINUE 03230 * 03240mx  3v)CCSPAS 03250 * THE SUPERVISOR REQUEST FILE WILL BE CLEARED AND UPDATED 03260INPUT=PRFDC011 03270UTIL 03280CLEAR,FN=DLYWRK 03290EX 03300SRREQ 03310 * THE DAILY ASSIGNMENT FILES WILL BE CREATED 03320 * 03330 * THE DLYASSN FILE IS BEING CREATED 03340DACRTE 03350 * THE DLYASSN FILE HAS BEEN CREATED 03360 * THE DLYASSN FILE IS BEING SORTED 03370INPUT=PRFDC011 03380DSORT 03390FN=DLYWRK,CCS20 03400FN=DLYASSN,CCS20 03410F2=DLYASSN,CCS20, 03420OP=T,F,A 03430KF=A,17,4,A,25,2,A,21,4,D,27,4,A,1,16 03440SL=I 03450 * THE DLYASSN FILE HAS BEEN SORTED 03460INPUT=PRFDC011 03470UTIL 03480CLEAR,FN=DAQUE 03490EX 03500 * THE DAILY QUEUE FILE IS BEING CREATED 03510DAQUEL 03520 * THE DAILY QUEUE FILE HAS BEEN CREATED 03530 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 03540 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 03550 * SCREEN INFORMATION 03560CCSSPC 03570CCSPAS 03580 * THE FILE SPACE AUDIT REPORT IS COMPLETE 03590 * THE DAILY ASSIGNMENT FILES HAVE BEEN CREATED 03600MNUPRO 03610/! 03620DEFINE,FN=PRFHS001,TY=S,LR=80,NR=30,ED=999999,VL=SYSVOL ,OW=CCS20 03630LOAD,FN=PRFHS001,OW=CCS20 03640CHEKID 03650 * THE INACTIVE ACCOUNTS WILL BE MOVED TO HISTORY 03660 * THE INACCT FILE IS BEING SORTED INTO ACCOUNT NUMBER ORDER 03670INPUT=PRFHS001 03680DSORT 03690FN=INACCT,CCS20 03700F2=INTEMP,CCS20, 03710OP=T,F,A 03720  3w)1KF=A,1,16,D,23,2,D,19,4 03730SL=I 03740INPUT=PRFHS001 03750UTIL 03760CLEAR,FN=INACCT 03770COPY,FN=INTEMP,F2=INACCT,OW=CCS20 03780DELETE,FN=INTEMP 03790EX 03800 * THE INACCT FILE HAS BEEN SORTED INTO ACCOUNT NUMBER ORDER 03810 ****OPERATOR - MOUNT HISTORY FILE OUTPUT TAPE ON TAPE UNIT '0' 03820 * WITH WRITE RING 03830 * CARRIAGE RETURN WHEN READY 03840CCSPAS 03850MHUPDT 03860 * THE INACTIVE ACCOUNTS HAVE BEEN MOVED TO HISTORY 03870 * REBUILDING INACCT 03880FIXINA 03890 * INACCT REBUILD COMPLETE 03900MNUPRO 03910/! 03920DEFINE,FN=PRFHS002,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 03930LOAD,FN=PRFHS002,OW=CCS20 03940CHEKID 03950 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 03960 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 03970 * CARRIAGE RETURN ONLY - TO CONTINUE 03980 * 03990CCSPAS 04000 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM THE TAPE ARCHIVES 04010INPUT=PRFHS002 04020UTIL 04030DEFINE,FN=UPREQ,ED=999999,TY=S,LR=22,NR=300 04040EX 04050CHUPD1 04060 * THE UPREQ FILE WILL BE SORTED 04070INPUT=PRFHS002 04080DSORT 04090FN=UPREQ,CCS20 04100F2=UPREQ,CCS20, 04110OP=T,F,A 04120KF=D,21,2,D,17,4,A,1,16 04130SL=I 04140 * THE UPREQ FILE HAS BEEN SORTED 04150INPUT=PRFHS002 04160UTIL 04170CLEAR,FN=UPHSTCM 04180EX 04190 **** OPERATOR - YOU WILL BE PROMPTED TO MOUNT TAPES DURING THE 04200,  3x)E * EXECUTION OF THE NEXT JOB 04210CHUPD2 04220INPUT=PRFHS002 04230UTIL 04240DELETE,FN=UPREQ 04250EX 04260 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM THE TAPE ARCHIVES 04270MNUPRO 04280/! 04290DEFINE,FN=PRFHS003,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04300LOAD,FN=PRFHS003,OW=CCS20 04310CHEKID 04320 * THE SUMHIST FILE WILL BE PURGED 04330PHDEL2 04340CMPSUM 04350 * THE SUMHIST FILE HAS BEEN PURGED 04360MNUPRO 04370/! 04380DEFINE,FN=PRFHS004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04390LOAD,FN=PRFHS004,OW=CCS20 04400CHEKID 04410 * THE TAPEARC FILE WILL BE PURGED 04420PHDEL1 04430INPUT=PRFHS004 04440UTIL 04450COMPRE,FN=TAPEARC 04460EX 04470 * THE TAPEARC FILE HAS BEEN PURGED 04480MNUPRO 04490/! 04500DEFINE,FN=PRFMT001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04510LOAD,FN=PRFMT001,OW=CCS20 04520CHEKID 04530 * THE LETTER DEFINITION FILE WILL BE PRINTED 04540INPUT=PRFMT001 04550UTIL 04560LIST,FN=LTRDESC,L=LPRINTER,F=U 04570EX 04580 * THE LETTER DEFINITION FILE HAS BEEN PRINTED 04590 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE LETTER FILE 04600 * ENTER THE EDITOR TO PROCESS THE LTRDESC FILE, WHEN 04610 * COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP "B" 04620 * CARRIAGE RETURN WHEN READY TO CONTINUE 04630CCSPAS 04640MNUPRO 04650/! 04660DEFINE,FN=PRFMT002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 04670LOAD,FN=PRFMT002,OW=CCS20 04680  3y)YCHEKID 04690 * THE LETTER FILE WILL BE CREATED 04700 * 04710INPUT=PRFMT002 04720UTIL 04730CLEAR,FN=LTRFIL 04740EX 04750LTRBLD 04760 * THE LETTER FILE HAS BEEN CREATED 04770MNUPRO 04780/! 04790DEFINE,FN=PRFMT003,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 04800LOAD,FN=PRFMT003,OW=CCS20 04810CHEKID 04820 * THE UTILITY FILE MAINTENANCE ROUTINE WILL BE EXECUTED 04830 * 04840 **** OPERATOR - YOU CAN ADD, UPDATE OR DELETE UTILITY FILE RECORDS 04850 * FROM THE CONSOLE 04860 * 04870 * FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 04880UTFMTN 04890 * THE UTILITY FILE WILL BE LISTED ON THE PRINTER 04900INPUT=PRFMT003 04910UTIL 04920LIST,FN=UTIFIL,L=LPRINTER,F=U 04930EX 04940 * CHECK PRINTER LISTING TO VERIFY THAT RECORDS ARE CORRECT 04950 * THE UTILITY FILE MAINTENANCE ROUTINE IS COMPLETE 04960MNUPRO 04970/! 04980DEFINE,FN=PRFMT004,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 04990LOAD,FN=PRFMT004,OW=CCS20 05000CHEKID 05010 * THE DECISION TABLE MAINTENANCE ROUTINE WILL BE EXECUTED 05020 * 05030 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05040DECMTN 05050 * THE DECISION TABLE MAINTENANCE ROUTINE IS COMPLETE 05060MNUPRO 05070/! 05080DEFINE,FN=PRFMT005,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05090LOAD,FN=PRFMT005,OW=CCS20 05100CHEKID 05110 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05120AVMDMP 05130 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05140MNUPRO 05150/! 05160  3z)mDEFINE,FN=PRFMT006,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05170LOAD,FN=PRFMT006,OW=CCS20 05180CHEKID 05190 * THE ACTIVITY VERIFICATION TABLE ROUTINE WILL BE EXECUTED 05200 * 05210AVMCON 05220 * THE ACTIVITY VERIFICATION TABLE ROUTINE IS COMPLETE 05230 * THE ACTIVITY VERIFICATION TABLE WILL BE PRINTED 05240AVMDMP 05250 * THE ACTIVITY VERIFICATION TABLE HAS BEEN PRINTED 05260MNUPRO 05270/! 05280DEFINE,FN=PRFMT007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05290LOAD,FN=PRFMT007,OW=CCS20 05300CHEKID 05310 * THE FILE SPACE AUDIT REPORT WILL BE PRINTED 05320 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 05330 * SCREEN INFORMATION 05340CCSSPC 05350CCSPAS 05360 * THE FILE SPACE AUDIT REPORT IS COMPLETE 05370MNUPRO 05380/! 05390DEFINE,FN=PRFMT008,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05400LOAD,FN=PRFMT008,OW=CCS20 05410CHEKID 05420 * THE SCREEN DEFINITION FILE WILL BE PRINTED 05430INPUT=PRFMT008 05440UTIL 05450LIST,FN=SCRNDESC,L=LPRINTER,F=U 05460EX 05470 * THE SCREEN DEFINITION FILE HAS BEEN PRINTED 05480 **** OPERATOR - IF CHANGES ARE TO BE MADE TO THE SCREEN DESCRIPTION 05490 * FILE ENTER THE EDITOR TO PROCESS THE SCRNDESC FILE, 05500 * WHEN COMPLETE PERFORM THE NEXT MENU PROCEDURE STEP 'K' 05510 * CARRIAGE RETURN WHEN READY TO CONTINUE 05520CCSPAS 05530MNUPRO 05540/! 05550DEFINE,FN=PRFMT009,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05560LOAD,FN=PRFMT009,OW=CCS20 05570CHEKID 05580 * THE SCREEN FILE WILL BE CREATED 05590BLDSRN 05600 * THE SCREEN FILE HAS BEEN CREATED 05610MNUPRO 05620/! 05630DEFINE,FN=PRFMT010,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 05640  3{)LOAD,FN=PRFMT010,OW=CCS20 05650CHEKID 05660 **** OPERATOR - THE COLLECTORS MUST BE OFF-LINE 05670 * RESPOND: 'N' CARRIAGE RETURN - TO ABORT 05680 * CARRIAGE RETURN ONLY - TO CONTINUE 05690 * 05700CCSPAS 05710 * THE DELQMST, COSIGNER AND ACTFIL FILES WILL BE PURGED 05720CMPDLQ 05730INPUT=PRFMT010 05740UTIL 05750COMPRE,FN=COSIGNER 05760COMPRE,FN=ACTFIL 05770EX 05780 * THE DELQMST, COSIGNER AND ACTFIL FILES HAVE BEEN PURGED 05790MNUPRO 05800/! 05810DEFINE,FN=PRFMT011,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05820LOAD,FN=PRFMT011,OW=CCS20 05830CHEKID 05840 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05850 * WILL BE PRINTED 05860ACTMTN 05870 * THE SUMMARY REPORT OF THE BLOCK DISTRIBUTION IN THE ACTIVITY FILE 05880 * HAS BEEN PRINTED 05890MNUPRO 05900/! 05910DEFINE,FN=PRFMT012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 05920LOAD,FN=PRFMT012,OW=CCS20 05930CHEKID 05940 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE WILL BE EXECUTED 05950 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 05960 * 05970USEMTN 05980 * THE COLECT ACTIVE USER MAINTENANCE FILE ROUTINE IS COMPLETE 05990MNUPRO 06000/! 06010DEFINE,FN=PRFMT013,TY=S,LR=80,NR=10,ED=999999,VL=SYSVOL ,OW=CCS20 06020LOAD,FN=PRFMT013,OW=CCS20 06030CHEKID 06040 * THE REPORT GENERATOR DATA ELEMENT TABLE WILL BE PRINTED 06050PGLTTB 06060MNUPRO 06070/! 06080DEFINE,FN=PRFMT014,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 06090LOAD,FN=PRFMT014,OW=CCS20 06100CHEKID 06110 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES WILL BE EXECUTED 06120  3|) * 06130 * THE DATA ELEMENT TABLE WILL BE PRINTED 06140PGLTTB 06150 * THE DATA ELEMENT TABLE HAS BEEN PRINTED 06160 * 06170 * THE DATA ELEMENT TABLE WILL BE UPDATED 06180 * 06190 ****OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06200 * 06210INPUT=PRFMT014 06220SWITCH 06230000000000 06240PGUPTB 06250 * THE DATA ELEMENT TABLE HAS BEEN UPDATED 06260 * 06270 * THE DATA ELEMENT TABLE WILL BE PURGED 06280INPUT=PRFMT014 06290UTIL 06300DEFINE,FN=TBLWRK,TY=R,K1=6,P1=1,NR=2000,LR=80 06310EX 06320PGCMPR 06330INPUT=PRFMT014 06340UTIL 06350DELETE,FN=RPTTBL 06360RENAME,FN=TBLWRK,F2=RPTTBL 06370EX 06380 * THE DATA ELEMENT TABLE HAS BEEN PURGED 06390 * 06400 * THE REPORT GENERATOR DATA ELEMENT TABLE ROUTINES ARE COMPLETE 06410MNUPRO 06420/! 06430DEFINE,FN=PRFMT015,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 06440LOAD,FN=PRFMT015,OW=CCS20 06450CHEKID 06460 * THE PROGRAM DIRECTORY FILE ROUTINES WILL BE EXECUTED 06470 * 06480 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06490PGLIST 06500 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06510 * 06520 * 06530 * THE PROGRAM DIRECTORY FILE WILL BE PURGED 06540 * 06550 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06560 * 06570PGPURG 06580INPUT=PRFMT015 06590UTIL 06600  3})COMPRE,FN=RPTPGM 06610EX 06620 * THE PROGRAM DIRECTORY FILE HAS BEEN PURGED 06630 * 06640 * THE PROGRAM DIRECTORY FILE WILL BE PRINTED 06650PGLIST 06660 * THE PROGRAM DIRECTORY FILE HAS BEEN PRINTED 06670 * 06680 * THE PROGRAM DIRECTORY FILE ROUTINES HAVE BEEN EXECUTED 06690MNUPRO 06700/! 06710DEFINE,FN=PRFMT016,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 06720LOAD,FN=PRFMT016,OW=CCS20 06730CHEKID 06740 * THE SCREEN FILES WILL BE PRINTED 06750 * D 06760 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 06770 * 06780PRTSCN 06790 * THE SCREEN FILES HAVE BEEN PRINTED 06800MNUPRO 06810/! 06820DEFINE,FN=PRFRP001,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06830LOAD,FN=PRFRP001,OW=CCS20 06840CHEKID 06850INPUT=PRFRP001 06860SWITCH 0687010000000 06880 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 06890 * THE ACCOUNTS BEING PRINTED ARE THE INACTIVE ACCOUNTS NOT PREVIOUSLY 06900 * PRINTED 06910DTLLST 06920 * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 06930MNUPRO 06940/! 06950DEFINE,FN=PRFRP002,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL ,OW=CCS20 06960LOAD,FN=PRFRP002,OW=CCS20 06970CHEKID 06980INPUT=PRFRP002 06990SWITCH 0700001000000 07010 * DELINQUENT RECORD CONTENT REPORT WILL NOW BE PRINTED 07020 * THE ACCOUNTS BEING PRINTED WERE REQUESTED BY THE SUPERVISOR 07030DTLLST 07040INPUT=PRFRP002 07050UTIL 07060CLEAR,FN=SREQDL 07070EX 07080I  3~) * THE DELINQUENT RECORD CONTENT REPORT IS COMPLETE 07090MNUPRO 07100/! 07110DEFINE,FN=PRFRP003,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 07120LOAD,FN=PRFRP003,OW=CCS20 07130CHEKID 07140 * CALCULATE AGE FOR TREND ANALYSIS 07150TRENDF 07160 * THE TREND ANALYSIS AGE CALCULATION IS COMPLETE 07170 * 07180 * THE ACCAGE AND RSWFIL FILES ARE BEING SORTED INTO AGEWRK 07190INPUT=PRFRP003 07200UTIL 07210DELETE,FN=AGEWRK 07220EX 07230INPUT=PRFRP003 07240DSORT 07250FN=ACCAGE,CCS20 07260FN=RSWFIL,CCS20 07270F2=AGEWRK,CCS20,SYSVOL 07280OP=T,F,A 07290KF=A,17,4,A,1,1 07300SL=OMIT,35,3,EQ,'RSW' 07310 * THE ACCAGE AND RSWFIL FILES HAVE BEEN SORTED 07320 * 07330 **** OPERATOR - 07340 * RESPOND: 'N' CARRIAGE RETURN TO BYPASS UPDATING PREVIOUS 07350 * TREND DATA FOR NEXT RUN 07360 * 07370 * CARRIAGE RETURN ONLY TO UPDATE PREVIOUS TREND DATA 07380 * FOR NEXT RUN 07390CCSPAS 07400TRENDU 07410INPUT=PRFRP003 07420UTIL 07430CLEAR,FN=RSWFIL 07440EX 07450MNUPRO 07460/! 07470DEFINE,FN=PRFRP004,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07480LOAD,FN=PRFRP004,OW=CCS20 07490CHEKID 07500 * GENERATE THE TREND ANALYSIS REPORT BY QUEUE 07510 * THE AGEWRK FILE IS BEING SORTED 07520INPUT=PRFRP004 07530DSORT 07540FN=AGEWRK,CCS20 07550F2=AGEWRK,CCS20, 07560T  3)OP=T,F,A 07570KF=A,17,4,A,1,1 07580SL=OMIT,35,3,EQ,'RSW' 07590 * THE AGEWRK FILE HAS BEEN SORTED 07600 * THE TREND ANALYSIS REPORT BY QUEUE WILL NOW BE PRINTED 07610INPUT=PRFRP004 07620SWITCH 0763010000000 07640TRENDP 07650 * THE TREND ANALYSIS REPORT BY QUEUE IS COMPLETE 07660MNUPRO 07670/! 07680DEFINE,FN=PRFRP005,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 07690LOAD,FN=PRFRP005,OW=CCS20 07700CHEKID 07710 * GENERATE THE TREND ANALYSIS REPORT BY PRODUCT TYPE 07720 * THE AGEWRK FILE IS BEING SORTED 07730INPUT=PRFRP005 07740DSORT 07750FN=AGEWRK,CCS20 07760F2=AGEWRK,CCS20, 07770OP=T,F,A 07780KF=A,25,4,A,1,1 07790SL=I 07800 * THE AGEWRK FILE HAS BEEN SORTED 07810 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE WILL NOW BE PRINTED 07820INPUT=PRFRP005 07830SWITCH 0784000000000 07850TRENDP 07860 * THE TREND ANALYSIS REPORT BY PRODUCT TYPE IS COMPLETE 07870MNUPRO 07880/! 07890DEFINE,FN=PRFRP006,TY=S,LR=80,NR=35,ED=999999,VL=SYSVOL ,OW=CCS20 07900LOAD,FN=PRFRP006,OW=CCS20 07910CHEKID 07920 * THE WRITE-OFF REPORT WILL BE GENERATED 07930 * THE WOEF FILE WILL BE CREATED 07940INPUT=PRFRP006 07950UTIL 07960DEFINE,FN=WOEF,ED=999999,TY=S,LR=115,NR=6000 07970EX 07980WRTOFE 07990 * THE WOEF FILE HAS BEEN CREATED 08000 * THE WOEF FILE IS BEING SORTED 08010INPUT=PRFRP006 08020DSORT 08030FN=WOEF,CCS20 08040<  3)F2=WOEF,CCS20, 08050OP=T,F,A 08060KF=A,25,1,A,17,4,A,21,4,A,1,16 08070SL=I 08080 * THE WOEF FILE HAS BEEN SORTED 08090 * THE WRITE-OFF REPORT WILL BE PRINTED 08100WRTOFP 08110INPUT=PRFRP006 08120UTIL 08130DELETE,FN=WOEF 08140EX 08150 * THE WRITE-OFF REPORT IS COMPLETE 08160MNUPRO 08170/! 08180DEFINE,FN=PRFRP007,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08190LOAD,FN=PRFRP007,OW=CCS20 08200CHEKID 08210 * THE DAILY ASSIGNMENT REPORT LIST WILL BE PRINTED 08220DALIST 08230 * THE DAILY ASSIGNMENT LIST REPORT IS COMPLETE 08240MNUPRO 08250/! 08260DEFINE,FN=PRFRP008,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 08270LOAD,FN=PRFRP008,OW=CCS20 08280CHEKID 08290 * THE SUMMARY ACCOUNT REPORT LIST WILL BE PRINTED 08300SUMACL 08310 * THE SUMMARY ACCOUNT REPORT LIST IS COMPLETE 08320MNUPRO 08330/! 08340DEFINE,FN=PRFRP009,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08350LOAD,FN=PRFRP009,OW=CCS20 08360CHEKID 08370 * THE WEEKLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08380INPUT=PRFRP009 08390SWITCH 0840001000000 08410COLSTS 08420 * THE WEEKLY COLLECTOR STATISTICS REPORT IS COMPLETE 08430 **** OPERATOR - 08440 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE WEEKLY COUNT 08450 * 08460 * CARRIAGE RETURN ONLY - TO ZERO THE WEEKLY COUNT 08470CCSPAS 08480INPUT=PRFRP009 08490SWITCH 0850000001000 08510COLSTS 08520  3)MNUPRO 08530/! 08540DEFINE,FN=PRFRP010,TY=S,LR=80,NR=25,ED=999999,VL=SYSVOL ,OW=CCS20 08550LOAD,FN=PRFRP010,OW=CCS20 08560CHEKID 08570 * THE MONTHLY COLLECTOR STATISTICS REPORT WILL BE PRINTED 08580INPUT=PRFRP010 08590SWITCH 0860000100000 08610COLSTS 08620 * THE MONTHLY COLLECTOR STATISTICS REPORT IS COMPLETE 08630 **** OPERATOR - 08640 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS CLEARING THE COLLECTOR 08650 * STATISTICS COUNT FILE 08660 * 08670 * CARRIAGE RETURN ONLY - TO CLEAR THE COLLECTOR STATISTICS 08680 * COUNT FILE 08690CCSPAS 08700INPUT=PRFRP010 08710UTIL 08720CLEAR,FN=COLSTATS 08730EX 08740MNUPRO 08750/! 08760DEFINE,FN=PRFCNTRL,TY=S,LR=80,NR=40,ED=999999,VL=SYSVOL ,OW=CCS20 08770LOAD,FN=PRFCNTRL,OW=CCS20 08780CHEKID 08790 * THE REPORT GENERATOR PROGRAMS WILL BE CREATED 08800 **** OPERATOR - BATCH HOST MUST BE ACTIVE BEFORE PROCEEDING 08810 * TO ACTIVATE BATCH HOST 08820 * MI, *BATCH,F 08830 * 08840 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 08850 * 08860 * CARRIAGE RETURN ONLY - TO CONTINUE 08870CCSPAS 08880 **** OPERATOR - FOLLOW THE INSTRUCTIONS AS THEY APPEAR ON THE SCREEN 08890INPUT=PRFCNTRL 08900UTIL 08910DEFINE,FN=RPTWKE,LR=80,NR=1000 08920DEFINE,FN=RPTWKP,LR=80,NR=1000 08930DEFINE,FN=PRCWRK,LR=80,NR=50 08940EX 08950PGGEN 08960 * THE REPORT GENERATOR PROGRAMS HAVE BEEN CREATED 08970 * THE REPORT GENERATOR PROGRAMS WILL BE BATCHED 08980INPUT=PRFCNTRL 08990UTIL 09000f  3* BATCH,FN=RPTWKE,TY=N 09010BATCH,FN=RPTWKP,TY=R 09020DELETE,FN=RPTWKE 09030DELETE,FN=RPTWKP 09040CLEAR,FN=PGEXTR 09050EX 09060PGCNT1 09070 * 09080 **** OPERATOR - SELECTION L MUST NOW BE RUN TO EXECUTE THE REPORT 09090 * CARRIAGE RETURN WHEN READY 09100CCSPAS 09110MNUPRO 09120/! 09130DEFINE,FN=PRFRP012,TY=S,LR=80,NR=15,ED=999999,VL=SYSVOL ,OW=CCS20 09140LOAD,FN=PRFRP012,OW=CCS20 09150CHEKID 09160 * THE QUEUE LOADING REPORT WILL BE PRINTED 09170QLOAD 09180 * THE QUEUE LOADING REPORT IS COMPLETE 09190MNUPRO 09200/! 09210DEFINE,FN=PRFRP014,TY=S,LR=80,NR=20,ED=999999,VL=SYSVOL,OW=CCS20 09220LOAD,FN=PRFRP014,OW=CCS20 09230CHEKID 09240 ***** PURGE TREND ANALYSIS FILES ( ACCAGE - RSWFIL ) 09250 ***** 09260 ***** THIS PROCEDURE SHOULD BE RUN ONCE A MONTH WHETHER 09270 ***** OR NOT TREND ANALYSIS IS BEING USED. 09280 ***** 09290 ***** PLEASE HIT CARRIAGE RETURN TO CONTINUE OR 09300 ***** TYPE 'NO' FOLLOWED BY A CARRIAGE RETURN TO EXIT 09310 **** 09320 *** 09330CCSPAS 09340 * 09350CMPACC 09360 **** THE TREND ANALYSIS FILES HAVE BEEN PURGED ! 09370MNUPRO 09380/! 09390 09400 09410 09420 09430 09440 09450 09460 09470 09480W`  3*! 09490 09500 09510 09520 09530 09540 09550 09560 09570 09580 09590 09600 09610 09620 09630 09640 09650 09660 09670 09680 09690 09700 09710 09720 09730DEFINE,FN=$$MOUNTS,ED=999999,TY=R,K1=2,P1=1,K2=8,P2=3,LR=42,OW=CCS20; 09740NR=50 09750DEFINE,FN=ACTFIL,ED=999999,TY=R,K1=18,P1=1,LR=500,NR=60000,OW=CCS20 09760DEFINE,FN=ACCAGE,ED=999999,TY=R,K1=16,P1=1,LR=82,NR=60000,VL=CDD01; 09770OW=CCS20 09780DEFINE,FN=ACTIVE,ED=999999,TY=R,K1=4,P1=1,LR=10,NR=320,OW=CCS20 09790DEFINE,FN=ACTVERTB,ED=999999,TY=S,LR=320,NR=1,VL=CDD01,OW=CCS20 09800DEFINE,FN=ADDACT,ED=999999,TY=S,LR=18,NR=60000,VL=SYSVOL,OW=CCS20 09810DEFINE,FN=AGEWRK,ED=999999,TY=S,LR=82,NR=60000,VL=SYSVOL,OW=CCS20 09820DEFINE,FN=AVMDESC,TY=S,LR=80,ED=999999,NR=100,VL=SYSVOL,OW=CCS20 09830DEFINE,FN=COLSTATS,ED=999999,TY=R,K1=7,P1=1,LR=20,NR=4096,VL=SYSVOL; 09840OW=CCS20 09850DEFINE,FN=COSIGNER,ED=999999,TY=R,K1=16,P1=1,LR=362,NR=60000,VL=SYSVOL; 09860OW=CCS20 09870DEFINE,FN=DAQUE,ED=999999,TY=R,K1=4,P1=1,LR=8,NR=64,VL=CDD01,OW=CCS20 09880DEFINE,FN=DECTBL,ED=999999,TY=S,LR=3000,NR=1,VL=CDD01,OW=CCS20 09890DEFINE,FN=DELQMST,ED=999999,TY=R,K1=16,P1=1,K2=6,P2=18,LR=2000,NR=60000; 09900VL=CDD01,OW=CCS20 09910DEFINE,FN=DLYASSN,ED=999999,TY=S,LR=40,NR=60000,VL=SYSVOL,OW=CCS20 09920DEFINE,FN=DLYWRK,ED=999999,TY=S,LR=40,NR=5000,VL=CDD01,OW=CCS20 09930DEFINE,FN=DUMMY,ED=999999,TY=S,LR=80,NR=1,VL=CDD01,OW=CCS20 09940LOAD,FN=DUMMY,OW=CCS20 09950 09960ϵ  3*5/! 09970DEFINE,FN=INACCT,ED=999999,TY=S,LR=24,NR=60000,VL=CDD01,OW=CCS20 09980DEFINE,FN=LTRDESC,TY=S,LR=80,ED=999999,NR=2000,OW=CCS20 09990DEFINE,FN=LTRFIL,ED=999999,TY=R,K1=2,P1=1,LR=1512,NR=50,VL=CDD01; 10000OW=CCS20 10010DEFINE,FN=NEWS,ED=999999,TY=S,LR=80,NR=100,VL=CDD01,OW=CCS20 10020DEFINE,FN=PGEXTR,ED=999999,TY=S,LR=132,NR=60000,VL=SYSVOL,OW=CCS20 10030DEFINE,FN=RPTPGM,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=20,VL=SYSVOL,OW=CCS20 10040DEFINE,FN=RPTTBL,ED=999999,TY=R,K1=6,P1=1,LR=80,NR=2000,VL=SYSVOL; 10050OW=CCS20 10060DEFINE,FN=RSWFIL,ED=999999,TY=S,LR=82,NR=30000,VL=SYSVOL,OW=CCS20 10070DEFINE,FN=SCRNDESC,ED=999999,TY=S,LR=80,NR=3000,VL=SYSVOL,OW=CCS20 10080DEFINE,FN=SCRNFILE,ED=999999,TY=R,K1=2,P1=1,LR=1800,NR=100,VL=SYSVOL; 10090OW=CCS20 10100DEFINE,FN=SREQDL,ED=999999,TY=S,LR=20,NR=500,VL=SYSVOL,OW=CCS20 10110DEFINE,FN=SUMHIST,ED=999999,TY=R,K1=16,P1=1,LR=666,NR=60000,VL=SYSVOL; 10120OW=CCS20 10130DEFINE,FN=TAPEARC,ED=999999,TY=R,K1=16,P1=1,LR=46,NR=60000,VL=CDD01; 10140OW=CCS20 10150DEFINE,FN=TRANFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10160DEFINE,FN=TRNBCK,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=CDD01 10170DEFINE,FN=TRNSFL,ED=999999,TY=S,LR=138,NR=4800,OW=CCS20,VL=SYSVOL 10180DEFINE,FN=UPHSTCM,ED=999999,TY=S,LR=20,NR=500,VL=SYSVOL,OW=CCS20 10190DEFINE,FN=UTIFIL,ED=999999,TY=R,K1=4,P1=1,LR=80,NR=150,VL=CDD01,OW=CCS20 10200DEFINE,FN=$$LDMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10210LOAD,FN=$$LDMENU,OW=$$ 10220 * LEGAL AND AGENCY DAILY CYCLE MENU 10230 * 10240LDCOLACT A - DAILY COLLECTOR ACTIVITY REPORTS 10250LDPRTLTR B - PRINT REQUESTED LETTERS 10260LDACTADD C - ADD THE COLLECTOR ACTIVITIES TO THE ACTIVITY FILE 10270LDUPDTAP D - PROCESS COMPLETE UPDATE TAPE(S) FROM A/R SYSTEM 10280LDNFINUP E - PROCESS 400 SERIES NON-FINANCIAL UPDATE (TAPE)S 10290LDFINUPD F - PROCESS 500 SERIES FINANCIAL UPDATE TAPE(S) 10300LODRCIAC G - DELINQUENT RECORD CONTENT REPORT - (INACTIVE ACCOUNTS) 10310LODRCSRQ H - DELINQUENT RECORD CONTENT REPORT - (SUPERVISOR REQUESTS) 10320LDUPDHIS I - UPDATE ACCOUNTS FROM HISTORY 10330LDDUMMIE J** THE FOLLOWING PROCEDURES ARE TO BE RUN WHEN THE COLLECTORS 10340LDDUMDUM K** ARE FINISHED WITH THE DAYS ACTIVITIES 10350LDSRTTRN L - SORT TRANSACTION FILE IN PROPER ORDER FOR COLLECTOR REPORT 10360LDBLDDAS M - CREATE DAILY ASSIGNMENT FILES 10370PRFLD012 N - NIGHTLY BATCH UPDATE 10380PRFLD013 O - L/A EXTRACT PROCESS 10390 Z - EXIT 10400/! 10410DEFINE,FN=$$LHMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10420LOAD,FN=$$LHMENU,OW=$$ 10430 LEGAL AND AGENCY HISTORY SYSTEM MENU 10440f  3*I * 10450LHMOVHIS A - MOVE INACTIVE ACCOUNTS TO HISTORY FILES 10460LHUPDTAP B - UPDATE ACTIVE ACCOUNTS FROM THE TAPE ARCHIVES 10470LHPRGHIS C - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10480LHPRGTAP D - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10490LMPRGMST E - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10500LHPRGCLI F - PURGE CLIENT FILE (LACLIENT) 10510 Z - EXIT 10520/! 10530DEFINE,FN=$$LMMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10540LOAD,FN=$$LMMENU,OW=$$ 10550 * LEGAL AND AGENCY FILE MAINTENANCE MENU 10560 * 10570LMRDRLTR A - PRINT THE LETTER DEFINITION FILE 10580LMCONLTR B - CREATE THE LETTER FILE 10590LMUTIFIL C - UTILITY FILE MAINTENANCE - ADD OR UPDATE UTILITY RECORDS 10600LMDECTBL D - DECISION TABLE MAINTENANCE 10610LMAVMDMP E - PRINT ACTIVITY VERIFICATION TABLE 10620LMACTMTX F - CREATE THE ACTIVITY VERIFICATION TABLE 10630LMSPCAUD G - FILE SPACE AUDIT- REPORTS PERCENTAGE OF UNUSED FILE SPACE 10640LHPRGHIS H - PURGE OLDEST ACCOUNTS FROM SUMMARY HISTORY FILE 10650LHPRGTAP I - PURGE OLDEST ACCOUNTS FROM THE TAPE ARCHIVES FILE 10660LMLDSCRN J - PRINT SCREEN DEFINITION FILE 10670LMSVSCRN K - CREATE THE SCREEN FILE 10680LMPRGMST L - PURGE MASTER FILES (LADLQMST-LACOSIGN-LAACTFIL) 10690LMACTMTN M - ACTIVITY FILE MAINTENANCE/REPORT 10700LMUSEMTN N - COLECT ACTIVE USER FILE MAINTENANCE 10710LMDETCRD O - PRINT REPORT GENERATOR DATA ELEMENT TABLE 10720LMDETCON P - REPORT GENERATOR DATA ELEMENT TABLE ROUTINES-CONSOLE INPUT 10730LMPDFMTN Q - REPORT GENERATOR PROGRAM DIRECTORY FILE MAINTENANCE 10740LMSCNPRT R - SAMPLE SCREEN PRINT UTILITY 10750PRFLM017 S - CLIENT FILE MAINTENANCE 10760 Z - EXIT 10770/! 10780DEFINE,FN=$$LOMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 10790LOAD,FN=$$LOMENU,OW=$$ 10800 * LEGAL AND AGENCY ON DEMAND REPORT MENU 10810 * 10820LODRCIAC A - DELINQUENT RECORD CONTENT REPORT (INACTIVE ACCOUNTS) 10830LODRCSRQ B - DELINQUENT RECORD CONTENT REPORT (SUPERVISOR REQUESTS) 10840LOTAPRRN C - TREND ANALYSIS-CALCULATE AGE- RUN BEFORE SELECTION D OR E 10850LOTAPTQU D - TREND ANALYSIS REPORT PRINTED BY QUEUE 10860LOTAPTTY E - TREND ANALYSIS REPORT PRINTED BY PRODUCT TYPE 10870LOWRTOFF F - ELIGIBLE/ACTUAL WRITE-OFF REPORT 10880LODLYASN G - DAILY ASSIGNMENT LIST 10890LOSUMACT H - SUMMARY ACCOUNT LIST REPORT 10900LOWCOLST I - WEEKLY COLLECTOR STATISTICS REPORT 10910LOMCOLST J - MONTHLY COLLECTOR STATISTICS REPORT 10920j  3*]LOTCNTRL K - CREATE REPORT GENERATOR PROGRAM 10930PRFLP000 L - EXECUTE REPORT GENERATOR PROGRAM 10940PRFLO012 M - QUEUE LOADING REPORT 10950PRFLO013 N - COMPLETE PAYMENT, DIRECT PAYMENT STATEMENT REPORTS 10960PRFLO014 O - INVENTORY REPORTS BY ACCOUNT, CLIENT 10970PRFLO015 P - RECOVERY ANALYSIS REPORT 10980PRFRP014 Q - PURGE REPORT FILES ( LAACCAGE - LARSWFIL ) 10990 Z - EXIT 11000/! 11010DEFINE,FN=$$LRMENU,TY=S,LR=80,NR=22,ED=999999,VL=SYSVOL ,OW=$$ 11020LOAD,FN=$$LRMENU,OW=$$ 11030 * LEGAL AND AGENCY REPORT GENERATOR - REPORT DIRECTORY 11040 * 11050PRFLP001 A - R.G. REPORT 1 - (AVAILABLE) 11060PRFLP002 B - R.G. REPORT 2 - (AVAILABLE) 11070PRFLP003 C - R.G. REPORT 3 - (AVAILABLE) 11080PRFLP004 D - R.G. REPORT 4 - (AVAILABLE) 11090PRFLP005 E - R.G. REPORT 5 - (AVAILABLE) 11100PRFLP006 F - R.G. REPORT 6 - (AVAILABLE) 11110PRFLP007 G - R.G. REPORT 7 - (AVAILABLE) 11120PRFLP008 H - R.G. REPORT 8 - (AVAILABLE) 11130PRFLP009 I - R.G. REPORT 9 - (AVAILABLE) 11140PRFLP010 J - R.G. REPORT 10 - (AVAILABLE) 11150PRFLP011 K - R.G. REPORT 11 - (AVAILABLE) 11160PRFLP012 L - R.G. REPORT 12 - (AVAILABLE) 11170PRFLP013 M - R.G. REPORT 13 - (AVAILABLE) 11180PRFLP014 N - R.G. REPORT 14 - (AVAILABLE) 11190PRFLP015 O - R.G. REPORT 15 - (AVAILABLE) 11200PRFLP016 P - R.G. REPORT 16 - (AVAILABLE) 11210PRFLP017 Q - R.G. REPORT 17 - (AVAILABLE) 11220PRFLP018 R - R.G. REPORT 18 - (AVAILABLE) 11230PRFLP019 S - R.G. REPORT 19 - (AVAILABLE) 11240 Z - EXIT 11250/! 11260DEFINE,FN=PRFLD001,OW=LA,ED=999999,TY=S,LR=80,NR=50 11270LOAD,FN=PRFLD001,OW=LA 11280CHEKID 11290 * THIS ROUTINE WILL PRINT - DAILY COLLECTOR UPDATE REPORT 11300 * - TIME USAGE REPORT 11310 * - DAILY COLLECTOR STATISTICS REPORT 11320 * 11330 * LATRNSFL FILE IS NOW BEING SORTED 11340INPUT=PRFLD001 11350DSORT 11360FN=LATRNSFL,LA 11370F2=LATRNSFL,LA, 11380OP=T,F,A 11390KF=A,29,2,A,17,4,A,135,4,A,25,4,A,1,16,A,134,1 11400  3*qSL=I 11410 * THE LATRNSFL FILE HAS BEEN SORTED 11420 * THE DAILY COLLECTOR UPDATE REPORT WILL BE PRINTED 11430LCOLCG 11440 * THE DAILY COLLECTOR UPDATE REPORT IS COMPLETE 11450 * THE TIME USAGE REPORT WILL BE PRINTED 11460LTMUSE 11470 * THE TIME USAGE REPORT IS COMPLETE 11480INPUT=PRFLD001 11490SWITCH 1150010000000 11510 * THE DAILY STATISTICS REPORT WILL BE PRINTED 11520COLSTS 11530 * THE DAILY STATISTICS REPORT IS COMPLETE 11540 **** OPERATOR - 11550 * RESPOND: 'N' CARRIAGE RETURN - TO BYPASS ZEROING THE DAILY COUNT 11560 * 11570 * CARRIAGE RETURN ONLY - TO ZERO THE DAILY COUNT 11580CCSPAS 11590INPUT=PRFLD001 11600SWITCH 1161000010000 11620COLSTS 11630 * THIS ROUTINE IS COMPLETE 11640MNUPRO 11650/! 11660DEFINE,FN=PRFLD002,OW=LA,ED=999999,TY=S,LR=80,NR=30 11670LOAD,FN=PRFLD002,OW=LA 11680CHEKID 11690 * THE TRANSACTION FILE WILL BE SORTED FOR PRINTING OF LETTERS 11700INPUT=PRFLD002 11710DSORT 11720FN=LATRNSFL,LA 11730F2=LATRNSFL,LA, 11740OP=T,F,A 11750KF=A,17,4,A,41,2,A,1,16 11760SL=I 11770 **** OPERATOR - LOAD LETTER PAPER 11780 * CARRIAGE RETURN WHEN READY 11790 * 11800CCSPAS 11810 * THE REQUESTED LETTERS WILL BE PRINTED 11820LLTPRT 11830 * THE REQUESTED LETTERS HAVE BEEN PRINTED 11840 **** OPERATOR - LOAD REGULAR PAPER 11850 * CARRIAGE RETURN WHEN READY 11860 * 11870CCSPAS 11880dE  3* * THE LETTER STATISTICS SUMMARY WILL BE PRINTED 11890LTRSTA 11900 * THE LETTER STATISTICS SUMMARY IS COMPLETE 11910MNUPRO 11920/! 11930DEFINE,FN=PRFLD003,OW=LA,ED=999999,TY=S,LR=80,NR=25 11940LOAD,FN=PRFLD003,OW=LA 11950CHEKID 11960 * THE COLLECTOR ACTIVITIES WILL BE ADDED TO THE ACTIVITY FILE 11970INPUT=PRFLD003 11980DSORT 11990FN=LATRNSFL,LA 12000F2=LATRNSFL,LA, 12010OP=T,F,A 12020KF=A,29,2,A,21,4,D,25,4,D,121,2 12030SL=I 12040ACTADD 12050 * THE COLLECTOR ACTIVITIES HAVE BEEN ADDED TO THE ACTIVITY FILE 12060MNUPRO 12070/! 12080DEFINE,FN=PRFLD004,OW=LA,ED=999999,TY=S,LR=80,NR=25 12090LOAD,FN=PRFLD004,OW=LA 12100CHEKID 12110 ****OPERATOR - MOUNT UPDATE INPUT TAPE ON TAPE UNIT '0' 12120 * CARRIAGE RETURN WHEN READY 12130CCSPAS 12140INPUT=PRFLD004 12150SWITCH 1216010000000 12170 * THE UPDATE TAPE WILL BE PROCESSED 12180LUPDAT 12190 * THE UPDATE TAPE HAS BEEN PROCESSED 12200 * THE FILE SPACE AUDIT REPORT WILL NOW BE PRINTED 12210 **** OPERATOR - CARRIAGE RETURN TO CONTINUE AFTER REVIEWING 12220 * SCREEN INFORMATION 12230CCSSPC 12240CCSPAS 12250 * THE FILE SPACE AUDIT REPORT IS COMPLETE 12260MNUPRO 12270/! 12280DEFINE,FN=PRFLD005,OW=LA,ED=999999,TY=S,LR=80,NR=20 12290LOAD,FN=PRFLD005,OW=LA 12300CHEKID 12310 * THE NON-FINANCIAL UPDATES WILL BE PROCESSED 12320 **** OPERATOR - MOUNT NON-FINANCIAL UPDATE INPUT TAPE ON TAPE UNIT '0' 12330 * CARRIAGE RETURN WHEN READY 12340CCSPAS 12350INPUT=PRFLD005 12360  3*SWITCH 1237010000000 12380LUD400 12390 * THE NON-FINANCIAL UPDATES HAVE BEEN PROCESSED 12400MNUPRO 12410/! 12420DEFINE,FN=PRFLD006,OW=LA,ED=999999,TY=S,LR=80,NR=20 12430LOAD,FN=PRFLD006,OW=LA 12440CHEKID 12450 * THE FINANCIAL UPDATES WILL BE PROCESSED 12460 **** OPERATOR - FINANCIAL UPDATE TAPE SHOULD BE MOUNTED ON UNIT '0' 12470 * 12480INPUT=PRFLD006 12490SWITCH 1250010000000 12510INPUT=PRFLD006 12520MOUNT 12530FTAPE,B,P 12540/* 12550LUD500 12560 * THE FINANCIAL UPDATES HAVE BEEN PROCESSED 12570MNUPRO 12580/! 12590DEFINE,FN=PRFLD007,OW=LA,ED=999999,TY=S,LR=80,NR=15 12600LOAD,FN=PRFLD007,OW=LA 12610CHEKID 12620 * THE ACTIVE ACCOUNTS WILL BE UPDATED FROM HISTORY 12630DHUPDT 12640 * THE ACTIVE ACCOUNTS HAVE BEEN UPDATED FROM HISTORY 12650MNUPRO 12660/! 12670DEFINE,FN=PRFLD008,OW=LA,ED=999999,TY=S,LR=80,NR=10 12680LOAD,FN=PRFLD008,OW=LA 12690CHEKID 12700 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12710 * COLLECTORS ARE OFF-LINE FOR THE DAY 12720MNUPRO 12730/! 12740DEFINE,FN=PRFLD009,OW=LA,ED=999999,TY=S,LR=80,NR=10 12750LOAD,FN=PRFLD009,OW=LA 12760CHEKID 12770 * WARNING: DO NOT SELECT 'L' OR 'M' FROM THE DAILY CYCLE MENU UNTIL THE 12780 * COLLECTORS ARE OFF-LINE FOR THE DAY 12790MNUPRO 12800/! 12810DEFINE,FN=PRFLD010,OW=LA,ED=999999,TY=S,LR=80,NR=50 12820LOAD,FN=PRFLD010,OW=LA 12830CHEKID 12840  30 P [ADDIT B05 F CCS CCS 3.0 SL-149@PA@PT33 A M] >0 MT3 ]T33E] > (3Th H3 1T3\ A M30 > M\3; A@P0,  A\33 > C3 C\33 = = 03 C\ >33 C C3T 4 ?33 > >3\  30 > >\3;  >@P0W >T A\33 > M >0 XT30̫ ̦ &\33 I 1\̝ 13T38̓@P0 ̍ 3&\ J3 1\T0 VT3 (3T L3 1T3T >3; P > P@PHMPADDIT PCCSMVACCSPUT PUTS FILERRUPDENDCCSADDDFORMLNZWRITERdREADR |CCSBLKUPDRECP PCHNGNF B24 F CCS CCS 3.0 SL-149@P@P1@P4@P@P0@PN@Pl1@PE@P(,@P!@P$@P'@P*@P-@P0 @P5 , h h hTȷ \Ȫ t\@P`Ȟ  l@Pn hh hȻ!" ( hʓ !ȏ谚 Ȩf dؚ@P 5h !0 2. d3 h hT@P@P  h\4$  30)@P4 \5H2TThbhmhhhh\hZheh\hVhjh\h@PQheh\hIhJhRh\hhhh\ha'PCHNGNFPQ8PKUPQ8PREPAMONTO:ADAYTO>AYERTOBCCSCSTECCSMVAP P [ CONUPD B32 F CCS CCS 3.0 PSrPD SL-149@PCm@PN@P- NO NON-FINANCIALS ACCEPTED@P@P03U@P @P@P!@P$@P'@P*@P- @P0@P3@P6 @P9@P<@P?@PB@PGT33  C =3 = 2 2 70 ژ(0T h\hȞ #Ț dhȗhT 0 >h\@Pr hȍ(Έh 1 *T >33 Q > Qx hȴ!& ( h @P !ȥhȡh ȝhT@P@P =ؐ3\ R33 R 2̒ A 4TH33 C =3 = 2 2 &\33 C3 C\@P3 > M]3 > MT0 ]T3E] >00 (Th30 H 1TT33 R 0 RH>PCONUPD  30=PCCSCSTICCSAD[ICALJLlCCSMVACHNGNFCCSPUTPUTS FILERRUPDENDP P [COSUPD B33 F CCS CCS 3.0 SL-149@P@P@P@P@PY@PT3 R =3 = 2 2 \13 R30 = = 2 \3 R =3 = 2 YT3; > M@P00 > N\11 ?T33g  (T630 I 1T 10/ *T@P3[g0  3&\6 J3 1\\11 ?T30g &\630 L 1\@PH|PCOSUPDPCCSCSTCCSMVA+WRITER:FILERRIUPDENDOREADR ZUPDRECuP P [ FORMLN B53 F CCS CCS 3.0 SL-149@PWRITEOFF @PRELEASE @P$SATISFY @P6ADD @PHUPDATE @PZREACTIVATE @PlREJECT - ACCOUNT NOT ACTIVE FOR 30X @P~REJECT - NO ACCOUNT FOR 30X CODE @PREJECT - INVALID TRANSACTION CODE @P ,,hT@P3 > S 3 ? S\33 > @ A03 @\ A33 M F M 1? #  )\33 R Q8 R @P3\ 33 R Q R % !3T 30 > >\33  ?03 @\ 30 ? @ 3\ 3 > >\@P3 ?0 @ HTThŀPFORMLNPQ8PKUPQ8PREPCCSMVAEDIT P K  30Q P [FUPDAT B56 F CCS CCS 3.0 SL-149@PTTT0 TTTT33 > @ - >3 @ 2 2 \33 > @ +30 > @ 2  \@P3+ > @ )30 > @ 2 'T0 T300 13T L3 1\ lT 43; ? > @PV >T0 o\33 > @ / >3 @ 2̶  T F3\ 4 ? 30 > >\0 W TTTTT@P33̻ 3'\ I3 1T \ 70 3 T\\\3\̝ &\3; L 1@P\\ T\\\T3= '3TG L3 1\\0 9H/PFUPDATPUPINITLABHANNXTRANTOTALP UPDENDGETMASCCSCSTRSWIT 6UPDRECFILERRCCSADDPPRTLINXFORMLNgUNCUPDyPCONUPD{ADDIT }COSUPDWRITERUPDIT REACITP P [GETMAS B58 F CCS 3.0 09-22-81 SL-149@P@P,@P.@P UPDATE WAITING ACCT. NO. @P'.L@P)@P/T33 A M > >0 MT30 >00 0  (T33 J 1T 5@P0Z /ެ  d0-T31 A M) M+Ⱥ \31 A M) M\* R'0 RT 1@P,(,- lT.HPGETMASPCCSMVA0READR 8FILERRMUPDENDSCCSCSThWTREADCCSBLKP P [LABHAN B67 F CCS CCS 3.0 SL-149@Px@P0{ . h P( hT   T3 @ hT3 > Wz0 W 1\@P \3 @ h3T lHPLABHANPNXTRANTAPMOTCCSMVACLOSFLP P [LNXTRAN B85 F CCS CCS 3.0 SL-149@Pb  30e@P@P1h T300 1'0 T30 K 1T dT 1 @P. T0T h  l @P0< T =HPNXTRANHPSTATIT2GETS FILERRUPDEND"FREAD (DISP 0CCSE2AAP P [PRTLIN C09 F CCS CCS 3.0 SL-149@P @P8@P@P \hdh~hhhh 2 l3T 4 ?33 > > d [@P05 d0 \ hT [ T 9 [ؿ 10 T1 Z3 T;\  Z@P3` \\ _13 Z \T30 @0 (T3 H0 1T0 &̞ l \@P3 Z0 \3\ Z0 \3\ ?0 &3\ H0 1\̥ \13 Z 8\\@P0 >̺ &\30 H 1\T Z H TThhh4PPRTLINPQ8PKUPQ8PREPCCSADD*CCSGET33 C C3\ = =10 L\3; = =@P00 GT CT33 4 ? >3 >\33  > 03 >\ 33 > >3\ > M30 > XT308@P[  (T3 I0 1T 1/T30  3&\ J3 1\T8 VT@P30 &3\ L0 1\T33 > P 3 > P " 9 0X :l3T 3 ;\3; > M= >@P M\ 33 > A= N0 ATGGdIHdJ0dK\33  > IL3 > I\ "33 > UR >0 YT%38= >@P (3Tb H3 1Th 3\= >0 &3\ H0 1\HPREACITPCCSPUT CCSMVAFORMLN3CCSADD6WRITERSFILERRUPDENDREADR nCCSBLKUPDRECPUTACFCCSTIMPUTS P S  30y P [kRSWIT C16 F CCS CCS 3.0 SL-149@P@PWRS@P999 @P998 @P997 @P @P @P - ACCOUNT NOT IN ACCAGE @P0  d0T E0  3  l\ D0HhlT3; C@P0E  C 0(π h  (ʀ hT 4 ?@PV >@PX > ( Vh 0( Vh\ @Pg >@Pi > ( hh 0( hh\ @Px >@Pz > ( Dh 0( Dh\ @P >@P >\33 F 0 F\\33 M3 > M\31  > 03 ?\ 3 C C3Tw3 > (T@P3 H0 1TT3@ M30 > > MT3 >0  1ݤ0  \3; J 1@P\\ 33 > O >0 OyT3 &\33 M 10\d00 \33  A 0; A\ @P3 @ 03 @\ 33 F  F3\  F30  F\33  A3  A $h\@P3- > @3  @T33  F3  F\33  F 03 F\ 33 A  AހhT@P0O T3 >00 (T30 H 1T@P%c@P2c@PcHPRSWIT fPFORMLN"CCSMVA3CCSADDRPUTS RFILERR\UPDENDbREADR DELRECCCSPUTMP P [TOTALP C23 F CCS CCS 3.0 SL-149@P * TOTALS *  30  @P+ @P? @PD * P R E V I O U S@Po * @P @P ACCOUNTS NUMBER AMT DELQ PAYOFF AMT DELQ  PA@PYOFF @P @P ADDED  @P @P @P REACTIVATED  @P; @PO @PT UPDATED  @P @P @P RELEASED  @P @P @P SATISFIED  @P @P @P WRITTENOFF  @PK @P_ @Pd REJECTED  @P @P @P0 5 Bl dT31 D C3 > C\ 3 D C >03 C\ D13 Cb > C3\ D C0 > C\39 D C@P0 > C\31 D C.3 > C\ 3 D Cr >0 C h h D(hT@Pȵ  D(hT 9F  30@Pا 1ء 1T1 A3 ? @\ 13 A" ? @1\ Af3 ? @\ 13 A ? @1\ A)3 ? @\ @P, Am ?03 @\ P A0 ? @\3 V A ?03 @\ J A09 ? @\3 Au >03 @\ t A0 > @\3 z A >0; @\ n A@P3WA > @1\ A|3 > @\ b13 A > @1\ h A3 > @\ \13 AH > @ d D,hT@P} 1H"PTOTALPPCCSMVACCSGETCCSPUTEDIT  PRTLIN{P P [UNCUPD C31 F CCS CCS 3.0 SL-149@P @P@P@P!@Pkk@@PE@P@Pkk@P qq@P#ww @P& @P) @P,@P/ @P2 @P5@P8@P;@P>@PA@PD@PG@PJ@PM(  30@PP@PS@PV@PY@P\@P_@PbT 33 > C 0 C h!( ( hʝ ʘ !hހhڀ hր@P h\@P@P0 1\ > >T0\ >1 >\1HPUNCUPDPCCSMVAcCCSPYTP P [Q8QBDS C46 F CCS CCS 3.0 SL-149@P8 :01@P0 ;0360@P8@P8 3 @P0 000000000000@P0 000000000000@P8 @P0 - ACCOUNT ALREADY IN ACCAGE @P0  CO HOST @P8 9 @P8 @P0 TRAN ACCOUNT BORROWERS DELINQUENT DELINQUENT C@P0 URRENT @P0 @P0 CODE NUMBER NAME DATE AMOUNT P@P0 AYOFF ACTION @P0 $ @P0 k  30  @P0 @P0  @P8@P8 @P8 @P8@P8 @P0 <-- HDR1 FROM UTILITY FILE GOES HERE -->  @P0  @P0  @P0 <-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE UPDATE REPORT @P0 H PAGE @P0 \ @P0 _<-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE->  @P0 @P0 @P0hADDACT  @P0ACCAGE  @P06COSIGNER  @P0 DELQMST  @P0INACCT  @P0UPDINPUT  @P0UPDPRINT  @P0RSWFIL  @P0TRANFL  @P0TRNBCK  @P0XUTIFIL  @P8 @P0 FHDR1@P0 HUPDY@P8 B@P8 wM  30@P8 e@P8 @P8 @P8 @P8 @P8 @P8 2@P8 Y@P8 @P8 @P8 _@P0 40000000001@P0 000000000000@P0 000000000000@P0 000000000000@P0 000000000000000000000000000000000000@P0 000000000000@P8 =@P8 >@P8 ?@P8 @@P8 A@P8 B@P8 C@P8 D@P8 E@P8 F @P8 G @P8 H @P8 I @P8 J @P8 K`F  30@P8 L@P8 M@P8 N@P8 O@P8 P@P8 Q@P8 R@P8 S#@P8 T(@P8 U7@P8 VB@P8 WP@P8 XR@P8 Y`@P8 Z@P0 000000000000@P8 ;@P8 #@P0 000000000000@P0 000000000000@P0  @P0  @P0J @P0^  @P0 @P0  @P0 @P0  @P0 @P0  @P0F @P0Z D  31  @P0 @P0  @P0 @P0  @P0 @P0  @P0B @P0V  @P0 @P0  @P0 @P0  @P0 @P0  @P0> @P0R  @P0} @P0  @P0 @P0  @P0 @P0 @P0E@P0@P0g@P0@P0w@P0@P0@P0@P0%@P0>  3t5AL:t5S $$ THE JOB 00510 * NUMBER LISTED BELOW. WHEN THE STATUS IS NO LONGER 00520 * 'BEING SENT', USE THE UTILITY COMMAND 'PRINT' **** OPERATOR - A JOB WILL BE BATCHED IN THIS PROCEDURE TO PURGE THE 00010 * THE PROGRAM LIBRARY. THE BATCH HOST MUST BE ACTIVE 00020 * BEFORE PROCEDDING. TO ACTIVATE THE BATCH HOST, 00030 * PERFORM 00040 * MI, *BATCH,F 00050 * 00060 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 00070 * 00080 * CARRAIGE RETURN ONLY - TO CONTINUE 00090CCSPAS 00100 * THE DATA FILES WILL BE CLEARED 00110CLRFIL 00120 * THE FILES WILL BE INITIALIZED FOR START OF PARAMETERIZATION 00130INPUT=PRFSC009 00140QTIL 00150DELETE,FN=$$SYMENU 00160DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00170LOAD,FN=$$SYMENU,OW=$$ 00180 * SYSTEM MENU 00190 * 00200UTIL UT - SYSTEM UTILITIES 00210EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00220MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00230MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00240MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00250MNUPRO RP - CCS20 ON DEMAND REPORTING 00260MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00270MNUPRO EX - EXIT 00280LOAD,FN=UTIFIL,OW=CCS20 00290HDR1 00300HDR2 00310HDR3 00320RSW1 00330ACTC 00340RESC 00350SALC 00360DALT 00370LTRF 00380LTR1 00390LTR2 00400SMTH 00410TMTH 00420UPDY 00430OLPM 00440HOST 00450RPTG RPT001 L  3tI 00460LOAD,FN=ACCAGE,OW=CCS20 00470 00480EX 00490 ***** OPERATOR - WHEN THIS SELECTION IS COMPLETE, USE THE UTILITY 00500 * COMMAND 'BATS' TO CHECK THE PROGRESS OF THE JOB 00510 * NUMBER LISTED BELOW. WHEN THE STATUS IS NO LONGER 00520 * 'BEING SENT', USE THE UTILITY COMMAND 'PRINT' TO 00530 * PRINT THE JOB. VERIFY THE JOB COMPLETED WITHOUT 00540 * ERROR. 00550 * 00560INPUT=PRFSC009 00570UTIL 00580BATCH,FN=DISCQT,TY=N 00590DELETE,FN=DMDLQMST 00600DELETE,FN=DMCOSIGN 00610DELETE,FN=DMRPTTBL 00620DELETE,FN=DMACTVTB 00630DELETE,FN=DMUTIFIL 00640DELETE,FN=DMSCNDSC 00650DELETE,FN=DMSCNFIL 00660DELETE,FN=DMDECTBL 00670DELETE,FN=DMLTRFIL 00680DELETE,FN=DMLTRDSC 00690DELETE,FN=DMNEWS 00700DELETE,FN=DMACCAGE 00710DELETE,FN=DMSUMHIS 00720DELETE,FN=DMTAPARC 00730DELETE,FN=DISCQT 00740DELETE,FN=PRFSC001 00750DELETE,FN=PRFSC002 00760DELETE,FN=PRFSC003 00770DELETE,FN=PRFSC004 00780DELETE,FN=PRFSC005 00790DELETE,FN=PRFSC006 00800DELETE,FN=PRFSC007 00810DELETE,FN=PRFSC008 00820DELETE,FN=PRFSC010 00830EX 00840 * CCS SYSTEM FILES ARE READY FOR PARAMETERIZATION 00850MNUPRO 00860__*RPWRTOFF'TAPEPRO PRFLP006}PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFLP019PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098PRFPG0109PRFLP007~PRFLP008PRFLP009PRFLP010PRFLP011PRFLP012PRFLP013PRFLP014PRFLP015PRFLP016PRFLP017PRFLP018PRFPG000/PRFPG0010PRFPG0021PRFPG0032PRFPG0043PRFPG0054PRFPG0065PRFPG0076PRFPG0087PRFPG0098β  3t]__ "l  s"wöG  3l s  3fª  ؤ X1 ( X+ ȗ h u hXȖ …  1X| X ummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm__ALtlS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM MENU X0200001 * X0200002MNUPRO SC - SYSTEM CONFIGURATOR X0200003UTIL UT - SYSTEM UTILITIES X0200004EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILESX0200005MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING PREPARATION X0200006MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES X0200007MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES X0200008MNUPRO RP - CCS20 ON DEMAND REPORTING X0200009MNUPRO RG - CCS20 REPORT GENERATOR - REPORT Dk  3tqIRECTORY X0200010MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION X0200011MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES X0200012MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES X0200013MNUPRO LO - L/A ON DEMAND REPORTING X0200014MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY X0200015MNUPRO EX - EXIT X0200016mmmmmmmmmmmmmmmmAL ttS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm * SYSTEM CONFIGURATION MENU 00001 * 00002 * BEFORE MAKING A SELECTION FROM THIS MENU BE SURE THE AUXILIARY 00003 * DISK(S) HAVE BEEN INITIALIZED WITH THE CORRECT VOLUME LABEL 00004 * OR LABELS FOR THE SYSTEM WHICH YOU WILL SELECT. ALL DISK 00005 * PACKS SHOULD BE MOUNTED AND READY. 00006 * 00007PRFSC001 A-12000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00008PRFSC002 B-24000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00009PRFSC003 C-36000 ACCOUNT CCS SYSTEM (VOLUME CDD01/CDD02) 00010PRFSC004 D-78000 ACCOUNT CCS SYSTEM (VOLUME CDD01) 00011PRFSC005 E-12000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD03) 00012PRFSC006 F-24000/9000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00013PRFSC007 G-36000/13500 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01/CDD02/CDD03) 00014PRFSC008 H-60000/18000 ACCOUNT CCS/LA SYSTEM (VOLUME CDD01) 00015PRFSC009 I-CLEAR CCS SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00016PRFSC010 J-CLEAR CCS/LA SYSTEM FILES FOR CUSTOMER PARAMETERIZATION 00017 Z-EXIT 00018********************************AL!t}S   A@ 073409 0STATUS CD __tJ004 J005 J006 J007 J008 J009 J010 J011 J012 J013 J014 J015 J016 J017 J018 J019 J020 J021  3tJ022 J023 J024 J025 J026 J027 J028 J029 J030 J031 J032 J033 __J055 J056 J057 J058 J059 J060 J101 J102 J103 J104 J105 J106 J107 J108 J109 J110 J111 J112 J113 J114 J115 J116 J117 J118 J119 J120 J121 Q  3 ,1ALL,1S $$ 00850EX 00860 ***** OPERATOR - WHEN THIS SEL **** OPERATOR - A JOB WILL BE BATCHED IN THIS PROCEDURE TO PURGE THE 00010 * THE PROGRAM LIBRARY. THE BATCH HOST MUST BE ACTIVE 00020 * BEFORE PROCEEDING. TO ACTIVATE THE BATCH HOST, 00030 * PERFORM 00040 * MI, *BATCH,F 00050 * 00060 * RESPOND: 'N' CARRIAGE RETURN - IF BATCH HOST IS NOT ACTIVE 00070 * 00080 * CARRAIGE RETURN ONLY - TO CONTINUE 00090CCSPAS 00100 * THE DATA FILES WILL BE CLEARED 00110CLRFIL 00120LCLRFL 00130 * THE FILES WILL BE INITIALIZED FOR START OF PARAMETERIZATION 00140INPUT=PRFSC010 00150QTIL 00160DELETE,FN=$$SYMENU 00170DEFINE,FN=$$SYMENU,ED=999999,TY=S,LR=80,NR=22,VL=SYSVOL,OW=$$ 00180LOAD,FN=$$SYMENU,OW=$$ 00190 * SYSTEM MENU 00200 * 00210UTIL UT - SYSTEM UTILITIES 00220EDITOR ED - TEXT EDITOR-USED TO EDIT 80 CHARACTER SEQ OR DIRECT FILES 00230MNUPRO DC - CCS20 DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00240MNUPRO HS - CCS20 HISTORY SYSTEM PROCEDURES 00250MNUPRO MT - CCS20 SYSTEM FILE MAINTENANCE ROUTINES 00260MNUPRO RP - CCS20 ON DEMAND REPORTING 00270MNUPRO RG - CCS20 REPORT GENERATOR - REPORT DIRECTORY 00280MNUPRO LD - L/A DAILY CYCLE, ON-LINE REPORTING AND PREPARATION 00290MNUPRO LH - L/A HISTORY SYSTEM PROCEDURES 00300MNUPRO LM - L/A SYSTEM FILE MAINTENANCE ROUTINES 00310MNUPRO LO - L/A ON DEMAND REPORTING 00320MNUPRO LR - L/A REPORT GENERATOR - REPORT DIRECTORY 00330MNUPRO EX - EXIT 00340/! 00350LOAD,FN=UTIFIL,OW=CCS20 00360HDR1 00370HDR2 00380HDR3 00390RSW1 00400ACTC 00410RESC 00420SALC 00430DALT 00440LTRF 00450LTR1 zA  3!,E 00460LTR2 00470SMTH 00480TMTH 00490UPDY 00500OLPM 00510RPTG RPT001 00520HOST 00530/! 00540LOAD,FN=ACCAGE,OW=CCS20 00550 00560/! 00570LOAD,FN=LAUTIFIL,OW=LA 00580HDR1 00590HDR2 00600HDR3 00610RSW1 00620ACTC 00630RESC 00640SALC 00650DALT 00660LTRF 00670LTR1 00680LTR2 00690SMTH 00700TMTH 00710UPDY 00720OLPM 00730RPTG LRP001 00740LACL 00750LAC1 00760LAC2 00770LAC3 00780LAC4 00790LAC5 00800HOST 00810/! 00820LOAD,FN=LAACCAGE,OW=LA 00830 00840/! 00850EX 00860 ***** OPERATOR - WHEN THIS SELECTION IS COMPLETE, USE THE UTILITY 00870 * COMMAND 'BATS' TO CHECK THE PROGRESS OF THE JOB 00880 * NUMBER LISTED BELOW. WHEN THE STATUS IS NO LONGER 00890 * 'BEING SENT', USE THE UTILITY COMMAND 'PRINT' TO 00900 * PRINT THE JOB. VERIFY THE JOB COMPLETED WITHOUT 00910 * ERROR. 00920 * 00930INPUT=PRFSC010 М  3",Y 00940UTIL 00950BATCH,FN=DISCQT,TY=N 00960DELETE,FN=DMDLQMST 00970DELETE,FN=DMCOSIGN 00980DELETE,FN=DMRPTTBL 00990DELETE,FN=DMACTVTB 01000DELETE,FN=DMUTIFIL 01010DELETE,FN=DMSCNDSC 01020DELETE,FN=DMSCNFIL 01030DELETE,FN=DMDECTBL 01040DELETE,FN=DMLTRFIL 01050DELETE,FN=DMLTRDSC 01060DELETE,FN=DMNEWS 01070DELETE,FN=DMACCAGE 01080DELETE,FN=DMSUMHIS 01090DELETE,FN=DMTAPARC 01100DELETE,FN=DISCQT 01110DELETE,FN=PRFSC001 01120DELETE,FN=PRFSC002 01130DELETE,FN=PRFSC003 01140DELETE,FN=PRFSC004 01150DELETE,FN=PRFSC005 01160DELETE,FN=PRFSC006 01170DELETE,FN=PRFSC007 01180DELETE,FN=PRFSC008 01190DELETE,FN=PRFSC009 01200DELETE,FN=DLRPTTBL 01210DELETE,FN=DLACTVTB 01220DELETE,FN=DLUTIFIL 01230DELETE,FN=DLSCNDSC 01240DELETE,FN=DLSCNFIL 01250DELETE,FN=DLDECTBL 01260EX 01270 * CCS/LA SYSTEM FILES ARE READY FOR PARAMETERIZATION 01280MNUPRO 01290__ PGGN2E -- 00340 PRTSCN --- 00350 QLOAD --- 00360 REACIT --- 00370 SUMACL --- 00380 TIMUSE --- 00390 TRENDF --- 00400 TRNPLY --- 00410 UPDATE.B --- PSR A029,A035,A014,0008 00420 00430 THE LATEST VERSION OF EDTLP HAS BEEN INSTALLED 00440 00450 THE COMMERCIAL FIRMWARE INSTRUCTION SET H)  3#,mAS BEEN INSTALLED 00460 TO FIX DML & STRING COMPARE. 00470 00480 THE FOLLOWING PATCHES HAVE BEEN INSTALLED: 00490 LHC,2A5E,7DD/1E,28 (OLD= 0,A) PSR CY30003 (RESPONSE TIME) 00500 LHM,,12C8,73/C20A (OLD=C00A) PSR CY3A025 (OPENFL) 00510 LHM,,10,4A4E/180F (OLD=18DF) PSR CY3A037 (50MB TO 180MB CONF) 00520 00530 ALL DEBUG PATCHES - CCS3.0 SL149+ 12-21-81 HAVE BEEN INSTALLED, 00540 INCLUDING THE 722 VIKING PATCH. 00550 00560 THEY ARE CONTAINED IN THE FILE 109PATCH, UNDER $$, USERID. 00570 DO NOT SEQUENCE THIS FILE. IT CAN BE LISTED TO TAPE 00580 AND READ IN VIA.. CCSDB. 00590 00600 ADDITIIONALLY PROGRAMS RSWCHG & REBILD HAVE BEEN INSTALLED 00610 ON THE SYSTEM AND PROCEDURE PRFDC010 HAS BEEN MODIFIED TO 00620 RUN RSWCHG AFTER NMCHNG. 00630 00640 00650***************************************************************************00660 00670 *********** STATUS OF THE SYSTEM AS OF 05/12/82 ********** 00680 * * 00690 * C Y B E R C R E D I T S Y S T E M CCS3.0-2 * 00700 * * 00710 * ****** MODIFICATIONS COMPLETED 05/82 ******** * 00720 * * 00730 *************************************************************** 00740 00750 THE FOLLOWING IS A LIST OF THE PROGRAMS UPDATED: 00760 * THESE PROGRAMS CHANGES APPLY TO 3.0 - 2 SYSTEM 00770 NOT FOUND IN 3.0 - 1 SYSTEM. 00780 00790 ACTADD --- PSR 0010,A028 00800 CCSADD --- PSR A010 00810 CCSDMP --- PSR A027 AND ADDITION OF FILE RRN# 00820 CCSEAC --- PSR A010 00830 CHNGNF ___ PSR A081 00840AL~,}S LA R A026 00850 CHUPD2 --- PSR 0016,A078 00860 *COLCHG --- PSR 000600010H LARPRT00020F* G05 R LA CCS 3.0 SL-149 L0045000030F* THIS FILE CONTAINS COSY CORRECTIONS AS OF 02/83 L0046000040F* LEGAL AND AGENCY VERSION 3 L0047000050F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA L0048000060F* CREDIT COLLECTION SYSTEM VERSION 2.1 L0049000070F* L0050000080F* THIS PR~  3$,OGRAM PRINTS THE L/A CLIENT REFERRAL LIST OF ALL LARPRT00090F* ACCOUNTS EXTRACTED FROM THE C.C.S. SYSTEM BY THE L/A LARPRT00100F* PROGRAM 'LAXTRT'. LARPRT00110F* LARPRT00120FNULL IP F 2 DISK LARPRT00130FLADLQKEYID F 16 DISK LARPRT00140FLADLQMSTIC F 2000R16AI 1 DISK LARPRT00150FPRINT O F 132 PRINTER LARPRT00160FDISPLAY O F 72 CONSOLE LARPRT00170FLAUTIFILIC F 80R 4AI 1 DISK 00180E* LARPRT00190E ERR 1 1 50 INVALID KEY MSG LARPRT00200I* LARPRT00210I* ALL INPUT LINES PRECEDED BY '***' ARE NOT LARPRT00220I* CURRENTLY BEING USED IN THIS PROGRAM. LARPRT00230I* LARPRT00240INULL AA 01 LARPRT00250ILAUTIFILAA 41 00260I 5 44 HEADER 00270ILADLQKEYAA 01 LARPRT00280I 1 16 KEY LARPRT00290ILADLQMSTAA 01 LARPRT00300I 1 16 MACCT LARPRT00310I*** 17 17 MSLCD LARPRT00320I 18 47 MNAM LARPRT00330I 48 77 MADR1 LARPRT00340I 78 107 MADR2 LARPRT00350I 108 127 MCS LARPRT00360I 128 1320MZP LARPRT00370I 133 1350MPHN1 LARPRT00380I 136 1380MPHN2 LARPRT00390I 139 1420MPHN3 LARPRT00400I 143 146 MEXT LARPRT00410I 147 176 MBNM LARPRT00420I 177 206 MBAD LARPRT00430I 207 226 MBCS LARPRT00440I 227 2310MBZP LARPRT00450I 232 2340MBPH1 LARPRT00460I 235 2370MBPH2 LARPRT00470I 238 2410MBPH3 LARPRT00480I 242 2450MBEX LARPRT00490I*** 246 2610MADL LARPRT00500I 262 2640MSOC1 LARPRT00510I 265 2660MSOC2 LARPRT00520I 267 2700MSOC3 LARPRT00530I*** 271 274 MQUE LARPRT00540I*** 275 2800MNXTC LARPRT00550I*** 281 284 MPRI LARPRT00560I*** )  3%, 285 285 MPFG LARPRT00570I*** 286 286 MBFG LARPRT00580I*** 287 290 MSUP LARPRT00590I*** 291 291 MRCD LARPRT00600I*** 292 293 MSCD LARPRT00610I*** 294 294 MQAS LARPRT00620I*** 295 295 MOLS LARPRT00630I*** 296 299 MPQU LARPRT00640I*** 300 3050MPDQ LARPRT00650I*** 306 306 MSTC LARPRT00660I 667 696 MP1 LARPRT00670I 697 726 MP2 LARPRT00680I 727 756 MP3 LARPRT00690I*** 757 786 MPAD1 LARPRT00700I*** 787 816 MPAD1 LARPRT00710I*** 817 836 MPCS LARPRT00720I*** 837 8410MPZC LARPRT00730I*** 842 8470MLLDT LARPRT00740I*** 848 8560MLLAT LARPRT00750I 857 8620MSTDT LARPRT00760I*** 863 8680MUPDT LARPRT00770I 869 8740MCCDT LARPRT00780I*** 875 8800MDLDT LARPRT00790I 881 8860MOPDT LARPRT00800I*** 887 8952MADLQ LARPRT00810I*** 896 9042MCBAL LARPRT00820I*** 905 9132MPYOF LARPRT00830I*** 914 9190MCPGD LARPRT00840I*** 920 9282MNPA LARPRT00850I*** 929 9372MOAMT LARPRT00860I*** 938 9380MCHN LARPRT00870I*** 939 946 MTP LARPRT00880I*** 947 949 MPTS LARPRT00890I 950 9540MBBR LARPRT00900I 955 962 MLON LARPRT00910I 963 966 MTCD LARPRT00920I*** 967 9680MTD3 LARPRT00930I*** 969 9700MTD6 LARPRT00940I*** 971 9720MTD9 LARPRT00950I*** 9731012 MSDF LARPRT00960I 101310150MDYDL LARPRT00970I*** 10161021 MPPD LARPRT00980I*** 102210302MPPA LARPRT00990I*** 103110360MTHD LARPRT01000I*** 103710380MPPK LARPRT01010I*** 103910400MPPB LARPRT01020I*** 10411056 MRESV LARPRT01030I 105710620LATLA LARPRT01040I d  3&, 106310712LADUE LARPRT01050I* 01060I* CHAIN TO LAUTIFIL FOR REPORT HEADINGS 01070C 46 GOTO START 01080C SETON 46 01090C 'HDR1' CHAINLAUTIFIL 47 01100C N47 MOVE HEADER HDR1 40 01110C 'HDR2' CHAINLAUTIFIL 47 01120C N47 MOVE HEADER HDR2 40 01130C 'HDR3' CHAINLAUTIFIL 47 01140C N47 MOVE HEADER HDR3 40 LARPRT01150C* 01160CLR START TAG LARPRT01170CLR READ LADLQKEY 10 LARPRT01180CLR 10 GOTO EOJ LARPRT01190CLR KEY CHAINLADLQMST 15 LARPRT01200CLR EXCPT LARPRT01210CLR GOTO START LARPRT01220CLR EOJ TAG LARPRT01230O* LARPRT01240ODISPLAY E 15 LARPRT01250O KEY 16 LARPRT01260O ERR 70 LARPRT01270OPRINT E 0301 15 LARPRT01280O 20 '***** ERROR *****' LARPRT01290O 38 'ACCOUNT NUMBER' LARPRT01300O KEY 55 LARPRT01310O 78 'IS NOT PRESENT IN THE' LARPRT01320O 100 'L/A DELINQUENT MASTER' LARPRT01330OPRINT E 103 N15 LARPRT01340O HDR1 40 LARPRT01350O 74 'CLIENT REFERRAL LIST' LARPRT01360O 127 'PAGE' LARPRT01370O PAGE Z 132 LARPRT01380O E N15 LARPRT01390O HDR2 40 LARPRT01400O 122 'RUN DATE:' LARPRT01410O UDATE Y 131 LARPRT01420O E 2 N15 LARPRT01430O HDR3 40 LARPRT01440O E N15 LARPRT01450O 27 'ACCOUNT BANK' LARPRT01460O 55 'LOAN AMOUNT TO' LARPRT01470O 90 'REFERRED TO:' LARPRT01480O 108 '_______________' LARPRT01490O 123 '_______________' LARPRT01500O E N15 LARPRT01510O 29 'NUMBER BRANCH' LARPRT01520O !  3'-AL-S CCS20 PROGRAM DACRTE B3600010 1 /B36 F CCS CCS 3.1 SL-173B3600020C B3600030C CYBERCREDIT SYSTEM VERSION 3 B3600040C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3600050C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3600060C B36000701 B3600080C THIS PROGRAM REASSIGNS QUEUES AND PRIORITIES FOR ALL ACTIVE B3600090C ACCOUNTS IN THE DELQMST FILE AND CREATES THE DLYASSN FILE B3600100C WHICH IS USED BY THE ON-LINE AUTOMATIC FUNCTION B36001101 B3600120 INTEGER DEQREQ(24),ASNREQ(24),DDATA(15),ADATA(15),ST,EFG,DT(3), B3600130 2 USER(4),HD(3,20),PRI(3,9),QUE(3,9),NQUE(2),NPRI(2),FDEL, B3600140 3 DEQREC(22000),ASNREC(462),QUEP(9),QUEL(9),PRIP(9),PRIL(9), B3600150 4 STG(40),LTHACT(2) B36001601 B3600170 EXTERNAL FMRDEL B36001801 B3600190 DATA DEQREQ, ASNREQ / 48*0 / B3600200 DATA DDATA / 'DELQMST ', 8*$2020, 0, 0, 0 / B3600210 DATA ADATA / 'DLYASSN ', 8*$2020, 0, 1, 0 / B3600220C************************************************************** 173*A032B3600230C VARIABLE FOR PP DATE CHECKING B3600240 INTEGER PPDATE(3) B3600250C VARIABLES FOR READING UTIFIL B3600260 INTEGER UDATA(15),UTIREQ(24),UTIREC(40),OLPM(2),PPLAG B3600270 DATA UDATA/'UTIFIL ',8*$2020,1,1,0/ B3600280 DATA UTIREQ/24*0/,OLPM/'OLPM'/ B3600290C************************************************************** 173*A032B3600300 DATA NUMREC / 22 /, ST / 0 /, EFG / 0 /, LTHACT / '0360' / B3600310 DATA QUE, PRI / 54*$2020 / B3600320. B3600330C**** SET UP THE DELQMST STARTING CHARACTER POSITIONS FOR THE B3600340C QUEUE ASSIGNMENT PARAMETERS, IF NOT USED MUST BE ZERO (0) B36003501 B3600360C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600370 DATA QUEP / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36003801 B3600390C**** SET UP THE DELQMST PARAMETER LENGTH IN CHARACTERS MAX. = 6 B3600400C IF UNUSED MUST BE ZERO (0) B36004101 B3600420C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600430 DATA QUEL / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36004402 B3600450C**** SET UP THE STARTING CHARACTER POSITION8  3(-S IN DELQMST FILE FOR B3600460C THE PRIORITY ASSIGNMENT PARAMETERS, IF UNSED MUST BE ZERO (0) B36004701 B3600480C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600490 DATA PRIP / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36005001 B3600510C**** SET UP THE PRIORITY PARAMETER CHARACTER LENGTHS MAX. = 6 B3600520C IF UNUSED MUST BE ZERO (0) B36005301 B3600540C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600550 DATA PRIL / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36005601 B3600570C**** SET UP THE STARTING CHARACTER POSITIONS FOR THE MOST RECENT B3600580C PAYMENT AMOUNT AND PAYMENT DATE, USED FOR BROKEN PP'S B36005901 B3600600 DATA LDATE / 0 / , LAMT / 0 / B3600610. B3600620C ACCEPT LOGIN FROM ITOS B3600630 CALL PGMIN ( USER, LU, MODE, NPORT ) B36006401 B3600650C INITIALIZE VARIABLES B3600660 ASSEM $C000,FMRDEL,$6800,FDEL B3600670 CALL CCSBLK ( ASNREC, 920 ) B3600680 IOSW = $3030 B3600690 CALL UTHEAD ( HD, DT ) B3600700 DDATA(14) = NUMREC B3600710 M = 1 B36007202 B3600730C OPEN FILES FOR USE B3600740C************************************************************** 173*A032B3600750 CALL OPENFL(UTIREQ,UDATA,ISTAT) B3600760C CHECK FOR ERROR B3600770 IF(ISTAT.GE.0) GO TO 10 B3600780 CALL FILERR(UDATA,3,ISTAT,LU) B3600790 GO TO 900 B3600800C NO ERROR-RETRIEVE OLPM RECORD TO GET DELTA FACTOR FOR PP DATE PROCB3600810 10 CALL READR(UTIREQ,UTIREC,OLPM,ISTAT) B3600820C BE SURE CORRECT RECORD READ B3600830 IF(AND(ISTAT,$0200).EQ.$0200.OR.AND(ISTAT,$8100).EQ.$8100) B3600840 . GO TO 20 B3600850C RECORD WAS FOUND-CK FOR OTHER ERROR B3600860 IF(ISTAT.LT.0) GO TO 20 B3600870C RECORD FOUND - EVERYTHING OKAY SAVE LAG FACTOR B3600880 PPLAG = ICCSAD(UTIREC(6)) B3600890C PROCESSING COMPLETE-CLOSE FILE AND CONTINUE B3600900 CALL CLOSFL(UTIREQ,ISTAT) B3600910 GO TO 50 B3600920C ERROR IN READR OF UTIFIL B3600930 20 CALL FILERR(UDATA,13,ISTAT,LU)   3)- B3600940 GO TO 900 B36009501 B3600960 50 CALL OPENFL( DEQREQ, DDATA, ISTAT ) B3600970C************************************************************** 173*A032B3600980 IF (ISTAT.GE.0) GO TO 100 B3600990 CALL FILERR ( DDATA, 3, ISTAT, LU ) B3601000 GO TO 900 B3601010 100 CALL CLEAR ( ASNREQ, ADATA, ISTAT ) B3601020 IF (ISTAT.GE.0) GO TO 110 B3601030 CALL FILERR ( ADATA, 1, ISTAT, LU ) B3601040 GO TO 900 B3601050 110 CALL OPENFL ( ASNREQ, ADATA, ISTAT ) B3601060 IF (ISTAT.GE.0) GO TO 200 B3601070 CALL FILERR ( ADATA, 3, ISTAT, LU ) B3601080 GO TO 900 B3601090. B3601100C READ RECORDS FROM THE DELQMST AND PROCESS B3601110 200 CALL GETS ( DEQREQ, DEQREC, I, ISTAT ) B3601120C EOF? B3601130 IF (AND(ISTAT,$8100).EQ.$8100) GO TO 900 B3601140 IF (AND(ISTAT,$100).EQ.$100) EFG = 1 B3601150C FILE ERROR? B3601160 IF (ISTAT.GE.0) GO TO 210 B3601170 CALL FILERR ( DDATA, 14, ISTAT, LU ) B3601180 GO TO 900 B3601190 210 DO 300 I = 1 , NUMREC B3601200 L = 40*M - 39 B3601210 K = 1000*I-999 B3601220 J = 2*K-1 B3601230C RECORD PRESENT? B3601240 IF (DEQREC(K).EQ.$2020.OR. B3601250 1 DEQREC(K).EQ.FDEL) GO TO 300 B3601260C RECORD ACTIVE? B3601270 IF (AND(DEQREC(K+152),$FF).NE.$20) GO TO 220 B36012801 B3601290C GET THE MOST RECENT ACTIVITY B3601300 CALL VFYACF(DEQREC(K)) 01310C**************************************************************138*A023 B3601320 IOSW=$3031 B3601330C**************************************************************138*A023 B3601340 CALL GETACF ( STG, DEQREC(K+153), LTHACT, IOSW ) B36013502 B3601360C REASSIGN QUEUE ALLOWED? B3601370 IF (AND(DEQREC(K+146),$FF).NE.$20) GO TO 220 B36013801 B3601390. B3601400C**** SET UP THE PARAMETERS FOR QUEUE ASSIGNMENT : B3601410C - THE MOST RECENT ACTION CODE IS INq  3*- : STG(4) B3601420C - RESULT CODE IS IN : STG(5) B3601430C - CONTACT DATE STARTS IN : STG(1) B3601440C - THE SYSTEM DATE STARTS IN : DT(1) B36014503 B3601460C PARAMETER #1 B3601470 CALL CCSMVA ( DEQREC, QUEP(1)+J-1, QUEL(1), QUE, 1, 6 ) B36014801 B3601490C PARAMETER #2 B3601500 CALL CCSMVA ( DEQREC, QUEP(2)+J-1, QUEL(2), QUE, 7, 6 ) B36015101 B3601520C PARAMETER #3 B3601530 CALL CCSMVA ( DEQREC, QUEP(3)+J-1, QUEL(3), QUE, 13, 6 ) B36015401 B3601550C PARAMETER #4 B3601560 CALL CCSMVA ( DEQREC, QUEP(4)+J-1, QUEL(4), QUE, 19, 6 ) B36015701 B3601580C PARAMETER #5 B3601590 CALL CCSMVA ( DEQREC, QUEP(5)+J-1, QUEL(5), QUE, 25, 6 ) B36016001 B3601610C PARAMETER #6 B3601620 CALL CCSMVA ( DEQREC, QUEP(6)+J-1, QUEL(6), QUE, 31, 6 ) B36016301 B3601640C PARAMETER #7 B3601650 CALL CCSMVA ( DEQREC, QUEP(7)+J-1, QUEL(7), QUE, 37, 6 ) B36016601 B3601670C PARAMETER #8 B3601680 CALL CCSMVA ( DEQREC, QUEP(8)+J-1, QUEL(8), QUE, 43, 6 ) B36016901 B3601700C PARAMETER #9 B3601710 CALL CCSMVA ( DEQREC, QUEP(9)+J-1, QUEL(9), QUE, 49, 6 ) B3601720. B3601730C GET THE NEW QUEUE B3601740 CALL FTNDT1 ( QUE, NQUE ) B3601750C NEW QUEUE? B3601760 IF (NQUE(1).EQ.DEQREC(K+135).AND. B3601770 1 NQUE(2).EQ.DEQREC(K+136)) GO TO 220 B3601780C QUEUE RETURN SUCCESSFUL? B3601790 IF (NQUE(1).EQ.$3939.AND. B3601800 1 NQUE(2).EQ.$3939) GO TO 220 B3601810C SAVE OLD QUEUE , DATE , AND NEW QUEUE B3601820 CALL CCSMVA ( DEQREC, J+270, 4, DEQREC, J+295, 4 ) B3601830 CALL CCSMVA ( DT, 1, 6, DEQREC, J+299, 6 ) B3601840 CALL CCSMVA ( NQUE, 1, 4, DEQREC, J+270, 4 ) B36018502 B3601860C GET THE NEW PRIORITY B3601870 220 CONTINUE B3601880. B3601890C**** SET UP THE PARAMETERS FOR THE PRIORITY;  3+- ASSIGNMENT - B3601900C - THE MOST RECENT ACTION CODE IS IN : STG(4) B3601910C - RESULT CODE IS IN : STG(5) B3601920C - CONTACT DATE STARTS IN : STG (1) B3601930C - THE SYSTEM DATE STARTS IN : DT(1) B36019402 B3601950C PARAMETER #1 B3601960 CALL CCSMVA ( DEQREC, PRIP(1)+J-1, PRIL(1), PRI, 1, 6 ) B36019701 B3601980C PARAMETER #2 B3601990 CALL CCSMVA ( DEQREC, PRIP(2)+J-1, PRIL(2), PRI, 7, 6 ) B36020001 B3602010C PARAMETER #3 B3602020 CALL CCSMVA ( DEQREC, PRIP(3)+J-1, PRIL(3), PRI, 13, 6 ) B36020301 B3602040C PARAMETER #4 B3602050 CALL CCSMVA ( DEQREC, PRIP(4)+J-1, PRIL(4), PRI, 19, 6 ) B36020601 B3602070C PARAMETER #5 B3602080 CALL CCSMVA ( DEQREC, PRIP(5)+J-1, PRIL(5), PRI, 25, 6 ) B36020901 B3602100C PARAMETER #6 B3602110 CALL CCSMVA ( DEQREC, PRIP(6)+J-1, PRIL(6), PRI, 31, 6 ) B36021201 B3602130C PARAMETER #7 B3602140 CALL CCSMVA ( DEQREC, PRIP(7)+J-1, PRIL(7), PRI, 37, 6 ) B36021501 B3602160C PARAMETER #8 B3602170 CALL CCSMVA ( DEQREC, PRIP(8)+J-1, PRIL(8), PRI, 43, 6 ) B36021801 B3602190C PARAMETER #9 B3602200 CALL CCSMVA ( DEQREC, PRIP(9)+J-1, PRIL(9), PRI, 49, 6 ) B3602210. B3602220 CALL FTNDT1 ( PRI, NPRI ) B3602230C PRIORITY RETURN SUCCESSFUL? B3602240 IF (NPRI(1).EQ.$3939.AND. B3602250 1 NPRI(2) .EQ. $3939 ) GO TO 225 B3602260C SAVE THE NEW PRIORITY B3602270 CALL CCSMVA ( NPRI, 1, 4, DEQREC, J+280, 4 ) B36022801 B3602290C IS THIS ACCOUNT A PROMISE TO PAY? B3602300 225 IF ( AND(DEQREC(K+142),$FF00) .NE. $5900 ) GO TO 230 B36023101 B3602320C************************************************************** 173*A032B3602330C CHECK IF PROMISE DUE TO BE CHECKED (SYSTEM DATE EQUAL OR B3602340C PAST PROMISE TO PAY DATE + LAG FROM UTIFIL B3602350C ADD LAG FACTOR FROM UTIFIL OBTAINED ABOVE TO PROMISE TO PAY B3602360C DATE TO SEE OF PP IS BROKEN OR NOT B3602370C MOVE PP DATE TO WORK AREA B  3,- B3602380 CALL CCSMVA(DEQREC,J+1015,6,PPDATE,1,6) B3602390 IK = ICALJL(PPDATE,1) B3602400 IK = IK + PPLAG B3602410 IF(IK.LE.365)GO TO 2250 B3602420C YEAR HAS TURNED OVER-CONVERT THE DATE B3602430 PPDATE(3) = PPDATE(3) + 1 B3602440 IF(AND(PPDATE(3),$FF).GT.$39) B3602450 . PPDATE(3) = PPDATE(3) + $F6 B3602460C CONVERT THE DATE BACK B3602470 2250 CALL JULCAL(IK,PPDATE,1) B3602480C PP DATE IS READY TO BE CHECKED B3602490 CALL CCSCST( DT, 5, 2, PPDATE, 5, 2, ICOMP) B3602500C************************************************************** 173*A032B3602510C NOT DUE CHK FURTHER DUE B3602520 IF(ICOMP) 230, 2251, 2252 B36025301 B3602540C YEARS EQUAL CHECK MONTH AND DAY B3602550C************************************************************** 173*A032B3602560 2251 CALL CCSCST( DT, 1, 4, PPDATE, 1, 4, ICOMP ) B3602570C TODAYS DATE MUST BE EQUAL OR PAST PROMISE TO PAY DATE(PLUS LAG) B3602580C FOR CHECK B3602590C************************************************************** 173*A032B3602600 IF (ICOMP .LT. 0) GO TO 230 B36026101 B3602620C PROMISE DUE TO BE CHECKED. SEE IF LAST PAYMENT AMOUNT B3602630C CLEARS PROMISED AMOUNT. B3602640 2252 CALL CCSCST ( DEQREC, J+LAMT-1, 9, DEQREC, J+1021, 9, ICOMP) B3602650 IF(ICOMP .LT. 0) GO TO 224 B36026601 B3602670C LAST PAYMENT CLEARS PROMISE. VERIFY PAYMENT RECEIVED B3602680C AFTER COMMITMENT DATE. B3602690C************************************************************** 173*A018B3602700 CALL CCSCST (DEQREC, J+LDATE+3, 2, DEQREC, J+1044, 2, ICOMP) B3602710C************************************************************** 173*A018B3602720C BEFORE CHK FURTHER AFTER B3602730 IF(ICOMP) 224, 2253, 2254 B36027401 B3602750C YEARS EQUAL, CHECK MONTH AND DAY B3602760 2253 CALL CCSCST ( DEQREC, J+LDATE-1, 4, DEQREC, J+1040, 4, ICOMP) B3602770C PAYMENT DATE MUST BE PAST COMMITTMENT DATE FOR KEPT PROMISE. B3602780 IF( ICOMP .LT. 0 ) GO TO 224 B3602790C**************************************************************138*A018 B36028002 B3602810C PROMISE KEPT, INCREMENT THE KEPT COUNT B3602820C**************************************************************138*A018 B3602830 2254 DEQREC(K+518) = AND(DEQREC(K+518),$FF0F) + $31 B3602840C**************************************************************138*A018 B3602850 IF ( AND(DEQREC(K+518),$FF) .GT. $39 )  3-. B3602860 1 DEQREC(K+518) = AND(DEQREC(K+518),$FFF) + $30F6 B3602870C INCREMENT THE NEXT CONTACT DATE 7 DAYS B3602880 IK = ICALJL ( DEQREC, J+274 ) B3602890 IK = IK + 7 B3602900 IF ( IK .LE. 365 ) GO TO 222 B3602910 DEQREC(K+139) = DEQREC(K+139) + 1 B3602920 IF ( AND(DEQREC(K+139),$FF) .GT. $39 ) B3602930 1 DEQREC(K+139) = DEQREC(K+139) + $F6 B3602940 222 CALL JULCAL ( IK, DEQREC, J+274 ) B3602950C CLEAR THE PROMISED TO PAY FLAG B3602960 CALL CCSPUT ( $4B, J+284, DEQREC ) B3602970 GO TO 230 B36029801 B36029901 B3603000C PROMISE BROKEN, INCREMENT THE BROKEN COUNT B3603010 224 DEQREC(K+519) = AND(DEQREC(K+519),$FF0F) + $31 B3603020 IF ( AND(DEQREC(K+519),$FF) .GT. $39 ) B3603030 1 DEQREC(K+519) = AND(DEQREC(K+519),$FFF) + $30F6 B3603040C SET THE PROMISED TO PAY FLAG TO BROKEN B3603050 CALL CCSPUT ( $42, J+284, DEQREC ) B3603060. B3603070C BUILD THE DLYASSN RECORD - ACCT #, QUEUE, NEXTCD, PRIORITY B3603080 230 CALL CCSMVA ( DEQREC, J, 16, ASNREC, L, 16) B3603090 CALL CCSMVA ( DEQREC, J+270, 14, ASNREC, L+16, 14 ) B36031002 B3603110C**** IF ADDITIONAL FIELDS ARE REQUIRED IN THE DLYASSN RECORD, B3603120C THEY SHOULD BE MOVED IN AT THIS POINT B36031302 B3603140 M = M + 1 B3603150 300 CONTINUE B36031601 B3603170C SAVE THE DLYASSN RECORD B3603180 M = M - 1 B3603190 IF ( M .EQ. 0 ) GO TO 310 B3603200 CALL PUTS ( ASNREQ, ASNREC, M, ISTAT ) B3603210 IF (ISTAT.GE.0) GO TO 305 B3603220 CALL FILERR ( ADATA, 11, ISTAT, LU ) B3603230 GO TO 900 B3603240C UPDATE THE RECORDS IN THE DELQMST FILE B3603250 305 CALL UPDREC ( DEQREQ, DEQREC, ISTAT ) B3603260C FILE ERROR? B3603270 IF (ISTAT.GE.0) GO TO 310 B3603280 CALL FILERR ( DDATA, 15, ISTAT, LU ) B3603290 GO TO 900 B3603300C BLANK OUT THE DELQ BUFFER AND CONTINUE B3603310 310 CALL CCSBLK ( DEQREC, 30000 ) B3603320 CALL CCSBLK ( DEQREC(15001), 14000 ) B3603330 CALL CCSBLK ( ASNREC, 920 )   3..$ B3603340 M = 1 B3603350 IF (EFG.EQ.0) GO TO 200 B36033601 B3603370C CLOSE THE FILES AND STOP B3603380 900 CALL CLOSFL ( DEQREQ, ISTAT ) B3603390 CALL CLOSFL ( ASNREQ, ISTAT ) B3603400 CALL PGMOUT B3603410 END B3603420 SUBROUTINE R9BASE C1203430 1 /C12 F CCS CCS 3.0 SL-149C1203440C C1203450C CYBERCREDIT SYSTEM VERSION 3 C1203460C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1203470C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1203480C C1203490 RETURN C1203500 END C1203510 SUBROUTINE R9FLDL C1303520 1 /C13 F CCS CCS 3.0 SL-149C1303530C C1303540C CYBERCREDIT SYSTEM VERSION 3 C1303550C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1303560C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1303570C C1303580 RETURN C1303590 END C1303600_ z  3/.8  30.L  31.` ! CCSHXA ABF3 A07 A CCS CCS 3.0 SL-149 AL.jS CCS20 IN  *K,I8 00010H DTLLST00020X 1 D05 R CCS CCS 3.0 SL-149 0046000030F* D05 R CCS CCS 3.0 SL-149 0047000040F* 0048000050F* CYBERCREDIT SYSTEM VERSION 3 0049000060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 0050000070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 0051000080F* 0052000090F* 00100FDUMMY IP F 80 DISK 00110FCOSIGNERIC F 362R16AI 1 DISK 00120FSREQDL ID F 20 DISK 00130F* 00140F* COPYRIGHT CONTROL DATA CORPORATION, 1978 00150F* DATA SYSTEM-LA JOLLA DIVISION, LAJOLLA, CALIFORNIA 00160F* CREDIT COLLECTION SYSTEM VERSION 2.0 00170F* 00180FINACCT UD F 24 DISK 00190FACTFIL ID F 500 18AI 1 DISK 00200FDELQMST IC F 2000R16AI 1 DISK 00210FUTIFIL IC F 80R 4AI 1 DISK 00220FPRINT O F 132 OV PRINTER  32.t 00230E STG 38 2 00240E OBLK 482 1 00250E CMT 30 2 00260E HDR 3 40 00270IDUMMY CC 01 00280I 1 80 DUM 00290ICOSIGNERBB 02 00300I 1 1 CACTFG 00310I 2 16 CACCT 00320I 1 16 CACC 00330I 17 17 CINIT 00340I 18 180CSLC1 00350I 19 190C1FG 00360I 20 49 CN1 00370I 50 79 CA1 00380I 80 99 CS1 00390I 100 1040CZ1 00400I 105 1180CH1 00410I 105 105 H1 00420I 105 118 CH11 00430I 119 1320CB1 00440I 119 119 B1 00450I 119 132 CB11 00460I 133 1330CSLC2 00470I 134 1340C2FG 00480I 135 164 CN2 00490I 165 194 CA2 00500I 195 214 CS2 00510I 215 2190CZ2 00520I 220 2330CH2 00530I 220 220 H2 00540I 220 233 CH21 00550I 234 2470CB2 00560I 234 234 B2 00570I 234 247 CB21 00580I 248 2480CSLC3 00590I 249 2490C3FG 00600I 250 279 CN3 00610I 280 309 CA3 00620I 310 329 CS3 00630I 330 3340CZ3 00640I 335 3480CH3 00650I 335 335 H3 00660I 335 348 CH31 00670I 349 3620CB3 00680I 349 349 B3 00690I 349 362 CB31 00700ISREQDL GG 03  33. 00710I 1 16 EACT 00720I 17 20 SUPID 00730IINACCT EE 04 00740I 1 16 EACT 00750I 18 18 PFLAG 00760IACTFIL FF 06 00770I 1 16 ACT 00780I 19 500 OBLK 00790I* CCS MASTER FILE DESCRIPTION INPUT 00800IDELQMST AA 10 00810I 1 1 MACTFG 00820I 2 16 MACCT 00830I 1 16 MACC 00840I 17 170MSLCD 00850I 18 47 MNAM 00860I 48 77 MADR1 00870I 78 107 MADR2 00880I 108 127 MCS 00890I 128 132 MZP 00900I 133 133 H 00910I 133 1420MPHN 00920I 133 142 MPHN1 00930I 143 146 MEXT 00940I 147 176 MBNM 00950I 177 206 MBAD 00960I 207 226 MBCS 00970I 227 231 MBZP 00980I 232 232 B 00990I 232 2410MBPH 01000I 232 241 MBPH1 01010I 242 245 MBEX 01020I 246 261 MADL 01030I 262 2700MSOC 01040I 271 274 MQUE 01050I 275 2800MPRID 01060I 281 284 MPRIC 01070I 285 285 MPFG 01080I 286 2860MBFG 01090I 287 290 MSUP 01100I 291 295 MOLS 01110I 296 299 MPQU 01120I 300 3050MPDQ 01130I 306 306 MSTC 01140I 667 696 MP1 01150I 697 726 MP2 01160I 727 756 MP3 01170I 757 786 MPAD1 01180I 787  34.816 MPAD2 01190I 817 836 MPCS 01200I 837 841 MPZC 01210I 842 8470MLLDT 01220I 848 8562MLLAT 01230I 857 8620MSTDT 01240I 863 8680MUPDT 01250I 869 8740MCCDT 01260I 875 8800MDLDT 01270I 881 8860MOPDT 01280I 887 8952MADLQ 01290I 896 9042MCBAL 01300I 905 9132MPYOF 01310I 914 9190MCPGD 01320I 920 9282MNPA 01330I 929 9372MOAMT 01340I 938 9380MCMN 01350I 939 946 MTP 01360I 947 9490MPTS 01370I 950 954 MBBR 01380I 955 962 MLON 01390I 963 966 MTCD 01400I 967 9680MTD3 01410I 969 9700MTD6 01420I 971 9720MTD9 01430I 9731012 MSDF 01440I 101310150MDYDL 01450I 101610210MPPD 01460I 102210302MPPA 01470I 103110360MTLB 01480I 10371038 MPPK 01490I 10391040 MPPB 01500I 104110460MPPCD 01510IUTIFIL AA 31 01520I 5 44 HEADER 01530C***** SETUP REPORT HEADINGS 01540C 46 GOTO AROUND 01550C 'HDR1' CHAINUTIFIL 32 01560C N32 MOVE HEADER HDR,1 01570C 'HDR2' CHAINUTIFIL 32 01580C N32 MOVE HEADER HDR,2 01590C 'HDR3' CHAINUTIFIL 32 01600C N32 MOVE HEADER HDR,3 01610C MOVE '0482' LTH 4 01620C MOVE '01' OSW 2 01630C AROUND TAG 01640C START TAG 01650C SETON 46 01660C SETOF   35. 010203 01670C SETOF 040506 01680C SETOF 101222 01690C SETOF 313216 01700C SETOF 818283 01710C SETOF 848586 01720C SETOF 878811 01730C RDACT TAG 01740C SETOF 1304 01750C U1 READ INACCT 12 01760C U1N12 PFLAG COMP 'P' 13 01770C U1N12N13 MOVE 'P' PFLAG 01780C U1N12 13 GOTO RDACT 01790C U2 READ SREQDL 12 01800C 12 GOTO END 01810C EACT CHAINDELQMST 22 01820C N22 H COMP '0' 81 01830C N22 B COMP '0' 82 01840C 22 GOTO ERROR 01850C EACT CHAINCOSIGNER 05 01860C N05 H1 COMP '0' 83 01870C N05 B1 COMP '0' 84 01880C N05 H2 COMP '0' 85 01890C N05 B2 COMP '0' 86 01900C N05 H3 COMP '0' 87 01910C N05 B3 COMP '0' 88 01920C EXCPT 01930C U1N12N13 01940COR U2 SETON 16 01950C* SET BOUNDS FOR LOCATING ACTIVITY INFORMATION 01960C 16 MOVE EACT SACT 16 01970C SETOF 0410 01980C 16 MOVELSACT LACCT 18 01990C 16 MOVE ' ' LACCT 02000C 16 LACCT SETLLACTFIL 02010C GETBLK TAG 02020C SETOF 110614 02030C READ ACTFIL 11 02040C 11 GOTO START 02050C N11 ACT COMP SACT 1111 02060C 11 GOTO START 02070C GETACT TAG 02080C MOVE '00' OSW 02090C EXIT GETACR 02100C RLABL STG 02110C RLABL OBLK 02120C RLABL LTH 02130C RLABL OSW 02140C OSW COMP '01' R  36. 14 02150C 14 GOTO GETBLK 02160C Z-ADD1 I 20 0213002170C Z-ADD9 J 20 0214002180C MOVES TAG 0215002190C MOVEASTG,J CMT,I 0216002200C I ADD 1 I 0217002210C J ADD 1 J 0218002220C I COMP 30 31 0219002230C N31 GOTO MOVES 0220002240C OV SETON 46 02250C N14 EXCPT 02260C N14 SETOF 46 02270C N14 GOTO GETACT 02280C ERROR TAG 02290C SETOF 100708 02300C SETON 70 02310C EXCPT 02320C SETOF 70 02330C GOTO START 02340C END TAG 02350C SETON LR 02360OINACCT E 04N13 02370O PFLAG 18 02380OPRINT E 101 10 46 02390O HDR,1 41 02400O 67 'DELINQUENT RECORD' 02410O 76 'CONTENTS' 02420O 03 103 'SUPERVISOR:' 02430O 03SUPID 108 02440O 128 'PAGE' 02450O PAGE Z 132 02460O E 1 10 46 02470O HDR,2 41 02480O 61 'AS OF' 02490O UDATE Y 70 02500O E 1 10 46 02510O HDR,3 41 02520O E 1 10 02530O 13 'ACCOUNT' 02540O 39 'ADDITIONAL' 02550O 49 'BANK' 02560O 57 'LOAN' 02570O 71 'AMOUNT TO' 02580O 80 'DELQ' 02590O 102 'LAST LETTER SENT' 02600O 113 'ASSIGNED' 02610O 118 'CR.' 02620O 132 'OPE  37.N AMOUNT' 02630O E 1 10 02640O 11 'NO.' 02650O 40 'ACCOUNT NO.' 02660O 49 'BR.' 02670O 59 'OFFICER' 02680O 70 'COLLECT' 02690O 80 'DATE' 02700O 89 'DATE' 02710O 103 'AMOUNT' 02720O 111 'QUEUE' 02730O 118 'PTS' 02740O 132 'OR CR LIMIT' 02750O E 1 10 02760O MACC 17 02770O MADL 42 02780O MBBR 49 02790O MLON 59 02800O MADLQ L 72 02810O MDLDT 82 ' / / ' 02820O MLLDT 92 ' / / ' 02830O MLLAT L 104 02840O MQUE 111 02850O MPTS 118 02860O MOAMT L 132 02870O E 2 10 02880O 5 'NAME' 02890O MNAM 48 02900O 66 'SALUTATION CODE' 02910O MSLCD 68 02920O 98 'BUSINESS NAME' 02930O MBNM 132 02940O E 1 10 02950O 10 'ADDRESS 1' 02960O MADR1 48 02970O 70 'SOCIAL SECURITY NO.' 02980O MSOC 82 ' - - ' 02990O 96 'ST. ADDRESS' 03000O MBAD 132 03010O E 1 10 03020O 10 'ADDRESS 2' 03030O MADR2 48 03040O 67 'NO. OF COSIGNERS' 03050O MCMN 69 03060O 99 'CITY/STATE/ZIP' 03070O MBCS 122 03080O MBZP 132 03090O E 1 10 03100O 15 'CITc  38.Y/STATE/ZIP' 03110O MCS 38 03120O MZP 48 03130O 62 'HOME PHONE:' 03140O N81MPHN 75 ' - - ' 03150O N81 76 '-' 03160O MEXT 80 03170O 81MPHN1 77 03180O 100 'BUSINESS PHONE:' 03190O N82MBPH 114 ' - - ' 03200O N82 115 '-' 03210O MBEX 119 03220O 82MBPH1 116 03230O E 2 10 03240O 12 'PRIORITY' 03250O 21 'TYPE' 03260O 34 'TIMES DELQ' 03270O 40 'PP' 03280O 46 'PP' 03290O 53 'PP' 03300O 65 'PROMISED' 03310O 78 'PROMISED TO' 03320O 100 'PREVIOUS ADDRESS 1' 03330O MPAD1 132 03340O E 1 10 03350O 7 'DATE' 03360O 14 'CODE' 03370O 21 'CODE' 03380O 34 '30 60 90' 03390O 41 'FLAG' 03400O 47 'KEPT' 03410O 55 'BROKEN' 03420O 65 'PAY DATE' 03430O 78 'PAY AMOUNT' 03440O 100 'PREVIOUS ADDRESS 2' 03450O MPAD2 132 03460O E 1 10 03470O MPRID 9 ' / / ' 03480O MPRIC 14 03490O MTCD 21 03500O MTD3 26 03510O MTD6 30 03520O MTD9 34 03530O MPFG 40 03540O MPPK 46 03550O MPPB 53 03560O MPPD 65 ' / / ' 03570O MPPA L 78 03580O 96 'CIT{  39/Y/STATE/ZIP' 03590O MPCS 122 03600O MPZC 132 03610O E 2 10 03620O 10 'CURRENT' 03630O 24 'CURRENT' 03640O 43 'CURRENT PAYOFF' 03650O 57 'NEXT PAYOFF' 03660O 69 'SUPERVISOR' 03670O 78 'ARCHIVE' 03680O 101 '* * S P E C I A L' 03690O 127 'I N S T R U C T I O N S' 03700O 132 '* *' 03710O E 1 10 03720O 10 'BALANCE' 03730O 23 'PAYOFF' 03740O 43 'EFFECTIVE DATE' 03750O 54 'AMOUNT' 03760O 66 'I.D.' 03770O 80 'TAPE DATE' 03780O E 1 10 03790O MCBAL L 12 03800O MPYOF L 26 03810O MCPGD 39 ' / / ' 03820O MNPA L 57 03830O MSUP 66 03840O MTLB 80 ' / / ' 03850O MSDF 128 03860O E 2 10 03870O 8 'STATUS' 03880O 17 'STATUS' 03890O 25 'OPEN' 03900O 37 'DATE 1ST' 03910O 44 'LAST' 03920O 54 'QUEUE' 03930O 83 '* * * * * *' 03940O 102 'P E R M A N E N T' 03950O 119 'C O M M E N T' 03960O 132 '* * * * * *' 03970O E 1 10 03980O 7 'DATE' 03990O 16 'CODE' 04000O 25 'DATE' 04010O 36 'IN CCS' 04020O 44 'QUEUE' 04030O 57 'CHANGE DATE' 04040O 68 'BY LEGAL' 04050O MP1 117 04060O E 1 10 ԩ  3:/ 04070O MSTDT 9 ' / / ' 04080O MSTC 15 04090O MOPDT 27 ' / / ' 04100O MCCDT 37 ' / / ' 04110O MPQU 44 04120O MPDQ 55 ' / / ' 04130O MUPDT 68 ' / / ' 04140O MP2 117 04150O E 1 10 04160O MP3 117 04170O E 2 10N05 04180O 18 'C O S I G N E R S' 04190O 27 'N A M E' 04200O 44 'S T R E E T' 04210O 60 'A D D R E S S' 04220O 84 'C I T Y / S T A T E' 04230O 91 'Z I P' 04240O 111 'H O M E P H O N E' 04250O 132 'B U S . P H O N E' 04260O E 1 10N05 04270O CN1 31 04280O CA1 63 04290O CS1 85 04300O CZ1 91 04310O N83CH1 110 ' - - - ' 04320O 83CH11 107 04330O N84CB1 132 ' - - - ' 04340O 84CB11 129 04350O E 1 10N05 04360O CN2 31 04370O CA2 63 04380O CS2 85 04390O CZ2 91 04400O N85CH2 110 ' - - - ' 04410O 85CH21 107 04420O N86CB2 132 ' - - - ' 04430O 86CB21 129 04440O E 1 10N05 04450O CN3 31 04460O CA3 63 04470O CS3 85 04480O CZ3 91 04490O N87CH3 110 ' - - - ' 04500O 87CH31 107 04510O N88CB3 132 ' - - - ' 04520O 88CB31 129 04530OPRINT E 101 16 46 04540O HDR,1 41 gS  3;/( 04550O 75 'COLLECTOR ACTIVITIES' 04560O 03 103 'SUPERVISOR' 04570O 03SUPID 108 04580O 128 'PAGE' 04590O PAGE Z 132 04600O E 1 16 46 04610O HDR,2 41 04620O 63 'AS OF' 04630O UDATE Y 72 04640O E 1 16 46 04650O HDR,3 41 04660O E 1 16 46 04670O 13 'ACCOUNT' 04680O 35 'CONTACT' 04690O 43 'ACTION' 04700O 51 'RESULT' 04710O 59 'LETTER' 04720O 70 'COLLECTOR' 04730O 87 '* * * * * * * *' 04740O 111 'C O M M E N T S' 04750O 132 '* * * * * * * * * *' 04760O E 11 16 46 04770O 11 'NO.' 04780O 33 'DATE' 04790O 42 'CODE' 04800O 50 'CODE' 04810O 58 'CODE' 04820O 68 'I. D.' 04830O E 1 06N14 04840O SACT 17 04850O STG,1 29 04860O 30 '/' 04870O STG,2 32 04880O 33 '/' 04890O STG,3 35 04900O STG,4 41 04910O STG,5 49 04920O STG,6 57 04930O STG,7 65 04940O STG,8 67 04950O CMT 132 04960O E 103 70 04970O 10 'ERROR' 04980O 22 28 'ACCOUNT NO.' 04990O 22 EACT 45 05000O 22 57 'NOT ON FILE' 05010OPRINT T 3 LR 05020O 75 '***  3</<* END OF REPORT ****' /* 005030_ #B  3=/P  3>/d ϱ  3?/x Ϝ  3@/ χ  3A-&ALr-&S $$ B3602170 CALL CCSMVA ( DEQREC, PRIP(8)+J-1, PRIL(8), PRI, 43, 6 ) B36021801 00010 *********** STATUS OF THE SYSTEM AS SHIPPED 06/81 ********** 00020 * * 00030 * C Y B E R C R E D I T S Y S T E M CCS3.0-1 * 00040 * * 00050 * ****** MODIFICATIONS COMPLETED 03/82 ******** * 00060 * * 00070 *************************************************************** 00080 00090 ALL THE CHANGES FOR SIM109 ARE INCLUDED ON THE SYSTEM AS WELL 00100 AS ALL OTHER POST 109 PSR FIXES. 00110 00120 THE FOLLOWING IS A LIST OF THE PROGRAMS UPDATED: 00130 00140 ACTADD --- 00150 CCSADD --- 00160 CCSDMP --- POST 109 FILE RRN # 00170 CCSEAC --- 00180 CHNGNF ___ 00190 CHSCRN --- 00200 CHUPD2 --- 00210 CPYIND --- 00220 DACRTE --- 00230 DHUPDT --- 00240 DISPLY --- 00250 EACTSQ --- 00260 EATRNG --- 00270 EDIT --- 00280 LTRPNT --- PSR 0007 00290 LTRPRT --- PSR 0002,A031,A037,A034,0010,A041,A042 00300 MHUPDT --- 00310 PGGEN --- PSR A044,A045 00320 PGGEN1 --- 00330 PGGN2E -- 00340 PRTSCN --- 00350 QLOAD --- 00360 REACIT --- 00370 SUMACL --- 00380 TIMUSE --- 00390 TRENDF --- 00400 TRNPLY --- 00410 UPDATE.B --- PSR A029,A035,A014,0008 00420 00430 THE LATEST VERSION OF EDTLP HAS BEEN INSTALLED 00440 00450 THE COMMERCIAL FIRMWARE INSTRUCTION SET Hcw  3B-:AS BEEN INSTALLED 00460 TO FIX DML & STRING COMPARE. 00470 00480 THE FOLLOWING PATCHES HAVE BEEN INSTALLED: 00490 LHC,2A5E,7DD/1E,28 (OLD= 0,A) PSR CY30003 (RESPONSE TIME) 00500 LHM,,12C8,73/C20A (OLD=C00A) PSR CY3A025 (OPENFL) 00510 LHM,,10,4A4E/180F (OLD=18DF) PSR CY3A037 (50MB TO 180MB CONF) 00520 00530 ALL DEBUG PATCHES - CCS3.0 SL149+ 12-21-81 HAVE BEEN INSTALLED, 00540 INCLUDING THE 722 VIKING PATCH. 00550 00560 THEY ARE CONTAINED IN THE FILE 109PATCH, UNDER $$, USERID. 00570 DO NOT SEQUENCE THIS FILE. IT CAN BE LISTED TO TAPE 00580 AND READ IN VIA.. CCSDB. 00590 00600 ADDITIIONALLY PROGRAMS RSWCHG & REBILD HAVE BEEN INSTALLED 00610 ON THE SYSTEM AND PROCEDURE PRFDC010 HAS BEEN MODIFIED TO 00620 RUN RSWCHG AFTER NMCHNG. 00630 00640 00650***************************************************************************00660 00670 *********** STATUS OF THE SYSTEM AS OF 05/12/82 ********** 00680 * * 00690 * C Y B E R C R E D I T S Y S T E M CCS3.0-2 * 00700 * * 00710 * ****** MODIFICATIONS COMPLETED 05/82 ******** * 00720 * * 00730 *************************************************************** 00740 00750 THE FOLLOWING IS A LIST OF THE PROGRAMS UPDATED: 00760 * THESE PROGRAMS CHANGES APPLY TO 3.0 - 2 SYSTEM 00770 NOT FOUND IN 3.0 - 1 SYSTEM. 00780 00790 ACTADD --- PSR 0010,A028 00800 CCSADD --- PSR A010 00810 CCSDMP --- PSR A027 AND ADDITION OF FILE RRN# 00820 CCSEAC --- PSR A010 00830 CHNGNF ___ PSR A081 00840 CHSCRN --- PSR A026 00850 CHUPD2 --- PSR 0016,A078 00860 *COLCHG --- PSR 0006 00870 *COLSTS --- PSR 0001 00880 *CONUPD --- PSR A014 00890 CPYIND --- PSR A019 00900 DACRTE --- PSR A018,A032 00910 DHUPDT --- PSR A012,A078 00920 DISPLY --- PSR A009 00930 EACTSQ --- PSR 0028 e  3C-N 00940 EATRNG --- PSR 0023 00950 EDIT --- PSR A009,A010 00960 *FILERR --- REWRITTEN TO STOP AFTER DISPLAY OF FILE MANAGER 00970 ERROR TO GIVE OPERATOR OPTION OF CONTINUING. 00980 *GETMAS --- CHANGE TO DISPLAY ACCOUNT NO. OF LOCKED RECORD. 00990 *ITKDAC --- PSR A032 01000 LTPRNT --- PSR 0007 01010 LTRPRT --- PSR 0002,0010,0040,A031,A041,A042 01020 MHUPDT --- PSR 0016 01030 PGGEN --- PSR A044,A045 01040 PGGEN1 --- PSR A040 01050 PGGN2E --- PSR A044,A045,A079,A085 01060 PRETSR --- THIS PROGRAM HAS BEEN CHANGED BACK TO ITS ORIGI- 01070 NAL STATE (WITHOUT THE PSR A016 CHANGES) 01080 PRTSCN --- PSR A021 01090 QLOAD --- PSR A001 01100 REACIT --- PSR 0008,A087, AND BLANK OUT QUEUE ASSIGN WAS 01110 ADDED 01120 SUMACL --- PSR A011 01130 SUMHD --- PSR 0034 01140 *TIMUSE --- THIS PROGRAM HAS BEEN CHANGED BACK TO ITS ORIGI- 01150 NAL STATE. (WITHOUT PSR 0016 CHANGES) 01160 TRENDF --- PSR A043,A046 01170 TRNPLY --- PSR 0022,A020 01180 *UPDMAC --- PSR A029 01190 *WRTOFE --- PSR 0019 01200 01210 THE SORTS IN PRFDC001 AND PRFDC003 HAVE BEEN CHANGED TO SORT ON 01220 THE ORIGINAL KEY FIELDS BECAUSE OF THE CHANGES MADE TO PRETSR 01230 AND TIMUSE PROGRAMS. THE ACTMTN PROGRAM WHICH REPORTED THE 01240 ACTIVITY BLOCKS HAS BEEN REMOVED FROM PROCEDURE PRFDC003. 01250 01260***************************************************************************01270 01280 *********** STATUS OF THE SYSTEM AS OF 07/27/82 ********** 01290 * * 01300 * C Y B E R C R E D I T S Y S T E M CCS3.0-3 * 01310 * * 01320 * ****** MODIFICATIONS COMPLETED 05/82 ****** * 01330 * * 01340 *************************************************************** 01350 01360 THE FOLLOWING IS A LIST OF THE PROGRAMS UPDATED: 01370 01380 COLECT --- CORRECTED TO DISPLAY MORE THAN 50 NEW ACTIVITY 01390 BLOCKS 01400 LODFIL --- CHANGED TO REPORT DUPLICATE ACCOUNT NUMBERS 01410 RSWCHG --- THE MESSAGE THAT STATUS   3D-bCODE IS NOT ON THE 01420 SUPERVISOR SCREEN HAS BEEN REMOVED, SO AS NOT 01430 TO CONFUSE THE CUSTOMER 01440 USEMTN --- CHANGED TO EXECUTE FROM ANY TERMINAL WITH A 01450 CCS20 USER I.D. 01460 DTLLST --- CORRECTED TO PRINT MORE THAN 50 NEW BLOCKS OF 01470 DATA FROM THE ACTIVITY FILE AND THE DO LOOP IS 01480 USED INSTEAD OF ALL OF THE MOVEA STRINGS. 01490 LDTLST --- SEE ABOVE DATA. 01500 01510 UTILITY PROGRAMS FIXINA AND REBILD HAVE BEEN INSTALLED ON THE 01520 SYSTEM. 01530 01540***************************************************************************01550 01560 *********** STATUS OF THE SYSTEM AS SHIPPED 11/82 ********** 01570 * * 01580 * C Y B E R C R E D I T S Y S T E M CCS3.0-4 * 01590 * * 01600 * ****** MODIFICATIONS COMPLETED 11/82 ******** * 01610 * * 01620 *************************************************************** 01630 01640 SYSTEM AS OF 11/03/82 01650 01660 01670 THE FOLLOWING PROGRAMS HAVE BEEN UPDATED. 01680 01690 CCSDMP --- PSR A027 & TO HANDLE 2 WORD RRN# & LOCKED RECORDS 01700 COLECT --- DISPLAY ALL ACTIVITY & NOT LOCK RECORD IF TRAINEE 01710 DACRTE --- PSR A018,A032 SL-173 01720 DHUPDT --- PSR A012,A078 & TO HANDLE ZEROED HOME PHONE # 01730 GETMAS --- CHANGE TO DISPLAY ACCT # & NAME OF LOCKED RECORD. 01740 LODFIL --- HANDLE DUPLICATE RECORDS W/WTREAD TO PRINTER 01750 LTPRNT --- PSR 0007 TO TERMINAL IF NOT MASTER CONSOLE 01760 TRENDF --- PSR A043,A046- REWRITTEN TO HANDLE RECORD BLOCKING 01770 & TO BUILD RSWFIL IF BUILDING ACCAGE ALSO 01780 IT DOES NOT DELETE RECORDS OR COMPRESS ACCAGE. 01790 VFYACF --- SUBROUTINE TO VERIFY ON LINE ACTIVITY BLOCK ADDED. 01800 ADD TO DACRTE : CALL VFYACF(DEQREC(K)) 01810 RIGHT AFTER CHECK IF RECORD ACTIVE ! 01820 TRENDP --- CHANGED TO PROCESS ARRAYS FASTER 01830 CMPACC --- PROGRAM TO COMPRESS ACCAGE (SEE WRITE UP) 01840 CHEKID --- CHANGED TO DISPLAY - DAY,DATE,TIME, AND ID 01850 REBILD --- FIX TO RECORD BLOCKING 01860 LTRSTA --- INITALIZE COID WORK BUFFER TO NON BLANK 01870 PROVE --- ADDED TO SYSTEM. 01880 UTLIST --- PATCHED TO DEFAULT TO UNFORMATTED LIST 01890 $$RPMENU --- ADD SELECTION N COMPRESS A7  3E-vCCAGE 01900 PRFRP014 --- PROCEDURE TO COMPRESS ACCAGE 01910 PRFRP003 --- ACCAGE SORT CHANGED TO OMIT 'RSW' IN POS. 35 01920 PRFDC003 --- REMOVE - ACTMTN 01930 HS PRF'S --- ADD CCSPAS TO PAUSE BEFORE CONTINUE 01940 SAVE/RESTORE--- PATCHED TO SAVE AND RESTORE VOL. LABEL AT SECT. 7F00 01950 EDTLP --- LATEST VERSION - CYSA030 - VAN/CFS 01960 DISCQT --- REMOVED *R OF QTIL 01970 $$USERID --- ADDED ID'S - CCS149,SPECIAL,LIBRARY 01980 TRDTLLST --- UNDER CCS20 LATEST VERSION / MOVE STRING DO LOOP 01990 AND SET LOWER LIMITS. 02000 PRFRP014/LA --- SAME AS CCS20 CMPACC WORKS FOR LA & CCS20 02010 02020 ADDITIONAL PROGRAMS RSWCHG & REBILD HAVE BEEN INSTALLED 02030 ON THE SYSTEM AND PROCEDURE PRFDC010 HAS BEEN MODIFIED. 02040 TO RUN RSWCHG AFTER NMCHNG. PROCEDURE PRFLD010 HAS BEEN 02050 MODIFIED TO RUN LRSWCH AFTER LNMCHG. 02060 02070 THE SORTS IN PRFDC001, PRFDC003, PRFLD001, AND PRFLD003 HAVE 02080 BEEN CHANGED TO SORT ON THE ORIGINAL KEY FIELDS BECAUSE OF THE 02090 CHANGES MADE TO PRETSR, TIMUSE, LPRTSR, LTIMUS PROGRAMS. THE 02100 ACTMTN AND LACTMT PROGRAMS WHICH REPORTED THE ACTIVITY BLOCKS 02110 HAVE BEEN REMOVED FROM PROCEDURES PRFDC003 AND PRFLD003. 02120 02130 TRDTLLST AND TRLDTLST SOURCE FILES HAVE BEEN CHANGED TO INCLUDE 02140 THE MOVE STRING DO LOOP AND SET LOWER LIMIT CHANGES. 02150 02160 ALL UPDATE AND LUPDAT FILES HAVE BEEN UPDATED TO INCLUDE THE 02170 LATEST CHANGES AS OF 06/30/82. 02180 02190***************************************************************************02200 02210 *********** STATUS OF THE SYSTEM AS SHIPPED 03/83 *********** 02220 * * 02230 * C Y B E R C R E D I T S Y S T E M CCS3.0-5 * 02240 * * 02250 * ****** MODIFICATIONS COMPLETED 03/83 ******** * 02260 * * 02270 **************************************************************** 02280 02290 SYSTEM AS OF 03/17/83 02300 02310 SEE TRIP REPORT RWE/SAH 03/83 02320_ [  3F- AL-S CCS20 PROGRAM DACRTE B3600010 1 /B36 F CCS CCS 3.1 SL-173B3600020C B3600030C CYBERCREDIT SYSTEM VERSION 3 B3600040C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3600050C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3600060C B36000701 B3600080C THIS PROGRAM REASSIGNS QUEUES AND PRIORITIES FOR ALL ACTIVE B3600090C ACCOUNTS IN THE DELQMST FILE AND CREATES THE DLYASSN FILE B3600100C WHICH IS USED BY THE ON-LINE AUTOMATIC FUNCTION B36001101 B3600120  3G- INTEGER DEQREQ(24),ASNREQ(24),DDATA(15),ADATA(15),ST,EFG,DT(3), B3600130 2 USER(4),HD(3,20),PRI(3,9),QUE(3,9),NQUE(2),NPRI(2),FDEL, B3600140 3 DEQREC(22000),ASNREC(462),QUEP(9),QUEL(9),PRIP(9),PRIL(9), B3600150 4 STG(40),LTHACT(2) B36001601 B3600170 EXTERNAL FMRDEL B36001801 B3600190 DATA DEQREQ, ASNREQ / 48*0 / B3600200 DATA DDATA / 'DELQMST ', 8*$2020, 0, 0, 0 / B3600210 DATA ADATA / 'DLYASSN ', 8*$2020, 0, 1, 0 / B3600220C************************************************************** 173*A032B3600230C VARIABLE FOR PP DATE CHECKING B3600240 INTEGER PPDATE(3) B3600250C VARIABLES FOR READING UTIFIL B3600260 INTEGER UDATA(15),UTIREQ(24),UTIREC(40),OLPM(2),PPLAG B3600270 DATA UDATA/'UTIFIL ',8*$2020,1,1,0/ B3600280 DATA UTIREQ/24*0/,OLPM/'OLPM'/ B3600290C************************************************************** 173*A032B3600300 DATA NUMREC / 22 /, ST / 0 /, EFG / 0 /, LTHACT / '0360' / B3600310 DATA QUE, PRI / 54*$2020 / B3600320. B3600330C**** SET UP THE DELQMST STARTING CHARACTER POSITIONS FOR THE B3600340C QUEUE ASSIGNMENT PARAMETERS, IF NOT USED MUST BE ZERO (0) B36003501 B3600360C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600370 DATA QUEP / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36003801 B3600390C**** SET UP THE DELQMST PARAMETER LENGTH IN CHARACTERS MAX. = 6 B3600400C IF UNUSED MUST BE ZERO (0) B36004101 B3600420C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600430 DATA QUEL / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36004402 B3600450C**** SET UP THE STARTING CHARACTER POSITIONS IN DELQMST FILE FOR B3600460C THE PRIORITY ASSIGNMENT PARAMETERS, IF UNSED MUST BE ZERO (0) B36004701 B3600480C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600490 DATA PRIP / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36005001 B3600510C**** SET UP THE PRIORITY PARAMETER CHARACTER LENGTHS MAX. = 6 B3600520C IF UNUSED MUST BE ZERO (0) B36005301 B3600540C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600550 DATA PRIL / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36005601 B3600570C**** SET UP THE STARTING CHARACTER POSITIONS FOR THE MOST RECENT B3600580C PAYMENT AMOUNT AND PAYMENT DATE, USED FOR BROKEN PP'S B36005901 B3600600q  3H- DATA LDATE / 0 / , LAMT / 0 / B3600610. B3600620C ACCEPT LOGIN FROM ITOS B3600630 CALL PGMIN ( USER, LU, MODE, NPORT ) B36006401 B3600650C INITIALIZE VARIABLES B3600660 ASSEM $C000,FMRDEL,$6800,FDEL B3600670 CALL CCSBLK ( ASNREC, 920 ) B3600680 IOSW = $3030 B3600690 CALL UTHEAD ( HD, DT ) B3600700 DDATA(14) = NUMREC B3600710 M = 1 B36007202 B3600730C OPEN FILES FOR USE B3600740C************************************************************** 173*A032B3600750 CALL OPENFL(UTIREQ,UDATA,ISTAT) B3600760C CHECK FOR ERROR B3600770 IF(ISTAT.GE.0) GO TO 10 B3600780 CALL FILERR(UDATA,3,ISTAT,LU) B3600790 GO TO 900 B3600800C NO ERROR-RETRIEVE OLPM RECORD TO GET DELTA FACTOR FOR PP DATE PROCB3600810 10 CALL READR(UTIREQ,UTIREC,OLPM,ISTAT) B3600820C BE SURE CORRECT RECORD READ B3600830 IF(AND(ISTAT,$0200).EQ.$0200.OR.AND(ISTAT,$8100).EQ.$8100) B3600840 . GO TO 20 B3600850C RECORD WAS FOUND-CK FOR OTHER ERROR B3600860 IF(ISTAT.LT.0) GO TO 20 B3600870C RECORD FOUND - EVERYTHING OKAY SAVE LAG FACTOR B3600880 PPLAG = ICCSAD(UTIREC(6)) B3600890C PROCESSING COMPLETE-CLOSE FILE AND CONTINUE B3600900 CALL CLOSFL(UTIREQ,ISTAT) B3600910 GO TO 50 B3600920C ERROR IN READR OF UTIFIL B3600930 20 CALL FILERR(UDATA,13,ISTAT,LU) B3600940 GO TO 900 B36009501 B3600960 50 CALL OPENFL( DEQREQ, DDATA, ISTAT ) B3600970C************************************************************** 173*A032B3600980 IF (ISTAT.GE.0) GO TO 100 B3600990 CALL FILERR ( DDATA, 3, ISTAT, LU ) B3601000 GO TO 900 B3601010 100 CALL CLEAR ( ASNREQ, ADATA, ISTAT ) B3601020 IF (ISTAT.GE.0) GO TO 110 B3601030 CALL FILERR ( ADATA, 1, ISTAT, LU ) B3601040 GO TO 900 B3601050 110 CALL OPENFL ( ASNREQ, ADATA, ISTAT ) B3601060 IF (ISTAT.GE.0) GO TO 200 B3601070 CALL FILERR ( ADATA, 3, ISTAT, LU ) B3601080  3I- GO TO 900 B3601090. B3601100C READ RECORDS FROM THE DELQMST AND PROCESS B3601110 200 CALL GETS ( DEQREQ, DEQREC, I, ISTAT ) B3601120C EOF? B3601130 IF (AND(ISTAT,$8100).EQ.$8100) GO TO 900 B3601140 IF (AND(ISTAT,$100).EQ.$100) EFG = 1 B3601150C FILE ERROR? B3601160 IF (ISTAT.GE.0) GO TO 210 B3601170 CALL FILERR ( DDATA, 14, ISTAT, LU ) B3601180 GO TO 900 B3601190 210 DO 300 I = 1 , NUMREC B3601200 L = 40*M - 39 B3601210 K = 1000*I-999 B3601220 J = 2*K-1 B3601230C RECORD PRESENT? B3601240 IF (DEQREC(K).EQ.$2020.OR. B3601250 1 DEQREC(K).EQ.FDEL) GO TO 300 B3601260C RECORD ACTIVE? B3601270 IF (AND(DEQREC(K+152),$FF).NE.$20) GO TO 220 B36012801 B3601290C GET THE MOST RECENT ACTIVITY B3601300 CALL VFYACF(DEQREC(K)) 01310C**************************************************************138*A023 B3601320 IOSW=$3031 B3601330C**************************************************************138*A023 B3601340 CALL GETACF ( STG, DEQREC(K+153), LTHACT, IOSW ) B36013502 B3601360C REASSIGN QUEUE ALLOWED? B3601370 IF (AND(DEQREC(K+146),$FF).NE.$20) GO TO 220 B36013801 B3601390. B3601400C**** SET UP THE PARAMETERS FOR QUEUE ASSIGNMENT : B3601410C - THE MOST RECENT ACTION CODE IS IN : STG(4) B3601420C - RESULT CODE IS IN : STG(5) B3601430C - CONTACT DATE STARTS IN : STG(1) B3601440C - THE SYSTEM DATE STARTS IN : DT(1) B36014503 B3601460C PARAMETER #1 B3601470 CALL CCSMVA ( DEQREC, QUEP(1)+J-1, QUEL(1), QUE, 1, 6 ) B36014801 B3601490C PARAMETER #2 B3601500 CALL CCSMVA ( DEQREC, QUEP(2)+J-1, QUEL(2), QUE, 7, 6 ) B36015101 B3601520C PARAMETER #3 B3601530 CALL CCSMVA ( DEQREC, QUEP(3)+J-1, QUEL(3), QUE, 13, 6 ) B36015401 B3601550C PARAMETER #4 B3601560b<  3J- CALL CCSMVA ( DEQREC, QUEP(4)+J-1, QUEL(4), QUE, 19, 6 ) B36015701 B3601580C PARAMETER #5 B3601590 CALL CCSMVA ( DEQREC, QUEP(5)+J-1, QUEL(5), QUE, 25, 6 ) B36016001 B3601610C PARAMETER #6 B3601620 CALL CCSMVA ( DEQREC, QUEP(6)+J-1, QUEL(6), QUE, 31, 6 ) B36016301 B3601640C PARAMETER #7 B3601650 CALL CCSMVA ( DEQREC, QUEP(7)+J-1, QUEL(7), QUE, 37, 6 ) B36016601 B3601670C PARAMETER #8 B3601680 CALL CCSMVA ( DEQREC, QUEP(8)+J-1, QUEL(8), QUE, 43, 6 ) B36016901 B3601700C PARAMETER #9 B3601710 CALL CCSMVA ( DEQREC, QUEP(9)+J-1, QUEL(9), QUE, 49, 6 ) B3601720. B3601730C GET THE NEW QUEUE B3601740 CALL FTNDT1 ( QUE, NQUE ) B3601750C NEW QUEUE? B3601760 IF (NQUE(1).EQ.DEQREC(K+135).AND. B3601770 1 NQUE(2).EQ.DEQREC(K+136)) GO TO 220 B3601780C QUEUE RETURN SUCCESSFUL? B3601790 IF (NQUE(1).EQ.$3939.AND. B3601800 1 NQUE(2).EQ.$3939) GO TO 220 B3601810C SAVE OLD QUEUE , DATE , AND NEW QUEUE B3601820 CALL CCSMVA ( DEQREC, J+270, 4, DEQREC, J+295, 4 ) B3601830 CALL CCSMVA ( DT, 1, 6, DEQREC, J+299, 6 ) B3601840 CALL CCSMVA ( NQUE, 1, 4, DEQREC, J+270, 4 ) B36018502 B3601860C GET THE NEW PRIORITY B3601870 220 CONTINUE B3601880. B3601890C**** SET UP THE PARAMETERS FOR THE PRIORITY ASSIGNMENT - B3601900C - THE MOST RECENT ACTION CODE IS IN : STG(4) B3601910C - RESULT CODE IS IN : STG(5) B3601920C - CONTACT DATE STARTS IN : STG (1) B3601930C - THE SYSTEM DATE STARTS IN : DT(1) B36019402 B3601950C PARAMETER #1 B3601960 CALL CCSMVA ( DEQREC, PRIP(1)+J-1, PRIL(1), PRI, 1, 6 ) B36019701 B3601980C PARAMETER #2 B3601990 CALL CCSMVA ( DEQREC, PRIP(2)+J-1, PRIL(2), PRI, 7, 6 ) B36020001 B3602010C PARAMETER #3 B3602020 CALL CCSMVA ( DEQREC, PRIP(3)+J-1, PRIL(3), PRI, 13, 6 ) B36020301 B3602040h  3K-C PARAMETER #4 B3602050 CALL CCSMVA ( DEQREC, PRIP(4)+J-1, PRIL(4), PRI, 19, 6 ) B36020601 B3602070C PARAMETER #5 B3602080 CALL CCSMVA ( DEQREC, PRIP(5)+J-1, PRIL(5), PRI, 25, 6 ) B36020901 B3602100C PARAMETER #6 B3602110 CALL CCSMVA ( DEQREC, PRIP(6)+J-1, PRIL(6), PRI, 31, 6 ) B36021201 B3602130C PARAMETER #7 B3602140 CALL CCSMVA ( DEQREC, PRIP(7)+J-1, PRIL(7), PRI, 37, 6 ) B36021501 B3602160C PARAMETER #8 B3602170 CALL CCSMVA ( DEQREC, PRIP(8)+J-1, PRIL(8), PRI, 43, 6 ) B36021801 B3602190C PARAMETER #9 B3602200 CALL CCSMVA ( DEQREC, PRIP(9)+J-1, PRIL(9), PRI, 49, 6 ) B3602210. B3602220 CALL FTNDT1 ( PRI, NPRI ) B3602230C PRIORITY RETURN SUCCESSFUL? B3602240 IF (NPRI(1).EQ.$3939.AND. B3602250 1 NPRI(2) .EQ. $3939 ) GO TO 225 B3602260C SAVE THE NEW PRIORITY B3602270 CALL CCSMVA ( NPRI, 1, 4, DEQREC, J+280, 4 ) B36022801 B3602290C IS THIS ACCOUNT A PROMISE TO PAY? B3602300 225 IF ( AND(DEQREC(K+142),$FF00) .NE. $5900 ) GO TO 230 B36023101 B3602320C************************************************************** 173*A032B3602330C CHECK IF PROMISE DUE TO BE CHECKED (SYSTEM DATE EQUAL OR B3602340C PAST PROMISE TO PAY DATE + LAG FROM UTIFIL B3602350C ADD LAG FACTOR FROM UTIFIL OBTAINED ABOVE TO PROMISE TO PAY B3602360C DATE TO SEE OF PP IS BROKEN OR NOT B3602370C MOVE PP DATE TO WORK AREA B3602380 CALL CCSMVA(DEQREC,J+1015,6,PPDATE,1,6) B3602390 IK = ICALJL(PPDATE,1) B3602400 IK = IK + PPLAG B3602410 IF(IK.LE.365)GO TO 2250 B3602420C YEAR HAS TURNED OVER-CONVERT THE DATE B3602430 PPDATE(3) = PPDATE(3) + 1 B3602440 IF(AND(PPDATE(3),$FF).GT.$39) B3602450 . PPDATE(3) = PPDATE(3) + $F6 B3602460C CONVERT THE DATE BACK B3602470 2250 CALL JULCAL(IK,PPDATE,1) B3602480C PP DATE IS READY TO BE CHECKED B3602490 CALL CCSCST( DT, 5, 2, PPDATE, 5, 2, ICOMP) B3602500C************************************************************** 173*A032B3602510C NOT DUE CHK FURTHER DUE B3602520  3L. IF(ICOMP) 230, 2251, 2252 B36025301 B3602540C YEARS EQUAL CHECK MONTH AND DAY B3602550C************************************************************** 173*A032B3602560 2251 CALL CCSCST( DT, 1, 4, PPDATE, 1, 4, ICOMP ) B3602570C TODAYS DATE MUST BE EQUAL OR PAST PROMISE TO PAY DATE(PLUS LAG) B3602580C FOR CHECK B3602590C************************************************************** 173*A032B3602600 IF (ICOMP .LT. 0) GO TO 230 B36026101 B3602620C PROMISE DUE TO BE CHECKED. SEE IF LAST PAYMENT AMOUNT B3602630C CLEARS PROMISED AMOUNT. B3602640 2252 CALL CCSCST ( DEQREC, J+LAMT-1, 9, DEQREC, J+1021, 9, ICOMP) B3602650 IF(ICOMP .LT. 0) GO TO 224 B36026601 B3602670C LAST PAYMENT CLEARS PROMISE. VERIFY PAYMENT RECEIVED B3602680C AFTER COMMITMENT DATE. B3602690C************************************************************** 173*A018B3602700 CALL CCSCST (DEQREC, J+LDATE+3, 2, DEQREC, J+1044, 2, ICOMP) B3602710C************************************************************** 173*A018B3602720C BEFORE CHK FURTHER AFTER B3602730 IF(ICOMP) 224, 2253, 2254 B36027401 B3602750C YEARS EQUAL, CHECK MONTH AND DAY B3602760 2253 CALL CCSCST ( DEQREC, J+LDATE-1, 4, DEQREC, J+1040, 4, ICOMP) B3602770C PAYMENT DATE MUST BE PAST COMMITTMENT DATE FOR KEPT PROMISE. B3602780 IF( ICOMP .LT. 0 ) GO TO 224 B3602790C**************************************************************138*A018 B36028002 B3602810C PROMISE KEPT, INCREMENT THE KEPT COUNT B3602820C**************************************************************138*A018 B3602830 2254 DEQREC(K+518) = AND(DEQREC(K+518),$FF0F) + $31 B3602840C**************************************************************138*A018 B3602850 IF ( AND(DEQREC(K+518),$FF) .GT. $39 ) B3602860 1 DEQREC(K+518) = AND(DEQREC(K+518),$FFF) + $30F6 B3602870C INCREMENT THE NEXT CONTACT DATE 7 DAYS B3602880 IK = ICALJL ( DEQREC, J+274 ) B3602890 IK = IK + 7 B3602900 IF ( IK .LE. 365 ) GO TO 222 B3602910 DEQREC(K+139) = DEQREC(K+139) + 1 B3602920 IF ( AND(DEQREC(K+139),$FF) .GT. $39 ) B3602930 1 DEQREC(K+139) = DEQREC(K+139) + $F6 B3602940 222 CALL JULCAL ( IK, DEQREC, J+274 ) B3602950C CLEAR THE PROMISED TO PAY FLAG B3602960 CALL CCSPUT ( $4B, J+284, DEQREC ) B3602970 GO TO 230 B36029801 B36029901 B3603000]  3M.C PROMISE BROKEN, INCREMENT THE BROKEN COUNT B3603010 224 DEQREC(K+519) = AND(DEQREC(K+519),$FF0F) + $31 B3603020 IF ( AND(DEQREC(K+519),$FF) .GT. $39 ) B3603030 1 DEQREC(K+519) = AND(DEQREC(K+519),$FFF) + $30F6 B3603040C SET THE PROMISED TO PAY FLAG TO BROKEN B3603050 CALL CCSPUT ( $42, J+284, DEQREC ) B3603060. B3603070C BUILD THE DLYASSN RECORD - ACCT #, QUEUE, NEXTCD, PRIORITY B3603080 230 CALL CCSMVA ( DEQREC, J, 16, ASNREC, L, 16) B3603090 CALL CCSMVA ( DEQREC, J+270, 14, ASNREC, L+16, 14 ) B36031002 B3603110C**** IF ADDITIONAL FIELDS ARE REQUIRED IN THE DLYASSN RECORD, B3603120C THEY SHOULD BE MOVED IN AT THIS POINT B36031302 B3603140 M = M + 1 B3603150 300 CONTINUE B36031601 B3603170C SAVE THE DLYASSN RECORD B3603180 M = M - 1 B3603190 IF ( M .EQ. 0 ) GO TO 310 B3603200 CALL PUTS ( ASNREQ, ASNREC, M, ISTAT ) B3603210 IF (ISTAT.GE.0) GO TO 305 B3603220 CALL FILERR ( ADATA, 11, ISTAT, LU ) B3603230 GO TO 900 B3603240C UPDATE THE RECORDS IN THE DELQMST FILE B3603250 305 CALL UPDREC ( DEQREQ, DEQREC, ISTAT ) B3603260C FILE ERROR? B3603270 IF (ISTAT.GE.0) GO TO 310 B3603280 CALL FILERR ( DDATA, 15, ISTAT, LU ) B3603290 GO TO 900 B3603300C BLANK OUT THE DELQ BUFFER AND CONTINUE B3603310 310 CALL CCSBLK ( DEQREC, 30000 ) B3603320 CALL CCSBLK ( DEQREC(15001), 14000 ) B3603330 CALL CCSBLK ( ASNREC, 920 ) B3603340 M = 1 B3603350 IF (EFG.EQ.0) GO TO 200 B36033601 B3603370C CLOSE THE FILES AND STOP B3603380 900 CALL CLOSFL ( DEQREQ, ISTAT ) B3603390 CALL CLOSFL ( ASNREQ, ISTAT ) B3603400 CALL PGMOUT B3603410 END B3603420 SUBROUTINE R9BASE C1203430 1 /C12 F CCS CCS 3.0 SL-149C1203440C C1203450C CYBERCREDIT SYSTEM VERSION 3 C1203460C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1203470C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1203480  3N.*C C1203490 RETURN C1203500 END C1203510 SUBROUTINE R9FLDL C1303520 1 /C13 F CCS CCS 3.0 SL-149C1303530C C1303540C CYBERCREDIT SYSTEM VERSION 3 C1303550C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1303560C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1303570C C1303580 RETURN C1303590 END C1303600_ )  3O.jAL.jS CCS20 IN  *K,I8 00010H DTLLST00020X 1 D05 R CCS CCS 3.0 SL-149 0046000030F* D05 R CCS CCS 3.0 SL-149 0047000040F* 0048000050F* CYBERCREDIT SYSTEM VERSION 3 0049000060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 0050000070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 0051000080F* 0052000090F* 00100FDUMMY IP F 80 DISK 00110FCOSIGNERIC F 362R16AI 1 DISK 00120FSREQDL ID F 20 DISK 00130F* 00140F* COPYRIGHT CONTROL DATA CORPORATION, 1978 00150F* DATA SYSTEM-LA JOLLA DIVISION, LAJOLLA, CALIFORNIA 00160F* CREDIT COLLECTION SYSTEM VERSION 2.0 00170F* 00180FINACCT UD F 24 DISK 00190FACTFIL ID F 500 18AI 1 DISK 00200FDELQMST IC F 2000R16AI 1 DISK 00210FUTIFIL IC F 80R 4AI 1 DISK 00220FPRINT O F 132 OV PRINTER 00230E STG 38 2 00240E OBLK 482 1 00250E CMT 30 2 00260E HDR 3 40 00270IDUMMY CC 01 00280I 1 80 DUM 00290ICOSIGNERBB 02 00300I 1 1 CACTFG 00310I 2 16 CACCT 00320I 1 16 CACC 00330I 17 17 CINIT 00340I 18 180CSLC1 00350I 19 190C1FG 00360I 20 49 CN1 00370I 50 79 CA1 00380I 80 99 CS1 00390I 100 1040CZ1 00400I 105 1180CH1 00410I 105 105 H1 00420I 105 118 CH11 00430I 119 1320CB1 00440I 119 119 B1 00450I 119 132 CB11 00460I 133   3P.~1330CSLC2 00470I 134 1340C2FG 00480I 135 164 CN2 00490I 165 194 CA2 00500I 195 214 CS2 00510I 215 2190CZ2 00520I 220 2330CH2 00530I 220 220 H2 00540I 220 233 CH21 00550I 234 2470CB2 00560I 234 234 B2 00570I 234 247 CB21 00580I 248 2480CSLC3 00590I 249 2490C3FG 00600I 250 279 CN3 00610I 280 309 CA3 00620I 310 329 CS3 00630I 330 3340CZ3 00640I 335 3480CH3 00650I 335 335 H3 00660I 335 348 CH31 00670I 349 3620CB3 00680I 349 349 B3 00690I 349 362 CB31 00700ISREQDL GG 03 00710I 1 16 EACT 00720I 17 20 SUPID 00730IINACCT EE 04 00740I 1 16 EACT 00750I 18 18 PFLAG 00760IACTFIL FF 06 00770I 1 16 ACT 00780I 19 500 OBLK 00790I* CCS MASTER FILE DESCRIPTION INPUT 00800IDELQMST AA 10 00810I 1 1 MACTFG 00820I 2 16 MACCT 00830I 1 16 MACC 00840I 17 170MSLCD 00850I 18 47 MNAM 00860I 48 77 MADR1 00870I 78 107 MADR2 00880I 108 127 MCS 00890I 128 132 MZP 00900I 133 133 H 00910I 133 1420MPHN 00920I 133 142 MPHN1 00930I 143 146 MEXT 00940I 147 2  3Q.176 MBNM 00950I 177 206 MBAD 00960I 207 226 MBCS 00970I 227 231 MBZP 00980I 232 232 B 00990I 232 2410MBPH 01000I 232 241 MBPH1 01010I 242 245 MBEX 01020I 246 261 MADL 01030I 262 2700MSOC 01040I 271 274 MQUE 01050I 275 2800MPRID 01060I 281 284 MPRIC 01070I 285 285 MPFG 01080I 286 2860MBFG 01090I 287 290 MSUP 01100I 291 295 MOLS 01110I 296 299 MPQU 01120I 300 3050MPDQ 01130I 306 306 MSTC 01140I 667 696 MP1 01150I 697 726 MP2 01160I 727 756 MP3 01170I 757 786 MPAD1 01180I 787 816 MPAD2 01190I 817 836 MPCS 01200I 837 841 MPZC 01210I 842 8470MLLDT 01220I 848 8562MLLAT 01230I 857 8620MSTDT 01240I 863 8680MUPDT 01250I 869 8740MCCDT 01260I 875 8800MDLDT 01270I 881 8860MOPDT 01280I 887 8952MADLQ 01290I 896 9042MCBAL 01300I 905 9132MPYOF 01310I 914 9190MCPGD 01320I 920 9282MNPA 01330I 929 9372MOAMT 01340I 938 9380MCMN 01350I 939 946 MTP 01360I 947 9490MPTS 01370I 950 954 MBBR 01380I 955 962 MLON 01390I 963 966 MTCD 01400I 967 9680MTD3 01410I 969 9700MTD6 01420I 971 jp  3R.9720MTD9 01430I 9731012 MSDF 01440I 101310150MDYDL 01450I 101610210MPPD 01460I 102210302MPPA 01470I 103110360MTLB 01480I 10371038 MPPK 01490I 10391040 MPPB 01500I 104110460MPPCD 01510IUTIFIL AA 31 01520I 5 44 HEADER 01530C***** SETUP REPORT HEADINGS 01540C 46 GOTO AROUND 01550C 'HDR1' CHAINUTIFIL 32 01560C N32 MOVE HEADER HDR,1 01570C 'HDR2' CHAINUTIFIL 32 01580C N32 MOVE HEADER HDR,2 01590C 'HDR3' CHAINUTIFIL 32 01600C N32 MOVE HEADER HDR,3 01610C MOVE '0482' LTH 4 01620C MOVE '01' OSW 2 01630C AROUND TAG 01640C START TAG 01650C SETON 46 01660C SETOF 010203 01670C SETOF 040506 01680C SETOF 101222 01690C SETOF 313216 01700C SETOF 818283 01710C SETOF 848586 01720C SETOF 878811 01730C RDACT TAG 01740C SETOF 1304 01750C U1 READ INACCT 12 01760C U1N12 PFLAG COMP 'P' 13 01770C U1N12N13 MOVE 'P' PFLAG 01780C U1N12 13 GOTO RDACT 01790C U2 READ SREQDL 12 01800C 12 GOTO END 01810C EACT CHAINDELQMST 22 01820C N22 H COMP '0' 81 01830C N22 B COMP '0' 82 01840C 22 GOTO ERROR 01850C EACT CHAINCOSIGNER 05 01860C N05 H1 COMP '0' 83 01870C N05 B1 COMP '0' 84 01880C N05 H2 COMP '0' 85 01890C N05 B2 COMP '0' 86 01900C N05 H3 COMP '0' '<  3S. 87 01910C N05 B3 COMP '0' 88 01920C EXCPT 01930C U1N12N13 01940COR U2 SETON 16 01950C* SET BOUNDS FOR LOCATING ACTIVITY INFORMATION 01960C 16 MOVE EACT SACT 16 01970C SETOF 0410 01980C 16 MOVELSACT LACCT 18 01990C 16 MOVE ' ' LACCT 02000C 16 LACCT SETLLACTFIL 02010C GETBLK TAG 02020C SETOF 110614 02030C READ ACTFIL 11 02040C 11 GOTO START 02050C N11 ACT COMP SACT 1111 02060C 11 GOTO START 02070C GETACT TAG 02080C MOVE '00' OSW 02090C EXIT GETACR 02100C RLABL STG 02110C RLABL OBLK 02120C RLABL LTH 02130C RLABL OSW 02140C OSW COMP '01' 14 02150C 14 GOTO GETBLK 02160C Z-ADD1 I 20 0213002170C Z-ADD9 J 20 0214002180C MOVES TAG 0215002190C MOVEASTG,J CMT,I 0216002200C I ADD 1 I 0217002210C J ADD 1 J 0218002220C I COMP 30 31 0219002230C N31 GOTO MOVES 0220002240C OV SETON 46 02250C N14 EXCPT 02260C N14 SETOF 46 02270C N14 GOTO GETACT 02280C ERROR TAG 02290C SETOF 100708 02300C SETON 70 02310C EXCPT 02320C SETOF 70 02330C GOTO START 02340C END TAG 02350C SETON LR 02360OINACCT E 04N13 02370O PFLAG 18 02380OPRINT E 101 10 46  3T. 02390O HDR,1 41 02400O 67 'DELINQUENT RECORD' 02410O 76 'CONTENTS' 02420O 03 103 'SUPERVISOR:' 02430O 03SUPID 108 02440O 128 'PAGE' 02450O PAGE Z 132 02460O E 1 10 46 02470O HDR,2 41 02480O 61 'AS OF' 02490O UDATE Y 70 02500O E 1 10 46 02510O HDR,3 41 02520O E 1 10 02530O 13 'ACCOUNT' 02540O 39 'ADDITIONAL' 02550O 49 'BANK' 02560O 57 'LOAN' 02570O 71 'AMOUNT TO' 02580O 80 'DELQ' 02590O 102 'LAST LETTER SENT' 02600O 113 'ASSIGNED' 02610O 118 'CR.' 02620O 132 'OPEN AMOUNT' 02630O E 1 10 02640O 11 'NO.' 02650O 40 'ACCOUNT NO.' 02660O 49 'BR.' 02670O 59 'OFFICER' 02680O 70 'COLLECT' 02690O 80 'DATE' 02700O 89 'DATE' 02710O 103 'AMOUNT' 02720O 111 'QUEUE' 02730O 118 'PTS' 02740O 132 'OR CR LIMIT' 02750O E 1 10 02760O MACC 17 02770O MADL 42 02780O MBBR 49 02790O MLON 59 02800O MADLQ L 72 02810O MDLDT 82 ' / / ' 02820O MLLDT 92 ' / / ' 02830O MLLAT L 104 02840O MQUE 111 02850O MPTS 118 02860O MOAMT L 132   3U. 02870O E 2 10 02880O 5 'NAME' 02890O MNAM 48 02900O 66 'SALUTATION CODE' 02910O MSLCD 68 02920O 98 'BUSINESS NAME' 02930O MBNM 132 02940O E 1 10 02950O 10 'ADDRESS 1' 02960O MADR1 48 02970O 70 'SOCIAL SECURITY NO.' 02980O MSOC 82 ' - - ' 02990O 96 'ST. ADDRESS' 03000O MBAD 132 03010O E 1 10 03020O 10 'ADDRESS 2' 03030O MADR2 48 03040O 67 'NO. OF COSIGNERS' 03050O MCMN 69 03060O 99 'CITY/STATE/ZIP' 03070O MBCS 122 03080O MBZP 132 03090O E 1 10 03100O 15 'CITY/STATE/ZIP' 03110O MCS 38 03120O MZP 48 03130O 62 'HOME PHONE:' 03140O N81MPHN 75 ' - - ' 03150O N81 76 '-' 03160O MEXT 80 03170O 81MPHN1 77 03180O 100 'BUSINESS PHONE:' 03190O N82MBPH 114 ' - - ' 03200O N82 115 '-' 03210O MBEX 119 03220O 82MBPH1 116 03230O E 2 10 03240O 12 'PRIORITY' 03250O 21 'TYPE' 03260O 34 'TIMES DELQ' 03270O 40 'PP' 03280O 46 'PP' 03290O 53 'PP' 03300O 65 'PROMISED' 03310O 78 'PROMISED TO' 03320O 100 'PREVIOUS ADDRESS 1' 03330O MPAD1 132 03340O E 1 10 O  3V. 03350O 7 'DATE' 03360O 14 'CODE' 03370O 21 'CODE' 03380O 34 '30 60 90' 03390O 41 'FLAG' 03400O 47 'KEPT' 03410O 55 'BROKEN' 03420O 65 'PAY DATE' 03430O 78 'PAY AMOUNT' 03440O 100 'PREVIOUS ADDRESS 2' 03450O MPAD2 132 03460O E 1 10 03470O MPRID 9 ' / / ' 03480O MPRIC 14 03490O MTCD 21 03500O MTD3 26 03510O MTD6 30 03520O MTD9 34 03530O MPFG 40 03540O MPPK 46 03550O MPPB 53 03560O MPPD 65 ' / / ' 03570O MPPA L 78 03580O 96 'CITY/STATE/ZIP' 03590O MPCS 122 03600O MPZC 132 03610O E 2 10 03620O 10 'CURRENT' 03630O 24 'CURRENT' 03640O 43 'CURRENT PAYOFF' 03650O 57 'NEXT PAYOFF' 03660O 69 'SUPERVISOR' 03670O 78 'ARCHIVE' 03680O 101 '* * S P E C I A L' 03690O 127 'I N S T R U C T I O N S' 03700O 132 '* *' 03710O E 1 10 03720O 10 'BALANCE' 03730O 23 'PAYOFF' 03740O 43 'EFFECTIVE DATE' 03750O 54 'AMOUNT' 03760O 66 'I.D.' 03770O 80 'TAPE DATE' 03780O E 1 10 03790O MCBAL L 12 03800O MPYOF L 26 03810O MCPGD 39 ' / / ' 03820O MNPA L 57 y|  3W/  03830O MSUP 66 03840O MTLB 80 ' / / ' 03850O MSDF 128 03860O E 2 10 03870O 8 'STATUS' 03880O 17 'STATUS' 03890O 25 'OPEN' 03900O 37 'DATE 1ST' 03910O 44 'LAST' 03920O 54 'QUEUE' 03930O 83 '* * * * * *' 03940O 102 'P E R M A N E N T' 03950O 119 'C O M M E N T' 03960O 132 '* * * * * *' 03970O E 1 10 03980O 7 'DATE' 03990O 16 'CODE' 04000O 25 'DATE' 04010O 36 'IN CCS' 04020O 44 'QUEUE' 04030O 57 'CHANGE DATE' 04040O 68 'BY LEGAL' 04050O MP1 117 04060O E 1 10 04070O MSTDT 9 ' / / ' 04080O MSTC 15 04090O MOPDT 27 ' / / ' 04100O MCCDT 37 ' / / ' 04110O MPQU 44 04120O MPDQ 55 ' / / ' 04130O MUPDT 68 ' / / ' 04140O MP2 117 04150O E 1 10 04160O MP3 117 04170O E 2 10N05 04180O 18 'C O S I G N E R S' 04190O 27 'N A M E' 04200O 44 'S T R E E T' 04210O 60 'A D D R E S S' 04220O 84 'C I T Y / S T A T E' 04230O 91 'Z I P' 04240O 111 'H O M E P H O N E' 04250O 132 'B U S . P H O N E' 04260O E 1 10N05 04270O CN1 31 04280O CA1 63 04290O CS1 85 04300O CZ1 91   3X/ 04310O N83CH1 110 ' - - - ' 04320O 83CH11 107 04330O N84CB1 132 ' - - - ' 04340O 84CB11 129 04350O E 1 10N05 04360O CN2 31 04370O CA2 63 04380O CS2 85 04390O CZ2 91 04400O N85CH2 110 ' - - - ' 04410O 85CH21 107 04420O N86CB2 132 ' - - - ' 04430O 86CB21 129 04440O E 1 10N05 04450O CN3 31 04460O CA3 63 04470O CS3 85 04480O CZ3 91 04490O N87CH3 110 ' - - - ' 04500O 87CH31 107 04510O N88CB3 132 ' - - - ' 04520O 88CB31 129 04530OPRINT E 101 16 46 04540O HDR,1 41 04550O 75 'COLLECTOR ACTIVITIES' 04560O 03 103 'SUPERVISOR' 04570O 03SUPID 108 04580O 128 'PAGE' 04590O PAGE Z 132 04600O E 1 16 46 04610O HDR,2 41 04620O 63 'AS OF' 04630O UDATE Y 72 04640O E 1 16 46 04650O HDR,3 41 04660O E 1 16 46 04670O 13 'ACCOUNT' 04680O 35 'CONTACT' 04690O 43 'ACTION' 04700O 51 'RESULT' 04710O 59 'LETTER' 04720O 70 'COLLECTOR' 04730O 87 '* * * * * * * *' 04740O 111 'C O M M E N T S' 04750O 132 '* * * * * * * * * *' 04760O E 11 16 46 04770O 11 'NO.' 04780O 33 'DAT  3Y/2E' 04790O 42 'CODE' 04800O 50 'CODE' 04810O 58 'CODE' 04820O 68 'I. D.' 04830O E 1 06N14 04840O SACT 17 04850O STG,1 29 04860O 30 '/' 04870O STG,2 32 04880O 33 '/' 04890O STG,3 35 04900O STG,4 41 04910O STG,5 49 04920O STG,6 57 04930O STG,7 65 04940O STG,8 67 04950O CMT 132 04960O E 103 70 04970O 10 'ERROR' 04980O 22 28 'ACCOUNT NO.' 04990O 22 EACT 45 05000O 22 57 'NOT ON FILE' 05010OPRINT T 3 LR 05020O 75 '**** END OF REPORT ****' /* 005030_  3Z/F ϳ  3[/Z Ϟ  3\/n ω  3]/ t  3^/ _  3_/ J  3`/ 5  3a/  3b/  3c/ 06 H18 A FTNR CCS 3.0 SL-149 AL0 S CCS20 ! Q8EXP9 C181 H19 A FTNR CCS 3.0 SL-149 PUPDATE A21 A CCS CCS 3.0 SL-149@Px  3d0PUPDATEPFUPDATP PR9BASE C12 F CCS CCS 3.0 SL-149@PHPR9BASEP PR9FLDL C13 F CCS CCS 3.0 SL-149@PHPR9FLDLP P [ADDIT B05 F CCS CCS 3.0 SL-149@PA@PT33 A M] >0 MT3 ]T33E] > (3Th H3 1T3\ A M30 > M\3; A@P0,  A\33 > C3 C\33 = = 03 C\ >33 C C3T 4 ?33 > >3\  30 > >\3;  >@P0W >T A\33 > M >0 XT30̫ ̦ &\33 I 1\̝ 13T38̓@P0 ̍ 3&\ J3 1\T0 VT3 (3T L3 1T3T >3; P > P@PHMPADDIT PCCSMVACCSPUT PUTS FILERRUPDENDCCSADDDFORMLNZWRITERdREADR |CCSBLKUPDRECP PCHNGNF B24 F CCS CCS 3.0 SL-149@P@P1@P4@P@P0@PN@Pl1@PE@P(,@P!+  3e0"@P$@P'@P*@P-@P0 @P5 , h h hTȷ \Ȫ t\@P`Ȟ  l@Pn hh hȻ!" ( hʓ !ȏ谚 Ȩf dؚ@P 5h !0 2. d3 h hT@P@P  h\4@P4 \5H2TThbhmhhhh\hZheh\hVhjh\h@PQheh\hIhJhRh\hhhh\ha'PCHNGNFPQ8PKUPQ8PREPAMONTO:ADAYTO>AYERTOBCCSCSTECCSMVAP P [ CONUPD B32 F CCS CCS 3.0 PSrPD SL-149@PCm@PN@P- NO NON-FINANCIALS ACCEPTED@P@P03U@P @P@P!@P$@P'@P*@P- @P0@P3@P6 x0  3f06@P9@P<@P?@PB@PGT33  C =3 = 2 2 70 ژ(0T h\hȞ #Ț dhȗhT 0 >h\@Pr hȍ(Έh 1 *T >33 Q > Qx hȴ!& ( h @P !ȥhȡh ȝhT@P@P =ؐ3\ R33 R 2̒ A 4TH33 C =3 = 2 2 &\33 C3 C\@P3 > M]3 > MT0 ]T3E] >00 (Th30 H 1TT33 R 0 RH>PCONUPDPCCSCSTICCSAD[ICALJLlCCSMVACHNGNFCCSPUTPUTS FILERRUPDENDP P [COSUPD B33 F CCS CCS 3.0 SL-149@P@P@P@P@PY@PT3 R =3 = 2 2 \13 R30 = = 2 \3 R =3 = 2 YT3; > M@P00 > N\11 ?T33g  (T630 I 1T 10/ *T@P3[g0  3&\6 J3 1\\11 ?T30g &\630 L 1\@PH|PCOSUPDPCCSCSTCCSMVA+WRITER:FILERRIUPDENDOREADR ZUPDRECuP P [ FORMLN B53 F CCS CCS 3.0 SL-149@PWRITEOFF @PRELEASE @P$SATISFY @P6ADD @PHUPDATE <  3g0J@PZREACTIVATE @PlREJECT - ACCOUNT NOT ACTIVE FOR 30X @P~REJECT - NO ACCOUNT FOR 30X CODE @PREJECT - INVALID TRANSACTION CODE @P ,,hT@P3 > S 3 ? S\33 > @ A03 @\ A33 M F M 1? #  )\33 R Q8 R @P3\ 33 R Q R % !3T 30 > >\33  ?03 @\ 30 ? @ 3\ 3 > >\@P3 ?0 @ HTThŀPFORMLNPQ8PKUPQ8PREPCCSMVAEDIT P P [FUPDAT B56 F CCS CCS 3.0 SL-149@PTTT0 TTTT33 > @ - >3 @ 2 2 \33 > @ +30 > @ 2  \@P3+ > @ )30 > @ 2 'T0 T300 13T L3 1\ lT 43; ? > @PV >T0 o\33 > @ / >3 @ 2̶  T F3\ 4 ? 30 > >\0 W TTTTT@P33̻ 3'\ I3 1T \ 70 3 T\\\3\̝ &\3; L 1@P\\ T\\\T3= '3TG L3 1\\0 9H/PFUPDATPUPINITLABHANNXTRANTOTALP UPDENDGETMASCCSCSTRSWIT 6UPDRECFILERRCCSADDPPRTLINXFORMLNgUNCUPDyPCONUPD{ADDIT }COSUPDWRITERUPDIT REACITP P [GETMAS B58 F CCS 3.0 09-22-81 SL-149@P@P,@P.@P UPDATE WAITING ACCT. NO. @P'.L@P)@P/T33 A M > >0 MT30 >00 0  (T33 J 1T 5@P0Z /ެ  d0-T31 A M) M+Ⱥ \31 A M) M\* R'0 RT 1@P,(,- lT.HPGETMAS]  3h0^PCCSMVA0READR 8FILERRMUPDENDSCCSCSThWTREADCCSBLKP P [LABHAN B67 F CCS CCS 3.0 SL-149@Px@P0{ . h P( hT   T3 @ hT3 > Wz0 W 1\@P \3 @ h3T lHPLABHANPNXTRANTAPMOTCCSMVACLOSFLP P [LNXTRAN B85 F CCS CCS 3.0 SL-149@P@P@P1h T300 1'0 T30 K 1T dT 1 @P. T0T h  l @P0< T =HPNXTRANHPSTATIT2GETS FILERRUPDEND"FREAD (DISP 0CCSE2AAP P [PRTLIN C09 F CCS CCS 3.0 SL-149@P @P8@P@P \hdh~hhhh 2 l3T 4 ?33 > > d [@P05 d0 \ hT [ T 9 [ؿ 10 T1 Z3 T;\  Z@P3` \\ _13 Z \T30 @0 (T3 H0 1T0 &̞ l \@P3 Z0 \3\ Z0 \3\ ?0 &3\ H0 1\̥ \13 Z 8\\@P0 >̺ &\30 H 1\T Z H TThhh4PPRTLINPQ8PKUPQ8PREPCCSADD*CCSGET33 C C3\ = =10 L\3; = =@P00 GT CT33 4 ? >3 >\33  > 03 >\ 33 > >3\ > M30 > XT308@P[  (T3 I0 1T 1/T30  3&\ J3 1\T8 VT@P30 &3\ L0 1\T33 > P 3 > P " 9 0X :l3T 3 ;\3; > M= >@P M\ 33 > A= N0 ATGGdIHdJ0dK\33  > IL3 > I\ "33 > UR >0 YT%38= >@P (3Tb H3 1Th 3\= >0 &3\ H0 1\HPREACITPCCSPUT CCSMVAFORMLN3CCSADD6WRITERSFILERRUPDENDREADR nCCSBLKUPDRECPUTACFCCSTIMPUTS P P [kRSWIT C16 F CCS CCS 3.0 SL-149@P@PWRS@P999 @P998 @P997 @P @P @P - ACCOUNT NOT IN ACCAGE @P0  d0T E0  3  l\ D0HhlT3; C@P0E  C 0(π h  (ʀ hT 4 ?@PV >@PX > ( Vh 0( Vh\ @Pg >@Pi > ( hh 0( hh\ @Px >@Pz > ( Dh 0( Dh\ @P >@P >\33 F 0 F\\33 M3 > M\31  > 03 ?\ 3 C C3Tw3 > (T@P3 H0 1TT3@ M30 > > MT3 >0  1ݤ0  \3; J 1@P\\ 33 > O >0 OyT3 &\33 M 10\d  3j000 \33  A 0; A\ @P3 @ 03 @\ 33 F  F3\  F30  F\33  A3  A $h\@P3- > @3  @T33  F3  F\33  F 03 F\ 33 A  AހhT@P0O T3 >00 (T30 H 1T@P%c@P2c@PcHPRSWIT fPFORMLN"CCSMVA3CCSADDRPUTS RFILERR\UPDENDbREADR DELRECCCSPUTMP P [TOTALP C23 F CCS CCS 3.0 SL-149@P * TOTALS *  @P+ @P? @PD * P R E V I O U S@Po * @P @P ACCOUNTS NUMBER AMT DELQ PAYOFF AMT DELQ  PA@PYOFF @P @P ADDED  @P @P @P REACTIVATED  @P; @PO @PT UPDATED  @P @P @P RELEASED  @P @P @P SATISFIED <  3k0  @P @P @P WRITTENOFF  @PK @P_ @Pd REJECTED  @P @P @P0 5 Bl dT31 D C3 > C\ 3 D C >03 C\ D13 Cb > C3\ D C0 > C\39 D C@P0 > C\31 D C.3 > C\ 3 D Cr >0 C h h D(hT@Pȵ  D(hT 9@Pا 1ء 1T1 A3 ? @\ 13 A" ? @1\ Af3 ? @\ 13 A ? @1\ A)3 ? @\ @P, Am ?03 @\ P A0 ? @\3 V A ?03 @\ J A09 ? @\3 Au >03 @\ t A0 > @\3 z A >0; @\ n A@P3WA > @1\ A|3 > @\ b13 A > @1\ h A3 > @\ \13 AH > @ d D,hT@P} 1H"PTOTALPPCCSMVACCSGETCCSPUTEDIT  PRTLIN{P P [UNCUPD C31 F CCS CCS 3.0 SL-149@P @P@P@P!@Pkk@@PE@P@Pkk@P qq@P#ww @P& @P) @P,j  3l0@P/ @P2 @P5@P8@P;@P>@PA@PD@PG@PJ@PM(@PP@PS@PV@PY@P\@P_@PbT 33 > C 0 C h!( ( hʝ ʘ !hހhڀ hր@P h\@P@P0 1\ > >T0\ >1 >\1HPUNCUPDPCCSMVAcCCSPYTP P [Q8QBDS C46 F CCS CCS 3.0 SL-149@P8 :01@P0 ;0360@P8@P8 3 @P0 000000000000@P0 000000000000@P8 c  3m0@P0 - ACCOUNT ALREADY IN ACCAGE @P0  CO HOST @P8 9 @P8 @P0 TRAN ACCOUNT BORROWERS DELINQUENT DELINQUENT C@P0 URRENT @P0 @P0 CODE NUMBER NAME DATE AMOUNT P@P0 AYOFF ACTION @P0 $ @P0  @P0 @P0  @P8@P8 @P8 @P8@P8 @P0 <-- HDR1 FROM UTILITY FILE GOES HERE -->  @P0  @P0  @P0 <-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE UPDATE REPORT @P0 H PAGE @P0 \ @P0 _<-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE->  @P0 @P0 @P0hADDACT  @P0ACCAGE  @P06COSIGNER  @P0 DELQMST  @P0INACCT    3n0@P0UPDINPUT  @P0UPDPRINT  @P0RSWFIL  @P0TRANFL  @P0TRNBCK  @P0XUTIFIL  @P8 @P0 FHDR1@P0 HUPDY@P8 B@P8 w@P8 e@P8 @P8 @P8 @P8 @P8 @P8 2@P8 Y@P8 @P8 @P8 _@P0 40000000001@P0 000000000000@P0 000000000000@P0 000000000000@P0 000000000000000000000000000000000000@P0 000000000000@P8 =@P8 >@P8 ?@P8 @  3o0@P8 A@P8 B@P8 C@P8 D@P8 E@P8 F @P8 G @P8 H @P8 I @P8 J @P8 K@P8 L@P8 M@P8 N@P8 O@P8 P@P8 Q@P8 R@P8 S#@P8 T(@P8 U7@P8 VB@P8 WP@P8 XR@P8 Y`@P8 Z@P0 000000000000@P8 ;@P8 #@P0 000000000000@P0 000000000000@P0 q#  3p0  @P0  @P0J @P0^  @P0 @P0  @P0 @P0  @P0 @P0  @P0F @P0Z  @P0 @P0  @P0 @P0  @P0 @P0  @P0B @P0V  @P0 @P0  @P0 @P0  @P0 @P0  @P0> @P0R  @P0} @P0  @P0 @P0  @P0 2Y  3q1@P0 @P0E@P0@P0g@P0@P0w@P0@P0@P0@P0%@P0@P0@P8 D@P8 &@P8 2@P8 @P8 )@P8 @P8 M@P0 n000000000000000000000000000000000000@P0 J000000000000000000000000000000000000@P0 \000000000000000000000000000000000000@P8 @P8 @P8@P8 @P8 @P8 w@P8 k@P8 @P8@P8   3r1&@P8 @P0 / @P8@P0 )301 @P0 +302 @P0 -303 @P8 @P8 @P0 000000000000@P8@P0 000000000000@P0 000000000000@P0 000000000000@P8 P P [sUPDEND C47 F CCS CCS 3.0 SL-149@P? T00r 0\g0P 0\E0 0\w0 8\@P+ 3\0 3\%  3\쨷 3\Ũ ;\@P0V#  \00 T 0 ATHPUPDENDoPCLOSFLTAPMOTgPGMOUTkP P [.UPDIT C48 F CCS CCS 3.0 SL-149@PT33  > 03 >\ 33 > >3\  30 > >\33  >3 >\ 433 ? > 0 >T B@P+HPUPDIT *PCCSADDFORMLN%P P [UPINIT C49 F CCS CCS 3.0 SL-149@P@P T 1d0 d 0d T3 > ~3 ? >T33 > C 3 > C 8"d @P4h h "p8n (h 1 TX  3s1:3 (T33 @ 1 T @P_  \30 .\30 @ 1\  d 3\X &\33X @ 13\\ 0 &@P3\ @3 1\\30g6̽ &\630 @ 1\3\Eh̰ &\33h @ 13\\w0̣ &;\ @@P 1\\30̖ &\30 @ 1\3TM00 (TV30 @ 1T0\ "0 9 #;\%@P &3\ @0 1\\3 .٤  \30 @ 1\0 d dT330 F8¤ @P ̽0 ̸ &\X30 J 1\ B, hT'0; B T@P0% ? T0 G 1\300 H̖ 0  (T3X J0 1T03 H h/T2@P0P$ G)d T3 > M\30 >   &\30 J 1\  8 d@P|HPUPINIT~PAMONTOADAYTOAYERTOPGMIN EDIT CCSMVA OPENFLFILERR@UPDENDFREADR ICCSADNCCSBLKVP __ $*CLOSE $*CTO, PROGRAM MHUPDT HAS BEEN INSTALLED $*CTO, $*CTO, INSTALLING NEWS FROM B.NEWS, CCS149 FILE $*OPEN,FN=B.NEWS,OW=CCS149,LU=21,R $*REW,21 $*K,L14 $*LIBEDT  LIB  IN  *K,I21,P8  IN  *P,F,2 ! NEWS 8900 B81 F CCS CCS 3.0 SL-149 ! FMENTP 9003 F58 A ITOS CCS 3.0 SL-149 ! Q8QINI 905F H04 A FTNR CCS 3.0 SL-149 _  3t1N! Q8QEND 9135 H05 A FTNR CCS 3.0 SL-149 ! Q8CMP 9156 H06 A FTNR CCS 3.0 SL-149 ! Q8RWBU 9239 H07 A FTNR CCS 3.0 SL-149 ! Q8ERRM 9352 H08 A FTNR CCS 3.0 SL-149 ! Q8DFIO 9429 H09 A FTNR CCS 3.0 SL-149 ! Q8QX 94EC H10 A FTNR CCS 3.0 SL-149 ! Q8QUNI 9551 H11 A FTNR CCS 3.0 SL-149 ! Q8FGET 95DA H12 A FTNR CCS 3.0 SL-149 ! Q8MAGT 963C H13 A FTNR CCS 3.0 SL-149 ! TAPCON 96C0 H14 A FTNR CCS 3.0 SL-149 ! PSSTOP 975D H16 A FTNR CCS 3.0 SL-149 ! Q8PAND 979C H17 A FTNR CCS 3.0 SL-149 ! CCSBLK 980A A03 A CCS CCS 3.0 SL-149 ! CCSCST 981A A04 A CCS CCS 3.0 SL-149 ! CCSMVA 985A A08 A CCS CCS 3.0 SL-149 ! EDIT 9889 B50 F CCS CCS 3.0 PSrPD SL-149 ! FILERR 997B B52 F CCS CCS 3.1 10-23-81 SL-149 ! Q8PRMS 9A46 R99 A RPG CCS 3.0 SL-149 ! PARABN 9A6A S53 A RPG CCS 3.0 SL-149 ! Q8IFRM 9A7C H01 F FTNR CCS 3.0 SL-149 ! Q8FS 9ABB H02 F FTNR CCS 3.0 SL-149 ! Q8TRAN 9CF0 H03 F FTNR CCS 3.0 SL-149 ! Q8EXP1 A531 H18 A FTNR CCS 3.0 SL-149 ! Q8EXP9 A5AC H19 A FTNR CCS 3.0 SL-149 ! FLOTN A668 G14 A FTNR CCS 3.0 SL-149 ! COMNFP A8A6 G15 A FTNR CCS 3.0 SL-149 ! Q8DXP1 A9DA K15 A FTNR CCS 3.0 \X  3u1b SL-149 ! Q8DXP9 AA77 K16 A FTNR CCS 3.0 SL-149 ! DFLOTN AB82 K12 A FTNR CCS 3.0 SL-149 ! CCSGET AFF7 A06 A CCS CCS 3.0 SL-149 ! CCSHXA B017 A07 A CCS CCS 3.0 SL-149 ! CCSPUT B044 A09 A CCS CCS 3.0 SL-149  IN  *K,I8  IN  *N,NEWS,,,B  IN  *Z $*K,I13 $*CLOSE $*CTO, PROGRAM NEWS HAS BEEN INSTALLED $*CTO, $*CTO, INSTALLING NMCHNG FROM B.NMCHNG, CCS149 FILE $*OPEN,FN=B.NMCHNG,OW=CCS149,LU=21,R $*REW,21 $*K,L14 $*LIBEDT  LIB  IN  *K,I21,P8  IN  *P,F,2 ! NMCHNG 8900 B82 F CCS CCS 3.0 .LA PSR(05/83) SL-149 F  3v1v ! FMENTP 92B1 F58 A ITOS CCS 3.0 SL-149 ! CCSBLK 930D A03 A CCS CCS 3.0 SL-149 ! CCSCST 931D A04 A CCS CCS 3.0 SL-149 ! CCSGET 935D A06 A CCS CCS 3.0 SL-149 ! CCSMVA 937D A08 A CCS CCS 3.0 SL-149 ! CCSPUT 93AC A09 A CCS CCS 3.0 SL-149 ! FILERR 93CC B52 F CCS CCS 3.1 10-23-81 SL-149 ! Q8PRMS 9497 R99 A RPG CCS 3.0 SL-149 ! PARABN 94BB S53 A RPG CCS 3.0 SL-149 ! CCSHXA 94CD A07 A CCS CCS 3.0 SL-149  IN  *K,I8  IN  *N,NMCHNG,,,B  IN  *Z $*K,I13 $*CLOSE $*CTO, PROGRAM NMCHNG HAS BEEN INSTALLED $*CTO, $*CTO, INSTALLING PGGEN FROM B.PGGEN, CCS149 FILE $*OPEN,FN=B.PGGEN,OW=CCS149,LU=21,R $*REW,21 $*K,L14 $*LIBEDT  LIB  3w1  IN  *K,I21,P8  IN  *P,F,2 ! PGGEN 8900 A16 A CCS CCS 3.0 SL-149 ! Q8QBDS 8D4A B89 F CCS CCS 3.0 SL-149 ! PGGEN0 8D4A B90 F CCS CCS 3.0 POST 3.0 PSR 12/28/2 SL-149 ! PGGEN1 8FAA B91 F CCS CCS 3.0 PSR 03/23/81 SL-149 ! PGGEN3 9E52 B92 F CCS CCS 3.0 POST 3.0 PSR 12/28/2 SL-149 ! PGGN2E A104 B93 F CCS CCS 3.0 SPECIAL 12/29/82 SL-149 ! PGGN2P B0D4 B94 F CCS CCS 3.0 SL-149 ! PGSEDT C1E7 B97 F CCS CCS 3.0 SL-149 ! PGSJL C228 B98 F CCS CCS 3.0 SL-149 ! PGSJR C282 B99 F CCS CCS 3.0 SL-149 ! PGSLST C2EC C01 F CCS CCS 3.0 SL-149 ! FMENTP C669 F58 A ITOS CCS 3.0 SL-149 ! FORTN C6C5 F01 A FTNR CCS 3.0 SL-149 ! Q8PRMS C7E2 R99 A RPG CCS 3.0 SL-149 ! PARABN C806 S53 A RPG CCS 3.0 SL-149 ! CCSBLK C818 A03 A CCS CCS 3.0 SL-149 ! CCSCST C828 A04 A CCS CCS 3.0 SL-149 ! CCSGET C868 A06 A CCS CCS 3.0 SL-149 ! CCSMVA C888 A08 A CCS CCS 3.0 SL-149 ! CCSPUT C8B7 A09 A CCS CCS 3.0 SL-149 ! ASCBIN C8D7 B09 F CCS CCS 3.0 SL-149 ! BINASC C8F7 B16 F CCS CCS 3.0 SL-149 ! FILERR C94C B52 F CCL  3x1S CCS 3.1 10-23-81 SL-149 ! CCSHXA CA17 A07 A CCS CCS 3.0 SL-149  IN AL:1S LA *K,I8  IN PROGRAM LAXTRT F2000010 1 /F20 F L CCS 3.0 POST 3.1 PSR SL-173***00020C F2000030C LEGAL AND AGENCY SYSTEM VERSION 3 F2000040C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA F2000050C COPYRIGHT CONTROL DATA CORPORATION, 1979 F2000060C F2000070C THIS PROGRAM BLOCK-READS (16 RCDS) THE C.C.S. FILE 'DELQMST', F2000080C ADDS EXTRACTED RECORDS TO THE LEGAL/AGENCY FILE 'LADLQMST' F2000090C AND CREATES THE TEMPORARY FILE 'LADLQKEY'. IF THE ACCOUNT F2000100C STATUS OF THE RECORD READ FROM 'DELQMST' IS 'W' AND THE CHARS F2000110C 'LA' ARE NOT IN CHAR-POSITIONS 1055-1056, THIS PROGRAM PUTS F2000120C THE LITERAL 'LA' INTO THOSE CHARACTER POSITIONS, WRITES THE F2000130C RECORD-KEYS TO 'LADLQKEY', ADDS THE RECORDS TO 'LADLQMST AND F2000140C UPDATES THE 'DELQMST' RECORD(S) FOR THE 'LA'. F20001502 F2000160C ****************************************************** F2000170C * * F2000180C * FUNCTION OF VARIABLES * F2000190C * * F2000200C * * F2000210C * J = ADDRESS (CHAR-POS IN ARRAY) OF FIRST * F2000220C * WORD IN RECORD READ ( DELQMST ) * F2000230C * K = TOTAL NUMBER OF RECORDS READ * F2000240C * L = TOTAL # OF RECORDS WITH STATUS OF 'W' * F2000250C * M = NUMBER OF RECORDS WRITTEN THIS DO-LOOP * F2000260C * N = ADDRESS (CHAR-POS IN ARRAY) OF FIRST * F2000270C * WORD IN RECORD WRITTEN ( LADLQKEY ) * F2000280C * MD = NUMBER OF ATTEMPTS TO WRITE DUPLICATE * F2000290C * RECORDS TO LADLQMST * F2000300C * MA = NUMBER OF ATTEMPTS TO WRITE DUPLICATE * F2000310C * RECORDS TO LAACCAGE * F2000320C * ND = CHARACTER POSITION OF FIRST WORD OF * F2000330C * ARRAY-ELEMENT (ACCT-#) IN 'DUP' ARRAY * F2000340C * CONTAINING ACCT-#'S OF DUPLICATE RCD'S * F2000350C * MTOT = TOTAL # OF RECORDS WRITTEN TO LADLQKEY * F2000360C * * F2000370C ****************************************************** F20003802 F2000390 INTEGER DEQREQ(24), LDQREQ(24), KEYREQ(24), AGEREQ(24), F2000400 1 DDATA(15), LDATA(15), KDATA(15), ADATA(15),  3y1 F2000410 2 DEQREC(16000), LDQREC(1002), KEYREC(128), AGEREC(43), F2000420 3 DUP(8,50), DUP2(8,50), MD, MA, ND, MTOT, SPACES(3), F2000430 4 KEY1(8), USER(4), HD(20,3), HL(20), DT(3), EFLAG F20004401 F2000450 DATA K, L, M, MD, MA, ND, MTOT, EFLAG / 8*0 /, KEY1 / 8*0 / F2000460 DATA IK / $2020 /, LA / 'LA' /, DUP, DUP2 / 800*$2020 / F2000470 DATA SPACES / 3*$2020 / F2000480 DATA DEQREQ, LDQREQ, KEYREQ, AGEREQ / 96*0 / F2000490 DATA DDATA / 'DELQMST CCS20 ', 0,16, 1 / F2000500 DATA LDATA / 'LADLQMSTLA ', 1, 1, 1 / F2000510 DATA KDATA / 'LADLQKEYLA ', 0, 1, 1 / F2000520 DATA ADATA / 'LAACCAGELA ', 1, 1, 1 / F20005301 F2000540 EQUIVALENCE ( DEQREQ(15), NUMREC ) F2000550C POST 3.1 PSR CHECK FOR DELETED RECORDS ***00560 INTEGER FDEL ***00570 EXTERNAL FMRDEL ***00580 ASSEM $C000,FMRDEL,$6800,FDEL ***00590CEND ***006001 F2000610C********** ACCEPT LOG-IN FROM ITOS F2000620 CALL PGMIN ( USER, LU, MODE, NPORT ) F20006301 F2000640C********** STORE SYSTEM DATE AND INITIALIZE 'LADLQKEY' BUFFER F2000650 CALL LAHEAD ( HD, DT ) F2000660 CALL CCSBLK ( KEYREC, 256 ) F20006701 F2000680C********** OPEN FILES F20006901 F2000700 CALL OPENFL ( DEQREQ, DDATA, ISTAT ) F2000710 IF ( ISTAT .GE. 0 ) GO TO 100 F2000720 CALL FILERR ( DDATA, 3, ISTAT, 5 ) F2000730 GO TO 900 F20007401 F2000750 100 CALL OPENFL ( LDQREQ, LDATA, ISTAT ) F2000760 IF ( ISTAT .GE. 0 ) GO TO 105 F2000770 CALL FILERR ( LDATA, 3, ISTAT, 5 ) F2000780 GO TO 900 F20007901 F2000800 105 CALL OPENFL ( AGEREQ, ADATA, ISTAT ) F2000810 IF ( ISTAT .GE. 0 ) GO TO 110 F2000820 CALL FILERR ( ADATA, 3, ISTAT, 5 ) F2000830 GO TO 900 F20008401 F2000850 110 CALL CLEAR ( KEYREQ, KDATA, ISTAT ) F2000860 IF ( ISTAT .GE. 0 ) GO TO 115 F2000870 CALL FILERR ( KDATA, 1, ISTAT, 5 ) F2000880 GO TO 900  3z1 F20008901 F2000900 115 CALL OPENFL ( KEYREQ, KDATA, ISTAT ) F2000910 IF ( ISTAT .GE. 0 ) GO TO 200 F2000920 CALL FILERR ( KDATA, 3, ISTAT, 5 ) F2000930 GO TO 900 F20009401 F2000950C********** READ RECORDS FROM DELQMST AND PROCESS F20009601 F2000970 200 CALL GETS ( DEQREQ, DEQREC, KEY1, ISTAT ) F20009801 F2000990C********** EOF? F20010001 F2001010 IF ( AND ( ISTAT, $8100 ) .EQ. $8100 ) GO TO 400 F2001020 IF ( AND ( ISTAT, $100 ) .EQ. $100 ) EFLAG = 1 F20010301 F2001040C********** FILE ERROR? F20010501 F2001060 IF ( ISTAT .GE. 0 ) GO TO 210 F2001070 CALL FILERR ( DDATA, 14, ISTAT, 5 ) F2001080 GO TO 900 F20010901 F2001100C********** PERFORM PROCESSING OF 16 RECORDS ACCESSED IN BLOCK-READ F20011101 F2001120 210 DO 300 I = 1, NUMREC F2001130 J = 1000*I - 999 F2001140C POST 3.1 PSR CHECK FOR DELETED RECORDS ***01150 IF(DEQREC(J).EQ.$2020.OR. ***01160 1 DEQREC(J).EQ.FDEL) GO TO 300 ***011701 ***01180C PUT CHECK FOR VALID PRODUCT LINES HERE ***01190CEND ***012001 F2001210 K = K + 1 F20012201 F2001230C********** DOES RECORD HAVE AN ACCOUNT STATUS OF 'W' IN CHAR-POS 306?F20012401 F2001250 IF ( AND ( DEQREC(J+152), $FF ) .NE. $57 ) GO TO 300 F2001260 L = L + 1 F20012701 F2001280C********** DO CHARS. 1055-1056 CONTAIN 'LA'? F20012901 F2001300 IF ( DEQREC(J+527) .EQ. $4C41 ) GO TO 300 F2001310 M = M + 1 F2001320 N = 8*M - 7 F20013301 F2001340C********** PUT THE VARIABLE LA (CONTAINING 'LA') INTO CHARS 1055-1056F20013501 F2001360 DEQREC(J+527) = LA NG  3{1 F20013701 F2001380C********** MOVE DATA FROM 'DELQMST' ARRAY TO 'LADLQMST' BUFFER. F20013901 F2001400 CALL CCSBLK ( LDQREC, 2004 ) F2001410 CALL CCSMVA ( DEQREC, 2*J-1, 1056, LDQREC, 1, 2000 ) F20014201 F2001430C************************************************************** 173*A085***014401 ***01450C********** MOVE CURRENT PAYOFF IN CCS TO BALANCE DUE LA ***014601 ***01470 CALL CCSMVA (DEQREC, 2*J+903, 9, LDQREC, 1063, 9) ***01480C************************************************************** 173*A085***014901 F2001500C********** MOVE SPACES TO POSITION 1047 - PREVIOUS NAME FIELD F2001510 CALL CCSMVA (SPACES, 1, 6, LDQREC, 1047, 6) F20015201 F2001530C********** MOVE SYSTEM DATE INTO L/A F20015401 F2001550 LDQREC(529) = DT(1) F2001560 LDQREC(530) = DT(2) F2001570 LDQREC(531) = DT(3) F20015801 F2001590C POST 3.1 PSR BLANK OUT EXTRA FIELDS ***016001 ***01610C CLEAR DATE OF HISTORY TAPE ***01620 CALL CCSMVA(SPACES,1,6,LDQREC,1031,6) ***01630C CLEAR QUEUE REASSIGN CODE ***01640 CALL CCSPUT($20,294,LDQREC) ***01650C CLEAR QUEUE ASSIGNED ***01660 CALL CCSMVA(SPACES,1,4,LDQREC,271,4) ***01670C CLEAR PRIORITY ***01680 CALL CCSMVA(SPACES,1,4,LDQREC,281,4) ***01690C CLEAR PREVIOUS QUEUE ***01700 CALL CCSMVA(SPACES,1,4,LDQREC,296,4) ***01710C CLEAR DATE QUEUE ASSIGNED ***01720 CALL CCSMVA(SPACES,1,6,LDQREC,300,6) ***01730C CLEAR PP FLAG ***01740 CALL CCSPUT($20,285,LDQREC) ***01750C MOVE SYSTEM DATE TO NEXT CONTACT DATE ***01760 CALL CCSMVA(DT,1,6,LDQREC,275,6) ***017701 ***01780C DO MOVING BY PRODUCT LINE HERE ***017901 ***01800CEND ***01810C********** REPLACE 'W' STATUS WITH BLANK (ACTIVE) STATUS IN L/A RCD. F20018201 F2001830 CALL CCSPUT ( $20, 306, LDQREC ) F20018401  3|1 F2001850C********** ADD RECORD TO INDEX FILE 'LADLQMST' F20018601 F2001870 CALL WRITER ( LDQREQ, LDQREC, LDQREC, ISTAT ) F2001880 IF ( AND ( ISTAT, $10 ) .EQ. $10 ) GO TO 275 F2001890 IF ( ISTAT .GE. 0 ) GO TO 250 F2001900 CALL FILERR ( LDATA, 12, ISTAT, 5 ) F2001910 GO TO 900 F20019201 F2001930C********** MOVE MASTER FILE ACCOUNT # TO 'LADLQKEY' ARRAY. F20019401 F2001950 250 CALL CCSMVA ( DEQREC, 2*J-1, 2000, KEYREC, 2*N-1, 16 ) F20019601 F2001970C********** MOVE ACCOUNT # FROM 'DELQMST' ARRAY TO 'LAACCAGE' BUFFER. F20019801 F2001990 CALL CCSBLK ( AGEREC, 86 ) F2002000 CALL CCSMVA ( DEQREC, 2*J-1, 2000, AGEREC, 1, 16 ) F20020101 F2002020C********** ADD RECORD TO INDEX FILE 'LAACCAGE' F20020301 F2002040 CALL WRITER ( AGEREQ, AGEREC, AGEREC, ISTAT ) F2002050 IF ( AND ( ISTAT, $10 ) .EQ. $10 ) GO TO 285 F2002060 IF ( ISTAT .GE. 0 ) GO TO 300 F2002070 CALL FILERR ( ADATA, 12, ISTAT, 5 ) F2002080 GO TO 900 F20020901 F2002100C********** ATTEMPT TO WRITE DUPLICATE RECORD TO LADLQMST. F2002110C********** SAVE ACCOUNT NUMBER AND CONTINUE.(UP TO 50 DUP-RCDS) F20021201 F2002130 275 M = M - 1 F2002140 MD = MD + 1 F2002150 ND = 8*MD - 7 F2002160 CALL CCSMVA ( LDQREC, 1, 16, DUP, 2*ND-1, 16 ) F2002170 GO TO 300 F20021801 F2002190C********** ATTEMPT TO WRITE DUPLICATE RECORD TO LAACCAGE. F2002200C***** 1. RE-ACCESS 'LAACCAGE' RECORD F2002210C***** 2. MOVE BLANKS INTO ALL BUT PRIMARY KEY OF RCD BUFFER F2002220C***** 3. UPDATE THE RECORD F2002230C***** 4. SAVE ACCOUNT NUMBER AND CONTINUE (UP TO 50 DUP-RCDS) F20022401 F2002250 285 CALL READR ( AGEREQ, AGEREC, AGEREC, ISTAT ) F2002260 IF ( ISTAT .GE. 0 ) GO TO 290 F2002270 CALL FILERR ( ADATA, 13, ISTAT, 5 ) F2002280 GO TO 900 F20022901 F2002300 290 CALL CCSMVA ( SPACES, 1, 0, AGEREC, 17, 66 ) F20023101 F2002320 CALL UPDREC ( AGEREQ, AGEREC, ISTAT ) b  3}2 F2002330 IF ( ISTAT .GE. 0 ) GO TO 295 F2002340 CALL FILERR ( ADATA, 15, ISTAT, 5 ) F2002350 GO TO 900 F20023601 F2002370 295 MA = MA + 1 F2002380 ND = 8*MA - 7 F2002390 CALL CCSMVA ( AGEREC, 1, 16, DUP2, 2*ND-1, 16 ) F20024001 F2002410 300 CONTINUE F20024201 F2002430C********** BLOCK-WRITE THE SEQUENTIAL OUTPUT RECORD 'LADLQKEY'. F20024401 F2002450 IF ( M .EQ. 0 ) GO TO 310 F2002460 CALL PUTS ( KEYREQ, KEYREC, M, ISTAT ) F2002470 IF ( ISTAT .GE. 0 ) GO TO 305 F2002480 CALL FILERR ( KDATA, 11, ISTAT, 5 ) F2002490 GO TO 900 F20025001 F2002510C********** UPDATE DELQMST F20025201 F2002530 305 CALL UPDREC ( DEQREQ, DEQREC, ISTAT ) F2002540 IF ( ISTAT .GE. 0 ) GO TO 310 F2002550 CALL FILERR ( DDATA, 15, ISTAT, 5 ) F2002560 GO TO 900 F20025701 F2002580C********** CLEAR THE INPUT/OUTPUT FILE BUFFERS AND CONTINUE F20025901 F2002600 310 CALL CCSBLK ( DEQREC, 32000 ) F2002610 CALL CCSBLK ( KEYREC, 256 ) F20026201 F2002630 MTOT = MTOT + M F2002640 M = 0 F20026501 F2002660 IF ( EFLAG .EQ. 0 ) GO TO 200 F20026701 F2002680C********** PRINT HEADING AND COUNTERS F2002690 400 CONTINUE F2002700 ENDFILE 9 F20027101 F2002720 WRITE ( 9, 500 ) HD F2002730 500 FORMAT ( // 3 ( / 30X, 20R2 ) ) F20027401 F2002750 WRITE ( 9, 505 ) F2002760 505 FORMAT ( // 30X, *LEGAL & AGENCY EXTRACT PROGRAM* // ) F20027701 F2002780 WRITE ( 9, 510 ) F2002790 510 FORMAT ( 29X, * DATE RCDS READ W-RCDS RCDS WRITTEN* / ) F20028001 p  3~2 F2002810 WRITE ( 9, 520 ) DT, K, L, MTOT F2002820 520 FORMAT ( 29X, 3R2, 5X, I5, 4X, I5, 6X, I5 / ) F20028301 F2002840 IF ( MD .LE. 0 ) GO TO 800 F20028501 F2002860C********** ATTEMPTS TO WRITE DUPLICATE RECORDS TO 'LADLQMST' FILE F2002870C********** ( CCS VS. L/A ) HAVE OCCURRED. LIST TO PRINTER ACCOUNT F2002880C********** NUMBERS OF DUPLICATE RECORDS WITH ERROR MESSAGE. F20028901 F2002900 DO 700 I = 1, MD F2002910 WRITE ( 9, 600 ) ( DUP(J,I), J=1,8 ) F2002920 600 FORMAT ( / 10X, 8R2 , 5X, *ERROR - DUPLICATE RECORD. ACCOUNT*, F2002930 1 1X, *ALREADY EXISTS ON L/A MASTER FILE* / ) F20029401 F2002950 700 CONTINUE F20029602 F2002970C********** ATTEMPTS TO WRITE DUPLICATE RECORDS TO 'LAACCAGE' (THAT F2002980C********** WERE NOT DUPLICATE RECORDS TO 'LADLQMST') HAVE OCCURRED. F2002990C********** LIST TO PRINTER ACCOUNT NUMBERS OF DUPLICATE RECORDS WITH F2003000C********** ERROR MESSAGE. F20030101 F2003020 IF ( MA .LE. 0 ) GO TO 900 F20030301 F2003040 800 DO 850 I = 1, MA F2003050 WRITE ( 9, 825 ) ( DUP2(J,I), J=1,8 ) F2003060 825 FORMAT ( / 10X, 8R2, 5X, *ERROR - DUPLICATE RECORD. ACCOUNT*, F2003070 1 1X, *ALREADY EXISTS ON L/A AGEING FILE* / ) F20030801 F2003090 850 CONTINUE F20031002 F2003110C********** CLOSE FILES AND STOP F20031201 F2003130 900 CALL CLOSFL ( DEQREQ, ISTAT ) F2003140 CALL CLOSFL ( LDQREQ, ISTAT ) F2003150 CALL CLOSFL ( KEYREQ, ISTAT ) F2003160 CALL CLOSFL ( AGEREQ, ISTAT ) F2003170 CALL PGMOUT F20031801 F2003190 END F2003200_  32* ̪  32> ̕  32R ̀  3sUAL sUS CCS20 69H 70I 71J 72K 73L 74M 75N 76O 77P 78QCCS20 00LA 00*JOB,, INSTALL UPDATE CCS3.0-5 SYSTEM 11/03/82 00010*K,L14 00020*CTO, INSTALLING UPDATE FROM B.UPDATE, CCS20 FILE /CCS3.0-5 SYS 00030*OPEN,FN=B.UPDATE,OW=CCS20,LU=21,R 00040*REW,21 00050*K,L14 00060*LIBEDT 00070*K,I21,P8 00080*P,F,2 00090*K,I8 00100*N,UPDATE,,,B 00110*Z 00120*K,I13 00130*CLOSE 00140*CTO, PROGRAM UPDATE HAS BEEN INSTALLED 00150*CTO, 00160*CTO, 00170*CTO, INSTALL C O M P L E T E !!! 00180*Z 00190_ LA 55LA 56LA 57ALs_S LA LA 40LA 41LA 42LA 43LA 44LA 45LA 46LA 47LA 48LA 49LA 50LA 51*JOB,, INSTALL LUPDAT CCS3.0-5 SYSTEM 03/17/83 00010*K,L14 00020*CTO, INSTALLING LUPDAT FROM B.LUPDAT, LA FILE /CCS3.0-4 SYS 00030*OPEN,FN=B.LUPDAT,OW=LA,LU=21,R 00040*REW,21 00050*K,L14 00060*LIBEDT 00070*K,I21,P8 00080*P,F,2 00090*K,I8 00100*N,LUPDAT,,,B 00110*Z 00120*K,I13 00130*CLOSE 00140*CTO, PROGRAM LUPDAT HAS BEEN INSTALLED 00150*CTO, 00160*CTO, 00170*CTO, INSTALL C O M P L E T E !!! 00180*Z 00190_  3si mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALsmS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 00 CCS20 00 LA 00 01 NEWS 02 NEWS 03 NEWS 04 NEWS 05 NEWS 06 NEWS 07 NEWS 08 NEWS 09 NEWS 10 NEWS 11 NEWS 12 NEWS 13 NEWS 14 NEWS 15 NEWS 16 NEWS 17 NEWS 18 NEWS 19 NEWS 20 NEWS 21 NEWS 22 NEWS 23 NEWS 24 NEWS 25 NEWS 26 NEWS 27 NEWS 28 NEWS 29 NEWS 30 NEWS 31 NEWS 32 NEWS 33 NEWS 34 NEWS 35 NEWS 36 NEWS 37 NEWS 38 NEWS 39 NEWS 40 NEWS 41 NEWS 42 NEWS 43 NEWS 44 NEWS 45 NEWS 46 NEWS 47 NEWS 48 NEWS 49 NEWS 50 NEWS 51 NEWS 52 NEWS 53 NEWS 54 NEWS 55 NEWS 56 NEWS LA 01 NEWS LA 02 NEWS LA 03 NEWS LA 04 NEWS LA 05 NEWS LA 06 NEWS LA 07 NEWS LA 08 NEWS LA 09 NEWS LA 10 NEWS LA 11 NEWS LA 12 NEWS LA 13 NEWS LA 14 NEWS LA 15 NEWS LA 16 NEWS LA 17 NEWS LA 18 NEWS LA 19 NEWS LA 20 NEWS LA 21 NEWS LA 22 NEWS LA 23 NEWS LA 24 NEWS LA 25 NEWS LA 26 NEWS LA 27 NEWS LA 28 NEWS LA 29 NEWS LA 30 NEWS LA 31 NEWS LA 32 NEWS LA 33 NEWS LA 34 NEWS LA 35 NEWS LA 36 NEWS LA 37 NEWS LA 38 NEWS LA 39 NEWS LA 40 NEWS LA 41 NEWS LA 42 NEWS LA 43 NEWS LA 44 NEWS LA 45 NEWS LA 46 NEWS LA 47 NEWS LA 48 NEWS LA 49 NEWS LA 50 NEWS LA 51 NEWS LA 52 NEWS LA 53 NEWS LA 54 NEWS LA 55 NEWS LA 56 NEWS CCS149 00 SPECIAL 00 LIBRARY 00 __ X0300030REQUESTED COMMAND IS NOT LEGAL X0300031ILLEGAL COMMAND FORMAT X0300032FILE REQUEST REJECTED X0300033FILE COULD NOT BE LOCATED X0300034MM I/O ERROR WAS NOTED X0300035DISK UNIT SPECIFIED ALREADY MOUNTED X0300036  30 AL0 S CCS20 ! Q8EXP9 C181 H19 A FTNR CCS 3.0 SL-149 PUPDATE A21 A CCS CCS 3.0 SL-149@PPUPDATEPFUPDATP PR9BASE C12 F CCS CCS 3.0 SL-149@PHPR9BASEP PR9FLDL C13 F CCS CCS 3.0 SL-149@PHPR9FLDLP P [ADDIT B05 F CCS CCS 3.0 SL-149@PA@PT33 A M] >0 MT3 ]T33E] > (3Th H3 1T3\ A M30 > M\3; A@P0,  A\33 > C3 C\33 = = 03 C\ >33 C C3T 4 ?33 > >3\  30 > >\3;  >@P0W >T A\33 > M >0 XT30̫ ̦ &\33 I 1\̝ 13T38̓@P0 ̍ 3&\ J3 1\T0 VT3 (3T L3 1T3T >3; P > P@PHMPADDIT PCCSMVACCSPUT PUTS FILERRUPDENDCCSADDDFORMLNZWRITERdREADR |CCSBLKUPDRECP PCHNGNF B24 F CCS CCS 3.0 SL-149@P@P1@P4@P@P0@PN@Pl1V  30 @PE@P(,@P!@P$@P'@P*@P-@P0 @P5 , h h hTȷ \Ȫ t\@P`Ȟ  l@Pn hh hȻ!" ( hʓ !ȏ谚 Ȩf dؚ@P 5h !0 2. d3 h hT@P@P  h\4@P4 \5H2TThbhmhhhh\hZheh\hVhjh\h@PQheh\hIhJhRh\hhhh\ha'PCHNGNFPQ8PKUPQ8PREPAMONTO:ADAYTO>AYERTOBCCSCSTECCSMVAP P [ CONUPD B32 F CCS CCS 3.0 PSrPD SL-149@PCm@PN@P- NO NON-FINANCIALS ACCEPTED@P@P03U@P @P@P!@P$@P'@P*@P- w,  304@P0@P3@P6 @P9@P<@P?@PB@PGT33  C =3 = 2 2 70 ژ(0T h\hȞ #Ț dhȗhT 0 >h\@Pr hȍ(Έh 1 *T >33 Q > Qx hȴ!& ( h @P !ȥhȡh ȝhT@P@P =ؐ3\ R33 R 2̒ A 4TH33 C =3 = 2 2 &\33 C3 C\@P3 > M]3 > MT0 ]T3E] >00 (Th30 H 1TT33 R 0 RH>PCONUPDPCCSCSTICCSAD[ICALJLlCCSMVACHNGNFCCSPUTPUTS FILERRUPDENDP P [COSUPD B33 F CCS CCS 3.0 SL-149@P@P@P@P@PY@PT3 R =3 = 2 2 \13 R30 = = 2 \3 R =3 = 2 YT3; > M@P00 > N\11 ?T33g  (T630 I 1T 10/ *T@P3[g0  3&\6 J3 1\\11 ?T30g &\630 L 1\@PH|PCOSUPDPCCSCSTCCSMVA+WRITER:FILERRIUPDENDOREADR ZUPDRECuP P [ FORMLN B53 F CCS CCS 3.0 SL-149@PWRITEOFF @PRELEASE  30H @P$SATISFY @P6ADD @PHUPDATE @PZREACTIVATE @PlREJECT - ACCOUNT NOT ACTIVE FOR 30X @P~REJECT - NO ACCOUNT FOR 30X CODE @PREJECT - INVALID TRANSACTION CODE @P ,,hT@P3 > S 3 ? S\33 > @ A03 @\ A33 M F M 1? #  )\33 R Q8 R @P3\ 33 R Q R % !3T 30 > >\33  ?03 @\ 30 ? @ 3\ 3 > >\@P3 ?0 @ HTThŀPFORMLNPQ8PKUPQ8PREPCCSMVAEDIT P P [FUPDAT B56 F CCS CCS 3.0 SL-149@PTTT0 TTTT33 > @ - >3 @ 2 2 \33 > @ +30 > @ 2  \@P3+ > @ )30 > @ 2 'T0 T300 13T L3 1\ lT 43; ? > @PV >T0 o\33 > @ / >3 @ 2̶  T F3\ 4 ? 30 > >\0 W TTTTT@P33̻ 3'\ I3 1T \ 70 3 T\\\3\̝ &\3; L 1@P\\ T\\\T3= '3TG L3 1\\0 9H/PFUPDATPUPINITLABHANNXTRANTOTALP UPDENDGETMASCCSCSTRSWIT 6UPDRECFILERRCCSADDPPRTLINXFORMLNgUNCUPDyPCONUPD{ADDIT }COSUPDWRITERUPDIT REACITP P [GETMAS B58 F CCS 3.0 09-22-81 SL-149@P@P,@P.@P UPDATE WAITING ACCT. NO. @P'.L@P)@P/T33 A M > >0 MT30 >00p  30\ 0  (T33 J 1T 5@P0Z /ެ  d0-T31 A M) M+Ⱥ \31 A M) M\* R'0 RT 1@P,(,- lT.HPGETMASPCCSMVA0READR 8FILERRMUPDENDSCCSCSThWTREADCCSBLKP P [LABHAN B67 F CCS CCS 3.0 SL-149@Px@P0{ . h P( hT   T3 @ hT3 > Wz0 W 1\@P \3 @ h3T lHPLABHANPNXTRANTAPMOTCCSMVACLOSFLP P [LNXTRAN B85 F CCS CCS 3.0 SL-149@P@P@P1h T300 1'0 T30 K 1T dT 1 @P. T0T h  l @P0< T =HPNXTRANHPSTATIT2GETS FILERRUPDEND"FREAD (DISP 0CCSE2AAP P [PRTLIN C09 F CCS CCS 3.0 SL-149@P @P8@P@P \hdh~hhhh 2 l3T 4 ?33 > > d [@P05 d0 \ hT [ T 9 [ؿ 10 T1 Z3 T;\  Z@P3` \\ _13 Z \T30 @0 (T3 H0 1T0 &̞ l \@P3 Z0 \3\ Z0 \3\ ?0 &3\ H0 1\̥ \13 Z 8\\@P0 >̺ &\30 H 1\T Z H TThhh4PPRTLINPQ8PKUPQ8PREPCCSADD*CCSGET33 C C3\ = =10 L\3; = =@P00 GT CT33 4 ? >3 >\33  > 03 >\ 33 > >3\ > M30 > XT308@P[  (T3 I0 1T 1/T30  3&\ J3 1\T8 VT@P30 &3\ L0 1\T33 > P 3 > P " 9 0X :l3T 3 ;\3; > M= >@P M\ 33 > A= N0 ATGGdIHdJ0dK\33  > IL3 > I\ "33 > UR >0 YT%38= >@P (3Tb H3 1Th 3\= >0 &3\ H0 1\HPREACITPCCSPUT CCSMVAFORMLN3CCSADD6WRITERSFILERRUPDENDREADR nCCSBLKUPDRECPUTACFCCSTIMPUTS P P [kRSWIT C16 F CCS CCS 3.0 SL-149@P@PWRS@P999 @P998 @P997 @P @P @P - ACCOUNT NOT IN ACCAGE @P0  d0T E0  3  l\ D0HhlT3; C@P0E  C 0(π h  (ʀ hT 4 ?@PV >@PX > ( Vh 0( Vh\ @Pg >@Pi > ( hh 0( hh\ @Px >@Pz > ( Dh 0( Dh\ @P >}  30@P >\33 F 0 F\\33 M3 > M\31  > 03 ?\ 3 C C3Tw3 > (T@P3 H0 1TT3@ M30 > > MT3 >0  1ݤ0  \3; J 1@P\\ 33 > O >0 OyT3 &\33 M 10\d00 \33  A 0; A\ @P3 @ 03 @\ 33 F  F3\  F30  F\33  A3  A $h\@P3- > @3  @T33  F3  F\33  F 03 F\ 33 A  AހhT@P0O T3 >00 (T30 H 1T@P%c@P2c@PcHPRSWIT fPFORMLN"CCSMVA3CCSADDRPUTS RFILERR\UPDENDbREADR DELRECCCSPUTMP P [TOTALP C23 F CCS CCS 3.0 SL-149@P * TOTALS *  @P+ @P? @PD * P R E V I O U S@Po * @P @P ACCOUNTS NUMBER AMT DELQ PAYOFF AMT DELQ  PA@PYOFF @P @P ADDED  @P @P @P REACTIVATED  @P; @PO @PT UPDATED  @P @P @P RELEASED   30  @P @P @P SATISFIED  @P @P @P WRITTENOFF  @PK @P_ @Pd REJECTED  @P @P @P0 5 Bl dT31 D C3 > C\ 3 D C >03 C\ D13 Cb > C3\ D C0 > C\39 D C@P0 > C\31 D C.3 > C\ 3 D Cr >0 C h h D(hT@Pȵ  D(hT 9@Pا 1ء 1T1 A3 ? @\ 13 A" ? @1\ Af3 ? @\ 13 A ? @1\ A)3 ? @\ @P, Am ?03 @\ P A0 ? @\3 V A ?03 @\ J A09 ? @\3 Au >03 @\ t A0 > @\3 z A >0; @\ n A@P3WA > @1\ A|3 > @\ b13 A > @1\ h A3 > @\ \13 AH > @ d D,hT@P} 1H"PTOTALPPCCSMVACCSGETCCSPUTEDIT  PRTLIN{P P [UNCUPD C31 F CCS CCS 3.0 SL-149@P @P@P@P!@Pkk@@PE@P@Pkk@P qq@P#ww w=  30@P& @P) @P,@P/ @P2 @P5@P8@P;@P>@PA@PD@PG@PJ@PM(@PP@PS@PV@PY@P\@P_@PbT 33 > C 0 C h!( ( hʝ ʘ !hހhڀ hր@P h\@P@P0 1\ > >T0\ >1 >\1HPUNCUPDPCCSMVAcCCSPYTP P [Q8QBDS C46 F CCS CCS 3.0 SL-149@P8 :01@P0 ;0360@P8@P8 3 #  30@P0 000000000000@P0 000000000000@P8 @P0 - ACCOUNT ALREADY IN ACCAGE @P0  CO HOST @P8 9 @P8 @P0 TRAN ACCOUNT BORROWERS DELINQUENT DELINQUENT C@P0 URRENT @P0 @P0 CODE NUMBER NAME DATE AMOUNT P@P0 AYOFF ACTION @P0 $ @P0  @P0 @P0  @P8@P8 @P8 @P8@P8 @P0 <-- HDR1 FROM UTILITY FILE GOES HERE -->  @P0  @P0  @P0 <-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE UPDATE REPORT @P0 H PAGE @P0 \ @P0 _<-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE->  @P0 @P0 @P0hADDACT  @P0ACCAGE    30@P06COSIGNER  @P0 DELQMST  @P0INACCT  @P0UPDINPUT  @P0UPDPRINT  @P0RSWFIL  @P0TRANFL  @P0TRNBCK  @P0XUTIFIL  @P8 @P0 FHDR1@P0 HUPDY@P8 B@P8 w@P8 e@P8 @P8 @P8 @P8 @P8 @P8 2@P8 Y@P8 @P8 @P8 _@P0 40000000001@P0 000000000000@P0 000000000000@P0 000000000000@P0 000000000000000000000000000000000000@P0 000000000000@P8 =`  30@P8 >@P8 ?@P8 @@P8 A@P8 B@P8 C@P8 D@P8 E@P8 F @P8 G @P8 H @P8 I @P8 J @P8 K@P8 L@P8 M@P8 N@P8 O@P8 P@P8 Q@P8 R@P8 S#@P8 T(@P8 U7@P8 VB@P8 WP@P8 XR@P8 Y`@P8 Z@P0 000000000000@P8 ;@P8 #  30@P0 000000000000@P0 000000000000@P0  @P0  @P0J @P0^  @P0 @P0  @P0 @P0  @P0 @P0  @P0F @P0Z  @P0 @P0  @P0 @P0  @P0 @P0  @P0B @P0V  @P0 @P0  @P0 @P0  @P0 @P0  @P0> @P0R  @P0} @P0  31  @P0 @P0  @P0 @P0 @P0E@P0@P0g@P0@P0w@P0@P0@P0@P0%@P0@P0@P8 D@P8 &@P8 2@P8 @P8 )@P8 @P8 M@P0 n000000000000000000000000000000000000@P0 J000000000000000000000000000000000000@P0 \000000000000000000000000000000000000@P8 @P8 @P8@P8 @P8 @P8 w@P8 kh  31$@P8 @P8@P8 @P8 @P0 / @P8@P0 )301 @P0 +302 @P0 -303 @P8 @P8 @P0 000000000000@P8@P0 000000000000@P0 000000000000@P0 000000000000@P8 P P [sUPDEND C47 F CCS CCS 3.0 SL-149@P? T00r 0\g0P 0\E0 0\w0 8\@P+ 3\0 3\%  3\쨷 3\Ũ ;\@P0V#  \00 T 0 ATHPUPDENDoPCLOSFLTAPMOTgPGMOUTkP P [.UPDIT C48 F CCS CCS 3.0 SL-149@PT33  > 03 >\ 33 > >3\  30 > >\33  >3 >\ 433 ? > 0 >T B@P+HPUPDIT *PCCSADDFORMLN%P P [UPINIT C49 F CCS CCS 3.0  318 SL-149@P@P T 1d0 d 0d T3 > ~3 ? >T33 > C 3 > C 8"d @P4h h "p8n (h 1 T3 (T33 @ 1 T @P_  \30 .\30 @ 1\  d 3\X &\33X @ 13\\ 0 &@P3\ @3 1\\30g6̽ &\630 @ 1\3\Eh̰ &\33h @ 13\\w0̣ &;\ @@P 1\\30̖ &\30 @ 1\3TM00 (TV30 @ 1T0\ "0 9 #;\%@P &3\ @0 1\\3 .٤  \30 @ 1\0 d dT330 F8¤ @P ̽0 ̸ &\X30 J 1\ B, hT'0; B T@P0% ? T0 G 1\300 H̖ 0  (T3X J0 1T03 H h/T2@P0P$ G)d T3 > M\30 >   &\30 J 1\  8 d@P|HPUPINIT~PAMONTOADAYTOAYERTOPGMIN EDIT CCSMVA OPENFLFILERR@UPDENDFREADR ICCSADNCCSBLKVP __ $*CLOSE $*CTO, PROGRAM MHUPDT HAS BEEN INSTALLED $*CTO, $*CTO, INSTALLING NEWS FROM B.NEWS, CCS149 FILE $*OPEN,FN=B.NEWS,OW=CCS149,LU=21,R $*REW,21 $*K,L14 $*LIBEDT  LIB  IN  *K,I21,P8  IN  *P,F,2 ! NEWS 8900 B81 F CCS CCS 3.0 e  31L SL-149 ! FMENTP 9003 F58 A ITOS CCS 3.0 SL-149 ! Q8QINI 905F H04 A FTNR CCS 3.0 SL-149 ! Q8QEND 9135 H05 A FTNR CCS 3.0 SL-149 ! Q8CMP 9156 H06 A FTNR CCS 3.0 SL-149 ! Q8RWBU 9239 H07 A FTNR CCS 3.0 SL-149 ! Q8ERRM 9352 H08 A FTNR CCS 3.0 SL-149 ! Q8DFIO 9429 H09 A FTNR CCS 3.0 SL-149 ! Q8QX 94EC H10 A FTNR CCS 3.0 SL-149 ! Q8QUNI 9551 H11 A FTNR CCS 3.0 SL-149 ! Q8FGET 95DA H12 A FTNR CCS 3.0 SL-149 ! Q8MAGT 963C H13 A FTNR CCS 3.0 SL-149 ! TAPCON 96C0 H14 A FTNR CCS 3.0 SL-149 ! PSSTOP 975D H16 A FTNR CCS 3.0 SL-149 ! Q8PAND 979C H17 A FTNR CCS 3.0 SL-149 ! CCSBLK 980A A03 A CCS CCS 3.0 SL-149 ! CCSCST 981A A04 A CCS CCS 3.0 SL-149 ! CCSMVA 985A A08 A CCS CCS 3.0 SL-149 ! EDIT 9889 B50 F CCS CCS 3.0 PSrPD SL-149 ! FILERR 997B B52 F CCS CCS 3.1 10-23-81 SL-149 ! Q8PRMS 9A46 R99 A RPG CCS 3.0 SL-149 ! PARABN 9A6A S53 A RPG CCS 3.0 SL-149 ! Q8IFRM 9A7C H01 F FTNR CCS 3.0 SL-149 ! Q8FS 9ABB H02 F FTNR CCS 3.0 SL-149 ! Q8TRAN 9CF0 H03 F FTNR CCS 3.0 SL-149 ! Q8EXP1 A531 H18 A FTNR CCS 3.0 SL-149 ! Q8EXP9 A5AC H19 A FTNR CCS 3.0 SL-149 h  31` ! FLOTN A668 G14 A FTNR CCS 3.0 SL-149 ! COMNFP A8A6 G15 A FTNR CCS 3.0 SL-149 ! Q8DXP1 A9DA K15 A FTNR CCS 3.0 SL-149 ! Q8DXP9 AA77 K16 A FTNR CCS 3.0 SL-149 ! DFLOTN AB82 K12 A FTNR CCS 3.0 SL-149 ! CCSGET AFF7 A06 A CCS CCS 3.0 SL-149 ! CCSHXA B017 A07 A CCS CCS 3.0 SL-149 ! CCSPUT B044 A09 A CCS CCS 3.0 SL-149  IN  *K,I8  IN  *N,NEWS,,,B  IN  *Z $*K,I13 $*CLOSE $*CTO, PROGRAM NEWS HAS BEEN INSTALLED $*CTO, $*CTO, INSTALLING NMCHNG FROM B.NMCHNG, CCS149 FILE $*OPEN,FN=B.NMCHNG,OW=CCS149,LU=21,R $*REW,21 $*K,L14 $*LIBEDT  LIB  IN  *K,I21,P8 9  31t  IN  *P,F,2 ! NMCHNG 8900 B82 F CCS CCS 3.0 .LA PSR(05/83) SL-149 ! FMENTP 92B1 F58 A ITOS CCS 3.0 SL-149 ! CCSBLK 930D A03 A CCS CCS 3.0 SL-149 ! CCSCST 931D A04 A CCS CCS 3.0 SL-149 ! CCSGET 935D A06 A CCS CCS 3.0 SL-149 ! CCSMVA 937D A08 A CCS CCS 3.0 SL-149 ! CCSPUT 93AC A09 A CCS CCS 3.0 SL-149 ! FILERR 93CC B52 F CCS CCS 3.1 10-23-81 SL-149 ! Q8PRMS 9497 R99 A RPG CCS 3.0 SL-149 ! PARABN 94BB S53 A RPG CCS 3.0 SL-149 ! CCSHXA 94CD A07 A CCS CCS 3.0 SL-149  IN  *K,I8  IN  *N,NMCHNG,,,B  IN  *Z $*K,I13 $*CLOSE $*CTO, PROGRAM NMCHNG HAS BEEN INSTALLED $*CTO, $*CTO, INSTALLING PGGEN FROM B.PGGEN, CCS149 FILE $*OPEN,FN=B.PGGEN,OW=CCS149,LU=21,R $*REW,21 $*K,L14  31 $*LIBEDT  LIB  IN  *K,I21,P8  IN  *P,F,2 ! PGGEN 8900 A16 A CCS CCS 3.0 SL-149 ! Q8QBDS 8D4A B89 F CCS CCS 3.0 SL-149 ! PGGEN0 8D4A B90 F CCS CCS 3.0 POST 3.0 PSR 12/28/2 SL-149 ! PGGEN1 8FAA B91 F CCS CCS 3.0 PSR 03/23/81 SL-149 ! PGGEN3 9E52 B92 F CCS CCS 3.0 POST 3.0 PSR 12/28/2 SL-149 ! PGGN2E A104 B93 F CCS CCS 3.0 SPECIAL 12/29/82 SL-149 ! PGGN2P B0D4 B94 F CCS CCS 3.0 SL-149 ! PGSEDT C1E7 B97 F CCS CCS 3.0 SL-149 ! PGSJL C228 B98 F CCS CCS 3.0 SL-149 ! PGSJR C282 B99 F CCS CCS 3.0 SL-149 ! PGSLST C2EC C01 F CCS CCS 3.0 SL-149 ! FMENTP C669 F58 A ITOS CCS 3.0 SL-149 ! FORTN C6C5 F01 A FTNR CCS 3.0 SL-149 ! Q8PRMS C7E2 R99 A RPG CCS 3.0 SL-149 ! PARABN C806 S53 A RPG CCS 3.0 SL-149 ! CCSBLK C818 A03 A CCS CCS 3.0 SL-149 ! CCSCST C828 A04 A CCS CCS 3.0 SL-149 ! CCSGET C868 A06 A CCS CCS 3.0 SL-149 ! CCSMVA C888 A08 A CCS CCS 3.0 SL-149 ! CCSPUT C8B7 A09 A CCS CCS 3.0 SL-149  31 ! ASCBIN C8D7 B09 F CCS CCS 3.0 SL-149 ! BINASC C8F7 B16 F CCS CCS 3.0 SL-149 ! FILERR C94C B52 F CCS CCS 3.1 10-23-81 SL-149 ! CCSHXA CA17 A07 A CCS CCS 3.0 SL-149  IN AL:1S LA *K,I8  IN PROGRAM LAXTRT F2000010 1 /F20 F L CCS 3.0 POST 3.1 PSR SL-173***00020C F2000030C LEGAL AND AGENCY SYSTEM VERSION 3 F2000040C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA F2000050C COPYRIGHT CONTROL DATA CORPORATION, 1979 F2000060C F2000070C THIS PROGRAM BLOCK-READS (16 RCDS) THE C.C.S. FILE 'DELQMST', F2000080C ADDS EXTRACTED RECORDS TO THE LEGAL/AGENCY FILE 'LADLQMST' F2000090C AND CREATES THE TEMPORARY FILE 'LADLQKEY'. IF THE ACCOUNT F2000100C STATUS OF THE RECORD READ FROM 'DELQMST' IS 'W' AND THE CHARS F2000110C 'LA' ARE NOT IN CHAR-POSITIONS 1055-1056, THIS PROGRAM PUTS F2000120C THE LITERAL 'LA' INTO THOSE CHARACTER POSITIONS, WRITES THE F2000130C RECORD-KEYS TO 'LADLQKEY', ADDS THE RECORDS TO 'LADLQMST AND F2000140C UPDATES THE 'DELQMST' RECORD(S) FOR THE 'LA'. F20001502 F2000160C ****************************************************** F2000170C * * F2000180C * FUNCTION OF VARIABLES * F2000190C * * F2000200C * * F2000210C * J = ADDRESS (CHAR-POS IN ARRAY) OF FIRST * F2000220C * WORD IN RECORD READ ( DELQMST ) * F2000230C * K = TOTAL NUMBER OF RECORDS READ * F2000240C * L = TOTAL # OF RECORDS WITH STATUS OF 'W' * F2000250C * M = NUMBER OF RECORDS WRITTEN THIS DO-LOOP * F2000260C * N = ADDRESS (CHAR-POS IN ARRAY) OF FIRST * F2000270C * WORD IN RECORD WRITTEN ( LADLQKEY ) * F2000280C * MD = NUMBER OF ATTEMPTS TO WRITE DUPLICATE * F2000290C * RECORDS TO LADLQMST * F2000300C * MA = NUMBER OF ATTEMPTS TO WRITE DUPLICATE * F2000310C * RECORDS TO LAACCAGE * F2000320C * ND = CHARACTER POSITION OF FIRST WORD OF * F2000330C * ARRAY-ELEMENT (ACCT-#) IN 'DUP' ARRAY * F2000340C * CONTAINING ACCT-#'S OF DUPLICATE RCD'S * F2000350C * MTOT = TOTAL # OF RECORDS WRITTEN TO LADLQKEY * F2000360  31C * * F2000370C ****************************************************** F20003802 F2000390 INTEGER DEQREQ(24), LDQREQ(24), KEYREQ(24), AGEREQ(24), F2000400 1 DDATA(15), LDATA(15), KDATA(15), ADATA(15), F2000410 2 DEQREC(16000), LDQREC(1002), KEYREC(128), AGEREC(43), F2000420 3 DUP(8,50), DUP2(8,50), MD, MA, ND, MTOT, SPACES(3), F2000430 4 KEY1(8), USER(4), HD(20,3), HL(20), DT(3), EFLAG F20004401 F2000450 DATA K, L, M, MD, MA, ND, MTOT, EFLAG / 8*0 /, KEY1 / 8*0 / F2000460 DATA IK / $2020 /, LA / 'LA' /, DUP, DUP2 / 800*$2020 / F2000470 DATA SPACES / 3*$2020 / F2000480 DATA DEQREQ, LDQREQ, KEYREQ, AGEREQ / 96*0 / F2000490 DATA DDATA / 'DELQMST CCS20 ', 0,16, 1 / F2000500 DATA LDATA / 'LADLQMSTLA ', 1, 1, 1 / F2000510 DATA KDATA / 'LADLQKEYLA ', 0, 1, 1 / F2000520 DATA ADATA / 'LAACCAGELA ', 1, 1, 1 / F20005301 F2000540 EQUIVALENCE ( DEQREQ(15), NUMREC ) F2000550C POST 3.1 PSR CHECK FOR DELETED RECORDS ***00560 INTEGER FDEL ***00570 EXTERNAL FMRDEL ***00580 ASSEM $C000,FMRDEL,$6800,FDEL ***00590CEND ***006001 F2000610C********** ACCEPT LOG-IN FROM ITOS F2000620 CALL PGMIN ( USER, LU, MODE, NPORT ) F20006301 F2000640C********** STORE SYSTEM DATE AND INITIALIZE 'LADLQKEY' BUFFER F2000650 CALL LAHEAD ( HD, DT ) F2000660 CALL CCSBLK ( KEYREC, 256 ) F20006701 F2000680C********** OPEN FILES F20006901 F2000700 CALL OPENFL ( DEQREQ, DDATA, ISTAT ) F2000710 IF ( ISTAT .GE. 0 ) GO TO 100 F2000720 CALL FILERR ( DDATA, 3, ISTAT, 5 ) F2000730 GO TO 900 F20007401 F2000750 100 CALL OPENFL ( LDQREQ, LDATA, ISTAT ) F2000760 IF ( ISTAT .GE. 0 ) GO TO 105 F2000770 CALL FILERR ( LDATA, 3, ISTAT, 5 ) F2000780 GO TO 900 F20007901 F2000800 105 CALL OPENFL ( AGEREQ, ADATA, ISTAT ) F2000810 IF ( ISTAT .GE. 0 ) GO TO 110 F2000820 CALL FILERR ( ADATA, 3, ISTAT, 5 ) F2000830 GO TO 900 F2000840  311 F2000850 110 CALL CLEAR ( KEYREQ, KDATA, ISTAT ) F2000860 IF ( ISTAT .GE. 0 ) GO TO 115 F2000870 CALL FILERR ( KDATA, 1, ISTAT, 5 ) F2000880 GO TO 900 F20008901 F2000900 115 CALL OPENFL ( KEYREQ, KDATA, ISTAT ) F2000910 IF ( ISTAT .GE. 0 ) GO TO 200 F2000920 CALL FILERR ( KDATA, 3, ISTAT, 5 ) F2000930 GO TO 900 F20009401 F2000950C********** READ RECORDS FROM DELQMST AND PROCESS F20009601 F2000970 200 CALL GETS ( DEQREQ, DEQREC, KEY1, ISTAT ) F20009801 F2000990C********** EOF? F20010001 F2001010 IF ( AND ( ISTAT, $8100 ) .EQ. $8100 ) GO TO 400 F2001020 IF ( AND ( ISTAT, $100 ) .EQ. $100 ) EFLAG = 1 F20010301 F2001040C********** FILE ERROR? F20010501 F2001060 IF ( ISTAT .GE. 0 ) GO TO 210 F2001070 CALL FILERR ( DDATA, 14, ISTAT, 5 ) F2001080 GO TO 900 F20010901 F2001100C********** PERFORM PROCESSING OF 16 RECORDS ACCESSED IN BLOCK-READ F20011101 F2001120 210 DO 300 I = 1, NUMREC F2001130 J = 1000*I - 999 F2001140C POST 3.1 PSR CHECK FOR DELETED RECORDS ***01150 IF(DEQREC(J).EQ.$2020.OR. ***01160 1 DEQREC(J).EQ.FDEL) GO TO 300 ***011701 ***01180C PUT CHECK FOR VALID PRODUCT LINES HERE ***01190CEND ***012001 F2001210 K = K + 1 F20012201 F2001230C********** DOES RECORD HAVE AN ACCOUNT STATUS OF 'W' IN CHAR-POS 306?F20012401 F2001250 IF ( AND ( DEQREC(J+152), $FF ) .NE. $57 ) GO TO 300 F2001260 L = L + 1 F20012701 F2001280C********** DO CHARS. 1055-1056 CONTAIN 'LA'? F20012901 F2001300 IF ( DEQREC(J+527) .EQ. $4C41 ) GO TO 300 F2001310 M = M + 1 F2001320cg  31 N = 8*M - 7 F20013301 F2001340C********** PUT THE VARIABLE LA (CONTAINING 'LA') INTO CHARS 1055-1056F20013501 F2001360 DEQREC(J+527) = LA F20013701 F2001380C********** MOVE DATA FROM 'DELQMST' ARRAY TO 'LADLQMST' BUFFER. F20013901 F2001400 CALL CCSBLK ( LDQREC, 2004 ) F2001410 CALL CCSMVA ( DEQREC, 2*J-1, 1056, LDQREC, 1, 2000 ) F20014201 F2001430C************************************************************** 173*A085***014401 ***01450C********** MOVE CURRENT PAYOFF IN CCS TO BALANCE DUE LA ***014601 ***01470 CALL CCSMVA (DEQREC, 2*J+903, 9, LDQREC, 1063, 9) ***01480C************************************************************** 173*A085***014901 F2001500C********** MOVE SPACES TO POSITION 1047 - PREVIOUS NAME FIELD F2001510 CALL CCSMVA (SPACES, 1, 6, LDQREC, 1047, 6) F20015201 F2001530C********** MOVE SYSTEM DATE INTO L/A F20015401 F2001550 LDQREC(529) = DT(1) F2001560 LDQREC(530) = DT(2) F2001570 LDQREC(531) = DT(3) F20015801 F2001590C POST 3.1 PSR BLANK OUT EXTRA FIELDS ***016001 ***01610C CLEAR DATE OF HISTORY TAPE ***01620 CALL CCSMVA(SPACES,1,6,LDQREC,1031,6) ***01630C CLEAR QUEUE REASSIGN CODE ***01640 CALL CCSPUT($20,294,LDQREC) ***01650C CLEAR QUEUE ASSIGNED ***01660 CALL CCSMVA(SPACES,1,4,LDQREC,271,4) ***01670C CLEAR PRIORITY ***01680 CALL CCSMVA(SPACES,1,4,LDQREC,281,4) ***01690C CLEAR PREVIOUS QUEUE ***01700 CALL CCSMVA(SPACES,1,4,LDQREC,296,4) ***01710C CLEAR DATE QUEUE ASSIGNED ***01720 CALL CCSMVA(SPACES,1,6,LDQREC,300,6) ***01730C CLEAR PP FLAG ***01740 CALL CCSPUT($20,285,LDQREC) ***01750C MOVE SYSTEM DATE TO NEXT CONTACT DATE ***01760 CALL CCSMVA(DT,1,6,LDQREC,275,6) ***017701 ***01780C DO MOVING BY PRODUCT LINE HERE ***017901 ***01800  31CEND ***01810C********** REPLACE 'W' STATUS WITH BLANK (ACTIVE) STATUS IN L/A RCD. F20018201 F2001830 CALL CCSPUT ( $20, 306, LDQREC ) F20018401 F2001850C********** ADD RECORD TO INDEX FILE 'LADLQMST' F20018601 F2001870 CALL WRITER ( LDQREQ, LDQREC, LDQREC, ISTAT ) F2001880 IF ( AND ( ISTAT, $10 ) .EQ. $10 ) GO TO 275 F2001890 IF ( ISTAT .GE. 0 ) GO TO 250 F2001900 CALL FILERR ( LDATA, 12, ISTAT, 5 ) F2001910 GO TO 900 F20019201 F2001930C********** MOVE MASTER FILE ACCOUNT # TO 'LADLQKEY' ARRAY. F20019401 F2001950 250 CALL CCSMVA ( DEQREC, 2*J-1, 2000, KEYREC, 2*N-1, 16 ) F20019601 F2001970C********** MOVE ACCOUNT # FROM 'DELQMST' ARRAY TO 'LAACCAGE' BUFFER. F20019801 F2001990 CALL CCSBLK ( AGEREC, 86 ) F2002000 CALL CCSMVA ( DEQREC, 2*J-1, 2000, AGEREC, 1, 16 ) F20020101 F2002020C********** ADD RECORD TO INDEX FILE 'LAACCAGE' F20020301 F2002040 CALL WRITER ( AGEREQ, AGEREC, AGEREC, ISTAT ) F2002050 IF ( AND ( ISTAT, $10 ) .EQ. $10 ) GO TO 285 F2002060 IF ( ISTAT .GE. 0 ) GO TO 300 F2002070 CALL FILERR ( ADATA, 12, ISTAT, 5 ) F2002080 GO TO 900 F20020901 F2002100C********** ATTEMPT TO WRITE DUPLICATE RECORD TO LADLQMST. F2002110C********** SAVE ACCOUNT NUMBER AND CONTINUE.(UP TO 50 DUP-RCDS) F20021201 F2002130 275 M = M - 1 F2002140 MD = MD + 1 F2002150 ND = 8*MD - 7 F2002160 CALL CCSMVA ( LDQREC, 1, 16, DUP, 2*ND-1, 16 ) F2002170 GO TO 300 F20021801 F2002190C********** ATTEMPT TO WRITE DUPLICATE RECORD TO LAACCAGE. F2002200C***** 1. RE-ACCESS 'LAACCAGE' RECORD F2002210C***** 2. MOVE BLANKS INTO ALL BUT PRIMARY KEY OF RCD BUFFER F2002220C***** 3. UPDATE THE RECORD F2002230C***** 4. SAVE ACCOUNT NUMBER AND CONTINUE (UP TO 50 DUP-RCDS) F20022401 F2002250 285 CALL READR ( AGEREQ, AGEREC, AGEREC, ISTAT ) F2002260 IF ( ISTAT .GE. 0 ) GO TO 290 F2002270 CALL FILERR ( ADATA, 13, ISTAT, 5 ) F2002280  31AL:1S LA *K,I8  IN PROGRAM LAXTRT F2000010 1 /F20 F L CCS 3.0 POST 3.1 PSR SL-173***00020C F2000030C LEGAL AND AGENCY SYSTEM VERSION 3 F2000040C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA F2000050C COPYRIGHT CONTROL DATA CORPORATION, 1979 F2000060C F2000070C THIS PROGRAM BLOCK-READS (16 RCDS) THE C.C.S. FILE 'DELQMST', F2000080C ADDS EXTRACTED RECORDS TO THE LEGAL/AGENCY FILE 'LADLQMST' F2000090C AND CREATES THE TEMPORARY FILE 'LADLQKEY'. IF THE ACCOUNT F2000100C STATUS OF THE RECORD READ FROM 'DELQMST' IS 'W' AND THE CHARS F2000110C 'LA' ARE NOT IN CHAR-POSITIONS 1055-1056, THIS PROGRAM PUTS F2000120C THE LITERAL 'LA' INTO THOSE CHARACTER POSITIONS, WRITES THE F2000130C RECORD-KEYS TO 'LADLQKEY', ADDS THE RECORDS TO 'LADLQMST AND F2000140C UPDATES THE 'DELQMST' RECORD(S) FOR THE 'LA'. F20001502 F2000160C ****************************************************** F2000170C * * F2000180C * FUNCTION OF VARIABLES * F2000190C * * F2000200C * * F2000210C * J = ADDRESS (CHAR-POS IN ARRAY) OF FIRST * F2000220C * WORD IN RECORD READ ( DELQMST ) * F2000230C * K = TOTAL NUMBER OF RECORDS READ * F2000240C * L = TOTAL # OF RECORDS WITH STATUS OF 'W' * F2000250C * M = NUMBER OF RECORDS WRITTEN THIS DO-LOOP * F2000260C * N = ADDRESS (CHAR-POS IN ARRAY) OF FIRST * F2000270C * WORD IN RECORD WRITTEN ( LADLQKEY ) * F2000280C * MD = NUMBER OF ATTEMPTS TO WRITE DUPLICATE * F2000290C * RECORDS TO LADLQMST * F2000300C * MA = NUMBER OF ATTEMPTS TO WRITE DUPLICATE * F2000310C * RECORDS TO LAACCAGE * F2000320C * ND = CHARACTER POSITION OF FIRST WORD OF * F2000330C * ARRAY-ELEMENT (ACCT-#) IN 'DUP' ARRAY * F2000340C * CONTAINING ACCT-#'S OF DUPLICATE RCD'S * F2000350C * MTOT = TOTAL # OF RECORDS WRITTEN TO LADLQKEY * F2000360C * * F2000370C ****************************************************** F20003802 F2000390 INTEGER DEQREQ(24), LDQREQ(24), KEYREQ(24), AGEREQ(24), F2000400 1 DDATA(15), LDATA(15), KDATA(15), ADATA(15), F2000410 2 DEQREC(16000), LDQREC(1002), KEYREC(128), AGEREC(43), F2000420 3 DUP(8,50), DUP2(8,50), MD, MA, ND, MTOT, SPACES(3), F2000430 4 KEY1(8), USER(4), HD(20,3), HL(20), DT(3), EFLAG F20004401 F2000450 DATA K, L, M, MD, MA, ND, MTOT, EFLAG E  31 / 8*0 /, KEY1 / 8*0 / F2000460 DATA IK / $2020 /, LA / 'LA' /, DUP, DUP2 / 800*$2020 / F2000470 DATA SPACES / 3*$2020 / F2000480 DATA DEQREQ, LDQREQ, KEYREQ, AGEREQ / 96*0 / F2000490 DATA DDATA / 'DELQMST CCS20 ', 0,16, 1 / F2000500 DATA LDATA / 'LADLQMSTLA ', 1, 1, 1 / F2000510 DATA KDATA / 'LADLQKEYLA ', 0, 1, 1 / F2000520 DATA ADATA / 'LAACCAGELA ', 1, 1, 1 / F20005301 F2000540 EQUIVALENCE ( DEQREQ(15), NUMREC ) F2000550C POST 3.1 PSR CHECK FOR DELETED RECORDS ***00560 INTEGER FDEL ***00570 EXTERNAL FMRDEL ***00580 ASSEM $C000,FMRDEL,$6800,FDEL ***00590CEND ***006001 F2000610C********** ACCEPT LOG-IN FROM ITOS F2000620 CALL PGMIN ( USER, LU, MODE, NPORT ) F20006301 F2000640C********** STORE SYSTEM DATE AND INITIALIZE 'LADLQKEY' BUFFER F2000650 CALL LAHEAD ( HD, DT ) F2000660 CALL CCSBLK ( KEYREC, 256 ) F20006701 F2000680C********** OPEN FILES F20006901 F2000700 CALL OPENFL ( DEQREQ, DDATA, ISTAT ) F2000710 IF ( ISTAT .GE. 0 ) GO TO 100 F2000720 CALL FILERR ( DDATA, 3, ISTAT, 5 ) F2000730 GO TO 900 F20007401 F2000750 100 CALL OPENFL ( LDQREQ, LDATA, ISTAT ) F2000760 IF ( ISTAT .GE. 0 ) GO TO 105 F2000770 CALL FILERR ( LDATA, 3, ISTAT, 5 ) F2000780 GO TO 900 F20007901 F2000800 105 CALL OPENFL ( AGEREQ, ADATA, ISTAT ) F2000810 IF ( ISTAT .GE. 0 ) GO TO 110 F2000820 CALL FILERR ( ADATA, 3, ISTAT, 5 ) F2000830 GO TO 900 F20008401 F2000850 110 CALL CLEAR ( KEYREQ, KDATA, ISTAT ) F2000860 IF ( ISTAT .GE. 0 ) GO TO 115 F2000870 CALL FILERR ( KDATA, 1, ISTAT, 5 ) F2000880 GO TO 900 F20008901 F2000900 115 CALL OPENFL ( KEYREQ, KDATA, ISTAT ) F2000910 IF ( ISTAT .GE. 0 ) GO TO 200 F2000920 CALL FILERR ( KDATA, 3, ISTAT, 5 ) F2000930 GO TO 900  31 F20009401 F2000950C********** READ RECORDS FROM DELQMST AND PROCESS F20009601 F2000970 200 CALL GETS ( DEQREQ, DEQREC, KEY1, ISTAT ) F20009801 F2000990C********** EOF? F20010001 F2001010 IF ( AND ( ISTAT, $8100 ) .EQ. $8100 ) GO TO 400 F2001020 IF ( AND ( ISTAT, $100 ) .EQ. $100 ) EFLAG = 1 F20010301 F2001040C********** FILE ERROR? F20010501 F2001060 IF ( ISTAT .GE. 0 ) GO TO 210 F2001070 CALL FILERR ( DDATA, 14, ISTAT, 5 ) F2001080 GO TO 900 F20010901 F2001100C********** PERFORM PROCESSING OF 16 RECORDS ACCESSED IN BLOCK-READ F20011101 F2001120 210 DO 300 I = 1, NUMREC F2001130 J = 1000*I - 999 F2001140C POST 3.1 PSR CHECK FOR DELETED RECORDS ***01150 IF(DEQREC(J).EQ.$2020.OR. ***01160 1 DEQREC(J).EQ.FDEL) GO TO 300 ***011701 ***01180C PUT CHECK FOR VALID PRODUCT LINES HERE ***01190CEND ***012001 F2001210 K = K + 1 F20012201 F2001230C********** DOES RECORD HAVE AN ACCOUNT STATUS OF 'W' IN CHAR-POS 306?F20012401 F2001250 IF ( AND ( DEQREC(J+152), $FF ) .NE. $57 ) GO TO 300 F2001260 L = L + 1 F20012701 F2001280C********** DO CHARS. 1055-1056 CONTAIN 'LA'? F20012901 F2001300 IF ( DEQREC(J+527) .EQ. $4C41 ) GO TO 300 F2001310 M = M + 1 F2001320 N = 8*M - 7 F20013301 F2001340C********** PUT THE VARIABLE LA (CONTAINING 'LA') INTO CHARS 1055-1056F20013501 F2001360 DEQREC(J+527) = LA F20013701 F2001380C********** MOVE DATA FROM 'DELQMST' ARRAY TO 'LADLQMST' BUFFER. F20013901 F2001400 CALL CCSBLK ( LDQREC, 2004 ) F2001410 CALL CCSMVA ( DEQREC, 2*J-1, 1056, LD!  31QREC, 1, 2000 ) F20014201 F2001430C************************************************************** 173*A085***014401 ***01450C********** MOVE CURRENT PAYOFF IN CCS TO BALANCE DUE LA ***014601 ***01470 CALL CCSMVA (DEQREC, 2*J+903, 9, LDQREC, 1063, 9) ***01480C************************************************************** 173*A085***014901 F2001500C********** MOVE SPACES TO POSITION 1047 - PREVIOUS NAME FIELD F2001510 CALL CCSMVA (SPACES, 1, 6, LDQREC, 1047, 6) F20015201 F2001530C********** MOVE SYSTEM DATE INTO L/A F20015401 F2001550 LDQREC(529) = DT(1) F2001560 LDQREC(530) = DT(2) F2001570 LDQREC(531) = DT(3) F20015801 F2001590C POST 3.1 PSR BLANK OUT EXTRA FIELDS ***016001 ***01610C CLEAR DATE OF HISTORY TAPE ***01620 CALL CCSMVA(SPACES,1,6,LDQREC,1031,6) ***01630C CLEAR QUEUE REASSIGN CODE ***01640 CALL CCSPUT($20,294,LDQREC) ***01650C CLEAR QUEUE ASSIGNED ***01660 CALL CCSMVA(SPACES,1,4,LDQREC,271,4) ***01670C CLEAR PRIORITY ***01680 CALL CCSMVA(SPACES,1,4,LDQREC,281,4) ***01690C CLEAR PREVIOUS QUEUE ***01700 CALL CCSMVA(SPACES,1,4,LDQREC,296,4) ***01710C CLEAR DATE QUEUE ASSIGNED ***01720 CALL CCSMVA(SPACES,1,6,LDQREC,300,6) ***01730C CLEAR PP FLAG ***01740 CALL CCSPUT($20,285,LDQREC) ***01750C MOVE SYSTEM DATE TO NEXT CONTACT DATE ***01760 CALL CCSMVA(DT,1,6,LDQREC,275,6) ***017701 ***01780C DO MOVING BY PRODUCT LINE HERE ***017901 ***01800CEND ***01810C********** REPLACE 'W' STATUS WITH BLANK (ACTIVE) STATUS IN L/A RCD. F20018201 F2001830 CALL CCSPUT ( $20, 306, LDQREC ) F20018401 F2001850C********** ADD RECORD TO INDEX FILE 'LADLQMST' F20018601 F2001870 CALL WRITER ( LDQREQ, LDQREC, LDQREC, ISTAT ) F2001880 IF ( AND ( ISTAT, $10 ) .EQ. $10 ) GO TO 275 F2001890 IF ( ISTAT .GE. 0 ) GO TO 250  31 F2001900 CALL FILERR ( LDATA, 12, ISTAT, 5 ) F2001910 GO TO 900 F20019201 F2001930C********** MOVE MASTER FILE ACCOUNT # TO 'LADLQKEY' ARRAY. F20019401 F2001950 250 CALL CCSMVA ( DEQREC, 2*J-1, 2000, KEYREC, 2*N-1, 16 ) F20019601 F2001970C********** MOVE ACCOUNT # FROM 'DELQMST' ARRAY TO 'LAACCAGE' BUFFER. F20019801 F2001990 CALL CCSBLK ( AGEREC, 86 ) F2002000 CALL CCSMVA ( DEQREC, 2*J-1, 2000, AGEREC, 1, 16 ) F20020101 F2002020C********** ADD RECORD TO INDEX FILE 'LAACCAGE' F20020301 F2002040 CALL WRITER ( AGEREQ, AGEREC, AGEREC, ISTAT ) F2002050 IF ( AND ( ISTAT, $10 ) .EQ. $10 ) GO TO 285 F2002060 IF ( ISTAT .GE. 0 ) GO TO 300 F2002070 CALL FILERR ( ADATA, 12, ISTAT, 5 ) F2002080 GO TO 900 F20020901 F2002100C********** ATTEMPT TO WRITE DUPLICATE RECORD TO LADLQMST. F2002110C********** SAVE ACCOUNT NUMBER AND CONTINUE.(UP TO 50 DUP-RCDS) F20021201 F2002130 275 M = M - 1 F2002140 MD = MD + 1 F2002150 ND = 8*MD - 7 F2002160 CALL CCSMVA ( LDQREC, 1, 16, DUP, 2*ND-1, 16 ) F2002170 GO TO 300 F20021801 F2002190C********** ATTEMPT TO WRITE DUPLICATE RECORD TO LAACCAGE. F2002200C***** 1. RE-ACCESS 'LAACCAGE' RECORD F2002210C***** 2. MOVE BLANKS INTO ALL BUT PRIMARY KEY OF RCD BUFFER F2002220C***** 3. UPDATE THE RECORD F2002230C***** 4. SAVE ACCOUNT NUMBER AND CONTINUE (UP TO 50 DUP-RCDS) F20022401 F2002250 285 CALL READR ( AGEREQ, AGEREC, AGEREC, ISTAT ) F2002260 IF ( ISTAT .GE. 0 ) GO TO 290 F2002270 CALL FILERR ( ADATA, 13, ISTAT, 5 ) F2002280 GO TO 900 F20022901 F2002300 290 CALL CCSMVA ( SPACES, 1, 0, AGEREC, 17, 66 ) F20023101 F2002320 CALL UPDREC ( AGEREQ, AGEREC, ISTAT ) F2002330 IF ( ISTAT .GE. 0 ) GO TO 295 F2002340 CALL FILERR ( ADATA, 15, ISTAT, 5 ) F2002350 GO TO 900 F20023601 F2002370 295 MA = MA + 1 z  32 F2002380 ND = 8*MA - 7 F2002390 CALL CCSMVA ( AGEREC, 1, 16, DUP2, 2*ND-1, 16 ) F20024001 F2002410 300 CONTINUE F20024201 F2002430C********** BLOCK-WRITE THE SEQUENTIAL OUTPUT RECORD 'LADLQKEY'. F20024401 F2002450 IF ( M .EQ. 0 ) GO TO 310 F2002460 CALL PUTS ( KEYREQ, KEYREC, M, ISTAT ) F2002470 IF ( ISTAT .GE. 0 ) GO TO 305 F2002480 CALL FILERR ( KDATA, 11, ISTAT, 5 ) F2002490 GO TO 900 F20025001 F2002510C********** UPDATE DELQMST F20025201 F2002530 305 CALL UPDREC ( DEQREQ, DEQREC, ISTAT ) F2002540 IF ( ISTAT .GE. 0 ) GO TO 310 F2002550 CALL FILERR ( DDATA, 15, ISTAT, 5 ) F2002560 GO TO 900 F20025701 F2002580C********** CLEAR THE INPUT/OUTPUT FILE BUFFERS AND CONTINUE F20025901 F2002600 310 CALL CCSBLK ( DEQREC, 32000 ) F2002610 CALL CCSBLK ( KEYREC, 256 ) F20026201 F2002630 MTOT = MTOT + M F2002640 M = 0 F20026501 F2002660 IF ( EFLAG .EQ. 0 ) GO TO 200 F20026701 F2002680C********** PRINT HEADING AND COUNTERS F2002690 400 CONTINUE F2002700 ENDFILE 9 F20027101 F2002720 WRITE ( 9, 500 ) HD F2002730 500 FORMAT ( // 3 ( / 30X, 20R2 ) ) F20027401 F2002750 WRITE ( 9, 505 ) F2002760 505 FORMAT ( // 30X, *LEGAL & AGENCY EXTRACT PROGRAM* // ) F20027701 F2002780 WRITE ( 9, 510 ) F2002790 510 FORMAT ( 29X, * DATE RCDS READ W-RCDS RCDS WRITTEN* / ) F20028001 F2002810 WRITE ( 9, 520 ) DT, K, L, MTOT F2002820 520 FORMAT ( 29X, 3R2, 5X, I5, 4X, I5, 6X, I5 / ) F20028301 F2002840 IF ( MD .LE. 0 ) GO TO 800 F20028501 ִ  32 F2002860C********** ATTEMPTS TO WRITE DUPLICATE RECORDS TO 'LADLQMST' FILE F2002870C********** ( CCS VS. L/A ) HAVE OCCURRED. LIST TO PRINTER ACCOUNT F2002880C********** NUMBERS OF DUPLICATE RECORDS WITH ERROR MESSAGE. F20028901 F2002900 DO 700 I = 1, MD F2002910 WRITE ( 9, 600 ) ( DUP(J,I), J=1,8 ) F2002920 600 FORMAT ( / 10X, 8R2 , 5X, *ERROR - DUPLICATE RECORD. ACCOUNT*, F2002930 1 1X, *ALREADY EXISTS ON L/A MASTER FILE* / ) F20029401 F2002950 700 CONTINUE F20029602 F2002970C********** ATTEMPTS TO WRITE DUPLICATE RECORDS TO 'LAACCAGE' (THAT F2002980C********** WERE NOT DUPLICATE RECORDS TO 'LADLQMST') HAVE OCCURRED. F2002990C********** LIST TO PRINTER ACCOUNT NUMBERS OF DUPLICATE RECORDS WITH F2003000C********** ERROR MESSAGE. F20030101 F2003020 IF ( MA .LE. 0 ) GO TO 900 F20030301 F2003040 800 DO 850 I = 1, MA F2003050 WRITE ( 9, 825 ) ( DUP2(J,I), J=1,8 ) F2003060 825 FORMAT ( / 10X, 8R2, 5X, *ERROR - DUPLICATE RECORD. ACCOUNT*, F2003070 1 1X, *ALREADY EXISTS ON L/A AGEING FILE* / ) F20030801 F2003090 850 CONTINUE F20031002 F2003110C********** CLOSE FILES AND STOP F20031201 F2003130 900 CALL CLOSFL ( DEQREQ, ISTAT ) F2003140 CALL CLOSFL ( LDQREQ, ISTAT ) F2003150 CALL CLOSFL ( KEYREQ, ISTAT ) F2003160 CALL CLOSFL ( AGEREQ, ISTAT ) F2003170 CALL PGMOUT F20031801 F2003190 END F2003200_   32, ̃  32@ n  32T Y  32h D  32| /  32   32   32  32 OGRAM TRENDF HAS BEEN INSTALLED AL:2S LA $*CTO, $*CTO, PROGRAM LDACRT F3400010 1 /F43 F L CCS 3.0 POST 3.1 PSR SL-173***00020C F3400030C LEGAL AND AGENCY SYSTEM VERSION 3 F3400040C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA F3400050C COPYRIGHT CONTROL DATA CORPORATION, 1979 F3400060C F34000701 F3400080C THIS PROGRAM REASSIGNS QUEUES AND PRIORITIES FOR ALL ACTIVE F3400090C ACCOUNTS IN THE LADLQMST FILE AND CREATES THE LADLYASN FILE F3400100C WHICH IS USED BY THE ON-LINE AUTOMATIC FUNCTION F34001101 F3400120*  32 INTEGER DEQREQ(24),ASNREQ(24),DDATA(15),ADATA(15),ST,EFG,DT(3), F3400130 2 USER(4),HD(3,20),PRI(3,9),QUE(3,9),NQUE(2),NPRI(2),FDEL, F3400140C POST 3.1 PSR REDUCE NUMBER RECORDS READ IN BLOCK ***00150 1 DEQREC(20000),ASNREC(462),QUEL(9),QUEP(9),PRIP(9),PRIL(9), ***00160CEND ***00170 4 STG(40),LTHACT(2) F34001801 F3400190 EXTERNAL FMRDEL F34002001 F3400210 DATA DEQREQ, ASNREQ / 48*0 / F3400220 DATA DDATA / 'LADLQMST', 8*$2020, 0, 0, 0 / F3400230 DATA ADATA / 'LADLYASN', 8*$2020, 0, 1, 0 / F3400240C************************************************************** 173*A032***00250C VARIABLE FOR PP DATE CHECKING ***00260 INTEGER PPDATE(3) ***00270C VARIABLES FOR READING LAUTIFIL ***00280 INTEGER UDATA(15),UTIREQ(24),UTIREC(40),OLPM(2),PPLAG ***00290 DATA UDATA/'LAUTIFIL',8*$2020,1,1,0/ ***00300 DATA UTIREQ/24*0/,OLPM/'OLPM'/ ***00310C************************************************************** 173*A032***00320C POST 3.1 PSR REDUCE NUMBER RECORDS READ IN BLOCK ***00330 DATA NUMREC / 20 / , ST / 0 / , EFG / 0 / , LTHACT / '0360'/ ***00340CEND ***00350 DATA QUE, PRI / 54*$2020 / F3400360. F3400370C**** SET UP THE LADLQMST STARTING CHARACTER POSITIONS FOR THE F3400380C QUEUE ASSIGNMENT PARAMETERS, IF NOT USED MUST BE ZERO (0) F34003901 F3400400C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 F3400410 DATA QUEP / 0, 0, 0, 0, 0, 0, 0, 0, 0 / F34004201 F3400430C**** SET UP THE LADLQMST PARAMETER LENGTH IN CHARACTERS MAX. = 6 F3400440C IF UNUSED MUST BE ZERO (0) F34004501 F3400460C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 F3400470 DATA QUEL / 0, 0, 0, 0, 0, 0, 0, 0, 0 / F34004802 F3400490C**** SET UP THE STARTING CHARACTER POSITIONS IN LADLQMST FILE FOR F3400500C THE PRIORITY ASSIGNMENT PARAMETERS, IF UNSED MUST BE ZERO (0) F34005101 F3400520C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 F3400530 DATA PRIP / 0, 0, 0, 0, 0, 0, 0, 0, 0 / F34005401 F3400550C**** SET UP THE PRIORITY PARAMETER CHARACTER LENGTHS MAX. = 6 F3400560C IF UNUSED MUST BE ZERO (0) F34005701 F3400580C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 F3400590 DATA PRIL / 0, 0, 0, 0, 0, 0, 0, 0, 0 / F3400600  321 F3400610C**** SET UP THE STARTING CHARACTER POSITIONS FOR THE MOST RECENT F3400620C PAYMENT AMOUNT AND PAYMENT DATE, USED FOR BROKEN PP'S F34006301 F3400640 DATA LDATE / 0 / , LAMT / 0 / F3400650. F3400660C ACCEPT LOGIN FROM ITOS F3400670 CALL PGMIN ( USER, LU, MODE, NPORT ) F34006801 F3400690C INITIALIZE VARIABLES F3400700 ASSEM $C000,FMRDEL,$6800,FDEL F3400710 CALL CCSBLK ( ASNREC, 920 ) F3400720 IOSW = $3030 F3400730 CALL LAHEAD ( HD, DT ) F3400740 DDATA(14) = NUMREC F3400750 M = 1 F34007602 F3400770C OPEN FILES FOR USE F3400780C************************************************************** 173*A032***00790 CALL OPENFL(UTIREQ,UDATA,ISTAT) ***00800C CHECK FOR ERROR ***00810 IF(ISTAT.GE.0) GO TO 10 ***00820 CALL FILERR(UDATA,3,ISTAT,LU) ***00830 GO TO 900 ***00840C NO ERROR-RETRIEVE OLPM RECORD TO GET DELTA FACTOR FOR PP DATE PROC***00850 10 CALL READR(UTIREQ,UTIREC,OLPM,ISTAT) ***00860C BE SURE CORRECT RECORD READ ***00870 IF(AND(ISTAT,$0200).EQ.$0200.OR.AND(ISTAT,$8100).EQ.$8100) ***00880 . GO TO 20 ***00890C RECORD WAS FOUND-CK FOR OTHER ERROR ***00900 IF(ISTAT.LT.0) GO TO 20 ***00910C RECORD FOUND - EVERYTHING OKAY SAVE LAG FACTOR ***00920 PPLAG = ICCSAD(UTIREC(6)) ***00930C PROCESSING COMPLETE-CLOSE FILE AND CONTINUE ***00940 CALL CLOSFL(UTIREQ,ISTAT) ***00950 GO TO 50 ***00960C ERROR IN READR OF LAUTIFIL ***00970 20 CALL FILERR(UDATA,13,ISTAT,LU) ***00980 GO TO 900 ***009901 ***01000 50 CALL OPENFL( DEQREQ, DDATA, ISTAT ) ***01010C************************************************************** 173*A032***01020 IF (ISTAT.GE.0) GO TO 100 F3401030 CALL FILERR ( DDATA, 3, ISTAT, LU ) F3401040 GO TO 900 F3401050 100 CALL CLEAR ( ASNREQ, ADATA, ISTAT ) F3401060 IF (ISTAT.GE.0) GO TO 110 F3401070 CALL FILERR ( ADATA, 1, ISTAT, LU ) F3401080  33 GO TO 900 F3401090 110 CALL OPENFL ( ASNREQ, ADATA, ISTAT ) F3401100 IF (ISTAT.GE.0) GO TO 200 F3401110 CALL FILERR ( ADATA, 3, ISTAT, LU ) F3401120 GO TO 900 F3401130. F3401140C READ RECORDS FROM THE LADLQMST AND PROCESS F3401150 200 CALL GETS ( DEQREQ, DEQREC, I, ISTAT ) F3401160C EOF? F3401170 IF (AND(ISTAT,$8100).EQ.$8100) GO TO 900 F3401180 IF (AND(ISTAT,$100).EQ.$100) EFG = 1 F3401190C FILE ERROR? F3401200 IF (ISTAT.GE.0) GO TO 210 F3401210 CALL FILERR ( DDATA, 14, ISTAT, LU ) F3401220 GO TO 900 F3401230 210 DO 300 I = 1 , NUMREC F3401240 L = 40*M - 39 F3401250 K = 1000*I-999 F3401260 J = 2*K-1 F3401270C RECORD PRESENT? F3401280 IF (DEQREC(K).EQ.$2020.OR. F3401290 1 DEQREC(K).EQ.FDEL) GO TO 300 F3401300C RECORD ACTIVE? F3401310 IF (AND(DEQREC(K+152),$FF).NE.$20) GO TO 300 F34013201 F3401330C GET THE MOST RECENT ACTIVITY F3401340C***************************************************************138*A023F3401350 IOSW = $3031 F3401360C***************************************************************138*A023F3401370CPOST 3.1 PSR CALL VERIFY SUBROUTINE ***01380 CALL VFYACF(DEQREC(K)) ***01390CEND ***01400 CALL GETACF ( STG, DEQREC(K+153), LTHACT, IOSW ) F34014102 F3401420C REASSIGN QUEUE ALLOWED? F3401430 IF (AND(DEQREC(K+146),$FF).NE.$20) GO TO 220 F34014401 F3401450. F3401460C**** SET UP THE PARAMETERS FOR QUEUE ASSIGNMENT : F3401470C - THE MOST RECENT ACTION CODE IS IN : STG(4) F3401480C - RESULT CODE IS IN : STG(5) F3401490C - CONTACT DATE STARTS IN : STG(1) F3401500C - THE SYSTEM DATE STARTS IN : DT(1) F34015103 F3401520C PARAMETER #1 F3401530 CALL CCSMVA ( DEQREC, QUEP(1)+J-1, QUEL(1), QUE, 1, 6 ) F34015401 F3401550C PARAMETER #2 F3401560)X  33 CALL CCSMVA ( DEQREC, QUEP(2)+J-1, QUEL(2), QUE, 7, 6 ) F34015701 F3401580C PARAMETER #3 F3401590 CALL CCSMVA ( DEQREC, QUEP(3)+J-1, QUEL(3), QUE, 13, 6 ) F34016001 F3401610C PARAMETER #4 F3401620 CALL CCSMVA ( DEQREC, QUEP(4)+J-1, QUEL(4), QUE, 19, 6 ) F34016301 F3401640C PARAMETER #5 F3401650 CALL CCSMVA ( DEQREC, QUEP(5)+J-1, QUEL(5), QUE, 25, 6 ) F34016601 F3401670C PARAMETER #6 F3401680 CALL CCSMVA ( DEQREC, QUEP(6)+J-1, QUEL(6), QUE, 31, 6 ) F34016901 F3401700C PARAMETER #7 F3401710 CALL CCSMVA ( DEQREC, QUEP(7)+J-1, QUEL(7), QUE, 37, 6 ) F34017201 F3401730C PARAMETER #8 F3401740 CALL CCSMVA ( DEQREC, QUEP(8)+J-1, QUEL(8), QUE, 43, 6 ) F34017501 F3401760C PARAMETER #9 F3401770 CALL CCSMVA ( DEQREC, QUEP(9)+J-1, QUEL(9), QUE, 49, 6 ) F3401780. F3401790C GET THE NEW QUEUE F3401800 CALL LFTND1 ( QUE, NQUE ) F3401810C NEW QUEUE? F3401820 IF (NQUE(1).EQ.DEQREC(K+135).AND. F3401830 1 NQUE(2).EQ.DEQREC(K+136)) GO TO 220 F3401840C QUEUE RETURN SUCCESSFUL? F3401850 IF (NQUE(1).EQ.$3939.AND. F3401860 1 NQUE(2).EQ.$3939) GO TO 220 F3401870C SAVE OLD QUEUE , DATE , AND NEW QUEUE F3401880 CALL CCSMVA ( DEQREC, J+270, 4, DEQREC, J+295, 4 ) F3401890 CALL CCSMVA ( DT, 1, 6, DEQREC, J+299, 6 ) F3401900 CALL CCSMVA ( NQUE, 1, 4, DEQREC, J+270, 4 ) F34019102 F3401920C GET THE NEW PRIORITY F3401930 220 CONTINUE F3401940. F3401950C**** SET UP THE PARAMETERS FOR THE PRIORITY ASSIGNMENT - F3401960C - THE MOST RECENT ACTION CODE IS IN : STG(4) F3401970C - RESULT CODE IS IN : STG(5) F3401980C - CONTACT DATE STARTS IN : STG (1) F3401990C - THE SYSTEM DATE STARTS IN : DT(1) F34020002 F3402010C PARAMETER #1 F3402020 CALL CCSMVA ( DEQREC, PRIP(1)+J-1, PRIL(1), PRI, 1, 6 ) F34020301 F3402040v  330C PARAMETER #2 F3402050 CALL CCSMVA ( DEQREC, PRIP(2)+J-1, PRIL(2), PRI, 7, 6 ) F34020601 F3402070C PARAMETER #3 F3402080 CALL CCSMVA ( DEQREC, PRIP(3)+J-1, PRIL(3), PRI, 13, 6 ) F34020901 F3402100C PARAMETER #4 F3402110 CALL CCSMVA ( DEQREC, PRIP(4)+J-1, PRIL(4), PRI, 19, 6 ) F34021201 F3402130C PARAMETER #5 F3402140 CALL CCSMVA ( DEQREC, PRIP(5)+J-1, PRIL(5), PRI, 25, 6 ) F34021501 F3402160C PARAMETER #6 F3402170 CALL CCSMVA ( DEQREC, PRIP(6)+J-1, PRIL(6), PRI, 31, 6 ) F34021801 F3402190C PARAMETER #7 F3402200 CALL CCSMVA ( DEQREC, PRIP(7)+J-1, PRIL(7), PRI, 37, 6 ) F34022101 F3402220C PARAMETER #8 F3402230 CALL CCSMVA ( DEQREC, PRIP(8)+J-1, PRIL(8), PRI, 43, 6 ) F34022401 F3402250C PARAMETER #9 F3402260 CALL CCSMVA ( DEQREC, PRIP(9)+J-1, PRIL(9), PRI, 49, 6 ) F3402270. F3402280 CALL LFTND1 ( PRI, NPRI ) F3402290C PRIORITY RETURN SUCCESSFUL? F3402300 IF (NPRI(1).EQ.$3939.AND. F3402310 1 NPRI(2) .EQ. $3939 ) GO TO 225 F3402320C SAVE THE NEW PRIORITY F3402330 CALL CCSMVA ( NPRI, 1, 4, DEQREC, J+280, 4 ) F34023401 F3402350C IS THIS ACCOUNT A PROMISE TO PAY? F3402360 225 IF ( AND(DEQREC(K+142),$FF00) .NE. $5900 ) GO TO 230 F34023701 F3402380C************************************************************** 173*A032***02390C CHECK IF PROMISE DUE TO BE CHECKED (SYSTEM DATE EQUAL OR ***02400C PAST PROMISE TO PAY DATE + LAG FROM LAUTIFIL ***02410C ADD LAG FACTOR FROM UTIFIL OBTAINED ABOVE TO PROMISE TO PAY ***02420C DATE TO SEE OF PP IS BROKEN OR NOT ***02430C MOVE PP DATE TO WORK AREA ***02440 CALL CCSMVA(DEQREC,J+1015,6,PPDATE,1,6) ***02450 IK = ICALJL(PPDATE,1) ***02460 IK = IK + PPLAG ***02470 IF(IK.LE.365)GO TO 2250 ***02480C YEAR HAS TURNED OVER-CONVERT THE DATE ***02490 PPDATE(3) = PPDATE(3) + 1 ***02500 IF(AND(PPDATE(3),$FF).GT.$39) ***02510 . PPDATE(3) = PPDATE(3) + $F6 ***02520"B  33DC CONVERT THE DATE BACK ***02530 2250 CALL JULCAL(IK,PPDATE,1) ***02540C PP DATE IS READY TO BE CHECKED ***02550 CALL CCSCST( DT, 5, 2, PPDATE, 5, 2, ICOMP) ***02560C************************************************************** 173*A032***02570C NOT DUE CHK FURTHER DUE F3402580 IF (ICOMP) 230 , 2251 , 2252 F34025901 F3402600C YEARS EQUAL, CHECK MONTH AND DAY. F3402610C************************************************************** 173*A032***02620 2251 CALL CCSCST( DT, 1, 4, PPDATE, 1, 4, ICOMP ) ***02630C TODAYS DATE MUST BE EQUAL OR PAST PROMISE TO PAY DATE(PLUS LAG) ***02640C FOR CHECK ***02650C************************************************************** 173*A032***02660 IF ( ICOMP .LT. 0 ) GO TO 230 F34026701 F3402680C PROMISE DUE TO BE CHECKED. SEE IF LAST PAYMENT AMOUNT CLEARS F3402690C PROMISED AMOUNT. F3402700 2252 CALL CCSCST ( DEQREC, J+LAMT-1, 9, DEQREC, J+1021, 9, ICOMP ) F3402710 IF ( ICOMP .LT. 0 ) GO TO 224 F34027201 F3402730C LAST PAYMENT CLEARS PROMISE. VERIFY PAYMENT RECEIVED AFTER F3402740C COMMITMENT DATE. F3402750 CALL CCSCST ( DEQREC, J+LDATE+3, 2, DEQREC, J+1044, 2, ICOMP ) F3402760C BEFORE CHK FURTHER AFTER F3402770 IF (ICOMP) 224 , 2253 , 2254 F34027801 F3402790C YEARS EQUAL, CHECK MONTH AND DAY. F3402800 2253 CALL CCSCST ( DEQREC, J+LDATE-1, 4, DEQREC, J+1040, 4, ICOMP ) F3402810C PAYMENT DATE MUST BE PAST COMMITMENT DATE FOR KEPT PROMISE. F3402820 IF ( ICOMP .LT. 0 ) GO TO 224 F3402830C***************************************************************138*A018F34028402 F3402850C PROMISE KEPT, INCREMENT THE KEPT COUNT F3402860C***************************************************************138*A018F3402870 2254 DEQREC(K+518) = AND(DEQREC(K+518),$FF0F) + $31 F3402880C***************************************************************138*A018F3402890 IF ( AND(DEQREC(K+518),$FF) .GT. $39 ) F3402900 1 DEQREC(K+518) = AND(DEQREC(K+518),$FFF) + $30F6 F3402910C INCREMENT THE NEXT CONTACT DATE 7 DAYS F3402920 IK = ICALJL ( DEQREC, J+274 ) F3402930 IK = IK + 7 F3402940 IF ( IK .LE. 365 ) GO TO 222 F3402950 DEQREC(K+139) = DEQREC(K+139) + 1 F3402960 IF ( AND(DEQREC(K+139),$FF) .GT. $39 ) F3402970 1 DEQREC(K+139) = DEQREC(K+139) + $F6 F3402980 222 CALL JULCAL ( IK, DEQREC, J+274 ) F3402990C CLEAR THE PROMISED TO PAY FLAG F3403000G  33X CALL CCSPUT ( $4B, J+284, DEQREC ) F3403010 GO TO 230 F34030201 F34030301 F3403040C PROMISE BROKEN, INCREMENT THE BROKEN COUNT F3403050 224 DEQREC(K+519) = AND(DEQREC(K+519),$FF0F) + $31 F3403060 IF ( AND(DEQREC(K+519),$FF) .GT. $39 ) F3403070 1 DEQREC(K+519) = AND(DEQREC(K+519),$FFF) + $30F6 F3403080C SET THE PROMISED TO PAY FLAG TO BROKEN F3403090 CALL CCSPUT ( $42, J+284, DEQREC ) F3403100. F3403110C BUILD THE LADLYASN RECORD - ACCT #, QUEUE, NEXTCD, PRIORITY F3403120 230 CALL CCSMVA ( DEQREC, J, 16, ASNREC, L, 16) F3403130 CALL CCSMVA ( DEQREC, J+270, 14, ASNREC, L+16, 14 ) F34031402 F3403150C**** IF ADDITIONAL FIELDS ARE REQUIRED IN THE LADLYASN RECORD, F3403160C THEY SHOULD BE MOVED IN AT THIS POINT F34031702 F3403180 M = M + 1 F3403190 300 CONTINUE F34032001 F3403210C SAVE THE LADLYASN RECORD F3403220 M = M - 1 F3403230 IF ( M .EQ. 0 ) GO TO 310 F3403240 CALL PUTS ( ASNREQ, ASNREC, M, ISTAT ) F3403250 IF (ISTAT.GE.0) GO TO 305 F3403260 CALL FILERR ( ADATA, 11, ISTAT, LU ) F3403270 GO TO 900 F3403280C UPDATE THE RECORDS IN THE LADLQMST FILE F3403290 305 CALL UPDREC ( DEQREQ, DEQREC, ISTAT ) F3403300C FILE ERROR? F3403310 IF (ISTAT.GE.0) GO TO 310 F3403320 CALL FILERR ( DDATA, 15, ISTAT, LU ) F3403330 GO TO 900 F3403340C BLANK OUT THE DELQ BUFFER AND CONTINUE F3403350 310 CALL CCSBLK ( DEQREC, 30000 ) F3403360C POST 3.1 PSR REDUCE NUMBER RECORDS IN BLOCK ***03370 CALL CCSBLK(DEQREC(15001),10000) ***03380CEND ***03390 CALL CCSBLK ( ASNREC, 920 ) F3403400 M = 1 F3403410 IF (EFG.EQ.0) GO TO 200 F34034201 F3403430C CLOSE THE FILES AND STOP F3403440 900 CALL CLOSFL ( DEQREQ, ISTAT ) F3403450 CALL CLOSFL ( ASNREQ, ISTAT ) F3403460 CALL PGMOUT F3403470 END F3403480+  33l SUBROUTINE R9BASE C1203490 1 /C12 F CCS CCS 3.0 SL-149C1203500C C1203510C CYBERCREDIT SYSTEM VERSION 3 C1203520C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1203530C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1203540C C1203550 RETURN C1203560 END C1203570 SUBROUTINE R9FLDL C1303580 1 /C13 F CCS CCS 3.0 SL-149C1303590C C1303600C CYBERCREDIT SYSTEM VERSION 3 C1303610C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1303620C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1303630C C1303640 RETURN C1303650 END C1303660_   33   33  33  33  33  33 ʵ  33 ʠ  34  13 AL4S LA $*CLOSE $00010H LDTLST00020X 1 G11 R LA CCS 3.0 SL-149 0002000030F* G11 R LA CCS 3.0 SL-149 0003000040F* 0004000050F* LEGAL AND AGENCY VERSION 3 0005000060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 0006000070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 0007000080F* 0008000090F* DECK-ID P01 CCS 2.0 SUMMARY-132 0009000100F* 0010000110FLADUMMY IP F 80 DISK 0011000120FLACOSIGNIC F 362R16AI 1 DISK 0012000130FLASREQDLID F 20 DISK 0013000140F* 0014000150F* COPYRIGHT CONTROL DATA CORPORATION, 1978 0015000160F* DATA SYSTEM-LA JOLLA DIVISION, LAJOLLA, CALIFORNIA 0016000170F* CREDIT COLLECTION SYSTEM VERSION 2.0 0017000180F* 0018000190FLAINACCTUD F 24 DISK 0019000200FLAACTFILID F 500 18AI 1 DISK 0020000210FLADLQMSTIC F 2000R16AI 1 DISK 0021000220FLAUTIFILIC F 80R 4AI 1 DISK 0022000230FPRINT O F 132 OV PRINTER 0023000240E STG 38 2 0024000250E OBLK 482 1 0025000260E CMT 30 2 0026000270E HDR ?  34  3 40 0027000280ILADUMMY CC 01 0028000290I 1 80 DUM 0029000300ILACOSIGNBB 02 0030000310I 1 1 CACTFG 0031000320I 2 16 CACCT 0032000330I 1 16 CACC 0033000340I 17 17 CINIT 0034000350I 18 180CSLC1 0035000360I 19 190C1FG 0036000370I 20 49 CN1 0037000380I 50 79 CA1 0038000390I 80 99 CS1 0039000400I 100 1040CZ1 0040000410I 105 1180CH1 0041000420I 105 105 H1 0042000430I 105 118 CH11 0043000440I 119 1320CB1 0044000450I 119 119 B1 0045000460I 119 132 CB11 0046000470I 133 1330CSLC2 0047000480I 134 1340C2FG 0048000490I 135 164 CN2 0049000500I 165 194 CA2 0050000510I 195 214 CS2 0051000520I 215 2190CZ2 0052000530I 220 2330CH2 0053000540I 220 220 H2 0054000550I 220 233 CH21 0055000560I 234 2470CB2 0056000570I 234 234 B2 0057000580I 234 247 CB21 0058000590I 248 2480CSLC3 0059000600I 249 2490C3FG 0060000610I 250 279 CN3 0061000620I 280 309 CA3 0062000630I 310 329 CS3 0063000640I 330 3340CZ3 0064000650I 335 3480CH3 0065000660I 335 335 H3 0066000670I 335 348 CH31 0067000680I 349 3620CB3 0068000690I 349 349 B3 0069000700I 349 362 CB31 0070000710ILASREQDLGG 03 0071000720I 1 16 EACT 0072000730I 17 20 SUPID 0073000740ILAINACCTEE 04 0074000750I P  344 1 16 EACT 0075000760I 18 18 PFLAG 0076000770ILAACTFILFF 06 0077000780I 1 16 ACT 0078000790I 19 500 OBLK 0079000800I* L/A MASTER FILE DESCRIPTION INPUT 0080000810ILADLQMSTAA 10 0081000820I 1 1 MACTFG 0082000830I 2 16 MACCT 0083000840I 1 16 MACC 0084000850I 17 170MSLCD 0085000860I 18 47 MNAM 0086000870I 48 77 MADR1 0087000880I 78 107 MADR2 0088000890I 108 127 MCS 0089000900I 128 132 MZP 0090000910I 133 133 H 0091000920I 133 1420MPHN 0092000930I 133 142 MPHN1 0093000940I 143 146 MEXT 0094000950I 147 176 MBNM 0095000960I 177 206 MBAD 0096000970I 207 226 MBCS 0097000980I 227 231 MBZP 0098000990I 232 232 B 0099001000I 232 2410MBPH 0100001010I 232 241 MBPH1 0101001020I 242 245 MBEX 0102001030I 246 261 MADL 0103001040I 262 2700MSOC 0104001050I 271 274 MQUE 0105001060I 275 2800MPRID 0106001070I 281 284 MPRIC 0107001080I 285 285 MPFG 0108001090I 286 2860MBFG 0109001100I 287 290 MSUP 0110001110I 291 295 MOLS 0111001120I 296 299 MPQU 0112001130I 300 3050MPDQ 0113001140I 306 306 MSTC 0114001150I 667 696 MP1 0115001160I 697 726 MP2 0116001170I 727 756 MP3 0117001180I 757 786 MPAD1 0118001190I 787 816 MPAD2 0119001200I 817 836 MPCS 0120001210I 837 841 MPZC 0121001220I 842 8470MLLDT 0122001230I Z  34H 848 8562MLLAT 0123001240I 857 8620MSTDT 0124001250I 863 8680MUPDT 0125001260I 869 8740MCCDT 0126001270I 875 8800MDLDT 0127001280I 881 8860MOPDT 0128001290I 887 8952MADLQ 0129001300I 896 9042MCBAL 0130001310I 905 9132MPYOF 0131001320I 914 9190MCPGD 0132001330I 920 9282MNPA 0133001340I 929 9372MOAMT 0134001350I 938 9380MCMN 0135001360I 939 946 MTP 0136001370I 947 9490MPTS 0137001380I 950 954 MBBR 0138001390I 955 962 MLON 0139001400I 963 966 MTCD 0140001410I 967 9680MTD3 0141001420I 969 9700MTD6 0142001430I 971 9720MTD9 0143001440I 9731012 MSDF 0144001450I 101310150MDYDL 0145001460I 101610210MPPD 0146001470I 102210302MPPA 0147001480I 103110360MTLB 0148001490I 10371038 MPPK 0149001500I 10391040 MPPB 0150001510I 104110460MPPCD 0151001520I 105710620LATLA 0152001530I 106310712LADUE 0153001540I 10721073 LACOD1 0154001550I 10741075 LANO1 0155001560I 107610810LARDT1 0156001570I 10821111 LAFRM1 0157001580I 11121141 LACNT1 0158001590I 11421171 LAADR1 0159001600I 11721201 LACSZ1 0160001610I 120212110LAPHN1 0161001620I 12121215 LAEXT1 0162001630I 121612242LABAL1 0163001640I 12251228 LAPER1 0164001650I 12291230 LACOD2 0165001660I 12311232 LANO2 0166001670I 123312380LARDT2 0167001680I 12391268 LAFRM2 0168001690I 12691298 LACNT2 0169001700I 12991328 LAADR2 0170001710I t  34\ 13291358 LACSZ2 0171001720I 135913680LAPHN2 0172001730I 13691372 LAEXT2 0173001740I 137313812LABAL2 0174001750I 13821385 LAREAS 0175001760ILAUTIFILAA 31 0257001770I 5 44 HEADER 0258001780I 5 8 SUPNAM 0258101790C***** SETUP REPORT HEADINGS 0259001800C 46 GOTO AROUND 0260001810C 'HDR1' CHAINLAUTIFIL 32 0261001820C N32 MOVE HEADER HDR,1 0262001830C 'HDR2' CHAINLAUTIFIL 32 0263001840C N32 MOVE HEADER HDR,2 0264001850C 'HDR3' CHAINLAUTIFIL 32 0265001860C N32 MOVE HEADER HDR,3 0266001870C MOVE '0482' LTH 4 0267001880C MOVE '01' OSW 2 0268001890C AROUND TAG 0269001900C START TAG 0270001910C SETON 46 0271001920C SETOF 010203 0272001930C SETOF 040506 0273001940C SETOF 101222 0274001950C SETOF 313216 0275001960C SETOF 818283 0276001970C SETOF 848586 0277001980C SETOF 878811 0278001990C RDACT TAG 0279002000C SETOF 1304 0280002010C U1 READ LAINACCT 12 0281002020C U1N12 PFLAG COMP 'P' 13 0282002030C U1N12N13 MOVE 'P' PFLAG 0283002040C U1N12 13 GOTO RDACT 0284002050C U2 READ LASREQDL 12 0285002060C N12 SUPID CHAINLAUTIFIL 32 0285102070C 12 GOTO END 0286002080C N32 EACT CHAINLADLQMST 22 0287002090C N22 H COMP '0' 81 0288002100C N22 B COMP '0' 82 0289002110C 22 GOTO ERROR 0290002120C EACT CHAINLACOSIGN 05 0291002130C N05 H1 COMP '0' 83 0292002140C N05 B1 COMP '0' 84 0293002150C N05 H2 COMP '0' 85 0294002160C N05 B2 COMP '0' 86 0295002170C N05 H3 COMP '0' 87 0296002180C N05 B3 COMP '0' 88 0297002190C EXCPT  34p 0298002200C U1N12N13 0299002210COR U2 SETON 16 0300002220C* SET BOUNDS FOR LOCATING ACTIVITY INFORMATION 0301002230C 16 MOVE EACT SACT 16 0302002240C SETOF 0410 0303002250C 16 MOVELSACT LACCT 18 0304002260C 16 MOVE ' ' LACCT 0305002270C 16 LACCT SETLLLAACTFIL 0306002280C GETBLK TAG 0307002290C SETOF 110614 0308002300C READ LAACTFIL 11 0309002310C 11 GOTO START 0310002320C N11 ACT COMP SACT 1111 0311002330C 11 GOTO START 0312002340C GETACT TAG 0313002350C MOVE '00' OSW 0314002360C EXIT GETACR 0315002370C RLABL STG 0316002380C RLABL OBLK 0317002390C RLABL LTH 0318002400C RLABL OSW 0319002410C OSW COMP '01' 14 0320002420C 14 GOTO GETBLK 0321002430C Z-ADD1 I 20 02440C Z-ADD9 J 20 02450C MOVES TAG 02460C MOVEASTG,J CMT,I 02470C I ADD 1 I 02480C J ADD 1 J 02490C I COMP 30 31 02500C N31 GOTO MOVES 02510C OV SETON 46 0352002520C N14 EXCPT 0353002530C N14 SETOF 46 0354002540C N14 GOTO GETACT 0355002550C ERROR TAG 0356002560C SETOF 100708 0357002570C SETON 70 0358002580C EXCPT 0359002590C SETOF 70 0360002600C GOTO START 0361002610C END TAG 0362002620C SETON LR 0363002630OLAINACCTE 04N13 0364002640O PFLAG 18 0365002650OPRINT E 101 10 46 0366002660O HDR,1 41 0367002670O .  34 67 'DELINQUENT RECORD' 0368002680O 76 'CONTENTS' 0369002690O 03 103 'SUPERVISOR:' 0370002700O 03SUPID 108 0371002710O 128 'PAGE' 0372002720O PAGE Z 132 0373002730O E 1 10 46 0374002740O HDR,2 41 0375002750O 61 'AS OF' 0376002760O UDATE Y 70 0377002770O E 1 10 46 0378002780O HDR,3 41 0379002790O E 1 10 0380002800O 13 'ACCOUNT' 0381002810O 39 'ADDITIONAL' 0382002820O 49 'BANK' 0383002830O 57 'LOAN' 0384002840O 71 'AMOUNT TO' 0385002850O 80 'DELQ' 0386002860O 102 'LAST LETTER SENT' 0387002870O 113 'ASSIGNED' 0388002880O 118 'CR.' 0389002890O 132 'OPEN AMOUNT' 0390002900O E 1 10 0391002910O 11 'NO.' 0392002920O 40 'ACCOUNT NO.' 0393002930O 49 'BR.' 0394002940O 59 'OFFICER' 0395002950O 70 'COLLECT' 0396002960O 80 'DATE' 0397002970O 89 'DATE' 0398002980O 103 'AMOUNT' 0399002990O 111 'QUEUE' 0400003000O 118 'PTS' 0401003010O 132 'OR CR LIMIT' 0402003020O E 1 10 0403003030O MACC 17 0404003040O MADL 42 0405003050O MBBR 49 0406003060O MLON 59 0407003070O MADLQ L 72 0408003080O MDLDT 82 ' / / ' 0409003090O MLLDT 92 ' / / ' 0410003100O MLLAT L 104 0411003110O MQUE 111 0412003120O MPTS 118 0413003130O MOAMT L 132 0414003140O E 2 10 0415003150O  32AL:2S LA $*CTO, $*CTO, PROGRAM LDACRT F3400010 1 /F43 F L CCS 3.0 POST 3.1 PSR SL-173***00020C F3400030C LEGAL AND AGENCY SYSTEM VERSION 3 F3400040C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA F3400050C COPYRIGHT CONTROL DATA CORPORATION, 1979 F3400060C F34000701 F3400080C THIS PROGRAM REASSIGNS QUEUES AND PRIORITIES FOR ALL ACTIVE F3400090C ACCOUNTS IN THE LADLQMST FILE AND CREATES THE LADLYASN FILE F3400100C WHICH IS USED BY THE ON-LINE AUTOMATIC FUNCTION F34001101 F3400120 INTEGER DEQREQ(24),ASNREQ(24),DDATA(15),ADATA(15),ST,EFG,DT(3), F3400130 2 USER(4),HD(3,20),PRI(3,9),QUE(3,9),NQUE(2),NPRI(2),FDEL, F3400140C POST 3.1 PSR REDUCE NUMBER RECORDS READ IN BLOCK ***00150 1 DEQREC(20000),ASNREC(462),QUEL(9),QUEP(9),PRIP(9),PRIL(9), ***00160CEND ***00170 4 STG(40),LTHACT(2) F34001801 F3400190 EXTERNAL FMRDEL F34002001 F3400210 DATA DEQREQ, ASNREQ / 48*0 / F3400220 DATA DDATA / 'LADLQMST', 8*$2020, 0, 0, 0 / F3400230 DATA ADATA / 'LADLYASN', 8*$2020, 0, 1, 0 / F3400240C************************************************************** 173*A032***00250C VARIABLE FOR PP DATE CHECKING ***00260 INTEGER PPDATE(3) ***00270C VARIABLES FOR READING LAUTIFIL ***00280 INTEGER UDATA(15),UTIREQ(24),UTIREC(40),OLPM(2),PPLAG ***00290 DATA UDATA/'LAUTIFIL',8*$2020,1,1,0/ ***00300 DATA UTIREQ/24*0/,OLPM/'OLPM'/ ***00310C************************************************************** 173*A032***00320C POST 3.1 PSR REDUCE NUMBER RECORDS READ IN BLOCK ***00330 DATA NUMREC / 20 / , ST / 0 / , EFG / 0 / , LTHACT / '0360'/ ***00340CEND ***00350 DATA QUE, PRI / 54*$2020 / F3400360. F3400370C**** SET UP THE LADLQMST STARTING CHARACTER POSITIONS FOR THE F3400380C QUEUE ASSIGNMENT PARAMETERS, IF NOT USED MUST BE ZERO (0) F34003901 F3400400C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 F3400410 DATA QUEP / 0, 0, 0, 0, 0, 0, 0, 0, 0 / F34004201 F3400430C**** SET UP THE LADLQMST PARAMETER LENGTH IN CHARACTERS MAX. = 6 F3400440C IF UNUSED MUST BE ZERO (0) F34004501  32 F3400460C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 F3400470 DATA QUEL / 0, 0, 0, 0, 0, 0, 0, 0, 0 / F34004802 F3400490C**** SET UP THE STARTING CHARACTER POSITIONS IN LADLQMST FILE FOR F3400500C THE PRIORITY ASSIGNMENT PARAMETERS, IF UNSED MUST BE ZERO (0) F34005101 F3400520C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 F3400530 DATA PRIP / 0, 0, 0, 0, 0, 0, 0, 0, 0 / F34005401 F3400550C**** SET UP THE PRIORITY PARAMETER CHARACTER LENGTHS MAX. = 6 F3400560C IF UNUSED MUST BE ZERO (0) F34005701 F3400580C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 F3400590 DATA PRIL / 0, 0, 0, 0, 0, 0, 0, 0, 0 / F34006001 F3400610C**** SET UP THE STARTING CHARACTER POSITIONS FOR THE MOST RECENT F3400620C PAYMENT AMOUNT AND PAYMENT DATE, USED FOR BROKEN PP'S F34006301 F3400640 DATA LDATE / 0 / , LAMT / 0 / F3400650. F3400660C ACCEPT LOGIN FROM ITOS F3400670 CALL PGMIN ( USER, LU, MODE, NPORT ) F34006801 F3400690C INITIALIZE VARIABLES F3400700 ASSEM $C000,FMRDEL,$6800,FDEL F3400710 CALL CCSBLK ( ASNREC, 920 ) F3400720 IOSW = $3030 F3400730 CALL LAHEAD ( HD, DT ) F3400740 DDATA(14) = NUMREC F3400750 M = 1 F34007602 F3400770C OPEN FILES FOR USE F3400780C************************************************************** 173*A032***00790 CALL OPENFL(UTIREQ,UDATA,ISTAT) ***00800C CHECK FOR ERROR ***00810 IF(ISTAT.GE.0) GO TO 10 ***00820 CALL FILERR(UDATA,3,ISTAT,LU) ***00830 GO TO 900 ***00840C NO ERROR-RETRIEVE OLPM RECORD TO GET DELTA FACTOR FOR PP DATE PROC***00850 10 CALL READR(UTIREQ,UTIREC,OLPM,ISTAT) ***00860C BE SURE CORRECT RECORD READ ***00870 IF(AND(ISTAT,$0200).EQ.$0200.OR.AND(ISTAT,$8100).EQ.$8100) ***00880 . GO TO 20 ***00890C RECORD WAS FOUND-CK FOR OTHER ERROR ***00900 IF(ISTAT.LT.0) GO TO 20 ***00910C RECORD FOUND - EVERYTHING OKAY SAVE LAG FACTOR ***00920 PPLAG = ICCSAD(UTIREC(6)) ***00930C PROCESSING COMPLETE-CLOSE FILE AND CONTINU  33E ***00940 CALL CLOSFL(UTIREQ,ISTAT) ***00950 GO TO 50 ***00960C ERROR IN READR OF LAUTIFIL ***00970 20 CALL FILERR(UDATA,13,ISTAT,LU) ***00980 GO TO 900 ***009901 ***01000 50 CALL OPENFL( DEQREQ, DDATA, ISTAT ) ***01010C************************************************************** 173*A032***01020 IF (ISTAT.GE.0) GO TO 100 F3401030 CALL FILERR ( DDATA, 3, ISTAT, LU ) F3401040 GO TO 900 F3401050 100 CALL CLEAR ( ASNREQ, ADATA, ISTAT ) F3401060 IF (ISTAT.GE.0) GO TO 110 F3401070 CALL FILERR ( ADATA, 1, ISTAT, LU ) F3401080 GO TO 900 F3401090 110 CALL OPENFL ( ASNREQ, ADATA, ISTAT ) F3401100 IF (ISTAT.GE.0) GO TO 200 F3401110 CALL FILERR ( ADATA, 3, ISTAT, LU ) F3401120 GO TO 900 F3401130. F3401140C READ RECORDS FROM THE LADLQMST AND PROCESS F3401150 200 CALL GETS ( DEQREQ, DEQREC, I, ISTAT ) F3401160C EOF? F3401170 IF (AND(ISTAT,$8100).EQ.$8100) GO TO 900 F3401180 IF (AND(ISTAT,$100).EQ.$100) EFG = 1 F3401190C FILE ERROR? F3401200 IF (ISTAT.GE.0) GO TO 210 F3401210 CALL FILERR ( DDATA, 14, ISTAT, LU ) F3401220 GO TO 900 F3401230 210 DO 300 I = 1 , NUMREC F3401240 L = 40*M - 39 F3401250 K = 1000*I-999 F3401260 J = 2*K-1 F3401270C RECORD PRESENT? F3401280 IF (DEQREC(K).EQ.$2020.OR. F3401290 1 DEQREC(K).EQ.FDEL) GO TO 300 F3401300C RECORD ACTIVE? F3401310 IF (AND(DEQREC(K+152),$FF).NE.$20) GO TO 300 F34013201 F3401330C GET THE MOST RECENT ACTIVITY F3401340C***************************************************************138*A023F3401350 IOSW = $3031 F3401360C***************************************************************138*A023F3401370CPOST 3.1 PSR CALL VERIFY SUBROUTINE ***01380 CALL VFYACF(DEQREC(K)) ***01390CEND ***01400 CALL GETACF ( STG, DEQREC(K+153), LTHACT, IOSW ) F34014102  33 F3401420C REASSIGN QUEUE ALLOWED? F3401430 IF (AND(DEQREC(K+146),$FF).NE.$20) GO TO 220 F34014401 F3401450. F3401460C**** SET UP THE PARAMETERS FOR QUEUE ASSIGNMENT : F3401470C - THE MOST RECENT ACTION CODE IS IN : STG(4) F3401480C - RESULT CODE IS IN : STG(5) F3401490C - CONTACT DATE STARTS IN : STG(1) F3401500C - THE SYSTEM DATE STARTS IN : DT(1) F34015103 F3401520C PARAMETER #1 F3401530 CALL CCSMVA ( DEQREC, QUEP(1)+J-1, QUEL(1), QUE, 1, 6 ) F34015401 F3401550C PARAMETER #2 F3401560 CALL CCSMVA ( DEQREC, QUEP(2)+J-1, QUEL(2), QUE, 7, 6 ) F34015701 F3401580C PARAMETER #3 F3401590 CALL CCSMVA ( DEQREC, QUEP(3)+J-1, QUEL(3), QUE, 13, 6 ) F34016001 F3401610C PARAMETER #4 F3401620 CALL CCSMVA ( DEQREC, QUEP(4)+J-1, QUEL(4), QUE, 19, 6 ) F34016301 F3401640C PARAMETER #5 F3401650 CALL CCSMVA ( DEQREC, QUEP(5)+J-1, QUEL(5), QUE, 25, 6 ) F34016601 F3401670C PARAMETER #6 F3401680 CALL CCSMVA ( DEQREC, QUEP(6)+J-1, QUEL(6), QUE, 31, 6 ) F34016901 F3401700C PARAMETER #7 F3401710 CALL CCSMVA ( DEQREC, QUEP(7)+J-1, QUEL(7), QUE, 37, 6 ) F34017201 F3401730C PARAMETER #8 F3401740 CALL CCSMVA ( DEQREC, QUEP(8)+J-1, QUEL(8), QUE, 43, 6 ) F34017501 F3401760C PARAMETER #9 F3401770 CALL CCSMVA ( DEQREC, QUEP(9)+J-1, QUEL(9), QUE, 49, 6 ) F3401780. F3401790C GET THE NEW QUEUE F3401800 CALL LFTND1 ( QUE, NQUE ) F3401810C NEW QUEUE? F3401820 IF (NQUE(1).EQ.DEQREC(K+135).AND. F3401830 1 NQUE(2).EQ.DEQREC(K+136)) GO TO 220 F3401840C QUEUE RETURN SUCCESSFUL? F3401850 IF (NQUE(1).EQ.$3939.AND. F3401860 1 NQUE(2).EQ.$3939) GO TO 220 F3401870C SAVE OLD QUEUE , DATE , AND NEW QUEUE F3401880 CALL CCSMVA ( DEQREC, J+270, 4, DEQREC, J+295, 4 ) F3401890 CALL CCSMVA ( DT, 1, 6, DEQREC, J+299, 6 )+  33* F3401900 CALL CCSMVA ( NQUE, 1, 4, DEQREC, J+270, 4 ) F34019102 F3401920C GET THE NEW PRIORITY F3401930 220 CONTINUE F3401940. F3401950C**** SET UP THE PARAMETERS FOR THE PRIORITY ASSIGNMENT - F3401960C - THE MOST RECENT ACTION CODE IS IN : STG(4) F3401970C - RESULT CODE IS IN : STG(5) F3401980C - CONTACT DATE STARTS IN : STG (1) F3401990C - THE SYSTEM DATE STARTS IN : DT(1) F34020002 F3402010C PARAMETER #1 F3402020 CALL CCSMVA ( DEQREC, PRIP(1)+J-1, PRIL(1), PRI, 1, 6 ) F34020301 F3402040C PARAMETER #2 F3402050 CALL CCSMVA ( DEQREC, PRIP(2)+J-1, PRIL(2), PRI, 7, 6 ) F34020601 F3402070C PARAMETER #3 F3402080 CALL CCSMVA ( DEQREC, PRIP(3)+J-1, PRIL(3), PRI, 13, 6 ) F34020901 F3402100C PARAMETER #4 F3402110 CALL CCSMVA ( DEQREC, PRIP(4)+J-1, PRIL(4), PRI, 19, 6 ) F34021201 F3402130C PARAMETER #5 F3402140 CALL CCSMVA ( DEQREC, PRIP(5)+J-1, PRIL(5), PRI, 25, 6 ) F34021501 F3402160C PARAMETER #6 F3402170 CALL CCSMVA ( DEQREC, PRIP(6)+J-1, PRIL(6), PRI, 31, 6 ) F34021801 F3402190C PARAMETER #7 F3402200 CALL CCSMVA ( DEQREC, PRIP(7)+J-1, PRIL(7), PRI, 37, 6 ) F34022101 F3402220C PARAMETER #8 F3402230 CALL CCSMVA ( DEQREC, PRIP(8)+J-1, PRIL(8), PRI, 43, 6 ) F34022401 F3402250C PARAMETER #9 F3402260 CALL CCSMVA ( DEQREC, PRIP(9)+J-1, PRIL(9), PRI, 49, 6 ) F3402270. F3402280 CALL LFTND1 ( PRI, NPRI ) F3402290C PRIORITY RETURN SUCCESSFUL? F3402300 IF (NPRI(1).EQ.$3939.AND. F3402310 1 NPRI(2) .EQ. $3939 ) GO TO 225 F3402320C SAVE THE NEW PRIORITY F3402330 CALL CCSMVA ( NPRI, 1, 4, DEQREC, J+280, 4 ) F34023401 F3402350C IS THIS ACCOUNT A PROMISE TO PAY? F3402360 225 IF ( AND(DEQREC(K+142),$FF00) .NE. $5900 ) GO TO 230 F34023701 d  33> F3402380C************************************************************** 173*A032***02390C CHECK IF PROMISE DUE TO BE CHECKED (SYSTEM DATE EQUAL OR ***02400C PAST PROMISE TO PAY DATE + LAG FROM LAUTIFIL ***02410C ADD LAG FACTOR FROM UTIFIL OBTAINED ABOVE TO PROMISE TO PAY ***02420C DATE TO SEE OF PP IS BROKEN OR NOT ***02430C MOVE PP DATE TO WORK AREA ***02440 CALL CCSMVA(DEQREC,J+1015,6,PPDATE,1,6) ***02450 IK = ICALJL(PPDATE,1) ***02460 IK = IK + PPLAG ***02470 IF(IK.LE.365)GO TO 2250 ***02480C YEAR HAS TURNED OVER-CONVERT THE DATE ***02490 PPDATE(3) = PPDATE(3) + 1 ***02500 IF(AND(PPDATE(3),$FF).GT.$39) ***02510 . PPDATE(3) = PPDATE(3) + $F6 ***02520C CONVERT THE DATE BACK ***02530 2250 CALL JULCAL(IK,PPDATE,1) ***02540C PP DATE IS READY TO BE CHECKED ***02550 CALL CCSCST( DT, 5, 2, PPDATE, 5, 2, ICOMP) ***02560C************************************************************** 173*A032***02570C NOT DUE CHK FURTHER DUE F3402580 IF (ICOMP) 230 , 2251 , 2252 F34025901 F3402600C YEARS EQUAL, CHECK MONTH AND DAY. F3402610C************************************************************** 173*A032***02620 2251 CALL CCSCST( DT, 1, 4, PPDATE, 1, 4, ICOMP ) ***02630C TODAYS DATE MUST BE EQUAL OR PAST PROMISE TO PAY DATE(PLUS LAG) ***02640C FOR CHECK ***02650C************************************************************** 173*A032***02660 IF ( ICOMP .LT. 0 ) GO TO 230 F34026701 F3402680C PROMISE DUE TO BE CHECKED. SEE IF LAST PAYMENT AMOUNT CLEARS F3402690C PROMISED AMOUNT. F3402700 2252 CALL CCSCST ( DEQREC, J+LAMT-1, 9, DEQREC, J+1021, 9, ICOMP ) F3402710 IF ( ICOMP .LT. 0 ) GO TO 224 F34027201 F3402730C LAST PAYMENT CLEARS PROMISE. VERIFY PAYMENT RECEIVED AFTER F3402740C COMMITMENT DATE. F3402750 CALL CCSCST ( DEQREC, J+LDATE+3, 2, DEQREC, J+1044, 2, ICOMP ) F3402760C BEFORE CHK FURTHER AFTER F3402770 IF (ICOMP) 224 , 2253 , 2254 F34027801 F3402790C YEARS EQUAL, CHECK MONTH AND DAY. F3402800 2253 CALL CCSCST ( DEQREC, J+LDATE-1, 4, DEQREC, J+1040, 4, ICOMP ) F3402810C PAYMENT DATE MUST BE PAST COMMITMENT DATE FOR KEPT PROMISE. F3402820 IF ( ICOMP .LT. 0 ) GO TO 224 F3402830C***************************************************************138*A018F34028402 F3402850C PROMISE KEPT, INCREMENT THE KEPT COUNi  33RT F3402860C***************************************************************138*A018F3402870 2254 DEQREC(K+518) = AND(DEQREC(K+518),$FF0F) + $31 F3402880C***************************************************************138*A018F3402890 IF ( AND(DEQREC(K+518),$FF) .GT. $39 ) F3402900 1 DEQREC(K+518) = AND(DEQREC(K+518),$FFF) + $30F6 F3402910C INCREMENT THE NEXT CONTACT DATE 7 DAYS F3402920 IK = ICALJL ( DEQREC, J+274 ) F3402930 IK = IK + 7 F3402940 IF ( IK .LE. 365 ) GO TO 222 F3402950 DEQREC(K+139) = DEQREC(K+139) + 1 F3402960 IF ( AND(DEQREC(K+139),$FF) .GT. $39 ) F3402970 1 DEQREC(K+139) = DEQREC(K+139) + $F6 F3402980 222 CALL JULCAL ( IK, DEQREC, J+274 ) F3402990C CLEAR THE PROMISED TO PAY FLAG F3403000 CALL CCSPUT ( $4B, J+284, DEQREC ) F3403010 GO TO 230 F34030201 F34030301 F3403040C PROMISE BROKEN, INCREMENT THE BROKEN COUNT F3403050 224 DEQREC(K+519) = AND(DEQREC(K+519),$FF0F) + $31 F3403060 IF ( AND(DEQREC(K+519),$FF) .GT. $39 ) F3403070 1 DEQREC(K+519) = AND(DEQREC(K+519),$FFF) + $30F6 F3403080C SET THE PROMISED TO PAY FLAG TO BROKEN F3403090 CALL CCSPUT ( $42, J+284, DEQREC ) F3403100. F3403110C BUILD THE LADLYASN RECORD - ACCT #, QUEUE, NEXTCD, PRIORITY F3403120 230 CALL CCSMVA ( DEQREC, J, 16, ASNREC, L, 16) F3403130 CALL CCSMVA ( DEQREC, J+270, 14, ASNREC, L+16, 14 ) F34031402 F3403150C**** IF ADDITIONAL FIELDS ARE REQUIRED IN THE LADLYASN RECORD, F3403160C THEY SHOULD BE MOVED IN AT THIS POINT F34031702 F3403180 M = M + 1 F3403190 300 CONTINUE F34032001 F3403210C SAVE THE LADLYASN RECORD F3403220 M = M - 1 F3403230 IF ( M .EQ. 0 ) GO TO 310 F3403240 CALL PUTS ( ASNREQ, ASNREC, M, ISTAT ) F3403250 IF (ISTAT.GE.0) GO TO 305 F3403260 CALL FILERR ( ADATA, 11, ISTAT, LU ) F3403270 GO TO 900 F3403280C UPDATE THE RECORDS IN THE LADLQMST FILE F3403290 305 CALL UPDREC ( DEQREQ, DEQREC, ISTAT ) F3403300C FILE ERROR? F3403310 IF (ISTAT.GE.0) GO TO 310 F3403320 CALL FILERR ( DDATA, 15, ISTAT, LU ) F3403330 GO TO 900  33f F3403340C BLANK OUT THE DELQ BUFFER AND CONTINUE F3403350 310 CALL CCSBLK ( DEQREC, 30000 ) F3403360C POST 3.1 PSR REDUCE NUMBER RECORDS IN BLOCK ***03370 CALL CCSBLK(DEQREC(15001),10000) ***03380CEND ***03390 CALL CCSBLK ( ASNREC, 920 ) F3403400 M = 1 F3403410 IF (EFG.EQ.0) GO TO 200 F34034201 F3403430C CLOSE THE FILES AND STOP F3403440 900 CALL CLOSFL ( DEQREQ, ISTAT ) F3403450 CALL CLOSFL ( ASNREQ, ISTAT ) F3403460 CALL PGMOUT F3403470 END F3403480 SUBROUTINE R9BASE C1203490 1 /C12 F CCS CCS 3.0 SL-149C1203500C C1203510C CYBERCREDIT SYSTEM VERSION 3 C1203520C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1203530C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1203540C C1203550 RETURN C1203560 END C1203570 SUBROUTINE R9FLDL C1303580 1 /C13 F CCS CCS 3.0 SL-149C1303590C C1303600C CYBERCREDIT SYSTEM VERSION 3 C1303610C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA C1303620C COPYRIGHT CONTROL DATA CORPORATION, 1979 C1303630C C1303640 RETURN C1303650 END C1303660_  33z   33  33  33  33 ʺ  33 ʥ  33 ʐ  34 13 AL4S LA $*CLOSE $00010H LDTLST00020X 1 G11 R LA CCS 3.0 SL-149 0002000030F* G11 R LA CCS 3.0 SL-149 0003000040F* 0004000050F* LEGAL AND AGENCY VERSION 3 0005000060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 0006000070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 0007000080F* 0008000090F* DECK-ID P01 CCS 2.0 SUMMARY-132 0009000100F* 0010000110FLADUMMY IP F 80 DISK 0011000120FLACOSIGNIC F 362R16AI 1 DISK 00120-  3400130FLASREQDLID F 20 DISK 0013000140F* 0014000150F* COPYRIGHT CONTROL DATA CORPORATION, 1978 0015000160F* DATA SYSTEM-LA JOLLA DIVISION, LAJOLLA, CALIFORNIA 0016000170F* CREDIT COLLECTION SYSTEM VERSION 2.0 0017000180F* 0018000190FLAINACCTUD F 24 DISK 0019000200FLAACTFILID F 500 18AI 1 DISK 0020000210FLADLQMSTIC F 2000R16AI 1 DISK 0021000220FLAUTIFILIC F 80R 4AI 1 DISK 0022000230FPRINT O F 132 OV PRINTER 0023000240E STG 38 2 0024000250E OBLK 482 1 0025000260E CMT 30 2 0026000270E HDR 3 40 0027000280ILADUMMY CC 01 0028000290I 1 80 DUM 0029000300ILACOSIGNBB 02 0030000310I 1 1 CACTFG 0031000320I 2 16 CACCT 0032000330I 1 16 CACC 0033000340I 17 17 CINIT 0034000350I 18 180CSLC1 0035000360I 19 190C1FG 0036000370I 20 49 CN1 0037000380I 50 79 CA1 0038000390I 80 99 CS1 0039000400I 100 1040CZ1 0040000410I 105 1180CH1 0041000420I 105 105 H1 0042000430I 105 118 CH11 0043000440I 119 1320CB1 0044000450I 119 119 B1 0045000460I 119 132 CB11 0046000470I 133 1330CSLC2 0047000480I 134 1340C2FG 0048000490I 135 164 CN2 0049000500I 165 194 CA2 0050000510I 195 214 CS2 0051000520I 215 2190CZ2 0052000530I 220 2330CH2 0053000540I 220 220 H2 0054000550I 220 233 CH21 0055000560I 234 2470CB2 0056000570I 234 234 B2 0057000580I 234 247 CB21 0058000590I 248 2480CSLC3 0059000600I 249 2490C3FG 00600S  34.00610I 250 279 CN3 0061000620I 280 309 CA3 0062000630I 310 329 CS3 0063000640I 330 3340CZ3 0064000650I 335 3480CH3 0065000660I 335 335 H3 0066000670I 335 348 CH31 0067000680I 349 3620CB3 0068000690I 349 349 B3 0069000700I 349 362 CB31 0070000710ILASREQDLGG 03 0071000720I 1 16 EACT 0072000730I 17 20 SUPID 0073000740ILAINACCTEE 04 0074000750I 1 16 EACT 0075000760I 18 18 PFLAG 0076000770ILAACTFILFF 06 0077000780I 1 16 ACT 0078000790I 19 500 OBLK 0079000800I* L/A MASTER FILE DESCRIPTION INPUT 0080000810ILADLQMSTAA 10 0081000820I 1 1 MACTFG 0082000830I 2 16 MACCT 0083000840I 1 16 MACC 0084000850I 17 170MSLCD 0085000860I 18 47 MNAM 0086000870I 48 77 MADR1 0087000880I 78 107 MADR2 0088000890I 108 127 MCS 0089000900I 128 132 MZP 0090000910I 133 133 H 0091000920I 133 1420MPHN 0092000930I 133 142 MPHN1 0093000940I 143 146 MEXT 0094000950I 147 176 MBNM 0095000960I 177 206 MBAD 0096000970I 207 226 MBCS 0097000980I 227 231 MBZP 0098000990I 232 232 B 0099001000I 232 2410MBPH 0100001010I 232 241 MBPH1 0101001020I 242 245 MBEX 0102001030I 246 261 MADL 0103001040I 262 2700MSOC 0104001050I 271 274 MQUE 0105001060I 275 2800MPRID 0106001070I 281 284 MPRIC 0107001080I 285 285 MPFG 01080  34B01090I 286 2860MBFG 0109001100I 287 290 MSUP 0110001110I 291 295 MOLS 0111001120I 296 299 MPQU 0112001130I 300 3050MPDQ 0113001140I 306 306 MSTC 0114001150I 667 696 MP1 0115001160I 697 726 MP2 0116001170I 727 756 MP3 0117001180I 757 786 MPAD1 0118001190I 787 816 MPAD2 0119001200I 817 836 MPCS 0120001210I 837 841 MPZC 0121001220I 842 8470MLLDT 0122001230I 848 8562MLLAT 0123001240I 857 8620MSTDT 0124001250I 863 8680MUPDT 0125001260I 869 8740MCCDT 0126001270I 875 8800MDLDT 0127001280I 881 8860MOPDT 0128001290I 887 8952MADLQ 0129001300I 896 9042MCBAL 0130001310I 905 9132MPYOF 0131001320I 914 9190MCPGD 0132001330I 920 9282MNPA 0133001340I 929 9372MOAMT 0134001350I 938 9380MCMN 0135001360I 939 946 MTP 0136001370I 947 9490MPTS 0137001380I 950 954 MBBR 0138001390I 955 962 MLON 0139001400I 963 966 MTCD 0140001410I 967 9680MTD3 0141001420I 969 9700MTD6 0142001430I 971 9720MTD9 0143001440I 9731012 MSDF 0144001450I 101310150MDYDL 0145001460I 101610210MPPD 0146001470I 102210302MPPA 0147001480I 103110360MTLB 0148001490I 10371038 MPPK 0149001500I 10391040 MPPB 0150001510I 104110460MPPCD 0151001520I 105710620LATLA 0152001530I 106310712LADUE 0153001540I 10721073 LACOD1 0154001550I 10741075 LANO1 0155001560I 107610810LARDT1 01560J  34V01570I 10821111 LAFRM1 0157001580I 11121141 LACNT1 0158001590I 11421171 LAADR1 0159001600I 11721201 LACSZ1 0160001610I 120212110LAPHN1 0161001620I 12121215 LAEXT1 0162001630I 121612242LABAL1 0163001640I 12251228 LAPER1 0164001650I 12291230 LACOD2 0165001660I 12311232 LANO2 0166001670I 123312380LARDT2 0167001680I 12391268 LAFRM2 0168001690I 12691298 LACNT2 0169001700I 12991328 LAADR2 0170001710I 13291358 LACSZ2 0171001720I 135913680LAPHN2 0172001730I 13691372 LAEXT2 0173001740I 137313812LABAL2 0174001750I 13821385 LAREAS 0175001760ILAUTIFILAA 31 0257001770I 5 44 HEADER 0258001780I 5 8 SUPNAM 0258101790C***** SETUP REPORT HEADINGS 0259001800C 46 GOTO AROUND 0260001810C 'HDR1' CHAINLAUTIFIL 32 0261001820C N32 MOVE HEADER HDR,1 0262001830C 'HDR2' CHAINLAUTIFIL 32 0263001840C N32 MOVE HEADER HDR,2 0264001850C 'HDR3' CHAINLAUTIFIL 32 0265001860C N32 MOVE HEADER HDR,3 0266001870C MOVE '0482' LTH 4 0267001880C MOVE '01' OSW 2 0268001890C AROUND TAG 0269001900C START TAG 0270001910C SETON 46 0271001920C SETOF 010203 0272001930C SETOF 040506 0273001940C SETOF 101222 0274001950C SETOF 313216 0275001960C SETOF 818283 0276001970C SETOF 848586 0277001980C SETOF 878811 0278001990C RDACT TAG 0279002000C SETOF 1304 0280002010C U1 READ LAINACCT 12 0281002020C U1N12 PFLAG COMP 'P' 13 0282002030C U1N12N13 MOVE 'P' PFLAG 0283002040C U1N12 13 GOTO RDACT 02840  34j02050C U2 READ LASREQDL 12 0285002060C N12 SUPID CHAINLAUTIFIL 32 0285102070C 12 GOTO END 0286002080C N32 EACT CHAINLADLQMST 22 0287002090C N22 H COMP '0' 81 0288002100C N22 B COMP '0' 82 0289002110C 22 GOTO ERROR 0290002120C EACT CHAINLACOSIGN 05 0291002130C N05 H1 COMP '0' 83 0292002140C N05 B1 COMP '0' 84 0293002150C N05 H2 COMP '0' 85 0294002160C N05 B2 COMP '0' 86 0295002170C N05 H3 COMP '0' 87 0296002180C N05 B3 COMP '0' 88 0297002190C EXCPT 0298002200C U1N12N13 0299002210COR U2 SETON 16 0300002220C* SET BOUNDS FOR LOCATING ACTIVITY INFORMATION 0301002230C 16 MOVE EACT SACT 16 0302002240C SETOF 0410 0303002250C 16 MOVELSACT LACCT 18 0304002260C 16 MOVE ' ' LACCT 0305002270C 16 LACCT SETLLLAACTFIL 0306002280C GETBLK TAG 0307002290C SETOF 110614 0308002300C READ LAACTFIL 11 0309002310C 11 GOTO START 0310002320C N11 ACT COMP SACT 1111 0311002330C 11 GOTO START 0312002340C GETACT TAG 0313002350C MOVE '00' OSW 0314002360C EXIT GETACR 0315002370C RLABL STG 0316002380C RLABL OBLK 0317002390C RLABL LTH 0318002400C RLABL OSW 0319002410C OSW COMP '01' 14 0320002420C 14 GOTO GETBLK 0321002430C Z-ADD1 I 20 02440C Z-ADD9 J 20 02450C MOVES TAG 02460C MOVEASTG,J CMT,I 02470C I ADD 1 I 02480C J ADD 1 J 02490C I COMP 30 31 02500C N31 GOTO MOVES 02510C OV SETON 46 0352002520C N14 EXCPT 035306  34~02530C N14 SETOF 46 0354002540C N14 GOTO GETACT 0355002550C ERROR TAG 0356002560C SETOF 100708 0357002570C SETON 70 0358002580C EXCPT 0359002590C SETOF 70 0360002600C GOTO START 0361002610C END TAG 0362002620C SETON LR 0363002630OLAINACCTE 04N13 0364002640O PFLAG 18 0365002650OPRINT E 101 10 46 0366002660O HDR,1 41 0367002670O 67 'DELINQUENT RECORD' 0368002680O 76 'CONTENTS' 0369002690O 03 103 'SUPERVISOR:' 0370002700O 03SUPID 108 0371002710O 128 'PAGE' 0372002720O PAGE Z 132 0373002730O E 1 10 46 0374002740O HDR,2 41 0375002750O 61 'AS OF' 0376002760O UDATE Y 70 0377002770O E 1 10 46 0378002780O HDR,3 41 0379002790O E 1 10 0380002800O 13 'ACCOUNT' 0381002810O 39 'ADDITIONAL' 0382002820O 49 'BANK' 0383002830O 57 'LOAN' 0384002840O 71 'AMOUNT TO' 0385002850O 80 'DELQ' 0386002860O 102 'LAST LETTER SENT' 0387002870O 113 'ASSIGNED' 0388002880O 118 'CR.' 0389002890O 132 'OPEN AMOUNT' 0390002900O E 1 10 0391002910O 11 'NO.' 0392002920O 40 'ACCOUNT NO.' 0393002930O 49 'BR.' 0394002940O 59 'OFFICER' 0395002950O 70 'COLLECT' 0396002960O 80 'DATE' 0397002970O 89 'DATE' 0398002980O 103 'AMOUNT' 0399002990O 111 'QUEUE' 0400003000O 118 'PTS' 04010R  3403010O 132 'OR CR LIMIT' 0402003020O E 1 10 0403003030O MACC 17 0404003040O MADL 42 0405003050O MBBR 49 0406003060O MLON 59 0407003070O MADLQ L 72 0408003080O MDLDT 82 ' / / ' 0409003090O MLLDT 92 ' / / ' 0410003100O MLLAT L 104 0411003110O MQUE 111 0412003120O MPTS 118 0413003130O MOAMT L 132 0414003140O E 2 10 0415003150O 5 'NAME' 0416003160O MNAM 48 0417003170O 66 'SALUTATION CODE' 0418003180O MSLCD 68 0419003190O 98 'BUSINESS NAME' 0420003200O MBNM 132 0421003210O E 1 10 0422003220O 10 'ADDRESS 1' 0423003230O MADR1 48 0424003240O 70 'SOCIAL SECURITY NO.' 0425003250O MSOC 82 ' - - ' 0426003260O 96 'ST. ADDRESS' 0427003270O MBAD 132 0428003280O E 1 10 0429003290O 10 'ADDRESS 2' 0430003300O MADR2 48 0431003310O 67 'NO. OF COSIGNERS' 0432003320O MCMN 69 0433003330O 99 'CITY/STATE/ZIP' 0434003340O MBCS 122 0435003350O MBZP 132 0436003360O E 1 10 0437003370O 15 'CITY/STATE/ZIP' 0438003380O MCS 38 0439003390O MZP 48 0440003400O 62 'HOME PHONE:' 0441003410O N81MPHN 75 ' - - ' 0442003420O N81 76 '-' 0443003430O MEXT 80 0444003440O 81MPHN1 77 0445003450O 100 'BUSINESS PHONE:' 0446003460O N82MBPH 114 ' - - ' 0447003470O N82 115 '-' 0448003480O MBEX 119 04490  3403490O 82MBPH1 116 0450003500O E 2 10 0451003510O 12 'PRIORITY' 0452003520O 21 'TYPE' 0453003530O 34 'TIMES DELQ' 0454003540O 40 'PP' 0455003550O 46 'PP' 0456003560O 53 'PP' 0457003570O 65 'PROMISED' 0458003580O 78 'PROMISED TO' 0459003590O 100 'PREVIOUS ADDRESS 1' 0460003600O MPAD1 132 0461003610O E 1 10 0462003620O 7 'DATE' 0463003630O 14 'CODE' 0464003640O 21 'CODE' 0465003650O 34 '30 60 90' 0466003660O 41 'FLAG' 0467003670O 47 'KEPT' 0468003680O 55 'BROKEN' 0469003690O 65 'PAY DATE' 0470003700O 78 'PAY AMOUNT' 0471003710O 100 'PREVIOUS ADDRESS 2' 0472003720O MPAD2 132 0473003730O E 1 10 0474003740O MPRID 9 ' / / ' 0475003750O MPRIC 14 0476003760O MTCD 21 0477003770O MTD3 26 0478003780O MTD6 30 0479003790O MTD9 34 0480003800O MPFG 40 0481003810O MPPK 46 0482003820O MPPB 53 0483003830O MPPD 65 ' / / ' 0484003840O MPPA L 78 0485003850O 96 'CITY/STATE/ZIP' 0486003860O MPCS 122 0487003870O MPZC 132 0488003880O E 2 10 0489003890O 10 'CURRENT' 0490003900O 24 'CURRENT' 0491003910O 43 'CURRENT PAYOFF' 0492003920O 57 'NEXT PAYOFF' 0493003930O 69 'SUPERVISOR' 0494003940O 78 'ARCHIVE' 0495003950O 101 '* * S P E C I A L' 0496003960O 127 'I N S T R U C T I O N S' 04970  3403970O 132 '* *' 0498003980O E 1 10 0499003990O 10 'BALANCE' 0500004000O 23 'PAYOFF' 0501004010O 43 'EFFECTIVE DATE' 0502004020O 54 'AMOUNT' 0503004030O 66 'I.D.' 0504004040O 80 'TAPE DATE' 0505004050O E 1 10 0506004060O MCBAL L 12 0507004070O MPYOF L 26 0508004080O MCPGD 39 ' / / ' 0509004090O MNPA L 57 0510004100O MSUP 66 0511004110O MTLB 80 ' / / ' 0512004120O MSDF 128 0513004130O E 2 10 0514004140O 8 'STATUS' 0515004150O 17 'STATUS' 0516004160O 25 'OPEN' 0517004170O 37 'DATE 1ST' 0518004180O 44 'LAST' 0519004190O 54 'QUEUE' 0520004200O 69 'LAST UPDATE' 0521004210O 83 '* * * * * *' 0522004220O 102 'P E R M A N E N T' 0523004230O 119 'C O M M E N T' 0524004240O 132 '* * * * * *' 0525004250O E 1 10 0526004260O 7 'DATE' 0527004270O 16 'CODE' 0528004280O 25 'DATE' 0529004290O 36 'IN CCS' 0530004300O 44 'QUEUE' 0531004310O 57 'CHANGE DATE' 0532004320O 68 'BY LEGAL' 0533004330O MP1 117 0534004340O E 1 10 0535004350O MSTDT 9 ' / / ' 0536004360O MSTC 15 0537004370O MOPDT 27 ' / / ' 0538004380O MCCDT 37 ' / / ' 0539004390O MPQU 44 0540004400O MPDQ 55 ' / / ' 0541004410O MUPDT 68 ' / / ' 0542004420O MP2 117 0543004430O E 1 10 0544004440O MP3 117 05450  3404450O E 1 10 0546004460O 16 '* * * * * * * *' 0547004470O 30 '* * * * * * * *' 0548004480O 49 'L E G A L A N D' 0549004490O 63 'A G E N C Y' 0550004500O 77 'C L I E N T' 0551004510O 101 'I N F O R M A T I O N' 0552004520O 118 '* * * * * * * *' 0553004530O 132 '* * * * * * * *' 0554004540O E 2 10 0555004550O 24 'ATTORNEY/AGENCY CODE/NO' 0556004560O LACOD1 27 0557004570O LANO1 29 0558004580O 74 'PREVIOUS' 0559004590O 98 'ATTORNEY/AGENCY CODE/NO' 0560004600O LACOD2 101 0561004610O LANO2 103 0562004620O E 1 10 0563004630O 14 'REFERRAL DATE' 0564004640O LARDT1 33 ' / / ' 0565004650O 88 'PREVIOUS REFERRAL DATE' 0566004660O LARDT2 107 ' / / ' 0567004670O E 1 10 0568004680O 10 'FIRM NAME' 0569004690O LAFRM1 55 0570004700O 84 'PREVIOUS FIRM NAME' 0571004710O LAFRM2 129 0572004720O E 1 10 0573004730O 13 'FIRM ADDRESS' 0574004740O LAADR1 55 0575004750O 87 'PREVIOUS FIRM ADDRESS' 0576004760O LAADR2 129 0577004770O E 1 10 0578004780O 20 'FIRM CITY/STATE/ZIP' 0579004790O LACSZ1 55 0580004800O 74 'PREVIOUS' 0581004810O 94 'FIRM CITY/STATE/ZIP' 0582004820O LACSZ2 129 0583004830O E 1 10 0584004840O 18 'FIRM PHONE NUMBER' 0585004850O LAPHN1 37 ' - - ' 0586004860O 74 'PREVIOUS' 0587004870O 92 'FIRM PHONE NUMBER' 0588004880O LAPHN2 111 ' - - ' 0589004890O E 1 10 0590004900O 22 'CONTACT EXTENSION NO.' 0591004910O LAEXT1 29 0592004920O 74 'PREVIOUS' 05930  3404930O 96 'CONTACT EXTENSION NO.' 0594004940O LAEXT2 103 0595004950O E 1 10 0596004960O 13 'CONTACT NAME' 0597004970O LACNT1 55 0598004980O 87 'PREVIOUS CONTACT NAME' 0599004990O LACNT2 129 0600005000O E 1 10 0601005010O 22 'PLACEMENT BALANCE DUE' 0602005020O LABAL1L 36 0603005030O 74 'PREVIOUS' 0604005040O 96 'PLACEMENT BALANCE DUE' 0605005050O LABAL2L 110 0606005060O E 1 10 0607005070O 20 'FIRM FEE PERCENTAGE' 0608005080O LAPER1 29 0609005090O 90 'CLIENT REASSIGNMENT CODE' 0610005100O LAREAS 103 0611005110O E 1 10 0612005120O 18 'BALANCE DUE TO LA' 0613005130O LADUE L 36 0614005140O 76 'DATE TO LA' 0615005150O LATLA 107 ' / / ' 0616005160O E 2 10 0617005170O E 2 10N05 0789005180O 18 'C O S I G N E R S' 0790005190O 27 'N A M E' 0791005200O 44 'S T R E E T' 0792005210O 60 'A D D R E S S' 0793005220O 84 'C I T Y / S T A T E' 0794005230O 91 'Z I P' 0795005240O 111 'H O M E P H O N E' 0796005250O 132 'B U S . P H O N E' 0797005260O E 1 10N05 0798005270O CN1 31 0799005280O CA1 63 0800005290O CS1 85 0801005300O CZ1 91 0802005310O N83CH1 110 ' - - - ' 0803005320O 83CH11 107 0804005330O N84CB1 132 ' - - - ' 0805005340O 84CB11 129 0806005350O E 1 10N05 0807005360O CN2 31 0808005370O CA2 63 0809005380O CS2 85 0810005390O CZ2 91 0811005400O N85CH2 110 ' - - - ' 08120  3405410O 85CH21 107 0813005420O N86CB2 132 ' - - - ' 0814005430O 86CB21 129 0815005440O E 1 10N05 0816005450O CN3 31 0817005460O CA3 63 0818005470O CS3 85 0819005480O CZ3 91 0820005490O N87CH3 110 ' - - - ' 0821005500O 87CH31 107 0822005510O N88CB3 132 ' - - - ' 0823005520O 88CB31 129 0824005530OPRINT E 101 16 46 0825005540O HDR,1 41 0826005550O 75 'COLLECTOR ACTIVITIES' 0827005560O 03 103 'SUPERVISOR' 0828005570O 03SUPID 108 0829005580O 128 'PAGE' 0830005590O PAGE Z 132 0831005600O E 1 16 46 0832005610O HDR,2 41 0833005620O 63 'AS OF' 0834005630O UDATE Y 72 0835005640O E 1 16 46 0836005650O HDR,3 41 0837005660O E 1 16 46 0838005670O 13 'ACCOUNT' 0839005680O 35 'CONTACT' 0840005690O 43 'ACTION' 0841005700O 51 'RESULT' 0842005710O 59 'LETTER' 0843005720O 70 'COLLECTOR' 0844005730O 87 '* * * * * * * *' 0845005740O 111 'C O M M E N T S' 0846005750O 132 '* * * * * * * * * *' 0847005760O E 11 16 46 0848005770O 11 'NO.' 0849005780O 33 'DATE' 0850005790O 42 'CODE' 0851005800O 50 'CODE' 0852005810O 58 'CODE' 0853005820O 68 'I. D.' 0854005830O E 1 06N14 0855005840O SACT 17 0856005850O STG,1 29 0857005860O 30 '/' 0858005870O STG,2 32 0859005880O 33 '/' 08600S  35 05890O STG,3 35 0861005900O STG,4 41 0862005910O STG,5 49 0863005920O STG,6 57 0864005930O STG,7 65 0865005940O STG,8 67 0866005950O CMT 132 0867005960O E 103 70 0868005970O 10 'ERROR' 0869005980O 22 28 'ACCOUNT NO.' 0870005990O 22 EACT 45 0871006000O 22 57 'NOT ON FILE' 0872006010OPRINT T 3 LR 0873006020O 75 '**** END OF REPORT ****' 08740/* 006030_ h  35 U  352 @  35F +  35Z   35n   35  35  35 CCS 3.0 SL-149ALx5S LA x@P0{ . h P( hT   PLUPDAT E04 A LA CCS 3.0 SL-149@PPLUPDATPLAFUPDP P [ADDIT B05 F CCS CCS 3.0 SL-149@PA@PT33 A M] >0 MT3 ]T33E] > (3Th H3 1T3\ A M30 > M\3; A@P0,  A\33 > C3 C\33 = = 03 C\ >33 C C3T 4 ?33 > >3\  30 > >\3;  >@P0W >T A\33 > M >0 XT30̫ ̦ &\33 I 1\̝ 13T38̓@P0 ̍ 3&\ J3 1\T0 VT3 (3T L3 1T3T >3; P > P@PHM/(  35PADDIT PCCSMVACCSPUT PUTS FILERRUPDENDCCSADDDFORMLNZWRITERdREADR |CCSBLKUPDRECP PCHNGNF B24 F CCS CCS 3.0 PSrPD SL-173@P@P1@P4@P@P0@PN@Pl1@PE@P(,@P!@P$@P'@P*@P-@P0 @P5 , h h hTȷ \Ȫ t\@P`Ȟ  l@Pn hh hȻ!" ( hʓ !ȏ谚 Ȩf dؚ@P 5h !0 2. d3 h hT@P@P  h\4@P4 \5H2TThbhmhhhh\hZheh\hVhjh\h@PQheh\hIhJhRh\hhhh\ha'PCHNGNFPQ8PKUPQ8PREPAMONTO:ADAYTO>AYERTOBCCSCSTECCSMVAP P [ CONUPD B32 F CCS CCS 3.0 PSrPD SL-149@PCm#  3,}AL~,}S LA R A026 00850 CHUPD2 --- PSR 0016,A078 00860 *COLCHG --- PSR 000600010H LARPRT00020F* G05 R LA CCS 3.0 SL-149 L0045000030F* THIS FILE CONTAINS COSY CORRECTIONS AS OF 02/83 L0046000040F* LEGAL AND AGENCY VERSION 3 L0047000050F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA L0048000060F* CREDIT COLLECTION SYSTEM VERSION 2.1 L0049000070F* L0050000080F* THIS PROGRAM PRINTS THE L/A CLIENT REFERRAL LIST OF ALL LARPRT00090F* ACCOUNTS EXTRACTED FROM THE C.C.S. SYSTEM BY THE L/A LARPRT00100F* PROGRAM 'LAXTRT'. LARPRT00110F* LARPRT00120FNULL IP F 2 DISK LARPRT00130FLADLQKEYID F 16 DISK LARPRT00140FLADLQMSTIC F 2000R16AI 1 DISK LARPRT00150FPRINT O F 132 PRINTER LARPRT00160FDISPLAY O F 72 CONSOLE LARPRT00170FLAUTIFILIC F 80R 4AI 1 DISK 00180E* LARPRT00190E ERR 1 1 50 INVALID KEY MSG LARPRT00200I* LARPRT00210I* ALL INPUT LINES PRECEDED BY '***' ARE NOT LARPRT00220I* CURRENTLY BEING USED IN THIS PROGRAM. LARPRT00230I* LARPRT00240INULL AA 01 LARPRT00250ILAUTIFILAA 41 00260I 5 44 HEADER 00270ILADLQKEYAA 01 LARPRT00280I 1 16 KEY LARPRT00290ILADLQMSTAA 01 LARPRT00300I 1 16 MACCT LARPRT00310I*** 17 17 MSLCD LARPRT00320I 18 47 MNAM LARPRT00330I 48 77 MADR1 LARPRT00340I 78 107 MADR2 LARPRT00350I 108 127 MCS LARPRT00360I 128 1320MZP LARPRT00370I 133 1350MPHN1 LARPRT00380I 136 1380MPHN2 LARPRT00390I 139 1420MPHN3 LARPRT00400I 143 146 MEXT LARPRT00410I 147 176 MBNM LARPRT00420I 177 206 MBAD LARPRT00430I 207 226 MBCS LARPRT00440I 227 2310MBZP LARPRT00450I 232 2340MBPH1 LARPRT00460I 235 d  3,2370MBPH2 LARPRT00470I 238 2410MBPH3 LARPRT00480I 242 2450MBEX LARPRT00490I*** 246 2610MADL LARPRT00500I 262 2640MSOC1 LARPRT00510I 265 2660MSOC2 LARPRT00520I 267 2700MSOC3 LARPRT00530I*** 271 274 MQUE LARPRT00540I*** 275 2800MNXTC LARPRT00550I*** 281 284 MPRI LARPRT00560I*** 285 285 MPFG LARPRT00570I*** 286 286 MBFG LARPRT00580I*** 287 290 MSUP LARPRT00590I*** 291 291 MRCD LARPRT00600I*** 292 293 MSCD LARPRT00610I*** 294 294 MQAS LARPRT00620I*** 295 295 MOLS LARPRT00630I*** 296 299 MPQU LARPRT00640I*** 300 3050MPDQ LARPRT00650I*** 306 306 MSTC LARPRT00660I 667 696 MP1 LARPRT00670I 697 726 MP2 LARPRT00680I 727 756 MP3 LARPRT00690I*** 757 786 MPAD1 LARPRT00700I*** 787 816 MPAD1 LARPRT00710I*** 817 836 MPCS LARPRT00720I*** 837 8410MPZC LARPRT00730I*** 842 8470MLLDT LARPRT00740I*** 848 8560MLLAT LARPRT00750I 857 8620MSTDT LARPRT00760I*** 863 8680MUPDT LARPRT00770I 869 8740MCCDT LARPRT00780I*** 875 8800MDLDT LARPRT00790I 881 8860MOPDT LARPRT00800I*** 887 8952MADLQ LARPRT00810I*** 896 9042MCBAL LARPRT00820I*** 905 9132MPYOF LARPRT00830I*** 914 9190MCPGD LARPRT00840I*** 920 9282MNPA LARPRT00850I*** 929 9372MOAMT LARPRT00860I*** 938 9380MCHN LARPRT00870I*** 939 946 MTP LARPRT00880I*** 947 949 MPTS LARPRT00890I 950 9540MBBR LARPRT00900I 955 962 MLON LARPRT00910I 963 966 MTCD LARPRT00920I*** 967 9680MTD3 LARPRT00930I*** 969 9700MTD6 LARPRT00940I*** 971  3,9720MTD9 LARPRT00950I*** 9731012 MSDF LARPRT00960I 101310150MDYDL LARPRT00970I*** 10161021 MPPD LARPRT00980I*** 102210302MPPA LARPRT00990I*** 103110360MTHD LARPRT01000I*** 103710380MPPK LARPRT01010I*** 103910400MPPB LARPRT01020I*** 10411056 MRESV LARPRT01030I 105710620LATLA LARPRT01040I 106310712LADUE LARPRT01050I* 01060I* CHAIN TO LAUTIFIL FOR REPORT HEADINGS 01070C 46 GOTO START 01080C SETON 46 01090C 'HDR1' CHAINLAUTIFIL 47 01100C N47 MOVE HEADER HDR1 40 01110C 'HDR2' CHAINLAUTIFIL 47 01120C N47 MOVE HEADER HDR2 40 01130C 'HDR3' CHAINLAUTIFIL 47 01140C N47 MOVE HEADER HDR3 40 LARPRT01150C* 01160CLR START TAG LARPRT01170CLR READ LADLQKEY 10 LARPRT01180CLR 10 GOTO EOJ LARPRT01190CLR KEY CHAINLADLQMST 15 LARPRT01200CLR EXCPT LARPRT01210CLR GOTO START LARPRT01220CLR EOJ TAG LARPRT01230O* LARPRT01240ODISPLAY E 15 LARPRT01250O KEY 16 LARPRT01260O ERR 70 LARPRT01270OPRINT E 0301 15 LARPRT01280O 20 '***** ERROR *****' LARPRT01290O 38 'ACCOUNT NUMBER' LARPRT01300O KEY 55 LARPRT01310O 78 'IS NOT PRESENT IN THE' LARPRT01320O 100 'L/A DELINQUENT MASTER' LARPRT01330OPRINT E 103 N15 LARPRT01340O HDR1 40 LARPRT01350O 74 'CLIENT REFERRAL LIST' LARPRT01360O 127 'PAGE' LARPRT01370O PAGE Z 132 LARPRT01380O E N15 LARPRT01390O HDR2 40 LARPRT01400O 122 'RUN DATE:' LARPRT01410O UDATE Y 131 LARPRT01420O E 2 N15 2  3, LARPRT01430O HDR3 40 LARPRT01440O E N15 LARPRT01450O 27 'ACCOUNT BANK' LARPRT01460O 55 'LOAN AMOUNT TO' LARPRT01470O 90 'REFERRED TO:' LARPRT01480O 108 '_______________' LARPRT01490O 123 '_______________' LARPRT01500O E N15 LARPRT01510O 29 'NUMBER BRANCH' LARPRT01520O 53 'OFFICER COLLECT' LARPRT01530O 89 'L/A NUMBER:' LARPRT01540O 97 '____' LARPRT01550O E N15 LARPRT01560O 92 'REFERRAL DATE:' LARPRT01570O 99 '/ /' LARPRT01580O E 2 N15 LARPRT01590O MACCT 16 LARPRT01600O MBBR 28 LARPRT01610O MLON 31 LARPRT01620O LADUE 1 58 '$' LARPRT01630O 92 'BY (COLL-ID) :' LARPRT01640O 97 '____' LARPRT01650O E 2 N15 LARPRT01660O 12 'DEBTOR:' LARPRT01670O 87 'APPROVAL:' LARPRT01680O 105 '____________' LARPRT01690O E N15 LARPRT01700O 4 'NAME' LARPRT01710O MNAM 44 LARPRT01720O 98 'REASON FOR REFERRAL:' LARPRT01730O E N15 LARPRT01740O 9 'ADDRESS-1' LARPRT01750O MADR1 44 LARPRT01760O E N15 LARPRT01770O 9 'ADDRESS-2' LARPRT01780O MADR2 44 LARPRT01790O 91 '( ) FILE SUIT' LARPRT01800O E N15 LARPRT01810O 11 'CITY,ST,ZIP' LARPRT01820O MCS 34 LARPRT01830O MZP 44 LARPRT01840O 94 '( ) ATTACH WAGES' LARPRT01850O E N15 LARPRT01860O 5 'PHONE' LARPRT01870O MPHN1 17 LARPRT01880O 18 '/' LARPRT01890O MPHN2 21 LARPRT01900O 22 '-' z  3, LARPRT01910O MPHN3 26 LARPRT01920O 101 '( ) ATTACH BANK ACCOUNT' LARPRT01930O E N15 LARPRT01940O 9 'SOC SEC #' LARPRT01950O MSOC1 17 LARPRT01960O 18 '-' LARPRT01970O MSOC2 20 LARPRT01980O 21 '-' LARPRT01990O MSOC3 25 LARPRT02000O 94 '( ) SHERIFF SALE' LARPRT02010O E N15 LARPRT02020O 92 '( ) BANKRUPTCY' LARPRT02030O E N15 LARPRT02040O 23 'DAYS DATE IN LAST' LARPRT02050O 44 'AR DATE ACCT' LARPRT02060O 97 '( ) FILE FOR ESTATE' LARPRT02070O E N15 LARPRT02080O 21 'DELQ CCS UP' LARPRT02090O 44 'DATE OPEN TYPE' LARPRT02100O 103 'DATE OF DEATH: / /' LARPRT02110O E N15 LARPRT02120O 98 'LIEN ON PROPERTY' LARPRT02130O E N15 LARPRT02140O MDYDL 3 LARPRT02150O MCCDT Y 16 LARPRT02160O MSTDT Y 27 LARPRT02170O MOPDT Y 38 LARPRT02180O MTCD 44 LARPRT02190O 92 '( ) ATTACH ALL' LARPRT02200O 109 'AVAILABLE ASSETS' LARPRT02210O E N15 LARPRT02220O 87 '( ) OTHER' LARPRT02230O E 2 N15 LARPRT02240O 16 'EMPLOYMENT:' LARPRT02250O E N15 LARPRT02260O 8 'EMPLOYER' LARPRT02270O MBNM 44 LARPRT02280O E N15 LARPRT02290O 7 'ADDRESS' LARPRT02300O MBAD 44 LARPRT02310O 90 'GIVE DETAILS' LARPRT02320O E N15 LARPRT02330O 11 'CITY,ST,ZIP' LARPRT02340O MBCS 34 LARPRT02350O MBZP 44 LARPRT02360O E N15 LARPRT02370O 5 'PHONE' LARPRT02380O MBPH1 17 o  3, LARPRT02390O 18 '/' LARPRT02400O MBPH2 21 LARPRT02410O 22 '-' LARPRT02420O MBPH3 26 LARPRT02430O 29 'X(' LARPRT02440O MBEX 33 LARPRT02450O 34 ')' LARPRT02460O 79 '*' LARPRT02470O E N15 LARPRT02480O 79 '*' LARPRT02490O E N15 LARPRT02500O 23 'PERMANENT COMMENTS' LARPRT02510O 79 '*' LARPRT02520O E N15 LARPRT02530O 79 '*' LARPRT02540O E N15 LARPRT02550O MP1 30 LARPRT02560O E N15 LARPRT02570O MP2 30 LARPRT02580O E N15 LARPRT02590O MP3 30 LARPRT** 002600WARNING! KEY NOT PRESENT IN L/A DELINQUENT MASTER 002610/* 002620 MON 002630_ n  3, OK * OLD VALUE = E101 ************************************************************************ * * PATCH 18. * ELIMINATES FILE MANAGER ERROR, ETC. WHEN DOING * EDITOR LIST,99999,ETC. * (TO DECHEX ROUTINE IN EDITOR PROGRAM LIB FILE.) * LHM,,2640,2DBF/C833,2046,15A,139 OK * OLD VALUES = 0C00,C832,2000,000A ************************************************************************ * * PATCH 19. * * ELIMINATES HANG IN SYSMSG ROUTINE. * (IN TSLOG OVERLAY) LHM,,1B75,66E/B00 OK * OLD VALUE = 18FE ************************************************************************ * * PATCH 20. * * FIXES PROBLEM WHERE UTIL, LOAD DOES NOT FLAG FILE IS FULL. * (TO UTLOAD PROGRAM LIB FILE.) * LHM,,2328,13A6/CCAB,F4C,A400,9711,9FE,109,CCA5,900,13E,1805 OK * OLD VALUES = CCAB,900,121,1814,CCA7,F4C,A400,9711,9FE,105 ************************************************************************ * * PATCH 21. e  3-  * * CHANGE DSORT TO USE ZERO AS THE EXPIRATION DATE SO FILES CAN * BE PURGED IF A SORT RUN IS ABORTED. CHANGE DELETE SO THAT * EXISTING FILES CAN BE DELETED. ****** DO THIS BY HAND, IT MUST * BE REMOVED AFTER DELETING THESE OFFENDING FILES. *********** **** LHM,,1F73,676/B00 OLD = 183E **** LHM,,21A1,110/B00 OLD = 0101 **** **** APPLICABLE PATCH IS AS FOLLOWS: LHM,,2765,520/3030 OK * OLD VALUES = 3939 * *********************************************************************** * * PATCH 22. * * THIS CORRECTS FIRMWARE COMPARE STRING INSTRUCTION. IN * CERTAIN CIRCUMSTANCES, AN ERRONEOUS RESULT IS GIVEN. * LHM,,472,40E/9525 OK * OLD VALUE = 953D LHM,,472,7C3/1606 OK * OLD VALUE = 15EE * *********************************************************************** CLU,4 * END PATCH TAPE DATED 12-02-81 * TYPE 'OFF' TO EXIT. * TYPE 'CIU,6' TO INSTALL 722 VIKING TERMINAL PATCHES. CIU,4 CLU,9 ********************************************************************** * * PATCH A. * * 722 VIKING TERMINAL PATCHES * (TO TRMIOR & EDITOR 'LSTPRO' MODULE) * (NO PSR) * LHC,959A,123/8000,20,B00,B00 OK * OLD VALUES = 822,50C,F70A,834 LHM,,2640,2735/B00,B00 OK * OLD VALUE = 8400,AFC3 E  3- * ********************************************************************** OFF _ 03860 B3602160ALr-&S $$ B3602170 CALL CCSMVA ( DEQREC, PRIP(8)+J-1, PRIL(8), PRI, 43, 6 ) B36021801 00010 *********** STATUS OF THE SYSTEM AS SHIPPED 06/81 ********** 00020 * * 00030 * C Y B E R C R E D I T S Y S T E M CCS3.0-1 * 00040 * * 00050 * ****** MODIFICATIONS COMPLETED 03/82 ******** * 00060 * * 00070 *************************************************************** 00080 00090 ALL THE CHANGES FOR SIM109 ARE INCLUDED ON THE SYSTEM AS WELL 00100 AS ALL OTHER POST 109 PSR FIXES. 00110 00120 THE FOLLOWING IS A LIST OF THE PROGRAMS UPDATED: 00130 00140 ACTADD --- 00150 CCSADD --- 00160 CCSDMP --- POST 109 FILE RRN # 00170 CCSEAC --- 00180 CHNGNF ___ 00190 CHSCRN --- 00200 CHUPD2 --- 00210 CPYIND --- 00220 DACRTE --- 00230 DHUPDT --- 00240  3-1 DISPLY --- 00250 EACTSQ --- 00260 EATRNG --- 00270 EDIT --- 00280 LTRPNT --- PSR 0007 00290 LTRPRT --- PSR 0002,A031,A037,A034,0010,A041,A042 00300 MHUPDT --- 00310 PGGEN --- PSR A044,A045 00320 PGGEN1 --- 00330 PGGN2E -- 00340 PRTSCN --- 00350 QLOAD --- 00360 REACIT --- 00370 SUMACL --- 00380 TIMUSE --- 00390 TRENDF --- 00400 TRNPLY --- 00410 UPDATE.B --- PSR A029,A035,A014,0008 00420 00430 THE LATEST VERSION OF EDTLP HAS BEEN INSTALLED 00440 00450 THE COMMERCIAL FIRMWARE INSTRUCTION SET HAS BEEN INSTALLED 00460 TO FIX DML & STRING COMPARE. 00470 00480 THE FOLLOWING PATCHES HAVE BEEN INSTALLED: 00490 LHC,2A5E,7DD/1E,28 (OLD= 0,A) PSR CY30003 (RESPONSE TIME) 00500 LHM,,12C8,73/C20A (OLD=C00A) PSR CY3A025 (OPENFL) 00510 LHM,,10,4A4E/180F (OLD=18DF) PSR CY3A037 (50MB TO 180MB CONF) 00520 00530 ALL DEBUG PATCHES - CCS3.0 SL149+ 12-21-81 HAVE BEEN INSTALLED, 00540 INCLUDING THE 722 VIKING PATCH. 00550 00560 THEY ARE CONTAINED IN THE FILE 109PATCH, UNDER $$, USERID. 00570 DO NOT SEQUENCE THIS FILE. IT CAN BE LISTED TO TAPE 00580 AND READ IN VIA.. CCSDB. 00590 00600 ADDITIIONALLY PROGRAMS RSWCHG & REBILD HAVE BEEN INSTALLED 00610 ON THE SYSTEM AND PROCEDURE PRFDC010 HAS BEEN MODIFIED TO 00620 RUN RSWCHG AFTER NMCHNG. 00630 00640 00650***************************************************************************00660 00670 *********** STATUS OF THE SYSTEM AS OF 05/12/82 ********** 00680 * * 00690 * C Y B E R C R E D I T S Y S T E M CCS3.0-2 * 00700 * * 00710 * ****** MODIFICATIONS COMPLETED 05/82 ******** * 007208  3-E * * 00730 *************************************************************** 00740 00750 THE FOLLOWING IS A LIST OF THE PROGRAMS UPDATED: 00760 * THESE PROGRAMS CHANGES APPLY TO 3.0 - 2 SYSTEM 00770 NOT FOUND IN 3.0 - 1 SYSTEM. 00780 00790 ACTADD --- PSR 0010,A028 00800 CCSADD --- PSR A010 00810 CCSDMP --- PSR A027 AND ADDITION OF FILE RRN# 00820 CCSEAC --- PSR A010 00830 CHNGNF ___ PSR A081 00840 CHSCRN --- PSR A026 00850 CHUPD2 --- PSR 0016,A078 00860 *COLCHG --- PSR 0006 00870 *COLSTS --- PSR 0001 00880 *CONUPD --- PSR A014 00890 CPYIND --- PSR A019 00900 DACRTE --- PSR A018,A032 00910 DHUPDT --- PSR A012,A078 00920 DISPLY --- PSR A009 00930 EACTSQ --- PSR 0028 00940 EATRNG --- PSR 0023 00950 EDIT --- PSR A009,A010 00960 *FILERR --- REWRITTEN TO STOP AFTER DISPLAY OF FILE MANAGER 00970 ERROR TO GIVE OPERATOR OPTION OF CONTINUING. 00980 *GETMAS --- CHANGE TO DISPLAY ACCOUNT NO. OF LOCKED RECORD. 00990 *ITKDAC --- PSR A032 01000 LTPRNT --- PSR 0007 01010 LTRPRT --- PSR 0002,0010,0040,A031,A041,A042 01020 MHUPDT --- PSR 0016 01030 PGGEN --- PSR A044,A045 01040 PGGEN1 --- PSR A040 01050 PGGN2E --- PSR A044,A045,A079,A085 01060 PRETSR --- THIS PROGRAM HAS BEEN CHANGED BACK TO ITS ORIGI- 01070 NAL STATE (WITHOUT THE PSR A016 CHANGES) 01080 PRTSCN --- PSR A021 01090 QLOAD --- PSR A001 01100 REACIT --- PSR 0008,A087, AND BLANK OUT QUEUE ASSIGN WAS 01110 ADDED 01120 SUMACL --- PSR A011 01130 SUMHD --- PSR 0034 01140 *TIMUSE --- THIS PROGRAM HAS BEEN CHANGED BACK TO ITS ORIGI- 01150 NAL STATE. (WITHOUT PSR 0016 CHANGES) 01160 TRENDF --- PSR A043,A046 01170 TRNPLY --- PSR 0022,A020 01180 *UPDMAC --- PSR A029 01190 *WRTOFE --- PSR 0019 01200Q  3-Y 01210 THE SORTS IN PRFDC001 AND PRFDC003 HAVE BEEN CHANGED TO SORT ON 01220 THE ORIGINAL KEY FIELDS BECAUSE OF THE CHANGES MADE TO PRETSR 01230 AND TIMUSE PROGRAMS. THE ACTMTN PROGRAM WHICH REPORTED THE 01240 ACTIVITY BLOCKS HAS BEEN REMOVED FROM PROCEDURE PRFDC003. 01250 01260***************************************************************************01270 01280 *********** STATUS OF THE SYSTEM AS OF 07/27/82 ********** 01290 * * 01300 * C Y B E R C R E D I T S Y S T E M CCS3.0-3 * 01310 * * 01320 * ****** MODIFICATIONS COMPLETED 05/82 ****** * 01330 * * 01340 *************************************************************** 01350 01360 THE FOLLOWING IS A LIST OF THE PROGRAMS UPDATED: 01370 01380 COLECT --- CORRECTED TO DISPLAY MORE THAN 50 NEW ACTIVITY 01390 BLOCKS 01400 LODFIL --- CHANGED TO REPORT DUPLICATE ACCOUNT NUMBERS 01410 RSWCHG --- THE MESSAGE THAT STATUS CODE IS NOT ON THE 01420 SUPERVISOR SCREEN HAS BEEN REMOVED, SO AS NOT 01430 TO CONFUSE THE CUSTOMER 01440 USEMTN --- CHANGED TO EXECUTE FROM ANY TERMINAL WITH A 01450 CCS20 USER I.D. 01460 DTLLST --- CORRECTED TO PRINT MORE THAN 50 NEW BLOCKS OF 01470 DATA FROM THE ACTIVITY FILE AND THE DO LOOP IS 01480 USED INSTEAD OF ALL OF THE MOVEA STRINGS. 01490 LDTLST --- SEE ABOVE DATA. 01500 01510 UTILITY PROGRAMS FIXINA AND REBILD HAVE BEEN INSTALLED ON THE 01520 SYSTEM. 01530 01540***************************************************************************01550 01560 *********** STATUS OF THE SYSTEM AS SHIPPED 11/82 ********** 01570 * * 01580 * C Y B E R C R E D I T S Y S T E M CCS3.0-4 * 01590 * * 01600 * ****** MODIFICATIONS COMPLETED 11/82 ******** * 01610 * * 01620 *************************************************************** 01630 01640 SYSTEM AS OF 11/03/82 01650 01660 01670 THE FOLLOWING PROGRAMS HAVE BEEN UPDATED. 01680m  3-m 01690 CCSDMP --- PSR A027 & TO HANDLE 2 WORD RRN# & LOCKED RECORDS 01700 COLECT --- DISPLAY ALL ACTIVITY & NOT LOCK RECORD IF TRAINEE 01710 DACRTE --- PSR A018,A032 SL-173 01720 DHUPDT --- PSR A012,A078 & TO HANDLE ZEROED HOME PHONE # 01730 GETMAS --- CHANGE TO DISPLAY ACCT # & NAME OF LOCKED RECORD. 01740 LODFIL --- HANDLE DUPLICATE RECORDS W/WTREAD TO PRINTER 01750 LTPRNT --- PSR 0007 TO TERMINAL IF NOT MASTER CONSOLE 01760 TRENDF --- PSR A043,A046- REWRITTEN TO HANDLE RECORD BLOCKING 01770 & TO BUILD RSWFIL IF BUILDING ACCAGE ALSO 01780 IT DOES NOT DELETE RECORDS OR COMPRESS ACCAGE. 01790 VFYACF --- SUBROUTINE TO VERIFY ON LINE ACTIVITY BLOCK ADDED. 01800 ADD TO DACRTE : CALL VFYACF(DEQREC(K)) 01810 RIGHT AFTER CHECK IF RECORD ACTIVE ! 01820 TRENDP --- CHANGED TO PROCESS ARRAYS FASTER 01830 CMPACC --- PROGRAM TO COMPRESS ACCAGE (SEE WRITE UP) 01840 CHEKID --- CHANGED TO DISPLAY - DAY,DATE,TIME, AND ID 01850 REBILD --- FIX TO RECORD BLOCKING 01860 LTRSTA --- INITALIZE COID WORK BUFFER TO NON BLANK 01870 PROVE --- ADDED TO SYSTEM. 01880 UTLIST --- PATCHED TO DEFAULT TO UNFORMATTED LIST 01890 $$RPMENU --- ADD SELECTION N COMPRESS ACCAGE 01900 PRFRP014 --- PROCEDURE TO COMPRESS ACCAGE 01910 PRFRP003 --- ACCAGE SORT CHANGED TO OMIT 'RSW' IN POS. 35 01920 PRFDC003 --- REMOVE - ACTMTN 01930 HS PRF'S --- ADD CCSPAS TO PAUSE BEFORE CONTINUE 01940 SAVE/RESTORE--- PATCHED TO SAVE AND RESTORE VOL. LABEL AT SECT. 7F00 01950 EDTLP --- LATEST VERSION - CYSA030 - VAN/CFS 01960 DISCQT --- REMOVED *R OF QTIL 01970 $$USERID --- ADDED ID'S - CCS149,SPECIAL,LIBRARY 01980 TRDTLLST --- UNDER CCS20 LATEST VERSION / MOVE STRING DO LOOP 01990 AND SET LOWER LIMITS. 02000 PRFRP014/LA --- SAME AS CCS20 CMPACC WORKS FOR LA & CCS20 02010 02020 ADDITIONAL PROGRAMS RSWCHG & REBILD HAVE BEEN INSTALLED 02030 ON THE SYSTEM AND PROCEDURE PRFDC010 HAS BEEN MODIFIED. 02040 TO RUN RSWCHG AFTER NMCHNG. PROCEDURE PRFLD010 HAS BEEN 02050 MODIFIED TO RUN LRSWCH AFTER LNMCHG. 02060 02070 THE SORTS IN PRFDC001, PRFDC003, PRFLD001, AND PRFLD003 HAVE 02080 BEEN CHANGED TO SORT ON THE ORIGINAL KEY FIELDS BECAUSE OF THE 02090 CHANGES MADE TO PRETSR, TIMUSE, LPRTSR, LTIMUS PROGRAMS. THE 02100 ACTMTN AND LACTMT PROGRAMS WHICH REPORTED THE ACTIVITY BLOCKS 02110 HAVE BEEN REMOVED FROM PROCEDURES PRFDC003 AND PRFLD003. 02120 02130 TRDTLLST AND TRLDTLST SOURCE FILES HAVE BEEN CHANGED TO INCLUDE 02140 THE MOVE STRING DO LOOP AND SET LOWER LIMIT CHANGES. 02150 02160v  3- ALL UPDATE AND LUPDAT FILES HAVE BEEN UPDATED TO INCLUDE THE 02170 LATEST CHANGES AS OF 06/30/82. 02180 02190***************************************************************************02200 02210 *********** STATUS OF THE SYSTEM AS SHIPPED 03/83 *********** 02220 * * 02230 * C Y B E R C R E D I T S Y S T E M CCS3.0-5 * 02240 * * 02250 * ****** MODIFICATIONS COMPLETED 03/83 ******** * 02260 * * 02270 **************************************************************** 02280 02290 SYSTEM AS OF 03/17/83 02300 02310 SEE TRIP REPORT RWE/SAH 03/83 02320_ s  3- AL-S CCS20 PROGRAM DACRTE B3600010 1 /B36 F CCS CCS 3.1 SL-173B3600020C B3600030C CYBERCREDIT SYSTEM VERSION 3 B3600040C DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA B3600050C COPYRIGHT CONTROL DATA CORPORATION, 1979 B3600060C B36000701 B3600080C THIS PROGRAM REASSIGNS QUEUES AND PRIORITIES FOR ALL ACTIVE B3600090C ACCOUNTS IN THE DELQMST FILE AND CREATES THE DLYASSN FILE B3600100C WHICH IS USED BY THE ON-LINE AUTOMATIC FUNCTION B36001101 B3600120 INTEGER DEQREQ(24),ASNREQ(24),DDATA(15),ADATA(15),ST,EFG,DT(3), B3600130 2 USER(4),HD(3,20),PRI(3,9),QUE(3,9),NQUE(2),NPRI(2),FDEL, B3600140 3 DEQREC(22000),ASNREC(462),QUEP(9),QUEL(9),PRIP(9),PRIL(9), B3600150 4 STG(40),LTHACT(2) B36001601 B3600170 EXTERNAL FMRDEL B36001801 B3600190 DATA DEQREQ, ASNREQ / 48*0 / B3600200 DATA DDATA / 'DELQMST ', 8*$2020, 0, 0, 0 / B3600210 DATA ADATA / 'DLYASSN ', 8*$2020, 0, 1, 0 / B3600220C************************************************************** 173*A032B3600230C VARIABLE FOR PP DATE CHECKING B3600240 INTEGER PPDATE(3) B3600250C VARIABLES FOR READING UTIFIL B3600260 INTEGER UDATA(15),UTIREQ(24),UTIREC(40),OLPM(2),PPLAG B3600270 DATA UDATA/'UTIFIL ',8*$2020,1,1,0/ B3600280 DATA UTIREQ/24*0/,OLPM/'OLPM'/ B3600290C************************************************************** 173*A032B3600300 DATA NUMREC / 22 /, ST / 0 /, EFG / 0 /, LTHACT / '0360' / B3600310 DATA QUE, PRI / 54*$2020 / B3600320. B3600330C**** SET UP THE DELQMST STARTING CHARACTER POSITIONS FOR THE B3600340C QUEUE ASSIGNMENT PARAMETERS, IF NOT USED MUST BE ZERO (0) B36003501 B3600360C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600370 DATA QUEP / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36003801 ;  3- B3600390C**** SET UP THE DELQMST PARAMETER LENGTH IN CHARACTERS MAX. = 6 B3600400C IF UNUSED MUST BE ZERO (0) B36004101 B3600420C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600430 DATA QUEL / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36004402 B3600450C**** SET UP THE STARTING CHARACTER POSITIONS IN DELQMST FILE FOR B3600460C THE PRIORITY ASSIGNMENT PARAMETERS, IF UNSED MUST BE ZERO (0) B36004701 B3600480C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600490 DATA PRIP / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36005001 B3600510C**** SET UP THE PRIORITY PARAMETER CHARACTER LENGTHS MAX. = 6 B3600520C IF UNUSED MUST BE ZERO (0) B36005301 B3600540C P-1 P-2 P-3 P-4 P-5 P-6 P-7 P-8 P-9 B3600550 DATA PRIL / 0, 0, 0, 0, 0, 0, 0, 0, 0 / B36005601 B3600570C**** SET UP THE STARTING CHARACTER POSITIONS FOR THE MOST RECENT B3600580C PAYMENT AMOUNT AND PAYMENT DATE, USED FOR BROKEN PP'S B36005901 B3600600 DATA LDATE / 0 / , LAMT / 0 / B3600610. B3600620C ACCEPT LOGIN FROM ITOS B3600630 CALL PGMIN ( USER, LU, MODE, NPORT ) B36006401 B3600650C INITIALIZE VARIABLES B3600660 ASSEM $C000,FMRDEL,$6800,FDEL B3600670 CALL CCSBLK ( ASNREC, 920 ) B3600680 IOSW = $3030 B3600690 CALL UTHEAD ( HD, DT ) B3600700 DDATA(14) = NUMREC B3600710 M = 1 B36007202 B3600730C OPEN FILES FOR USE B3600740C************************************************************** 173*A032B3600750 CALL OPENFL(UTIREQ,UDATA,ISTAT) B3600760C CHECK FOR ERROR B3600770 IF(ISTAT.GE.0) GO TO 10 B3600780 CALL FILERR(UDATA,3,ISTAT,LU) B3600790 GO TO 900 B3600800C NO ERROR-RETRIEVE OLPM RECORD TO GET DELTA FACTOR FOR PP DATE PROCB3600810 10 CALL READR(UTIREQ,UTIREC,OLPM,ISTAT) B3600820C BE SURE CORRECT RECORD READ B3600830 IF(AND(ISTAT,$0200).EQ.$0200.OR.AND(ISTAT,$8100).EQ.$8100) B3600840 . GO TO 20 B3600850C RECORD WAS FOUND-CK FOR OTHER ERROR B3600860 IF(ISTAT.LT.0) GO TO 20 B  34AL4S LA $*CLOSE $00010H LDTLST00020X 1 G11 R LA CCS 3.0 SL-149 0002000030F* G11 R LA CCS 3.0 SL-149 0003000040F* 0004000050F* LEGAL AND AGENCY VERSION 3 0005000060F* DATA SYSTEMS - LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 0006000070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 0007000080F* 0008000090F* DECK-ID P01 CCS 2.0 SUMMARY-132 0009000100F* 0010000110FLADUMMY IP F 80 DISK 0011000120FLACOSIGNIC F 362R16AI 1 DISK 0012000130FLASREQDLID F 20 DISK 0013000140F* 0014000150F* COPYRIGHT CONTROL DATA CORPORATION, 1978 0015000160F* DATA SYSTEM-LA JOLLA DIVISION, LAJOLLA, CALIFORNIA 0016000170F* CREDIT COLLECTION SYSTEM VERSION 2.0 0017000180F* 0018000190FLAINACCTUD F 24 DISK 0019000200FLAACTFILID F 500 18AI 1 DISK 0020000210FLADLQMSTIC F 2000R16AI 1 DISK 0021000220FLAUTIFILIC F 80R 4AI 1 DISK 0022000230FPRINT O F 132 OV PRINTER 0023000240E STG 38 2 0024000250E OBLK 482 1 0025000260E CMT 30 2 0026000270E HDR 3 40 0027000280ILADUMMY CC 01 0028000290I 1 80 DUM 0029000300ILACOSIGNBB 02 0030000310I 1 1 CACTFG 0031000320I 2 16 CACCT 0032000330I 1 16 CACC 0033000340I 17 17 CINIT 0034000350I 18 180CSLC1 0035000360I 19 190C1FG 0036000370I 20 49 CN1 0037000380I 50 79 CA1 0038000390I 80 99 CS1 0039000400I 100 1040CZ1 0040000410I 105 1180CH1 0041000420I 105 105 H1 0042000430I 105 118 CH11 0043000440I 119 1320CB1 0044000450I 119 119 B1 0045000460I 119  34(132 CB11 0046000470I 133 1330CSLC2 0047000480I 134 1340C2FG 0048000490I 135 164 CN2 0049000500I 165 194 CA2 0050000510I 195 214 CS2 0051000520I 215 2190CZ2 0052000530I 220 2330CH2 0053000540I 220 220 H2 0054000550I 220 233 CH21 0055000560I 234 2470CB2 0056000570I 234 234 B2 0057000580I 234 247 CB21 0058000590I 248 2480CSLC3 0059000600I 249 2490C3FG 0060000610I 250 279 CN3 0061000620I 280 309 CA3 0062000630I 310 329 CS3 0063000640I 330 3340CZ3 0064000650I 335 3480CH3 0065000660I 335 335 H3 0066000670I 335 348 CH31 0067000680I 349 3620CB3 0068000690I 349 349 B3 0069000700I 349 362 CB31 0070000710ILASREQDLGG 03 0071000720I 1 16 EACT 0072000730I 17 20 SUPID 0073000740ILAINACCTEE 04 0074000750I 1 16 EACT 0075000760I 18 18 PFLAG 0076000770ILAACTFILFF 06 0077000780I 1 16 ACT 0078000790I 19 500 OBLK 0079000800I* L/A MASTER FILE DESCRIPTION INPUT 0080000810ILADLQMSTAA 10 0081000820I 1 1 MACTFG 0082000830I 2 16 MACCT 0083000840I 1 16 MACC 0084000850I 17 170MSLCD 0085000860I 18 47 MNAM 0086000870I 48 77 MADR1 0087000880I 78 107 MADR2 0088000890I 108 127 MCS 0089000900I 128 132 MZP 0090000910I 133 133 H 0091000920I 133 1420MPHN 0092000930I 133 142 MPHN1 0093000940I 143 S  34<146 MEXT 0094000950I 147 176 MBNM 0095000960I 177 206 MBAD 0096000970I 207 226 MBCS 0097000980I 227 231 MBZP 0098000990I 232 232 B 0099001000I 232 2410MBPH 0100001010I 232 241 MBPH1 0101001020I 242 245 MBEX 0102001030I 246 261 MADL 0103001040I 262 2700MSOC 0104001050I 271 274 MQUE 0105001060I 275 2800MPRID 0106001070I 281 284 MPRIC 0107001080I 285 285 MPFG 0108001090I 286 2860MBFG 0109001100I 287 290 MSUP 0110001110I 291 295 MOLS 0111001120I 296 299 MPQU 0112001130I 300 3050MPDQ 0113001140I 306 306 MSTC 0114001150I 667 696 MP1 0115001160I 697 726 MP2 0116001170I 727 756 MP3 0117001180I 757 786 MPAD1 0118001190I 787 816 MPAD2 0119001200I 817 836 MPCS 0120001210I 837 841 MPZC 0121001220I 842 8470MLLDT 0122001230I 848 8562MLLAT 0123001240I 857 8620MSTDT 0124001250I 863 8680MUPDT 0125001260I 869 8740MCCDT 0126001270I 875 8800MDLDT 0127001280I 881 8860MOPDT 0128001290I 887 8952MADLQ 0129001300I 896 9042MCBAL 0130001310I 905 9132MPYOF 0131001320I 914 9190MCPGD 0132001330I 920 9282MNPA 0133001340I 929 9372MOAMT 0134001350I 938 9380MCMN 0135001360I 939 946 MTP 0136001370I 947 9490MPTS 0137001380I 950 954 MBBR 0138001390I 955 962 MLON 0139001400I 963 966 MTCD 0140001410I 967 9680MTD3 0141001420I 969 D  34P9700MTD6 0142001430I 971 9720MTD9 0143001440I 9731012 MSDF 0144001450I 101310150MDYDL 0145001460I 101610210MPPD 0146001470I 102210302MPPA 0147001480I 103110360MTLB 0148001490I 10371038 MPPK 0149001500I 10391040 MPPB 0150001510I 104110460MPPCD 0151001520I 105710620LATLA 0152001530I 106310712LADUE 0153001540I 10721073 LACOD1 0154001550I 10741075 LANO1 0155001560I 107610810LARDT1 0156001570I 10821111 LAFRM1 0157001580I 11121141 LACNT1 0158001590I 11421171 LAADR1 0159001600I 11721201 LACSZ1 0160001610I 120212110LAPHN1 0161001620I 12121215 LAEXT1 0162001630I 121612242LABAL1 0163001640I 12251228 LAPER1 0164001650I 12291230 LACOD2 0165001660I 12311232 LANO2 0166001670I 123312380LARDT2 0167001680I 12391268 LAFRM2 0168001690I 12691298 LACNT2 0169001700I 12991328 LAADR2 0170001710I 13291358 LACSZ2 0171001720I 135913680LAPHN2 0172001730I 13691372 LAEXT2 0173001740I 137313812LABAL2 0174001750I 13821385 LAREAS 0175001760ILAUTIFILAA 31 0257001770I 5 44 HEADER 0258001780I 5 8 SUPNAM 0258101790C***** SETUP REPORT HEADINGS 0259001800C 46 GOTO AROUND 0260001810C 'HDR1' CHAINLAUTIFIL 32 0261001820C N32 MOVE HEADER HDR,1 0262001830C 'HDR2' CHAINLAUTIFIL 32 0263001840C N32 MOVE HEADER HDR,2 0264001850C 'HDR3' CHAINLAUTIFIL 32 0265001860C N32 MOVE HEADER HDR,3 0266001870C MOVE '0482' LTH 4 0267001880C MOVE '01' OSW 2 0268001890C AROUND TAG 0269001900C START TAG D  34d 0270001910C SETON 46 0271001920C SETOF 010203 0272001930C SETOF 040506 0273001940C SETOF 101222 0274001950C SETOF 313216 0275001960C SETOF 818283 0276001970C SETOF 848586 0277001980C SETOF 878811 0278001990C RDACT TAG 0279002000C SETOF 1304 0280002010C U1 READ LAINACCT 12 0281002020C U1N12 PFLAG COMP 'P' 13 0282002030C U1N12N13 MOVE 'P' PFLAG 0283002040C U1N12 13 GOTO RDACT 0284002050C U2 READ LASREQDL 12 0285002060C N12 SUPID CHAINLAUTIFIL 32 0285102070C 12 GOTO END 0286002080C N32 EACT CHAINLADLQMST 22 0287002090C N22 H COMP '0' 81 0288002100C N22 B COMP '0' 82 0289002110C 22 GOTO ERROR 0290002120C EACT CHAINLACOSIGN 05 0291002130C N05 H1 COMP '0' 83 0292002140C N05 B1 COMP '0' 84 0293002150C N05 H2 COMP '0' 85 0294002160C N05 B2 COMP '0' 86 0295002170C N05 H3 COMP '0' 87 0296002180C N05 B3 COMP '0' 88 0297002190C EXCPT 0298002200C U1N12N13 0299002210COR U2 SETON 16 0300002220C* SET BOUNDS FOR LOCATING ACTIVITY INFORMATION 0301002230C 16 MOVE EACT SACT 16 0302002240C SETOF 0410 0303002250C 16 MOVELSACT LACCT 18 0304002260C 16 MOVE ' ' LACCT 0305002270C 16 LACCT SETLLLAACTFIL 0306002280C GETBLK TAG 0307002290C SETOF 110614 0308002300C READ LAACTFIL 11 0309002310C 11 GOTO START 0310002320C N11 ACT COMP SACT 1111 0311002330C 11 GOTO START 0312002340C GETACT TAG 0313002350C MOVE '00' OSW 0314002360C EXIT GETACR 0315002370C RLABL STG 0316002380C RLABL OBLK   34x 0317002390C RLABL LTH 0318002400C RLABL OSW 0319002410C OSW COMP '01' 14 0320002420C 14 GOTO GETBLK 0321002430C Z-ADD1 I 20 02440C Z-ADD9 J 20 02450C MOVES TAG 02460C MOVEASTG,J CMT,I 02470C I ADD 1 I 02480C J ADD 1 J 02490C I COMP 30 31 02500C N31 GOTO MOVES 02510C OV SETON 46 0352002520C N14 EXCPT 0353002530C N14 SETOF 46 0354002540C N14 GOTO GETACT 0355002550C ERROR TAG 0356002560C SETOF 100708 0357002570C SETON 70 0358002580C EXCPT 0359002590C SETOF 70 0360002600C GOTO START 0361002610C END TAG 0362002620C SETON LR 0363002630OLAINACCTE 04N13 0364002640O PFLAG 18 0365002650OPRINT E 101 10 46 0366002660O HDR,1 41 0367002670O 67 'DELINQUENT RECORD' 0368002680O 76 'CONTENTS' 0369002690O 03 103 'SUPERVISOR:' 0370002700O 03SUPID 108 0371002710O 128 'PAGE' 0372002720O PAGE Z 132 0373002730O E 1 10 46 0374002740O HDR,2 41 0375002750O 61 'AS OF' 0376002760O UDATE Y 70 0377002770O E 1 10 46 0378002780O HDR,3 41 0379002790O E 1 10 0380002800O 13 'ACCOUNT' 0381002810O 39 'ADDITIONAL' 0382002820O 49 'BANK' 0383002830O 57 'LOAN' 0384002840O 71 'AMOUNT TO' 0385002850O 80 'DELQ' 0386002860O 102 'LAS  34T LETTER SENT' 0387002870O 113 'ASSIGNED' 0388002880O 118 'CR.' 0389002890O 132 'OPEN AMOUNT' 0390002900O E 1 10 0391002910O 11 'NO.' 0392002920O 40 'ACCOUNT NO.' 0393002930O 49 'BR.' 0394002940O 59 'OFFICER' 0395002950O 70 'COLLECT' 0396002960O 80 'DATE' 0397002970O 89 'DATE' 0398002980O 103 'AMOUNT' 0399002990O 111 'QUEUE' 0400003000O 118 'PTS' 0401003010O 132 'OR CR LIMIT' 0402003020O E 1 10 0403003030O MACC 17 0404003040O MADL 42 0405003050O MBBR 49 0406003060O MLON 59 0407003070O MADLQ L 72 0408003080O MDLDT 82 ' / / ' 0409003090O MLLDT 92 ' / / ' 0410003100O MLLAT L 104 0411003110O MQUE 111 0412003120O MPTS 118 0413003130O MOAMT L 132 0414003140O E 2 10 0415003150O 5 'NAME' 0416003160O MNAM 48 0417003170O 66 'SALUTATION CODE' 0418003180O MSLCD 68 0419003190O 98 'BUSINESS NAME' 0420003200O MBNM 132 0421003210O E 1 10 0422003220O 10 'ADDRESS 1' 0423003230O MADR1 48 0424003240O 70 'SOCIAL SECURITY NO.' 0425003250O MSOC 82 ' - - ' 0426003260O 96 'ST. ADDRESS' 0427003270O MBAD 132 0428003280O E 1 10 0429003290O 10 'ADDRESS 2' 0430003300O MADR2 48 0431003310O 67 'NO. OF COSIGNERS' 0432003320O MCMN 69 0433003330O 99 'CITY/STATE/ZIP' 0434003340O MBCS 122  3 4 0435003350O MBZP 132 0436003360O E 1 10 0437003370O 15 'CITY/STATE/ZIP' 0438003380O MCS 38 0439003390O MZP 48 0440003400O 62 'HOME PHONE:' 0441003410O N81MPHN 75 ' - - ' 0442003420O N81 76 '-' 0443003430O MEXT 80 0444003440O 81MPHN1 77 0445003450O 100 'BUSINESS PHONE:' 0446003460O N82MBPH 114 ' - - ' 0447003470O N82 115 '-' 0448003480O MBEX 119 0449003490O 82MBPH1 116 0450003500O E 2 10 0451003510O 12 'PRIORITY' 0452003520O 21 'TYPE' 0453003530O 34 'TIMES DELQ' 0454003540O 40 'PP' 0455003550O 46 'PP' 0456003560O 53 'PP' 0457003570O 65 'PROMISED' 0458003580O 78 'PROMISED TO' 0459003590O 100 'PREVIOUS ADDRESS 1' 0460003600O MPAD1 132 0461003610O E 1 10 0462003620O 7 'DATE' 0463003630O 14 'CODE' 0464003640O 21 'CODE' 0465003650O 34 '30 60 90' 0466003660O 41 'FLAG' 0467003670O 47 'KEPT' 0468003680O 55 'BROKEN' 0469003690O 65 'PAY DATE' 0470003700O 78 'PAY AMOUNT' 0471003710O 100 'PREVIOUS ADDRESS 2' 0472003720O MPAD2 132 0473003730O E 1 10 0474003740O MPRID 9 ' / / ' 0475003750O MPRIC 14 0476003760O MTCD 21 0477003770O MTD3 26 0478003780O MTD6 30 0479003790O MTD9 34 0480003800O MPFG 40 0481003810O MPPK 46 0482003820O MPPB 53  3 4 0483003830O MPPD 65 ' / / ' 0484003840O MPPA L 78 0485003850O 96 'CITY/STATE/ZIP' 0486003860O MPCS 122 0487003870O MPZC 132 0488003880O E 2 10 0489003890O 10 'CURRENT' 0490003900O 24 'CURRENT' 0491003910O 43 'CURRENT PAYOFF' 0492003920O 57 'NEXT PAYOFF' 0493003930O 69 'SUPERVISOR' 0494003940O 78 'ARCHIVE' 0495003950O 101 '* * S P E C I A L' 0496003960O 127 'I N S T R U C T I O N S' 0497003970O 132 '* *' 0498003980O E 1 10 0499003990O 10 'BALANCE' 0500004000O 23 'PAYOFF' 0501004010O 43 'EFFECTIVE DATE' 0502004020O 54 'AMOUNT' 0503004030O 66 'I.D.' 0504004040O 80 'TAPE DATE' 0505004050O E 1 10 0506004060O MCBAL L 12 0507004070O MPYOF L 26 0508004080O MCPGD 39 ' / / ' 0509004090O MNPA L 57 0510004100O MSUP 66 0511004110O MTLB 80 ' / / ' 0512004120O MSDF 128 0513004130O E 2 10 0514004140O 8 'STATUS' 0515004150O 17 'STATUS' 0516004160O 25 'OPEN' 0517004170O 37 'DATE 1ST' 0518004180O 44 'LAST' 0519004190O 54 'QUEUE' 0520004200O 69 'LAST UPDATE' 0521004210O 83 '* * * * * *' 0522004220O 102 'P E R M A N E N T' 0523004230O 119 'C O M M E N T' 0524004240O 132 '* * * * * *' 0525004250O E 1 10 0526004260O 7 'DATE' 0527004270O 16 'CODE' 0528004280O 25 'DATE' 0529004290O 36 'IN CCS' 0530004300O 44 'QUE  3 4UE' 0531004310O 57 'CHANGE DATE' 0532004320O 68 'BY LEGAL' 0533004330O MP1 117 0534004340O E 1 10 0535004350O MSTDT 9 ' / / ' 0536004360O MSTC 15 0537004370O MOPDT 27 ' / / ' 0538004380O MCCDT 37 ' / / ' 0539004390O MPQU 44 0540004400O MPDQ 55 ' / / ' 0541004410O MUPDT 68 ' / / ' 0542004420O MP2 117 0543004430O E 1 10 0544004440O MP3 117 0545004450O E 1 10 0546004460O 16 '* * * * * * * *' 0547004470O 30 '* * * * * * * *' 0548004480O 49 'L E G A L A N D' 0549004490O 63 'A G E N C Y' 0550004500O 77 'C L I E N T' 0551004510O 101 'I N F O R M A T I O N' 0552004520O 118 '* * * * * * * *' 0553004530O 132 '* * * * * * * *' 0554004540O E 2 10 0555004550O 24 'ATTORNEY/AGENCY CODE/NO' 0556004560O LACOD1 27 0557004570O LANO1 29 0558004580O 74 'PREVIOUS' 0559004590O 98 'ATTORNEY/AGENCY CODE/NO' 0560004600O LACOD2 101 0561004610O LANO2 103 0562004620O E 1 10 0563004630O 14 'REFERRAL DATE' 0564004640O LARDT1 33 ' / / ' 0565004650O 88 'PREVIOUS REFERRAL DATE' 0566004660O LARDT2 107 ' / / ' 0567004670O E 1 10 0568004680O 10 'FIRM NAME' 0569004690O LAFRM1 55 0570004700O 84 'PREVIOUS FIRM NAME' 0571004710O LAFRM2 129 0572004720O E 1 10 0573004730O 13 'FIRM ADDRESS' 0574004740O LAADR1 55 0575004750O 87 'PREVIOUS FIRM ADDRESS' 0576004760O LAADR2 129 0577004770O E 1 10 0578004780O 20 'FIR  3 4M CITY/STATE/ZIP' 0579004790O LACSZ1 55 0580004800O 74 'PREVIOUS' 0581004810O 94 'FIRM CITY/STATE/ZIP' 0582004820O LACSZ2 129 0583004830O E 1 10 0584004840O 18 'FIRM PHONE NUMBER' 0585004850O LAPHN1 37 ' - - ' 0586004860O 74 'PREVIOUS' 0587004870O 92 'FIRM PHONE NUMBER' 0588004880O LAPHN2 111 ' - - ' 0589004890O E 1 10 0590004900O 22 'CONTACT EXTENSION NO.' 0591004910O LAEXT1 29 0592004920O 74 'PREVIOUS' 0593004930O 96 'CONTACT EXTENSION NO.' 0594004940O LAEXT2 103 0595004950O E 1 10 0596004960O 13 'CONTACT NAME' 0597004970O LACNT1 55 0598004980O 87 'PREVIOUS CONTACT NAME' 0599004990O LACNT2 129 0600005000O E 1 10 0601005010O 22 'PLACEMENT BALANCE DUE' 0602005020O LABAL1L 36 0603005030O 74 'PREVIOUS' 0604005040O 96 'PLACEMENT BALANCE DUE' 0605005050O LABAL2L 110 0606005060O E 1 10 0607005070O 20 'FIRM FEE PERCENTAGE' 0608005080O LAPER1 29 0609005090O 90 'CLIENT REASSIGNMENT CODE' 0610005100O LAREAS 103 0611005110O E 1 10 0612005120O 18 'BALANCE DUE TO LA' 0613005130O LADUE L 36 0614005140O 76 'DATE TO LA' 0615005150O LATLA 107 ' / / ' 0616005160O E 2 10 0617005170O E 2 10N05 0789005180O 18 'C O S I G N E R S' 0790005190O 27 'N A M E' 0791005200O 44 'S T R E E T' 0792005210O 60 'A D D R E S S' 0793005220O 84 'C I T Y / S T A T E' 0794005230O 91 'Z I P' 0795005240O 111 'H O M E P H O N E' 0796005250O 132 'B U S . P H O N E' 0797005260O E 1 10N05  3 4 0798005270O CN1 31 0799005280O CA1 63 0800005290O CS1 85 0801005300O CZ1 91 0802005310O N83CH1 110 ' - - - ' 0803005320O 83CH11 107 0804005330O N84CB1 132 ' - - - ' 0805005340O 84CB11 129 0806005350O E 1 10N05 0807005360O CN2 31 0808005370O CA2 63 0809005380O CS2 85 0810005390O CZ2 91 0811005400O N85CH2 110 ' - - - ' 0812005410O 85CH21 107 0813005420O N86CB2 132 ' - - - ' 0814005430O 86CB21 129 0815005440O E 1 10N05 0816005450O CN3 31 0817005460O CA3 63 0818005470O CS3 85 0819005480O CZ3 91 0820005490O N87CH3 110 ' - - - ' 0821005500O 87CH31 107 0822005510O N88CB3 132 ' - - - ' 0823005520O 88CB31 129 0824005530OPRINT E 101 16 46 0825005540O HDR,1 41 0826005550O 75 'COLLECTOR ACTIVITIES' 0827005560O 03 103 'SUPERVISOR' 0828005570O 03SUPID 108 0829005580O 128 'PAGE' 0830005590O PAGE Z 132 0831005600O E 1 16 46 0832005610O HDR,2 41 0833005620O 63 'AS OF' 0834005630O UDATE Y 72 0835005640O E 1 16 46 0836005650O HDR,3 41 0837005660O E 1 16 46 0838005670O 13 'ACCOUNT' 0839005680O 35 'CONTACT' 0840005690O 43 'ACTION' 0841005700O 51 'RESULT' 0842005710O 59 'LETTER' 0843005720O 70 'COLLECTOR' 0844005730O 87 '* * * * * * * *' 0845005740O 111 'C  3 5O M M E N T S' 0846005750O 132 '* * * * * * * * * *' 0847005760O E 11 16 46 0848005770O 11 'NO.' 0849005780O 33 'DATE' 0850005790O 42 'CODE' 0851005800O 50 'CODE' 0852005810O 58 'CODE' 0853005820O 68 'I. D.' 0854005830O E 1 06N14 0855005840O SACT 17 0856005850O STG,1 29 0857005860O 30 '/' 0858005870O STG,2 32 0859005880O 33 '/' 0860005890O STG,3 35 0861005900O STG,4 41 0862005910O STG,5 49 0863005920O STG,6 57 0864005930O STG,7 65 0865005940O STG,8 67 0866005950O CMT 132 0867005960O E 103 70 0868005970O 10 'ERROR' 0869005980O 22 28 'ACCOUNT NO.' 0870005990O 22 EACT 45 0871006000O 22 57 'NOT ON FILE' 0872006010OPRINT T 3 LR 0873006020O 75 '**** END OF REPORT ****' 08740/* 006030_  3 5 5  3 5,  3 5@  3 5T  3 5h  3 5|  3 5 ȷ  3 5 CCS 3.0 SL-149ALx5S LA x@P0{ . h P( hT   PLUPDAT E04 A LA CCS 3.0 SL-149@PX  3 5PLUPDATPLAFUPDP P [ADDIT B05 F CCS CCS 3.0 SL-149@PA@PT33 A M] >0 MT3 ]T33E] > (3Th H3 1T3\ A M30 > M\3; A@P0,  A\33 > C3 C\33 = = 03 C\ >33 C C3T 4 ?33 > >3\  30 > >\3;  >@P0W >T A\33 > M >0 XT30̫ ̦ &\33 I 1\̝ 13T38̓@P0 ̍ 3&\ J3 1\T0 VT3 (3T L3 1T3T >3; P > P@PHMPADDIT PCCSMVACCSPUT PUTS FILERRUPDENDCCSADDDFORMLNZWRITERdREADR |CCSBLKUPDRECP PCHNGNF B24 F CCS CCS 3.0 PSrPD SL-173@P@P1@P4@P@P0@PN@Pl1@PE@P(,@P!@P$@P'@P*@P-@P0 @P5 , h h hTȷ \Ȫ t\@P`Ȟ  l@Pn hh hȻ!" ( hʓ !ȏ谚   3 5Ȩf dؚ@P 5h !0 2. d3 h hT@P@P  h\4@P4 \5H2TThbhmhhhh\hZheh\hVhjh\h@PQheh\hIhJhRh\hhhh\ha'PCHNGNFPQ8PKUPQ8PREPAMONTO:ADAYTO>AYERTOBCCSCSTECCSMVAP P [ CONUPD B32 F CCS CCS 3.0 PSrPD SL-149@PCm@PN@P- NO NON-FINANCIALS ACCEPTED@P@P03U@P @P@P!@P$@P'@P*@P- @P0@P3@P6 @P9@P<@P?@PB@PGT33  C =3 = 2 2 70 ژ(0T h\hȞ #Ț dhȗhT 0 >h\@Pr hȍ(Έh 1 *T >33 Q > Qx hȴ!& ( h @P !ȥhȡh ȝhT@P_  3 5@P =ؐ3\ R33 R 2̒ A 4TH33 C =3 = 2 2 &\33 C3 C\@P3 > M]3 > MT0 ]T3E] >00 (Th30 H 1TT33 R 0 RH>PCONUPDPCCSCSTICCSAD[ICALJLlCCSMVACHNGNFCCSPUTPUTS FILERRUPDENDP P [COSUPD B33 F CCS CCS 3.0 SL-149@P@P@P@P@PY@PT3 R =3 = 2 2 \13 R30 = = 2 \3 R =3 = 2 YT3; > M@P00 > N\11 ?T33g  (T630 I 1T 10/ *T@P3[g0  3&\6 J3 1\\11 ?T30g &\630 L 1\@PH|PCOSUPDPCCSCSTCCSMVA+WRITER:FILERRIUPDENDOREADR ZUPDRECuP P [ FORMLN B53 F CCS CCS 3.0 SL-149@PWRITEOFF @PRELEASE @P$SATISFY @P6ADD @PHUPDATE @PZREACTIVATE @PlREJECT - ACCOUNT NOT ACTIVE FOR 30X @P~REJECT - NO ACCOUNT FOR 30X CODE @PREJECT - INVALID TRANSACTION CODE @P ,,hT@P3 > S 3 ? S\33 > @ A03 @\ A33 M F M 1? #  )\33 R Q8 R @P3\ 33 R Q R % !3T 30 > >\33  ?03 @\ 30 ? @ 3\ 3 > >\@P3 ?0 @ HTThŀ"  3 5PFORMLNPQ8PKUPQ8PREPCCSMVAEDIT P P [LAFUPD F14 F LA CCS 3.0 SL-149@PTTT0 TTTT33 > @ - >3 @ 2 2 \33 > @ +30 > @ 2  \@P3+ > @ )30 > @ 2 'T0 T300 13T L3 1\ lT 43; ? > @PV >T0 o\33 > @ / >3 @ 2̶  T F3\ 4 ? 30 > >\0 W TTTTT@P33̻ 3'\ I3 1T \ 70 3 T\\\3\̝ &\3; L 1@P\\ T\\\T3= '3TG L3 1\\0 9H/PLAFUPDPUPINITLABHANNXTRANTOTALP UPDENDGETMASCCSCSTRSWIT 6UPDRECFILERRCCSADDPPRTLINXFORMLNgLAUNCUyPCONUPD{ADDIT }COSUPDWRITERUPDIT REACITP P [GETMAS B58 F CCS CCS 3.0 10-30-81 SL-149@P@P@P@P UPDATE WAITING ACCT. NO. @P,@P@PT33 A M > >0 MT30 >00 0  (T33 J 1T .@P0H (ެ  d0&T31 A M MȺ \31 A M MT1 1@Ps l1THPGETMAS}PCCSMVAREADR &FILERR;UPDENDACCSCSTVWTREADjCCSBLKwP P [LABHAN B67 F CCS CCS 3.0 SL-149@Px@P0{ . h P( hT   T3 @ hT3 > Wz0 W 1\@P \3 @ h3T lHPLABHANPNXTRANTAPMOTCCSMVACLOSFLv  3 6P P [LNXTRAN B85 F CCS CCS 3.0 SL-149@P@P@P1h T300 1'0 T30 K 1T dT 1 @P. T0T h  l @P0< T =HPNXTRANHPSTATIT2GETS FILERRUPDEND"FREAD (DISP 0CCSE2AAP P [PRTLIN C09 F CCS CCS 3.0 SL-149@P @P8@P@P \hdh~hhhh 2 l3T 4 ?33 > > d [@P05 d0 \ hT [ T 9 [ؿ 10 T1 Z3 T;\  Z@P3` \\ _13 Z \T30 @0 (T3 H0 1T0 &̞ l \@P3 Z0 \3\ Z0 \3\ ?0 &3\ H0 1\̥ \13 Z 8\\@P0 >̺ &\30 H 1\T Z H TThhh4PPRTLINPQ8PKUPQ8PREPCCSADD*CCSGET33 C C3\ = =10 L\3; = =@P00 GT CT33 4 ? >3 >\33  > 03 >\ 33 > >3\ > M30 > XT308@P[  (T3 I0 1T 1/T30  3&\ J3 1\T8 VT@P30 &3\ L0 1\T33 > P 3 > P " 9 0X :l3T 3 ;\3; > M= >@P M\ 33 > A= N0 ATGGdIHdJ0dK\33  > IL3 > I\ "33 > UR >0 YT%38= >@P (3Tb H3 1Th 3\= >0 &3\ H  3 60 1\HPREACITPCCSPUT CCSMVAFORMLN3CCSADD6WRITERSFILERRUPDENDREADR nCCSBLKUPDRECPUTACFCCSTIMPUTS P P [kRSWIT C16 F CCS CCS 3.0 SL-149@P@PWRS@P999 @P998 @P997 @P @P @P - ACCOUNT NOT IN ACCAGE @P0  d0T E0  3  l\ D0HhlT3; C@P0E  C 0(π h  (ʀ hT 4 ?@PV >@PX > ( Vh 0( Vh\ @Pg >@Pi > ( hh 0( hh\ @Px >@Pz > ( Dh 0( Dh\ @P >@P >\33 F 0 F\\33 M3 > M\31  > 03 ?\ 3 C C3Tw3 > (T@P3 H0 1TT3@ M30 > > MT3 >0  1ݤ0  \3; J 1@P\\ 33 > O >0 OyT3 &\33 M 10\d00 \33  A 0; A\ @P3 @ 03 @\ 33 F  F3\  F30  F\33  A3  A $h\@P3- > @3  @T33  F3  F\33  F 03 F\ 33 A  AހhT@P0O T3 >00 (T30 H 1T@P%c@P2c@PcHPRSWIT fPFORMLN"CCSMVA3CCSADDRPUTS RFILERR\UPDENDbREADR DELRECCCSPUTf  3 60MP P [TOTALP C23 F CCS CCS 3.0 SL-149@P * TOTALS *  @P+ @P? @PD * P R E V I O U S@Po * @P @P ACCOUNTS NUMBER AMT DELQ PAYOFF AMT DELQ  PA@PYOFF @P @P ADDED  @P @P @P REACTIVATED  @P; @PO @PT UPDATED  @P @P @P RELEASED  @P @P @P SATISFIED  @P @P @P WRITTENOFF  @PK @P_ @Pd REJECTED  @P @P   3 6D@P0 5 Bl dT31 D C3 > C\ 3 D C >03 C\ D13 Cb > C3\ D C0 > C\39 D C@P0 > C\31 D C.3 > C\ 3 D Cr >0 C h h D(hT@Pȵ  D(hT 9@Pا 1ء 1T1 A3 ? @\ 13 A" ? @1\ Af3 ? @\ 13 A ? @1\ A)3 ? @\ @P, Am ?03 @\ P A0 ? @\3 V A ?03 @\ J A09 ? @\3 Au >03 @\ t A0 > @\3 z A >0; @\ n A@P3WA > @1\ A|3 > @\ b13 A > @1\ h A3 > @\ \13 AH > @ d D,hT@P} 1H"PTOTALPPCCSMVACCSGETCCSPUTEDIT  PRTLIN{P P [lLAUNCU F17 F CCS CCS 3.1 POST 3.1 PSR 09/01/2SL-173 @Pj@P9@Pg@Pj@P!@Pkk@@PE@P' @P@Pkk@Pqq@Pww @P @P @P@P @P @P@P@P@P  3 6X@P@P@P@P@P(@P@P@P@P@P@PT 33 > C 00 C 3\ >3 C C h!( ( hʒ ʍ !׀h@P3Ӏhπhˀh\@PC@PFؿ \3 >1 >T3\13 > >1\HPLAUNCUhPCCSMVA LCCSPYTP P [Q8QBDS F16 F LA CCS 3.0 SL-149@P8 :01@P0 ;0360@P8@P8 3 @P0 000000000000@P0 000000000000@P8 @P0 - ACCOUNT ALREADY IN ACCAGE @P0  CO HOST @P8 9 @P8 @P0 TRAN ACCOUNT BORROWERS DELINQUENT DELINQUENT C@P0 URRENT @P0 qv  3 6l@P0 CODE NUMBER NAME DATE AMOUNT P@P0 AYOFF ACTION @P0 $ @P0  @P0 @P0  @P8@P8 @P8 @P8@P8 @P0 <-- HDR1 FROM UTILITY FILE GOES HERE -->  @P0  @P0  @P0 <-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE UPDATE REPORT @P0 H PAGE @P0 \ @P0 _<-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE->  @P0 @P0 @P0hLAADDACT  @P0LAACCAGE  @P06LACOSIGN  @P0 LADLQMST  @P0LAINACCT  @P0UPDINPUT  @P0UPDPRINT  @P0LARSWFIL  @P0LATRANFL  @P0LATRNBCK  @P0XLAUTIFIL  @P8 .  3 6@P0 FHDR1@P0 HUPDY@P8 B@P8 w@P8 e@P8 @P8 @P8 @P8 @P8 @P8 2@P8 Y@P8 @P8 @P8 _@P0 40000000001@P0 000000000000@P0 000000000000@P0 000000000000@P0 000000000000000000000000000000000000@P0 000000000000@P8 =@P8 >@P8 ?@P8 @@P8 A@P8 B@P8 C@P8 D@P8 E@P8 F @P8 G 9  3 6@P8 H @P8 I @P8 J @P8 K@P8 L@P8 M@P8 N@P8 O@P8 P@P8 Q@P8 R@P8 S#@P8 T(@P8 U7@P8 VB@P8 WP@P8 XR@P8 Y`@P8 Z@P0 000000000000@P8 ;@P8 #@P0 000000000000@P0 000000000000@P0  @P0  @P0J @P0^  @P0 @P0  @P0 @P0 _  3 6  @P0 @P0  @P0F @P0Z  @P0 @P0  @P0 @P0  @P0 @P0  @P0B @P0V  @P0 @P0  @P0 @P0  @P0 @P0  @P0> @P0R  @P0} @P0  @P0 @P0  @P0 @P0 @P0E@P0@P0g@P0@P0w@P0I  3 6@P0@P0@P0%@P0@P0@P8 D@P8 &@P8 2@P8 @P8 )@P8 @P8 M@P0 n000000000000000000000000000000000000@P0 J000000000000000000000000000000000000@P0 \000000000000000000000000000000000000@P8 @P8 @P8@P8 @P8 @P8 w@P8 k@P8 @P8@P8 @P8 @P0 / @P8@P0 )301 @P0 +302 @P0 -303 @P8   3 6@P8 @P0 000000000000@P8@P0 000000000000@P0 000000000000@P0 000000000000@P8 P P [sUPDEND C47 F CCS CCS 3.0 SL-149@P? T00r 0\g0P 0\E0 0\w0 8\@P+ 3\0 3\%  3\쨷 3\Ũ ;\@P0V#  \00 T 0 ATHPUPDENDoPCLOSFLTAPMOTgPGMOUTkP P [.UPDIT C48 F CCS CCS 3.0 SL-149@PT33  > 03 >\ 33 > >3\  30 > >\33  >3 >\ 433 ? > 0 >T B@P+HPUPDIT *PCCSADDFORMLN%P P [UPINIT C49 F CCS CCS 3.0 SL-149@P@P T 1d0 d 0d T3 > ~3 ? >T33 > C 3 > C 8"d @P4h h "p8n (h 1 T3 (T33 @ 1 T @P_  \30 .\30 @ 1\  d 3\X &\33X @ 13\\ 0 &@P3\ @3 1\\30g6̽ &\630 @ 1\3\Eh̰ &\33h @ 13\\w0̣ &;\ @@P 1\\30̖ &\30 @ 1\3TM00 (TV30 @ 1T0\ "0 9 #;\%@P &3\ @0 1\\3 .٤  \30 @ 1\0 d dT330 F8¤ @P ̽0 ̸ &\X30 J 1\ B, hT'0; B T@P0% ? T0 G 1\300 H̖ 0  (T3X J0 1T03 H h/T2@P0P$ G)d T3 > M\30 >   &\  3 630 J 1\  8 d@P|HPUPINIT~PAMONTOADAYTOAYERTOPGMIN EDIT CCSMVA OPENFLFILERR@UPDENDFREADR ICCSADNCCSBLKVP PR9BASE C12 F CCS CCS 3.0 SL-149@PHPR9BASEP PR9FLDL C13 F CCS CCS 3.0 SL-149@PHPR9FLDLP __STALLED 00300* AS OF 04-01-82. VERIFICATION OF ALL PROGARM LIBRARY FILES 00310* SECTOR ADDRESSES WOULD BE IN ORDER, IE. PATCHES INSTALLED VIA 'L00320* EXCEPT PATCHES 3 & 12. 00330* 00340* PATCH 8 IS BASED ON THE ORIGINAL 'UTBATC' PROGRAM LIBRARY 00350* FILE INSTALLED. IF THE SCRATCH RELOCATOR HAS BEEN INSTALLED, 00360* A NEW 'UTBATC' FILE WAS INSTALLED. IN THIS CASE, PATCH 8 MUST 00370* BACKED OUT. 00380* 00390* PATCH A PATCHES FOR BOTH COLLECTOR TERMINALS AND MASTER 00400* CONSOLE. IF MASTER CONSOLE IS NOT A VIKING TERMINAL, BACK 00410* OUT SECOND PART OF PATCH. 00420* 00430********************************************************************** 00440* 00450* SPECIAL INITIALIZATION TO RESTORE THE SYSTEM TO ITS VIRGIN STATE. 00460* THESE ARE NOT PATCHES TO THE 84 TERMINAL SYSTEM. 00470* 00480LHC,0/5800,186 00490OK 00500* OLD VALUES = 544D,544D 00510LHC,7576,146/E820 00520OK 00530* OLD VALUE = 5055 00540LHC,95B8/E845 00550OK 00560* OLD VALUE = 504E 00570LHC,9AFC/6800,97 ^  3 6 00580OK 00590* OLD VALUES = 5047,B00 00600LHC,9C3D/6800,FF55 00610OK 00620* OLD VALUES = 5047,0B00 00630LHC,47/,,,,,,,,,,,,,,,,,,, 00640OK 00650* OLD VALUES = UNKNOWN 00660* 00670********************************************************************** 00680* 00690* PATCH 1. 00700* 00710* TERMINAL RESPONSE TIME FIX 00720* (TO SYSDAT) 00730* (PSR CY30003) 00740* 00750LHC,2BAC,5B6/1E,28 00760OK 00770* OLD VALUES = 0000,000A 00780* 00790********************************************************************** 00800* 00810* PATCH 2. 00820* 00830* FILE MANAGER OPENFL OVERLAY CODING ERROR 00840* (TO OPENFL MODULE) 00850* (PSR CY3A025) 00860* 00870LHM,,12F8,73/C20A 00880OK 00890* OLD VALUES = C00A 00900* 00910********************************************************************** 00920* 00930* PATCH 3. 00940* 00950* 50MB TO 180MB CONFIGURATION FIX 00960* (TO SPACE MODULE, SPACE + $1E1) 00970* (PSR CY3A037) 00980* 00990LHM,,10,52BE/18DF 01000OK 01010* OLD VALUE = 18D7) 01020* 01030********************************************************************** 01040* 01050* PATCH 4. 1(  3 7  01060* 01070* UTIL DUMP SINGLE FILE DUMP WHICH DOES NOT RELOAD 01080* (TO DMPFIL MODULE) 01090* (PSR CY3A054) 01100* (THIS PATCHES ITOS UTILITY 'UTDUMP' OVERLAY) 01110* 01120LHM,,2332,10BB/0 01130OK 01140* OLD VALUE = 5800 01150* 01160********************************************************************** 01170* 01180* PATCH 5. 01190* 01200* AUTO BATCH DISABLED FIX 01210* (TO AUTOBT MODULE) 01220* (PSR CY3A038) 01230* (THIS IS ORDINAL 29) 01240* 01250LHO,29,7/A02,6841,183A 01260OK 01270* OLD VALUE = A000,6A23,0113 01280* 01290********************************************************************** 01300* 01310* PATCH 6. 01320* 01330* RECORD LOCK PROBLEM 01340* (TO FMSUBS MODULE) 01350* (PSR CY3A067) 01360* (USES LOCORE LOCATIONS $47-$4C) 01370* 01380LHC,7576,131/E502,C101 01390OK 01400* OLD VALUES = C502,E101 01410LHC,47/0,C1D,CEFD,C1F,EEFB,1CFA 01420OK 01430* OLD VALUES ALL ZERO 01440LHC,7576,146/5047 01450OK 01460* OLD VALUE = E820 01470* 01480********************************************************************** 01490* 01500*PATCH 7. 01510* 01520* FILE FCB GETTING DESTROYED (SIM085) 01530* (TO FCBSS MODULE)  3 7  01540* (PSR CY3A075) 01550* 01560LHM,,12F8,7CB/1809 01570OK 01580* OLD VALUE = C000 01590LHM,,12F8,8B4/1809 01600OK 01610* OLD VALUE = C000 01620LHM,,1311,1EA/1809 01630OK 01640* OLD VALUE = C000 01650LHM,,1311,2D3/1809 01660OK 01670* OLD VALUE = C000 01680* 01690********************************************************************** 01700* 01710* PATCH 8. 01720* 01730* MAKE 'PN' A REQUIRED PARAMETER OF THE UT,BATCH FUNCTION. 01740* (TO 'FMUTEX' MODULE (FM UTIL OVERLAY)& 01750* TO 'BATC' MODULE (FM UTBATC OVERLAY) 01760* (PSR CY3A023) 01770LHM,,202F,14F/011A 01780OK 01790* OLD VALUE = 111A (THIS IS UTIL OVERLAY PATCH) 01800LHM,,20C2,1BC8/BB14 01810OK 01820* OLD VALUE = BAF9 (THESE ARE UTBATC OVERLAY PATCHES) 01830LHM,,20C2,1C3A/185E 01840OK 01850* OLD VALUE = 1843 01860LHM,,20C2,1C5A/1819 01870OK AL7.S $$ 01880* OLD VALUE = 1818 01890LHM,,20C2,1C5E/1815 *JOB,J001,CCS149 *K,P2 *RPGII 00010H TRENDP00020X D11 R CCS CCS 3.0 CORRECTED(12/82) SL-149 0100000030F* D11 R CCS CCS 3.0 CORRECTED(12/82) SL-149 0101000040F* 0102000050F* CYBERCREDIT SYSTEM VERSION 3 0103000060F* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 0104000070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 0105000080F* 0106000090F* THIS PROGRAM PRODUCES THE TREND ANALYSIS REPORT. THIS   3 !7400100F* REPORT SHOWS ACCOUNT MOVEMENT BETWEEN PERIODS(DAYS) OF 00110F* DELINQUENCY. THE FILE, AGEWRK, HAS BEEN UPDATED BY TRENDE 00120F* PRIOR TO EXECUTION OF THIS PROGRAM. THE REPORT IS PRINTED 00130F* EITHER BY QUEUE OR BY PRODUCT TYPE DETERMINED BY AN EXTERNAL 00140F* SWITCH SETTING: 00150F* IF U1 ON REPORT IS BY QUEUE 00160F* IF U1 OFF REPORT IS BY PRODUCT TYPE 00170F* 00180F* IF U2 ON CURRENT PAYOFF IS SUMMED 00190F* IF U2 OFF AMOUNT PAST DUE IS SUMMED 00200F* 00210F* IF U3 ON GROUP BREAKS ARE IGNORED 00220F* IF U3 OFF GROUP BREAKS ARE USED 00230F* 00240FAGEWRK IPE F 82 DISK 00250FUTIFIL IC F 80R 4AI 1 DISK 00260FPRINT O F 132 PRINTER 00270F* 00280E DAYS 10 10 3 0A 00290E HDR 3 40 00300E BVD 99 9 0 BVC 6 0 BREAK VALUES 00310E TVD 99 9 0 TVC 6 0 TOTAL VALUES 00320E OD 11 9 0 OC 6 0 OUTPUT LINE 00330IAGEWRK AA 01 00340I 1 1 AACTFG 00350I 2 16 AACCT 00360I 17 20 AQUE 0031000370I 21 24 ALCID 00380I 25 28 ATCD 00390I 29 340ADLDT 0033000400I 35 370ADYDL 04 00410I 38 400ALDYS 02 00420I 41 470APYOF 00430I 50 560ALPYF 00440I 59 650ADLQ 00450I 68 740APADQ 00460I 77 77 ASTAT 00470I 78 79 AFLG1 00480I 80 81 AFLG2 00490I 82 82 AFLG3 00500I 29 340RNDT 00510I 35 400LRNDT 60 00520IUTIFIL AA 41 00530I 5 44 HEADER 00540C* 00550C**** SETUP REPORT HEADINGS 00560C INIT TAG 00570C 46 GOTO AROUND   3 "7H00580C MOVE ' ' WKBRK 4 00590C Z-ADD1 IX 20 00600C 'HDR1' CHAINUTIFIL 47 00610C N47 MOVEAHEADER HDR,1 00620C 'HDR2' CHAINUTIFIL 47 00630C N47 MOVEAHEADER HDR,2 00640C 'HDR3' CHAINUTIFIL 47 00650C N47 MOVEAHEADER HDR,3 00660C MOVE RNDT RUND 60 00670C N60 MOVE LRNDT LRUN 60 0035000680C N60 SETON 61 0036000690C SETOF 01 00700C AROUND TAG 00710C SETON 46 00720C PROC TAG 00730C* SET UP CONTROL BREAKS 0038000740C 01N57NU1 MOVELATCD WKBRK 00750C 01N57 U1 MOVE AQUE WKBRK 0040000760C 01N57 MOVE AACTFG WKCDE 1 00770C 01N57 SETON 57 00780C 01 U1 SETON 51 00790C 01NU3 AACTFG COMP WKCDE 5050 00800C 01N50NU1ATCD COMP WKBRK 5050 00810C 01N50 U1AQUE COMP WKBRK 5050 0042000820C 01 50 EXSR ADDEM 00830C 01 50 EXSR SCRIBE 00840C* SET UP CONTROL BREAKS 0044000850C 01 50NU1 MOVELATCD WKBRK 00860C 01 50 U1 MOVE AQUE WKBRK 0046000870C 01 50 MOVE AACTFG WKCDE 00880C 01 50 SETOF 50 00890C 01 MOVE WKCDE TCA 1 00900C 01 MOVE WKBRK TCX 4 00910C* 0048000920C* COMPUTE THE Y AND X AXIS FOR THIS RUN FROM DAYS DELQ 0049000930C* FIND THE CURRENT POSITION 0050000950C* NOT YET DELQ 0052000980C 01 02 04 GOTO END2 0055000990C* NEWLY ADDED NOT DELQ LAST RUN 0056001000C 01 02 Z-ADD1 Y 0057001010C 01 02 EXSR SETX 0058001020C* NOT NEW THIS RUN OR LAST RUN 0059001030C 01N02 EXSR SETX 0060001040C 01N02 EXSR SETY 0061001050C* 0062001060C 01NU2 MOVE ADLQ WRKAMT 70 0063001070C 01 U2 MOVE APYOF WRKAMT 0064001080C* UPDATE FIELDS FOR CURRENT RUN 00650  3 #7\01090C 01 EXSR UPDATE 0066001100C* 0067001110C* COMPUTE THE X AND Y AXIS FOR LAST RUN 0068001120C* FIND LAST RUN POSITION 0069001130C* NEWLY ADDED NOT DELQ LAST RUN 0070001140C 01 02 Z-ADD1 Y 0071001150C 01 02 Z-ADD1 X 0072001160C* NOT NEW THIS RUN OR LAST RUN 0073001170C 01N02 Z-ADD1 X 0074001180C 01N02 EXSR SETY 0075001190C* 0076001200C 01NU2 02 MOVE ADLQ WRKAMT 0077001210C 01 U2 02 MOVE APYOF WRKAMT 0078001220C 01NU2N02 MOVE APADQ WRKAMT 0079001230C 01 U2N02 MOVE ALPYF WRKAMT 0080001240C* UPDATE FOR LAST RUN FIELDS 0081001250C 01 EXSR UPDATE 0082001260C END2 TAG 0083001270C* 0084001280CLR EXSR ADDEM 01290CLR EXSR SCRIBE 01300CLR EXSR CLOSE 01310CLR EXSR SCRIBE 01320C* 01330C* FIND THE Y POSITION IN THE MATRIX 0086001340CSR SETY BEGSR 01350CSR Z-ADD1 Y 30 01360CSR SY1 TAG 01370CSR ALDYS LOKUPDAYS,Y 10 10 01400CSR 1 ADD Y Y 01410CSR ENDSR 01420C* 01430C* 01440CSR SETX BEGSR 01450CSR Z-ADD1 X 30 01460CSR SX1 TAG 01470CSR ADYDL LOKUPDAYS,X 10 10 01500CSR 1 ADD X X 01510CSR ENDSR 01520C* 01530C* 01540C* FIND THE X POSITION IN THE MATRIX 0088001550CSR UPDATE BEGSR 01560CSR Y SUB 1 N 30 01570CSR N MULT 11 N 01580CSR N ADD X N 01590CSR WRKAMT ADD BVD,N BVD,N 0090001600CSR 1 ADD BVC,N BVC,N 00910g  3 $7p01610CSR ENDSR 01620C* 01630C* 01640C* ADDS COLUMNS (DOWN) IN THE MATRIX 0093001650CSR ADDEM BEGSR 01660CSR Z-ADD1 C 01670CSR Z-ADD1 A 01680CSR Z-ADD89 I 30 01690CSR PT1 TAG 01700CSR Z-ADD1 B 01710CSR PT2 TAG 01720CSR BVD,C ADD BVD,I BVD,I 01730CSR BVC,C ADD BVC,I BVC,I 01740CSR 11 ADD C C 01750CSR 1 ADD B B 01760CSR B COMP 8 3232 01770CSR 32 GOTO PT2 01780CSR C SUB 87 C 01790CSR 1 ADD I I 01800CSR 1 ADD A A 01810CSR A COMP 11 3232 01820CSR 32 GOTO PT1 01830CSR ENDSR 01840C* 01850C* 01860C* MOVES DATA TO OUTPUT BUFFER - ADDS TOTALS FOR TOTAL 0095001870C* PAGE WRITES ONE LINE ACROSS OR MATRIX 0096001880CSR SCRIBE BEGSR 01890CSR 47 GOTO ENSRB 01900CSR SETON 20 01910CSR Z-ADD1 C 30 01920CSR Z-ADD1 A 30 01930CSR SC1 TAG 01940CSR SETOF 242526 01950CSR SETOF 272829 01960CSR SETOF 303133 01970CSR A COMP 2 232122 01980CSR 23 A COMP 4 252324 01990CSR 25 A COMP 6 272526 02000CSR 27 A COMP 8 332728 02010CSR Z-ADD1 B 30 02020CSR SC2 TAG 02030CSR MOVE BVD,C OD,B 02060CSR MOVE BVC,C OC,B 02090CSR 1 ADD C C 02100CSR 1 ADD B B 02110CSR B COMP 11 3232 02120CSR 32 GOTO SC2 r  3 %702130CSR EXCPT 02140CSR 1 ADD A A 02150CSR A COMP 9 3232 02160CSR 32 GOTO SC1 02161CSR BVD ADD TVD TVD 02162CSR BVC ADD TVC TVC 02163CSR Z-ADD0 BVD 02164CSR Z-ADD0 BVC 02170CSR SETOF 20 02180CSR ENSRB TAG 02190CSR ENDSR 02200C* 02210C* 02220C* MOVES TOTALS TO MATRIX BEFORE PRINTING 0098002230CSR CLOSE BEGSR 02240CSR 47 GOTO END 02270CSR Z-ADDTVD BVD 02280CSR Z-ADDTVC BVC 02320CSR SETON 03 02330CSR END TAG 02340CSR ENDSR 02350C* 02360C* 02370OPRINT E 101 21 02380O HDR,1 40 02390O 71 'DELINQUENT TREND' 02400O 80 'ANALYSIS' 02410O 127 'PAGE' 02420O PAGE Z 132 02430O E 1 21 02440O HDR,2 40 02450O N03NU3 64 'FOR GROUP' 02460O N03NU3TCA 66 02470O N03N51 75 'PRODUCT' 02480O N03 51 75 ' QUEUE' 02490O N03 TCX B 80 02500O 03 70 'TOTALS' 02510O 122 'RUN DATE :' 02520O UDATE Y 132 02530O E 1 21 02540O HDR,3 40 02550O 59 'FROM' 02560O 61LRUN Y 68 0100002570O 71 'TO' 02580O RUND Y 80 02590O E 31 21 02600O 25 '00 - 29' 02610O 37 '30 - 59' 7&  3 &702620O 49 '60 - 89 ' 02630O 61 '90 - 119' 0102002640O 73 '120 - 149' 02650O 85 '150 - 179' 02660O 97 '180 +' 02670O 109 'WRITE OFF' 02680O 121 'RELEASED' 02690O 132 'SATISFIED' 02700O E 1 21 02710O 13 'NEWLY ADDED' 02720O E 1 22 02730O 13 'FORMER STATUS' 02740O E 1 02750O 22 13 '00 - 29 ' 02770O 23 13 '30 - 59 ' 02790O 24 13 '60 - 89 ' 02810O 25 13 '90 - 119 ' 02830O 26 13 '120 - 149' 02850O 27 13 '150 - 179' 02870O 28 13 '180 + ' 02890O 33N03 13 'PAGE TOTALS' 02900O 33 03 13 'REPORT TOTALS' 02910O E 1 20 02920O OD,1 1B 13 02930O OD,2 1B 25 02940O OD,3 1B 37 02950O OD,4 1B 49 02960O OD,5 1B 61 02970O OD,6 1B 73 02980O OD,7 1B 85 02990O OD,8 1B 97 03000O OD,9 1B 109 03010O OD,10 1B 121 03020O OD,11 1B 132 03030O E 2 03040O OC,1 Z 13 03050O OC,2 Z 25 03060O OC,3 Z 37 03070O OC,4 Z 49 03080O OC,5 Z 61 03090O OC,6 Z 73 03100O OC,7 Z 85 03110O OC,8 Z 97 03120O OC,9 Z 109 03130O OC,10 Z 121 03140O OC,11 Z 132 03150O T 3 01 LR 03160O 73 '**** END OF REPORT ****' UR  3 '7** 03170029059089119149179996997998999 03180/* 03190*K,P7 *CATLOG *V,7 *V,13 *Z __************************ ???*0006 0019000330C SETON 46 0020000340C* *************************************************** ???*0006 0021000350C 'HDR1' CHAINUTIFIL 47 00360C N47 MOVEAHEADER HDR,1 00370C 'HDR2' CHAINUTIFIL 47 00380C N47 MOVEAHEADER HDR,2 00390C 'HDR3' CHAINUTIFIL 47 00400C N47 MOVEAHEADER HDR,3 00410C 01 TCID CHAINUTIFIL 99 0008000420C AROUND TAG 00430C* SET THE SCREEN LABEL FOR THE REPORT - WHICH SCREEN 00440C* DID THIS ITEM COME FROM 00450C L1 TCID CHAINUTIFIL 47 0010000460C SETOF 303132 00470C TUP COMP 90 33 33 00480C N33 TUP COMP 60 32 32 00490C N32N33 TUP COMP 30 313031 00500C 31 TUP SUB 30 TUP 00510C 32 TUP SUB 60 TUP 00520OPRINT D 101 OF 00530O OR L1 01 00540O* *********** ONE CARD DELETED HERE *************** ???*0006 0023000550O HDR,1 40 ALn7S $$ 00560O 69 'COLLECTORS'' CHANGES TO ' 00570O 77 'ACCOUNTS' $ JOB,J001,CCS149 D 1700 MASS STORAGE OPERATING SYSTEM VERSION 5.0 DATE OF RUN: 11/09/83 SYSTEM ID: THIS MSG CHANGED VIA MI, SYID.. (08/01/80) D JJJ 00000000000 00000000000 111 D JJJ 0000000000000 0000000000000 1111 }  3 (7 D JJJ 0000000000000 0000000000000 11111 D JJJ 000 000 000 000 111111 D JJJ 000 000 000 000 1111111 D JJJ 000 000 000 000 111 D JJJ 000 000 000 000 111 D JJJ 000 000 000 000 111 D JJJ 000 000 000 000 111 D JJJ 000 000 000 000 111 D JJJ 000 000 000 000 111 D JJJ JJJ 000 000 000 000 111 D JJJJJJJJJJJJJ 0000000000000 0000000000000 1111111111111 D JJJJJJJJJJJJJ 0000000000000 0000000000000 1111111111111 D JJJJJJJJJJJ 00000000000 00000000000 1111111111111 D $*K,P2 $*RPGII  H1 RPG II COMPILER PAGE 0001 H H 0001 00010H TRENDP H 0002 00030F* D11 R CCS CCS 3.0 CORRECTED(12/82) SL-149 01010 H 0003 00040F* 01020 H 0004 00050F* CYBERCREDIT SYSTEM VERSION 3 01030 H 0005 00060F* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 01040 H 0006 00070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 01050 H 0007 00080F*  3 )7 01060 H 0008 00090F* THIS PROGRAM PRODUCES THE TREND ANALYSIS REPORT. THIS  H 0009 00100F* REPORT SHOWS ACCOUNT MOVEMENT BETWEEN PERIODS(DAYS) OF  H 0010 00110F* DELINQUENCY. THE FILE, AGEWRK, HAS BEEN UPDATED BY TRENDE  H 0011 00120F* PRIOR TO EXECUTION OF THIS PROGRAM. THE REPORT IS PRINTED  H 0012 00130F* EITHER BY QUEUE OR BY PRODUCT TYPE DETERMINED BY AN EXTERNAL  H 0013 00140F* SWITCH SETTING:  H 0014 00150F* IF U1 ON REPORT IS BY QUEUE  H 0015 00160F* IF U1 OFF REPORT IS BY PRODUCT TYPE  H 0016 00170F*  H 0017 00180F* IF U2 ON CURRENT PAYOFF IS SUMMED  H 0018 00190F* IF U2 OFF AMOUNT PAST DUE IS SUMMED  H 0019 00200F*  H 0020 00210F* IF U3 ON GROUP BREAKS ARE IGNORED  H 0021 00220F* IF U3 OFF GROUP BREAKS ARE USED  H 0022 00230F*  H 0023 00240FAGEWRK IPE F 82 DISK  H 0024 00250FUTIFIL IC F 80R 4AI 1 DISK  H 0025 00260FPRINT O F 132 PRINTER  H 0026 00270F*  H 0027 00280E DAYS 10 10 3 0A  H 0028 00290E HDR 3 40  H 0029 00300E BVD 99 9 0 BVC 6 0 BREAK VALUES  H 0030 00310E TVD 99 9 0 TVC 6 0 TOTAL VALUES  H 0031 00320E OD 11 9 0 OC 6 0 OUTPUT LINE  H 0032 00330IAGEWRK AA 01  H 0033 00340I 1 1 AACTFG  3 *7  H 0034 00350I 2 16 AACCT  H 0035 00360I 17 20 AQUE 00310 H 0036 00370I 21 24 ALCID  H 0037 00380I 25 28 ATCD  H 0038 00390I 29 340ADLDT 00330 H 0039 00400I 35 370ADYDL 04  H 0040 00410I 38 400ALDYS 02  H 0041 00420I 41 470APYOF  H 0042 00430I 50 560ALPYF  H1 RPG II COMPILER PAGE 0002 H H 0043 00440I 59 650ADLQ  H 0044 00450I 68 740APADQ  H 0045 00460I 77 77 ASTAT  H 0046 00470I 78 79 AFLG1  H 0047 00480I 80 81 AFLG2  H 0048 00490I 82 82 AFLG3  H 0049 00500I 29 340RNDT  H 0050 00510I 35 400LRNDT 60  H 0051 00520IUTIFIL AA 41  H 0052 00530I 5 44 HEADER  H 0053 00540C*  H 0054 00550C**** SETUP REPORT HEADINGS  H 0055 00560C INIT TAG  H 0056 00570C 46 GOTO AROUND  H 0057 00580C MOVE ' ' WKBRK 4    3 +7 H 0058 00590C Z-ADD1 IX 20  H 0059 00600C 'HDR1' CHAINUTIFIL 47  H 0060 00610C N47 MOVEAHEADER HDR,1  H 0061 00620C 'HDR2' CHAINUTIFIL 47  H 0062 00630C N47 MOVEAHEADER HDR,2  H 0063 00640C 'HDR3' CHAINUTIFIL 47  H 0064 00650C N47 MOVEAHEADER HDR,3  H 0065 00660C MOVE RNDT RUND 60  H 0066 00670C N60 MOVE LRNDT LRUN 60 00350 H 0067 00680C N60 SETON 61 00360 H 0068 00690C SETOF 01  H 0069 00700C AROUND TAG  H 0070 00710C SETON 46  H 0071 00720C PROC TAG  H 0072 00730C* SET UP CONTROL BREAKS 00380 H 0073 00740C 01N57NU1 MOVELATCD WKBRK  H 0074 00750C 01N57 U1 MOVE AQUE WKBRK 00400 H 0075 00760C 01N57 MOVE AACTFG WKCDE 1  H 0076 00770C 01N57 SETON 57  H 0077 00780C 01 U1 SETON 51  H 0078 00790C 01NU3 AACTFG COMP WKCDE 5050  H 0079 00800C 01N50NU1ATCD COMP WKBRK 5050  H 0080 00810C 01N50 U1AQUE COMP WKBRK 5050 00420 H 0081 00820C 01 50 EXSR ADDEM  H 0082 00830C 01 50 EXSR SCRIBE  H 0083 00840C* SET UP CONTROL BREAKS 00440 H 0084 '  3 ,s_ALs_S LA LA 40LA 41LA 42LA 43LA 44LA 45LA 46LA 47LA 48LA 49LA 50LA 51*JOB,, INSTALL LUPDAT CCS3.0-5 SYSTEM 03/17/83 00010*K,L14 00020*CTO, INSTALLING LUPDAT FROM B.LUPDAT, LA FILE /CCS3.0-4 SYS 00030*OPEN,FN=B.LUPDAT,OW=LA,LU=21,R 00040*REW,21 00050*K,L14 00060*LIBEDT 00070*K,I21,P8 00080*P,F,2 00090*K,I8 00100*N,LUPDAT,,,B 00110*Z 00120*K,I13 00130*CLOSE 00140*CTO, PROGRAM LUPDAT HAS BEEN INSTALLED 00150*CTO, 00160*CTO, 00170*CTO, INSTALL C O M P L E T E !!! 00180*Z 00190_ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmALsmS $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 00 CCS20 00 LA 00 01 NEWS 02 NEWS 03 NEWS 04 NEWS 05 NEWS 06 NEWS 07 NEWS 08 NEWS 09 NEWS 10 NEWS 11 NEWS 12 NEWS 13 NEWS 14 NEWS 15 NEWS 16 NEWS 17 NEWS 18 NEWS 19 NEWS 20 NEWS 21 NEWS 22 NEWS 23 NEWS 24 NEWS 25 NEWS 26 NEWS 27 NEWS 28 NEWS 29 NEWS 30 NEWS 31 NEWS 32 NEWS 33 NEWS 34 NEWS 35 NEWS 36 NEWS 37 NEWS 38 NEWS 39 NEWS 40 NEWS 41 NEWS 42 NEWS 43 NEWS 44 NEWS 45 NEWS j  3 -ss 46 NEWS 47 NEWS 48 NEWS 49 NEWS 50 NEWS 51 NEWS 52 NEWS 53 NEWS 54 NEWS 55 NEWS 56 NEWS LA 01 NEWS LA 02 NEWS LA 03 NEWS LA 04 NEWS LA 05 NEWS LA 06 NEWS LA 07 NEWS LA 08 NEWS LA 09 NEWS LA 10 NEWS LA 11 NEWS LA 12 NEWS LA 13 NEWS LA 14 NEWS LA 15 NEWS LA 16 NEWS LA 17 NEWS LA 18 NEWS LA 19 NEWS LA 20 NEWS LA 21 NEWS LA 22 NEWS LA 23 NEWS LA 24 NEWS LA 25 NEWS LA 26 NEWS LA 27 NEWS LA 28 NEWS LA 29 NEWS LA 30 NEWS LA 31 NEWS LA 32 NEWS LA 33 NEWS LA 34 NEWS LA 35 NEWS LA 36 NEWS LA 37 NEWS LA 38 NEWS LA 39 NEWS LA 40 NEWS LA 41 NEWS LA 42 NEWS LA 43 NEWS LA 44 NEWS LA 45 NEWS LA 46 NEWS LA 47 NEWS LA 48 NEWS LA 49 NEWS LA 50 NEWS LA 51 NEWS LA 52 NEWS LA 53 NEWS LA 54 NEWS LA 55 NEWS LA 56 NEWS CCS149 00 SPECIAL 00 LIBRARY 00 __ X0300030REQUESTED COMMAND IS NOT LEGAL X0300031ILLEGAL COMMAND FORMAT X0300032FILE REQUEST REJECTED X0300033FILE COULD NOT BE LOCATED X0300034MM I/O ERROR WAS NOTED X0300035DISK UNIT SPECIFIED ALREADY MOUNTED X0300036FILE REQUEST ILLEGAL X0300037FILE IS CURRENTLY OPEN X0300038MISSING PARAMETER X0300039ILLEGAL GETFLD STATUS X0300040VIT COULD NOT BE FOUND X0300041FILE IS CURRENTLY LOCKED X0300042INTERNAL FM ERROR X0300043MAX. NO OF OPEN FILES FOR A SINGLE USER X0300044MAX. NO OF OPEN FILES, RETRY X0300045EQUIPMENT TYPE NOT FOUND X0300046VOLUME NOT ON SPECIFIED DISK UNIT X0300047VOLUME WAS ALREADY MOUNTED X0300048THIS VOLUME IS DISMOUNTED X0300049MOUNTED VOLUME HAS OPEN FILES X0300050WRONG VOLUME MOUNTED ALsS $$ X0300051PARAMETER ENTRY ERROR X0300052VOLUME HAS OPEN FILES, NOT DISMOUNTED ERROR - PROGRAM PROTECT VIOLATION AT LOCATION $$$$ X0300001ERROR - ILLEGAL PROGRAM ATTACHMENT AT LOCATION $$$$ X0300002ERROR - ILLEGAL FILE MANAGER REQUEST AT LOCATION $$$$ X0300003ERROR - ILLEGAL FILE REQUEST PARAMETER AT LOCATION $$$$ X0300004ERROR - ILLEGAL MONITOR REQUEST AT LOCATION $$$$ X0300005ERROR - ILLEGAL REQUEST PARAMETER AT LOCATION $$$$ X0300006ERROR - ILLEGAL I/O REQUEST LOGICAL UNIT AT LOCATION $$$$ X0300007ERROR - ATTEMPT 8  3 .5ALx5S LA x@P0{ . h P( hT   PLUPDAT E04 A LA CCS 3.0 SL-149@PPLUPDATPLAFUPDP P [ADDIT B05 F CCS CCS 3.0 SL-149@PA@PT33 A M] >0 MT3 ]T33E] > (3Th H3 1T3\ A M30 > M\3; A@P0,  A\33 > C3 C\33 = = 03 C\ >33 C C3T 4 ?33 > >3\  30 > >\3;  >@P0W >T A\33 > M >0 XT30̫ ̦ &\33 I 1\̝ 13T38̓@P0 ̍ 3&\ J3 1\T0 VT3 (3T L3 1T3T >3; P > P@PHMPADDIT PCCSMVACCSPUT PUTS FILERRUPDENDCCSADDDFORMLNZWRITERdREADR |CCSBLKUPDRECP PCHNGNF B24 F CCS CCS 3.0 PSrPD SL-173@P@P1@P4@P@P0@PN@Pl1@PE@P(,@P!@P$@P'@P*@P-@P0 %  3 /5@P5 , h h hTȷ \Ȫ t\@P`Ȟ  l@Pn hh hȻ!" ( hʓ !ȏ谚 Ȩf dؚ@P 5h !0 2. d3 h hT@P@P  h\4@P4 \5H2TThbhmhhhh\hZheh\hVhjh\h@PQheh\hIhJhRh\hhhh\ha'PCHNGNFPQ8PKUPQ8PREPAMONTO:ADAYTO>AYERTOBCCSCSTECCSMVAP P [ CONUPD B32 F CCS CCS 3.0 PSrPD SL-149@PCm@PN@P- NO NON-FINANCIALS ACCEPTED@P@P03U@P @P@P!@P$@P'@P*@P- @P0@P3@P6 @P9@P<@P?@PB@PGT33  C =3 = 2 2 70 ژj  3 05(0T h\hȞ #Ț dhȗhT 0 >h\@Pr hȍ(Έh 1 *T >33 Q > Qx hȴ!& ( h @P !ȥhȡh ȝhT@P@P =ؐ3\ R33 R 2̒ A 4TH33 C =3 = 2 2 &\33 C3 C\@P3 > M]3 > MT0 ]T3E] >00 (Th30 H 1TT33 R 0 RH>PCONUPDPCCSCSTICCSAD[ICALJLlCCSMVACHNGNFCCSPUTPUTS FILERRUPDENDP P [COSUPD B33 F CCS CCS 3.0 SL-149@P@P@P@P@PY@PT3 R =3 = 2 2 \13 R30 = = 2 \3 R =3 = 2 YT3; > M@P00 > N\11 ?T33g  (T630 I 1T 10/ *T@P3[g0  3&\6 J3 1\\11 ?T30g &\630 L 1\@PH|PCOSUPDPCCSCSTCCSMVA+WRITER:FILERRIUPDENDOREADR ZUPDRECuP P [ FORMLN B53 F CCS CCS 3.0 SL-149@PWRITEOFF @PRELEASE @P$SATISFY @P6ADD @PHUPDATE @PZREACTIVATE @PlREJECT - ACCOUNT NOT ACTIVE FOR 30X @P~REJECT - NO ACCOUNT FOR 30X CODE @PREJECT - INVALID TRANSACTION CODE @P ,,hT  3 15@P3 > S 3 ? S\33 > @ A03 @\ A33 M F M 1? #  )\33 R Q8 R @P3\ 33 R Q R % !3T 30 > >\33  ?03 @\ 30 ? @ 3\ 3 > >\@P3 ?0 @ HTThŀPFORMLNPQ8PKUPQ8PREPCCSMVAEDIT P P [LAFUPD F14 F LA CCS 3.0 SL-149@PTTT0 TTTT33 > @ - >3 @ 2 2 \33 > @ +30 > @ 2  \@P3+ > @ )30 > @ 2 'T0 T300 13T L3 1\ lT 43; ? > @PV >T0 o\33 > @ / >3 @ 2̶  T F3\ 4 ? 30 > >\0 W TTTTT@P33̻ 3'\ I3 1T \ 70 3 T\\\3\̝ &\3; L 1@P\\ T\\\T3= '3TG L3 1\\0 9H/PLAFUPDPUPINITLABHANNXTRANTOTALP UPDENDGETMASCCSCSTRSWIT 6UPDRECFILERRCCSADDPPRTLINXFORMLNgLAUNCUyPCONUPD{ADDIT }COSUPDWRITERUPDIT REACITP P [GETMAS B58 F CCS CCS 3.0 10-30-81 SL-149@P@P@P@P UPDATE WAITING ACCT. NO. @P,@P@PT33 A M > >0 MT30 >00 0  (T33 J 1T .@P0H (ެ  d0&T31 A M MȺ \31 A M MT1 1@Ps l1THPGETMAS}PCCSMVAREADR &FILERR;UPDENDACCSCSTVWTREADjCCSBLKwP P [LABHAN B67 F CCS CCS 3.0 SL-149@Px@P0{ . h P( hT  ?  3 26 T3 @ hT3 > Wz0 W 1\@P \3 @ h3T lHPLABHANPNXTRANTAPMOTCCSMVACLOSFLP P [LNXTRAN B85 F CCS CCS 3.0 SL-149@P@P@P1h T300 1'0 T30 K 1T dT 1 @P. T0T h  l @P0< T =HPNXTRANHPSTATIT2GETS FILERRUPDEND"FREAD (DISP 0CCSE2AAP P [PRTLIN C09 F CCS CCS 3.0 SL-149@P @P8@P@P \hdh~hhhh 2 l3T 4 ?33 > > d [@P05 d0 \ hT [ T 9 [ؿ 10 T1 Z3 T;\  Z@P3` \\ _13 Z \T30 @0 (T3 H0 1T0 &̞ l \@P3 Z0 \3\ Z0 \3\ ?0 &3\ H0 1\̥ \13 Z 8\\@P0 >̺ &\30 H 1\T Z H TThhh4PPRTLINPQ8PKUPQ8PREPCCSADD*CCSGET33 C C3\ = =10 L\3; = =@P00 GT CT33 4 ? >3 >\33  > 03 >\ 33 > >3\ > M30 > XT308@P[  (T3 I0 1T 1C  3 36/T30  3&\ J3 1\T8 VT@P30 &3\ L0 1\T33 > P 3 > P " 9 0X :l3T 3 ;\3; > M= >@P M\ 33 > A= N0 ATGGdIHdJ0dK\33  > IL3 > I\ "33 > UR >0 YT%38= >@P (3Tb H3 1Th 3\= >0 &3\ H0 1\HPREACITPCCSPUT CCSMVAFORMLN3CCSADD6WRITERSFILERRUPDENDREADR nCCSBLKUPDRECPUTACFCCSTIMPUTS P P [kRSWIT C16 F CCS CCS 3.0 SL-149@P@PWRS@P999 @P998 @P997 @P @P @P - ACCOUNT NOT IN ACCAGE @P0  d0T E0  3  l\ D0HhlT3; C@P0E  C 0(π h  (ʀ hT 4 ?@PV >@PX > ( Vh 0( Vh\ @Pg >@Pi > ( hh 0( hh\ @Px >@Pz > ( Dh 0( Dh\ @P >@P >\33 F 0 F\\33 M3 > M\31  > 03 ?\ 3 C C3Tw3 > (T@P3 H0 1TT3@ M30 > > MT3 >0  1ݤ0  \3; J 1@P\\ 33 > O >0 OyT3 &\33 M 10\d00 \33  A 0; A\ @P3 @ 03 @\ 33 F  F3\  F30  F\33  A3  A $h\@P3- > @3  @T33  F3  F\33  F 03 F\ 33 A  AހhT@P0O T3 >00 (T30 H 1T@P%c@P2cG  3 46.@PcHPRSWIT fPFORMLN"CCSMVA3CCSADDRPUTS RFILERR\UPDENDbREADR DELRECCCSPUTMP P [TOTALP C23 F CCS CCS 3.0 SL-149@P * TOTALS *  @P+ @P? @PD * P R E V I O U S@Po * @P @P ACCOUNTS NUMBER AMT DELQ PAYOFF AMT DELQ  PA@PYOFF @P @P ADDED  @P @P @P REACTIVATED  @P; @PO @PT UPDATED  @P @P @P RELEASED  @P @P @P SATISFIED  @P @P @P WRITTENOFF  @PK @P_   3 56B@Pd REJECTED  @P @P @P0 5 Bl dT31 D C3 > C\ 3 D C >03 C\ D13 Cb > C3\ D C0 > C\39 D C@P0 > C\31 D C.3 > C\ 3 D Cr >0 C h h D(hT@Pȵ  D(hT 9@Pا 1ء 1T1 A3 ? @\ 13 A" ? @1\ Af3 ? @\ 13 A ? @1\ A)3 ? @\ @P, Am ?03 @\ P A0 ? @\3 V A ?03 @\ J A09 ? @\3 Au >03 @\ t A0 > @\3 z A >0; @\ n A@P3WA > @1\ A|3 > @\ b13 A > @1\ h A3 > @\ \13 AH > @ d D,hT@P} 1H"PTOTALPPCCSMVACCSGETCCSPUTEDIT  PRTLIN{P P [lLAUNCU F17 F CCS CCS 3.1 POST 3.1 PSR 09/01/2SL-173 @Pj@P9@Pg@Pj@P!@Pkk@@PE@P' @P@Pkk@Pqq@Pww @P @P @P@P @P @Pv  3 66V@P@P@P@P@P@P@P@P(@P@P@P@P@P@PT 33 > C 00 C 3\ >3 C C h!( ( hʒ ʍ !׀h@P3Ӏhπhˀh\@PC@PFؿ \3 >1 >T3\13 > >1\HPLAUNCUhPCCSMVA LCCSPYTP P [Q8QBDS F16 F LA CCS 3.0 SL-149@P8 :01@P0 ;0360@P8@P8 3 @P0 000000000000@P0 000000000000@P8 @P0 - ACCOUNT ALREADY IN ACCAGE @P0  CO HOST @P8 9 @P8 K  3 76j@P0 TRAN ACCOUNT BORROWERS DELINQUENT DELINQUENT C@P0 URRENT @P0 @P0 CODE NUMBER NAME DATE AMOUNT P@P0 AYOFF ACTION @P0 $ @P0  @P0 @P0  @P8@P8 @P8 @P8@P8 @P0 <-- HDR1 FROM UTILITY FILE GOES HERE -->  @P0  @P0  @P0 <-- HDR2 FROM UTILITY FILE GOES HERE --> DAILY MASTER FILE UPDATE REPORT @P0 H PAGE @P0 \ @P0 _<-- HDR3 FROM UTILITY FILE GOES HERE --> <-DATE->  @P0 @P0 @P0hLAADDACT  @P0LAACCAGE  @P06LACOSIGN  @P0 LADLQMST  @P0LAINACCT  @P0UPDINPUT  @P0UPDPRINT  @P0LARSWFIL  @P0LATRANFL  ^  3 86~@P0LATRNBCK  @P0XLAUTIFIL  @P8 @P0 FHDR1@P0 HUPDY@P8 B@P8 w@P8 e@P8 @P8 @P8 @P8 @P8 @P8 2@P8 Y@P8 @P8 @P8 _@P0 40000000001@P0 000000000000@P0 000000000000@P0 000000000000@P0 000000000000000000000000000000000000@P0 000000000000@P8 =@P8 >@P8 ?@P8 @@P8 A@P8 B@P8 C@P8 DI  3 96@P8 E@P8 F @P8 G @P8 H @P8 I @P8 J @P8 K@P8 L@P8 M@P8 N@P8 O@P8 P@P8 Q@P8 R@P8 S#@P8 T(@P8 U7@P8 VB@P8 WP@P8 XR@P8 Y`@P8 Z@P0 000000000000@P8 ;@P8 #@P0 000000000000@P0 000000000000@P0  @P0  @P0J @P0^  @P0  3 :6 @P0  @P0 @P0  @P0 @P0  @P0F @P0Z  @P0 @P0  @P0 @P0  @P0 @P0  @P0B @P0V  @P0 @P0  @P0 @P0  @P0 @P0  @P0> @P0R  @P0} @P0  @P0 @P0  @P0 @P0 @P0E@P0@P0gG  3 ;6@P0@P0w@P0@P0@P0@P0%@P0@P0@P8 D@P8 &@P8 2@P8 @P8 )@P8 @P8 M@P0 n000000000000000000000000000000000000@P0 J000000000000000000000000000000000000@P0 \000000000000000000000000000000000000@P8 @P8 @P8@P8 @P8 @P8 w@P8 k@P8 @P8@P8 @P8 @P0 / @P8@P0 )301 M  3 <6@P0 +302 @P0 -303 @P8 @P8 @P0 000000000000@P8@P0 000000000000@P0 000000000000@P0 000000000000@P8 P P [sUPDEND C47 F CCS CCS 3.0 SL-149@P? T00r 0\g0P 0\E0 0\w0 8\@P+ 3\0 3\%  3\쨷 3\Ũ ;\@P0V#  \00 T 0 ATHPUPDENDoPCLOSFLTAPMOTgPGMOUTkP P [.UPDIT C48 F CCS CCS 3.0 SL-149@PT33  > 03 >\ 33 > >3\  30 > >\33  >3 >\ 433 ? > 0 >T B@P+HPUPDIT *PCCSADDFORMLN%P P [UPINIT C49 F CCS CCS 3.0 SL-149@P@P T 1d0 d 0d T3 > ~3 ? >T33 > C 3 > C 8"d @P4h h "p8n (h 1 T3 (T33 @ 1 T @P_  \30 .\30 @ 1\  d 3\X &\33X @ 13\\ 0 &@P3\ @3 1\\30g6̽ &\630 @ 1\3\Eh̰ &\33h @ 13\\w0̣ &;\ @@P 1\\30̖ &\30 @ 1\3TM00 (TV30 @ 1T0\ "0 9 #;\%@P &3\ @0 1\\3 .v  3 =6  \30 @ 1\0 d dT330 F8¤ @P ̽0 ̸ &\X30 J 1\ B, hT'0; B T@P0% ? T0 G 1\300 H̖ 0  (T3X J0 1T03 H h/T2@P0P$ G)d T3 > M\30 >   &\30 J 1\  8 d@P|HPUPINIT~PAMONTOADAYTOAYERTOPGMIN EDIT CCSMVA OPENFLFILERR@UPDENDFREADR ICCSADNCCSBLKVP PR9BASE C12 F CCS CCS 3.0 SL-149@PHPR9BASEP PR9FLDL C13 F CCS CCS 3.0 SL-149@PHPR9FLDLP __STALLED 00300* AS OF 04-01-82. VERIFICATION OF ALL PROGARM LIBRARY FILES 00310* SECTOR ADDRESSES WOULD BE IN ORDER, IE. PATCHES INSTALLED VIA 'L00320* EXCEPT PATCHES 3 & 12. 00330* 00340* PATCH 8 IS BASED ON THE ORIGINAL 'UTBATC' PROGRAM LIBRARY 00350* FILE INSTALLED. IF THE SCRATCH RELOCATOR HAS BEEN INSTALLED, 00360* A NEW 'UTBATC' FILE WAS INSTALLED. IN THIS CASE, PATCH 8 MUST 00370* BACKED OUT. 00380* 00390* PATCH A PATCHES FOR BOTH COLLECTOR TERMINALS AND MASTER 00400* CONSOLE. IF MASTER CONSOLE IS NOT A VIKING TERMINAL, BACK 00410* OUT SECOND PART OF PATCH. 00420* 00430********************************************************************** 00440* 00450* SPECIAL INITIALIZATION TO RESTORE THE SYSTEM TO ITS VIRGIN STATE. 00460* THESE ARE NOT PATCHES TO THE 84 TERMINAL SYSTEM. 00470* 00480LHC,0/5800,186 00490OK 00500* OLD VALUES = 544D,544D 00510LHC,7576,146/E820 00520OK  3 >6 00530* OLD VALUE = 5055 00540LHC,95B8/E845 00550OK 00560* OLD VALUE = 504E 00570LHC,9AFC/6800,97 00580OK 00590* OLD VALUES = 5047,B00 00600LHC,9C3D/6800,FF55 00610OK 00620* OLD VALUES = 5047,0B00 00630LHC,47/,,,,,,,,,,,,,,,,,,, 00640OK 00650* OLD VALUES = UNKNOWN 00660* 00670********************************************************************** 00680* 00690* PATCH 1. 00700* 00710* TERMINAL RESPONSE TIME FIX 00720* (TO SYSDAT) 00730* (PSR CY30003) 00740* 00750LHC,2BAC,5B6/1E,28 00760OK 00770* OLD VALUES = 0000,000A 00780* 00790********************************************************************** 00800* 00810* PATCH 2. 00820* 00830* FILE MANAGER OPENFL OVERLAY CODING ERROR 00840* (TO OPENFL MODULE) 00850* (PSR CY3A025) 00860* 00870LHM,,12F8,73/C20A 00880OK 00890* OLD VALUES = C00A 00900* 00910********************************************************************** 00920* 00930* PATCH 3. 00940* 00950* 50MB TO 180MB CONFIGURATION FIX 00960* (TO SPACE MODULE, SPACE + $1E1) 00970* (PSR CY3A037) 00980* 00990LHM,,10,52BE/18DF 01000OK   3 ?7  01010* OLD VALUE = 18D7) 01020* 01030********************************************************************** 01040* 01050* PATCH 4. 01060* 01070* UTIL DUMP SINGLE FILE DUMP WHICH DOES NOT RELOAD 01080* (TO DMPFIL MODULE) 01090* (PSR CY3A054) 01100* (THIS PATCHES ITOS UTILITY 'UTDUMP' OVERLAY) 01110* 01120LHM,,2332,10BB/0 01130OK 01140* OLD VALUE = 5800 01150* 01160********************************************************************** 01170* 01180* PATCH 5. 01190* 01200* AUTO BATCH DISABLED FIX 01210* (TO AUTOBT MODULE) 01220* (PSR CY3A038) 01230* (THIS IS ORDINAL 29) 01240* 01250LHO,29,7/A02,6841,183A 01260OK 01270* OLD VALUE = A000,6A23,0113 01280* 01290********************************************************************** 01300* 01310* PATCH 6. 01320* 01330* RECORD LOCK PROBLEM 01340* (TO FMSUBS MODULE) 01350* (PSR CY3A067) 01360* (USES LOCORE LOCATIONS $47-$4C) 01370* 01380LHC,7576,131/E502,C101 01390OK 01400* OLD VALUES = C502,E101 01410LHC,47/0,C1D,CEFD,C1F,EEFB,1CFA 01420OK 01430* OLD VALUES ALL ZERO 01440LHC,7576,146/5047 01450OK 01460* OLD VALUE = E820 01470* 01480****************************************************************H4  3 @7****** 01490* 01500*PATCH 7. 01510* 01520* FILE FCB GETTING DESTROYED (SIM085) 01530* (TO FCBSS MODULE) 01540* (PSR CY3A075) 01550* 01560LHM,,12F8,7CB/1809 01570OK 01580* OLD VALUE = C000 01590LHM,,12F8,8B4/1809 01600OK 01610* OLD VALUE = C000 01620LHM,,1311,1EA/1809 01630OK 01640* OLD VALUE = C000 01650LHM,,1311,2D3/1809 01660OK 01670* OLD VALUE = C000 01680* 01690********************************************************************** 01700* 01710* PATCH 8. 01720* 01730* MAKE 'PN' A REQUIRED PARAMETER OF THE UT,BATCH FUNCTION. 01740* (TO 'FMUTEX' MODULE (FM UTIL OVERLAY)& 01750* TO 'BATC' MODULE (FM UTBATC OVERLAY) 01760* (PSR CY3A023) 01770LHM,,202F,14F/011A 01780OK 01790* OLD VALUE = 111A (THIS IS UTIL OVERLAY PATCH) 01800LHM,,20C2,1BC8/BB14 01810OK 01820* OLD VALUE = BAF9 (THESE ARE UTBATC OVERLAY PATCHES) 01830LHM,,20C2,1C3A/185E 01840OK 01850* OLD VALUE = 1843 01860LHM,,20C2,1C5A/1819 01870OK AL7.S $$ 01880* OLD VALUE = 1818 01890LHM,,20C2,1C5E/1815 *JOB,J001,CCS149 *K,P2 *RPGII 00010H TRENDP00020X D11 R CCS CCS 3.0 CORRECTED(12/82) SL-149 0100000030F* D11 R CCS CCS 3.0 CORRECTED(12/82) SL-149 0101000040F* 0102000050F* CYBERCRE  3 A72DIT SYSTEM VERSION 3 0103000060F* DATA SYSTEMS-LA JOLLA DIVISION, LA JOLLA, CALIFORNIA 0104000070F* COPYRIGHT CONTROL DATA CORPORATION, 1979 0105000080F* 0106000090F* THIS PROGRAM PRODUCES THE TREND ANALYSIS REPORT. THIS 00100F* REPORT SHOWS ACCOUNT MOVEMENT BETWEEN PERIODS(DAYS) OF 00110F* DELINQUENCY. THE FILE, AGEWRK, HAS BEEN UPDATED BY TRENDE 00120F* PRIOR TO EXECUTION OF THIS PROGRAM. THE REPORT IS PRINTED 00130F* EITHER BY QUEUE OR BY PRODUCT TYPE DETERMINED BY AN EXTERNAL 00140F* SWITCH SETTING: 00150F* IF U1 ON REPORT IS BY QUEUE 00160F* IF U1 OFF REPORT IS BY PRODUCT TYPE 00170F* 00180F* IF U2 ON CURRENT PAYOFF IS SUMMED 00190F* IF U2 OFF AMOUNT PAST DUE IS SUMMED 00200F* 00210F* IF U3 ON GROUP BREAKS ARE IGNORED 00220F* IF U3 OFF GROUP BREAKS ARE USED 00230F* 00240FAGEWRK IPE F 82 DISK 00250FUTIFIL IC F 80R 4AI 1 DISK 00260FPRINT O F 132 PRINTER 00270F* 00280E DAYS 10 10 3 0A 00290E HDR 3 40 00300E BVD 99 9 0 BVC 6 0 BREAK VALUES 00310E TVD 99 9 0 TVC 6 0 TOTAL VALUES 00320E OD 11 9 0 OC 6 0 OUTPUT LINE 00330IAGEWRK AA 01 00340I 1 1 AACTFG 00350I 2 16 AACCT 00360I 17 20 AQUE 0031000370I 21 24 ALCID 00380I 25 28 ATCD 00390I 29 340ADLDT 0033000400I 35 370ADYDL 04 00410I 38 400ALDYS 02 00420I 41 470APYOF 00430I 50 560ALPYF 00440I 59 650ADLQ 00450I 68 740APADQ 00460I 77 77 ASTAT 00470I 78 79 AFLG1 00480I 80 81 AFLG2 00490I 82 82 AFLG3 00500I 29 340RNDT 00510I 35 400LRNDT 60 00520IUTIFIL AA 41 00530I  3 B7F 5 44 HEADER 00540C* 00550C**** SETUP REPORT HEADINGS 00560C INIT TAG 00570C 46 GOTO AROUND 00580C MOVE ' ' WKBRK 4 00590C Z-ADD1 IX 20 00600C 'HDR1' CHAINUTIFIL 47 00610C N47 MOVEAHEADER HDR,1 00620C 'HDR2' CHAINUTIFIL 47 00630C N47 MOVEAHEADER HDR,2 00640C 'HDR3' CHAINUTIFIL 47 00650C N47 MOVEAHEADER HDR,3 00660C MOVE RNDT RUND 60 00670C N60 MOVE LRNDT LRUN 60 0035000680C N60 SETON 61 0036000690C SETOF 01 00700C AROUND TAG 00710C SETON 46 00720C PROC TAG 00730C* SET UP CONTROL BREAKS 0038000740C 01N57NU1 MOVELATCD WKBRK 00750C 01N57 U1 MOVE AQUE WKBRK 0040000760C 01N57 MOVE AACTFG WKCDE 1 00770C 01N57 SETON 57 00780C 01 U1 SETON 51 00790C 01NU3 AACTFG COMP WKCDE 5050 00800C 01N50NU1ATCD COMP WKBRK 5050 00810C 01N50 U1AQUE COMP WKBRK 5050 0042000820C 01 50 EXSR ADDEM 00830C 01 50 EXSR SCRIBE 00840C* SET UP CONTROL BREAKS 0044000850C 01 50NU1 MOVELATCD WKBRK 00860C 01 50 U1 MOVE AQUE WKBRK 0046000870C 01 50 MOVE AACTFG WKCDE 00880C 01 50 SETOF 50 00890C 01 MOVE WKCDE TCA 1 00900C 01 MOVE WKBRK TCX 4 00910C* 0048000920C* COMPUTE THE Y AND X AXIS FOR THIS RUN FROM DAYS DELQ 0049000930C* FIND THE CURRENT POSITION 0050000950C* NOT YET DELQ 0052000980C 01 02 04 GOTO END2 0055000990C* NEWLY ADDED NOT DELQ LAST RUN 0056001000C 01 02 Z-ADD1 Y 0057001010C 01 02 EXSR SETX 0058001020C* NOT NEW THIS RUN OR LAST RUN 0059001030C 01N02 EXSR SETX 0060001040C 01N02 v  3 C7Z EXSR SETY 0061001050C* 0062001060C 01NU2 MOVE ADLQ WRKAMT 70 0063001070C 01 U2 MOVE APYOF WRKAMT 0064001080C* UPDATE FIELDS FOR CURRENT RUN 0065001090C 01 EXSR UPDATE 0066001100C* 0067001110C* COMPUTE THE X AND Y AXIS FOR LAST RUN 0068001120C* FIND LAST RUN POSITION 0069001130C* NEWLY ADDED NOT DELQ LAST RUN 0070001140C 01 02 Z-ADD1 Y 0071001150C 01 02 Z-ADD1 X 0072001160C* NOT NEW THIS RUN OR LAST RUN 0073001170C 01N02 Z-ADD1 X 0074001180C 01N02 EXSR SETY 0075001190C* 0076001200C 01NU2 02 MOVE ADLQ WRKAMT 0077001210C 01 U2 02 MOVE APYOF WRKAMT 0078001220C 01NU2N02 MOVE APADQ WRKAMT 0079001230C 01 U2N02 MOVE ALPYF WRKAMT 0080001240C* UPDATE FOR LAST RUN FIELDS 0081001250C 01 EXSR UPDATE 0082001260C END2 TAG 0083001270C* 0084001280CLR EXSR ADDEM 01290CLR EXSR SCRIBE 01300CLR EXSR CLOSE 01310CLR EXSR SCRIBE 01320C* 01330C* FIND THE Y POSITION IN THE MATRIX 0086001340CSR SETY BEGSR 01350CSR Z-ADD1 Y 30 01360CSR SY1 TAG 01370CSR ALDYS LOKUPDAYS,Y 10 10 01400CSR 1 ADD Y Y 01410CSR ENDSR 01420C* 01430C* 01440CSR SETX BEGSR 01450CSR Z-ADD1 X 30 01460CSR SX1 TAG 01470CSR ADYDL LOKUPDAYS,X 10 10 01500CSR 1 ADD X X 01510CSR ENDSR 01520C* 01530C* 01540C* FIND THE X POSITION IN THE MATRIX 0088001550CSR UPDATE BEGSR 01560CSR 5  3 D7n Y SUB 1 N 30 01570CSR N MULT 11 N 01580CSR N ADD X N 01590CSR WRKAMT ADD BVD,N BVD,N 0090001600CSR 1 ADD BVC,N BVC,N 0091001610CSR ENDSR 01620C* 01630C* 01640C* ADDS COLUMNS (DOWN) IN THE MATRIX 0093001650CSR ADDEM BEGSR 01660CSR Z-ADD1 C 01670CSR Z-ADD1 A 01680CSR Z-ADD89 I 30 01690CSR PT1 TAG 01700CSR Z-ADD1 B 01710CSR PT2 TAG 01720CSR BVD,C ADD BVD,I BVD,I 01730CSR BVC,C ADD BVC,I BVC,I 01740CSR 11 ADD C C 01750CSR 1 ADD B B 01760CSR B COMP 8 3232 01770CSR 32 GOTO PT2 01780CSR C SUB 87 C 01790CSR 1 ADD I I 01800CSR 1 ADD A A 01810CSR A COMP 11 3232 01820CSR 32 GOTO PT1 01830CSR ENDSR 01840C* 01850C* 01860C* MOVES DATA TO OUTPUT BUFFER - ADDS TOTALS FOR TOTAL 0095001870C* PAGE WRITES ONE LINE ACROSS OR MATRIX 0096001880CSR SCRIBE BEGSR 01890CSR 47 GOTO ENSRB 01900CSR SETON 20 01910CSR Z-ADD1 C 30 01920CSR Z-ADD1 A 30 01930CSR SC1 TAG 01940CSR SETOF 242526 01950CSR SETOF 272829 01960CSR SETOF 303133 01970CSR A COMP 2 232122 01980CSR 23 A COMP 4 252324 01990CSR 25 A COMP 6 272526 02000CSR 27 A COMP 8 332728 02010CSR Z-ADD1 B 30 02020CSR SC2 TAG 02030CSR MOVE BVD,C OD,B 02060CSR a  3 E7 MOVE BVC,C OC,B 02090CSR 1 ADD C C 02100CSR 1 ADD B B 02110CSR B COMP 11 3232 02120CSR 32 GOTO SC2 02130CSR EXCPT 02140CSR 1 ADD A A 02150CSR A COMP 9 3232 02160CSR 32 GOTO SC1 02161CSR BVD ADD TVD TVD 02162CSR BVC ADD TVC TVC 02163CSR Z-ADD0 BVD 02164CSR Z-ADD0 BVC 02170CSR SETOF 20 02180CSR ENSRB TAG 02190CSR ENDSR 02200C* 02210C* 02220C* MOVES TOTALS TO MATRIX BEFORE PRINTING 0098002230CSR CLOSE BEGSR 02240CSR 47 GOTO END 02270CSR Z-ADDTVD BVD 02280CSR Z-ADDTVC BVC 02320CSR SETON 03 02330CSR END TAG 02340CSR ENDSR 02350C* 02360C* 02370OPRINT E 101 21 02380O HDR,1 40 02390O 71 'DELINQUENT TREND' 02400O 80 'ANALYSIS' 02410O 127 'PAGE' 02420O PAGE Z 132 02430O E 1 21 02440O HDR,2 40 02450O N03NU3 64 'FOR GROUP' 02460O N03NU3TCA 66 02470O N03N51 75 'PRODUCT' 02480O N03 51 75 ' QUEUE' 02490O N03 TCX B 80 02500O 03 70 'TOTALS' 02510O 122 'RUN DATE :' 02520O UDATE Y 132 02530O E 1 21 02540O HDR,3 40 02550O 59 'FROM' 02560O 61LRUN Y 68 0100002570O D  3 F7 71 'TO' 02580O RUND Y 80 02590O E 31 21 02600O 25 '00 - 29' 02610O 37 '30 - 59' 02620O 49 '60 - 89 ' 02630O 61 '90 - 119' 0102002640O 73 '120 - 149' 02650O 85 '150 - 179' 02660O 97 '180 +' 02670O 109 'WRITE OFF' 02680O 121 'RELEASED' 02690O 132 'SATISFIED' 02700O E 1 21 02710O 13 'NEWLY ADDED' 02720O E 1 22 02730O 13 'FORMER STATUS' 02740O E 1 02750O 22 13 '00 - 29 ' 02770O 23 13 '30 - 59 ' 02790O 24 13 '60 - 89 ' 02810O 25 13 '90 - 119 ' 02830O 26 13 '120 - 149' 02850O 27 13 '150 - 179' 02870O 28 13 '180 + ' 02890O 33N03 13 'PAGE TOTALS' 02900O 33 03 13 'REPORT TOTALS' 02910O E 1 20 02920O OD,1 1B 13 02930O OD,2 1B 25 02940O OD,3 1B 37 02950O OD,4 1B 49 02960O OD,5 1B 61 02970O OD,6 1B 73 02980O OD,7 1B 85 02990O OD,8 1B 97 03000O OD,9 1B 109 03010O OD,10 1B 121 03020O OD,11 1B 132 03030O E 2 03040O OC,1 Z 13 03050O OC,2 Z 25 03060O OC,3 Z 37 03070O OC,4 Z 49 03080O OC,5 Z 61 03090O OC,6 Z 73 03100O OC,7 Z 85 03110O OC,8 Z 97 03120O  3 GV%ALYV%S $$ mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm  3 HV9  3 IVM  3 JVa__mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm{9  3 KVummmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm