@CAT,P 1044-001-001.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1044-001-001,,,130474053241,000 )@@G@@**PF**@@@]$^@@@@@@@@@@@[@GG@@@]FE@@@@@@@@@@@@@@@@@@@@@@@@@L@@]4@@@]F^@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@W@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@\@@@@@<@@@@@@@@@AC )@@G@@@@@@@,@@@@@@@@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@Z@@J@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2@@@@@V@@@@@@@@@@@@@@@@[@AE )@@G@@@@@@@S@@5@@@@@@@@@@@@@@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@4@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@+@@@@@-@@@@@@@@@@@@@@@@@@@@@@@]@@@AG )@@G@@@@#@@@@@^@@@@@ @@H@@A@@@@@B@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@Y@@1@@@@@@@@@@@@@@@@@@@@@@@@@@W@@!@@@@@@@@@@@@@@@@@@@@T@@@@@@@@P@@@@@@AI )@@G@@@@@@@@@@N@@[@@@@@:@@@@@@@@@@@?@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@=@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@6@@@@@@@@@@@I@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@F@@@@@@@@@@@@@@@@@@@@@@@C@@3@@@@@@@@@@@@@@@@@@@@_@@)AL )@@G@@@@8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0@@@@@@@@U@@X@@9@@@@@7@@@@@@@@@@@R@@@@@@AM )@@G@@@@@@@@@@@@@'@@@@@;@@@@@@@@@@@@@@Q@@@@@@@@@@@@@@.@@@@@O@@@@@@@@@@@@@@E@[@AN )@@G@@H15500-SKEL @@@@@@@@[@@@ @ @[@][@@@]^@@@@W@I%\AMKH15511 AO )@@G@@@@>@@@@@[@@@SKEL @ @[@][@@@@J@@@@Y^H[NETJH15512 @@&@@@@@[@@@AP )@@G@@SKEL @ @[@][@@@]%@@@@YNH]IETJH15513 @@$@@@@@[@@@SKEL AQ )@@G@@@ @[@][@@@@6@@@@).H]YETJH15514 @@*@@@@@[@@@SKEL @ @@@[[@@@@NAR )@@G@@@@@@-3CSMATJH15515 @@(@@@@@[@@@SKEL @ @B@ [@@@[!@@@@+AC9]DEKAS )@@G@@H15516 @@%@@@@@[@@@SKEL @ @@@[[@@@@D@@@@<3CSTATJH1550020 AT )@@G@@@@@@@@@@[@@@ @ @A@ [@@@B"@@@@C?OFTKH15516 @@@@@@@@[@@@ @ @^@ [@@@@ @@@["(C?"FTKBW )@@G@@H15501-SKEL @@@@@@@@[@@@ @ @[@][@@@^F@@@[",C8ZFTKDEPT-HEADER BX )@@G@@@@@@@@@@#@@@ @ @@@[[@@@@D@@@]]9E^JANJDEPT-HEAD-RW@@@@@@@@#@@@BY )@@G@@ @ @@@[[@@@@A@@@]#]E^XANJDEPT-HEAD-M @@@@@@@@#@@@ BZ )@@G@@@ @@@[[@@@@E@@@]#CE^QANJLABELTAPELIB@@@@@@@@#@@@ @ @@@[[@@@@SCA )@@G@@@@@]#MH8#^]KSCS-SUMM-REC@@@@@@@@#@@@ @ @@@[[@@@@D@@@]#%H9-^]KCB )@@G@@ABORT @@@@@@@@[@@@ @ @@@[]@@@@[@@@]#3I[,^OICALCDAYS CC )@@G@@@@@@@@@@[@@@ @ @@@[]@@@@Q@@@]#4H&+ REDATEDIT @@@@@@@@[@@@CD )@@G@@ @ @@@[#@@@@U@@@]^ED6X[]DCONVDATE @@@@@"@@[@@@ CE )@@G@@@ @@@[]@@@@V@@@]^=LBQ BEEQUIP @@@@@@@@[@@@ @ @@@[]@@@@BCF )@@G@@@@@]^_DU#C]HGETDATE @@@@@@@@[@@@ @ @@@[]@@@@]@@@] AD;<[]DCG )@@G@@GETVOLASCII @@@@@@@@[@@@ @ @#@^]@@@@$@@@] CF;KBIKSORTASG CH )@@G@@@@@@@@@@[@@@33TO36 @ @@@[N@@@^-@@@] \E"GE[KWEEKDA @@@@@@@@[@@@CI )@@G@@ @ @@@[^@@@@#@@@]EKC'Z#ZFH15500 @@@@@@@@[@@@ CJ )@@G@@@ @ @ [@@@@A@@@]ENEB[GCKH15501 @@@@@@@@[@@@ @ @ @ [@@@@^CK )@@G@@@@@]ETEBTGCKH15501-ADD @@@@@@@@[@@@ @ @^@ [@@@@J@@@]EXC=LF[JCL )@@G@@H15500-ADD @@@@@@@@[@@@ @ @^@ [@@@@I@@@]E?C<:F[JJOB-ACCT CM )@@G@@@@@@@@@@[@@@DOC @ @[@]B@@@TU@@@]E'H6MBYKPREP11 @@@@@@@@[@@@CN )@@G@@ @ @[@][@@@@J@@@]=OF&6GCKLOGPAS @@@@@@@@[@@@ CO )@@G@@@ @M@ ]@@@]-@@@]=(/K@O^C/,0@&[/K@O^CR#@^I_A#]@@@RB[@@#AB[@@YAF]@@[R;@@@]DB )@@G@@AB]@@[R#@^J@O#@@@]RF-@@ P;)@@^R#K@N?A#W)@@8#)@N&/K@@NKR;@362A#[K@X/K@O^CDC )@@G@@DDDDDDA]0@O,/,0@S,@@@@@[/K@KO,/,0@TZ@@@@@#/K@KO,/,0@UO@@@@@[/K@KO,RF@^^]DD )@@G@@P;@@@[R#K^J[RB)^^]&;)@@[A#Y)@@8#@@N/R#@^^@A#@^AOR;@@O\AB@^^@R;@@@[AF@^^@DE )@@G@@/,0@N@/K@@O%R#[@@RP;@@@[A#[@@RRB[@@#A#[@@!/,0@1C@@@@@W/K@KO,*^[@@\/K@@O+DF )@@G@@/,0@$$/K@KO,/,0@*N/K@KO,/,0@(E/K@KO,NCK^AOR#@@@[O#@^I.RBK^AO&;K@@[M#W)@@DG )@@G@@/,0@+@/,0@1C@@@@@C/S@@@@R]0@O,/KF@@[R^-@@\R;@@@]A#[@@!/,0@3[@@@@@W/K@KO,DH )@@G@@R@-@@?/K@@OKR#[K@X:8@362/K@@OD/K@KO,@@@@@@______A]0@O7/,0@K'/K@KO7R;K@@RDI )@@G@@AR#@^JFA#@^^W9?[@@F'^@@0WR#@@X!'=@@@J/^@@XW9?[@@DER )@@G@@9*@^^MR;@^^M'=@@[GR7@^^S%8@@@X:8@@@S/K@@W=/K@@W 9?[@@D9*[@@&9*@^^-R$@^^TES )@@G@@=8@@@[/K@@W%'^@@0/R#@^JGA#@^^WRBL@@[PFL@@[ @@@@GW^[@@ O;@@@[/,0@0:R#K@@GET )@@G@@R#@^JD9*@^^R#@@X!'=@@@JA#@^^E/@@@W /C@@WV'^@@0/R#@^JHA#@^^WEU )@@G@@R#@@X!'=@@@JA#@^^F/@@@WC/C@@WVRR#@^JFEZ )@@G@@A#@^^WR#@@X!'=@@@J/^@@W[9?[@@&9*@^^MR;@^^M'=@@[GR7@^^S%8@@@S:8@@@X/K@@X FA )@@G@@/K@@XIR<[K@X:8@@@1/K@@X('^@@0/R#@^JMA#@^^WR#@@X!'=@@@J/K@@W=/,0@4$/K@@XSFB )@@G@@/K@@W '^@@0/R#@^JKR#K^JN9*@^^WR#@@X!'=@@@J/K@@W R@K@X,R@)@X\A@-@@?/K@O^DFC )@@G@@R;@213A#[K@X/,0@1C@@@@@C/S@@@@/K@@XS'^@@0/R#@^JKR#K^JL9*@^^WR#@@X!'=@@@JFD )@@G@@/K@@XW'^@@0/R#@^JKA#@^^W/K@@X&@@G^^W@@@^AT@@@^?=A]0^^DR#L@@TA#K@Z[RBL@@YFE )@@G@@%CL@@T @@@Z[(@[@@T/K@@X_NCK^^]R#)^J@R;K^^MO#)@@]&;K@@[OR-@@TM#Y)@@R#[@@UFF )@@G@@%@@^J[/K@@Y^R;@360/K@@Y.;*@@@[;C@@@NA#[@@!/,0@1C@@@@@R/K@O^DRR[@@U%8@@@[FG )@@G@@/K@@YKR#]@@[A#[@@U/K@@Y^RR[@@UO#@@@]R#G@@@/G@@YIR#L@@UA#L@@TA#[@@U/,0@-+FH )@@G@@/K@@Y.N8K@@_R;)^^MA#)^H9(@[@@P/K@@Y$(@@@Z[/K@@Y$RBK^^]RF)^^]A#K^H'A#)^H;FI )@@G@@/,0@,\/K@@Y_/K@@Y_R;)^^M&;)@@[R;@@@_R#K^J[A#Y)@@8#@@Y:RB@^^]A#@^H'RF@^^]FJ )@@G@@A#@^H;/,0@,\/K@@Y4/K@@Y'RZ]@@@O#[@@QP;@@@#A#[@@QR]0^^D/KF@@[R#@^J[A#[@@UFK )@@G@@R;@350A#[K@X/K@O^DR;@362/K@@Y.@@@@@@A]0^^DRZ]@@@%8@@@#/KF@@@R#[@@?O;@@@^FL )@@G@@A#@^H9RB@^^]A#@^H'RF@^^]A#@^H;/,0@,\/K@@ZV/K@@ZTR#[@@?OR]@@@O;@@@]PF[@@BFM )@@G@@A#@^H9/,0@,\/S@@@@/K@@ZT/K@@ZVR]0^^D/KF@@[/K@O^DA]0^^DRFL@@CA#L@@!/,0@3[FN )@@G@@@@@@@R/K@O^DRB@^^]A#@@Z>/,0@!#@@@^.+R#@^^E:@@^J[/K@@Z%A#@^^FRR@^^FO#@@@]FO )@@G@@RRW@@@/@K@Z0R]0^^D/KF@@[RFW@@@/K@@ZYA]0^^DRB@^^]A#@@Z6/,0@!#@@@^.+R#@^J[FP )@@G@@%@@^^E/K@@)U:@@^^G/K@@-TRRK^^GO#K@@]R#X@@@;*K@@[;CK@@N:^L@@Y/K@@)XRB[@@YFQ )@@G@@A#@^AQR#@^^FA#@^APR#@^AP;*@@@[;C@@@NA#[@@!/,0@1C@@@@@R/K@O^DRR@^APO;@@@]FR )@@G@@O#@@@]A#@^H9RB@^^]A#@^H'RF[@@BA#@^H;/,0@,\/K@@-M/K@@)+/K@@- R#@^^EA#@^APFS )@@G@@/K@@)+A#[@@VR#@^^GA#[@@T^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A09A@0AK0B@4A80CLIES1A@0ET#CK1A@9A80AS1FU )@@G@@A[IA@2A86AK3ES0AC0AS2ALN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)1BC7B@0FW )@@G@@A@9AK0CTNES1A@0ET#CK1A@9A80AK1A[IA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)FX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FY )@@G@@^@)^@)^@)^@)@W@W=@AC0A87A@7B@1AC2A)0CTNES1A@0ET#CK1A@9A80AS1A9IA@1A@3AK2FZ )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AK4A@7B@1AK2A*0CTNES1GB )@@G@@A@0ET#CK1A@9A80AC2A-IA@3A*2A)6ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GD )@@G@@@W@W=@AC0A)9BC7B@0A@7A@0CTNES1A@0ET#CK1A@9A80AK1B[IA@0B@8A)7ETFA@8B@4A9NGE )@@G@@ES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0B@5A@7B@1A)0A01CTNES1A@0ET#CK1A@9GG )@@G@@A80AS2A1IF@7AS9AC5ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@4GI )@@G@@A@7B@0AC5AK0CTNES1A@0ET#CK1A@9A80A)1A-IA@5B@8A07ES0A@5A@0BDN^@)^@)^@)^@)GJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GK )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC1A@6A@7B@0A09A@0CTNES1A@0ET#CK1A@9A80A)1A1IA@4GL )@@G@@B@8AK7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)2BC7B@0A@5A*0GN )@@G@@CTNES1A@0ET#CK1A@9A80AK1ADIA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)^@)^@)GO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GP )@@G@@^@)^@)@W@W=@AC1A@4A@7B@0A07B@0CTNES1A@0ET#CK1A@9A80A)1ALIA@0A)2A*9ES0A@1GQ )@@G@@AC4BDN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GR )@@G@@^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)@W@W=@AC0BC0A@7B@1A*7B@0CTNES1A@0ET#GS )@@G@@CK1A@9A80AS3ADIA@0AC0AC6C)0A@5A@0BDNA@2A86AK3ES)^@)^@)^@)^@)^@)^@)^@)^@)GT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@GU )@@G@@AC0AK3A@7B@0A85A80CTNES1A@0ET#CK1A@9A80AC2ATI^@)^@)^@)^@0A)8B@2A9N^@)^@)GV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A88A@0AK0BC5A80CLIES1A@0ET#CK1A@9A80AS1GX )@@G@@BDIA@0A*2AC5ES0BC7AK7BDNA@0A01B@9ES0BC7AK7BD^AC0A@1AC1C))^@)^@)^@)^@)^@)GY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@7A@7B@1GZ )@@G@@A08A)0CTNES1A@0ET#CK1A@9A80A)1A9IAS2AC1A)1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)HA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HB )@@G@@^@)^@)^@)^@)@W@W=@AC0A)8BC7B@0A@1A@0CTNES1A@0ET#CK1A@9A80AK1A9IA@0B@8A)7HC )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@4A@7B@0A07A)0CTNES1HE )@@G@@A@0ET#CK1A@9A80A)1A-IA@2A86AK3ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HG )@@G@@@W@W=@AC3A02A@0AK0AK0AS0CLIES1A@0ET#CK1A@9A01AK2A9IAK3AS4A*2ES)^@)^@)^@)HH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)1BC7B@0A@9AS0CTNES1A@0ET#CK1A@9HJ )@@G@@A80AK1A[IA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC7HL )@@G@@A@7B@1A*4A*0CTNES1A@0ET#CK1A@9A80A)0A9IA@4B@8AK7ES)^@)^@)^@)^@)^@)^@)^@)HM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HN )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC0BC0A@0AK0B@2BC0CLIES1A@0ET#CK1A@9A80AS3ADIAK4HO )@@G@@A@6A03ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC9A@7B@1A*6A80HQ )@@G@@CTNES1A@0ET#CK1A@9A80A)0BDIA@0A*0A@9ES0AK7A02ATN^@)^@)^@)^@)^@)^@)^@)^@)HR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HS )@@G@@^@)^@)@W@W=@AC0AK2A@7B@1AK0A)0CTNES1A@0ET#CK1A@9A80AC2ALIA@0AS7A82ES)^@)HT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HU )@@G@@^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)@W@W=@AC0BC4A@7B@1A*6A)0CTNES1A@0ET#HV )@@G@@CK1A@9A80A)0A-IAK7AK2AC1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@HX )@@G@@AC0AS5A@7B@0A@8BC0CTNES1A@0ET#CK1A@9A80AC2A9IA@0AC4A*3ES)^@)^@)^@)^@)^@)HY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC3A)7A@0AK0A@6A*0CLIES1A@0ET#CK1A@9A01AK1IA )@@G@@ALIA@0A83B@5ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AS7A@7B@0IC )@@G@@A@0AC0CTNES1A@0ET#CK1A@9A80AK0A1IA@0A*0A@9ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)ID )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IE )@@G@@^@)^@)^@)^@)@W@W=@AC0A*0BC7B@0AC0A)0CTNES1A@0ET#CK1A@9A80AK1BDIA@0B@8A)7IF )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AK9A@7B@1AK2A80CTNES1IH )@@G@@A@0ET#CK1A@9A80AC2B[IA@9A04A89ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)II )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IJ )@@G@@@W@W=@AC0A)8BC7B@0A@6AC0CTNES1A@0ET#CK1A@9A80AK1A9IA@0B@1A09ES)^@)^@)^@)IK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC4A@7B@1A*6A80CTNES1A@0ET#CK1A@9IM )@@G@@A80A)0A-IA@2A86AK3ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@6IO )@@G@@A@7B@0A04AC0CTNES1A@0ET#CK1A@9A80A)1A1IA@9A04A89ES)^@)^@)^@)^@)^@)^@)^@)IP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IQ )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC3A*4A@7B@0A@5BC0CTNES1A@0ET#CK1A@9A01AK1BDIAC0IR )@@G@@A@5A*2ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC3A@7B@1A*5A80IT )@@G@@CTNES1A@0ET#CK1A@9A80A)0ATIA@0A87A@8ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IV )@@G@@^@)^@)@W@W=@AC0BC9A@7B@0A*8AS0CTNES1A@0ET#CK1A@9A80A)0BDIA@4B@8AK7ES)^@)IW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IX )@@G@@^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)@W@W=@AC1A@4A@7B@0AC5A@0CTNES1A@0ET#IY )@@G@@CK1A@9A80A)1A-IA@0A*0A@9ES0A@5AK1A(N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@JA )@@G@@AC0BC9A@7B@1A*6B@0CTNES1A@0ET#CK1A@9A80A)0BDIA@0AC5A@3ES0A@6A@7ALNA@0A@6JB )@@G@@AK0ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A87A@7B@1AC2AK0CTNES1A@0ET#CK1A@9A80AS1JD )@@G@@A9IA@1A@3AK2ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A87A@7B@1JF )@@G@@AC2AC0CTNES1A@0ET#CK1A@9A80AS1A9IA@1A@3AK2ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)JG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JH )@@G@@^@)^@)^@)^@)@W@W=@AC1A@5BC7B@0A@4A@0CTNE@1A@0ET#CK1A@9A80A)1A(IA@0B@3A@0JI )@@G@@E@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC2A@7B@1A*4A80CTNES1JK )@@G@@A@0ET#CK1A@9A80A)0ALIA@4B@8AK7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JM )@@G@@@W@W=@AC1A@7A@7B@0AS1AK0CTNES1A@0ET#CK1A@9A80A)1A9IA@0AS0AS8ES)^@)^@)^@)JN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@6A@7B@0A04AS0CTNES1A@0ET#CK1A@9JP )@@G@@A80A)1A1IA@0A)3AC7ES0A@4A)6A(N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@4JR )@@G@@A@7B@0A07A*0CTNES1A@0ET#CK1A@9A80A)1A-IAK3A*0A@2ES0A@0A*0A(N^@)^@)^@)^@)JS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JT )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC1A@6A@7B@0A04AK0CTNES1A@0ET#CK1A@9A80A)1A1IA@9JU )@@G@@A04A89ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)2BC7B@0A@5A@0JW )@@G@@CTNES1A@0ET#CK1A@9A80AK1ADIA@0B@0B@6ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JY )@@G@@^@)^@)@W@W=@AC1A@7A@7B@0AS1A*0CTNES1A@0ET#CK1A@9A80A)1A9IA@0A*1BC9ES)^@)JZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)1BC7B@0A@9A)0CTNES1A@0ET#KB )@@G@@CK1A@9A80AK1A[IA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)KC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@KD )@@G@@AC0A*0BC7B@0AC0A@0CTNES1A@0ET#CK1A@9A80AK1B[IA@0B@5A)0ES1B@0B@0ALNDS1B@4KE )@@G@@A@8ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AK9BC7B@0AC2A@0CTNES1A@0ET#CK1A@9A80AC2KG )@@G@@BDIA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC2A@7B@1KI )@@G@@A*4A00CTNES1A@0ET#CK1A@9A80A)0ALIA@0A*0A@9ES0AK7A02ATN^@)^@)^@)^@)^@)^@)KJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KK )@@G@@^@)^@)^@)^@)@W@W=@AC0AS5A@7B@0A@8AC0CTNES1A@0ET#CK1A@9A80AK0ATIA@3A*2A)6KL )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@6A@7B@0A09A*0CTNES1KN )@@G@@A@0ET#CK1A@9A80A)1A1IAK3A*0AC0ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KP )@@G@@@W@W=@AC0A87A@7B@1AS0BC0CTNES1A@0ET#CK1A@9A80AS1B[IA@0A@6AK0ES0A@4AK5BD^KQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@5BC7B@0A@9AC0CTNES1A@0ET#CK1A@9KS )@@G@@A80A)1A(IA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)@W@W=@AC0A05KU )@@G@@A@7B@1AS2AC0CTNES1A@0ET#CK1A@9A80AS0A1IA@0A*7A@2ETSA83BC1A1NA@0AS7A82ES)KV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KW )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC0AS5A@7B@0A@8A*0CTNES1A@0ET#CK1A@9A80AC2A9IAK7KX )@@G@@AK2AC1ES0A@7AS8A(NA@0A88AS1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@4A@7B@0A07A80KZ )@@G@@CTNES1A@0ET#CK1A@9A80A)1A-IA@0A*1BC9ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LB )@@G@@^@)^@)@W@W=@AC1A@7A@7B@0AS1BC0CTNES1A@0ET#CK1A@9A80A)1A9IA@5A)9A@8ES)^@)LC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LD )@@G@@^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)@W@W=@AC3AC9BC7B@0AC8AS0CTNES1A@0ET#LE )@@G@@CK1A@9A01AC1A-IA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)LF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@LG )@@G@@AC0AC6A@7B@1A)1AK0CTNES1A@0ET#CK1A@9A80AC1A1IA@1A83AS5ES0A@5A80ALNF@7AS9LH )@@G@@AC5ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC3A@7B@1A*5A00CTNES1A@0ET#CK1A@9A80A)0LJ )@@G@@ATIAK7AK2AC1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)@W@W=@AC0BC8A@7B@1LL )@@G@@A*5BC0CTNES1A@0ET#CK1A@9A80A)0B[IA@2A86AK3ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)LM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LN )@@G@@^@)^@)^@)^@)@W@W=@AC1A@6A@7B@0AC2A@0CTNES1A@0ET#CK1A@9A80A)1A1IA@0A@5A@5LO )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)2BC7B@0A@0A00CTNES1LQ )@@G@@A@0ET#CK1A@9A80AK1ADIA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LS )@@G@@@W@W=@AC0A*0BC7B@0AC0AK0CTNES1A@0ET#CK1A@9A80AK1B[IA@0B@8A)7ETFA@8B@4A9NLT )@@G@@ES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC3A@7B@1A*5B@0CTNES1A@0ET#CK1A@9LV )@@G@@A80A)0ATIAK7AK2AC1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@6LX )@@G@@A@7B@0A09BC0CTNES1A@0ET#CK1A@9A80A)1A1IA@2A86AK3ES)^@)^@)^@)^@)^@)^@)^@)LY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LZ )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC0AS5A@7B@0A@8A80CTNES1A@0ET#CK1A@9A80AC2A9IA@4MA )@@G@@AK0A87ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0B@3A@7B@1A82BC0MC )@@G@@CTNES1A@0ET#CK1A@9A80AS2A-IAK7AK2AC1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)ME )@@G@@^@)^@)@W@W=@AC0AK4A@7B@1AK2AK0CTNES1A@0ET#CK1A@9A80AC2A-IA@3A*2A)6ES)^@)MF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC7A@0AK0B@4AC0CLIES1A@0ET#MH )@@G@@CK1A@9A80A)0A9IA@0A*0A@9ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@MJ )@@G@@AC0B@3A@7B@1A82A00CTNES1A@0ET#CK1A@9A80AS1BDIA@0A)8A@4ES)^@)^@)^@)^@)^@)MK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ML )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)1BC7B@0A@9A@0CTNES1A@0ET#CK1A@9A80AK1MM )@@G@@A[IA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AS1A@7B@0MO )@@G@@A@4BC0CTNES1A@0ET#CK1A@9A80AC3ADIA@1A@3AK2ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)MP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MQ )@@G@@^@)^@)^@)^@)@W@W=@AC0AS7A@7B@0A@0A00CTNES1A@0ET#CK1A@9A80AK0A1IBC9B@9AC4MR )@@G@@ES0A@5A80ALNA@0AC1B@0ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)8A@7B@1AC6AS0CTNES1MT )@@G@@A@0ET#CK1A@9A80AK1A9IAS6A@9B@2ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MV )@@G@@@W@W=@AC1A@8A@7B@1AS5BC0CTNES1A@0ET#CK1A@9A80A)1B[IA@0A*7A@2ETSA83BC1ADNMW )@@G@@A@0A)4AC6ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC7A@7B@1A*4AK0CTNES1A@0ET#CK1A@9MY )@@G@@A80A)0A9IA@2A86AK3ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@7NA )@@G@@A@7B@0AS6A00CTNES1A@0ET#CK1A@9A80A)1A9IAK3A*0A@2ES)^@)^@)^@)^@)^@)^@)^@)NB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NC )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC0A)2BC7B@0A@5A80CTNES1A@0ET#CK1A@9A80AK1ADIA@0ND )@@G@@B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC0A@7B@1A*2BC0NF )@@G@@CTNES1A@0ET#CK1A@9A80AS3ADIA@9A04A89ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NH )@@G@@^@)^@)@W@W=@AC1A@6A@7B@0AC7AC0CTNES1A@0ET#CK1A@9A80A)1A1IA@0A*1BC9ES)^@)NI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@8A@7B@0AS7A)0CTNES1A@0ET#NK )@@G@@CK1A@9A80A)1B[IA@2AS0A*1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)@W@W=@NM )@@G@@AC0A80A@0AK0A89AS0CLIES1A@0ET#CK1A@9A80AS1ADIA@0AC1BC8ES)^@)^@)^@)^@)^@)NN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@8A@7B@0AS7B@0CTNES1A@0ET#CK1A@9A80A)1NP )@@G@@B[IAK3A*0A@2ES0A@0A*0A(N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC3A@7B@1NR )@@G@@A*5BC0CTNES1A@0ET#CK1A@9A80A)0ATIAK7AK2AC1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)NS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NT )@@G@@^@)^@)^@)^@)@W@W=@AC1A@8A@7B@0AS7A00CTNES1A@0ET#CK1A@9A80A)1B[IA@0A*1BC9NU )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC9A@7B@0A*8A*0CTNES1NW )@@G@@A@0ET#CK1A@9A80A)0BDIA@4B@8AK7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NY )@@G@@@W@W=@AC0BC1A@7B@1A*3BC0CTNES1A@0ET#CK1A@9A80A)0ADIA@2AK2AS6ES)^@)^@)^@)NZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC8A@0AK0B@0AK0CLIES1A@0ET#CK1A@9OB )@@G@@A80A)0B[IA@0AC4BC5ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@8OD )@@G@@A@7B@1AS0A80CTNES1A@0ET#CK1A@9A80A)1B[IA@0A*7A@2ETSA83BC1ADNAK6BC9BC3ES)OE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OF )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC0B@3A@7B@1A82A80CTNES1A@0ET#CK1A@9A80AS2A[IA@4OG )@@G@@B@4A02ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@5A@7B@0A08A@0OI )@@G@@CTNES1A@0ET#CK1A@9A80A)1A(IAK7AK2AC1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OK )@@G@@^@)^@)@W@W=@AC1A@7A@7B@0AS6AS0CTNES1A@0ET#CK1A@9A80A)1A9IA@0A*1BC9ES)^@)OL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC3A)7A@0AK0A@6AK0CLIES1A@0ET#ON )@@G@@CK1A@9A01AK1ALIA@5B@8A07ES0AK4A88A1N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@OP )@@G@@AC0A)2BC7B@0A@5AK0CTNES1A@0ET#CK1A@9A80AK1ADIA@0B@8A)7ES)^@)^@)^@)^@)^@)OQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC3AS0A)9A81AS2AK0CLIES1A@0ET#CK1A@9A01AC2OS )@@G@@A(IA@0A*7A@2ETSA83BC4ATNA@0A*0A@9ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@5A@7B@0OU )@@G@@AC1AC0CTNES1A@0ET#CK1A@9A80A)1A(IA@0A*1BC9ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)OV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OW )@@G@@^@)^@)^@)^@)@W@W=@AC1A@7A@7B@1A08A80CTNES1A@0ET#CK1A@9A80A)1A9IA@0A88AS1OX )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AS6BC7B@0AC0BC0CTNES1OZ )@@G@@A@0ET#CK1A@9A80AK0A(IA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)PA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PB )@@G@@@W@W=@AC0B@7A@7B@0BC1A00CTNES1A@0ET#CK1A@9A80AS2B[IA@9A04A89ES)^@)^@)^@)PC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@7A@7B@1A)5B@0CTNES1A@0ET#CK1A@9PE )@@G@@A80A)1A9IA@4B@8AK7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)9PG )@@G@@BC7B@0A@2A00CTNES1A@0ET#CK1A@9A80AK1B[IA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)PH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PI )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC1A@5A@7B@0AC1A80CTNES1A@0ET#CK1A@9A80A)1A(IA@1PJ )@@G@@A@3AK2ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)@W@W=@AC0AS1BC7B@0A@8A@0PL )@@G@@CTNES1A@0ET#CK1A@9A80AC3ADIA@0B@0B@6ETSA83BC1ADN^@)^@)^@)^@)^@)^@)^@)^@)PM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PN )@@G@@^@)^@)@W@W=@AC1A@5A@7B@0AC6AK0CTNES1A@0ET#CK1A@9A80A)1A(IA@9A@3A05ES)^@)PO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AS7A@7B@0A@0A80CTNES1A@0ET#PQ )@@G@@CK1A@9A80AK0A1IBC9B@9AC4ES0A@5A80ALNA@0AC8AC8ES)^@)^@)^@)^@)^@)^@)^@)^@)PR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@PS )@@G@@AC0A)1BC7B@0A@4B@0CTNES1A@0ET#CK1A@9A80AK1A[IAC8A@7A)5ES)^@)^@)^@)^@)^@)PT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A87A@7B@0AC4AC0CTNES1A@0ET#CK1A@9A80AS1PV )@@G@@B[IA@5B@8A07ES0A@5A@0BDNAK3A*0A@2ES0A@4AK5BDN^@)^@)^@)^@)^@)^@)^@)^@)^@)PW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)9BC7B@0PX )@@G@@A@2AK0CTNES1A@0ET#CK1A@9A80AK1B[IA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)PY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PZ )@@G@@^@)^@)^@)^@)@W@W=@AC1A@7A@7B@1A)5A00CTNES1A@0ET#CK1A@9A80A)1A9IA@4B@8AK7QA )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC3A02A@0AK0AK0A80CLIES1QC )@@G@@A@0ET#CK1A@9A01AK2A9IA@0AC4A*3ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)QE )@@G@@@W@W=@AC1A@6A@0AK0A89A00CLIES1A@0ET#CK1A@9A80A)1A1IA@0A@6AK0ES)^@)^@)^@)QF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)2BC7B@0A@0A80CTNES1A@0ET#CK1A@9QH )@@G@@A80AK1ADIA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A03QJ )@@G@@A@7B@1AS5B@0CTNES1A@0ET#CK1A@9A80AS0A-IF@7AS9AC1ES0A@5A80ALNAK3AS4A*2ES)QK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QL )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC0AK4A@7B@1A@9B@0CTNES1A@0ET#CK1A@9A80AC2A-IAK7QM )@@G@@AS4AS3ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@8BC7B@0A@2A80QO )@@G@@CTNC*1A@0ET#CK1A@9A80A)1B[IA@0B@8A)7C*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QQ )@@G@@^@)^@)@W@W=@AC0A*5BC7B@0AC0A*0CTNES1A@0ET#CK1A@9A80AK2A-IA@0B@3A)2ES)^@)QR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QS )@@G@@^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)@W@W=@AC0AS1BC7B@0A@3A@0CTNES1A@0ET#QT )@@G@@CK1A@9A80AC3ADIA@0B@0B@6ETFA@8A@8A1N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@QV )@@G@@AC1A@8BC7B@0A@7A*0CTNC*1A@0ET#CK1A@9A80A)1B[IA@0B@8A)7C*)^@)^@)^@)^@)^@)QW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@5BC7B@0A@9B@0CTNES1A@0ET#CK1A@9A80A)1QY )@@G@@A(IA@0B@0B@6ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AK4A@7B@1RA )@@G@@A@9BC0CTNES1A@0ET#CK1A@9A80AC2A-IAK7AS4AS3ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)RB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RC )@@G@@^@)^@)^@)^@)@W@W=@AC1A@5BC7B@0A@9A00CTNES1A@0ET#CK1A@9A80A)1A(IA@0B@8A)7RD )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@5BC7B@0A@9A)0CTNES1RF )@@G@@A@0ET#CK1A@9A80A)1A(IA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RH )@@G@@@W@W=@AC1A@5BC7B@0A@4AK0CTNES1A@0ET#CK1A@9A80A)1A(IA@0B@8A)7ETFA@8B@4A9NRI )@@G@@ES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@7A@7B@1A)5BC0CTNES1A@0ET#CK1A@9RK )@@G@@A80A)1A1IA@4A@0A)8ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@8RM )@@G@@BC7B@0A@2A*0CTNC*1A@0ET#CK1A@9A80A)1B[IA@0B@8A)7C*)^@)^@)^@)^@)^@)^@)^@)RN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RO )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC1A@5A@7B@0AC1A*0CTNES1A@0ET#CK1A@9A80A)1A(IA@1RP )@@G@@A@3AK2ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AS1A@7B@0A02A80RR )@@G@@CTNES1A@0ET#CK1A@9A80AC3ADIAK7AS4AS3ES0AC0AS2ALN^@)^@)^@)^@)^@)^@)^@)^@)RS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RT )@@G@@^@)^@)@W@W=@AC0AS1BC7B@0A@8AC0CTNES1A@0ET#CK1A@9A80AC3ADIA@0B@3A)2ETFA@8RU )@@G@@AS4ALN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RV )@@G@@^@)^@)^@)^@)^@)^@)A*0^@)^@)^@)^@)^@)@W@W=@AC1A@7BC7B@0A@6A80CTNES1A@0ET#RW )@@G@@CK1A@9A80A)1A9IA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@RY )@@G@@AC1A@8BC7B@0A@7B@0CTNC*1A@0ET#CK1A@9A80A)1B[IA@0B@8A)7C*)^@)^@)^@)^@)^@)RZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AK4A@7B@1A@9A@0CTNES1A@0ET#CK1A@9A80AC2SB )@@G@@A-IAK7AS4AS3ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)8BC7B@0SD )@@G@@A@1BC0CTNES1A@0ET#CK1A@9A80AK1A9IA@0B@0B@6ETFA@8A@8A1N^@)^@)^@)^@)^@)^@)SE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*0^@)SF )@@G@@^@)^@)^@)^@)@W@W=@AC0A)8BC7B@0A@1A)0CTNES1A@0ET#CK1A@9A80AK1A1IA@0B@8A)7SG )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A*1A@7B@1A*5A80CTNES1SI )@@G@@A@0ET#CK1A@9A80AK2A[IA@0A*0A@9ES0AK7A02ATNA@2A@3AK1ES)^@)^@)^@)^@)^@)^@)SJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SK )@@G@@@W@W=@AC1AS5A)9A80A82A00CLIES1A@0ET#CK1A@9A00A*1A-IA@0A*0A@9ES0A@5A80ALNSL )@@G@@F@7AS9A)2ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AK9BC7B@0AC2A80CTNES1A@0ET#CK1A@9SN )@@G@@A80AC2BDIA@0B@3A)2ETFA@8AS4ALN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A*6SP )@@G@@A@7B@1A*0A@0CTNES1A@0ET#CK1A@9A80AK2A(IA@0A*0A@9ES0A@5AK1A(N^@)^@)^@)^@)SQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SR )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC0A)8A@0AK0A85A80CLIES1A@0ET#CK1A@9A80AK1A9IA@0SS )@@G@@AC6BC3ES0AK7A02ATN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ST )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)2BC7B@0A@5B@0SU )@@G@@CTNES1A@0ET#CK1A@9A80AK1ADIA@0B@0B@6ETFA@8A@8A1NES0A@0A@1ES)^@)^@)^@)^@)SV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SW )@@G@@^@)^@)@W@W=@AC0A)2BC7B@0A@0B@0CTNES1A@0ET#CK1A@9A80AK1ADIA@0B@8A)7ETFA@8SX )@@G@@B@4A9NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AS4A)9A81AK3A@0CLIES1A@0ET#SZ )@@G@@CK1A@9A80AK0ATIA@0A*0A@9ES0A@5A80ALNF@7AS9A)2ES)^@)^@)^@)^@)^@)^@)^@)^@)TA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@TB )@@G@@AC1A@8BC7B@0A@2A00CTNC*1A@0ET#CK1A@9A80A)1B[IA@0B@0B@6C*)^@)^@)^@)^@)^@)TC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A86A@0AK0A80AS0CLIES1A@0ET#CK1A@9A80AS1TE )@@G@@A9IA@2BC7A87ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@6A@0AK0TG )@@G@@A84A80CLIES1A@0ET#CK1A@9A80A)1A1IA@0AC0AS2ES2AS5A@0ALN^@)^@)^@)^@)^@)^@)TH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*0^@)TI )@@G@@^@)^@)^@)^@)@W@W=@AC1A@6A@7B@0AC2A*0CTNES1A@0ET#CK1A@9A80A)1A1IAK3A*0A@2TJ )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A03A@7B@1AC7AK0CTNES1TL )@@G@@A@0ET#CK1A@9A80AS0A-IA@0A@8AC0ES0A)8B@2A9N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TN )@@G@@@W@W=@AC1BC8A)9A80A84AC0CLIES1A@0ET#CK1A@9A00A81A1IA@0A*0A@9ES0A@5A80ALNTO )@@G@@F@7AS9A)2ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A87A@7B@0AC4A@0CTNES1A@0ET#CK1A@9TQ )@@G@@A80AS1B[IA@0A*0A@9ES0B@3B@2A-NA@0A00A82ES2A*7AC8B[NB@1A*9AK8ES)^@)^@)^@)TR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A*5TS )@@G@@BC7B@0AC0AS0CTNES1A@0ET#CK1A@9A80AK2A-IA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)TT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TU )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC0AK4A@7B@1A@9AK0CTNES1A@0ET#CK1A@9A80AC2A-IAK7TV )@@G@@AS4AS3ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC9A@7B@0A*8A00TX )@@G@@CTNES1A@0ET#CK1A@9A80A)0BDIA@4B@8AK7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TZ )@@G@@^@)^@)@W@W=@AC0A87A@0AK0A81A*0CLIES1A@0ET#CK1A@9A80AS1B[IA@0A@5A@5ES)^@)UA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@8BC7B@0A@7A)0CTNC*1A@0ET#UC )@@G@@CK1A@9A80A)1B[IA@0B@8A)7C*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@UE )@@G@@AC0AK4A@7B@1A@9AS0CTNES1A@0ET#CK1A@9A80AC2A-IAK7AS4AS3ES)^@)^@)^@)^@)^@)UF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AK0A@7B@1A@5AS0CTNES1A@0ET#CK1A@9A80AC2UH )@@G@@A[IA@4B@8AK7ES1A02AK8BDNA@0A01B@9ES0A@4A@5ADN^@)^@)^@)^@)^@)^@)^@)^@)^@)UI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A05A@7B@0UJ )@@G@@A08AK0CTNES1A@0ET#CK1A@9A80AS0A1IA@4B@8AK7ES0A@4AS0BDN^@)^@)^@)^@)^@)^@)UK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*0^@)UL )@@G@@^@)^@)^@)^@)@W@W=@AC0AK9BC7B@0AC2A*0CTNES1A@0ET#CK1A@9A80AC2BDIA@0B@8A)7UM )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A*1BC7B@0AC1BC0CTNES1UO )@@G@@A@0ET#CK1A@9A80AK2A[IA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)UP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UQ )@@G@@@W@W=@AC0AK7A@7B@1A@7A00CTNES1A@0ET#CK1A@9A80AC2A9IA@0A)5A)9ES0A@2AS0ATNUR )@@G@@A@0A)4A05ES0A@4AK5BDN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)US )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AK0A@7B@0A@2AS0CTNES1A@0ET#CK1A@9UT )@@G@@A80AC2A[IBC9B@9AC4ES0A@1B@1B[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@6UV )@@G@@A@7B@0AC2AC0CTNES1A@0ET#CK1A@9A80A)1A1IA@1A@8A@1ES)^@)^@)^@)^@)^@)^@)^@)UW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UX )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC0A*2BC7B@0AC2A80CTNES1A@0ET#CK1A@9A80AK2ADIA@0UY )@@G@@B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@6A@0AK0A89B@0VA )@@G@@CLIES1A@0ET#CK1A@9A80A)1A1IA@0A)7A)7ES0AC0AS2ALNA@0A@6AK0ES0A@0B@1A[NAK4VB )@@G@@A@6A03ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VC )@@G@@^@)^@)@W@W=@AC1A@7BC7B@0A@6BC0CTNDC1A@0ET#CK1A@9A80A)1A9IA@0B@8A)7DC)^@)VD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AS1A@7B@0A07B@0CTNES1A@0ET#VF )@@G@@CK1A@9A80AC3ADIA@2AS0A*1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@VH )@@G@@AC0A05A@7B@0A08AC0CTNES1A@0ET#CK1A@9A80AS0A1IA@4B@8AK7ES)^@)^@)^@)^@)^@)VI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)9BC7B@0A@7A00CTNES1A@0ET#CK1A@9A80AK1VK )@@G@@B[IA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A*2BC7B@0VM )@@G@@AC2AS0CTNES1A@0ET#CK1A@9A80AK2A[IA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)VN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VO )@@G@@^@)^@)^@)^@)@W@W=@AC0A@9A@7B@0AS9A*0CTNES1A@0ET#CK1A@9A80AC0BDIA@0AC5AS7VP )@@G@@ES0A*8B@6A9NA@0A02A*4ES0A@5A@0BDNA@0A)2A*9ES0B@3B@2A-N^@)^@)^@)^@)^@)^@)VQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A*5BC7B@0AC0A)0CTNES1VR )@@G@@A@0ET#CK1A@9A80AK2A-IA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)VS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VT )@@G@@@W@W=@AC1A@5A@7B@0AC1B@0CTNES1A@0ET#CK1A@9A80A)1A(IA@4AK0A87ES)^@)^@)^@)VU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0AK9BC7B@0AC2AC0CTNES1A@0ET#CK1A@9VW )@@G@@A80AC2BDIA@0B@0B@6ETFA@8A@8A1NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0BC8VY )@@G@@A@7B@0A@5B@0CTNES1A@0ET#CK1A@9A80A)0B[IBC9B@9AC4ES0A@5A@0BDNA@0AS0AS8ES)VZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WA )@@G@@^@)^@)^@)^@)^@)^@)@W@W=@AC0AS1A@7B@0A07A00CTNES1A@0ET#CK1A@9A80AC3ADIA@9WB )@@G@@A04A89ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@5BC7B@0A@4A80WD )@@G@@CTNES1A@0ET#CK1A@9A80A)1A(IA@0B@8A)7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WF )@@G@@^@)^@)@W@W=@AC1A@5BC7B@0A@9AK0CTNES1A@0ET#CK1A@9A80A)1A-IA@0B@0B@6ETFA@8WG )@@G@@A@8A1NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A87A@7B@0AC4A*0CTNES1A@0ET#WI )@@G@@CK1A@9A80AS1B[IA@5B@8A07ES0A@5A@0BDN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@WK )@@G@@AC1A@8A@7B@0A)3AK0CTNDC1A@0ET#CK1A@9A80A)1B[IAK7AC3BC5DC0AC0AS2AL^^@)^@)WL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@8A@0AK0A86A@0CLIES1A@0ET#CK1A@9A80A)1WN )@@G@@B[IA@9A04A89ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC1A@6A@7B@0WP )@@G@@AC2B@0CTNES1A@0ET#CK1A@9A80A)1A1IA@0A82A00ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)WQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WR )@@G@@^@)^@)^@)^@)@W@W=@AC1A@7A@7B@1A)5A*0CTNES1A@0ET#CK1A@9A80A)1A9IA@0A*0A@9WS )@@G@@ES2AC0B@4BDNA@0AS0AS8ES2AC6A05A(N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@W@W=@AC0A)8A@0AK0A85AS0CLIES1WU )@@G@@A@0ET#CK1A@9A80AK1A9IA@0A82A00ES0AK7A02ATNA@0A*0A@9ES)^@)^@)^@)^@)^@)^@)WV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WW )@@G@@@W@W=@AC0A03A@7B@1AC7AC0CTNES1A@0ET#CK1A@9A80AS0A-IA@5B@8A07ES)^@)^@)^@)WX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WY )@@G@@^@)^@)^@)^@)A*0^@)^@)^@)@@@@C'@^X@C8@^V@C5@^U@@@@@@@C\@^S@C,@^Q@C:@^N@C%WZ )@@G@@@^L@C*@^G@@@@^F@C+@^C@@@@^B@CY@^A@CX@^^@CV@^@@CU@@@@CR@#.@@@@#/@CM@#9@@@XA )@@G@@@@@@CH@#7@CG@#5@CF@#3@@@@#1@CB@#?@CA@#:@C]@#%@@@@#$@C@@#=@@@@#+@B8@#)@B7XB )@@G@@@#Y@B2@#U@B,@@@@B(@#R@@@@@@@B*@#P@@@@@@@B&@#O@B>@#M@B-@#J@B)@#I@BW@#E@BVXC )@@G@@@@@@@@@#D@@@@#C@BQ@#B@@@@@@@BP@##@BO@#]@BK@]_@BJ@@@@BG@]'@@@@]8@BE@]4@@@XD )@@G@@@]2@BB@]!@@@@]?@B @]%@@@@](@B@@]&@A_@]>@A.@]+@A/@@@@A4@]U@@@@@@@A,@]Q@A!XE )@@G@@@@@@A%@]M@A(@]L@A*@]I@@@@@@@A+@]F@@@@@@@A)@]A@@@@] @AY@]]@AX@][@AW@[/@@@XF )@@G@@@[;@AP@[8@AO@[7@AK@[3@@@@@@@AG@[,@AD@@@@AC@[!@A @[?@A[@[(@A@@@@@ /@[>@@@XG )@@G@@@@@@ 9@[X@ 8@[W@ 5@[Q@ 2@[O@@@@[M@ 0@@@@ ,@[G@@@@@@@ %@[A@@@@[ @ &@[#@@@XH )@@G@@@[[@ <@@/@@@@@@@ Z@@8@@@@@7@ W@@2@ V@@@@ R@@!@ Q@@@@ O@@%@@@@@@@ L@@$@ KXI )@@G@@@@&@ F@@<@ D@@@@ C@@Y@ B@@@@ @@X@ ^@@@@ [@@S@ @@@Q@^_@@P@^"@@N@^/@@L@^;XJ )@@G@@@@@@^8@@H@@@@@G@^4@@E@^3@@D@^0@@B@^\@@A@^:@@#@@@@@@@^*@@]@@@@@[@^+@@^@C;XK )@@G@@C$SIIOB @@G@@@@@@@@@ABSW$ @@H@@@@@@@@@SWTCH$ @@H@@^@@@@@@XL )@@G@@RSGAW$ @@H@@ @@@@@@C$BK2 @@G@@@@@@@@@DRU$DB7 @@G@@@@@@@@@XM )@@G@@PI$NIT @@H@@C@@@@@@PLS$U @@G@@@@@@@@@MSG$BK @@G@@@@@@@@@XN )@@G@@SUVAL$ @@H@@F@@@@@@NRT$ @@H@@@@@@@@@APRTCA$ @@H@@@@@@@@@XO )@@G@@IOI$ @@H@@I@@@@@@FACIL$ @@H@@J@@@@@@BBEOF$ @@H@@K@@@@@@XP )@@G@@PLS$4 @@G@@@@@@@@@PFS$ @@H@@M@@@@@@BDI8$ @@G@@@@@@@@@XQ )@@G@@OPN$BK @@G@@O@@@@@@BFOR$I @@G@@@@@@@@@ADED$ @@H@@@@@@@@@XR )@@G@@HVTS$CB @@G@@R@@@@@@C$STRING @@G@@@@@@@@@XCTS$ @@H@@T@@@@@@XS )@@G@@IOWI$ @@H@@U@@@@@@NWBCB$ @@G@@V@@@@@@FTN$CHKU @@G@@W@@@@@@XT )@@G@@C$INITIAL @@G@@@@@@@@@DMR$ @@G@@@@@@@@@USER$ @@H@@Z@@@@@@XU )@@G@@RSTRA$ @@H@@)@@@@@@RSGTW$ @@H@@-@@@@@@II$ @@H@@+@@@@@@XV )@@G@@C2I$ @@G@@@@@@@@@REWI$ @@H@@=@@@@@@AWAIT$ @@H@@>@@@@@@XW )@@G@@PIRCB$ @@G@@@@@@@@@BLD$BK @@G@@@@@@@@@RPCTA$ @@H@@*@@@@@@XX )@@G@@CREL$ @@H@@(@@@@@@STAT$ @@G@@@@@@@@@NAME$ @@H@@:@@@@@@XY )@@G@@IOXI$ @@H@@?@@@@@@DREG$ @@H@@@@@@@@@UNTR$ @@H@@,@@@@@@XZ )@@G@@PRTCA$ @@H@@\@@@@@@ACT$ @@H@@0@@@@@@MASM$ @@G@@1@@@@@@YA )@@G@@FURPR$ @@G@@@@@@@@@PRTCN$ @@H@@3@@@@@@LCORE$ @@H@@4@@@@@@YB )@@G@@IODYA$ @@H@@5@@@@@@DM$WT @@H@@6@@@@@@CSF$ @@H@@@@@@@@@YC )@@G@@CR$PHS @@H@@@@@@@@@TSQCL$ @@H@@9@@@@@@SCR$ @@H@@'@@@@@@YD )@@G@@FBLKSX$ @@H@@;@@@@@@C$SYMBIONT @@G@@@@@@@@@FSF$ @@H@@.@@@@@@YE )@@G@@DADD$ @@H@@"@@@@@@FTN$3 @@G@@_@@@@@@FTN$XR @@G@[@@@@@@@YF )@@G@@DBP$DB15 @@G@@@@@@@@@DM$SOS @@H@[]@@@@@@USR$BK @@G@@@@@@@@@YG )@@G@@INT$ @@H@[^@@@@@@HVTS$LIS @@G@@@@@@@@@BT$ENA @@H@@@@@@@@@YH )@@G@@W$ @@H@[B@@@@@@RSGTA$ @@H@[C@@@@@@PCHCA$ @@H@[D@@@@@@YI )@@G@@AC$NIT @@H@[E@@@@@@DBP$DB45 @@G@[F@@@@@@APL$T @@G@@@@@@@@@YJ )@@G@@TDATE$ @@H@[H@@@@@@SRD$ @@H@[I@@@@@@PCHCN$ @@H@[J@@@@@@YK )@@G@@HVTS$FTNB1 @@G@[K@@@@@@FMS8BDI$ @@G@[L@@@@@@DBP$IB3 @@G@@@@@@@@@YL )@@G@@COM$ @@H@[N@@@@@@CMSA$ @@H@@@@@@@@@FTN$XI @@G@[P@@@@@@YM )@@G@@CMP$BK @@G@@@@@@@@@RSGPR$ @@H@[R@@@@@@MCT$ @@H@[S@@@@@@YN )@@G@@CRTN$ @@H@[T@@@@@@QEDIT$ @@G@[U@@@@@@HVTS$FTNHELP@@G@[V@@@@@@YO )@@G@@DBP$DB24 @@G@@@@@@@@@BFTN$I @@G@@@@@@@@@SWAIT$ @@H@[Y@@@@@@YP )@@G@@SREG$ @@H@[Z@@@@@@REL$ @@H@[)@@@@@@IOLNK$ @@H@[-@@@@@@YQ )@@G@@DBB$ @@H@[+@@@@@@UMEDI$ @@G@[<@@@@@@PL1$3 @@G@[=@@@@@@YR )@@G@@DMR2$ @@G@@@@@@@@@PCT$ @@H@[&@@@@@@CO$MIT @@H@[$@@@@@@YS )@@G@@DBP$DB54 @@G@[*@@@@@@C$CONV @@G@@@@@@@@@PUNCH$ @@H@[%@@@@@@YT )@@G@@RPG$1 @@G@[:@@@@@@BDI1$ @@G@@@@@@@@@ERRMSGBDI$ @@G@@@@@@@@@YU )@@G@@BDSPT$ @@H@@@@@@@@@RLINK$ @@H@[\@@@@@@FACIT$ @@H@[0@@@@@@YV )@@G@@DBITS$ @@H@[1@@@@@@QPRBK$ @@G@[2@@@@@@DBP$DB33 @@G@@@@@@@@@YW )@@G@@RSWAP$ @@H@[4@@@@@@CALL$ @@H@[5@@@@@@MINT$ @@G@[6@@@@@@YX )@@G@@HVTS$FSCN @@G@@@@@@@@@PRT$BK @@G@@@@@@@@@SNAP$ @@H@[9@@@@@@YY )@@G@@ACLIST$ @@H@['@@@@@@ED$ @@G@@@@@@@@@APNCHA$ @@H@@@@@@@@@YZ )@@G@@DCYC$ @@H@[.@@@@@@HVTS$BSCN @@G@["@@@@@@DBP$DB12 @@G@[_@@@@@@ZA )@@G@@C2M$ @@G@]@@@@@@@C$DML @@G@@@@@@@@@SRT$BK @@G@@@@@@@@@ZB )@@G@@DBACK$ @@H@]#@@@@@@CMD$ @@H@]^@@@@@@CA$REL @@H@@@@@@@@@ZC )@@G@@MCH$BK @@G@@@@@@@@@IALL$ @@H@]B@@@@@@DGET$ @@H@]C@@@@@@ZD )@@G@@DMR6$ @@G@]D@@@@@@DIAG$ @@G@]E@@@@@@DBP$DB42 @@G@@@@@@@@@ZE )@@G@@SYMB$ @@H@]G@@@@@@C$IBM @@G@]H@@@@@@C$CFH @@G@@@@@@@@@ZF )@@G@@SMU$ @@H@]J@@@@@@C$BK1 @@G@]K@@@@@@BDI5$ @@G@@@@@@@@@ZG )@@G@@PB$DIS @@H@@@@@@@@@DGETP$ @@H@]N@@@@@@APCHCN$ @@H@]O@@@@@@ZH )@@G@@HVTS$HELP @@G@]P@@@@@@DBP$DB21 @@G@@@@@@@@@TSQRG$ @@H@]R@@@@@@ZI )@@G@@PRINT$ @@H@]S@@@@@@PFTEXT$ @@H@]T@@@@@@EQUIP$ @@H@@@@@@@@@ZJ )@@G@@FCREG$ @@H@]V@@@@@@DMBTS$ @@H@]W@@@@@@CTSA$ @@H@]X@@@@@@ZK )@@G@@AREAD$ @@H@]Y@@@@@@TASKS$ @@G@]Z@@@@@@PLS$3 @@G@])@@@@@@ZL )@@G@@DBP$DB51 @@G@]-@@@@@@C$MCS @@G@@@@@@@@@RSDEM$ @@H@]<@@@@@@ZM )@@G@@CW$ @@H@]=@@@@@@PRMG$3 @@G@@@@@@@@@PRMG$2 @@G@@@@@@@@@ZN )@@G@@DREAD$ @@H@]$@@@@@@CR$LGR @@H@]*@@@@@@APL$B @@G@@@@@@@@@ZO )@@G@@RL$BAK @@H@@@@@@@@@TRTIM$ @@H@]:@@@@@@RSI$ @@H@@@@@@@@@ZP )@@G@@RT$PSI @@H@@@@@@@@@UT$UPR @@H@],@@@@@@STAB$ @@H@]\@@@@@@ZQ )@@G@@RSGTI$ @@H@]0@@@@@@NIOCB$ @@G@]1@@@@@@CTS$MDS @@G@@@@@@@@@ZR )@@G@@APCHCA$ @@H@]3@@@@@@SCANNER$ @@G@@@@@@@@@SITID$ @@H@]5@@@@@@ZS )@@G@@PFUWL$ @@H@]6@@@@@@CKRS$ @@H@]7@@@@@@HVTS$FRUN @@G@@@@@@@@@ZT )@@G@@CR$ELG @@H@]9@@@@@@HVTS$SAV @@G@@@@@@@@@RT$PSD @@H@];@@@@@@ZU )@@G@@RSTRM$ @@H@]/@@@@@@MB$ @@H@].@@@@@@DRU$DB3 @@G@]"@@@@@@ZV )@@G@@BDI9$ @@G@@@@@@@@@UMEDD$ @@G@#@@@@@@@MDP$ @@G@#[@@@@@@ZW )@@G@@HVTS$BRUN @@G@@@@@@@@@HVTS$EXP @@G@@@@@@@@@UT$DEL @@H@#^@@@@@@ZX )@@G@@PSA$ @@H@# @@@@@@HVTS$LOC @@G@#A@@@@@@DRU$DB6 @@G@@@@@@@@@ZY )@@G@@UTILITY$ @@G@@@@@@@@@CYCLIM$ @@H@@@@@@@@@TFORK$ @@H@@@@@@@@@ZZ )@@G@@PUALT$ @@H@#F@@@@@@DACT$ @@H@#G@@@@@@CR$VAL @@H@#H@@@@@@AA )@@G@@CKFUL$ @@G@@@@@@@@@DMRMB2$ @@G@@@@@@@@@RSPUT$ @@H@#K@@@@@@AB )@@G@@CEND$ @@H@#L@@@@@@FTN$2 @@G@@@@@@@@@UT$UPA @@H@#N@@@@@@AC )@@G@@DRU$DB8 @@G@@@@@@@@@TPFLG$ @@H@@@@@@@@@CMH$ @@H@#Q@@@@@@AD )@@G@@CTS$ALT @@G@@@@@@@@@XRS$ @@H@#S@@@@@@TPLOG$ @@H@#T@@@@@@AE )@@G@@COND$ @@H@@@@@@@@@RSTRD$ @@H@#V@@@@@@MSSUM$ @@H@#W@@@@@@AF )@@G@@CLIST$ @@H@#X@@@@@@HVTS$FCOM @@G@@@@@@@@@PL1$2C @@G@#Z@@@@@@AG )@@G@@HVTS$STA @@G@@@@@@@@@BSRD$ @@H@#-@@@@@@PL1$2B @@G@@@@@@@@@AH )@@G@@PL1$2A @@G@#<@@@@@@C$FORM @@G@@@@@@@@@FORK$ @@H@#>@@@@@@AI )@@G@@BRD$ @@H@#&@@@@@@HVTS$BCOM @@G@@@@@@@@@DM$EOS @@H@#*@@@@@@AJ )@@G@@HVTS$II @@G@#(@@@@@@ACOB$6 @@G@@@@@@@@@CMI$ @@H@@@@@@@@@AK )@@G@@ACOB$4 @@G@@@@@@@@@PRNTA$ @@H@#!@@@@@@T$SCRN @@G@#,@@@@@@AL )@@G@@ISICB$ @@G@#\@@@@@@HVTS$FTNB2 @@G@#0@@@@@@ACOB$3 @@G@@@@@@@@@AM )@@G@@CS$PHS @@H@#2@@@@@@ACOB$2 @@G@@@@@@@@@ACTCDB$ @@G@#4@@@@@@AN )@@G@@ACOB$1 @@G@@@@@@@@@HVTS$MAS @@G@#6@@@@@@HVTS$APL @@G@@@@@@@@@AO )@@G@@SFLIT$ @@G@#8@@@@@@CMATH$ @@G@@@@@@@@@READA$ @@H@#'@@@@@@AP )@@G@@DMR3$ @@G@#;@@@@@@C2S$ @@G@@@@@@@@@UK$ONS @@H@@@@@@@@@AQ )@@G@@RT$ @@H@#"@@@@@@DUNLD$ @@H@#_@@@@@@ACCNT$ @@H@@@@@@@@@AR )@@G@@R$ @@H@^[@@@@@@MS$ @@H@^]@@@@@@MCORE$ @@H@^#@@@@@@AS )@@G@@BDI2$ @@G@@@@@@@@@DM$IOW @@H@^ @@@@@@DST$BK @@G@@@@@@@@@AT )@@G@@RLIST$ @@H@@@@@@@@@RFOR$I @@G@@@@@@@@@DLINK$ @@H@^D@@@@@@AU )@@G@@DBP$DB25 @@G@^E@@@@@@ACOB$5L @@G@@@@@@@@@TUT$BK @@G@@@@@@@@@AV )@@G@@SETBP$ @@H@^H@@@@@@RSGPU$ @@H@^I@@@@@@LINK$ @@H@^J@@@@@@AW )@@G@@E$RROR$ @@G@^K@@@@@@DBP$IB1 @@G@@@@@@@@@SCHBNK$ @@G@^M@@@@@@AX )@@G@@C$SISAM @@G@@@@@@@@@ASCII$ @@H@^O@@@@@@UMEDL$ @@G@^P@@@@@@AY )@@G@@DBP$DB55 @@G@@@@@@@@@CR$LOG @@H@^R@@@@@@LOG$BK @@G@@@@@@@@@AZ )@@G@@SUP$ @@H@^T@@@@@@DBP$IB4 @@G@@@@@@@@@RSPAR$ @@G@@@@@@@@@BA )@@G@@UT$EAQ @@H@^W@@@@@@CA$ASG @@H@@@@@@@@@WANY$ @@H@^Y@@@@@@BB )@@G@@CQUE$ @@H@^Z@@@@@@RMATH$ @@G@^)@@@@@@PLS$2 @@G@^-@@@@@@BC )@@G@@DBP$DB34 @@G@@@@@@@@@TWAIT$ @@H@^<@@@@@@SYSBAL$ @@H@^=@@@@@@BD )@@G@@PSF$ @@H@^>@@@@@@PFWL$ @@H@^&@@@@@@PFD$ @@H@^$@@@@@@BE )@@G@@APRINT$ @@H@@@@@@@@@TINTL$ @@H@^(@@@@@@ROUTE$ @@H@^%@@@@@@BF )@@G@@BDI6$ @@G@@@@@@@@@MF$ @@H@^?@@@@@@IDENT$ @@H@^!@@@@@@BG )@@G@@APUNCH$ @@H@^,@@@@@@DBP$DB13 @@G@@@@@@@@@APRNTA$ @@H@@@@@@@@@BH )@@G@@RT$OUT @@H@^1@@@@@@RSBAT$ @@H@^2@@@@@@CTSQ$ @@H@@@@@@@@@BI )@@G@@RSGDEM$ @@H@@@@@@@@@EXLNK$ @@H@^5@@@@@@DM$IO @@H@^6@@@@@@BJ )@@G@@DBP$DB43 @@G@^7@@@@@@BSCAN$ @@G@@@@@@@@@TIME$ @@H@^9@@@@@@BK )@@G@@RT$INT @@H@^'@@@@@@IOW$ @@H@@@@@@@@@HLP$BK @@G@@@@@@@@@BL )@@G@@RSTRY$ @@H@^.@@@@@@SM$EST @@G@@@@@@@@@RT$TRS @@H@@@@@@@@@BM )@@G@@DBP$DB22 @@G@@@@@@@@@ACOB$E @@G@@@@@@@@@REW$ @@H@ ]@@@@@@BN )@@G@@FTN$E @@G@ #@@@@@@FLIT$ @@G@@@@@@@@@SM$INIT @@G@@@@@@@@@BO )@@G@@MSALL$ @@H@ A@@@@@@DBP$DB52 @@G@@@@@@@@@FRM$BK @@G@@@@@@@@@BP )@@G@@EDJS$ @@H@@@@@@@@@UT$ERQ @@H@ E@@@@@@UTS4CB$ @@G@@@@@@@@@BQ )@@G@@UO$GET @@H@ G@@@@@@CPOOL$ @@H@ H@@@@@@QPABK$ @@G@ I@@@@@@BR )@@G@@HVTS$FTNLR @@G@ J@@@@@@FTN$1 @@G@@@@@@@@@APL$M2 @@G@@@@@@@@@BS )@@G@@MCSTAT$ @@H@ M@@@@@@DBP$DB31 @@G@ N@@@@@@APL$M1 @@G@@@@@@@@@BT )@@G@@RSCNTL$ @@H@ P@@@@@@LNAME$ @@H@@@@@@@@@HVTS$OLD @@G@@@@@@@@@BU )@@G@@FFORK$ @@H@ S@@@@@@PL1$E @@G@ T@@@@@@NUALG$I3 @@G@ U@@@@@@BV )@@G@@MCSUCB$BDI @@G@@@@@@@@@SRC$BK @@G@@@@@@@@@PNCHA$ @@H@ X@@@@@@BW )@@G@@PCTBD$ @@H@ Y@@@@@@PL1$R @@G@@@@@@@@@PB$CON @@H@ )@@@@@@BX )@@G@@CMO$ @@H@ -@@@@@@NUALG$I12 @@G@ +@@@@@@COMPEX$ @@G@@@@@@@@@BY )@@G@@GW$ @@H@ =@@@@@@PL1$1 @@G@ >@@@@@@DRU$DB10 @@G@@@@@@@@@BZ )@@G@@EXSNP$ @@H@ $@@@@@@ABORT$ @@H@ *@@@@@@HVTS$FTN4YI @@G@ (@@@@@@CA )@@G@@DRU$DB1 @@G@@@@@@@@@WEF$ @@H@ :@@@@@@MDEF$ @@G@ ?@@@@@@CB )@@G@@HVTS$FIN @@G@ !@@@@@@DMRCTR$ @@G@@@@@@@@@EABT$ @@H@ \@@@@@@CC )@@G@@DRU$DB4 @@G@@@@@@@@@C$LABEL @@G@ 1@@@@@@APL$D4 @@G@@@@@@@@@CD )@@G@@UT$TIM @@H@ 3@@@@@@C$TAPE @@G@ 4@@@@@@C$DIAG @@G@@@@@@@@@CE )@@G@@SM$ @@H@ 6@@@@@@MODE$ @@H@ 7@@@@@@HVTS$PUN @@G@@@@@@@@@CF )@@G@@C$MASS @@G@@@@@@@@@FEQP$ @@H@ '@@@@@@BDR$ @@H@ ;@@@@@@CG )@@G@@BANK$ @@H@@@@@@@@@TSA$ @@H@ .@@@@@@ABSR$ @@H@ "@@@@@@CH )@@G@@SRTUB$ @@G@ _@@@@@@HVTS$HEL @@G@@@@@@@@@HVTS$CON @@G@@@@@@@@@CI )@@G@@SW$ @@H@A]@@@@@@RSNOT$ @@H@A#@@@@@@PFI$ @@H@A^@@@@@@CJ )@@G@@ASM$ @@G@@@@@@@@@INFILE$ @@H@AA@@@@@@DK$ONS @@H@AB@@@@@@CK )@@G@@FI$HBK @@G@@@@@@@@@TREAD$ @@H@@@@@@@@@TFC$IO @@G@AE@@@@@@CL )@@G@@HVTS$AC1 @@G@AF@@@@@@DRU$DB9 @@G@@@@@@@@@BSD$ @@H@AH@@@@@@CM )@@G@@ATREAD$ @@H@AI@@@@@@DMR4$ @@G@AJ@@@@@@C$LION @@G@@@@@@@@@CN )@@G@@FFILEX$ @@H@AL@@@@@@PL1$5 @@G@AM@@@@@@PLS$E @@G@AN@@@@@@CO )@@G@@C2PP$ @@G@@@@@@@@@FS$REC @@H@@@@@@@@@XFR$ @@H@AQ@@@@@@CP )@@G@@SETC$ @@H@AR@@@@@@FREELX$ @@H@AS@@@@@@CJOIN$ @@H@AT@@@@@@CQ )@@G@@PLS$R @@G@AU@@@@@@CTS$ED @@G@AV@@@@@@BDI3$ @@G@@@@@@@@@CR )@@G@@RPG$3 @@G@@@@@@@@@DPY$BK @@G@@@@@@@@@ABR$ @@H@AZ@@@@@@CS )@@G@@PLS$1 @@G@@@@@@@@@RSPUN$ @@H@A-@@@@@@RSPLST$ @@H@@@@@@@@@CT )@@G@@INFO$ @@H@A<@@@@@@ADACT$ @@H@A=@@@@@@MCSNCB$BDI @@G@A>@@@@@@CU )@@G@@C$SDF @@G@A&@@@@@@APL$ @@G@A$@@@@@@ACOB$5A @@G@@@@@@@@@CV )@@G@@DMRMT$ @@G@@@@@@@@@IDX$BK @@G@@@@@@@@@CREG$ @@H@A:@@@@@@CW )@@G@@HVTS$DAT @@G@A?@@@@@@BDI11$ @@G@@@@@@@@@LUT$BK @@G@@@@@@@@@CX )@@G@@OPT$ @@H@A\@@@@@@CMS$ @@H@A0@@@@@@TFLIT$ @@G@A1@@@@@@CY )@@G@@HVTS$FTNBE @@G@A2@@@@@@DMATH$ @@G@A3@@@@@@C$ANS @@G@@@@@@@@@CZ )@@G@@SCRB$ @@H@A5@@@@@@RTN$ @@H@A6@@@@@@RSGET$ @@H@A7@@@@@@DA )@@G@@FITEM$ @@H@A8@@@@@@DKEY$ @@H@A9@@@@@@BSF$ @@H@A'@@@@@@DB )@@G@@PRMCDB$ @@G@A;@@@@@@APLREP$ @@G@@@@@@@@@CPBBNK$ @@G@@@@@@@@@DC )@@G@@RT$SCH @@H@A"@@@@@@BDI7$ @@G@@@@@@@@@CS$LOG @@H@@@@@@@@@DD )@@G@@CADD$ @@H@B[@@@@@@ACSF$ @@H@B]@@@@@@SM$MERGE @@G@B#@@@@@@DE )@@G@@SM$ERR @@G@B^@@@@@@C2A$ @@G@@@@@@@@@UO$OR @@H@BA@@@@@@DF )@@G@@HVTS$FTNL @@G@@@@@@@@@IOADH$ @@H@BC@@@@@@CMT$ @@H@BD@@@@@@DG )@@G@@DBP$DB35 @@G@@@@@@@@@DBP$IB2 @@G@BF@@@@@@CTS$I @@G@@@@@@@@@DH )@@G@@TRMRG$ @@H@BH@@@@@@TCORE$ @@H@BI@@@@@@SYSER$ @@H@@@@@@@@@DI )@@G@@PT$MN8 @@H@@@@@@@@@SIO$ @@H@BL@@@@@@DBP$IB5 @@G@BM@@@@@@DJ )@@G@@DBP$DB14 @@G@BN@@@@@@APL$D @@G@@@@@@@@@FTN$4S @@G@@@@@@@@@DK )@@G@@RLIB$ @@H@@@@@@@@@W$R$ @@H@BR@@@@@@RR$ @@H@BS@@@@@@DL )@@G@@RSFUL$ @@G@BT@@@@@@DBP$DB44 @@G@BU@@@@@@C$ACS @@G@@@@@@@@@DM )@@G@@SRTINIT$ @@G@@@@@@@@@RSTRO$ @@H@BX@@@@@@EXIT$ @@H@BY@@@@@@DN )@@G@@BDW$ @@H@BZ@@@@@@MDC$ @@G@@@@@@@@@ROFR$I @@G@@@@@@@@@DO )@@G@@TSF$ @@H@B+@@@@@@ME$GET @@H@B<@@@@@@ERRPR$ @@H@B=@@@@@@DP )@@G@@DBP$DB23 @@G@@@@@@@@@TFR$BK @@G@@@@@@@@@RDL$ @@H@B$@@@@@@DQ )@@G@@DLAPS$ @@H@@@@@@@@@DBP$DB53 @@G@@@@@@@@@TSWAP$ @@H@B%@@@@@@DR )@@G@@FC$SSN @@H@B:@@@@@@CTS$ @@H@B?@@@@@@FTN$U @@G@B!@@@@@@DS )@@G@@CONTB$ @@G@@@@@@@@@DM$RBK @@H@B\@@@@@@AREADA$ @@H@B0@@@@@@DT )@@G@@HVTS$MSG @@G@B1@@@@@@BCOB$I @@G@@@@@@@@@PRMDB$ @@H@B3@@@@@@DU )@@G@@IO$ @@H@B4@@@@@@EACQ$ @@H@B5@@@@@@SPICB$ @@G@B6@@@@@@DV )@@G@@APL$ERR$ @@G@@@@@@@@@HVTS$SNP @@G@@@@@@@@@LEVEL$ @@H@B9@@@@@@DW )@@G@@IOAXI$ @@H@B'@@@@@@EX$CRD @@H@B;@@@@@@CGET$ @@H@B/@@@@@@DX )@@G@@FTN$4 @@G@B.@@@@@@DMRMB$ @@G@B"@@@@@@DBP$DB32 @@G@B_@@@@@@DY )@@G@@C2D$ @@G@@@@@@@@@UNL$ @@H@C[@@@@@@DMR1$ @@G@@@@@@@@@DZ )@@G@@IOARB$ @@H@C#@@@@@@NUALG$I4 @@G@C^@@@@@@CDMATH$ @@G@C @@@@@@EA )@@G@@APL$U @@G@@@@@@@@@FFL$BK @@G@@@@@@@@@TLBL$ @@H@CC@@@@@@EB )@@G@@PRMGA$ @@H@CD@@@@@@ERR$ @@H@CE@@@@@@DBP$DB11 @@G@@@@@@@@@EC )@@G@@UNLNK$ @@H@@@@@@@@@FTN$YI @@G@@@@@@@@@USRID$ @@H@CI@@@@@@ED )@@G@@TPLIB$ @@H@CJ@@@@@@CS$OVR @@H@CK@@@@@@DBP$DB41 @@G@CL@@@@@@EE )@@G@@C2E$ @@G@@@@@@@@@PSR$ @@H@CN@@@@@@DMBT$ @@H@CO@@@@@@EF )@@G@@ABSAD$ @@H@CP@@@@@@TASK$ @@G@CQ@@@@@@PL1$4 @@G@@@@@@@@@EG )@@G@@TRUN$ @@H@CS@@@@@@SD$ @@H@CT@@@@@@HVTS$FTNB4 @@G@@@@@@@@@EH )@@G@@DM$FAC @@H@@@@@@@@@LOAD$ @@H@CW@@@@@@RPG$2 @@G@@@@@@@@@EI )@@G@@BT$DIS @@H@@@@@@@@@READ$ @@H@CZ@@@@@@FL$BOX @@H@C)@@@@@@EJ )@@G@@HVTS$BFTN @@G@C-@@@@@@FANG$ @@G@@@@@@@@@WALL$ @@H@C<@@@@@@EK )@@G@@LABEL$ @@H@C=@@@@@@DATE$ @@H@C>@@@@@@SM$SORT @@G@C&@@@@@@EL )@@G@@DMR5$ @@G@C$@@@@@@C2F$ @@G@@@@@@@@@UO$AND @@H@C(@@@@@@EM )@@G@@DRU$DB2 @@G@@@@@@@@@HVTS$CRE @@G@@@@@@@@@MSCON$ @@H@C?@@@@@@EN )@@G@@LOG$ @@H@C!@@@@@@BDI4$ @@G@@@@@@@@@MAR$BK @@G@@@@@@@@@EO )@@G@@WAIT$ @@H@C0@@@@@@RSGIO$ @@H@C1@@@@@@APRTCN$ @@H@C2@@@@@@EP )@@G@@DRU$DB5 @@G@C3@@@@@@C$RPW @@G@C4@@@@@@BDI10$ @@G@@@@@@@@@EQ )@@G@@UNLCK$ @@H@C6@@@@@@ACQ$ @@H@C7@@@@@@SCPAR$ @@G@@@@@@@@@ER )@@G@@RSAGAW$ @@H@C9@@@@@@HVTS$AC2 @@G@@@@@@@@@RB$ @@H@C;@@@@@@ES )@@G@@CKPAR$ @@G@@@@@@@@@ . XREFET )@@G@@@H@@@@ DL A0,REFTAB,X3 SWITCH ITEMS EU )@@G@@ . XREF@H@@@@ DL A2,REFTAB,X1 EV )@@G@@ . XREF@H@@@@ DS A0,REFTAB,X1 EW )@@G@@ . XREF@H@@@@ DS A2,REFTAB,EX )@@G@@X3 . XREF@H@@@@ JMGI EY )@@G@@ X1,SREF1 . XREF@H@@@@. EZ )@@G@@ . XREFFA )@@G@@@H@@@@. .....LOAD REFERENCES BACK FROM SCRATCH FILE.... FB )@@G@@ . XREF@H@@@@. FC )@@G@@ . XREF@H@@@@ L A6,REFPKT+5 FD )@@G@@ . XREF@H@@@@ MSI,I A6,28 FE )@@G@@ A6 = NO. OF WORDS IN FILE . XREF@H@@@@ L,LH FF )@@G@@ A0,RBUFX A0 = L(REFTAB AREA) . XREF@H@@@@ FG )@@G@@ AU A0,A6 A1 = LAST ADDRESS + 1 . XREFFH )@@G@@@H@@@@ JZ A6,MOVREF NOTHING IN FILE FI )@@G@@ . XREF@H@@@@ AU,I A1,REFLNG ALLOW SPACE FOFJ )@@G@@R LAST BUFFER . XREF@H@@@@ TG A2,XLAST SUFK )@@G@@PPRESS XREF LISTING IF . XREF@H@@@@ J REFOVR FL )@@G@@ NOT ENOUGH ROOM . XREF@H@@@@ LXI FM )@@G@@ A0,A6 SET UP PACKET FOR READ . XREF@H@@@@ FN )@@G@@ S A0,REFPKT+4 . XREFFO )@@G@@@H@@@@ SZ REFPKT+5 FP )@@G@@ . XREF@H@@@@ L,I A0,R$ FQ )@@G@@ . XREF@H@@@@ S,C2 A0,REFPKT+3 FR )@@G@@ . XREF@H@@@@ L,I A0,REFPKT FS )@@G@@ . XREF@H@@@@ ER FT )@@G@@ IOW$ READ THE FILE . XREF@H@@@@ FU )@@G@@ L,C1 A2,REFPKT+3 TEST STATUS OF READ . XREFFV )@@G@@@H@@@@ JNZ A2,REFERR I/O ERROR FW )@@G@@ . XREF@H@@@@MOVREF L X1,(1,REFBUF) MOVE UP DATA FFX )@@G@@ROM LAST BUFFER . XREF@H@@@@ LXI,I A1,1 FY )@@G@@ . XREF@H@@@@ L,RH R1,RBUFX FZ )@@G@@ . XREF@H@@@@ BT GA )@@G@@ A1,0,*X1 . XREF@H@@@@ GB )@@G@@ LXI,I A1,0 . XREFGC )@@G@@@H@@@@ AN,LH A1,RBUFX GD )@@G@@ . XREF@H@@@@ SSL A1,1 A1 = NO. OF REGE )@@G@@FERENCES . XREF@H@@@@ S,RH A1,RBUFX GF )@@G@@ . XREF@H@@@@ TNZ,RH RBUFX GG )@@G@@ . XREF@H@@@@ J GH )@@G@@ ND8B NO REFERENCES . XREF@H@@@@ GI )@@G@@ LA A0,(1,('L,0 . ')) LOAD EJECT COMMAND . XREFGJ )@@G@@@H@@@@ ER PRTCN$ EJECT A PAGE GK )@@G@@ . XREF@H@@@@ LA A0,(PRF 1,REFHEDL,REFHED) LOAD COMGL )@@G@@MAND TO PRINT HEAD. XREF@H@@@@ ER PRINT$ PRGM )@@G@@INT THE CROSS-REFERENCE HEADIN. XREF@H@@@@ LA A0,(PRF 1,GN )@@G@@,0) LOAD SKIP 1 LINE COMMAND . XREF@H@@@@ ER GO )@@G@@ PRINT$ SKIP LINE AFTER HEADING . XREF@H@@@@. GP )@@G@@ . XREFGQ )@@G@@@H@@@@. .....LIST REFERENCES..... GR )@@G@@ . XREF@H@@@@. GS )@@G@@ . XREF@H@@@@ L,LH A6,RBUFX GT )@@G@@ . XREF@H@@@@ AN,I A6,REFTAB GU )@@G@@ . XREF@H@@@@ SSL GV )@@G@@ A6,1 . XREF@H@@@@ GW )@@G@@ AN,I A6,1 A6 = NUMBER OF ITEMS - 1 . XREFGX )@@G@@@H@@@@ L X2,(2,REFTAB) X2 = INDEX TO ITEMS GY )@@G@@ . XREF@H@@@@PRTREF L A0,0,X2 GET LABEL GZ )@@G@@ . XREF@H@@@@ L A1,BLK HA )@@G@@ . XREF@H@@@@ TP A0 HB )@@G@@ . XREF@H@@@@ DL HC )@@G@@ A0,ETWLT,A0 DOUBLE WORD ITEM . XREF@H@@@@ HD )@@G@@ DS A0,CBUF INSERT LABEL IN PRINT LINE . XREFHE )@@G@@@H@@@@ L,T1 A0,1,X2 A0 = ITEM MODE HF )@@G@@ . XREF@H@@@@ L A10,1,X2 A10 = POSSIBLEHG )@@G@@ VALUE . XREF@H@@@@ JNB A0,PREF1 HH )@@G@@ . XREF@H@@@@ DL A11,(' UHI )@@G@@NDEFINED') EXTERNAL REFERENCE . XREF@H@@@@ TNE,I HJ )@@G@@ A0,023 . XREF@H@@@@ HK )@@G@@ J PREF1A . XREFHL )@@G@@@H@@@@ TE,I A0,03777 TEST SPECIAL MODE FLAG TO HM )@@G@@SEE IF. XREF@H@@@@ J PREF1B LARGE VALUE SHHN )@@G@@OULD COME FROM . XREF@H@@@@ L,RH A10,1,X2 RIHO )@@G@@GHT HALF OF VALUE WORD ONLY . XREF@H@@@@ J PREF1C HP )@@G@@ . XREF@H@@@@PREF1B DL HQ )@@G@@ A11,(' LARGER') 36-BIT VALUE . XREF@H@@@@ HR )@@G@@ L,RH A1,1,X2 GET L(36-BIT VALUE IN FILTAB) . XREFHS )@@G@@@H@@@@ JZ A1,PREF1A NOT THERE HT )@@G@@ . XREF@H@@@@ L A10,0,A1 HU )@@G@@ . XREF@H@@@@PREF1C LMJ X3,BTO COHV )@@G@@NVERT VALUE TO FIELDATA . XREF@H@@@@PREF1A DS A11,CBUF+2HW )@@G@@ INSERT IN PRINT LINE . XREF@H@@@@ J HX )@@G@@ PREF2 . XREF@H@@@@PREF1 HY )@@G@@ L A1,BLK . XREFHZ )@@G@@@H@@@@ S A1,CBUF+2 IA )@@G@@ . XREF@H@@@@ LMJ X3,BTO CONVERT TO FIEIB )@@G@@LDATA . XREF@H@@@@ TOP,I A0,02000 LOIC )@@G@@CATION COUNTER RELOC ? . XREF@H@@@@ J PREF2A ID )@@G@@ NO. DON'T EDIT IT . XREF@H@@@@ SA,C3 IE )@@G@@ A11,CBUF+4 SET LAST LC DIGIT IN LINE . XREF@H@@@@ IF )@@G@@ SSL A11,6 RIGHT JUSTIFY LAST DIGIT . XREFIG )@@G@@@H@@@@ SA,C2 A11,CBUF+4 STORE FIRST DIGIT IH )@@G@@ . XREF@H@@@@PREF2A S A12,CBUF+3 STORE VALUE OFII )@@G@@ SYMBOL . XREF@H@@@@PREF2 L A7,0,*X2 A7IJ )@@G@@ = LABEL (OR LABEL LOC'N) . XREF@H@@@@ LXI,I X4,2 IK )@@G@@ PRINT REFERENCES TO LABEL . XREF@H@@@@ LXM,LH IL )@@G@@@O@O=@D00A@4A)8AK1DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IM )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS1BC0A@0A@0AS1BC)^@)^[I@O@O=@D00A@4A)8AK1IN )@@G@@E[TA@7AK7B@4^@)AC9^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2IO )@@G@@A08DK0A@0A@0AS1EK0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8AK1DD#A@8AK2B@4^@)^@)IP )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS1AK0IQ )@@G@@A@0A@0AS1AK)^@)^[I@O@O=@D00A@4A)8AK1E[TA@9A@6B@4^@)A)8^@)^@)^@)CLGCDUC(FIR )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A08EC0A@0A@0AS1DS0A@0A@3A@0^C)^@0^[IIS )@@G@@@O@O=@D00A@4A)8AK1DD#A@9AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)IT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS0A00A@0A@0AS0A0)^@)^[I@O@O=@D00A@4A)8AK1IU )@@G@@E[TAC0AC2B@4^@)A84^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2IV )@@G@@A09D*0A@0A@0AS0D80A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8AK1DD#AC0AK2B@4^@)^@)IW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9BC0IX )@@G@@A@0A@0AK9BC)^@)^[I@O@O=@D00A@4A)8AK1E[TAC0AS1B@4^@)B@7^@)^@)^@)CLGCDUC(FIY )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A80DK0A@0A@0AK9EK0A@0A@3A@0^C)^@0^[IIZ )@@G@@@O@O=@D00A@4A)8AK1DD#AC1AK7B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JA )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9AK0A@0A@0AK9AK)^@)^[I@O@O=@D00A@4A)8AK1JB )@@G@@E[TAC1AK8B@4^@1A@5^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2JC )@@G@@A80EC0A@0A@0AK9DS0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8AK1DD#AC2AC9B@4^@)^@)JD )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8A*0JE )@@G@@A@0A@0AK8A*)^@)^[I@O@O=@D00A@4A)8AK1E[TA@1A@3B@5^@1AK3^@)^@)^@)CLGCDUC(FJF )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A81D00A@0A@0AK8D00A@0A@3A@0^C)^@0^[IJG )@@G@@@O@O=@D00A@4A)8AK1DD#A@1AK5B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7BC0A@0A@0AK7BC)^@)^[I@O@O=@D00A@4A)8AK1JI )@@G@@E[TA@2A@5B@5^@1A)7^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2JJ )@@G@@A82DK0A@0A@0AK7EK0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8AK1DD#A@2AK0B@5^@)^@)JK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK7AK0JL )@@G@@A@0A@0AK7AK)^@)^[I@O@O=@D00A@4A)8AK1E[TA@3A@6B@5^@1A08^@)^@)^@)CLGCDUC(FJM )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A82EC0A@0A@0AK7DS0A@0A@3A@0^C)^@0^[IJN )@@G@@@O@O=@D00A@4A)8AK1DD#A@3AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JO )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK6A*0A@0A@0AK6A*)^@)^[I@O@O=@D00A@4A)8AK1JP )@@G@@E[TA@4AC4B@5^@1B@9^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2JQ )@@G@@A83D00A@0A@0AK6D00A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8AK1DD#A@4AC9B@5^@)^@)JR )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK5B@0JS )@@G@@A@0A@0AK5B@)^@)^[I@O@O=@D00A@4A)8AK1E[TA@5A@7B@5^@2AC1^@)^@)^@)CLGCDUC(FJT )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A84DS0A@0A@0AK5EC0A@0A@3A@0J*)^@0^[IJU )@@G@@@O@O=@D00A@4A)8AK1DD#A@5AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JV )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK5AC0A@0A@0AK5AC)^@)^[I@O@O=@D00A@4A)8AK1JW )@@G@@E[TA@5AK8B@5^@2AK5^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2JX )@@G@@A84EK0A@0A@0AK5DK0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#A@6AK0B@5^@)^@)JY )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK4A)0JZ )@@G@@A@0A@0AK4A))^@)^[I@O@O=@D00A@4A)8AK1E[TA@7A@5B@5^@)^@4^@)^@)^@)CLGCDUC(FKA )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A85D80A@0A@0AK4D*0A@0A@3A@0J*)^@0^[IKB )@@G@@@O@O=@D00A@4A)8AK1DD#A@7AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KC )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3A80A@0A@0AK3A8)^@)^[I@O@O=@D00A@4A)8AK1KD )@@G@@E[TA@7AS0B@5^@)AK1^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2KE )@@G@@A86D)0A@0A@0AK3E@0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#A@8AC6B@5^@)^@)KF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3AC0KG )@@G@@A@0A@0AK3AC)^@)^[I@O@O=@D00A@4A)8AK1E[TA@8AK8B@5^@)A)2^@)^@)^@)CLGCDUC(FKH )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A86EK0A@0A@0AK3DK0A@0A@3A@0J*)^@0^[IKI )@@G@@@O@O=@D00A@4A)8AK1DD#A@9AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KJ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2A)0A@0A@0AK2A))^@)^[I@O@O=@D00A@4A)8AK1KK )@@G@@E[TAC0A@1B@5^@)A05^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2KL )@@G@@A87D80A@0A@0AK2D*0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#AC0AK2B@5^@)^@)KM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1C80KN )@@G@@A@0A@0AK1C8)^@)^[I@O@O=@D00A@4A)8AK1E[TAC1A@6B@5^@)BC1^@)^@)^@)CLGCDUC(FKO )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A88D)0A@0A@0AK1E@0A@0A@3A@0J*)^@0^[IKP )@@G@@@O@O=@D00A@4A)8AK1DD#AC1AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KQ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1JS0A@0A@0AK1JS)^@)^[I@O@O=@D00A@4A)8AK1KR )@@G@@E[TAC2AC1B@5^@1AC4^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2KS )@@G@@A89J*0A@0A@0AK1J*0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#AC2AC3B@5^@)^@)KT )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK0CS0KU )@@G@@A@0A@0AK0CS)^@)^[I@O@O=@D00A@4A)8AK1E[TA@1AC0B@6^@1AK7^@)^@)^@)CLGCDUC(FKV )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A89E@0A@0A@0AK0D)0A@0A@3A@0J*)^@0^[IKW )@@G@@@O@O=@D00A@4A)8AK1DD#A@1AC5B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)KX )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9C00A@0A@0AC9C0)^@)^[I@O@O=@D00A@4A)8AK1KY )@@G@@E[TA@2AC4B@6^@1A*3^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2KZ )@@G@@B@0D*0A@0A@0AC9D80A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#A@2AK0B@6^@)^@)LA )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8DC0LB )@@G@@A@0A@0AC8DC)^@)^[I@O@O=@D00A@4A)8AK1E[TA@3A@3B@6^@1A04^@)^@)^@)CLGCDUC(FLC )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@1DK0A@0A@0AC8EK0A@0A@3A@0J*)^@0^[ILD )@@G@@@O@O=@D00A@4A)8AK1DD#A@3AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LE )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8CK0A@0A@0AC8CK)^@)^[I@O@O=@D00A@4A)8AK1LF )@@G@@E[TA@4A@1B@6^@1B@4^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2LG )@@G@@B@1EC0A@0A@0AC8DS0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#A@4AC8B@6^@)^@)LH )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7C*0LI )@@G@@A@0A@0AC7C*)^@)^[I@O@O=@D00A@4A)8AK1DD#A@5AK1B@6^@)^@)^@)^@)^@)DDIE- EL LJ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC7C*0A@0A@0AC7C*)^@)^[ILK )@@G@@@O@O=@D00A@4A)8AK1E[TA@6A@6B@6^@2AS1^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)LL )@@G@@^@)^@)^@)^@0A@0A@5A05J*0A@0A@0AS5J*0A@0A@6A@0J*)^@1^[I@O@O=@D00A@4A)8AK1LM )@@G@@DD#A@6AC6B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LN )@@G@@A@0A@0A@0A@0AC6CC0A@0A@0AC6CC)^@)^[I@O@O=@D00A@4A)8AK1E[TA@7AC1B@6^@)^@8LO )@@G@@^@)^@)^@)CLGCDUC(F -E^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@3EK0A@0A@0AC6DK0LP )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#A@7AC8B@6^@)^@)^@)^@)^@)DDIE- EL LQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5CS0A@0A@0AC5CS)^@)^[ILR )@@G@@@O@O=@D00A@4A)8AK1E[TA@8A@5B@6^@)AK5^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)LS )@@G@@^@)^@)^@)^@0A@0A@2B@4E@0A@0A@0AC5D)0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1LT )@@G@@DD#A@8AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LU )@@G@@A@0A@0A@0A@0AC4C00A@0A@0AC4C0)^@)^[I@O@O=@D00A@4A)8AK1DD#A@9AC8B@6^@)^@)LV )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC4C00LW )@@G@@A@0A@0AC4C0)^@)^[I@O@O=@D00A@4A)8AK1E[TA@9AC8B@6^@)A*7^@)^@)^@)CLGCDUC(FLX )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A80EC0A@0A@0AK9DS0A@0A@3A@0J*)^@1^[ILY )@@G@@@O@O=@D00A@4A)8AK1E[TAC0AC0B@6^@)A83^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)LZ )@@G@@^@)^@)^@)^@0A@0A@3A@0J*0A@0A@0A@0A@0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1MA )@@G@@DD#AC0AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0MB )@@G@@A@0A@0A@0A@0AC3CK0A@0A@0AC3CK)^@)^[I@O@O=@D00A@4A)8AK1E[TAC1AC9B@6^@1A@1MC )@@G@@^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A83D80A@0A@0AK6D*0MD )@@G@@A@0A@3A@0J*)^@1^[I@O@O=@D00A@4A)8AK1DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL ME )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC3CK0A@0A@0AC3CK)^@)^[IMF )@@G@@@O@O=@D00A@4A)8AK1E[TAC2A@3B@6^@1A@9^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)MG )@@G@@^@)^@)^@)^@0A@0A@3A@0J*0A@0A@0A@0A@0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1MH )@@G@@DD#AC2AC1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0MI )@@G@@A@0A@0A@0A@0AC1D@0A@0A@0AC1D@)^@)^[I@O@O=@D00A@4A)8AK1DL AC2AC9B@6A@0AC0MJ )@@G@@^@)^@)^@)AC2 83 88A0)E[TD(O^[MC(O^9^^[IETA^@)^@0A@0A@3A@0A@0A@0A@0A@0A@0MK )@@G@@A@0A@3A@0A@)^@0^[I@O@O=@D00A@4A)8AK1E[TA@1A@9B@7^@1AK9^@)^@)^@)CLGCDUC(FML )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@8DS0A@0A@0AC1EC0A@0A@3A@0J*)^@0^[IMM )@@G@@@O@O=@D00A@4A)8AK1DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MN )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC1D@0A@0A@0AC1D@)^@)^[I@O@O=@D00A@4A)8AK1MO )@@G@@E[TA@2A@4B@7^@1A)9^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5MP )@@G@@B@8DS0A@0A@0AC1EC0A@0A@6A@0J*)^@1^[I@O@O=@D00A@4A)8AK1DD#A@2AC9B@7^@)^@)MQ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC0CS0MR )@@G@@A@0A@0AC0CS)^@)^[I@O@O=@D00A@4A)8AK1E[TA@2AK6B@7^@1A05^@)^@)^@)CLGCDUC(FMS )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@9E@0A@0A@0AC0D)0A@0A@3A@0J*)^@0^[IMT )@@G@@@O@O=@D00A@4A)8AK1DD#A@3AK3B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)MU )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@9C00A@0A@0A@9C0)^@)^[I@O@O=@D00A@4A)8AK1MV )@@G@@E[TA@4AC5B@7^@1BC9^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2MW )@@G@@BC0D*0A@0A@0A@9D80A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#A@4AK1B@7^@)^@)MX )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8DC0MY )@@G@@A@0A@0A@8DC)^@)^[I@O@O=@D00A@4A)8AK1E[TA@5A@8B@7^@2AC5^@)^@)^@)CLGCDUC(FMZ )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC1DK0A@0A@0A@8EK0A@0A@3A@0J*)^@0^[INA )@@G@@@O@O=@D00A@4A)8AK1DD#A@5AK0B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NB )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8CK0A@0A@0A@8CK)^@)^[I@O@O=@D00A@4A)8AK1NC )@@G@@E[TA@6A@5B@7^@2AS4^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2ND )@@G@@BC1EC0A@0A@0A@8DS0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#A@6AC8B@7^@)^@)NE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@7C)0NF )@@G@@A@0A@0A@7C))^@)^[I@O@O=@D00A@4A)8AK1E[TA@7A@7B@7^@)^@5^@)^@)^@)CLGCDUC(FNG )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC2D80A@0A@0A@7D*0A@0A@3A@0J*)^@0^[INH )@@G@@@O@O=@D00A@4A)8AK1DD#A@7AC7B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NI )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@6C80A@0A@0A@6C8)^@)^[I@O@O=@D00A@4A)8AK1NJ )@@G@@E[TA@8A@3B@7^@)AK4^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2NK )@@G@@BC3D)0A@0A@0A@6E@0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#A@8AK1B@7^@)^@)NL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@6JS0NM )@@G@@A@0A@0A@6JS)^@)^[I@O@O=@D00A@4A)8AK1E[TA@9AC1B@7^@)A*2^@)^@)^@)CLGCDUC(FNN )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC4J*0A@0A@0A@6J*0A@0A@3A@0J*)^@0^[INO )@@G@@@O@O=@D00A@4A)8AK1DD#A@9AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NP )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5CK0A@0A@0A@5CK)^@)^[I@O@O=@D00A@4A)8AK1NQ )@@G@@E[TAC0AC2B@7^@)A83^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2NR )@@G@@BC4EC0A@0A@0A@5DS0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#AC0AK1B@7^@)^@)NS )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@4C*0NT )@@G@@A@0A@0A@4C*)^@)^[I@O@O=@D00A@4A)8AK1E[TAC1A@9B@7^@)BC3^@)^@)^@)CLGCDUC(FNU )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC5D00A@0A@0A@4D00A@0A@3A@0J*)^@0^[INV )@@G@@@O@O=@D00A@4A)8AK1DD#AC1AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)NW )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@3C80A@0A@0A@3C8)^@)^[I@O@O=@D00A@4A)8AK1NX )@@G@@E[TAC2A@4B@7^@1AC0^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2NY )@@G@@BC6D)0A@0A@0A@3E@0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#AC2AC8B@7^@)^@)NZ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@3JS0OA )@@G@@A@0A@0A@3JS)^@)^[I@O@O=@D00A@4A)8AK1E[TA@1A@7B@8^@1AS0^@)^@)^@)CLGCDUC(FOB )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC4J*0A@0A@0A@6J*0A@0A@3A@0J*)^@1^[IOC )@@G@@@O@O=@D00A@4A)8AK1DD#A@1AK0B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)OD )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@3JS0A@0A@0A@3JS)^@)^[I@O@O=@D00A@4A)8AK1OE )@@G@@E[TA@2A@2B@8^@1A)8^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3OF )@@G@@A@0J*0A@0A@0A@0A@0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#A@2AK0B@8^@)^@)OG )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@1C*0OH )@@G@@A@0A@0A@1C*)^@)^[I@O@O=@D00A@4A)8AK1E[TA@3A@4B@8^@1A81^@)^@)^@)CLGCDUC(FOI )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC8D00A@0A@0A@1D00A@0A@3A@0J*)^@0^[IOJ )@@G@@@O@O=@D00A@4A)8AK1DD#A@3AK2B@8^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)OK )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0D@0A@0A@0A@0D@)^@)^[I@O@O=@D00A@4A)8AK1OL )@@G@@E[TA@3AS0B@8^@1B@9^@)^@)^@)CLGCDUC(F ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2OM )@@G@@BC9DS0A@0A@0A@0EC0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8AK1DD#A@4AK0B@8^@)^@)ON )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0JS0OO )@@G@@A@0A@0A@0JS)^@)^[I@O@O=@D00A@4A)8AK1E[TA@4AK8B@8^@2A@9^@)^@)^@)CLGCDUC(FOP )@@G@@ ))DK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A@0J*0A@0A@0A@0A@0A@0A@3A@0J*)^@0^[IOQ )@@G@@@O@O=@D00A@4A)8AK1DL A@6A@1B@8^@)DL ^@)^@)^@)EL C1PD1^^[JE1 ELKFDHE))^@)OR )@@G@@^@)^@)^@)^@0A@0A@2B@9AC0A@0A@0A@0A@0A@0A@2B@9AC)^@0^[I@O@O=@D00A@4A)8AS1OS )@@G@@D-KA@8AC8A88A08BC5^@)^@)^@)D-JCDI^[KELDD1#DDKCDG^@)^@)^@)^@)^@)^@0A@1A@0OT )@@G@@A@0JS0A@0A@0A@0JS0A@1A@0A@0JS)^@0^[I@O@O=@D00A@4A)8AS1D-KA@1AC2A89B@0A05OU )@@G@@^@)^@)^@)CLMCD^FC)^@)^@)^@)^@)E[[E-MDD#DS)DK)^@0A@1A@0A@0JS0A@0A@0A@0A@0OV )@@G@@A@1A@0A@0A@)^@0^[I@O@O=@D00A@4A)8AS1D-KA@8AK1A89BC7A09^@)^@)^@)CLMCD^FC?OW )@@G@@^@)^@)^@)^@)E[[E-MDD#DS)DK)^@0A@1AK5A@0JS0A@0A@0A@0A@0A@1AK5A@0A@)^@0^[IOX )@@G@@@O@O=@D00A@4A)8AS1D-KA@1AC1B@0A@2A08^@)^@)^@)CLMCD^FC)E[[E-MDD#DS)DK)^@)OY )@@G@@^@)^@)^@)^@0A@1AK5A@0JS0A@0A@0A@0A@0A@1AK5A@0A@)^@0^[I@O@O=@D00A@4A)8AS1OZ )@@G@@DD#A@3AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PA )@@G@@A@0JS0A@0A@1AC2C*0A@0A@1AC2C*)^@)^[I@O@O=@D00A@4A)8AS1E[TA@4A@2B@1^@2AC1PB )@@G@@^@)^@0A@0CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AK2J*0A@0A@1AC2D00PC )@@G@@A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1DD#A@4AK0B@1^@)^@)^@)^@)^@)DDIE- EL PD )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0JS0A@0A@1AC1C80A@0A@1AC1C8)^@)^[IPE )@@G@@@O@O=@D00A@4A)8AS1E[TA@5A@6B@1^@2AS5^@)^@0A@0CLMCD^FC?^[K^@)^@)^@)^@)^@)PF )@@G@@^@)^@)^@)^@0A@0A@3AK2EC0A@0A@1AC1E@0A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1PG )@@G@@DD#A@5AC9B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PH )@@G@@A@0JS0A@0A@1AC0DC0A@0A@1AC0DC)^@)^[I@O@O=@D00A@4A)8AS1E[TA@5AK9B@1^@2A*1PI )@@G@@^@)^@0A@0CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AK3D80A@0A@1AC0EK0PJ )@@G@@A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1DD#A@6AC7B@1^@)^@)^@)^@)^@)DDIE- EL PK )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1AC0AC0A@0A@1AC0AC)^@)^[IPL )@@G@@@O@O=@D00A@4A)8AS1E[TA@7A@7B@1^@)AK7^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)PM )@@G@@^@)^@)^@)^@0A@0A@3AK4D*0A@0A@1AC0DK0A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1PN )@@G@@DD#A@7AK0B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PO )@@G@@A@0A@0A@0A@1A@9AS0A@0A@1A@9AS)^@)^[I@O@O=@D00A@4A)8AS1E[TA@8A@5B@1^@)A)8PP )@@G@@^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AK5DS0A@0A@1A@9D)0PQ )@@G@@A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1DD#A@8AC9B@1^@)^@)^@)^@)^@)DDIE- EL PR )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A@8A*0A@0A@1A@8A*)^@)^[IPS )@@G@@@O@O=@D00A@4A)8AS1E[TA@9A@4B@1^@)A80^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)PT )@@G@@^@)^@)^@)^@0A@0A@3AK6J*0A@0A@1A@8D00A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1PU )@@G@@DD#A@9AK1B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0PV )@@G@@A@0A@0A@0A@1A@7A00A@0A@1A@7A0)^@)^[I@O@O=@D00A@4A)8AS1E[TAC0A@6B@1^@)BC1PW )@@G@@^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AK6EK0A@0A@1A@7D80PX )@@G@@A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1DD#AC0AC9B@1^@)^@)^@)^@)^@)DDIE- EL PY )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A@6B@0A@0A@1A@6B@)^@)^[IPZ )@@G@@@O@O=@D00A@4A)8AS1E[TAC1A@5B@1^@1AC3^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)QA )@@G@@^@)^@)^@)^@0A@0A@3AK7E@0A@0A@1A@6EC0A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1QB )@@G@@DD#AC1AC8B@1^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QC )@@G@@A@0A@0A@0A@1A@6A@0A@0A@1A@6A@)^@)^[I@O@O=@D00A@4A)8AS1E[TAC2A@3B@1^@1AS1QD )@@G@@^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AK8D00A@0A@1A@6J*0QE )@@G@@A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1DD#AC2AC6B@1^@)^@)^@)^@)^@)DDIE- EL QF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A@5AK0A@0A@1A@5AK)^@)^[IQG )@@G@@@O@O=@D00A@4A)8AS1E[TA@1A@4B@2^@1A)9^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)QH )@@G@@^@)^@)^@)^@0A@0A@3AK9D)0A@0A@1A@5DS0A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1QI )@@G@@DD#A@1AC8B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QJ )@@G@@A@0A@0A@0A@1A@4A)0A@0A@1A@4A))^@)^[I@O@O=@D00A@4A)8AS1E[TA@2A@3B@2^@1A82QK )@@G@@^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AS0DK0A@0A@1A@4D*0QL )@@G@@A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1DD#A@2AC7B@2^@)^@)^@)^@)^@)DDIE- EL QM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A@3A*0A@0A@1A@3A*)^@)^[IQN )@@G@@@O@O=@D00A@4A)8AS1E[TA@3AC1B@2^@1BC8^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)QO )@@G@@^@)^@)^@)^@0A@0A@3AS1J*0A@0A@1A@3D00A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1QP )@@G@@DD#A@3AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QQ )@@G@@A@0A@0A@0A@1A@2A80A@0A@1A@2A8)^@)^[I@O@O=@D00A@4A)8AS1E[TA@4A@6B@2^@2AC6QR )@@G@@^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AS1EC0A@0A@1A@2E@0QS )@@G@@A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1DD#A@4AC9B@2^@)^@)^@)^@)^@)DDIE- EL QT )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A@1BC0A@0A@1A@1BC)^@)^[IQU )@@G@@@O@O=@D00A@4A)8AS1E[TA@5AC1B@2^@2A)0^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)QV )@@G@@^@)^@)^@)^@0A@0A@3AS2D80A@0A@1A@1EK0A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1QW )@@G@@DD#A@5AC8B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0QX )@@G@@A@0A@0A@0A@1A@1A@0A@0A@1A@1A@)^@)^[I@O@O=@D00A@4A)8AS1E[TA@5AK8B@2^@2A*3QY )@@G@@^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AS3D00A@0A@1A@1J*0QZ )@@G@@A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1DD#A@6AC7B@2^@)^@)^@)^@)^@)DDIE- EL RA )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A@0AK0A@0A@1A@0AK)^@)^[IRB )@@G@@@O@O=@D00A@4A)8AS1E[TA@7A@7B@2^@)AK6^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)RC )@@G@@^@)^@)^@)^@0A@0A@3AS4D)0A@0A@1A@0DS0A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1RD )@@G@@DD#A@7AK0B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0RE )@@G@@A@0A@0A@0A@0BC9A)0A@0A@0BC9A))^@)^[I@O@O=@D00A@4A)8AS1E[TA@8A@2B@2^@)A)4RF )@@G@@^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AS5DK0A@0A@0BC9D*0RG )@@G@@A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1DD#A@8AC7B@2^@)^@)^@)^@)^@)DDIE- EL RH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC8A*0A@0A@0BC8A*)^@)^[IRI )@@G@@@O@O=@D00A@4A)8AS1DD#A@9AK0B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)RJ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC8A*0A@0A@0BC8A*)^@)^[I@O@O=@D00A@4A)8AS1RK )@@G@@E[TA@9AK1B@2^@)B@0^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2RL )@@G@@AS7D00A@0A@1BC7J*0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#AC0AK1B@2^@)^@)RM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC7BC0RN )@@G@@A@0A@0BC7BC)^@)^[I@O@O=@D00A@4A)8AS1E[TAC0AK9B@2^@1A@8^@)^@)^@)CLMCD^FC?RO )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AS6D80A@0A@0BC7EK0A@0A@4AS4D0)^@1^[IRP )@@G@@@O@O=@D00A@4A)8AS1DD#AC1AC8B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)RQ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC7AC0A@0A@0BC7AC)^@)^[I@O@O=@D00A@4A)8AS1RR )@@G@@E[TAC1AC9B@2^@1AK3^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3RS )@@G@@AS7D*0A@0A@0BC7DK0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#AC2AK1B@2^@)^@)RT )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC6AS0RU )@@G@@A@0A@0BC6AS)^@)^[I@O@O=@D00A@4A)8AS1E[TAC2AK2B@2^@1A)4^@)^@)^@)CLMCD^FC?RV )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AS8DS0A@0A@0BC6D)0A@0A@4AS4D0)^@1^[IRW )@@G@@@O@O=@D00A@4A)8AS1DD#A@1AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)RX )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC5A)0A@0A@0BC5A))^@)^[I@O@O=@D00A@4A)8AS1RY )@@G@@E[TA@1AK1B@3^@1A04^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3RZ )@@G@@AS9DK0A@0A@0BC5D*0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@2AC7B@3^@)^@)SA )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC4A00SB )@@G@@A@0A@0BC4A0)^@)^[I@O@O=@D00A@4A)8AS1E[TA@2AK4B@3^@1B@8^@)^@)^@)CLMCD^FC?SC )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3AS9EK0A@0A@0BC4D80A@0A@4AS4D0)^@1^[ISD )@@G@@@O@O=@D00A@4A)8AS1DD#A@3AC7B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)SE )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC3A80A@0A@0BC3A8)^@)^[I@O@O=@D00A@4A)8AS1SF )@@G@@E[TA@3AK1B@3^@2A@5^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3SG )@@G@@A)0EC0A@0A@0BC3E@0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@4AC9B@3^@)^@)SH )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC2BC0SI )@@G@@A@0A@0BC2BC)^@)^[I@O@O=@D00A@4A)8AS1E[TA@4AK1B@3^@2AK7^@)^@)^@)CLMCD^FC?SJ )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A)1D80A@0A@0BC2EK0A@0A@4AS4D0)^@1^[ISK )@@G@@@O@O=@D00A@4A)8AS1E[TA@5AC6B@3^@2A)4^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)SL )@@G@@^@)^@)^@)^@0A@0A@4AS4D00A@0A@0A@0A@0A@0A@4AS4D0)^@0^[I@O@O=@D00A@4A)8AS1SM )@@G@@DD#A@5AC8B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0SN )@@G@@A@0A@0A@0A@0BC0BC0A@0A@0BC0BC)^@)^[I@O@O=@D00A@4A)8AS1DD#A@6AK0B@3^@)^@)SO )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC0BC0SP )@@G@@A@0A@0BC0BC)^@)^[I@O@O=@D00A@4A)8AS1E[TA@6AK3B@3^@2A81^@)^@)^@)CLMCD^FC?SQ )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A*2E@0A@0A@1B@1EC0A@0A@4AS4D0)^@1^[ISR )@@G@@@O@O=@D00A@4A)8AS1DD#A@7AC9B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)SS )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0BC0AS0A@0A@0BC0AS)^@)^[I@O@O=@D00A@4A)8AS1ST )@@G@@E[TA@7AK7B@3^@)AC8^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3SU )@@G@@A)4DS0A@0A@0BC0D)0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@8AC8B@3^@)^@)SV )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@9A)0SW )@@G@@A@0A@0B@9A))^@)^[I@O@O=@D00A@4A)8AS1E[TA@8AS0B@3^@)A)3^@)^@)^@)CLMCD^FC?SX )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A)5DK0A@0A@0B@9D*0A@0A@4AS4D0)^@1^[ISY )@@G@@@O@O=@D00A@4A)8AS1DD#A@9AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)SZ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@8A00A@0A@0B@8A0)^@)^[I@O@O=@D00A@4A)8AS1TA )@@G@@E[TA@9AK3B@3^@)A00^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3TB )@@G@@A)5EK0A@0A@0B@8D80A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#AC0AC9B@3^@)^@)TC )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@7A80TD )@@G@@A@0A@0B@7A8)^@)^[I@O@O=@D00A@4A)8AS1E[TAC0AK0B@3^@)A89^@)^@)^@)CLMCD^FC?TE )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A)6EC0A@0A@0B@7E@0A@0A@4AS4D0)^@1^[ITF )@@G@@@O@O=@D00A@4A)8AS1DD#AC1AK1B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)TG )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@6B@0A@0A@0B@6B@)^@)^[I@O@O=@D00A@4A)8AS1TH )@@G@@E[TAC2A@2B@3^@1A@8^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3TI )@@G@@A)7E@0A@0A@0B@6EC0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#AC2AK0B@3^@)^@)TJ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@6A@0TK )@@G@@A@0A@0B@6A@)^@)^[I@O@O=@D00A@4A)8AS1E[TAC2AK0B@3^@1AK0^@)^@)^@)CLMCD^FC?TL )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A)8D00A@0A@0B@6J*0A@0A@4AS4D0)^@1^[ITM )@@G@@@O@O=@D00A@4A)8AS1DD#A@1AC7B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)TN )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@5AC0A@0A@0B@5AC)^@)^[I@O@O=@D00A@4A)8AS1TO )@@G@@E[TA@1AK5B@4^@1A)4^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3TP )@@G@@A)9D*0A@0A@0B@5DK0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@2AK0B@4^@)^@)TQ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@4AK0TR )@@G@@A@0A@0B@4AK)^@)^[I@O@O=@D00A@4A)8AS1E[TA@2AK3B@4^@1A05^@)^@)^@)CLMCD^FC?TS )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*0D)0A@0A@0B@4DS0A@0A@4AS4D0)^@1^[ITT )@@G@@@O@O=@D00A@4A)8AS1DD#A@3AK1B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)TU )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@3AS0A@0A@0B@3AS)^@)^[I@O@O=@D00A@4A)8AS1TV )@@G@@E[TA@3AK6B@4^@1B@7^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3TW )@@G@@A*1DS0A@0A@0B@3D)0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@4AC9B@4^@)^@)TX )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@2A*0TY )@@G@@A@0A@0B@2A*)^@)^[I@O@O=@D00A@4A)8AS1E[TA@4AK3B@4^@2A@6^@)^@)^@)CLMCD^FC?TZ )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*2J*0A@0A@0B@2D00A@0A@4AS4D0)^@1^[IUA )@@G@@@O@O=@D00A@4A)8AS1E[TA@5AK1B@4^@2AK6^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)UB )@@G@@^@)^@)^@)^@0A@0A@3A*2EK0A@0A@0B@1D80A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1UC )@@G@@DD#A@5AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UD )@@G@@A@0A@0A@0A@0B@1A00A@0A@0B@1A0)^@)^[I@O@O=@D00A@4A)8AS1DD#A@6AK1B@4^@)^@)UE )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0B@0A80UF )@@G@@A@0A@0B@0A8)^@)^[I@O@O=@D00A@4A)8AS1E[TA@6AK1B@4^@2A)8^@)^@)^@)CLMCD^FC?UG )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*3EC0A@0A@0B@0E@0A@0A@4AS4D0)^@1^[IUH )@@G@@@O@O=@D00A@4A)8AS1DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)UI )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A89B@0A@0A@0A89B@)^@)^[I@O@O=@D00A@4A)8AS1UJ )@@G@@E[TA@7AK7B@4^@)AC9^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3UK )@@G@@A*4E@0A@0A@0A89EC0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@8AK2B@4^@)^@)UL )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A88BC0UM )@@G@@A@0A@0A88BC)^@)^[I@O@O=@D00A@4A)8AS1E[TA@9A@4B@4^@)A)6^@)^@)^@)CLMCD^FC?UN )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*5D80A@0A@0A88EK0A@0A@4AS4D0)^@1^[IUO )@@G@@@O@O=@D00A@4A)8AS1DD#A@9AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)UP )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A88A@0A@0A@0A88A@)^@)^[I@O@O=@D00A@4A)8AS1UQ )@@G@@E[TA@9AK4B@4^@)A00^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3UR )@@G@@A*6D00A@0A@0A88J*0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#AC0AK2B@4^@)^@)US )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A87AK0UT )@@G@@A@0A@0A87AK)^@)^[I@O@O=@D00A@4A)8AS1E[TAC0AK6B@4^@)B@4^@)^@)^@)CLMCD^FC?UU )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*7D)0A@0A@0A87DS0A@0A@4AS4D0)^@1^[IUV )@@G@@@O@O=@D00A@4A)8AS1E[TAC1AK0B@4^@1A@1^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)UW )@@G@@^@)^@)^@)^@0A@0A@3A*8DS0A@0A@0A86D)0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1UX )@@G@@DD#AC1AK7B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0UY )@@G@@A@0A@0A@0A@0A86AS0A@0A@0A86AS)^@)^[I@O@O=@D00A@4A)8AS1E[TAC2AC8B@4^@1AC9UZ )@@G@@^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A*9DK0A@0A@0A85D*0VA )@@G@@A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#AC2AC9B@4^@)^@)^@)^@)^@)DDIE- EL VB )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A85A)0A@0A@0A85A))^@)^[IVC )@@G@@@O@O=@D00A@4A)8AS1DD#A@1AK5B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)VD )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A84A*0A@0A@0A84A*)^@)^[I@O@O=@D00A@4A)8AS1VE )@@G@@E[TA@1AK9B@5^@1A)2^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3VF )@@G@@A00J*0A@0A@0A84D00A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@2AK0B@5^@)^@)VG )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A83A00VH )@@G@@A@0A@0A83A0)^@)^[I@O@O=@D00A@4A)8AS1E[TA@2AK5B@5^@1A01^@)^@)^@)CLMCD^FC?VI )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A00EK0A@0A@0A83D80A@0A@4AS4D0)^@1^[IVJ )@@G@@@O@O=@D00A@4A)8AS1DD#A@3AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)VK )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A82A80A@0A@0A82A8)^@)^[I@O@O=@D00A@4A)8AS1VL )@@G@@E[TA@3AK2B@5^@1B@0^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3VM )@@G@@A01EC0A@0A@0A82E@0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@4AC9B@5^@)^@)VN )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A81B@0VO )@@G@@A@0A@0A81B@)^@)^[I@O@O=@D00A@4A)8AS1E[TA@4AK2B@5^@2A@0^@)^@)^@)CLMCD^FC?VP )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A02E@0A@0A@0A81EC0A@0A@4AS4D0)^@1^[IVQ )@@G@@@O@O=@D00A@4A)8AS1DD#A@5AK1B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)VR )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A80BC0A@0A@0A80BC)^@)^[I@O@O=@D00A@4A)8AS1VS )@@G@@E[TA@5AK8B@5^@2AK5^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3VT )@@G@@A03D80A@0A@0A80EK0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@6AK0B@5^@)^@)VU )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A09BC0VV )@@G@@A@0A@0A09BC)^@)^[I@O@O=@D00A@4A)8AS1E[TA@6AK0B@5^@2A)2^@)^@)^@)CLMCD^FC?VW )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A04D80A@0A@0A09EK0A@0A@4AS4D0)^@1^[IVX )@@G@@@O@O=@D00A@4A)8AS1DD#A@7AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)VY )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A09A@0A@0A@0A09A@)^@)^[I@O@O=@D00A@4A)8AS1VZ )@@G@@E[TA@8A@7B@5^@)AK6^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3WA )@@G@@A05D00A@0A@0A09J*0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@8AC6B@5^@)^@)WB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A08AC0WC )@@G@@A@0A@0A08AC)^@)^[I@O@O=@D00A@4A)8AS1E[TA@9AC2B@5^@)A*2^@)^@)^@)CLMCD^FC?WD )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A06D*0A@0A@0A08DK0A@0A@4AS4D0)^@1^[IWE )@@G@@@O@O=@D00A@4A)8AS1DD#A@9AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)WF )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A07AK0A@0A@0A07AK)^@)^[I@O@O=@D00A@4A)8AS1WG )@@G@@E[TAC0A@8B@5^@)A80^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3WH )@@G@@A07D)0A@0A@0A07DS0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#AC0AK2B@5^@)^@)WI )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A06CS0WJ )@@G@@A@0A@0A06CS)^@)^[I@O@O=@D00A@4A)8AS1E[TAC1A@6B@5^@)BC1^@)^@)^@)CLMCD^FC?WK )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A08DS0A@0A@0A06D)0A@0A@4AS4D0)^@1^[IWL )@@G@@@O@O=@D00A@4A)8AS1DD#AC1AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)WM )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A05C)0A@0A@0A05C))^@)^[I@O@O=@D00A@4A)8AS1WN )@@G@@E[TAC2AC1B@5^@1AC4^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3WO )@@G@@A09DK0A@0A@0A05D*0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#AC2AC3B@5^@)^@)WP )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A04C)0WQ )@@G@@A@0A@0A04C))^@)^[I@O@O=@D00A@4A)8AS1E[TA@1A@7B@6^@1AK4^@)^@)^@)CLMCD^FC?WR )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A80DK0A@0A@0A04D*0A@0A@4AS4D0)^@1^[IWS )@@G@@@O@O=@D00A@4A)8AS1DD#A@1AC5B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)WT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A03C*0A@0A@0A03C*)^@)^[I@O@O=@D00A@4A)8AS1WU )@@G@@E[TA@2AC0B@6^@1A)9^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3WV )@@G@@A81J*0A@0A@0A03D00A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@2AK0B@6^@)^@)WW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A02C00WX )@@G@@A@0A@0A02C0)^@)^[I@O@O=@D00A@4A)8AS1E[TA@3A@6B@6^@1A07^@)^@)^@)CLMCD^FC?WY )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A81EK0A@0A@0A02D80A@0A@4AS4D0)^@1^[IWZ )@@G@@@O@O=@D00A@4A)8AS1DD#A@3AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)XA )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A01C80A@0A@0A01C8)^@)^[I@O@O=@D00A@4A)8AS1XB )@@G@@E[TA@4A@3B@6^@1B@6^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3XC )@@G@@A82EC0A@0A@0A01E@0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@4AC8B@6^@)^@)XD )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A00C80XE )@@G@@A@0A@0A00C8)^@)^[I@O@O=@D00A@4A)8AS1E[TA@5A@7B@6^@2AC0^@)^@)^@)CLMCD^FC?XF )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A83EC0A@0A@0A00E@0A@0A@4AS4D0)^@1^[IXG )@@G@@@O@O=@D00A@4A)8AS1DD#A@5AK1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)XH )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*9D@0A@0A@0A*9D@)^@)^[I@O@O=@D00A@4A)8AS1XI )@@G@@E[TA@6A@5B@6^@2AS0^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3XJ )@@G@@A84E@0A@0A@0A*9EC0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@6AC6B@6^@)^@)XK )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*8DC0XL )@@G@@A@0A@0A*8DC)^@)^[I@O@O=@D00A@4A)8AS1E[TA@7A@1B@6^@)^@1^@)^@)^@)CLMCD^FC?XM )@@G@@E@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A85D80A@0A@0A*8EK0A@0A@4AS4D0)^@1^[IXN )@@G@@@O@O=@D00A@4A)8AS1DD#A@7AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)XO )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7DC0A@0A@0A*7DC)^@)^[I@O@O=@D00A@4A)8AS1XP )@@G@@E[TA@8AC2B@6^@)AS1^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3XQ )@@G@@A86D80A@0A@0A*7EK0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@8AC8B@6^@)^@)XR )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*7JS0XS )@@G@@A@0A@0A*7JS)^@)^[I@O@O=@D00A@4A)8AS1E[TA@9AC0B@6^@)A*1^@)^@)^@)CLMCD^FC?XT )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A87D00A@0A@0A*7J*0A@0A@4AS4D0)^@1^[IXU )@@G@@@O@O=@D00A@4A)8AS1DD#A@9AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)XV )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*6JS0A@0A@0A*6JS)^@)^[I@O@O=@D00A@4A)8AS1XW )@@G@@E[TAC0A@6B@6^@)A09^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3XX )@@G@@A88D00A@0A@0A*6J*0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#AC0AK0B@6^@)^@)XY )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*5CC0XZ )@@G@@A@0A@0A*5CC)^@)^[I@O@O=@D00A@4A)8AS1E[TAC1AC1B@6^@)BC5^@)^@)^@)CLMCD^FC?YA )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3A89D*0A@0A@0A*5DK0A@0A@4AS4D0)^@1^[IYB )@@G@@@O@O=@D00A@4A)8AS1DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)YC )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*4CC0A@0A@0A*4CC)^@)^[I@O@O=@D00A@4A)8AS1YD )@@G@@E[TAC2A@5B@6^@1AC1^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3YE )@@G@@B@0D*0A@0A@0A*4DK0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#AC2AC1B@6^@)^@)YF )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*3CK0YG )@@G@@A@0A@0A*3CK)^@)^[I@O@O=@D00A@4A)8AS1E[TA@1AC4B@7^@1AS3^@)^@)^@)CLMCD^FC?YH )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3B@1D)0A@0A@0A*3DS0A@0A@4AS4D0)^@1^[IYI )@@G@@@O@O=@D00A@4A)8AS1DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)YJ )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*2CK0A@0A@0A*2CK)^@)^[I@O@O=@D00A@4A)8AS1YK )@@G@@E[TA@2A@9B@7^@1A*2^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3YL )@@G@@B@2D)0A@0A@0A*2DS0A@0A@4AS4D0)^@1^[I@O@O=@D00A@4A)8AS1DD#A@2AC9B@7^@)^@)YM )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A*1CS0YN )@@G@@A@0A@0A*1CS)^@)^[I@O@O=@D00A@4A)8AS1E[TA@3AC0B@7^@1A83^@)^@)^@)CLMCD^FC?YO )@@G@@^[K^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@3B@3DS0A@0A@0A*1D)0A@0A@4AS4D0)^@1^[IYP )@@G@@@O@O=@D00A@4A)8AS1E[TA@3AK0B@7^@1B@1^@)^@)^@)CLMCD^FC?^[K^@)^@)^@)^@)^@)YQ )@@G@@^@)^@)^@)^@0A@2A@5A04J*0A@0A@0A*0D)0A@2A@6AC4D))^@1^[I@O@O=@D00A@4A)8AS1YR )@@G@@DD#A@3AK3B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0YS )@@G@@A@0A@0A@0A@0A*0CS0A@0A@0A*0CS)^@)^[I@O@O=@D00A@4A)8AS1DL A@5A@5B@7A@0A*4YT )@@G@@^@)^@)^@)EL C1PD1^^[KE1 ELKFDHE))^@)^@)^@)^@)^@0A@0A@4AS5A*0A@0A@0A@0A@0YU )@@G@@A@0A@4AS5A*)^@0^[I@O@O=@D00A@4A)8A)1D-KA@8AC8A88A08BC9^@)^@)^@)D-JCDI^[KYV )@@G@@ELDD1#DDKCDG^@)^@)^@)^@)^@)^@0A@1A@0A@0JS0A@0A@0A@0JS0A@1A@0A@0JS)^@0^[IYW )@@G@@@O@O=@D00A@4A)8A)1D-KA@1AC2A89B@0A81^@)^@)^@)CTJD1MCD^^@)^@)^@)^@)CTTD1OYX )@@G@@D[DCC)EK)^@0A@1A@0A@0JS0A@0A@0A@0A@0A@1A@0A@0A@)^@0^[I@O@O=@D00A@4A)8A)1YY )@@G@@D-KA@8AK1A89BC8B@9^@)^@)^@)CTJD1MCD^ ))^@)^@)^@)CTTD1OD[DCC)EK)^@0A@1A@0YZ )@@G@@A@0JS0A@0A@0A@0A@0A@1A@0A@0A@)^@0^[I@O@O=@D00A@4A)8A)1D-KA@8AK3A89^@)^@)ZA )@@G@@^@)^@0A@0CTJD1MCD^ ))CS)^@)^@)^@)^@)^@)^@)^@)^@0A@1A@0A@0J*0A@0A@0A@0A@0ZB )@@G@@A@1A@0A@0J*)^@0^[I@O@O=@D00A@4A)8A)1ETOAC2A@3A89ETO^@)^@)^@0A@0A@9A@1A89ZC )@@G@@ *0A*0AC8A@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[IZD )@@G@@@O@O=@D00A@4A)8A)1ETOA@9AK9B@0ETO^@)^@)^@0A@0A@8A@1B@0 *0A*0AC8AC)^@)^@)ZE )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@4A)8A)1ZF )@@G@@DD#A@2AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZG )@@G@@A@0A@0A@0A@0A*0A@0A@0A@0A*0A@)^@)^[I@O@O=@D00A@4A)8A)1E[TA@3A@3B@2^@1BC2ZH )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A*0J*0A@0A@0A*0J*0ZI )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@3AC7B@2^@)^@)^@)^@)^@)DDIE- EL ZJ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)9A)0A@0A@0A)9A))^@)^[IZK )@@G@@@O@O=@D00A@4A)8A)1E[TA@3AK5B@2^@2A@8^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)ZL )@@G@@^@)^@)^@)^@0A@0A@2A*0D80A@0A@0A)9D*0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1ZM )@@G@@DD#A@4AC9B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZN )@@G@@A@0A@0A@0A@0A)8A80A@0A@0A)8A8)^@)^[I@O@O=@D00A@4A)8A)1E[TA@4AK2B@2^@2AK7ZO )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A*1D)0A@0A@0A)8E@0ZP )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@5AC8B@2^@)^@)^@)^@)^@)DDIE- EL ZQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)8AC0A@0A@0A)8AC)^@)^[IZR )@@G@@@O@O=@D00A@4A)8A)1E[TA@5AK6B@2^@2A*1^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)ZS )@@G@@^@)^@)^@)^@0A@0A@2A*1EK0A@0A@0A)8DK0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1ZT )@@G@@DD#A@6AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ZU )@@G@@A@0A@0A@0A@0A)7A*0A@0A@0A)7A*)^@)^[I@O@O=@D00A@4A)8A)1E[TA@6AK9B@2^@)AK1ZV )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A*2D00A@0A@0A)7D00ZW )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@7AK0B@2^@)^@)^@)^@)^@)DDIE- EL ZX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)6BC0A@0A@0A)6BC)^@)^[IZY )@@G@@@O@O=@D00A@4A)8A)1E[TA@7AK1B@2^@)AS6^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)ZZ )@@G@@^@)^@)^@)^@0A@0A@2A*3DK0A@0A@0A)6EK0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1AA )@@G@@DD#A@8AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AB )@@G@@A@0A@0A@0A@0A)6AK0A@0A@0A)6AK)^@)^[I@O@O=@D00A@4A)8A)1E[TA@8AS0B@2^@)A04AC )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A*3EC0A@0A@0A)6DS0AD )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@9AK0B@2^@)^@)^@)^@)^@)DDIE- EL AE )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)5A00A@0A@0A)5A0)^@)^[IAF )@@G@@@O@O=@D00A@4A)8A)1E[TAC0A@1B@2^@)B@8^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)AG )@@G@@^@)^@)^@)^@0A@0A@2A*4D*0A@0A@0A)5D80A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1AH )@@G@@DD#AC0AK1B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AI )@@G@@A@0A@0A@0A@0A)5A@0A@0A@0A)5A@)^@)^[I@O@O=@D00A@4A)8A)1E[TAC0AK9B@2^@1A@8AJ )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A*5J*0A@0A@0A)5J*0AK )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#AC1AC8B@2^@)^@)^@)^@)^@)DDIE- EL AL )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)4AS0A@0A@0A)4AS)^@)^[IAM )@@G@@@O@O=@D00A@4A)8A)1E[TAC2A@3B@2^@1AS1^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)AN )@@G@@^@)^@)^@)^@0A@0A@2A*5E@0A@0A@0A)4D)0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1AO )@@G@@DD#AC2AK1B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AP )@@G@@A@0A@0A@0A@0A)3A80A@0A@0A)3A8)^@)^[I@O@O=@D00A@4A)8A)1E[TAC2AS0B@2^@1A)8AQ )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A*6D)0A@0A@0A)3E@0AR )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@1AK0B@3^@)^@)^@)^@)^@)DDIE- EL AS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)3A@0A@0A@0A)3A@)^@)^[IAT )@@G@@@O@O=@D00A@4A)8A)1E[TA@1AK8B@3^@1A09^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)AU )@@G@@^@)^@)^@)^@0A@0A@2A*7J*0A@0A@0A)3J*0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1AV )@@G@@DD#A@2AC7B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0AW )@@G@@A@0A@0A@0A@0A)2A)0A@0A@0A)2A))^@)^[I@O@O=@D00A@4A)8A)1E[TA@3A@3B@3^@1BC3AX )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A*7D80A@0A@0A)2D*0AY )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@3AC7B@3^@)^@)^@)^@)^@)DDIE- EL AZ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)1B@0A@0A@0A)1B@)^@)^[IBA )@@G@@@O@O=@D00A@4A)8A)1E[TA@3AS1B@3^@2AC3^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)BB )@@G@@^@)^@)^@)^@0A@0A@2A*8DS0A@0A@0A)1EC0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1BC )@@G@@DD#A@4AC9B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BD )@@G@@A@0A@0A@0A@0A)1AC0A@0A@0A)1AC)^@)^[I@O@O=@D00A@4A)8A)1E[TA@4AK7B@3^@2AS1BE )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A*8EK0A@0A@0A)1DK0BF )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@5AC8B@3^@)^@)^@)^@)^@)DDIE- EL BG )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A)0A*0A@0A@0A)0A*)^@)^[IBH )@@G@@@O@O=@D00A@4A)8A)1E[TA@5AK7B@3^@2A*3^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)BI )@@G@@^@)^@)^@)^@0A@0A@2A*9D00A@0A@0A)0D00A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1BJ )@@G@@DD#A@6AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BK )@@G@@A@0A@0A@0A@0AS9B@0A@0A@0AS9B@)^@)^[I@O@O=@D00A@4A)8A)1E[TA@6AK4B@3^@2A82BL )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A00DS0A@0A@0AS9EC0BM )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@7AC9B@3^@)^@)^@)^@)^@)DDIE- EL BN )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS9AK0A@0A@0AS9AK)^@)^[IBO )@@G@@@O@O=@D00A@4A)8A)1E[TA@7AK7B@3^@)AC8^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)BP )@@G@@^@)^@)^@)^@0A@0A@2A00EC0A@0A@0AS9DS0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1BQ )@@G@@DD#A@8AC8B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0BR )@@G@@A@0A@0A@0A@0AS8A*0A@0A@0AS8A*)^@)^[I@O@O=@D00A@4A)8A)1E[TA@8AS0B@3^@)A)3BS )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5A01D00A@0A@0AS8D00BT )@@G@@A@0A@6A@0^C)^@0^[I@O@O=@D00A@4A)8A)1E[[A@9AC5B@3E[[^@)^@)^@)^@)A@8AS0B@3BU )@@G@@ *1AC0AC8AS)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[IBV )@@G@@@O@O=@D00A@4A)8A)1DD#A@9AK0B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)BW )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS7AC0A@0A@0AS7AC)^@)^[I@O@O=@D00A@4A)8A)1BX )@@G@@E[TA@9AK3B@3^@)A00^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5BY )@@G@@A02EK0A@0A@0AS7DK0A@0A@6A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#AC0AC9B@3^@)^@)BZ )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS5A80CA )@@G@@A@0A@0AS5A8)^@)^[I@O@O=@D00A@4A)8A)1E[TAC1A@1B@3^@)B@7^@)^@)^@)C9 FD EK?CB )@@G@@^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5A04D)0A@0A@0AS5E@0A@0A@6A@0^C)^@0^[ICC )@@G@@@O@O=@D00A@4A)8A)1E[[AC1A@4B@3E[[^@)^@)^@)^@)AC1A@1B@3 *0AC0AC8A))^@)^@)CD )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@4A)8A)1CE )@@G@@DD#AC1AK1B@3^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0CF )@@G@@A@0A@0A@0A@0AS4AS0A@0A@0AS4AS)^@)^[I@O@O=@D00A@4A)8A)1E[TAC2A@2B@3^@1A@8CG )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5A05E@0A@0A@0AS4D)0CH )@@G@@A@0A@6A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#AC2AK0B@3^@)^@)^@)^@)^@)DDIE- EL CI )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2BC0A@0A@0AS2BC)^@)^[ICJ )@@G@@@O@O=@D00A@4A)8A)1DD#A@1AC7B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CK )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AS2BC0A@0A@0AS2BC)^@)^[I@O@O=@D00A@4A)8A)1CL )@@G@@E[TA@1AK6B@4^@1A)5^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5CM )@@G@@AS4DS0A@0A@0A05EC0A@0A@6A@0^C)^@1^[I@O@O=@D00A@4A)8A)1E[TA@1AS1B@4^@1A)8CN )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@6A@0^C0A@0A@0A@0A@0CO )@@G@@A@0A@6A@0^C)^@0^[I@O@O=@D00A@4A)8A)1E[TA@2AC5B@4^@1A*9^@)^@)^@)C9 FD EK?CP )@@G@@^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@6A@0^C0A@0A@0A@0A@0A@0A@6A@0^C)^@0^[ICQ )@@G@@@O@O=@D00A@4A)8A)1DD#A@2AK0B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)CR )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8A*0A@0A@0AK8A*)^@)^[I@O@O=@D00A@4A)8A)1CS )@@G@@E[TA@3A@2B@4^@1A81^@)^@)^@)C9 FD EK?CS)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2CT )@@G@@A81D00A@0A@0AK8D00A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DL A@3AC5B@4A80AS5CU )@@G@@^@)^@)^@)AC\AK6 88A))ETOD9KE[ C))E[TD(O^@)^@)^@0A@0A@5AS4AK0A@0A@0A05B@0CV )@@G@@A@0A@6A@0A@)^@0^[I@O@O=@D00A@4A)8A)1DD#A@3AK1B@4^@)^@)^@)^@)^@)DDIE- EL CW )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK9AK0A@0A@0AK9AK)^@)^[ICX )@@G@@@O@O=@D00A@4A)8A)1E[TA@4A@4B@4^@1BC4^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)CY )@@G@@^@)^@)^@)^@0A@0A@2A@5J*0A@0A@0BC5J*0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1CZ )@@G@@DD#A@4AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0DA )@@G@@A@0A@0A@0A@0AK8A80A@0A@0AK8A8)^@)^[I@O@O=@D00A@4A)8A)1E[TA@5A@3B@4^@2AC4DB )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A81D)0A@0A@0AK8E@0DC )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@5AK2B@4^@)^@)^@)^@)^@)DDIE- EL DD )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK8A@0A@0A@0AK8A@)^@)^[IDE )@@G@@@O@O=@D00A@4A)8A)1E[TA@5AS1B@4^@2AS3^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)DF )@@G@@^@)^@)^@)^@0A@0A@2A82J*0A@0A@0AK8J*0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DG )@@G@@DD#A@6AK1B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0DH )@@G@@A@0A@0A@0A@0AK7AS0A@0A@0AK7AS)^@)^[I@O@O=@D00A@4A)8A)1E[TA@6AK9B@4^@2A*3DI )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A82E@0A@0A@0AK7D)0DJ )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@7AC9B@4^@)^@)^@)^@)^@)DDIE- EL DK )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK6A00A@0A@0AK6A0)^@)^[IDL )@@G@@@O@O=@D00A@4A)8A)1E[TA@8A@3B@4^@)AK4^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)DM )@@G@@^@)^@)^@)^@0A@0A@2A83D*0A@0A@0AK6D80A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DN )@@G@@DD#A@8AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0DO )@@G@@A@0A@0A@0A@0AK6A@0A@0A@0AK6A@)^@)^[I@O@O=@D00A@4A)8A)1E[TA@9A@4B@4^@)A)6DP )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A84J*0A@0A@0AK6J*0DQ )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@9AK0B@4^@)^@)^@)^@)^@)DDIE- EL DR )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK5AS0A@0A@0AK5AS)^@)^[IDS )@@G@@@O@O=@D00A@4A)8A)1E[TAC0A@2B@4^@)A06^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)DT )@@G@@^@)^@)^@)^@0A@0A@2A84E@0A@0A@0AK5D)0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DU )@@G@@DD#AC0AK2B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0DV )@@G@@A@0A@0A@0A@0AK4A00A@0A@0AK4A0)^@)^[I@O@O=@D00A@4A)8A)1E[TAC1A@1B@4^@)B@8DW )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A85D*0A@0A@0AK4D80DX )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#AC1AK7B@4^@)^@)^@)^@)^@)DDIE- EL DY )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK3BC0A@0A@0AK3BC)^@)^[IDZ )@@G@@@O@O=@D00A@4A)8A)1E[TAC1AK8B@4^@1A@5^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)EA )@@G@@^@)^@)^@)^@0A@0A@2A86DK0A@0A@0AK3EK0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1EB )@@G@@DD#AC2AC9B@4^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EC )@@G@@A@0A@0A@0A@0AK3AK0A@0A@0AK3AK)^@)^[I@O@O=@D00A@4A)8A)1E[TAC2AK1B@4^@1AK2ED )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A86EC0A@0A@0AK3DS0EE )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@1AK5B@5^@)^@)^@)^@)^@)DDIE- EL EF )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK2A*0A@0A@0AK2A*)^@)^[IEG )@@G@@@O@O=@D00A@4A)8A)1E[TA@2AC2B@5^@1A*2^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)EH )@@G@@^@)^@)^@)^@0A@0A@2A87D00A@0A@0AK2D00A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1EI )@@G@@DD#A@2AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EJ )@@G@@A@0A@0A@0A@0AK1B@0A@0A@0AK1B@)^@)^[I@O@O=@D00A@4A)8A)1E[TA@3A@1B@5^@1A05EK )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A88DS0A@0A@0AK1EC0EL )@@G@@A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1DD#A@3AK1B@5^@)^@)^@)^@)^@)DDIE- EL EM )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AK1AC0A@0A@0AK1AC)^@)^[IEN )@@G@@@O@O=@D00A@4A)8A)1E[TA@4A@1B@5^@1B@6^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)EO )@@G@@^@)^@)^@)^@0A@0A@2A88EK0A@0A@0AK1DK0A@0A@3A@0^C)^@0^[I@O@O=@D00A@4A)8A)1EP )@@G@@DD#A@4AC9B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EQ )@@G@@A@0A@0A@0A@0AK0A)0A@0A@0AK0A))^@)^[I@O@O=@D00A@4A)8A)1E[TA@5A@3B@5^@2A@9ER )@@G@@^@)^@)^@)C9 FD EK?CS)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2A89D80A@0A@0AK0D*0ES )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@5AK1B@5^@)^@)^@)^@)^@)DDIE- EL ET )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC9A80A@0A@0AC9A8)^@)^[IEU )@@G@@@O@O=@D00A@4A)8A)1E[TA@5AK8B@5^@2AK5^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)EV )@@G@@^@)^@)^@)^@0A@0A@2B@0D)0A@0A@0AC9E@0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1EW )@@G@@DD#A@6AK0B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0EX )@@G@@A@0A@0A@0A@0AC9A@0A@0A@0AC9A@)^@)^[I@O@O=@D00A@4A)8A)1E[TA@7A@3B@5^@)^@3EY )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@1J*0A@0A@0AC9J*0EZ )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@7AC9B@5^@)^@)^@)^@)^@)DDIE- EL FA )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC8AS0A@0A@0AC8AS)^@)^[IFB )@@G@@@O@O=@D00A@4A)8A)1E[TA@7AK4B@5^@)AC7^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)FC )@@G@@^@)^@)^@)^@0A@0A@2B@1E@0A@0A@0AC8D)0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1FD )@@G@@DD#A@8AC6B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FE )@@G@@A@0A@0A@0A@0AC7A00A@0A@0AC7A0)^@)^[I@O@O=@D00A@4A)8A)1E[TA@8AK9B@5^@)A)3FF )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@2D*0A@0A@0AC7D80FG )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@9AC9B@5^@)^@)^@)^@)^@)DDIE- EL FH )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC6BC0A@0A@0AC6BC)^@)^[IFI )@@G@@@O@O=@D00A@4A)8A)1E[TAC0A@1B@5^@)A05^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)FJ )@@G@@^@)^@)^@)^@0A@0A@2B@3DK0A@0A@0AC6EK0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1FK )@@G@@DD#AC0AK2B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FL )@@G@@A@0A@0A@0A@0AC6CK0A@0A@0AC6CK)^@)^[I@O@O=@D00A@4A)8A)1E[TAC0AK3B@5^@)B@1FM )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@3EC0A@0A@0AC6DS0FN )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#AC1AK0B@5^@)^@)^@)^@)^@)DDIE- EL FO )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC5C*0A@0A@0AC5C*)^@)^[IFP )@@G@@@O@O=@D00A@4A)8A)1E[TAC2A@5B@5^@1AC0^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)FQ )@@G@@^@)^@)^@)^@0A@0A@2B@4D00A@0A@0AC5D00A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1FR )@@G@@DD#AC2AC3B@5^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FS )@@G@@A@0A@0A@0A@0AC4D@0A@0A@0AC4D@)^@)^[I@O@O=@D00A@4A)8A)1E[TA@1A@3B@6^@1AK2FT )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@5DS0A@0A@0AC4EC0FU )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@1AC5B@6^@)^@)^@)^@)^@)DDIE- EL FV )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC4CC0A@0A@0AC4CC)^@)^[IFW )@@G@@@O@O=@D00A@4A)8A)1E[TA@1AS0B@6^@1A)2^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)FX )@@G@@^@)^@)^@)^@0A@0A@2B@5EK0A@0A@0AC4DK0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1FY )@@G@@DD#A@2AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0FZ )@@G@@A@0A@0A@0A@0AC3C)0A@0A@0AC3C))^@)^[I@O@O=@D00A@4A)8A)1E[TA@3A@3B@6^@1A04GA )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@6D80A@0A@0AC3D*0GB )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@3AK0B@6^@)^@)^@)^@)^@)DDIE- EL GC )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC2C00A@0A@0AC2C0)^@)^[IGD )@@G@@@O@O=@D00A@4A)8A)1E[TA@4A@1B@6^@1B@4^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)GE )@@G@@^@)^@)^@)^@0A@0A@2B@7D*0A@0A@0AC2D80A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1GF )@@G@@DD#A@4AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0GG )@@G@@A@0A@0A@0A@0AC1DC0A@0A@0AC1DC)^@)^[I@O@O=@D00A@4A)8A)1E[TA@5A@1B@6^@2A@6GH )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@8DK0A@0A@0AC1EK0GI )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@5AK1B@6^@)^@)^@)^@)^@)DDIE- EL GJ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0AC1CK0A@0A@0AC1CK)^@)^[IGK )@@G@@@O@O=@D00A@4A)8A)1E[TA@5AS0B@6^@2AK6^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)GL )@@G@@^@)^@)^@)^@0A@0A@2B@8EC0A@0A@0AC1DS0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1GM )@@G@@DD#A@6AC6B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0GN )@@G@@A@0A@0A@0A@0AC0C*0A@0A@0AC0C*)^@)^[I@O@O=@D00A@4A)8A)1E[TA@6AK7B@6^@2A)6GO )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@9D00A@0A@0AC0D00GP )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@7AC8B@6^@)^@)^@)^@)^@)DDIE- EL GQ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@9D@0A@0A@0A@9D@)^@)^[IGR )@@G@@@O@O=@D00A@4A)8A)1E[TA@7AS0B@6^@)AK1^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)GS )@@G@@^@)^@)^@)^@0A@0A@2BC0DS0A@0A@0A@9EC0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1GT )@@G@@DD#A@8AC8B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0GU )@@G@@A@0A@0A@0A@0A@9JS0A@0A@0A@9JS)^@)^[I@O@O=@D00A@4A)8A)1E[TA@9A@2B@6^@)A)5GV )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC1J*0A@0A@0A@9J*0GW )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@9AC8B@6^@)^@)^@)^@)^@)DDIE- EL GX )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8CS0A@0A@0A@8CS)^@)^[IGY )@@G@@@O@O=@D00A@4A)8A)1E[TAC0A@2B@6^@)A07^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)GZ )@@G@@^@)^@)^@)^@0A@0A@2BC1E@0A@0A@0A@8D)0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1HA )@@G@@DD#AC0AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HB )@@G@@A@0A@0A@0A@0A@7C00A@0A@0A@7C0)^@)^[I@O@O=@D00A@4A)8A)1E[TAC0AK9B@6^@)B@6HC )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC2D*0A@0A@0A@7D80HD )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1E[TAC1AC9B@6^@1A@1^@)^@)^@)C9 FD EK?HE )@@G@@^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC3DS0A@0A@0A@6EC0A@0A@3A@0J*)^@0^[IHF )@@G@@@O@O=@D00A@4A)8A)1DD#AC1AK0B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)HG )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@6D@0A@0A@0A@6D@)^@)^[I@O@O=@D00A@4A)8A)1HH )@@G@@DD#AC2AC1B@6^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HI )@@G@@A@0A@0A@0A@0A@6CC0A@0A@0A@6CC)^@)^[I@O@O=@D00A@4A)8A)1E[TA@1A@2B@7^@1AK4HJ )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC3EK0A@0A@0A@6DK0HK )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@1AK1B@7^@)^@)^@)^@)^@)DDIE- EL HL )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@5C)0A@0A@0A@5C))^@)^[IHM )@@G@@@O@O=@D00A@4A)8A)1E[TA@2A@2B@7^@1A)7^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)HN )@@G@@^@)^@)^@)^@0A@0A@2BC4D80A@0A@0A@5D*0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1HO )@@G@@DD#A@2AC9B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HP )@@G@@A@0A@0A@0A@0A@4C00A@0A@0A@4C0)^@)^[I@O@O=@D00A@4A)8A)1E[TA@2AK4B@7^@1A03HQ )@@G@@^@)^@)^@)C9 E1 EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC5D*0A@0A@0A@4D80HR )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@3AK3B@7^@)^@)^@)^@)^@)DDIE- EL HS )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@3DC0A@0A@0A@3DC)^@)^[IHT )@@G@@@O@O=@D00A@4A)8A)1E[TA@4A@1B@7^@1B@9^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)HU )@@G@@^@)^@)^@)^@0A@0A@2BC6DK0A@0A@0A@3EK0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1HV )@@G@@DD#A@4AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0HW )@@G@@A@0A@0A@0A@0A@3CK0A@0A@0A@3CK)^@)^[I@O@O=@D00A@4A)8A)1E[TA@5A@1B@7^@2AC0HX )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC6EC0A@0A@0A@3DS0HY )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@5AK0B@7^@)^@)^@)^@)^@)DDIE- EL HZ )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@2C)0A@0A@0A@2C))^@)^[IIA )@@G@@@O@O=@D00A@4A)8A)1E[TA@5AK6B@7^@2AK6^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)IB )@@G@@^@)^@)^@)^@0A@0A@2BC7D80A@0A@0A@2D*0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1IC )@@G@@DD#A@6AC8B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0ID )@@G@@A@0A@0A@0A@0A@1C80A@0A@0A@1C8)^@)^[I@O@O=@D00A@4A)8A)1E[TA@6AK6B@7^@2A)9IE )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2BC8D)0A@0A@0A@1E@0IF )@@G@@A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1DD#A@7AC7B@7^@)^@)^@)^@)^@)DDIE- EL IG )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0DC0A@0A@0A@0DC)^@)^[IIH )@@G@@@O@O=@D00A@4A)8A)1E[TA@7AK8B@7^@)AK0^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)II )@@G@@^@)^@)^@)^@0A@0A@2BC9DK0A@0A@0A@0EK0A@0A@3A@0J*)^@0^[I@O@O=@D00A@4A)8A)1IJ )@@G@@DD#A@8AK1B@7^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0IK )@@G@@A@0A@0A@0A@0A@0CK0A@0A@0A@0CK)^@)^[I@O@O=@D00A@4A)8A)1E[TA@9A@2B@7^@)A)6IL )@@G@@^@)^@)^@)C9 FD EK?^[#^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A83DK0A@0A@0A@0DS0IM )@@G@@A@0A@0A83D))^@1^[I@O@O=@D00A@4A)8A*1D-KA@8AC8A88A09A@0^@)^@)^@)D-JCDI^[KIN )@@G@@ELDD1#DDKCDG^@)^@)^@)^@)^@)^@0A@1A@0A@0JS0A@0A@0A@0JS0A@1A@0A@0JS)^@0^[IIO )@@G@@@O@O=@D00A@4A)8A*1D-KA@1AC2A89B@0A82^@)^@)^@)CTJD1MCD^^@)^@)^@)^@)ELJCL IP )@@G@@ELO^[R^@)^@0A@1A@0A@0JS0A@0A@0A@0A@0A@1A@0A@0A@)^@0^[I@O@O=@D00A@4A)8A*1IQ )@@G@@D-KA@8AK1A89BC8BC0^@)^@)^@)CTJD1MCD^ ))^@)^@)^@)ELJCL ELO^[R^@)^@0A@1A@0IR )@@G@@A@0JS0A@0A@0A@0A@0A@1A@0A@0A@)^@0^[I@O@O=@D00A@4A)8A*1D-KA@1AC1B@0A@2A88IS )@@G@@^@)^@)^@)CTJD1MCD^^[MD9]C(ME))E8)^@)^@)^@)^@)^@0A@1A@0A@0JS0A@0A@0A@0A@0IT )@@G@@A@1A@0A@0A@)^@0^[I@O@O=@D00A@4A)8A*1D-KA@8AK2B@0AC4A*2^@)^@)^@)CTJD1MCD^IU )@@G@@^[MD9]C(ME))E8)^@)^@)AC1A)5AK0A@1A@0A@0JS0A@0A@0A@0A@0A@1A@0A@0A@)^@0^[IIV )@@G@@@O@O=@D00A@4A)8A*1D-KA@1A@9B@1AK9B@8^@)^@)^@)CTJD1MCD^^[MD9]C(ME))E8)^@)IW )@@G@@^@)AC2BC8B@0A@1A@0A@0JS0A@0A@0A@0A@0A@1A@0A@0A@)^@0^[I@O@O=@D00A@4A)8A*1IX )@@G@@DD#A@3AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0IY )@@G@@A@0A@0A@0A@1A*0A@0A@0A@1A*0A@)^@)^[I@O@O=@D00A@4A)8A*1E[TA@4A@6B@2^@2AC6IZ )@@G@@^@)^@)^@)CTJD1MCD^ ))EK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AK9D*0A@0A@1A*0J*0JA )@@G@@A@0A@5A89D*)^@0^[I@O@O=@D00A@4A)8A*1DD#A@4AC9B@2^@)^@)^@)^@)^@)DDIE- EL JB )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A)8BC0A@0A@1A)8BC)^@)^[IJC )@@G@@@O@O=@D00A@4A)8A*1E[TA@5A@3B@2^@2AS4^@)^@)^@)CTJD1MCD^ ))EK)^@)^@)^@)^@)JD )@@G@@^@)^@)^@)^@0A@0A@4AS0D00A@0A@1A)8EK0A@0A@5A89D*)^@0^[I@O@O=@D00A@4A)8A*1JE )@@G@@DD#A@5AC8B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0JF )@@G@@A@0A@0A@0A@1A)7BC0A@0A@1A)7BC)^@)^[I@O@O=@D00A@4A)8A*1E[TA@5AK8B@2^@2A*3JG )@@G@@^@)^@)^@)CTJD1MCD^ ))EK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@4AS1D00A@0A@1A)7EK0JH )@@G@@A@0A@5A89D*)^@0^[I@O@O=@D00A@4A)8A*1DD#A@6AC7B@2^@)^@)^@)^@)^@)DDIE- EL JI )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A)6B@0A@0A@1A)6B@)^@)^[IJJ )@@G@@@O@O=@D00A@4A)8A*1E[TA@7A@7B@2^@)AK6^@)^@)^@)CTJD1MCD^ ))EK)^@)^@)^@)^@)JK )@@G@@^@)^@)^@)^@0A@0A@4AS2D80A@0A@1A)6EC0A@0A@5A89D*)^@0^[I@O@O=@D00A@4A)8A*1JL )@@G@@DD#A@7AK0B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0JM )@@G@@A@0A@0A@0A@1A)5A80A@0A@1A)5A8)^@)^[I@O@O=@D00A@4A)8A*1DD#A@8AC7B@2^@)^@)JN )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A)5A80JO )@@G@@A@0A@1A)5A8)^@)^[I@O@O=@D00A@4A)8A*1E[TA@9AC5B@2^@)A86^@)^@)^@)CTJD1MCD^JP )@@G@@ ))EK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@2B@8J*0A@0A@2BC1D*0A@0A@5A89D*)^@1^[IJQ )@@G@@@O@O=@D00A@4A)8A*1DD#A@9AK0B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)JR )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A)5A@0A@0A@1A)5A@)^@)^[I@O@O=@D00A@4A)8A*1JS )@@G@@DL AC0A@1B@2A*1A@0^@)^@)^@)E[TD(O^[AELJD*)AS0AC3 *1^@)^@)^@)^@)^@0A@0A@4JT )@@G@@AS4D*0A@0A@1A)5^C0A@0A@5A89D*)^@1^[I@O@O=@D00A@4A)8A*1E[TAC0A@6B@2^@)BC1JU )@@G@@^@)^@)^@)CTJD1MCD^ ))EK)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5A89D*0A@0A@0A@0A@0JV )@@G@@A@0A@5A89D*)^@1^[I@O@O=@D00A@4A)8A*1DD#AC0AK1B@2^@)^@)^@)^@)^@)DDIE- EL JW )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1A)2A)0A@0A@1A)2A))^@)^[IJX )@@G@@@O@O=@D00A@4A)8A*1E[TAC1A@3B@2^@1AC1^@)^@)^@)CTJD1MCD^ ))EK)^@)^@)^@)^@)JY )@@G@@^@)^@)^@)^@0A@0A@4AS7J*0A@0A@1A)2D*0A@0A@5A89D*)^@0^[I@O@O=@D00A@4A)8A*1JZ )@@G@@E[TAC1AC2B@2^@1AC8^@)^@)^@)CTJD1MCD^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@5KA )@@G@@A89D*0A@0A@0A@0A@0A@0A@5A89D*)^@0^[I@O@O=@D00A@4A)8A*1DD#AC1AC8B@2^@)^@)KB )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@1AS9BC0KC )@@G@@A@0A@1AS9BC)^@)^[I@O@O=@D00A@4A)8A*1DD#AC1AS0B@2DD#^@)^@)^@)^@)CD^DK)CTPKD )@@G@@EK)DDIE))D1JE))C-PC*)^@)^@)^@0A@0A@0A@0A@0A@0A@1AS9EK0A@0A@1AS9EK)^@0^[IKE )@@G@@@O@O=@D00A@4A)8A*1E[TAC2A@9B@2^@1AS5^@)^@)^@)CTJD1MCD^ ))EK)^@)^@)^@)^@)KF )@@G@@^@)^@)^@)^@0A@0A@5A89D*0A@0A@0A@0A@0A@0A@5A89D*)^@0^[I@O@O=@D00A@4A)8A*1KG )@@G@@DD#AC2AK1B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KH )@@G@@A@0A@0A@0A@1AS8A)0A@0A@1AS8A))^@)^[I@O@O=@D00A@4A)8A*1E[TA@1A@6B@3^@1A*2KI )@@G@@^@)^@)^@)CTJD1MCD^ ))EK)^@)^@)^@)^@)^@)^@)^@)^@0A@5A*9A*9D)0A@0A@1AS8D*0KJ )@@G@@A@5A00BC7E@)^@0^[I@O@O=@D00A@4A)8A*1DL A@2AC5B@3A00AK3^@)^@)^@)CTMC(^DDOKK )@@G@@^[]CDG^[JD0)D1^^@)^@)^@)^@)^@0A@0A@5B@0BC0A@0A@0A@0A@0A@0A@5B@0BC)^@0^[IKL )@@G@@@O@O=@D00A@4A)8A01D-KA@8AC8A88A09A@1^@)^@)^@)D-JCDI^[KELDD1#DDKCDG^@)^@)KM )@@G@@^@)^@)^@)^@0A@0B@5A@0JS0A@0A@0A@0JS0A@0B@5A@0JS)^@0^[I@O@O=@D00A@4A)8A01KN )@@G@@E[TAC0AK6A88AC0A*)^@)^@0A@0CTPELODDN ))DS)^@)^@)^@)^@)^@)^@)^@)^@0A@0B@5KO )@@G@@A@0J*0A@0A@0A@0JS0A@0B@5A@0J*)^@0^[I@O@O=@D00A@4A)8A81D-KA@8AC8A88A09A@2KP )@@G@@^@)^@)^@)D-JCDI^[KELDD1#DDKCDG^@)^@)^@)^@)^@)^@0A@0AC6A*0JS0A@0A@0A@0JS0KQ )@@G@@A@0AC6A*0JS)^@0^[I@O@O=@D00A@4A)8A81D-KA@1AC2A89B@0A89^@)^@)^@)C9[CLMDD[KR )@@G@@D))^@)^@)^@)ETOC(QC(I^[[^@)^@0A@0AC6A*0JS0A@0A@0A@0A@0A@0AC6A*0A@)^@0^[IKS )@@G@@@O@O=@D00A@4A)8A81E-^AC2AC0B@1E-^^@)^@)^@)^@)A@3A@1B@2 *0AS0AC8AS)^@)^@)KT )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@0A@)^@0^[I@O@O=@D00A@4A)8A81KU )@@G@@DD#A@3AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0KV )@@G@@A@0A@0A@0A@0A@8AS0A@0A@0A@8AS)^@)^[I@O@O=@D00A@4A)8A81DD#A@4AC9B@2^@)^@)KW )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8AS0KX )@@G@@A@0A@0A@8AS)^@)^[I@O@O=@D00A@4A)8A81DD#A@5AC8B@2^@)^@)^@)^@)^@)DDIE- EL KY )@@G@@ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8AS0A@0A@0A@8AS)^@)^[IKZ )@@G@@@O@O=@D00A@4A)8A81DD#A@6AC7B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)LA )@@G@@^@)^@)^@)^@0A@0A@0A@0A@0A@0A@0A@8AS0A@0A@0A@8AS)^@)^[I@O@O=@D00A@4A)8A81LB )@@G@@DD#A@7AK0B@2^@)^@)^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0A@0A@0LC )@@G@@A@0A@0A@0A@0A@8AS0A@0A@0A@8AS)^@)^[I@O@O=@D00A@4A)8A81DD#A@8AC7B@2^@)^@)LD )@@G@@^@)^@)^@)DDIE- EL ETO^@)^@)^@)^@)^@)^@)^@)^@)^@0*[S@@[*SDFF*@[@@@@ 0)^@)LE )@@G@@@H@@@@ 0)^@)^@)^@)^@)DDNC))AC1A@0 88A@)GT\H(!I(,HD^[H*)G->G1(H1(I-(H9,IS)^@)@[@@@@ 0)^@)@^@@@@CTOD(#^[#CTKLN )@@G@@AC?EC)^@0 )1@^@@@@CTOD(#^[#CTKAK?EC)^@0 )1@^@@@@CTOD(#^[#CTKAS?EC)^@0 )1LO )@@G@@@^@@@@CTOD(#^[#CTKA)?EC)^@0 )1@^@@@@CTOD(#^[#E-HCS?EC)^@0 )1@[@@@@ 0)^@)LP )@@G@@@E@@@@ 0)^@)^@)^@)^@)C->IT^[^[VW )@@G@@H*)G->G1(H1(I-(H9,IS)^@)@[@@@@ 0)^@)@ @@@@CTOD(#^[#E-HCS?EC)^@2A@0A@?AC)VX )@@G@@@ @@@@CTOD(#^[#CTKAC?EC)^@2A)0A@?AC)@A@@@@CTOD(#^[#CTKAD[ -L^@2A)0A@?AK?VY )@@G@@CT#E@1@ @@@@CTOD(#^[#CTKAK?EC)^@2AK0A@?AC)@A@@@@CTOD(#^[#CTKAL[ -L^@2AK0VZ )@@G@@A@?AK?CT#E@2@ @@@@CTOD(#^[#CTKAS?EC)^@2A00A@?AC)@A@@@@CTOD(#^[#CTKAT[ -LWA )@@G@@^@2A00A@?AK?CT#E@3@ @@@@CTOD(#^[#CTKA)?EC)^@2AC0A@?AC)%B@@@@ *2AC)^@)^@)WB )@@G@@^@)E[JELOES\AC1A@8^@)AS7 00^@)@ @@[[CTOD(#^[#CTKA*?EC)^@3A@0A@?AC)@[@@@@WC )@@G@@ 0)^@)@E@@@@ 0)^@)^@)^@)^@)C->IT^[@@@G]/K@@CX>@@@G#/KF@@[C8H@@@DF )@@G@@?8I@@@/K@@CDC@@@G@C8K@@#/KF@@@C@@@F5C8K@@[/KF@@@[@@^@]C@@@F;C8K@@]/KF@@@DG )@@G@@L8@@@[C@)^@[G8)@@[*@I@@@?CY@@@/K@@C?G),@@@/K@@C&%CI@@@/KF@@@C)"@@@H80@@[DH )@@G@@T80@@AG="@@@9?I@@[?80@@BC@K@G^/KF@@[;CK@@=;^@@@%(@@@@HG8K@@[[@K@[#;C@@@YDI )@@G@@[@@@[[C^@^@[G8@@@[C9K@@[ @@^@KN8)@@@C@W@@@/@K@D:;CK@@Y*@@@@H?@K@[#/K@@DVDJ )@@G@@%@K@[#/K@@D:%1W@@@/K@@D:C?W@@@!8K@@A/K@@DY%(K^@K @@^@J[(K^@K9??@@[C-G@@@DK )@@G@@:9@@@[C@0@G^')H@EXH9@@@[T9@@@AG>G@@@')H@E>G)G@@@G8@@@[/K@@D]:9K@@[/K@@D
@^@J[5@^@K[1@^@K[!@^@KC80@@F+8K@@_:8)@@ ;^@@@A8#0@E\9*@^@^DS )@@G@@C@@@G C@K@GAC8)@@BC@0@G^[@"^@B8#)@E8N4K^@J9!@^@L/\)@F&C9K@@*(4@^@J*)@^@JDT )@@G@@')H)@@N0K^@J9!@^@N*@@@[[/K@@FBC[@@GBN8K@@^/\)@F&N?K^@J(@@@[[/K@@FLC9K@@(DU )@@G@@')H)@@C[@^@P/\)@F&C9K@@)')H)@@(*@^@J*=@^@J/K@@FRC@@@GC'=@@@J/KF@@@C9K@@/DV )@@G@@')H)@@N*K^@JC[@^@Q/\)@F&N=K^@J(@@@[[/K@@FOC9K@@/')H)@@C[@^@R/\)@F&/K@@FODW )@@G@@;>@@@A')H)@@8KK@F=/KI@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@/\0@F,[-W)@@Q;K@F*DX )@@G@@/KJ@@@PROCESSOR CALL ERROR @[^@F1ABNORMAL RETURN FROM READ$ @[ @F6DY )@@G@@TOO MANY SPECIFICATIONS @[^@F/K@@@@@]@@@@@[@@@@@ @@[^@B@@[@F*TPF$ DZ )@@G@@@@G^@#/K@@@@C@@^@,'=@@)#/K@@GD'^@@GD @@@@JC8FK@@9?K^@+9*W@@@/KF@@]'^@@GDEA )@@G@@ @@@@JC8FK@@C@K^@+[@W@@@/KF@@]'^@@GD @@@@JC8:K@@C@@^@++@@^@\;CK@@G[@Y@@@EB )@@G@@/KF@@]'^@@GD @@@@JC8:K@@C@@^@++@@^@0[@Y@@@/KF@@]C8.@@@;G@@@M;CK@@M&;@@@[EC )@@G@@&;K@@[/K@@G0')G)HW')])JA8#0@G,/KF@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[/K@@G.ED )@@G@@')G)HW:8)@@ /K@@G_%8)@@@')])JA8#0@G8/KF@@@')])JA8#0@H]/KF@@@')G)HW%8)@@ EE )@@G@@/K@@G;8#0@H]/KF@@@&'0@@@C?[@@[C^L@@[/K@@HK&'0__"/K@@HI&'0@@@;G@@@M;CK@@MEF )@@G@@&;@@@[&;K@@[')G)HW:0-@@@/K@@HR')])JA/K@@HM0@@@@F/KF@@@[?[@@[[^L@@[/KF@@@EG )@@G@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@H+C)!)@@[^[@@]Q;@@@@/K[K@]C@K@IHC@0@@GEH )@@G@@C@@@@H/G@@H0/^@@H!C@@@II/K@@H0;S@@@G;*@@@[;*.@@[H@@@II;SK@@G;?@@@>;CI@@@EI )@@G@@)8@@@[9?@@@HG8K@@[T@K@IJ;CK@@+;C)@@=;?!@@@G8)@@0')])JA'G@@I#'G@@I#'G@@I#EJ )@@G@@;C)@@=;?)@@#/K@@H;;C@@@[/@F@@@C8)@@ ')])JA;S@@@G;*@@@[;CH@@@/K@@H6C@K@IKEK )@@G@@/K@@H$)+C*@@)@@@@@PPPPPP)@@)@@&'0@G2/K@@M)&'0@G*/K@@M)&'0@HB/K@@M)&'0@HFEL )@@G@@/K@@M)&'0@HH/K@@M)&'0@H&/K@@M)&'0@H$/K@@M)&'0@IF/K@@M)&'0@IET )@@G@@N?L@@@Q^1@@@C8@@L7M@/)@@Q8)@@@Q^1@@@/KF@@@C8#@@@H^[@@@T8@@@AG8]@@@/KF@@@EU )@@G@@C80@@ /K@@KBC80@@F;^@@[]+8K@@_%8)@@ :8)@@@/K@@KH')])JA8#0@KB/KF@@@C80@@ EV )@@G@@/K@@KMC80@@F;^@@[]+8K@@_%8)@@@')])JA8#0@KM/KF@@@C@K@L7C80@@FAE1@@#R'0@@@EW )@@G@@+8K@@_%8)@@ /K@@K=O'0@@A;G@@@A8#0@KWRE1@@#/KF@@@;?F@@@RE1@@#;^@@[]+8K@@_EX )@@G@@')])JA8#0@K&/KF@@@C80@@@;G@@@#/@@@K3G80@@[;G@@@#/^@@K,C8)@@0')])JAC8)@@@EY )@@G@@;=K@@#G8)@@0')])JA8#0@K3/KF@@@C8.@@@T8K@@#;GH@@@H80@@[/K@@K3&'0@@0/K@@L]EZ )@@G@@C8K@@@&'0@@ N8X@@@C80@@@;O@@@=W8@@@EE/X@@@;?)@@AG8.@@08KK@LE/^@@L^/C@@LJFA )@@G@@;?)@@AG80@@-8KK@LJ9?@@@IC@0@@F;C0@@M/K@@LPC@)@@J')])JA8KK@LN+8K@@_')])JAFB )@@G@@;G@@@A/^K@LQ/KF@@@[@@@L%C@@@L8'=@@@I(C[@@#/K@@L+RE1@@# C[@@#A^K@L([@@@L%FC )@@G@@C8@@L*'=@@[QC8@@@@/K@@J>E$PKT 8@E@@@@@@@@@***** EDIT$: ATTEMPT TO STOREFD )@@G@@ OR LOAD OUTSIDE OF IMAGE ***** @@[@@@ @[F@L:&'0@J+/K@@M)&'0@J>FE )@@G@@/K@@M)&'0@J2/K@@M)&'0@M[/K@@M)/,0@J_[@@^@9/K@@M!&'0@K^/K@@M)&'0@KA/K@@M)FF )@@G@@&'0@KJ/K@@M)&'0@KL/K@@M)&'0@KS/K@@M)&'0@KT/K@@M)&'0@K:/K@@M)&'0@K9/K@@M)FG )@@G@@&'0@L@/K@@M)&'0@L[/K@@M)&'0@K"/K@@M)A]0^@8Q'0@M1/K@@M+A]0^@8Q'0@M\/K@@M+FH )@@G@@A]0^@8Q'0@M!A@K^@5A@)^@6A@0^@79*@^@99*)^@;^@K^@.CC0^@8R@K^@1R@)^@2R@0^@3FI )@@G@@/KJ@@@C@@^@9C@)^@;C@K^@'C@0^@/A@K^@1A@)^@2A@0^@3Q]0^@8R@K^@5R@)^@6R@0^@7FJ )@@G@@N@K^@./KF@@@&'0@N^/K@@M)&'0@NF/K@@M)&'0@NK/K@@M)&'0@NN/K@@M)&'0@NS/K@@M)FK )@@G@@[0@^@4C?[@@@[?@^@4C^[@@@[^@^@4C@@^@4'=@@@IN?L@@@C^[@@@&;@@@[C8K^[YM#H)@@FL )@@G@@Q8)@@@Q^1@@@/KF@@@C8K@NF[^[@@@;C@@@M[?[@@@/KH@@@C8K@NK/K@@NO%9@@@^C9@@@@FM )@@G@@[1@^];C@@^^4/,0@C@/K@@Q/C8@^].C@K^^5'=@@@4C0@^].=8@@@)/K@@N,C@@^^6'=@@)#FN )@@G@@C@@^^0=8@@@K/K@@N,C@@^#P=8@K@@/K@@R3C8@^^7C8K@@ /,0@INC@0^#PC[@@@J;(@@@EFO )@@G@@(@@@@KC80@[@)80[]@;(@@@EC8@@@A/D@@N;/,0@L9G8@@@[;(@@@[/ @@N9C/@@@[/,0@L.FP )@@G@@/,@@P0C/@@@,/,0@L9C8@[]A/,0@C=/K@@Q*/,0@M^C8@[]B/,0@C=/K@@OJ[@@@@KC/@@@/FQ )@@G@@/,0@L9C@@@@K/,0@M^C8@[#A/,0@C=/K@@OR[@@@@KC@@^^8/,0@M^C@@@@K/,0@M^C8@^[CFR )@@G@@'=@@@J[@@^]/*@@^]//K@@RB/,0@M/C8@^]3C8K@@S/,0@IN/,@@P0C8@^[C'=@@@J[@@^]/FS )@@G@@/G@@R\/,0@M/*=@^];/K@@O4*0@^];/K@@R@C@@^^9'=@@@H&;@@@@C8W@@@;*K@@MG@K^^'FT )@@G@@T8@@@A[4@^];C@@@@H'=@@@IC8@@@[[=@^];C@@^^;'=@@[IC/@@@[/,0@L.C@@^^M/,0@M^FU )@@G@@C/@@@[/,0@L.9?@^[>/,0@MAC@@^^//,0@MC/,0@GH@@@^[%/S@@@@9?@^[%/,0@MAC/@@@[FV )@@G@@/,0@L.C4K^];C8@^^Q/,0@IN/,0@L_[C@^##C8@^#]'=@@@C/,0@M/C8@^[$&;@@@['=@@[XFW )@@G@@C8@^]-/,0@ITC@@^^M/,0@M^/,0@L_[C@^#AC8@@@A[C@^#BC8@^# '=@@@C(^@^# /K@@PWFX )@@G@@/,0@M/C@@^^H%@@^[(/K@@R6C8@^]0/,0@ITC@@^[(/,0@M^/,0@IPC8@@@[/,0@M'C@@^^.FY )@@G@@'=@@@J[@@^]//^@@R\'=@@@DC8@[[]/,0@C=/K@@Q+9*@^[>C8@[[[/,0@C=/K@@P'/,0@MAFZ )@@G@@C/@@@*/,0@L99?@^[>/,0@MAC8@[[#/,0@C=/K@@QA[@@@@KC/@@@(/,0@L9C@@@@K/,0@M^GA )@@G@@C/@@@)/,0@L9C8@@@ [0@^@"C8@[[^/,0@C=/K@@QV[@@^[?C/@@@//,0@L9C8@^[?/,0@ITGB )@@G@@C8@[[ /,0@C=/K@@QS[@@^[?C/@@@//,0@L9C8@^[?/,0@ITC8@@@&[0@^@"/KC@@@C8@[[ GC )@@G@@/,0@C=/K@@QS[@@^[?C/@@@//,0@L9/K@@QOC8@[[A/,0@C=/K@@Q\9*@^[>/,0@MA/KC@@@GD )@@G@@C8@@@U/K@@OA9?@^^"9*@^^QC8@@@D[4@^];/K@@O4C@@^ @'=@@@I/K@@Q.C@@^ ['=@@@IGE )@@G@@C@@^ ]'=@@@I/K@@Q.C@@^ ['=@@@IC@@^ #'=@@@I/K@@Q.'=@@@I*0@^];'=@@@D'=@@@EGF )@@G@@C8@^]"'=@@[]/@@@R@&;@@@@T8@@@A[4@^];/K@@O40@@^]//K@@RT[@@^^PC8@^^N'=@@]]GG )@@G@@C@@^]/>@@^ ^/K@@OW9?@^[>9*@^#CC@@^ '=@@@UC4@^#I!@@^]#/K@@Q2*@@^#N/K@@Q7GH )@@G@@/K@@OWC@@^]/>@@^ A/K@@R\*?@^];/K@@R)*0@^];/K@@SOC*@^];L8@@@[(@@@@GC8K@@ GI )@@G@@[*K^];/^@@R?C8@^[Z'=@@@C(0@^];/K@@R?C@@^ B'=@@@IC8K]WK'=@@@0/K@@OR[@@^^PGJ )@@G@@C8@^^N'=@@]]/K@@Q.C@@^ C'=@@@I/K@@Q.C8@^]>/,0@ITC@@^[(/,0@M^/,0@IP/,0@L_GK )@@G@@[C@^#AC8@@@[[C@^#BC8@^# '=@@@C/,0@M/(^@^# /K@@SLC4@^^H:8@@@K/K@@PO%8@@@TGL )@@G@@/K@@SLC8@^ DC8K@@C/,0@IN/,@@P0C8@^[C'=@@@J/,0@M//K@@N,C8@^[+'=@@@C/K@@R6GM )@@G@@C8@^#@'=@@[]/@@@SOC4@^^Q:8@@@N/K@@SY%8@@@Y/K@@SO[?@^];/K@@R)C@@^ F'=@@@IGN )@@G@@/K@@P:@@@@@@@@@@@@@@@@@@@USE @@@@@@@@@@@@, @@@@@@@@@@@@@@@@@@PRIVS GO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@K^@X____@@@@@@__@@@^@"@@[@@@@@[^[C@@@@@@@@@@@@GQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&Q^[C@@@@@@[[@@@@@@@@@@GR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ GS )@@G@@ GT )@@G@@ @@@@@@@@L^[8@@@@@@@@@@@@@@+^]%@@@@@@FILENAGU )@@G@@ME $$SAVETAPE$$REEL ACCOUNT R/WKEY FILE DESCRIPTION: ALL TAGV )@@G@@PE DRIVES BUSY. WAIT FOR ONE? WAITING FOR SERVO ASSIGN NOT PERFORMGW )@@G@@ED FILE NAME NOT SPECIFIED @@@@@KNON TAPE FILE WITH SAME NAME ALREADYGX )@@G@@ ASSIGNED ANOTHER TAPE WITH SAME FILENAME ALREADY ASSIGNED*** SAVETAPEGY )@@G@@ REJECT *** UNLABELED TAPES MAY NOT BE ACQUIRED VIA @SAVETAPE. ENTER GZ )@@G@@REEL NUMBER ON & &TAPE LABEL SAYS: & (KT)& K-RETYPE REEL NO T-MOUNHA )@@G@@T NEW TAPE TAPE & ASSIGNED.& @USE $$SAVETAPE$$., @FREE,A $$SAVETAPEHB )@@G@@$$. @@@@@@@@@@@@@@@@@@@[#^[,@Q%^^Q@[B^[1@SY^^Q@@@@@@@@2^[C@@@@@@@@@@@@HC )@@G@@@@2^[C@@2^^H@#@@@@@@]^[$@D@@@@@@[^^M@@@@@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HD )@@G@@PRIVS @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@8^#P@@[@@^@@K^^=@ASG, @@@@,,@Q%^^Q@[@^^Q@@^^^IHF )@@G@@@@@@: @@^^]7SAVE TAPE @[^^[_@[^^]O@[C^]^@[C^]GC@@@@@@@H^#C@@[@@@@[#^[8HG )@@G@@@[D^]S@FREE,S @[^^[;$MAIN$ @@^@@^@@@@@]@@@#@ @@@@@]@@@@@@@@@@@@HH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CUSTOMER$ H8)]^HEDIT$ HJ )@@G@@ L#=E HEDIT$A @'>EJHERU$ ]B!^XHFDIT$ L^6E HFDIT$AHK )@@G@@ L^'E HINFDA$ O3'CDHINFOR$ O3;CDHISDERU$ O4XCDHSAVETAHL )@@G@@PE E0M^YJ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@B$DBANK @@P@@ @@[@@0E1[D-PHO )@@G@@C*)^@)@@@@@^@#[[@B@@@)@6A@6A@7AS0AK)@@@@@#@#@ @]@@[@@SA@9^@)@@@@@^@@[@@AHP )@@G@@@@[@@WC1DD-GC(M^@)@@@@@#@@[@@#@@[@@:E[DCS)@@@@@^@@@@@PK@@[@^@^D@C@@@@@@@HQ )@@G@@K@@[@^@@Z@GD@@@@@AK@@[@^@[(@G*@@@@@JK@@[@^@@O@IL@@@@@#K@@[@^@#O@I>@@@@@GHR )@@G@@K@@[@^@[-@L9@@@@@V@@@[@^@ B@NU@@@@@M0@@]@ @@[^@@@@@@@P0@@]@ @@W^@[@@@@@@HS )@@G@@0@@]@ @@O^@X@@@@@G0@@@@ @@,^@1@@@@@V)@@]@ @#!^[Z@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ECHAR$ @@G@@.ECOLN$ @@G@[UECOL$ HV )@@G@@@@G@[@ECOPY$ @@A@@@EDECF$ @@G@]WEDECV$ @@G@]VEDECZ$ HW )@@G@@@@G@]TEDIT$T @@G@@-EFD1$ @@G@[ZEFD2$ @@G@[-EFD3$ HX )@@G@@@@G@[%EFD4$ @@G@[?EFD5$ @@G@[3EFD6$ @@G@[4EFH$ HY )@@G@@@@A@[EMSG1$ @@A@@D@@@/,0@D\Q;)@@@[-D)@@/KF@@@SLIB 73R1 IZ )@@G@@CW?@F&')])H%/KF@@@C80@@ /K@@D'C80@@F;^@@[]+8K@@_%8)@@ :8)@@@/K@@E]CW,@F&JA )@@G@@%8)@@@')])H%8#0@D'/KF@@@C80@@ /K@@EBC80@@F;^@@[]+8K@@_/@)@EHCW,@F&%8)@@@JB )@@G@@')])H%8#0@EB/KF@@@C@K@G&C80@@FAE1@@^R'0@@@+8K@@_%8)@@ /K@@EVO'0@@A;G@@@AJC )@@G@@8#0@ENRE1@@^/KF@@@;?F@@@RE1@@^;^@@[]+8K@@_CW,@F&')])H%8#0@EX/KF@@@C8.@@@JD )@@G@@;G@@@M;CK@@M&;@@@[&;K@@[/K@@E?')G)FWCW,@F&')])H%8#0@E(/KF@@@C8.@@@;G@@@MJE )@@G@@;CK@@M&;@@@[&;K@@[/K@@E;')G)FW:8)@@ /K@@E./@)@E;CW,@F&%8)@@@')])H%8#0@E4JF )@@G@@/KF@@@CW,@F&')])H%8#0@F[/KF@@@')G)FW%8)@@ /K@@E78#0@F[/KF@@@&'0@@@CK[@@]JG )@@G@@C^L@@]/K@@FJ&'0__"/K@@FH&'0@@@;G@@@M;CK@@M&;@@@[&;K@@[')G)FWCW,@F&:W-@@]JH )@@G@@/K@@FR')])H%/K@@FL0@@@@F/KF@@@[K[@@][^L@@]/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@JI )@@G@@C=!@@@/\@@F+C)!)@@[^[@@#Q;@@@@/K[K@#C@@@@@FT[A@@F(]B@@^T#C@@F1^D@@^[ E@@JJ )@@G@@CDAF@@CLBG@@CTCH@@C-DI@@C(EJ@@C1FK@@C9GL@@D[HM@@DDIN@@DLJO@@DTKP@@D-LQ@@JK )@@G@@D(MR@@D1NS@@D9OT@@E[PU@@EDQV@@ELRW@@ETSX@@E-TY@@E(UZ@@E1V[@@E9W\@@F[X]@@JL )@@G@@FC@@@@FK@@@@ C) @@ *-!@@ S+'@@B)<#@@B*=$@@B0>%@@^0&&@@^)$'@@ K*(@@ @()@@JM )@@G@@^*%*@@BK:+@@B8?,@@^C!-@@ ),.@@F)\/@@A@00@@AC11@@AK22@@AS33@@A)44@@A*55@@JN )@@G@@A066@@A877@@B@88@@BC99@@^8':@@BS;;@@ 8/<@@ 0.=@@^K">@@F8_?@@ &'0@D4JO )@@G@@/K@@Q3&'0@D7/K@@Q3&'0@D9/K@@Q3&'0@E^/K@@Q3&'0@EA/K@@Q3&'0@EJ/K@@Q3&'0@EKJP )@@G@@/K@@Q3&'0@E,/K@@Q3&'0@E8#0@K?KK )@@G@@/KF@@@&'0@@@CK[@@]C^L@@]/K@@K'&'0__"/K@@K8&'0@@@;G@@@M;CK@@M&;@@@[&;K@@[KL )@@G@@')G)LA:W-@@]/K@@L[')])H%/K@@K/0@@@@F/KF@@@[K[@@][^L@@]/KF@@@CW!@@@CK!@@@KM )@@G@@CS!@@@/\@@LECO!)@@[^[@@#Q;@@@@/K[K@#C@K@L5C@0@@GC@@@@H/G@@LS/^@@LPC@@@L6KN )@@G@@/K@@LS;S@@@G;*@@@[;*.@@[H@@@L6;SK@@G;?@@@>;CI@@@)8@@@[9?@@@HG8K@@[T@K@L7KO )@@G@@;CK@@+;C)@@=;?!@@@G8)@@0')])H%'G@@L:'G@@L:'G@@L:;C)@@=;?)@@#/K@@L<;C@@@[KP )@@G@@/@F@@@C8)@@)')])H%;S@@@G;*@@@[;CH@@@/K@@LYC@K@L8/K@@LJ)+C*@@)@@@@@PPPPPPKQ )@@G@@)@@)@@&'0@KM/K@@Q3&'0@KW/K@@Q3&'0@K1/K@@Q3&'0@K5/K@@Q3&'0@K7/K@@Q3&'0@M KR )@@G@@/K@@Q3[W[@@]/K@@R]*@@^@U/KF@@[ @@^@V[@@^@U @@^@VC8W@@@KCK^@UH8)@@V&;K@M$KS )@@G@@C@@@@H'=@@@H*@@^@V/K@@MS[@@^@V ^@^@T=@@@QC[^@^@TG8W@@@ @H@@@>@@@QD/K@@M=KT )@@G@@>@@@QE/KF@@[C8H@@@?8I@@@/K@@MKC@@@QBC8K@@#/KF@@@C@@@P/C8K@@[/KF@@@[@@^@VKU )@@G@@C@@@Q]C8K@@]/KF@@@L8@@@[C@)^@UG8)@@[*@I@@@?CY@@@/K@@M3G),@@@/K@@M!%CI@@@KV )@@G@@/KF@@@C)"@@@H80@@[T80@@AG="@@@9?I@@[?80@@BC@K@QF/KF@@[;CK@@=;^@@@%(@@@@HKW )@@G@@G8K@@[[@K@[#;C@@@Y[@@@[[C^@^@UG8@@@[C9K@@[ @@^@(N8)@@@C@W@@@/@K@N2;CK@@YKX )@@G@@*@@@@H?@K@[#/K@@N+%@K@[#/K@@N2%1W@@@/K@@N2C?W@@@!8K@@A/K@@N>%(K^@( @@^@*KY )@@G@@[(K^@(9??@@[C-G@@@:9@@@[C@0@QF')H@O=H9@@@[T9@@@AG>G@@@')H@O?G)G@@@G8@@@[KZ )@@G@@/K@@ND:9K@@[/K@@N%C*?@@@:8)@@.N8)@@[%[K@[[/K@@N+/K@@NT%@)@QF[5@^@*:@)@QFLA )@@G@@[-K^@*/K@@N+(@@@[]:(K^@(/K@@N7[(K^@( @@^@*:[K@[[/K@@O[G9K@@[(@G@@@/K@@N"LB )@@G@@!4W@@@/K@@NC @@^@* @@^@(/KF@@@:(K^@( *@^@(9?K^@*98V@@@C8@@@-[=@^@((?@^@(LC )@@G@@/KF@@[C@@^@5D8)@@@C80@@@C!@^@(8^@@OO1@@@@I!8)@[@C80@@E[))^@([=0^@(/KF@@[LD )@@G@@C8K@@@;=@@@A?8K@@'?8K@@0/K@@OZ(@@@@JC80@[@H8K@@0T8)@@EG8!@@@/K@@OH/^0@OKLE )@@G@@%8K@@+:8K@@-C8.@@@/@0@OK/K@@OH9*)^@%9*)^@?[@)^@,[@)^@\[@)^@09*)^@19*)^@3LF )@@G@@[@)^@5/K@@N![1@^@*[!@^@*[(@^@*[>@^@*[5@^@([1@^@([!@^@(C80@@F+8K@@_:8)@@ LG )@@G@@;^@@@A8#0@O69*@^@XC@@@QGC@K@QHC8)@@BC@0@QF[@"^@)8#)@O_N4K^@*9!@^@%/\)@P!LH )@@G@@C9K@@*(4@^@**)@^@*')H)@@N0K^@*9!@^@?*@@@[[/K@@PIC[@@QIN8K@@^/\)@P!N?K^@*LI )@@G@@(@@@[[/K@@PSC9K@@(')H)@@C[@^@,/\)@P!C9K@@)')H)@@(*@^@**=@^@*/K@@PYC@@@QJLJ )@@G@@'=@@@J/KF@@@C9K@@/')H)@@N*K^@*C[@^@\/\)@P!N=K^@*(@@@[[/K@@PVC9K@@/')H)@@LK )@@G@@C[@^@0/\)@P!/K@@PV;>@@@A')H)@@8KK@P:/KI@@@[5W@@@[1W@@@[!W@@@[(W@@@[>W@@@LL )@@G@@/\0@P5[-W)@@Q;K@P\/KJ@@@PROCESSOR CALL ERROR @[^@P8ABNORMAL RETURN FRLM )@@G@@OM READ$ @[ @P.TOO MANY SPECIFICATIONS @[^@Q#K@@@@@]@@@@@[@@@@@ LN )@@G@@@@[^@)@@[@P\TPF$ @@G^@W&'0@I]/K@@Q3&'0@I /K@@Q3&'0@IM/K@@Q3&'0@QS/K@@Q3LO )@@G@@/,0@IS[@@^@"/K@@R]&'0@I=/K@@Q3&'0@I&/K@@Q3&'0@I\/K@@Q3&'0@I1/K@@Q3&'0@I8LP )@@G@@/K@@Q3&'0@JA/K@@Q3&'0@JH/K@@Q3&'0@JI/K@@Q3&'0@JF/K@@Q3A]0^@.Q'0@RA/K@@Q5LQ )@@G@@A]0^@.Q'0@R^/K@@Q5A]0^@.Q'0@R]0W@@Q5/K@@R\A@K^@'A@)^@;A@0^@/9*@^@"9*)^[@LR )@@G@@^@K^[]CC0^@.R@K^@6R@)^@7R@0^@8/KJ@@@C@@^@"C@)^[@C@K^@_C@0^[[A@K^@6A@)^@7LS )@@G@@A@0^@8Q]0^@.R@K^@'R@)^@;R@0^@/N@K^[]/KF@@@&'0@RT/K@@Q3&'0@R)/K@@Q3&'0@R>LT )@@G@@/K@@Q3&'0@R*/K@@Q3&'0@R!/K@@Q3[0@^@9CK[@@@[?@^@9C^[@@@[^@^@9C@@^@9'=@@@8LU )@@G@@NKL@@@C^[@@@&;@@@[C8K^[0M#H)@@Q8)@@@Q^1@@@/KF@@@C8K@R)[^[@@@;C@@@M[K[@@@LV )@@G@@/KH@@@C8K@R>/K@@R(R]0^@./K@@J59(@@@UC;@@@[:9@@@^ @@@@S;DK@@+)#@@@LC;@@@[LW )@@G@@=;0@]@)#@@@TC@@^B,=#0^B\[@@^](C@@^B0:9@@@^[@@^]%C@@^B1/,0@MB'=@@@I=#0^B2LX )@@G@@/K@@S)C8@^]R'=@@@-(4@^]R/K@@STC8@^]O'=@@@-*4@^]O/K@@Z@C@@^B3C@K^]U;=@@@ALY )@@G@@%@@^B4;^@@@AC@)^B39*K^]&9?@^]V9*@^]=C@@^]X[@@^]*/K@@S>9?@^]U9*@^]&9?@^]WLZ )@@G@@9*@^]=C@@^]Y[@@^]*/K@@S>9?@@[F9*@^]&9?@@[H9*@^]=^#0^]*C@@^B5'=@@[I9?@^]MMA )@@G@@/@@@S:9*@^]=[)K^]*/,0@)M/,0@)*'=@@@?;@@@@M[*@^]\;C@@@A[)@^]\;C@@@A[=@^]\MB )@@G@@;G@@@%W8@@@/[@@^]0'=@@@M;CK@@G9*@^]!C8@@[A/,0@M:C@@^B6[@@^A+:@@^B7[@@^]IMC )@@G@@/#K@T^/,0@C*C@@^B8'=@@@IC8@[]A*@@^]IH8@@[@/,0@M:A]0^]J9!@@@GR@)@@J*@@^]IMD )@@G@@/K@@U[C8@[[A/,0@M:/K@@TPN8K@@LR@K^B92@[=A(/K@@TU/K[OA*/,)@-]'=@@@DC@@^B'ME )@@G@@'=@@@8'=@@@DC@@^B;'=@@@8/,0@RLN80@@KR])^B//,0@QQ?8@@[]/K@@T=C8@@@[/,0@RJMF )@@G@@9?E)@@/,0@G:C/@@@?/,0@QKC/@@@[/,0@QO8K0@TZC/@__./,0@QOC/@@@)/,0@QKC8@@@[MG )@@G@@/,0@RJ'=@@@D=;0[@@/K@@T;/,0@RLC8@^B./,0@M[C)@^]*/,0@G$C8@@@]/,0@RJ*@@^]JMH )@@G@@'=@@@D;D@@@Y%-@^]*/K@@Y(/K@@Y$=;0[@@/K@@UE/,0@RLC8@^C@/,0@M[C@@^]*/,0@G(MI )@@G@@C8@@@]/,0@RJ*@@^]J'=@@@D%[@^]*/K@@Y(/K@@Y$=;0[@@/K@@US/,0@RLC8@^C]/,0@M[MJ )@@G@@C@@^](/,0@G(C8@@@]/,0@RJ*@@^]J'=@@@D%[@^](/K@@Y(/K@@Y$=;0[@@/K@@U&/,0@RLMK )@@G@@C8@^C^/,0@M[C@@^]%/,0@G(C8@@@]/,0@RJ*@@^]J'=@@@D%[@^]%/K@@Y(/K@@Y$C[0^#8ML )@@G@@R')^CB/K@@U/C[0^#1R')^CD/K@@U/C[0^#3R')^CF/K@@U/C[0^#9R')^CH/K@@U/C[0^#2MM )@@G@@R')^CJ/K@@U/C[0^#4R')^CLA@)@@D=;0[@@/K@@VA/,0@RLC8E@@@/,0@M[C@@@@N/,0@Q$MN )@@G@@C8@@@]/,0@RJ*@@^]J'=@@@DN@K@@DN8)@@@C@@@@K/,)@Z,?[0@@I/K@@Y(/K@@Y$=;0[@@MO )@@G@@/K@@VS/,0@RLC8@^CN/,0@M[C@@^]!/,0@G(C8@@@]/,0@RJ*@@^]J'=@@@D:[@^]!/K@@Y$MP )@@G@@C8@[]B/,0@M:/K@@V\[@@@@MC@@@@K&'0@@@/,0@ZN[@@@@LC@@@@M&'0@@_/,0@ZN[@@@@MMQ )@@G@@?[)@@L/K@@TRC@@^]\H9K@@[,[K@@G/K@@Y(/K@@Y$C@)@@KC@@^]!R'0@@]C8K@@@C80@@@MR )@@G@@;=@@@G;=)@@G%80@--:@;^]F/K@@V;%@K@@J/K@@Y(8]0@V2/K@@Y$=;0[@@/K@@WA/,0@RLMS )@@G@@C8@^CP/,0@M[C@@^],/,0@G(C8@@@]/,0@RJ*@@^]J'=@@@DC@@@@K/,0@ZD[@@@@KC8@[]BMT )@@G@@/,0@M:/K@@WR/,0@ZD[@@@@L?[K@@K/K@@TRC@@^]0H9@@@[,[@@@G/K@@Y(/K@@Y$C@@^]0MU )@@G@@?@@@@K/K@@Y(/K@@Y$A@)@@D=;0[@@/K@@W>/,0@RLC8@^CR/,0@M[9?@^]&/,0@G:C8@@@]MV )@@G@@/,0@RJ*@@^]J'=@@@DR@)@@D/,)@Z/R')^]&/K@@XCA@)@@D=;0[@@/K@@W5/,0@RLC8@^CUMW )@@G@@/,0@M[9?@^]:/,0@G:C8@@@]/,0@RJ*@@^]J'=@@@DR@)@@DR')^]:/K@@XCA@)@@D=;0[@@MX )@@G@@/K@@X^/,0@RLC8@^CW/,0@M[9?@^]=/,0@G:C8@@@]/,0@RJ*@@^]J'=@@@DR@)@@DR')^]=MY )@@G@@C8@@@GH@@@@]T8@@@A9?U@@@;GW@@@;HG@@@9/K@@K/K@@Y(/K@@Y$C8@[[B/,0@M:/K@@Z#MZ )@@G@@:@@^CYC@@^CZ;C@@@MN8K@@AR@K^B92C[=BW/K@@Z#C8@@[]/,0@M./K@@TR9?@^^E/,0@O5NA )@@G@@C8@^^E'=@@@U*4@^^K/K@@X?C@@^C>'=@@@J[@@^^DC8@^^E'=@@@UC@@^C:'=@@@J/K@@X0NB )@@G@@C@@^B2[@@^^DC@@^C0'=@@@J @@@@R/K[OBVC;@^C1C@@^B\>@@^^L/K@@YO/K@@YPC;@^C4NC )@@G@@C@@^C7=@@^^D/K@@YOC@@^B\>@@^^L/K@@YP/K@@YOC;@^C8C@@^^D>@@^B2/K@@YO/K@@YPND )@@G@@C;@^C;C4@^^K/@@@YO!8@@@K/K@@YO/K@@YPC;@^C.C0@^^K+8@@@G/@K@YO/K@@YPC;@^D@NE )@@G@@C@@^D^>@@^^K/K@@YO/K@@YPC]0^D =;0[@@/K@@Y>/,0@RLC8@^DA/,0@M[C8@^@)C8K@@0NF )@@G@@/,0@G5/,0@L.C@@@@R/,0@QZC8K@@GC@@@@S/,0@M[C8@@@]/,0@RJ*@@@@R/K@@Y(C9K@@[NG )@@G@@/K@@Y%C9K@@@-9K@@[C@K^ %=8K@@^C[K@@MC8@[#A*@@^]IH8@@[@/,0@M:/K@@Y./[K@Y/NH )@@G@@[@@^^>C8@@@@/,0@C@'=@@@QC8@^^V'=@@@#C8@^^S'=@@@J'=@@@DC@@@@L'=@@@5'=@@@DNI )@@G@@C@@^DD'=@@@8'=@@@QC@@^DE'=@@@8/,0@RLN80@@ R])^DF/K@@TZN8K@@]N8)@@@/,)@Z,NJ )@@G@@C@0@@IT80@@/N8K@@]/,)@Z,C@@@@JG@@@@I/KF@@@N8K@@]N8)@@M/,)@Z,[@)@@JN8K@@]NK )@@G@@N8)@@D/,)@Z,[@)@@KN8K@@]N8)@@Y/,)@Z,*@@@@IH8)@[@C@K@@F;CK@@M(@@@@IC@)@@HNL )@@G@@C@@@@I;*@@@A(@@@@JC@0@@HG@@@@J;*@@@A(@@@@KC[@@@HG@@@@K/KF@@@8KK@Z\C8)@@@NM )@@G@@C8K@@@;=@@@A:@K@[]/K@@Z'!8K@@0!8K@@'/K@@TRH8K@@0T8)@@EG@)@@H8KK@Z0/KE@@@NN )@@G@@C8@[]B*@@^]IH8@@[@/,0@M:/KE@@@C8+@@[T8)@@A;GI@@@C8)@@GH@)@@]T8)@@A;HI@@@NO )@@G@@;!@@@AG9K@@/H8)@@A;!I@@@9-@@@GG82@@[!80@@HC80@@G[@0@@]/KE@@@C8@ISD%C@^]*NP )@@G@@/KF@@@C@@^DG'=@@@4C8@^]1'=@@)F*8G@@@'=@@@QC@@^#9;G@@@=W8@[IC*@@@@HG8@@@[NQ )@@G@@[@@^#9C@@^#8;G@@@=W8@[IC*@@@@HG8@@@[[@@^#8/KF@@@'=@@@?;C@@@M+8@@@_C8.@[@NR )@@G@@[@0@@K;C0@@]C@)@@GC@@@@KT8@@ !G8J@@[;G)@@G;C0@@YG@I^["G8J@@AC@K@@K>8K@@[NS )@@G@@=8K@@#/K@@)/?8)@@#H8@@@[;G@@@=W8@@@B;*K@@[9?!^[19*)^]:/KF@@@=;0[@@/K@@+]NT )@@G@@/,0@RLC8@^^$/,0@M[C@@^]*/,0@G(/,0@L.C)@^]*/,0@G$/,0@L.9?@^]=;G@@@A/,0@G:NU )@@G@@C8@@@]/,0@RJC8@^^0/,0@M[9?@^]&/,0@G:/,0@L.C@@^](/,0@G(/,0@L.C@@^]%/,0@G(NV )@@G@@C8@@@[/,0@RJC8@^^8/,0@M[C@@^]!/,0@G(/,0@L.C@@^],/,0@G(/,0@L.9?@^]:/,0@G:NW )@@G@@C8@@@[/,0@RJC8@^^"/,0@M[C@@^#9/,0@Q$C/@@@\/,0@QKC@@^#8/,0@Q$/,0@L.C@@^#2NX )@@G@@/,0@Q$C/@@@\/,0@QKC@@^#1/,0@Q$/,0@L.C@@^#4/,0@Q$C/@@@\/,0@QKC@@^#3/,0@Q$NY )@@G@@C8@@@[/,0@RJ/KE@@@$ $, 1$ 1$,2$ 2$,3$ 3$,4$ 4$,5$ 5$,6$ 6$,7$ 7$,8$ 8$,NZ )@@G@@9$ 9$,PSF*** @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ASG,T PSFOA )@@G@@***///3000 @@[__"@@^^@N@@@@@@@@@@@@@@@@@@@USE @@@@@@@@@@@@, @@@^[#OB )@@G@@@@[@@@@@[^[J@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@-^[J@@@@@@^0@@@@[[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SUNDAY OG )@@G@@MONDAY TUESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY OH )@@G@@@@@@@@@@@@@Z@@@@@;@@@@[U@@@@[8@@@@]R@@@@]5@@@@#O@@@@#3@@@@^L@@@@^0@@@@ IOI )@@G@@@@@@YY@@@@DD@@@@MM@@@@@@@@@@@@_"@@@@@@]^]M@@@@@@@@@@@@@@#^]U@@^@@I@@@@@@OJ )@@G@@@@E^]U@@E@@@@@@@@@39.R4.Q77 1100/WHAT SITEIDOFF BATCH WHICHDAY OK )@@G@@MMDDYY@@HHMM@@@@@@@@@@@@@@@@@@$FILE$$TEST$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ADD PSF$. . PSF$ OM )@@G@@@@@@@@@C@@@@@@A^^-@@@@@@*[S@@@*SDFF*@]@@@@@JUMP ??????__@@@@ET(I->BK)^0)ON )@@G@@^[NJD3I->H*\ET9IT(G)'^@&^@)D->I1>H)'^@&^@)D(-GT*HD,G*'^@&^@)CL2HT0I)'^@&OO )@@G@@^@)EL5H14JD0G*'^@&C--I->BK)^0)^[OHD!G*'^@&^@)C--JC'^@&E-5IT>G)\E-?HD!BK)OP )@@G@@^0)^[KI(3G(= 9KH-(H*'^@&^@)CT5IT>G)\CT?HD!BK)^0) K)D(#E)=^[>IL2H92^@%^@)OQ )@@G@@C1DD- ^[3I(+IT0G(^[&H9?H-\I9(OR )@@G@@H1$BK)ET0G(<^@1^[3H[\I(?G))GL>^[\H1>^[\G0)I-*G*)G1\H-?H97HD,G8'^@)CL-G))OS )@@G@@IT0G(H0,IFXXXX 2R4 OT )@@G@@SYSTEM @@@@T2SYSID @@@@T2SITE @@@@U[LEVEL @@@@W'OU )@@G@@BRKPT @@@@UJRUNTYPE @@@@UXMACHINE @@@@WVDAY @@@@W:OV )@@G@@DATE @@@@VJTIME @@@@V.TUSED @@@@U4PUSED @@@@U7OW )@@G@@CUSED @@@@U'TLIM @@@@U:PLIM @@@@U,CLIM @@@@U1OX )@@G@@FILE @@@@XLTEMP @@@@X2CAT @@@@X7ASGED @@@@X_OY )@@G@@TAPE @@@@Y^RDONLY @@@@YEX-USE @@@@YJON K@@@@@DEMANDOZ )@@G@@@@8^ %C@@@@@ U@@]^]KIF IFSITE@[B^A+@@#@@@@]A^ =@]E^ U@@#^A(PA )@@G@@ET9IT4G(!BK)^0)^@)ET(I->BK)^0)CL2HT0I)'^@&EL5H14JD0G*'^@&^@)E-?HD!BK)^0)PB )@@G@@E[?HD!BK)^0)CT?HD!BK)^0)E-5IT>G)'^@&E[5IT>G)'^@&CT5IT>G)'^@&C--I->BK)^0)PC )@@G@@E-(H(>BK)^0)D(-GT*HD,G*'^@&^@)C--JC'^@&^@)D->I1>H)'^@&XUSE X-USE @ASG,APD )@@G@@QYZ $FILE$$TEST$. . @@ ^C)@FREE,AR $FILE$$TEST$. . @@ ^C&@FREE,PE )@@G@@A $FILE$$TEST$. . @@^^C?I->H(0H92GD2JC&^@)GT-I--H-\G95G(=^0)@@C@@@GD3IT(PF )@@G@@G9,G(=^0)^@)I--I[>^0)^@)IL>GD=^[\H1?JC&^@)G(8GT?I(3HD6G*)I(3G*&^@)@)@@@@PG )@@G@@H1\I))C1(H->^@&^[(IS)^0)@[^^ D@]H^ H@@#^BW@@[^]1@@@@@@@@@@@@@@@@@@@@@@@@PH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$MAIN$ @@^@@^@@@@@]@@@#@ @@@@@]@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ADIT$ L@\E HADIT$APL )@@G@@ L@/E HADIT$B L[BE HBDIT$ L]IE HBDIT$A L]ME HBDIT$BPM )@@G@@ L]QE HERU$ ]B!^XHGETPSF$ F&IG#GIDONLY$ @K+#MHIF PN )@@G@@ IX$ NLINFDA$ O3'CDHINFOR$ O3;CDHISDERU$ C%5ESK@@@@@@PO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@E$DBANK @@Y@@AEX@DRMEX@DRMPQ )@@G@@EX@DRMEX@DRMEX@DRMEX@DRMEX@DRMEX@DRMEX@DRMEX@DRMEX@DRMEX@DRMEX@DRMEX@DRMPR )@@G@@EX@DRMEX@DRMEX@DRMEX@DRMEX@DRMEX@DRMEX@DRMEX@DRM@@@@@PK@@[@^@@&@C@@@@@@SPS )@@G@@K@@[@^@[I@C&@@@@@#K@@[@^@]3@D4@@@@@GK@@[@^@@Y@G$@@@@@@K@@[@^@#H@H @@@@@APT )@@G@@K@@[@^@[$@KM@@@@@JK@@[@^@@I@L9@@@@@-K@@[@^@^D@MB@@@@@DK@@[@^@[-@QK@@@@@VPU )@@G@@@@@[@^@EM@R1@@@@@P0@@]@ @@T^@@@@@@@Y0@@]@ @@[^@T@@@@@-0@@]@ @@W^@U@@@@@DPV )@@G@@0@@@@ @@;^@6@@@@@V)@@@@ @ .^[1@@@@@V)@@]@ @[Z^B,@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@ACHAR$ @@G@@.ACOLN$ @@G@[NACOL$ PX )@@G@@@@G@[@ACOPY$ @@J@@@ADECF$ @@G@]DADECV$ @@G@]CADECZ$ PY )@@G@@@@G@]AADIT$T @@G@@>ADNQWM$ @@G@]0AFCHR$ @@A@@@AFCOP$ PZ )@@G@@@@A@@\AFD1$ @@A@@#AFD2$ @@A@@ AFD3$ @@A@@KAFD4$ QA )@@G@@@@A@@MAFD5$ @@A@@VAFD6$ @@A@@WAFH$ @@J@[-AFI$ QB )@@G@@@@J@@/AFMSG$ @@A@[SAFMSR$ @@A@[MAFMS1$ @@A@[QAFORM$ QC )@@G@@@@J@@.AFPAC$ @@A@@'AMSGR$ @@J@@ZAMSG$ @@J@@>AMSG1$ QD )@@G@@@@J@@^[OCTAC*8DD^^[3I-2G(-H*)G(8HD3I-3 ))HD4^[GT>IT3GD2JC)RU )@@G@@I-\^[(H13G(2I))I-*G*)H-\GT-H))IT9IT4G(!^[6G(2IT(H9,^[(G))HD,^[ B[DC),^@)RV )@@G@@^@)^@) 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)E9>^[7HD?H))H(>IL$G*)I-*HD3^[(H14RW )@@G@@H8)I-*G*)I[2HD!GD2JC)E-#C0?^[+I(4^[(G0)H1\^[OCTA^@)^@)^@)^@) 0)DDNC))^@)RX )@@G@@@O@@@L K,^@)^@)^@)^@)G(,I-2JC)G1\IK)C*8DD^^[>J[(IT4IS?^[7G*)H(5IT4^[RY )@@G@@GD4G*)H9,G*?^[-H1=^[-I[0G(,G))C*8DD^^@)^@) 0)DDNC))^@)@O@@@L K,^@)^@)^@)RZ )@@G@@^@)I-\^[4H[>^[?HD3I))H9&^[>H->H(>H14IS)I-\^[+G*)GD3IT>H(+H->G)) [ F[ CS,SA )@@G@@E[OCTA C,^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)^@)^@)^@)^@)^@)SB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SC )@@G@@^@)^@) 0)DDNC))^@)@O@@@L LDC0)FTOCTAC*8DD^F*)^@)^@)^@)^@)^@)^@)^@)^@)^@)SD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)SE )@@G@@@O@@@L LDC0)D1JE))CTJD-PD(I^[NC([EL#D@)C1MD9H^[OCTAD1 E8?AC?AC?AC)C1JEK)SF )@@G@@C*8DD^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@L^TVC(GE)?AC?SG )@@G@@A)?ADX -PC))^[ F[ CS,E[OCTA )?E[OCTA^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@L *-^@)^@)^@)^@)^@)^@)^@)^@)^@)SI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SJ )@@G@@^@)^@) 0)DDNC))^@)@O@@@L^L B[DC))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)SL )@@G@@@O@@@L^T D1^^@)^@)^@)E[OCTA^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@L L D1^^@)^@)SN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@L LHC(MC9 -M^[ B[DC))E-#C1 B[DSP )@@G@@C))E9DE-C^[OCTAD1 E8)C9DE1DD1B^[OCTAD1 E8)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SQ )@@G@@^@)^@) 0)DDNC))^@)@O@@@L L D1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)SS )@@G@@@O@@@L K,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ST )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@L K,^@)^@)^@)SU )@@G@@^@)D(>IL$G*)H1>I8)E-#C0)HD,I-\^[ 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UG )@@G@@^@)^@) 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)UI )@@G@@@ @@@K LDD1#EL D( D1O^[[^[OD8)FTOF*)@^@@@K LDC0)FTO -[ )2 )1 )5F*)@G@@@KUJ )@@G@@ L#EL CDOC*)ETBES'^[#E(ME))FTO -[ )1 )1F*\FTO -[ )2 )1F*)FTO -[ )2 )1F*)UK )@@G@@@]@@@K L D-NC*)^@)@B@@@K L#EL CDOC*)ETBES'^[#E(ME))FTO -[ )1 )1F*)@[@@@KUL )@@G@@ L D1^@]@@@K LGD9JE@)^@)@A@@@K LDD1#EL D( D1O^[[^[OD8)FTPE-DD-X^@)@ @@@KUM )@@G@@ LDC0)FTPE-DD)?CC?AK?AC?A(X^@)@J@@@K L#EL CDOC*)ETBES'^[PE-DD-N^[VE(ODDGUN )@@G@@ -[ )1 )1F*\FTPE-DD)?CC?AK?ADX^[VE(ODDG -[ )2 )1F*)^@)@]@@@K L D-NC*)^@)UO )@@G@@@C@@@K L#EL CDOC*)ETBES'^[PE-DD-N^[VE(ODDG -[ )1 )1F*)@[@@@K L D1^@]@@@KUP )@@G@@ LGD9JE@)^@)@O@@@L LDC0)FT^C(]E(BF*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@#@@@KUR )@@G@@ LDC0)FTNC(GC(#E-X@H@@@K LHC(NET[C9 -DD))D1JE- BLKCTA^[ID9O^[PE[^CDOC(^US )@@G@@ (NC(GC(#E))ETBES)E(NC(^^C)^@)@[@@@L L D1^@[@L@K L D1^@O@@@L L D1^^@)^@)UT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@ @@@K L D1^^@,^[ D1^^[#D9IE1 ELO^@)UV )@@G@@@N@@@K L^C(ADDIC*)E[#C1HC(MC9 ^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UW )@@G@@^@)^@)^@)^@)^@)^@)^@) 0% K%E[#C1HC(MC9 K% K)^@)@A@@@K LDD1#EL D( D1O^[]UX )@@G@@^[OD8)FT^C(GC(OC(X@#@@@K LDC0)FTNC(GC(#E-X@C@@@K^T^C(GC(OC*?CTN^[NC(GE[#UY )@@G@@C0,FT^C(GC(OC*?CK?AC?ADX@]@@@K L D-NC*)^@)@^@@@K LDC0)D1JE))FT#D9HE(NF*)UZ )@@G@@@C@@@K^T^C(GC(OC*?CTN^[KCTA 1VC- D- E- -] )1 )1F*)^@)@[@@@K L D1^@[@@@KVA )@@G@@ L D1^@H@@@K^T^C(GC(OC*?CTN^@)E-KC0= 1VC- D- E- -] )1 )1F*?D1 E9NDC,FT^VB )@@G@@C(GC(OC*?CK?AC?ADX@C@@@K^T^C(GC(OC*?CTMES)ELJ 1VC- D- E- -] )1 )1F*)^@)VC )@@G@@@^@@@K LDC0)D1JE))FT#D9HE(NF*)@C@@@K LDC0)FT^C(GC(OC*?CK?AC?ADX^[CCDN^[KVD )@@G@@C(MD*)CTJEK)@B@@@K LMC(HD9QC*)E[ ELH^[VC- D- E- -] )1 )1F*)@F@@@K L#EL VE )@@G@@CDOC*)ETBES'^[MD9GCD^C(S^[VC- D- E- -] )1 )1F*)C- D- E- ^@)@[@@@K L D1^VF )@@G@@@[@@@K L D1^@]@@@K LGD9JE@)^@)@A@@@K LDD1#EL D( D1O^[]^[OD8)FTDD1NC(ME-XVG )@@G@@@ @@@K LDC0)FTDD1NC(ME)?CK?AS?ADX^@)@]@@@K L C-DE))D9I@D@@@K L#EL CDOC*)VH )@@G@@ETBES'^[PE-DD-N^[VDDIET ELO -] )1 )1F*)^0)@[@@@K L D1^@A@@@K LDC0)FTDD1NVI )@@G@@C(ME)?CK?A)?ADXB(NDT D))@^@@@KFTDD1NC(ME)?CK?A)?ADX^@)@[@@@K L D1^@#@@@KVJ )@@G@@ L C-DE))D9AC0)^@)@J@@@K LDC0)D1JE))FTMC(#D9QC(M )1 )2 )1F*.C-ME(H^[[D1^VK )@@G@@^[ID9O^[VEL CTJE1 EK?AC?AK?ADXB(OCDKC*)^@)@^@@@K LDC0)D1JE))FT#D9HE(NF*)VL )@@G@@@L@@@K LDC0)D1JE))FTDD1NC(ME)?CK?AC?ADX^[CCDN^[KC(MD*)CTJEK)CDIC))FTDD1NVM )@@G@@C(ME)?CK?AC?ADX^[CCDN^[OC(HE@)CTJEK)@G@@@K LHC(NET[C9 -DD))FTDD1NC(ME)?VN )@@G@@CK?AC?ADX^[CCDN^[]C( D0)DDIET ELOC(^^C)^@)@B@@@K L#EL CDOC*)E[ ELHBK)FTDVO )@@G@@D1NC(ME)?CK?AC?ADX@D@@@K L#EL CDOC*)ETBES'^[MD9GCD^C(S^[VDDIET ELO -] )1VP )@@G@@ )1F*)@D@@@K L#EL CDOC*)ETBES'^[IC(RETTD*)FTDD1NC(ME)?CK?AC?ADX^@)@ @@@KVQ )@@G@@ LKELJCT ETN^[OFDKC*)DDIET ELO@[@@@K L D1^@]@@@K L D-NC*)^@)@M@@@K LHC(NVR )@@G@@ET[C9 -DD))C(MELJEK!C(GC(HC(IE))FTDD1NC(ME)?CK?AC?ADX^[#CDI^[ID9O^[]C*)VS )@@G@@DDIET ELOC(^ ))CL CT[E(NC*)^@)@N@@@K LHC(NET[C9 -DD))FTDD1NC(ME)?CK?AC?VT )@@G@@ADX^[[D-MC([C-T^[ F[DETOES)DDI^[OD[ ^[KCTA^[JEK)D1J^[OCTA^[RCDN^[NE(KE[GVU )@@G@@DD C)-@#@@@K LNC(O^[ ELMDLPD(K@[@@@K L D1^@[@@@K L D1^@]@@@K LGD9JE@)^@)VV )@@G@@@J@@@K LDC0)D1JE))FTMC(#D9QC(M )1 )2 )1F*.C-ME(H^[[D1^^[ID9O^[VEL CTJE1 VW )@@G@@EK?AC?AK?ADXB(OCDKC*)^@)@B@@@K LDD1#EL D( D1O^[]^[OD8)FTMC(KD-[CT F*)^@)VX )@@G@@@^@@@K LDC0)D1JE))FT#D9HE(NF*)@L@@@K LDC0)FTMC(KD-[CT -] )1 )1F*)D[[ES)VY )@@G@@E[ ELH^[#D9M^[[D1^^[VEL E[GCD#C*?CK?AC?ADX^[CCDN^[OC(HE@)CTJEK)^@)@B@@@KVZ )@@G@@ LMC(HD9QC*)E[ ELH^[VEL E[GCD#C*?CK?AC?ADX@B@@@K L#EL CDOC*)E[ ELH^[VEL WA )@@G@@E[GCD#C*?CK?AC?ADX@G@@@K L#EL CDOC*)ETBES'^[MD9GCD^C(S^[VEL E[GCD#C*?CK?WB )@@G@@AC?ADX^[MC(KD-[CT C))^@)@D@@@K L#EL CDOC*)ETBES'^[IC(RETTD*)FTMC(KD-[CT WC )@@G@@ -] )1 )1F*)@G@@@K LHC(NET[C9 -DD))FTMC(KD-[CT -] )1 )1F*)D[[ES)CL C(IWD )@@G@@^[MC(KD-[CT C)-^C-@A@@@K LKELJCT ETN^[OFDKC*)EL E[GCD#C*)^@)@]@@@K L D-NWE )@@G@@C*)^@)@M@@@K LHC(NET[C9 -DD))C(MELJEK!C(GC(HC(IE))FTMC(KD-[CT -] )1 )1WF )@@G@@F*)CT[D0)D1JE))CL ^[MC(KD-[CT C)?^[]C(#CDPET ^@)@O@@@K LHC(NET[C9 -DD))WG )@@G@@FTMC(KD-[CT -] )1 )1F*)C-JC(N^[ID9O^[ F[DETO^[DD0)E-CC*)E[#C0)D9M^[ID8)WH )@@G@@E-#C0)E9[ES)ETPE[KD-DC(^^C)^@)@#@@@K LNC(O^[ ELMDLPD(K@[@@@K L D1^@[@@@KWI )@@G@@ L D1^@]@@@K LGD9JE@)^@)@[@@@K L D1^@H@@@K LDC0)FTKC(MC1JELH )1 )1 )1F*.WJ )@@G@@E(KC-[E- ^[[D1^^[[CD#D9IC1DC8)D[[ES)E- D(K^[#D9M@E@@@K LDC0)FTNC(GC(#E-XWK )@@G@@^[[D1^^[ID9O^[VET D- CTO )1 )1 )1F*.CDGD))@A@@@K LDD1#EL D( D1O^[[^[OD8)WL )@@G@@FTNC(GC(#E-X@F@@@K LDC0)ELJE8)ET CDMCTC^[AELJD*)ET D- CTO -[^[AD9M^[[CD#WM )@@G@@D9IC1DC8)^@)@N@@@K LHC(NET[C9 -DD))C(MELJEK!CD[CTJD1ADDB^[#CDID1JE))CL WN )@@G@@^[OCTA^[PE[^CDOC(^^[RDDOD@)CC)E[ ELAD9MD*)E(KC-[E- ^[NC9N^C)@#@@@K LNC(OWO )@@G@@^[ ELMDLPD(K@[@@@K L D1^@]@@@K LGD9JE@)^@)@]@@@K L D-NC*)^@)@N@@@K LHC(NWP )@@G@@ET[C9 -DD))C(MELJEK!CD[CTJD1ADDB^[#CDID1JE))CL ^[OCTA^[PE[^CDOC(^^[RDDOWQ )@@G@@D@)CC)E[ ELAD9MD*)E(KC-[E- ^[NC9N^C)@#@@@K LNC(O^[ ELMDLPD(K@[@@@K L D1^WR )@@G@@@[@@@K L D1^@J@@@K LDC0)D1JE))FTMC(#D9QC(M )1 )2 )1F*.C-ME(H^[[D1^^[ID9OWS )@@G@@^[VEL CTJE1 EK?AC?AK?ADXB(OCDKC*)^@)@[@L@K K,^@)@L@L@K K,^@)^@)^@)^@)DDIWT )@@G@@^[OD[ ^[GD9JE@)CL D-JE8?^[RC*)D[[E1 ^[DD1NC(ME- C))D-JCT[D))CTJC- ^[OD8)WU )@@G@@CDKE[GFC)^@)@M@L@K K,^@)^@)^@)^@)CC)CTJELMC(#E-DD9I^[RDDOD@)E-CC*)C(SC(#WV )@@G@@^[QC(METDD9I^[DC))E-J^[ B[DC))CDPE-JD([E-DCT[D-GFC,^@)@J@L@K K,^@)^@)^@)WW )@@G@@^@)D[JE9 E1 EK?^[OD[DES)E9DD-G^[JD1GFC)E9JELF^[DC0)C*8DD^^[CCDN^[OC(HE[JWX )@@G@@EL[ELT@K@L@K K,^@)^@)^@)^@)CTJELMC(#E-DD9IES) [[ES)DDIC-DCT[E- C))CLT^[OWY )@@G@@D[ ^[KEL ET D1#C*)D9A^[[^@$CTPELO^8)@L@L@K K,^@)^@)^@)^@)ETBES)C1JEK)DDOWZ )@@G@@ C,^@)ETJ ))DDA^@$CTJD1QC(ME)$^[[CLJE1 ^[^DD^D0$E))CTMC([E- ^[NE(#D@)^@)XA )@@G@@@D@L@K K,^@)^@)^@)^@)CDI^[NC9N ))E9 ^9GD))C-J^[ND8)D1JE8,^@)@[@L@K K,^@)XB )@@G@@@D@L@K LDC0)FT B[DC-X^[[D1^^[VCL[ET F*)CDIC))FTGC(QC(GDD^F*)@D@L@K LDC0)XC )@@G@@D1JE))C*8DD^^[CCDN^[OC(HE@)CTJELMC(#E-DD9IES)^@)@A@L@K L#EL CDOC*)ETBES'XD )@@G@@^[#E(ME))C*8DD^^@)@[@L@K L D1^@[@L@K L D1^@A@@@K LDD1#EL D( D1O^[[^[OD8)XE )@@G@@FT#E(ME-X^@)@C@@@K LDC0)FT#E(ME)?CC?AC?ADX^[CCDN^[KC(MD*)CTJEK)^@)@F@@@KXF )@@G@@ LNC(O^[KDDGD8=^@,^[^D8)D1JE))CTJD1QC(ME))^K)E-J^@%^[AD9M^[KD-PES)@ @@@KXG )@@G@@ LDC0)FT#E(ME)?CC?AK?ADXB(^CTG@F@@@K LNC(O^[IETDC9I^)) 0)C-J^[ID9O^[#D9IXH )@@G@@E1 ELO^@<^[OD8)C@)C1JEK)C-#D))@[@@@K L D1^@L@@@K LDC0)FT#E(ME)?CC?AK?ADXXI )@@G@@B(NDT D))D9M^[VCTPELO -[ )1 )1F*.CDND(PE[^^[JEK)FT#E(ME)?CC?AC?ADXB(HCDKXJ )@@G@@E(KC))@G@@@K LNC(O^[IETDC9I^)) 0)C-J^[ID9O^[#D9IE1 ELO^@<^[OD8)C@)C1JEK)XK )@@G@@ETFC(GC(OD9I@G@@@K L#D- CDM^[KDDGD8=^@,^[^D8)CTJD1QC(ME))^K)E-J^@%^[AD9MXL )@@G@@^[NDT D- E-JD0)^@)@[@@@K L D1^@A@@@K L#D9MEL CTO -K^[VCTPELO -[ )1 )1F*)XM )@@G@@@[@L@K K,^@)@J@L@K K,^@)^@)^@)^@)DDA^[RC*$EL ^[^D9DD1B^[ B[DC))D1JE8?^[KXN )@@G@@D-PC8)DDI^[OD[ ^[QC(METDD9I^[DC),^@)@[@L@K K,^@)@J@L@K LDC0)FT#E(ME)?CC?XO )@@G@@AC?ADXB( B[DC))CDIC))FT B[DC-X^[[D1^^[VCL[ET F*)CDIC))FTGC(QC(GDD^F*)^@)XP )@@G@@@^@L@K (VC*8DD^ )1 )6 )1F*)^@)@F@L@K^@)^@)^@)^@)^@)^9VCL[ET )1 )1 )1F*$XQ )@@G@@BK$FTGC(QC(GDD^ )1 )1 )1F*$^@)@[@L@K L D1^@[@@@K L D1^@D@@@K L#D- CDM^[IXR )@@G@@ETDC9I^)) 0)C-J^[#D9IE1 ELO^@<^[OD8)C@)^@)@]@@@K L D-NC*)^@)@M@@@K LHC(NXS )@@G@@ET[C9 -DD))C(MELJEK!E-#C0)C(GC(HC(IE))FT#E(ME)?CC?AC?ADX^[HDDNETKC(GD- XT )@@G@@C)?^[CCDN^[ID8)E[#C0?^[JEK)CC)@M@@@K LHC(NET[C9 -DD))E(ODDGDDOFC!C1DD- XU )@@G@@^[ D- D( D1O^[ID9O^[PETDD1B^@+^[#D[[EL[CTOC(M^[AD9M^[^DDMC(#E-DE1 ES-^@)XV )@@G@@@#@@@K LNC(O^[ ELMDLPD(K@[@@@K L D1^@]@@@K LGD9JE@)^@)@C@@@K L#D- CDM^[KXW )@@G@@DDGD8=^@,^[^D8)CTJD1QC(ME))^K)E-J^@%@[@@@K L D1^@#@@@K LDC0)FTNC(GC(#E-XXX )@@G@@@ @@@K^TKCD#DS)^@)^@)ET D-KCTA 0)^@)@O@@@L LDC0)FT^C(]E(BF*)^@)^@)^@)^@)XY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XZ )@@G@@^@)^@) 0)DDNC))^@)@ @@@K^TCC-B -K^@)^@)ET D-KCTA^[OD9#@ @@@K^TKELO -OD))YA )@@G@@^@)ET D-KCTA 0)^@)@O@@@L L D1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)YC )@@G@@@[@@@K L D1^@[@L@K K,^@)@K@L@K K,^@)^@)^@)^@)E(KC-[E- ^[ F[ CS,E[OCTA ))YD )@@G@@DDA^[IC(#C(NET[ELT ))E-J^[DD1^DD#CDOC*)E-CCDO^[ B[DC))@C@L@K K,^@)^@)^@)YE )@@G@@^@)DDN^[OD8)CL ^[MC*!CDNET D(]D- C),@[@L@K K,^@)@D@L@K LDC0)D1JE))C*8DD^YF )@@G@@^[CCDN^[OC(HE@)CTJELMC(#E-DD9IES)^@)@M@L@K^T D-O -P^@)^@)C(SC(# 1KE-#C0)YG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)GD0I[>H1=^[ B[DC))I-\^[?HD3I))H9&^[>H->H(>YH )@@G@@H14IS)@[@L@K *-^@)@]@L@K^L B[DC))^@)@[@L@K L D1^@A@@@K^TVC(^ )1 )4 )1F*?YI )@@G@@DC)E-KC0= 1NE[OCTA@@@@@K@A@L@K LDD1#EL D( D1O^[[^[OD8)FT#E(ME-X^@)@O@@@LYJ )@@G@@ LDD1#EL D( D1O^[[^[OD8)FTIC(RE-X^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@H@L@K LDC0)CTJD-PD(I^[NYL )@@G@@C([EL#D@)C1MD9H^[PE-DD-N^[AD9M^[VCTPELO -[ )1 )1F*)D9M^@;^@)@O@@@L LDC0)YM )@@G@@CTJD-PD(I^[NC([EL#D@)C1MD9H^[PE-DD-N^[AD9M^[VD1 E9O -[ )1 )1F*)D9M^@;^@)YN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@F@L@KELJE8)ET CDMCTC^[AELJD*)YO )@@G@@D1JE-NE[OCTA^[AD9M^[VCTPELO -[ )1 )1F*)^@)@O@@@LELJE8)ET CDMCTC^[AELJD*)YP )@@G@@D1JE-NE[OCTA^[AD9M^[VD1 E9O -[ )1 )1F*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YQ )@@G@@^@)^@)^@)^@) 0)DDNC))^@)@]@@@K L D-NC*)^@)@^@L@KDC) LVCTPELO -[ )1 )1F*)YR )@@G@@@O@@@LDC) LVD1 E9O -[ )1 )1F*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@[@@@K L D1^@]@@@KYT )@@G@@ LGD9JE@)^@)@A@@@K LDC0)FTDD1NC(ME-X^[JEK)FT^C(GC(OC(X@C@@@K LDD1#EL D( YU )@@G@@D1O^[M^[OD8)FTMC([ETNC(HCLGC*?AC?ADX@E@@@K LDC0)D1JE))FTMC([ETNC(HCLGC*?YV )@@G@@AC?AC?ELX^[CCDN^[OC(HE@)CTJEK)@A@@@KDC) LVEL CDNET D(]D- )1 )1 -MF*)^@)YW )@@G@@@[@@@K L D1^@]@@@K LGD9JE@)^@)@[@@@K L D1^@[@@@KC(SDDO@[@@@K L D1^@O@@@KYX )@@G@@ L^C(ADDIC*)E(ODDGC(GC(HC(IE-N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YY )@@G@@^@)^@)^@)^@)^@) 0% K%E(ODDGC(GC(HC(IE-N K% K)^@)@A@L@K LDD1#EL D( D1O^[PYZ )@@G@@^[OD8)FT#E(ME-X^@)@O@@@L LDD1#EL D( D1O^[P^[OD8)FTIC(RE-X^@)^@)^@)^@)^@)ZA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)ZB )@@G@@@G@L@K LDC0)CTJD-PD(I^[NC([EL#D@)C1MD9H^[PE-DD-N^[AD9M^[VCTPELO -P )1 )1ZC )@@G@@F*)^@)@O@@@L LDC0)CTJD-PD(I^[NC([EL#D@)C1MD9H^[PE-DD-N^[AD9M^[VD1 E9O -PZD )@@G@@ )1 )1F*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@]@@@K L C-DZE )@@G@@E))D9I@G@L@K LDC0)CTJD-PD(I^[NC([EL#D@)C1MD9H^[IC(RETTD*)C1JEK)FT#E(ME)?ZF )@@G@@E*?AC?ADX^@)@O@@@L LDC0)CTJD-PD(I^[NC([EL#D@)C1MD9H^[IC(RETTD*)C1JEK)FTIZG )@@G@@C(RE)?E*?AC?ADX^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@B@L@KZH )@@G@@^TVC(GE)?AC?A)?ADX -LC-N^@)^[IC(RETD 0&^@)@O@@@L^TVC(GE)?AC?A)?ADX -LC))ZI )@@G@@^@)^[IC(RETD 0&^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZJ )@@G@@^@)^@)^@)^@) 0)DDNC))^@)@]@@@K L D-NC*)^@)@A@L@K^TVC(GE)?AC?A)?ADX -LC-NZK )@@G@@^@)^[NDC,^0)@O@@@L^TVC(GE)?AC?A)?ADX -LC))^@)^[NDC,^0)^@)^@)^@)^@)^@)^@)ZL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@[@@@KZM )@@G@@ L D1^@C@L@KFT#E(ME)?E*?AC?ADX -OE[A^),FT#E(ME)?E*?AC?ADX^@)@O@M@LFTIC(RZN )@@G@@E)?E*?AC?ADX -OE[A^),FTIC(RE)?E*?AC?ADX^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@MFTIC(RE)?E*?AC?ADX -OE[AZP )@@G@@^),FTIC(RE)?E*?AC?ADX^0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZQ )@@G@@^@)^@)^@)^@) 0)DDNC))^@)@O@@@M L C-DE))D9AC0)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNZS )@@G@@C))^@)@#@@@K LDC0)FTNC(GC(#E-X@C@L@K^T[C-^ -^^@)^@)ET D-KCTA 1VCTPELO -PZT )@@G@@ )1 )1F*)^@)@O@@@L^T[C-^ -^^@)^@)ET D-KCTA 1VD1 E9O -P )1 )1F*)^@)^@)^@)ZU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@]@@@KZV )@@G@@ L D-NC*)^@)@B@L@K^T[C-^ -^^@)^@)E[#C0,FT#E(ME)?E*?AC?ADX^@)@O@@@L^T[C-^ZW )@@G@@ -^^@)^@)E[#C0,FTIC(RE)?E*?AC?ADX^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@[@@@K L D1^@[@@@K^T D1^@[@@@KZY )@@G@@ L D1^@]@@@K LGD9JE@)^@)@[@@@K L D1^@M@@@K L^C(ADDIC*)^@)E-TE[ ^@)^@)^@)ZZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0% K%E-TE[ K%AA )@@G@@ K)^@)@#@@@K LDC0)FTNC(GC(#E-X@D@@@K^T#D9KFC?CTN^@)ET D-KCTA 1VFSIK)H9&^[4H[>^[&H9?H-\I9(H1$^[4I9\^[3I--I->H(>AG )@@G@@H14IS)H[-IS)GL>G(,^[2G(6G(2IT>G)?^@) 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)I-\AH )@@G@@^[&H92GT>^[4H[>^[\IL(G9(H1-H))E[#C0)G1(H->^[4H8)H[-I1>^[-H0)G(!I[4JC)G(?AI )@@G@@G(!G(,I))G1\IK)^@) 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)I-*G*)H1>I9?JC)DDIET AJ )@@G@@ELOG(=^@*H92^[MC(KD-[CT G)(^[>H->H(>H14 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AK )@@G@@ 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@LAM )@@G@@ K,^@)^@)^@)^@)E9(I-*H95I))I-*HD3^[^[\G0)GC)ET D- CTO^[NAN )@@G@@C9N^[7HD?H))GT-I(3G*)I-*HD3^[$G(,^@) 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)I-\AO )@@G@@^[\I[>IL-I->^[0IL\I[>IL?JC?^[+I(4^[3I(+IT>ID5G(,I))G9>H13^[5IT(H1$^[\I(2AP )@@G@@^[\I(4I[5I))EL D)) 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)I--I[>^[7HD?H))H1\I))AQ )@@G@@H[-I1>^[KCTA^[>H14IL(G(3^[&H92^[4H[>^[>H->H(>H14IS)I9>^[DD1NC(ME->G))^@)AR )@@G@@ 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@) [\IK)HD!I[2H90IL>IK)E[#C0)G(,I-2HD>IS)AS )@@G@@G1\IK)G(?G(!G(,I-3^[7G*)EL E[GCD#C(= C)I-*HD3^[4HD!G*, 0)DDNC))^@)@O@@@LAT )@@G@@ K,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@D@L@K^TVC(GE)?AC?A)?ADXAV )@@G@@ -D^@)^[KCTA 1VFS^[-^[,G(7^[?H9H->H(>H14^[*GD3^[+G(>H0)DDIET BC )@@G@@ELOG(=^[(H0)I-*G*)D1 E9NDC)G1(H-> )) 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)I9>BD )@@G@@^[!I(3I))G-(IT^[^[&HD?G*,^@) 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BG )@@G@@ 0)DDNC))^@)@O@@@L^T^C(GC(OC*?ET#^@)D-JCT[D),FTV^S1F*?CK?AC?ADX^@)^@)^@)BH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@LBI )@@G@@ K,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@D@@@K^TVC(^ )1 )4 )1F*?BK )@@G@@E*)^@)D1 E9NDC,FTV^S1F*?CK?AC?ADX^@)@^@@@K LDC0)FTV^S1F*?CK?AK?ADX@G@@@KBL )@@G@@ LDC0)ELJE8)ET CDMCTC^[AELJD*)CTJD1QC(ME-DD0)C1JEK)FTV^S1F*?CK?AK?ADX^@)BM )@@G@@@B@@@KE-TE[ ^[VCTJD1QC(ME-JE(O )1 )1 -NC1GC)=F*)@]@@@K L D-NC*)^@)@L@@@KBN )@@G@@ LHC(NET[C9 -DD))C(MELJEK!FS^[&HD?G(3 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CR )@@G@@^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@N K,^@)^@)^@)^@)CT?G(-H0)I(0^[4H[>^[?CS )@@G@@H9 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CT )@@G@@ 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@@@LCV )@@G@@^TKCD#DS?CS)^@)D-JCT[D),^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@O@N@L^TKCD#DS?CS)^@)D1 CX )@@G@@E9NDC,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CY )@@G@@^@)^@)^@)^@)^@)^@) 0)DDNC))^@)@[@L@K L D1^@[@@@L L D1^@L@@@O^TCC-B -K^@)CZ )@@G@@^@)CT[D-G^[MD9PE-DD1 ^[OD8)C- E- ELHDDIC*)C(SC(#^[MC(GC([ET ^[GC(QC(G^[MDA )@@G@@E(ID1DD1B^[PD1^C(M@]@@@O^TNC(OCS?DC)@B@@@O^TSEDO^@)^@)^@)E-KC0= 1MC(GC([DB )@@G@@ET D- E1 D))@]@@@O^TNC(OCS?CC)___DDNC))^@)@O@@@L K,^@)^@)^@)^@)E-*G*)H92DC )@@G@@G->IK)H9&^[4H[>^[&H9?H-\I9(H1$^[4I9\^[3I--I->H(>H14IS)H[-IS)GL>G(,^[2G(6DD )@@G@@G(2IT>G)?^@) 0)DDNC))^@)@O@@@L K,^@)^@)^@)^@)I-\*[S@@[*SDFF*@[@>@= 0)^@)DE )@@G@@@[@@@> 0)^@)@I@>@= 0)^@)^@)^@)^@)DDNC))AC1A@0 88A@)ETJC1OE9[EL ^[#D9IC1DDF )@@G@@C9PEL[E-DD9I^[KCDMCDHC(OC(MES)@I@@@> 0)^@)^@)^@)^@)DDNC))AC1A@0 88A@)IT\DG )@@G@@G14I9-IL>^[@= 0)^@)@[@@@> 0)^@)DH )@@G@@@^@>@=C-#D-PE-N^@)^@)AC9A@0AC)@^@@@>C-#D-PE-N^@)^@)AC9A@0AC)@^@@@&C-DCDBDI )@@G@@E-TE@)^@)^9AAS4^8)@#@>@=C(NDD]CDN^@)^@)A@)@#@>@=C(SE[[C-E^@)^@)A@)@O@@@>DJ )@@G@@C(SE[[C-E^@)^@)A@1A00A@0A@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)C(SE[JD9G^[DDK )@@G@@D1DE-DCDG^[MC(NC(ME1 ^@)^@)^@)^@)^@) 0)C(SE[JD9G@O@@@>C(SE[ F[K^@)^@)A@1DL )@@G@@A00A@0A@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)C(SE[JD9G^[ F[KCDIETDD9I^@)^@)DM )@@G@@^@)^@)^@)^@)^@)^@) 0)C(SE[JD9G@#@>@=C(SE[ F[K^@)^@)AC0@#@*@>C(SE[ F[K^@)DN )@@G@@^@)AC0@^@>@=C(SE[OEL[CT ^@)AK0A@)^@)@^@@@>C(SE[OEL[CT ^@)AK0A@)^@)@^@>@=DO )@@G@@C1#C-]ETU^@)^@)AS0A@)^@)@^@@@>C1#C-]ETU^@)^@)AS0A@)^@)@^@>@=C9#CTHDDI^@)DP )@@G@@^@)AK0A@)^@)@^@@@>C9#CTHDDI^@)^@)AK0A@)^@)@#@>@=DDICTJEL ^@)^@)A@)@#@@@>DQ )@@G@@DDICTJEL ^@)^@)A@)@ @>@=D-[ETOELF^@)^@)A@1AK0A@0A@0^@)@ @@@>D-[ETOELF^@)DR )@@G@@^@)A@1AK0A@0A@0^@)@#@>@=D([F[JE[I^@)^@)AC5@#@@@>D([F[JE[I^@)^@)AC5@^@>@=DS )@@G@@ELNDD#D1O^@)^@)AK0A@)^@)@^@@@>ELNDD#D1O^@)^@)AK0A@)^@)@#@>@=ET]C-TD0)^@)DT )@@G@@^@)A@)@#@@@>ET]C-TD0)^@)^@)A@)@#@>@=ET]C1DD- ^@)^@)A@)@#@@@>ET]C1DD- ^@)DU )@@G@@^@)A@)@#@>@=ET]D- E01^@)^@)AC)@#@@@>ET]D- E01^@)^@)AC)@#@>@=ET]D- E02^@)DV )@@G@@^@)AC)@#@@@>ET]D- E02^@)^@)AC)@#@>@=ET]D- E03^@)^@)AC)@#@@@>ET]D- E03^@)DW )@@G@@^@)AC)@#@>@=ET]D- E04^@)^@)AC)@#@@@>ET]D- E04^@)^@)AC)@#@>@=ET]D- E05^@)DX )@@G@@^@)AC)@#@@@>ET]D- E05^@)^@)AC)@#@>@=ET]ELPD0)^@)^@)AC)@#@@@>ET]ELPD0)^@)DY )@@G@@^@)AC)@#@>@=ET]E-DD( D9I^@)AC)@#@@@>ET]E-DD( D9I^@)AC)@#@>@=ETDE[DD8)^@)DZ )@@G@@^@)A@)@#@@@>ETDE[DD8)^@)^@)A@)@[@>@= 0)^@)@[@@@> 0)^@)@F@>@= 0)^@)^@)^@)EA )@@G@@^@)DC\D8)C9MD9PE@)CD#CT ETN^@\^[OEL[D1NC1 EK)EL[E- ES)@F@@@> 0)^@)^@)^@)EB )@@G@@^@)DC\D8)G92H95I@)GDIT3^@\^[4IL-H13G1>IK)IL-I->IS)@[@>@= 0)^@)@[@@@>EC )@@G@@ 0)^@)@H@>@=C9MD9PE@)EL[E- ^@4AC%C-CD-[CT )0 S4AS0A@0^@)^@)^@)C(LE(DE[HED )@@G@@C(IE))C1CA)3AK)^@)@H@@@>C9MD9PE@)EL[E- ^@4AC%C-CD-[CT )0 S4AS0A@0^@)^@)EE )@@G@@^@)C(LE(DE[HC(IE))C1CA)3AK)^@)@H@>@=C9MD9PE@)EL[E- ^@4AC%C-CD-[CTC )0 S1EF )@@G@@A80A@0A@)^@)^@)C(LE(DE[HC(IE))C1CAC7B@2^@)@H@@@>C9MD9PE@)EL[E- ^@4AC%C-CEG )@@G@@D-[CTC )0 S1A80A@0A@)^@)^@)C(LE(DE[HC(IE))C1CAC7B@2^@)@O@>@=C9MD9PE@)EL[EH )@@G@@E- ^@5AC?AS0A@0A@0 S5AS0A@0^@)^@)^@)^@)C(LE(DE[HC(IE))C)8A)5A@?C)8A)3A@?EI )@@G@@C)8A)3AS?C)8A)3A)?C)8A)4A@?C1DDC)^@)@O@@@>C9MD9PE@)EL[E- ^@5AC?AS0A@0A@0EJ )@@G@@ S5AS0A@0^@)^@)^@)^@)C(LE(DE[HC(IE))C)8A)5A@?C)8A)3A@?C)8A)3AS?C)8A)3A)?EK )@@G@@C)8A)4A@?C1DDC)^@)@K@>@=C9MD9PE@)EL[E- ^@2B@1 )3AS0A@0 S0^@)^@)^@)^@)^@)EL )@@G@@^@)C(LE(DE[HC(IE))E1DDDDCS?E1DDDDCT] -PAC6 -PAS0@K@@@>C9MD9PE@)EL[E- ^@2EM )@@G@@B@1 )3AS0A@0 S0^@)^@)^@)^@)^@)^@)C(LE(DE[HC(IE))E1DDDDCS?E1DDDDCT] -PAC6EN )@@G@@ -PAS0@M@>@=C9MD9PE@)EL[E- ^@1A)1 )3AS0A@0^@)^@)^@)^@)^@)^@)^@)C(LE(DE[HEO )@@G@@C(IE))E*1A1^ -PAC6D0?E1DDDDCS9 -PAS0C)?E*3A1I^@)@M@@@>C9MD9PE@)EL[E- ^@1EP )@@G@@A)1 )3AS0A@0^@)^@)^@)^@)^@)^@)^@)C(LE(DE[HC(IE))E*1A1^ -PAC6D0?E1DDDDCS9EQ )@@G@@ -PAS0C)?E*3A1I^@)@[@>@= 0)^@)@[@@@> 0)^@)@[@>@= 0)^@)@[@@@> 0)^@)@I@>@=ER )@@G@@ 0)^@)^@)^@)^@)DDNC))AC1A@0 88AK)D[[EL^E9[EL ^[#D9IC1DC9PEL[E-DD9I^[KCDMES )@@G@@CDHC(OC(MES)@I@@@> 0)^@)^@)^@)^@)DDNC))AC1A@0 88AK)H[-IL=I9-IL>^[@= 0)^@)@[@@@> 0)^@)@[@>@= 0)^@)@[@@@>EU )@@G@@ 0)^@)@B@>@= 0)^@)^@)^@)^@)CT D1OEL[D))CTJD(KD- F@)^@)@B@@@> 0)^@)^@)^@)EV )@@G@@^@)CT>H14IL-H))GT\H(0H->J@)^@)@[@>@= 0)^@)@[@@@> 0)^@)@B@>@=D1JC- ^[#E[PEW )@@G@@A@)^[DES)CTKE*!AC1A@0B@0 )0^@)@B@@@>D1JC- ^[#E[PA@)^[DES)CTKE*!AC1A@0B@0EX )@@G@@ )0^@)@B@>@=D1JC- ^[#E[PAC)^[DES)CTKE*!AC1A@0B@0 )1^@)@B@@@>D1JC- ^[#E[PEY )@@G@@AC)^[DES)CTKE*!AC1A@0B@0 )1^@)@[@>@= 0)^@)@[@@@> 0)^@)@G@>@=D1JC- ^[NDDPEZ )@@G@@E(KEK?ETDE(GE9M^@)^@)^@)^@)CDMC*)ES7A@2AK?E(KE[ EK?D-JE9 EK)@G@@@>D1JC- FA )@@G@@^[NDDPE(KEK?ETDE(GE9M^@)^@)^@)^@)CDMC*)ES7A@2AK?E(KE[ EK?D-JE9 EK)@F@>@=FB )@@G@@D1JC- ^[HC(HA@?D( D*1 -HC(HAK?D( D*3^@)CDMC*)D*7A@3A)?A@?AC?AK?AS)@F@@@>FC )@@G@@D1JC- ^[HC(HA@?D( D*1 -HC(HAK?D( D*3^@)CDMC*)D*7A@3A)?A@?AC?AK?AS)@[@>@=FD )@@G@@ 0)^@)@[@@@> 0)^@)@G@>@=D1JC- ^[DD9PA@)DDN^[DD9P )0^@)^@)^[[D1^^[#D9ID1 FE )@@G@@CTOES)E-J^[#E[PA@?CTKE*1@G@@@>D1JC- ^[DD9PA@)DDN^[DD9P )0^@)^@)^[[D1^^[#FF )@@G@@D9ID1 CTOES)E-J^[#E[PA@?CTKE*1@G@>@=D1JC- ^[DD9PAC)DDN^[DD9P )1^@)^@)^[[FG )@@G@@D1^^[#D9ID1 CTOES)E-J^[#E[PA@?CTKE*1@G@@@>D1JC- ^[DD9PAC)DDN^[DD9P )1^@)FH )@@G@@^@)^[[D1^^[#D9ID1 CTOES)E-J^[#E[PA@?CTKE*1@[@>@= 0)^@)@[@@@> 0)^@)@B@>@=FI )@@G@@ 0)^@)^@)^@)^@)CTCCDID1 D))D(JC-PD- ES)^@)@B@@@> 0)^@)^@)^@)^@)CT*GD,H1>FJ )@@G@@H))H(\G-5H->IS)^@)@[@>@= 0)^@)@[@@@> 0)^@)@J@>@=D1JC- ^[DA[HA@)DDN^[#D[RFK )@@G@@D9MC)!A))^[[D1^^[#D9ID1 CTOES)E-J^[DD9PA@)^@)^[QDD[^[#D[[D1IC(G^@0@J@@@>FL )@@G@@D1JC- ^[DA[HA@)DDN^[#D[RD9MC)!A))^[[D1^^[#D9ID1 CTOES)E-J^[DD9PA@)^@)^[QFM )@@G@@DD[^[#D[[D1IC(G^@0@J@>@=D1JC- ^[DA[HAC)DDN^[#D[]C(]D*)CDIC))CTJD1IC(#E-NFN )@@G@@^[OD8)DDJE*0^@)^@)E1DCC)CTCCDID1 D))AC)^@)@J@@@>D1JC- ^[DA[HAC)DDN^[#D[]FO )@@G@@C(]D*)CDIC))CTJD1IC(#E-N^[OD8)DDJE*0^@)^@)E1DCC)CTCCDID1 D))AC)^@)@J@>@=FP )@@G@@D1JC- ^[DA[HAK)DDN^[#D[RD9MC)!A))^[[D1^^[#D9ID1 CTOES)E-J^[DD9PA@)^@)^[QFQ )@@G@@DD[^[#D[[D1IC(G^@2@J@@@>D1JC- ^[DA[HAK)DDN^[#D[RD9MC)!A))^[[D1^^[#D9ID1 FR )@@G@@CTOES)E-J^[DD9PA@)^@)^[QDD[^[#D[[D1IC(G^@2@J@>@=D1JC- ^[DA[HAS)DDN^[#D[RFS )@@G@@D9MC)!AK)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PA@)^@)^[QDD[^[#D[[D1IC(G^@3@J@@@>FT )@@G@@D1JC- ^[DA[HAS)DDN^[#D[RD9MC)!AK)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PA@)^@)^[QFU )@@G@@DD[^[#D[[D1IC(G^@3@J@>@=D1JC- ^[DA[HA))DDN^[#D[]FDOC*)^[[D1^^[#D9ID1 CTOFV )@@G@@ES)E-J^[DD9PA@)^@)^[QDD[^[#D[[D1IC(G^@4^@)@J@@@>D1JC- ^[DA[HA))DDN^[#D[]FW )@@G@@FDOC*)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PA@)^@)^[QDD[^[#D[[D1IC(G^@4^@)@J@>@=FX )@@G@@D1JC- ^[DA[HA*)DDN^[#D[RD9MC)!A@)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PA@)^@)^[QFY )@@G@@DD[^[#D[[D1IC(G^@5@J@@@>D1JC- ^[DA[HA*)DDN^[#D[RD9MC)!A@)^[[D1^^[#D9ID1 FZ )@@G@@CTOES)E-J^[DD9PA@)^@)^[QDD[^[#D[[D1IC(G^@5@J@>@=D1JC- ^[DA[HA0)DDN^[#D[RGA )@@G@@D9MC)!A@)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PA@)^@)^[QDD[^[#D[[D1IC(G^@6@J@@@>GB )@@G@@D1JC- ^[DA[HA0)DDN^[#D[RD9MC)!A@)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PA@)^@)^[QGC )@@G@@DD[^[#D[[D1IC(G^@6@[@>@= 0)^@)@[@@@> 0)^@)@J@>@=D1JC- ^[DADHA@)DDN^[#D[RGD )@@G@@D9MC)!A))^[[D1^^[#D9ID1 CTOES)E-J^[DD9PAC)^@)^[QDD[^[#D[[D1IC(G^@0@J@@@>GE )@@G@@D1JC- ^[DADHA@)DDN^[#D[RD9MC)!A))^[[D1^^[#D9ID1 CTOES)E-J^[DD9PAC)^@)^[QGF )@@G@@DD[^[#D[[D1IC(G^@0@J@>@=D1JC- ^[DADHAC)DDN^[#D[]C(]D*)CDIC))CTJD1IC(#E-NGG )@@G@@^[OD8)DDJE*1^@)^@)E1DCC)CTCCDID1 D))AC)^@)@J@@@>D1JC- ^[DADHAC)DDN^[#D[]GH )@@G@@C(]D*)CDIC))CTJD1IC(#E-N^[OD8)DDJE*1^@)^@)E1DCC)CTCCDID1 D))AC)^@)@J@>@=GI )@@G@@D1JC- ^[DADHAK)DDN^[#D[RD9MC)!A))^[[D1^^[#D9ID1 CTOES)E-J^[DD9PAC)^@)^[QGJ )@@G@@DD[^[#D[[D1IC(G^@2@J@@@>D1JC- ^[DADHAK)DDN^[#D[RD9MC)!A))^[[D1^^[#D9ID1 GK )@@G@@CTOES)E-J^[DD9PAC)^@)^[QDD[^[#D[[D1IC(G^@2@J@>@=D1JC- ^[DADHAS)DDN^[#D[RGL )@@G@@D9MC)!AK)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PAC)^@)^[QDD[^[#D[[D1IC(G^@3@J@@@>GM )@@G@@D1JC- ^[DADHAS)DDN^[#D[RD9MC)!AK)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PAC)^@)^[QGN )@@G@@DD[^[#D[[D1IC(G^@3@J@>@=D1JC- ^[DADHA))DDN^[#D[]FDOC*)^[[D1^^[#D9ID1 CTOGO )@@G@@ES)E-J^[DD9PAC)^@)^[QDD[^[#D[[D1IC(G^@4^@)@J@@@>D1JC- ^[DADHA))DDN^[#D[]GP )@@G@@FDOC*)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PAC)^@)^[QDD[^[#D[[D1IC(G^@4^@)@J@>@=GQ )@@G@@D1JC- ^[DADHA*)DDN^[#D[RD9MC)!A@)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PAC)^@)^[QGR )@@G@@DD[^[#D[[D1IC(G^@5@J@@@>D1JC- ^[DADHA*)DDN^[#D[RD9MC)!A@)^[[D1^^[#D9ID1 GS )@@G@@CTOES)E-J^[DD9PAC)^@)^[QDD[^[#D[[D1IC(G^@5@J@>@=D1JC- ^[DADHA0)DDN^[#D[RGT )@@G@@D9MC)!A@)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PAC)^@)^[QDD[^[#D[[D1IC(G^@6@J@@@>GU )@@G@@D1JC- ^[DADHA0)DDN^[#D[RD9MC)!A@)^[[D1^^[#D9ID1 CTOES)E-J^[DD9PAC)^@)^[QGV )@@G@@DD[^[#D[[D1IC(G^@6@[@>@= 0)^@)@[@@@> 0)^@)@O@>@= 0)^@)^@)^@)^@)^@)^@)^@)GW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GX )@@G@@^@)^@)^@)^@)^[]D9JE))^@)@O@@@> 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[]D9JGZ )@@G@@E))^@)@O@>@= 0)^@)^@)^@)^[#D9IE-MD9GD- ELN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[^C(Q^[[C-^EK)@O@@@> 0)^@)HB )@@G@@^@)^@)^[IL3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[=G(6^[-G-=IK)@O@>@= 0)^@)^@)^@)^@)^@)^@)^@)HD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HE )@@G@@^@)^@)^@)^@) [CC(S C)^@)@O@@@> 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) [CC(SHG )@@G@@ C)^@)@[@>@= 0)^@)@[@@@> 0)^@)@N@>@=D1JC- ^[^ELHCS0^@)DDN^[#E*5A@1AK)^[[HH )@@G@@D1^^[#D9ID1 CTOES)E-J^[DA[HA@?DC1D*0^[QDD[^[NE(] (#D[[D1IC(GES)B@?B@)^@)HI )@@G@@ 0)B@0@N@@@>D1JC- ^[^ELHCS0^@)DDN^[#E*5A@1AK)^[[D1^^[#D9ID1 CTOES)E-J^[DHJ )@@G@@A[HA@?DC1D*0^[QDD[^[NE(] (#D[[D1IC(GES)B@?B@)^@) 0)B@0@N@>@=D1JC- ^[^ELHHK )@@G@@CS1^@)DDN^[#E*5A@1AK)^[[D1^^[#D9ID1 CTOES)E-J^[DA[HAK?DC1D*2^[QDD[^[NE(]HL )@@G@@ (#D[[D1IC(GES)AC2 )1AK) 0)CS0@N@@@>D1JC- ^[^ELHCS1^@)DDN^[#E*5A@1AK)^[[HM )@@G@@D1^^[#D9ID1 CTOES)E-J^[DA[HAK?DC1D*2^[QDD[^[NE(] (#D[[D1IC(GES)AC2 )1AK)HN )@@G@@ 0)CS0@[@>@= 0)^@)@[@@@> 0)^@)@N@>@=D1JC- ^[^ETFCS0A@)DDN^[#E*5A@4A0)^[[HO )@@G@@D1^^[#D9ID1 CTOES)E-J^[DA[HA@?DC1D*0^[QDD[^[NE(] (#D[[D1IC(GES)AC0 )1A@)HP )@@G@@ 0)CC0@N@@@>D1JC- ^[^ETFCS0A@)DDN^[#E*5A@4A0)^[[D1^^[#D9ID1 CTOES)E-J^[DHQ )@@G@@A[HA@?DC1D*0^[QDD[^[NE(] (#D[[D1IC(GES)AC0 )1A@) 0)CC0@N@>@=D1JC- ^[^ETFHR )@@G@@CS0AC)DDN^[#E*5A@4A0)^[[D1^^[#D9ID1 CTOES)E-J^[DA[HAK?DC1D*2^[QDD[^[NE(]HS )@@G@@ (#D[[D1IC(GES)AC4 )1A)) 0)C*0@N@@@>D1JC- ^[^ETFCS0AC)DDN^[#E*5A@4A0)^[[HT )@@G@@D1^^[#D9ID1 CTOES)E-J^[DA[HAK?DC1D*2^[QDD[^[NE(] (#D[[D1IC(GES)AC4 )1A))HU )@@G@@ 0)C*0@N@>@=D1JC- ^[^ETFCS1A@)DDN^[#E*5A@4A0)^[[D1^^[#D9ID1 CTOES)E-J^[DHV )@@G@@A[HA@?DC1D*0^[QDD[^[NE(] (#D[[D1IC(GES)AC2 )1AK) 0)CS0@N@@@>D1JC- ^[^ETFHW )@@G@@CS1A@)DDN^[#E*5A@4A0)^[[D1^^[#D9ID1 CTOES)E-J^[DA[HA@?DC1D*0^[QDD[^[NE(]HX )@@G@@ (#D[[D1IC(GES)AC2 )1AK) 0)CS0@N@>@=D1JC- ^[^ETFCS1AC)DDN^[#E*5A@4A0)^[[HY )@@G@@D1^^[#D9ID1 CTOES)E-J^[DA[HAS?DC1D*3^[QDD[^[NE(] (#D[[D1IC(GES)AC2 )1AK)HZ )@@G@@ 0)CS0@N@@@>D1JC- ^[^ETFCS1AC)DDN^[#E*5A@4A0)^[[D1^^[#D9ID1 CTOES)E-J^[DIA )@@G@@A[HAS?DC1D*3^[QDD[^[NE(] (#D[[D1IC(GES)AC2 )1AK) 0)CS0@[@>@= 0)^@)@[@@@>IB )@@G@@ 0)^@)@N@>@=D1JC- ^[OCDKCS0^@)DDN^[#E*5A@4AK)^[[D1^^[#D9ID1 CTOES)E-J^[DIC )@@G@@A[HAC?DC1D*1^[QDD[^[NE(] (#D[[D1IC(GES)B@?B@)^@) 0)B@0@N@@@>D1JC- ^[OCDKID )@@G@@CS0^@)DDN^[#E*5A@4AK)^[[D1^^[#D9ID1 CTOES)E-J^[DA[HAC?DC1D*1^[QDD[^[NE(]IE )@@G@@ (#D[[D1IC(GES)B@?B@)^@) 0)B@0@N@>@=D1JC- ^[OCDKCS1^@)DDN^[#E*5A@4AK)^[[IF )@@G@@D1^^[#D9ID1 CTOES)E-J^[DA[HAC?DC1D*1^[QDD[^[NE(] (#D[[D1IC(GES)BC?BC)^@)IG )@@G@@ 0)BC0@N@@@>D1JC- ^[OCDKCS1^@)DDN^[#E*5A@4AK)^[[D1^^[#D9ID1 CTOES)E-J^[DIH )@@G@@A[HAC?DC1D*1^[QDD[^[NE(] (#D[[D1IC(GES)BC?BC)^@) 0)BC0@[@>@= 0)^@)@[@@@>II )@@G@@ 0)^@)@M@>@=D1JC- ^[#CTKAC)^@)DDN^[#E-HCS!EDR^[[D1^^[#D9ID1 CTOES)E-J^[DIJ )@@G@@A[HA*?DC1D*5^[QDD[^[NE(] (#D[[D1IC(GES)A@?A@)^@)@M@@@>D1JC- ^[#CTKAC)^@)IK )@@G@@DDN^[#E-HCS!EDR^[[D1^^[#D9ID1 CTOES)E-J^[DA[HA*?DC1D*5^[QDD[^[NE(] (#D[[IL )@@G@@D1IC(GES)A@?A@)^@)@M@>@=D1JC- ^[#CTKAK)^@)DDN^[#E-HCS!EDR^[[D1^^[#D9ID1 IM )@@G@@CTOES)E-J^[DA[HA0?DC1D*6^[QDD[^[NE(] (#D[[D1IC(GES)A@?A@)^@)@M@@@>D1JC- IN )@@G@@^[#CTKAK)^@)DDN^[#E-HCS!EDR^[[D1^^[#D9ID1 CTOES)E-J^[DA[HA0?DC1D*6^[QDD[IO )@@G@@^[NE(] (#D[[D1IC(GES)A@?A@)^@)@M@>@=D1JC- ^[#CTKAS)^@)DDN^[#E-HCS!EDR^[[IP )@@G@@D1^^[#D9ID1 CTOES)E-J^[DA[HA0?DC1D*6^[QDD[^[NE(] (#D[[D1IC(GES)A)?A))^@)IQ )@@G@@@M@@@>D1JC- ^[#CTKAS)^@)DDN^[#E-HCS!EDR^[[D1^^[#D9ID1 CTOES)E-J^[DA[HA0?IR )@@G@@DC1D*6^[QDD[^[NE(] (#D[[D1IC(GES)A)?A))^@)@M@>@=D1JC- ^[#CTKA))^@)DDN^[#IS )@@G@@E-HCS!EDR^[[D1^^[#D9ID1 CTOES)E-J^@)^@)^@)DC1D*3^[QDD[^[NE(] (#D[[D1IC(GIT )@@G@@^@)^@)A@)^@)@M@@@>D1JC- ^[#CTKA))^@)DDN^[#E-HCS!EDR^[[D1^^[#D9ID1 CTOES)IU )@@G@@E-J^@)^@)^@)DC1D*3^[QDD[^[NE(] (#D[[D1IC(G^@)^@)A@)^@)@M@>@=D1JC- ^[#E-HIV )@@G@@CS)^@)DDN^[#E-HCS!EDR^[[D1^^[#D9ID1 CTOES)E-J^[DA[HA*?DC1D*5^[QDD[^[NE(]IW )@@G@@ (#D[[D1IC(GES)A)?A))^@)@M@@@>D1JC- ^[#E-HCS)^@)DDN^[#E-HCS!EDR^[[D1^^[#IX )@@G@@D9ID1 CTOES)E-J^[DA[HA*?DC1D*5^[QDD[^[NE(] (#D[[D1IC(GES)A)?A))^@)@[@>@=IY )@@G@@ 0)^@)@[@@@> 0)^@)@L@>@=D1JC- ^[#D9IA@)^@)DDN^[#E*4A@1AS)^[[D1^^[#D9ID1 IZ )@@G@@CTOES)E-J^[DA[HA))^@)^@)^[QDD[^[NE(] (#D[[D1IC(G^@)B@)@L@@@>D1JC- ^[#D9IJA )@@G@@A@)^@)DDN^[#E*4A@1AS)^[[D1^^[#D9ID1 CTOES)E-J^[DA[HA))^@)^@)^[QDD[^[NE(]JB )@@G@@ (#D[[D1IC(G^@)B@)@L@>@=D1JC- ^[#D9IAC)^@)DDN^[#E*4A@1AS)^[[D1^^[#D9ID1 JC )@@G@@CTOES)E-J^[DADHA))^@)^@)^[QDD[^[NE(] (#D[[D1IC(G^@)B@)@L@@@>D1JC- ^[#D9IJD )@@G@@AC)^@)DDN^[#E*4A@1AS)^[[D1^^[#D9ID1 CTOES)E-J^[DADHA))^@)^@)^[QDD[^[NE(]JE )@@G@@ (#D[[D1IC(G^@)B@)@[@>@= 0)^@)@[@@@> 0)^@)@M@>@=D1JC- ^[#A87A@)^@)DDN^[NJF )@@G@@FDHETPCK)^[[D1^^[#D9ID1 CTOES)E-J^[DA[HA)?DC1D*4^[QDD[^[NE(] (#D[[D1IC(GJG )@@G@@ES)BC?BC)^@)@M@@@>D1JC- ^[#A87A@)^@)DDN^[NFDHETPCK)^[[D1^^[#D9ID1 CTOES)JH )@@G@@E-J^[DA[HA)?DC1D*4^[QDD[^[NE(] (#D[[D1IC(GES)BC?BC)^@)@[@>@= 0)^@)@[@@@>JI )@@G@@ 0)^@)@[@>@= 0)^@)@[@@@> 0)^@)@ @>@= 0)^@)^@)^@)^@)C- E1DCT ES)^@)@ @@@>JJ )@@G@@ 0)^@)^@)^@)^@)C->I1(GT>IS)^@)@[@>@= 0)^@)@[@@@> 0)^@)@K@>@=D1JC- ^[^ELPJK )@@G@@D*?A@)E-CELP^[^ELPD*?AK)CDMC*)C1CAC7B@2^[[D1^^[#D9ID1 CTO^[OD8)C-MD(#A@?JL )@@G@@C-MD(#AC)^@)@K@@@>D1JC- ^[^ELPD*?A@)E-CELP^[^ELPD*?AK)CDMC*)C1CAC7B@2^[[JM )@@G@@D1^^[#D9ID1 CTO^[OD8)C-MD(#A@?C-MD(#AC)^@)@K@>@=D1JC- ^[^ELPD*?AS)E-CELPJN )@@G@@^[^ELPD*?A*)CDMC*)C1CA)3AK)^[[D1^^[#D9ID1 CTO^[OD8)C-MD(#A@?C-MD(#AC)^@)JO )@@G@@@K@@@>D1JC- ^[^ELPD*?AS)E-CELP^[^ELPD*?A*)CDMC*)C1CA)3AK)^[[D1^^[#D9ID1 JP )@@G@@CTO^[OD8)C-MD(#A@?C-MD(#AC)^@)@[@>@= 0)^@)@[@@@> 0)^@)@M@>@=D1JC- ^[MC(HJQ )@@G@@A@0^@)DDN^[^B@4AS0^@)CDIC))CTJD1IC(#E-N^[OD8)C-NDT#A@0 -^ETFCS0AC)E1DCC)JR )@@G@@C- E1DCT ([C-^EL ETN^@0@M@@@>D1JC- ^[MC(HA@0^@)DDN^[^B@4AS0^@)CDIC))CTJJS )@@G@@D1IC(#E-N^[OD8)C-NDT#A@0 -^ETFCS0AC)E1DCC)C- E1DCT ([C-^EL ETN^@0@K@>@=JT )@@G@@D1JC- ^[ADDSA@?AC)E-CELP^[ADDSA@?A*)CDMC*)C)8A)3A))^[[D1^^[#D9ID1 CTO^[OJU )@@G@@D8)C-NDT#A@0 -^ETFCS0AC)@K@@@>D1JC- ^[ADDSA@?AC)E-CELP^[ADDSA@?A*)CDMC*)JV )@@G@@C)8A)3A))^[[D1^^[#D9ID1 CTO^[OD8)C-NDT#A@0 -^ETFCS0AC)@[@>@= 0)^@)@[@@@>JW )@@G@@ 0)^@)@M@>@=D1JC- ^[MC(HAC0^@)DDN^[^B@4AS0^@)CDIC))CTJD1IC(#E-N^[OD8)C-NJX )@@G@@DT#AC0 -^ETFCS1AC)E1DCC)C- E1DCT ([C-^EL ETN^@0@M@@@>D1JC- ^[MC(HAC0^@)JY )@@G@@DDN^[^B@4AS0^@)CDIC))CTJD1IC(#E-N^[OD8)C-NDT#AC0 -^ETFCS1AC)E1DCC)C- E1DJZ )@@G@@CT ([C-^EL ETN^@0@K@>@=D1JC- ^[ADDSAC?AC)E-CELP^[ADDSAC?A*)CDMC*)C)8A)3KA )@@G@@A))^[[D1^^[#D9ID1 CTO^[OD8)C-NDT#AC0 -^ETFCS1AC)@K@@@>D1JC- ^[ADDSAC?AC)KB )@@G@@E-CELP^[ADDSAC?A*)CDMC*)C)8A)3A))^[[D1^^[#D9ID1 CTO^[OD8)C-NDT#AC0 -^ETFKC )@@G@@CS1AC)@[@>@= 0)^@)@[@@@> 0)^@)@K@>@=D1JC- ^[OCDKC*?A@)^[OD[ME*)E-[E[ )7KD )@@G@@^@)CDMC*)E*3A@)^@)^[[D1^^[#D9ID1 CTO^[OD8)E-[E[#A@?E-[E[#AC)@K@@@>D1JC- KE )@@G@@^[OCDKC*?A@)^[OD[ME*)E-[E[ )7^@)CDMC*)E*3A@)^@)^[[D1^^[#D9ID1 CTO^[OD8)KF )@@G@@E-[E[#A@?E-[E[#AC)@K@>@=D1JC- ^[OCDKC*?B@)^[OD[ME*)E-[E[ )9^@)CDMC*)E*3KG )@@G@@A[^^@)^[[D1^^[#D9ID1 CTO^[OD8)E-[E[#A@?E-[E[#AC)@K@@@>D1JC- ^[OCDKC*?B@)KH )@@G@@^[OD[ME*)E-[E[ )9^@)CDMC*)E*3A[^^@)^[[D1^^[#D9ID1 CTO^[OD8)E-[E[#A@?E-[KI )@@G@@E[#AC)@K@>@=D1JC- ^[OCDKC*?AC0^[OD[ME*)E-[E[ )1AS)CDMC*)E*3A1I^@)^[[D1^KJ )@@G@@^[#D9ID1 CTO^[OD8)E-[E[#A@?E-[E[#AC)@K@@@>D1JC- ^[OCDKC*?AC0^[OD[ME*)E-[KK )@@G@@E[ )1AS)CDMC*)E*3A1I^@)^[[D1^^[#D9ID1 CTO^[OD8)E-[E[#A@?E-[E[#AC)@[@>@=KL )@@G@@ 0)^@)@[@@@> 0)^@)@M@>@=D1JC- ^[#ELOA@?E[[C80^[[EL ^[#D1ND9GC*)CDIC))CTJKM )@@G@@D1IC(#E))E-J^[#D9IA@)^[QDD[^[^C(QDD#C*!CD^C-MC(NET ES)A@?AC)@M@@@>D1JC- KN )@@G@@^[#ELOA@?E[[C80^[[EL ^[#D1ND9GC*)CDIC))CTJD1IC(#E))E-J^[#D9IA@)^[QDD[^[^KO )@@G@@C(QDD#C*!CD^C-MC(NET ES)A@?AC)@M@>@=D1JC- ^[#ELOAC?E[[C81^[[EL ^[#D1ND9GKP )@@G@@C*)CDIC))CTJD1IC(#E))E-J^[#D9IAC)^[QDD[^[^C(QDD#C*!CD^C-MC(NET ES)A@?AC)KQ )@@G@@@M@@@>D1JC- ^[#ELOAC?E[[C81^[[EL ^[#D1ND9GC*)CDIC))CTJD1IC(#E))E-J^[#D9IKR )@@G@@AC)^[QDD[^[^C(QDD#C*!CD^C-MC(NET ES)A@?AC)@[@>@= 0)^@)@[@@@> 0)^@)@L@>@=KS )@@G@@D1JC- ^[DET^^@)^@)DDN^[NFDHC- E0)CDIC))CTJD1IC(#E-N^[OD8)CS7A80^@)^[QDD[KT )@@G@@^[^C(QDD#C*!CD^C-MC(NES)A@)^@)@L@@@>D1JC- ^[DET^^@)^@)DDN^[NFDHC- E0)CDIKU )@@G@@C))CTJD1IC(#E-N^[OD8)CS7A80^@)^[QDD[^[^C(QDD#C*!CD^C-MC(NES)A@)^@)@[@>@=KV )@@G@@ 0)^@)@[@@@> 0)^@)@M@>@=C(SC(#^[^C(QDD#C(N^[[EL ^[ F[ CS!ETOD9MCDBC*?EL KW )@@G@@D*1A@)E[[D1DCS!C-PD(K -OCDKC*0^[]D9JE)!CTJD1ND9GC*?CTME)0^@)@M@@@>C(SC(#KX )@@G@@^[^C(QDD#C(N^[[EL ^[ F[ CS!ETOD9MCDBC*?EL D*1A@)E[[D1DCS!C-PD(K -OCDKC*0KY )@@G@@^[]D9JE)!CTJD1ND9GC*?CTME)0^@)@[@>@= 0)^@)@[@@@> 0)^@)@M@>@=D( ETNCDBC*)KZ )@@G@@C9MD9PE[N^[NFDND(NC8?DDJD(NC8?ELNDD#D9H -CC-RCTJD0?E(NC(MA)?E(NC(MA*)CDMLA )@@G@@C*)C-DETKD-[FD C))D9I^@;@M@@@>D( ETNCDBC*)C9MD9PE[N^[NFDND(NC8?DDJD(NC8?LB )@@G@@ELNDD#D9H -CC-RCTJD0?E(NC(MA)?E(NC(MA*)CDMC*)C-DETKD-[FD C))D9I^@;@K@>@=LC )@@G@@^@)^@)^@)^[^C(QDD#C(N^[#ELOA@?E[[C80 -#ELOAC?E[[C81^[[D1^^[MC(NE[JD1NC*)LD )@@G@@CTJD1ND9GC*)DDN^[#D9IA@)@K@@@>^@)^@)^@)^[^C(QDD#C(N^[#ELOA@?E[[C80 -#ELOLE )@@G@@AC?E[[C81^[[D1^^[MC(NE[JD1NC*)CTJD1ND9GC*)DDN^[#D9IA@)@E@>@=D( ETNCDBC*)LF )@@G@@C9MD9PE@)E(NC(MA0)DDN^[^DDNE[GCDTC(^^[JD0)BS)^@)@E@@@>D( ETNCDBC*)C9MD9PLG )@@G@@E@)E(NC(MA0)DDN^[^DDNE[GCDTC(^^[JD0)BS)^@)@K@>@=^@)^@)^@)^[^C(QDD#C(N^[#LH )@@G@@ELOA@?E[[C80^@)^@)^@)^@)^@)^[[D1^^[MC(NE[JD1NC*)CTJD1ND9GC*)DDN^[#D9IA@)LI )@@G@@@K@@@>^@)^@)^@)^[^C(QDD#C(N^[#ELOA@?E[[C80^@)^@)^@)^@)^@)^[[D1^^[MC(NE[JLJ )@@G@@D1NC*)CTJD1ND9GC*)DDN^[#D9IA@)@E@>@=D( ETNCDBC*)C9MD9PE@)E(NC(MA8)DDN^[^LK )@@G@@DDNE[GCDTC(^^[JD0)BS)^@)@E@@@>D( ETNCDBC*)C9MD9PE@)E(NC(MA8)DDN^[^DDNE[GLL )@@G@@CDTC(^^[JD0)BS)^@)@K@>@=^@)^@)^@)^[^C(QDD#C(N^[#ELOAC?E[[C81^@)^@)^@)^@)LM )@@G@@^@)^[[D1^^[MC(NE[JD1NC*)CTJD1ND9GC*)DDN^[#D9IAC)@K@@@>^@)^@)^@)^[^C(QDD#LN )@@G@@C(N^[#ELOAC?E[[C81^@)^@)^@)^@)^@)^[[D1^^[MC(NE[JD1NC*)CTJD1ND9GC*)DDN^[#LO )@@G@@D9IAC)@[@>@= 0)^@)@[@@@> 0)^@)@[@>@= 0)^@)@[@@@> 0)^@)@B@>@=ETRCDK^@8A@0LP )@@G@@A@?^9OELF^8)^9AAC7^8?AC0A@0^@)@B@$@>ETRCDK^@8A@0A@?^9OELF^8)^9AAC7^8?AC0LQ )@@G@@A@0^@)@C@@@$ETRCDK^@8A@0A@?^9OELF^8)^9AAC7^8?A00A@?^9[AC$^@;@C@@@$^@)^@)LR )@@G@@^@)^@)^@)^@)^@)^@)^9AAC7^8?A00A@?^9[AK$^@;@D@@@$^@)^@)^@)^@)^@)^@)^@)^@)LS )@@G@@^9AAS4^8?AC7A@0 )$CK1^8)BS)^@)@D@@@$^@)^@)^@)^@)^@)^@)^@)^@)^9AAS4^8?AC7LT )@@G@@A@0 )$CK2^8)BS)^@)@D@@@$^@)^@)^@)^@)^@)^@)^@)^@)^9AAS4^8?AC7A@0 )$CS1^8)LU )@@G@@BS)^@)@C@@@$^@)^@)^@)^@)^@)^@)^@)^@)^9AAS4^8?AC7A@0 )$CS2^8)@[@>@= 0)^@)LV )@@G@@@[@@@> 0)^@)@[@>@= 0)^@)@[@@@> 0)^@)@E@>@= 0)^@)^@)^@)^@)D9IETDE- ^[NFDHLW )@@G@@CLDD9IE))CTJD1ADDBE(MCDODDJD0)@E@@@> 0)^@)^@)^@)^@)D9,IT(I->^[3JD!GL(H9,LX )@@G@@I))GT\H1&HD$I(2GD4HD\H0)@[@>@= 0)^@)@[@@@> 0)^@)@B@>@=E- ELH^@)^@)CS7A80LY )@@G@@^@)^@)^@)^@)CLTE- D(PF@)@B@@@>E- ELH^@)^@)CS7A80^@)^@)^@)^@)CLTE- D(PF@)LZ )@@G@@@H@>@=C- E1DCT ^@)DDNC)?A@?CS7A80^@)E[MDDIE- EK?A87A@)^[KELD )1A))^@6A0?MA )@@G@@AC3AK?A0)^@)@H@@@>C- E1DCT ^@)DDNC)?A@?CS7A80^@)E[MDDIE- EK?A87A@)^[KELDMB )@@G@@ )1A))^@6A0?AC3AK?A0)^@)@A@>@=D9PE-KE(O^@)E[M -KELDD1O^@)^@)DDNC))@A@@@>MC )@@G@@D9PE-KE(O^@)E[M -KELDD1O^@)^@)DDNC))@[@>@= 0)^@)@[@@@> 0)^@)@K@>@=ETOCDOMD )@@G@@DDJD0)DDNC-KCTC^@)^@)^@)D-JCT[D))^@)^@)^@)^@)^@)^@)^@) 0)D1J^[MC([D))CT[ME )@@G@@EL^^[KE(ICTC ))^@)@K@@@>ETOCDODDJD0)DDNC-KCTC^@)^@)^@)D-JCT[D))^@)^@)^@)MF )@@G@@^@)^@)^@)^@) 0)D1J^[MC([D))CT[EL^^[KE(ICTC ))^@)@M@>@=D9PE-KE(O^@)CTK -KMG )@@G@@E(ICTC^@)^@)DDNC-KCTC^@)^@)^@)^@)^@)^@)^@) 0)CLPE))C9DE1 ^[KE(ICTC^[ND9HMH )@@G@@C(RD[ EL ^[OD8)C9J@M@@@>D9PE-KE(O^@)CTK -KE(ICTC^@)^@)DDNC-KCTC^@)^@)^@)MI )@@G@@^@)^@)^@)^@) 0)CLPE))C9DE1 ^[KE(ICTC^[ND9HC(RD[ EL ^[OD8)C9J@H@>@=ETOCDOMJ )@@G@@DDJD0)DDNC-MC-M^@)^@)^@)D-JCT[D))^@)^@)^@)^@)^@)^@)^@) 0)C-PD(HFC)CT[EL^MK )@@G@@@H@@@>ETOCDODDJD0)DDNC-MC-M^@)^@)^@)D-JCT[D))^@)^@)^@)^@)^@)^@)^@) 0)C-PML )@@G@@D(HFC)CT[EL^@I@>@=DDIE[PE))^@)DDNC-MC-M^@)^@)^@)E[M^@)CTK^@)^@)^@)^@)^@)MM )@@G@@^@)^@) 0)EL CD^C(M ))CDGETJ^@)@I@@@>DDIE[PE))^@)DDNC-MC-M^@)^@)^@)E[M^@)MN )@@G@@CTK^@)^@)^@)^@)^@)^@)^@) 0)EL CD^C(M ))CDGETJ^@)@[@>@= 0)^@)@[@@@> 0)^@)MO )@@G@@@[@>@= 0)^@)@H@>@= 0)^@)^@)^@)^@)DDNC))AC1A@0 88A@)CTJD(HE(IDD#CDODDJD1NMP )@@G@@^[#D9IC1DC9PEL[E-DD9I^@)@[@>@= 0)^@)@[@>@= 0)^@)@[@>@= 0)^@)@D@>@= 0)^@)MQ )@@G@@^@)^@)^@)CTJD(HE(IDD#CDODDJD0)D-DD1 ^[#D-[ETNC(N@[@>@= 0)^@)@M@>@=D-#D-[MR )@@G@@ETN^[]CDOCTC^@)A)8A@0 )7 -^DD[D)?A@)^@)^@)ETTD1# -#C(H^@)^@)^@)^@)^@)^@,MS )@@G@@^[]CDOCTC^[OC(MD(DD1[D))D-DD1 @L@>@=D-#D-[ETN^[IC(OE9MDS)A)8A@0 )8 -ADDSMT )@@G@@C(^ )0AS)^@)ETTD1# -NE[[CT E-JD([ELF^@)^@,^[IC(OE9JELF^[KD9ME))^@)@M@>@=MU )@@G@@D-#D-[ETN^[#CTKD-JC))A)8A@0 )8 -ADDSC(^ )0AS)^@)ETTD1#^@)^@)^@)^@)^@)^@)MV )@@G@@^@)^@,^[#D[D^[#CTK^[GD9[C))E[JELO^@)@[@>@= 0)^@)@G@>@= 0)^@)^@)^@)^@)CTJMW )@@G@@D(HE(IDD#CDODDJD0)ETPCLNFDNE- D*)C- C1DD1DE-DD9IES)^@)@[@>@= 0)^@)@^@>@=MX )@@G@@CTOD(#^[#CTKAC?EC)^@0 )1@^@>@=CTOD(#^[#CTKAK?EC)^@0 )1@^@>@=CTOD(#^[#CTKMY )@@G@@AS?EC)^@0 )1@^@>@=CTOD(#^[#CTKA)?EC)^@0 )1@^@>@=CTOD(#^[#E-HCS?EC)^@0 )1MZ )@@G@@@[@>@= 0)^@)@E@>@= 0)^@)^@)^@)^@)C- ET#ELDCL ^[#D9HD(PD1DCT[E-DD9I^[GDDINA )@@G@@C(N^@)@[@>@= 0)^@)@[@>@= 0)^@)@D@>@= 0)^@)^@)^@)^@)CT#E@1^@)^@)^@)^@)^[NNB )@@G@@E(]ETTETOC(H^@1A))@[@>@= 0)^@)@B@>@=D-DD1 ^[KD9MAC2BC)^@)D1 E-RELF -#E-HNC )@@G@@CS)^@)@B@>@=D-DD1 ^[KD9MAC3A@)^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9MND )@@G@@AC3AC)^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9MAC3AK)^@)D1 E-RELF -#E-HNE )@@G@@CS)^@)@B@>@=D-DD1 ^[KD9MAC3AS)^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9MNF )@@G@@AC3A))^@)D1 E-RELF -#E-HCS)^@)@A@>@=D-DD1 ^[KD9MAC3A*)^@)CL[E-#D@?CTOD(#NG )@@G@@@A@>@=D-DD1 ^[KD9MAC3A0)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC3A8)^@)CL[NH )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC3B@)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MNI )@@G@@AC3BC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC4A@)^@)CL[E-#D@?CTOD(#@A@>@=NJ )@@G@@D-DD1 ^[KD9MAC4AC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC4AK)^@)CL[E-#D@?NK )@@G@@CTOD(#@A@>@=D-DD1 ^[KD9MAC4AS)^@)CL[E-#D@?CTOD(#@B@>@=D-DD1 ^[KD9MAC4A))NL )@@G@@^@)CT#E[GD9^ -#E-HCS)^@)@A@>@=D-DD1 ^[KD9MAC4A*)^@)CL[E-#D@?CTOD(#@A@>@=NM )@@G@@D-DD1 ^[KD9MAC4A0)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC4A8)^@)CL[E-#D@?NN )@@G@@CTOD(#@A@>@=D-DD1 ^[KD9MAC4B@)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC4BC)NO )@@G@@^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC5A@)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 NP )@@G@@^[KD9MAC5AC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC5AK)^@)CL[E-#D@?CTOD(#NQ )@@G@@@A@>@=D-DD1 ^[KD9MAC5AS)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC5A))^@)CL[NR )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC5A*)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MNS )@@G@@AC5A0)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC5A8)^@)CL[E-#D@?CTOD(#@A@>@=NT )@@G@@D-DD1 ^[KD9MAC5B@)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC5BC)^@)CL[E-#D@?NU )@@G@@CTOD(#@A@>@=D-DD1 ^[KD9MAC6A@)^@)CL[E-#D@?CTOD(#@[@>@= 0)^@)@D@>@= 0)^@)NV )@@G@@^@)^@)^@)CT#E@2^@)^@)^@)^@)^[NE(]ETTETOC(H^@1A@)@[@>@= 0)^@)@B@>@=D-DD1 NW )@@G@@^[KD9ME)3AS)^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9ME)3A))^@)D1 E-RELFNX )@@G@@ -#E-HCS)^@)@B@>@=D-DD1 ^[KD9ME)3A*)^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 NY )@@G@@^[KD9ME)3A0)^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9ME)3A8)^@)D1 E-RELFNZ )@@G@@ -#E-HCS)^@)@B@>@=D-DD1 ^[KD9ME)3B@)^@)D1 E-RELF -#E-HCS)^@)@A@>@=D-DD1 OA )@@G@@^[KD9ME)3BC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)4A@)^@)CL[E-#D@?CTOD(#OB )@@G@@@A@>@=D-DD1 ^[KD9ME)4AC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)4AK)^@)CL[OC )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)4AS)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MOD )@@G@@E)4A))^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)4A*)^@)CL[E-#D@?CTOD(#@A@>@=OE )@@G@@D-DD1 ^[KD9ME)4A0)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)4A8)^@)CL[E-#D@?OF )@@G@@CTOD(#@B@>@=D-DD1 ^[KD9ME)4B@)^@)CT#E[GD9^ -#E-HCS)^@)@A@>@=D-DD1 ^[KD9MOG )@@G@@E)4BC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)5A@)^@)CL[E-#D@?CTOD(#@A@>@=OH )@@G@@D-DD1 ^[KD9ME)5AC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)5AK)^@)CL[E-#D@?OI )@@G@@CTOD(#@A@>@=D-DD1 ^[KD9ME)5AS)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)5A))OJ )@@G@@^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)5A*)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 OK )@@G@@^[KD9ME)5A0)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)5A8)^@)CL[E-#D@?CTOD(#OL )@@G@@@A@>@=D-DD1 ^[KD9ME)5B@)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)5BC)^@)CL[OM )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)6A@)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MON )@@G@@E)6AC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)6AK)^@)CL[E-#D@?CTOD(#@A@>@=OO )@@G@@D-DD1 ^[KD9ME)6AS)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)6A))^@)CL[E-#D@?OP )@@G@@CTOD(#@[@>@= 0)^@)@D@>@= 0)^@)^@)^@)^@)CT#E@3^@)^@)^@)^@)^[NE(]ETTETOC(HOQ )@@G@@^@9^@)@[@>@= 0)^@)@B@>@=D-DD1 ^[KD9ME)6A*)^@)D1 E-RELF -#E-HCS)^@)@B@>@=OR )@@G@@D-DD1 ^[KD9ME)6A0)^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9ME)6A8)^@)D1 OS )@@G@@E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9ME)6B@)^@)D1 E-RELF -#E-HCS)^@)@B@>@=OT )@@G@@D-DD1 ^[KD9ME)6BC)^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9ME)7A@)^@)D1 OU )@@G@@E-RELF -#E-HCS)^@)@A@>@=D-DD1 ^[KD9ME)7AC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 OV )@@G@@^[KD9ME)7AK)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)7AS)^@)CL[E-#D@?CTOD(#OW )@@G@@@A@>@=D-DD1 ^[KD9ME)7A))^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)7A*)^@)CL[OX )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)7A0)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MOY )@@G@@E)7A8)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)7B@)^@)CL[E-#D@?CTOD(#@A@>@=OZ )@@G@@D-DD1 ^[KD9ME)7BC)^@)CL[E-#D@?CTOD(#@B@>@=D-DD1 ^[KD9ME)8A@)^@)CT#E[GD9^PA )@@G@@ -#E-HCS)^@)@A@>@=D-DD1 ^[KD9ME)8AC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MPB )@@G@@E)8AK)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)8AS)^@)CL[E-#D@?CTOD(#@A@>@=PC )@@G@@D-DD1 ^[KD9ME)8A))^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)8A*)^@)CL[E-#D@?PD )@@G@@CTOD(#@A@>@=D-DD1 ^[KD9ME)8A0)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)8A8)PE )@@G@@^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)8B@)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 PF )@@G@@^[KD9ME)8BC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)9A@)^@)CL[E-#D@?CTOD(#PG )@@G@@@A@>@=D-DD1 ^[KD9ME)9AC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)9AK)^@)CL[PH )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)9AS)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MPI )@@G@@E)9A))^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)9A*)^@)CL[E-#D@?CTOD(#@A@>@=PJ )@@G@@D-DD1 ^[KD9ME)9A0)^@)CL[E-#D@?CTOD(#@[@>@= 0)^@)@D@>@= 0)^@)^@)^@)^@)CT#PK )@@G@@E@4^@)^@)^@)^@)^[NE(]ETTETOC(H^@1AC)@[@>@= 0)^@)@B@>@=D-DD1 ^[KD9MAK5A8)PL )@@G@@^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9MAK5B@)^@)D1 E-RELF -#E-HCS)^@)PM )@@G@@@B@>@=D-DD1 ^[KD9MAK5BC)^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9MAK6A@)PN )@@G@@^@)D1 E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9MAK6AC)^@)D1 E-RELF -#E-HCS)^@)PO )@@G@@@B@>@=D-DD1 ^[KD9MAK6AK)^@)D1 E-RELF -#E-HCS)^@)@A@>@=D-DD1 ^[KD9MAK6AS)PP )@@G@@^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK6A))^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 PQ )@@G@@^[KD9MAK6A*)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK6A0)^@)CL[E-#D@?CTOD(#PR )@@G@@@A@>@=D-DD1 ^[KD9MAK6A8)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK6B@)^@)CL[PS )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK6BC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MPT )@@G@@AK7A@)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK7AC)^@)CL[E-#D@?CTOD(#@B@>@=PU )@@G@@D-DD1 ^[KD9MAK7AK)^@)CT#E[GD9^ -#E-HCS)^@)@A@>@=D-DD1 ^[KD9MAK7AS)^@)CL[PV )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK7A))^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MPW )@@G@@AK7A*)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK7A0)^@)CL[E-#D@?CTOD(#@A@>@=PX )@@G@@D-DD1 ^[KD9MAK7A8)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK7B@)^@)CL[E-#D@?PY )@@G@@CTOD(#@A@>@=D-DD1 ^[KD9MAK7BC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK8A@)PZ )@@G@@^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK8AC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 QA )@@G@@^[KD9MAK8AK)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK8AS)^@)CL[E-#D@?CTOD(#QB )@@G@@@A@>@=D-DD1 ^[KD9MAK8A))^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK8A*)^@)CL[QC )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK8A0)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MQD )@@G@@AK8A8)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAK8B@)^@)CL[E-#D@?CTOD(#@[@>@=QE )@@G@@ 0)^@)@D@>@= 0)^@)^@)^@)^@)CTOD(#^@)^@)^@)^@)^[NE(]ETTETOC(H^@1AK)@[@>@=QF )@@G@@ 0)^@)@A@>@=D-DD1 ^[KD9ME)9A8)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)9B@)QG )@@G@@^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9ME)9BC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 QH )@@G@@^[KD9MAC0A@)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC0AC)^@)CL[E-#D@?CTOD(#QI )@@G@@@A@>@=D-DD1 ^[KD9MAC0AK)^@)CL[E-#D@?CTOD(#@B@>@=D-DD1 ^[KD9MAC0AS)^@)D1 QJ )@@G@@E-RELF -#E-HCS)^@)@B@>@=D-DD1 ^[KD9MAC0A))^@)D1 E-RELF -#E-HCS)^@)@A@>@=QK )@@G@@D-DD1 ^[KD9MAC0A*)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC0A0)^@)CL[E-#D@?QL )@@G@@CTOD(#@A@>@=D-DD1 ^[KD9MAC0A8)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC0B@)QM )@@G@@^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC0BC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 QN )@@G@@^[KD9MAC1A@)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC1AC)^@)CL[E-#D@?CTOD(#QO )@@G@@@A@>@=D-DD1 ^[KD9MAC1AK)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC1AS)^@)CL[QP )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC1A))^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MQQ )@@G@@AC1A*)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC1A0)^@)CL[E-#D@?CTOD(#@A@>@=QR )@@G@@D-DD1 ^[KD9MAC1A8)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC1B@)^@)CL[E-#D@?QS )@@G@@CTOD(#@A@>@=D-DD1 ^[KD9MAC1BC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC2A@)QT )@@G@@^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC2AC)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 QU )@@G@@^[KD9MAC2AK)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC2AS)^@)CL[E-#D@?CTOD(#QV )@@G@@@A@>@=D-DD1 ^[KD9MAC2A))^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC2A*)^@)CL[QW )@@G@@E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC2A0)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MQX )@@G@@AC2A8)^@)CL[E-#D@?CTOD(#@A@>@=D-DD1 ^[KD9MAC2B@)^@)CL[E-#D@?CTOD(#@[@>@=QY )@@G@@ 0)^@)@D@>@= 0)^@)^@)^@)^@)CT#E@1^@)^@)^@)^@)^[NE(]ETTETOC(H^@1A))@[@>@=QZ )@@G@@ 0)^@)@E@>@=CTOD*)E[JEK1AK9^@)^[#E-HA0?CTOD(#^@)CT#E@1 )1^@)CT#E@1 )1^@)RA )@@G@@@E@>@=CTOD*)E[JEK1AS0^@)^[#E-HA0?CTOD(#^@)CT#E@1 )2^@)CT#E@1 )2^@)@E@>@=RB )@@G@@CTOD*)E[JEK1AS1^@)^[#E-HA0?CTOD(#^@)CT#E@1 )3^@)CT#E@1 )3^@)@E@>@=CTOD*)RC )@@G@@E[JEK1AS2^@)^[#E-HA0?CTOD(#^@)CT#E@1 )4^@)CT#E@1 )4^@)@E@>@=CTOD*)E[JEK1RD )@@G@@AS3^@)^[#E-HA0?CTOD(#^@)CT#E@1 )5^@)CT#E@1 )5^@)@E@>@=CTOD*)E[JEK1AS4^@)RE )@@G@@^[#E-HA0?CTOD(#^@)CT#E@1 )6^@)CT#E@1 )6^@)@E@>@=CTOD*)E[JEK1AS5^@)^[HD9IRF )@@G@@ -#E-HCS)^[#CTKAC?A8)^[#CTKAC?A8)^@)@E@>@=CTOD*)E[JEK1AS6^@)^[HD9I -#E-HRG )@@G@@CS)^[#CTKAC?B@)^[#CTKAC?B@)^@)@E@>@=CTOD*)E[JEK1AS7^@)^[HD9I -#E-HCS)^[#RH )@@G@@CTKAC?BC)^[#CTKAC?BC)^@)@E@>@=CTOD*)E[JEK1AS8^@)^[HD9I -#E-HCS)^[#CTKAC?RI )@@G@@AC0^@)CT#E@1 )1A@)@E@>@=CTOD*)E[JEK1AS9^@)^[HD9I -#E-HCS)^[#CTKAC?AC1^@)RJ )@@G@@CT#E@1 )1AC)@E@>@=CTOD*)E[JEK1A)0^@)^[HD9I -#E-HCS)^[#CTKAC?AC2^@)CT#E@1RK )@@G@@ )1AK)@E@>@=CTOD*)E[JEK1A)1^@)^[HD9I -#E-HCS)^[#CTKAC?AC3^@)CT#E@1 )1AS)RL )@@G@@@E@>@=CTOD*)E[JEK1A)2^@)^[HD9I -#E-HCS)^[#CTKAC?AC4^@)CT#E@1 )1A))@E@>@=RM )@@G@@CTOD*)E[JEK1A)3^@)^[HD9I -#E-HCS)^[#CTKAC?AC5^@)CT#E@1 )1A*)@E@>@=CTOD*)RN )@@G@@E[JEK1A)4^@)^[#E-HA0?CTOD(#^@)CT#E@1 )1A0)^[#CTKAC?AC6@E@>@=CTOD*)E[JEK1RO )@@G@@A)5^@)^[HD9I -#E-HCS)^[#CTKAC?AC7^@)CT#E@1 )1A8)@E@>@=CTOD*)E[JEK1A)6^@)RP )@@G@@^[HD9I -#E-HCS)^[#CTKAC?AC8^@)CT#E@1 )1B@)@E@>@=CTOD*)E[JEK1A)7^@)^[HD9IRQ )@@G@@ -#E-HCS)^[#CTKAC?AC9^@)CT#E@1 )1BC)@E@>@=CTOD*)E[JEK1A)8^@)^[HD9I -#E-HRR )@@G@@CS)^[#CTKAC?AK0^@)CT#E@1 )2A@)@E@>@=CTOD*)E[JEK1A)9^@)^[HD9I -#E-HCS)^[#RS )@@G@@CTKAC?AK1^@)CT#E@1 )2AC)@E@>@=CTOD*)E[JEK1A*0^@)^[HD9I -#E-HCS)^[#CTKAC?RT )@@G@@AK2^@)CT#E@1 )2AK)@E@>@=CTOD*)E[JEK1A*1^@)^[HD9I -#E-HCS)^[#CTKAC?AK3^@)RU )@@G@@CT#E@1 )2AS)@E@>@=CTOD*)E[JEK1A*2^@)^[HD9I -#E-HCS)^[#CTKAC?AK4^@)CT#E@1RV )@@G@@ )2A))@E@>@=CTOD*)E[JEK1A*3^@)^[HD9I -#E-HCS)^[#CTKAC?AK5^@)CT#E@1 )2A*)RW )@@G@@@E@>@=CTOD*)E[JEK1A*4^@)^[HD9I -#E-HCS)^[#CTKAC?AK6^@)CT#E@1 )2A0)@E@>@=RX )@@G@@CTOD*)E[JEK1A*5^@)^[HD9I -#E-HCS)^[#CTKAC?AK7^@)CT#E@1 )2A8)@E@>@=CTOD*)RY )@@G@@E[JEK1A*6^@)^[HD9I -#E-HCS)^[#CTKAC?AK8^@)CT#E@1 )2B@)@E@>@=CTOD*)E[JEK1RZ )@@G@@A*7^@)^[HD9I -#E-HCS)^[#CTKAC?AK9^@)CT#E@1 )2BC)@E@>@=CTOD*)E[JEK1A*8^@)SA )@@G@@^[HD9I -#E-HCS)^[#CTKAC?AS0^@)CT#E@1 )3A@)@E@>@=CTOD*)E[JEK1A*9^@)^[HD9ISB )@@G@@ -#E-HCS)^[#CTKAC?AS1^@)CT#E@1 )3AC)@E@>@=CTOD*)E[JEK1A00^@)^[HD9I -#E-HSC )@@G@@CS)^[#CTKAC?AS2^@)CT#E@1 )3AK)@[@>@= 0)^@)@D@>@= 0)^@)^@)^@)^@)CT#E@2^@)SD )@@G@@^@)^@)^@)^[NE(]ETTETOC(H^@1A@)@[@>@= 0)^@)@E@>@=CTOD*)E[JELOAS3^@)^[#E-HSE )@@G@@A0?CTOD(#^@)CT#E@2 )1^@)CT#E@2 )1^@)@E@>@=CTOD*)E[JELOAS4^@)^[#E-HA0?CTOSF )@@G@@D(#^@)CT#E@2 )2^@)CT#E@2 )2^@)@E@>@=CTOD*)E[JELOAS5^@)^[#E-HA0?CTOD(#^@)SG )@@G@@CT#E@2 )3^@)CT#E@2 )3^@)@E@>@=CTOD*)E[JELOAS6^@)^[#E-HA0?CTOD(#^@)CT#E@2SH )@@G@@ )4^@)CT#E@2 )4^@)@E@>@=CTOD*)E[JELOAS7^@)^[#E-HA0?CTOD(#^@)CT#E@2 )5^@)SI )@@G@@CT#E@2 )5^@)@E@>@=CTOD*)E[JELOAS8^@)^[#E-HA0?CTOD(#^@)CT#E@2 )6^@)CT#E@2SJ )@@G@@ )6^@)@E@>@=CTOD*)E[JELOAS9^@)^[HD9I -#E-HCS)^[#CTKAK?A8)^[#CTKAK?A8)^@)SK )@@G@@@E@>@=CTOD*)E[JELOA)0^@)^[HD9I -#E-HCS)^[#CTKAK?B@)^[#CTKAK?B@)^@)@E@>@=SL )@@G@@CTOD*)E[JELOA)1^@)^[HD9I -#E-HCS)^[#CTKAK?BC)^[#CTKAK?BC)^@)@E@>@=CTOD*)SM )@@G@@E[JELOA)2^@)^[HD9I -#E-HCS)^[#CTKAK?AC0^@)CT#E@2 )1A@)@E@>@=CTOD*)E[JELOSN )@@G@@A)3^@)^[HD9I -#E-HCS)^[#CTKAK?AC1^@)CT#E@2 )1AC)@E@>@=CTOD*)E[JELOA)4^@)SO )@@G@@^[HD9I -#E-HCS)^[#CTKAK?AC2^@)CT#E@2 )1AK)@E@>@=CTOD*)E[JELOA)5^@)^[HD9ISP )@@G@@ -#E-HCS)^[#CTKAK?AC3^@)CT#E@2 )1AS)@E@>@=CTOD*)E[JELOA)6^@)^[HD9I -#E-HSQ )@@G@@CS)^[#CTKAK?AC4^@)CT#E@2 )1A))@E@>@=CTOD*)E[JELOA)7^@)^[HD9I -#E-HCS)^[#SR )@@G@@CTKAK?AC5^@)CT#E@2 )1A*)@E@>@=CTOD*)E[JELOA)8^@)^[#E-HA0?CTOD(#^@)CT#E@2SS )@@G@@ )1A0)^[#CTKAK?AC6@E@>@=CTOD*)E[JELOA)9^@)^[HD9I -#E-HCS)^[#CTKAK?AC7^@)ST )@@G@@CT#E@2 )1A8)@E@>@=CTOD*)E[JELOA*0^@)^[HD9I -#E-HCS)^[#CTKAK?AC8^@)CT#E@2SU )@@G@@ )1B@)@E@>@=CTOD*)E[JELOA*1^@)^[HD9I -#E-HCS)^[#CTKAK?AC9^@)CT#E@2 )1BC)SV )@@G@@@E@>@=CTOD*)E[JELOA*2^@)^[HD9I -#E-HCS)^[#CTKAK?AK0^@)CT#E@2 )2A@)@E@>@=SW )@@G@@CTOD*)E[JELOA*3^@)^[HD9I -#E-HCS)^[#CTKAK?AK1^@)CT#E@2 )2AC)@E@>@=CTOD*)SX )@@G@@E[JELOA*4^@)^[HD9I -#E-HCS)^[#CTKAK?AK2^@)CT#E@2 )2AK)@E@>@=CTOD*)E[JELOSY )@@G@@A*5^@)^[HD9I -#E-HCS)^[#CTKAK?AK3^@)CT#E@2 )2AS)@E@>@=CTOD*)E[JELOA*6^@)SZ )@@G@@^[HD9I -#E-HCS)^[#CTKAK?AK4^@)CT#E@2 )2A))@E@>@=CTOD*)E[JELOA*7^@)^[HD9ITA )@@G@@ -#E-HCS)^[#CTKAK?AK5^@)CT#E@2 )2A*)@E@>@=CTOD*)E[JELOA*8^@)^[HD9I -#E-HTB )@@G@@CS)^[#CTKAK?AK6^@)CT#E@2 )2A0)@E@>@=CTOD*)E[JELOA*9^@)^[HD9I -#E-HCS)^[#TC )@@G@@CTKAK?AK7^@)CT#E@2 )2A8)@E@>@=CTOD*)E[JELOA00^@)^[HD9I -#E-HCS)^[#CTKAK?TD )@@G@@AK8^@)CT#E@2 )2B@)@E@>@=CTOD*)E[JELOA01^@)^[HD9I -#E-HCS)^[#CTKAK?AK9^@)TE )@@G@@CT#E@2 )2BC)@E@>@=CTOD*)E[JELOA02^@)^[HD9I -#E-HCS)^[#CTKAK?AS0^@)CT#E@2TF )@@G@@ )3A@)@E@>@=CTOD*)E[JELOA03^@)^[HD9I -#E-HCS)^[#CTKAK?AS1^@)CT#E@2 )3AC)TG )@@G@@@E@>@=CTOD*)E[JELOA04^@)^[HD9I -#E-HCS)^[#CTKAK?AS2^@)CT#E@2 )3AK)@[@>@=TH )@@G@@ 0)^@)@D@>@= 0)^@)^@)^@)^@)CT#E@3^@)^@)^@)^@)^[NE(]ETTETOC(H^@9^@)@[@>@=TI )@@G@@ 0)^@)@E@>@=CTOD*)E[JELOA05^@)^[#E-HA0?CTOD(#^@)CT#E@3 )1^@)CT#E@3 )1^@)TJ )@@G@@@E@>@=CTOD*)E[JELOA06^@)^[#E-HA0?CTOD(#^@)CT#E@3 )2^@)CT#E@3 )2^@)@E@>@=TK )@@G@@CTOD*)E[JELOA07^@)^[#E-HA0?CTOD(#^@)CT#E@3 )3^@)CT#E@3 )3^@)@E@>@=CTOD*)TL )@@G@@E[JELOA08^@)^[#E-HA0?CTOD(#^@)CT#E@3 )4^@)CT#E@3 )4^@)@E@>@=CTOD*)E[JELOTM )@@G@@A09^@)^[#E-HA0?CTOD(#^@)CT#E@3 )5^@)CT#E@3 )5^@)@E@>@=CTOD*)E[JELOA80^@)TN )@@G@@^[#E-HA0?CTOD(#^@)CT#E@3 )6^@)CT#E@3 )6^@)@E@>@=CTOD*)E[JELOA81^@)^[HD9ITO )@@G@@ -#E-HCS)^[#CTKAS?A8)^[#CTKAS?A8)^@)@E@>@=CTOD*)E[JELOA82^@)^[HD9I -#E-HTP )@@G@@CS)^[#CTKAS?B@)^[#CTKAS?B@)^@)@E@>@=CTOD*)E[JELOA83^@)^[HD9I -#E-HCS)^[#TQ )@@G@@CTKAS?BC)^[#CTKAS?BC)^@)@E@>@=CTOD*)E[JELOA84^@)^[HD9I -#E-HCS)^[#CTKAS?TR )@@G@@AC0^@)CT#E@3 )1A@)@E@>@=CTOD*)E[JELOA85^@)^[HD9I -#E-HCS)^[#CTKAS?AC1^@)TS )@@G@@CT#E@3 )1AC)@E@>@=CTOD*)E[JELOA86^@)^[HD9I -#E-HCS)^[#CTKAS?AC2^@)CT#E@3TT )@@G@@ )1AK)@E@>@=CTOD*)E[JELOA87^@)^[HD9I -#E-HCS)^[#CTKAS?AC3^@)CT#E@3 )1AS)TU )@@G@@@E@>@=CTOD*)E[JELOA88^@)^[HD9I -#E-HCS)^[#CTKAS?AC4^@)CT#E@3 )1A))@E@>@=TV )@@G@@CTOD*)E[JELOA89^@)^[HD9I -#E-HCS)^[#CTKAS?AC5^@)CT#E@3 )1A*)@E@>@=CTOD*)TW )@@G@@E[JELOB@0^@)^[#E-HA0?CTOD(#^@)CT#E@3 )1A0)^[#CTKAS?AC6@E@>@=CTOD*)E[JELOTX )@@G@@B@1^@)^[HD9I -#E-HCS)^[#CTKAS?AC7^@)CT#E@3 )1A8)@E@>@=CTOD*)E[JELOB@2^@)TY )@@G@@^[HD9I -#E-HCS)^[#CTKAS?AC8^@)CT#E@3 )1B@)@E@>@=CTOD*)E[JELOB@3^@)^[HD9ITZ )@@G@@ -#E-HCS)^[#CTKAS?AC9^@)CT#E@3 )1BC)@E@>@=CTOD*)E[JELOB@4^@)^[HD9I -#E-HUA )@@G@@CS)^[#CTKAS?AK0^@)CT#E@3 )2A@)@E@>@=CTOD*)E[JELOB@5^@)^[HD9I -#E-HCS)^[#UB )@@G@@CTKAS?AK1^@)CT#E@3 )2AC)@E@>@=CTOD*)E[JELOB@6^@)^[HD9I -#E-HCS)^[#CTKAS?UC )@@G@@AK2^@)CT#E@3 )2AK)@E@>@=CTOD*)E[JELOB@7^@)^[HD9I -#E-HCS)^[#CTKAS?AK3^@)UD )@@G@@CT#E@3 )2AS)@E@>@=CTOD*)E[JELOB@8^@)^[HD9I -#E-HCS)^[#CTKAS?AK4^@)CT#E@3UE )@@G@@ )2A))@E@>@=CTOD*)E[JELOB@9^@)^[HD9I -#E-HCS)^[#CTKAS?AK5^@)CT#E@3 )2A*)UF )@@G@@@E@>@=CTOD*)E[JELOBC0^@)^[HD9I -#E-HCS)^[#CTKAS?AK6^@)CT#E@3 )2A0)@E@>@=UG )@@G@@CTOD*)E[JELOBC1^@)^[HD9I -#E-HCS)^[#CTKAS?AK7^@)CT#E@3 )2A8)@E@>@=CTOD*)UH )@@G@@E[JELOBC2^@)^[HD9I -#E-HCS)^[#CTKAS?AK8^@)CT#E@3 )2B@)@E@>@=CTOD*)E[JELOUI )@@G@@BC3^@)^[HD9I -#E-HCS)^[#CTKAS?AK9^@)CT#E@3 )2BC)@E@>@=CTOD*)E[JELOBC4^@)UJ )@@G@@^[HD9I -#E-HCS)^[#CTKAS?AS0^@)CT#E@3 )3A@)@E@>@=CTOD*)E[JELOBC5^@)^[HD9IUK )@@G@@ -#E-HCS)^[#CTKAS?AS1^@)CT#E@3 )3AC)@E@>@=CTOD*)E[JELOBC6^@)^[HD9I -#E-HUL )@@G@@CS)^[#CTKAS?AS2^@)CT#E@3 )3AK)@[@>@= 0)^@)@[@>@= 0)^@)@D@>@= 0)^@)^@)^@)UM )@@G@@^@)CT#E@4^@)^@)^@)^@)^[NE(]ETTETOC(H^@1AC)@[@>@= 0)^@)@E@>@=CTOD*)E[JEK2UN )@@G@@A*7^@)^[#E-HA0?CTOD(#^@)CT#E@4 )1^@)CT#E@4 )1^@)@E@>@=CTOD*)E[JEK2A*8^@)UO )@@G@@^[#E-HA0?CTOD(#^@)CT#E@4 )2^@)CT#E@4 )2^@)@E@>@=CTOD*)E[JEK2A*9^@)^[#E-HUP )@@G@@A0?CTOD(#^@)CT#E@4 )3^@)CT#E@4 )3^@)@E@>@=CTOD*)E[JEK2A00^@)^[#E-HA0?CTOUQ )@@G@@D(#^@)CT#E@4 )4^@)CT#E@4 )4^@)@E@>@=CTOD*)E[JEK2A01^@)^[#E-HA0?CTOD(#^@)UR )@@G@@CT#E@4 )5^@)CT#E@4 )5^@)@E@>@=CTOD*)E[JEK2A02^@)^[#E-HA0?CTOD(#^@)CT#E@4US )@@G@@ )6^@)CT#E@4 )6^@)@E@>@=CTOD*)E[JEK2A03^@)^[HD9I -#E-HCS)^[#CTKA)?A8)^[#UT )@@G@@CTKA)?A8)^@)@E@>@=CTOD*)E[JEK2A04^@)^[HD9I -#E-HCS)^[#CTKA)?B@)^[#CTKA)?UU )@@G@@B@)^@)@E@>@=CTOD*)E[JEK2A05^@)^[HD9I -#E-HCS)^[#CTKA)?BC)^[#CTKA)?BC)^@)UV )@@G@@@E@>@=CTOD*)E[JEK2A06^@)^[HD9I -#E-HCS)^[#CTKA)?AC0^@)CT#E@4 )1A@)@E@>@=UW )@@G@@CTOD*)E[JEK2A07^@)^[HD9I -#E-HCS)^[#CTKA)?AC1^@)CT#E@4 )1AC)@E@>@=CTOD*)UX )@@G@@E[JEK2A08^@)^[HD9I -#E-HCS)^[#CTKA)?AC2^@)CT#E@4 )1AK)@E@>@=CTOD*)E[JEK2UY )@@G@@A09^@)^[HD9I -#E-HCS)^[#CTKA)?AC3^@)CT#E@4 )1AS)@E@>@=CTOD*)E[JEK2A80^@)UZ )@@G@@^[HD9I -#E-HCS)^[#CTKA)?AC4^@)CT#E@4 )1A))@E@>@=CTOD*)E[JEK2A81^@)^[HD9IVA )@@G@@ -#E-HCS)^[#CTKA)?AC5^@)CT#E@4 )1A*)@E@>@=CTOD*)E[JEK2A82^@)^[#E-HA0?CTOVB )@@G@@D(#^@)CT#E@4 )1A0)^[#CTKA)?AC6@E@>@=CTOD*)E[JEK2A83^@)^[HD9I -#E-HCS)^[#VC )@@G@@CTKA)?AC7^@)CT#E@4 )1A8)@E@>@=CTOD*)E[JEK2A84^@)^[HD9I -#E-HCS)^[#CTKA)?VD )@@G@@AC8^@)CT#E@4 )1B@)@E@>@=CTOD*)E[JEK2A85^@)^[HD9I -#E-HCS)^[#CTKA)?AC9^@)VE )@@G@@CT#E@4 )1BC)@E@>@=CTOD*)E[JEK2A86^@)^[HD9I -#E-HCS)^[#CTKA)?AK0^@)CT#E@4VF )@@G@@ )2A@)@E@>@=CTOD*)E[JEK2A87^@)^[HD9I -#E-HCS)^[#CTKA)?AK1^@)CT#E@4 )2AC)VG )@@G@@@E@>@=CTOD*)E[JEK2A88^@)^[HD9I -#E-HCS)^[#CTKA)?AK2^@)CT#E@4 )2AK)@E@>@=VH )@@G@@CTOD*)E[JEK2A89^@)^[HD9I -#E-HCS)^[#CTKA)?AK3^@)CT#E@4 )2AS)@E@>@=CTOD*)VI )@@G@@E[JEK2B@0^@)^[HD9I -#E-HCS)^[#CTKA)?AK4^@)CT#E@4 )2A))@E@>@=CTOD*)E[JEK2VJ )@@G@@B@1^@)^[HD9I -#E-HCS)^[#CTKA)?AK5^@)CT#E@4 )2A*)@E@>@=CTOD*)E[JEK2B@2^@)VK )@@G@@^[HD9I -#E-HCS)^[#CTKA)?AK6^@)CT#E@4 )2A0)@E@>@=CTOD*)E[JEK2B@3^@)^[HD9IVL )@@G@@ -#E-HCS)^[#CTKA)?AK7^@)CT#E@4 )2A8)@E@>@=CTOD*)E[JEK2B@4^@)^[HD9I -#E-HVM )@@G@@CS)^[#CTKA)?AK8^@)CT#E@4 )2B@)@E@>@=CTOD*)E[JEK2B@5^@)^[HD9I -#E-HCS)^[#VN )@@G@@CTKA)?AK9^@)CT#E@4 )2BC)@E@>@=CTOD*)E[JEK2B@6^@)^[HD9I -#E-HCS)^[#CTKA)?VO )@@G@@AS0^@)CT#E@4 )3A@)@E@>@=CTOD*)E[JEK2B@7^@)^[HD9I -#E-HCS)^[#CTKA)?AS1^@)VP )@@G@@CT#E@4 )3AC)@E@>@=CTOD*)E[JEK2B@8^@)^[HD9I -#E-HCS)^[#CTKA)?AS2^@)CT#E@4VQ )@@G@@ )3AK)@[@>@= 0)^@)@D@>@= 0)^@)^@)^@)^@)CTOD(#^@)^@)^@)^@)^[NE(]ETTETOC(HVR )@@G@@^@1AK)@[@>@= 0)^@)@E@>@=CTOD*)E[JELOBC7^@)^[HD9I -#E-HCS)^[#E-HCS?AC)^[#VS )@@G@@E-HCS?AC)^@)@E@>@=CTOD*)E[JELOBC8^@)^[HD9I -#E-HCS)^[#E-HCS?AK)^[#E-HCS?VT )@@G@@AK)^@)@E@>@=CTOD*)E[JELOBC9^@)^[HD9I -#E-HCS)^[#E-HCS?AS)^[#E-HCS?AS)^@)VU )@@G@@@E@>@=CTOD*)E[JEK1A@0^@)^[HD9I -#E-HCS)^[#E-HCS?A))^[#E-HCS?A))^@)@E@>@=VV )@@G@@CTOD*)E[JEK1A@1^@)^[HD9I -#E-HCS)^[#E-HCS?A*)^[#E-HCS?A*)^@)@E@>@=CTOD*)VW )@@G@@E[JEK1A@2^@)^[HD9I -#E-HCS)^[#E-HCS?A0)^[#E-HCS?A0)^@)@E@>@=CTOD*)E[JEK1VX )@@G@@A@3^@)^[#E-HA0?CTOD(#^@)CTOD(# )7^@)CTOD(# )7^@)@E@>@=CTOD*)E[JEK1A@4^@)VY )@@G@@^[#E-HA0?CTOD(#^@)CTOD(# )8^@)CTOD(# )8^@)@E@>@=CTOD*)E[JEK1A@5^@)^[HD9IVZ )@@G@@ -#E-HCS)^[#E-HCS?BC)^[#E-HCS?BC)^@)@E@>@=CTOD*)E[JEK1A@6^@)^[HD9I -#E-HWA )@@G@@CS)^[#E-HCS?AC0^@)CTOD(# )1A@)@E@>@=CTOD*)E[JEK1A@7^@)^[HD9I -#E-HCS)^[#WB )@@G@@E-HCS?AC1^@)CTOD(# )1AC)@E@>@=CTOD*)E[JEK1A@8^@)^[HD9I -#E-HCS)^[#E-HCS?WC )@@G@@AC2^@)CTOD(# )1AK)@E@>@=CTOD*)E[JEK1A@9^@)^[HD9I -#E-HCS)^[#E-HCS?AC3^@)WD )@@G@@CTOD(# )1AS)@E@>@=CTOD*)E[JEK1AC0^@)^[HD9I -#E-HCS)^[#E-HCS?AC4^@)CTOD(#WE )@@G@@ )1A))@E@>@=CTOD*)E[JEK1AC1^@)^[HD9I -#E-HCS)^[#E-HCS?AC5^@)CTOD(# )1A*)WF )@@G@@@E@>@=CTOD*)E[JEK1AC2^@)^[HD9I -#E-HCS)^[#E-HCS?AC6^@)CTOD(# )1A0)@E@>@=WG )@@G@@CTOD*)E[JEK1AC3^@)^[HD9I -#E-HCS)^[#E-HCS?AC7^@)CTOD(# )1A8)@E@>@=CTOD*)WH )@@G@@E[JEK1AC4^@)^[HD9I -#E-HCS)^[#E-HCS?AC8^@)CTOD(# )1B@)@E@>@=CTOD*)E[JEK1WI )@@G@@AC5^@)^[HD9I -#E-HCS)^[#E-HCS?AC9^@)CTOD(# )1BC)@E@>@=CTOD*)E[JEK1AC6^@)WJ )@@G@@^[HD9I -#E-HCS)^[#E-HCS?AK0^@)CTOD(# )2A@)@E@>@=CTOD*)E[JEK1AC7^@)^[HD9IWK )@@G@@ -#E-HCS)^[#E-HCS?AK1^@)CTOD(# )2AC)@E@>@=CTOD*)E[JEK1AC8^@)^[HD9I -#E-HWL )@@G@@CS)^[#E-HCS?AK2^@)CTOD(# )2AK)@E@>@=CTOD*)E[JEK1AC9^@)^[HD9I -#E-HCS)^[#WM )@@G@@E-HCS?AK3^@)CTOD(# )2AS)@E@>@=CTOD*)E[JEK1AK0^@)^[HD9I -#E-HCS)^[#E-HCS?WN )@@G@@AK4^@)CTOD(# )2A))@E@>@=CTOD*)E[JEK1AK1^@)^[HD9I -#E-HCS)^[#E-HCS?AK5^@)WO )@@G@@CTOD(# )2A*)@E@>@=CTOD*)E[JEK1AK2^@)^[HD9I -#E-HCS)^[#E-HCS?AK6^@)CTOD(#WP )@@G@@ )2A0)@E@>@=CTOD*)E[JEK1AK3^@)^[HD9I -#E-HCS)^[#E-HCS?AK7^@)CTOD(# )2A8)WQ )@@G@@@E@>@=CTOD*)E[JEK1AK4^@)^[HD9I -#E-HCS)^[#E-HCS?AK8^@)CTOD(# )2B@)@E@>@=WR )@@G@@CTOD*)E[JEK1AK5^@)^[HD9I -#E-HCS)^[#E-HCS?AK9^@)CTOD(# )2BC)@E@>@=CTOD*)WS )@@G@@E[JEK1AK6^@)^[HD9I -#E-HCS)^[#E-HCS?AS0^@)CTOD(# )3A@)@E@>@=CTOD*)E[JEK1WT )@@G@@AK7^@)^[HD9I -#E-HCS)^[#E-HCS?AS1^@)CTOD(# )3AC)@E@>@=CTOD*)E[JEK1AK8^@)WU )@@G@@^[HD9I -#E-HCS)^[#E-HCS?AS2^@)CTOD(# )3AK)___^@)*[S@@[*SDFF*@[@@@D 0)^@)WV )@@G@@@H@@@D 0)^@)^@)^@)^@)DDNC))AC1A@8^[3H9&I-7GD2G*)GT\H1&HD$I(2GD4HD\H0)I[-WW )@@G@@IL-H(>I->IL3@[@@@D 0)^@)@^@@@DC-#D-PE-N^@)^@)B@1BC1^@)@^@@@FC-DCDBE-TE@)WX )@@G@@^@)^9AAC7^8)%O@@@@ *6 )6^@)^@)^@)CTJD1ADDB 81AC0B@)^@3A8,A@)^@)^@)^@)^@)WY )@@G@@^@)EL C-PCT ^[OD[ ^[NDDUC*)D9A^[ F[KD9JD))^@)^@)^@)^@) 0)C(SE[JD9G@O@H@DWZ )@@G@@C(SE[[C-E^@)^@)A@6A@0A@0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)C(SE[JD9G^[DXA )@@G@@D1DE-DCDG^[MC(NC(ME1 ^@)^@)^@)^@)^@) 0)C(SE[JD9G@O@@[HC(SE[[C-E^@)^@)A@5XB )@@G@@AK5AK5^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)C(SE[JD9G^[DD1DE-DCDG^[MC(NC(MXC )@@G@@E1 ^@)^@)^@)^@)^@) 0)C(SE[JD9G%@@@@[@O[@@DC(SE[ F[K^@)^@)AK)^@)^@)^@)^@)XD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)C(SE[JD9G^[ F[KCDIETDD9I^@)^@)^@)^@)^@)^@)XE )@@G@@^@)^@) 0)C(SE[JD9G@^@@@DC(SE[OEL[CT ^@)AC0A@)^@)@^@@@DC1#C-]ETU^@)^@)AC0XF )@@G@@A@)^@)@#@@@DC9#CTHDDI^@)^@)A)0@#@@@DDDICTJEL ^@)^@)AC)@ @@@DD-[ETOELF^@)XG )@@G@@^@)A@1AK0A@0A@0^@)@#@@@DD([F[JE[I^@)^@)B@)@#@@@DELNDD#D1O^@)^@)A)0@#@@@DXH )@@G@@ET]C-TD0)^@)^@)A@)@#@@@DET]C1DD- ^@)^@)A@)@#@@@DET]D- E01^@)^@)A@)@#@@@DXI )@@G@@ET]D- E02^@)^@)A@)@#@@@DET]D- E03^@)^@)A@)@#@@@DET]D- E04^@)^@)A@)@#@@@DXJ )@@G@@ET]D- E05^@)^@)A@)@#@@@DET]ELPD0)^@)^@)A@)@#@@@DET]E-DD( D9I^@)A@)@#@@@DXK )@@G@@ETDE[DD8)^@)^@)A@)@[@@@D 0)^@)@F@@@D 0)^@)^@)^@)^@)DC\D8)G92H95I@)GDXL )@@G@@IT3^@\^[4IL-H13G1>IK)IL-I->IS)@[@@@D 0)^@)@H@@@DC9MD9PE@)EL[E- ^@4AC%C-CXM )@@G@@D-[CT )0 S4AS0A@0^@)^@)^@)C(LE(DE[HC(IE))C1CA)3AK)^@)@H@@@DC9MD9PE@)EL[XN )@@G@@E- ^@4AC%C-CD-[CTC )0 S1A80A@0A@)^@)^@)C(LE(DE[HC(IE))C1CAC7B@2^@)@O@@@DXO )@@G@@C9MD9PE@)EL[E- ^@1A)4 )3AK5A@0A@:AC2A*0A@0^@)^@)^@)C(LE(DE[HC(IE))C)8A)5XP )@@G@@A@?C)8A)3A@?C)8A)3AS?C)8A)3A)?C)8A)4A@?C1DDC)^@)@K@E@DC9MD9PE@)EL[E- ^@6XQ )@@G@@AK5 )1A@0A@0A@:A@)^@)^@)^@)^@)^@)C(LE(DE[HC(IE))E1DDDDCS?E1DDDDCT] )?E*3XR )@@G@@A@)^@)@K@@@EC9MD9PE@)EL[E- ^@6AK5 )1A@0A@0A@:A@)^@)^@)^@)^@)^@)C(LE(DE[HXS )@@G@@C(IE))E1DDDDCS?E1DDDDCT] -PAC6 -PAS0@K@E@DC9MD9PE@)EL[E- ^@4AC6 )1A@0A@0XT )@@G@@A@:A@)^@)^@)^@)^@)^@)C(LE(DE[HC(IE)) -QDDDDD#BC?E*3A[^ -PAS6D0)^@)@M@@@EXU )@@G@@C9MD9PE@)EL[E- ^@4AC6 )1A@0A@0A@:A@)^@)^@)^@)^@)^@)C(LE(DE[HC(IE))E*1A1^XV )@@G@@ -PAC6D0?E1DDDDCS9 -PAS0C)?E*3A1I^@)@[@@@D 0)^@)@[@@@D 0)^@)@J@@@D 0)^@)XW )@@G@@^@)^@)^@)DDNC))AC1A@8^[\H13HD4G*)H[-IL=I9-IL>^[H14IL-H))GT\XY )@@G@@H(0H->J@)^@)@[@@@D 0)^@)@B@@@DD1JC- ^[#E[PA@)^@)DDN^[#E[P *1AC0B[[ )0^@)XZ )@@G@@@[@@@D 0)^@)@F@@@DD1JC- ^[HC(HAC?D( D*3 -HC(HAK?D( D*4^[[EL ^[HA80A@5 )1YA )@@G@@ )3 )2 )4^@)@[@@@D 0)^@)@C@@@D 0)^@)^@)^@)^@)D(NCD3^@\^[YY )@@G@@I1(GT>IS)^@)@[@@@D 0)^@)@O@@@DD1JC- ^[^ELPD*0^@)^@)^@)^@)^@)^@)^@)^@)^[DYZ )@@G@@ES)C1CAC7B@2^[[D1^^[#D9ID1 CTOES)E-J^[^ELHCS0^[QDD[^[^C(QDD#C*!CD^C-MC(NZA )@@G@@ES)A@)@J@@@DD1JC- ^[^ELPD*?AC)^[OD[ME*)C-ME(H )2^@)CDMC*)C1CA)3AK)^[[D1^ZB )@@G@@^[#D9ID1 CTO^@)E-J^[^ELHCS0^@)@[@@@D 0)^@)@J@@@DD1JC- ^[ADDSA@?A@)^[OD[MZC )@@G@@E*)C1DF@0 )7^@)CDMC*)C)8A)4A@)^[[D1^^[#D9ID1 CTO^@)E-J^[^ETFCS0A@)@[@@@DZD )@@G@@ 0)^@)@J@@@DD1JC- ^[OCDKC*?A@)^[OD[ME*)E-[E[ )5^@)CDMC*)E*1A0)^@)^[[D1^ZE )@@G@@^[#D9ID1 CTO^@)E-J^[OCDKCS0^@)@J@@@DD1JC- ^[OCDKC*?A0)^[OD[ME*)E-[E[ )8ZF )@@G@@^@)CDMC*)E*1A1^^@)^[[D1^^[#D9ID1 CTO^@)E-J^[OCDKCS0^@)@[@@@D 0)^@)@J@G@DZG )@@G@@D1JC- ^[OCDKC*9 -OCDKC*1A@?E-[E[ AC1^@)CDMC*)E1DDDDCS)^[[D1^^[#D9ID1 CTOZH )@@G@@^@)E-J^[OCDKCS1^@;@C@G@D^@)^@)^[QDD[^[^C(QDD#C*!CD^C-MC(NET ES)A@?AC?AK)ZI )@@G@@@J@G@DD1JC- ^[OCDKC*1AK?E-[E[ AC3 -OCDKC*1A))CDMC*)E1DDDDCS)^[[D1^^[#D9IZJ )@@G@@D1 CTO^@)E-J^[OCDKCS1^@;@C@G@D^@)^@)^[QDD[^[^C(QDD#C*!CD^C-MC(NET ES)AS?ZK )@@G@@A)?A*)@J@G@DD1JC- ^[OCDKC*1A*?E-[E[ AC6^@)^@)^@)^@)CDMC*)E1DDDDCS9^[[D1^ZL )@@G@@^[#D9ID1 CTO^@)E-J^[OCDKCS1^@;@C@G@D^@)^@)^[QDD[^[^C(QDD#C*!CD^C-MC(NET ZM )@@G@@ES)A0?A8)^@)@[@G@D 0)^@)@K@@@DD1JC- ^[DET^ -DET^EL^EK?DDNC-KCTC^@)^@)CDMZN )@@G@@C*)ETTD(^C(Q^[[D1^^[#D9ID1 CTO^@)E-J^[#AC0A@4^@)BS)^@)@C@@@D^@)^@)^[QDD[ZO )@@G@@^[^C(QDD#C*!CD^C-MC(NET ES)A@?AC?AK)@[@@@D 0)^@)@K@@@DD1JC- ^[#ELOA@?E[[ZP )@@G@@C80^@)^@)^@)^@)^@)^@)CDMC*)CTIETJD- ^[[D1^^[#D9ID1 CTO^@)E-J^[#D9IETJD))ZQ )@@G@@BS)^@)@C@@@D^@)^@)^[QDD[^[^C(QDD#C*!CD^C-MC(NET ES)A@?AC)^@)@[@@@D 0)^@)ZR )@@G@@@[@@@D 0)^@)@M@G@DC(SC(#^[^C(QDD#C(N^[[EL ^[ F[ CS!ETOD9MCDBC*?C-ME(HA@)ZS )@@G@@^[KCDIDD# (^E(HE@?E-[E[ AC)^[]D9JE)!CTJD1ND9GC*?CTME)0@M@@@GC(SC(#^[^C(QZT )@@G@@DD#C(N^[[EL ^[ F[ CS!ETOD9MCDBC*?C1DF@0A@)^[KCDIDD# (^E(HE@?E-[E[ AC)^[]ZU )@@G@@D9JE)!CTJD1ND9GC*?CTME)0@[@@@D 0)^@)@A@@@DETRCDK^@4A@?^9KD9N^8)^9AAC7^8?ZV )@@G@@AC5^@)@[@@@D 0)^@)@[@@@D 0)^@)@E@@@D 0)^@)^@)^@)^@)D9,IT(I->^[3JD!GL(H9,ZW )@@G@@I))GT\H1&HD$I(2GD4HD\H0)@[@@@D 0)^@)@ @@@DE- ELH^@)^[#AC0A@4^@)^@1A@0A))ZX )@@G@@@[@@@D 0)^@)@F@@@DC- E1DCT ^[DET^ )0 -#AC0A@4^@)^@)^[KELDD1OC(M^[KELD^@6ZY )@@G@@A0?AC3AK?A0)@E@@@DC- E1DCT ^[DET^EL^EK?AC?CS1A@0A))^[#EL CD^^@)^[KELD^@1ZZ )@@G@@ )8A@)@E@@@DC- E1DCT ^[DET^E[#D@?AK?CS1A@0A))^[#E[PD1#D@)^[KELD^@1 )8A@)AA )@@G@@@[@@@D 0)^@)@B@@@DDDIE[PE))^[DET^EL^EK)^@)^@)^[KEK)^[#E@)^@)@A@@@DD9PE-KAB )@@G@@E(O^[KEK?E[MDDIE))^@)^[DET^^@)@B@@@DD9PE-KE(O^[#E@?E[PD1#D@)^@)^[DET^E[#AC )@@G@@D@)^@)@[@@@D 0)^@)_@@@@@^@)^[QDD[^[#D[[D1IC(G^@)^@)^@1A@)^@)@K@@@DD1JC- AD )@@G@@*[S@@[*SDFF*@[@@@M 0)^@)@K@@@M 0)^@)^@)^@)^@)DDNC))AC1A@8^[-H1=^@1AC0A@\AE )@@G@@B@0^[I->IL3^@)@[@@@M 0)^@)@^@@@MAF )@@G@@CDKELDD9M^@)^@)^9N^8)^@)@#@@@MC-HDDI^@)^@)^@)AS0@#@@@MC-DD1#^@)^@)^@)A*)AG )@@G@@@#@@@MC-HCDS^@)^@)^@)A80@#@@@MC1ICT#D[F^@)^@)AK)@#@@@MDDJC-]E(B^@)^@)AC)AH )@@G@@@^@@@MD([F[ODDH^@)^@)AC0A@0^@)@^@@@MD([F[KCDB^@)^@)AK0A)7^@)@#@@@MD([F[#AI )@@G@@EL^^@)^@)A@)@A@@@MD9QEL[CT#^@)^@)^9NC(#EL E-IE(HCL EK$@A@@@MD9QELPETM^@)AJ )@@G@@^@)^9NC(#EL E-PET EK$^@)@A@@@ME[MDDQCD#^@)^@)^8! (ID9O (PET C)! *$@#@@@MAK )@@G@@EL CLJD9OCTO^@)A)0@#@@@MEL D(PET ^@)^@)A@)@^@@@METNC- D1N^@)^@)^9C^8)^@)AL )@@G@@@^@@@METNC(LE[O^@)^@)^8)^[P^8)@#@@@METOC-KCDB^@)^@)A06@#@@@ME-AC(SE@)^@)AM )@@G@@^@)A@)@^@@@ME-AD([F@)^@)^@)AK0A)7^@)@#@@@ME-GETDD(K^@)^@)A@)@^@@@ME-KC1OAN )@@G@@FDK^@)^@)^9AAC7^8)@#@@@ME-KD9RD0)^@)^@)AC)@#@@@ME-MD(SCTJ^@)^@)AC)@#@@@MAO )@@G@@E-MD(SE[J^@)^@)AC)@#@@@ME-MD(SE))^@)^@)AC)@#@@@ME(NCDHD9^^@)^@)A@)@#@@@MAP )@@G@@E(NC(MD9I^@)^@)AC)@#@@@ME(N^- EK)^@)^@)AC)@[@@@M 0)^@)@F@@@M 0)^@)^@)^@)AQ )@@G@@^@)C9>H1>IL-H))ED5H94GC)GT\H1&HD$^[0GD2GD!G(4G(2IS)^@)@[@@@M 0)^@)@#@@@MAR )@@G@@CD#CTOD9I^@)^@)A))@#@@@MCL[E-KCDN^@)^@)A@)@#@@@MD-JC9JD1N^@)^@)A@)@#@@@MAS )@@G@@EL ETOELDCTO^@)AC)@#@@@METNE[]E@)^@)^@)AC)@[@@@M 0)^@)@E@@@M 0)^@)^@)^@)AT )@@G@@^@)C->G1-I(?I))ED5H94GC)IT>I))I[-IL-H(>I->IL3^@)@[@@@M 0)^@)@#@@@MCDSCT AU )@@G@@C(^^@)^@)AC)@#@@@MD1OCDK @1 C)^@)A03@#@@@MD1OCDK @2 C)^@)A03@#@@@MD1OCDKAV )@@G@@ @3 C)^@)A03@#@@@MD1OCDK @4 C)^@)A03@#@@@MD1OCDK @5 C)^@)A03@ @@@MEDOCDKAW )@@G@@ @1 C)^@)AK4 K6A@%AS)^@)@ @@@MEDOCDK @2 C)^@)AK4 K6A@%AS)^@)@ @@@MEDOCDKAX )@@G@@ @3 C)^@)AK4 K6A@%AS)^@)@ @@@MEDOCDK @4 C)^@)AK4 K6A@%AS)^@)@ @@@MEDOCDKAY )@@G@@ @5 C)^@)AK4 K6A@%AS)^@)@#@@@MD1^DDNCS*AC(^@)A03@#@@@MD1^DDNCS*AK(^@)A03AZ )@@G@@@#@@@MD1^DDNCS*AS(^@)A03@#@@@MD1^DDNCS*A)(^@)A03@#@@@MD1^DDNCS*A*(^@)A03BA )@@G@@@ @@@MED^DDNCS*AC(^@)AK4 K6A@%AS)^@)@ @@@MED^DDNCS*AK(^@)AK4 K6A@%AS)^@)BB )@@G@@@ @@@MED^DDNCS*AS(^@)AK4 K6A@%AS)^@)@ @@@MED^DDNCS*A)(^@)AK4 K6A@%AS)^@)BC )@@G@@@ @@@MED^DDNCS*A*(^@)AK4 K6A@%AS)^@)@^@@@MEDME-HES*AC(^@)AC0A@0^@)@^@@@MBD )@@G@@EDME-HES*AK(^@)AC0A@0^@)@^@@@MEDME-HES*AS(^@)AC0A@0A@)@^@@@MEDME-HES*A)(BE )@@G@@^@)AC0A@0A@)@^@@@MEDME-HES*A*(^@)AC0A@0A@)@#@@@MEDME-HES*A0(^@)A@)@#@@@MBF )@@G@@EDME-HES*A8(^@)A@)@#@@@MEDME-HES*B@(^@)A@)@[@@@M 0)^@)@G@@@M 0)^@)^@)^@)BG )@@G@@^@)CD=G-(I-(H9,GD?^[2G(3HD=G(,I))IT>G9!G(,I-3^@*F[NC(B^93 C)@[@@@M 0)^@)BH )@@G@@%O@@@@ *7A*?A85^@)^@)CTJD1ADDB 9#D9HD(JD0)^@3A8,A@)^@)^@)^@,^[BCT#C1PD0)BI )@@G@@D1J^[GD9IC9 EK)D1 C(^ES)E-J^[]C*)F[NC(B^@) 0)DDNC))^@)@E@Q@MF[MC(NC(B^[NBJ )@@G@@C(BD( D1OES)CDMC*)^9BCT#C(MCC$ )$C9#CTAE(I^8)^@)@O@@[QF[MC(NC(B^[NC(BD( BK )@@G@@D1OES)CDMC*)^9BCT#C(MCC$^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BL )@@G@@^@)^@)^@)^@)^@)^@) 0)DDNC))^@)%@@@@[@[[@@M 0)^@)@M@@@M 0)^@)^@)^@)^@)CT\BM )@@G@@H(!H9,^[+GD,HS)I->IT4^[&HD?G(3^@) [1I(-H-(G1(G(2^[(IS)GD3IT5H(>G))I-\^[+BN )@@G@@G*)^9NFDN^)$ C)^@)@[@@@M 0)^@)@C@@@MCT]CDIDTA^@$CL[D1F^)$ )$CL[D1F^)2^8?BO )@@G@@^9]CDIDS=AS$@[@@@M 0)^@)@C@@@M 0)^@)^@)^@)^@)DD, (IT 0 @#@@@@*IF [P1),1] = 3 @^@@@@*IF [P1),1,3,1] = HA )@@G@@YES @]@@@@*SET RESTRT @[@@@@*ELSE @^@@@@*IF NOT [P1),1,3,1] = NO@D@@@@HB )@@G@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P1) INCORRECT@]@@@@*SET ERROR HC )@@G@@@[@@@@*END @[@@@@*END @[@@@@*ELSE @#@@@@*IF [P1),1] > 3 @D@@@@#MSG,NHD )@@G@@ SGS ERROR: PARAMETER (P1) INCORRECTLY WORDED @]@@@@*SET ERROR @[@@@@HE )@@G@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @#@@@@*IF RESTRT IHF )@@G@@S SET @#@@@@*IF [P1A)] > 0 @#@@@@*IF [P1A),1] = 3 @^@@@@*IF [P1A),1,HG )@@G@@3,1] = CP1 @]@@@@*SET CKPT1 @[@@@@*ELSE @^@@@@*IF [P1A),1,3,1] = CP2 HH )@@G@@@]@@@@*SET CKPT2 @[@@@@*ELSE @^@@@@*IF [P1A),1,3,1] = CP3 @]@@@@*SET CHI )@@G@@KPT3 @[@@@@*ELSE @^@@@@*IF [P1A),1,3,1] = CP4 @]@@@@*SET CKPT4 @[@@@@HJ )@@G@@*ELSE @^@@@@*IF [P1A),1,3,1] = CP5 @]@@@@*SET CKPT5 @[@@@@*ELSE @E@@@@HK )@@G@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P1A) INCORRECT @]@@@@*SET EHL )@@G@@RROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@HM )@@G@@*ELSE @D@@@@#MSG,N SGS ERROR: PARAMETER (P1A) INCORRECTLY WORDED @]@@@@HN )@@G@@*SET ERROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAMETER (PHO )@@G@@1A) MISSING @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@HP )@@G@@*. @#@@@@*IF [P2)] > 0 @#@@@@*IF [P2),1] = 6 @^@@@@*IF [P2),1,6HQ )@@G@@,1] = YES @]@@@@*SET OPTFILE@[@@@@*ELSE @^@@@@*IF NOT [P2),1,6,1] = NOHR )@@G@@@D@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P2) INCORRECT@]@@@@*SET EHS )@@G@@RROR @[@@@@*END @[@@@@*END @[@@@@*ELSE @A@@@@*IF [P2),1,6] < 5 OR [P2HT )@@G@@),1,6] > 6 @D@@@@#MSG,N SGS ERROR: PARAMETER (P2) INCORRECTLY WORDED HU )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@HV )@@G@@*. @#@@@@*IF OPTFILE IS SET@#@@@@*IF [P2A)] > 0 @^@@@@*IF NOT [P2AHW )@@G@@),1] = 6 @D@@@@#MSG,N SGS ERROR: PARAMETER (P2A) INCORRECTLY WORDED HX )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAMEHY )@@G@@TER (P2A) MISSING @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*. HZ )@@G@@@[@@@@*. @#@@@@*IF [P3)] > 0 @#@@@@*IF [P3),1] = 5 @^@@@@*IF [PIA )@@G@@3),1,5,1] = YES @]@@@@*SET ACCNT @[@@@@*ELSE @^@@@@*IF NOT [P3),1,5,1IB )@@G@@] = NO@D@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P3) INCORRECT@]@@@@IC )@@G@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*ELSE @ @@@@*IF [P3),1] < 4 ORID )@@G@@ [P3),1] > 5@D@@@@#MSG,N SGS ERROR: PARAMETER (P3) INCORRECTLY WORDED IE )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@IF )@@G@@*. @#@@@@*IF ACCNT IS SET @#@@@@*IF [P3A)] > 0 @#@@@@*IF [P3A),1]IG )@@G@@ = 7 @^@@@@*IF [P3A),1,5,1] = YES @]@@@@*SET SYMRPT @[@@@@*ELSE @ @@@@IH )@@G@@*IF NOT [P3A),1,5,1] = NO @E@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMEII )@@G@@TER (P3A) INCORRECT @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @^@@@@IJ )@@G@@*IF [P3A),1,7,1,4] = 1 @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: RESPONSE TOIK )@@G@@ PARAMETER P3A) INCORRECT @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE IL )@@G@@@D@@@@#MSG,N SGS ERROR: PARAMETER (P3A) INCORRECTLY WORDED @]@@@@*SET EIM )@@G@@RROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @#@@@@IN )@@G@@*IF ACCNT IS SET @#@@@@*IF [P3B)] > 0 @#@@@@*IF [P3B),1] = 8 @^@@@@IO )@@G@@*IF [P3B),1,6,1] = YES @]@@@@*SET RUNRPT @[@@@@*ELSE @ @@@@*IF NOT [P3BIP )@@G@@),1,6,1] = NO @E@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P3B) INIQ )@@G@@CORRECT @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @^@@@@*IF [P3B),1,IR )@@G@@8,1,4] = 1 @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER PIS )@@G@@3B) INCORRECT @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @D@@@@#MSG,NIT )@@G@@ SGS ERROR: PARAMETER (P3B) WORDED INCORRECTLY @]@@@@*SET ERROR @[@@@@IU )@@G@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @[@@@@IV )@@G@@*. @#@@@@*IF RUNRPT IS SET @#@@@@*IF [P3B1)] > 0 @#@@@@*IF [P3B1),1IW )@@G@@] = 4 @^@@@@*IF [P3B1),1,4,1] = YES @]@@@@*SET TIPSUM @[@@@@*ELSE @ @@@@IX )@@G@@*IF NOT [P3B1),1,4,1] = NO @E@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMEIY )@@G@@TER (P3B1) INCORRECT @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@IZ )@@G@@*ELSE @A@@@@*IF [P3B1),1] < 3 OR [P3B1),1] > 4 @D@@@@#MSG,N SGS ERROR: JA )@@G@@PARAMETER (P3B1) INCORRECTLY WORDED @]@@@@*SET ERROR @[@@@@*END @[@@@@JB )@@G@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @B@@@@*. H15JC )@@G@@500 PART 3: GENERATE JCL. @[@@@@*. @#@@@@*IF ERROR IS SET @E@@@@JD )@@G@@#MSG,N ERROR CONDITION EXISTS IN SGS: EXECUTION ABORTED @[@@@@#FIN JE )@@G@@@[@@@@*ELSE @^@@@@*IF RESTRT IS CLEAR @^@@@@#CYCLE,C AFPRINTER.,0 JF )@@G@@@^@@@@#CYCLE,C OPPRINTER.,0 @#@@@@#ASG,A S*OP. @[@@@@#END @#@@@@JG )@@G@@*IF OPTFILE IS SET@]@@@@*EDIT ON @ @@@@#ASG,T [P2A),1,4,1].,T,& JH )@@G@@@ @@@@*PROCESS ASGREELNUMS P2A) 1 6 @]@@@@*EDIT OFF @[@@@@#END @A@@@@JI )@@G@@#USE DAILY-LOG.,[P2A),1,4,1]. @ @@@@#CYCLE,C H155*INTERIM-ACCT.,0JJ )@@G@@@[@@@@#END @B@@@@#CAT H155*INTERIM-ACCT.,F///2000 @[@@@@#END JK )@@G@@@ @@@@#ASG,ADX H155*INTERIM-ACCT. @[@@@@#END @ @@@@#CYCLE,C H155*INTJL )@@G@@-ACCT-VOL.,0@[@@@@#END @ @@@@#CAT,P H155*INT-ACCT-VOL.,F@[@@@@#END JM )@@G@@@ @@@@#ASG,ADX H155*INT-ACCT-VOL. @[@@@@#END @^@@@@#XQT H155.H1JN )@@G@@550020@ @@@@#ADD,DP S*OP.QUIP-CARDS @[@@@@#EOF @]@@@@#PMD,AELP JO )@@G@@@^@@@@#FREE DAILY-LOG. @[@@@@*ELSE @^@@@@#ASG,AX H150*DAILY. JP )@@G@@@[@@@@#END @A@@@@#USE DAILY-LOG.,H150*DAILY. @ @@@@#CYCLE,C H1JQ )@@G@@55*INTERIM-ACCT.,0@[@@@@#END @B@@@@#CAT H155*INTERIM-ACCT.,F///20JR )@@G@@00 @[@@@@#END @ @@@@#ASG,ADX H155*INTERIM-ACCT. @[@@@@#END @ @@@@JS )@@G@@#CYCLE,C H155*INT-ACCT-VOL.,0@[@@@@#END @ @@@@#CAT,P H155*INT-ACCT-JT )@@G@@VOL.,F@[@@@@#END @ @@@@#ASG,ADX H155*INT-ACCT-VOL. @[@@@@#END @^@@@@JU )@@G@@#XQT H155.H1550020@ @@@@#ADD,DP S*OP.QUIP-CARDS @[@@@@#EOF JV )@@G@@@]@@@@#PMD,AELP @^@@@@#FREE DAILY-LOG. @^@@@@#ED,U SGS.H15500-SJW )@@G@@GS @]@@@@FIND P1) @ @@@@R P1) RECOVERY RESTART? YES @]@@@@FIND PJX )@@G@@1A) @ @@@@R P1A) RESTART POINT: CP1 @[@@@@EXIT @[@@@@*END @ @@@@JY )@@G@@#MSG CHECK-POINT,CP1 @ @@@@#BL CHECK,POINT,CP1 @ @@@@JZ )@@G@@#CYCLE,C H155*INT-ACCT-SRT.,0@[@@@@#END @B@@@@#CAT,P H155*INT-ACCT-KA )@@G@@SRT.,F///2000 @[@@@@#END @ @@@@#ASG,ADX H155*INT-ACCT-SRT. @[@@@@KB )@@G@@#END @B@@@@#USE FILE-IN.,H155*INTERIM-ACCT. @B@@@@#USE FKC )@@G@@ILE-OUT.,H155*INT-ACCT-SRT. @]@@@@#S*OP.GSM,MX@#@@@@FILEOUT = FILE-OUTKD )@@G@@@#@@@@BLOCK = 6 RECORDS @^@@@@RSZ = 204 CHARACTERS @ @@@@#ADD,DL H1KE )@@G@@55*INT-ACCT-VOL. @^@@@@KEY = 169,36,CH,A,1 @#@@@@KEY = 157,6,CH,A,2KF )@@G@@@A@@@@FILEIN = FILE-IN,STANDARD,IOS,F,6 @[@@@@#EOF @]@@@@#PMD,AELP KG )@@G@@@ @@@@#FREE H155*INTERIM-ACCT. @^@@@@#ED,U SGS.H15500-SGS @]@@@@KH )@@G@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP2 @[@@@@EXIT @ @@@@#MSG KI )@@G@@ CHECK-POINT, CP2 @ @@@@#BL CHECK,POINT,CP2 @#@@@@*IF ACKJ )@@G@@CNT IS SET @ @@@@#CYCLE,C H155*DAILY-SYM.,0 @[@@@@#END @A@@@@#CAT KK )@@G@@ H155*DAILY-SYM.,F///1000 @[@@@@#END @ @@@@#ASG,A H155*DAILY-SYKL )@@G@@M. @[@@@@#END @ @@@@#CYCLE,C H155*DAILY-ACCT.,0 @[@@@@#END @A@@@@KM )@@G@@#CAT H155*DAILY-ACCT.,F///1000@[@@@@#END @ @@@@#ASG,ADX H155*DAKN )@@G@@ILY-ACCT. @[@@@@#END @#@@@@*IF SYMRPT IS SET @ @@@@#CYCLE,C H155*SYMKO )@@G@@BIONT-RPT.,0@[@@@@#END @B@@@@#CAT H155*SYMBIONT-RPT.,F///500 KP )@@G@@@[@@@@#END @ @@@@#ASG,AX H155*SYMBIONT-RPT. @[@@@@#END @[@@@@*END KQ )@@G@@@#@@@@*IF RUNRPT IS SET @ @@@@#CYCLE,C H155*RUNS-TODAY.,0 @[@@@@#END KR )@@G@@@A@@@@#CAT H155*RUNS-TODAY.,F///500 @[@@@@#END @ @@@@#ASG,AX HKS )@@G@@155*RUNS-TODAY. @[@@@@#END @[@@@@*END @^@@@@#XQT H155.H1550030KT )@@G@@@]@@@@*EDIT ON @#@@@@*IF SYMRPT IS SET @[@@@@Y& @[@@@@*ELSE @[@@@@KU )@@G@@N& @[@@@@*END @#@@@@*IF RUNRPT IS SET @[@@@@Y& @[@@@@*ELSE @[@@@@KV )@@G@@N& @[@@@@*END @#@@@@*IF TIPSUM IS SET @[@@@@Y& @[@@@@*ELSE @[@@@@KW )@@G@@N& @[@@@@*END @^@@@@ & @]@@@@*EDIT OFF @]@@@@KX )@@G@@#PMD,AELP @ @@@@#FREE H155*INT-ACCT-SRT. @^@@@@#ED,U SGS.H15500-SKY )@@G@@GS @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP3 @[@@@@EXIT KZ )@@G@@@ @@@@#MSG CHECK-POINT,CP3 @ @@@@#BL CHECK,POINT,CP3 LA )@@G@@@#@@@@*IF OPTFILE IS SET@A@@@@#ASG,T H155*DAILY-ACT-BU.,T,,7 @[@@@@LB )@@G@@#END @[@@@@*ELSE @ @@@@#CYCLE,C H155*DAILY-ACT-BU.,0@[@@@@#END @A@@@@LC )@@G@@#ASG,C H155*DAILY-ACT-BU.,T,,7 @[@@@@#END @[@@@@*END @C@@@@#COPY,LD )@@G@@GM H155*DAILY-ACCT.,H155*DAILY-ACT-BU. @ @@@@#FREE H155*DAILY-ACLE )@@G@@T-BU. @ @@@@#FREE H155*DAILY-ACCT. @^@@@@#ED,U SGS.H15500-SGS LF )@@G@@@]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP4 @[@@@@EXIT @ @@@@LG )@@G@@#MSG CHECK-POINT,CP4 @ @@@@#BL CHECK,POINT,CP4 @#@@@@LH )@@G@@*IF OPTFILE IS SET@ @@@@#ASG,T H155*DAILY-SYM-BU.,T,,7@[@@@@#END @[@@@@LI )@@G@@*ELSE @ @@@@#CYCLE,C H155*DAILY-SYM-BU.,0 @[@@@@#END @ @@@@#ASG,C H155*LJ )@@G@@DAILY-SYM-BU.,T,,7@[@@@@#END @[@@@@*END @C@@@@#COPY,GM H155*DAILY-SYM.LK )@@G@@,H155*DAILY-SYM-BU. @^@@@@#FREE H155*DAILY-SYM-BU.@^@[@@#FREE H155*DLL )@@G@@AILY SYM. @^@@@[#FREE H155*DAILY-SYM. @^@@@@#ED,U SGS.H15500-SGS LM )@@G@@@]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP5 @[@@@@EXIT @ @@@@LN )@@G@@#MSG CHECK-POINT,CP5 @ @@@@#BL CHECK,POINT,CP5 @#@@@@LO )@@G@@*IF SYMRPT IS SET @ @@@@#FREE H155*SYMBIONT-RPT. @C@@@@#SYM HLP )@@G@@155*SYMBIONT-RPT.,[P3A),1,7,1],PR @[@@@@*END @#@@@@*IF RUNRPT IS SET LQ )@@G@@@ @@@@#FREE H155*RUNS-TODAY. @C@@@@#SYM H155*RUNS-TODAY.,[PLR )@@G@@3B),1,8,1],PR @[@@@@*END @[@@@@*END @[@@@@*ELSE @#@@@@*IF CKPT1 ISLS )@@G@@ SET @ @@@@#BL RESTRT,FROM,CP1 @ @@@@#ASG,ADX H155*INTERIM-ALT )@@G@@CCT. @[@@@@#END @#@@@@#ASG,A S*OP. @ @@@@#CYCLE,C H155*INT-ACCT-LU )@@G@@SRT.,0@[@@@@#END @B@@@@#CAT,P H155*INT-ACCT-SRT.,F///2000 @[@@@@LV )@@G@@#END @ @@@@#ASG,ADX H155*INT-ACCT-SRT. @[@@@@#END @B@@@@#USE FLW )@@G@@ILE-IN.,H155*INTERIM-ACCT. @B@@@@#USE FILE-OUT.,H155*INT-ACCT-SLX )@@G@@RT. @]@@@@#S*OP.GSM,MX@#@@@@FILEOUT = FILE-OUT@#@@@@BLOCK = 6 RECORDS LY )@@G@@@^@@@@RSZ = 204 CHARACTERS @ @@@@#ADD,DL H155*INT-ACCT-VOL. @^@@@@LZ )@@G@@KEY = 169,36,CH,A,1 @#@@@@KEY = 157,6,CH,A,2@A@@@@FILEIN = FILE-IN,SMA )@@G@@TANDARD,IOS,F,6 @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#FREE H155*INTMB )@@G@@ERIM-ACCT. @]@@@@#FREE S*OP. @^@@@@#ED,U SGS.H15500-SGS @]@@@@FIND PMC )@@G@@1) @^@@@@R RECOVERY RESTART? YES @]@@@@FIND P1A) @ @@@@R P1A) RESTAMD )@@G@@RT POINT: CP2 @[@@@@EXIT @ @@@@#MSG CHECK-POINT, CP2 @ @@@@ME )@@G@@#BL CHECK,POINT,CP2 @#@@@@*IF ACCNT IS SET @ @@@@#CYCLE,C H1MF )@@G@@55*DAILY-SYM.,0 @[@@@@#END @A@@@@#CAT H155*DAILY-SYM.,F///1000 MG )@@G@@@[@@@@#END @ @@@@#ASG,ADX H155*DAILY-SYM. @[@@@@#END @ @@@@#CYCLEMH )@@G@@,C H155*DAILY-ACCT.,0 @[@@@@#END @A@@@@#CAT H155*DAILY-ACCT.,F/MI )@@G@@//1000@[@@@@#END @ @@@@#ASG,ADX H155*DAILY-ACCT. @[@@@@#END @#@@@@MJ )@@G@@*IF SYMRPT IS SET @ @@@@#CYCLE,C H155*SYMBIONT-RPT.,0@[@@@@#END @B@@@@MK )@@G@@#CAT H155*SYMBIONT-RPT.,F///500 @[@@@@#END @ @@@@#ASG,AX HML )@@G@@155*SYMBIONT-RPT. @[@@@@#END @[@@@@*END @#@@@@*IF RUNRPT IS SET @ @@@@MM )@@G@@#CYCLE,C H155*RUNS-TODAY.,0 @[@@@@#END @A@@@@#CAT H155*RUNS-TODMN )@@G@@AY.,F///500 @[@@@@#END @ @@@@#ASG,AX H155*RUNS-TODAY. @[@@@@#END MO )@@G@@@[@@@@*END @^@@@@#XQT H155.H1550030@]@@@@*EDIT ON @#@@@@*IF SYMP )@@G@@MRPT IS SET @[@@@@Y& @[@@@@*ELSE @[@@@@N& @[@@@@*END @#@@@@*IF RUMQ )@@G@@NRPT IS SET @[@@@@Y& @[@@@@*ELSE @[@@@@N& @[@@@@*END @#@@@@*IF TIMR )@@G@@PSUM IS SET @[@@@@Y& @[@@@@*ELSE @[@@@@N& @[@@@@*END @^@@@@ MS )@@G@@ & @]@@@@*EDIT OFF @]@@@@#PMD,AELP @ @@@@#FREE HMT )@@G@@155*INT-ACCT-SRT. @^@@@@#ED,U SGS.H15500-SGS @]@@@@FIND P1A) @ @@@@MU )@@G@@R P1A) RESTART POINT: CP3 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CMV )@@G@@P3 @ @@@@#BL CHECK,POINT,CP3 @#@@@@*IF OPTFILE IS SET@A@@@@MW )@@G@@#ASG,T H155*DAILY-ACT-BU.,T,,7 @[@@@@#END @[@@@@*ELSE @ @@@@#CYCLEMX )@@G@@,C H155*DAILY-ACT-BU.,0@[@@@@#END @A@@@@#ASG,C H155*DAILY-ACT-BU.,MY )@@G@@T,,7 @[@@@@#END @[@@@@*END @C@@@@#COPY,GM H155*DAILY-ACCT.,H155*DAIMZ )@@G@@LY-ACT-BU. @ @@@@#FREE H155*DAILY-ACT-BU. @ @@@@#FREE H155*DANA )@@G@@ILY-ACCT. @^@@@@#ED,U SGS.H15500-SGS @]@@@@FIND P1A) @ @@@@R P1A)NB )@@G@@ RESTART POINT: CP4 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CP4 NC )@@G@@@ @@@@#BL CHECK,POINT,CP4 @#@@@@*IF OPTFILE IS SET@ @@@@#ASG,TND )@@G@@ H155*DAILY-SYM-BU.,T,,7@[@@@@#END @[@@@@*ELSE @ @@@@#CYCLE,C H155*DAILNE )@@G@@Y-SYM-BU.,0 @[@@@@#END @ @@@@#ASG,C H155*DAILY-SYM-BU.,T,,7@[@@@@#END NF )@@G@@@[@@@@*END @C@@@@#COPY,GM H155*DAILY-SYM.,H155*DAILY-SYM-BU. @^@@@@NG )@@G@@#FREE H155*DAILY-SYM-BU.@^@@@@#FREE H155*DAILY-SYM. @^@@@@#ED,U SGS.H1NH )@@G@@5500-SGS @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP5 @[@@@@NI )@@G@@EXIT @ @@@@#MSG CHECK-POINT,CP5 @ @@@@#BL CHECK,POINT,CNJ )@@G@@P5 @#@@@@*IF SYMRPT IS SET @ @@@@#FREE H155*SYMBIONT-RPT. @C@@@@NK )@@G@@#SYM H155*SYMBIONT-RPT.,[P3A),1,7,1],PR @[@@@@*END @#@@@@*IF RUNL )@@G@@NRPT IS SET @ @@@@#FREE H155*RUNS-TODAY. @C@@@@#SYM H155*RUNM )@@G@@NS-TODAY.,[P3B),1,8,1],PR @[@@@@*END @[@@@@*END @[@@@@*END @#@@@@NN )@@G@@*IF CKPT2 IS SET @ @@@@#BL RESTRT,FROM,CP2 @ @@@@#ASG,ADX HNO )@@G@@155*INT-ACCT-SRT. @[@@@@#END @#@@@@*IF ACCNT IS SET @ @@@@#CYCLE,C H1NP )@@G@@55*DAILY-SYM.,0 @[@@@@#END @A@@@@#CAT H155*DAILY-SYM.,F///1000 NQ )@@G@@@[@@@@#END @ @@@@#ASG,ADX H155*DAILY-SYM. @[@@@@#END @ @@@@#CYCLENR )@@G@@,C H155*DAILY-ACCT.,0 @[@@@@#END @A@@@@#CAT H155*DAILY-ACCT.,F/NS )@@G@@//1000@[@@@@#END @ @@@@#ASG,ADX H155*DAILY-ACCT. @[@@@@#END @#@@@@NT )@@G@@*IF SYMRPT IS SET @ @@@@#CYCLE,C H155*SYMBIONT-RPT.,0@[@@@@#END @B@@@@NU )@@G@@#CAT H155*SYMBIONT-RPT.,F///500 @[@@@@#END @ @@@@#ASG,AX HNV )@@G@@155*SYMBIONT-RPT. @[@@@@#END @[@@@@*END @#@@@@*IF RUNRPT IS SET @ @@@@NW )@@G@@#CYCLE,C H155*RUNS-TODAY.,0 @[@@@@#END @A@@@@#CAT H155*RUNS-TODNX )@@G@@AY.,F///500 @[@@@@#END @ @@@@#ASG,AX H155*RUNS-TODAY. @[@@@@#END NY )@@G@@@[@@@@*END @^@@@@#XQT H155.H1550030@]@@@@*EDIT ON @#@@@@*IF SYNZ )@@G@@MRPT IS SET @[@@@@Y& @[@@@@*ELSE @[@@@@N& @[@@@@*END @#@@@@*IF RUOA )@@G@@NRPT IS SET @[@@@@Y& @[@@@@*ELSE @[@@@@N& @[@@@@*END @#@@@@*IF TIOB )@@G@@PSUM IS SET @[@@@@Y& @[@@@@*ELSE @[@@@@N& @[@@@@*END @^@@@@ OC )@@G@@ & @]@@@@*EDIT OFF @]@@@@#PMD,AELP @ @@@@#FREE HOD )@@G@@155*INT-ACCT-SRT. @^@@@@#ED,U SGS.H15500-SGS @]@@@@FIND P1A) @ @@@@OE )@@G@@R P1A) RESTART POINT: CP3 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,COF )@@G@@P3 @ @@@@#BL CHECK,POINT,CP3 @#@@@@*IF OPTFILE IS SET@A@@@@OG )@@G@@#ASG,T H155*DAILY-ACT-BU.,T,,7 @[@@@@#END @[@@@@*ELSE @ @@@@#CYCLEOH )@@G@@,C H155*DAILY-ACT-BU.,0@[@@@@#END @A@@@@#ASG,C H155*DAILY-ACT-BU.,OI )@@G@@T,,7 @[@@@@#END @[@@@@*END @C@@@@#COPY,GM H155*DAILY-ACCT.,H155*DAIOJ )@@G@@LY-ACT-BU. @ @@@@#FREE H155*DAILY-ACT-BU. @ @@@@#FREE H155*DAOK )@@G@@ILY-ACCT. @^@@@@#ED,U SGS.H15500-SGS @]@@@@FIND P1A) @ @@@@R P1A)OL )@@G@@ RESTART POINT: CP4 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CP4 OM )@@G@@@ @@@@#BL CHECK,POINT,CP4 @#@@@@*IF OPTFILE IS SET@ @@@@#ASG,TON )@@G@@ H155*DAILY-SYM-BU.,T,,7@[@@@@#END @[@@@@*ELSE @ @@@@#CYCLE,C H155*DAILOO )@@G@@Y-SYM-BU.,0 @[@@@@#END @ @@@@#ASG,C H155*DAILY-SYM-BU.,T,,7@[@@@@#END OP )@@G@@@[@@@@*END @C@@@@#COPY,GM H155*DAILY-SYM.,H155*DAILY-SYM-BU. @^@@@@OQ )@@G@@#FREE H155*DAILY-SYM-BU.@^@@@@#FREE H155*DAILY-SYM. @^@@@@#ED,U SGS.H1OR )@@G@@5500-SGS @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP5 @[@@@@OS )@@G@@EXIT @ @@@@#MSG CHECK-POINT,CP5 @ @@@@#BL CHECK,POINT,COT )@@G@@P5 @#@@@@*IF SYMRPT IS SET @ @@@@#FREE H155*SYMBIONT-RPT. @C@@@@OU )@@G@@#SYM H155*SYMBIONT-RPT.,[P3A),1,7,1],PR @[@@@@*END @#@@@@*IF RUOV )@@G@@NRPT IS SET @ @@@@#FREE H155*RUNS-TODAY. @C@@@@#SYM H155*RUOW )@@G@@NS-TODAY.,[P3B),1,8,1],PR @[@@@@*END @[@@@@*END @[@@@@*END @#@@@@OX )@@G@@*IF CKPT3 IS SET @ @@@@#BL RESTRT,FROM,CP3 @#@@@@*IF ACCNT ISOY )@@G@@ SET @ @@@@#ASG,ADX H155*DAILY-ACCT. @[@@@@#END @ @@@@#ASG,ADX OZ )@@G@@H155*DAILY-SYM. @[@@@@#END @#@@@@*IF SYMRPT IS SET @ @@@@#ASG,AX PA )@@G@@H155*SYMBIONT-RPT.@[@@@@#END @[@@@@*END @#@@@@*IF RUNRPT IS SET @ @@@@PB )@@G@@#ASG,AX H155*RUNS-TODAY. @[@@@@#END @[@@@@*END @#@@@@*IF OPTFILE PC )@@G@@IS SET@A@@@@#ASG,T H155*DAILY-ACT-BU.,T,,7 @[@@@@#END @[@@@@*ELSE PD )@@G@@@ @@@@#CYCLE,C H155*DAILY-ACT-BU.,0@[@@@@#END @A@@@@#ASG,C H155*DAPE )@@G@@ILY-ACT-BU.,T,,7 @[@@@@#END @[@@@@*END @C@@@@#COPY,GM H155*DAILY-ACPF )@@G@@CT.,H155*DAILY-ACT-BU. @ @@@@#FREE H155*DAILY-ACT-BU. @ @@@@#FREE PG )@@G@@ H155*DAILY-ACCT. @^@@@@#ED,U SGS.H15500-SGS @]@@@@FIND P1A) PH )@@G@@@ @@@@R P1A) RESTART POINT: CP4 @[@@@@EXIT @ @@@@#MSG CHECK-PPI )@@G@@OINT,CP4 @ @@@@#BL CHECK,POINT,CP4 @#@@@@*IF OPTFILE IS SETPJ )@@G@@@ @@@@#ASG,T H155*DAILY-SYM-BU.,T,,7@[@@@@#END @[@@@@*ELSE @ @@@@#CYCLEPK )@@G@@,C H155*DAILY-SYM-BU.,0 @[@@@@#END @ @@@@#ASG,C H155*DAILY-SYM-BU.,T,,7PL )@@G@@@[@@@@#END @[@@@@*END @C@@@@#COPY,GM H155*DAILY-SYM.,H155*DAILY-SYM-BUPM )@@G@@. @^@@@@#FREE H155*DAILY-SYM-BU.@^@@@@#FREE H155*DAILY-SYM. @^@@@@PN )@@G@@#ED,U SGS.H15500-SGS @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CPPO )@@G@@5 @[@@@@EXIT @ @@@@#BL CHECK,POINT,CP5 @ @@@@#MSG CPP )@@G@@HECK-POINT,CP5 @#@@@@*IF SYMRPT IS SET @ @@@@#FREE H155*SYMBIONTPQ )@@G@@-RPT. @C@@@@#SYM H155*SYMBIONT-RPT.,[P3A),1,7,1],PR @[@@@@*END PR )@@G@@@#@@@@*IF RUNRPT IS SET @ @@@@#FREE H155*RUNS-TODAY. @C@@@@#SYM PS )@@G@@ H155*RUNS-TODAY.,[P3B),1,8,1],PR @[@@@@*END @[@@@@*END @[@@@@PT )@@G@@*END @#@@@@*IF CKPT4 IS SET @ @@@@#BL RESTRT,FROM,CP4 @#@@@@PU )@@G@@*IF ACCNT IS SET @#@@@@*IF RUNRPT IS SET @ @@@@#ASG,AX H155*RUNS-TOPV )@@G@@DAY. @[@@@@#END @[@@@@*END @#@@@@*IF SYMRPT IS SET @ @@@@#ASG,AX PW )@@G@@H155*SYMBIONT-RPT.@[@@@@#END @[@@@@*END @#@@@@*IF OPTFILE IS SET@ @@@@PX )@@G@@#ASG,T H155*DAILY-SYM-BU.,T,,7@[@@@@#END @[@@@@*ELSE @ @@@@#CYCLE,C H15PY )@@G@@5*DAILY-SYM-BU.,0 @[@@@@#END @ @@@@#ASG,C H155*DAILY-SYM-BU.,T,,7@[@@@@PZ )@@G@@#END @[@@@@*END @C@@@@#COPY,GM H155*DAILY-SYM.,H155*DAILY-SYM-BU. QA )@@G@@@^@@@@#FREE H155*DAILY-SYM-BU.@^@@@@#FREE H155*DAILY-SYM. @^@@@@#ED,U QB )@@G@@SGS.H15500-SGS @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP5 QC )@@G@@@[@@@@EXIT @ @@@@#MSG CHECK-POINT,CP5 @ @@@@#BL CHECK,PQD )@@G@@OINT,CP5 @#@@@@*IF SYMRPT IS SET @ @@@@#FREE H155*SYMBIONT-RPT. QE )@@G@@@C@@@@#SYM H155*SYMBIONT-RPT.,[P3A),1,7,1],PR @[@@@@*END @#@@@@QF )@@G@@*IF RUNRPT IS SET @ @@@@#FREE H155*RUNS-TODAY. @C@@@@#SYM HQG )@@G@@155*RUNS-TODAY.,[P3B),1,8,1],PR @[@@@@*END @[@@@@*END @[@@@@*END QH )@@G@@@#@@@@*IF CKPT5 IS SET @ @@@@#BL RESTRT,FROM,CP5 @#@@@@*IF ACQI )@@G@@CNT IS SET @#@@@@*IF SYMRPT IS SET @ @@@@#ASG,AX H155*SYMBIONT-RPT.QJ )@@G@@@ @@@@#FREE H155*SYMBIONT-RPT. @C@@@@#SYM H155*SYMBIONT-RPT.,QK )@@G@@[P3A),1,7,1],PR @[@@@@*END @#@@@@*IF RUNRPT IS SET @ @@@@#ASG,AX HQL )@@G@@155*RUNS-TODAY. @[@@@@#END @ @@@@#FREE H155*RUNS-TODAY. @C@@@@QM )@@G@@#SYM H155*RUNS-TODAY.,[P3B),1,8,1],PR @[@@@@*END @[@@@@*END QN )@@G@@@[@@@@*END @[@@@@*END @^@@@@#ED,U SGS.H15500-SGS @]@@@@FIND P1) QO )@@G@@@ @@@@R P1) RECOVERY RESTART? NO @[@@@@EXIT @[@@@@*END ___ET @[@@@@QP )@@G@@Y& @[@@@@*ELSE @[@@@@N& @[@@@@*END @^@@@@ & QQ )@@G@@@]@@@@*EDIT OFF @]@@@@*[S@@@*SDFF*@A@@@@*. PROGRAM-ID: H15511 (LEV 1R1QR )@@G@@). @ @@@@*. AUTHOR: D. E. RAGSDALE @A@@@@*. DATE WRITTEN: APRIL 3QS )@@G@@0, 1979 @C@@@@*. INSTALLATION: TX DEPT OF HEALTH, AUSTIN, TX. @E@@@@QT )@@G@@*. PROGRAM FUNC: SSG RUNSTREAM DRIVER FOR ACCOUNTING SYSTEM.@[@@@@*. QU )@@G@@@[@@@@*. @#@@@@*. SGS PARAMETERS @[@@@@*. @B@@@@*. P1) PROCESSINGQV )@@G@@ FOR: MONTH MM YEAR YY @D@@@@*. P2) DP ADMIN SALARIES: DOLLARS DDDDD CQW )@@G@@ENTS CC @D@@@@*. P3) DP DATA ENTRY SALARIES: DOLLARS DDDDD CENTS CCQX )@@G@@@E@@@@*. P4) DP ANAL-PROGRAMMER SALARIES: DOLLARS DDDDD CENTS CC @F@@@@QY )@@G@@*. P5) DP COMPUTER OPERATIONS SALARIES: DOLLARS DDDDD CENTS CC @E@@@@QZ )@@G@@*. P6) DATA ENTRY EQUIPMENT COSTS: DOLLARS DDDDD CENTS CC @E@@@@*. P7)RA )@@G@@ COMPUTER EQUIPMENT COSTS: DOLLARS DDDDDD CENTS CC @D@@@@*. P8) DP ARB )@@G@@FTER 5PM MAINT: DOLLARS DDDDD CENTS CC @[@@@@*. @[@@@@*. @[@@@@RC )@@G@@*. @[@@@@*. @#@@@@*. GENERATE JCL @[@@@@*. @B@@@@#QUAL HRD )@@G@@155-JA-[P1),1,6,1][P1),1,4,1] @ @@@@#CYCLE,C *SALRY-EQUIP.,0 @[@@@@RE )@@G@@#END @ @@@@#ASG,CP *SALRY-EQUIP.,F @[@@@@#END @^@@@@#DATA,IL *RF )@@G@@SALRY-EQUIP.@]@@@@*EDIT ON & @D@@@@H1551050 [P2),1,5,1][P2),1,7,1][P3),RG )@@G@@1,6,1][P3),1,8,1]&@G@@@@[P4),1,5,1][P4),1,7,1][P5),1,6,1][P5),1,8,1][P6)RH )@@G@@,1,6,1][P6),1,8,1]& @C@@@@[P7),1,5,1][P7),1,7,1][P8),1,6,1][P8),1,8,RI )@@G@@1]& @]@@@@*EDIT OFF @[@@@@#EOF @[@@@@#END @^@@@@#FREE *SALRY-RJ )@@G@@EQUIP.@ @@@@#CYCLE,C *BILL-ADJ-CDS.,0 @[@@@@#END @ @@@@#ASG,CP *RK )@@G@@BILL-ADJ-CDS.,F @[@@@@#END @^@@@@#ASG,A BILLING-CDS. @[@@@@#END RL )@@G@@@B@@@@#DATA,L BILLING-CDS.,*BILL-ADJ-CDS. @[@@@@#END @ @@@@#FREE RM )@@G@@ *BILL-ADJ-CDS. @^@@@@#FREE BILLING-CDS. @^@@@@#CYCLE,C *RN )@@G@@KP-TIME.,0 @[@@@@#END @^@@@@#ASG,CP *KP-TIME.,F @[@@@@#END @^@@@@RO )@@G@@#CYCLE,C *KP-CARDS.,0 @[@@@@#END @^@@@@#ASG,CP *KP-CARDS.,F @[@@@@RP )@@G@@#END @^@@@@#ASG,AX COUNT-CDS. @[@@@@#END @#@@@@#ASG,A S*OP. RQ )@@G@@@[@@@@#END @^@@@@#ASG,A TIME-CDS. @[@@@@#END @ @@@@#CYCLE,C *RR )@@G@@QUIP-CARDS.,0 @[@@@@#END @ @@@@#CAT,P *QUIP-CARDS.,F @[@@@@RS )@@G@@#END @^@@@@#ASG,AX *QUIP-CARDS. @[@@@@#END @^@@@@#DATA,I *QUIP-CRT )@@G@@ARDS. @ @@@@#ADD,D S*OP.QUIP-CARDS @[@@@@#END @#@@@@#FREE SRU )@@G@@*OP. @^@@@@#ASG,T XA.,F///1000 @[@@@@#END @^@[@@#XQT TPF$.H1RV )@@G@@551000@^@@@[#XQT H155.H1551000@^@@@@#ADD,D *QUIP-CARDS. @[@@@@RW )@@G@@#EOF @#@@@@#FREE XA. @^@@@@#FREE *KP-CARDS. @^@@@@#FREE RX )@@G@@ COUNT-CDS. @^@@@@#FREE *KP-TIME. @^@@@@#FREE *KP-CARRY )@@G@@DS. @^@@@@#FREE *QUIP-CARDS. @[@@@@*. @[@@@@*. @[@@@@*. RZ )@@G@@___@@@^T[ETB -[^@)^@)^[O*[S@@@*SDFF*@B@@@@*. PROGRAM NAME: H15512/SKEL (SA )@@G@@LEV 1R1). @ @@@@*. AUTHOR: D. E. RAGSDALE @A@@@@*. DATE WRITTEN: JSB )@@G@@ANUARY 11,1979 @A@@@@*. INSTALLATION: TX DEPT OF HEALTH. @E@@@@*. PROSC )@@G@@GRAM FUNC: SSG RUNSTREAM DRIVER FOR ACCOUNTING SYSTEM.@[@@@@*. @^@@@@SD )@@G@@*. SGS PARAMETERS: @[@@@@*. @D@@@@*. P1) RECOVERY RESTART? (YSE )@@G@@ES) CHECKPOINT (CPX) @A@@@@*. (NO) @B@@@@SF )@@G@@*. P2) ACCOUNTING INPUT IS: (CURRENT) @C@@@@*. SG )@@G@@ (NONCURRENT) @E@@@@*. P2A) PROCESSING FOR: MONTH (XX) DAY SH )@@G@@(XX) YEAR (XX) @E@@@@*. P3) DATA-ENTRY STAT FILE IS: (INFOREX) TYPSI )@@G@@E: (TAPE) @E@@@@*. (CADE) (MASJ )@@G@@SS) @E@@@@*. P3A) DATA-ENTRY STAT TAPE REEL NO(S): DXXXXX,DXXXXX,...SK )@@G@@@F@@@@*. P3B) DATA-ENTRY STAT RPT SELECTION: (BOTH) COPIES (X) SL )@@G@@@D@@@@*. (OPERATORS) @C@@@@*. SM )@@G@@ (JOB) @C@@@@*. SN )@@G@@ (NONE) @E@@@@*. P3B1) DATA-ENTRY COST FACTOR: DOLLARS SO )@@G@@(XX) CENTS (XX) @H@@@@*. P4) ACTUAL D-E MANHOURS IN PROCESSING MONTSP )@@G@@H: HOURS (XXXX) TENTHS (X) @C@@@@*. P4A) NO OF COPIES OF ADJUSTMENTSQ )@@G@@-RPT: (X) @[@@@@*. @[@@@@*. @[@@@@*. @ @@@@*. OPERATING INSTRSR )@@G@@UCTIONS: @[@@@@*. @[@@@@*. @A@@@@*. P1,P2,P2A,P3,P3B MUST BE PRSS )@@G@@ESENT @C@@@@*. IF P3 = TAPE, THEN P3A MUST BE RESPONDED TO. @F@@@@*. IF ST )@@G@@P3 = INFOREX AND P3B SPECIFIES A REPORT, THEN P3B1 MUST @ @@@@*. SU )@@G@@ BE RESPONDED TO. @D@@@@*. IF P1 = 'YES', THEN CPX IS REQUIRED WHESV )@@G@@RE X = 1-5. @G@@@@*. MONTH AND YEAR OF P2 = MONTH, YEAR THE INCOMMING ACSW )@@G@@COUNTING DATA @F@@@@*. WAS CREATED, WHILE DAY = THE LAST DAY OF THE SX )@@G@@STATED MONTH. @H@@@@*. IF P4 IS PRESENT, THEN DE-FILE WILL BE ADJUSTSY )@@G@@ED AS PER MANHOURS ON P4. @B@@@@*. IF P4 IS PRESENT, THEN P4A IS REQSZ )@@G@@UIRED.@F@@@@*. IF MANHOURS ARE ENTERED ON P4,THEN TOTAL DE HOURS ON DE-FTA )@@G@@ILE @F@@@@*. WILL BE ADJUSTED TO BALANCE, ELSE TOTAL DE HOURS REMAINS TB )@@G@@SAME @^@@@@*. AS ON DE-STAT FILE. @[@@@@*. @[@@@@*. @[@@@@*. TC )@@G@@@^@@@@*. CHECKPOINT LOCATIONS:@[@@@@*. @B@@@@*. CP1 AFTER CREATIOTD )@@G@@N OF DE-STAT FILE @F@@@@*. CP2 AFTER CREATION OF DE-STAT-SRT1 (SORTETE )@@G@@D BY OPER-ID) @F@@@@*. CP3 AFTER CREATION OF DE-STAT-RPT1 (SORTTF )@@G@@ED BY OPER-ID) @F@@@@*. CP4 AFTER CREATION OF DE-STAT-SRT2 (SORTETG )@@G@@D BY JOB CODE) @F@@@@*. CP5 AFTER CREATION OF DE-STAT-RPT2 (SORTETH )@@G@@D BY JOB-CODE). @[@@@@*. @[@@@@*. @[@@@@*. @[@@@@*. @[@@@@TI )@@G@@*. @[@@@@*. @C@@@@*. H15512/SKEL PART 1: CLEAR SWITCHES. TJ )@@G@@@[@@@@*. @[@@@@*. @]@@@@*CLEAR ERROR@]@@@@*CLEAR RECOV@]@@@@*CLEARTK )@@G@@ CKPT1@]@@@@*CLEAR CKPT2@]@@@@*CLEAR CKPT3@]@@@@*CLEAR CKPT4@]@@@@*CLEARTL )@@G@@ CKPT5@]@@@@*CLEAR MM @]@@@@*CLEAR YY @]@@@@*CLEAR INFRX@]@@@@*CLEARTM )@@G@@ ICNT @#@@@@*CLEAR STATRPT @]@@@@*CLEAR TAPE @]@@@@*CLEAR CUR @]@@@@TN )@@G@@*CLEAR ADJDE@[@@@@*. @[@@@@*. @D@@@@*. H15512/SKEL PART 2:TO )@@G@@ CHECK PARAMETER SYNTAX.@[@@@@*. @#@@@@*IF [P1)] > 0 @A@@@@*IF [PTP )@@G@@1),1] > 3 AND [P1),1] < 6 @^@@@@*IF [P1),1,3,1] = YES @]@@@@*SET RTQ )@@G@@ECOV @#@@@@*IF [P1),1] = 5 @^@@@@*IF [P1),1,5,1] = CP1 @]@@@@*SET CTR )@@G@@KPT1 @[@@@@*ELSE @^@@@@*IF [P1),1,5,1] = CP2 @]@@@@*SET CKPT2 @[@@@@TS )@@G@@*ELSE @^@@@@*IF [P1),1,5,1] = CP3 @]@@@@*SET CKPT3 @[@@@@*ELSE @^@@@@TT )@@G@@*IF [P1),1,5,1] = CP4 @]@@@@*SET CKPT4 @[@@@@*ELSE @^@@@@*IF [P1),1,5TU )@@G@@,1] = CP5 @]@@@@*SET CKPT5 @[@@@@*ELSE @F@@@@#MSG,N SGS ERROR: CKTV )@@G@@PT SPECIFIED ON PARAM (P1) OUT OF RANGE @]@@@@*SET ERROR @[@@@@*END TW )@@G@@@[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*ELSE @G@@@@#MSG,NTX )@@G@@ SGS ERROR: PARAM (P1) SPECIFIES RECOV BUT CKPT IS MISSING @]@@@@TY )@@G@@*SET ERROR @[@@@@*END @[@@@@*ELSE @^@@@@*IF NOT [P1),1,3,1] = NO@G@@@@TZ )@@G@@#MSG,N SGS ERROR: RESPONSE TO RECOV RESTART ON PARAM (P1) INCORRECT UA )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*ELSE @E@@@@#MSG,N SUB )@@G@@GS ERROR: PARAM (P1) HAS INCORRECT NO. OF FIELDS@]@@@@*SET ERROR @[@@@@UC )@@G@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAM (P1) MISSING @]@@@@UD )@@G@@*SET ERROR @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@*IF [PUE )@@G@@2)] > 0 @#@@@@*IF [P2),1] = 4 @ @@@@*IF [P2),1,4,1] = CURRENT UF )@@G@@@]@@@@*SET CUR @[@@@@*ELSE @A@@@@*IF NOT [P2),1,4,1] = NONCURRENT UG )@@G@@@D@@@@#MSG,N SGS ERROR: RESPONSE TO PARAM (P2) INVALID @]@@@@*SET EUH )@@G@@RROR @[@@@@*END @[@@@@*END @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: PAUI )@@G@@RAM (P2) HAS INCORRECT NO. OF FIELDS@]@@@@*SET ERROR @[@@@@*END @[@@@@UJ )@@G@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAM (P2) MISSING @]@@@@*SET ERROR UK )@@G@@@[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @[@@@@*. @[@@@@*. UL )@@G@@@[@@@@*. @#@@@@*IF [P2A)] > 0 @#@@@@*IF [P2A),1] = 8 @C@@@@*IF [PUM )@@G@@2A),1,4,1] > 00 AND [P2A),1,4,1] < 13 @^@@@@*SET MM TO [P2A),1,4,1] UN )@@G@@@[@@@@*ELSE @F@@@@#MSG,N SGS ERROR: MONTH SPECIFIED ON PARAM (P2A) OUO )@@G@@UT OF RANGE @]@@@@*SET ERROR @[@@@@*END @C@@@@*IF [P2A),1,8,1] > 76 ANUP )@@G@@D [P2A),1,8,1] < 99 @^@@@@*SET YY TO [P2A),1,6,1] @[@@@@*ELSE @F@@@@UQ )@@G@@#MSG,N SGS ERROR: YEAR SPECIFIED ON PARAM (P2A) OUT OF RANGE @]@@@@UR )@@G@@*SET ERROR @[@@@@*END @[@@@@*ELSE @F@@@@#MSG,N SGS ERROR: PARAM (PUS )@@G@@2A) HAS INCORRECT NO. OF FIELDS @]@@@@*SET ERROR @[@@@@*END @[@@@@UT )@@G@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAM (P2A) MISSING @]@@@@*SET ERROR UU )@@G@@@[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@*IF [P3)] > 0 UV )@@G@@@#@@@@*IF [P3),1] = 7 @ @@@@*IF [P3),1,5,1] = INFOREX @#@@@@*SET IUW )@@G@@NFRX TO 1 @[@@@@*ELSE @ @@@@*IF NOT [P3),1,5,1] = CADE @D@@@@#MSG,NUX )@@G@@ SGS ERROR: RESPONSE TO PARAM (P3) INVALID @]@@@@*SET ERROR @[@@@@UY )@@G@@*END @[@@@@*END @^@@@@*IF [P3),1,7,1] = TAPE @]@@@@*SET TAPE @[@@@@UZ )@@G@@*ELSE @ @@@@*IF NOT [P3),1,7,1] = MASS @D@@@@#MSG,N SGS ERROR: REVA )@@G@@SPONSE TO PARAM (P3) INVALID @]@@@@*SET ERROR @[@@@@*END @[@@@@*END VB )@@G@@@[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: PARAM (P3) HAS INCORRECT NO. OF VC )@@G@@FIELDS@]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERRVD )@@G@@OR: PARAM (P3) MISSING @]@@@@*SET ERROR @[@@@@*END @[@@@@*. @[@@@@VE )@@G@@*. @[@@@@*. @#@@@@*IF TAPE IS SET @#@@@@*IF [P3A)] > 0 @#@@@@VF )@@G@@*IF [P3A),1] = 6 @B@@@@*INCREMENT ICNT FROM 1 BY 1 TO [P3A),1,6] @ @@@@VG )@@G@@*IF [P3A),1,6,ICNT,5] = 6 @E@@@@*IF [P3A),1,6,ICNT] < D00000 OR [P3AVH )@@G@@),1,6,ICNT] > D99999 @G@@@@#MSG,N SGS ERROR: REEL NO. [P3A),1,6,IVI )@@G@@CNT] SPECIFIED ON PARAM (P3A) @B@@@@#MSG,N IS OUT OF RANGVJ )@@G@@E @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @G@@@@#MSG,N SGS ERRVK )@@G@@OR: REEL NO. [P3A),1,6,ICNT] SPECIFIED ON PARAM (P3A) @D@@@@#MSG,N VL )@@G@@ DOES NOT CONTAIN 6 CHARACTERS @]@@@@*SET ERROR @[@@@@*END VM )@@G@@@[@@@@*LOOP @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: PARAM (P3A) FAILED TVN )@@G@@O SPECIFY REEL NO.@D@@@@#MSG,N OR PARAM IS INCORRECTLY WOVO )@@G@@RDED @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERRVP )@@G@@OR: PARAM (P3A) MISSING @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@VQ )@@G@@*. @[@@@@*. @[@@@@*. @#@@@@*IF [P3B)] > 0 @A@@@@*IF [P3B),1]VR )@@G@@ > 5 AND [P3B),1] < 8 @ @@@@*IF [P3B),1,5,1] = OPERATORS @#@@@@*SET SVS )@@G@@TATRPT TO 1 @[@@@@*ELSE @^@@@@*IF [P3B),1,5,1] = JOB @#@@@@*SET STATRPTVT )@@G@@ TO 2 @[@@@@*ELSE @^@@@@*IF [P3B),1,5,1] = BOTH @#@@@@*SET STATRPT TO 3 VU )@@G@@@[@@@@*ELSE @ @@@@*IF NOT [P3B),1,5,1] = NONE @F@@@@#MSG,N SGS ERRVV )@@G@@OR: RPT SELECTION RESPONE INVALID ON PARAM (P3B)@]@@@@*SET ERROR @[@@@@VW )@@G@@*END @[@@@@*END @[@@@@*END @[@@@@*END @#@@@@*IF STATRPT IS SET@B@@@@VX )@@G@@*IF [P3B),1,7,1] < 1 OR [P3B),1,7,1] > 9 @F@@@@#MSG,N SGS ERROR: NOVY )@@G@@. OF COPIES ON PARAM (P3B) OUT OF RANGE @]@@@@*SET ERROR @[@@@@*END VZ )@@G@@@[@@@@*END @[@@@@*ELSE @F@@@@#MSG,N SGS ERROR: PARAM (P3B) HAS INCOWA )@@G@@RRECT NO. OF FIELDS @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @B@@@@WB )@@G@@#MSG,N SGS ERROR: PARAM (P3B) MISSING @]@@@@*SET ERROR @[@@@@*END WC )@@G@@@[@@@@*. @[@@@@*. @[@@@@*. @A@@@@*IF STATRPT IS SET AND INFRX IWD )@@G@@S SET @#@@@@*IF [P3B1)] > 0 @#@@@@*IF [P3B1),1] = 7 @ @@@@*IF NOT [P3BWE )@@G@@1),1,5,1,4] = 2 @G@@@@#MSG,N SGS ERROR: DOLLARS SPECIFIED ON PARAMWF )@@G@@ (P3B1) NOT 2 DIGITS @]@@@@*SET ERROR @[@@@@*ELSE @ @@@@*IF NOT [P3BWG )@@G@@1),1,7,1,4] = 2 @F@@@@#MSG,N SGS ERROR: CENTS SPECIFIED ON PARAM (WH )@@G@@P3B1) NOT 2 DIGITS@]@@@@*SET ERROR @[@@@@*ELSE @D@@@@*IF NOT [P3B1),1,5WI )@@G@@,1] > 00 AND NOT [P3B1),1,7,1] > 00 @E@@@@#MSG,N SGS ERROR: COST FACWJ )@@G@@TOR SPECIFIED ON PARAM (P3B1) @C@@@@#MSG,N NOT GREATER THWK )@@G@@AN $00.00 @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@WL )@@G@@*ELSE @F@@@@#MSG,N SGS ERROR: PARAM (P3B1) HAS INCORRECT NO. OF FIELWM )@@G@@DS @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERRWN )@@G@@OR: PARAM (P3B1) MISSING@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@WO )@@G@@*. @[@@@@*. @[@@@@*. @#@@@@*IF [P4)] > 0 @]@@@@*SET ADJDE WP )@@G@@@#@@@@*IF [P4),1] = 10 @^@@@@*IF [P4),1,8,1,4] = 4 @^@@@@*IF [P4),1,8WQ )@@G@@,1] > 0000 @]@@@@*SET HOURS @ @@@@*IF NOT [P4),1,10,1,4] = 1 @E@@@@WR )@@G@@#MSG,N SGS ERROR: INVALID TENTHS VALUE ON PARAM (P4) @]@@@@*SET EWS )@@G@@RROR @[@@@@*END @[@@@@*ELSE @C@@@@#MSG,N SGS ERROR: HOURS = 0000 OWT )@@G@@N PARAM (P4)@]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @E@@@@#MSG,N SWU )@@G@@GS ERROR: INVALID HOURS VALUE ON PARAM (P4) @]@@@@*SET ERROR @[@@@@WV )@@G@@*END @[@@@@*ELSE @^@@@@*IF NOT [P4),1] = 8 @E@@@@#MSG,N SGS ERRWW )@@G@@OR: INCORRECT NO. OF FIELDS ON PARAM (P4) @]@@@@*SET ERROR @[@@@@*END WX )@@G@@@[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @[@@@@*. WY )@@G@@@[@@@@*. @[@@@@*. @#@@@@*IF ADJDE IS SET @#@@@@*IF [P4A)] > 0 WZ )@@G@@@#@@@@*IF [P4A),1] = 6 @B@@@@*IF [P4A),1,6,1] < 1 OR [P4A),1,6,1] > 9 XA )@@G@@@F@@@@#MSG,N SGS ERROR: NO. OF COPIES ON PARAM (P4A) OUT OF RANGE XB )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @F@@@@#MSG,N SGS ERROR: PAXC )@@G@@RAM (P4A) HAS INCORRECT NO. OF FIELDS @]@@@@*SET ERROR @[@@@@*END XD )@@G@@@[@@@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAM (P4A) MISSING @]@@@@*SET EXE )@@G@@RROR @[@@@@*END @[@@@@*END @[@@@@*. @C@@@@*. H15512/SKEL PXF )@@G@@ART 3: GENERATE JCL @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@*IF ERXG )@@G@@ROR IS SET @D@@@@#MSG,N RUNSTREAM HAS ABORTED DUE TO SGS ERROR XH )@@G@@@B@@@@#MSG JOB ABORTED DUE TO BAD SGS @[@@@@*ELSE @#@@@@*IF REXI )@@G@@COV IS CLEAR@^@@@@#BL INIT,START @^@@@@#MSG INITIAL STARTXJ )@@G@@@C@@@@#QUAL H155-JA-[P2A),1,8,1][P2A),1,4,1] @#@@@@*IF TAPE IS XK )@@G@@SET @^@@@@#CYCLE,C *DE-STAT.,0 @[@@@@#END @ @@@@#CAT,P *DE-STAXL )@@G@@T.,F///1000 @[@@@@#END @^@@@@#ASG,AX *DE-STAT. @[@@@@#END @#@@@@XM )@@G@@*IF INFRX IS SET @^@[@@#XQT TPF$.H1551010@^@@@[#XQT H155.H1XN )@@G@@551010@^@@@@*SET ICNT TO [P3A),1,6] @]@@@@CCCD0[*ICNT]@B@@@@*INCREMENT IXO )@@G@@CNT FROM 1 BY 1 TO [P3A),1,6] @#@@@@[P3A),1,6,ICNT] @[@@@@*LOOP @[@@@@XP )@@G@@*ELSE @^@[@@#XQT TPF$.H1551011@^@@@[#XQT H155.H1551011@^@@@@XQ )@@G@@*SET ICNT TO [P3A),1,6] @]@@@@CCCD0[*ICNT]@B@@@@*INCREMENT ICNT FROM 1 BXR )@@G@@Y 1 TO [P3A),1,6] @#@@@@[P3A),1,6,ICNT] @[@@@@*LOOP @[@@@@*END @[@@@@XS )@@G@@#EOF @]@@@@#PMD,AELP @^@@@@#FREE,C DE-STAT-TAPE.@[@@@@*ELSE @^@@@@XT )@@G@@#ASG,AX *DE-STAT. @[@@@@#END @[@@@@*END @ @@@@#BL CHECK,PXU )@@G@@OINT,CP1 @ @@@@#MSG CHECK-POINT CP1 @#@@@@*IF INFRX IS SET XV )@@G@@@#@@@@*IF CUR IS SET @A@@@@#ASG,AX HEALTH*TABLE-TAPE60. @[@@@@XW )@@G@@#END @[@@@@*ELSE @ @@@@#ASG,AX *TABLE-TAPE60. @[@@@@#END @[@@@@XX )@@G@@*END @[@@@@*END @A@@@@*IF [*STATRPT] = 1 OR [*STATRPT] = 3@ @@@@#CYCLEXY )@@G@@,C *DE-STAT-SRT1.,0 @[@@@@#END @A@@@@#CAT,P *DE-STAT-SRT1.,F///XZ )@@G@@1000 @[@@@@#END @^@@@@#ASG,AX *DE-STAT-SRT1.@[@@@@#END @B@@@@#USE YA )@@G@@ DE-STAT-SRTD.,*DE-STAT-SRT1. @#@@@@*IF INFRX IS SET @^@[@@#XQT YB )@@G@@ TPF$.H1551020@^@@@[#XQT H155.H1551020@]@@@@CH1551020 1 @[@@@@YC )@@G@@*ELSE @^@[@@#XQT TPF$.H1551021 @^@@@[#XQT H155.H1551021 @]@@@@YD )@@G@@H15510211 @[@@@@*END @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#BL CYE )@@G@@HECK,POINT,CP2 @ @@@@#MSG CHECK-POINT CP2 @[@@@@#END @ @@@@YF )@@G@@#CYCLE,C *DE-STAT-RPT1.,0 @[@@@@#END @A@@@@#CAT,P *DE-STAT-RPT1YG )@@G@@.,F///500 @[@@@@#END @ @@@@#ASG,AX *DE-STAT-RPT1. @[@@@@#END YH )@@G@@@B@@@@#USE DE-STAT-RPT.,*DE-STAT-RPT1. @#@@@@*IF INFRX IS SET YI )@@G@@@^@[@@#XQT TPF$.H1551030@^@@@[#XQT H155.H1551030@H@@@@0H1551YJ )@@G@@030 1[P3B1),1,5,1][P3B1),1,7,1][P2A),1,4,1][P2A),1,6,1][P2A),1,8,1] YK )@@G@@@[@@@@*ELSE @^@[@@#XQT TPF$.H1551031 @^@@@[#XQT H155.H1551031 YL )@@G@@@A@@@@H15510311[P2A),1,4,1][P2A),1,8,1] @[@@@@*END @[@@@@#EOF @]@@@@YM )@@G@@#PMD,AELP @ @@@@#FREE *DE-STAT-RPT1. @B@@@@#SYM *DE-STAYN )@@G@@T-RPT1.,[P3B),1,7,1],PR @ @@@@#FREE *DE-STAT-SRT1. @ @@@@#BL YO )@@G@@ CHECK,POINT,CP3 @ @@@@#MSG CHECK-POINT CP3 @[@@@@*END YP )@@G@@@ @@@@#CYCLE,C *DE-STAT-SRT2.,0 @[@@@@#END @A@@@@#CAT,P *DE-STAYQ )@@G@@T-SRT2.,F///1000 @[@@@@#END @^@@@@#ASG,AX *DE-STAT-SRT2.@[@@@@#END YR )@@G@@@B@@@@#USE DE-STAT-SRTD.,*DE-STAT-SRT2. @#@@@@*IF INFRX IS SET YS )@@G@@@^@[@@#XQT TPF$.H1551020@^@@@[#XQT H155.H1551020@]@@@@CH1551YT )@@G@@020 2 @[@@@@*ELSE @^@[@@#XQT TPF$.H1551021 @^@@@[#XQT H155.H15YU )@@G@@51021 @]@@@@H15510212 @[@@@@*END @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@YV )@@G@@#BL CHECK,POINT,CP4 @ @@@@#MSG CHECK-POINT CP4 @A@@@@YW )@@G@@*IF [*STATRPT] = 2 OR [*STATRPT] = 3@ @@@@#CYCLE,C *DE-STAT-RPT2.,0 YX )@@G@@@[@@@@#END @A@@@@#CAT,P *DE-STAT-RPT2.,F///500 @[@@@@#END @ @@@@YY )@@G@@#ASG,AX *DE-STAT-RPT2. @[@@@@#END @B@@@@#USE DE-STAT-RPT.,YZ )@@G@@*DE-STAT-RPT2. @#@@@@*IF INFRX IS SET @^@[@@#XQT TPF$.H1551030ZA )@@G@@@^@@@[#XQT H155.H1551030@H@@@@0H1551030 2[P3B1),1,5,1][P3B1),1,7,1ZB )@@G@@][P2A),1,4,1][P2A),1,6,1][P2A),1,8,1] @[@@@@*ELSE @^@[@@#XQT TPZC )@@G@@F$.H1551031 @^@@@[#XQT H155.H1551031 @A@@@@H15510312[P2A),1,4,1][P2ZD )@@G@@A),1,8,1] @[@@@@*END @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#FREE *ZE )@@G@@DE-STAT-RPT2. @B@@@@#SYM *DE-STAT-RPT2.,[P3B),1,7,1],PR @A@@@@ZF )@@G@@*IF STATRPT IS SET AND INFRX IS SET @#@@@@*IF CUR IS SET @A@@@@#FREE ZG )@@G@@ HEALTH*TABLE-TAPE60. @[@@@@*ELSE @ @@@@#FREE *TABLE-TAPE60ZH )@@G@@. @[@@@@*END @[@@@@*END @ @@@@#BL CHECK,POINT,CP5 @ @@@@ZI )@@G@@#MSG CHECK-POINT CP5 @[@@@@*END @#@@@@*IF ADJDE IS SET @^@@@@ZJ )@@G@@#CYCLE,C *DE-RPT.,0 @[@@@@#END @^@@@@#CAT,P *DE-RPT.,F @[@@@@ZK )@@G@@#END @^@@@@#ASG,AX *DE-RPT. @[@@@@#END @^@@@@#CYCLE,C *DE-FIZL )@@G@@LE.,0 @[@@@@#END @ @@@@#CAT,P *DE-FILE.,F///500 @[@@@@#END @^@@@@ZM )@@G@@#ASG,AX *DE-FILE. @[@@@@#END @^@@@@#ASG,AX *QUIP-CARDS.@[@@@@ZN )@@G@@#END @#@@@@*IF INFRX IS SET @ @[@@#XQT TPF$.H1551035 @ @@@[ZO )@@G@@#XQT H155.H1551035 @[@@@@*ELSE @ @[@@#XQT TPF$.H155103ZP )@@G@@6 @ @@@[#XQT H155.H1551036 @[@@@@*END @#@@@@*IF HOURS ISZQ )@@G@@ SET @G@@@@H155103X [P2A),1,4,1][P2A),1,6,1][P2A),1,8,1][P4),1,8,1][P4)ZR )@@G@@,1,10,1] @[@@@@*ELSE @C@@@@H155103X [P2A),1,4,1][P2A),1,6,1][P2A),1,8ZS )@@G@@,1] @[@@@@*END @[@@@@#EOF @]@@@@#PMD,AELP @^@@@@#FREE *QUIP-ZT )@@G@@CARDS.@^@@@@#FREE *DE-FILE. @^@@@@#FREE *DE-RPT. @A@@@@ZU )@@G@@#SYM *DE-RPT.,[P4A),1,6,1],PR@[@@@@*END @ @@@@#BL NORMALZV )@@G@@,FINISH @ @@@@#MSG,N NORMAL FINISH @[@@@@*ELSE @#@@@@*IF CKZW )@@G@@PT1 IS SET @ @@@@#BL RESTRT,FROM,CP1 @ @@@@#MSG RESTARZX )@@G@@T FROM CP1 @C@@@@#QUAL H155-JA-[P2A),1,8,1][P2A),1,4,1] @^@@@@ZY )@@G@@#ASG,AX *DE-STAT. @[@@@@#END @A@@@@*IF [*STATRPT] > 0 AND INFRX IZZ )@@G@@S SET @A@@@@#ASG,AX HEALTH*TABLE-TAPE60. @[@@@@#EOF @[@@@@*END AA )@@G@@@A@@@@*IF [*STATRPT] = 1 OR [*STATRPT] = 3@ @@@@#CYCLE,C *DE-STAT-SRT1AB )@@G@@.,0 @[@@@@#END @A@@@@#CAT,P *DE-STAT-SRT1.,F///1000 @[@@@@#END AC )@@G@@@^@@@@#ASG,AX *DE-STAT-SRT1.@[@@@@#END @B@@@@#USE DE-STAT-SRTD.AD )@@G@@,*DE-STAT-SRT1. @#@@@@*IF INFRX IS SET @^@[@@#XQT TPF$.H1551020AE )@@G@@@^@@@[#XQT H155.H1551020@]@@@@CH1551020 1 @[@@@@*ELSE @^@[@@#XQT AF )@@G@@ TPF$.H1551021 @^@@@[#XQT H155.H1551021 @]@@@@H15510211 @[@@@@AG )@@G@@*END @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#BL CHECK,POINT,CP2 AH )@@G@@@ @@@@#MSG CHECK POINT CP2 @ @@@@#CYCLE,C *DE-STAT-RPT1.,0 AI )@@G@@@[@@@@#END @A@@@@#CAT,P *DE-STAT-RPT1.,F///500 @[@@@@#END @ @@@@AJ )@@G@@#ASG,AX *DE-STAT-RPT1. @[@@@@#END @B@@@@#USE DE-STAT-RPT.,AK )@@G@@*DE-STAT-RPT1. @#@@@@*IF INFRX IS SET @^@[@@#XQT TPF$.H1551030AL )@@G@@@^@@@[#XQT H155.H1551030@H@@@@0H1551030 1[P3B1),1,5,1][P3B1),1,7,1AM )@@G@@][P2A),1,4,1][P2A),1,6,1][P2A),1,8,1] @[@@@@*ELSE @^@[@@#XQT TPAN )@@G@@F$.H1551031 @^@@@[#XQT H155.H1551031 @A@@@@H15510311[P2A),1,4,1][P2AO )@@G@@A),1,8,1] @[@@@@*END @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#FREE *AP )@@G@@DE-STAT-RPT1. @B@@@@#SYM *DE-STAT-RPT1.,[P3B),1,7,1],PR @ @@@@AQ )@@G@@#FREE *DE-STAT-SRT1. @ @@@@#BL CHECK,POINT,CP3 @ @@@@AR )@@G@@#MSG CHECK-POINT CP3 @[@@@@*END @ @@@@#CYCLE,C *DE-STAT-SRT2AS )@@G@@.,0 @[@@@@#END @A@@@@#CAT,P *DE-STAT-SRT2.,F///1000 @[@@@@#END AT )@@G@@@^@@@@#ASG,AX *DE-STAT-SRT2.@[@@@@#END @B@@@@#USE DE-STAT-SRTD.AU )@@G@@,*DE-STAT-SRT2. @#@@@@*IF INFRX IS SET @^@[@@#XQT TPF$.H1551020AV )@@G@@@^@@@[#XQT H155.H1551020@]@@@@CH1551020 2 @[@@@@*ELSE @^@[@@#XQT AW )@@G@@ TPF$.H1551021@^@@@[#XQT H155.H1551021@]@@@@H15510212 @[@@@@AX )@@G@@*END @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#BL CHECK,POINT,CP4 AY )@@G@@@ @@@@#MSG CHECK-POINT CP4 @A@@@@*IF [*STATRPT] = 2 OR [*STATRPAZ )@@G@@T] = 3@ @@@@#CYCLE,C *DE-STAT-RPT2.,0 @[@@@@#END @A@@@@#CAT,P *BA )@@G@@DE-STAT-RPT2.,F///500 @[@@@@#END @ @@@@#ASG,AX *DE-STAT-RPT2. BB )@@G@@@[@@@@#END @B@@@@#USE DE-STAT-RPT.,*DE-STAT-RPT2. @#@@@@*IF INBC )@@G@@FRX IS SET @^@[@@#XQT TPF$.H1551030@^@@@[#XQT H155.H1551030BD )@@G@@@H@@@@0H1551030 2[P3B1),1,5,1][P3B1),1,7,1][P2A),1,4,1][P2A),1,6,1][P2A)BE )@@G@@,1,8,1] @[@@@@*ELSE @^@[@@#XQT TPF$.H1551031 @^@@@[#XQT H1BF )@@G@@55.H1551031 @A@@@@H15510312[P2A),1,4,1][P2A),1,8,1] @[@@@@*END @[@@@@BG )@@G@@#EOF @]@@@@#PMD,AELP @ @@@@#FREE *DE-STAT-RPT2. @B@@@@#SYM BH )@@G@@ *DE-STAT-RPT2.,[P3B),1,7,1],PR @A@@@@*IF STATRPT IS SET AND INFRX IBI )@@G@@S SET @#@@@@*IF CUR IS SET @A@@@@#FREE HEALTH*TABLE-TAPE60. BJ )@@G@@@[@@@@*ELSE @ @@@@#FREE *TABLE-TAPE60. @[@@@@*END @[@@@@*END BK )@@G@@@ @@@@#BL CHECK,POINT,CP5 @ @@@@#MSG CHECK-POINT CP5 BL )@@G@@@[@@@@*END @#@@@@*IF ADJDE IS SET @^@@@@#CYCLE,C *DE-RPT.,0 @[@@@@BM )@@G@@#END @^@@@@#CAT,P *DE-RPT.,F @[@@@@#END @^@@@@#ASG,AX *DE-RPTBN )@@G@@. @[@@@@#END @^@@@@#CYCLE,C *DE-FILE.,0 @[@@@@#END @ @@@@#CAT,PBO )@@G@@ *DE-FILE.,F///500 @[@@@@#END @^@@@@#ASG,AX *DE-FILE. @[@@@@BP )@@G@@#END @^@@@@#ASG,AX *QUIP-CARDS.@[@@@@#END @#@@@@*IF INFRX IS SET BQ )@@G@@@ @[@@#XQT TPF$.H1551035 @ @@@[#XQT H155.H1551035 BR )@@G@@@[@@@@*ELSE @ @[@@#XQT TPF$.H1551036 @ @@@[#XQT H155.HBS )@@G@@1551036 @[@@@@*END @#@@@@*IF HOURS IS SET @G@@@@H155103X [P2A),1,4BT )@@G@@,1][P2A),1,6,1][P2A),1,8,1][P4),1,8,1][P4),1,10,1] @[@@@@*ELSE @C@@@@BU )@@G@@H155103X [P2A),1,4,1][P2A),1,6,1][P2A),1,8,1] @[@@@@*END @[@@@@#EOF BV )@@G@@@]@@@@#PMD,AELP @^@@@@#FREE *QUIP-CARDS.@^@@@@#FREE *DE-FIBW )@@G@@LE. @^@@@@#FREE *DE-RPT. @A@@@@#SYM *DE-RPT.,[P4A),1,6BX )@@G@@,1],PR@[@@@@*END @ @@@@#BL NORMAL,FINISH @ @@@@#MSG,N BY )@@G@@NORMAL FINISH @[@@@@*END @#@@@@*IF CKPT2 IS SET @ @@@@#BL BZ )@@G@@RESTRT,FROM,CP2 @ @@@@#MSG RESTART FROM CP2 @C@@@@#QUAL HCA )@@G@@155-JA-[P2A),1,8,1][P2A),1,4,1] @A@@@@*IF [*STATRPT] > 0 AND INFRX ICB )@@G@@S SET @#@@@@*IF CUR IS SET @A@@@@#ASG,AX HEALTH*TABLE-TAPE60. CC )@@G@@@[@@@@#END @[@@@@*ELSE @ @@@@#ASG,AX *TABLE-TAPE60. @[@@@@#END CD )@@G@@@[@@@@*END @[@@@@*END @^@@@@#ASG,AX *DE-STAT. @[@@@@#END @A@@@@CE )@@G@@*IF [*STATRPT] = 1 OR [*STATRPT] = 3@ @@@@#CYCLE,C *DE-STAT-RPT1.,0 CF )@@G@@@[@@@@#END @A@@@@#CAT,P *DE-STAT-RPT1.,F///500 @[@@@@#END @ @@@@CG )@@G@@#ASG,AX *DE-STAT-RPT1. @[@@@@#END @B@@@@#USE DE-STAT-RPT.,CH )@@G@@*DE-STAT-RPT1. @^@@@@#ASG,AX *DE-STAT-SRT1.@[@@@@#END @B@@@@#USE CI )@@G@@ DE-STAT-SRTD.,*DE-STAT-SRT1. @#@@@@*IF INFRX IS SET @^@[@@#XQT CJ )@@G@@ TPF$.H1551030@^@@@[#XQT H155.H1551030@H@@@@0H1551030 1[P3B1),CK )@@G@@1,5,1][P3B1),1,7,1][P2A),1,4,1][P2A),1,6,1][P2A),1,8,1] @[@@@@*ELSE CL )@@G@@@^@[@@#XQT TPF$.H1551031 @^@@@[#XQT H155.H1551031 @A@@@@H15510CM )@@G@@311[P2A),1,4,1][P2A),1,8,1] @[@@@@*END @[@@@@#EOF @]@@@@#PMD,AELP CN )@@G@@@ @@@@#FREE *DE-STAT-RPT1. @B@@@@#SYM *DE-STAT-RPT1.,[P3BCO )@@G@@),1,7,1],PR @ @@@@#FREE *DE-STAT-SRT1. @ @@@@#BL CHECK,PCP )@@G@@OINT,CP3 @ @@@@#MSG CHECK-POINT CP3 @[@@@@*END @ @@@@#CYCLECQ )@@G@@,C *DE-STAT-SRT2.,0 @[@@@@#END @A@@@@#CAT,P *DE-STAT-SRT2.,F///CR )@@G@@1000 @[@@@@#END @^@@@@#ASG,AX *DE-STAT-SRT2.@[@@@@#END @B@@@@#USE CS )@@G@@ DE-STAT-SRTD.,*DE-STAT-SRT2. @#@@@@*IF INFRX IS SET @^@[@@#XQT CT )@@G@@ TPF$.H1551020@^@@@[#XQT H155.H1551020@]@@@@CH1551020 2 @[@@@@CU )@@G@@*ELSE @^@[@@#XQT TPF$.H1551021 @^@@@[#XQT H155.H1551021 @]@@@@CV )@@G@@H15510212 @[@@@@*END @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#BL CCW )@@G@@HECK,POINT,CP4 @ @@@@#MSG CHECK-POINT CP4 @A@@@@*IF [*STATRPCX )@@G@@T] = 2 OR [*STATRPT] = 3@ @@@@#CYCLE,C *DE-STAT-RPT2.,0 @[@@@@#END CY )@@G@@@A@@@@#CAT,P *DE-STAT-RPT2.,F///500 @[@@@@#END @ @@@@#ASG,AX *CZ )@@G@@DE-STAT-RPT2. @[@@@@#END @B@@@@#USE DE-STAT-RPT.,*DE-STAT-RPTDA )@@G@@2. @#@@@@*IF INFRX IS SET @^@[@@#XQT TPF$.H1551030@^@@@[#XQT DB )@@G@@ H155.H1551030@H@@@@0H1551030 2[P3B1),1,5,1][P3B1),1,7,1][P2A),1,4,1DC )@@G@@][P2A),1,6,1][P2A),1,8,1] @[@@@@*ELSE @^@[@@#XQT TPF$.H1551031 DD )@@G@@@^@@@[#XQT H155.H1551031 @A@@@@H15510312[P2A),1,4,1][P2A),1,8,1] DE )@@G@@@[@@@@*END @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#FREE *DE-STAT-RPT2DF )@@G@@. @B@@@@#SYM *DE-STAT-RPT2.,[P3B),1,7,1],PR @A@@@@*IF STATRPT DG )@@G@@IS SET AND INFRX IS SET @#@@@@*IF CUR IS SET @A@@@@#FREE HEALTH*DH )@@G@@TABLE-TAPE60. @[@@@@*ELSE @ @@@@#FREE *TABLE-TAPE60. @[@@@@DI )@@G@@*END @[@@@@*END @ @@@@#BL CHECK,POINT,CP5 @ @@@@#MSG CDJ )@@G@@HECK-POINT CP5 @[@@@@*END @#@@@@*IF ADJDE IS SET @^@@@@#CYCLE,C *DK )@@G@@DE-RPT.,0 @[@@@@#END @^@@@@#CAT,P *DE-RPT.,F @[@@@@#END @^@@@@DL )@@G@@#ASG,AX *DE-RPT. @[@@@@#END @^@@@@#CYCLE,C *DE-FILE.,0 @[@@@@DM )@@G@@#END @ @@@@#CAT,P *DE-FILE.,F///500 @[@@@@#END @^@@@@#ASG,AX DN )@@G@@*DE-FILE. @[@@@@#END @^@@@@#ASG,AX *QUIP-CARDS.@[@@@@#END @#@@@@DO )@@G@@*IF INFRX IS SET @ @[@@#XQT TPF$.H1551035 @ @@@[#XQT DP )@@G@@H155.H1551035 @[@@@@*ELSE @ @[@@#XQT TPF$.H1551036 @ @@@[DQ )@@G@@#XQT H155.H1551036 @[@@@@*END @#@@@@*IF HOURS IS SET @G@@@@DR )@@G@@H155103X [P2A),1,4,1][P2A),1,6,1][P2A),1,8,1][P4),1,8,1][P4),1,10,1] DS )@@G@@@[@@@@*ELSE @C@@@@H155103X [P2A),1,4,1][P2A),1,6,1][P2A),1,8,1] @[@@@@DT )@@G@@*END @[@@@@#EOF @]@@@@#PMD,AELP @^@@@@#FREE *QUIP-CARDS.@^@@@@DU )@@G@@#FREE *DE-FILE. @^@@@@#FREE *DE-RPT. @A@@@@#SYM DV )@@G@@*DE-RPT.,[P4A),1,6,1],PR@[@@@@*END @ @@@@#BL NORMAL,FINISH DW )@@G@@@ @@@@#MSG,N NORMAL FINISH @[@@@@*END @#@@@@*IF CKPT3 IS SET DX )@@G@@@ @@@@#BL RESTRT,FROM,CP3 @ @@@@#MSG RESTART FROM CP3 DY )@@G@@@C@@@@#QUAL H155-JA-[P2A),1,8,1][P2A),1,4,1] @^@@@@#ASG,AX DZ )@@G@@*DE-STAT. @[@@@@#END @ @@@@#CYCLE,C *DE-STAT-SRT2.,0 @[@@@@#END EA )@@G@@@A@@@@#CAT,P *DE-STAT-SRT2.,F///1000 @[@@@@#END @^@@@@#ASG,AX *DEB )@@G@@E-STAT-SRT2.@[@@@@#END @B@@@@#USE DE-STAT-SRTD.,*DE-STAT-SRT2. EC )@@G@@@#@@@@*IF INFRX IS SET @^@[@@#XQT TPF$.H1551020@^@@@[#XQT HED )@@G@@155.H1551020@]@@@@CH1551020 2 @[@@@@*ELSE @^@[@@#XQT TPF$.H1551021 EE )@@G@@@^@@@[#XQT H155.H1551021 @]@@@@H15510212 @[@@@@*END @[@@@@#EOF EF )@@G@@@]@@@@#PMD,AELP @ @@@@#BL CHECK,POINT,CP4 @ @@@@#MSG CEG )@@G@@HECK-POINT CP4 @A@@@@*IF [*STATRPT] = 2 OR [*STATRPT] = 3@A@@@@*IF CUEH )@@G@@R IS SET AND INFRX IS SET @A@@@@#ASG,AX HEALTH*TABLE-TAPE60. EI )@@G@@@[@@@@#END @[@@@@*ELSE @ @@@@#ASG,AX *TABLE-TAPE60. @[@@@@#END EJ )@@G@@@[@@@@*END @ @@@@#CYCLE,C *DE-STAT-RPT2.,0 @[@@@@#END @A@@@@#CAT,PEK )@@G@@ *DE-STAT-RPT2.,F///500 @[@@@@#END @ @@@@#ASG,AX *DE-STAT-RPT2EL )@@G@@. @[@@@@#END @B@@@@#USE DE-STAT-RPT.,*DE-STAT-RPT2. @#@@@@EM )@@G@@*IF INFRX IS SET @^@[@@#XQT TPF$.H1551030@^@@@[#XQT H155.H1EN )@@G@@551030@H@@@@0H1551030 2[P3B1),1,5,1][P3B1),1,7,1][P2A),1,4,1][P2A),1,6,1EO )@@G@@][P2A),1,8,1] @[@@@@*ELSE @^@[@@#XQT TPF$.H1551031 @^@@@[#XQT EP )@@G@@ H155.H1551031 @A@@@@H15510312[P2A),1,4,1][P2A),1,8,1] @[@@@@*END EQ )@@G@@@[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#FREE *DE-STAT-RPT2. @B@@@@ER )@@G@@#SYM *DE-STAT-RPT2.,[P3B),1,7,1],PR @A@@@@*IF STATRPT IS SET AND IES )@@G@@NFRX IS SET @#@@@@*IF CUR IS SET @A@@@@#FREE HEALTH*TABLE-TAPE60ET )@@G@@. @[@@@@*ELSE @ @@@@#FREE *TABLE-TAPE60. @[@@@@*END @[@@@@EU )@@G@@*END @ @@@@#BL CHECK,POINT,CP5 @ @@@@#MSG CHECK-POINT CEV )@@G@@P5 @[@@@@*END @#@@@@*IF ADJDE IS SET @^@@@@#CYCLE,C *DE-RPT.,0 EW )@@G@@@[@@@@#END @^@@@@#CAT,P *DE-RPT.,F @[@@@@#END @^@@@@#ASG,AX *EX )@@G@@DE-RPT. @[@@@@#END @^@@@@#CYCLE,C *DE-FILE.,0 @[@@@@#END @ @@@@EY )@@G@@#CAT,P *DE-FILE.,F///500 @[@@@@#END @^@@@@#ASG,AX *DE-FILE. EZ )@@G@@@[@@@@#END @^@@@@#ASG,AX *QUIP-CARDS.@[@@@@#END @#@@@@*IF INFRX ISFA )@@G@@ SET @ @[@@#XQT TPF$.H1551035 @ @@@[#XQT H155.H155103FB )@@G@@5 @[@@@@*ELSE @ @[@@#XQT TPF$.H1551036 @ @@@[#XQT FC )@@G@@H155.H1551036 @[@@@@*END @#@@@@*IF HOURS IS SET @G@@@@H155103X [P2FD )@@G@@A),1,4,1][P2A),1,6,1][P2A),1,8,1][P4),1,8,1][P4),1,10,1] @[@@@@*ELSE FE )@@G@@@C@@@@H155103X [P2A),1,4,1][P2A),1,6,1][P2A),1,8,1] @[@@@@*END @[@@@@FF )@@G@@#EOF @]@@@@#PMD,AELP @^@@@@#FREE *QUIP-CARDS.@^@@@@#FREE FG )@@G@@*DE-FILE. @^@@@@#FREE *DE-RPT. @A@@@@#SYM *DE-RPT.,[P4FH )@@G@@A),1,6,1],PR@[@@@@*END @ @@@@#BL NORMAL,FINISH @ @@@@#MSG,NFI )@@G@@ NORMAL FINISH @[@@@@*END @#@@@@*IF CKPT4 IS SET @ @@@@#BL FJ )@@G@@ RESTRT,FROM,CP4 @ @@@@#MSG RESTART FROM CP4 @C@@@@#QUAL FK )@@G@@ H155-JA-[P2A),1,8,1][P2A),1,4,1] @A@@@@*IF [*STATRPT] = 2 OR [*FL )@@G@@STATRPT] = 3@#@@@@*IF INFRX IS SET @#@@@@*IF CUR IS SET @A@@@@#ASG,AFM )@@G@@X HEALTH*TABLE-TAPE60. @[@@@@#EOF @[@@@@#END @[@@@@*ELSE @ @@@@FN )@@G@@#ASG,AX *TABLE-TAPE60. @[@@@@#END @[@@@@*END @[@@@@*END @ @@@@FO )@@G@@#CYCLE,C *DE-STAT-RPT2.,0 @[@@@@#END @A@@@@#CAT,P *DE-STAT-RPT2FP )@@G@@.,F///500 @[@@@@#END @ @@@@#ASG,AX *DE-STAT-RPT2. @[@@@@#END FQ )@@G@@@B@@@@#USE DE-STAT-RPT.,*DE-STAT-RPT2. @^@@@@#ASG,AX *DE-STATFR )@@G@@-SRT2.@[@@@@#END @B@@@@#USE DE-STAT-SRTD.,*DE-STAT-SRT2. @#@@@@FS )@@G@@*IF INFRX IS SET @^@[@@#XQT TPF$.H1551030@^@@@[#XQT H155.H1FT )@@G@@551030@H@@@@0H1551030 2[P3B1),1,5,1][P3B1),1,7,1][P2A),1,4,1][P2A),1,6,1FU )@@G@@][P2A),1,8,1] @[@@@@*ELSE @^@[@@#XQT TPF$.H1551031 @^@@@[#XQT FV )@@G@@ H155.H1551031 @A@@@@H15510312[P2A),1,4,1][P2A),1,8,1] @[@@@@*END FW )@@G@@@[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#FREE *DE-STAT-RPT2. @B@@@@FX )@@G@@#SYM *DE-STAT-RPT2.,[P3B),1,7,1],PR @A@@@@*IF STATRPT IS SET AND IFY )@@G@@NFRX IS SET @#@@@@*IF CUR IS SET @A@@@@#FREE HEALTH*TABLE-TAPE60FZ )@@G@@. @[@@@@*ELSE @ @@@@#FREE *TABLE-TAPE60. @[@@@@*END @[@@@@GA )@@G@@*END @ @@@@#BL CHECK,POINT,CP5 @ @@@@#MSG CHECK-POINT CGB )@@G@@P5 @[@@@@*END @#@@@@*IF ADJDE IS SET @^@@@@#CYCLE,C *DE-RPT.,0 GC )@@G@@@[@@@@#END @^@@@@#CAT,P *DE-RPT.,F @[@@@@#END @^@@@@#ASG,AX *GD )@@G@@DE-RPT. @[@@@@#END @^@@@@#CYCLE,C *DE-FILE.,0 @[@@@@#END @ @@@@GE )@@G@@#CAT,P *DE-FILE.,F///500 @[@@@@#END @^@@@@#ASG,AX *DE-FILE. GF )@@G@@@[@@@@#END @^@@@@#ASG,AX *QUIP-CARDS.@[@@@@#END @#@@@@*IF INFRX ISGG )@@G@@ SET @ @[@@#XQT TPF$.H1551035 @ @@@[#XQT H155.H155103GH )@@G@@5 @[@@@@*ELSE @ @[@@#XQT TPF$.H1551036 @ @@@[#XQT GI )@@G@@H155.H1551036 @[@@@@*END @#@@@@*IF HOURS IS SET @G@@@@H155103X [P2GJ )@@G@@A),1,4,1][P2A),1,6,1][P2A),1,8,1][P4),1,8,1][P4),1,10,1] @[@@@@*ELSE GK )@@G@@@C@@@@H155103X [P2A),1,4,1][P2A),1,6,1][P2A),1,8,1] @[@@@@*END @[@@@@GL )@@G@@#EOF @]@@@@#PMD,AELP @^@@@@#FREE *QUIP-CARDS.@^@@@@#FREE GM )@@G@@*DE-FILE. @^@@@@#FREE *DE-RPT. @A@@@@#SYM *DE-RPT.,[P4GN )@@G@@A),1,6,1],PR@[@@@@*END @ @@@@#BL NORMAL,FINISH @ @@@@#MSG,NGO )@@G@@ NORMAL FINISH @[@@@@*END @#@@@@*IF CKPT5 IS SET @ @@@@#BL GP )@@G@@ RESTRT,FROM,CP5 @ @@@@#MSG,N RESTRT FROM CP5 @C@@@@#QUAL GQ )@@G@@ H155-JA-[P2A),1,8,1][P2A),1,4,1] @ @@@@#ASG,AX *DE-STAT-SRTGR )@@G@@2. @[@@@@#END @B@@@@#USE DE-STAT-SRTD.,*DE-STAT-SRT2. @#@@@@GS )@@G@@*IF ADJDE IS SET @^@@@@#CYCLE,C *DE-RPT.,0 @[@@@@#END @^@@@@#CAT,PGT )@@G@@ *DE-RPT.,F @[@@@@#END @^@@@@#ASG,AX *DE-RPT. @[@@@@#END GU )@@G@@@^@@@@#CYCLE,C *DE-FILE.,0 @[@@@@#END @ @@@@#CAT,P *DE-FILE.,F/GV )@@G@@//500 @[@@@@#END @^@@@@#ASG,AX *DE-FILE. @[@@@@#END @^@@@@#ASG,AGW )@@G@@X *QUIP-CARDS.@[@@@@#END @#@@@@*IF INFRX IS SET @ @[@@#XQT GX )@@G@@TPF$.H1551035 @ @@@[#XQT H155.H1551035 @[@@@@*ELSE @ @[@@GY )@@G@@#XQT TPF$.H1551036 @ @@@[#XQT H155.H1551036 @[@@@@GZ )@@G@@*END @#@@@@*IF HOURS IS SET @G@@@@H155103X [P2A),1,4,1][P2A),1,6,1][P2HA )@@G@@A),1,8,1][P4),1,8,1][P4),1,10,1] @[@@@@*ELSE @C@@@@H155103X [P2A),1,4HB )@@G@@,1][P2A),1,6,1][P2A),1,8,1] @[@@@@*END @[@@@@#EOF @]@@@@#PMD,AELP HC )@@G@@@^@@@@#FREE *QUIP-CARDS.@^@@@@#FREE *DE-FILE. @^@@@@#FREE HD )@@G@@ *DE-RPT. @A@@@@#SYM *DE-RPT.,[P4A),1,6,1],PR@[@@@@*END HE )@@G@@@ @@@@#BL NORMAL,FINISH @ @@@@#MSG,N NORMAL FINISH HF )@@G@@@[@@@@*END @[@@@@*END @[@@@@*END ___T,P *DE-RPT.,F @[@@@@#END HG )@@G@@*[S@@@*SDFF*@A@@@@*. PROGRAM NAME: H15513 (LEV 1R1). @ @@@@*. AUTHOR: DHH )@@G@@. E. RAGSDALE @A@@@@*. DATE WRITTEN: JANUARY 11, 1979 @A@@@@*. INSHI )@@G@@TALLATION: TX DEPT OF HEALTH. @E@@@@*. PROGRAM FUNC: SSG RUNSTREAM DRIVEHJ )@@G@@R FOR ACCOUNTING SYSTEM.@[@@@@*. @^@@@@*. SGS PARAMETERS: @[@@@@HK )@@G@@*. @D@@@@*. P1) RECOVERY RESTART? (YES) CHECKPOINT (CPX) @A@@@@HL )@@G@@*. (NO) @E@@@@*. P2) PROCESSING FOR: MONHM )@@G@@TH (XX) DAY (XX) YEAR (XX) @B@@@@*. P3) ACCOUNTING INPUT IS (CURREHN )@@G@@NT) @B@@@@*. (NONCURRENT)@C@@@@*. P4) NOHO )@@G@@ OF COPIES OF COST-CAT-RPT: (X) @B@@@@*. P5) NO OF COPIES OF EXP-HP )@@G@@BUD-RPT: (X)@[@@@@*. @[@@@@*. @[@@@@*. @ @@@@*. OPERATING INSTRHQ )@@G@@UCTIONS: @[@@@@*. @[@@@@*. @A@@@@*. P1,P2,P3,P4,P5 ARE MANDATORHR )@@G@@Y. @D@@@@*. IF P1 = 'YES', THEN CPX IS REQUIRED WHERE X = 1. @G@@@@HS )@@G@@*. MONTH AND YEAR OF P2 = MONTH, YEAR THE INCOMMING ACCOUNTING DATA HT )@@G@@@F@@@@*. WAS CREATED, WHILE DAY = THE LAST DAY OF THE STATED MONTH. HU )@@G@@@E@@@@*. P3 = 'CURRENT' IMPLIES THE INPUT ACCOUNTING FILES ARE THE@E@@@@HV )@@G@@*. LATEST CATALOGED CYCLES (IE. FOR THE CURRENT MONTH). @F@@@@*. P3 HW )@@G@@= 'NONCURRENT' IMPLIES THE INPUT ACCOUNTING FILES ARE NOT @E@@@@*. THEHX )@@G@@ LATEST CYCLES (IE. FOR A PREVIOUS MONTH), AND THAT A @B@@@@*. BACKUP OPHY )@@G@@ERATION IS TO BE DONE FIRST. @C@@@@*. ON P4,P5, X MUST BE IN THE RANGE HZ )@@G@@OF 1-9. @[@@@@*. @[@@@@*. @[@@@@*. @^@@@@*. CHECKPOINT LOCAIA )@@G@@TIONS:@[@@@@*. @C@@@@*. CP1 AFTER INITIAL CREATION OF CTCF FILE IB )@@G@@@[@@@@*. @[@@@@*. @[@@@@*. @[@@@@*. @[@@@@*. @[@@@@*. IC )@@G@@@B@@@@*. H15513 PART 1: CLEAR SWITCHES. @[@@@@*. @[@@@@*. ID )@@G@@@]@@@@*CLEAR ERROR@]@@@@*CLEAR RECOV@]@@@@*CLEAR CKPT1@]@@@@*CLEAR MM IE )@@G@@@]@@@@*CLEAR YY @]@@@@*CLEAR CUR @[@@@@*. @[@@@@*. @D@@@@*. IF )@@G@@ H15513 PART 2: CHECK PARAMETER SYNTAX. @[@@@@*. @#@@@@*IF [PIG )@@G@@1)] > 0 @A@@@@*IF [P1),1] > 3 AND [P1),1] < 6 @^@@@@*IF [P1),1,3IH )@@G@@,1] = YES @]@@@@*SET RECOV @#@@@@*IF [P1),1] = 5 @^@@@@*IF [P1),1,5II )@@G@@,1] = CP1 @]@@@@*SET CKPT1 @[@@@@*ELSE @[@@@@*END @[@@@@*ELSE @G@@@@IJ )@@G@@#MSG,N SGS ERROR: PARAM (P1) SPECIFIES RECOV BUT CKPT IS MISSING IK )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @^@@@@*IF NOT [P1),1,3,1] = NOIL )@@G@@@G@@@@#MSG,N SGS ERROR: RESPONSE TO RECOV RESTART ON PARAM (P1) INCOIM )@@G@@RRECT @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*ELSE @E@@@@#MSG,NIN )@@G@@ SGS ERROR: PARAM (P1) HAS INCORRECT NO. OF FIELDS@]@@@@*SET ERROR IO )@@G@@@[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAM (P1) MISSING IP )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@IQ )@@G@@*IF [P2)] > 0 @#@@@@*IF [P2),1] = 8 @B@@@@*IF [P2),1,4,1] > 00 ANDIR )@@G@@ [P2),1,4,1] < 13 @^@@@@*SET MM TO [P2),1,4,1] @[@@@@*ELSE @F@@@@#MSG,NIS )@@G@@ SGS ERROR: MONTH SPECIFIED ON PARAM (P2) OUT OF RANGE @]@@@@*SET EIT )@@G@@RROR @[@@@@*END @B@@@@*IF [P2),1,8,1] > 76 AND [P2),1,8,1] < 99 @^@@@@IU )@@G@@*SET YY TO [P2),1,6,1] @[@@@@*ELSE @F@@@@#MSG,N SGS ERROR: YEAR SPEIV )@@G@@CIFIED ON PARAM (P2) OUT OF RANGE @]@@@@*SET ERROR @[@@@@*END @[@@@@IW )@@G@@*ELSE @E@@@@#MSG,N SGS ERROR: PARAM (P2) HAS INCORRECT NO. OF FIELDSIX )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERROR: PAIY )@@G@@RAM (P2) MISSING @]@@@@*SET ERROR @[@@@@*END @[@@@@*. @[@@@@*. IZ )@@G@@@[@@@@*. @#@@@@*IF [P3)] > 0 @#@@@@*IF [P3),1] = 4 @ @@@@*IF [PJA )@@G@@3),1,4,1] = CURRENT @]@@@@*SET CUR @[@@@@*ELSE @A@@@@*IF NOT [P3)JB )@@G@@,1,4,1] = NONCURRENT @D@@@@#MSG,N SGS ERROR: RESPONSE TO PARAM (PJC )@@G@@3) INVALID @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*ELSE @E@@@@JD )@@G@@#MSG,N SGS ERROR: PARAM (P3) HAS INCORRECT NO. OF FIELDS@]@@@@*SET EJE )@@G@@RROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAM (P3) MISJF )@@G@@SING @]@@@@*SET ERROR @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. JG )@@G@@@#@@@@*IF [P4)] > 0 @#@@@@*IF [P4),1] = 6 @B@@@@*IF [P4),1,6,1] < JH )@@G@@1 OR [P4),1,6,1] > 9 @F@@@@#MSG,N SGS ERROR: NO. OF COPIES ON PARJI )@@G@@AM (P4) OUT OF RANGE @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @E@@@@JJ )@@G@@#MSG,N SGS ERROR: PARAM (P4) HAS INCORRECT NO. OF FIELDS@]@@@@*SET EJK )@@G@@RROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAM (P4) MISJL )@@G@@SING @]@@@@*SET ERROR @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. JM )@@G@@@#@@@@*IF [P5)] > 0 @#@@@@*IF [P5),1] = 6 @B@@@@*IF [P5),1,6,1] < JN )@@G@@1 OR [P5),1,6,1] > 9 @F@@@@#MSG,N SGS ERROR: NO. OF COPIES ON PARJO )@@G@@AM (P5) OUT OF RANGE @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @E@@@@JP )@@G@@#MSG,N SGS ERROR: PARAM (P5) HAS INCORRECT NO. OF FIELDS@]@@@@*SET EJQ )@@G@@RROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAM (P5) MISJR )@@G@@SING @]@@@@*SET ERROR @[@@@@*END @[@@@@*. @[@@@@*. @B@@@@*. JS )@@G@@ H15513 PART 3: GENERATE JCL @[@@@@*. @[@@@@*. @[@@@@*. JT )@@G@@@#@@@@*IF ERROR IS SET @D@@@@#MSG,N RUNSTREAM HAS ABORTED DUE TO SGJU )@@G@@S ERROR @B@@@@#MSG JOB ABORTED DUE TO BAD SGS @[@@@@#FIN JV )@@G@@@[@@@@*ELSE @#@@@@*IF RECOV IS CLEAR@^@@@@#BL INIT,START @^@@@@JW )@@G@@#MSG INITIAL START@B@@@@#QUAL H155-JA-[P2),1,8,1][P2),1,4,1] JX )@@G@@@#@@@@*IF CUR IS SET @A@@@@#ASG,AX H155-BU*MTH-ACNT-SUM. @[@@@@JY )@@G@@#END @ @@@@#CYCLE,C *MTH-ACNT-SUM.,0 @[@@@@#END @A@@@@#CAT,P *JZ )@@G@@MTH-ACNT-SUM.,F///1000 @[@@@@#END @^@@@@#ASG,AX *MTH-ACNT-SUM.@[@@@@KA )@@G@@#END @C@@@@#COPY,G H155-BU*MTH-ACNT-SUM.,*MTH-ACNT-SUM. @A@@@@#FREE KB )@@G@@ H155-BU*MTH-ACNT-SUM. @A@@@@#ASG,AX HEALTH*TABLEDISC-JA. KC )@@G@@@[@@@@#END @^@@@@#CYCLE,C *TABLE-JA.,0 @[@@@@#END @ @@@@#CAT,P *KD )@@G@@TABLE-JA.,F///1000@[@@@@#END @^@@@@#ASG,AX *TABLE-JA. @[@@@@#END KE )@@G@@@B@@@@#COPY,G HEALTH*TABLEDISC-JA.,*TABLE-JA.@A@@@@#FREE HEALTH*KF )@@G@@TABLEDISC-JA. @[@@@@*ELSE @ @@@@#ASG,AX *MTH-ACNT-SUM. @[@@@@KG )@@G@@#END @^@@@@#ASG,AX *TABLE-JA. @[@@@@#END @[@@@@*END @A@@@@#USE KH )@@G@@ TABLEDISC-JA.,*TABLE-JA. @^@@@@#CYCLE,C *CTCF.,0 @[@@@@#END KI )@@G@@@^@@@@#CAT,P *CTCF.,F @[@@@@#END @#@@@@#ASG,AX *CTCF. @[@@@@KJ )@@G@@#END @ @@@@#CYCLE,C *COST-CAT-RPT.,0 @[@@@@#END @A@@@@#CAT,P *KK )@@G@@COST-CAT-RPT.,F///500 @[@@@@#END @ @@@@#ASG,AX *COST-CAT-RPT. KL )@@G@@@[@@@@#END @^@[@@#XQT TPF$.H1551040@^@@@[#XQT H155.H1551040KM )@@G@@@]@@@@#PMD,AELP @ @@@@#FREE *MTH-ACNT-SUM. @ @@@@#FREE *KN )@@G@@COST-CAT-RPT. @B@@@@#SYM *COST-CAT-RPT.,[P4),1,6,1],PR @ @@@@KO )@@G@@#BL CHECK,POINT,CP1 @ @@@@#MSG CHECK-POINT CP1 @ @@@@KP )@@G@@#USE OLD-CTCF.,*CTCF. @#@@@@*IF CUR IS SET @ @@@@#ASG,AX HKQ )@@G@@150*SCS-SUMMARY. @[@@@@#END @ @@@@#CYCLE,C *SCS-SUMMARY.,0 @[@@@@KR )@@G@@#END @A@@@@#CAT,P *SCS-SUMMARY.,F///1000 @[@@@@#END @^@@@@#ASG,AKS )@@G@@X *SCS-SUMMARY.@[@@@@#END @B@@@@#COPY H150*SCS-SUMMARY.,*SCS-SUKT )@@G@@MMARY.@ @@@@#FREE H150*SCS-SUMMARY. @[@@@@*ELSE @^@@@@#ASG,AX *KU )@@G@@SCS-SUMMARY.@[@@@@#END @[@@@@*END @^@@@@#ASG,AX *SALRY-EQUIP.@[@@@@KV )@@G@@#END @^@@@@#ASG,AX *KP-TIME. @[@@@@#END @^@@@@#ASG,CP *CTCF(+KW )@@G@@1).,F @[@@@@#END @A@@@@#USE NEW-CTCF.,*CTCF(+1). @ @@@@#CYCLEKX )@@G@@,C *EXP-BUD-RPT.,0 @[@@@@#END @ @@@@#CAT,P *EXP-BUD-RPT.,F KY )@@G@@@[@@@@#END @^@@@@#ASG,AX *EXP-BUD-RPT.@[@@@@#END @^@@@@#ASG,AX *KZ )@@G@@DE-FILE. @[@@@@#END @^@[@@#XQT TPF$.H1551050@^@@@[#XQT HLA )@@G@@155.H1551050@^@@@@#ADD,D *SALRY-EQUIP.@[@@@@#EOF @^@@@@#FREE *LB )@@G@@EXP-BUD-RPT.@B@@@@#SYM *EXP-BUD-RPT.,[P5),1,6,1],PR @^@@@@#FREE LC )@@G@@ NEW-CTCF. @^@@@@#FREE TABLEDISC-JA.@^@@@@#FREE OLD-CTCLD )@@G@@F. @^@@@@#FREE *KP-TIME. @^@@@@#FREE *SALRY-EQUIP.@^@@@@LE )@@G@@#FREE *SCS-SUMMARY.@^@@@@#FREE *DE-FILE. @^@@@@#BL NLF )@@G@@ORMAL,FINISH@^@@@@#MSG NORMAL FINISH@[@@@@*ELSE @#@@@@*IF CKPT1 ISLG )@@G@@ SET @ @@@@#BL RESTRT,FROM,CP1 @ @@@@#MSG RESTART FROMLH )@@G@@ CP1 @B@@@@#QUAL H155-JA-[P2),1,8,1][P2),1,4,1] @^@@@@#ASG,AX *LI )@@G@@TABLE-JA. @[@@@@#END @A@@@@#USE TABLEDISC-JA.,*TABLE-JA. @[@@@@LJ )@@G@@#END @#@@@@#ASG,AX *CTCF. @[@@@@#END @ @@@@#USE OLD-CTCF.,*CTLK )@@G@@CF. @#@@@@*IF CUR IS SET @ @@@@#ASG,AX H150*SCS-SUMMARY. @[@@@@LL )@@G@@#END @ @@@@#CYCLE,C *SCS-SUMMARY.,0 @[@@@@#END @A@@@@#CAT,P *LM )@@G@@SCS-SUMMARY.,F///1000 @[@@@@#END @^@@@@#ASG,AX *SCS-SUMMARY.@[@@@@LN )@@G@@#END @B@@@@#COPY H150*SCS-SUMMARY.,*SCS-SUMMARY.@ @@@@#FREE HLO )@@G@@150*SCS-SUMMARY. @[@@@@*ELSE @^@@@@#ASG,AX *SCS-SUMMARY.@[@@@@#END LP )@@G@@@[@@@@*END @^@@@@#ASG,AX *SALRY-EQUIP.@[@@@@#END @^@@@@#ASG,AX *LQ )@@G@@KP-TIME. @[@@@@#END @^@@@@#ASG,CP *CTCF(+1).,F @[@@@@#END @A@@@@LR )@@G@@#USE NEW-CTCF.,*CTCF(+1). @ @@@@#CYCLE,C *EXP-BUD-RPT.,0 LS )@@G@@@[@@@@#END @ @@@@#CAT,P *EXP-BUD-RPT.,F @[@@@@#END @^@@@@#ASG,ALT )@@G@@X *EXP-BUD-RPT.@[@@@@#END @^@@@@#ASG,AX *DE-FILE. @[@@@@#END LU )@@G@@@^@[@@#XQT TPF$.H1551050@^@@@[#XQT H155.H1551050@^@@@@#ADD,DLV )@@G@@ *SALRY-EQUIP.@[@@@@#EOF @^@@@@#FREE *EXP-BUD-RPT.@B@@@@#SYM LW )@@G@@ *EXP-BUD-RPT.,[P5),1,6,1],PR @^@@@@#FREE NEW-CTCF. @^@@@@LX )@@G@@#FREE OLD-CTCF. @^@@@@#FREE *KP-TIME. @^@@@@#FREE *LY )@@G@@SALRY-EQUIP.@^@@@@#FREE TABLEDISC-JA.@^@@@@#FREE *DE-FILE. LZ )@@G@@@^@@@@#FREE *SCS-SUMMARY.@^@@@@#BL NORMAL,FINISH@^@@@@#MSG MA )@@G@@ NORMAL FINISH@[@@@@*END @[@@@@*END @[@@@@*END ___ LOCD]D- (OCDKMB )@@G@@C*6A@,@[@@@@^T D9A@[@@@@ L D1^@D@@@@ LDC0)FS%ETOCDOELKE-X^@.^@1^[JEK)FS%MC )@@G@@*[S@@@*SDFF*@A@@@@*. PROGRAM NAME:H15514 (LEV 1R1) @ @@@@*. AUTHOR: DMD )@@G@@. E. RAGSDALE @A@@@@*. DATE WRITTEN: JANUARY 30, 1979 @A@@@@*. INSME )@@G@@TALLATION: TX DEPT OF HEALTH @E@@@@*. PROGRAM FUNC: SSG RUNSTREAM DRIVEMF )@@G@@R FOR ACCOUNTING SYSTEM.@[@@@@*. @[@@@@*. @^@@@@*. SGS PARAMETEMG )@@G@@RS: @[@@@@*. @B@@@@*. SET [A]: (H15514-SGS ELEMENT) @[@@@@MH )@@G@@*. @C@@@@*. P1) PROCESSING FOR: MONTH (XX) YEAR (XX) @[@@@@*. MI )@@G@@@B@@@@*. SET [B]: (JA-BU-TABLE ELEMENT) @[@@@@*. @D@@@@*. P2)MJ )@@G@@ YEAR (XX) MONTH (XX) REELS (XXXXXX,...) @D@@@@*. (MULTIPLE OCMK )@@G@@CURRANCES OF (P2) ARE PERMITTED) @[@@@@*. @[@@@@*. @ @@@@*. ML )@@G@@OPERATING INSTRUCTIONS: @[@@@@*. @B@@@@*. SGS SETS [A], [B] ARE REQUIMM )@@G@@RED WHERE: @^@@@@*. [A] = [(P1)] @C@@@@*. [B] = [(P2)1,...(MN )@@G@@P2)I,...(P2)N] N > 0 @G@@@@*. (P1) = MONTH, YEAR FOR WHICH ACCOUNTINMO )@@G@@G DATA IS CONSIDERED TO APPLY @[@@@@*. @B@@@@*. THERE MUST EXIST ONE MP )@@G@@(P2)I SUCH THAT: @G@@@@*. MONTH(P2)I AND YEAR(P2)I = MONTH(P1) ANMQ )@@G@@D YEAR(P1) RESPECTIVELY @D@@@@*.ALL MONTH ENTRIES (XX) ARE TO BE IN RANGMR )@@G@@E 01-12 @C@@@@*.ALL YEAR ENTRIES ARE TO BE IN RANGE 77-99 @[@@@@MS )@@G@@*. @A@@@@*. H15514 PART 1: CLEAR SWITCHES. @[@@@@*. @[@@@@*. MT )@@G@@@]@@@@*CLEAR GO @]@@@@*CLEAR AA @]@@@@*CLEAR BB @]@@@@*CLEAR CC MU )@@G@@@]@@@@*CLEAR II @]@@@@*CLEAR ERROR@[@@@@*. @B@@@@*. H15514 PART 2MV )@@G@@: CHECK PARAMETER SYNTAX@[@@@@*. @[@@@@*. @[@@@@*. @[@@@@*. MW )@@G@@@#@@@@*IF [P1)] > 0 @#@@@@*IF [P1),1] = 6 @B@@@@*IF [P1),1,4,1] < MX )@@G@@01 OR [P1),1,4,1] > 12 @F@@@@#MSG,N SGS ERROR: MONTH SPECIFIED ON PMY )@@G@@ARAM (P1) OUT OF RANGE @]@@@@*SET ERROR @[@@@@*END @B@@@@*IF [P1),1,6MZ )@@G@@,1] < 77 OR [P1),1,6,1] > 99 @F@@@@#MSG,N SGS ERROR: YEAR SPECIFIEDNA )@@G@@ ON PARAM (P1) OUT OF RANGE @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE NB )@@G@@@E@@@@#MSG,N SGS ERROR: PARAM (P1) HAS INCORRECT NO. OF FIELDS@]@@@@NC )@@G@@*SET ERROR @[@@@@*END @[@@@@*ELSE @C@@@@#MSG,N SGS ERROR: PARAM (PND )@@G@@1) IS MISSING @]@@@@*SET ERROR @[@@@@*END @[@@@@*. @[@@@@*. NE )@@G@@@[@@@@*. @#@@@@*IF NOT [P2)] > 0 @C@@@@#MSG,N SGS ERROR: PARAMETENF )@@G@@R (P2) MISSING @]@@@@*SET ERROR @[@@@@*ELSE @]@@@@*SET GO @]@@@@NG )@@G@@*SET BB TO 1@B@@@@*INCREMENT AA TO [P2)] WHILE GO IS SET @ @@@@*IF [PNH )@@G@@2),AA,2,1] = [P1),1,6,1]@ @@@@*IF [P2),AA,4,1] = [P1),1,4,1]@]@@@@*CLEARNI )@@G@@ GO @#@@@@*SET BB TO AA @[@@@@*END @[@@@@*END @[@@@@*LOOP @G@@@@NJ )@@G@@*IF NOT [P2),BB,2,1] = [P1),1,6,1] OR NOT [P2),BB,4,1] = [P1),1,4,1] NK )@@G@@@E@@@@#MSG,N SGS ERROR: NO MATCH BETWEEN PARAMS (P1), (P2) @]@@@@NL )@@G@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*. @A@@@@*. H15514 PART 3NM )@@G@@: GENERATE JCL @[@@@@*. @#@@@@*IF ERROR IS SET @B@@@@#MSG,N RNN )@@G@@UN ABORTED DUE TO SGS ERROR @^@@@@#MSG RUN,ABORT @[@@@@*ELSE NO )@@G@@@^@@@@#BL INIT,START @^@@@@#MSG INITIAL START@^@@@@*SET INP )@@G@@I TO [P2),BB,6] @^@@@@#ASG,TN IBACKUP.,T @[@@@@#END @]@@@@#SECURNQ )@@G@@E,IL @E@@@@LOAD QUALIFIER H155-JA-[P1),1,6,1][P1),1,4,1] FROM IBACKUP NR )@@G@@@]@@@@*EDIT ON @]@@@@IBACKUP =& @]@@@@*SET CC TO 1@^@@@@*INCREMENT CNS )@@G@@C TO II @#@@@@ [P2),BB,6,CC]& @]@@@@*IF CC < II @[@@@@ & @[@@@@NT )@@G@@*END @[@@@@*LOOP @]@@@@*EDIT OFF @[@@@@#EOF @^@@@@#BL END,OF,NU )@@G@@SKEL @[@@@@*END ___^[R*[S@@@*SDFF*@A@@@#*. PROGRAM NAME:H15515 (LEV 1RNV )@@G@@1) @ @@@#*. AUTHOR: D. E. RAGSDALE @A@@@#*. DATE WRITTEN: JANUARYNW )@@G@@ 10, 1979 @A@@@#*. INSTALLATION: TX DEPT OF HEALTH @E@@@#*. PROGRAM FNX )@@G@@UNC: SSG RUNSTREAM DRIVER FOR ACCOUNTING SYSTEM.@[@@@#*. @#@@@A*. CHANY )@@G@@NGE LOG: @[@@@A*. @A@@@A*. CHANGE #1 08/20/80 D. HEROLD @B@@@ANZ )@@G@@*. MODIFY TO INPUT *QUIP-CARDS IN H1551070@[@@@#*. @^@@@#*. SGS PAOA )@@G@@RAMETERS: @[@@@#*. @D@@@#*. P1) RECOVERY RESTART? (YES) CHECKPOIOB )@@G@@NT (CPX) @A@@@#*. (NO) @C@@@#*. P2) PROC )@@G@@OCESSING FOR: MONTH (XX) YEAR (XX) @B@@@#*. P3) ACCOUNTING INPUT IS:OD )@@G@@ (CURRENT) @C@@@#*. (NONCURRENT) @B@@@#OE )@@G@@*. P4) SELECT OLD-YTD-ACNT FILE? (YES) @B@@@#*. OF )@@G@@ (NO) @E@@@#*. P4A) OLD-YTD-ACNT FILE IS DATED: MONTH (XX)OG )@@G@@ YEAR (XX) @B@@@#*. P5) NO OF COPIES OF UTILIZ-RPT: (X) @D@@@#*. P6)OH )@@G@@ SELECT OLD-YTD-SUM BY ACCNT FILE? (YES) @C@@@#*. OI )@@G@@ (NO)@F@@@#*. P6A) OLD-YTD-SUM BY ACCNT IS DAOJ )@@G@@TED: MONTH (XX) YEAR (XX) @C@@@#*. P7) NO OF COPIES OF DP-SRVS-SUOK )@@G@@M RPT: (X) @C@@@#*. P8) NO OF COPIES OF DP-SRVS-BILL RPT: (X) @B@@@#OL )@@G@@*. P9) NO OF COPIES OF MTH-DP-RPT: (X) @B@@@#*. P10) NO OF COPIES OOM )@@G@@F YTD-DP-RPT: (X) @B@@@#*. P11) NO OF COPIES OF DP-LCH-LIST: (X)@[@@@#ON )@@G@@*. @[@@@#*. @[@@@#*. @ @@@#*. OPERATING INSTRUCTIONS: @[@@@#OO )@@G@@*. @C@@@#*. P1,P2,P3,P4,P5,P6,P7,P8,P9,P10 ARE REQUIRED.@B@@@#*. IFOP )@@G@@ P4 = 'YES' THEN P4A IS REQUIRED. @B@@@#*. IF P6 = 'YES' THEN P6A IS OQ )@@G@@REQUIRED. @D@@@#*. IF P1 = 'YES' THEN CPX IS REQUIRED, WHERE X = 1-3.OR )@@G@@@G@@@#*. P2 = MONTH, YEAR FOR WHICH ACCOUNTING DATA IS CONSIDERED TO APOS )@@G@@PLY @H@@@#*. P3 = 'CURRENT' IMPLIES ACCOUNTING DATA IS THE CURRENT (TOT )@@G@@HIS MONTH'S) DATA @H@@@#*. P3 = 'NONCURRENT' IMPLIES ACCOUNTING DATA ISOU )@@G@@ OLDER THAN THE CURRENT MONTH'@G@@@#*. P4A = MONTH AND YEAR FOR WHICH TOV )@@G@@HE OLD-YTD-ACNT FILE WAS GENERATED. @G@@@#*. P6A = MONTH AND YEAR FOR WOW )@@G@@HICH THE OLD-YTD-SUM FILE WAS GENERATED. @G@@@#*. THE VARIABLE X ON P5OX )@@G@@,P7,P8,P9,P10,P11 IS TO BE IN THE RANGE 1-9 @[@@@#*. @[@@@#*. OY )@@G@@@[@@@#*. @[@@@#*. @ @@@#*. CHECKPOINT LOCATIONS: @[@@@#*. OZ )@@G@@@G@@@#*. CP1 AFTER CREATION OF THE MTH-COST-SUM FILE, NEW-YTD-ACNT FPA )@@G@@ILE @ @@@#*. AND UTILIZ-RPT. @F@@@#*. CP2 AFTER CREATIOPB )@@G@@N OF THE NEW-YTD-SUM FILE, DP-SRVS-SUM RPT@A@@@#*. AND DP-SRVS-BPC )@@G@@ILL RPT. @D@@@#*. CP3 AFTER CREATION OF YTD-DP-RPT, MTH-DP-RPT. PD )@@G@@@[@@@#*. @[@@@#*. @[@@@#*. @A@@@#*. H15515 PART 1: CLEAR SWITPE )@@G@@CHES. @[@@@#*. @[@@@#*. @]@@@#*CLEAR ERROR@]@@@#*CLEAR RECOV@]@@@#PF )@@G@@*CLEAR CKPT1@]@@@#*CLEAR CKPT2@]@@@#*CLEAR CKPT3@]@@@#*CLEAR CUR1 @]@@@#PG )@@G@@*CLEAR SEL1 @]@@@#*CLEAR SEL2 @[@@@#*. @B@@@#*. H15515 PART 2: CHECPH )@@G@@K PARAMETER SYNTAX@[@@@#*. @#@@@#*IF [P1)] > 0 @A@@@#*IF [P1),1] PI )@@G@@> 3 AND [P1),1] < 6 @^@@@#*IF [P1),1,3,1] = YES @]@@@#*SET RECOV PJ )@@G@@@#@@@#*IF [P1),1] = 5 @^@@@#*IF [P1),1,5,1] = CP1 @]@@@#*SET CKPT1 PK )@@G@@@[@@@#*ELSE @^@@@#*IF [P1),1,5,1] = CP2 @]@@@#*SET CKPT2 @[@@@#*ELSE PL )@@G@@@^@@@#*IF [P1),1,5,1] = CP3 @]@@@#*SET CKPT3 @[@@@#*ELSE @F@@@##MSG,NPM )@@G@@ SGS ERROR: CKPT SPECIFIED ON PARAM (P1) OUT OF RANGE @]@@@#*SET EPN )@@G@@RROR @[@@@#*END @[@@@#*END @[@@@#*END @[@@@#*ELSE @G@@@##MSG,N SPO )@@G@@GS ERROR: PARAM (P1) SPECIFIES RECOV BUT CKPT IS MISSING @]@@@#*SET EPP )@@G@@RROR @[@@@#*END @[@@@#*ELSE @^@@@#*IF NOT [P1),1,3,1] = NO@F@@@##MSG,NPQ )@@G@@ SGS ERROR: RESPONSE TO RESTART ON PARAM (P1) INCORRECT @]@@@#*SET EPR )@@G@@RROR @[@@@#*END @[@@@#*END @[@@@#*ELSE @E@@@##MSG,N SGS ERROR: PAPS )@@G@@RAM (P1) HAS INCORRECT NO. OF FIELDS@]@@@#*SET ERROR @[@@@#*END @[@@@#PT )@@G@@*ELSE @B@@@##MSG,N SGS ERROR: PARAM (P1) MISSING @]@@@#*SET ERROR PU )@@G@@@[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. @#@@@#*IF [P2)] > 0 PV )@@G@@@#@@@#*IF [P2),1] = 6 @B@@@#*IF [P2),1,4,1] < 01 OR [P2),1,4,1] > 12 PW )@@G@@@F@@@##MSG,N SGS ERROR: MONTH SPECIFIED ON PARAM (P2) OUT OF RANGE PX )@@G@@@]@@@#*SET ERROR @[@@@#*END @B@@@#*IF [P2),1,6,1] < 77 OR [P2),1,6,1] PY )@@G@@> 99 @F@@@##MSG,N SGS ERROR: YEAR SPECIFIED ON PARAM (P2) OUT OF RAPZ )@@G@@NGE @]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE @E@@@##MSG,N SGS ERRQA )@@G@@OR: PARAM (P2) HAS INCORRECT NO. OF FIELDS@]@@@#*SET ERROR @[@@@#*END QB )@@G@@@[@@@#*ELSE @C@@@##MSG,N SGS ERROR: PARAM (P2) IS MISSING @]@@@#QC )@@G@@*SET ERROR @[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. @#@@@#*IF [PQD )@@G@@3)] > 0 @#@@@#*IF [P3),1] = 4 @ @@@#*IF [P3),1,4,1] = CURRENT QE )@@G@@@]@@@#*SET CUR1 @[@@@#*ELSE @A@@@#*IF NOT [P3),1,4,1] = NONCURRENT QF )@@G@@@D@@@##MSG,N SGS ERROR: RESPONSE TO PARAM (P3) INVALID @]@@@#*SET EQG )@@G@@RROR @[@@@#*END @[@@@#*END @[@@@#*ELSE @E@@@##MSG,N SGS ERROR: PAQH )@@G@@RAM (P3) HAS INCORRECT NO. OF FIELDS@]@@@#*SET ERROR @[@@@#*END @[@@@#QI )@@G@@*ELSE @B@@@##MSG,N SGS ERROR: PARAM (P3) MISSING @]@@@#*SET ERROR QJ )@@G@@@[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. @#@@@#*IF [P4)] > 0 QK )@@G@@@#@@@#*IF [P4),1] = 4 @^@@@#*IF [P4),1,4,1] = YES @]@@@#*SET SEL1 QL )@@G@@@[@@@#*ELSE @^@@@#*IF NOT [P4),1,4,1] = NO@D@@@##MSG,N SGS ERROR: REQM )@@G@@SPONSE TO PARAM (P4) INVALID @]@@@#*SET ERROR @[@@@#*END @[@@@#*END QN )@@G@@@[@@@#*ELSE @E@@@##MSG,N SGS ERROR: PARAM (P4) HAS INCORRECT NO. OF QO )@@G@@FIELDS@]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE @B@@@##MSG,N SGS ERRQP )@@G@@OR: PARAM (P4) MISSING @]@@@#*SET ERROR @[@@@#*END @[@@@#*. @[@@@#QQ )@@G@@*. @[@@@#*. @#@@@#*IF SEL1 IS SET @#@@@#*IF [P4A)] > 0 @#@@@#QR )@@G@@*IF [P4A),1] = 8 @B@@@#*IF [P4A),1,6,1] < 01 OR [P4A),1,6,1] > 12@F@@@#QS )@@G@@#MSG,N SGS ERROR: MONTH SPECIFIED ON PARAM (P4A) OUT OF RANGE @]@@@#QT )@@G@@*SET ERROR @[@@@#*END @B@@@#*IF [P4A),1,8,1] < 77 OR [P4A),1,8,1] > 99QU )@@G@@@F@@@##MSG,N SGS ERROR: YEAR SPECIFIED ON PARAM (P4A) OUT OF RANGE QV )@@G@@@]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE @F@@@##MSG,N SGS ERROR: PAQW )@@G@@RAM (P4A) HAS INCORRECT NO. OF FIELDS @]@@@#*SET ERROR @[@@@#*END QX )@@G@@@[@@@#*ELSE @B@@@##MSG,N SGS ERROR: PARAM (P4A) MISSING @]@@@#*SET EQY )@@G@@RROR @[@@@#*END @[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. @[@@@#QZ )@@G@@*. @[@@@#*. @[@@@#*. @#@@@#*IF [P5)] > 0 @#@@@#*IF [P5),1] RA )@@G@@= 6 @B@@@#*IF [P5),1,6,1] < 1 OR [P5),1,6,1] > 9 @F@@@##MSG,N SRB )@@G@@GS ERROR: NO. OF COPIES ON PARAM (P5) OUT OF RANGE @]@@@#*SET ERROR RC )@@G@@@[@@@#*END @[@@@#*ELSE @E@@@##MSG,N SGS ERROR: PARAM (P5) HAS INCORRD )@@G@@RECT NO. OF FIELDS@]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE @B@@@##MSG,NRE )@@G@@ SGS ERROR: PARAM (P5) MISSING @]@@@#*SET ERROR @[@@@#*END @[@@@#RF )@@G@@*. @[@@@#*. @[@@@#*. @#@@@#*IF [P6)] > 0 @#@@@#*IF [P6),1] RG )@@G@@= 6 @^@@@#*IF [P6),1,6,1] = YES @]@@@#*SET SEL2 @[@@@#*ELSE @^@@@#RH )@@G@@*IF NOT [P6),1,6,1] = NO@D@@@##MSG,N SGS ERROR: RESPONSE TO PARAM (PRI )@@G@@6) INVALID @]@@@#*SET ERROR @[@@@#*END @[@@@#*END @[@@@#*ELSE @E@@@#RJ )@@G@@#MSG,N SGS ERROR: PARAM (P6) HAS INCORRECT NO. OF FIELDS@]@@@#*SET ERK )@@G@@RROR @[@@@#*END @[@@@#*ELSE @B@@@##MSG,N SGS ERROR: PARAM (P6) MISRL )@@G@@SING @]@@@#*SET ERROR @[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. RM )@@G@@@#@@@#*IF SEL2 IS SET @#@@@#*IF [P6A)] > 0 @#@@@#*IF [P6A),1] = 9 RN )@@G@@@B@@@#*IF [P6A),1,7,1] < 01 OR [P6A),1,7,1] > 12@F@@@##MSG,N SGS ERRRO )@@G@@OR: MONTH SPECIFIED ON PARAM (P6A) OUT OF RANGE @]@@@#*SET ERROR @[@@@#RP )@@G@@*END @B@^@#*IF [P6A),1,9,1] < 77 OR [P6A),1,),1] > 99@B@@@^*IF [P6A),1,RQ )@@G@@9,1] < 77 OR [P6A),1,9,1] > 99@F@@@##MSG,N SGS ERROR: YEAR SPECIFIEDRR )@@G@@ ON PARAM (P6A) OUT OF RANGE @]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE RS )@@G@@@F@@@##MSG,N SGS ERROR: PARAM (P6A) HAS INCORRECT NO. OF FIELDS RT )@@G@@@]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE @B@@@##MSG,N SGS ERROR: PARU )@@G@@RAM (P6A) MISSING @]@@@#*SET ERROR @[@@@#*END @[@@@#*END @[@@@#*. RV )@@G@@@[@@@#*. @[@@@#*. @[@@@#*. @[@@@#*. @[@@@#*. @#@@@#*IF [PRW )@@G@@7)] > 0 @#@@@#*IF [P7),1] = 7 @B@@@#*IF [P7),1,7,1] < 1 OR [P7),1,RX )@@G@@7,1] > 9 @F@@@##MSG,N SGS ERROR: NO. OF COPIES ON PARAM (P7) OUT RY )@@G@@OF RANGE @]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE @E@@@##MSG,N SRZ )@@G@@GS ERROR: PARAM (P7) HAS INCORRECT NO. OF FIELDS@]@@@#*SET ERROR @[@@@#SA )@@G@@*END @[@@@#*ELSE @B@@@##MSG,N SGS ERROR: PARAM (P7) MISSING @]@@@#SB )@@G@@*SET ERROR @[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. @#@@@#*IF [PSC )@@G@@8)] > 0 @#@@@#*IF [P8),1] = 7 @B@@@#*IF [P8),1,7,1] < 1 OR [P8),1,SD )@@G@@7,1] > 9 @F@@@##MSG,N SGS ERROR: NO. OF COPIES ON PARAM (P8) OUT SE )@@G@@OF RANGE @]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE @E@@@##MSG,N SSF )@@G@@GS ERROR: PARAM (P8) HAS INCORRECT NO. OF FIELDS@]@@@#*SET ERROR @[@@@#SG )@@G@@*END @[@@@#*ELSE @B@@@##MSG,N SGS ERROR: PARAM (P8) MISSING @]@@@#SH )@@G@@*SET ERROR @[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. @#@@@#*IF [PSI )@@G@@9)] > 0 @#@@@#*IF [P9),1] = 6 @B@@@#*IF [P9),1,6,1] < 1 OR [P9),1,SJ )@@G@@6,1] > 9 @F@@@##MSG,N SGS ERROR: NO. OF COPIES ON PARAM (P9) OUT SK )@@G@@OF RANGE @]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE @E@@@##MSG,N SSL )@@G@@GS ERROR: PARAM (P9) HAS INCORRECT NO. OF FIELDS@]@@@#*SET ERROR @[@@@#SM )@@G@@*END @[@@@#*ELSE @B@@@##MSG,N SGS ERROR: PARAM (P9) MISSING @]@@@#SN )@@G@@*SET ERROR @[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. @#@@@#*IF [PSO )@@G@@10)] > 0 @#@@@#*IF [P10),1] = 6 @B@@@#*IF [P10),1,6,1] < 1 OR [P10),SP )@@G@@1,6,1] > 9 @F@@@##MSG,N SGS ERROR: NO. OF COPIES ON PARAM (P10) OUTSQ )@@G@@ OF RANGE @]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE @F@@@##MSG,N SSR )@@G@@GS ERROR: PARAM (P10) HAS INCORRECT NO. OF FIELDS @]@@@#*SET ERROR SS )@@G@@@[@@@#*END @[@@@#*ELSE @B@@@##MSG,N SGS ERROR: PARAM (P10) MISSING ST )@@G@@@]@@@#*SET ERROR @[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. @[@@@#SU )@@G@@*. @#@@@#*IF [P11)] > 0 @#@@@#*IF [P11),1] = 6 @B@@@#*IF [P11),1,SV )@@G@@6,1] < 1 OR [P11),1,6,1] > 9 @F@@@##MSG,N SGS ERROR: NO. OF COPIES SW )@@G@@ON PARAM (P11) OUT OF RANGE @]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE SX )@@G@@@F@@@##MSG,N SGS ERROR: PARAM (P11) HAS INCORRECT NO. OF FIELDS SY )@@G@@@]@@@#*SET ERROR @[@@@#*END @[@@@#*ELSE @B@@@##MSG,N SGS ERROR: PASZ )@@G@@RAM (P11) MISSING @]@@@#*SET ERROR @[@@@#*END @[@@@#*. @A@@@#*. HTA )@@G@@15515 PART 3: GENERATE JCL @[@@@#*. @#@@@#*IF ERROR IS SET @B@@@#TB )@@G@@#MSG,N RUN ABORTED DUE TO SGS ERROR @^@@@##BL RUN,ABORT TC )@@G@@@[@@@##FIN @[@@@#*ELSE @#@@@#*IF RECOV IS CLEAR@^@@@##BL INIT,STTD )@@G@@ART @^@@@##MSG INITIAL START@B@@@##QUAL H155-JA-[P2),1,6,1]TE )@@G@@[P2),1,4,1] @#@@@##ASG,AX *CTCF. @[@@@##END @^@@@##ASG,AX *DE-FILTF )@@G@@E. @[@@@##END @ @@@##ASG,AX *MTH-ACNT-SUM. @[@@@##END @^@@@#TG )@@G@@#ASG,AX *KP-CARDS. @[@@@##END @^@@@A#ASG,AX *QUIP-CARDS. @ @@@#TH )@@G@@#CYCLE,C *UTILIZ-RPT.,0 @[@@@##END @ @@@##CAT,P *UTILIZ-RPT.,TI )@@G@@F @[@@@##END @^@@@##ASG,AX *UTILIZ-RPT. @[@@@##END @ @@@##CYCLETJ )@@G@@,C *MTH-COST-SUM.,0 @[@@@##END @A@@@##CAT,P *MTH-COST-SUM.,F///TK )@@G@@500 @[@@@##END @ @@@##ASG,AX *MTH-COST-SUM. @[@@@##END @#@@@#TL )@@G@@*IF SEL1 IS SET @D@@@##ASG,AX H155-JA-[P4A),1,8,1][P4A),1,6,1]*YTD-TM )@@G@@ACNT. @[@@@##END @G@@@##USE OLD-YTD-ACNT.,H155-JA-[P4A),1,8,1][P4TN )@@G@@A),1,6,1]*YTD-ACNT. @[@@@#*END @^@@@##CYCLE,C *YTD-ACNT.,0 @[@@@#TO )@@G@@#END @ @B@##CAT,P *YTD-ACNT.,F///1000@ @@@B#CAT,P *YTD-ACNT.,F/TP )@@G@@//1500@[@@@##END @^@@@##ASG,AX *YTD-ACNT. @[@@@##END @A@@@##USE TQ )@@G@@ NEW-YTD-ACNT.,*YTD-ACNT. @^@@@##ASG,AX *SCS-SUMMARY.@[@@@##END TR )@@G@@@^@@@##XQT H155.H1551060@]@@@##PMD,AELP @^@@@##FREE *UTILIZTS )@@G@@-RPT. @B@@@##SYM *UTILIZ-RPT.,[P5),1,6,1],PR @^@@@##FREE *TT )@@G@@DE-FILE. @ @@@##FREE *MTH-ACNT-SUM. @^@@@##FREE *KP-CARTU )@@G@@DS. @^@@@##FREE NEW-YTD-ACNT.@^@@@##FREE *SCS-SUMMARY.@#@@@#TV )@@G@@*IF SEL1 IS SET @^@@@##FREE OLD-YTD-ACNT.@[@@@#*END @ @@@##BL TW )@@G@@ CHECK,POINT,CP1 @ @@@##MSG CHECK-POINT CP1 @^@@@##ASG,ATX )@@G@@X *TABLE-JA. @[@@@##END @A@@@##USE TABLEDISC-JA.,*TABLE-JA. TY )@@G@@@ @@@##ASG,AX *BILL-ADJ-CDS. @[@@@##END @ @@@##CYCLE,C *DP-SRVTZ )@@G@@S-BILL.,0 @[@@@##END @ @@@##CAT,P *DP-SRVS-BILL.,F @[@@@##END UA )@@G@@@ @@@##ASG,AX *DP-SRVS-BILL. @[@@@##END @ @@@##CYCLE,C *DP-SRVUB )@@G@@S-SUM.,0 @[@@@##END @A@ @##CAT,P *DP-SRVS-SUM.,F///300 @A@@@ UC )@@G@@#CAT,P *DP-SRVS-SUM.,F///1000 @[@@@##END @^@@@##ASG,AX *DP-SRVUD )@@G@@S-SUM.@[@@@##END @#@@@#*IF SEL2 IS SET @E@@@##ASG,AX H155-JA-[P6A)UE )@@G@@,1,9,1][P6A),1,7,1]*YTD-ACNT-SUM. @[@@@##END @G@@@##USE OLD-YTDUF )@@G@@-SUM.,H155-JA-[P6A),1,9,1][P6A),1,7,1]*YTD-ACNT-SUM. @[@@@#*END @ @@@#UG )@@G@@#CYCLE,C *YTD-ACNT-SUM.,0 @[@@@##END @A@@@##CAT,P *YTD-ACNT-SUMUH )@@G@@.,F///500 @[@@@##END @ @@@##ASG,AX *YTD-ACNT-SUM. @[@@@##END UI )@@G@@@B@@@##USE NEW-YTD-SUM.,*YTD-ACNT-SUM. @^@@@##XQT H155.H1UJ )@@G@@551070@^@@@A#ADD,EP *QUIP-CARDS. @^@@@A#FREE *QUIP-CARDS. @ @@@#UK )@@G@@#FREE *DP-SRVS-BILL. @B@@@##SYM *DP-SRVS-BILL.,[P8),1,7,1UL )@@G@@],PR @^@@@##FREE *DP-SRVS-SUM.@B@@@##SYM *DP-SRVS-SUM.,[P7),UM )@@G@@1,7,1],PR @ @@@##FREE *BILL-ADJ-CDS. @ @@@##FREE *MTH-COUN )@@G@@ST-SUM. @#@@@#*IF SEL2 IS SET @^@@@##FREE OLD-YTD-SUM. @[@@@#UO )@@G@@*END @ @@@##BL CHECK,POINT,CP2 @ @@@##MSG CHECK-POINT CUP )@@G@@P2 @ @@@##CYCLE,C *MTH-DP-RPT.,0 @[@@@##END @A@@@##CAT,P *UQ )@@G@@MTH-DP-RPT.,F///300 @[@@@##END @^@@@##ASG,AX *MTH-DP-RPT. @[@@@#UR )@@G@@#END @ @@@##CYCLE,C *YTD-DP-RPT.,0 @[@@@##END @A@@@##CAT,P *US )@@G@@YTD-DP-RPT.,F///300 @[@@@##END @^@@@##ASG,AX *YTD-DP-RPT. @[@@@#UT )@@G@@#END @^@@@##XQT H155.H1551080@ @@@##FREE *YTD-ACNT-SUM. UU )@@G@@@^@@@##FREE *MTH-DP-RPT. @B@@@##SYM *MTH-DP-RPT.,[P9),1,6,1],UV )@@G@@PR @^@@@##FREE *YTD-DP-RPT. @B@@@##SYM *YTD-DP-RPT.,[P10),UW )@@G@@1,6,1],PR @#@@@##FREE *CTCF. @ @@@##BL CHECK,POINT,CP3 UX )@@G@@@ @@@##MSG CHECK-POINT CP3 @ @@@##CYCLE,C *DP-LCH-LIST.,0 UY )@@G@@@[@@@##END @ @@@##CAT,P *DP-LCH-LIST.,F @[@@@##END @^@@@##ASG,AUZ )@@G@@X *DP-LCH-LIST.@[@@@##END @^@@@##XQT H155.H1551090@^@@@##FREE VA )@@G@@ *DP-LCH-LIST.@B@@@##SYM *DP-LCH-LIST.,[P11),1,6,1],PR @^@@@#VB )@@G@@#FREE TABLEDISC-JA.@^@@@##BL NORMAL,FINISH@^@@@##MSG NVC )@@G@@ORMAL FINISH@[@@@#*ELSE @#@@@#*IF CKPT1 IS SET @ @@@##BL RESTRT,VD )@@G@@FROM,CP1 @ @@@##MSG RESTART FROM CP1 @B@@@##QUAL H155-JAVE )@@G@@-[P2),1,6,1][P2),1,4,1] @^@@@A#ASG,AX *QUIP-CARDS. @#@@@##ASG,AX *VF )@@G@@CTCF. @[@@@##END @ @@@##ASG,AX *MTH-COST-SUM. @[@@@##END @^@@@#VG )@@G@@#ASG,AX *TABLE-JA. @[@@@##END @A@@@##USE TABLEDISC-JA.,*TABLVH )@@G@@E-JA. @ @@@##ASG,AX *BILL-ADJ-CDS. @[@@@##END @ @@@##CYCLE,C *VI )@@G@@DP-SRVS-BILL.,0 @[@@@##END @ @@@##CAT,P *DP-SRVS-BILL.,F @[@@@#VJ )@@G@@#END @ @@@##ASG,AX *DP-SRVS-BILL. @[@@@##END @ @@@##CYCLE,C *VK )@@G@@DP-SRVS-SUM.,0 @[@@@##END @A@ @##CAT,P *DP-SRVS-SUM.,F///300 VL )@@G@@@A@@@ #CAT,P *DP-SRVS-SUM.,F///1000 @[@@@##END @^@@@##ASG,AX *VM )@@G@@DP-SRVS-SUM.@[@@@##END @#@@@#*IF SEL2 IS SET @E@@@##ASG,AX H155-JAVN )@@G@@-[P6A),1,9,1][P6A),1,7,1]*YTD-ACNT-SUM. @[@@@##END @G@@@##USE OVO )@@G@@LD-YTD-SUM.,H155-JA-[P6A),1,9,1][P6A),1,7,1]*YTD-ACNT-SUM. @[@@@#*END VP )@@G@@@ @@@##CYCLE,C *YTD-ACNT-SUM.,0 @[@@@##END @A@@@##CAT,P *YTD-ACVQ )@@G@@NT-SUM.,F///500 @[@@@##END @ @@@##ASG,AX *YTD-ACNT-SUM. @[@@@#VR )@@G@@#END @B@@@##USE NEW-YTD-SUM.,*YTD-ACNT-SUM. @^@@@##XQT HVS )@@G@@155.H1551070@^@@@A#ADD,EP *QUIP-CARDS. @^@@@A#FREE *QUIP-CARDS. VT )@@G@@@ @@@##FREE *DP-SRVS-BILL. @B@@@##SYM *DP-SRVS-BILL.,[P8)VU )@@G@@,1,7,1],PR @^@@@##FREE *DP-SRVS-SUM.@B@@@##SYM *DP-SRVS-SUM.VV )@@G@@,[P7),1,7,1],PR @ @@@##FREE *BILL-ADJ-CDS. @ @@@##FREE *VW )@@G@@MTH-COST-SUM. @#@@@#*IF SEL2 IS SET @^@@@##FREE OLD-YTD-SUM. VX )@@G@@@[@@@#*END @ @@@##BL CHECK,POINT,CP2 @ @@@##MSG CHECK-PVY )@@G@@OINT CP2 @ @@@##CYCLE,C *MTH-DP-RPT.,0 @[@@@##END @A@@@##CAT,PVZ )@@G@@ *MTH-DP-RPT.,F///300 @[@@@##END @^@@@##ASG,AX *MTH-DP-RPT. WA )@@G@@@[@@@##END @ @@@##CYCLE,C *YTD-DP-RPT.,0 @[@@@##END @A@@@##CAT,PWB )@@G@@ *YTD-DP-RPT.,F///300 @[@@@##END @^@@@##ASG,AX *YTD-DP-RPT. WC )@@G@@@[@@@##END @^@@@##XQT H155.H1551080@ @@@##FREE *YTD-ACNT-SUMWD )@@G@@. @^@@@##FREE *MTH-DP-RPT. @B@@@##SYM *MTH-DP-RPT.,[P9),1WE )@@G@@,6,1],PR @^@@@##FREE *YTD-DP-RPT. @B@@@##SYM *YTD-DP-RPT.,WF )@@G@@[P10),1,6,1],PR @#@@@##FREE *CTCF. @ @@@##BL CHECK,POINT,CWG )@@G@@P3 @ @@@##MSG CHECK-POINT CP3 @ @@@##CYCLE,C *DP-LCH-LIST.WH )@@G@@,0 @[@@@##END @ @@@##CAT,P *DP-LCH-LIST.,F @[@@@##END @^@@@#WI )@@G@@#ASG,AX *DP-LCH-LIST.@[@@@##END @^@@@##XQT H155.H1551090@^@@@#WJ )@@G@@#FREE *DP-LCH-LIST.@B@@@##SYM *DP-LCH-LIST.,[P11),1,6,1],PR WK )@@G@@@^@@@##FREE TABLEDISC-JA.@^@@@##BL NORMAL,FINISH@^@@@##MSG WL )@@G@@ NORMAL FINISH@[@@@#*END @#@@@#*IF CKPT2 IS SET @ @@@##BL RWM )@@G@@ESTRT,FROM,CP2 @ @@@##MSG RESTART FROM CP2 @B@@@##QUAL HWN )@@G@@155-JA-[P2),1,6,1][P2),1,4,1] @#@@@##ASG,AX *CTCF. @[@@@##END @ @@@#WO )@@G@@#ASG,AX *YTD-ACNT-SUM. @[@@@##END @^@@@##ASG,AX *TABLE-JA. WP )@@G@@@[@@@##END @A@@@##USE TABLEDISC-JA.,*TABLE-JA. @ @@@##CYCLE,C *WQ )@@G@@MTH-DP-RPT.,0 @[@@@##END @A@@@##CAT,P *MTH-DP-RPT.,F///300 WR )@@G@@@[@@@##END @^@@@##ASG,AX *MTH-DP-RPT. @[@@@##END @ @@@##CYCLE,C *WS )@@G@@YTD-DP-RPT.,0 @[@@@##END @A@@@##CAT,P *YTD-DP-RPT.,F///300 WT )@@G@@@[@@@##END @^@@@##ASG,AX *YTD-DP-RPT. @[@@@##END @^@@@##XQT HWU )@@G@@155.H1551080@ @@@##FREE *YTD-ACNT-SUM. @^@@@##FREE *MTH-DPWV )@@G@@-RPT. @B@@@##SYM *MTH-DP-RPT.,[P9),1,6,1],PR @^@@@##FREE *WW )@@G@@YTD-DP-RPT. @B@@@##SYM *YTD-DP-RPT.,[P10),1,6,1],PR @#@@@##FREE WX )@@G@@ *CTCF. @ @@@##BL CHECK,POINT,CP3 @ @@@##MSG CHECK-PWY )@@G@@OINT CP3 @ @@@##CYCLE,C *DP-LCH-LIST.,0 @[@@@##END @ @@@##CAT,PWZ )@@G@@ *DP-LCH-LIST.,F @[@@@##END @^@@@##ASG,AX *DP-LCH-LIST.@[@@@#XA )@@G@@#END @^@@@##XQT H155.H1551090@^@@@##FREE *DP-LCH-LIST.@B@@@#XB )@@G@@#SYM *DP-LCH-LIST.,[P11),1,6,1],PR @^@@@##FREE TABLEDISC-JA.XC )@@G@@@^@@@##BL NORMAL,FINISH@^@@@##MSG NORMAL FINISH@[@@@#*END XD )@@G@@@#@@@#*IF CKPT3 IS SET @ @@@##BL RESTRT,FROM,CP3 @ @@@##MSG XE )@@G@@ RESTART FROM CP3 @B@@@##QUAL H155-JA-[P2),1,6,1][P2),1,4,1] XF )@@G@@@^@@@##ASG,AX *TABLE-JA. @[@@@##END @A@@@##USE TABLEDISC-JA.XG )@@G@@,*TABLE-JA. @ @@@##BL CHECK,POINT,CP3 @ @@@##MSG CHECK-PXH )@@G@@OINT CP3 @ @@@##CYCLE,C *DP-LCH-LIST.,0 @[@@@##END @ @@@##CAT,PXI )@@G@@ *DP-LCH-LIST.,F @[@@@##END @^@@@##ASG,AX *DP-LCH-LIST.@[@@@#XJ )@@G@@#END @^@@@##XQT H155.H1551090@]@@@#@PMD,PALE @^@@@##FREE *XK )@@G@@DP-LCH-LIST.@B@@@##SYM *DP-LCH-LIST.,[P11),1,6,1],PR @^@@@##FREE XL )@@G@@ TABLEDISC-JA.@^@@@##BL NORMAL,FINISH@^@@@##MSG NORMAL XM )@@G@@FINISH@[@@@#*END @[@@@#*END @[@@@#*END ___@@#*END @[@@@#*ELSE @B@@@#XN )@@G@@#MSG,N SGS ERROR: PARAM (P6A) MISSING @]@@@#*SET ERROR @[@@@#*END XO )@@G@@@[@@@#*END @[@@@#*. @[@@@#*. @[@@@#*. *[S@@@*SDFF*@A@@@@*. PROXP )@@G@@GRAM NAME: H15516 (LEV 1R1) @ @@@@*. AUTHOR: D. E. RAGSDALE @ @@@@XQ )@@G@@*. DATE WRITTEN: MAY 01, 1979 @C@@@@*. INSTALLATION: TX DEPT OF HEALTH, XR )@@G@@AUSTIN, TX @F@@@@*. PROGRAM FUNC: SSG RUNSTREAM DRIVER FOR JOB ACCOUNTIXS )@@G@@NG SYSTEM. @[@@@@*. @#@@@@*. SGS PARAMELTER @[@@@@*. @F@@@@*. P1)XT )@@G@@ ACCOUNTING FILES TO BE BACKED UP ARE FOR: MONTH MM YEAR YY @[@@@@*. XU )@@G@@@[@@@@*. @]@@@@*CLEAR ERROR@[@@@@*. @ @@@@*. CHECK PARAMETER SYNTXV )@@G@@AX @[@@@@*. @#@@@@*IF [P1)] > 0 @#@@@@*IF [P1),1] = 12 @B@@@@XW )@@G@@*IF [P1),1,10,1] < 01 OR [P1),1,10,1] > 12@F@@@@#MSG,N SGS ERROR: MOXX )@@G@@NTH SPECIFIED ON PARAM (P1) OUT OF RANGE @]@@@@*SET ERROR @[@@@@*END XY )@@G@@@B@@@@*IF [P1),1,12,1] < 77 OR [P1),1,12,1] > 99@F@@@@#MSG,N SGS ERRXZ )@@G@@OR: YEAR SPECIFIED ON PARAM (P1) OUT OF RANGE @]@@@@*SET ERROR @[@@@@YA )@@G@@*END @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: PARAM (P1) HAS INCORRECT NYB )@@G@@O. OF FIELDS@]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @B@@@@#MSG,N SYC )@@G@@GS ERROR: PARAM (P1) MISSING @]@@@@*SET ERROR @[@@@@*END @[@@@@*. YD )@@G@@@#@@@@*. GENERATE JCL @[@@@@*. @#@@@@*IF ERROR IS SET @B@@@@#MSG,NYE )@@G@@ RUN ABORTED DUE TO SGS ERROR @^@@@@#MSG RUN ABORT @[@@@@YF )@@G@@*ELSE @^@@@@#ASG,TN IBACKUP.,T @ @@@@#ASG,TNF OBACKUP.,T,,400 YG )@@G@@@]@@@@#SECURE,IL @D@@@@ SAVE ALL QUALIFIER H155-JA-[P1),1,12,1][P1),1,1YH )@@G@@0,1] @[@@@@#EOF @[@@@@*END ___AC(^[CCDN^[DD1#D9MEL CTO^[ID8,^[JC0)C1DYI )@@G@@C(GC-N@#@@@@ LNC(O^[ ELMD9M^@)@[@@@@ L D1^@]@@@@ L D-NC*)^@)@E@@@@^THETBYJ )@@G@@ -I^@)^@)^[NC9N^[ ELMD9MBK)E[[EL[D*) [KAC(^[HDDN*[S@@@*SDFF*@A@@@] YK )@@G@@ IDENTIFICATION DIVISION. @ @@@] PROGRAM-ID. 'H1550020'.@^@@@]YL )@@G@@ AUTHOR. R B RUDY.@A@@@] DATE-WRITTEN. 25 APRIL 1978. @^@@@]YM )@@G@@ DATE-COMPILED. @ @@@] *REMARKS. ASCII ANS-1974@F@@@] YN )@@G@@* THIS PROGRAM SELECTS THE SYSTEM LOG RECORDS NEEDED FOR @G@@@] YO )@@G@@* ACCOUNTING AND SYSTEM STATUS FILE CREATION, AND SELECTS @F@@@]YP )@@G@@ * REFORMATS INTO ACCOUNT-NO, RUN-ID, DATE/TIME @G@@@]YQ )@@G@@ * ORDER THE LOG RECORDS USED TO GENERATE THE ACCOUNTING YR )@@G@@@E@@@] * FILE RECORDS TO BE SORTED FOR H1550030. @G@@@]YS )@@G@@ * TWO PROGRAMS ARE OPTIONALLY PRINTED; A LISTING OF THE YT )@@G@@@G@@@] * OPERATOR ALLOWED RUNS, AND THE ACCOUNT-FILE REFEREYU )@@G@@NCE @G@@@] * REPORT WHICH DETAILS ANY ACCESSES OF ONE ACCYV )@@G@@OUNT GROUP @A@@@] * BY ANOTHER GROUP. @]@@@] * YW )@@G@@@ @@@] * CHANGE 13 MAY 80 @C@@@] * CONVERT TO ANS 1974YX )@@G@@ COBOL (ACOB4). @]@@@] * @C@@@] * CHANGE #2 08/19/8YY )@@G@@0 D. HEROLD @E@@@] * 1. MODIFY TO ACCEPT SYSTEM LOGS FROM YZ )@@G@@1100/60. @C@@@] * (A) TYPE 4 NO LONGER HAS CPU. @B@@@]ZA )@@G@@ * (B) TYPE 17 CPU MOVED. @A@@@] * 2. REMOVE UP-ZB )@@G@@TIME CODE. @]@@@] * @ @@@] ENVIRONMENT DIVISION. @ @@@]ZC )@@G@@ CONFIGURATION SECTION. @ @@@] COPY COMPUTER-NAMES. @^@@@]ZD )@@G@@ SPECIAL-NAMES. @ @@@] COPY DEVICE-NAMES. @ @@@] ZE )@@G@@ INPUT-OUTPUT SECTION. @^@@@] FILE-CONTROL. @D@@@] SZF )@@G@@ELECT QUIP-CARDS ASSIGN TO CARD-READER. @F@@@] SELECT LOG-CAZG )@@G@@RD ASSIGN TO CARD-PUNCH INT-ACCT-VOL. @F@ @] SELECT DISCOUZH )@@G@@T2 ASSIGN TO MASS-STORAGE INTERIM-ACCT. @G@@@ SELECT INTERIZI )@@G@@M-FILE ASSIGN TO MASS-STORAGE INTERIM-ACCT. @D@@@] SELECT ZJ )@@G@@AFPRINT ASSIGN TO PRINTER AFPRINTER.@D@@@] SELECT OPPRINT ASSIZK )@@G@@GN TO PRINTER OPPRINTER.@]@@@] / @^@@@] DATA DIVISION. ZL )@@G@@@^@@@] FILE SECTION. @@@@@]@^@@@] FD QUIP-CARDS @A@@@]ZM )@@G@@ LABEL RECORDS OMITTED. @@@@@]@^@@@] 01 QUIP-CARD. ZN )@@G@@@D@@@] 03 QUIP-COMMAND PIC X(15).@D@@@] ZO )@@G@@ 03 QUIP-ACCNT PIC X(12).@D@@@] 03 FILLZP )@@G@@ER PIC X(53).@@@@@]@^@ @] FD DISCOUT2 ZQ )@@G@@@^@@@ FD INTERIM-FILE @F@@@] LABEL RECORDS ARE STANDARZR )@@G@@D BLOCK CONTAINS 6 RECORDS @F@@@] DATA RECORD IS ITERIM REZS )@@G@@CORDING MODE IS INTERNAL. @@@@@]@E@@@] 01 ITERIM USAGE IS DIZT )@@G@@SPLAY-1 PIC X(204). @@@@@]@#@@@] FD AFPRINT@E@@@] ZU )@@G@@ LABEL RECORDS ARE OMITTED DATA RECORD IS AFPRT. @@@@@]@E@@@] ZV )@@G@@ 01 AFPRT PIC X(132). @@@@@]@#@@@] ZW )@@G@@ FD OPPRINT@E@@@] LABEL RECORDS ARE OMITTED DATA RECORD IS OPZX )@@G@@PRT. @@@@@]@E@@@] 01 OPPRT PIC X(1ZY )@@G@@32). @@@@@]@^@@@] FD LOG-CARD @E@@@] LABEL RECORDSZZ )@@G@@ ARE OMITTED DATA RECORD IS L-CARD. @@@@@]@#@@@] 01 L-CARD.@D@@@]AA )@@G@@ 02 L-TITLE PIC X(9). @D@@@] 0AB )@@G@@2 LOG-V PIC 9(6). @D@@@] 02 FILLER AC )@@G@@ PIC X(65). @]@@@] / @A@@@] WORKING-STOAD )@@G@@RAGE SECTION. @I@@@] 77 DIFF VALUE ZERO PAE )@@G@@IC S9(10) COMP-4. TIMEDIFF@I@@@] 77 Q VALUE ZERO AF )@@G@@ PIC S99. SUBSCRPT @I@@@] 77 QAG )@@G@@1 VALUE ZERO PIC S9(10) COMP-4. SUBSCRPTAH )@@G@@@I@@@] 77 Q2 VALUE ZERO PIC S9(10) COMP-4. AI )@@G@@ SUBSCRPT@I@@@] 77 Q3 VALUE ZERO PAJ )@@G@@IC S9(10) COMP-4. SUBSCRPT@I@@@] 77 Q4 VALUE 1 AK )@@G@@ PIC S99. SUBSCRPT @F@@@] 77 DAL )@@G@@ATE-AREA VALUE SPACE PIC X(6) DISPLAY-1.@G@@@] 77 DAM )@@G@@ATE-EIGHT VALUE SPACE PIC X(8) DISPLAY-1. @E@@@] AN )@@G@@ 77 IND VALUE '1' PIC X DISPLAY-1. @E@@@] 77 SAO )@@G@@TATT VALUE 0 PIC 9(10) COMP-4. @E@@@] 77 INDX AP )@@G@@ VALUE ZERO PIC S9(10) COMP-4.@E@@@] 77 AFPG VAAQ )@@G@@LUE ZERO PIC S999. @E@@@] 77 OPPG VALUE ZEAR )@@G@@RO PIC S999. @F@@@] 77 CTR VALUE ZERO AS )@@G@@ PIC S9(10) COMP-4. @E@#@] 77 INC VALUE ZERO AT )@@G@@ PIC S9(10) COMP-4. @E@@@# 77 INC PIC 9(1AU )@@G@@0) COMP-4 VALUE 0.@F@@@] 77 LOG-VOL VALUE ZERO PAV )@@G@@IC S9(18) COMP-4. @E@@@] 77 STAT VALUE 0 PIC S9(10AW )@@G@@) COMP-4. @E@@@] 77 REC-V VALUE 0 PIC S9(10) COMPAX )@@G@@-4. @I@@@] 77 CKDEV9 VALUE 30 PIC S9(10) COAY )@@G@@MP-4. CMSDEVIC@E@@@] 77 DATE9 VALUE ZERO AZ )@@G@@ PIC 9(6). @D@@@] 77 T30-SW VALUE ZERO PBA )@@G@@IC S9.@E@@@] 77 NSA-SW VALUE ZERO PIC S99. BB )@@G@@@E@@@] 77 NSA-SW9 VALUE ZERO PIC S99. @E@@@]BC )@@G@@ 77 NSA-9 VALUE ZERO PIC S99. @D@@@] BD )@@G@@ 77 LOG-SW VALUE ZERO PIC S9.@E@@@] 77 BLNK VBE )@@G@@ALUE SPACE PIC X(132) DISP-1. @F@@@] 77 OP-CARD VALUEBF )@@G@@ '@ASG,CP OPPRINTER.,F///500 ' PIC X(80). @F@@@] 77 AF-CARD VALUEBG )@@G@@ '@ASG,CP AFPRINTER.,F///500 ' PIC X(80). @E@@@] 77 AF-FREE VALUEBH )@@G@@ '@FREE,C AFPRINTER. ' PIC X(80). @E@@@] 77 OP-FREE VALUE '@FREBI )@@G@@E,C OPPRINTER. ' PIC X(80). @E@@@] 77 AF-SYM VALUE '@SYM AFPRBJ )@@G@@INTER.,,PR ' PIC X(80). @E@@@] 77 OP-SYM VALUE '@SYM OPPRINTER.BK )@@G@@,,PR ' PIC X(80). @E@@@] 77 C-CARD USAGE IS DISPLAY-1 PBL )@@G@@IC X(80). @E@@@] 77 OP-LINES VALUE ZERO PIC S99BM )@@G@@. @E@@@] 77 AF-LINES VALUE ZERO PIC S99. BN )@@G@@@F@@@] 77 STD-ACCT VALUE '@@@@@@@@@@@@' PIC X(12) DISP-1. BO )@@G@@@F@@@] 77 INSTL VALUE 'INSTALLATION' PIC X(12) DISP-1. BP )@@G@@@E@@@] 77 PUBLIC VALUE 'PUBLIC ' PIC X(12) DISP-1. @E@@@]BQ )@@G@@ 77 UNIVAC VALUE 'UNIVAC ' PIC X(12) DISP-1. @D@@@] BR )@@G@@ 77 ASTR VALUE '*' PIC X DISP-1. @D@@@] 77 SLASH BS )@@G@@ VALUE '/' PIC X DISP-1. @D@#@] 77 M-S VALUE 'MSBBT )@@G@@EG ' PIC X(6) DISP-1. @D@#@] 77 T-A-P-E VALUE 'TAPBEG' PIC X(BU )@@G@@6) DISP-1. @C@@@] 77 R3-SW PIC 9 VALUE 0. @C@ @]BV )@@G@@ 77 P2 PIC 9(5) COMP. @C@@@ 77 GRAN-SUBW )@@G@@B PIC 9(5) COMP. @D@@@] 77 QUIP-CNT PIC 9BX )@@G@@(10) COMP VALUE 0.@D@@@] 77 LAST-QUIP-ACCNT PIC X(12) VALUE SBY )@@G@@PACES.@@@@@]@D@ @] 01 C-TIME PIC 9(10) COMP-4. BZ )@@G@@@C@@@ 01 C-TIME PIC 1(36). @C@@@] 01 CCA )@@G@@-TIME-X REDEFINES C-TIME DISP-1. @C@@@] 03 TIME-YY CB )@@G@@ PIC 1(6). @C@@@] 03 TIME-MM PIC 1(6). CC )@@G@@@C@@@] 03 TIME-DD PIC 1(6). @D@@@] 0CD )@@G@@3 TIME-SECS PIC 9(5) COMP-4. @@@@@]@C@@@] 01 SW-QUIPCE )@@G@@-EOF PIC X VALUE 'N'. @C@@@] 88 QUIP-EOF CF )@@G@@ VALUE 'Y'. @@@@@]@B@@@] 01 SW-VALID-ACCT-NO PIC X . @C@@@]CG )@@G@@ 88 VALID-ACCT-NO VALUE 'Y'. @]@@@] / @^@A@]CH )@@G@@ 01 INTERIM-1. @B@@@A 01 INTERIM-1 DISP-1.CI )@@G@@@ @@@] 02 INT-RCD-1. @G@#@] 03 LOG-ENTRY-TYPCJ )@@G@@E PIC 9 COMP-4. @E@ @# 03 LOG-ENTCK )@@G@@RY-TYPE PIC 9 COMP-4.@E@@@ 03 LOG-ENTRY-TYPCL )@@G@@E PIC 1(6). @H@#@] 03 NUM-WDS-IN-ENTRY CM )@@G@@ PIC S9 COMP-4. @F@@@# 03 NUM-WDSCN )@@G@@-IN-ENTRY PIC S9 COMP-4. @F@A@] 03 FILLER CO )@@G@@ PIC X(4) DISP-1. @E@@@A 03 FILLER CP )@@G@@ PIC X(4). @F@A@] 03 FILLER CQ )@@G@@ PIC X(144) DISP-1. @E@@@A 03 FILLER CR )@@G@@ PIC X(144). @E@@@] 03 DTIM CS )@@G@@ PIC 1(36). @B@@@] 03 D-T-IM REDEFINES DTIM. CT )@@G@@@E@@@] 04 DT PIC 1(18). @F@@@]CU )@@G@@ 04 TIM PIC 9(5) COMP-4. @F@@@]CV )@@G@@ 03 INT1-INC PIC 9(10) COMP-4. @F@A@]CW )@@G@@ 03 RUNID PIC X(6) DISP-1. @E@@@ACX )@@G@@ 03 RUNID PIC X(6). @ @ @] CY )@@G@@ 02 INT-SRT-1. @B@A@ 02 INT-SRT-1 DISP-1.CZ )@@G@@@ @@@A 02 INT-SRT-1. @C@@@] 03 SRT1-DATE DA )@@G@@ PIC 1(18). @E@ @] 03 FILLER PIC XDB )@@G@@(9) DISP-1. @D@A@ 03 FILLER PIC X(9) DISP-1. DC )@@G@@@C@@@A 03 FILLER PIC X(9). @D@A@] DD )@@G@@ 03 SRT1-ACCOUNT PIC X(12) DISP-1. @C@@@A 03 SRT1-ACDE )@@G@@COUNT PIC X(12). @D@A@] 03 SRT1-RUNID PIC X(6DF )@@G@@) DISP-1. @C@@@A 03 SRT1-RUNID PIC X(6). @C@@@]DG )@@G@@ 03 SRT1-DTIM PIC 1(36). @@@@@]@^@A@] 01 IDH )@@G@@NTERIM-2. @B@@@A 01 INTERIM-2 DISP-1.@ @@@] DI )@@G@@ 02 INT-RCD-2. @F@^@] 03 FILLER DJ )@@G@@ PIC X(152) DISP-1. @F@A@^ 03 FILLER DK )@@G@@ PIC X(156) DISP-1. @E@@@A 03 FILLER DL )@@G@@ PIC X(156). @E@@@] 03 INT2-INC PIC 9DM )@@G@@(10) COMP-4.@E@A@] 03 FILLER PIC X(6) DDN )@@G@@ISP-1.@D@@@A 03 FILLER PIC X(6) . @ @@@]DO )@@G@@ 02 INT-SRT-2. @D@A@] 03 FILLER PDP )@@G@@IC X(6) DISP-1. @C@@@A 03 FILLER PIC X(6). DQ )@@G@@@D@A@] 03 SRT2-DEVICE PIC X(6) DISP-1. @C@@@A DR )@@G@@ 03 SRT2-DEVICE PIC X(6). @D@A@] 03 SRT2-ACDS )@@G@@COUNT PIC X(12) DISP-1. @C@@@A 03 SRT2-ACCOUNT PDT )@@G@@IC X(12). @C@@@] 03 SRT2-DATE PIC 1(18). @D@A@]DU )@@G@@ 03 FILLER PIC X(3) DISP-1. @C@@@A DV )@@G@@ 03 FILLER PIC X(3). @D@A@] 03 SRT2-RUNID DW )@@G@@ PIC X(6) DISP-1. @C@@@A 03 SRT2-RUNID PIC X(6DX )@@G@@). @D@@@] 02 INT-SRT-2-OTHER REDEFINES INT-SRT-2. @D@A@]DY )@@G@@ 03 FILLER PIC X(18) DISP-1. @C@@@A DZ )@@G@@ 03 FILLER PIC X(18). @D@@@] 03 SRT2-TYPE EA )@@G@@ PIC 9(10) COMP-4. @D@A@] 03 FILLER PIC X(6EB )@@G@@) DISP-1. @C@@@A 03 FILLER PIC X(6). @D@A@]EC )@@G@@ 03 SRT2-RUNID2 PIC X(6) DISP-1. @C@@@A ED )@@G@@ 03 SRT2-RUNID2 PIC X(6). @]@@@] / @B@@@] 01 LEE )@@G@@OGRECORD USAGE IS DISPLAY-1.@D@@@] 02 LOG-REC OCCURS 64 EF )@@G@@ PIC X(168).@@@@@]@^@ @] 01 RECORD-1. @B@@@ 01 REG )@@G@@ECORD-1 DISP-1.@^@@@] 02 RCD-1. @C@ @] EH )@@G@@ 03 R1-ENTRY-TYPE PIC 9 COMP-4.@C@@@ 03 R1-ENEI )@@G@@TRY-TYPE PIC 1(6). @D@A@] 03 FILLER PIC X(5EJ )@@G@@) DISP-1. @C@@@A 03 FILLER PIC X(5). @B@A@]EK )@@G@@ 03 R1-MESSAGE DISP-1.@ @@@A 03 R1-MEEL )@@G@@SSAGE.@E@@@] 04 R1-ACCOUNT-CHANGE PIC XXX. EM )@@G@@@B@@@] 04 R1-ACCOUNT-NUMBER. @E@@@] EN )@@G@@ 05 R1-ACCOUNT-CHAR OCCURS 11 PIC X. @C@@@] 04 FEO )@@G@@ILLER PIC X(130). @C@@@] 03 R1-DTIM PIC 1(3EP )@@G@@6). @D@A@] 03 FILLER PIC X(6) DISP-1. @C@@@AEQ )@@G@@ 03 FILLER PIC X(6). @D@A@] 03 ER )@@G@@ R1-RUNID PIC X(6) DISP-1. @C@@@A 03 R1-RUNID ES )@@G@@ PIC X(6). @@@@@]@^@ @] 01 RECORD-3. @B@@@ 01 RET )@@G@@ECORD-3 DISP-1.@^@@@] 02 RCD-3. @C@A@] EU )@@G@@ 03 R3-ID PIC X(6) DISP-1. @B@@@A 03 R3-ID EV )@@G@@ PIC X(6). @D@A@] 03 R3-QUALIFIER PIC X(12) DISEW )@@G@@P-1. @C@@@A 03 R3-QUALIFIER PIC X(12). @D@A@] EX )@@G@@ 03 R3-FILENAME PIC X(12) DISP-1. @C@@@A 03 EY )@@G@@ R3-FILENAME PIC X(12). @D@A@] 03 R3-PROJECT PEZ )@@G@@IC X(12) DISP-1. @C@@@A 03 R3-PROJECT PIC X(12). FA )@@G@@@B@A@] 03 R3-ACCOUNT DISP-1.@ @@@A 03 FB )@@G@@ R3-ACCOUNT.@B@@@] 04 FILLER PIC X. @D@@@] FC )@@G@@ 04 R3-ACCOUNT-GROUP PIC X. @C@@@] FD )@@G@@ 04 FILLER PIC X(10). @C@A@] 03 FILLER PFE )@@G@@IC X DISP-1.@B@@@A 03 FILLER PIC X. @B@@@] FF )@@G@@ 03 R3-COND-WD PIC 1. @D@@@] 88 R3-POSITIOFG )@@G@@N-GRANULARITY VALUE 1. @B@@@] 03 FILLER PIC 1(5). FH )@@G@@@C@A@] 03 FILLER PIC X(2) DISP-1. @B@@@A FI )@@G@@ 03 FILLER PIC X(2). @D@@@] 03 R3-CYCLE PFJ )@@G@@IC 9(3) COMP-4. @B@@@] 03 R3-FREE-TIME PIC 1(36). @C@A@]FK )@@G@@ 03 FILLER PIC X(6) DISP-1. @B@@@A 03 FFL )@@G@@ILLER PIC X(6). @E@@@] 03 R3-ASG-DATE-TIME FM )@@G@@ PIC 1(36). @F@@@] 03 R3-GRAN-CNT OCCURS 8 TIMES PIC FN )@@G@@9(10) COMP-4. @C@A@] 03 FILLER PIC X(30) DISP-1. FO )@@G@@@B@@@A 03 FILLER PIC X(30). @C@@@] 03 RFP )@@G@@3-INC PIC 9(10) COMP-4. @C@A@] 03 R3-RUNID PIC X(FQ )@@G@@6) DISP-1. @B@@@A 03 R3-RUNID PIC X(6). @C@A@] FR )@@G@@ 02 SRT-REC3 PIC X(36) DISP-1. @B@@@A 02 SRT-REC3 FS )@@G@@ PIC X(36). @@@@@]@^@ @] 01 RECORD-4. @B@@@ 01 RFT )@@G@@ECORD-4 DISP-1.@^@@@] 02 RCD-4. @E@ @] FU )@@G@@ 03 R4-TYPE PIC 9 COMP-4.@E@@@ FV )@@G@@ 03 R4-TYPE PIC 1(6). @E@#@] 03 RFW )@@G@@4-NWIE PIC 9 COMP-4.@F@#@] 03 FILLER FX )@@G@@ PIC X(4) DISP-1. @F@A@# 03 FILLER FY )@@G@@ PIC X(5) DISP-1. @E@@@A 03 FILLER FZ )@@G@@ PIC X(5). @F@A@] 03 R4-PGM GA )@@G@@ PIC X(12) DISP-1. @E@@@A 03 R4-PGM GB )@@G@@ PIC X(12). @F@A@] 03 R4-VERSION GC )@@G@@ PIC X(12) DISP-1. @E@@@A 03 R4-VERSION GD )@@G@@ PIC X(12). @F@A@] 03 R4-TERM GE )@@G@@ PIC X(6) DISP-1. @E@@@A 03 R4-TERM GF )@@G@@ PIC X(6). @F@A@] 03 R4-PRIM-SRC PGG )@@G@@IC X(6) DISP-1. @E@@@A 03 R4-PRIM-SRC PGH )@@G@@IC X(6). @F@A@] 03 R4-EXTEND PIC X(6GI )@@G@@) DISP-1. @E@@@A 03 R4-EXTEND PIC X(6GJ )@@G@@). @E@@@] 03 R4-CARDS PIC S9(10) COMP-4.GK )@@G@@@ @@@] 03 R4-TRANSFERS.@F@@@] 04 R4-IOS OCGL )@@G@@CURS 10 PIC S9(10) COMP-4. @F@@@] 03 R4-SUPS GM )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R4-CBS GN )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R4-VOL-DELAY GO )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R4-RTL GP )@@G@@ PIC S9(10) COMP-4. @F@A@] 03 FILLER GQ )@@G@@ PIC X(6) DISP-1. @E@@@A 03 FILLER GR )@@G@@ PIC X(6). @E@@@] 03 R4-COND GS )@@G@@ PIC S9(10) COMP-4. @E@@@] 03 R4-DTIM GT )@@G@@ PIC 1(36). @F@A@] 03 FILLER PGU )@@G@@IC X(6) DISP-1. @E@@@A 03 FILLER PGV )@@G@@IC X(6). @F@A@] 03 R4-RUNID PIC X(6GW )@@G@@) DISP-1. @E@@@A 03 R4-RUNID PIC X(6GX )@@G@@). @ @@@] 02 R4-COUNTERS. @F@#@] 03 R4-CTRSGY )@@G@@ OCCURS 15 TIMES PIC 9(10) COMP-4. @F@@@# 03 R4-CTRSGZ )@@G@@ OCCURS 15 TIMES PIC S9(10) COMP-4. @D@ @] 03 R4-CPHA )@@G@@U PIC S9(10) COMP-4. @@@@@]@^@ @] 01 RECORD-5. @B@@@ HB )@@G@@ 01 RECORD-5 DISP-1.@^@@@] 02 RCD-5. HC )@@G@@@F@A@] 03 R5-ID PIC X(6) DISP-1. HD )@@G@@@E@@@A 03 R5-ID PIC X(6). @F@A@]HE )@@G@@ 03 R5-ACCT PIC X(12) DISP-1. @E@@@AHF )@@G@@ 03 R5-ACCT PIC X(12). @F@A@] HG )@@G@@ 03 R5-PROJ PIC X(12) DISP-1. @E@@@A HH )@@G@@ 03 R5-PROJ PIC X(12). @ @@@] HI )@@G@@ 03 R5-START-TIME.@C@@@] 05 TIME-MM PIC 1(6). HJ )@@G@@@C@@@] 05 TIME-DD PIC 1(6). @C@@@] HK )@@G@@ 05 TIME-YY PIC 1(6). @D@@@] 05 TIME-SECS HL )@@G@@ PIC 9(5) COMP-4. @ @@@] 03 R5-FIN-TIME. @C@@@] HM )@@G@@ 05 TIME-MM PIC 1(6). @C@@@] 05 TIME-HN )@@G@@DD PIC 1(6). @C@@@] 05 TIME-YY PIC 1(6HO )@@G@@). @D@@@] 05 TIME-SECS PIC 9(5) COMP-4. @F@@@]HP )@@G@@ 03 R5-CARDS-IN PIC 9(5) COMP-4. @F@@@]HQ )@@G@@ 03 R5-CARDS-OUT PIC 9(5) COMP-4. @E@A@]HR )@@G@@ 03 R5-PRIORITY PIC X DISP-1.@D@@@A HS )@@G@@ 03 R5-PRIORITY PIC X. @F@@@] 03 RHT )@@G@@5-PAGES PIC 9(8) COMP-4. @F@@@] 03 RHU )@@G@@5-ESUPS PIC 9(10) COMP-4. @F@@@] 03 RHV )@@G@@5-SUPS PIC S9(10) COMP-4. @F@@@] 03 RHW )@@G@@5-CBS PIC S9(10) COMP-4. @F@@@] 03 RHX )@@G@@5-12 PIC S9(10) COMP-4. @F@@@] 03 RHY )@@G@@5-13 PIC S9(10) COMP-4. @F@@@] 03 RHZ )@@G@@5-14 PIC S9(10) COMP-4. @F@@@] 03 RIA )@@G@@5-15 PIC S9(10) COMP-4. @F@@@] 03 RIB )@@G@@5-16 PIC S9(10) COMP-4. @F@@@] 03 RIC )@@G@@5-17 PIC S9(10) COMP-4. @F@@@] 03 RID )@@G@@5-18 PIC S9(10) COMP-4. @F@@@] 03 RIE )@@G@@5-19 PIC S9(10) COMP-4. @F@A@] 03 RIF )@@G@@5-USERID PIC X(12) DISP-1. @E@@@A 03 RIG )@@G@@5-USERID PIC X(12). @F@@@] 03 R5-22 IH )@@G@@ PIC 9(10) COMP-4. @F@@@] 03 R5-23 II )@@G@@ PIC 9(10) COMP-4. @F@@@] 03 R5-24 IJ )@@G@@ PIC 9(10) COMP-4. @E@@@] 03 R5-DTIMIK )@@G@@ PIC 1(36). @F@@@] 03 R5-INC IL )@@G@@ PIC 9(10) COMP-4. @F@A@] 03 R5-RUNID IM )@@G@@ PIC X(6) DISP-1. @E@@@A 03 R5-RUNID IN )@@G@@ PIC X(6). @F@A@] 02 SRT-REC-5 IO )@@G@@ PIC X(36) DISP-1. @E@@@A 02 SRT-REC-5 IP )@@G@@ PIC X(36). @@@@@]@^@ @] 01 RECORD-7. @B@@@ IQ )@@G@@ 01 RECORD-7 DISP-1.@^@@@] 02 RCD-7. @C@ @]IR )@@G@@ 03 R7-ENTRY-TYPE PIC 9 COMP-4.@C@@@ 03 IS )@@G@@ R7-ENTRY-TYPE PIC 1(6). @D@A@] 03 FILLER PIT )@@G@@IC X(5) DISP-1. @C@@@A 03 FILLER PIC X(5). IU )@@G@@@D@A@] 03 R7-MSG-SPACE1 PIC X(4) DISP-1. @C@@@A IV )@@G@@ 03 R7-MSG-SPACE1 PIC X(4). @C@A@] 03 R7-MSIW )@@G@@G-NBR PIC X DISP-1.@B@@@A 03 R7-MSG-NBR PIC X. IX )@@G@@@C@A@] 03 R7-MSG-SPACE2 PIC X DISP-1.@B@@@A IY )@@G@@ 03 R7-MSG-SPACE2 PIC X. @B@A@] 03 R7-MESSAGE DIZ )@@G@@ISP-1.@ @@@A 03 R7-MESSAGE.@E@@@] 04 RJA )@@G@@7-MSG-WORD-1 PIC X(6). @C@@@] 04 FILLER JB )@@G@@ PIC X(132). @E@A@] 03 R7-MESSAGE2 REDEFINES R7-MESSJC )@@G@@AGE DISP-1. @D@@@A 03 R7-MESSAGE2 REDEFINES R7-MESSAGE. JD )@@G@@@D@@@] 04 R7-MSG-CHAR OCCURS 138 PIC X. @C@@@] JE )@@G@@ 03 R7-DTIM PIC 1(36). @D@A@] 03 FILLEJF )@@G@@R PIC X(6) DISP-1. @C@@@A 03 FILLER PJG )@@G@@IC X(6). @D@A@] 03 R7-RUNID PIC X(6) DISP-1. JH )@@G@@@C@@@A 03 R7-RUNID PIC X(6). @@@@@]@^@ @] JI )@@G@@ 01 RECORD-9. @B@@@ 01 RECORD-9 DISP-1.@^@@@]JJ )@@G@@ 02 RCD-9. @E@ @] 03 R9-TYPE JK )@@G@@ PIC 9 COMP-4.@E@@@ 03 R9-TYPE PJL )@@G@@IC 1(6). @F@A@] 03 FILLER PIC X(5JM )@@G@@) DISP-1. @E@@@A 03 FILLER PIC X(5JN )@@G@@). @C@A@] 03 R9-OPTIONS PIC X DISP-1.@B@@@A JO )@@G@@ 03 R9-OPTIONS PIC X. @C@A@] 03 R9-PRIORITYJP )@@G@@ PIC X DISP-1.@B@@@A 03 R9-PRIORITY PIC X. @C@@@]JQ )@@G@@ 03 R9-START-TIME PIC 1(12). @E@@@] 03 JR )@@G@@ R9-DEADLINE-TIME PIC 1(12). @D@@@] 03 R9-PAJS )@@G@@GES PIC 9(5) COMP-4. @D@@@] 03 R9-CARDS-OUT PJT )@@G@@IC 9(5) COMP-4. @F@A@] 03 R9-NEW-RUNID PJU )@@G@@IC X(6) DISP-1. @E@@@A 03 R9-NEW-RUNID PJV )@@G@@IC X(6). @F@A@] 03 R9-OLD-RUNID PIC X(6JW )@@G@@) DISP-1. @E@@@A 03 R9-OLD-RUNID PIC X(6JX )@@G@@). @F@A@] 03 R9-PROJECT PIC X(12) DISJY )@@G@@P-1. @E@@@A 03 R9-PROJECT PIC X(12). JZ )@@G@@@F@A@] 03 R9-ACCOUNT PIC X(12) DISP-1. KA )@@G@@@E@@@A 03 R9-ACCOUNT PIC X(12). @D@A@]KB )@@G@@ 03 R9-SEQUENCE-ID PIC X(6) DISP-1. @C@@@A KC )@@G@@ 03 R9-SEQUENCE-ID PIC X(6). @C@@@] 03 R9-RUN-TYPEKD )@@G@@ PIC 9 COMP-4.@D@A@] 03 FILLER PIC X(2) DISPKE )@@G@@-1. @C@@@A 03 FILLER PIC X(2). @D@@@] KF )@@G@@ 03 R9-EST-SUPS PIC 9(5) COMP-4. @F@A@] 03 KG )@@G@@ R9-DEVICE PIC X(6) DISP-1. @E@@@A 03 KH )@@G@@ R9-DEVICE PIC X(6). @G@@@] 03 R9-DEKI )@@G@@VICE-NUM REDEFINES R9-DEVICE PIC 9(10) COMP-4. @D@A@] 03 KJ )@@G@@ R9-USERID PIC X(12) DISP-1. @C@@@A 03 R9-USERID KK )@@G@@ PIC X(12). @E@A@] 03 FILLER PIC X(KL )@@G@@6) DISP-1. @D@@@A 03 FILLER PIC X(6). KM )@@G@@@E@@@] 03 R9-BL-MINS PIC 9(10) COMP-4. @E@A@]KN )@@G@@ 03 FILLER PIC X(54) DISP-1. @D@@@A KO )@@G@@ 03 FILLER PIC X(54). @ @#@] 03 RKP )@@G@@9-DTIM. @D@A@# 03 R9-DTIM DISP-1.KQ )@@G@@@C@@@A 03 R9-DTIM . @E@@@] KR )@@G@@ 04 R9-DT PIC 1(18). @F@@@] 04 KS )@@G@@ R9-TIM PIC 9(5) COMP-4. @E@@@] 03 RKT )@@G@@9-DTIM-REDEF REDEFINES R9-DTIM PIC 1(36). @F@A@] 03 FILLER KU )@@G@@ PIC X(6) DISP-1. @E@@@A 03 FILLER KV )@@G@@ PIC X(6). @F@A@] 03 R9-RUNID KW )@@G@@ PIC X(6) DISP-1. @E@@@A 03 R9-RUNID KX )@@G@@ PIC X(6). @@@@@]@^@ @] 01 RECORD-10. @B@@@ KY )@@G@@ 01 RECORD-10 DISP-1.@^@@@] 02 RCD-10. KZ )@@G@@@C@ @] 03 R10-ENTRY-TYPE PIC 9 COMP-4.@C@@@ LA )@@G@@ 03 R10-ENTRY-TYPE PIC 1(6). @D@A@] 03 FILLER LB )@@G@@ PIC X(9) DISP-1. @C@@@A 03 FILLER PIC X(9LC )@@G@@). @C@A@] 03 R10-MSG-NBR PIC X DISP-1.@B@@@A LD )@@G@@ 03 R10-MSG-NBR PIC X. @C@A@] 03 FILLER LE )@@G@@ PIC X DISP-1.@B@@@A 03 FILLER PIC X. @B@A@]LF )@@G@@ 03 R10-MESSAGE DISP-1.@A@@@A 03 R10-MLG )@@G@@ESSAGE. @D@@@] 04 R10-MSG-CHAR OCCURS 120 PIC X. LH )@@G@@@D@A@] 03 R10-SITEID PIC X(6) DISP-1. @C@@@A LI )@@G@@ 03 R10-SITEID PIC X(6). @D@A@] 03 R10-ULJ )@@G@@SERID PIC X(12) DISP-1. @C@@@A 03 R10-USERID PLK )@@G@@IC X(12). @C@@@] 03 R10-DTIM PIC 1(36). @D@A@]LL )@@G@@ 03 FILLER PIC X(6) DISP-1. @C@@@A LM )@@G@@ 03 FILLER PIC X(6). @D@A@] 03 R10-RUNID LN )@@G@@ PIC X(6) DISP-1. @C@@@A 03 R10-RUNID PIC X(6LO )@@G@@). @@@@@]@^@ @] 01 RECORD-12. @B@@@ 01 RECORD-12 LP )@@G@@ DISP-1.@^@@@] 02 RCD-12. @C@ @] 03 LQ )@@G@@ R12-ENTRY-TYPE PIC 9 COMP-4.@C@@@ 03 R12-ENTRY-TYPE PLR )@@G@@IC 1(6). @D@A@] 03 FILLER PIC X(8) DISP-1. LS )@@G@@@C@@@A 03 FILLER PIC X(8). @D@A@] LT )@@G@@ 03 R12-KEYIN PIC XXX DISP-1. @C@@@A 03 R12-KLU )@@G@@EYIN PIC XXX. @B@A@] 03 R12-MESSAGE DISP-1.LV )@@G@@@A@@@A 03 R12-MESSAGE. @D@@@] 04 RLW )@@G@@12-MSG-CHAR OCCURS 120 PIC X. @F@A@] 03 R12-MESSAGE2 REDELX )@@G@@FINES R12-MESSAGE DISP-1. @D@@@A 03 R12-MESSAGE2 REDELY )@@G@@FINES R12-MESSAGE.@E@@@] 04 R12-MSG-WORD-1 PLZ )@@G@@IC X(6). @C@@@] 04 FILLER PIC X(114). @D@A@]MA )@@G@@ 03 R12-SITEID PIC X(6) DISP-1. @C@@@A MB )@@G@@ 03 R12-SITEID PIC X(6). @D@A@] 03 R12-USERID MC )@@G@@ PIC X(12) DISP-1. @C@@@A 03 R12-USERID PIC X(1MD )@@G@@2). @C@@@] 03 R12-DTIM PIC 1(36). @D@A@] ME )@@G@@ 03 FILLER PIC X(6) DISP-1. @C@@@A 03 MF )@@G@@ FILLER PIC X(6). @D@A@] 03 R12-EXEC8 PMG )@@G@@IC X(6) DISP-1. @C@@@A 03 R12-EXEC8 PIC X(6). MH )@@G@@@@@@@]@^@ @] 01 RECORD-14. @B@@@ 01 RECORD-14 MI )@@G@@ DISP-1.@^@@@] 02 RCD-14. @C@ @] 03 R14-EMJ )@@G@@NTRY-TYPE PIC 9 COMP-4.@C@@@ 03 R14-ENTRY-TYPE PIC 1(6MK )@@G@@). @D@A@] 03 FILLER PIC X(5) DISP-1. @C@@@AML )@@G@@ 03 FILLER PIC X(5). @D@@@] 03 MM )@@G@@ R14-EQUIP-CODE PIC 999 COMP-4. @C@@@] 03 R14-FILE-TYMN )@@G@@PE PIC 9 COMP-4.@F@@@] 03 R14-SPEC-FORM-MNTS PMO )@@G@@IC 9(5) COMP-4. @D@A@] 03 R14-SYMBIONT PIC X(6) DISPMP )@@G@@-1. @C@@@A 03 R14-SYMBIONT PIC X(6). @F@@@] MQ )@@G@@ 03 R14-LINE-CARD-COUNT PIC 9(10) COMP-4. @D@A@] MR )@@G@@ 03 R14-RUNID PIC X(6) DISP-1. @C@@@A 03 MS )@@G@@ R14-RUNID PIC X(6). @D@A@] 03 FILLER PMT )@@G@@IC X(12) DISP-1. @C@@@A 03 FILLER PIC X(12). MU )@@G@@@D@A@] 03 R14-USERID PIC X(12) DISP-1. @C@@@A MV )@@G@@ 03 R14-USERID PIC X(12). @D@A@] 03 FILLEMW )@@G@@R PIC X(96) DISP-1. @C@@@A 03 FILLER PMX )@@G@@IC X(96). @C@@@] 03 R14-DTIM PIC 1(36). @D@A@]MY )@@G@@ 03 FILLER PIC X(6) DISP-1. @C@@@A MZ )@@G@@ 03 FILLER PIC X(6). @D@A@] 03 R14-EXEC8 NA )@@G@@ PIC X(6) DISP-1. @C@@@A 03 R14-EXEC8 PIC X(6NB )@@G@@). @@@@@]@^@ @] 01 RECORD-15. @B@@@ 01 RECORD-15 NC )@@G@@ DISP-1.@^@@@] 02 RCD-15. @C@ @] 03 ND )@@G@@ R15-ENTRY-TYPE PIC 9 COMP-4.@C@@@ 03 R15-ENTRY-TYPE PNE )@@G@@IC 1(6). @D@A@] 03 FILLER PIC X(5) DISP-1. NF )@@G@@@C@@@A 03 FILLER PIC X(5). @D@@@] NG )@@G@@ 03 R15-EQUIP-CODE PIC 999 COMP-4. @C@@@] 03 R15-FNH )@@G@@ILE-TYPE PIC 9 COMP-4.@D@A@] 03 FILLER PIC X(3NI )@@G@@) DISP-1. @C@@@A 03 FILLER PIC X(3). @D@A@]NJ )@@G@@ 03 R15-SYMBIONT PIC X(6) DISP-1. @C@@@A NK )@@G@@ 03 R15-SYMBIONT PIC X(6). @D@A@] 03 FILLER NL )@@G@@ PIC X(6) DISP-1. @C@@@A 03 FILLER PIC X(6NM )@@G@@). @D@A@] 03 R15-RUNID PIC X(6) DISP-1. @C@@@ANN )@@G@@ 03 R15-RUNID PIC X(6). @D@A@] 03 NO )@@G@@ R15-ACCOUNT PIC X(12) DISP-1. @C@@@A 03 R15-ACCOUNTNP )@@G@@ PIC X(12). @D@A@] 03 R15-USERID PIC X(12) DISNQ )@@G@@P-1. @C@@@A 03 R15-USERID PIC X(12). @D@A@] NR )@@G@@ 03 FILLER PIC X(96) DISP-1. @C@@@A 03 NS )@@G@@ FILLER PIC X(96). @C@@@] 03 R15-DTIM PNT )@@G@@IC 1(36). @D@A@] 03 FILLER PIC X(6) DISP-1. NU )@@G@@@C@@@A 03 FILLER PIC X(6). @D@A@] NV )@@G@@ 03 R15-EXEC8 PIC X(6) DISP-1. @C@@@A 03 R15-ENW )@@G@@XEC8 PIC X(6). @@@@@]@^@ @] 01 RECORD-17. @B@@@ NX )@@G@@ 01 RECORD-17 DISP-1.@^@@@] 02 RCD-17. @F@A@]NY )@@G@@ 03 R17-ID PIC X(6) DISP-1. @E@@@ANZ )@@G@@ 03 R17-ID PIC X(6). @F@@@] OA )@@G@@ 03 R17-1 PIC S9(10) COMP-4. @F@@@] OB )@@G@@ 03 R17-2 PIC 9(10) COMP-4. @F@@@] OC )@@G@@ 03 R17-ERS PIC S9(10) COMP-4. @A@@@] OD )@@G@@ 03 R17-TRANSFERS. @F@@@] 04 R17IOS OCCURS 10 OE )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-VOLD OF )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-CPU OG )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-16 OH )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-17 OI )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-18 OJ )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-19 OK )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-20 OL )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-21 OM )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-22 ON )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-23 OO )@@G@@ PIC S9(10) COMP-4. @F@@@] 03 R17-24 OP )@@G@@ PIC S9(10) COMP-4. @E@@@] 03 R17-DTIM OQ )@@G@@ PIC 1(36). @F@@@] 03 R17-INC OR )@@G@@ PIC S9(10) COMP-4. @F@A@] 03 R17-RUNID OS )@@G@@ PIC X(6) DISP-1. @E@@@A 03 R17-RUNID OT )@@G@@ PIC X(6). @F@A@] 02 SRT-REC-17 POU )@@G@@IC X(36) DISP-1. @E@@@A 02 SRT-REC-17 POV )@@G@@IC X(36). @]@@@] / @^@@@] 01 TABLE-15. @B@@@] OW )@@G@@ 02 TBL-15 OCCURS 60 TIMES. @F@@@] 03 RUN15 OX )@@G@@ PIC X(6) DISP-1. @F@@@] 03 SYMB15 OY )@@G@@ PIC X(6) DISP-1. @F@@@] 03 ACT-15 OZ )@@G@@ PIC X(12) DISP-1. @E@@@] 03 DTIM15 PA )@@G@@ PIC 1(36). @D@@@] 03 DTIM15-REDEF REDEFIPB )@@G@@NES DTIM15 DISP-1.@E@@@] 04 DATE15 PPC )@@G@@IC 1(18). @F@@@] 04 TIME15 PIC 9(5PD )@@G@@) COMP-4. @F@#@] 03 CTR15 PIC S9(PE )@@G@@10) COMP-4. @F@@@# 03 CTR15 PIC 9(1PF )@@G@@0) COMP-4. @@@@@]@^@@@] 01 T3-ASG-TABLE.@E@@@] 03 ASG-PG )@@G@@TRACKS OCCURS 8 TIMES PIC 9(10) COMP-4. @@@@@]@ @@@] 01 T3-FREEPH )@@G@@-TABLE. @E@@@] 03 FREE-TRACKS OCCURS 8 TIMES PIC 9(10) COMPI )@@G@@P-4. @@@@@]@ @@@] 01 VALID-ACCNT-TABLE. @F@@@] 03 VTABPJ )@@G@@LE OCCURS 001 TO 999 TIMES DEPENDING ON QUIP-CNT@C@@@] ASCEPK )@@G@@NDING KEY IS VALID-ACCNT-NO @ @ @] INDEXED BY P3. @B@@@ PL )@@G@@ INDEXED BY ACCNT-INDEX. @E@@@] 05 VALID-APM )@@G@@CCNT-NO PIC X(12).@@@@@]@^@@@] 01 EQUIP-TBL. PN )@@G@@@A@@@] 02 R-T32 OCCURS 30. @E@@@] 03 R32-SSYPO )@@G@@S PIC 99 DISP-1. @E@@@] 03 R32-RNG1 PP )@@G@@ PIC 999 COMP-4. @E@@@] 03 R32-RNG2 PQ )@@G@@ PIC 999 COMP-4. @E@@@] 03 R32-DVCE PR )@@G@@PIC X(6) DISP-1. @E@@@] 03 R32-D-TYPE PIC X(PS )@@G@@6) DISP-1. @E@@@] 03 R32-DUAL PIC X DISPT )@@G@@P-1. @E@@@] 03 R32-CONT PIC X DISP-1. PU )@@G@@@E@@@] 03 R32-S-STAT PIC X DISP-1. @E@@@]PV )@@G@@ 03 R32-0-UNIT PIC X DISP-1. @B@@@] PW )@@G@@ 03 R32-UNITS OCCURS 50. @D@@@] 04 R32-U PX )@@G@@ PIC X DISP-1. @E@@@] 01 T32-SPACE REDEFINES EQUIP-TBL PY )@@G@@ USAGE IS DISP-1. @ @@@] 02 T32S OCCURS 30.@C@@@] PZ )@@G@@ 03 T32S1 PIC XX. @C@@@] 03 T32S2 QA )@@G@@ PIC X(70). @@@@@]@^@@@] 01 TIP-RCD. @E@@@] 0QB )@@G@@2 T-HES PIC X DISP-1.@E@@@] 02 T-CQC )@@G@@HAR PIC X DISP-1.@F@@@] 02 T-NBR QD )@@G@@ PIC XX DISP-1. @F@@@] 02 T-SPACE QE )@@G@@ PIC XX DISP-1. @@@@@]@^@@@] 01 NON-STDQF )@@G@@-ACCT.@B@@@] 02 N-S-A OCCURS 15 TIMES. @E@@@] QG )@@G@@ 03 NSANBR PIC X DISP-1.@F@@@] 03 NQH )@@G@@SARUNID PIC X(6) DISP-1. @E@@@] 03 NQI )@@G@@SATM-START PIC 1(36). @E@@@] 03 NSATM-FQJ )@@G@@IN PIC 1(36). @F@@@] 03 NSAACCTNO QK )@@G@@ PIC X(12) DISP-1. @F@@@] 03 NSAPROJ QL )@@G@@ PIC X(12) DISP-1. @F@@@] 03 NSADEVICE QM )@@G@@ PIC X(6) DISP-1. @F@@@] 03 NSAUSERID QN )@@G@@ PIC X(12) DISP-1. @F@@@] 03 NSACD-IN QO )@@G@@ PIC 9(6) DISP-1. @F@@@] 03 NSACD-OUT QP )@@G@@ PIC 9(6) DISP-1. @F@@@] 03 NSAPAGES QQ )@@G@@ PIC 9(6) DISP-1. @F@#@] 03 NSATOT QR )@@G@@ PIC 9(10) DISP-1. @F@@@# 03 NSATOT QS )@@G@@ PIC S9(10) DISP-1. @F@#@] 03 NSACPU QT )@@G@@ PIC 9(10) DISP-1. @F@@@# 03 NSACPU QU )@@G@@ PIC S9(10) DISP-1. @F@#@] 03 NSACB QV )@@G@@ PIC 9(10) DISP-1. @F@@@# 03 NSACB QW )@@G@@ PIC S9(10) DISP-1. @@@@@]@B@@@] 01 TDEVICES USAGQX )@@G@@E IS DISPLAY-1. @G@@@] 02 FILLER VALUE ' QY )@@G@@ ' PIC X(30). @G@@@] 02 FILLER VALUE 'SEMS01SEMS02SQZ )@@G@@EMS03SWIC01STBCR1' PIC X(30). @G@@@] 02 FILLER VALUE 'STBCR2SRA )@@G@@TBCR3STBCR4STBCR5SIH015' PIC X(30). @G@@@] 02 FILLER VALUE 'SRB )@@G@@IH016SIH017SIH001SDPU11SDPU12' PIC X(30). @G@@@] 02 FILLER VARC )@@G@@LUE 'SYSOFASYSOFBSYSOFCSANU11SANU12' PIC X(30). @G@@@] 02 FILRD )@@G@@LER VALUE 'SANU13SANU14 ' PIC X(30). @B@@@] 01 TRE )@@G@@DEVICE REDEFINES TDEVICES. @G@@@] 02 TDVCE OCCURS 30 TIMESRF )@@G@@ PICTURE X(6) DISP-1. @@@@@]@B@@@] 01 K2-HOLD USARG )@@G@@GE IS DISPLAY-1. @D@@@] 02 K2H OCCURS 9 PRH )@@G@@IC X. @@@@@]@C@@@] 01 CONVT PIC 9(10). @A@@@]RI )@@G@@ 01 CONVT9 REDEFINES CONVT. @E@@@] 02 CONVT1 RJ )@@G@@ PIC 9(5). @E@@@] 02 CONVT2 RK )@@G@@ PIC 9(5). @@@@@]@E@@@] 01 CNVT-BIN RL )@@G@@ PIC 9(10) COMP-4. @B@@@] 01 CNVT-BIN9 REDEFINES CNVT-BIN. RM )@@G@@@E@@@] 02 CBIN1 PIC 1(18). @E@@@]RN )@@G@@ 02 CBIN2 PIC 1(18). @@@@@]@E@@@]RO )@@G@@ 01 DATE-B PIC S9(6) DISP-1. @A@@@] RP )@@G@@ 01 DATE-BB REDEFINES DATE-B.@F@@@] 02 MYR RQ )@@G@@ PIC S99 DISP-1. @F@@@] 02 MMO RR )@@G@@ PIC S99 DISP-1. @F@@@] 02 MDA RS )@@G@@ PIC S99 DISP-1. @@@@@]@D@@@] 01 DATE-R RT )@@G@@ PIC 1(18). @A@@@] 01 DATE-RR REDEFINES DATE-R.@E@@@]RU )@@G@@ 02 RMO PIC 1(6). @E@@@] RV )@@G@@ 02 RDA PIC 1(6). @E@@@] 0RW )@@G@@2 RYR PIC 1(6). @@@@@]@B@@@] 01 WRX )@@G@@MESSAGE USAGE IS DISPLAY-1. @D@@@] 02 WMESSAGE-FLD1 RY )@@G@@ PIC X(12). @D@@@] 02 FILLER PIC X(1RZ )@@G@@26). @A@@@] 01 WMSGG REDEFINES WMESSAGE.@F@@@] 02 WMSSA )@@G@@G OCCURS 138 PIC X DISP-1. @@@@@]@B@@@] 01 ESB )@@G@@RR-TYPE USAGE IS DISPLAY-1. @D@@@] 02 ERRT OCCURS 3 TIMES SC )@@G@@ PIC X. @E@@@] 01 ERR-XX-X REDEFINES ERR-TYPE USAGE IS SD )@@G@@DISPLAY-1. @D@@@] 02 ERR-XX PIC XX. SE )@@G@@@D@@@] 02 ERR-X PIC X. @@@@@]@B@@@]SF )@@G@@ 01 ERR-MSG USAGE IS DISPLAY-1. @D@@@] 02 ERRM OCCUSG )@@G@@RS 6 TIMES PIC X. @]@@@] / @^@@@] COPY DEPT-HSH )@@G@@EADER.@@@@@]@^@@@] 01 AFLINE1. @G@@@] 02 FILLER VASI )@@G@@LUE 'RUNID RUN ACT-NO RUN-PROJ-ID' PIC X(31).@G@@@] 02 FILSJ )@@G@@LER VALUE ' DEVICE USER-ID FILE ACT-' PIC X(31).@G@@@] 0SK )@@G@@2 FILLER VALUE 'NO FILE PROJ-ID QUALIFIER-FIL' PIC X(31).@G@@@] SL )@@G@@ 02 FILLER VALUE 'ENAME DATE-TIME ASGN/' PIC X(31).@G@@@]SM )@@G@@ 02 FILLER VALUE 'FREED ' PIC X(7). SN )@@G@@@@@@@]@^@@@] 01 AFDATA1. @E@@@] 02 AF-RUNID VSO )@@G@@ALUE SPACES PIC X(6). @D@@@] 02 FILLER VALUE SSP )@@G@@PACES PIC X. @E@@@] 02 AF-R-ACT-NO VALUE SPACES PSQ )@@G@@IC X(12). @D@@@] 02 FILLER VALUE SPACES PIC X. SR )@@G@@@E@@@] 02 AF-R-PROJ VALUE SPACES PIC X(12). @D@@@]SS )@@G@@ 02 FILLER VALUE SPACES PIC X. @E@@@] 0ST )@@G@@2 AF-DEVICE VALUE SPACES PIC X(6). @D@@@] 02 FILSU )@@G@@LER VALUE SPACES PIC X. @E@@@] 02 AF-USER-ID VSV )@@G@@ALUE SPACES PIC X(12). @D@@@] 02 FILLER VALUE SSW )@@G@@PACES PIC X. @E@@@] 02 AF-F-ACT-NO VALUE SPACES PSX )@@G@@IC X(12). @D@@@] 02 FILLER VALUE SPACES PIC X. SY )@@G@@@E@@@] 02 AF-F-PROJ VALUE SPACES PIC X(12). @D@@@]SZ )@@G@@ 02 FILLER VALUE SPACES PIC X. @E@@@] 0TA )@@G@@2 AF-QUAL VALUE SPACES PIC X(12). @D@@@] 02 FILTB )@@G@@LER VALUE '*' PIC X. @E@@@] 02 AF-FILENM VTC )@@G@@ALUE SPACES PIC X(12). @D@@@] 02 FILLER VALUE 'TD )@@G@@(' PIC X. @E@@@] 02 AF-CYCLE VALUE ZEROS PTE )@@G@@IC 999. @D@@@] 02 FILLER VALUE ') ' PIC XX.TF )@@G@@@ @@@] 02 AF-DATE-ASGD. @D@@@] 03 AF-DATE-A1 TG )@@G@@ PIC XX.@D@@@] 03 AF-SL1 TH )@@G@@ PIC X. @D@@@] 03 AF-DATE-A2 PIC XX.TI )@@G@@@D@@@] 03 AF-SL2 PIC X. @D@@@] TJ )@@G@@ 03 AF-DATE-A3 PIC XX.@D@@@] 02 FILTK )@@G@@LER VALUE SPACES PIC X. @ @@@] 02 AF-TM-ASGD. TL )@@G@@@D@@@] 03 AF-TM-ASG1 PIC XX.@D@@@] TM )@@G@@ 03 AF-DOT1 PIC X. @D@@@] 03 ATN )@@G@@F-TM-ASG2 PIC XX.@D@@@] 03 AF-DOT2 TO )@@G@@ PIC X. @D@@@] 03 AF-TM-ASG3 TP )@@G@@ PIC XX.@D@@@] 02 FILLER VALUE SPACES PIC X. TQ )@@G@@@E@@@] 02 A-F PIC XXXX. @@@@@]TR )@@G@@@^@@@] 01 AFTITLE. @E@@@] 02 FILLER VALUE STS )@@G@@PACES PIC X(51). @G@@@] 02 FILLER VALUE 'ACCOUNT/FILE TT )@@G@@REFERENCE REPORT' PIC X(29). @E@@@] 02 FILLER VALUE STU )@@G@@PACES PIC X(52). @@@@@]@^@@@] 01 OPTITLE. @E@@@] TV )@@G@@ 02 FILLER VALUE SPACES PIC X(55). @F@@@] 0TW )@@G@@2 FILLER VALUE 'OPERATOR ALLOWED RUNS' PIC X(21). @E@@@] 0TX )@@G@@2 FILLER VALUE SPACES PIC X(56). @@@@@]@^@@@] 01 OTY )@@G@@PLINE1. @G@@@] 02 FILLER VALUE 'RUNID STARTED STOPPED TZ )@@G@@ACCNT-' PIC X(31).@G@@@] 02 FILLER VALUE 'NO PROJECT-ID UA )@@G@@ DEVICE USER' PIC X(31).@G@@@] 02 FILLER VALUE '-ID CDS-UB )@@G@@IN CDS-OUT PAGES ' PIC X(31).@G@@@] 02 FILLER VALUE 'TOT-SUPUC )@@G@@S CPU-SUPS CB-SUPS ' PIC X(31).@G@@@] 02 FILLER VALUE ' UD )@@G@@ ' PIC X(8). @@@@@]@^@@@] 01 OPDATA1UE )@@G@@. @E@@@] 02 OP-RUNID VALUE SPACES PIC X(6). UF )@@G@@@D@@@] 02 FILLER VALUE SPACES PIC X. @D@@@] UG )@@G@@ 02 OP-TM-ST1 VALUE SPACES PIC XX.@C@@@] 02 FILUH )@@G@@LER VALUE ':' PIC X. @D@@@] 02 OP-TM-ST2 UI )@@G@@ PIC XX.@D@@@] 02 FILLER VALUE ':' PUJ )@@G@@IC X. @D@@@] 02 OP-TM-ST3 PIC XX.@D@@@]UK )@@G@@ 02 FILLER VALUE SPACES PIC X. @D@@@] 0UL )@@G@@2 OP-TM-FIN1 VALUE SPACES PIC XX.@D@@@] 02 FILLER UM )@@G@@ VALUE ':' PIC X. @D@@@] 02 OP-TM-FIN2 UN )@@G@@ PIC XX.@D@@@] 02 FILLER VALUE ':' PUO )@@G@@IC X. @D@@@] 02 OP-TM-FIN3 PIC XX.@D@@@]UP )@@G@@ 02 FILLER VALUE SPACES PIC X. @E@@@] 0UQ )@@G@@2 OP-ACCT-NO VALUE SPACES PIC X(12). @D@@@] 02 FILUR )@@G@@LER VALUE SPACES PIC X. @E@@@] 02 OP-PROJ VUS )@@G@@ALUE SPACES PIC X(12). @D@@@] 02 FILLER VALUE SUT )@@G@@PACES PIC X. @E@@@] 02 OP-DEVICE VALUE SPACES PUU )@@G@@IC X(6). @D@@@] 02 FILLER VALUE SPACES PIC X. UV )@@G@@@E@@@] 02 OP-USER-ID VALUE SPACES PIC X(12). @D@@@]UW )@@G@@ 02 FILLER VALUE SPACES PIC X. @E@@@] 0UX )@@G@@2 OP-CD-IN VALUE ZEROS PIC ZZZZZ9. @D@@@] 02 FILUY )@@G@@LER VALUE SPACES PIC X. @E@@@] 02 OP-CD-OUT VUZ )@@G@@ALUE ZEROS PIC ZZZZZ9. @D@@@] 02 FILLER VALUE SVA )@@G@@PACES PIC XX.@E@@@] 02 OP-PAGES VALUE ZEROS PVB )@@G@@IC ZZZZZ9. @D@@@] 02 FILLER VALUE SPACES PIC X. VC )@@G@@@E@@@] 02 OP-TOT VALUE ZEROS PIC 9(10). @D@@@]VD )@@G@@ 02 FILLER VALUE SPACES PIC X. @E@@@] 0VE )@@G@@2 OP-CPU VALUE ZEROS PIC 9(10). @D@@@] 02 FILVF )@@G@@LER VALUE SPACES PIC X. @E@@@] 02 OP-CB VVG )@@G@@ALUE ZEROS PIC 9(10). @E@@@] 02 FILLER VALUE SVH )@@G@@PACES PIC X(7). @@@@@]@^@@@] 01 OPDATA2. @E@@@] VI )@@G@@ 02 FILLER VALUE SPACES PIC X(7). @ @@@] 0VJ )@@G@@2 OP-DATE-START. @E@@@] 03 OP-DATE-A1 VALUE SPACES VK )@@G@@PIC XX. @D@@@] 03 OP-SL1 VALUE SPACES PIC X.VL )@@G@@@E@@@] 03 OP-DATE-A2 VALUE SPACES PIC XX. @D@@@]VM )@@G@@ 03 OP-SL2 VALUE SPACES PIC X.@E@@@] VN )@@G@@ 03 OP-DATE-A3 VALUE SPACES PIC XX. @D@@@] 02 FILVO )@@G@@LER VALUE SPACES PIC X. @ @@@] 02 OP-DATE-FIN. VP )@@G@@@E@@@] 03 OP-DATE-F1 VALUE SPACES PIC XX. @D@@@]VQ )@@G@@ 03 OP-SL3 VALUE SPACES PIC X.@E@@@] VR )@@G@@ 03 OP-DATE-F2 VALUE SPACES PIC XX. @D@@@] 03 OVS )@@G@@P-SL4 VALUE SPACES PIC X.@E@@@] 03 OP-DATE-F3 VT )@@G@@VALUE SPACES PIC XX. @E@@@] 02 FILLER VALUE SVU )@@G@@PACES PIC X(108). @]@@@] / @ @@@] PROCEDURE DIVISIOVV )@@G@@N. @@@@@]@#@@@] 000-OPEN. @B@ @] OPEN OUTPUT DISCOVW )@@G@@UT2 LOG-CARD@A@@@ OPEN INPUT QUIP-CARDS. @A@ @] VX )@@G@@ INPUT QUIP-CARDS. @^@ @] SET P3 TO 1. @A@@@ SVY )@@G@@ET ACCNT-INDEX TO 1. @B@@@] PERFORM 010-FETCH-QUIP-CARDS VZ )@@G@@@A@@@] UNTIL QUIP-EOF. @ @@@ CLOSE QUIP-CAWA )@@G@@RDS. @C@@@ OPEN OUTPUT INTERIM-FILE, LOG-CARD. @E@@@] WB )@@G@@ CALL 'LOG32' USING EQUIP-TBL REC-V LOGRECORD. @D@@@] MWC )@@G@@OVE LOW-VALUES TO INT-SRT-1, INT-SRT-2. @^@@@] MOVE 0 TO Q WD )@@G@@@B@@@] PERFORM 020-CLEAR-15 60 TIMES @ @@@] PERFORMWE )@@G@@ 026-SYMB15.@^@@@] MOVE 0 TO Q. @B@@@] MOVE 'RECORD WF )@@G@@= ' TO L-TITLE. @B@@@] MOVE 'H15500' TO DEPT-RUN-ID. @C@@@]WG )@@G@@ MOVE 'H1550020' TO DEPT-PROGRAM-NUM. @C@@@] ENTER FWH )@@G@@D 'GETDATE' USING DATE-AREA @E@@@] ENTER FD 'DATEDIT' USING WI )@@G@@DATE-AREA DATE-EIGHT IND@B@@@] MOVE DATE-AREA TO DEPT-DATE. WJ )@@G@@@C@@@] PERFORM 100-READT THRU 100-EXIT. @B@ @] PWK )@@G@@ERFORM 490-FINISH-REPORTS. @B@@@ PERFORM 499-FINISH-REPORTWL )@@G@@S. @A@ @] PERFORM 520-WRITE-VOLUME.@A@@@ PERFORMWM )@@G@@ 500-WRITE-VOLUME.@C@ @] CLOSE QUIP-CARDS DISCOUT2 LOG-CARD. WN )@@G@@@B@@@ CLOSE INTERIM-FILE LOG-CARD. @^@@@] STOP RUWO )@@G@@N. @]@@@] / @@@@@]@ @@@] 010-FETCH-QUIP-CARDS. @ @@@]WP )@@G@@ READ QUIP-CARDS @C@@@] AT END MOVE 'Y' TO SWQ )@@G@@W-QUIP-EOF. @ @@@] IF NOT QUIP-EOF @D@@@] IF QWR )@@G@@UIP-COMMAND = 'INSERT ACCOUNT ' @D@ @] PERFORM 050-CWS )@@G@@HECK-ACCNT-NO-SEQUENCE @D@@@ PERFORM 011-CHECK-ACCNT-NWT )@@G@@O-SEQUENCE @C@ @] PERFORM 051-STORE-ACCNT-NO @C@@@ WU )@@G@@ PERFORM 012-STORE-ACCNT-NO @#@@@] ELSEWV )@@G@@@F@@@] DISPLAY 'ILLEGAL QUIP COMMAND IN QUIP-CARDS' WW )@@G@@@B@@@] UPON PRINT-DEVICE@A@@@] EWX )@@G@@NTER FD 'ABORT'. @@@@@ @A@@@ 011-CHECK-ACCNT-NO-SEQUENCE. @C@@@ WY )@@G@@ IF NOT QUIP-ACCNT > LAST-QUIP-ACCNT @G@@@ DISPWZ )@@G@@LAY 'QUIP-ACCNT-NO ' QUIP-ACCNT ' OUT OF SEQUENCE' @B@@@ XA )@@G@@ UPON PRINT-DEVICE @ @@@ ENTER FD 'ABORT'@#@@@ XB )@@G@@ ELSE @D@@@ MOVE QUIP-ACCNT TO LAST-QUIP-ACCNTXC )@@G@@. @@@@@ @ @@@ 012-STORE-ACCNT-NO. @ @@@ ADD 1 TXD )@@G@@O QUIP-CNT. @E@@@ MOVE QUIP-ACCNT TO VALID-ACCNT-NO (ACCNT-INXE )@@G@@DEX). @A@@@ SET ACCNT-INDEX UP BY 1. @]@@@ / @@@@@]XF )@@G@@@^@@@] 020-CLEAR-15. @^@@@] ADD 1 TO Q. @A@@@] XG )@@G@@ PERFORM 021-CLEARED. @C@@@] IF Q < 16 PERFORM 021-CLXH )@@G@@EAR-NSA. @@@@@]@^@@@] 021-CLEARED. @A@@@] MOVE SPXI )@@G@@ACES TO RUN15 (Q)@A@@@] MOVE SPACES TO SYMB15 (Q)@A@@@] XJ )@@G@@ MOVE SPACES TO ACT-15 (Q)@B@@@] MOVE ZEROS TO DTIM15 (Q)XK )@@G@@. @@@@@]@^@@@] 021-CLEAR-NSA. @F@@@] MOVE SPACES XL )@@G@@TO NSARUNID (Q) NSANBR (Q) NSAACCTNO (Q). @E@@@] MOVE ZEROS TXM )@@G@@O NSATM-START (Q) NSATM-FIN (Q). @@@@@]@^@@@] 022-CLEAR-4. XN )@@G@@@ @#@] MOVE 0 TO R4-NWIE @ @ @# MOVE 0 TO R4-CPU XO )@@G@@@ @#@] R4-CPU @ @ @] R4-SUPS XP )@@G@@@ @@@ MOVE 0 TO R4-SUPS @ @@@] R4-CBS XQ )@@G@@@A@@@] R4-VOL-DELAY @ @@@] R4-XR )@@G@@RTL @ @@@] R4-COND. @A@@@] MOVE ZEROES TXS )@@G@@O R4-TERM @A@@@] R4-EXTEND @A@@@] XT )@@G@@ R4-CARDS. @B@@@] PERFORM 024-CLEAR-R4-XFERS XU )@@G@@@D@@@] VARYING Q FROM 1 BY 1 UNTIL Q > 10.@^@@@] XV )@@G@@ MOVE 0 TO Q @B@@@] PERFORM 023-CLEAR4RCD 15 TIMES.@@@@@]XW )@@G@@@^@@@] 023-CLEAR4RCD. @^@@@] ADD 1 TO Q @A@@@] XX )@@G@@ MOVE 0 TO R4-CTRS (Q). @@@@@]@@@@@]@ @@@] 024-CLEAR-R4-XFERXY )@@G@@S. @A@@@] MOVE 0 TO R4-IOS (Q). @@@@@]@#@@@] 026-SXZ )@@G@@YMB15.@B@@@] MOVE 'CR7 ' TO SYMB15 (1). @B@@@] MYA )@@G@@OVE 'SOCR ' TO SYMB15 (2). @B@@@] MOVE 'SOPR1 ' TO SYMB15 (YB )@@G@@3). @B@@@] MOVE 'SOPU1 ' TO SYMB15 (4). @B@@@] MYC )@@G@@OVE 'PR1 ' TO SYMB15 (5). @B@@@] MOVE 'PR3 ' TO SYMB15 (YD )@@G@@6). @B@@@] MOVE '9300SO' TO SYMB15 (7). @@@@@]@@@ @]@A@ @]YE )@@G@@ 050-CHECK-ACCNT-NO-SEQUENCE. @C@ @] IF NOT QUIP-ACCNT >YF )@@G@@ LAST-QUIP-ACCNT @G@ @] DISPLAY 'QUIP-ACCNT-NO ' QUIP-ACCNYG )@@G@@T ' OUT OF SEQUENCE' @B@ @] UPON PRINT-DEVICE YH )@@G@@@ @ @] ENTER FD 'ABORT'@#@ @] ELSE @D@ @] YI )@@G@@ MOVE QUIP-ACCNT TO LAST-QUIP-ACCNT. @@@ @]@ @ @] 051-SYJ )@@G@@TORE-ACCNT-NO. @ @ @] ADD 1 TO QUIP-CNT. @D@ @] MYK )@@G@@OVE QUIP-ACCNT TO VALID-ACCNT-NO (P3). @ @ @] SET P3 UP BY YL )@@G@@1. @]@@@] / @#@@@] 100-READT. @D@@@] CALL 'LYM )@@G@@OGREC' USING LOGRECORD INDX STATT. @B@@@] IF STATT > 1 GO TOYN )@@G@@ 100-EXIT. @ @@@] IF STATT = 0 OR 1 @E@@@] MOVEYO )@@G@@ LOG-REC (INDX) TO INT-RCD-1 INT-RCD-2. @A@@@] IF INDX < 1 YP )@@G@@OR INDX > 64@F@@@] DISPLAY 'INDX ' INDX ' INC ' INC UPON PYQ )@@G@@RINT-DEVICE @ @@@] ADD 1 TO STAT @ @@@] IF YR )@@G@@STAT > 100 @A@@@] ENTER FD 'ABORT'.@A@@@] IYS )@@G@@F LOG-ENTRY-TYPE = 0 @A@@@] GO TO 100-READT. @^@@@]YT )@@G@@ ADD 1 TO INC @ @@@] IF RUNID = 'EXEC 8'@C@@@] YU )@@G@@ PERFORM 200-EXEC8 THRU 201-EXIT @A@@@] GO TO 100YV )@@G@@-READT. @B@@@] IF LOG-ENTRY-TYPE = 2 OR 3 OR 4@A@@@] YW )@@G@@ PERFORM 310-T2-3-4 @A@@@] GO TO 100-READT. YX )@@G@@@C@@@] IF LOG-ENTRY-TYPE = 5 OR 17 OR 18 @A@@@] YY )@@G@@ PERFORM 320-T5-17-18 @A@@@] GO TO 100-READT. @F@@@]YZ )@@G@@ IF LOG-ENTRY-TYPE = 9 PERFORM 300-T9 GO TO 100-READT. @F@@@]ZA )@@G@@ IF LOG-ENTRY-TYPE = 1 PERFORM 350-T1 GO TO 100-READT.@I@#@]ZB )@@G@@ IF LOG-ENTRY-TYPE = 7 PERFORM 330-T7 THRU 339-EXIT GO TO 100ZC )@@G@@-READT. @A@@@# IF LOG-ENTRY-TYPE = 7 @C@@@# ZD )@@G@@ PERFORM 330-T7 THRU 339-EXIT @A@@@# GO TO 100-READTZE )@@G@@. @G@@@] IF LOG-ENTRY-TYPE = 10 PERFORM 340-T10 GO TO 100ZF )@@G@@-READT. @ @@@] GO TO 100-READT. @@@@@]@#@@@] 100-EZG )@@G@@XIT. @#@@@] EXIT. @]@@@] / @#@@@] 200-EXEC8. ZH )@@G@@@A@@@] IF LOG-ENTRY-TYPE = 12 @C@@@] PERFORMZI )@@G@@ 220-T12 GO TO 201-EXIT.@A@@@] IF LOG-ENTRY-TYPE = 15 @C@@@]ZJ )@@G@@ PERFORM 250-T15 GO TO 201-EXIT.@A@@@] IF LOG-ZK )@@G@@ENTRY-TYPE = 14 @C@@@] PERFORM 260-T14 GO TO 201-EXIT. ZL )@@G@@@A@@@] IF LOG-ENTRY-TYPE = 7 @C@@@] PERFORM ZM )@@G@@270-T7 GO TO 201-EXIT. @A@@@] IF LOG-ENTRY-TYPE = 10 @ @@@]ZN )@@G@@ IF NSA-SW > 0 @C@@@] PERFORM 285-T10 GO TZO )@@G@@O 201-EXIT. @@@@@]@^@@@] 201-EXIT. EXIT. @@@@@]@]@@@] / ZP )@@G@@@#@@@] 220-T12. @A@@@] MOVE INT-RCD-1 TO RCD-12.@B@@@]ZQ )@@G@@ IF R12-KEYIN = 'E ' OR 'X ' @B@@@] PERFORM 2ZR )@@G@@21-RUN-E-OR-X. @@@@@]@^@@@] 221-RUN-E-OR-X. @B@^@] MZS )@@G@@OVE LOW-VALUES TO INT-SRT-2. @C@@@^ MOVE LOW-VALUES TO INT-SRZT )@@G@@T-2-OTHER. @A@@@] MOVE 2 TO SRT2-TYPE. @C@#@] MZU )@@G@@OVE R12-MSG-WORD-1 TO SRT2-RUNID. @C@@@# MOVE R12-MSG-WORD-1ZV )@@G@@ TO SRT2-RUNID2. @ @@@] PERFORM 401-WRITE2.@]@@@] / ZW )@@G@@@#@@@] 250-T15. @A@@@] MOVE INT-RCD-1 TO RCD-15.@^@@@]ZX )@@G@@ MOVE 0 TO Q. @A@@@] PERFORM 252-FINDSLOT. @@@@@]ZY )@@G@@@^@@@] 252-FINDSLOT. @^@@@] ADD 1 TO Q @^@@@] ZZ )@@G@@ IF Q > 60 @E@@@] DISPLAY 'TOO MANY TYPE15S' UPON PRIAA )@@G@@NT-DEVICE @#@@@] ELSE @A@@@] IF SYMB15 (Q) = SPAAB )@@G@@CES @C@@@] MOVE R15-SYMBIONT TO SYMB15 (Q). @^@@@] AC )@@G@@ IF Q < 61 @B@@@] IF R15-SYMBIONT = SYMB15 (Q) @A@@@]AD )@@G@@ PERFORM 253-MOVE15 @#@@@] ELSE @A@@@] AE )@@G@@ GO TO 252-FINDSLOT. @A@@@] IF ACT-15 (Q) = 'UNIVAC' AF )@@G@@@C@@@] MOVE 'H152 ' TO ACT-15 (Q).@@@@@]@#@@@] AG )@@G@@ 253-MOVE15.@B@@@] IF R15-ACCOUNT = '@@@@@@@@@@@@'@D@@@] AH )@@G@@ MOVE SPACES TO ACT-15 (Q) RUN15 (Q) @C@@@] MOVEAI )@@G@@ ZEROS TO CTR15 (Q) DTIM15 (Q)@#@@@] ELSE @C@@@] AJ )@@G@@ MOVE R15-ACCOUNT TO ACT-15 (Q) @C@@@] MOVE R15-RUNID AK )@@G@@TO RUN15 (Q) @B@@@] MOVE ZEROS TO CTR15 (Q) @B@@@]AL )@@G@@ MOVE DTIM TO DTIM15 (Q). @]@@@] / @#@@@] AM )@@G@@ 260-T14. @A@@@] MOVE INT-RCD-1 TO RCD-14.@^@@@] MAN )@@G@@OVE 0 TO Q. @ @@@] PERFORM 261-FIND15.@@@@@]@#@@@] 261-FAO )@@G@@IND15.@^@@@] ADD 1 TO Q. @^@@@] IF Q < 61 @B@@@]AP )@@G@@ IF R14-SYMBIONT = SYMB15 (Q) @B@@@] IF R14-RUAQ )@@G@@NID = RUN15 (Q) @B@@@] PERFORM 262-MOVE-15 @^@@@]AR )@@G@@ ELSE @ @@@] NEXT SENTENCE @#@@@] AS )@@G@@ ELSE @A@@@] GO TO 261-FIND15. @@@@@]@^@@@] AT )@@G@@ 262-MOVE-15. @E@@@] MOVE ACT-15 (Q) TO SRT1-ACCOUNT SRTAU )@@G@@2-ACCOUNT. @D@@@] MOVE RUN15 (Q) TO SRT1-RUNID SRT2-RUNID. AV )@@G@@@D@@@] MOVE CTR15 (Q) TO R14-SPEC-FORM-MNTS. @D@@@] AW )@@G@@ MOVE DATE15 (Q) TO SRT1-DATE, SRT2-DATE. @B@@@] MOVE DTAX )@@G@@IM15 (Q) TO SRT1-DTIM. @B@@@] MOVE DTIM15 (Q) TO R14-DTIM. AY )@@G@@@^@@@] ADD 1 TO INC @B@@@] MOVE SYMB15 (Q) TO SRT2-DAZ )@@G@@EVICE.@C@@@] MOVE RCD-14 TO INT-RCD-1, INT-RCD-2. @C@@@] BA )@@G@@ PERFORM 400-WRITE1 THRU 401-WRITE2. @]@@@] / @#@@@] BB )@@G@@ 270-T7. @A@@@] MOVE INT-RCD-1 TO RCD-7. @B@@@] IBC )@@G@@F R7-MSG-WORD-1 = ' LOAD ' @A@@@] PERFORM 271-LOADS. BD )@@G@@@A@@@] IF R7-MSG-NBR IS NUMERIC @B@@@] AND R7-MSG-BE )@@G@@SPACE1 = SPACES @B@@@] AND R7-MSG-SPACE2 = SPACES @A@@@]BF )@@G@@ PERFORM 276-T7-MSG.@@@@@]@#@@@] 271-LOADS. @A@@@]BG )@@G@@ PERFORM 900-GET-CNT. @^@@@] MOVE 0 TO Q. @A@@@]BH )@@G@@ MOVE SPACES TO ERR-MSG. @ @@@] PERFORM 272-CK-ID. BI )@@G@@@@@@@]@#@@@] 272-CK-ID. @C@@@] IF R7-MSG-CHAR (CTR) NOT BJ )@@G@@= SPACES @ @@@] ADD 1 TO Q @A@@@] PERBK )@@G@@FORM 273-SHUFFLE @A@@@] SUBTRACT 1 FROM CTR @ @@@] BL )@@G@@ GO TO 272-CK-ID@#@@@] ELSE @^@@@] IF QBM )@@G@@ = 0 @A@@@] SUBTRACT 1 FROM CTR @A@@@] GOBN )@@G@@ TO 272-CK-ID @#@@@] ELSE @^@@@] IF Q = 1 BO )@@G@@@A@@@] IF ERRM (Q) = '8' @B@@@] PERBP )@@G@@FORM 274-SHUFFLE-8@^@@@] ELSE @B@@@] BQ )@@G@@ PERFORM 275-LOAD-PK @^@@@] ELSE @B@@@] BR )@@G@@ PERFORM 275-LOAD-PK. @@@@@]@^@@@] 273-SHUFFLE. @B@@@]BS )@@G@@ MOVE ERRM (5) TO ERRM (6). @B@@@] MOVE ERRM (4)BT )@@G@@ TO ERRM (5). @B@@@] MOVE ERRM (3) TO ERRM (4). @B@@@]BU )@@G@@ MOVE ERRM (2) TO ERRM (3). @B@@@] MOVE ERRM (1)BV )@@G@@ TO ERRM (2). @C@@@] MOVE R7-MSG-CHAR (CTR) TO ERRM (1). BW )@@G@@@@@@@]@^@@@] 274-SHUFFLE-8. @B@@@] SUBTRACT 4 FROM CTRBX )@@G@@ GIVING Q2. @A@@@] IF R7-MSG-CHAR (Q2) = 'E'@ @@@] BY )@@G@@ ADD 1 TO Q2 @B@@@] IF R7-MSG-CHAR (Q2) = 'X' @ @@@]BZ )@@G@@ ADD 1 TO Q2 @B@@@] IF R7-MSG-CHAR (Q2) =CA )@@G@@ 'E' @ @@@] ADD 1 TO Q2@B@@@] IF R7-MCB )@@G@@SG-CHAR (Q2) = 'C'@A@@@] NEXT SENTENCE @^@@@] CC )@@G@@ ELSE @B@@@] PERFORM 275-LOAD-PK @^@@@]CD )@@G@@ ELSE @A@@@] PERFORM 275-LOAD-PK@#@@@]CE )@@G@@ ELSE @A@@@] PERFORM 275-LOAD-PK @#@@@] CF )@@G@@ ELSE @A@@@] PERFORM 275-LOAD-PK. @@@@@]@^@@@] CG )@@G@@ 275-LOAD-PK. @B@^@] MOVE LOW-VALUES TO INT-SRT-2. @C@@@^CH )@@G@@ MOVE LOW-VALUES TO INT-SRT-2-OTHER. @B@#@] MOVE ERCI )@@G@@R-MSG TO SRT2-RUNID. @B@@@# MOVE ERR-MSG TO SRT2-RUNID2. CJ )@@G@@@A@@@] MOVE 1 TO SRT2-TYPE. @ @@@] PERFORM 401-WCK )@@G@@RITE2.@@@@@]@#@@@] 276-T7-MSG.@A@@@] MOVE SPACES TO WMESCL )@@G@@SAGE @A@@@] MOVE 6 TO Q MOVE 0 TO Q1@B@@@] PERFORMCM )@@G@@ 277-MOVE-M 6 TIMES. @A@@@] IF WMESSAGE = 'SPECIA' @A@@@]CN )@@G@@ PERFORM 278-SPC-FORM.@A@@@] IF WMESSAGE = 'MOUNCO )@@G@@T ' @A@@@] PERFORM 279-ADD. @E@@@] IF WMESCP )@@G@@SAGE = 'UNDEF ' OR 'USERID' OR 'CAN RU' @A@@@] PERFORM 2CQ )@@G@@80-STD-ACCT.@@@@@]@#@@@] 277-MOVE-M.@A@@@] ADD 1 TO Q ACR )@@G@@DD 1 TO Q1 @C@@@] MOVE R7-MSG-CHAR (Q) TO WMSG (Q1). @@@@@]CS )@@G@@@^@@@] 278-SPC-FORM. @B@@@] PERFORM 277-MOVE-M 6 TIMECT )@@G@@S. @B@@@] IF WMESSAGE = 'SPECIAL FORM' @ @@@] CU )@@G@@ MOVE 0 TO Q @A@@@] PERFORM 279-ADD. @@@@@]@#@@@]CV )@@G@@ 279-ADD. @^@@@] ADD 1 TO Q. @^@@@] IF Q < CW )@@G@@16 @B@@@] IF SYMB15 (Q) = R7-MSG-WORD-1@A@@@] CX )@@G@@ ADD 1 TO CTR15 (Q) @#@@@] ELSE @ @@@] GO CY )@@G@@TO 279-ADD. @@@@@]@^@@@] 280-STD-ACCT. @^@@@] MOVE 0 CZ )@@G@@TO Q @ @@@] PERFORM 281-TABLE. @ @@@] ADD 1 TO NSA-DA )@@G@@SW. @@@@@]@#@@@] 281-TABLE. @^@@@] ADD 1 TO Q @A@@@]DB )@@G@@ IF NSANBR (Q) = SPACE @C@@@] MOVE R7-MSG-NBRDC )@@G@@ TO NSANBR (Q) @D@@@] MOVE R7-MSG-WORD-1 TO NSARUNID (QDD )@@G@@) @C@@@] MOVE DTIM TO NSATM-START (Q) @A@@@] DE )@@G@@ PERFORM 282-FIND-ACCT@#@@@] ELSE @A@@@] DF )@@G@@ GO TO 281-TABLE. @@@@@]@^@@@] 282-FIND-ACCT. @A@@@] DG )@@G@@ IF WMESSAGE = 'CAN RU' @D@@@] MOVE 'STNDRD-ACCNT' TDH )@@G@@O NSAACCTNO (Q). @A@@@] IF WMESSAGE = 'USERID' @ @@@] DI )@@G@@ MOVE 12 TO Q1 @ @@@] MOVE 0 TO Q2 @B@@@] DJ )@@G@@ MOVE SPACES TO WMESSAGE @A@@@] PERFORM 283-USEDK )@@G@@R @C@@@] MOVE WMESSAGE TO NSAUSERID (Q) @ @@@] DL )@@G@@ ADD 16 TO Q1 @B@@@] MOVE SPACES TO WMESSAGE DM )@@G@@@ @@@] MOVE 0 TO Q2 @A@@@] PERFORM 283-USEDN )@@G@@R @C@@@] MOVE WMESSAGE TO NSAACCTNO (Q). @A@@@] DO )@@G@@ IF WMESSAGE = 'UNDEF ' @ @@@] MOVE 18 TO Q1 @B@@@]DP )@@G@@ IF R7-MSG-CHAR (Q1) = SLASH@B@@@] MOVE SPDQ )@@G@@ACES TO WMESSAGE @ @@@] MOVE 0 TO Q2 @ @@@] DR )@@G@@ ADD 5 TO Q1 @A@@@] PERFORM 283-USER @C@@@] DS )@@G@@ MOVE WMESSAGE TO NSAACCTNO (Q) @B@@@] MOVE SPDT )@@G@@ACES TO WMESSAGE @ @@@] MOVE 0 TO Q2 @A@@@] DU )@@G@@ PERFORM 283-USER @C@@@] MOVE WMESSAGE TO NSAUSERIDV )@@G@@D (Q) @^@@@] ELSE @B@@@] IF R7-MSG-CHADW )@@G@@R (Q1) = ' '@B@@@] MOVE SPACES TO WMESSAGE@A@@@] DX )@@G@@ MOVE 0 TO Q2 @A@@@] PERFORM 283-USER DY )@@G@@@D@@@] MOVE WMESSAGE TO NSAACCTNO (Q). @#@@@] DZ )@@G@@ 283-USER. @^@@@] ADD 1 TO Q1 @^@@@] ADD 1 TO Q2. EA )@@G@@@F@@@] IF R7-MSG-CHAR (Q1) = ' ' OR R7-MSG-CHAR (Q1) = SLASH EB )@@G@@@ @@@] NEXT SENTENCE @#@@@] ELSE @D@@@] EC )@@G@@ MOVE R7-MSG-CHAR (Q1) TO WMSG (Q2) @ @@@] GO ED )@@G@@TO 283-USER.@]@@@] / @#@@@] 285-T10. @A@@@] MEE )@@G@@OVE INT-RCD-1 TO RCD-10.@^@@@] MOVE 0 TO Q @ @@@] PEF )@@G@@ERFORM 286-TBL-10.@@@@@]@#@@@] 286-TBL-10.@^@@@] ADD 1 TEG )@@G@@O Q. @^@@@] IF Q < 16 @B@@@] IF R10-MSG-NBR = EH )@@G@@NSANBR (Q) @A@@@] PERFORM 287-Y-N @#@@@] EI )@@G@@ ELSE @A@@@] GO TO 286-TBL-10. @@@@@]@#@@@] 287-YEJ )@@G@@-N. @C@@@] IF R10-MSG-CHAR (1) = 'N' OR 'R' @G@@@] EK )@@G@@ MOVE SPACES TO NSANBR (Q) NSARUNID (Q) NSAACCTNO (Q) @A@@@]EL )@@G@@ NSAUSERID (Q) @#@@@] ELSE @A@@@] EM )@@G@@ ADD 1 TO NSA-SW9. @A@@@] SUBTRACT 1 FROM NSA-SW. EN )@@G@@@]@@@] / @#@@@] 300-T9. @A@@@] MOVE INT-RCD-EO )@@G@@1 TO RCD-9. @D@@@] MOVE LOW-VALUES TO INT-SRT-1, INT-SRT-2. EP )@@G@@@B@@@] PERFORM 492-CLEAR-T3-TABLES @D@ @] VARYEQ )@@G@@ING P2 FROM 1 BY 1 UNTIL P2 > 8. @F@@@ VARYING GRAN-SUBER )@@G@@ FROM 1 BY 1 UNTIL GRAN-SUB > 8. @D@@@] MOVE R9-NEW-RUNID TES )@@G@@O SRT1-RUNID SRT2-RUNID.@C@@@] IF R9-ACCOUNT = STD-ACCT OR INSET )@@G@@TL @F@@@] MOVE 'H158 ' TO SRT1-ACCOUNT SRT2-ACCOUNEU )@@G@@T @#@@@] ELSE @A@@@] IF R9-ACCOUNT = UNIVAC EV )@@G@@@F@@@] MOVE 'H152 ' TO SRT1-ACCOUNT SRT2-ACCOUNT EW )@@G@@@#@@@] ELSE @E@@@] MOVE R9-ACCOUNT TO SRT1-ACCEX )@@G@@OUNT SRT2-ACCOUNT.@C@@@] MOVE R9-DT TO SRT1-DATE, SRT2-DATE EY )@@G@@@B@@@] MOVE R9-DTIM-REDEF TO SRT1-DTIM@B@#@] MOVE SREZ )@@G@@T1-RUNID TO TIP-RCD. @B@@@# MOVE R9-NEW-RUNID TO TIP-RCD. FA )@@G@@@C@@@] IF R9-DEVICE-NUM > 0 AND NOT > CKDEV9@ @@@] FB )@@G@@ PERFORM 303-TIP@B@@@] MOVE R9-DEVICE-NUM TO Q1 @C@@@]FC )@@G@@ MOVE TDVCE (Q1) TO SRT2-DEVICE @C@@@] MOVFD )@@G@@E TDVCE (Q1) TO R9-DEVICE @#@@@] ELSE @ @@@] FE )@@G@@ IF T-HES = ASTR@F@@@] MOVE 'H158 ' TO SRT1-ACFF )@@G@@COUNT SRT2-ACCOUNT@E@@@] MOVE 'CR7 ' TO SRT2-DEVICE RFG )@@G@@9-DEVICE @^@@@] ELSE @C@@@] MOVE RFH )@@G@@9-DEVICE TO SRT2-DEVICE.@C@@@] MOVE RCD-9 TO INT-RCD-1, INT-RCFI )@@G@@D-2. @C@@@] PERFORM 400-WRITE1 THRU 401-WRITE2. @ @@@] FJ )@@G@@ MOVE 0 TO LOG-SW. @A@@@] PERFORM 022-CLEAR-4. @A@@@]FK )@@G@@ MOVE SPACES TO K2-HOLD. @ @@@] IF NSA-SW9 > 0 FL )@@G@@@A@@@] MOVE 0 TO Q NSA-9. @ @@@] PERFORM 301-NFM )@@G@@SA9. @^@@@] IF NSA-9 > 0 @A@@@] PERFORM 302-NSAFN )@@G@@-9. @@@@@]@#@@@] 301-NSA9. @^@@@] ADD 1 TO Q. @^@@@]FO )@@G@@ IF Q < 16 @C@@@] IF SRT1-ACCOUNT = NSAACCTNO (FP )@@G@@Q) @C@@@] IF SRT1-RUNID = NSARUNID (Q) @A@@@] FQ )@@G@@ MOVE 1 TO NSA-9 @^@@@] ELSE @A@@@] FR )@@G@@ GO TO 301-NSA9 @#@@@] ELSE @ @@@] FS )@@G@@ GO TO 301-NSA9.@@@@@]@#@@@] 302-NSA-9. @D@@@] MOVE R9FT )@@G@@-DTIM-REDEF TO NSATM-START (Q). @B@@@] MOVE R9-PROJECT TO FU )@@G@@NSAPROJ (Q).@C@@@] MOVE R9-DEVICE TO NSADEVICE (Q). @C@@@]FV )@@G@@ MOVE R9-USERID TO NSAUSERID (Q). @@@@@]@#@@@] 303-TFW )@@G@@IP. @D@@@] MOVE 'H158 ' TO SRT1-ACCOUNT SRT2-ACCOUNT.@A@@@]FX )@@G@@ IF T-CHAR IS NOT NUMERIC @A@@@] IF T-NBR IS NUMERFY )@@G@@IC @A@@@] IF T-HES = ASTR @A@@@] FZ )@@G@@ MOVE 'H' TO T-HES@B@@@] PERFORM 304-CNVT-TIP @F@@@]GA )@@G@@ MOVE TIP-RCD TO SRT1-ACCOUNT SRT2-ACCOUNT. @@@@@]GB )@@G@@@^@@@] 304-CNVT-TIP. @C@@@] IF T-CHAR = 'I' MOVE '0' GC )@@G@@TO T-CHAR. @C@@@] IF T-CHAR = 'J' MOVE '1' TO T-CHAR. @C@@@]GD )@@G@@ IF T-CHAR = 'K' MOVE '2' TO T-CHAR. @C@@@] IF T-CHGE )@@G@@AR = 'L' MOVE '3' TO T-CHAR. @C@@@] IF T-CHAR = 'M' MOVE '4' GF )@@G@@TO T-CHAR. @C@@@] IF T-CHAR = 'N' MOVE '5' TO T-CHAR. @C@@@]GG )@@G@@ IF T-CHAR = 'O' MOVE '6' TO T-CHAR. @C@@@] IF T-CHGH )@@G@@AR = 'P' MOVE '7' TO T-CHAR. @C@@@] IF T-CHAR = 'Q' MOVE '8' GI )@@G@@TO T-CHAR. @A@@@] MOVE SPACES TO T-SPACE. @]@@@] / GJ )@@G@@@#@@@] 310-T2-3-4.@A@@@] IF RUNID = SRT1-RUNID @A@@@]GK )@@G@@ IF LOG-ENTRY-TYPE = 3 @A@@@] MOVE 1 TO R3GL )@@G@@-SW @B@@@] MOVE INT-RCD-1 TO RCD-3 @C@@@] GM )@@G@@ PERFORM 491-ACCUMULATE-TRACKS @E@ @] VARYING P2GN )@@G@@ FROM 1 BY 1 UNTIL P2 > 8 @G@@@ VARYING GRAN-SUBGO )@@G@@ FROM 1 BY 1 UNTIL GRAN-SUB > 8 @A@@@] PERFORM 311-GP )@@G@@T3-9 @^@@@] ELSE @A@@@] PERFORM 400-GQ )@@G@@WRITE1@B@@@] IF LOG-ENTRY-TYPE = 4@C@@@] GR )@@G@@ MOVE INT-RCD-1 TO RCD-4.@@@@@]@#@@@] 311-T3-9. @C@@@]GS )@@G@@ IF R3-PROJECT = PUBLIC NEXT SENTENCE @#@@@] ELSE GT )@@G@@@F@@@] IF SRT1-ACCOUNT = 'H159 ' OR 'H158 ' GU )@@G@@@B@@@] OR 'H152 ' OR INSTL @ @@@] NEXGV )@@G@@T SENTENCE @#@@@] ELSE @C@@@] IF R3-ACCOUNT =GW )@@G@@ STD-ACCT OR INSTL@ @@@] NEXT SENTENCE@^@@@] GX )@@G@@ ELSE @C@@@] MOVE SRT1-ACCOUNT TO WMESSAGE @C@@@]GY )@@G@@ IF WMSG (2) = R3-ACCOUNT-GROUP @A@@@] GZ )@@G@@NEXT SENTENCE @^@@@] ELSE @B@@@] HA )@@G@@ PERFORM 312-T3-RPT. @@@@@]@#@@@] 312-T3-RPT.@^@@@] IHB )@@G@@F AFPG = 0 @B@@@] MOVE AF-CARD TO C-CARD @C@@@] HC )@@G@@ ENTER FD ASM 'EQUIP' USING C-CARD@ @@@] MOVE 1 TOHD )@@G@@ AFPG @A@@@] OPEN OUTPUT AFPRINT @A@@@] PERHE )@@G@@FORM 313-AF-HDRS. @ @@@] IF AF-LINES > 55 @ @@@] HF )@@G@@ ADD 1 TO AFPG @A@@@] PERFORM 313-AF-HDRS. @C@@@] HG )@@G@@ MOVE SRT1-ACCOUNT TO AF-R-ACT-NO. @B@@@] MOVE SRT1-RUNHH )@@G@@ID TO AF-RUNID. @B@@@] MOVE R9-PROJECT TO AF-R-PROJ. @E@@@]HI )@@G@@ MOVE SPACE TO AF-DEVICE AF-F-ACT-NO AF-USER-ID. @A@@@] HJ )@@G@@ MOVE ZEROS TO AF-CYCLE. @A@@@] IF SRT2-DEVICE > SPACES HK )@@G@@@C@@@] MOVE SRT2-DEVICE TO AF-DEVICE. @E@@@] HL )@@G@@ IF R9-USERID = STD-ACCT NEXT SENTENCE ELSE @B@@@] MOVE HM )@@G@@R9-USERID TO AF-USER-ID.@A@@@] IF R3-ACCOUNT > SPACES @C@@@]HN )@@G@@ MOVE R3-ACCOUNT TO AF-F-ACT-NO. @B@@@] MOVE R3HO )@@G@@-FILENAME TO AF-FILENM.@B@@@] MOVE R3-PROJECT TO AF-F-PROJ.HP )@@G@@@B@@@] MOVE R3-QUALIFIER TO AF-QUAL. @B@@@] MOVE R3HQ )@@G@@-CYCLE TO AF-CYCLE. @A@@@] IF R3-ASG-DATE-TIME > 0 @C@@@]HR )@@G@@ MOVE R3-ASG-DATE-TIME TO CNVT-BIN@A@@@] MOVHS )@@G@@E CBIN1 TO DATE-R @ @@@] MOVE RYR TO MYR@ @@@] HT )@@G@@ MOVE RDA TO MDA@ @@@] MOVE RMO TO MMO@ @@@] HU )@@G@@ ADD 64 TO MYR @B@@@] MOVE MMO TO AF-DATE-A1 @B@@@]HV )@@G@@ MOVE MDA TO AF-DATE-A2 @B@@@] MOVE MYR HW )@@G@@TO AF-DATE-A3 @A@@@] MOVE CBIN2 TO DATE9 @A@@@] HX )@@G@@ MOVE ZEROS TO DATE-B @A@@@] PERFORM 413-CNVT-SEC HY )@@G@@@B@@@] MOVE MYR TO AF-TM-ASG1 @B@@@] MOVHZ )@@G@@E MMO TO AF-TM-ASG2 @B@@@] MOVE MDA TO AF-TM-ASG3 IA )@@G@@@A@@@] MOVE 'ASGN' TO A-F @B@@@] MOVE ':' IB )@@G@@TO AF-DOT1 AF-DOT2@B@@@] MOVE SLASH TO AF-SL1 AF-SL2.@A@@@]IC )@@G@@ IF R3-FREE-TIME > 0 @C@@@] MOVE R3-FREE-TIID )@@G@@ME TO CNVT-BIN @A@@@] MOVE CBIN1 TO DATE-R @ @@@] IE )@@G@@ MOVE RYR TO MYR@ @@@] MOVE RMO TO MMO@ @@@] IF )@@G@@ MOVE RDA TO MDA@ @@@] ADD 64 TO MYR @B@@@] IG )@@G@@ MOVE MMO TO AF-DATE-A1 @B@@@] MOVE MDA TO AF-IH )@@G@@DATE-A2 @B@@@] MOVE MYR TO AF-DATE-A3 @A@@@] II )@@G@@ MOVE CBIN2 TO DATE9 @A@@@] MOVE ZEROS TO DATE-B IJ )@@G@@@A@@@] PERFORM 413-CNVT-SEC @B@@@] MOVE MYR IK )@@G@@TO AF-TM-ASG1 @B@@@] MOVE MMO TO AF-TM-ASG2 @B@@@]IL )@@G@@ MOVE MDA TO AF-TM-ASG3 @A@@@] MOVE 'FREIM )@@G@@E' TO A-F @B@@@] MOVE ':' TO AF-DOT1 AF-DOT2@B@@@] IN )@@G@@ MOVE SLASH TO AF-SL1 AF-SL2.@E@@@] WRITE AFPRT FROM IO )@@G@@AFDATA1 AFTER ADVANCING 1. @ @@@] ADD 1 TO AF-LINES. @@@@@]IP )@@G@@@^@@@] 313-AF-HDRS. @B@@@] MOVE AFPG TO DEPT-PAGE-NUIQ )@@G@@M @F@@@] WRITE AFPRT FROM DEPT-HEADER-1 AFTER ADVANCING PAIR )@@G@@GE. @F@@@] WRITE AFPRT FROM DEPT-HEADER-2 AFTER ADVANCINGIS )@@G@@ 1. @E@@@] WRITE AFPRT FROM AFTITLE AFTER ADVANCING 2. IT )@@G@@@E@@@] WRITE AFPRT FROM AFLINE1 AFTER ADVANCING 2. @E@@@]IU )@@G@@ WRITE AFPRT FROM BLNK AFTER ADVANCING 1. @A@@@] IV )@@G@@ MOVE 10 TO AF-LINES. @]@@@] / @^@@@] 320-T5-17-1IW )@@G@@8. @A@@@] IF LOG-ENTRY-TYPE = 5 @B@@@] MOVIX )@@G@@E INT-RCD-1 TO RCD-5 @#@@@] ELSE @B@@@] IF IY )@@G@@LOG-ENTRY-TYPE = 17 @C@@@] MOVE INT-RCD-1 TO RCD-1IZ )@@G@@7. @A@@@] IF RUNID = SRT1-RUNID @ @@@] IF LOJA )@@G@@G-SW > 0 @A@@@] PERFORM 322-LOG-SW.@A@@@] IJB )@@G@@F RUNID = SRT1-RUNID @ @@@] IF R3-SW = 1 @C@@@] JC )@@G@@ PERFORM 493-COLLECT-NEW-GRANS @E@ @] VARYJD )@@G@@ING P2 FROM 1 BY 1 UNTIL P2 > 8 @G@@@ VARYING GRJE )@@G@@AN-SUB FROM 1 BY 1 UNTIL GRAN-SUB > 8 @B@@@] PERFORMJF )@@G@@ 494-RELEASE-R3. @A@@@] IF RUNID = SRT1-RUNID @D@@@] JG )@@G@@ PERFORM 400-WRITE1 THRU 401-WRITE2. @ @@@] IF NSA-JH )@@G@@SW9 > 0 @A@@@] MOVE 0 TO Q NSA-9 @A@@@] JI )@@G@@ PERFORM 301-NSA9. @^@@@] IF NSA-9 > 0 @A@@@] JJ )@@G@@ PERFORM 321-NSA. @@@@@]@#@@@] 321-NSA. @A@@@] IJK )@@G@@F LOG-ENTRY-TYPE = 5 @C@@@] MOVE R5-CARDS-IN TO NSACD-IJL )@@G@@N (Q) @D@@@] MOVE R5-CARDS-OUT TO NSACD-OUT (Q) @C@@@]JM )@@G@@ MOVE R5-PAGES TO NSAPAGES (Q) @B@@@] MOVJN )@@G@@E R5-SUPS TO NSATOT (Q) @B@@@] MOVE R5-CBS TO NSACB (Q). JO )@@G@@@A@@@] IF LOG-ENTRY-TYPE = 18 @B@@@] MOVE DTIMJP )@@G@@ TO NSATM-FIN (Q) @A@@@] PERFORM 410-NSA-RPT. @A@@@] JQ )@@G@@ IF LOG-ENTRY-TYPE = 17 @B@@@] MOVE R17-CPU TO NSACPJR )@@G@@U (Q) @B@@@] MOVE DTIM TO NSATM-FIN (Q)@A@@@] JS )@@G@@ PERFORM 410-NSA-RPT. @@@@@]@#@@@] 322-LOG-SW.@A@@@] IJT )@@G@@F LOG-ENTRY-TYPE = 5 @B@@@] MOVE R9-DTIM TO C-TIME-X JU )@@G@@@D@@@] MOVE CORR C-TIME-X TO R5-START-TIME @D@@@] JV )@@G@@ SUBTRACT R4-CTRS (12) FROM R5-SUPS @C@@@] SUBJW )@@G@@TRACT R4-CTRS (13) FROM R5-CBS@D@@@] MOVE RCD-5 TO INT-RCDJX )@@G@@-1, INT-RCD-2. @A@@@] IF LOG-ENTRY-TYPE = 17 @D@ @] JY )@@G@@ SUBTRACT R4-CTRS (14) FROM R17-CPU @D@@@] SUBJZ )@@G@@TRACT R4-CTRS (15) FROM R17-ERS @D@@@] SUBTRACT R4-CTRKA )@@G@@S (11) FROM R17-VOLD @ @@@] MOVE 0 TO Q @B@@@] KB )@@G@@ PERFORM 323-SUBT 10 TIMES @D@@@] MOVE RCD-17 TO KC )@@G@@INT-RCD-1 INT-RCD-2. @@@@@]@#@@@] 323-SUBT. @^@@@] AKD )@@G@@DD 1 TO Q. @D@@@] SUBTRACT R4-CTRS (Q) FROM R17IOS (Q). KE )@@G@@@]@@@] / @#@@@] 330-T7. @A@@@] IF RUNID = SRKF )@@G@@T1-RUNID @ @@@] NEXT SENTENCE @#@@@] ELSE KG )@@G@@@ @@@] GO TO 339-EXIT.@A@@@] MOVE INT-RCD-1 TO RKH )@@G@@CD-7. @B@@@] IF R7-MSG-WORD-1 = ' LOAD ' @A@@@] KI )@@G@@ PERFORM 400-WRITE1. @A@@@] IF R7-MSG-NBR IS NUMERIC @B@@@]KJ )@@G@@ AND R7-MSG-SPACE1 = SPACES @B@@@] AND R7-MSG-KK )@@G@@SPACE2 = SPACES @A@@@] PERFORM 331-T7-MSG. @ @@@] KL )@@G@@ GO TO 339-EXIT. @@@@@]@#@@@] 331-T7-MSG.@B@@@] MKM )@@G@@OVE R7-MESSAGE TO WMESSAGE. @ @@@] MOVE 0 TO Q2 Q3 @C@@@]KN )@@G@@ PERFORM 332-MSG THRU 333-CK-ERR. @@@@@]@#@@@] 332-MKO )@@G@@SG. @^@@@] ADD 1 TO Q2. @A@@@] IF WMSG (Q2) = SPACKP )@@G@@ES @ @@@] GO TO 332-MSG. @^@@@] ADD 1 TO Q3. KQ )@@G@@@B@@@] MOVE WMSG (Q2) TO ERRT (Q3). @^@@@] IF Q3 >KR )@@G@@ 2 @ @@@] GO TO 333-CK-ERR.@ @@@] GO TO 332-MSGKS )@@G@@. @@@@@]@#@@@] 333-CK-ERR.@D@@@] IF ERR-XX = 'DA' OKT )@@G@@R 'DB' OR 'DC' OR 'T0' @ @@@] MOVE 7 TO Q2 @A@@@] KU )@@G@@ PERFORM 334-CK-MSG. @@@@@]@#@@@] 334-CK-MSG.@^@@@] KV )@@G@@ IF Q2 = 7 @^@@@] MOVE 0 TO Q3 @A@@@] MOVE SKW )@@G@@PACES TO ERR-MSG. @A@@@] IF WMSG (Q2) = SPACES @A@@@] KX )@@G@@ PERFORM 335-NEXT @#@@@] ELSE @ @@@] KY )@@G@@ ADD 1 TO Q2 @A@@@] GO TO 334-CK-MSG. @@@@@]@#@@@]KZ )@@G@@ 335-NEXT. @^@@@] ADD 1 TO Q2. @A@@@] IF WMSGLA )@@G@@ (Q2) = SPACE @B@@@] AND Q3 > 0 MOVE 0 TO Q3 @A@@@]LB )@@G@@ PERFORM 336-COMPARE @#@@@] ELSE @ @@@] LC )@@G@@ ADD 1 TO Q3 @^@@@] IF Q3 < 7@C@@@] LD )@@G@@ MOVE WMSG (Q2) TO ERRM (Q3) @A@@@] GO TO 335-NEXLE )@@G@@T. @@@@@]@^@@@] 336-COMPARE. @C@@@] IF ERR-MSG = LF )@@G@@'WRTRNG' OR 'WRONG ' @ @@@] NEXT SENTENCE @#@@@] LG )@@G@@ ELSE @A@@@] PERFORM 400-WRITE1 @A@@@] LH )@@G@@ PERFORM 337-K2HOLD. @@@@@]@#@@@] 337-K2HOLD.@^@@@] ALI )@@G@@DD 1 TO Q3. @A@@@] IF K2H (Q3) = SPACES @B@@@] LJ )@@G@@ MOVE R7-MSG-NBR TO K2H (Q3) @#@@@] ELSE @^@@@] LK )@@G@@ IF Q3 < 10@A@@@] GO TO 337-K2HOLD. @^@@@] 339-ELL )@@G@@XIT. EXIT. @]@@@] / @#@@@] 340-T10. @A@@@] MLM )@@G@@OVE INT-RCD-1 TO RCD-10.@A@@@] IF RUNID = SRT1-RUNID @ @@@]LN )@@G@@ MOVE 0 TO Q3 @A@@@] PERFORM 341-K2-MATCH.LO )@@G@@@@@@@]@^@@@] 341-K2-MATCH. @^@@@] ADD 1 TO Q3. @A@@@]LP )@@G@@ IF R10-MSG-NBR = K2H (Q3)@A@@@] PERFORM 400-WRILQ )@@G@@TE1 @B@@@] MOVE SPACES TO K2H (Q3) @#@@@] LR )@@G@@ELSE @^@@@] IF Q3 < 10 @A@@@] GO TO 341-K2-MALS )@@G@@TCH. @]@@@] / @#@@@] 350-T1. @A@@@] MOVE INLT )@@G@@T-RCD-1 TO RCD-1. @B@@@] IF R1-ACCOUNT-CHANGE = '*/H' @C@@@]LU )@@G@@ PERFORM 450-GET-ACCT-NO-CANDIDATE@D@@@] PERLV )@@G@@FORM 453-CHECK-ACCT-NO-VALIDITY @A@@@] IF VALID-ACCT-NLW )@@G@@O @C@@@] PERFORM 454-CLOSE-CURRENT-RUN @C@@@] LX )@@G@@ PERFORM 455-OPEN-NEXT-RUN. @]@@@] / @#@@@] LY )@@G@@ 400-WRITE1.@B@@@] MOVE INC TO INT1-INC INT2-INC. @B@@@] LZ )@@G@@ WRITE ITERIM FROM INTERIM-1 @ @@@] ADD 1 TO LOG-VOL. MA )@@G@@@@@@@]@#@@@] 401-WRITE2.@B@@@] WRITE ITERIM FROM INTERIMMB )@@G@@-2 @ @@@] ADD 1 TO LOG-VOL. @]@@@] / @^@@@] MC )@@G@@ 410-NSA-RPT. @^@@@] IF OPPG = 0 @B@@@] MOVMD )@@G@@E OP-CARD TO C-CARD @C@@@] ENTER FD ASM 'EQUIP' USING ME )@@G@@C-CARD@ @@@] MOVE 1 TO OPPG @A@@@] OPEN OUTPMF )@@G@@UT OPPRINT @A@@@] PERFORM 412-OP-HDRS. @ @@@] IMG )@@G@@F OP-LINES > 55 @A@@@] PERFORM 412-OP-HDRS. @C@@@] MH )@@G@@ MOVE NSARUNID (Q) TO OP-RUNID @C@@@] MOVE NSAACCTNMI )@@G@@O (Q) TO OP-ACCT-NO @B@@@] MOVE NSAPROJ (Q) TO OP-PROJMJ )@@G@@@C@@@] MOVE NSADEVICE (Q) TO OP-DEVICE @C@@@] MMK )@@G@@OVE NSAUSERID (Q) TO OP-USER-ID @C@@@] MOVE NSACD-IN (Q) ML )@@G@@ TO OP-CD-IN @C@@@] MOVE NSACD-OUT (Q) TO OP-CD-OUT MM )@@G@@@C@@@] MOVE NSAPAGES (Q) TO OP-PAGES @B@@@] MMN )@@G@@OVE NSATOT (Q) TO OP-TOT @B@@@] MOVE NSACPU (Q) TO OMO )@@G@@P-CPU @B@@@] MOVE NSACB (Q) TO OP-CB @C@@@] MMP )@@G@@OVE NSATM-START (Q) TO CNVT-BIN. @A@@@] MOVE CBIN1 TO DATE-MQ )@@G@@R. @ @@@] MOVE RYR TO MYR@ @@@] MOVE RMO MR )@@G@@TO MMO@ @@@] MOVE RDA TO MDA@ @@@] ADD 64 TO MYRMS )@@G@@. @A@@@] MOVE MMO TO OP-DATE-A1. @A@@@] MOVE MDMT )@@G@@A TO OP-DATE-A2. @A@@@] MOVE MYR TO OP-DATE-A3. @A@@@] MU )@@G@@ MOVE CBIN2 TO DATE9. @A@@@] MOVE ZEROS TO DATE-B. MV )@@G@@@A@@@] PERFORM 413-CNVT-SEC. @A@@@] MOVE MYR TO OMW )@@G@@P-TM-ST1. @A@@@] MOVE MMO TO OP-TM-ST2. @A@@@] MMX )@@G@@OVE MDA TO OP-TM-ST3. @B@@@] MOVE NSATM-FIN (Q) TO CNVT-BIN.MY )@@G@@@A@@@] MOVE CBIN1 TO DATE-R @ @@@] MOVE RYR MZ )@@G@@TO MYR@ @@@] MOVE RMO TO MMO@ @@@] MOVE RDA NA )@@G@@TO MDA@ @@@] ADD 64 TO MYR. @A@@@] MOVE MMO TO ONB )@@G@@P-DATE-F1. @A@@@] MOVE MDA TO OP-DATE-F2. @A@@@] MNC )@@G@@OVE MYR TO OP-DATE-F3. @ @@@] MOVE CBIN2 TO DATE9@A@@@] ND )@@G@@ MOVE ZEROS TO DATE-B. @A@@@] PERFORM 413-CNVT-SEC. NE )@@G@@@A@@@] MOVE MYR TO OP-TM-FIN1 @A@@@] MOVE MMO TO ONF )@@G@@P-TM-FIN2 @A@@@] MOVE MDA TO OP-TM-FIN3. @E@@@] NG )@@G@@ MOVE SLASH TO OP-SL1 OP-SL2 OP-SL3 OP-SL4. @D@@@] WRITE ONH )@@G@@PPRT FROM OPDATA1 AFTER ADVANCING 2.@D@@@] WRITE OPPRT FROM OPNI )@@G@@DATA2 AFTER ADVANCING 1.@ @@@] ADD 3 TO OP-LINES. @@@@@]@^@@@]NJ )@@G@@ 412-OP-HDRS. @B@@@] MOVE OPPG TO DEPT-PAGE-NUM. NK )@@G@@@D@@@] WRITE OPPRT FROM DEPT-HEADER-1 AFTER PAGE. @E@@@] NL )@@G@@ WRITE OPPRT FROM DEPT-HEADER-2 AFTER ADVANCING 1.@D@@@] WNM )@@G@@RITE OPPRT FROM OPTITLE AFTER ADVANCING 2.@D@@@] WRITE OPPRT FNN )@@G@@ROM OPLINE1 AFTER ADVANCING 4.@A@@@] MOVE 11 TO OP-LINES. NO )@@G@@@@@@@]@^@@@] 413-CNVT-SEC. @F@@@] DIVIDE 3600 INTO DANP )@@G@@TE9 GIVING MYR REMAINDER CONVT1. @E@@@] DIVIDE 60 INTO CONVNQ )@@G@@T1 GIVING MMO REMAINDER MDA. @]@@@] / @A@@@] 450-GET-ACCNR )@@G@@T-NO-CANDIDATE. @^@@@] MOVE 0 TO Q @^@@@] MOVE 1 NS )@@G@@TO Q1 @A@@@] MOVE SPACES TO WMESSAGE. @A@@@] MOVE 'HNT )@@G@@' TO WMSG (1). @A@@@] PERFORM 451-LOG-ACCT. @@@@@]@^@@@]NU )@@G@@ 451-LOG-ACCT. @^@@@] ADD 1 TO Q. @B@@@] INV )@@G@@F R1-ACCOUNT-CHAR (Q) > SPACES@ @@@] ADD 1 TO Q1 @D@@@]NW )@@G@@ MOVE R1-ACCOUNT-CHAR (Q) TO WMSG (Q1) @A@@@] NX )@@G@@ GO TO 451-LOG-ACCT. @ @@@] PERFORM 452-SPACE. @@@@@]@#@@@]NY )@@G@@ 452-SPACE. @^@@@] ADD 1 TO Q1 @A@@@] MOVE SPNZ )@@G@@ACE TO WMSG (Q1). @^@@@] IF Q1 < 12 @A@@@] GO OA )@@G@@TO 452-SPACE. @@@@@]@@@@@]@A@@@] 453-CHECK-ACCT-NO-VALIDITY. OB )@@G@@@B@@@] MOVE 'N' TO SW-VALID-ACCT-NO. @^@ @] SET P3 OC )@@G@@TO 1. @A@@@ SET ACCNT-INDEX TO 1. @ @@@] SEARCH OD )@@G@@ALL VTABLE @E@ @] WHEN VALID-ACCNT-NO (P3) = WMESSAGE-OE )@@G@@FLD1 @G@@@ WHEN VALID-ACCNT-NO (ACCNT-INDEX) = WMESSAOF )@@G@@GE-FLD1 @D@@@] MOVE 'Y' TO SW-VALID-ACCT-NO. OG )@@G@@@@@@@]@ @@@] 454-CLOSE-CURRENT-RUN. @ @@@] MOVE 1 TO LOGOH )@@G@@-SW. @A@@@] MOVE ' TURKY' TO R5-ID. @A@@@] MOVE 'LOI )@@G@@TURKY' TO R17-ID. @B@@@] MOVE R9-ACCOUNT TO R5-ACCT. @B@@@]OJ )@@G@@ MOVE R9-PROJECT TO R5-PROJ. @A@@@] MOVE R9-DTIM OK )@@G@@TO C-TIME-X.@C@@@] MOVE CORR C-TIME-X TO R5-START-TIME. @A@@@]OL )@@G@@ MOVE DTIM TO C-TIME. @C@@@] MOVE CORR C-TIME-X OM )@@G@@TO R5-FIN-TIME. @B@@@] MOVE DTIM TO R5-DTIM R17-DTIM. @B@@@]ON )@@G@@ MOVE R9-USERID TO R5-USERID. @C@@@] MOVE R9-RUNIDOO )@@G@@ TO R5-RUNID R17-RUNID. @A@@@] MOVE 0 TO R5-CARDS-IN @A@@@]OP )@@G@@ R5-CARDS-OUT @ @@@] R5-PAGES OQ )@@G@@@ @@@] R5-ESUPS @ @@@] R5-12 OR )@@G@@@ @@@] R5-13 @ @@@] R5-14 OS )@@G@@@ @@@] R5-15 @ @@@] R5-16 OT )@@G@@@ @@@] R5-17 @ @@@] R5-18 OU )@@G@@@ @@@] R5-19 @ @@@] R5-22 OV )@@G@@@ @@@] R5-23 @ @@@] R5-24. OW )@@G@@@ @@@] MOVE 0 TO R17-1 @ @@@] R17-2 OX )@@G@@@ @@@ R17-CPU @ @@@] R17-16 OY )@@G@@@ @@@] R17-17 @ @@@] R17-18 OZ )@@G@@@ @@@] R17-19 @ @@@] R17-20 PA )@@G@@@ @@@] R17-21 @ @@@] R17-22 PB )@@G@@@ @@@] R17-23 @ @@@ R17-24. PC )@@G@@@ @ @] R17-24. @D@ @] MOVE INT-SRT-1 TO SPD )@@G@@RT-REC-5 SRT-REC-17. @C@ @] COMPUTE R4-CPU = R4-SUPS - R4-CPE )@@G@@ARDS. @A@ @] PERFORM 457-SUBTRACT-IO @A@ @] VARYIPF )@@G@@NG Q FROM 1 BY 1 @ @ @] UNTIL Q > 10. @G@@@] SPG )@@G@@UBTRACT R4-CTRS (11) FROM R4-VOL-DELAY GIVING R17-VOLD. @G@@@] PH )@@G@@ SUBTRACT R4-CTRS (12) FROM R4-SUPS GIVING R5-SUPS. @F@@@]PI )@@G@@ SUBTRACT R4-CTRS (13) FROM R4-CBS GIVING R5-CBS.@G@ @]PJ )@@G@@ SUBTRACT R4-CTRS (14) FROM R4-CPU GIVING R17-CPU. PK )@@G@@@G@@@] SUBTRACT R4-CTRS (15) FROM R4-CARDS GIVING R17-ERSPL )@@G@@. @^@@@] MOVE 0 TO Q. @B@@@] PERFORM 456-MOVE-IOPM )@@G@@ 10 TIMES. @C@@@] MOVE R4-VOL-DELAY TO R4-CTRS (11). @C@@@]PN )@@G@@ MOVE R4-SUPS TO R4-CTRS (12). @C@@@] MOVE R4PO )@@G@@-CBS TO R4-CTRS (13). @B@ @] MOVE R4-CPU TO R4-CTRS (1PP )@@G@@4). @B@@@] MOVE R4-CARDS TO R4-CTRS (15). @D@@@ MPQ )@@G@@OVE INT-SRT-1 TO SRT-REC-5 SRT-REC-17. @C@@@] ADD 1 TO INC PR )@@G@@MOVE INC TO R5-INC. @B@@@] WRITE ITERIM FROM RECORD-5 PS )@@G@@@ @@@] ADD 1 TO LOG-VOL. @C@@@] ADD 1 TO INC MOVE IPT )@@G@@NC TO R17-INC. @B@@@] WRITE ITERIM FROM RECORD-17 @ @@@]PU )@@G@@ ADD 1 TO LOG-VOL. @D@@@] MOVE INT-SRT-2 TO SRT-RECPV )@@G@@-5 SRT-REC-17. @C@@@] ADD 1 TO INC MOVE INC TO R5-INC. PW )@@G@@@B@@@] WRITE ITERIM FROM RECORD-5 @ @@@] ADD 1 TPX )@@G@@O LOG-VOL @C@@@] ADD 1 TO INC MOVE INC TO R17-INC. @B@@@]PY )@@G@@ WRITE ITERIM FROM RECORD-17 @ @@@] ADD 1 TO LOG-PZ )@@G@@VOL. @@@@@]@ @@@] 455-OPEN-NEXT-RUN. @G@@@] MOVE WMQA )@@G@@ESSAGE-FLD1 TO SRT1-ACCOUNT SRT2-ACCOUNT R9-ACCOUNT. @A@@@] MQB )@@G@@OVE 0 TO R9-BL-MINS. @B@@@] MOVE DTIM TO R9-DTIM-REDEF QC )@@G@@@A@@@] MOVE DT TO SRT1-DATE @A@@@] MOVE DT TO SRQD )@@G@@T2-DATE @A@@@] MOVE DTIM TO SRT1-DTIM @C@@@] MQE )@@G@@OVE RCD-9 TO INT-RCD-1 INT-RCD-2 @C@@@] PERFORM 400-WRITE1 QF )@@G@@THRU 401-WRITE2. @@@@@]@^@@@] 456-MOVE-IO. @^@@@] AQG )@@G@@DD 1 TO Q. @F@@@] SUBTRACT R4-CTRS (Q) FROM R4-IOS (Q) GIVINGQH )@@G@@ R17IOS (Q).@C@@@] MOVE R4-IOS (Q) TO R4-CTRS (Q). @@@ @]QI )@@G@@@^@ @] 457-SUBTRACT-IO. @C@ @] SUBTRACT R4-IOS (Q) FROM QJ )@@G@@R4-CPU. @]@@@] / @ @@@] 491-ACCUMULATE-TRACKS. @A@ @]QK )@@G@@ IF R3-GRAN-CNT (P2) > 0 @B@@@ IF R3-GRAN-CNT (GRAQL )@@G@@N-SUB) > 0 @B@@@] IF R3-POSITION-GRANULARITY @D@ @] QM )@@G@@ MULTIPLY 64 BY R3-GRAN-CNT (P2). @E@@@ MQN )@@G@@ULTIPLY 64 BY R3-GRAN-CNT (GRAN-SUB). @A@ @] IF R3-GRAN-CNQO )@@G@@T (P2) > 0 @B@@@ IF R3-GRAN-CNT (GRAN-SUB) > 0 @A@@@] QP )@@G@@ IF R3-FREE-TIME > 0 @E@ @] ADD R3-GRAN-CNT (P2QQ )@@G@@) TO FREE-TRACKS (P2) @G@@@ ADD R3-GRAN-CNT (GRAN-SUBQR )@@G@@) TO FREE-TRACKS (GRAN-SUB) @#@@@] ELSE@E@ @] QS )@@G@@ ADD R3-GRAN-CNT (P2) TO ASG-TRACKS (P2). @G@@@ AQT )@@G@@DD R3-GRAN-CNT (GRAN-SUB) TO ASG-TRACKS (GRAN-SUB). @@@@@]@ @@@] QU )@@G@@ 492-CLEAR-T3-TABLES. @A@ @] MOVE 0 TO ASG-TRACKS (P2)@B@@@ QV )@@G@@ MOVE 0 TO ASG-TRACKS (GRAN-SUB)@B@ @] FREEQW )@@G@@-TRACKS (P2). @C@@@ FREE-TRACKS (GRAN-SUB). QX )@@G@@@@@@@]@ @@@] 493-COLLECT-NEW-GRANS. @C@ @] IF FREE-TRACKQY )@@G@@S (P2) > ASG-TRACKS (P2)@E@@@ IF FREE-TRACKS (GRAN-SUB) > ASGQZ )@@G@@-TRACKS (GRAN-SUB)@B@ @] COMPUTE R3-GRAN-CNT (P2) = @C@@@ RA )@@G@@ COMPUTE R3-GRAN-CNT (GRAN-SUB) = @D@ @] FRB )@@G@@REE-TRACKS (P2) - ASG-TRACKS (P2) @F@@@ FREE-TRACKS (RC )@@G@@GRAN-SUB) - ASG-TRACKS (GRAN-SUB) @#@@@] ELSE @B@ @] RD )@@G@@ MOVE 0 TO R3-GRAN-CNT (P2). @C@@@ MOVE 0 TO R3-GRARE )@@G@@N-CNT (GRAN-SUB). @@@@@]@^@@@] 494-RELEASE-R3. @A@@@] MRF )@@G@@OVE '#T3SUM' TO R3-ID. @ @@@] MOVE INC TO R3-INC.@B@@@] RG )@@G@@ MOVE INT-SRT-1 TO SRT-REC3. @B@@@] WRITE ITERIM FROM RRH )@@G@@ECORD-3 @ @@@] ADD 1 TO LOG-VOL. @^@@@] ADD 1 TRI )@@G@@O INC.@ @@@] MOVE 0 TO R3-SW. @]@@@] / @ @ @] RJ )@@G@@ 490-FINISH-REPORTS. @ @@@ 499-FINISH-REPORTS. @ @@@] RK )@@G@@ MOVE 30 TO Q4. @^@@@] IF OPPG > 0 @ @@@] RL )@@G@@ CLOSE OPPRINT @A@#@] MOVE OP-FREE TO C-CARD @B@@@# RM )@@G@@ MOVE OP-FREE TO C-CARD @C@#@] ENTER FD ASM 'EQURN )@@G@@IP' USING C-CARD @C@@@# ENTER FD ASM 'EQUIP' USING C-CARDRO )@@G@@@A@#@] MOVE OP-SYM TO C-CARD @A@@@# MOVE OP-SRP )@@G@@YM TO C-CARD@C@#@] ENTER FD ASM 'EQUIP' USING C-CARD.@D@@@#RQ )@@G@@ ENTER FD ASM 'EQUIP' USING C-CARD. @^@@@] IRR )@@G@@F AFPG > 0 @ @@@] CLOSE AFPRINT @A@#@] MOVE ARS )@@G@@F-FREE TO C-CARD @B@@@# MOVE AF-FREE TO C-CARD @C@#@]RT )@@G@@ ENTER FD ASM 'EQUIP' USING C-CARD @C@@@# ENTRU )@@G@@ER FD ASM 'EQUIP' USING C-CARD@A@#@] MOVE AF-SYM TO C-CARD RV )@@G@@@A@@@# MOVE AF-SYM TO C-CARD@C@#@] ENTER FD ARW )@@G@@SM 'EQUIP' USING C-CARD.@D@@@# ENTER FD ASM 'EQUIP' USING RX )@@G@@C-CARD. @@@@@]@]@ @] / @^@ @] 520-WRITE-VOLUME.@^@@@ RY )@@G@@ 500-WRITE-VOLUME.@C@@@] DIVIDE LOG-VOL BY 850 GIVING DIRZ )@@G@@FF. @ @@@] ADD 1 TO DIFF. @ @@@] MOVE DIFF TO SA )@@G@@LOG-V.@^@@@] WRITE L-CARD.@@@@@]@^@@@] 900-GET-CNT. SB )@@G@@@ @@@] MOVE 0 TO CTR. @B@@@] MOVE NUM-WDS-IN-ENTSC )@@G@@RY TO CTR. @ @@@] MULTIPLY 6 BY CTR. @A@@@] SUBTRACSD )@@G@@T 6 FROM CTR. ___ MOVE NSAUSERID (Q) TO O*[S@@@*SDFF*@A@@@@ SE )@@G@@ IDENTIFICATION DIVISION. @@@@@@@@@@@@@B@@@@ PROGRAM-ID. H1550SF )@@G@@030. (LEV 1R1) @ @@@@ AUTHOR. DOUG RAGSDALE. @D@@@@ INSTASG )@@G@@LLATION. TX DEPT OF HEALTH; AUSTIN, TX. @A@@@@ DATE-WRITTEN. JUNSH )@@G@@E 06, 1978. @^@@@@ DATE-COMPILED. @#@@@@ SECURITY. @E@@@@SI )@@G@@ *REMARKS. ASCII ANS-1974 ACOB 3R1 @F@@@@ SJ )@@G@@* THIS PROGRAM CREATES THE SYSTEM DAILY-ACCNT FILE FOR @F@@@@ SK )@@G@@* USE BY H1550070 AND THE SYMBIONT-USAGE FILE, BY IN- @F@@@@ SL )@@G@@* TERPRETING THE INTERIM-ACCNT FILE PROVIDED BY H1550020.@F@@@@ SM )@@G@@* TWO REPORTS, SYM-RPT (SUMMARY OF PROCESSSING ACTIVITY @F@@@@ SN )@@G@@* BY SYMBIONT DEVICE) AND RUN-RPT (SUMMARY OF ACTIVITY @F@@@@ SO )@@G@@* BY RUNID) ARE SELECTABLE VIA PARAMETER CARD. ALL ERRORS@A@@@@ SP )@@G@@* ARE LISTED ON ERR-RPT. @]@@@@ * @ @@@@ * CHANGE SQ )@@G@@ 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOL (ACOB4). @]@@@@SR )@@G@@ * @C@@@@ * CHANGE #1 06/16/80 D. HEROLD @E@@@@SS )@@G@@ * CHANGE TO ACCEPT LEVEL 36 SYSTEM LOG FORMATS. @]@@@[ ST )@@G@@* @C@@@[ * CHANGE #2 08/25/80 D. HEROLD @D@@@[ SU )@@G@@* CHANGE TO ACCEPT 1100/60 SYSTEM LOG FORMATS@]@@@^ * @C@@@^SV )@@G@@ * CHANGE #3 11/21/80 D. HEROLD @G@@@^ * CHANGE SW )@@G@@TO MAKE RUN-TYPE BE REAL-TIME/DEMAND WHEN PROJECT-ID @#@@@^ * =SX )@@G@@ TIP$.@ @@@@ ENVIRONMENT DIVISION. @@@@@@@@@@@@@ @@@@ CONFISY )@@G@@GURATION SECTION. @@@@@@@ @@@@ COPY COMPUTER-NAMES. @@@@@@@^@@@@SZ )@@G@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NAMES. @ @@@@ TA )@@G@@ INPUT-OUTPUT SECTION. @@@@@@@^@@@@ FILE-CONTROL. @@@@@@@ @@@@TB )@@G@@ SELECT INTERIM-FILE@D@@@@ ASSIGN MASS-STORAGTC )@@G@@E INT-ACCT-SRT. @ @@@@ SELECT ACCT-FILE @D@@@@ TD )@@G@@ ASSIGN MASS-STORAGE DAILY-ACCT. @ @@@@ SELECT SYM-FITE )@@G@@LE @C@@@@ ASSIGN MASS-STORAGE DAILY-SYM.@ @@@@ TF )@@G@@ SELECT SYM-RPT @C@@@@ ASSIGN PRINTER SYMBIONT-TG )@@G@@RPT. @ @@@@ SELECT RUN-RPT @C@@@@ ASSIGNTH )@@G@@ PRINTER RUNS-TODAY. @ @@@@ SELECT ERR-RPT @A@@@@ TI )@@G@@ ASSIGN PRINTER. @ @@@@ SELECT PARAM-CARD @B@@@@TJ )@@G@@ ASSIGN CARD-READER. @]@@@@ / @^@@@@ TK )@@G@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE SECTION. @@@@@@@^@@@@TL )@@G@@ FD INTERIM-FILE @B@@@@ BLOCK CONTAINS 6 RECORDS TM )@@G@@@A@@@@ LABEL RECORDS STANDARD @A@@@@ RECORDING MODTN )@@G@@E INTERNAL. @@@@@@@^@#@@ 01 INTERIM-REC. @B@@@# 01 INTERIMTO )@@G@@-REC DISP-1.@E@]@@ 03 INT-TYPE PIC TP )@@G@@9 COMP-4. @C@@@] 03 INT-TYPE PIC 1(6). TQ )@@G@@@E@#@@ 03 FILLER PIC X(149) DISP-1. @D@@@#TR )@@G@@ 03 FILLER PIC X(149). @E@@@@ 03 TS )@@G@@INT-ENTRY-TIME COMP-4. @D@@@@ 05 INTTT )@@G@@-ENTRY-DATE COMP-4. @C@@@@ 07 INT-ENTRY-YYTU )@@G@@ PIC 1(6). @C@@@@ 07 INT-ENTRY-MM PIC 1(6). TV )@@G@@@C@@@@ 07 INT-ENTRY-DD PIC 1(6). @D@@@@ TW )@@G@@05 INT-ENTRY-SEC PIC 9(5) COMP-4.@E@#@@ 03 FILLER TX )@@G@@ PIC X(12) DISP-1. @C@@@# 03 FILLER TY )@@G@@ PIC X(12).@C@@@@ 03 INT-SORT-DATE-9 PIC 9(10) COMP-4. TZ )@@G@@@E@#@@ 03 INT-DEVICE-ID PIC X(6) DISP-1. @C@@@#UA )@@G@@ 03 INT-DEVICE-ID PIC X(6). @E@#@@ 03 INT-PRUB )@@G@@I-ACCT-NO DISP-1. @ @@@# 03 INT-PRI-ACCTUC )@@G@@-NO. @C@@@@ 05 INT-PRI-ACCT-GP PIC XX. @C@@@@ UD )@@G@@ 05 FILLER PIC X(10).@A@@@@ 03 INT-PRI-ACCNUE )@@G@@T9 REDEFINES@ @@@@ INT-PRI-ACCT-NO. @C@@@@ 05 FILUF )@@G@@LER PIC 9 COMP-4. @D@@@@ 05 INT-PRI-ACCT-NO-9 PICUG )@@G@@ 9(18) COMP-4. @D@#@@ 03 INT-RUNID PIC X(6) DISPUH )@@G@@-1. @C@@@# 03 INT-RUNID PIC X(6). @F@@@@ UI )@@G@@ 03 INT-SYMB-DATE REDEFINES INT-RUNID PIC 9(10) COMP-4. @C@#@@ UJ )@@G@@ 03 INT-SYMB-RUNID PIC X(6) DISP-1. @B@@@# 03 INT-SYMB-RUNUK )@@G@@ID PIC X(6). @@@@@@@^@@@@ FD ACCT-FILE @B@@@@ BUL )@@G@@LOCK CONTAINS 3 RECORDS @A@@@@ LABEL RECORDS STANDARD UM )@@G@@@A@@@@ RECORDING MODE INTERNAL. @@@@@@@@@@@@@B@@@@ 01 WUN )@@G@@-ACT-REC. COPY DLY-ACCT-MST. @@@@@@@@@@@@@^@@@@ FD SYM-FILE UO )@@G@@@B@@@@ BLOCK CONTAINS 15 RECORDS @A@@@@ LABEL RUP )@@G@@ECORDS STANDARD @A@@@@ RECORDING MODE INTERNAL. @@@@@@@^@@@@UQ )@@G@@ 01 SYM-REC. @A@@@@ 03 SYM-REC-ID USAGE DISP-1.@E@@@@UR )@@G@@ 05 SYM-DEVICE PIC X(6). @C@@@@ US )@@G@@ 05 SYM-ACCT PIC X(12). @^@@@@ 05 SYM-DATE. UT )@@G@@@E@@@@ 07 SYM-YY PIC 99. @E@@@@UU )@@G@@ 07 SYM-MM PIC 99. @E@@@@ UV )@@G@@ 07 SYM-DD PIC 99. @A@@@@ 03 UW )@@G@@SYM-DATA USAGE COMP-4. @C@@@@ 05 SYM-SHIFT-INFO OCCURS 3 TIMEUX )@@G@@S. @E@@@@ 07 DLBT PIC 9(10). UY )@@G@@@E@@@@ 07 BT PIC 9(10). @E@@@@UZ )@@G@@ 07 DM PIC 9(10). @E@@@@ VA )@@G@@ 07 PRIORITY PIC 9(10). @E@@@@ VB )@@G@@ 07 FILLER PIC 9. @E@@@@ 07 ELVC )@@G@@AP-SECS PIC 9(18). @E@@@@ 07 FILLER VD )@@G@@ PIC 9. @E@@@@ 07 TOT-SECS VE )@@G@@ PIC 9(18). @E@@@@ 07 FILLER VF )@@G@@ PIC 9. @E@@@@ 07 CPU-SECS VG )@@G@@ PIC 9(18). @E@@@@ 07 FILLER VH )@@G@@ PIC 9. @E@@@@ 07 C-BLKS PIC 9VI )@@G@@(18). @E@@@@ 07 S-CDS-N PIC 9(10). VJ )@@G@@@E@@@@ 07 S-CDS-O PIC 9(10). @E@@@@VK )@@G@@ 07 R-CDS-N PIC 9(10). @E@@@@ VL )@@G@@ 07 R-CDS-O PIC 9(10). @E@@@@ VM )@@G@@ 07 S-LINES PIC 9(10). @E@@@@ 07 R-VN )@@G@@LINES PIC 9(10). @C@@@@ 03 CLR-SYM-DATAVO )@@G@@ REDEFINES SYM-DATA. @F@@@@ 05 CLR-SYM-DATA-WD OCCURS 54 TVP )@@G@@IMES PIC 9(10) COMP-4. @@@@@@@@@@@@@^@@@@ FD PARAM-CARD @A@@@@VQ )@@G@@ LABEL RECORDS OMITTED. @@@@@@@^@@@@ 01 PARAM-REC. VR )@@G@@@E@@@@ 03 SW-SYMBIONT PIC X. @B@@@@VS )@@G@@ 88 SYMBIONT-REPORT VALUE 'Y'. @E@@@@ 03 SW-RUNID VT )@@G@@ PIC X. @B@@@@ 88 RUNID-REPORT VU )@@G@@VALUE 'Y'. @E@@@@ 03 SW-TIPSUM PIC XVV )@@G@@. @B@@@@ 88 TIPSUM VALUE 'Y'. @E@@@@ 03 VW )@@G@@FILLER PIC X(77). @@@@@@@@@@@@@#@@@@ VX )@@G@@ FD SYM-RPT@A@@@@ LABEL RECORDS OMITTED. @@@@@@@E@@@@ VY )@@G@@ 01 SYM-LINE PIC X(132).@@@@@@@@@@@@@#@@@@VZ )@@G@@ FD RUN-RPT@A@@@@ LABEL RECORDS OMITTED. @@@@@@@E@@@@WA )@@G@@ 01 RUN-LINE PIC X(132).@@@@@@@@@@@@WB )@@G@@@#@@@@ FD ERR-RPT@A@@@@ LABEL RECORDS OMITTED. @@@@@@WC )@@G@@@E@@@@ 01 ERR-LINE PIC X(132).@]@@@@WD )@@G@@ / @A@@@@ WORKING-STORAGE SECTION. @@@@@@@@@@@@@G@@@@WE )@@G@@ 77 SUB USAGE COMP PIC 9(10) VALUE 0. WF )@@G@@@G@@@@ 77 SUB1 USAGE COMP PIC 9(10) VALUE 0WG )@@G@@. @E@@@@ 77 SUB2 USAGE COMP PIC 9(10) VALUE 0. WH )@@G@@@E@@@@ 77 SR-PG-CNTR VALUE 0 PIC 9(10) COMP. @E@@@@WI )@@G@@ 77 SR-LINE-CNTR VALUE 0 PIC 9(10) COMP. @E@@@@ WJ )@@G@@ 77 ELAPSED-SECS VALUE 0 PIC 9(10) COMP. @E@@@@ 77 EWK )@@G@@LAPSED-DAYS PIC 9(10) COMP VALUE 0.@E@@@@ 77 CUR-YR-WL )@@G@@MOD-1964 PIC 9(10) COMP VALUE 0.@E@@@@ 77 Q1 VALUEWM )@@G@@ 0 PIC 9(6) COMP. @E@@@@ 77 Q2 VALUE 0 WN )@@G@@ PIC 9(6) COMP. @E@@@@ 77 Q3 VALUE 0 WO )@@G@@ PIC 9(10) COMP. @E@@@@ 77 Q4 VALUE 0 WP )@@G@@PIC 9(10) COMP. @E@@@@ 77 Q5 VALUE 0 PIC 9(WQ )@@G@@10) COMP. @E@@@@ 77 HOLD-INDEX VALUE 0 PIC 9(10) COWR )@@G@@MP. @E@@@@ 77 HOLD-P3 VALUE 0 PIC 9(10) COMP . WS )@@G@@@E@@@@ 77 COMP-SECS VALUE 0 PIC 9(5) COMP. @E@@@@WT )@@G@@ 77 GRANULE-CNT VALUE 0 PIC 9(5) COMP. @E@@@@ WU )@@G@@ 77 NO-RUNS1 VALUE 0 PIC 9(5) COMP. @E@@@@ 77 NWV )@@G@@O-RUNS2 VALUE 0 PIC 9(5) COMP. @E@@@@ 77 PRIORITWW )@@G@@Y-QUO VALUE 0 PIC 9(5) COMP. @D@@@@ 77 CUR-SYM-DEV UWX )@@G@@SAGE DISP-1 PIC X(6). @E@@@@ 77 CUR-SYM-DATE WY )@@G@@ PIC 9(10) COMP-4.@E@@@@ 77 CUR-SYMRPT-DEV USAGE DISP-1 WZ )@@G@@ PIC X(6). @D@@@@ 77 CUR-SYMRPT-SHIFT VALUE 0 PICXA )@@G@@ 9. @D@@@@ 77 WORK-SHIFT PIC 9 VALUE 0. @D@@@@XB )@@G@@ 77 CUR-SHIFT PIC 9 VALUE 0. @C@@@@ 77 WXC )@@G@@ORK1-SHIFT VALUE 0 PIC 9.@C@@@@ 77 WORK2-SHIFT VALUEXD )@@G@@ 0 PIC 9.@C@@@@ 77 RUN-SHIFT VALUE 0 PIC 9. XE )@@G@@@D@@@@ 77 HOLD-WORK2-SHIFT VALUE 0 PIC 9. @E@@@@ XF )@@G@@ 77 SYM-REC-OUT-CNT VALUE 0 PIC 9(6) COMP. @D@@@@ 77 SXG )@@G@@YM-REC-IN-CNT VALUE 0 PIC 9(10) COMP. @D@@@@ 77 ACNT-YEAR XH )@@G@@ VALUE 0 PIC 99 COMP. @D@@@@ 77 REC-IN-CNT VALUE 0 XI )@@G@@ PIC 9(6) COMP. @F@@@@ 77 ACCT-REC-OUT-CNT PIC 9(6) XJ )@@G@@COMP VALUE 0. @D@@@@ 77 JOB-REC-IN PIC 9(6) COMP VAXK )@@G@@LUE 0.@E@@@@ 77 KILL-REC-IN PIC 9(6) COMP VALUE 0. XL )@@G@@@E@@@@ 77 PACK-REC-IN PIC 9(6) COMP VALUE 0. @F@@@@XM )@@G@@ 77 ERR-LINE-CNT PIC 9(10) COMP VALUE 77. @F@@@@XN )@@G@@ 77 ERR-PAGE-CNT PIC 9(10) COMP VALUE 0. @F@@@@XO )@@G@@ 77 W-SUP-SECS VALUE 0 PIC 9(11)V999 COMP. @E@@@@XP )@@G@@ 77 PRIORITY-ACCUM1 VALUE 0 PIC 9(5) COMP. @E@@@@ XQ )@@G@@ 77 PRIORITY-ACCUM2 VALUE 0 PIC 9(5) COMP. @D@@@@ 77 LXR )@@G@@AST-WORK-SHIFT PIC 9 VALUE 0. @D@@@@ 77 BATCH-SUP-CNTXS )@@G@@ PIC 9(10) COMP VALUE 0.@D@@@@ 77 RT-BATCH-SUP-CNT PIC 9XT )@@G@@(10) COMP VALUE 0.@D@@@@ 77 RT-BATCH-PRI-CNT PIC 9(10) COMP VAXU )@@G@@LUE 0.@D@@@@ 77 RT-BATCH-AV-PRI PIC 9(10) COMP VALUE 0.@D@@@@XV )@@G@@ 77 BATCH-PRI-CNT PIC 9(10) COMP VALUE 0.@D@@@@ 77 BXW )@@G@@ATCH-AV-PRI PIC 9(10) COMP VALUE 0.@E@@@@ 77 SR-PG-CNT XX )@@G@@ PIC 9(10) COMP VALUE 0.@C@@@@ 77 FIND-FILE XY )@@G@@ PIC 9 VALUE 0. @B@@@@ 77 LAST-ERROR-TYPE PIC X(5).@E@@@@XZ )@@G@@ 77 TOT-CAT-TRKS PIC 9(5) COMP VALUE 0. @C@@@@ YA )@@G@@ 77 HOLD-PRIT PIC X. @C@@@@ 77 PRIORITY-FINDYB )@@G@@ PIC 9. @C@@@@ 77 PK-FIND PIC 9YC )@@G@@. @C@@@@ 77 KILL-FIND PIC 9. @E@@@@ YD )@@G@@ 77 CDAY COMP-4 PIC S9(10) VALUE 0. @E@@@@ 77 CYE )@@G@@MONTH COMP-4 PIC S9(10) VALUE 0. @E@@@@ 77 CYEAR YF )@@G@@ COMP-4 PIC S9(10) VALUE 0. @E@@@@ 77 DAY-OF-WEEK YG )@@G@@COMP-4 PIC S9(10) VALUE 0. @F@@@@ 77 X-YEAR YH )@@G@@ PIC 9(10) COMP VALUE 0. @D@@@@ 77 RUNRPT-PG-CNTR YI )@@G@@ PIC 9(5) COMP. @D@@@@ 77 RUNRPT-LN-CNTR PIC YJ )@@G@@9(5) COMP. @D@@@@ 77 P PIC 9(5) COMP. YK )@@G@@@D@@@@ 77 Q PIC 9(5) COMP. @C@@@@ YL )@@G@@ 77 RUNRPT-RUN-SHIFT PIC 9. @C@@@@ 77 BREAK-TYPE YM )@@G@@ PIC 9. @C@@@@ 77 RUNRPT-RUN-TYPE PIC YN )@@G@@XX. @D@@@@ 77 SECS-AFTER-MIDNIGHT PIC 9(10) COMP. @D@@@@YO )@@G@@ 77 WORK-ACCUM PIC S9(7)V999 COMP.@D@@@@ 77 DYP )@@G@@D-DISP-1 PIC 99 DISP-1. @E@@@@ 77 SYM-PRI-VALUEYQ )@@G@@ PIC S9(10) COMP-4. @D@@@@ 77 HHH-HRS YR )@@G@@ PIC 999 COMP. @D@@@@ 77 HHHH-HRS PIYS )@@G@@C 9999 COMP.@E@@@@ 77 ACCUM-MASS-XFERS PIC S9(10) COMYT )@@G@@P-4. @@@@@@@C@@@@ 01 SW-RUN-CLOSED-OUT VALUE 'Y' PIC X.@C@@@@YU )@@G@@ 88 RUN-CLOSED-OUT VALUE 'Y'. @C@@@@ 01 SW-RUN-YV )@@G@@TERMINATED1 PIC X.@C@@@@ 88 RUN-TERMINATED1 VAYW )@@G@@LUE 'Y'. @C@@@@ 01 SW-RUN-TERMINATED2 PIC X.@C@@@@YX )@@G@@ 88 RUN-TERMINATED2 VALUE 'Y'. @C@@@@ 01 SW-INTEYY )@@G@@RIM-EOF PIC X.@C@@@@ 88 INTERIM-EOF VAYZ )@@G@@LUE 'Y'. @C@@@@ 01 SW-PARAM-EOF PIC X.@C@@@@ZA )@@G@@ 88 PARAM-EOF VALUE 'Y'. @C@@@@ 01 SW-SYMBZB )@@G@@-REC PIC X.@C@@@@ 88 SYMB-REC VAZC )@@G@@LUE 'Y'. @C@@@@ 01 SW-PACK-MNT-REC PIC X.@C@@@@ZD )@@G@@ 88 PACK-MNT-REC VALUE 'Y'. @C@@@@ 01 SW-X-E-ZE )@@G@@KEYIN-REC PIC X.@C@@@@ 88 X-E-KEYIN-REC VAZF )@@G@@LUE 'Y'. @C@@@@ 01 SW-FIRST-JOB-REC VALUE 'Y' PIC X.@C@@@@ZG )@@G@@ 88 FIRST-JOB-REC VALUE 'Y'. @C@@@@ 01 SW-LASTZH )@@G@@-REC-SYMB-REC PIC X.@C@@@@ 88 LAST-REC-SYMB-REC VZI )@@G@@ALUE 'Y'. @C@@@@ 01 SW-FIRST-SYM-REC VALUE 'Y' PIC X. @B@@@@ZJ )@@G@@ 88 FIRST-SYM-REC VALUE 'Y'.@C@@@@ 01 SW-END-OF-PK-ZK )@@G@@TABLE PIC X.@C@@@@ 88 END-OF-PK-TABLE VALUE 'ZL )@@G@@Y'. @C@@@@ 01 SW-RUN-TYPE VALUE 0 PIC 9.@B@@@@ ZM )@@G@@ 88 BATCH-RUN VALUE 1. @B@@@@ 88 DMAND-RUN ZN )@@G@@ VALUE 2. @B@@@@ 88 RT-BATCH VALUE 3. @B@@@@ ZO )@@G@@ 88 RT-DMAND VALUE 4. @D@@@@ 01 SW-REAL-TIME-RUN ZP )@@G@@ VALUE 'N' PIC X. @B@@@@ 88 REAL-TIME-RUN VALUE 'Y'.ZQ )@@G@@@B@@@@ 01 SW-JOB-REC PIC X. @A@@@@ 88 JOB-ZR )@@G@@REC VALUE 'Y'. @B@@@@ 01 SW-HARD-ERROR-ON PIC X. @B@@@@ZS )@@G@@ 88 HARD-ERROR-ON VALUE 'Y'. @D@@@@ 01 SW-END-OF-KILZT )@@G@@LED-TABLE PIC X VALUE 'N'. @C@@@@ 88 END-OF-KILLED-TABLE VZU )@@G@@ALUE 'Y'. @D@@@@ 01 SW-RUN-ERROR PIC X VALUE 'N'. ZV )@@G@@@D@@@@ 88 RUN-ERROR VALUE 'Y'. @D@@@@ ZW )@@G@@ 01 SW-GARBAGED-REC PIC X VALUE 'N'. @D@@@@ 88 GARBZX )@@G@@AGED-REC VALUE 'Y'. @D@@@@ 01 SW-MSG-RESOLVED ZY )@@G@@ PIC X VALUE 'N'. @D@@@@ 88 MSG-RESOLVED VALZZ )@@G@@UE 'Y'. @D@@@@ 01 SW-FILE-TABLE-OVERFLOW PIC X VALUE 'N'. AA )@@G@@@D@@@@ 88 FILE-TABLE-OVERFLOW VALUE 'Y'. @D@@@@ AB )@@G@@ 01 SW-SYMRPT-BREAK-TYPE PIC X VALUE 'N'. @C@@@@ 88 SYMRAC )@@G@@PT-DETAIL-BREAK VALUE 'D'. @@@@@@@B@@@@ 01 CLEAR-AC-ERRORS AD )@@G@@ COMP-4. @E@@@@ 03 CLEAR-AC-ERROR-WD OCCURS 7 TIMES PIC 9(1AE )@@G@@0). @@@@@@@B@@@@ 01 CLEAR-SYM-SHIFT COMP-4. @E@@@@ AF )@@G@@ 03 CLEAR-SYM-SHIFT-WD OCCURS 17 TIMES PIC 9(10). @@@@@@@B@@@@ AG )@@G@@ 01 CLEAR-AC-SHIFT COMP-4. @E@@@@ 03 CLEAR-AC-SHIFT-WAH )@@G@@D OCCURS 104 TIMES PIC 9(10). @C@@@@ 01 CUR-RUNRPT-DATE AI )@@G@@ COMP-4. @C@@@@ 03 CUR-RUNRPT-YY PIC 1(6). @C@@@@AJ )@@G@@ 03 CUR-RUNRPT-MM PIC 1(6). @C@@@@ 03 CUR-AK )@@G@@RUNRPT-DD PIC 1(6). @C@@@@ 01 CUR-ACCREC-DATE AL )@@G@@ COMP-4. @C@@@@ 03 CUR-ACCREC-YY PIC 1(6). @C@@@@AM )@@G@@ 03 CUR-ACCREC-MM PIC 1(6). @C@@@@ 03 CUR-AN )@@G@@ACCREC-DD PIC 1(6). @ @@@@ 01 EDITED-RUNRPT-DATE.@B@@@@AO )@@G@@ 03 MM PIC 99. @D@@@@ 03 FILLER AP )@@G@@ PIC X VALUE '-'. @B@@@@ 03 DD PICAQ )@@G@@ 99. @D@@@@ 03 FILLER PIC X VALUE '-'. @B@@@@AR )@@G@@ 03 YY PIC 99. @^@@@@ 01 RPT-RUN-TIME.AS )@@G@@@C@@@@ 03 HRS PIC 99 COMP. @C@@@@ 0AT )@@G@@3 MIN PIC 99 COMP. @C@@@@ 03 SEC AU )@@G@@ PIC 99 COMP. @B@@@@ 01 CUR-SYM-ACCT-NO USAGE DISP-1. @C@@@@AV )@@G@@ 03 CUR-SYM-ACCT-GP PIC XX. @C@@@@ 03 FILLAW )@@G@@ER PIC X(10). @C@@@@ 01 CUR-SYMRPT-ACCT-NO USAGEAX )@@G@@ DISP-1. @C@@@@ 03 CUR-SYMRPT-ACCT-GP PIC XX. @D@@@@AY )@@G@@ 03 FILLER PIC X(10). @B@@@@ 01 SAZ )@@G@@YM-ACCT-NO USAGE DISP-1. @C@@@@ 03 SYM-ACCT-GP BA )@@G@@ PIC XX. @C@@@@ 03 FILLER PIC X(10). @ @@@@BB )@@G@@ 01 WORK-DATE-EDITED. @E@@@@ 03 WORK-MM BC )@@G@@ PIC 99. @E@@@@ 03 FILLER VALUE '-' BD )@@G@@ PIC X. @E@@@@ 03 WORK-DD BE )@@G@@ PIC 99. @E@@@@ 03 FILLER VALUE '-' PIC XBF )@@G@@. @E@@@@ 03 WORK-YY PIC 99. BG )@@G@@@A@@@@ 01 WORK-DATE-COMP COMP-4. @B@@@@ 03 WORK-YY BH )@@G@@ PIC 99. @B@@@@ 03 WORK-MM PIC 99. @B@@@@BI )@@G@@ 03 WORK-DD PIC 99. @@@@@@@D@@@@ 01 CUR-SYMBJ )@@G@@RPT-DATE PIC 9(10) COMP-4. @@@@@@@B@@@@ 01 CUR-SYMRPT-DABK )@@G@@TE-FLDS REDEFINES @E@@@@ CUR-SYMRPT-DATE BL )@@G@@COMP-4. @C@@@@ 03 WORK-YY PIC 1(6). @C@@@@BM )@@G@@ 03 WORK-MM PIC 1(6). @C@@@@ 03 WORKBN )@@G@@-DD PIC 1(6). @C@@@@ 03 FILLER PIBO )@@G@@C 9(5). @@@@@@@ @@@@ 01 THIS-DATE-EDITED. @E@@@@ 0BP )@@G@@3 MM PIC XX. @E@@@@ 03 FILLBQ )@@G@@ER VALUE '-' PIC X. @E@@@@ 03 DD BR )@@G@@ PIC XX. @E@@@@ 03 FILLER VABS )@@G@@LUE '-' PIC X. @E@@@@ 03 YY BT )@@G@@ PIC XX. @@@@@@@A@@@@ 01 SR-FIRST-DATE-EDITED. BU )@@G@@@B@@@@ 03 WORK-MM PIC 99. @C@@@@ 03 FILLBV )@@G@@ER PIC X VALUE '-'. @B@@@@ 03 WORK-DD PIC 9BW )@@G@@9. @C@@@@ 03 FILLER PIC X VALUE '-'. @B@@@@ BX )@@G@@ 03 WORK-YY PIC 99. @@@@@@@B@@@@ 01 SR-FIRST-DATEBY )@@G@@-COMP COMP-4. @B@@@@ 03 WORK-YY PIC 99. @B@@@@BZ )@@G@@ 03 WORK-MM PIC 99. @B@@@@ 03 WORK-DD CA )@@G@@ PIC 99. @@@@@@@A@@@@ 01 SR-LAST-DATE-EDITED. @B@@@@CB )@@G@@ 03 WORK-MM PIC 99. @C@@@@ 03 FILLER CC )@@G@@ PIC X VALUE '-'. @B@@@@ 03 WORK-DD PIC 99. CD )@@G@@@C@@@@ 03 FILLER PIC X VALUE '-'. @B@@@@ 0CE )@@G@@3 WORK-YY PIC 99. @@@@@@@A@@@@ 01 SR-LAST-DATE-COMP CCF )@@G@@OMP-4.@B@@@@ 03 WORK-YY PIC 99. @B@@@@ 0CG )@@G@@3 WORK-MM PIC 99. @B@@@@ 03 WORK-DD PIC 9CH )@@G@@9. @@@@@@@C@@@@ 01 SR-ACNT-START-DATE-COMP COMP-4. @C@@@@CI )@@G@@ 03 WORK-YY PIC 99. @C@@@@ 03 WORKCJ )@@G@@-MM PIC 99. @C@@@@ 03 WORK-DD CK )@@G@@PIC 99. @@@@@@@^@@@@ 01 THIS-DATE. @E@@@@ 03 YY CL )@@G@@ PIC 99. @E@@@@ 03 MM CM )@@G@@ PIC 99. @E@@@@ 03 DD CN )@@G@@ PIC 99. @B@@@@ 01 WORK-BIN-DATE USAGE COMCO )@@G@@P-4. @E@@@@ 03 WORK-YY PIC 99. CP )@@G@@@E@@@@ 03 WORK-MM PIC 99. @E@@@@CQ )@@G@@ 03 WORK-DD PIC 99. @B@@@@ CR )@@G@@ 01 TERMINATION-TIME USAGE COMP-4.@^@@@@ 03 TERM-DATE. @E@@@@CS )@@G@@ 05 TERM-YY PIC 99. @E@@@@ CT )@@G@@ 05 TERM-MM PIC 99. @E@@@@ CU )@@G@@05 TERM-DD PIC 99. @E@@@@ 03 TERM-CV )@@G@@SEC PIC 9(5). @B@@@@ 01 START-TIME CW )@@G@@ USAGE COMP-4. @^@@@@ 03 START-DATE.@E@@@@ 05 STACX )@@G@@RT-YY PIC 99. @E@@@@ 05 START-MM CY )@@G@@ PIC 99. @E@@@@ 05 START-DD CZ )@@G@@ PIC 99. @E@@@@ 03 START-SEC DA )@@G@@ PIC 9(5). @B@@@@ 01 RUN-TERM-TIME USAGE COMP-4. DB )@@G@@@ @@@@ 03 RUN-TERM-DATE. @E@@@@ 05 RUN-TERM-YY DC )@@G@@ PIC 1(6). @E@@@@ 05 RUN-TERM-MM DD )@@G@@ PIC 1(6). @E@@@@ 05 RUN-TERM-DD DE )@@G@@ PIC 1(6). @E@@@@ 03 RUN-TERM-SECS DF )@@G@@ PIC 9(5). @B@@@@ 01 ELAP-RUN-TIME COMP-4. @E@@@@ DG )@@G@@ 03 HRS PIC 9(4). @E@@@@ 03DH )@@G@@ MIN PIC 9(4). @E@@@@ 03 SEC DI )@@G@@ PIC 9(4). @D@@@@ 01 ELAP-RUN-TIMEDJ )@@G@@-9 REDEFINES ELAP-RUN-TIME @A@@@@ PIC 9(15) COMP-4. DK )@@G@@@B@@@@ 01 CUR-RUNRPT-ACCT DISP-1. @E@@@@ 03 CUR-RDL )@@G@@UNRPT-ACCT-GP PIC XX. @E@@@@ 03 FILLER DM )@@G@@ PIC X(10). @B@@@@ 01 CUR-ACCREC-ACCT DN )@@G@@ DISP-1. @E@@@@ 03 CUR-ACCREC-ACCT-GP PIC XDO )@@G@@X. @E@@@@ 03 FILLER PIC X(10). DP )@@G@@@A@@@@ 01 BEG-DATE USAGE DISP-1.@E@@@@ 03 BEG-MM DQ )@@G@@ PIC XX. @E@@@@ 03 BEG-DD DR )@@G@@ PIC XX. @E@@@@ 03 BEG-YY DS )@@G@@ PIC XX. @D@@@@ 01 BEG-DATE-9 REDEFINES BEG-DATE DT )@@G@@DISP-1. @E@@@@ 03 BEG-MM-9 PIC 9DU )@@G@@9. @E@@@@ 03 BEG-DD-9 PIC 99. DV )@@G@@@E@@@@ 03 BEG-YY-9 PIC 99. @A@@@@DW )@@G@@ 01 END-DATE USAGE DISP-1.@E@@@@ 03 END-MM DX )@@G@@ PIC XX. @E@@@@ 03 END-DD DY )@@G@@ PIC XX. @E@@@@ 03 END-YY DZ )@@G@@ PIC XX. @D@@@@ 01 END-DATE-9 REDEFINES END-DATE DISP-1EA )@@G@@. @E@@@@ 03 END-MM-9 PIC 99. EB )@@G@@@E@@@@ 03 END-DD-9 PIC 99. @E@@@@EC )@@G@@ 03 END-YY-9 PIC 99. @E@@@@ ED )@@G@@ 01 NO-OF-DAYS COMP-4 PIC S9(5).@E@@@@ 01 REE )@@G@@ESULT USAGE DISP-1 PIC 9. @^@@@@ 01 FILEID EF )@@G@@. @E@@@@ 03 FILE-ID-QUAL PIC X(12) DISP-1. EG )@@G@@@E@@@@ 03 FILE-ID-FILENAME PIC X(12) DISP-1. @E@@@@EH )@@G@@ 03 FILE-ID-FCYCLE PIC 999 COMP-4. @B@@@@ EI )@@G@@ 01 TIME-T1 COMP-4. @E@@@@ 03 TIME-T1-YY EJ )@@G@@ PIC 1(6). @E@@@@ 03 TIME-T1-MM EK )@@G@@ PIC 1(6). @E@@@@ 03 TIME-T1-DD EL )@@G@@ PIC 1(6). @E@@@@ 03 TIME-T1-SECS EM )@@G@@ PIC 9(5). @B@@@@ 01 TIME-T2 COMP-4. @E@@@@ EN )@@G@@ 03 TIME-T2-YY PIC 1(6). @E@@@@ 03EO )@@G@@ TIME-T2-MM PIC 1(6). @E@@@@ 03 TIME-EP )@@G@@T2-DD PIC 1(6). @E@@@@ 03 TIME-T2-SECEQ )@@G@@S PIC 9(5). @B@@@@ 01 LAST-TASK-TIME ER )@@G@@ COMP-4.@E@@@@ 03 LAST-YY PIC 1ES )@@G@@(6). @E@@@@ 03 LAST-MM PIC 1(6). ET )@@G@@@E@@@@ 03 LAST-DD PIC 1(6). @E@@@@EU )@@G@@ 03 LAST-SEC PIC 9(5). @@@@@@@C@@@@EV )@@G@@ 01 LOAD-MSG-WORD1 PIC X(4). @ @@@@ 01 LOAD-MSEW )@@G@@G-WORD2. @D@@@@ 02 LOAD-MSG-WORD2-SUBSYS PIC XX.EX )@@G@@@B@@@@ 02 FILLER PIC XX.@ @@@@ 01 LOAD-MSEY )@@G@@G-WORD3. @D@@@@ 02 LOAD-MSG-WORD3-SUBSYS PIC XX.EZ )@@G@@@B@@@@ 02 FILLER PIC XX.@@@@@@@D@@@@ 01 TFA )@@G@@RANSLATION-TABLE USAGE DISP-1 PIC X(108)@#@@@@ VALUE @G@@@@FB )@@G@@ '001102203304405506607708809910A11B12C13D14E15F16G17H18I19J20FC )@@G@@@F@@@@ - 'K21L22M23N24O25P26Q27R28S29T30U31V32W33X34Y35Z36'. FD )@@G@@@B@@@@ 01 PRIORITY-TABLE REDEFINES @B@@@@ TRANSLAFE )@@G@@TION-TABLE USAGE DISP-1.@F@@@@ 03 PRIORITY-ENTRY OCCURS 36 TFF )@@G@@IMES INDEXED BY P0. @C@@@@ 05 PRI-CHAR PIFG )@@G@@C X. @C@@@@ 05 PRI-NUM PIC 99. @ @@@@ FH )@@G@@ 01 PACK-MNT-TABLE. @E@@@@ 03 PACK-MNT-ENTRY OCCURS 100 TIFI )@@G@@MES INDEXED BY P1.@C@@@@ 05 PACK-MNT-RUNID PIC X(6). FJ )@@G@@@B@@@@ 05 PACK-MNT-TIME COMP-4. @A@@@@ 07 PFK )@@G@@ACK-MNT-DATE. @C@@@@ 09 PACK-MNT-YY PIC 1(6). FL )@@G@@@D@@@@ 09 PACK-MNT-MM PIC 1(6). @D@@@@ FM )@@G@@ 09 PACK-MNT-DD PIC 1(6). @D@@@@ 07 PFN )@@G@@ACK-MNT-SEC PIC 9(5). @ @@@@ 01 KILLED-RUN-TABLE. FO )@@G@@@F@@@@ 03 KILLED-RUN-ENTRY OCCURS 100 TIMES INDEXED BY P2. FP )@@G@@@D@@@@ 05 KILLED-RUNID PIC X(6) DISP-1. @B@@@@ FQ )@@G@@ 05 KILLED-RUN-TIME COMP-4. @A@@@@ 07 KILLED-RUN-FR )@@G@@DATE. @C@@@@ 09 KILLED-RUN-YY PIC 1(6). @C@@@@ FS )@@G@@ 09 KILLED-RUN-MM PIC 1(6). @C@@@@ 09 KILFT )@@G@@LED-RUN-DD PIC 1(6). @C@@@@ 07 KILLED-RUN-SEC PIC 9FU )@@G@@(5). @A@@@@ 01 CAT-DISK-FILE-TABLE. @F@@@@ 03 CAT-DFV )@@G@@ISK-FILE-ENTRY OCCURS 100 TIMES INDEXED BY P3. @ @@@@ 05 CATFW )@@G@@-DISK-FILE. @D@@@@ 07 QUALIFIER PIC X(12) DISP-1. FX )@@G@@@D@@@@ 07 FILENAME PIC X(12) DISP-1. @D@@@@ FY )@@G@@ 07 ABS-F-CYCLE PIC 999 COMP-4.@E@@@@ 05 INIFZ )@@G@@TIAL-TRKS PIC 9(5) COMP-4. @D@@@@ 05 FINAL-TRKGA )@@G@@S PIC 9(5) COMP-4. @@@@@@@A@@@@ 01 OUTSTANDING-MSG-TABGB )@@G@@LE. @D@@@@ 03 MSG-OUTSTANDING OCCURS 30 TIMES PIC X . @@@@@@GC )@@G@@@@@@@@@^@@@@ 01 TYPE-02-REC. @F@@@@ 03 FILLER GD )@@G@@ PIC X(6) DISP-1. @D@@@@ 03 T02-FAC-INFO OGE )@@G@@CCURS 11 TIMES COMP-4. @E@@@@ 05 T02-SS-NO GF )@@G@@ PIC 999. @E@@@@ 05 T02-UNIT-NO GG )@@G@@ PIC 999. @E@@@@ 05 T02-EQUIP-CODE PIC 9GH )@@G@@99. @F@@@@ 05 FILLER PIC 9(10)GI )@@G@@. @E@@@@ 03 FILLER PIC X(6) DISP-1.GJ )@@G@@@F@@@@ 03 T02-SUPS-VDT PIC 9(10) COMP-4.GK )@@G@@@A@@@@ 03 T02-ENTRY-TIME COMP-4. @ @@@@ 05 T02-ENTRY-GL )@@G@@DATE. @E@@@@ 07 T02-ENTRY-YY PIC 1(6). GM )@@G@@@E@@@@ 07 T02-ENTRY-MM PIC 1(6). @E@@@@GN )@@G@@ 07 T02-ENTRY-DD PIC 1(6). @E@@@@ GO )@@G@@ 05 T02-ENTRY-SEC PIC 9(5). @E@@@@ 03 GP )@@G@@FILLER PIC X(24) DISP-1. @F@@@@ 03 T02-PRGQ )@@G@@I-ACCNT-NO PIC X(12) DISP-1.@F@@@@ 03 T02-RUGR )@@G@@NID PIC X(6) DISP-1. @E@@@@ 03 FILLERGS )@@G@@ PIC X(6) DISP-1. @@@@@@@@@@@@@^@@@@ 01 TGT )@@G@@YPE-03-REC. @D@@@@ 03 T03-ID PIC X(6) DISP-1. GU )@@G@@@D@@@@ 03 T03-QUALIFIER PIC X(12) DISP-1.@D@@@@ GV )@@G@@ 03 T03-FNAME PIC X(12) DISP-1.@F@@@@ 03 FILLERGW )@@G@@ PIC X(25) DISP-1.@C@@@@ 03 T03-COGX )@@G@@ND-WD PIC 1. @D@@@@ 88 POSITION-GRANULARITGY )@@G@@Y VALUE 1. @D@@@@ 03 FILLER PIC 1(5GZ )@@G@@). @E@@@@ 03 FILLER PIC XX DISP-1. HA )@@G@@@D@@@@ 03 T03-CYCLE PIC 999 COMP-4. @A@@@@ HB )@@G@@ 03 T03-FREE-TIME COMP-4. @ @@@@ 05 T03-FREE-DATE. @E@@@@HC )@@G@@ 07 T03-FREE-MM PIC 1(6). @E@@@@ HD )@@G@@ 07 T03-FREE-DD PIC 1(6). @E@@@@ HE )@@G@@ 07 T03-FREE-YY PIC 1(6). @E@@@@ 05 T03-HF )@@G@@FREE-SEC PIC 9(5). @D@@@@ 03 T03-FREE-TIMHG )@@G@@E-9 REDEFINES T03-FREE-TIME @A@@@@ PIC 9(10) COMP-4. HH )@@G@@@F@@@@ 03 FILLER PIC X(12) DISP-1. HI )@@G@@@F@@@@ 03 T03-GRANULE-CNT OCCURS 8 TIMES PIC 9(10) COMP-4. HJ )@@G@@@F@@@@ 03 T03-EQUIP-CODE PIC 999 COMP-4. HK )@@G@@@F@@@@ 03 FILLER PIC X(16) DISP-1.HL )@@G@@@F@@@@ 03 T03-SUPS-VDT PIC 9(10) COMP-4.HM )@@G@@@A@@@@ 03 T03-ENTRY-TIME COMP-4. @ @@@@ 05 T03-ENTRY-HN )@@G@@DATE. @E@@@@ 07 T03-ENTRY-YY PIC 1(6). HO )@@G@@@E@@@@ 07 T03-ENTRY-MM PIC 1(6). @E@@@@HP )@@G@@ 07 T03-ENTRY-DD PIC 1(6). @E@@@@ HQ )@@G@@ 05 T03-ENTRY-SEC PIC 9(5). @F@@@@ 03 HR )@@G@@FILLER PIC X(24) DISP-1.@F@@@@ 03 HS )@@G@@T03-PRI-ACCNT-NO PIC X(12) DISP-1.@F@@@@ 03 HT )@@G@@T03-RUNID PIC X(6) DISP-1. @F@@@@ 03 HU )@@G@@FILLER PIC X(6) DISP-1. @@@@@@@@@@@@@^@@@@HV )@@G@@ 01 TYPE-04-REC. @G@@@@ 03 FILLER HW )@@G@@ PIC X(132) DISP-1. @F@@@@ 03 T04-REAL-TIME HX )@@G@@ PIC 9(10) COMP-4.@F@@@@ 03 FILLER HY )@@G@@ PIC X(6) DISP-1. @ @@@@ 03 T04-CONDITION-WD. @E@@@@HZ )@@G@@ 05 FILLER PIC 1(9). @E@@@@ IA )@@G@@ 05 SW-T04-ABORT PIC 1. @C@@@@ IB )@@G@@ 88 T04-ABORT VALUE 1. @E@@@@ 05 SW-T04-ERR IC )@@G@@ PIC 1. @C@@@@ 88 T04-ERR ID )@@G@@ VALUE 1. @E@@@@ 05 FILLER PIC 1IE )@@G@@(25). @A@@@@ 03 T04-ENTRY-TIME COMP-4. @ @@@@ 05 T04-IF )@@G@@ENTRY-DATE. @E@@@@ 07 T04-ENTRY-YY PIC 1IG )@@G@@(6). @E@@@@ 07 T04-ENTRY-MM PIC 1(6). IH )@@G@@@E@@@@ 07 T04-ENTRY-DD PIC 1(6). @E@@@@II )@@G@@ 05 T04-ENTRY-SEC PIC 9(5). @F@@@@ IJ )@@G@@ 03 FILLER PIC X(24) DISP-1.@F@@@@ IK )@@G@@ 03 T04-PRI-ACCNT-NO PIC X(12) DISP-1.@F@@@@ IL )@@G@@ 03 T04-RUNID PIC X(6) DISP-1. @F@@@@ IM )@@G@@ 03 FILLER PIC X(6) DISP-1. @@@@@@@@@@@@IN )@@G@@@^@@@@ 01 TYPE-05-REC. @F@@@@ 03 FILLER IO )@@G@@ PIC X(6) DISP-1. @E@@@@ 03 T05-ACCNT-NO USAGE DIIP )@@G@@SP-1 PIC X(12). @E@@@@ 03 T05-PROJ-ID USAGE DISP-1 IQ )@@G@@ PIC X(12). @A@@@@ 03 T05-INIT-TIME COMP-4. @ @@@@ IR )@@G@@ 05 T05-INIT-DATE . @E@@@@ 07 T05-INIT-MM IS )@@G@@ PIC 1(6). @E@@@@ 07 T05-INIT-DD IT )@@G@@ PIC 1(6). @E@@@@ 07 T05-INIT-YY PIC 1IU )@@G@@(6). @E@@@@ 05 T05-INIT-SEC PIC 9(5). IV )@@G@@@A@@@@ 03 T05-TERM-TIME COMP-4. @B@@@@ 05 T05-TERM-DIW )@@G@@ATE . @E@@@@ 07 T05-TERM-MM IX )@@G@@ PIC 1(6). @E@@@@ 07 T05-TERM-DD PIC 1IY )@@G@@(6). @E@@@@ 07 T05-TERM-YY PIC 1(6). IZ )@@G@@@E@@@@ 05 T05-TERM-SEC PIC 9(5). @F@@@@JA )@@G@@ 03 T05-CARDS-IN PIC S9(5) COMP-4. @F@@@@JB )@@G@@ 03 T05-CARDS-OUT PIC S9(5) COMP-4. @F@@@@JC )@@G@@ 03 FILLER PIC X DISP-1. @F@@@@JD )@@G@@ 03 T05-STD-PG-CNT PIC S9(8) COMP-4. @F@@@@JE )@@G@@ 03 FILLER PIC X(6) DISP-1. @F@@@@JF )@@G@@ 03 T05-TOT-SUPS PIC S9(10) COMP-4.@G@@@@JG )@@G@@ 03 T05-CB-SUPS PIC S9(10) COMP-4. JH )@@G@@@F@@@@ 03 T05-TK-SUP-PROD OCCURS 8 TIMES PIC 9(10) COMP-4. JI )@@G@@@F@@@@ 03 FILLER PIC X(30) DISP-1. JJ )@@G@@@A@@@@ 03 T05-ENTRY-TIME COMP-4. @A@@@@ 05 T05-ENTRY-JK )@@G@@DATE . @E@@@@ 07 T05-ENTRY-YY PIC 1JL )@@G@@(6). @E@@@@ 07 T05-ENTRY-MM PIC 1(6). JM )@@G@@@E@@@@ 07 T05-ENTRY-DD PIC 1(6). @E@@@@JN )@@G@@ 05 T05-ENTRY-SEC PIC 9(5) . @F@@@@ JO )@@G@@ 03 FILLER PIC X(24) DISP-1.@F@@@@ JP )@@G@@ 03 T05-PRI-ACCNT-NO PIC X(12) DISP-1.@F@@@@ JQ )@@G@@ 03 T05-RUNID PIC X(6) DISP-1. @F@@@@ JR )@@G@@ 03 FILLER PIC X(6) DISP-1. @@@@@@@@@@@@JS )@@G@@@^@@@@ 01 TYPE-07-REC. @F@@@@ 03 FILLER JT )@@G@@ PIC X(10) DISP-1.@E@@@@ 03 T07-MSG-NO JU )@@G@@ PIC 9 DISP-1. @E@@@@ 03 FILLER JV )@@G@@PIC X DISP-1. @E@@@@ 03 T07-MSG JW )@@G@@DISP-1. @D@@@@ 05 T07-MSG-SUBSYS PIC XX. JX )@@G@@@D@@@@ 05 T07-MSG-RMDR PIC X(136). @D@@@@ JY )@@G@@ 03 T07-LOAD-MESSAGE REDEFINES T07-MSG DISP-1.@D@@@@ 05 T07JZ )@@G@@-LOAD PIC X(6). @D@@@@ 05 T07-LOAD-RMDR KA )@@G@@ PIC X(132). @A@@@@ 03 T07-ENTRY-TIME COMP-4. @ @@@@KB )@@G@@ 05 T07-ENTRY-DATE. @E@@@@ 07 T07-ENTRY-YY KC )@@G@@ PIC 1(6). @E@@@@ 07 T07-ENTRY-MM KD )@@G@@ PIC 1(6). @E@@@@ 07 T07-ENTRY-DD KE )@@G@@ PIC 1(6). @E@@@@ 05 T07-ENTRY-SEC PIC 9KF )@@G@@(5). @F@@@@ 03 FILLER PIC X(24) DKG )@@G@@ISP-1.@F@@@@ 03 T07-PRI-ACCNT-NO PIC X(12) DKH )@@G@@ISP-1.@F@@@@ 03 T07-RUNID PIC X(6) DISP-1KI )@@G@@. @F@@@@ 03 FILLER PIC X(6) DIKJ )@@G@@SP-1. @@@@@@@@@@@@@^@@@@ 01 TYPE-09-REC. @F@@@@ 03 FILLERKK )@@G@@ PIC X(7) DISP-1. @F@@@@ 03 T09-PRKL )@@G@@IORITY PIC X DISP-1. @F@@@@ 03 FILLERKM )@@G@@ PIC X(22) DISP-1.@F@@@@ 03 T09-PRKN )@@G@@OJ-ID PIC X(12) DISP-1.@A@@@@ 03 T09-ACKO )@@G@@CNT-NO DISP-1. @C@@@@ 05 T09-ACCNT-FLD-1 PIC XX.KP )@@G@@@E@@@@ 05 FILLER PIC X(10). @F@@@@KQ )@@G@@ 03 T09-SEQ-ID PIC X(6) DISP-1. @F@@@@KR )@@G@@ 03 T09-SEQ-NO REDEFINES T09-SEQ-ID PIC 9(10) COMP-4. @F@@@@KS )@@G@@ 03 T09-RUN-TYPE PIC 9 COMP-4. @F@@@@KT )@@G@@ 03 FILLER PIC X(5) DISP-1. @A@@@@KU )@@G@@ 03 T09-DEVICE-ASSOC DISP-1.@D@@@@ 05 T09-DEV-ASSOC-KV )@@G@@H1 PIC XXX. @D@@@@ 05 T09-DEV-ASSOC-H2 KW )@@G@@PIC XXX. @F@@@@ 03 FILLER PIC XKX )@@G@@(18) DISP-1.@F@@@@ 03 T09-BL-MIN PIC 9(10KY )@@G@@) COMP-4. @F@@@@ 03 FILLER PIC XKZ )@@G@@(54) DISP-1.@A@@@@ 03 T09-ENTRY-TIME COMP-4. @ @@@@ 0LA )@@G@@5 T09-ENTRY-DATE. @E@@@@ 07 T09-ENTRY-YY LB )@@G@@ PIC 1(6). @E@@@@ 07 T09-ENTRY-MM PIC 1LC )@@G@@(6). @E@@@@ 07 T09-ENTRY-DD PIC 1(6). LD )@@G@@@E@@@@ 05 T09-ENTRY-SEC PIC 9(5). @F@@@@LE )@@G@@ 03 FILLER PIC X(18) DISP-1.@F@@@@LF )@@G@@ 03 T09-SYMB-ID PIC X(6) DISP-1. @A@@@@LG )@@G@@ 03 T09-PRI-ACCNT-NO DISP-1.@D@@@@ 05 T09-PRI-ACCNT-GLH )@@G@@P PIC XX. @E@@@@ 05 FILLER LI )@@G@@ PIC X(10). @F@@@@ 03 T09-RUNID PICLJ )@@G@@ X(6) DISP-1. @E@@@@ 03 FILLER PIC X(6LK )@@G@@) DISP-1. @@@@@@@@@@@@@^@@@@ 01 TYPE-10-REC. @F@@@@ 03 LL )@@G@@FILLER PIC X(10) DISP-1.@E@@@@ 03 LM )@@G@@T10-MSG-NO PIC 9 DISP-1. @E@@@@ 03 FILLERLN )@@G@@ PIC X DISP-1. @E@@@@ 03 T10-MSG LO )@@G@@ DISP-1. @C@@@@ 05 T10-RESPONSE LP )@@G@@ PIC X.@D@@@@ 05 T10-MSG-RMDR PIC X(LQ )@@G@@65). @E@@@@ 03 FILLER PIC X(72) DISP-1. LR )@@G@@@A@@@@ 03 T10-ENTRY-TIME COMP-4. @ @@@@ 05 T10-ENTRY-LS )@@G@@DATE. @E@@@@ 07 T10-ENTRY-YY PIC 1(6). LT )@@G@@@E@@@@ 07 T10-ENTRY-MM PIC 1(6). @E@@@@LU )@@G@@ 07 T10-ENTRY-DD PIC 1(6). @E@@@@ LV )@@G@@ 05 T10-ENTRY-SEC PIC 9(5). @E@@@@ 03 LW )@@G@@FILLER PIC X(24) DISP-1. @F@@@@ 03 T10-PRLX )@@G@@I-ACCNT-NO PIC X(12) DISP-1.@D@@@@ 03 T10-RULY )@@G@@NID PIC X(6) DISP-1. @D@@@@ 03 FILLER LZ )@@G@@ PIC X(6) DISP-1. @@@@@@@@@@@@@^@@@@ 01 TYPE-12-REC. @F@@@@MA )@@G@@ 03 FILLER PIC X(9) DISP-1. @F@@@@MB )@@G@@ 03 T12-KEYIN PIC XXX DISP-1. @G@@@@MC )@@G@@ 03 T12-MSG PIC X(138) DISP-1. MD )@@G@@@A@@@@ 03 T12-ENTRY-TIME COMP-4. @ @@@@ 05 T12-ENTRY-ME )@@G@@DATE. @E@@@@ 07 T12-ENTRY-YY PIC 1(6). MF )@@G@@@E@@@@ 07 T12-ENTRY-MM PIC 1(6). @E@@@@MG )@@G@@ 07 T12-ENTRY-DD PIC 1(6). @E@@@@ MH )@@G@@ 05 T12-ENTRY-SEC PIC 9(5). @E@@@@ 03 MI )@@G@@FILLER PIC X(24) DISP-1.@F@@@@ 03 T12-PRMJ )@@G@@I-ACCNT-NO PIC X(12) DISP-1.@E@@@@ 03 T12-RUMK )@@G@@NID PIC X(6) DISP-1. @D@@@@ 03 FILLER ML )@@G@@ PIC X(6) DISP-1.@@@@@@@@@@@@@^@@@@ 01 TYPE-14-REC. MM )@@G@@@F@@@@ 03 FILLER PIC X(6) DISP-1. MN )@@G@@@F@@@@ 03 T14-EQUIP-CODE PIC 99 COMP-4. MO )@@G@@@F@@@@ 03 T14-FILE-TYPE PIC 9 COMP-4. MP )@@G@@@F@@@@ 03 T14-SPC-FORMS-CNT PIC 9(5) COMP-4. MQ )@@G@@@F@@@@ 03 T14-SYM-NAME PIC X(6) DISP-1. MR )@@G@@@F@@@@ 03 T14-LINES-CARDS PIC 9(10) COMP-4.MS )@@G@@@F@@@@ 03 T14-ASSOC-RUNID PIC X(6) DISP-1. MT )@@G@@@G@@@@ 03 FILLER PIC X(120) DISP-1MU )@@G@@. @B@@@@ 03 T14-SYM-START-TIME COMP-4 . @A@@@@ 0MV )@@G@@5 T14-SYM-START-DATE. @F@@@@ 07 T14-SYM-START-YY MW )@@G@@ PIC 1(6). @F@@@@ 07 T14-SYM-START-MM MX )@@G@@ PIC 1(6). @F@@@@ 07 T14-SYM-START-DD MY )@@G@@ PIC 1(6). @E@@@@ 05 T14-SYM-START-SEC MZ )@@G@@ PIC 9(5). @E@@@@ 03 FILLER PIC X(24) NA )@@G@@DISP-1. @F@@@@ 03 T14-PRI-ACCNT-NO PIC XNB )@@G@@(12) DISP-1.@E@@@@ 03 T14-RUNID PIC X(6) DISP-NC )@@G@@1. @E@@@@ 03 FILLER PIC X(6) DISP-1. ND )@@G@@@@@@@@@@@@@@@^@@@@ 01 TYPE-17-REC. @F@@@@ 03 FILLER NE )@@G@@ PIC X(18) DISP-1.@G@@@@ 03 T17-CCER-SUPNF )@@G@@S PIC S9(10) COMP-4. @G@@@@ 03 T17-I-NG )@@G@@O-XFERS OCCURS 10 TIMES PIC S9(10) COMP-4. @F@@@[ 03 NH )@@G@@FILLER PIC X(6) DISP-1. @G@@@@ 03 NI )@@G@@T17-CPU-SUPS PIC S9(10) COMP-4. @F@@@@ NJ )@@G@@ 03 FILLER PIC X(54) DISP-1.@A@@@@ NK )@@G@@ 03 T17-ENTRY-TIME COMP-4. @ @@@@ 05 T17-ENTRY-DATE. @E@@@@NL )@@G@@ 07 T17-ENTRY-YY PIC 1(6). @E@@@@ NM )@@G@@ 07 T17-ENTRY-MM PIC 1(6). @E@@@@ NN )@@G@@ 07 T17-ENTRY-DD PIC 1(6). @E@@@@ 05 T17-NO )@@G@@ENTRY-SEC PIC 9(5). @E@@@@ 03 FILLER NP )@@G@@ PIC X(24) DISP-1. @F@@@@ 03 T17-PRI-ACCNT-NO NQ )@@G@@ PIC X(12) DISP-1.@D@@@@ 03 T17-RUNID NR )@@G@@ PIC X(6) DISP-1.@D@@@@ 03 FILLER PIC NS )@@G@@X(6) DISP-1.@@@@@@@@@@@@@^@@@@ 01 TYPE-18-REC. @G@@@@ 03 NT )@@G@@FILLER PIC X(150) DISP-1. @A@@@@ NU )@@G@@ 03 T18-ENTRY-TIME COMP-4. @ @@@@ 05 T18-ENTRY-DATE. @E@@@@NV )@@G@@ 07 T18-ENTRY-YY PIC 1(6). @E@@@@ NW )@@G@@ 07 T18-ENTRY-MM PIC 1(6). @E@@@@ NX )@@G@@ 07 T18-ENTRY-DD PIC 1(6). @E@@@@ 05 T18-NY )@@G@@ENTRY-SEC PIC 9(5). @E@@@@ 03 FILLER NZ )@@G@@ PIC X(24) DISP-1. @F@@@@ 03 T18-PRI-ACCNT-NO OA )@@G@@ PIC X(12) DISP-1.@E@@@@ 03 T18-RUNID OB )@@G@@ PIC X(6) DISP-1. @D@@@@ 03 FILLER OC )@@G@@PIC X(6) DISP-1. @@@@@@@@@@@@@^@@@@ COPY DEPT-HEADER.@@@@@@@^@@@@OD )@@G@@ 01 SR-HEAD-3. @F@@@@ 03 FILLER PICOE )@@G@@ X(52) VALUE SPACES. @D@@@@ 03 FILLER PICOF )@@G@@ X(80) VALUE@C@@@@ 'SYMBIONT DEVICE USAGE REPORT '. @@@@@@OG )@@G@@@@@@@@@^@@@@ 01 SR-HEAD-4. @F@@@@ 03 FILLER OH )@@G@@ PIC X(59) VALUE SPACES. @D@@@@ 03 FILLER OI )@@G@@ PIC X(8) VALUE@^@@@@ 'DEVICE: '. @C@@@@ 03 OJ )@@G@@SR-DEV-ID PIC X(6).@F@@@@ 03 FILLER OK )@@G@@ PIC X(59) VALUE SPACES. @@@@@@@ @@@@ 01 SR-DETAIL-HD-OL )@@G@@1. @E@@@@ 03 FILLER PIC X(132) VALUE OM )@@G@@@G@@@@ 'ACCNT START DL RUN SYM RUN ON )@@G@@ SYM@G@@@@ - ' RUN SYM ELP-TIME AV TOTAL OO )@@G@@ CPU @ @@@@ - ' TOTAL '. @@@@@@@ @@@@ 01 SOP )@@G@@R-DETAIL-HD-2. @E@@@@ 03 FILLER PIC X(OQ )@@G@@132) VALUE @G@@@@ 'GROUP DATE SHF BT BT DM CDS-IN CDOR )@@G@@S-IN CDS-OUT CDS-O@G@@@@ - 'UT LINES LINES HHH:MM:SS PR COS )@@G@@ORE-BLKS SUP-SECS @ @@@@ - ' SUP-SECS'. @@@@@@@@@@@@OT )@@G@@@ @@@@ 01 SR-DETAIL-LINE. @D@@@@ 03 FILLER OU )@@G@@ PIC X VALUE SPACE. @A@@@@ 03 ACCNT-FLD PIC XX.@E@@@@OV )@@G@@ 03 FILLER PIC XX VALUE SPACES. @B@@@@ OW )@@G@@ 03 DATE-FLD PIC X(8). @F@@@@ 03 FILLER OX )@@G@@ PIC X VALUE SPACES. @A@@@@ 03 SHIFT POY )@@G@@IC X. @F@@@@ 03 FILLER PIC X VALUE SPACESOZ )@@G@@. @B@@@@ 03 DLBT PIC -ZZ9. @F@@@@ 03 PA )@@G@@FILLER PIC X VALUE SPACE. @B@@@@ 03 PB )@@G@@BT PIC -ZZ9. @F@@@@ 03 FILLER PC )@@G@@ PIC X VALUE SPACE. @B@@@@ 03 DM PIC -ZZPD )@@G@@9. @F@@@@ 03 FILLER PIC X VALUE SPACEPE )@@G@@. @B@@@@ 03 R-CDS-N PIC -Z(5)9. @F@@@@ 03 PF )@@G@@FILLER PIC X VALUE SPACE. @B@@@@ 03 PG )@@G@@S-CDS-N PIC -Z(5)9. @F@@@@ 03 FILLER PH )@@G@@ PIC X VALUE SPACE. @B@@@@ 03 R-CDS-O PIC -Z(PI )@@G@@5)9. @E@@@@ 03 FILLER PIC X VALUE SPACE.PJ )@@G@@@B@@@@ 03 S-CDS-O PIC -Z(5)9. @E@@@@ 03 FILLERPK )@@G@@ PIC X VALUE SPACE.@B@@@@ 03 R-LINES PL )@@G@@ PIC -Z(5)9. @F@@@@ 03 FILLER PIC X PM )@@G@@ VALUE SPACE. @B@@@@ 03 S-LINES PIC -Z(5)9. @E@@@@PN )@@G@@ 03 FILLER PIC X VALUE SPACE. @#@@@@ PO )@@G@@ 03 ET. @B@@@@ 05 HRS PIC 999. @B@@@@ PP )@@G@@ 05 FILLER VALUE ':' PIC X.@B@@@@ 05 MIN PQ )@@G@@PIC 99. @B@@@@ 05 FILLER VALUE ':' PIC X.@B@@@@ PR )@@G@@ 05 SEC PIC 99. @E@@@@ 03 FILLER PS )@@G@@ PIC X VALUE SPACE. @A@@@@ 03 PRIT-X PIC X. PT )@@G@@@E@@@@ 03 FILLER PIC X VALUE SPACE. @C@@@@PU )@@G@@ 03 C-BLKS PIC -Z(7)9.999. @E@@@@ 03 FILLERPV )@@G@@ PIC X VALUE SPACE. @C@@@@ 03 CPU-SECS PW )@@G@@ PIC -Z(7)9.999. @E@@@@ 03 FILLER PICPX )@@G@@ X VALUE SPACE. @C@@@@ 03 TOT-SECS PIC -Z(7)9.999. PY )@@G@@@@@@@@@^@@@@ 01 SR-TOT-HD-1. @F@@@@ 03 FILLER PZ )@@G@@ PIC X(35) VALUE SPACES. @D@@@@ 03 FILLER QA )@@G@@ PIC X(24) VALUE@B@@@@ 'SHIFT TOTALS FOR DEVICE'. QB )@@G@@@C@@@@ 03 SR-TOT-HD-1-DEV PIC X(6).@D@@@@ 03 QC )@@G@@FILLER PIC X(12) VALUE@ @@@@ ' FOR PERIOD QD )@@G@@'. @C@@@@ 03 SR-TOT-HD-1-DATE-1 PIC X(8).@F@@@@ QE )@@G@@ 03 FILLER PIC X(4) VALUE ' TO '. @C@@@@ QF )@@G@@ 03 SR-TOT-HD-1-DATE-2 PIC X(8).@F@@@@ 03 FILLER QG )@@G@@ PIC X(35) VALUE SPACES. @@@@@@@^@@@@ 01 SR-TOT-QH )@@G@@HD-2. @E@@@@ 03 FILLER PIC X(132) VALUE QI )@@G@@@G@@@@ ' DL RUN SYM RUN SYM QJ )@@G@@ R@F@@@@ - 'UN SYM ELP-TIME AV TOTAL QK )@@G@@ CPU @ @@@@ - ' TOTAL' . @@@@@@@^@@@@ 01 SR-TOT-QL )@@G@@HD-3. @E@@@@ 03 FILLER PIC X(132) VALUE QM )@@G@@@G@@@@ 'SHF BT BT DM CDS-IN CDS-IN CDS-OUT CDS-OUTQN )@@G@@ LI@G@@@@ - 'NES LINES HHHH:MM:SS PR CORE-BLKS QO )@@G@@SUP-SECS @ @@@@ - ' SUP-SECS'. @@@@@@@ @@@@ 01 SQP )@@G@@R-TOT-DETAIL. @F@@@@ 03 FILLER PIC X QQ )@@G@@ VALUE SPACE. @B@@@@ 03 DEVICE-SHIFT PIC X. @E@@@@QR )@@G@@ 03 FILLER PIC X VALUE SPACE.@B@@@@ QS )@@G@@ 03 DLBT PIC -ZZZ9.@F@@@@ 03 FILLER QT )@@G@@ PIC X VALUE SPACE. @B@@@@ 03 BT QU )@@G@@ PIC -ZZZ9.@F@@@@ 03 FILLER PIC X VALUEQV )@@G@@ SPACE. @B@@@@ 03 DM PIC -ZZZ9.@F@@@@ QW )@@G@@ 03 FILLER PIC X VALUE SPACE. @C@@@@ QX )@@G@@ 03 R-CDS-N PIC -Z(6)9. @F@@@@ 03 FILLER QY )@@G@@ PIC X VALUE SPACE. @C@@@@ 03 S-CDS-N QZ )@@G@@ PIC -Z(6)9. @F@@@@ 03 FILLER PICRA )@@G@@ X VALUE SPACE. @C@@@@ 03 R-CDS-O PIC -Z(5)9RB )@@G@@. @F@@@@ 03 FILLER PIC X VALUE SPACERC )@@G@@. @C@@@@ 03 S-CDS-O PIC -Z(5)9. @F@@@@ RD )@@G@@ 03 FILLER PIC X VALUE SPACE. @C@@@@ RE )@@G@@ 03 R-LINES PIC -Z(6)9. @F@@@@ 03 FILLER RF )@@G@@ PIC X VALUE SPACE. @C@@@@ 03 S-LINES RG )@@G@@ PIC -Z(6)9. @F@@@@ 03 FILLER PICRH )@@G@@ X VALUE SPACE. @#@@@@ 03 ET. @D@@@@ 05 HRRI )@@G@@S PIC 9999. @C@@@@ 05 FILLER VALUE RJ )@@G@@':' PIC X. @C@@@@ 05 MIN PIC 99. RK )@@G@@@C@@@@ 05 FILLER VALUE ':' PIC X. @C@@@@ RL )@@G@@ 05 SEC PIC 99. @E@@@@ 03 FILLER RM )@@G@@ PIC X VALUE SPACE.@B@@@@ 03 PRIT PIC RN )@@G@@X. @E@@@@ 03 FILLER PIC X VALUE SPACE.RO )@@G@@@D@@@@ 03 C-BLKS PIC -Z(8)9.999. @F@@@@ RP )@@G@@ 03 FILLER PIC X VALUE SPACE. @C@@@@ RQ )@@G@@ 03 CPU-SECS PIC -Z(9)9.999. @F@@@@ 03 FILLER RR )@@G@@ PIC X VALUE SPACE. @C@@@@ 03 TOT-SECS RS )@@G@@ PIC -Z(9)9.999. @@@@@@@ @@@@ 01 SYM-RUN-ACCUM. @E@@@@RT )@@G@@ 05 DLBT PIC 999 COMP. @E@@@@ RU )@@G@@ 05 BT PIC 999 COMP. @E@@@@ RV )@@G@@ 05 DM PIC 999 COMP. @E@@@@ 05 R-RW )@@G@@CDS-N PIC 9(6) COMP. @E@@@@ 05 S-CDS-N RX )@@G@@ PIC 9(6) COMP. @E@@@@ 05 R-CDS-O RY )@@G@@ PIC 9(6) COMP. @E@@@@ 05 S-CDS-O RZ )@@G@@ PIC 9(6) COMP. @E@@@@ 05 R-LINES SA )@@G@@PIC 9(6) COMP. @E@@@@ 05 S-LINES PIC 9(SB )@@G@@6) COMP. @E@@@@ 05 ELAP-SECS PIC 9(10) COSC )@@G@@MP. @E@@@@ 05 PRIORITY PIC 99 COMP. SD )@@G@@@E@@@@ 05 C-BLKS PIC 9(8)V999 COMP.@E@@@@SE )@@G@@ 05 CPU-SECS PIC 9(8)V999 COMP.@E@@@@ SF )@@G@@ 05 TOT-SECS PIC 9(8)V999 COMP.@@@@@@@A@@@@ SG )@@G@@ 01 SYMRPT-ACT-GP-ACCUM-TEXT.@D@@@@ 03 FILLER PSH )@@G@@IC X VALUE '1'. @C@@@@ 03 FILLER PIC X(48). SI )@@G@@@D@@@@ 03 FILLER PIC X VALUE '2'. @C@@@@ SJ )@@G@@ 03 FILLER PIC X(48). @D@@@@ 03 FILLER SK )@@G@@ PIC X VALUE '3'. @C@@@@ 03 FILLER PSL )@@G@@IC X(48). @B@@@@ 01 SYMRPT-ACT-GP-ACCUMS REDEFINES @D@@@@ SM )@@G@@ SYMRPT-ACT-GP-ACCUM-TEXT. @D@@@@ 03 SYMRSN )@@G@@PT-ACT-GP-ACCUM OCCURS 3 TIMES. @C@@@@ 05 ACT-GP-SHIFT SO )@@G@@ PIC 9. @ @@@@ 05 ACT-GP-DATA. @F@@@@ SP )@@G@@ 07 DLBT PIC S9999 COMP. @F@@@@ SQ )@@G@@ 07 BT PIC S9999 COMP. @F@@@@ SR )@@G@@ 07 DM PIC S9999 COMP. @F@@@@ SS )@@G@@ 07 R-CDS-N PIC S9(7) COMP. @F@@@@ ST )@@G@@ 07 S-CDS-N PIC S9(7) COMP. @F@@@@ SU )@@G@@ 07 R-CDS-O PIC S9(7) COMP. @F@@@@ SV )@@G@@ 07 S-CDS-O PIC S9(7) COMP. @F@@@@ SW )@@G@@ 07 R-LINES PIC S9(7) COMP. @F@@@@ SX )@@G@@ 07 S-LINES PIC S9(7) COMP. @F@@@@ SY )@@G@@ 07 ELAP-SECS PIC S9(10) COMP. @F@@@@ SZ )@@G@@ 07 PRIORITY PIC S9(10) COMP. @F@@@@ TA )@@G@@ 07 C-BLKS PIC S9(9)V999 COMP. @F@@@@ TB )@@G@@ 07 CPU-SECS PIC S9(10)V999 COMP.@F@@@@ TC )@@G@@ 07 TOT-SECS PIC S9(10)V999 COMP.@E@@@@ TD )@@G@@ 07 FILLER PIC 99 COMP. @@@@@@@@@@@@@B@@@@ TE )@@G@@ 01 SYMRPT-DEVICE-ACCUMS-TEXT. @D@@@@ 03 FILLER TF )@@G@@ PIC X VALUE '1'. @C@@@@ 03 FILLER PIC X(4TG )@@G@@8). @D@@@@ 03 FILLER PIC X VALUE '2'. @C@@@@TH )@@G@@ 03 FILLER PIC X(48). @D@@@@ 03 FILLTI )@@G@@ER PIC X VALUE '3'. @C@@@@ 03 FILLER TJ )@@G@@ PIC X(48). @B@@@@ 01 SYMRPT-DEVICE-ACCUMS REDEFINES @D@@@@TK )@@G@@ SYMRPT-DEVICE-ACCUMS-TEXT. @D@@@@ 0TL )@@G@@3 SYMRPT-DEVICE-ACCUM OCCURS 3 TIMES. @C@@@@ 05 DEV-SHITM )@@G@@FT PIC 9. @ @@@@ 05 DEV-DATA. @F@@@@ TN )@@G@@ 07 DLBT PIC S9999 COMP. @F@@@@ TO )@@G@@ 07 BT PIC S9999 COMP. @F@@@@ TP )@@G@@ 07 DM PIC S9999 COMP. @F@@@@ TQ )@@G@@ 07 R-CDS-N PIC S9(7) COMP. @F@@@@ TR )@@G@@ 07 S-CDS-N PIC S9(7) COMP. @F@@@@ TS )@@G@@ 07 R-CDS-O PIC S9(7) COMP. @F@@@@ TT )@@G@@ 07 S-CDS-O PIC S9(7) COMP. @F@@@@ TU )@@G@@ 07 R-LINES PIC S9(7) COMP. @F@@@@ TV )@@G@@ 07 S-LINES PIC S9(7) COMP. @F@@@@ TW )@@G@@ 07 ELAP-SECS PIC S9(10) COMP. @F@@@@ TX )@@G@@ 07 PRIORITY PIC S9(10) COMP. @F@@@@ TY )@@G@@ 07 C-BLKS PIC S9(9)V999 COMP. @F@@@@ TZ )@@G@@ 07 CPU-SECS PIC S9(10)V999 COMP.@F@@@@ UA )@@G@@ 07 TOT-SECS PIC S9(10)V999 COMP.@E@@@@ UB )@@G@@ 07 FILLER PIC 99 COMP. @@@@@@@@@@@@@ @@@@UC )@@G@@ 01 CLR-SYM-RUN-ACCUM. @E@@@@ 03 CLR-SYM-RUN-WD OCCURS UD )@@G@@11 TIMES PIC 9(10) COMP.@@@@@@@ @@@@ 01 CLR-SYM-ACCUMS. @F@@@@UE )@@G@@ 03 CLR-SYM-ACCUM-WD OCCURS 12 TIMES PIC 9(10) COMP. @@@@@@UF )@@G@@@ @@@@ 01 SR-REC-CNT-LINE. @E@@@@ 03 FILLER VALUE 'SYUG )@@G@@MBIONT RECS IN: ' PIC X(18). @E@@@@ 03 SR-REC-IN-CNT UH )@@G@@ PIC Z(6). @F@@@@ 03 FILLER VALUE 'SYMBIONT-USAGEUI )@@G@@-RECS-OUT: ' PIC X(25). @E@@@@ 03 SR-REC-OUT-CNT UJ )@@G@@ PIC Z(6). @D@@@@ 03 FILLER PIC X(77) VALUE SPAUK )@@G@@CES. @@@@@@@^@@@@ 01 RUNS-PG-HD-3.@F@@@@ 03 FILLER UL )@@G@@ PIC X(36) VALUE SPACES. @E@@@@ 03 FILLER UM )@@G@@ PIC X(96) VALUE @G@@@@ 'COMPUTER UTILIZATIUN )@@G@@ON REPORT BY RUNID WITHIN ACCOUNT NUMBER'.@@@@@@@ @@@@ 01 RUNS-PGUO )@@G@@-HD-4A. @F@@@@ 03 FILLER PIC X(53) VALUUP )@@G@@E SPACES. @E@@@@ 03 FILLER PIC X(79) VALUUQ )@@G@@E @B@@@@ '************************** '. @@@@@@@ @@@@ UR )@@G@@ 01 RUNS-PG-HD-4B. @D@@@@ 03 FILLER PIC X(53) VAUS )@@G@@LUE SPACES. @C@@@@ 03 FILLER PIC X VALUE '*'. @E@@@@UT )@@G@@ 03 R-TEXT PIC X(24) VALUE SPACES. @E@@@@ UU )@@G@@ 03 FILLER PIC X(54) VALUE @#@@@@ 'UV )@@G@@* '. @@@@@@@ @@@@ 01 RUNRPT-HEADER-TEXT.@ @@@@ 02 RUNRUW )@@G@@PT-ACCT-HDR.@D@@@@ 03 FILLER PIC X(12) UX )@@G@@@B@@@@ VALUE ' ACCOUNT NO'. @E@@@@ 03 RUY )@@G@@UNRPT-ACCT-NO-HDR-ACCT-NO PIC X(12). @A@@@@ 02 RUNRPT-ACCUZ )@@G@@T-GP-HDR. @D@@@@ 03 FILLER PIC X(12) VA )@@G@@@B@@@@ VALUE ' ACCOUNT GP'. @C@@@@ 03 RVB )@@G@@UNRPT-ACCT-GP-HDR-GP PIC XX.@D@@@@ 03 FILLER VC )@@G@@ PIC X(10) @ @@@@ VALUE SPACES.@ @@@@ 0VD )@@G@@2 RUNRPT-DATE-HDR.@D@@@@ 03 FILLER PIC X(1VE )@@G@@4) @B@@@@ VALUE ' ACCOUNT DATE'. @B@@@@ VF )@@G@@ 03 RUNRPT-DATE-HDR-DATE . @C@@@@ 05 MM VG )@@G@@ PIC XX.@E@@@@ 05 FILLER PIC X VALUE 'VH )@@G@@-'. @C@@@@ 05 DD PIC XX.@E@@@@ VI )@@G@@ 05 FILLER PIC X VALUE '-'. @C@@@@ VJ )@@G@@ 05 YY PIC XX.@F@@@@ 03 FILLER VK )@@G@@ PIC XX VALUE SPACES. @E@@@@ 01 RUNRPT-HEADER-TABLEVL )@@G@@ REDEFINES RUNRPT-HEADER-TEXT.@C@@@@ 02 RUNRPT-HEADER-MSG OCCUVM )@@G@@RS 3 TIMES. @D@@@@ 03 FILLER PIC X(24). VN )@@G@@@ @@@@ 01 RUNS-DT-HD-1A. @E@@@@ 03 FILLER VO )@@G@@ PIC X(132) VALUE @G@@@@ ' START START FINVP )@@G@@ TOT CPU @G@@@@ - ' CCER VQ )@@G@@ I-O ERR MIN-BL NEW RUN'. @@@@@@@ @@@@ 01 RUNS-DTVR )@@G@@-HD-1B. @E@@@@ 03 FILLER PIC X(132) VALVS )@@G@@UE @G@@@@ 'RUN-ID MMDDYY HHMMSS DDHHMMSS SUP SECONDS VT )@@G@@ SUP SECON@G@@@@ - 'DS SUP SECONDS SUP SECONDS FLG /VU )@@G@@SITE CAT TKS @A@@@@ - 'TYPE PROJECT-ID'. @@@@@@@ @@@@VV )@@G@@ 01 RUNS-DETAIL-LINE. @B@@@@ 03 RUNID PIC VW )@@G@@X(6). @F@@@@ 03 FILLER PIC X VALUE SPACEVX )@@G@@. @^@@@@ 03 RD-DATE . @D@@@@ 05 MM VY )@@G@@ PIC 99.@D@@@@ 05 DD VZ )@@G@@ PIC 99.@D@@@@ 05 YY PIC 99.WA )@@G@@@F@@@@ 03 FILLER PIC X VALUE SPACE. WB )@@G@@@^@@@@ 03 RD-START. @C@@@@ 05 HRS WC )@@G@@ PIC 99. @C@@@@ 05 MIN PIC 99. @C@@@@WD )@@G@@ 05 SEC PIC 99. @F@@@@ 03 FILLERWE )@@G@@ PIC X VALUE SPACE. @^@@@@ 03 RD-FINWF )@@G@@. @D@@@@ 05 DD PIC 99. @C@@@@WG )@@G@@ 05 HRS PIC 99. @C@@@@ 05 MINWH )@@G@@ PIC 99. @C@@@@ 05 SEC WI )@@G@@ PIC 99. @F@@@@ 03 FILLER PIC X VALUEWJ )@@G@@ SPACE. @D@@@@ 03 TOT-SECS PIC -Z,ZZZ,ZZZ.999. WK )@@G@@@F@@@@ 03 FILLER PIC X VALUE SPACE. WL )@@G@@@E@@@@ 03 CPU-SECS PIC -Z,ZZZ,ZZZ.999. @F@@@@WM )@@G@@ 03 FILLER PIC X VALUE SPACE. @E@@@@WN )@@G@@ 03 CCER-SECS PIC -Z,ZZZ,ZZZ.999. @F@@@@ WO )@@G@@ 03 FILLER PIC X VALUE SPACE. @E@@@@ WP )@@G@@ 03 IO-SECS PIC -Z,ZZZ,ZZZ.999. @F@@@@ 03 WQ )@@G@@FILLER PIC XXX VALUE SPACE. @B@@@@ 03 WR )@@G@@ERR-CODE PIC X. @F@@@@ 03 FILLER WS )@@G@@ PIC XX VALUE SPACE. @C@@@@ 03 BL-MIN PIC WT )@@G@@-Z,ZZ9. @A@@@@ 03 SITE REDEFINES BL-MIN @C@@@@ WU )@@G@@ PIC X(6).@F@@@@ 03 FILLER WV )@@G@@ PIC XX VALUE SPACE. @C@@@@ 03 CAT-TRKS WW )@@G@@ PIC -Z,ZZZ,ZZ9.@F@@@@ 03 FILLER PIC XX WX )@@G@@ VALUE SPACE. @B@@@@ 03 RD-TYPE PIC XX.@F@@@@WY )@@G@@ 03 FILLER PIC XXX VALUE SPACE. @B@@@@WZ )@@G@@ 03 PROJ-ID PIC X(12).@@@@@@@ @@@@ 01 RUNS-TOXA )@@G@@T-HD-1A. @E@@@@ 02 FILLER PIC X(XB )@@G@@30) @ @@@@ VALUE SPACES. @E@@@@ 02 FILLER XC )@@G@@ PIC X(102) @F@@@@ VALUE ' TOXD )@@G@@T CPU CCER @F@@@@ - ' I-O NO. XE )@@G@@ MIN. NEW NO.'. @@@@@@@ @@@@ 01 RUNS-TOT-HD-1XF )@@G@@B. @E@@@@ 02 FILLER PIC X(30) XG )@@G@@@ @@@@ VALUE 'SHIFT'. @E@@@@ 02 FILLER XH )@@G@@ PIC X(102) @G@@@@ VALUE ' SUP SECONDS XI )@@G@@ SUP SECONDS SUP SECONDS SUP@F@@@@ - ' SECONDS ERRORXJ )@@G@@S IN BL CAT TKS RUNS'. @@@@@@@@@@@@@ @@@@ 01 RUNS-TOXK )@@G@@T-LINE. @B@@@@ 03 TEXT-FLD PIC X(30).@E@@@@ XL )@@G@@ 03 TOT-SECS PIC -Z,ZZZ,ZZZ.999. @F@@@@ 03 XM )@@G@@FILLER PIC X VALUE SPACE. @E@@@@ 03 XN )@@G@@CPU-SECS PIC -Z,ZZZ,ZZZ.999. @F@@@@ 03 FILLERXO )@@G@@ PIC X VALUE SPACE. @E@@@@ 03 CCER-SXP )@@G@@ECS PIC -Z,ZZZ,ZZZ.999. @F@@@@ 03 FILLER XQ )@@G@@ PIC X VALUE SPACE. @E@@@@ 03 IO-SECS XR )@@G@@ PIC -Z,ZZZ,ZZZ.999. @F@@@@ 03 FILLER XS )@@G@@ PIC X(5) VALUE SPACE. @C@@@@ 03 ERRORS XT )@@G@@ PIC -Z,ZZ9.@F@@@@ 03 FILLER PIC XXX XU )@@G@@ VALUE SPACE. @C@@@@ 03 BL-MIN PIC -ZZ,ZZ9. XV )@@G@@@F@@@@ 03 FILLER PIC XXX VALUE SPACE. XW )@@G@@@C@@@@ 03 CAT-TRKS PIC -Z,ZZZ,ZZ9.@F@@@@ 03 XX )@@G@@FILLER PIC XXX VALUE SPACE. @D@@@@ 03 XY )@@G@@NO-RUNS PIC -Z,ZZ9. @@@@@@@ @@@@ 01 RUNRPT-XZ )@@G@@RUN-ACCUM. @E@@@@ 03 TOT-SECS PIC S9(7)V999 COMYA )@@G@@P. @E@@@@ 03 CPU-SECS PIC S9(7)V999 COMP. YB )@@G@@@E@@@@ 03 CCER-SECS PIC S9(7)V999 COMP. @D@@@@YC )@@G@@ 03 IO-SECS PIC S9(7)V999 COMP.@D@@@@ 03YD )@@G@@ ERRORS PIC S9(4) COMP. @D@@@@ 03 BL-MIN YE )@@G@@ PIC S9(5) COMP. @D@@@@ 03 CAT-TRKS PYF )@@G@@IC S9(5) COMP. @E@@@@ 03 NO-RUNS PIC 9(5) COMPYG )@@G@@ VALUE 1. @@@@@@@A@@@@ 01 RUNRPT-ACCT-NO-TEXT . @ @@@@ YH )@@G@@ 02 BATCH-TEXT. @@@@@@@D@@@@ 03 FILLER YI )@@G@@ PIC X(30) @D@@@@ VALUE ' 1 ACCNT TOTAL FOR BAYJ )@@G@@TCH'. @D@@@@ 03 FILLER PIC X(25).@@@@@@YK )@@G@@@D@@@@ 03 FILLER PIC X(30) @D@@@@ YL )@@G@@ VALUE ' 2 ACCNT TOTAL FOR BATCH'. @D@@@@ 03 FYM )@@G@@ILLER PIC X(25).@@@@@@@D@@@@ 03 FILLER YN )@@G@@ PIC X(30) @D@@@@ VALUE ' 3 ACCNT YO )@@G@@TOTAL FOR BATCH'. @D@@@@ 03 FILLER PIC YP )@@G@@X(25).@D@@@@ 03 FILLER PIC X(30) @D@@@@YQ )@@G@@ VALUE ' 1-3 ACCNT TOTAL FOR BATCH'. @D@@@@ YR )@@G@@ 03 FILLER PIC X(25).@ @@@@ 02 DEMAND-TEXYS )@@G@@T. @D@@@@ 03 FILLER PIC X(30) @D@@@@YT )@@G@@ VALUE ' 1 ACCNT TOTAL FOR DEMAND'.@D@@@@ YU )@@G@@ 03 FILLER PIC X(25).@D@@@@ 03 FILLER YV )@@G@@ PIC X(30) @D@@@@ VALUE ' 2 ACCNT YW )@@G@@TOTAL FOR DEMAND'.@D@@@@ 03 FILLER PIC YX )@@G@@X(25).@D@@@@ 03 FILLER PIC X(30) @D@@@@YY )@@G@@ VALUE ' 3 ACCNT TOTAL FOR DEMAND'.@D@@@@ YZ )@@G@@ 03 FILLER PIC X(25).@D@@@@ 03 FILLER ZA )@@G@@ PIC X(30) @D@@@@ VALUE ' 1-3 ACCNT ZB )@@G@@TOTAL FOR DEMAND'.@D@@@@ 03 FILLER PIC ZC )@@G@@X(25).@^@@@@ 02 TIP-TEXT. @D@@@@ 03 FILLER ZD )@@G@@ PIC X(30) @D@@@@ VALUE ' 1 ACCNT TOTAL ZE )@@G@@FOR TIP'. @D@@@@ 03 FILLER PIC X(25).ZF )@@G@@@D@@@@ 03 FILLER PIC X(30) @D@@@@ ZG )@@G@@ VALUE ' 2 ACCNT TOTAL FOR TIP'. @D@@@@ 03 FZH )@@G@@ILLER PIC X(25).@D@@@@ 03 FILLER ZI )@@G@@ PIC X(30) @D@@@@ VALUE ' 3 ACCNT TOTAL ZJ )@@G@@FOR TIP'. @D@@@@ 03 FILLER PIC X(25).ZK )@@G@@@D@@@@ 03 FILLER PIC X(30) @D@@@@ ZL )@@G@@ VALUE ' 1-3 ACCNT TOTAL FOR TIP'. @D@@@@ 03 FZM )@@G@@ILLER PIC X(25).@ @@@@ 02 TOTAL-TEXT. ZN )@@G@@@D@@@@ 03 FILLER PIC X(30) @C@@@@ ZO )@@G@@ VALUE ' 1 ACCNT TOTAL '. @D@@@@ 03 FILLER ZP )@@G@@ PIC X(25).@D@@@@ 03 FILLER ZQ )@@G@@ PIC X(30) @C@@@@ VALUE ' 2 ACCNT TOTAL '. ZR )@@G@@@D@@@@ 03 FILLER PIC X(25).@D@@@@ ZS )@@G@@ 03 FILLER PIC X(30) @C@@@@ VZT )@@G@@ALUE ' 3 ACCNT TOTAL '. @D@@@@ 03 FILLER ZU )@@G@@ PIC X(25).@D@@@@ 03 FILLER PIC ZV )@@G@@X(30) @C@@@@ VALUE ' 1-3 ACCNT TOTAL '. @D@@@@ ZW )@@G@@ 03 FILLER PIC X(25).@@@@@@@@@@@@@F@@@@ ZX )@@G@@ 01 RUNRPT-ACCT-NO-TABLE REDEFINES RUNRPT-ACCT-NO-TEXT. @D@@@@ ZY )@@G@@ 02 RUNRPT-ACCT-NO-CATEGORY OCCURS 4 TIMES. @D@@@@ 03 RUZZ )@@G@@NRPT-ACCT-NO-ACCUM OCCURS 4 TIMES. @D@@@@ 05 TEXT-FLD AA )@@G@@ PIC X(30). @ @@@@ 05 ACCUMS. @F@@@@ AB )@@G@@ 07 TOT-SECS PIC S9(7)V999 COMP. @F@@@@ AC )@@G@@ 07 CPU-SECS PIC S9(7)V999 COMP. @F@@@@ AD )@@G@@ 07 CCER-SECS PIC S9(7)V999 COMP. @F@@@@ AE )@@G@@ 07 IO-SECS PIC S9(7)V999 COMP. @E@@@@ AF )@@G@@ 07 ERRORS PIC S9(4) COMP. @E@@@@ AG )@@G@@ 07 BL-MIN PIC S9(5) COMP. @E@@@@ AH )@@G@@07 CAT-TRKS PIC S9(7) COMP. @E@@@@ 07 NO-AI )@@G@@RUNS PIC S9(4) COMP. @@@@@@@A@@@@ 01 RUNRPT-ACCT-GAJ )@@G@@P-TEXT . @ @@@@ 02 BATCH-TEXT . @D@@@@ 03 FAK )@@G@@ILLER PIC X(30) @D@@@@ VALUE ' 1 AL )@@G@@GROUP TOTAL FOR BATCH'. @D@@@@ 03 FILLER AM )@@G@@ PIC X(25).@D@@@@ 03 FILLER PIC X(30) AN )@@G@@@D@@@@ VALUE ' 2 GROUP TOTAL FOR BATCH'. @D@@@@ AO )@@G@@ 03 FILLER PIC X(25).@D@@@@ 03 FAP )@@G@@ILLER PIC X(30) @D@@@@ VALUE ' 3 AQ )@@G@@GROUP TOTAL FOR BATCH'. @D@@@@ 03 FILLER AR )@@G@@ PIC X(25).@D@@@@ 03 FILLER PIC X(30) AS )@@G@@@D@@@@ VALUE ' 1-3 GROUP TOTAL FOR BATCH'. @D@@@@ AT )@@G@@ 03 FILLER PIC X(25).@ @@@@ 02 DEMAAU )@@G@@ND-TEXT . @D@@@@ 03 FILLER PIC X(30) AV )@@G@@@D@@@@ VALUE ' 1 GROUP TOTAL FOR DEMAND'.@D@@@@ AW )@@G@@ 03 FILLER PIC X(25).@D@@@@ 03 FAX )@@G@@ILLER PIC X(30) @D@@@@ VALUE ' 2 AY )@@G@@GROUP TOTAL FOR DEMAND'.@D@@@@ 03 FILLER AZ )@@G@@ PIC X(25).@D@@@@ 03 FILLER PIC X(30) BA )@@G@@@D@@@@ VALUE ' 3 GROUP TOTAL FOR DEMAND'.@D@@@@ BB )@@G@@ 03 FILLER PIC X(25).@D@@@@ 03 FBC )@@G@@ILLER PIC X(30) @D@@@@ VALUE ' 1-3 BD )@@G@@GROUP TOTAL FOR DEMAND'.@D@@@@ 03 FILLER BE )@@G@@ PIC X(25).@^@@@@ 02 TIP-TEXT. @D@@@@ 03 FILLER BF )@@G@@ PIC X(30) @D@@@@ VALUE ' 1 GROUP BG )@@G@@TOTAL FOR TIP'. @D@@@@ 03 FILLER PIC BH )@@G@@X(25).@D@@@@ 03 FILLER PIC X(30) @D@@@@BI )@@G@@ VALUE ' 2 GROUP TOTAL FOR TIP'. @D@@@@ BJ )@@G@@ 03 FILLER PIC X(25).@D@@@@ 03 FILLER BK )@@G@@ PIC X(30) @D@@@@ VALUE ' 3 GROUP BL )@@G@@TOTAL FOR TIP'. @D@@@@ 03 FILLER PIC BM )@@G@@X(25).@D@@@@ 03 FILLER PIC X(30) @D@@@@BN )@@G@@ VALUE ' 1-3 GROUP TOTAL FOR TIP'. @D@@@@ BO )@@G@@ 03 FILLER PIC X(25).@ @@@@ 02 TOTAL-TEXTBP )@@G@@ . @D@@@@ 03 FILLER PIC X(30) @C@@@@BQ )@@G@@ VALUE ' 1 GROUP TOTAL '. @D@@@@ 03 FBR )@@G@@ILLER PIC X(25).@D@@@@ 03 FILLER BS )@@G@@ PIC X(30) @C@@@@ VALUE ' 2 GROUP TOTAL BT )@@G@@'. @D@@@@ 03 FILLER PIC X(25).@D@@@@BU )@@G@@ 03 FILLER PIC X(30) @C@@@@ BV )@@G@@ VALUE ' 3 GROUP TOTAL '. @D@@@@ 03 FILLER BW )@@G@@ PIC X(25).@D@@@@ 03 FILLER BX )@@G@@ PIC X(30) @C@@@@ VALUE ' 1-3 GROUP TOTAL '. @D@@@@BY )@@G@@ 03 FILLER PIC X(25).@@@@@@@F@@@@ BZ )@@G@@ 01 RUNRPT-ACCT-GP-TABLE REDEFINES RUNRPT-ACCT-GP-TEXT. @D@@@@ CA )@@G@@ 02 RUNRPT-ACCT-GP-CATEGORY OCCURS 4 TIMES. @D@@@@ 03 RUCB )@@G@@NRPT-ACCT-GP-ACCUM OCCURS 4 TIMES. @D@@@@ 05 TEXT-FLD CC )@@G@@ PIC X(30). @ @@@@ 05 ACCUMS. @F@@@@ CD )@@G@@ 07 TOT-SECS PIC S9(7)V999 COMP. @F@@@@ CE )@@G@@ 07 CPU-SECS PIC S9(7)V999 COMP. @F@@@@ CF )@@G@@ 07 CCER-SECS PIC S9(7)V999 COMP. @F@@@@ CG )@@G@@ 07 IO-SECS PIC S9(7)V999 COMP. @E@@@@ CH )@@G@@ 07 ERRORS PIC S9(4) COMP. @E@@@@ CI )@@G@@ 07 BL-MIN PIC S9(5) COMP. @E@@@@ CJ )@@G@@07 CAT-TRKS PIC S9(7) COMP. @E@@@@ 07 NO-CK )@@G@@RUNS PIC S9(4) COMP. @@@@@@@@@@@@@@@@@@@A@@@@ 01 RCL )@@G@@UNRPT-ACCT-DATE-TEXT . @ @@@@ 02 BATCH-TEXT . @D@@@@ CM )@@G@@ 03 FILLER PIC X(30) @D@@@@ VCN )@@G@@ALUE ' 1 DATE TOTAL FOR BATCH'. @D@@@@ 03 FILLER CO )@@G@@ PIC X(25).@D@@@@ 03 FILLER CP )@@G@@ PIC X(30) @D@@@@ VALUE ' 2 DATE TOTAL FOR BATCH'. CQ )@@G@@@D@@@@ 03 FILLER PIC X(25).@D@@@@ CR )@@G@@ 03 FILLER PIC X(30) @D@@@@ VCS )@@G@@ALUE ' 3 DATE TOTAL FOR BATCH'. @D@@@@ 03 FILLER CT )@@G@@ PIC X(25).@D@@@@ 03 FILLER CU )@@G@@ PIC X(30) @D@@@@ VALUE ' 1-3 DATE TOTAL FOR BATCH'. CV )@@G@@@D@@@@ 03 FILLER PIC X(25).@ @@@@ CW )@@G@@ 02 DEMAND-TEXT . @D@@@@ 03 FILLER CX )@@G@@ PIC X(30) @D@@@@ VALUE ' 1 DATE TOTAL FOR DEMAND'.CY )@@G@@@D@@@@ 03 FILLER PIC X(25).@D@@@@ CZ )@@G@@ 03 FILLER PIC X(30) @D@@@@ VDA )@@G@@ALUE ' 2 DATE TOTAL FOR DEMAND'.@D@@@@ 03 FILLER DB )@@G@@ PIC X(25).@D@@@@ 03 FILLER DC )@@G@@ PIC X(30) @D@@@@ VALUE ' 3 DATE TOTAL FOR DEMAND'.DD )@@G@@@D@@@@ 03 FILLER PIC X(25).@D@@@@ DE )@@G@@ 03 FILLER PIC X(30) @D@@@@ VDF )@@G@@ALUE ' 1-3 DATE TOTAL FOR DEMAND'.@D@@@@ 03 FILLER DG )@@G@@ PIC X(25).@^@@@@ 02 TIP-TEXT. @D@@@@ DH )@@G@@ 03 FILLER PIC X(30) @D@@@@ VALUE 'DI )@@G@@ 1 DATE TOTAL FOR TIP'. @D@@@@ 03 FILLER DJ )@@G@@ PIC X(25).@D@@@@ 03 FILLER PIC DK )@@G@@X(30) @D@@@@ VALUE ' 2 DATE TOTAL FOR TIP'. @D@@@@DL )@@G@@ 03 FILLER PIC X(25).@D@@@@ DM )@@G@@ 03 FILLER PIC X(30) @D@@@@ VALUE 'DN )@@G@@ 3 DATE TOTAL FOR TIP'. @D@@@@ 03 FILLER DO )@@G@@ PIC X(25).@D@@@@ 03 FILLER PIC DP )@@G@@X(30) @D@@@@ VALUE ' 1-3 DATE TOTAL FOR TIP'. @D@@@@DQ )@@G@@ 03 FILLER PIC X(25).@ @@@@ 0DR )@@G@@2 TOTAL-TEXT . @D@@@@ 03 FILLER PIC DS )@@G@@X(30) @C@@@@ VALUE ' 1 DATE TOTAL '. @D@@@@ DT )@@G@@ 03 FILLER PIC X(25).@D@@@@ 03 FDU )@@G@@ILLER PIC X(30) @C@@@@ VALUE ' 2 DV )@@G@@ DATE TOTAL '. @D@@@@ 03 FILLER PIC DW )@@G@@X(25).@D@@@@ 03 FILLER PIC X(30) @C@@@@DX )@@G@@ VALUE ' 3 DATE TOTAL '. @D@@@@ 03 FDY )@@G@@ILLER PIC X(25).@D@@@@ 03 FILLER DZ )@@G@@ PIC X(30) @C@@@@ VALUE ' 1-3 DATE TOTAL EA )@@G@@'. @D@@@@ 03 FILLER PIC X(25).@@@@@@EB )@@G@@@F@@@@ 01 RUNRPT-ACCT-DATE-TABLE REDEFINES RUNRPT-ACCT-DATE-TEXT.EC )@@G@@@D@@@@ 02 RUNRPT-ACCT-DATE-CATEGORY OCCURS 4 TIMES.@D@@@@ ED )@@G@@ 03 RUNRPT-ACCT-DATE-ACCUM OCCURS 4 TIMES.@D@@@@ 05EE )@@G@@ TEXT-FLD PIC X(30). @ @@@@ 05 ACCUMS. EF )@@G@@@F@@@@ 07 TOT-SECS PIC S9(7)V999 COMP. EG )@@G@@@F@@@@ 07 CPU-SECS PIC S9(7)V999 COMP. EH )@@G@@@F@@@@ 07 CCER-SECS PIC S9(7)V999 COMP. EI )@@G@@@F@@@@ 07 IO-SECS PIC S9(7)V999 COMP. EJ )@@G@@@E@@@@ 07 ERRORS PIC S9(4) COMP. @E@@@@EK )@@G@@ 07 BL-MIN PIC S9(5) COMP. @E@@@@ EL )@@G@@ 07 CAT-TRKS PIC S9(7) COMP. @E@@@@ EM )@@G@@ 07 NO-RUNS PIC S9(4) COMP. @A@@@@ 01 ACCREC-EN )@@G@@BATCH-PRIORITY. @B@@@@ 03 BATCH-CNTS OCCURS 3 TIMES. @D@@@@EO )@@G@@ 05 BATCH-PRI PIC 9(10) COMP. @D@@@@ EP )@@G@@ 05 BATCH-SUPS PIC 9(10) COMP. @A@@@@ 01 ACCREC-RT-BATEQ )@@G@@CH-PRIORITY.@C@@@@ 03 RT-BATCH-CNTS OCCURS 3 TIMES. @D@@@@ER )@@G@@ 05 RT-BATCH-PRI PIC 9(10) COMP.@D@@@@ ES )@@G@@ 05 RT-BATCH-SUPS PIC 9(10) COMP.@B@@@@ 01 ACCREC-SHIFT-ET )@@G@@ACCUM COMP-4. @C@@@@ 03 TOT-RPTS PIC 9(10).EU )@@G@@@C@@@@ 03 TOT-LINES PIC 9(10).@C@@@@ 03EV )@@G@@ SPC-FORMS PIC 9(10).@C@@@@ 03 PR-BL-TIME EW )@@G@@ PIC 9(10).@B@@@@ 01 CLR-ACCREC-SHIFT-ACCUM COMP-4. @C@@@@EX )@@G@@ 03 CLR-WDA OCCURS 4 TIMES PIC 9(10). @B@@@@ 01 ACCREC-EY )@@G@@ERROR-ACCUM COMP-4. @C@@@@ 03 HARD-KILL PIC EZ )@@G@@9(10).@C@@@@ 03 PROG-KILL PIC 9(10).@C@@@@ FA )@@G@@ 03 OPER-KILL PIC 9(10).@C@@@@ 03 SYS-KILL FB )@@G@@ PIC 9(10).@C@@@@ 03 ER-ERR PIC FC )@@G@@9(10).@C@@@@ 03 ER-ABORT PIC 9(10).@C@@@@ FD )@@G@@ 03 SEC-LOST PIC 9(10).@B@@@@ 01 CLR-ACCREC-ERFE )@@G@@ROR-ACCUM COMP-4. @C@@@@ 03 CLR-WDB OCCURS 7 TIMES PIC 9(10). FF )@@G@@@A@@@@ 01 ACCREC-RUN-ACCUM COMP-4. @C@@@@ 03 RUNS FG )@@G@@ PIC 9(10).@C@@@@ 03 RUN-SECS PIC FH )@@G@@9(10).@C@@@@ 03 NO-RJE PIC 9(10).@C@@@@ FI )@@G@@ 03 NO-ST PIC 9(10).@C@@@@ 03 DL-BATCH FJ )@@G@@ PIC 9(10).@C@@@@ 03 BL-MIN PIC FK )@@G@@9(10).@C@@@@ 03 TOT-SUPS PIC 9(10).@C@@@@ FL )@@G@@ 03 CPU-SUPS PIC 9(10).@C@@@@ 03 CB-SUPS FM )@@G@@ PIC 9(10).@C@@@@ 03 CCER-SUPS PIC FN )@@G@@9(10).@C@@@@ 03 TEMP-TKS PIC 9(10).@C@@@@ FO )@@G@@ 03 NEW-TKS PIC 9(10).@C@@@@ 03 RMV-MNTS FP )@@G@@ PIC 9(10).@C@@@@ 03 RMV-SECS PIC 9FQ )@@G@@(10). @C@@@@ 03 MASS-STOR-XFERS PIC 9(10). @C@@@@ FR )@@G@@ 03 REELS-MTD PIC 9(10). @C@@@@ 03 TAPE-XFERS FS )@@G@@ PIC 9(10). @C@@@@ 03 STD-PGS PIC 9FT )@@G@@(10). @C@@@@ 03 CARDS-IN PIC 9(10). @C@@@@ FU )@@G@@ 03 CARDS-OUT PIC 9(10). @C@@@@ 03 RT-SECS FV )@@G@@ PIC 9(10). @@@@@@@B@@@@ 01 CLR-ACCREC-RUN-ACCUM COMPFW )@@G@@-4. @D@@@@ 03 CLR-WDC OCCURS 21 TIMES PIC 9(10). @@@@@@FX )@@G@@@^@@@@ 01 ERR-HEAD-3. @F@@@@ 02 FILLER FY )@@G@@ PIC X(61) VALUE SPACES. @E@@@@ 02 FILLER PIC X(71) VAFZ )@@G@@LUE 'ERROR REPORT '. @@@@@@@ @@@@ 01 ERR-DETAIL-HD. @D@@@@GA )@@G@@ 02 FILLER PIC X(132) VALUE @D@@@@ 'GB )@@G@@ERROR-CODE REC-TYPE SORT-DATE-TIME@ @@@@ - 'SORT-ACCT-NOGC )@@G@@'. @@@@@@@^@@@@ 01 ERR-DETAIL . @E@@@@ 02 FILLER GD )@@G@@ PIC X(5) VALUE SPACES. @B@@@@ 02 ERROR-CODE GE )@@G@@ PIC X.@E@@@@ 02 FILLER PIC X(12) VALUE SPGF )@@G@@ACES. @C@@@@ 02 REC-TYPE PIC 99. @E@@@@ GG )@@G@@ 02 FILLER PIC X(8) VALUE SPACES. @A@@@@ 02GH )@@G@@ ERR-SORT-DATE-TIME. @C@@@@ 05 YY PIC 99GI )@@G@@. @D@@@@ 05 FILLER PIC X VALUE '-'. @C@@@@GJ )@@G@@ 05 MM PIC 99. @D@@@@ 05 FIGK )@@G@@LLER PIC X VALUE '-'. @C@@@@ 05 DD GL )@@G@@ PIC 99. @D@@@@ 05 FILLER PIC X VALUE GM )@@G@@':'. @C@@@@ 05 ED-TIME PIC 9(6).@E@@@@ GN )@@G@@ 02 FILLER PIC X(17) VALUE SPACES. @C@@@@ 02GO )@@G@@ ERR-SORT-ACCT-NO PIC X(12). @E@@@@ 02 FILLER GP )@@G@@ PIC X(60) VALUE SPACES. @@@@@@@ @@@@ 01 ERR-LEGEND-HD. GQ )@@G@@@D@@@@ 02 FILLER PIC X(132) VALUE @C@@@@ GR )@@G@@ 'ERROR CODES: EXPLANATIONS: '. @@@@@@@^@@@@ 01 ERR-CODGS )@@G@@E-A. @D@@@@ 02 FILLER PIC X(132) VALUE @G@@@@GT )@@G@@ ' A CANNOT BE CLASSIFIED AS SYMB-REC, PACK-MNTGU )@@G@@@C@@@@ - '-REC, X/E KEYIN-REC OR JOB-REC'. @@@@@@@^@@@@ GV )@@G@@ 01 ERR-CODE-B. @D@@@@ 02 FILLER PIC X(132) VGW )@@G@@ALUE @G@@@@ ' B FIRST SYMB-REC ENCOUNTERED WASGX )@@G@@ NOT REC-TYP@#@@@@ - 'E 09'.@@@@@@@^@@@@ 01 ERR-CODE-C. GY )@@G@@@D@@@@ 02 FILLER PIC X(132) VALUE @G@@@@ GZ )@@G@@ ' C FIRST JOB-REC ENCOUNTERED WAS NOT REC-TYPE@#@@@@HA )@@G@@ - ' 09'. @@@@@@@^@@@@ 01 ERR-CODE-D. @D@@@@ 02HB )@@G@@ FILLER PIC X(132) VALUE @G@@@@ ' D HC )@@G@@ LOG-REC DATE/TIME FIELD WAS GARBAGED'. @@@@@@@^@@@@ 01 HD )@@G@@REC-CNTS. @D@@@@ 02 FILLER VALUE ' SYM-IN' PIC X(10). HE )@@G@@@C@@@@ 02 SYM-IN-CNT PIC 9(6) VALUE 0. @D@@@@ HF )@@G@@02 FILLER VALUE ' SYM-OUT' PIC X(10). @C@@@@ 02 SYM-OUT-CHG )@@G@@NT PIC 9(6) VALUE 0. @D@@@@ 02 FILLER VALUE ' PACK-RECS' HH )@@G@@ PIC X(10).@B@@@@ 02 PACK-CNT PIC 9(6) VALUE 0.@D@@@@ HI )@@G@@ 02 FILLER VALUE ' KILL-RECS' PIC X(10).@B@@@@ 02 KILHJ )@@G@@L-CNT PIC 9(6) VALUE 0.@D@@@@ 02 FILLER VALUE ' JOB-IN' PHK )@@G@@IC X(10). @C@@@@ 02 JOB-IN-CNT PIC 9(6) VALUE 0. @D@@@@HL )@@G@@ 02 FILLER VALUE ' JOB-OUT' PIC X(10). @C@@@@ HM )@@G@@02 JOB-OUT-CNT PIC 9(6) VALUE 0. @D@@@@ 02 FILLER VALUE ' HN )@@G@@RECS-IN' PIC X(10). @C@@@@ 02 RECORDS-IN-CNT VALUE 0 PIC HO )@@G@@9(6). @C@@@@ 02 FILLER VALUE SPACES PIC X(10). @]@@@@ HP )@@G@@/ @ @@@@ PROCEDURE DIVISION. @@@@@@@@@@@@@^@@@@ 0000-HQ )@@G@@CONTROL. @@@@@@@B@@@@ PERFORM 0100-GET-PARAM-CARD. @B@@@@HR )@@G@@ PERFORM 0101-HOUSEKEEPING. @A@@@@ PERFORM 0102-HS )@@G@@MAIN-PROCESS@B@@@@ UNTIL INTERIM-EOF. @A@@@@ HT )@@G@@ PERFORM 0103-CLOSE-UP. @^@@@@ STOP RUN. @@@@@@@@@@@@HU )@@G@@@ @@@@ 0100-GET-PARAM-CARD. @@@@@@@A@@@@ OPEN INPUT PAHV )@@G@@RAM-CARD. @ @@@@ READ PARAM-CARD @C@@@@ ATHW )@@G@@ END MOVE 'N' TO SW-SYMBIONT @C@@@@ SHX )@@G@@W-RUNID @C@@@@ SW-TIPSUM. @ @@@@HY )@@G@@ CLOSE PARAM-CARD. @@@@@@@@@@@@@ @@@@ 0101-HOUSEKEEPINGHZ )@@G@@. @@@@@@@A@@@@ OPEN INPUT INTERIM-FILE @A@@@@ IA )@@G@@ OUTPUT ACCT-FILE @A@@@@ SYM-FILE @A@@@@IB )@@G@@ ERR-RPT. @ @@@@ IF SYMBIONT-REPORT IC )@@G@@@A@@@@ OPEN OUTPUT SYM-RPT. @ @@@@ IF RUNID-REPOID )@@G@@RT @A@@@@ OPEN OUTPUT RUN-RPT. @B@@@@ ACCEPT IE )@@G@@THIS-DATE FROM DATE. @E@@@@ MOVE CORRESPONDING THIS-DATE TOIF )@@G@@ THIS-DATE-EDITED.@B@@@@ MOVE 'H15500' TO DEPT-RUN-ID. @C@@@@IG )@@G@@ MOVE 'H1550030' TO DEPT-PROGRAM-NUM. @C@@@@ MOVE THIH )@@G@@IS-DATE-EDITED TO DEPT-DATE. @C@@@@ PERFORM 0599-ERR-RPT-PAGEII )@@G@@-BREAK. @^@@@@ SET P1 TO 1. @^@@@@ SET P2 TO 1. IJ )@@G@@@D@@@@ MOVE ALL ZEROES TO OUTSTANDING-MSG-TABLE. @B@@@@ IK )@@G@@ MOVE YY OF THIS-DATE TO X-YEAR.@D@@@@ COMPUTE CUR-YR-MOD-IL )@@G@@1964 = X-YEAR - 64 . @A@@@@ PERFORM 0207-CLEAR-BLOCK @D@@@@IM )@@G@@ VARYING SUB FROM 1 BY 1 UNTIL SUB > 7. @A@@@@ PIN )@@G@@ERFORM 0209-CLEAR-BLOCK @E@@@@ VARYING SUB FROM 1 BY 1 UNTIO )@@G@@IL SUB > 104. @A@@@@ PERFORM 0210-CLEAR-BLOCK @D@@@@ IP )@@G@@ VARYING SUB FROM 1 BY 1 UNTIL SUB > 11.@A@@@@ PERFORMIQ )@@G@@ 0211-CLEAR-BLOCK @D@@@@ VARYING SUB FROM 1 BY 1 UNTIL SUBIR )@@G@@ > 12.@A@@@@ PERFORM 0213-CLEAR-BLOCK @D@@@@ VARIS )@@G@@YING SUB FROM 1 BY 1 UNTIL SUB > 4. @A@@@@ PERFORM 0214-CLEAR-IT )@@G@@BLOCK @D@@@@ VARYING SUB FROM 1 BY 1 UNTIL SUB > 7. @A@@@@IU )@@G@@ PERFORM 0215-CLEAR-BLOCK @D@@@@ VARYING SUB FROIV )@@G@@M 1 BY 1 UNTIL SUB > 21.@@@@@@@@@@@@@ @@@@ 0102-MAIN-PROCESS. IW )@@G@@@@@@@@@B@@@@ PERFORM 0200-READ-INTERIM-FILE.@ @@@@ IIX )@@G@@F NOT INTERIM-EOF @ @@@@ IF SYMB-REC @D@@@@ IY )@@G@@ PERFORM 0201-PROCESS-SYMBIONT-REC @#@@@@ ELSE@A@@@@IZ )@@G@@ IF PACK-MNT-REC @B@@@@ IF LAST-REJA )@@G@@C-SYMB-REC @E@@@@ PERFORM 0202-FINISH-SYMB-PROCESJB )@@G@@S @D@@@@ PERFORM 0203-STORE-PACK-MNT-REC@^@@@@JC )@@G@@ ELSE@D@@@@ PERFORM 0203-STORE-JD )@@G@@PACK-MNT-REC@^@@@@ ELSE @A@@@@ IF XJE )@@G@@-E-KEYIN-REC@C@@@@ IF LAST-REC-SYMB-REC @E@@@@JF )@@G@@ PERFORM 0202-FINISH-SYMB-PROCESS @D@@@@ JG )@@G@@ PERFORM 0204-STORE-X-E-KEYIN@ @@@@ JH )@@G@@ ELSE @D@@@@ PERFORM 0204-STORE-X-E-KEYINJI )@@G@@@^@@@@ ELSE@A@@@@ IF JOB-REC JJ )@@G@@@C@@@@ IF LAST-REC-SYMB-REC @F@@@@ JK )@@G@@ PERFORM 0202-FINISH-SYMB-PROCESS @E@@@@ JL )@@G@@ PERFORM 0205-PROCESS-JOB-REC @ @@@@ JM )@@G@@ ELSE@E@@@@ PERFORM 0205-PROCESS-JOB-JN )@@G@@REC. @ @@@@ IF INTERIM-EOF @A@@@@ IF LAST-REJO )@@G@@C-SYMB-REC @D@@@@ PERFORM 0202-FINISH-SYMB-PROCESS JP )@@G@@@#@@@@ ELSE@D@@@@ PERFORM 0206-FINISH-JOB-PJQ )@@G@@ROCESS. @@@@@@@@@@@@@^@@@@ 0103-CLOSE-UP. @@@@@@@C@@@@ JR )@@G@@ MOVE SYM-REC-IN-CNT TO SYM-IN-CNT. @C@@@@ MOVE SYM-REC-JS )@@G@@OUT-CNT TO SYM-OUT-CNT. @B@@@@ MOVE PACK-REC-IN TO PACK-CNT. JT )@@G@@@B@@@@ MOVE KILL-REC-IN TO KILL-CNT. @B@@@@ MOVE JOJU )@@G@@B-REC-IN TO JOB-IN-CNT. @C@@@@ MOVE ACCT-REC-OUT-CNT TO JOB-OUJV )@@G@@T-CNT.@C@@@@ MOVE REC-IN-CNT TO RECORDS-IN-CNT. @D@@@@ JW )@@G@@ WRITE ERR-LINE FROM REC-CNTS AFTER PAGE. @ @@@@ CLOSE IJX )@@G@@NTERIM-FILE.@ @@@@ CLOSE ACCT-FILE. @ @@@@ CLOSEJY )@@G@@ SYM-FILE. @ @@@@ CLOSE ERR-RPT. @ @@@@ IF RUNIJZ )@@G@@D-REPORT @ @@@@ CLOSE RUN-RPT. @ @@@@ IF SYMBKA )@@G@@IONT-REPORT @ @@@@ CLOSE SYM-RPT. @@@@@@@@@@@@@ @@@@ KB )@@G@@ 0200-READ-INTERIM-FILE.@@@@@@@A@@@@ MOVE 'N' TO SW-SYMB-REC KC )@@G@@@B@@@@ SW-PACK-MNT-REC @B@@@@ KD )@@G@@ SW-X-E-KEYIN-REC @A@@@@ SW-JOB-REC @B@@@@KE )@@G@@ SW-GARBAGED-REC. @ @@@@ READ INTERIM-KF )@@G@@FILE @D@@@@ AT END MOVE 'Y' TO SW-INTERIM-EOF. @ @@@@KG )@@G@@ IF NOT INTERIM-EOF @C@@@@ PERFORM 0332-CHECK-INTKH )@@G@@-ENTRY-TIME @A@@@@ ADD 1 TO REC-IN-CNT @A@@@@ KI )@@G@@ IF NOT GARBAGED-REC @B@@@@ IF INT-SORT-DATE-9 = 0 KJ )@@G@@@C@@@@ IF INT-PRI-ACCT-NO-9 = 1 @ @@@@ KK )@@G@@ AND @A@@@@ INT-TYPE = 7 @D@@@@ KL )@@G@@ MOVE 'Y' TO SW-PACK-MNT-REC @^@@@@ KM )@@G@@ ELSE@C@@@@ IF INT-PRI-ACCT-NO-9 = 2 @ @@@@ KN )@@G@@ AND @B@@@@ INT-TYPE = 12 KO )@@G@@@D@@@@ MOVE 'Y' TO SW-X-E-KEYIN-REC@ @@@@ KP )@@G@@ ELSE @F@@@@ IF INT-TYPE = 9 KQ )@@G@@OR 14 OR 5 OR 17 OR 18 @D@@@@ MOVE 'Y' TO SKR )@@G@@W-SYMB-REC @E@@@@ SW-LAST-REC-SYMBKS )@@G@@-REC @ @@@@ ELSE@E@@@@ KT )@@G@@ PERFORM 0300-INT-REC-ERROR @^@@@@ ELSE @F@@@@KU )@@G@@ IF INT-TYPE = 2 OR 3 OR 4 OR 5 OR 7 OR 9 OR 10@D@@@@KV )@@G@@ OR 14 OR 17 OR 18 @C@@@@ KW )@@G@@ MOVE 'Y' TO SW-JOB-REC @^@@@@ ELSE@D@@@@KX )@@G@@ PERFORM 0300-INT-REC-ERROR @#@@@@ KY )@@G@@ ELSE@C@@@@ PERFORM 0333-INT-REC-GARBAGED. @@@@@@@@@@@@KZ )@@G@@@A@@@@ 0201-PROCESS-SYMBIONT-REC. @@@@@@@A@@@@ ADD 1 TLA )@@G@@O SYM-REC-IN-CNT. @ @@@@ IF FIRST-SYM-REC @ @@@@ LB )@@G@@ IF INT-TYPE = 9 @C@@@@ PERFORM 0400-SYM-START-REC LC )@@G@@@C@@@@ PERFORM 0401-SYM-START-RUN @C@@@@ LD )@@G@@ MOVE 'N' TO SW-FIRST-SYM-REC @#@@@@ ELSE@B@@@@ LE )@@G@@ PERFORM 0306-SYM-ERROR @#@@@@ ELSE @ @@@@ LF )@@G@@ IF INT-TYPE = 9 @C@@@@ PERFORM 0301-DUMP-SYM-RUNLG )@@G@@-ACCUM@C@@@@ PERFORM 0302-SYM-TEST-GROUP @#@@@@ LH )@@G@@ ELSE@C@@@@ PERFORM 0303-SYM-UPDATE-GROUP. @@@@@@LI )@@G@@@@@@@@@A@@@@ 0202-FINISH-SYMB-PROCESS. @@@@@@@C@@@@ MLJ )@@G@@OVE 'N' TO SW-LAST-REC-SYMB-REC. @C@@@@ PERFORM 0301-DUMP-SLK )@@G@@YM-RUN-ACCUM. @B@@@@ PERFORM 0402-SYM-CLOSE-CUR-REC.@ @@@@LL )@@G@@ IF SYMBIONT-REPORT @C@@@@ MOVE ALL SPACES TO CURLM )@@G@@-SYM-DEV @C@@@@ CUR-SYM-ACCT-NO@A@@@@LN )@@G@@ MOVE 0 TO CUR-SYM-DATE@D@@@@ PERFORM 0502-SYMLO )@@G@@RPT-PROCESS-LAST-RUN. @@@@@@@@@@@@@A@@@@ 0203-STORE-PACK-MNT-RECLP )@@G@@. @@@@@@@A@@@@ ADD 1 TO PACK-REC-IN. @^@@@@ ILQ )@@G@@F P1 > 100 @G@@@@ DISPLAY 'TOTAL PACK-MNT RECS > 100' UPONLR )@@G@@ PRINT-DEVICE @#@@@@ ELSE @E@@@@ MOVE INT-LS )@@G@@SYMB-RUNID TO PACK-MNT-RUNID (P1) @E@@@@ MOVE INT-ENTRY-LT )@@G@@TIME TO PACK-MNT-TIME (P1). @ @@@@ SET P1 UP BY 1. @@@@@@LU )@@G@@@@@@@@@ @@@@ 0204-STORE-X-E-KEYIN. @@@@@@@A@@@@ ADD 1 TLV )@@G@@O KILL-REC-IN. @^@@@@ IF P2 > 100 @G@@@@ DISPLW )@@G@@LAY 'TOTAL X-E-KEYIN RECS > 100' UPON PRINT-DEVICE @#@@@@ ELX )@@G@@LSE @E@@@@ MOVE INT-SYMB-RUNID TO KILLED-RUNID (P2) LY )@@G@@@E@@@@ MOVE INT-ENTRY-TIME TO KILLED-RUN-TIME (P2). @ @@@@LZ )@@G@@ SET P2 UP BY 1. @@@@@@@@@@@@@ @@@@ 0205-PROCESS-JOB-MA )@@G@@REC. @@@@@@@A@@@@ ADD 1 TO JOB-REC-IN. @ @@@@ IMB )@@G@@F FIRST-JOB-REC @ @@@@ IF INT-TYPE = 9 @C@@@@ MC )@@G@@ PERFORM 0324-ACCREC-START-REC @C@@@@ PERFORM 0326-MD )@@G@@ACCREC-START-RUN @C@@@@ MOVE 'N' TO SW-FIRST-JOB-REC ME )@@G@@@#@@@@ ELSE@B@@@@ PERFORM 0327-ACCREC-ERRORMF )@@G@@@#@@@@ ELSE @ @@@@ IF INT-TYPE = 9 @D@@@@ MG )@@G@@ PERFORM 0328-ACCREC-UPDATE-TOTALS @D@@@@ IMH )@@G@@F INT-ENTRY-DATE = CUR-ACCREC-DATE @^@@@@ AND @D@@@@MI )@@G@@ INT-PRI-ACCT-NO = CUR-ACCREC-ACCT @D@@@@ MJ )@@G@@ PERFORM 0326-ACCREC-START-RUN @^@@@@ ELSE MK )@@G@@@D@@@@ PERFORM 0330-ACCREC-WRITE-CUR-REC @D@@@@ ML )@@G@@ PERFORM 0324-ACCREC-START-REC @D@@@@ MM )@@G@@ PERFORM 0326-ACCREC-START-RUN @#@@@@ ELSE@D@@@@ MN )@@G@@ PERFORM 0331-ACCREC-PROCESS-CUR-RUN. @@@@@@@@@@@@@A@@@@ MO )@@G@@ 0206-FINISH-JOB-PROCESS. @@@@@@@C@@@@ PERFORM 0328-ACCRECMP )@@G@@-UPDATE-TOTALS. @C@@@@ PERFORM 0330-ACCREC-WRITE-CUR-REC. MQ )@@G@@@ @@@@ IF RUNID-REPORT @C@@@@ MOVE ALL SPACES MR )@@G@@TO CUR-ACCREC-DATE@C@@@@ CUR-ACCREC-ACCTMS )@@G@@@D@@@@ PERFORM 0476-RUNRPT-PROCESS-LAST-RUN. @@@@@@@@@@@@MT )@@G@@@^@@@@ 0207-CLEAR-BLOCK.@@@@@@@C@@@@ MOVE 0 TO CLEAR-AC-MU )@@G@@ERROR-WD (SUB). @@@@@@@@@@@@@^@@@@ 0209-CLEAR-BLOCK.@@@@@@@C@@@@MV )@@G@@ MOVE 0 TO CLEAR-AC-SHIFT-WD (SUB). @@@@@@@@@@@@@^@@@@ MW )@@G@@ 0210-CLEAR-BLOCK.@@@@@@@B@@@@ MOVE 0 TO CLR-SYM-RUN-WD (SUB).MX )@@G@@@@@@@@@@@@@@@^@@@@ 0211-CLEAR-BLOCK.@@@@@@@C@@@@ MOVE 0 MY )@@G@@TO CLR-SYM-ACCUM-WD (SUB). @@@@@@@@@@@@@^@@@@ 0213-CLEAR-BLOCK.MZ )@@G@@@@@@@@@A@@@@ MOVE 0 TO CLR-WDA (SUB). @@@@@@@@@@@@@^@@@@ NA )@@G@@ 0214-CLEAR-BLOCK.@@@@@@@A@@@@ MOVE 0 TO CLR-WDB (SUB). @@@@@@NB )@@G@@@@@@@@@^@@@@ 0215-CLEAR-BLOCK.@@@@@@@A@@@@ MOVE 0 TO CLRNC )@@G@@-WDC (SUB). @@@@@@@@@@@@@@@@@@@ @@@@ 0300-INT-REC-ERROR. @@@@@@ND )@@G@@@C@@@@ MOVE 'A' TO ERROR-CODE OF ERR-DETAIL.@A@@@@ PNE )@@G@@ERFORM 0433-PRINT-ERROR.@@@@@@@@@@@@@A@@@@ 0301-DUMP-SYM-RUN-ACCUMNF )@@G@@. @@@@@@@F@@@@ ADD CORR SYM-RUN-ACCUM TO SYM-SHIFT-INFO (CNG )@@G@@UR-SHIFT). @@@@@@@@@@@@@ @@@@ 0302-SYM-TEST-GROUP. @@@@@@@B@@@@NH )@@G@@ IF INT-DEVICE-ID = CUR-SYM-DEV @#@@@@ AND @B@@@@NI )@@G@@ INT-SYMB-DATE = CUR-SYM-DATE@#@@@@ AND @C@@@@NJ )@@G@@ INT-PRI-ACCT-NO = CUR-SYM-ACCT-NO @B@@@@ PERFNK )@@G@@ORM 0401-SYM-START-RUN @#@@@@ ELSE @C@@@@ PERFNL )@@G@@ORM 0402-SYM-CLOSE-CUR-REC @B@@@@ PERFORM 0400-SYM-STARTNM )@@G@@-REC @B@@@@ PERFORM 0401-SYM-START-RUN. @@@@@@@@@@@@@ @@@@NN )@@G@@ 0303-SYM-UPDATE-GROUP. @@@@@@@ @@@@ IF INT-TYPE = 5 NO )@@G@@@B@@@@ PERFORM 0404-SYM-PROCESS-T05@#@@@@ ELSE NP )@@G@@@ @@@@ IF INT-TYPE = 14@C@@@@ PERFORM 0405-NQ )@@G@@SYM-PROCESS-T14 @#@@@@ ELSE@A@@@@ IF INT-NR )@@G@@TYPE = 17 @C@@@@ PERFORM 0406-SYM-PROCESS-T17@^@@@@NS )@@G@@ ELSE @A@@@@ IF INT-TYPE = 18@D@@@@NT )@@G@@ PERFORM 0407-SYM-PROCESS-T18. @@@@@@@@@@@@@@@@@@NU )@@G@@@^@@@@ 0306-SYM-ERROR. @@@@@@@C@@@@ MOVE 'B' TO ERROR-CNV )@@G@@ODE OF ERR-DETAIL.@A@@@@ PERFORM 0433-PRINT-ERROR.@@@@@@@@@@@@NW )@@G@@@ @@@@ 0324-ACCREC-START-REC. @@@@@@@B@@@@ PERFORM 0422-NX )@@G@@ACCREC-CLR-REC. @C@@@@ PERFORM 0437-ACCREC-CLR-PRI-ACCUMS NY )@@G@@@D@@@@ VARYING SUB FROM 1 BY 1 UNTIL SUB > 3. @D@@@@ NZ )@@G@@ MOVE INT-PRI-ACCT-NO TO AC-ACCOUNT-NO @B@@@@ OA )@@G@@ CUR-ACCREC-ACCT. @D@@@@ MOVE INT-ENTRY-DATE TO CUR-ACCROB )@@G@@EC-DATE. @D@@@@ COMPUTE ACNT-YEAR = INT-ENTRY-YY + 64. OC )@@G@@@A@@@@ MOVE ACNT-YEAR TO AC-YY-9@A@@@@ OD )@@G@@ CYEAR. @B@@@@ MOVE INT-ENTRY-MM TO AC-MM-9 @B@@@@ OE )@@G@@ CMONTH. @B@@@@ MOVE INT-ENTRY-DD TOF )@@G@@O AC-DD-9 @B@@@@ CDAY. @ @@@@ OG )@@G@@ ADD 1900 TO CYEAR. @A@@@@ MOVE 0 TO DAY-OF-WEEK. @G@@@@OH )@@G@@ ENTER FORTRAN 'WEEKDA' USING CDAY CMONTH CYEAR DAY-OF-WEEK. OI )@@G@@@ @@@@ IF DAY-OF-WEEK < 0 @C@@@@ MOVE ZEROES TO AOJ )@@G@@C-DAY-OF-WK-9 @#@@@@ ELSE @D@@@@ MOVE DAY-OOK )@@G@@F-WEEK TO AC-DAY-OF-WK-9. @@@@@@@@@@@@@ @@@@ 0326-ACCREC-STARTOL )@@G@@-RUN. @@@@@@@ @@@@ IF RUNID-REPORT @ @@@@ IF FOM )@@G@@IRST-JOB-REC@C@@@@ PERFORM 0475-RUNRPT-INITIALIZE @#@@@@ON )@@G@@ ELSE@D@@@@ PERFORM 0476-RUNRPT-PROCESS-LASOO )@@G@@T-RUN.@B@@@@ MOVE 'N' TO SW-RUN-CLOSED-OUT. @B@@@@ MOP )@@G@@OVE 'N' TO SW-HARD-ERROR-ON. @B@@@@ MOVE 'N' TO SW-REAL-TIME-OQ )@@G@@RUN. @B@@@@ MOVE 'N' TO SW-END-OF-PK-TABLE.@C@@@@ MOR )@@G@@OVE 'N' TO SW-END-OF-KILLED-TABLE. @C@@@@ MOVE 'N' TO SW-FILEOS )@@G@@-TABLE-OVERFLOW. @ @@@@ MOVE 0 TO HOLD-P3. @D@@@@ MOT )@@G@@OVE ALL SPACES TO OUTSTANDING-MSG-TABLE. @E@@@@ MOVE CLR-ACCROU )@@G@@EC-RUN-ACCUM TO ACCREC-RUN-ACCUM. @F@@@@ MOVE CLR-ACCREC-SHIOV )@@G@@FT-ACCUM TO ACCREC-SHIFT-ACCUM. @F@@@@ MOVE CLR-ACCREC-ERROW )@@G@@OR-ACCUM TO ACCREC-ERROR-ACCUM. @C@@@@ PERFORM 0516-GET-INOX )@@G@@T-REC-ENTRY-SHIFT.@B@@@@ MOVE WORK-SHIFT TO RUN-SHIFT. @C@@@@OY )@@G@@ MOVE INTERIM-REC TO TYPE-09-REC. @D@@@@ MOVE T0OZ )@@G@@9-ENTRY-TIME TO LAST-TASK-TIME. @C@@@@ MOVE 1 TO RUNS OF APA )@@G@@CCREC-RUN-ACCUM. @A@@@@ IF T09-RUN-TYPE = 5 OR 6 @A@@@@ PB )@@G@@ IF T09-SEQ-ID = 0 @D@@@@ MOVE 1 TO NO-ST OF PC )@@G@@ACCREC-RUN-ACCUM @#@@@@ ELSE@C@@@@ IF NOT PD )@@G@@T09-DEV-ASSOC-H1 = 'CR7'@E@@@@ MOVE 1 TO NO-RJE OF ACPE )@@G@@CREC-RUN-ACCUM. @A@@@@ IF T09-RUN-TYPE = 5 OR 6 @A@@@@ PF )@@G@@ IF T09-BL-MIN > 0 @F@@@@ MOVE T09-BL-MIN TO PG )@@G@@BL-MIN OF ACCREC-RUN-ACCUM. @@@@@@@@@@@@@ @@@@ 0327-ACCREC-ERRORPH )@@G@@. @@@@@@@C@@@@ MOVE 'C' TO ERROR-CODE OF ERR-DETAIL.@A@@@@PI )@@G@@ PERFORM 0433-PRINT-ERROR.@@@@@@@@@@@@@A@@@@ 0328-ACCRECPJ )@@G@@-UPDATE-TOTALS. @@@@@@@A@@@@ MOVE RUN-SHIFT TO SUB. @F@@@@PK )@@G@@ ADD CORR ACCREC-SHIFT-ACCUM TO AC-SHIFT-INFO (SUB). @^@@@@PL )@@G@@ IF BATCH-RUN @F@@@@ ADD CORR ACCREC-RUN-ACCUM TOPM )@@G@@ AC-BATCH-DATA (SUB). @^@@@@ IF DMAND-RUN@F@@@@ PN )@@G@@ ADD CORR ACCREC-RUN-ACCUM TO AC-DEMAND-DATA (SUB). @^@@@@ IPO )@@G@@F RT-BATCH @F@@@@ ADD CORR ACCREC-RUN-ACCUM TO AC-RT-BATCHPP )@@G@@-DATA (SUB).@^@@@@ IF RT-DMAND @G@@@@ ADD CORPQ )@@G@@R ACCREC-RUN-ACCUM TO AC-RT-DMAND-DATA (SUB). @A@@@@ IF DMANPR )@@G@@D-RUN OR RT-DMAND @ @@@@ MOVE 2 TO SUB @#@@@@ EPS )@@G@@LSE @ @@@@ MOVE 1 TO SUB. @G@@@@ ADD CORRESPONPT )@@G@@DING ACCREC-ERROR-ACCUM TO AC-ERRORS (SUB). @@@@@@@@@@@@@A@@@@ PU )@@G@@ 0330-ACCREC-WRITE-CUR-REC. @@@@@@@C@@@@ PERFORM 0438-ACCRECPV )@@G@@-TOT-PRIORITIES @D@@@@ VARYING SUB FROM 1 BY 1 UNTIL SUBPW )@@G@@ > 3. @ @@@@ WRITE W-ACT-REC. @B@@@@ ADD 1 TO ACCTPX )@@G@@-REC-OUT-CNT. @@@@@@@@@@@@@A@@@@ 0331-ACCREC-PROCESS-CUR-RUN. PY )@@G@@@@@@@@@ @@@@ IF INT-TYPE = 3 @C@@@@ MOVE INTERPZ )@@G@@IM-REC TO TYPE-03-REC @A@@@@ IF T03-ID = '#T3SUM' @C@@@@QA )@@G@@ PERFORM 0424-ACCREC-PROCESS-T03@D@@@@ QB )@@G@@ VARYING P FROM 1 BY 1 UNTIL P > 8.@ @@@@ IF INT-TYPE = 4 QC )@@G@@@C@@@@ PERFORM 0426-ACCREC-PROCESS-T04 @#@@@@ EQD )@@G@@LSE @ @@@@ IF INT-TYPE = 5 @C@@@@ PERFORMQE )@@G@@ 0427-ACCREC-PROCESS-T05@#@@@@ ELSE@A@@@@ IQF )@@G@@F INT-TYPE = 7 @D@@@@ PERFORM 0428-ACCREC-PROCESS-QG )@@G@@T07 @^@@@@ ELSE @A@@@@ IF INT-TYPQH )@@G@@E = 10@D@@@@ PERFORM 0429-ACCREC-PROCESS-T10@^@@@@QI )@@G@@ ELSE@B@@@@ IF INT-TYPE = 14 QJ )@@G@@@E@@@@ PERFORM 0430-ACCREC-PROCESS-T14 @ @@@@QK )@@G@@ ELSE @B@@@@ IF INT-TYPQL )@@G@@E = 17@E@@@@ PERFORM 0431-ACCREC-PROCESS-T17QM )@@G@@@ @@@@ ELSE@C@@@@ IQN )@@G@@F INT-TYPE = 18 @F@@@@ PERFORM 0432-ACCQO )@@G@@REC-PROCESS-T18. @@@@@@@@@@@@@A@@@@ 0332-CHECK-INT-ENTRY-TIME. QP )@@G@@@@@@@@@B@@@@ MOVE 'N' TO SW-GARBAGED-REC. @B@@@@ IQQ )@@G@@F INT-ENTRY-SEC > 86400 OR < 0@B@@@@ MOVE 'Y' TO SW-GARBAGEQR )@@G@@D-REC.@B@@@@ IF INT-ENTRY-DD > 31 OR < 1 @B@@@@ QS )@@G@@ MOVE 'Y' TO SW-GARBAGED-REC.@B@@@@ IF INT-ENTRY-MM > 12 OR CUR-YR-MOD-1964 OR < 0 @B@@@@ MOVE 'Y' TQV )@@G@@O SW-GARBAGED-REC.@@@@@@@@@@@@@ @@@@ 0333-INT-REC-GARBAGED. @@@@@@QW )@@G@@@C@@@@ MOVE 'D' TO ERROR-CODE OF ERR-DETAIL.@A@@@@ PQX )@@G@@ERFORM 0433-PRINT-ERROR.@@@@@@@@@@@@@ @@@@ 0400-SYM-START-REC. QY )@@G@@@@@@@@@B@@@@ PERFORM 0500-CLEAR-SYM-REC @E@@@@ QZ )@@G@@ VARYING SUB1 FROM 1 BY 1 UNTIL SUB1 > 54.@C@@@@ MOVE INRA )@@G@@T-DEVICE-ID TO SYM-DEVICE @C@@@@ CURRB )@@G@@-SYM-DEV. @C@@@@ MOVE INT-PRI-ACCT-NO TO SYM-ACCT @D@@@@RC )@@G@@ CUR-SYM-ACCT-NO. @C@@@@ MRD )@@G@@OVE INT-SYMB-DATE TO CUR-SYM-DATE. @B@@@@ MOVE INT-ENTRY-YY TRE )@@G@@O SYM-YY. @B@@@@ MOVE INT-ENTRY-MM TO SYM-MM. @B@@@@ RF )@@G@@ MOVE INT-ENTRY-DD TO SYM-DD. @ @@@@ ADD 64 TO SYM-YY. RG )@@G@@@@@@@@@@@@@@@ @@@@ 0401-SYM-START-RUN. @@@@@@@C@@@@ PRH )@@G@@ERFORM 0516-GET-INT-REC-ENTRY-SHIFT.@ @@@@ IF SYMBIONT-REPORT RI )@@G@@@ @@@@ IF FIRST-SYM-REC@C@@@@ PERFORM 0501-RJ )@@G@@SYMRPT-INITIALIZE @#@@@@ ELSE@D@@@@ PERFORMRK )@@G@@ 0502-SYMRPT-PROCESS-LAST-RUN.@D@@@@ MOVE CLR-SYM-RUN-ACCUM TORL )@@G@@ SYM-RUN-ACCUM. @B@@@@ MOVE WORK-SHIFT TO CUR-SHIFT @C@@@@RM )@@G@@ CUR-SYMRPT-SHIFT. @B@@@@ PERFORMRN )@@G@@ 0505-SYM-PROCESS-T09. @@@@@@@@@@@@@ @@@@ 0402-SYM-CLOSE-CUR-REC.RO )@@G@@@@@@@@@ @@@@ WRITE SYM-REC. @A@@@@ ADD 1 TO SYM-RP )@@G@@REC-OUT-CNT.@@@@@@@@@@@@@ @@@@ 0404-SYM-PROCESS-T05. @@@@@@@C@@@@RQ )@@G@@ MOVE INTERIM-REC TO TYPE-05-REC. @ @@@@ IF T05-RR )@@G@@CARDS-IN > 0@E@@@@ MOVE T05-CARDS-IN TO R-CDS-N OF SYM-RUN-RS )@@G@@ACCUM.@A@@@@ IF T05-CARDS-OUT > 0 @F@@@@ MOVERT )@@G@@ T05-CARDS-OUT TO R-CDS-O OF SYM-RUN-ACCUM. @A@@@@ IF T05-RU )@@G@@STD-PG-CNT > 0 @C@@@@ COMPUTE R-LINES OF SYM-RUN-ACCUM =RV )@@G@@@B@@@@ T05-STD-PG-CNT * 57.@ @@@@ IF T05-RW )@@G@@TOT-SUPS > 0@E@@@@ COMPUTE TOT-SECS OF SYM-RUN-ACCUM ROUNDERX )@@G@@D = @B@@@@ T05-TOT-SUPS / 5000 @A@@@@ RY )@@G@@ IF T05-CB-SUPS > 0 @E@@@@ COMPUTE C-BLKS OF SYM-RUNRZ )@@G@@-ACCUM ROUNDED = @D@@@@ T05-CB-SUPS / T05-TOT-SSA )@@G@@UPS. @B@@@@ MOVE T05-INIT-MM TO TIME-T1-MM.@B@@@@ MSB )@@G@@OVE T05-INIT-DD TO TIME-T1-DD.@B@@@@ MOVE T05-INIT-YY TO TIME-SC )@@G@@T1-YY.@C@@@@ MOVE T05-INIT-SEC TO TIME-T1-SECS. @B@@@@ SD )@@G@@ MOVE T05-TERM-MM TO TIME-T2-MM.@B@@@@ MOVE T05-TERM-DD TOSE )@@G@@ TIME-T2-DD.@B@@@@ MOVE T05-TERM-YY TO TIME-T2-YY.@C@@@@ SF )@@G@@ MOVE T05-TERM-SEC TO TIME-T2-SECS. @B@@@@ PERFORM 0611-SG )@@G@@GET-ELAPSED-SECS. @E@@@@ MOVE ELAPSED-SECS TO ELAP-SECS OF SYMSH )@@G@@-RUN-ACCUM. @@@@@@@@@@@@@ @@@@ 0405-SYM-PROCESS-T14. @@@@@@@C@@@@SI )@@G@@ MOVE INTERIM-REC TO TYPE-14-REC. @A@@@@ IF T14-SJ )@@G@@LINES-CARDS > 0 @A@@@@ IF T14-FILE-TYPE = 1 @F@@@@ SK )@@G@@ MOVE T14-LINES-CARDS TO S-CDS-N OF SYM-RUN-ACCUM @#@@@@ SL )@@G@@ ELSE@B@@@@ IF T14-FILE-TYPE = 2 @G@@@@ SM )@@G@@ MOVE T14-LINES-CARDS TO S-CDS-O OF SYM-RUN-ACCUM @^@@@@SN )@@G@@ ELSE @G@@@@ MOVE T14-LINES-CARDS TSO )@@G@@O S-LINES OF SYM-RUN-ACCUM. @@@@@@@@@@@@@ @@@@ 0406-SYM-PROCESS-SP )@@G@@T17. @@@@@@@C@@@@ MOVE INTERIM-REC TO TYPE-17-REC. @ @@@@SQ )@@G@@ IF T17-CPU-SUPS > 0@E@@@@ COMPUTE CPU-SECS OF SYSR )@@G@@M-RUN-ACCUM ROUNDED = @C@]@@ T17-CPU-SUPS / 10000SS )@@G@@000. @B@@@] T17-CPU-SUPS / 5000.@@@@@@@@@@@@@ @@@@ST )@@G@@ 0407-SYM-PROCESS-T18. @@@@@@@C@@@@ MOVE INTERIM-REC TOSU )@@G@@ TYPE-18-REC. @B@@@@ MOVE T09-ENTRY-TIME TO TIME-T1.@B@@@@SV )@@G@@ MOVE T18-ENTRY-TIME TO TIME-T2.@B@@@@ PERFORM 0611-SW )@@G@@GET-ELAPSED-SECS. @E@@@@ MOVE ELAPSED-SECS TO ELAP-SECS OF SYMSX )@@G@@-RUN-ACCUM. @@@@@@@@@@@@@ @@@@ 0422-ACCREC-CLR-REC. @@@@@@@C@@@@SY )@@G@@ MOVE ALL SPACES TO AC-ACCOUNT-NO @B@@@@ SZ )@@G@@ AC-DATE @C@@@@ AC-DAY-OF-WKTA )@@G@@. @B@@@@ PERFORM 0513-CLEAR-AC-DATA. @@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@A@@@@ 0424-ACCREC-PROCESS-T03. @@@@@@@B@@@@ ITC )@@G@@F T03-GRANULE-CNT (P) > 0 @G@@@@ ADD T03-GRANULE-CNT (PTD )@@G@@) TO NEW-TKS OF ACCREC-RUN-ACCUM. @@@@@@@@@@@@@@@@@@@@@@@@@A@@@@ TE )@@G@@ 0426-ACCREC-PROCESS-T04. @@@@@@@C@@@@ MOVE INTERIM-REC TOTF )@@G@@ TYPE-04-REC. @A@@@@ IF T04-REAL-TIME > 0 @F@@@@ TG )@@G@@ ADD T04-REAL-TIME TO RT-SECS OF ACCREC-RUN-ACCUM @C@@@@ TH )@@G@@ MOVE 'Y' TO SW-REAL-TIME-RUN. @A@@@@ IF T04-ABORT TI )@@G@@OR T04-ERR @C@@@@ MOVE LAST-TASK-TIME TO TIME-T1 @C@@@@TJ )@@G@@ MOVE T04-ENTRY-TIME TO TIME-T2 @C@@@@ PERFTK )@@G@@ORM 0611-GET-ELAPSED-SECS @F@@@@ ADD ELAPSED-SECS TO SETL )@@G@@C-LOST OF ACCREC-ERROR-ACCUM @ @@@@ IF HARD-ERROR-ON@E@@@@TM )@@G@@ ADD 1 TO HARD-KILL OF ACCREC-ERROR-ACCUM @C@@@@ TN )@@G@@ MOVE 'N' TO SW-HARD-ERROR-ON @#@@@@ ELSE@E@@@@TO )@@G@@ ADD 1 TO PROG-KILL OF ACCREC-ERROR-ACCUM. @D@@@@ TP )@@G@@ MOVE T04-ENTRY-TIME TO LAST-TASK-TIME. @@@@@@@@@@@@@A@@@@ TQ )@@G@@ 0427-ACCREC-PROCESS-T05. @@@@@@@C@@@@ MOVE INTERIM-REC TOTR )@@G@@ TYPE-05-REC. @ @@@@ IF T05-TOT-SUPS < 0@B@@@@ TS )@@G@@ MOVE 0 TO T05-TOT-SUPS. @ @@@@ IF T05-CB-SUPS < 0 @A@@@@TT )@@G@@ MOVE 0 TO T05-CB-SUPS.@ @@@@ IF T05-CARDS-IN < 0TU )@@G@@@B@@@@ MOVE 0 TO T05-CARDS-IN. @A@@@@ IF T05-TV )@@G@@CARDS-OUT < 0 @B@@@@ MOVE 0 TO T05-CARDS-OUT. @A@@@@TW )@@G@@ IF T05-STD-PG-CNT < 0 @B@@@@ MOVE 0 TO T05-STTX )@@G@@D-PG-CNT. @B@@@@ MOVE T05-INIT-MM TO TIME-T1-MM.@B@@@@ TY )@@G@@ MOVE T05-INIT-DD TO TIME-T1-DD.@B@@@@ MOVE T05-INIT-YY TOTZ )@@G@@ TIME-T1-YY.@C@@@@ MOVE T05-INIT-SEC TO TIME-T1-SECS. @B@@@@UA )@@G@@ MOVE T05-TERM-MM TO TIME-T2-MM.@B@@@@ MOVE T05-TERMUB )@@G@@-DD TO TIME-T2-DD.@B@@@@ MOVE T05-TERM-YY TO TIME-T2-YY.@C@@@@UC )@@G@@ MOVE T05-TERM-SEC TO TIME-T2-SECS. @B@@@@ PERFORMUD )@@G@@ 0611-GET-ELAPSED-SECS. @F@@@@ MOVE ELAPSED-SECS TO RUN-SECS OUE )@@G@@F ACCREC-RUN-ACCUM. @F@@@@ MOVE T05-TOT-SUPS TO TOT-SUPS OUF )@@G@@F ACCREC-RUN-ACCUM. @E@@@@ MOVE T05-CB-SUPS TO CB-SUPS OF UG )@@G@@ACCREC-RUN-ACCUM. @F@@@@ MOVE T05-CARDS-IN TO CARDS-IN OF ACCRUH )@@G@@EC-RUN-ACCUM. @F@@@@ MOVE T05-CARDS-OUT TO CARDS-OUT OF ACUI )@@G@@CREC-RUN-ACCUM. @F@@@@ MOVE T05-STD-PG-CNT TO STD-PGS OF ACCUJ )@@G@@REC-RUN-ACCUM. @C@@@@ PERFORM 0510-ACCREC-ACCUM-ADJD-PRI. UK )@@G@@@^@@@@ SET P1 TO 1. @B@@@@ MOVE 'N' TO SW-END-OF-PK-UL )@@G@@TABLE.@C@@@@ PERFORM 0511-ACCREC-GET-RMV-PK-DATA @A@@@@ UM )@@G@@ UNTIL END-OF-PK-TABLE.@C@@@@ MOVE 'N' TO SW-END-OF-KILUN )@@G@@LED-TABLE. @^@@@@ SET P2 TO 1. @G@@@@ PERFORM 0512-UO )@@G@@ACCREC-GET-XE-KEYINS UNTIL END-OF-KILLED-TABLE. @C@@@@ PERFORMUP )@@G@@ 0515-ACCREC-GET-RUN-TYPE. @B@@@@ MOVE 'Y' TO SW-RUN-CLOSEDUQ )@@G@@-OUT. @C@@@@ MOVE T05-TERM-MM TO RUN-TERM-MM. @C@@@@ UR )@@G@@ MOVE T05-TERM-DD TO RUN-TERM-DD. @C@@@@ MOVE T05-TERMUS )@@G@@-YY TO RUN-TERM-YY. @C@@@@ MOVE T05-TERM-SEC TO RUN-TERM-SUT )@@G@@ECS. @@@@@@@@@@@@@A@@@@ 0428-ACCREC-PROCESS-T07. @@@@@@@C@@@@UU )@@G@@ MOVE INTERIM-REC TO TYPE-07-REC. @A@@@@ IF T07-UV )@@G@@LOAD = ' LOAD ' @D@@@@ PERFORM 0517-ACCREC-CHECK-TAPE-MNTUW )@@G@@S @#@@@@ ELSE @F@@@@ IF T07-MSG-SUBSYS = 'DUX )@@G@@A' OR 'DB' OR 'DC' OR 'T0' @B@@@@ IF NOT T07-MSG-NO 0 @G@@@@ ADD T14-SPC-FORMS-CNT TO SPC-FORMS OF ACCREC-SVW )@@G@@HIFT-ACCUM. @@@@@@@@@@@@@A@@@@ 0431-ACCREC-PROCESS-T17. @@@@@@VX )@@G@@@C@@@@ MOVE INTERIM-REC TO TYPE-17-REC. @ @@@@ IVY )@@G@@F T17-CPU-SUPS < 0@B@@@@ MOVE 0 TO T17-CPU-SUPS. @A@@@@VZ )@@G@@ IF T17-CCER-SUPS < 0 @B@@@@ MOVE 0 TO T17-CCWA )@@G@@ER-SUPS. @A@@@@ IF T17-I-O-XFERS (1) < 0 @B@@@@ WB )@@G@@ MOVE 0 TO T17-I-O-XFERS (1).@A@@@@ IF T17-I-O-XFERS (2) < 0 WC )@@G@@@B@@@@ MOVE 0 TO T17-I-O-XFERS (2).@A@@@@ IF T17-WD )@@G@@I-O-XFERS (3) < 0 @B@@@@ MOVE 0 TO T17-I-O-XFERS (3).@A@@@@WE )@@G@@ IF T17-I-O-XFERS (4) < 0 @B@@@@ MOVE 0 TO T17-I-WF )@@G@@O-XFERS (4).@F@@@@ MOVE T17-CPU-SUPS TO CPU-SUPS OF ACCREC-RUNWG )@@G@@-ACCUM. @F@@@@ MOVE T17-CCER-SUPS TO CCER-SUPS OF ACCREC-RWH )@@G@@UN-ACCUM. @ @@@@ IF T05-TOT-SUPS = 0@A@@@@ IF TWI )@@G@@17-CPU-SUPS = 0 @B@@@@ IF T17-CCER-SUPS = 0 @F@@@@WJ )@@G@@ MOVE 5000 TO TOT-SUPS OF ACCREC-RUN-ACCUM @F@@@@WK )@@G@@ MOVE 5000 TO CCER-SUPS OF ACCREC-RUN-ACCUM. @D@@@@WL )@@G@@ ADD T17-I-O-XFERS (1) T17-I-O-XFERS (2) @E@@@@ WM )@@G@@ T17-I-O-XFERS (3) GIVING ACCUM-MASS-XFERS. @D@@@@ MOVE ACWN )@@G@@CUM-MASS-XFERS TO MASS-STOR-XFERS @E@@@@ WO )@@G@@ OF ACCREC-RUN-ACCUM.@D@@@@ MOVE T17-I-O-XFERS (4) TOWP )@@G@@ TAPE-XFERS OF @F@@@@ AWQ )@@G@@CCREC-RUN-ACCUM. @@@@@@@@@@@@@A@@@@ 0432-ACCREC-PROCESS-T18. WR )@@G@@@@@@@@@C@@@@ MOVE INTERIM-REC TO TYPE-18-REC. @B@@@@ WS )@@G@@ MOVE T09-ENTRY-TIME TO TIME-T1.@B@@@@ MOVE T18-ENTRY-TIMEWT )@@G@@ TO TIME-T2.@B@@@@ PERFORM 0611-GET-ELAPSED-SECS. @F@@@@ WU )@@G@@ MOVE ELAPSED-SECS TO RUN-SECS OF ACCREC-RUN-ACCUM. @B@@@@ WV )@@G@@ MOVE LAST-TASK-TIME TO TIME-T1.@B@@@@ PERFORM 0611-GET-ELWW )@@G@@APSED-SECS. @F@@@@ ADD ELAPSED-SECS TO SEC-LOST OF ACCREC-ERROWX )@@G@@R-ACCUM. @D@@@@ MOVE 1 TO SYS-KILL OF ACCREC-ERROR-ACCUM. WY )@@G@@@^@@@@ SET P1 TO 1. @B@@@@ MOVE 'N' TO SW-END-OF-PK-WZ )@@G@@TABLE.@C@@@@ PERFORM 0511-ACCREC-GET-RMV-PK-DATA @A@@@@ XA )@@G@@ UNTIL END-OF-PK-TABLE.@C@@@@ PERFORM 0515-ACCREC-GET-RXB )@@G@@UN-TYPE. @B@@@@ MOVE 'Y' TO SW-RUN-CLOSED-OUT. @C@@@@ XC )@@G@@ MOVE T18-ENTRY-TIME TO RUN-TERM-TIME.@@@@@@@@@@@@@^@@@@ 0433-XD )@@G@@PRINT-ERROR.@@@@@@@D@@@@ MOVE INT-TYPE TO REC-TYPE OF ERR-DETAXE )@@G@@IL. @E@@@@ MOVE INT-ENTRY-YY TO YY OF ERR-SORT-DATE-TIME. XF )@@G@@@E@@@@ MOVE INT-ENTRY-MM TO MM OF ERR-SORT-DATE-TIME. @E@@@@XG )@@G@@ MOVE INT-ENTRY-DD TO DD OF ERR-SORT-DATE-TIME. @F@@@@ XH )@@G@@ MOVE INT-ENTRY-SEC TO ED-TIME OF ERR-SORT-DATE-TIME. @D@@@@ XI )@@G@@ MOVE INT-PRI-ACCT-NO TO ERR-SORT-ACCT-NO. @A@@@@ IF ERR-XJ )@@G@@LINE-CNT > 55 @C@@@@ PERFORM 0599-ERR-RPT-PAGE-BREAK XK )@@G@@@D@@@@ WRITE ERR-LINE FROM ERR-DETAIL AFTER 2 @#@@@@ XL )@@G@@ ELSE @D@@@@ WRITE ERR-LINE FROM ERR-DETAIL AFTER 2. XM )@@G@@@A@@@@ ADD 2 TO ERR-LINE-CNT. @@@@@@@@@@@@@@@@@@@@@@@@@A@@@@XN )@@G@@ 0437-ACCREC-CLR-PRI-ACCUMS. @@@@@@@A@@@@ MOVE 0 TO BATXO )@@G@@CH-PRI (SUB)@B@@@@ BATCH-SUPS (SUB) @A@@@@ XP )@@G@@ RT-BATCH-PRI (SUB)@B@@@@ RT-BATCH-SUPS (SUBXQ )@@G@@). @@@@@@@@@@@@@A@@@@ 0438-ACCREC-TOT-PRIORITIES. @@@@@@@A@@@@XR )@@G@@ IF BATCH-SUPS (SUB) > 0 @D@@@@ MOVE BATCH-SUPS XS )@@G@@(SUB) TO BATCH-SUP-CNT @D@@@@ MOVE BATCH-PRI (SUB) TO BATCXT )@@G@@H-PRI-CNT @C@@@@ COMPUTE BATCH-AV-PRI ROUNDED = @C@@@@XU )@@G@@ BATCH-PRI-CNT / BATCH-SUP-CNT @B@@@@ MXV )@@G@@OVE BATCH-AV-PRI TO @D@@@@ AV-PRI OF AC-BATCH-DATAXW )@@G@@ (SUB). @B@@@@ IF RT-BATCH-SUPS (SUB) > 0 @E@@@@ XX )@@G@@ MOVE RT-BATCH-SUPS (SUB) TO RT-BATCH-SUP-CNT @E@@@@ XY )@@G@@ MOVE RT-BATCH-PRI (SUB) TO RT-BATCH-PRI-CNT @C@@@@ COMPXZ )@@G@@UTE RT-BATCH-AV-PRI ROUNDED = @D@@@@ RT-BATCH-PRI-CNT / YA )@@G@@RT-BATCH-SUP-CNT @B@@@@ MOVE RT-BATCH-AV-PRI TO @D@@@@YB )@@G@@ AV-PRI OF AC-RT-BATCH-DATA (SUB). @@@@@@@@@@@@@ @@@@YC )@@G@@ 0475-RUNRPT-INITIALIZE.@@@@@@@D@@@@ PERFORM 0679-CLR-RUYD )@@G@@NRPT-ACCT-NO-ACCUMS @C@@@@ VARYING P FROM 1 BY 1 UNTIL YE )@@G@@P > 4 @C@@@@ AFTER Q FROM 1 BY 1 UNTIL Q > 4. @D@@@@ YF )@@G@@ PERFORM 0680-CLR-RUNRPT-ACCT-GP-ACCUMS @C@@@@ VARYYG )@@G@@ING P FROM 1 BY 1 UNTIL P > 4 @C@@@@ AFTER Q FROM 1 BY 1 UNYH )@@G@@TIL Q > 4. @C@@@@ PERFORM 0681-CLR-RPT-ACCT-DATE-ACCUMS@C@@@@YI )@@G@@ VARYING P FROM 1 BY 1 UNTIL P > 4 @C@@@@ AFTEYJ )@@G@@R Q FROM 1 BY 1 UNTIL Q > 4. @A@@@@ MOVE 0 TO RUNRPT-PG-CNTR.YK )@@G@@@D@@@@ MOVE CUR-ACCREC-ACCT TO CUR-RUNRPT-ACCT. @F@@@@ YL )@@G@@ MOVE CUR-ACCREC-ACCT TO RUNRPT-ACCT-NO-HDR-ACCT-NO. @D@@@@ YM )@@G@@ MOVE CUR-ACCREC-DATE TO CUR-RUNRPT-DATE. @C@@@@ PERFORMYN )@@G@@ 0578-RUNRPT-DETAIL-BREAK. @C@@@@ PERFORM 0516-GET-INT-REC-YO )@@G@@ENTRY-SHIFT.@C@@@@ MOVE WORK-SHIFT TO RUNRPT-RUN-SHIFT. @@@@@@YP )@@G@@@@@@@@@A@@@@ 0476-RUNRPT-PROCESS-LAST-RUN.@@@@@@@C@@@@ MYQ )@@G@@OVE RUN-SHIFT TO RUNRPT-RUN-SHIFT. @C@@@@ PERFORM 0579-LOAD-RYR )@@G@@UNRPT-RUN-ACCUM. @E@@@@ MOVE CORR RUNRPT-RUN-ACCUM TO RUNS-DEYS )@@G@@TAIL-LINE. @C@@@@ PERFORM 0580-RUNRPT-GET-REST-OF-LINE.@A@@@@YT )@@G@@ IF RUNRPT-LN-CNTR > 61 @C@@@@ PERFORM 0578-RUNYU )@@G@@RPT-DETAIL-BREAK @C@@@@ PERFORM 0581-RUNRPT-PRINT-RUN-LINEYV )@@G@@@#@@@@ ELSE @D@@@@ PERFORM 0581-RUNRPT-PRINT-RUYW )@@G@@N-LINE. @D@@@@ PERFORM 0582-RPT-UPDATE-ACCT-NO-ACCUMS. YX )@@G@@@D@@@@ IF NOT CUR-ACCREC-DATE = CUR-RUNRPT-DATE @C@@@@ YY )@@G@@ PERFORM 0585-RUNRPT-NEW-ACCT-NO @C@@@@ PERFORM 05YZ )@@G@@84-RUNRPT-NEW-ACCT-GP @B@@@@ PERFORM 0583-RUNRPT-NEW-DATEZA )@@G@@@D@@@@ MOVE CUR-ACCREC-ACCT TO CUR-RUNRPT-ACCT @D@@@@ ZB )@@G@@ MOVE CUR-ACCREC-DATE TO CUR-RUNRPT-DATE @#@@@@ ELSE ZC )@@G@@@E@@@@ IF NOT CUR-ACCREC-ACCT-GP = CUR-RUNRPT-ACCT-GP@C@@@@ZD )@@G@@ PERFORM 0585-RUNRPT-NEW-ACCT-NO@C@@@@ PZE )@@G@@ERFORM 0584-RUNRPT-NEW-ACCT-GP@E@@@@ MOVE CUR-ACCREC-ACCZF )@@G@@T TO CUR-RUNRPT-ACCT @#@@@@ ELSE@E@@@@ IZG )@@G@@F NOT CUR-ACCREC-ACCT = CUR-RUNRPT-ACCT @D@@@@ PERFZH )@@G@@ORM 0585-RUNRPT-NEW-ACCT-NO @E@@@@ MOVE CUR-ACCREC-ZI )@@G@@ACCT TO CUR-RUNRPT-ACCT.@@@@@@@@@@@@@ @@@@ 0500-CLEAR-SYM-REC. ZJ )@@G@@@@@@@@@C@@@@ MOVE 0 TO CLR-SYM-DATA-WD (SUB1). @@@@@@@@@@@@ZK )@@G@@@ @@@@ 0501-SYMRPT-INITIALIZE.@@@@@@@C@@@@ MOVE CUR-SYM-ZL )@@G@@DEV TO CUR-SYMRPT-DEV @B@@@@ SR-DEV-ID. ZM )@@G@@@D@@@@ MOVE CUR-SYM-ACCT-NO TO CUR-SYMRPT-ACCT-NO.@C@@@@ ZN )@@G@@ MOVE CUR-SYM-DATE TO CUR-SYMRPT-DATE.@G@@@@ MOVE CORR CURZO )@@G@@-SYMRPT-DATE-FLDS TO SR-ACNT-START-DATE-COMP. @E@@@@ ADD 64 ZP )@@G@@TO WORK-YY OF SR-ACNT-START-DATE-COMP. @C@@@@ MOVE WORK-SHIZQ )@@G@@FT TO CUR-SYMRPT-SHIFT. @C@@@@ PERFORM 0727-CLR-SYMRPT-ACT-GP-ZR )@@G@@ACCUMS@D@@@@ VARYING Q FROM 1 BY 1 UNTIL Q > 3. @C@@@@ZS )@@G@@ PERFORM 0728-CLR-SYMRPT-DEV-ACCUMS @D@@@@ ZT )@@G@@ VARYING Q FROM 1 BY 1 UNTIL Q > 3. @A@@@@ MOVE 0 TO SR-PG-CNTZU )@@G@@R. @A@@@@ MOVE 77 TO SR-LINE-CNTR. @D@@@@ MOVE HIZV )@@G@@GH-VALUES TO SR-FIRST-DATE-COMP. @C@@@@ MOVE LOW-VALUES TO ZW )@@G@@SR-LAST-DATE-COMP.@@@@@@@@@@@@@A@@@@ 0502-SYMRPT-PROCESS-LAST-RUN.ZX )@@G@@@@@@@@@B@@@@ MOVE CUR-SYMRPT-SHIFT TO P. @D@@@@ AZY )@@G@@DD CORR SYM-RUN-ACCUM TO ACT-GP-DATA (P). @E@@@@ MOVE CORR CURZZ )@@G@@-SYMRPT-DATE-FLDS TO WORK-DATE-COMP.@C@@@@ ADD 64 TO WORK-YY OAA )@@G@@F WORK-DATE-COMP. @C@@@@ IF NOT CUR-SYM-DEV = CUR-SYMRPT-DEV AB )@@G@@@C@@@@ PERFORM 0631-SYMRPT-NEW-ACCNT-GP @C@@@@ AC )@@G@@ PERFORM 0628-SYMRPT-NEW-DEVICE @#@@@@ ELSE @E@@@@ AD )@@G@@ IF NOT CUR-SYM-ACCT-GP = CUR-SYMRPT-ACCT-GP @D@@@@ AE )@@G@@ PERFORM 0631-SYMRPT-NEW-ACCNT-GP. @@@@@@@@@@@@@ @@@@ 0505-AF )@@G@@SYM-PROCESS-T09. @@@@@@@C@@@@ MOVE INTERIM-REC TO TYPE-09-RECAG )@@G@@. @ @@@@ IF T09-RUN-TYPE = 4@C@@@@ MOVE 1 TO AH )@@G@@DM OF SYM-RUN-ACCUM @#@@@@ ELSE @A@@@@ IF TAI )@@G@@09-RUN-TYPE = 5 @C@@@@ MOVE 1 TO DLBT OF SYM-RUN-ACCUMAJ )@@G@@@#@@@@ ELSE@C@@@@ MOVE 1 TO BT OF SYM-RUN-AAK )@@G@@CCUM. @^@@@@ SET P0 TO 1. @A@@@@ SEARCH PRIORITY-ENTAL )@@G@@RY @D@@@@ WHEN PRI-CHAR (P0) = T09-PRIORITY @F@@@@AM )@@G@@ MOVE PRI-NUM (P0) TO PRIORITY OF SYM-RUN-ACCUM. @@@@@@AN )@@G@@@@@@@@@A@@@@ 0510-ACCREC-ACCUM-ADJD-PRI. @@@@@@@A@@@@ MAO )@@G@@OVE RUN-SHIFT TO SUB. @A@@@@ MOVE 0 TO PRIORITY-FIND. @A@@@@AP )@@G@@ IF T09-RUN-TYPE = 5 OR 6 @ @@@@ SET P0 TO 1 AQ )@@G@@@A@@@@ SEARCH PRIORITY-ENTRY @D@@@@ AT AR )@@G@@END MOVE 0 TO PRIORITY-FIND @D@@@@ WHEN PRI-CHAR (AS )@@G@@P0) = T09-PRIORITY@D@@@@ MOVE 1 TO PRIORITY-FINAT )@@G@@D. @A@@@@ IF PRIORITY-FIND = 1 @ @@@@ IF RAU )@@G@@EAL-TIME-RUN@D@@@@ ADD TOT-SUPS OF ACCREC-RUN-ACCUM TO AV )@@G@@@B@@@@ RT-BATCH-SUPS (SUB) @D@@@@ CAW )@@G@@OMPUTE RT-BATCH-PRI (SUB) ROUNDED = @B@@@@ RT-BATCH-AX )@@G@@PRI (SUB) + @F@@@@ (PRI-NUM (P0) * TOT-SUPS OF ACCREC-RUAY )@@G@@N-ACCUM) @#@@@@ ELSE@D@@@@ ADD TOT-SUPS AZ )@@G@@OF ACCREC-RUN-ACCUM TO @B@@@@ BATCH-SUPS (SUB) BA )@@G@@@D@@@@ COMPUTE BATCH-PRI (SUB) ROUNDED = @B@@@@ BB )@@G@@ BATCH-PRI (SUB) + @F@@@@ (PRI-NUM (P0)BC )@@G@@ * TOT-SUPS OF ACCREC-RUN-ACCUM). @@@@@@@@@@@@@A@@@@ 0511-ACCRECBD )@@G@@-GET-RMV-PK-DATA. @@@@@@@ @@@@ MOVE 0 TO PK-FIND.@A@@@@ BE )@@G@@ SEARCH PACK-MNT-ENTRY @E@@@@ AT END MOVE 'Y' TOBF )@@G@@ SW-END-OF-PK-TABLE @D@@@@ WHEN PACK-MNT-RUNID (P1)BG )@@G@@ = T09-RUNID@B@@@@ MOVE 1 TO PK-FIND.@ @@@@ BH )@@G@@ IF PK-FIND = 1 @C@@@@ IF TIME-T2 > PACK-MNT-TIME (BI )@@G@@P1) @^@@@@ AND @D@@@@ T09-ENTRY-TIMBJ )@@G@@E < PACK-MNT-TIME (P1) @D@@@@ ADD 1 TO RMV-MNTS OF ACCRBK )@@G@@EC-RUN-ACCUM@D@@@@ MOVE PACK-MNT-TIME (P1) TO TIME-T2 BL )@@G@@@C@@@@ PERFORM 0611-GET-ELAPSED-SECS @F@@@@ BM )@@G@@ ADD ELAPSED-SECS TO RMV-SECS OF ACCREC-RUN-ACCUM.@ @@@@ SBN )@@G@@ET P1 UP BY 1. @@@@@@@@@@@@@A@@@@ 0512-ACCREC-GET-XE-KEYINS. BO )@@G@@@@@@@@@A@@@@ MOVE 0 TO KILL-FIND. @A@@@@ SEARCH BP )@@G@@KILLED-RUN-ENTRY @E@@@@ AT END MOVE 'Y' TO SW-END-OF-KBQ )@@G@@ILLED-TABLE @D@@@@ WHEN T09-RUNID = KILLED-RUNID (P2) BR )@@G@@@C@@@@ MOVE 1 TO KILL-FIND. @ @@@@ IBS )@@G@@F KILL-FIND = 1 @C@@@@ IF TIME-T1 < KILLED-RUN-TIME (P2) BT )@@G@@@^@@@@ AND @D@@@@ NOT KILLED-RUN-TIMEBU )@@G@@ (P2) > TIME-T2 @C@@@@ MOVE LAST-TASK-TIME TO TIME-T1 BV )@@G@@@C@@@@ PERFORM 0611-GET-ELAPSED-SECS @G@@@@ BW )@@G@@ ADD ELAPSED-SECS TO SEC-LOST OF ACCREC-ERROR-ACCUM @E@@@@ BX )@@G@@ MOVE 1 TO OPER-KILL OF ACCREC-ERROR-ACCUM @E@@@@ BY )@@G@@ IF PROG-KILL OF ACCREC-ERROR-ACCUM > 0 @F@@@@ BZ )@@G@@ MOVE 0 TO PROG-KILL OF ACCREC-ERROR-ACCUM. @ @@@@ SET P2 CA )@@G@@UP BY 1. @@@@@@@@@@@@@ @@@@ 0513-CLEAR-AC-DATA. @@@@@@@B@@@@CB )@@G@@ MOVE 0 TO AC-OUTSTAND-CAT-TKS. @C@@@@ MOVE 0 TO AC-CC )@@G@@OUTSTAND-LIB-REELS. @D@@@@ MOVE CLEAR-AC-ERRORS TO AC-ERROCD )@@G@@RS (1). @D@@@@ MOVE CLEAR-AC-ERRORS TO AC-ERRORS (2). CE )@@G@@@C@@@@ PERFORM 0612-CLEAR-AC-SHIFT-INFO @E@@@@ CF )@@G@@ VARYING SUB1 FROM 1 BY 1 UNTIL SUB1 > 3. @@@@@@@@@@@@@ @@@@ CG )@@G@@ 0514-GET-PR-BL-TIME. @@@@@@@C@@@@ IF RUN-TERM-TIME > T14-SYCH )@@G@@M-START-TIME@C@@@@ MOVE RUN-TERM-TIME TO TIME-T1 @C@@@@CI )@@G@@ MOVE T14-SYM-START-TIME TO TIME-T2@C@@@@ PERFCJ )@@G@@ORM 0611-GET-ELAPSED-SECS @G@@@@ ADD ELAPSED-SECS TO PRCK )@@G@@-BL-TIME OF ACCREC-SHIFT-ACCUM. @@@@@@@@@@@@@A@@@@ 0515-ACCRECCL )@@G@@-GET-RUN-TYPE. @@@@@@@ @@@@ IF T09-RUN-TYPE = 4@ @@@@ CM )@@G@@ IF REAL-TIME-RUN@B@@@@ MOVE 4 TO SW-RUN-TYPE CN )@@G@@@#@@@@ ELSE@B@@@@ MOVE 2 TO SW-RUN-TYPE CO )@@G@@@#@@@@ ELSE @B@@@@ IF T09-RUN-TYPE = 5 OR 6 CP )@@G@@@A@@@@ IF REAL-TIME-RUN @B@@@@ MOVECQ )@@G@@ 3 TO SW-RUN-TYPE @^@@@@ ELSE @B@@@@ CR )@@G@@ MOVE 1 TO SW-RUN-TYPE.@C@^@@ IF T09-ACCNT-NO = 'TIP$ CS )@@G@@' @B@@@^ IF T09-PROJ-ID = 'TIP$ '@A@@@@ CT )@@G@@ MOVE 4 TO SW-RUN-TYPE.@@@@@@@@@@@@@A@@@@ 0516-GET-INT-REC-ENTRY-CU )@@G@@SHIFT.@@@@@@@A@@@@ IF INT-ENTRY-SEC < 28860 @A@@@@ CV )@@G@@ MOVE 1 TO WORK-SHIFT @#@@@@ ELSE @B@@@@ IF ICW )@@G@@NT-ENTRY-SEC < 61260 @B@@@@ MOVE 2 TO WORK-SHIFT CX )@@G@@@#@@@@ ELSE@B@@@@ MOVE 3 TO WORK-SHIFT. CY )@@G@@@@@@@@@@@@@@@A@@@@ 0517-ACCREC-CHECK-TAPE-MNTS. @@@@@@@A@@@@ CZ )@@G@@ UNSTRING T07-LOAD-RMDR @A@@@@ DELIMITED BY ALL ' ' DA )@@G@@@A@@@@ INTO LOAD-MSG-WORD1 @A@@@@ LOAD-MDB )@@G@@SG-WORD2 @A@@@@ LOAD-MSG-WORD3. @B@@@@ IDC )@@G@@F LOAD-MSG-WORD2-SUBSYS = 'T0'@C@@@@ OR LOAD-MSG-WORD3-SUBSYDD )@@G@@S = 'T0' @D@@@@ ADD 1 TO REELS-MTD OF ACCREC-RUN-ACCUM. DE )@@G@@@@@@@@@@@@@@@A@@@@ 0578-RUNRPT-DETAIL-BREAK. @@@@@@@A@@@@ DF )@@G@@ MOVE 1 TO BREAK-TYPE. @F@@@@ MOVE CUR-RUNRPT-ACCT TO RDG )@@G@@UNRPT-ACCT-NO-HDR-ACCT-NO. @B@@@@ PERFORM 0775-RUNRPT-PAGE-DH )@@G@@BREAK.@D@@@@ WRITE RUN-LINE FROM RUNS-DT-HD-1A AFTER 3. @D@@@@DI )@@G@@ WRITE RUN-LINE FROM RUNS-DT-HD-1B AFTER 1. @A@@@@ ADJ )@@G@@DD 4 TO RUNRPT-LN-CNTR. @@@@@@@@@@@@@A@@@@ 0579-LOAD-RUNRPT-RUN-ACDK )@@G@@CUM. @@@@@@@E@@@@ COMPUTE TOT-SECS OF RUNRPT-RUN-ACCUM ROUNDEDL )@@G@@D = @E@@@@ TOT-SUPS OF ACCREC-RUN-ACCUM / 5000. DM )@@G@@@E@@@@ COMPUTE CPU-SECS OF RUNRPT-RUN-ACCUM ROUNDED = @E@]@@DN )@@G@@ CPU-SUPS OF ACCREC-RUN-ACCUM / 10000000. @E@@@] DO )@@G@@ CPU-SUPS OF ACCREC-RUN-ACCUM / 5000. @E@@@@ CDP )@@G@@OMPUTE CCER-SECS OF RUNRPT-RUN-ACCUM ROUNDED = @E@@@@ DQ )@@G@@ CCER-SUPS OF ACCREC-RUN-ACCUM / 5000. @C@@@@ PERFORM 0688-DR )@@G@@RUNRPT-GET-IO-SECS. @E@@@@ MOVE BL-MIN OF ACCREC-RUN-ACCUMDS )@@G@@ TO BL-MIN OF @C@@@@ RUNRPT-RUN-ACCUM. DT )@@G@@@E@@@@ MOVE NEW-TKS OF ACCREC-RUN-ACCUM TO CAT-TRKS OF @C@@@@DU )@@G@@ RUNRPT-RUN-ACCUM. @C@@@@ IF SYS-DV )@@G@@KILL OF ACCREC-ERROR-ACCUM > 0@D@@@@ MOVE 1 TO ERRORS OF RUDW )@@G@@NRPT-RUN-ACCUM @D@@@@ MOVE 'S' TO ERR-CODE OF RUNS-DETAIDX )@@G@@L-LINE@#@@@@ ELSE @D@@@@ IF OPER-KILL OF ACCRECDY )@@G@@-ERROR-ACCUM > 0 @D@@@@ MOVE 1 TO ERRORS OF RUNRPT-RUN-DZ )@@G@@ACCUM @E@@@@ MOVE 'O' TO ERR-CODE OF RUNS-DETAIL-LINE EA )@@G@@@#@@@@ ELSE@E@@@@ IF HARD-KILL OF ACCREC-EREB )@@G@@ROR-ACCUM > 0 @E@@@@ MOVE 1 TO ERRORS OF RUNRPT-REC )@@G@@UN-ACCUM @E@@@@ MOVE 'H' TO ERR-CODE OF RUNS-DETAIED )@@G@@L-LINE@^@@@@ ELSE @E@@@@ IF PROG-KIEE )@@G@@LL OF ACCREC-ERROR-ACCUM > 0 @E@@@@ MOVE 1 TO ERREF )@@G@@ORS OF RUNRPT-RUN-ACCUM @F@@@@ MOVE 'P' TO ERR-CODEG )@@G@@E OF RUNS-DETAIL-LINE @^@@@@ ELSE@E@@@@ EH )@@G@@ MOVE 0 TO ERRORS OF RUNRPT-RUN-ACCUM @F@@@@ EI )@@G@@ MOVE ' ' TO ERR-CODE OF RUNS-DETAIL-LINE. @@@@@@@@@@@@@A@@@@ EJ )@@G@@ 0580-RUNRPT-GET-REST-OF-LINE.@@@@@@@E@@@@ MOVE T09-RUNID TO REK )@@G@@UNID OF RUNS-DETAIL-LINE. @C@@@@ PERFORM 0675-RUNRPT-GET-DEL )@@G@@ATE-TIMES. @C@@@@ PERFORM 0676-RUNRPT-GET-RUN-TYPE. @F@@@@EM )@@G@@ MOVE RUNRPT-RUN-TYPE TO RD-TYPE OF RUNS-DETAIL-LINE. @C@@@@EN )@@G@@ IF RUNRPT-RUN-TYPE = 'D' OR 'RD' @F@@@@ MOVEEO )@@G@@ T09-DEVICE-ASSOC TO SITE OF RUNS-DETAIL-LINE. @E@@@@ MOVE T0EP )@@G@@9-PROJ-ID TO PROJ-ID OF RUNS-DETAIL-LINE. @@@@@@@@@@@@@A@@@@ 0581-EQ )@@G@@RUNRPT-PRINT-RUN-LINE. @@@@@@@E@@@@ WRITE RUN-LINE FROM RUNS-ER )@@G@@DETAIL-LINE AFTER 2. @A@@@@ ADD 2 TO RUNRPT-LN-CNTR. @@@@@@ES )@@G@@@@@@@@@B@@@@ 0582-RPT-UPDATE-ACCT-NO-ACCUMS. @@@@@@@B@@@@ ET )@@G@@ MOVE RUNRPT-RUN-SHIFT TO Q. @D@@@@ IF PROJ-ID OF RUNS-EU )@@G@@DETAIL-LINE = 'TIP$ ' @ @@@@ MOVE 3 TO P @#@@@@ EV )@@G@@ ELSE @C@@@@ IF RUNRPT-RUN-TYPE = 'D' OR 'RD' @ @@@@EW )@@G@@ MOVE 2 TO P @#@@@@ ELSE@ @@@@ EX )@@G@@ MOVE 1 TO P. @D@@@@ ADD CORR RUNRPT-RUN-ACCUM TO ACCUMS OEY )@@G@@F @G@@@@ RUNRPT-ACCT-NO-ACCUMEZ )@@G@@ (P, Q). @D@@@@ ADD CORR RUNRPT-RUN-ACCUM TO ACCUMS OF FA )@@G@@@G@@@@ RUNRPT-ACCT-NO-ACCUM (P, 4FB )@@G@@). @D@@@@ ADD CORR RUNRPT-RUN-ACCUM TO ACCUMS OF @G@@@@FC )@@G@@ RUNRPT-ACCT-NO-ACCUM (4, Q). FD )@@G@@@D@@@@ ADD CORR RUNRPT-RUN-ACCUM TO ACCUMS OF @G@@@@ FE )@@G@@ RUNRPT-ACCT-NO-ACCUM (4, 4). @@@@@@FF )@@G@@@@@@@@@ @@@@ 0583-RUNRPT-NEW-DATE. @@@@@@@F@@@@ MOVE COFG )@@G@@RR EDITED-RUNRPT-DATE TO RUNRPT-DATE-HDR-DATE. @A@@@@ MOVE 3 FH )@@G@@TO BREAK-TYPE. @C@@@@ PERFORM 0677-RUNRPT-ACCT-DATE-BREAK. FI )@@G@@@C@@@@ PERFORM 0678-RUNRPT-PRINT-DATE-TOTALS@C@@@@ FJ )@@G@@ VARYING P FROM 1 BY 1 UNTIL P > 4 @C@@@@ AFTER Q FROM 1 BFK )@@G@@Y 1 UNTIL Q > 4. @B@@@@ MOVE 77 TO RUNRPT-LN-CNTR. @D@@@@FL )@@G@@ PERFORM 0679-CLR-RUNRPT-ACCT-NO-ACCUMS @C@@@@ FM )@@G@@ VARYING P FROM 1 BY 1 UNTIL P > 4 @C@@@@ AFTER Q FROM 1 BFN )@@G@@Y 1 UNTIL Q > 4. @D@@@@ PERFORM 0680-CLR-RUNRPT-ACCT-GP-ACCUMFO )@@G@@S @C@@@@ VARYING P FROM 1 BY 1 UNTIL P > 4 @C@@@@ FP )@@G@@ AFTER Q FROM 1 BY 1 UNTIL Q > 4. @C@@@@ PERFORM 0681-FQ )@@G@@CLR-RPT-ACCT-DATE-ACCUMS@C@@@@ VARYING P FROM 1 BY 1 UNTIL FR )@@G@@P > 4 @C@@@@ AFTER Q FROM 1 BY 1 UNTIL Q > 4. @D@@@@ FS )@@G@@ MOVE CUR-ACCREC-DATE TO CUR-RUNRPT-DATE. @@@@@@@@@@@@@A@@@@ FT )@@G@@ 0584-RUNRPT-NEW-ACCT-GP. @@@@@@@E@@@@ MOVE CUR-RUNRPT-ACCFU )@@G@@T-GP TO RUNRPT-ACCT-GP-HDR-GP.@A@@@@ MOVE 2 TO BREAK-TYPE. FV )@@G@@@B@@@@ PERFORM 0685-RUNRPT-ACCT-BREAK.@C@@@@ PERFORMFW )@@G@@ 0683-RPT-PRINT-ACCT-GP-TOTALS@C@@@@ VARYING P FROM 1 BY 1 FX )@@G@@UNTIL P > 4 @C@@@@ AFTER Q FROM 1 BY 1 UNTIL Q > 4. @B@@@@FY )@@G@@ MOVE 77 TO RUNRPT-LN-CNTR. @D@@@@ PERFORM 0684-FZ )@@G@@RUNRPT-UPDATE-DATE-ACCUMS @C@@@@ VARYING P FROM 1 BY 1 GA )@@G@@UNTIL P > 4 @C@@@@ AFTER Q FROM 1 BY 1 UNTIL Q > 4. @D@@@@GB )@@G@@ PERFORM 0679-CLR-RUNRPT-ACCT-NO-ACCUMS @C@@@@ GC )@@G@@ VARYING P FROM 1 BY 1 UNTIL P > 4 @C@@@@ AFTER Q FROM 1 BGD )@@G@@Y 1 UNTIL Q > 4. @D@@@@ PERFORM 0680-CLR-RUNRPT-ACCT-GP-ACCUMGE )@@G@@S @C@@@@ VARYING P FROM 1 BY 1 UNTIL P > 4 @C@@@@ GF )@@G@@ AFTER Q FROM 1 BY 1 UNTIL Q > 4. @@@@@@@@@@@@@A@@@@ 0585-GG )@@G@@RUNRPT-NEW-ACCT-NO. @@@@@@@A@@@@ MOVE 1 TO BREAK-TYPE. GH )@@G@@@A@@@@ IF RUNRPT-LN-CNTR > 21 @C@@@@ PERFORM 06GI )@@G@@85-RUNRPT-ACCT-BREAK @D@@@@ PERFORM 0686-RPT-PRINT-ACCT-GJ )@@G@@NO-TOTALS @D@@@@ VARYING P FROM 1 BY 1 UNTIL P > 4 GK )@@G@@@C@@@@ AFTER Q FROM 1 BY 1 UNTIL Q > 4@#@@@@ EGL )@@G@@LSE @E@@@@ WRITE RUN-LINE FROM RUNS-TOT-HD-1A AFTER 3 GM )@@G@@@E@@@@ WRITE RUN-LINE FROM RUNS-TOT-HD-1B AFTER 1 @B@@@@GN )@@G@@ ADD 4 TO RUNRPT-LN-CNTR @D@@@@ PERFORM 06GO )@@G@@86-RPT-PRINT-ACCT-NO-TOTALS @D@@@@ VARYING P FROM 1 BYGP )@@G@@ 1 UNTIL P > 4 @D@@@@ AFTER Q FROM 1 BY 1 UNTIL Q > 4GQ )@@G@@. @B@@@@ MOVE 77 TO RUNRPT-LN-CNTR. @D@@@@ PGR )@@G@@ERFORM 0687-RPT-UPDATE-ACCT-GP-ACCUMS @D@@@@ VARYINGGS )@@G@@ P FROM 1 BY 1 UNTIL P > 4 @D@@@@ AFTER Q FROM 1 BY 1GT )@@G@@ UNTIL Q > 4. @D@@@@ PERFORM 0679-CLR-RUNRPT-ACCT-NO-ACCUMGU )@@G@@S @D@@@@ VARYING P FROM 1 BY 1 UNTIL P > 4 @D@@@@GV )@@G@@ AFTER Q FROM 1 BY 1 UNTIL Q > 4. @@@@@@@@@@@@@A@@@@GW )@@G@@ 0599-ERR-RPT-PAGE-BREAK. @@@@@@@A@@@@ ADD 1 TO ERR-GX )@@G@@PAGE-CNT. @C@@@@ MOVE ERR-PAGE-CNT TO DEPT-PAGE-NUM. @E@@@@GY )@@G@@ WRITE ERR-LINE FROM DEPT-HEADER-1 AFTER PAGE. @D@@@@ GZ )@@G@@ WRITE ERR-LINE FROM DEPT-HEADER-2 AFTER 1. @D@@@@ WRITE EHA )@@G@@RR-LINE FROM ERR-HEAD-3 AFTER 2. @D@@@@ WRITE ERR-LINE FROMHB )@@G@@ ERR-LEGEND-HD AFTER 3. @D@@@@ WRITE ERR-LINE FROM ERR-CODE-A HC )@@G@@AFTER 2. @D@@@@ WRITE ERR-LINE FROM ERR-CODE-B AFTER 2. HD )@@G@@@D@@@@ WRITE ERR-LINE FROM ERR-CODE-C AFTER 2. @D@@@@ HE )@@G@@ WRITE ERR-LINE FROM ERR-CODE-D AFTER 2. @D@@@@ WRITE EHF )@@G@@RR-LINE FROM ERR-DETAIL-HD AFTER 3. @A@@@@ MOVE 24 TO ERR-LINEHG )@@G@@-CNT. @@@@@@@@@@@@@ @@@@ 0611-GET-ELAPSED-SECS. @@@@@@@B@@@@ HH )@@G@@ MOVE TIME-T1-YY TO BEG-YY-9. @B@@@@ MOVE TIME-T1-MM TO HI )@@G@@BEG-MM-9. @B@@@@ MOVE TIME-T1-DD TO BEG-DD-9. @B@@@@ HJ )@@G@@ MOVE TIME-T2-YY TO END-YY-9. @B@@@@ MOVE TIME-T2-MM TO HK )@@G@@END-MM-9. @B@@@@ MOVE TIME-T2-DD TO END-DD-9. @ @@@@ HL )@@G@@ ADD 64 TO BEG-YY-9.@ @@@@ ADD 64 TO END-YY-9.@ @@@@ HM )@@G@@ MOVE 1 TO RESULT. @A@@@@ IF BEG-DATE = END-DATE @A@@@@HN )@@G@@ MOVE 0 TO NO-OF-DAYS @#@@@@ ELSE @G@@@@ HO )@@G@@ ENTER FD 'CALCDAYS' USING BEG-DATE END-DATE NO-OF-DAYS @F@@@@HP )@@G@@ RESULT. @^@@@@HQ )@@G@@ IF RESULT = 1@A@@@@ IF NO-OF-DAYS < 1 @G@@@@HR )@@G@@ COMPUTE ELAPSED-SECS = TIME-T2-SECS - TIME-T1-SECS HS )@@G@@@#@@@@ ELSE@E@@@@ COMPUTE ELAPSED-SECS = NOHT )@@G@@-OF-DAYS * 86400 @D@@@@ + TIME-T2-HU )@@G@@SECS @E@@@@ + (86400 - TIME-T1-SECS) HV )@@G@@@#@@@@ ELSE @B@@@@ MOVE 0 TO ELAPSED-SECS. HW )@@G@@@@@@@@@@@@@@@A@@@@ 0612-CLEAR-AC-SHIFT-INFO. @@@@@@@E@@@@ HX )@@G@@ MOVE CLEAR-AC-SHIFT TO AC-SHIFT-INFO (SUB1). @@@@@@@@@@@@@ @@@@HY )@@G@@ 0628-SYMRPT-NEW-DEVICE.@@@@@@@A@@@@ IF SR-LINE-CNTR > 5HZ )@@G@@0 @C@@@@ MOVE 'N' TO SW-SYMRPT-BREAK-TYPE @C@@@@ IA )@@G@@ PERFORM 0802-SYMRPT-PAGE-BREAK @D@@@@ PERFORM 07IB )@@G@@26-SYMRPT-PRINT-DEV-TOTALS @#@@@@ ELSE @D@@@@ IC )@@G@@ PERFORM 0726-SYMRPT-PRINT-DEV-TOTALS. @C@@@@ MOVE CUR-SYM-ID )@@G@@DEV TO CUR-SYMRPT-DEV @B@@@@ SR-DEV-ID. IE )@@G@@@C@@@@ PERFORM 0727-CLR-SYMRPT-ACT-GP-ACCUMS@D@@@@ IF )@@G@@ VARYING Q FROM 1 BY 1 UNTIL Q > 3. @C@@@@ PERFORM 0728-IG )@@G@@CLR-SYMRPT-DEV-ACCUMS @D@@@@ VARYING Q FROM 1 BY 1 UIH )@@G@@NTIL Q > 3. @D@@@@ MOVE HIGH-VALUES TO SR-FIRST-DATE-COMP. II )@@G@@@C@@@@ MOVE LOW-VALUES TO SR-LAST-DATE-COMP.@@@@@@@@@@@@@A@@@@IJ )@@G@@ 0631-SYMRPT-NEW-ACCNT-GP. @@@@@@@F@@@@ MOVE CUR-SYMRIK )@@G@@PT-ACCT-GP TO ACCNT-FLD OF SR-DETAIL-LINE.@F@@@@ MOVE CORR SR-IL )@@G@@ACNT-START-DATE-COMP TO WORK-DATE-EDITED. @F@@@@ MOVE WORK-DATIM )@@G@@E-EDITED TO DATE-FLD OF SR-DETAIL-LINE. @D@@@@ PERFORM 0725-IN )@@G@@SYMRPT-COMPARE-ELP-DATES. @C@@@@ PERFORM 0729-SYMRPT-PRINTIO )@@G@@-SHIFTS @D@@@@ VARYING Q FROM 1 BY 1 UNTIL Q > 3. IP )@@G@@@C@@@@ PERFORM 0730-SYMRPT-UPDATE-DEV-ACCUMS@D@@@@ IQ )@@G@@ VARYING Q FROM 1 BY 1 UNTIL Q > 3. @C@@@@ PERFORM 0727-IR )@@G@@CLR-SYMRPT-ACT-GP-ACCUMS@D@@@@ VARYING Q FROM 1 BY 1 UIS )@@G@@NTIL Q > 3. @D@@@@ MOVE CUR-SYM-ACCT-NO TO CUR-SYMRPT-ACCT-NO.IT )@@G@@@C@@@@ MOVE CUR-SYM-DATE TO CUR-SYMRPT-DATE.@G@@@@ MIU )@@G@@OVE CORR CUR-SYMRPT-DATE-FLDS TO SR-ACNT-START-DATE-COMP. @E@@@@ IV )@@G@@ ADD 64 TO WORK-YY OF SR-ACNT-START-DATE-COMP. @@@@@@@@@@@@@A@@@@IW )@@G@@ 0675-RUNRPT-GET-DATE-TIMES. @@@@@@@E@@@@ MOVE CUR-RUNRIX )@@G@@PT-YY TO YY OF EDITED-RUNRPT-DATE. @C@@@@ ADD 64 TO YY OF EDIIY )@@G@@TED-RUNRPT-DATE. @E@@@@ MOVE CUR-RUNRPT-MM TO MM OF EDITED-RUIZ )@@G@@NRPT-DATE. @E@@@@ MOVE CUR-RUNRPT-DD TO DD OF EDITED-RUNRPT-DJA )@@G@@ATE. @G@@@@ MOVE CORR EDITED-RUNRPT-DATE TO RD-DATE OF RUNS-DJB )@@G@@ETAIL-LINE. @C@@@@ IF SYS-KILL OF ACCREC-ERROR-ACCUM > 0@E@@@@JC )@@G@@ MOVE T09-ENTRY-SEC TO SECS-AFTER-MIDNIGHT @#@@@@ JD )@@G@@ ELSE @E@@@@ MOVE T05-INIT-SEC TO SECS-AFTER-MIDNIGHTJE )@@G@@. @C@@@@ PERFORM 0900-CONVERT-ELAPSED-SECS. @F@@@@ JF )@@G@@ MOVE CORR RPT-RUN-TIME TO RD-START OF RUNS-DETAIL-LINE.@C@@@@ JG )@@G@@ IF SYS-KILL OF ACCREC-ERROR-ACCUM > 0@E@@@@ MOVE T18-EJH )@@G@@NTRY-SEC TO SECS-AFTER-MIDNIGHT @C@@@@ MOVE T18-ENTRY-DJI )@@G@@D TO DD OF RD-FIN @#@@@@ ELSE @D@@@@ MOVE T05-TJJ )@@G@@ERM-SEC TO SECS-AFTER-MIDNIGHT@C@@@@ MOVE T05-TERM-DD TO DDJK )@@G@@ OF RD-FIN. @C@@@@ PERFORM 0900-CONVERT-ELAPSED-SECS. @F@@@@JL )@@G@@ MOVE CORR RPT-RUN-TIME TO RD-FIN OF RUNS-DETAIL-LINE. @@@@@@JM )@@G@@@@@@@@@A@@@@ 0676-RUNRPT-GET-RUN-TYPE. @@@@@@@^@@@@ IJN )@@G@@F BATCH-RUN @B@@@@ MOVE 'B ' TO RUNRPT-RUN-TYPE@#@@@@ JO )@@G@@ ELSE @ @@@@ IF DMAND-RUN @C@@@@ MOJP )@@G@@VE 'D ' TO RUNRPT-RUN-TYPE @#@@@@ ELSE @ @@@@ JQ )@@G@@ IF RT-BATCH @C@@@@ MOVE 'RB' TO RUNRPT-RUN-TYPE JR )@@G@@@^@@@@ ELSE @ @@@@ IF RT-DMAND@D@@@@JS )@@G@@ MOVE 'RD' TO RUNRPT-RUN-TYPE @^@@@@ JT )@@G@@ ELSE @D@@@@ MOVE '? ' TO RUNRPT-RUN-TYPE. JU )@@G@@@@@@@@@@@@@@@A@@@@ 0677-RUNRPT-ACCT-DATE-BREAK. @@@@@@@B@@@@ JV )@@G@@ PERFORM 0775-RUNRPT-PAGE-BREAK.@D@@@@ WRITE RUN-LINE FROMJW )@@G@@ RUNS-TOT-HD-1A AFTER 2.@D@@@@ WRITE RUN-LINE FROM RUNS-TOT-HDJX )@@G@@-1B AFTER 1.@A@@@@ ADD 3 TO RUNRPT-LN-CNTR. @@@@@@@@@@@@@B@@@@JY )@@G@@ 0678-RUNRPT-PRINT-DATE-TOTALS. @@@@@@@D@@@@ MOVE COJZ )@@G@@RR RUNRPT-ACCT-DATE-ACCUM (P, Q) @A@@@@ TO RUNS-TOT-LINKA )@@G@@E. @E@@@@ MOVE CORR ACCUMS OF RUNRPT-ACCT-DATE-ACCUM (P, Q)KB )@@G@@@A@@@@ TO RUNS-TOT-LINE. @D@@@@ WRITE RUN-LINKC )@@G@@E FROM RUNS-TOT-LINE AFTER 2. @A@@@@ ADD 2 TO RUNRPT-LN-CNTR. KD )@@G@@@@@@@@@@@@@@@B@@@@ 0679-CLR-RUNRPT-ACCT-NO-ACCUMS. @@@@@@@F@@@@KE )@@G@@ MOVE 0 TO TOT-SECS OF RUNRPT-ACCT-NO-ACCUM (P, Q). @F@@@@KF )@@G@@ MOVE 0 TO CPU-SECS OF RUNRPT-ACCT-NO-ACCUM (P, Q). @F@@@@KG )@@G@@ MOVE 0 TO CCER-SECS OF RUNRPT-ACCT-NO-ACCUM (P, Q). @F@@@@KH )@@G@@ MOVE 0 TO IO-SECS OF RUNRPT-ACCT-NO-ACCUM (P, Q). @E@@@@KI )@@G@@ MOVE 0 TO ERRORS OF RUNRPT-ACCT-NO-ACCUM (P, Q).@E@@@@ KJ )@@G@@ MOVE 0 TO BL-MIN OF RUNRPT-ACCT-NO-ACCUM (P, Q).@F@@@@ MKK )@@G@@OVE 0 TO CAT-TRKS OF RUNRPT-ACCT-NO-ACCUM (P, Q). @F@@@@ MKL )@@G@@OVE 0 TO NO-RUNS OF RUNRPT-ACCT-NO-ACCUM (P, Q). @@@@@@@@@@@@@B@@@@KM )@@G@@ 0680-CLR-RUNRPT-ACCT-GP-ACCUMS. @@@@@@@F@@@@ MOVE 0 KN )@@G@@TO TOT-SECS OF RUNRPT-ACCT-GP-ACCUM (P, Q). @F@@@@ MOVE 0 KO )@@G@@TO CPU-SECS OF RUNRPT-ACCT-GP-ACCUM (P, Q). @F@@@@ MOVE 0 KP )@@G@@TO CCER-SECS OF RUNRPT-ACCT-GP-ACCUM (P, Q). @F@@@@ MOVE 0 KQ )@@G@@TO IO-SECS OF RUNRPT-ACCT-GP-ACCUM (P, Q). @E@@@@ MOVE 0 KR )@@G@@TO ERRORS OF RUNRPT-ACCT-GP-ACCUM (P, Q).@E@@@@ MOVE 0 TO BL-KS )@@G@@MIN OF RUNRPT-ACCT-GP-ACCUM (P, Q).@F@@@@ MOVE 0 TO CAT-TRKS KT )@@G@@ OF RUNRPT-ACCT-GP-ACCUM (P, Q). @F@@@@ MOVE 0 TO NO-RUNS KU )@@G@@OF RUNRPT-ACCT-GP-ACCUM (P, Q). @@@@@@@@@@@@@B@@@@ 0681-CLR-RPKV )@@G@@T-ACCT-DATE-ACCUMS. @@@@@@@F@@@@ MOVE 0 TO TOT-SECS OF RUKW )@@G@@NRPT-ACCT-DATE-ACCUM (P, Q). @F@@@@ MOVE 0 TO CPU-SECS OF RUKX )@@G@@NRPT-ACCT-DATE-ACCUM (P, Q). @F@@@@ MOVE 0 TO CCER-SECS OF RKY )@@G@@UNRPT-ACCT-DATE-ACCUM (P, Q). @F@@@@ MOVE 0 TO IO-SECS OF RUNKZ )@@G@@RPT-ACCT-DATE-ACCUM (P, Q). @F@@@@ MOVE 0 TO ERRORS OF RUNRLA )@@G@@PT-ACCT-DATE-ACCUM (P, Q). @F@@@@ MOVE 0 TO BL-MIN OF RUNRLB )@@G@@PT-ACCT-DATE-ACCUM (P, Q). @F@@@@ MOVE 0 TO CAT-TRKS OF RULC )@@G@@NRPT-ACCT-DATE-ACCUM (P, Q). @F@@@@ MOVE 0 TO NO-RUNS OF RUNLD )@@G@@RPT-ACCT-DATE-ACCUM (P, Q). @@@@@@@@@@@@@B@@@@ 0683-RPT-PRINT-ACLE )@@G@@CT-GP-TOTALS. @@@@@@@D@@@@ MOVE CORR RUNRPT-ACCT-GP-ACCUMLF )@@G@@ (P, Q) TO @ @@@@ RUNS-TOT-LINE.@F@@@@ MOVE COLG )@@G@@RR ACCUMS OF RUNRPT-ACCT-GP-ACCUM (P, Q) TO @ @@@@ RULH )@@G@@NS-TOT-LINE.@D@@@@ WRITE RUN-LINE FROM RUNS-TOT-LINE AFTER 2. LI )@@G@@@A@@@@ ADD 2 TO RUNRPT-LN-CNTR. @@@@@@@@@@@@@B@@@@ 0684-LJ )@@G@@RUNRPT-UPDATE-DATE-ACCUMS. @@@@@@@E@@@@ ADD CORR ACCUMS OF LK )@@G@@RUNRPT-ACCT-GP-ACCUM (P, Q) TO@E@@@@ ACCUMS OF RUNRPT-ALL )@@G@@CCT-DATE-ACCUM (P, Q). @@@@@@@@@@@@@ @@@@ 0685-RUNRPT-ACCT-BREAK.LM )@@G@@@@@@@@@B@@@@ PERFORM 0775-RUNRPT-PAGE-BREAK.@D@@@@ WLN )@@G@@RITE RUN-LINE FROM RUNS-TOT-HD-1A AFTER 3.@D@@@@ WRITE RUN-LINLO )@@G@@E FROM RUNS-TOT-HD-1B AFTER 1.@A@@@@ ADD 4 TO RUNRPT-LN-CNTR. LP )@@G@@@@@@@@@@@@@@@B@@@@ 0686-RPT-PRINT-ACCT-NO-TOTALS. @@@@@@@D@@@@LQ )@@G@@ MOVE CORR RUNRPT-ACCT-NO-ACCUM (P, Q) TO @A@@@@ LR )@@G@@ RUNS-TOT-LINE. @F@@@@ MOVE CORR ACCUMS OF RUNRPT-ACCTLS )@@G@@-NO-ACCUM (P, Q) TO @A@@@@ RUNS-TOT-LINE. @D@@@@LT )@@G@@ WRITE RUN-LINE FROM RUNS-TOT-LINE AFTER 2. @A@@@@ ALU )@@G@@DD 2 TO RUNRPT-LN-CNTR. @@@@@@@@@@@@@B@@@@ 0687-RPT-UPDATE-ACCT-GPLV )@@G@@-ACCUMS. @@@@@@@E@@@@ ADD CORR ACCUMS OF RUNRPT-ACCT-NO-ACCLW )@@G@@UM (P, Q) TO@E@@@@ ACCUMS OF RUNRPT-ACCT-GP-ACCUM (P, Q)LX )@@G@@. @@@@@@@@@@@@@A@@@@ 0688-RUNRPT-GET-IO-SECS. @@@@@@@C@@@@LY )@@G@@ IF TOT-SECS OF RUNRPT-RUN-ACCUM > 0 @C@@@@ ADD LZ )@@G@@CPU-SECS OF RUNRPT-RUN-ACCUM, @C@@@@ CCER-SECS OF RUNRPMA )@@G@@T-RUN-ACCUM @C@@@@ GIVING WORK-ACCUM @E@@@@MB )@@G@@ IF TOT-SECS OF RUNRPT-RUN-ACCUM > WORK-ACCUM @F@@@@ MC )@@G@@ COMPUTE IO-SECS OF RUNRPT-RUN-ACCUM ROUNDED = @F@@@@ MD )@@G@@ TOT-SECS OF RUNRPT-RUN-ACCUM - WORK-ACCUM@#@@@@ ME )@@G@@ ELSE@D@@@@ MOVE 0 TO IO-SECS OF RUNRPT-RUN-ACCUMMF )@@G@@@#@@@@ ELSE @D@@@@ MOVE 0 TO IO-SECS OF RUNRPT-MG )@@G@@RUN-ACCUM. @@@@@@@@@@@@@B@@@@ 0725-SYMRPT-COMPARE-ELP-DATES. MH )@@G@@@@@@@@@D@@@@ IF WORK-DATE-COMP < SR-FIRST-DATE-COMP @E@@@@MI )@@G@@ MOVE CORR WORK-DATE-COMP TO SR-FIRST-DATE-COMP@F@@@@ MJ )@@G@@ MOVE CORR SR-FIRST-DATE-COMP TO SR-FIRST-DATE-EDITED@F@@@@ MK )@@G@@ MOVE SR-FIRST-DATE-EDITED TO SR-TOT-HD-1-DATE-1. @C@@@@ ML )@@G@@ IF WORK-DATE-COMP > SR-LAST-DATE-COMP@E@@@@ MOVE CORR MM )@@G@@WORK-DATE-COMP TO SR-LAST-DATE-COMP @F@@@@ MOVE CORR SR-LASMN )@@G@@T-DATE-COMP TO SR-LAST-DATE-EDITED @F@@@@ MOVE SR-LAST-DATMO )@@G@@E-EDITED TO SR-TOT-HD-1-DATE-2. @@@@@@@@@@@@@A@@@@ 0726-SYMRPTMP )@@G@@-PRINT-DEV-TOTALS.@@@@@@@D@@@@ MOVE CUR-SYMRPT-DEV TO SR-TOT-HMQ )@@G@@D-1-DEV. @D@@@@ WRITE SYM-LINE FROM SR-TOT-HD-1 AFTER 2. MR )@@G@@@D@@@@ WRITE SYM-LINE FROM SR-TOT-HD-2 AFTER 2. @D@@@@ MS )@@G@@ WRITE SYM-LINE FROM SR-TOT-HD-3 AFTER 1. @A@@@@ ADD 5 TMT )@@G@@O SR-LINE-CNTR. @C@@@@ PERFORM 0800-LOAD-PRINT-DEV-TOTALS MU )@@G@@@D@@@@ VARYING P FROM 1 BY 1 UNTIL P > 3. @A@@@@ MV )@@G@@ MOVE 66 TO SR-LINE-CNTR. @@@@@@@@@@@@@B@@@@ 0727-CLR-SYMRPT-AMW )@@G@@CT-GP-ACCUMS. @@@@@@@C@@@@ MOVE CLR-SYM-ACCUMS TO ACT-GP-DMX )@@G@@ATA OF@E@@@@ SYMRPT-ACT-GP-ACCUM (Q). MY )@@G@@@@@@@@@@@@@@@A@@@@ 0728-CLR-SYMRPT-DEV-ACCUMS. @@@@@@@C@@@@ MZ )@@G@@ MOVE CLR-SYM-ACCUMS TO DEV-DATA OF @E@@@@ NA )@@G@@ SYMRPT-DEVICE-ACCUM (Q). @@@@@@@@@@@@@A@@@@ 0729-SYMRPTNB )@@G@@-PRINT-SHIFTS. @@@@@@@C@@@@ IF ELAP-SECS OF ACT-GP-DATA (Q)NC )@@G@@ > 0 @D@@@@ PERFORM 0801-SYMRPT-LOAD-DETAIL-LINE @A@@@@ND )@@G@@ IF SR-LINE-CNTR > 61 @D@@@@ MOVE 'D' TO SNE )@@G@@W-SYMRPT-BREAK-TYPE @C@@@@ PERFORM 0802-SYMRPT-PAGE-NF )@@G@@BREAK @E@@@@ WRITE SYM-LINE FROM SR-DETAIL-LINE AFTER 2 NG )@@G@@@B@@@@ ADD 2 TO SR-LINE-CNTR @#@@@@ ELSENH )@@G@@@E@@@@ WRITE SYM-LINE FROM SR-DETAIL-LINE AFTER 2 @B@@@@NI )@@G@@ ADD 2 TO SR-LINE-CNTR. @@@@@@@@@@@@@B@@@@ 0730-NJ )@@G@@SYMRPT-UPDATE-DEV-ACCUMS. @@@@@@@D@@@@ ADD CORR ACT-GP-DATNK )@@G@@A (Q) TO DEV-DATA (Q). @@@@@@@@@@@@@ @@@@ 0775-RUNRPT-PAGE-BREAK.NL )@@G@@@@@@@@@A@@@@ ADD 1 TO RUNRPT-PG-CNTR. @C@@@@ MOVE RUNM )@@G@@NRPT-PG-CNTR TO DEPT-PAGE-NUM.@D@@@@ MOVE RUNRPT-HEADER-MSG (BNN )@@G@@REAK-TYPE) TO @B@@@@ R-TEXT OF RUNS-PG-HD-4B. @E@@@@NO )@@G@@ WRITE RUN-LINE FROM DEPT-HEADER-1 AFTER PAGE. @D@@@@ NP )@@G@@ WRITE RUN-LINE FROM DEPT-HEADER-2 AFTER 1. @D@@@@ WRITE RNQ )@@G@@UN-LINE FROM RUNS-PG-HD-3 AFTER 1. @D@@@@ WRITE RUN-LINE FROMNR )@@G@@ RUNS-PG-HD-4A AFTER 2. @D@@@@ WRITE RUN-LINE FROM RUNS-PG-HD-NS )@@G@@4B AFTER 1. @D@@@@ WRITE RUN-LINE FROM RUNS-PG-HD-4A AFTER 1. NT )@@G@@@B@@@@ MOVE 13 TO RUNRPT-LN-CNTR. @@@@@@@@@@@@@A@@@@ NU )@@G@@ 0800-LOAD-PRINT-DEV-TOTALS. @@@@@@@D@@@@ MOVE CORR DEV-DATA NV )@@G@@(P) TO SR-TOT-DETAIL. @C@@@@ MOVE DEV-SHIFT (P) TO DEVICE-SHNW )@@G@@IFT. @C@@@@ IF ELAP-SECS OF DEV-DATA (P) > 0 @G@@@@ NX )@@G@@ MOVE ELAP-SECS OF DEV-DATA (P) TO SECS-AFTER-MIDNIGHT @C@@@@NY )@@G@@ PERFORM 0900-CONVERT-ELAPSED-SECS @E@@@@ MOVENZ )@@G@@ CORR RPT-RUN-TIME TO ET OF SR-TOT-DETAIL @D@@@@ MOVE HHHH-OA )@@G@@HRS TO HRS OF SR-TOT-DETAIL @C@@@@ COMPUTE SYM-PRI-VALUE OB )@@G@@ROUNDED = @C@@@@ PRIORITY OF DEV-DATA (P) /@C@@@@OC )@@G@@ (DLBT OF DEV-DATA (P) + @C@@@@ OD )@@G@@ BT OF DEV-DATA (P) + @C@@@@ DM OF DEV-OE )@@G@@DATA (P)) @B@@@@ SET P0 TO SYM-PRI-VALUE @A@@@@ OF )@@G@@ IF P0 > 0 AND < 37 @E@@@@ MOVE PRI-CHAR (P0) OG )@@G@@TO PRIT OF SR-TOT-DETAIL@#@@@@ ELSE@D@@@@ MOH )@@G@@OVE SPACE TO PRIT OF SR-TOT-DETAIL @#@@@@ ELSE @D@@@@ OI )@@G@@ MOVE SPACE TO PRIT OF SR-TOT-DETAIL @D@@@@ MOVEOJ )@@G@@ ALL ZEROES TO HRS OF SR-TOT-DETAIL @D@@@@ OK )@@G@@ MIN OF SR-TOT-DETAIL @D@@@@ SEC OF SROL )@@G@@-TOT-DETAIL.@D@@@@ WRITE SYM-LINE FROM SR-TOT-DETAIL AFTER 2. OM )@@G@@@A@@@@ ADD 2 TO SR-LINE-CNTR. @@@@@@@@@@@@@A@@@@ 0801-ON )@@G@@SYMRPT-LOAD-DETAIL-LINE.@@@@@@@E@@@@ MOVE CORR ACT-GP-DATA (Q)OO )@@G@@ TO SR-DETAIL-LINE. @E@@@@ MOVE ACT-GP-SHIFT (Q) TO SHIFT OP )@@G@@OF SR-DETAIL-LINE.@G@@@@ MOVE ELAP-SECS OF ACT-GP-DATA (Q) TO OQ )@@G@@SECS-AFTER-MIDNIGHT. @C@@@@ PERFORM 0900-CONVERT-ELAPSED-SEOR )@@G@@CS. @E@@@@ MOVE CORR RPT-RUN-TIME TO ET OF SR-DETAIL-LINE. OS )@@G@@@D@@@@ MOVE HHH-HRS TO HRS OF SR-DETAIL-LINE. @B@@@@ OT )@@G@@ COMPUTE SYM-PRI-VALUE ROUNDED =@C@@@@ PRIORITY OFOU )@@G@@ ACT-GP-DATA (Q) /@C@@@@ (DLBT OF ACT-GP-DATA (Q) + OV )@@G@@@C@@@@ BT OF ACT-GP-DATA (Q) + @C@@@@ OW )@@G@@ DM OF ACT-GP-DATA (Q)) @A@@@@ SET P0 TO SYM-PRI-VOX )@@G@@ALUE @ @@@@ IF P0 > 0 AND < 37 @E@@@@ MOVE PRI-COY )@@G@@HAR (P0) TO PRIT-X OF SR-DETAIL-LINE@#@@@@ ELSE @D@@@@ OZ )@@G@@ MOVE SPACE TO PRIT-X OF SR-DETAIL-LINE. @@@@@@@@@@@@@ @@@@ PA )@@G@@ 0802-SYMRPT-PAGE-BREAK.@@@@@@@A@@@@ ADD 1 TO SR-PG-CNTR. PB )@@G@@@C@@@@ MOVE SR-PG-CNTR TO DEPT-PAGE-NUM. @E@@@@ WPC )@@G@@RITE SYM-LINE FROM DEPT-HEADER-1 AFTER PAGE. @D@@@@ WRITE SPD )@@G@@YM-LINE FROM DEPT-HEADER-2 AFTER 1. @D@@@@ WRITE SYM-LINE FROMPE )@@G@@ SR-HEAD-3 AFTER 2. @D@@@@ WRITE SYM-LINE FROM SR-HEAD-4 APF )@@G@@FTER 1. @A@@@@ MOVE 11 TO SR-LINE-CNTR. @A@@@@ IPG )@@G@@F SYMRPT-DETAIL-BREAK @E@@@@ WRITE SYM-LINE FROM SR-DETAIPH )@@G@@L-HD-1 AFTER 2 @E@@@@ WRITE SYM-LINE FROM SR-DETAIL-HD-2PI )@@G@@ AFTER 1 @A@@@@ ADD 3 TO SR-LINE-CNTR.@@@@@@@@@@@@@A@@@@PJ )@@G@@ 0900-CONVERT-ELAPSED-SECS. @@@@@@@^@@@@ MOVE 0 TO Q3 PK )@@G@@@^@@@@ Q4 @^@@@@ Q5.@B@@@@ PL )@@G@@ IF SECS-AFTER-MIDNIGHT > 3599 @E@@@@ DIVIDE SECS-AFTEPM )@@G@@R-MIDNIGHT BY 3600 GIVING Q3 @A@@@@ REMAINDER Q5 PN )@@G@@@#@@@@ ELSE @C@@@@ MOVE SECS-AFTER-MIDNIGHT TO PO )@@G@@Q5. @^@@@@ IF Q5 > 59 @B@@@@ DIVIDE Q5 BY 60 PP )@@G@@GIVING Q4 @A@@@@ REMAINDER Q5. @B@@@@ MPQ )@@G@@OVE Q3 TO HRS OF RPT-RUN-TIME @A@@@@ HHH-HRSPR )@@G@@@B@@@@ HHHH-HRS. @B@@@@ MOVE Q4PS )@@G@@ TO MIN OF RPT-RUN-TIME.@B@@@@ MOVE Q5 TO SEC OF RPT-RUN-TIME.PT )@@G@@@@@@@@___TO RUNS-TOT-LINE. @E@@@@ MOVE CORR ACCUMS OF RUNRPPU )@@G@@T-ACCT-DATE-ACCUM (P, Q)@A@@@@ TO *[S@@@*SDFF*@A@@@@C PV )@@G@@PROGRAM-ID: H1550040 (LEV 1R2)@A@@@@C AUTHOR: MARK HARRISON PW )@@G@@@A@@@@C DATE WRITTEN: JULY 15, 1978 @#@@@@C REMARKS: @E@@@@PX )@@G@@C 1R2 TOOK OUT SECOND PASS OF MFD (DIRFIL) TO SPEED UP PROG @[@@@@C PY )@@G@@@[@@@@C @ @@@@ IMPLICIT INTEGER (A-Z) @D@@@@ DIMENSION BUPZ )@@G@@F(1792),TEMP(28),OUT(23),REEL(10) @F@@@@ INTEGER GRAN(2)/'TR','POQA )@@G@@'/,FAC(2)/1,64/,GRANU(2)/'UN','UN'/ @E@]@@ CALL ERTRAN(6,'@ASG,T DIQB )@@G@@RFIL.,F/1000/TRK/4000 . ') @E@@@] CALL ERTRAN(6,'@ASG,T DIRFIL.,QC )@@G@@F/500/TRK/4000 . ') @B@@@@ CALL ERTRAN(6,'@USE 2.,DIRFIL. . ') QD )@@G@@@A@@@@ 1 TRKS=0 @ APPROX. @#@@@@ STATUS = 0 @#@@@@QE )@@G@@ INDEX=1 @#@@@@ FIXCT=0 @#@@@@ TAPCT=0 @#@@@@QF )@@G@@ TAPSW=0 @#@@@@ GRANSW=0 @#@@@@ SIZER=0 @#@@@@QG )@@G@@ RECVOL=0 @ @@@@ CALL ERTRAN(9,DATE,TYME)@ @@@@ WRITE(QH )@@G@@6,1070) DATE,TYME @G@@@@ 1070 FORMAT('1COMPLETE LIST OF FILES ON FIXED QI )@@G@@ DATE: ',A6,' @#@@@@ -TIME: ',A6) @]@@@@ CC=1 @[@@@@QJ )@@G@@C @E@@@@C *** SEE EXEC , PRM 4144 FOR LAYOUT OF MAIN ITEM IN MFD QK )@@G@@@[@@@@C @B@]@@ CALL DGET('DIRFIL ', 300,STATUS) @B@@@] QL )@@G@@CALL DGET('DIRFIL ', 500,STATUS) @ @@@@ IF(STATUS.NE.0) GO TO 90QM )@@G@@@#@@@@ 2 CONTINUE @^@@@@ CALL NTRAN(2,10) @A@@@@ CALL NQN )@@G@@TRAN(2,2,1792,BUF,LR) @^@@@@ CALL NTRAN(2,22) @ @@@@ IF(LR.QO )@@G@@LT.1) GO TO 95 @ @@@@ MFD=FLD(0,18,BUF(3)) @ @@@@ NTR=FLQP )@@G@@D(18,18,BUF(3)) @#@@@@ TRKSRD=MFD-1@ @@@@ IF(MFD.EQ.1) GO TOQQ )@@G@@ 20 @^@@@@ SKIP=64*(MFD-2) @ @@@@ CALL NTRAN(2,6,SKIP) QR )@@G@@@^@@@@ 20 TRKSRD=TRKSRD+1 @A@@@@ IF(TRKSRD.GT.NTR) GO TO 75 QS )@@G@@@A@@@@ CALL NTRAN(2,2,1792,BUF,LR) @^@@@@ CALL NTRAN(2,22) QT )@@G@@@ @@@@ IF(LR.LT.1) GO TO 95 @#@@@@ BITPTR=1 @#@@@@ QU )@@G@@DO 22 I=1,28@^@@@@ 22 TEMP(I)=BUF(I) @C@@@@ 23 IF(FLD(0,1,TEMP(BIQV )@@G@@TPTR)).EQ.1) GO TO 38 @]@@@@ LOOP=1@^@@@@ BITPTR=BITPTR+1 QW )@@G@@@ @@@@ IF(BITPTR.EQ.2) GO TO 24@]@@@@ PTR=1 @]@@@@ BITS=0QX )@@G@@@^@@@@ TRKSRD=TRKSRD+1 @A@@@@ IF(TRKSRD.GT.NTR) GO TO 75 QY )@@G@@@A@@@@ CALL NTRAN(2,2,1792,BUF,LR) @^@@@@ CALL NTRAN(2,22) QZ )@@G@@@ @@@@ IF(LR.LT.1) GO TO 95 @#@@@@ GO TO 25 @]@@@@ 24 RA )@@G@@PTR=29@]@@@@ BITS=1@H@@@@ 25 IF((BUF(PTR+5).EQ.'*NO.1*').AND.(FLDRB )@@G@@(6,1,BUF(PTR+12)).EQ.0)) 1R2 @H@@@@ *GO TO 33 RC )@@G@@ 1R2 @C@@@@ IF(FLD(BITS,RD )@@G@@1,TEMP(BITPTR)).NE.1) GO TO 32@B@@@@ IF(FLD(1,3,BUF(PTR)).NE.4) GO RE )@@G@@TO 50 @C@@@@C IF(FLD(8,1,BUF(PTR+12)).EQ.1) GO TO 32 @^@@@@ RF )@@G@@OUT(2)=BUF(PTR+7) @^@@@@ OUT(3)=BUF(PTR+8) @#@@@@ 33 GRANSW=0 RG )@@G@@@#@@@@ DO 26 I=1,4 @ @@@@ 26 OUT(I+3)=BUF(PTR+I) @H@@@@ RH )@@G@@IF((BUF(PTR+5).EQ.'*NO.1*').AND.(FLD(6,1,BUF(PTR+12)).EQ.0)) 1R2 RI )@@G@@@H@@@@ *GO TO 34 RJ )@@G@@ 1R2 @A@@@@ OUT(8)=FLD(24,12,BUF(PTR+17)) @A@@@@ CALL TRK )@@G@@IME(BUF(PTR+19),OUT(9)) @A@@@@ CALL TIME(BUF(PTR+18),OUT(18))@A@@@@RL )@@G@@C OUT(23)=FLD(18,18,BUF(PTR+15))@^@@@@ OUT(23)=' 1' @C@@@@RM )@@G@@ IF(FLD(6,1,BUF(PTR+12)).NE.0) GO TO 40 @^@@@@ FIXCT=FIXCT+RN )@@G@@1 @#@@@@ OUT(14)=0 @#@@@@ DO 29 L=1,8 @#@@@@ L1=L+1RO )@@G@@9 @A@@@@ SIZER=FLD(18,18,BUF(PTR+L1)) @ @@@@ 29 OUT(14)=OUT(RP )@@G@@14)+SIZER @ @@@@ I=FLD(0,1,BUF(PTR+13))+1@ @@@@ TRKS=TRKS-OURQ )@@G@@T(16)*FAC(I)@^@@@@ OUT(15)=GRAN(I) @A@@@@ OUT(16)=FLD(0,18,BRR )@@G@@UF(PTR+21)) @^@@@@ OUT(17)=GRAN(I) @C@@@@ IF(FLD(0,1,BUF(PTRRS )@@G@@+12)).EQ.0) GO TO 27 @^@@@@ OUT(15)=GRANU(I) @^@@@@ OUT(1)RT )@@G@@=' ' @D@@@@ 27 IF(FLD(6,2,BUF(PTR+17)).EQ.0) OUT(1)=' ' RU )@@G@@@D@@@@ IF(FLD(6,2,BUF(PTR+17)).EQ.1) OUT(1)='V ' @D@@@@ RV )@@G@@IF(FLD(6,2,BUF(PTR+17)).EQ.2) OUT(1)='G ' @D@@@@ IF(FLD(6,2,BRW )@@G@@UF(PTR+17)).EQ.3) OUT(1)='GV ' @#@@@@ GO TO 28 @C@@@@ 34 RX )@@G@@IF(FLD(18,18,BUF(PTR+9)).EQ.0) GO TO 32 @A@@@@ OUT(14)=FLD(18,18,RY )@@G@@BUF(PTR+9)) @^@@@@ OUT(16)=OUT(14) @^@@@@ OUT(15)=' ' RZ )@@G@@@^@@@@ OUT(17)=' ' @^@@@@ OUT(1)=' ' @^@@@@ SA )@@G@@OUT(23)=' 2' @^@@@@ OUT(2)=' ' @^@@@@ OUT(3)=' SB )@@G@@ ' @A@@@@ OUT(8)=FLD(24,12,BUF(PTR+7)) @^@@@@ 28 WRITE(1,1060SC )@@G@@) OUT @D@@@@ 1060 FORMAT(1X,A2,6A6,I3,5(I2),2(I5,A2),5(I2),A4) @^@@@@SD )@@G@@ RECVOL=RECVOL+1 @^@@@@ INDEX=INDEX+1 @#@@@@ 32 BITS=BSE )@@G@@ITS+1 @#@@@@ PTR=PTR+28 @ @@@@ IF(BITS.LT.32) GO TO 25 @#@@@@SF )@@G@@ LOOP=LOOP+1 @]@@@@ BITS=0@^@@@@ BITPTR=BITPTR+1 @ @@@@SG )@@G@@ IF(LOOP.GT.2) GO TO 36 @#@@@@ GO TO 25 @A@@@@ 36 IF(BITSH )@@G@@PTR.LT.28) GO TO 23 @#@@@@ GO TO 20 @^@@@@ 38 BITPTR=BITPTSI )@@G@@R+3 @#@@@@ GO TO 36 @^@@@@ 40 TAPCT=TAPCT+1 @A@@@@ SJ )@@G@@OUT(14)=FLD(18,18,BUF(PTR+20))@^@@@@ OUT(15)='TP ' @^@@@@ SK )@@G@@OUT(16)=' ' @^@@@@ OUT(17)=' ' @^@@@@ OUT(1)=' SL )@@G@@ ' @#@@@@ GO TO 44 @^@@@@ 42 WRITE(1,1100) OUT @D@@@@ 1100 SM )@@G@@FORMAT(1X,A2,6A6,I3,5(I2),I5,A2,A6,A1,5(I2),A4) @^@@@@ RECVOL=RECVOSN )@@G@@L+1 @^@@@@ INDEX=INDEX+1 @#@@@@ GO TO 32 @A@@@@ 44 SO )@@G@@IF(OUT(14).EQ.0) GO TO 42 @ @@@@ OUT(16)=BUF(PTR+26) @#@@@@SP )@@G@@ GO TO 42 @ @@@@ 50 IF(GRANSW.EQ.0) GO TO 32@B@@@@ IF(FLDSQ )@@G@@(1,3,BUF(PTR)).NE.0) GO TO 32 @A@@@@ IF(OUT(14).GT.27) OUT(14)=27 SR )@@G@@@^@@@@ OUT(14)=OUT(14)-2 @#@@@@ ALPHA=2 @]@@@@ BETA=1SS )@@G@@@A@@@@ 52 REEL(BETA)=BUF(PTR+ALPHA) @^@@@@ OUT(14)=OUT(14)-1 ST )@@G@@@A@@@@ IF((OUT(14)).EQ.0) GO TO 56 @^@@@@ ALPHA=ALPHA+1 SU )@@G@@@#@@@@ BETA=BETA+1 @ @@@@ IF(BETA.LE.10) GO TO 52 @C@@@@ 53 SV )@@G@@IF(MOD(INDEX,55).EQ.0) WRITE(6,1050) CC @E@@@@C THE FOLLOWING STATSW )@@G@@EMENT SHOULD NEVER BE ENCOUNTERED @D@@@@ 1050 FORMAT(1X,'CC = ',I6,5X,SX )@@G@@'FIX YOUR PROGRAM') @#@@@@ CALL ABORT @^@@@@ WRITE(6,1200SY )@@G@@) REEL@ @@@@ 1200 FORMAT(30X,10(A6,1X)) @^@@@@ INDEX=INDEX+1 SZ )@@G@@@A@@@@ IF(OUT(14).NE.0) GO TO 54 @#@@@@ GRANSW=0 @#@@@@TA )@@G@@ GO TO 32 @]@@@@ 54 BETA=1@#@@@@ GO TO 52 @ @@@@ 56 TB )@@G@@IF(BETA.EQ.10) GO TO 53 @#@@@@ BETA=BETA+1 @ @@@@ REEL(BETA)='TC )@@G@@ ' @#@@@@ GO TO 56 @H@@@@ 75 CONTINUE TD )@@G@@ 1R2 @^@@@@ 80 CALL NTRAN(2TE )@@G@@,18) @ @@@@ WRITE (3,1300) RECVOL @B@@@@ 1300 FORMAT('VOLUME CARTF )@@G@@D',1X,I6,62X) @#@@@@ CALL EXIT @ @@@@C *** ERRORS HANDLED HERTG )@@G@@E @^@@@@ 95 WRITE(6,1020) LR @C@@@@ 1020 FORMAT(1X,'STATUS RETURNTH )@@G@@ED FROM NTRAN',I6)@#@@@@ CALL ABORT @ @@@@ 90 WRITE(6,1040) STATTI )@@G@@US @C@@@@ 1040 FORMAT(' STATUS RETURNED FROM MSCON=',O12)@#@@@@ TJ )@@G@@CALL ABORT @]@[@@ END @#@[@@@FOR,IS ,.TIME@@@@@@@@@@@@@@@@@@TK )@@G@@@@@@@@@@@@@@@ @@@@ SUBROUTINE TIME(I,N) @^@@@@ DIMENSION N(TL )@@G@@5) @^@@@@ N(1)=FLD(0,6,I) @^@@@@ N(2)=FLD(6,6,I) @ @@@@TM )@@G@@ N(3)=FLD(12,6,I)+64 @^@@@@ L=FLD(18,18,I) @#@@@@ TN )@@G@@N(4)=L/3600 @ @@@@ N(5)=MOD(L,3600)/60 @]@@@@ RETURN@]@@@@TO )@@G@@ END ___D9PE)*AC4 C( 1 EC,A@(^[BD8)E-J^@5*[S@@@*SDFF*@A@@@@ TP )@@G@@ IDENTIFICATION DIVISION. @ @@@@ PROGRAM-ID. H1550050. @ @@@@TQ )@@G@@ AUTHOR. CURTIS WHITE. @ @@@@ DATE-WRITTEN. JUNE 78. @^@@@@TR )@@G@@ DATE-COMPILED. @ @@@@ *REMARKS. ASCII ANS-1974@]@@@@ TS )@@G@@* @A@@@@ * ***ASCII***@E@@@@ * PROGTT )@@G@@RAM H1550050 WILL READ CARDS CONTAINING @E@@@@ * INFORMATIOTU )@@G@@N CONCERNING THE NUMBER OF TAPES @E@@@@ * AND THE AMOUNT OTV )@@G@@F DISC SPACE THAT EACH FILE @D@@@@ * IS USING. TOTALS WILL TW )@@G@@BE CALCULATED BY @ @@@@ * ACCOUNT NUMBER. @ @@@@ * CTX )@@G@@HANGE 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOL (ACOB4). TY )@@G@@@]@@@@ * @ @@@@ ENVIRONMENT DIVISION. @ @@@@ CONFITZ )@@G@@GURATION SECTION. @ @@@@ COPY COMPUTER-NAMES. @^@@@@ SPECIUA )@@G@@AL-NAMES. @ @@@@ COPY DEVICE-NAMES. @ @@@@ INPUT-OUTPUUB )@@G@@T SECTION. @^@@@@ FILE-CONTROL. @ @@@@ SELECT VOL-CRUC )@@G@@D @D@@@@ ASSIGN TO CARD-READER VOL-CARD. @^@@@@UD )@@G@@ SELECT CARDIN@B@@@@ ASSIGN TO CARD-READER. UE )@@G@@@ @@@@ SELECT SUM-OUT @D@@@@ ASSIGN TO MAUF )@@G@@SS-STORAGE MFD-SUMMARY. @ @@@@ SELECT SORT-WORK @C@@@@ UG )@@G@@ ASSIGN TO MASS-STORAGE XA. @ @@@@ SELECT PRINT-UH )@@G@@FILE @C@@@@ ASSIGN TO PRINTER MFD-REPORT.@ @@@@ UI )@@G@@ SELECT PUNCH-FILE @D@@@@ ASSIGN TO CARD-PUNCH MFUJ )@@G@@D-TRANS. @^@@@@ DATA DIVISION. @^@@@@ FILE SECTION. UK )@@G@@@#@@@@ FD VOL-CRD@B@@@@ RECORD CONTAINS 80 CHARACTERS UL )@@G@@@A@@@@ LABEL RECORDS ARE OMITTED@B@@@@ DATA RECORD IUM )@@G@@S VOLUME-CRD. @A@@@@ 01 VOLUME-CRD DISPLAY-1. @D@@@@ UN )@@G@@ 03 CRD-HDR PIC X(11). @D@@@@ 88 UO )@@G@@ VOLUME-CARD VALUE IS 'VOLUME CARD'.@D@@@@ 03 FILLER UP )@@G@@ PIC X. @D@@@@ 03 VOL-CNT UQ )@@G@@ PIC 9(6). @C@@@@ 03 VOL-CNT-XX REDEFINES VOL-CNT. @D@@@@UR )@@G@@ 04 VOL-CNT-X PIC X(6). @D@@@@ 0US )@@G@@3 FILLER PIC X(62).@#@@@@ FD CARDIN @B@@@@UT )@@G@@ RECORD CONTAINS 80 CHARACTERS @A@@@@ LABEL RECORDSUU )@@G@@ ARE OMITTED@A@@@@ DATA RECORD IS CARDS. @B@@@@ 01 CUV )@@G@@ARDS DISPLAY-1. @D@@@@ 03 SW-QUIPCARDS UW )@@G@@ PIC X(9). @D@@@@ 88 QUIPCARDS VALUE 'QUIPCARDS'UX )@@G@@. @D@@@@ 03 FILLER PIC X(71). @#@@@@UY )@@G@@ FD SUM-OUT@B@@@@ RECORD CONTAINS 42 CHARACTERS @A@@@@UZ )@@G@@ BLOCK CONTAINS 27 RECORDS@B@@@@ LABEL RECORDS ARE SVA )@@G@@TANDARD @A@@@@ DATA RECORD IS OUT-FILE. @^@@@@ 01 OVB )@@G@@UT-FILE. @E@@@@ 02 ACT-NUM PIC X(12) DISP-VC )@@G@@1. @^@@@@ 02 O-DATE . @D@@@@ 05 O-YY VD )@@G@@ PIC XX DISP-1. @D@@@@ 05 O-MM PICVE )@@G@@ XX DISP-1. @D@@@@ 05 O-DD PIC XX DISP-1. VF )@@G@@@E@@@@ 02 CAT-DISC-FILE PIC S9(10) COMP-4. @E@@@@VG )@@G@@ 02 CAT-DISC-TRK PIC S9(10) COMP-4. @E@@@@ VH )@@G@@ 02 CAT-TAPE-FILE PIC S9(10) COMP-4. @E@@@@ 0VI )@@G@@2 CAT-TAPE-REEL PIC S9(10) COMP-4. @^@@@@ SD SORT-WOVJ )@@G@@RK @B@@@@ RECORD CONTAINS 80 CHARACTERS @C@@@@ DVK )@@G@@ATA RECORD IS SORT-WORK-RECORD. @B@@@@ 01 SORT-WORK-RECORD VL )@@G@@DISPLAY-1. @C@@@@ 05 FILLER PIC XXX. @D@@@@VM )@@G@@ 05 ACCOUNT PIC X(12). @D@@@@ 0VN )@@G@@5 QUAL PIC X(12). @D@@@@ 05 FILENAME VO )@@G@@ PIC X(12). @C@@@@ 05 F-CYCLE VP )@@G@@ PIC XXX. @D@@@@ 05 FILLER PIC X(10). VQ )@@G@@@D@@@@ 05 COUNTS PIC X(5). @B@@@@ VR )@@G@@ 05 9-COUNT REDEFINES COUNTS. @C@@@@ 07 COUNT-9 VS )@@G@@ PIC 9(5).@C@@@@ 05 CODES PIC XX. VT )@@G@@@D@@@@ 05 FILLER PIC X(20). @C@@@@ VU )@@G@@ 05 SEQ-NO PIC X. @^@@@@ FD PRINT-FILE VV )@@G@@@A@@@@ LABEL RECORDS ARE OMITTED@A@@@@ DATA RECORD IVW )@@G@@S PRINT. @D@@@@ 01 PRINT PIC X(132).VX )@@G@@@^@@@@ FD PUNCH-FILE @B@@@@ RECORD CONTAINS 80 CHARACVY )@@G@@TERS @A@@@@ LABEL RECORDS ARE OMITTED@A@@@@ DATA REVZ )@@G@@CORD IS MFD-PUNCH.@^@@@@ 01 MFD-PUNCH. @C@@@@ 02 QUAWA )@@G@@L-PUNCH PIC X(12). @B@@@@ 02 FILLER PICWB )@@G@@ X. @C@@@@ 02 FILE-PUNCH PIC X(12). @B@@@@ WC )@@G@@ 02 FILLER PIC X. @B@@@@ 02 CYCLE-PUNCH WD )@@G@@ PIC XXX. @B@@@@ 02 FILLER PIC X. @C@@@@ WE )@@G@@ 02 OLD-ACCT-PCH PIC X(12). @C@@@@ 02 FILLER WF )@@G@@ PIC X(38). @A@@@@ WORKING-STORAGE SECTION. @E@@@@WG )@@G@@ 77 DATE-6 PIC X(6) DISPLAY-1. @E@@@@ WH )@@G@@ 77 DATE-8 PIC X(8) DISPLAY-1. @E@@@@ 77 DWI )@@G@@ATE-SLASH VALUE '2' PIC X DISPLAY-1. @E@@@@ 77 REC-LENWJ )@@G@@GTH VALUE 20 PIC 9(10) COMP. @E@@@@ 77 REC-VOLUME VWK )@@G@@ALUE 0 PIC 9(10) COMP. @E@@@@ 77 CORE-SIZE VALUE 1WL )@@G@@5000 PIC 9(10) COMP. @E@@@@ 77 STATUZ VALUE 0 WM )@@G@@ PIC 9(10) COMP. @C@@@@ 77 TABLE-COUNT PICWN )@@G@@ 999. @C@@@@ 77 SUB PIC 999. @C@@@@ WO )@@G@@ 77 SW VALUE 0 PIC 9. @C@@@@ 77 PGNO VALUWP )@@G@@E 0 PIC 999. @C@@@@ 77 LN-CNT VALUE 0 PIC WQ )@@G@@999. @C@@@@ 77 TOT-TAPE-F VALUE 0 PIC 99999.@C@@@@ WR )@@G@@ 77 TOT-DISC-F VALUE 0 PIC 99999.@D@@@@ 77 TOT-TRKS VALWS )@@G@@UE 0 PIC 999999999. @C@@@@ 77 TOT-REELS VALUE 0 WT )@@G@@ PIC 99999.@D@@@@ 77 QUIP-CNT PIC 9(10) COMP. WU )@@G@@@C@@@@ 77 LN-CNT-1 VALUE 0 PIC 999. @^@@@@ COPY WV )@@G@@DEPT-HEADER.@#@@@@ 01 HEAD-3.@C@@@@ 03 FILLER PIC X(4WW )@@G@@5) VALUE SPACES. @B@@@@ 03 FILLER PIC X(41) VALUE @E@@@@WX )@@G@@ 'SUMMARY BY ACCOUNT NO OF CATALOGUED FILES'. @C@@@@ WY )@@G@@ 03 FILLER PIC X(46) VALUE SPACES. @#@@@@ 01 HEAD-4.@F@@@@WZ )@@G@@ 02 FILLER PIC X(7) VALUE SPACE. @E@@@@XA )@@G@@ 02 FILLER PIC X(7) VALUE @ @@@@ XB )@@G@@ 'ACCOUNT'. @F@@@@ 02 FILLER PICXC )@@G@@ X(11) VALUE SPACE. @E@@@@ 02 FILLER PICXD )@@G@@ X(19) VALUE @B@@@@ 'TOTAL-DISC-FILES '. @E@@@@XE )@@G@@ 02 FILLER PIC X(18) VALUE @A@@@@ XF )@@G@@ 'TOTAL-DISC-TRKS '.@E@@@@ 02 FILLER XG )@@G@@ PIC X(19) VALUE @B@@@@ 'TOTAL-TAPE-FILES '. XH )@@G@@@E@@@@ 02 FILLER PIC X(16) VALUE @A@@@@XI )@@G@@ 'TOTAL-TAPE-REELS'. @F@@@@ 02 FILLER XJ )@@G@@ PIC X(35) VALUE SPACE. @#@@@@ 01 HEAD-5.@C@@@@ XK )@@G@@ 02 FILLER PIC X(43) VALUE SPACES. @B@@@@ 02 FILLER PXL )@@G@@IC X(45) VALUE @F@@@@ 'CATALOGUED FILES WITH INVALID ACXM )@@G@@COUNT NUMBERS'. @C@@@@ 02 FILLER PIC X(44) VALUE SPACES. XN )@@G@@@#@@@@ 01 HEAD-6.@C@@@@ 02 FILLER PIC X(17) VALUE SPAXO )@@G@@CES. @E@@@@ 02 FILLER PIC X(14) VALUE 'ACCOUNT NUMBER'. XP )@@G@@@C@@@@ 02 FILLER PIC X(11) VALUE SPACES. @D@@@@ 0XQ )@@G@@2 FILLER PIC X(9) VALUE 'QUALIFIER'. @C@@@@ 02 FILLER PXR )@@G@@IC X(13) VALUE SPACES. @D@@@@ 02 FILLER PIC X(9) VALUE 'FIXS )@@G@@LE-NAME'. @C@@@@ 02 FILLER PIC X(12) VALUE SPACES. @D@@@@XT )@@G@@ 02 FILLER PIC X(8) VALUE 'CYCLE-NO'. @C@@@@ 0XU )@@G@@2 FILLER PIC X(10) VALUE SPACES. @D@@@@ 02 FILLER PIC X(1XV )@@G@@2) VALUE 'TYPE OF FILE'.@C@@@@ 02 FILLER PIC X(17) VALUE SPAXW )@@G@@CES. @^@@@@ 01 CONTROL-CARD.@F@@@@ 02 CARD-INFO XX )@@G@@ PIC X(15) VALUE SPACE. @C@@@@ 02 RPT-NEEDED XY )@@G@@ PIC 9. @F@@@@ 02 FILLER PIC X(64)XZ )@@G@@ VALUE SPACE. @C@@@@ 01 END-OF-CARD PIC X. YA )@@G@@@C@@@@ 88 END-OF-CARDS VALUE 'E'. @E@@@@ 01 TYB )@@G@@AB-EOF-SWITCH PIC X VALUE SPACE. @C@@@@ 88 ENDYC )@@G@@-OF-TABLE VALUE 'E'. @E@@@@ 01 DISC-EOF-SWITCH YD )@@G@@ PIC X VALUE SPACE. @C@@@@ 88 END-OF-DISC VALUE 'E'YE )@@G@@. @E@@@@ 01 TAB-IS-FILLED PIC X VALUE SPACE. YF )@@G@@@C@@@@ 88 TABLE-IS-FILLED VALUE 'E'. @E@@@@ 01 RYG )@@G@@PT-NEEDED-SW PIC X VALUE SPACE. @B@@@@ 88 NEEYH )@@G@@D-REPORT VALUE 'E'. @E@@@@ 01 ALL-CARDS-SW PICYI )@@G@@ X VALUE SPACE. @B@@@@ 88 ALL-CARDS-IN VALUE 'E'. @#@@@@YJ )@@G@@ 01 EDATE. @C@@@@ 05 MM PIC XX. YK )@@G@@@C@@@@ 05 DD PIC XX. @C@@@@ 0YL )@@G@@5 YY PIC XX. @#@@@@ 01 EDIT. @C@@@@ YM )@@G@@ 05 YY PIC XX. @C@@@@ 05 MM YN )@@G@@ PIC XX. @C@@@@ 05 DD PICYO )@@G@@ XX. @^@@@@ 01 QUIP-CARD. @C@@@@ 03 QUIP-COMMAND YP )@@G@@ PIC X(15). @C@@@@ 03 QUIP-ACCNT PIC X(12). YQ )@@G@@@C@@@@ 03 FILLER PIC X(53). @@@@@@@^@@@@ YR )@@G@@ 01 ACCOUNT-HOLD.@C@@@@ 02 ACCT-ALPHA PIC X. YS )@@G@@@C@@@@ 02 ACCT-NUM-H PIC XXX. @C@@@@ 0YT )@@G@@2 ACCT-FILL PIC X(8).@ @@@@ 01 ACCOUNT-TABLE. YU )@@G@@@F@@@@ 02 XABLE OCCURS 001 TO 999 TIMES DEPENDING ON QUIP-CNTYV )@@G@@@C@@@@ ASCENDING KEY IS ACCT-NUM @A@@@@ YW )@@G@@ INDEXED BY NUM.@E@@@@ 05 ACCT-NUM YX )@@G@@ PIC X(12). @D@@@@ 05 TOT-DISC PIC 9(10)YY )@@G@@ COMP.@D@@@@ 05 TOT-TRK PIC 9(10) COMP.@D@@@@YZ )@@G@@ 05 TOT-TAPE PIC 9(10) COMP.@D@@@@ ZA )@@G@@ 05 TOT-REEL PIC 9(10) COMP.@^@@@@ 01 DETAIL-LINE. ZB )@@G@@@F@@@@ 02 FILLER PIC X(7) VALUE SPACE. ZC )@@G@@@D@@@@ 02 ACCT-NUM-P PIC X(12). @F@@@@ ZD )@@G@@ 02 FILLER PIC X(8) VALUE SPACE. @E@@@@ ZE )@@G@@ 02 TOT-DISC-PD PIC Z,ZZZ,ZZZ,ZZ9. @F@@@@ 0ZF )@@G@@2 FILLER PIC X(5) VALUE SPACE. @E@@@@ 0ZG )@@G@@2 TOT-TRK-P PIC Z,ZZZ,ZZZ,ZZ9. @F@@@@ 02 FILZH )@@G@@LER PIC X(6) VALUE SPACE. @E@@@@ 02 TOTZI )@@G@@-TAPE-PD PIC Z,ZZZ,ZZZ,ZZ9. @F@@@@ 02 FILLER ZJ )@@G@@ PIC X(6) VALUE SPACE. @E@@@@ 02 TOT-REEL-ZK )@@G@@P PIC Z,ZZZ,ZZZ,ZZ9. @F@@@@ 02 FILLER ZL )@@G@@ PIC X(36) VALUE SPACE. @^@@@@ 01 TOT-LINE-1. @E@@@@ZM )@@G@@ 02 FILLER PIC X(27) VALUE @C@@@@ ZN )@@G@@ 'TOTAL CATALOGED DISC FILES '. @C@@@@ 02 TOT-DISC-ZO )@@G@@P PIC ZZ,ZZ9.@F@@@@ 02 FILLER PIC XZP )@@G@@(99) VALUE SPACES. @^@@@@ 01 TOT-LINE-2. @E@@@@ 0ZQ )@@G@@2 FILLER PIC X(28) VALUE @C@@@@ 'TOTZR )@@G@@AL CATALOGED DISC TRACKS '. @D@@@@ 02 TOT-TRKS-P ZS )@@G@@ PIC ZZZ,ZZZ,ZZ9. @F@@@@ 02 FILLER PIC X(98) ZT )@@G@@VALUE SPACES. @^@@@@ 01 TOT-LINE-3. @D@@@@ 02 FILZU )@@G@@LER PIC X(27) VALUE@C@@@@ 'TOTAL CATALOGEZV )@@G@@D TAPE FILES '. @C@@@@ 02 TOT-TAPE-P PIC ZZ,ZZ9.ZW )@@G@@@F@@@@ 02 FILLER PIC X(99) VALUE SPACES. ZX )@@G@@@^@@@@ 01 TOT-LINE-4. @D@@@@ 02 FILLER ZY )@@G@@ PIC X(27) VALUE@C@@@@ 'TOTAL CATALOGED TAPE REELS '. ZZ )@@G@@@C@@@@ 02 TOT-REELS-P PIC ZZ,ZZ9.@F@@@@ 0AA )@@G@@2 FILLER PIC X(99) VALUE SPACES. @^@@@@ 01 IAB )@@G@@NV-DET-LINE.@D@@@@ 02 FILLER PIC X(18) VALUE SPACES. AC )@@G@@@B@@@@ 02 INV-ACT-P PIC X(12). @D@@@@ 02 FILAD )@@G@@LER PIC X(11) VALUE SPACES. @B@@@@ 02 QUAL-P AE )@@G@@PIC X(12). @D@@@@ 02 FILLER PIC X(10) VALUE SPACES. AF )@@G@@@B@@@@ 02 FILE-NAME-P PIC X(12). @D@@@@ 02 FILAG )@@G@@LER PIC X(12) VALUE SPACES. @B@@@@ 02 CYCLE-P AH )@@G@@PIC XXX. @D@@@@ 02 FILLER PIC X(18) VALUE SPACES. AI )@@G@@@B@@@@ 02 FILE-TYPE-P PIC XX. @D@@@@ 02 FILAJ )@@G@@LER PIC X(22) VALUE SPACES. @ @@@@ PROCEDURE DIVISION. AK )@@G@@@ @@@@ 0100-READ-CONTROL-CARD.@ @@@@ OPEN INPUT VOL-CRD.AL )@@G@@@^@@@@ READ VOL-CRD @^@@@@ AT END @F@@@@ AM )@@G@@ DISPLAY 'NO VOLUME CARD FOR SORT IN H1550050' @A@@@@ AN )@@G@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'. AO )@@G@@@ @@@@ IF VOLUME-CARD @G@@@@ EXAMINE VOL-CAP )@@G@@NT-X REPLACING LEADING SPACES BY ZERO @B@@@@ MOVE VOLAQ )@@G@@-CNT TO REC-VOLUME@#@@@@ ELSE @F@@@@ DISPLAY 'FAR )@@G@@IRST CARD NOT VOLUME CARD FOR H1550050' @B@@@@ UAS )@@G@@PON PRINT-DEVICE @B@@@@ ENTER FD 'ABORT'. @F@@@@AT )@@G@@ CALL 'SORTASG' USING REC-LENGTH, REC-VOLUME, CORE-SIZE,@ @@@@AU )@@G@@ STATUZ. @A@@@@ IF STATUZ EQUAL ZERO AV )@@G@@@A@@@@ NEXT SENTENCE @#@@@@ ELSE @F@@@@AW )@@G@@ DISPLAY 'XA CANNOT BE ASSIGNED BY SRTSET H1550050' @B@@@@AX )@@G@@ UPON PRINT-DEVICE @B@@@@ ENAY )@@G@@TER FD 'ABORT'. @#@@@@ STEP-1. @G@@@@ SORT SORT-WORAZ )@@G@@K ON ASCENDING KEY QUAL ASCENDING KEY FILENAME @E@@@@ ASCBA )@@G@@ENDING KEY F-CYCLE ASCENDING KEY SEQ-NO @C@@@@ INPUT PROBB )@@G@@CEDURE IS BEFORE-SORT @C@@@@ OUTPUT PROCEDURE IS AFTER-SBC )@@G@@ORT. @ @@@@ BEFORE-SORT SECTION. @^@@@@ 0150-START-SORT. BD )@@G@@@ @@@@ OPEN INPUT CARDIN. @B@@@@ READ CARDIN INTO COBE )@@G@@NTROL-CARD @^@@@@ AT END @G@@@@ DISPLAY 'BF )@@G@@NO CONTROL CARD OR INPUT RECORDS FOR H1550050' @B@@@@ BG )@@G@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'. @B@@@@BH )@@G@@ PERFORM 0200-PROCESS-PRAM. @D@@@@ PERFORM 0300-BI )@@G@@MOVE-REC UNTIL QUIPCARDS. @ @@@@ GO TO 0300-EXIT. @ @@@@BJ )@@G@@ 0200-PROCESS-PRAM. @C@@@@ IF CARD-INFO EQUAL 'PARAMBK )@@G@@ETER CARD ' @ @@@@ NEXT SENTENCE @#@@@@ ELSE BL )@@G@@@F@@@@ DISPLAY 'INVALID OR MISSING PARAMETER CARD H1550050'BM )@@G@@@A@@@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'BN )@@G@@ABORT'. @A@@@@ IF RPT-NEEDED EQUAL 1 @B@@@@ BO )@@G@@ MOVE 'E' TO RPT-NEEDED-SW. @^@@@@ 0300-MOVE-REC. @^@@@@ BP )@@G@@ READ CARDIN @^@@@@ AT END @C@@@@ BQ )@@G@@ MOVE 'E' TO ALL-CARDS-SW @A@@@@ GO TO 0300-EXIT. BR )@@G@@@C@@@@ RELEASE SORT-WORK-RECORD FROM CARDS. @#@@@@ 0300-BS )@@G@@EXIT. @#@@@@ EXIT. @ @@@@ AFTER-SORT SECTION. @^@@@@BT )@@G@@ 1000-INITIALIZE. @A@@@@ OPEN OUTPUT PRINT-FILE. @A@@@@BU )@@G@@ OPEN OUTPUT SUM-OUT. @A@@@@ OPEN OUTPUT PUNCH-FBV )@@G@@ILE. @C@@@@ ENTER FD 'GETDATE' USING DATE-6. @F@@@@ BW )@@G@@ ENTER FD 'DATEDIT' USING DATE-6 DATE-8 DATE-SLASH. @A@@@@ BX )@@G@@ MOVE DATE-8 TO DEPT-DATE.@B@@@@ MOVE 'H15501' TO DEPT-RUNBY )@@G@@-ID. @C@@@@ MOVE 'H1550050' TO DEPT-PROGRAM-NUM. @A@@@@ BZ )@@G@@ MOVE DATE-6 TO EDATE. @A@@@@ MOVE CORR EDATE TO EDIT. CA )@@G@@@B@@@@ MOVE SPACES TO ACCOUNT-TABLE @ @@@@ MFDCB )@@G@@-PUNCH. @A@@@@ PERFORM 2000-BUILD-TABLE.@A@@@@ MCC )@@G@@OVE ' ' TO END-OF-CARD. @F@@@@ PERFORM 3000-COUNT THRU 3000-EXCD )@@G@@IT UNTIL END-OF-CARDS. @H@@@@ PERFORM 4000-WRITE VARYING NUM CE )@@G@@FROM 1 BY 1 UNTIL END-OF-TABLE. @ @@@@ PERFORM 5000-CLOSE.CF )@@G@@@^@@@@ 2000-BUILD-TABLE.@C@@@@ MOVE ALL SPACES TO ACCOUNCG )@@G@@T-HOLD. @^@@@@ SET NUM TO 1.@ @@@@ MOVE 0 TO QUICH )@@G@@P-CNT.@A@@@@ MOVE ' ' TO END-OF-CARD. @B@@@@ PERFORMCI )@@G@@ 2100-READ-QUIP-CARDS @B@@@@ UNTIL END-OF-CARDS. CJ )@@G@@@ @@@@ 2100-READ-QUIP-CARDS. @B@@@@ READ CARDIN INTO QUCK )@@G@@IP-CARD @C@@@@ AT END MOVE 'E' TO END-OF-CARD. @ @@@@CL )@@G@@ IF NOT END-OF-CARDS@D@@@@ IF QUIP-COMMAND = 'INSCM )@@G@@ERT ACCOUNT ' @D@@@@ PERFORM 2200-CHECK-ACCNT-SEQUENCN )@@G@@CE @B@@@@ PERFORM 2300-STORE-ACCNT @#@@@@ CO )@@G@@ ELSE@F@@@@ DISPLAY 'ILLEGAL QUIP COMMAND IN QUIP-CARDSCP )@@G@@' @B@@@@ UPON PRINT-DEVICE@A@@@@ CQ )@@G@@ ENTER FD 'ABORT'. @A@@@@ 2200-CHECK-ACCNT-SEQUENCE. @C@@@@CR )@@G@@ IF NOT QUIP-ACCNT > ACCOUNT-HOLD @F@@@@ DISPCS )@@G@@LAY 'ACCOUNT NO ' QUIP-ACCNT ' OUT OF SEQUENCE' @B@@@@ CT )@@G@@ UPON PRINT-DEVICE @ @@@@ ENTER FD 'ABORT'@#@@@@ CU )@@G@@ ELSE @C@@@@ MOVE QUIP-ACCNT TO ACCOUNT-HOLD. @^@@@@CV )@@G@@ 2300-STORE-ACCNT.@ @@@@ ADD 1 TO QUIP-CNT. @C@@@@ CW )@@G@@ MOVE QUIP-ACCNT TO ACCT-NUM (NUM). @A@@@@ MOVE 0 TO TOTCX )@@G@@-DISC (NUM) @A@@@@ TOT-TRK (NUM) @A@@@@ CY )@@G@@ TOT-TAPE (NUM) @A@@@@ TOT-REEL (NUM).@ @@@@CZ )@@G@@ SET NUM UP BY 1. @#@@@@ 3000-COUNT.@A@@@@ RDA )@@G@@ETURN SORT-WORK RECORD @F@@@@ AT END MOVE 'E' TO END-ODB )@@G@@F-CARD GO TO 3000-EXIT. @A@@@@ PERFORM 3001-CHECK-ACCT. @D@@@@DC )@@G@@ IF CODES EQUAL 'TP' PERFORM 3100-COUNT-TAPE@#@@@@ DD )@@G@@ ELSE @D@@@@ IF CODES EQUAL 'TR' PERFORM 3200-COUNT-TRK @#@@@@DE )@@G@@ ELSE @D@@@@ IF CODES EQUAL 'PO' PERFORM 3300-COUNDF )@@G@@T-POS @#@@@@ ELSE @D@@@@ IF CODES EQUAL 'UN' PERFODG )@@G@@RM 3400-COUNT-UN @#@@@@ ELSE @D@@@@ IF CODES EQUADH )@@G@@L ' ' PERFORM 3500-COUNT-BU. @#@@@@ 3000-EXIT. @#@@@@ EDI )@@G@@XIT. @^@@@@ 3001-CHECK-ACCT. @E@@@@ EXAMINE COUNTS REPLDJ )@@G@@ACING ALL SPACES BY ZERO. @ @@@@ IF SEQ-NO EQUAL '2'@ @@@@DK )@@G@@ NEXT SENTENCE @#@@@@ ELSE @B@@@@ MDL )@@G@@OVE ACCOUNT TO ACCOUNT-HOLD @C@@@@ IF ACCOUNT-HOLD EQUALS 'UDM )@@G@@NIVAC '@D@@@@ MOVE 'H152 ' TO ACCOUNT-HOLD DN )@@G@@@#@@@@ ELSE @A@@@@ IF ACCT-NUM-H EQUAL '///'@A@@@@DO )@@G@@ MOVE 'H' TO ACCT-ALPHA@B@@@@ MOVE '158' TO ACDP )@@G@@CT-NUM-H @B@@@@ MOVE ALL SPACES TO ACCT-FILL@#@@@@ DQ )@@G@@ ELSE @A@@@@ IF ACCT-NUM-H EQUAL '@@@'@A@@@@ DR )@@G@@ MOVE 'H' TO ACCT-ALPHA@B@@@@ MOVE '158' TO ACCT-NUM-H DS )@@G@@@C@@@@ MOVE ALL SPACES TO ACCT-FILL. @^@@@@ 3100-DT )@@G@@COUNT-TAPE. @@@@@@@ @@@@ SEARCH ALL XABLE @^@@@@ DU )@@G@@ AT END @B@@@@ PERFORM 3600-NO-FIND@D@@@@ DV )@@G@@ WHEN ACCT-NUM (NUM) EQUAL ACCOUNT-HOLD @B@@@@ ADD DW )@@G@@1 TO TOT-TAPE (NUM) @C@@@@ ADD COUNT-9 TO TOT-REEL (NUMDX )@@G@@) @A@@@@ ADD COUNT-9 TO TOT-REELS @A@@@@ ADD 1 TDY )@@G@@O TOT-TAPE-F. @^@@@@ 3200-COUNT-TRK. @@@@@@@ @@@@ SDZ )@@G@@EARCH ALL XABLE @^@@@@ AT END @B@@@@ EA )@@G@@ PERFORM 3600-NO-FIND@D@@@@ WHEN ACCT-NUM (NUM) EQUAL ACEB )@@G@@COUNT-HOLD @B@@@@ ADD 1 TO TOT-DISC (NUM) @B@@@@ EC )@@G@@ ADD COUNT-9 TO TOT-TRK (NUM)@A@@@@ ADD COUNT-9 TO TOT-ED )@@G@@TRKS @A@@@@ ADD 1 TO TOT-DISC-F. @^@@@@ 3300-COUNT-EE )@@G@@POS. @@@@@@@ @@@@ SEARCH ALL XABLE @^@@@@ ATEF )@@G@@ END @B@@@@ PERFORM 3600-NO-FIND@D@@@@ EG )@@G@@ WHEN ACCT-NUM (NUM) EQUAL ACCOUNT-HOLD @B@@@@ ADD 1 TO TEH )@@G@@OT-DISC (NUM) @D@@@@ MULTIPLY COUNT-9 BY 64 GIVING COUNEI )@@G@@T-9 @B@@@@ ADD COUNT-9 TO TOT-TRK (NUM)@A@@@@ AEJ )@@G@@DD COUNT-9 TO TOT-TRKS @A@@@@ ADD 1 TO TOT-DISC-F. @^@@@@EK )@@G@@ 3400-COUNT-UN. @^@@@@ MOVE 1 TO SW.@^@@@@ 3500-EL )@@G@@COUNT-BU. @^@@@@ IF SW EQUAL 1@@@@@@@A@@@@ EM )@@G@@ SEARCH ALL XABLE@^@@@@ AT END @B@@@@ EN )@@G@@ PERFORM 3600-NO-FIND@D@@@@ WHEN ACCT-NUM (NUM) EQUAL ACEO )@@G@@COUNT-HOLD @B@@@@ ADD COUNT-9 TO TOT-TRK (NUM)@A@@@@ EP )@@G@@ ADD 1 TO TOT-DISC (NUM) @ @@@@ ADD 1 TO TOT-DISC-F@A@@@@EQ )@@G@@ ADD COUNT-9 TO TOT-TRKS. @ @@@@ MOVE 0 TO SW. ER )@@G@@@^@@@@ 3600-NO-FIND. @A@@@@ MOVE ACCOUNT TO INV-ACT-PES )@@G@@@ @@@@ OLD-ACCT-PCH. @B@@@@ MOVE FILENAME TO FIET )@@G@@LE-NAME-P @ @@@@ FILE-PUNCH. @ @@@@ MOVE QUEU )@@G@@AL TO QUAL-P@ @@@@ QUAL-PUNCH. @A@@@@ MOVE F-EV )@@G@@CYCLE TO CYCLE-P @ @@@@ CYCLE-PUNCH. @B@@@@ MEW )@@G@@OVE CODES TO FILE-TYPE-P. @^@@@@ IF PGNO = 0 @B@@@@ EX )@@G@@ PERFORM 6100-INV-RPT-HEAD. @ @@@@ IF LN-CNT > 46 EY )@@G@@@B@@@@ PERFORM 6100-INV-RPT-HEAD. @D@@@@ WRITE PEZ )@@G@@RINT FROM INV-DET-LINE AFTER 1. @ @@@@ ADD 1 TO LN-CNT. FA )@@G@@@ @@@@ WRITE MFD-PUNCH. @#@@@@ 4000-WRITE.@A@@@@ FB )@@G@@ IF TOT-DISC (NUM) > 0 @#@@@@ OR @A@@@@ FC )@@G@@ TOT-TAPE (NUM) > 0 @B@@@@ PERFORM 4600-WRITE-OUT-FILE.FD )@@G@@@ @@@@ IF NEED-REPORT @B@@@@ PERFORM 4500-WRIFE )@@G@@TE-RPT. @A@@@@ IF NUM EQUAL QUIP-CNT @B@@@@ FF )@@G@@ MOVE 'E' TO TAB-EOF-SWITCH. @^@@@@ 4500-WRITE-RPT. @ @@@@ FG )@@G@@ IF LN-CNT-1 = 0 @A@@@@ PERFORM 6000-HEADING.@C@@@@FH )@@G@@ IF PGNO EQUAL 0 PERFORM 6000-HEADING.@D@@@@ IF LN-CFI )@@G@@NT-1 > 50 PERFORM 6000-HEADING. @C@@@@ MOVE ACCT-NUM (NUM)FJ )@@G@@ TO ACCT-NUM-P. @C@@@@ MOVE TOT-DISC (NUM) TO TOT-DISC-PD. FK )@@G@@@C@@@@ MOVE TOT-TRK (NUM) TO TOT-TRK-P. @C@@@@ MFL )@@G@@OVE TOT-TAPE (NUM) TO TOT-TAPE-PD. @C@@@@ MOVE TOT-REEL (NUM)FM )@@G@@ TO TOT-REEL-P. @C@@@@ WRITE PRINT FROM DETAIL-LINE AFTER 2.FN )@@G@@@ @@@@ ADD 2 TO LN-CNT-1. @ @@@@ 4600-WRITE-OUT-FILE. FO )@@G@@@A@@@@ MOVE SPACES TO OUT-FILE. @B@@@@ MOVE ACCT-NUMFP )@@G@@ (NUM) TO ACT-NUM.@A@@@@ MOVE EDIT TO O-DATE. @C@@@@ FQ )@@G@@ MOVE TOT-DISC (NUM) TO CAT-DISC-FILE @C@@@@ MOVE TOT-TRK FR )@@G@@(NUM) TO CAT-DISC-TRK @C@@@@ MOVE TOT-TAPE (NUM) TO CAT-TAPEFS )@@G@@-FILE @C@@@@ MOVE TOT-REEL (NUM) TO CAT-TAPE-REEL @ @@@@ FT )@@G@@ WRITE OUT-FILE. @#@@@@ 5000-CLOSE.@ @@@@ ADD 1 FU )@@G@@TO PGNO. @B@@@@ MOVE PGNO TO DEPT-PAGE-NUM. @B@@@@ FV )@@G@@ MOVE TOT-REELS TO TOT-REELS-P @B@@@@ MOVE TOT-TAPE-F TO FW )@@G@@TOT-TAPE-P @B@@@@ MOVE TOT-TRKS TO TOT-TRKS-P @B@@@@ FX )@@G@@ MOVE TOT-DISC-F TO TOT-DISC-P @D@@@@ WRITE PRINT FROM DEFY )@@G@@PT-HEADER-1 AFTER PAGE @D@@@@ WRITE PRINT FROM DEPT-HEADER-2 FZ )@@G@@AFTER 1 @C@@@@ WRITE PRINT FROM HEAD-3 AFTER 2. @C@@@@GA )@@G@@ WRITE PRINT FROM TOT-LINE-1 AFTER 3 @C@@@@ WRITE PGB )@@G@@RINT FROM TOT-LINE-2 AFTER 2 @C@@@@ WRITE PRINT FROM TOT-LINEGC )@@G@@-3 AFTER 2 @C@@@@ WRITE PRINT FROM TOT-LINE-4 AFTER 2 @F@@@@GD )@@G@@ CLOSE SUM-OUT PRINT-FILE VOL-CRD CARDIN PUNCH-FILE. @^@@@@GE )@@G@@ STOP RUN. @^@@@@ 6000-HEADING. @ @@@@ AGF )@@G@@DD 1 TO PGNO. @B@@@@ MOVE PGNO TO DEPT-PAGE-NUM. @D@@@@GG )@@G@@ WRITE PRINT FROM DEPT-HEADER-1 AFTER PAGE. @D@@@@ WGH )@@G@@RITE PRINT FROM DEPT-HEADER-2 AFTER 1. @C@@@@ WRITE PRINT FGI )@@G@@ROM HEAD-3 AFTER 2. @C@@@@ WRITE PRINT FROM HEAD-4 AFTER 2GJ )@@G@@. @ @@@@ MOVE 7 TO LN-CNT-1.@ @@@@ 6100-INV-RPT-HEADGK )@@G@@. @ @@@@ ADD 1 TO PGNO. @B@@@@ MOVE PGNO TO GL )@@G@@DEPT-PAGE-NUM. @D@@@@ WRITE PRINT FROM DEPT-HEADER-1 AFTER GM )@@G@@PAGE. @D@@@@ WRITE PRINT FROM DEPT-HEADER-2 AFTER 1. @C@@@@GN )@@G@@ WRITE PRINT FROM HEAD-5 AFTER 2. @C@@@@ WRITE PGO )@@G@@RINT FROM HEAD-6 AFTER 2. @A@@@@ MOVE SPACES TO PRINT. GP )@@G@@@A@@@@ WRITE PRINT AFTER 1. @ @@@@ MOVE 7 TO LN-GQ )@@G@@CNT. ___ WRITE PRINT FROM HEAD-6 AFTER 2. @A@@@@ MGR )@@G@@OVE SPACES TO PRINT. *[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONGS )@@G@@. @ @@@@ PROGRAM-ID. H1550060. @ @@@@ AUTHOR. CURTIS WHGT )@@G@@ITE. @ @@@@ DATE-WRITTEN. MAY 78. @^@@@@ DATE-COMPILED. GU )@@G@@@ @@@@ *REMARKS. ASCII ANS-1974@]@@@@ * @A@@@@ * GV )@@G@@ **ASCII** @E@@@@ * PROGRAM H1550060 READS BOTHGW )@@G@@ THE LABELED TAPE @E@@@@ * LIBRARY AND THE UNLABELED TAPE LIGX )@@G@@BRARY FILE @D@@@@ * SELECTING ACCOUNT RELATED TAPE COUNT GY )@@G@@@E@@@@ * INFORMATION FOR THE JOB ACCOUNTING SYSTEM. @E@@@@GZ )@@G@@ * THE PROGRAM BUILDS A TABLE OF VALID ACCOUNT @E@@@@ HA )@@G@@* NUMBERS USING TABLE-DISC-A,DECODE 16. SINCE @E@@@@ * HB )@@G@@ THE ACCOUNT NUMBER FIELD IN BOTH LIBRARIES @D@@@@ * AREHC )@@G@@ THE ACCOUNT NUMBERS UNDER WHICH THE@E@@@@ * INDIVIDUAL TAPEHD )@@G@@S WERE CREATED,THE PROGRAM @E@@@@ * READS EACH RECORD,SEAHE )@@G@@RCHES THE ACCOUNT TABLE,@E@@@@ * AND ON A VALID ACCOUNT ADDSHF )@@G@@ TO THE TOTAL @D@@@@ * FIELD FOR THAT ACCOUNT. IF ANY NOHG )@@G@@ FINDS@E@@@@ * RESULT FROM THE ACCOUNT TABLE SEARCH THE HH )@@G@@@E@@@@ * INCOMING RECORD SHOULD BE DISPLAYED ON THE @E@@@@HI )@@G@@ * PRINTER. WHEN BOTH FILES HAVE REACHED EOF @D@@@@ HJ )@@G@@* A RECORD FOR EACH ACCOUNT NUMBER IN THE@B@@@@ * TABHK )@@G@@LE WILL BE WRITTEN. @ @@@@ * CHANGE 10 MAY 80 @C@@@@ HL )@@G@@* CONVERT TO ANS 1974 COBOL (ACOB4). @]@@@[ * @C@@@[ HM )@@G@@* CHANGE #2 05/21/80 D. HEROLD @E@@@[ * CONVERT UNLABHN )@@G@@-TPLIB FILE TO ACOB SEQUENTIAL WITH @A@@@[ * FIELDATA INTERNAL CHO )@@G@@ODE. @]@@@@ * @ @@@@ ENVIRONMENT DIVISION. @ @@@@ HP )@@G@@ CONFIGURATION SECTION. @ @@@@ COPY COMPUTER-NAMES. @^@@@@ HQ )@@G@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NAMES. @ @@@@ INPUTHR )@@G@@-OUTPUT SECTION. @^@@@@ FILE-CONTROL. @^@@@@ SELECT HS )@@G@@CARDIN@B@@@@ ASSIGN TO CARD-READER. @ @@@@ SHT )@@G@@ELECT LABELED @D@@@@ ASSIGN TO MASS-STORAGE LABEL-THU )@@G@@PLIB @C@@@@ ACCESS MODE IS SEQUENTIAL @B@@@@ HV )@@G@@ ORGANIZATION IS INDEXED @B@@@@ ACTUAL KEY THW )@@G@@PLIB-KEY. @ @@@@ SELECT UNLABEL @D@[@@ HX )@@G@@ASSIGN TO UNISERVO UNLAB-TPLIB. @E@@@[ ASSIGN TO SEHY )@@G@@QUENTIAL-FILE UNLAB-TPLIB. @ @@@@ SELECT COUNT-OUT @D@@@@HZ )@@G@@ ASSIGN TO MASS-STORAGE LIB-SUMMARY. @ @@@@ SIA )@@G@@ELECT PRINT-FILE @C@@@@ ASSIGN TO PRINTER LIB-SUM-RPT.IB )@@G@@@ @@@@ SELECT PUNCH-FILE @D@@@@ ASSIGN TO CIC )@@G@@ARD-PUNCH LIB-TRANS. @^@@@@ DATA DIVISION. @^@@@@ FILE ID )@@G@@SECTION. @#@@@@ FD LABELED@B@@@@ BLOCK CONTAINS 1344IE )@@G@@ CHARACTERS @A@@@@ LABEL RECORD IS STANDARD @B@@@@ RIF )@@G@@ECORD CONTAINS 114 CHARACTERS @A@@@@ DATA RECORD IS LABTAPE. IG )@@G@@@D@@@@ 01 LABTAPE PICTURE X(114) DISPLAY-1.@#@@@@ IH )@@G@@ FD UNLABEL@A@@@@ BLOCK CONTAINS 20 RECORDS@B@@@@ RII )@@G@@ECORD CONTAINS 80 CHARACTERS @B@@@@ LABEL RECORDS ARE STANDARIJ )@@G@@D @A@[@@ RECORDING MODE IS CFH AN @A@@@@ DATA REIK )@@G@@CORD IS UNLTAPE. @C@@@@ 01 UNLTAPE DISPLAY-1. IL )@@G@@@D@@@@ 02 REEL-NO-U PICTURE XXXX. @^@@@@ IM )@@G@@ 02 COUNTU. @D@@@@ 03 COUNT-1 PICTURE XIN )@@G@@. @D@@@@ 03 COUNT-2 PICTURE X. @ @@@@IO )@@G@@ 02 PROGRAM-NO. @D@@@@ 03 PROG-1 IP )@@G@@ PICTURE X. @D@@@@ 03 PROG-234 PICTURE XIQ )@@G@@XX. @D@@@@ 03 PROG-5678 PICTURE XXXX. @D@@@@IR )@@G@@ 02 OPERATOR PICTURE XX. @A@@@@ 0IS )@@G@@2 CREATION-DATE-U. @D@@@@ 03 CREA-MO PICIT )@@G@@TURE XX. @D@@@@ 03 CREA-DA PICTURE XX. IU )@@G@@@D@@@@ 03 CREA-YR PICTURE XX. @A@@@@ IV )@@G@@ 02 EXPIRATION-DATE. @D@@@@ 03 EXP-MO IW )@@G@@ PICTURE XX. @D@@@@ 03 EXP-DA PICTURE XIX )@@G@@X. @D@@@@ 03 EXP-YR PICTURE XX. @D@@@@IY )@@G@@ 02 FILE-ID-U PICTURE X(17). @D@@@@ 0IZ )@@G@@2 REMARK PICTURE X(35). @^@@@@ FD COUNT-OUT JA )@@G@@@B@@@@ LABEL RECORDS ARE STANDARD @B@@@@ RECORD JB )@@G@@CONTAINS 30 CHARACTERS @A@@@@ BLOCK CONTAINS 37 RECORDS@A@@@@JC )@@G@@ DATA RECORD IS OTAPE. @#@@@@ 01 OTAPE. @E@@@@ JD )@@G@@ 02 ACT-NUM PICTURE X(12) DISP-1.@^@@@@ 0JE )@@G@@2 O-DATE. @E@@@@ 05 O-YY PICTURE 99 DISPJF )@@G@@-1. @E@@@@ 05 O-MM PICTURE 99 DISP-1. JG )@@G@@@E@@@@ 05 O-DD PICTURE 99 DISP-1. @F@@@@JH )@@G@@ 02 LABELED-CNT PICTURE S9(10) COMP-4. @F@@@@JI )@@G@@ 02 UNLABEL-CNT PICTURE S9(10) COMP-4. @^@@@@JJ )@@G@@ FD PRINT-FILE @A@@@@ LABEL RECORDS ARE OMITTED@A@@@@JK )@@G@@ DATA RECORD IS PRINT. @D@@@@ 01 PRINT JL )@@G@@ PICTURE X(132).@#@@@@ FD CARDIN @A@@@@ LABEL RJM )@@G@@ECORDS ARE OMITTED@A@@@@ DATA RECORD IS CARD. @D@@@@ JN )@@G@@ 01 CARD PIC X(80). @^@@@@ FD PUNCH-FJO )@@G@@ILE @B@@@@ RECORD CONTAINS 80 CHARACTERS @A@@@@ LJP )@@G@@ABEL RECORDS ARE OMITTED@A@@@@ DATA RECORD IS LIB-PUNCH.@^@@@@JQ )@@G@@ 01 LIB-PUNCH. @B@@@@ 02 REEL-NUM PIC X(6). JR )@@G@@@A@@@@ 02 FILLER PIC X.@B@@@@ 02 TYPE-REELJS )@@G@@ PIC XXX. @A@@@@ 02 FILLER PIC X.@B@@@@ JT )@@G@@ 02 OLD-ACCT-NO PIC X(12). @B@@@@ 02 FILLER JU )@@G@@PIC X(57). @A@@@@ WORKING-STORAGE SECTION. @E@@@@ 77 PJV )@@G@@GNO VALUE ZERO PICTURE 9(5). @F@@@@ 77 DATE-6 JW )@@G@@ PICTURE X(6) DISPLAY-1. @F@@@@ 77 DATE-8 JX )@@G@@ PICTURE X(8) DISPLAY-1. @F@@@@ 77 DATE-SLJY )@@G@@ASH VALUE '2' PICTURE X DISPLAY-1. @C@@@@ 77 NUMS JZ )@@G@@ PICTURE 999. @E@@@@ 77 LN-CNT VALUE ZERO KA )@@G@@ PICTURE 999. @D@@@@ 77 NO-ACCOUNT VALUE ZERO PKB )@@G@@ICTURE 9(5).@D@@@@ 77 TOT-LAB VALUE ZERO PICTURE 9(5).KC )@@G@@@D@@@@ 77 TOT-UNL VALUE ZERO PICTURE 9(5).@D@@@@ KD )@@G@@ 77 SUB PICTURE 999. @E@@@@ 77 QUIP-CNKE )@@G@@T PIC 9(10) COMP. @E@@@@ 01 SW-CARDIN-EOFKF )@@G@@ PIC X VALUE 'N'. @E@@@@ 88 CARDIN-EOF KG )@@G@@ VALUE 'Y'. @^@@@@ 01 CONTROL-CARD.@D@@@@ KH )@@G@@ 02 CARD-INFO PIC X(15). @C@@@@ 02 NEEKI )@@G@@D-RPT PIC 9. @D@@@@ 02 FILLER KJ )@@G@@ PIC X(64). @#@@@@ 01 EDATE. @D@@@@ 05 MM KK )@@G@@ PICTURE XX. @D@@@@ 05 DD KL )@@G@@ PICTURE XX. @D@@@@ 05 YY PICTURE XKM )@@G@@X. @#@@@@ 01 EDIT. @D@@@@ 05 YY KN )@@G@@ PICTURE XX. @D@@@@ 05 MM PICTURE XKO )@@G@@X. @D@@@@ 05 DD PICTURE XX. @^@@@@KP )@@G@@ COPY DEPT-HEADER.@#@@@@ 01 HEAD-3.@D@@@@ 02 FILKQ )@@G@@LER VALUE SPACES PICTURE X(49). @E@@@@ 02 FILLER KR )@@G@@ PICTURE X(34) VALUE@D@@@@ 'TAPE LIBRARY SUMMARYKS )@@G@@ BY ACCOUNT NO'. @D@@@@ 02 FILLER VALUE SPACES PICTURE XKT )@@G@@(49). @#@@@@ 01 HEAD-4.@E@@@@ 02 FILLER KU )@@G@@ PICTURE X(48) VALUE@F@@@@ 'THE FOLLOWING TAPES HAVE IKV )@@G@@NVALID ACCOUNT NUMBERS'.@D@@@@ 02 FILLER VALUE SPACES PICKW )@@G@@TURE X(84). @#@@@@ 01 HEAD-5.@E@@@@ 02 FILLER KX )@@G@@ PICTURE X(50) VALUE@G@@@@ ' REEL NO. KY )@@G@@ ACCT. NO. TYPE'. @#@@@@ 01 HEAD-6.@E@@@@ KZ )@@G@@ 02 FILLER PIC X(54) VALUE @G@@@@ LA )@@G@@ ' ACCOUNT LABELED TAPES UNLABELED TAPES'.@F@@@@ LB )@@G@@ 02 FILLER PIC X(78) VALUE SPACES. @^@@@@ LC )@@G@@ 01 PRINT-LINE. @D@@@@ 02 FILLER VALUE SPACES PICTURE XLD )@@G@@(11). @D@@@@ 02 REEL-NO-P PICTURE X(6). @D@@@@LE )@@G@@ 02 FILLER VALUE SPACES PICTURE X(8). @D@@@@ 0LF )@@G@@2 ACCT-NO PICTURE X(12). @D@@@@ 02 FILLER LG )@@G@@VALUE SPACES PICTURE X(9). @C@@@@ 02 TYPE-P LH )@@G@@ PIC X(5).@F@@@@ 02 FILLER PIC X(81) VALUELI )@@G@@ SPACES. @^@@@@ 01 DETAIL-LINE. @F@@@@ 02 FILLER LJ )@@G@@ PIC X(6) VALUE SPACE. @D@@@@ 02 ACCT-N-P LK )@@G@@ PIC X(12). @E@@@@ 02 FILLER LL )@@G@@ PIC XXX VALUE SPACES.@D@@@@ 02 LABEL-P PICLM )@@G@@ ZZ,ZZ9. @F@@@@ 02 FILLER PIC X(16) VALUELN )@@G@@ SPACE. @D@@@@ 02 UNLABEL-P PIC ZZ,ZZ9. LO )@@G@@@F@@@@ 02 FILLER PIC X(81) VALUE SPACE. LP )@@G@@@^@@@@ 01 TOTAL-LINE. @F@@@@ 02 FILLER LQ )@@G@@ PICTURE X(24) VALUE @B@@@@ 'TOTAL TAPES UNALLOCATLR )@@G@@ED '. @E@@@@ 02 NO-ACCT-P PICTURE ZZZZ9. LS )@@G@@@F@@@@ 02 FILLER PICTURE X(29) VALUE LT )@@G@@@C@@@@ ' LABELED TAPES ALLOCATED '. @E@@@@ 0LU )@@G@@2 TOT-LAB-P PICTURE ZZZZ9. @F@@@@ 02 FILLV )@@G@@LER PICTURE X(31) VALUE @C@@@@ ' LW )@@G@@ UNLABELED TAPES ALLOCATED '.@E@@@@ 02 TOT-UNL-P LX )@@G@@ PICTURE ZZZZ9. @E@@@@ 02 FILLER PICTURE X(33) LY )@@G@@ VALUE SPACES.@^@@@@ 01 QUIP-CARD. @E@@@@ 03 QUIPLZ )@@G@@-COMMAND PIC X(15). @E@@@@ 03 QUIP-ACCNTMA )@@G@@ PIC X(12). @E@@@@ 03 FILLER MB )@@G@@ PIC X(53). @B@@@@ 01 DATA-NAME. COPY LABELTAPEMC )@@G@@LIB. @^@@@@ 01 ACCOUNT-HOLD.@D@@@@ 02 ACCT-ALPHA MD )@@G@@ PICTURE X. @D@@@@ 02 ACCT-NUM-H PICME )@@G@@TURE XXX. @D@@@@ 02 ACCT-FILL PICTURE X(8). MF )@@G@@@^@@@@ 01 TABLE-C. @F@@@@ 02 XABLE OCCURS 001 TO 9MG )@@G@@99 TIMES DEPENDING ON QUIP-CNT@D@@@@ ASCENDING KEY IS ACCT-NMH )@@G@@UM INDEXED BY NUM.@ @@@@ 05 ACCT-NUM. @E@@@@ MI )@@G@@ 07 ACCT-NUM-1 PIC X. @E@@@@ MJ )@@G@@07 ACCT-NUM-3 PIC XXX. @E@@@@ 07 ACMK )@@G@@CT-NUM-8 PIC X(8). @D@@@@ 05 LAB-COUNT ML )@@G@@ PICTURE S9(4). @D@@@@ 05 UN-COUNT PICMM )@@G@@TURE S9(4). @E@@@@ 01 DISC-EOF-SWITCH PIC X VALUE SPMN )@@G@@ACE. @B@@@@ 88 END-OF-DISC VALUE 'E'.@F@@@@ 01 TMO )@@G@@AB-EOF-SWITCH PIC X VALUE SPACE. @B@@@@ 8MP )@@G@@8 END-OF-TABLE VALUE 'E'.@E@@@@ 01 LABELED-EOF-SWITCH MQ )@@G@@ PIC X VALUE SPACE. @B@@@@ 88 END-OF-LABELED VALUE 'E'.MR )@@G@@@E@@@@ 01 UNLABEL-EOF-SWITCH PIC X VALUE SPACE. @B@@@@MS )@@G@@ 88 END-OF-UNLABEL VALUE 'E'.@F@@@@ 01 TAB-IS-FILLEDMT )@@G@@ PIC X VALUE SPACE. @C@@@@ 88 TABLE-IS-MU )@@G@@FILLED VALUE 'E'. @E@@@@ 01 NO-ACCT-SWITCH PMV )@@G@@IC X VALUE SPACE.@C@@@@ 88 NO-ACCT-NUM VALUE 'E'. MW )@@G@@@E@@@@ 01 RPT-SW PIC X VALUE SPACE. @C@@@@MX )@@G@@ 88 RPT-BY-ACCT-NEEDED VALUE 'E'. @E@@@@ 01 TPLIB-KMY )@@G@@EY PICTURE X(6) DISPLAY-1. @ @@@@ PROCEDURE DIVISIOMZ )@@G@@N. @^@@@@ 1000-INITIALIZE. @ @@@@ OPEN INPUT LABELED.NA )@@G@@@ @@@@ OPEN INPUT UNLABEL.@ @@@@ OPEN INPUT CARDIN. NB )@@G@@@A@@@@ OPEN OUTPUT COUNT-OUT. @A@@@@ OPEN OUTPUT PNC )@@G@@RINT-FILE. @A@@@@ OPEN OUTPUT PUNCH-FILE. @C@@@@ END )@@G@@NTER FD 'GETDATE' USING DATE-6. @F@@@@ ENTER FD 'DATEDIT' NE )@@G@@USING DATE-6 DATE-8 DATE-SLASH. @A@@@@ MOVE DATE-8 TO DEPTNF )@@G@@-DATE.@A@@@@ MOVE DATE-6 TO EDATE. @A@@@@ MOVE CONG )@@G@@RR EDATE TO EDIT. @C@@@@ MOVE 'H1550060' TO DEPT-PROGRAM-NUM. NH )@@G@@@B@@@@ MOVE 'H15501' TO DEPT-RUN-ID. @A@@@@ PERFORMNI )@@G@@ 6100-HEADING. @A@@@@ MOVE SPACES TO TABLE-C @ @@@@ NJ )@@G@@ LIB-PUNCH. @B@@@@ PERFORM 1200-READ-CONTROL-CARD.NK )@@G@@@A@@@@ PERFORM 2000-BUILD-TABLE.@D@@@@ PERFORM 3100-NL )@@G@@COUNT-LABELED THRU 3100-EXIT @A@@@@ UNTIL END-OF-LABELED. NM )@@G@@@D@@@@ PERFORM 4100-COUNT-UNLABEL THRU 4100-EXIT @A@@@@ NN )@@G@@ UNTIL END-OF-UNLABEL. @A@@@@ IF RPT-BY-ACCT-NEEDED NO )@@G@@@A@@@@ PERFORM 6110-HEADING. @E@@@@ PERFORM 5000-NP )@@G@@WRITE VARYING NUMS FROM 1 BY 1 UNTIL@ @@@@ END-OF-TABLE. NQ )@@G@@@ @@@@ PERFORM 6000-CLOSE.@ @@@@ 1200-READ-CONTROL-CARD.NR )@@G@@@B@@@@ READ CARDIN INTO CONTROL-CARD @^@@@@ ATNS )@@G@@ END @G@@@@ DISPLAY 'NO CONTROL CARD FOR H1550060' UPON PNT )@@G@@RINT-DEVICE @A@@@@ ENTER FD 'ABORT'. @C@@@@ INU )@@G@@F CARD-INFO EQUAL 'PARAMETER CARD ' @ @@@@ NEXT SENTENCE NV )@@G@@@#@@@@ ELSE @G@@@@ DISPLAY 'PARAMETER CARD ERRONW )@@G@@R H1550060' UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'. NX )@@G@@@A@@@@ IF NEED-RPT EQUAL '1' @A@@@@ MOVE 'E' TNY )@@G@@O RPT-SW. @^@@@@ 2000-BUILD-TABLE.@^@@@@ SET NUM TO 1.NZ )@@G@@@ @@@@ MOVE 0 TO QUIP-CNT.@B@@@@ PERFORM 2100-READ-QOA )@@G@@UIP-CARDS @A@@@@ UNTIL CARDIN-EOF.@ @@@@ 2100-OB )@@G@@READ-QUIP-CARDS. @B@@@@ READ CARDIN INTO QUIP-CARD @D@@@@OC )@@G@@ AT END MOVE 'Y' TO SW-CARDIN-EOF. @ @@@@ IOD )@@G@@F NOT CARDIN-EOF @D@@@@ IF QUIP-COMMAND = 'INSERT ACCOUNT OE )@@G@@' @D@@@@ PERFORM 2200-CHECK-ACCNT-SEQUENCE @B@@@@OF )@@G@@ PERFORM 2300-STORE-ACCNT @#@@@@ ELSE@F@@@@OG )@@G@@ DISPLAY 'ILLEGAL QUIP COMMAND IN QUIP-CARDS' @B@@@@OH )@@G@@ UPON PRINT-DEVICE@A@@@@ ENTER FOI )@@G@@D 'ABORT'. @A@@@@ 2200-CHECK-ACCNT-SEQUENCE. @C@@@@ IOJ )@@G@@F NOT QUIP-ACCNT > ACCOUNT-HOLD @F@@@@ DISPLAY 'ACCOUNTOK )@@G@@ NO ' QUIP-ACCNT 'OUT OF SEQUENCE' @B@@@@ UPON PRIOL )@@G@@NT-DEVICE @ @@@@ ENTER FD 'ABORT'@#@@@@ ELSE OM )@@G@@@C@@@@ MOVE QUIP-ACCNT TO ACCOUNT-HOLD. @^@@@@ 2300-ON )@@G@@STORE-ACCNT.@ @@@@ ADD 1 TO QUIP-CNT. @C@@@@ MOVE QUOO )@@G@@IP-ACCNT TO ACCT-NUM (NUM). @A@@@@ MOVE 0 TO LAB-COUNT (NUM)OP )@@G@@@A@@@@ UN-COUNT (NUM).@ @@@@ SET NUM UP BYOQ )@@G@@ 1. @ @@@@ 3100-COUNT-LABELED. @B@@@@ READ LABELED OR )@@G@@INTO DATA-NAME @^@@@@ AT END @C@@@@ MOOS )@@G@@VE 'E' TO LABELED-EOF-SWITCH @A@@@@ GO TO 3100-EXIT. OT )@@G@@@C@@@@ MOVE ACCOUNT-NO TO ACCOUNT-HOLD. @B@@@@ POU )@@G@@ERFORM 6200-CONVERT-LABELED. @B@@@@ IF NO-ACCT-NUM GO TO 3100OV )@@G@@-EXIT.@C@@@@ IF TIME-OF-LAST-UPDATE NEXT SENTENCE @#@@@@ OW )@@G@@ ELSE @ @@@@ SEARCH ALL XABLE @^@@@@ OX )@@G@@AT END@B@@@@ PERFORM 3300-NO-FIND @E@@@@ OY )@@G@@ WHEN ACCT-NUM (NUM) EQUAL ACCOUNT-HOLD @B@@@@ ADDOZ )@@G@@ 1 TO LAB-COUNT (NUM) @ @@@@ ADD 1 TO TOT-LAB. @#@@@@ PA )@@G@@ 3100-EXIT. @#@@@@ EXIT. @^@@@@ 3300-NO-FIND. @A@@@@PB )@@G@@ MOVE 'L' TO TYPE-REEL. @A@@@@ MOVE 'LAB' TO TYPE-PC )@@G@@P. @B@@@@ MOVE ACCOUNT-NO TO ACCT-NO @ @@@@ PD )@@G@@ OLD-ACCT-NO. @A@@@@ MOVE REEL-NO TO REEL-NO-P@^@@@@ PE )@@G@@ REEL-NUM.@C@@@@ IF LN-CNT > 46 PERFORM 6100-HEADING. PF )@@G@@@C@@@@ WRITE PRINT FROM PRINT-LINE AFTER 1. @ @@@@ APG )@@G@@DD 1 TO LN-CNT. @ @@@@ WRITE LIB-PUNCH. @ @@@@ 4100-PH )@@G@@COUNT-UNLABEL. @^@@@@ READ UNLABEL @^@@@@ ATPI )@@G@@ END @C@@@@ MOVE 'E' TO UNLABEL-EOF-SWITCH @A@@@@ PJ )@@G@@ GO TO 4100-EXIT. @B@@@@ PERFORM 6300-CONVERT-UNLAPK )@@G@@BELED.@B@@@@ IF NO-ACCT-NUM GO TO 4100-EXIT.@^@@@@ SPL )@@G@@ET NUM TO 1.@^@@@@ SEARCH XABLE@^@@@@ AT ENDPM )@@G@@@B@@@@ PERFORM 4200-NO-FIND @E@@@@ WHEN ACPN )@@G@@CT-NUM-3 OF ACCT-NUM (NUM) = PROG-234 @A@@@@ ADD 1 TO UN-CPO )@@G@@OUNT (NUM) @ @@@@ ADD 1 TO TOT-UNL. @#@@@@ 4100-EXIT. PP )@@G@@@#@@@@ EXIT. @^@@@@ 4200-NO-FIND. @A@@@@ MPQ )@@G@@OVE 'UN' TO TYPE-REEL. @A@@@@ MOVE 'UNLAB' TO TYPE-P. @B@@@@PR )@@G@@ MOVE PROGRAM-NO TO ACCT-NO @ @@@@ OLD-ACCT-PS )@@G@@NO. @B@@@@ MOVE REEL-NO-U TO REEL-NO-P @^@@@@ PT )@@G@@ REEL-NUM.@C@@@@ IF LN-CNT > 46 PERFORM 6100-HEADING. @D@@@@PU )@@G@@ WRITE PRINT FROM PRINT-LINE AFTER 1. @ @@@@ APV )@@G@@DD 1 TO LN-CNT. @ @@@@ WRITE LIB-PUNCH. @#@@@@ 5000-PW )@@G@@WRITE.@ @@@@ SET NUM TO NUMS. @A@@@@ IF LAB-COUNT PX )@@G@@(NUM) > 0 @#@@@@ OR @A@@@@ UN-COUNT (NUM) >PY )@@G@@ 0 @B@@@@ PERFORM 5100-WRITE-OTAPE. @A@@@@ IPZ )@@G@@F RPT-BY-ACCT-NEEDED @D@@@@ IF LN-CNT > 45 PERFORM 6110-QA )@@G@@HEADING. @A@@@@ IF RPT-BY-ACCT-NEEDED @C@@@@ QB )@@G@@ MOVE ACCT-NUM (NUM) TO ACCT-N-P @C@@@@ MOVE LAB-COUNT (QC )@@G@@NUM) TO LABEL-P @C@@@@ MOVE UN-COUNT (NUM) TO UNLABEL-P QD )@@G@@@D@@@@ WRITE PRINT FROM DETAIL-LINE AFTER 2 @ @@@@ QE )@@G@@ ADD 2 TO LN-CNT.@A@@@@ IF NOT NUMS < QUIP-CNT @B@@@@QF )@@G@@ MOVE 'E' TO TAB-EOF-SWITCH. @^@@@@ 5100-WRITE-OTAPE.QG )@@G@@@A@@@@ MOVE SPACES TO OTAPE. @B@@@@ MOVE ACCT-NUMQH )@@G@@ (NUM) TO ACT-NUM.@A@@@@ MOVE EDIT TO O-DATE. @C@@@@ QI )@@G@@ MOVE LAB-COUNT (NUM) TO LABELED-CNT. @C@@@@ MOVE UN-COUNTQJ )@@G@@ (NUM) TO UNLABEL-CNT. @^@@@@ WRITE OTAPE. @#@@@@ 6000-QK )@@G@@CLOSE.@B@@@@ MOVE NO-ACCOUNT TO NO-ACCT-P @A@@@@ MQL )@@G@@OVE TOT-LAB TO TOT-LAB-P@A@@@@ MOVE TOT-UNL TO TOT-UNL-P@C@@@@QM )@@G@@ WRITE PRINT FROM TOTAL-LINE AFTER 3. @F@@@@ CLOSE LQN )@@G@@ABELED, CARDIN, UNLABEL, COUNT-OUT, PRINT-FILE, @ @@@@ PUNQO )@@G@@CH-FILE. @^@@@@ STOP RUN. @^@@@@ 6100-HEADING. QP )@@G@@@^@@@@ ADD 1 TO PGNO@B@@@@ MOVE PGNO TO DEPT-PAGE-NUQQ )@@G@@M @D@@@@ WRITE PRINT FROM DEPT-HEADER-1 AFTER PAGE @D@@@@QR )@@G@@ WRITE PRINT FROM DEPT-HEADER-2 AFTER 1 @B@@@@ WQS )@@G@@RITE PRINT FROM HEAD-3 AFTER 1@B@@@@ WRITE PRINT FROM HEAD-4 AQT )@@G@@FTER 3@B@@@@ WRITE PRINT FROM HEAD-5 AFTER 2@ @@@@ MQU )@@G@@OVE 0 TO LN-CNT @A@@@@ MOVE SPACES TO PRINT @A@@@@ QV )@@G@@ WRITE PRINT AFTER 1. @^@@@@ 6110-HEADING. @^@@@@ QW )@@G@@ ADD 1 TO PGNO@B@@@@ MOVE PGNO TO DEPT-PAGE-NUM @D@@@@QX )@@G@@ WRITE PRINT FROM DEPT-HEADER-1 AFTER PAGE @D@@@@ WQY )@@G@@RITE PRINT FROM DEPT-HEADER-2 AFTER 1 @B@@@@ WRITE PRINT FQZ )@@G@@ROM HEAD-3 AFTER 1@B@@@@ WRITE PRINT FROM HEAD-6 AFTER 3@ @@@@RA )@@G@@ MOVE 0 TO LN-CNT @A@@@@ MOVE SPACES TO PRINT RB )@@G@@@A@@@@ WRITE PRINT AFTER 1. @ @@@@ 6200-CONVERT-LABERC )@@G@@LED. @B@@@@ MOVE SPACE TO NO-ACCT-SWITCH. @A@@@@ IRD )@@G@@F ACCT-ALPHA EQUAL 'U' @B@@@@ IF ACCT-NUM-H EQUAL 'NIV' RE )@@G@@@B@@@@ MOVE '152' TO ACCT-NUM-H@B@@@@ RF )@@G@@MOVE 'H' TO ACCT-ALPHA @C@@@@ MOVE ALL SPACES TO ACCT-RG )@@G@@FILL. @A@@@@ IF ACCT-ALPHA EQUAL 'I' @B@@@@ IF RH )@@G@@ACCT-NUM-H EQUAL 'NST' @B@@@@ MOVE '158' TO ACCT-NUM-HRI )@@G@@@B@@@@ MOVE 'H' TO ACCT-ALPHA @C@@@@ RJ )@@G@@MOVE ALL SPACES TO ACCT-FILL. @A@@@@ IF ACCT-ALPHA EQUAL 'T' RK )@@G@@@B@@@@ IF ACCT-NUM-H EQUAL 'IP$' @B@@@@ RL )@@G@@MOVE '158' TO ACCT-NUM-H@B@@@@ MOVE 'H' TO ACCT-ALPHA RM )@@G@@@C@@@@ MOVE ALL SPACES TO ACCT-FILL. @B@@@@ IRN )@@G@@F ACCT-ALPHA EQUAL SPACES @B@@@@ IF ACCT-NUM-H EQUAL SRO )@@G@@PACES @ @@@@ ADD 1 TO NO-ACCOUNT@B@@@@ MOVE 'E' TO NRP )@@G@@O-ACCT-SWITCH. @ @@@@ 6300-CONVERT-UNLABELED.@B@@@@ MRQ )@@G@@OVE SPACE TO NO-ACCT-SWITCH. @ @@@@ IF PROG-1 EQUAL 'U'@B@@@@RR )@@G@@ IF PROG-234 EQUAL 'NIV' @B@@@@ MOVE '1RS )@@G@@52' TO PROG-234. @ @@@@ IF PROG-1 EQUAL 'I'@B@@@@ RT )@@G@@ IF PROG-234 EQUAL 'NST' @B@@@@ MOVE '158' TO PROG-RU )@@G@@234. @ @@@@ IF PROG-1 EQUAL 'T'@B@@@@ IF PROG-23RV )@@G@@4 EQUAL 'IP$' @B@@@@ MOVE '158' TO PROG-234. @A@@@@RW )@@G@@ IF PROG-1 EQUAL SPACES @B@@@@ IF PROG-234 EQUARX )@@G@@L SPACES @ @@@@ ADD 1 TO NO-ACCOUNT@B@@@@ MOVE 'ERY )@@G@@' TO NO-ACCT-SWITCH. ___@@@ 01 TABLE-C. @F@@@@ 0RZ )@@G@@2 XABLE OCCURS 001 TO 9*[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONSA )@@G@@. @ @@@@ PROGRAM-ID. H1550070. @ @@@@ AUTHOR. MARK HARRSB )@@G@@ISON. @^@@@@ DATE-COMPILED. @ @@@@ DATE-WRITTEN. JUNE 78. SC )@@G@@@ @@@@ *REMARKS. ASCII ANS-1974@]@@@@ * @A@@@@ * SD )@@G@@ ***ASCII***@D@@@@ * THIS PROGRAM WILL READ CARDSSE )@@G@@ CONTAINING @E@@@@ * INFORMATION CONCERNING THE NUMBER OF TAPSF )@@G@@ES @E@@@@ * AND THE AMOUNT OF DISC SPACE THAT EACH FILE SG )@@G@@@D@@@@ * IS USING. TOTALS WILL BE CALCULATED BY @E@@@@ SH )@@G@@* ACCOUNT NUMBER AND INSERTED INTO DAILY-IN. @ @@@@ * CSI )@@G@@HANGE 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOL (ACOB4). SJ )@@G@@@]@@@@ * @ @@@@ ENVIRONMENT DIVISION. @ @@@@ CONFISK )@@G@@GURATION SECTION. @ @@@@ COPY COMPUTER-NAMES. @^@@@@ SPECISL )@@G@@AL-NAMES. @ @@@@ COPY DEVICE-NAMES. @ @@@@ INPUT-OUTPUSM )@@G@@T SECTION. @^@@@@ FILE-CONTROL. @ @@@@ SELECT ACCT-FSN )@@G@@ILE @E@@@@ ASSIGN SEQUENTIAL-FILE DAILY-ACCT. SO )@@G@@@B@@@@ SELECT OPTIONAL MFD-SUMMARY @E@@@@ SP )@@G@@ASSIGN TO SEQUENTIAL-FILE MFD-SUMMARY. @B@@@@ SELECT OPTIONSQ )@@G@@AL LIB-SUMMARY @E@@@@ ASSIGN TO SEQUENTIAL-FILE LIB-SR )@@G@@SUMMARY. @A@@@@ SELECT OPTIONAL DAILY-IN @D@@@@ SS )@@G@@ ASSIGN TO SEQUENTIAL-FILE DAILY-IN. @^@@@@ DATA DIVISION. ST )@@G@@@^@@@@ FILE SECTION. @^@@@@ FD MFD-SUMMARY @A@@@@ SU )@@G@@ BLOCK CONTAINS 27 RECORDS@B@@@@ LABEL RECORDS ARE STANDARSV )@@G@@D @A@@@@ DATA RECORD IS MFDSUM. @#@@@@ 01 MFDSUM.SW )@@G@@@E@@@@ 02 MFD-ACT-NUM PIC X(12) DISP-1. @ @@@@SX )@@G@@ 02 O-DATE DISP-1. @D@@@@ 05 O-YY SY )@@G@@ PIC XX DISP-1. @D@@@@ 05 O-MM PIC XX DISZ )@@G@@SP-1. @D@@@@ 05 O-DD PIC XX DISP-1. @E@@@@TA )@@G@@ 02 CAT-DISC-FILE PIC 9(10) COMP-4. @E@@@@ TB )@@G@@ 02 CAT-DISC-TRK PIC 9(10) COMP-4. @E@@@@ 0TC )@@G@@2 CAT-TAPE-FILE PIC 9(10) COMP-4. @E@@@@ 02 CATTD )@@G@@-TAPE-REEL PIC 9(10) COMP-4. @^@@@@ FD LIB-SUMMARY TE )@@G@@@B@@@@ LABEL RECORDS ARE STANDARD @A@@@@ BLOCK CTF )@@G@@ONTAINS 37 RECORDS@A@@@@ DATA RECORD IS LIBSUM. @#@@@@ TG )@@G@@ 01 LIBSUM.@E@@@@ 02 LIB-ACT-NUM PICTURE X(12) DTH )@@G@@ISP-1.@^@@@@ 02 O-DATE . @E@@@@ 05 O-YY TI )@@G@@ PICTURE 99 DISP-1. @E@@@@ 05 O-MM TJ )@@G@@ PICTURE 99 DISP-1. @E@@@@ 05 O-DD PICTK )@@G@@TURE 99 DISP-1. @E@@@@ 02 LABELED-CNT PICTURE 9TL )@@G@@(10) COMP-4.@E@@@@ 02 UNLABEL-CNT PICTURE 9(10) CTM )@@G@@OMP-4.@^@@@@ FD DAILY-IN @B@@@@ BLOCK CONTAINS 3 TN )@@G@@RECORDS @A@@@@ LABEL RECORDS STANDARD @A@@@@ RTO )@@G@@ECORDING MODE INTERNAL. @@@@@@@@@@@@@B@@@@ 01 DAILYIN. COPY DTP )@@G@@LY-ACCT-MST.@@@@@@@@@@@@@^@@@@ FD ACCT-FILE @B@@@@ BTQ )@@G@@LOCK CONTAINS 3 RECORDS @A@@@@ LABEL RECORDS STANDARD TR )@@G@@@A@@@@ RECORDING MODE INTERNAL. @@@@@@@@@@@@@B@@@@ 01 WTS )@@G@@-ACT-REC. COPY DLY-ACCT-MST. @@@@@@@@@@@@@A@@@@ WORKING-STORAGE STT )@@G@@ECTION. @C@@@@ 77 SUB PIC 999. @C@@@@TU )@@G@@ 77 LN-CNT VALUE 0 PIC 999. @C@@@@ 77 TOT-TAPTV )@@G@@E-F VALUE 0 PIC 99999.@C@@@@ 77 TOT-DISC-F VALUE 0 TW )@@G@@ PIC 99999.@D@@@@ 77 TOT-TRKS VALUE 0 PIC 999999999. TX )@@G@@@C@@@@ 77 TOT-REELS VALUE 0 PIC 99999.@E@@@@ 01 DTY )@@G@@AILYEOF PIC 9(10) COMP-4. @D@@@@ 88 DAITZ )@@G@@LY-INPROGRESS VALUE 0. @D@@@@ 01 MFDEOF UA )@@G@@ PIC 9(10) COMP-4.@C@@@@ 88 MFD-INPROGRESS VALUB )@@G@@UE 0. @D@@@@ 01 LIBEOF PIC 9(10) COMP-4.@C@@@@UC )@@G@@ 88 LIB-INPROGRESS VALUE 0. @E@@@@ 01 ALL-EOFUD )@@G@@ PIC 9(10) COMP-4. @B@@@@ 88 ALL-FILESUE )@@G@@-EOF VALUE 3.@B@@@@ 01 MFDTL-HOLD. COPY DLY-ACCT-MST. @ @@@@UF )@@G@@ 01 BINARYZEROHOLD. @E@@@@ 02 BINARYZ OCCURS 350 TIUG )@@G@@MES PIC 9(10) COMP-4. @B@@@@ *01 DEPT-HEADER-1 COPY DEPT-HEADER.UH )@@G@@@#@@@@ 01 HEAD-3.@F@@@@ 02 FILLER PICUI )@@G@@ X(7) VALUE SPACE. @E@@@@ 02 FILLER PICUJ )@@G@@ X(7) VALUE @ @@@@ 'ACCOUNT'. @F@@@@ 0UK )@@G@@2 FILLER PIC X(11) VALUE SPACE. @E@@@@ 0UL )@@G@@2 FILLER PIC X(19) VALUE @B@@@@ 'TOUM )@@G@@TAL-DISC-FILES '. @E@@@@ 02 FILLER PICUN )@@G@@ X(18) VALUE @A@@@@ 'TOTAL-DISC-TRKS '.@E@@@@ UO )@@G@@ 02 FILLER PIC X(19) VALUE @B@@@@ UP )@@G@@ 'TOTAL-TAPE-FILES '. @E@@@@ 02 FILLER UQ )@@G@@ PIC X(16) VALUE @A@@@@ 'TOTAL-TAPE-REELS'. @F@@@@UR )@@G@@ 02 FILLER PIC X(35) VALUE SPACE. @^@@@@US )@@G@@ 01 CONTROL-CARD.@F@@@@ 02 CARD-INFO PICUT )@@G@@ X(15) VALUE SPACE. @C@@@@ 02 RPT-NEEDED PICUU )@@G@@ 9. @F@@@@ 02 FILLER PIC X(64) VALUE SPACUV )@@G@@E. @C@@@@ 01 END-OF-CARD PIC X. @C@@@@ UW )@@G@@ 88 END-OF-CARDS VALUE 'E'. @E@@@@ 01 TAB-EOF-SWITCUX )@@G@@H PIC X VALUE SPACE. @C@@@@ 88 END-OF-TABLE UY )@@G@@ VALUE 'E'. @E@@@@ 01 DISC-EOF-SWITCH PIC X VALUZ )@@G@@UE SPACE. @C@@@@ 88 END-OF-DISC VALUE 'E'. @E@@@@VA )@@G@@ 01 TAB-IS-FILLED PIC X VALUE SPACE. @C@@@@ VB )@@G@@ 88 TABLE-IS-FILLED VALUE 'E'. @E@@@@ 01 RPT-NEEDED-SWVC )@@G@@ PIC X VALUE SPACE. @B@@@@ 88 NEED-REPORT VD )@@G@@VALUE 'E'. @E@@@@ 01 ALL-CARDS-SW PIC X VALUE SVE )@@G@@PACE. @B@@@@ 88 ALL-CARDS-IN VALUE 'E'. @#@@@@ 01 EVF )@@G@@DATE. @C@@@@ 05 MM PIC XX. @C@@@@ VG )@@G@@ 05 DD PIC XX. @C@@@@ 05 YY VH )@@G@@ PIC XX. @#@@@@ 01 EDIT. @C@@@@ 05 YY VI )@@G@@ PIC XX. @C@@@@ 05 MM VJ )@@G@@ PIC XX. @C@@@@ 05 DD PIC XX. @^@@@@VK )@@G@@ 01 QUIP-CARD. @C@@@@ 03 QUIP-COMMAND PIC XVL )@@G@@(15). @C@@@@ 03 QUIP-ACCNT PIC X(12). @C@@@@ VM )@@G@@ 03 FILLER PIC X(53). @@@@@@@^@@@@ 01 ACCOUNTVN )@@G@@-HOLD.@C@@@@ 02 ACCT-ALPHA PIC X. @C@@@@ VO )@@G@@ 02 ACCT-NUM-H PIC XXX. @C@@@@ 02 ACCT-FILLVP )@@G@@ PIC X(8).@ @@@@ *01 ACCOUNT-TABLE. @F@@@@ VQ )@@G@@* 02 XABLE OCCURS 001 TO 999 TIMES DEPENDING ON QUIP-CNT@C@@@@ VR )@@G@@* ASCENDING KEY IS ACCT-NUM @A@@@@ * INDVS )@@G@@EXED BY NUM.@E@@@@ * 05 ACCT-NUM PIC X(12VT )@@G@@). @D@@@@ * 05 TOT-DISC PIC H9(10). @D@@@@VU )@@G@@ * 05 TOT-TRK PIC H9(10). @D@@@@ * VV )@@G@@ 05 TOT-TAPE PIC H9(10). @D@@@@ * 05 TOT-RVW )@@G@@EEL PIC H9(10). @^@@@@ 01 DETAIL-LINE. @F@@@@ VX )@@G@@ 02 FILLER PIC X(7) VALUE SPACE. @E@@@@ VY )@@G@@ 02 ACCT-H-P PIC X VALUE 'H'. @D@@@@ 0VZ )@@G@@2 ACCT-NUM-P PIC X(11). @F@@@@ 02 FILLER WA )@@G@@ PIC X(8) VALUE SPACE. @E@@@@ 02 TOT-DISC-WB )@@G@@PD PIC Z,ZZZ,ZZZ,ZZ9. @F@@@@ 02 FILLER WC )@@G@@ PIC X(5) VALUE SPACE. @E@@@@ 02 TOT-TRK-P WD )@@G@@ PIC Z,ZZZ,ZZZ,ZZ9. @F@@@@ 02 FILLER WE )@@G@@ PIC X(6) VALUE SPACE. @E@@@@ 02 TOT-TAPE-PD WF )@@G@@ PIC Z,ZZZ,ZZZ,ZZ9. @F@@@@ 02 FILLER PICWG )@@G@@ X(6) VALUE SPACE. @E@@@@ 02 TOT-REEL-P PICWH )@@G@@ Z,ZZZ,ZZZ,ZZ9. @F@@@@ 02 FILLER PIC X(36)WI )@@G@@ VALUE SPACE. @^@@@@ 01 TOT-LINE-1. @E@@@@ 02 FILWJ )@@G@@LER PIC X(27) VALUE @C@@@@ 'TOTAL CATWK )@@G@@ALOGED DISC FILES '. @C@@@@ 02 TOT-DISC-P PIC ZWL )@@G@@Z,ZZ9.@F@@@@ 02 FILLER PIC X(99) VALUE SPACESWM )@@G@@. @^@@@@ 01 TOT-LINE-2. @E@@@@ 02 FILLER WN )@@G@@ PIC X(28) VALUE @C@@@@ 'TOTAL CATALOGED DISC WO )@@G@@TRACKS '. @D@@@@ 02 TOT-TRKS-P PIC ZZZ,ZZZ,ZZ9. WP )@@G@@@F@@@@ 02 FILLER PIC X(98) VALUE SPACES. WQ )@@G@@@^@@@@ 01 TOT-LINE-3. @D@@@@ 02 FILLER WR )@@G@@ PIC X(27) VALUE@C@@@@ 'TOTAL CATALOGED TAPE FILES '. WS )@@G@@@C@@@@ 02 TOT-TAPE-P PIC ZZ,ZZ9.@F@@@@ 0WT )@@G@@2 FILLER PIC X(99) VALUE SPACES. @^@@@@ 01 TWU )@@G@@OT-LINE-4. @D@@@@ 02 FILLER PIC X(27) VALUEWV )@@G@@@C@@@@ 'TOTAL CATALOGED TAPE REELS '. @C@@@@ 0WW )@@G@@2 TOT-REELS-P PIC ZZ,ZZ9.@F@@@@ 02 FILLER WX )@@G@@ PIC X(99) VALUE SPACES. @ @@@@ PROCEDURE DIVISION. WY )@@G@@@ @@@@ 100-OPEN-AND-CLEAR. @ @@@@ OPEN INPUT DAILY-INWZ )@@G@@@A@@@@ OUTPUT ACCT-FILE. @C@@@@ OPEN INPUT MFXA )@@G@@D-SUMMARY LIB-SUMMARY . @A@@@@ PERFORM 200-CLEAR-BIN @D@@@@XB )@@G@@ VARYING SUB FROM 1 BY 1 UNTIL SUB > 350.@C@@@@ MXC )@@G@@OVE BINARYZEROHOLD TO MFDTL-HOLD. @A@@@@ READ MFD-SUMMARY ATXD )@@G@@ END @C@@@@ MOVE HIGH-VALUES TO MFD-ACT-NUM @A@@@@ XE )@@G@@ MOVE 1 TO MFDEOF @A@@@@ ADD 1 TO ALL-EOF. XF )@@G@@@A@@@@ READ LIB-SUMMARY AT END @C@@@@ MOVE HIGHXG )@@G@@-VALUES TO LIB-ACT-NUM @A@@@@ MOVE 1 TO LIBEOF @A@@@@XH )@@G@@ ADD 1 TO ALL-EOF. @A@@@@ READ DAILY-IN AT ENXI )@@G@@D @E@@@@ MOVE HIGH-VALUES TO AC-ACCOUNT-NO OF DAILYIN XJ )@@G@@@A@@@@ MOVE 1 TO DAILYEOF @A@@@@ ADD 1 TO XK )@@G@@ALL-EOF. @E@@@@ MOVE AC-DATE OF DAILYIN TO AC-DATE OF MFDTLXL )@@G@@-HOLD.@B@@@@ MOVE AC-DAY-OF-WK OF DAILYIN @E@@@@ XM )@@G@@ TO AC-DAY-OF-WK OF MFDTL-HOLD. @F@@@@ PERFORMXN )@@G@@ 300-MERGE-DAILYMFDLIB UNTIL ALL-FILES-EOF. @E@@@@ CLOSE MXO )@@G@@FD-SUMMARY LIB-SUMMARY DAILY-IN ACCT-FILE.@^@@@@ STOP RUN. XP )@@G@@@^@@@@ 200-CLEAR-BIN. @B@@@@ MOVE ZERO TO BINARYZ (SUBXQ )@@G@@). @ @@@@ 300-MERGE-DAILYMFDLIB. @ @@@@ IF DAILY-INPRXR )@@G@@OGRESS@ @@@@ IF MFD-INPROGRESS@A@@@@ IF LIB-INXS )@@G@@PROGRESS @C@@@@ PERFORM 310-MERGE-DAILYMFDLIB @C@@@@XT )@@G@@ ELSE PERFORM 320-MERGE-DAILYMFD @#@@@@ ELSE XU )@@G@@@A@@@@ IF LIB-INPROGRESS @C@@@@ PERFORMXV )@@G@@ 330-MERGE-DAILYLIB @B@@@@ ELSE PERFORM 340-MERGE-DAILY XW )@@G@@@#@@@@ ELSE @C@@@@ IF MFD-INPROGRESS OR LIB-INPRXX )@@G@@OGRESS@B@@@@ PERFORM 350-MERGE-MFDLIB @#@@@@ XY )@@G@@ ELSE @A@@@@ IF ALL-FILES-EOF @ @@@@ NEXZ )@@G@@XT SENTENCE @^@@@@ ELSE @C@@@@ CLOSE MFDYA )@@G@@-SUMMARY LIB-SUMMARY @E@@@@ MOVE ZERO TO DAILYEOF MFDEOYB )@@G@@F LIBEOF ALL-EOF @D@@@@ OPEN INPUT MFD-SUMMARY LIB-SUMMARYC )@@G@@Y @F@@@@ MOVE AC-DATE OF DAILYIN TO AC-DATE OF MFDTL-HYD )@@G@@OLD @C@@@@ MOVE AC-DAY-OF-WK OF DAILYIN @D@@@@ YE )@@G@@ TO AC-DAY-OF-WK OF MFDTL-HOLD @A@@@@ PERYF )@@G@@FORM 400-MFD-READ @A@@@@ PERFORM 500-LIB-READ.@ @@@@ YG )@@G@@ 310-MERGE-DAILYMFDLIB. @D@@@@ IF AC-ACCOUNT-NO OF DAILYIN > MYH )@@G@@FD-ACT-NUM @B@@@@ IF MFD-ACT-NUM = LIB-ACT-NUM @A@@@@ YI )@@G@@ MOVE CAT-DISC-TRK @D@@@@ TO AC-OUTSTAND-CAT-YJ )@@G@@TKS OF MFDTL-HOLD @G@@@@ ADD CAT-TAPE-FILE TO AC-OUTSTAND-CAYK )@@G@@T-TKS OF MFDTL-HOLD @G@@@@ MOVE UNLABEL-CNT TO AC-OUTSTAYL )@@G@@ND-LIB-REELS OF MFDTL-HOLD @G@@@@ ADD LABELED-CNT TO AC-OYM )@@G@@UTSTAND-LIB-REELS OF MFDTL-HOLD @F@@@@ MOVE MFD-ACT-NUYN )@@G@@M TO AC-ACCOUNT-NO OF MFDTL-HOLD @C@@@@ WRITE W-ACT-RECYO )@@G@@ FROM MFDTL-HOLD @A@@@@ PERFORM 400-MFD-READ @A@@@@ YP )@@G@@ PERFORM 500-LIB-READ @#@@@@ ELSE@B@@@@ YQ )@@G@@ IF MFD-ACT-NUM > LIB-ACT-NUM @F@@@@ MOVE LIB-ACT-NUM TO AYR )@@G@@C-ACCOUNT-NO OF MFDTL-HOLD @A@@@@ MOVE UNLABEL-CNT YS )@@G@@@F@@@@ TO AC-OUTSTAND-LIB-REELS OF MFDTL-HOLD YT )@@G@@@G@@@@ ADD LABELED-CNT TO AC-OUTSTAND-LIB-REELS OF MFDTL-HYU )@@G@@OLD @E@@@@ MOVE ZERO TO AC-OUTSTAND-CAT-TKS OF MFDTL-HOLD YV )@@G@@@C@@@@ WRITE W-ACT-REC FROM MFDTL-HOLD @A@@@@ YW )@@G@@ PERFORM 500-LIB-READ @#@@@@ ELSE @F@@@@ MOVYX )@@G@@E MFD-ACT-NUM TO AC-ACCOUNT-NO OF MFDTL-HOLD @A@@@@ MOVYY )@@G@@E CAT-DISC-TRK @E@@@@ TO AC-OUTSTAND-CAT-TKS OF MFYZ )@@G@@DTL-HOLD @F@@@@ ADD CAT-TAPE-FILE TO AC-OUTSTAND-CAT-TKS OFZA )@@G@@ MFDTL-HOLD @F@@@@ MOVE ZERO TO AC-OUTSTAND-LIB-REELS OF MFDZB )@@G@@TL-HOLD @C@@@@ WRITE W-ACT-REC FROM MFDTL-HOLD @A@@@@ZC )@@G@@ PERFORM 400-MFD-READ @#@@@@ ELSE @E@@@@ ZD )@@G@@ IF AC-ACCOUNT-NO OF DAILYIN = MFD-ACT-NUM @E@@@@ ZE )@@G@@ IF AC-ACCOUNT-NO OF DAILYIN = LIB-ACT-NUM @E@@@@ ZF )@@G@@MOVE CAT-DISC-TRK TO AC-OUTSTAND-CAT-TKS @A@@@@ OZG )@@G@@F DAILYIN @E@@@@ ADD CAT-TAPE-FILE TO AC-OUTSTAND-CAZH )@@G@@T-TKS @A@@@@ OF DAILYIN @E@@@@ ZI )@@G@@MOVE UNLABEL-CNT TO AC-OUTSTAND-LIB-REELS@A@@@@ OZJ )@@G@@F DAILYIN @E@@@@ ADD LABELED-CNT TO AC-OUTSTAND-LIB-ZK )@@G@@REELS @A@@@@ OF DAILYIN @C@@@@ ZL )@@G@@WRITE W-ACT-REC FROM DAILYIN @B@@@@ PERFORM 400-MFD-REZM )@@G@@AD @B@@@@ PERFORM 500-LIB-READ @B@@@@ ZN )@@G@@ PERFORM 600-DAILY-READ @^@@@@ ELSE @E@@@@ ZO )@@G@@ IF AC-ACCOUNT-NO OF DAILYIN > LIB-ACT-NUM@F@@@@ ZP )@@G@@ MOVE LIB-ACT-NUM TO AC-ACCOUNT-NO OF MFDTL-HOLD @A@@@@ ZQ )@@G@@ MOVE UNLABEL-CNT @F@@@@ TO AC-OUTSTAND-LIBZR )@@G@@-REELS OF MFDTL-HOLD @G@@@@ ADD LABELED-CNT TO AC-OUTSTZS )@@G@@AND-LIB-REELS OF MFDTL-HOLD @E@@@@ MOVE ZERO TO AC-OUTSTANZT )@@G@@D-CAT-TKS OF MFDTL-HOLD @C@@@@ WRITE W-ACT-REC FROM MFDTL-ZU )@@G@@HOLD @A@@@@ PERFORM 500-LIB-READ @^@@@@ ZV )@@G@@ ELSE @E@@@@ MOVE CAT-DISC-TRK TO AC-OUTSTAND-CAT-TKS ZW )@@G@@@A@@@@ OF DAILYIN @E@@@@ ADD CAZX )@@G@@T-TAPE-FILE TO AC-OUTSTAND-CAT-TKS @A@@@@ OF DAILZY )@@G@@YIN @D@@@@ MOVE ZERO TO AC-OUTSTAND-LIB-REELS @ @@@@ZZ )@@G@@ OF DAILYIN @C@@@@ WRITE W-ACT-REC FRAA )@@G@@OM DAILYIN @B@@@@ PERFORM 400-MFD-READ @B@@@@ AB )@@G@@ PERFORM 600-DAILY-READ. @ @@@@ IF DAILY-INPROGRESSAC )@@G@@@ @@@@ IF MFD-INPROGRESS@A@@@@ IF LIB-INPROGREAD )@@G@@SS @C@@@@ PERFORM 315-MERGE-DAILYMFDLIB. @ @@@@ AE )@@G@@ 315-MERGE-DAILYMFDLIB. @E@@@@ IF AC-ACCOUNT-NO OF DAILYINAF )@@G@@ < MFD-ACT-NUM @E@@@@ IF AC-ACCOUNT-NO OF DAILYIN < LAG )@@G@@IB-ACT-NUM @F@@@@ MOVE ZERO TO AC-OUTSTAND-CAT-TKS OF AH )@@G@@DAILYIN @D@@@@ MOVE ZERO TO AC-OUTSTAND-LIB-REELS AI )@@G@@@B@@@@ OF DAILYIN @C@@@@ AJ )@@G@@WRITE W-ACT-REC FROM DAILYIN @B@@@@ PERFORM 600-DAILY-RAK )@@G@@EAD @F@@@@ ELSE IF AC-ACCOUNT-NO OF DAILYIN > LIB-ACT-NAL )@@G@@UM @E@@@@ MOVE UNLABEL-CNT TO AC-OUTSTAND-LIB-REELS AM )@@G@@@B@@@@ OF MFDTL-HOLD@E@@@@ AN )@@G@@ ADD LABELED-CNT TO AC-OUTSTAND-LIB-REELS @C@@@@ AO )@@G@@ OF MFDTL-HOLD @F@@@@ MOVE LIB-ACT-NUM TO AC-ACCOAP )@@G@@UNT-NO OF MFDTL-HOLD @E@@@@ MOVE ZERO TO AC-OUTSTAND-CAT-AQ )@@G@@TKS OF MFDTL-HOLD @C@@@@ WRITE W-ACT-REC FROM MFDTL-HOLD AR )@@G@@@A@@@@ PERFORM 500-LIB-READ @#@@@@ ELSE @E@@@@AS )@@G@@ IF AC-ACCOUNT-NO OF DAILYIN = LIB-ACT-NUM @E@@@@ AT )@@G@@ MOVE UNLABEL-CNT TO AC-OUTSTAND-LIB-REELS@A@@@@ AU )@@G@@ OF DAILYIN @E@@@@ ADD LABELED-CNT TO AC-OAV )@@G@@UTSTAND-LIB-REELS @A@@@@ OF DAILYIN @C@@@@ AW )@@G@@ WRITE W-ACT-REC FROM DAILYIN @B@@@@ PERFORAX )@@G@@M 500-LIB-READ @B@@@@ PERFORM 600-DAILY-READ. @ @@@@AY )@@G@@ 320-MERGE-DAILYMFD. @D@@@@ IF AC-ACCOUNT-NO OF DAILYAZ )@@G@@IN > MFD-ACT-NUM @C@@@@ MOVE CAT-DISC-TRK OF MFDSUM BA )@@G@@@D@@@@ TO AC-OUTSTAND-CAT-TKS OF MFDTL-HOLD @G@@@@ BB )@@G@@ ADD CAT-TAPE-FILE TO AC-OUTSTAND-CAT-TKS OF MFDTL-HOLD @F@@@@BC )@@G@@ MOVE ZERO TO AC-OUTSTAND-LIB-REELS OF MFDTL-HOLD @F@@@@BD )@@G@@ MOVE MFD-ACT-NUM TO AC-ACCOUNT-NO OF MFDTL-HOLD @C@@@@BE )@@G@@ WRITE W-ACT-REC FROM MFDTL-HOLD @A@@@@ PERBF )@@G@@FORM 400-MFD-READ @#@@@@ ELSE @E@@@@ IF AC-ACCBG )@@G@@OUNT-NO OF DAILYIN = MFD-ACT-NUM @E@@@@ MOVE CAT-DISBH )@@G@@C-TRK TO AC-OUTSTAND-CAT-TKS @A@@@@ OF DAILYIN BI )@@G@@@E@@@@ ADD CAT-TAPE-FILE TO AC-OUTSTAND-CAT-TKS @A@@@@BJ )@@G@@ OF DAILYIN @C@@@@ WRITE W-ACT-BK )@@G@@REC FROM DAILYIN @B@@@@ PERFORM 400-MFD-READ @B@@@@BL )@@G@@ PERFORM 600-DAILY-READ @^@@@@ ELSE BM )@@G@@@F@@@@ MOVE ZERO TO AC-OUTSTAND-CAT-TKS OF DAILYIN BN )@@G@@@F@@@@ MOVE ZERO TO AC-OUTSTAND-LIB-REELS OF DAILYIN BO )@@G@@@C@@@@ WRITE W-ACT-REC FROM DAILYIN @B@@@@ BP )@@G@@ PERFORM 600-DAILY-READ. @ @@@@ 330-MERGE-DAILYLIB. @E@@@@BQ )@@G@@ IF AC-ACCOUNT-NO OF DAILYIN < LIB-ACT-NUM @F@@@@ BR )@@G@@ MOVE ZERO TO AC-OUTSTAND-CAT-TKS OF DAILYIN @D@@@@ BS )@@G@@ MOVE ZERO TO AC-OUTSTAND-LIB-REELS @B@@@@ BT )@@G@@ OF DAILYIN @C@@@@ WRITE W-ACT-REC FROM DAIBU )@@G@@LYIN @B@@@@ PERFORM 600-DAILY-READ @F@@@@ BV )@@G@@ ELSE IF AC-ACCOUNT-NO OF DAILYIN > LIB-ACT-NUM @E@@@@ BW )@@G@@ MOVE UNLABEL-CNT TO AC-OUTSTAND-LIB-REELS @B@@@@ BX )@@G@@ OF MFDTL-HOLD@E@@@@ ADD LABELED-CNT TO AC-OBY )@@G@@UTSTAND-LIB-REELS @C@@@@ OF MFDTL-HOLD BZ )@@G@@@F@@@@ MOVE LIB-ACT-NUM TO AC-ACCOUNT-NO OF MFDTL-HOLD CA )@@G@@@E@@@@ MOVE ZERO TO AC-OUTSTAND-CAT-TKS OF MFDTL-HOLD @C@@@@CB )@@G@@ WRITE W-ACT-REC FROM MFDTL-HOLD @A@@@@ PERCC )@@G@@FORM 500-LIB-READ @#@@@@ ELSE @E@@@@ IF AC-ACCCD )@@G@@OUNT-NO OF DAILYIN = LIB-ACT-NUM @E@@@@ MOVE UNLABELCE )@@G@@-CNT TO AC-OUTSTAND-LIB-REELS@A@@@@ OF DAILYIN CF )@@G@@@E@@@@ ADD LABELED-CNT TO AC-OUTSTAND-LIB-REELS @A@@@@CG )@@G@@ OF DAILYIN @C@@@@ WRITE W-ACT-CH )@@G@@REC FROM DAILYIN @B@@@@ PERFORM 500-LIB-READ @B@@@@CI )@@G@@ PERFORM 600-DAILY-READ. @^@@@@ 340-MERGE-DAILY. CJ )@@G@@@F@@@@ MOVE ZERO TO AC-OUTSTAND-CAT-TKS OF DAILYIN CK )@@G@@@F@@@@ MOVE ZERO TO AC-OUTSTAND-LIB-REELS OF DAILYIN CL )@@G@@@C@@@@ WRITE W-ACT-REC FROM DAILYIN @B@@@@ CM )@@G@@ PERFORM 600-DAILY-READ. @^@@@@ 350-MERGE-MFDLIB.@B@@@@ CN )@@G@@ IF MFD-ACT-NUM = LIB-ACT-NUM @C@@@@ MOVE CAT-DISC-CO )@@G@@TRK OF MFDSUM @D@@@@ TO AC-OUTSTAND-CAT-TKS OF MFDTLCP )@@G@@-HOLD @G@@@@ ADD CAT-TAPE-FILE TO AC-OUTSTAND-CAT-TKS OF MFDCQ )@@G@@TL-HOLD @G@@@@ MOVE UNLABEL-CNT TO AC-OUTSTAND-LIB-REELSCR )@@G@@ OF MFDTL-HOLD @G@@@@ ADD LABELED-CNT TO AC-OUTSTAND-LIB-CS )@@G@@REELS OF MFDTL-HOLD @F@@@@ MOVE MFD-ACT-NUM TO AC-ACCOCT )@@G@@UNT-NO OF MFDTL-HOLD @C@@@@ WRITE W-ACT-REC FROM MFDTL-CU )@@G@@HOLD @A@@@@ PERFORM 400-MFD-READ @A@@@@ PERCV )@@G@@FORM 500-LIB-READ @#@@@@ ELSE@B@@@@ IF MFD-ACT-CW )@@G@@NUM > LIB-ACT-NUM @F@@@@ MOVE LIB-ACT-NUM TO AC-ACCOUNT-NOCX )@@G@@ OF MFDTL-HOLD @A@@@@ MOVE UNLABEL-CNT @F@@@@ CY )@@G@@ TO AC-OUTSTAND-LIB-REELS OF MFDTL-HOLD @G@@@@ CZ )@@G@@ ADD LABELED-CNT TO AC-OUTSTAND-LIB-REELS OF MFDTL-HOLD @E@@@@DA )@@G@@ MOVE ZERO TO AC-OUTSTAND-CAT-TKS OF MFDTL-HOLD @C@@@@ DB )@@G@@ WRITE W-ACT-REC FROM MFDTL-HOLD @A@@@@ PERFORM 5DC )@@G@@00-LIB-READ @#@@@@ ELSE @F@@@@ MOVE MFD-ACT-NUDD )@@G@@M TO AC-ACCOUNT-NO OF MFDTL-HOLD @A@@@@ MOVE CAT-DISC-TDE )@@G@@RK @E@@@@ TO AC-OUTSTAND-CAT-TKS OF MFDTL-HOLD DF )@@G@@@F@@@@ ADD CAT-TAPE-FILE TO AC-OUTSTAND-CAT-TKS OF MFDTL-HOLD DG )@@G@@@F@@@@ MOVE ZERO TO AC-OUTSTAND-LIB-REELS OF MFDTL-HOLD DH )@@G@@@C@@@@ WRITE W-ACT-REC FROM MFDTL-HOLD @A@@@@ DI )@@G@@ PERFORM 400-MFD-READ.@^@@@@ 400-MFD-READ. @A@@@@ RDJ )@@G@@EAD MFD-SUMMARY AT END @C@@@@ MOVE HIGH-VALUES TO MFD-ACTDK )@@G@@-NUM @A@@@@ MOVE 1 TO MFDEOF @A@@@@ ADDDL )@@G@@ 1 TO ALL-EOF. @^@@@@ 500-LIB-READ. @A@@@@ READ LIDM )@@G@@B-SUMMARY AT END @C@@@@ MOVE HIGH-VALUES TO LIB-ACT-NUM DN )@@G@@@A@@@@ MOVE 1 TO LIBEOF @A@@@@ ADD 1 TO DO )@@G@@ALL-EOF. @^@@@@ 600-DAILY-READ. @A@@@@ READ DAILY-INDP )@@G@@ AT END @E@@@@ MOVE HIGH-VALUES TO AC-ACCOUNT-NO OF DADQ )@@G@@ILYIN @A@@@@ MOVE 1 TO DAILYEOF @A@@@@ ADDDR )@@G@@ 1 TO ALL-EOF. @E@@@@ IF AC-DATE OF DAILYIN = AC-DATE OF MFDS )@@G@@DTL-HOLD @ @@@@ NEXT SENTENCE @B@@@@ ELSE DT )@@G@@MOVE 1 TO DAILYEOF. ___MMARY LIB-SUMMARY @E@@@@ MOVDU )@@G@@E ZERO TO DAILYEOF MFDEOF LIBEOF ALL-EOF @D@@@@ OPEN INPUDV )@@G@@T MFD-SUMMARY LIB-SUMMAR*[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONDW )@@G@@. @ @@@@ PROGRAM-ID. H1550080. @ @@@@ AUTHOR. JOHN BROZDX )@@G@@OVSKY.@C@@@@ INSTALLATION. TEXAS DEPARTMENT OF HEALTH.@B@@@@ DY )@@G@@ DATE-WRITTEN. OCTOBER 16, 1978. @^@@@@ DATE-COMPILED. @C@@@@DZ )@@G@@ *REMARKS. *** ASCII ANS-1974 *** @E@@@@ * PROEA )@@G@@GRAM H1550080 WILL PRODUCE ONLY DAILY @G@@@@ * OUTPUTS: EB )@@G@@CUMULATIVE-DAILY-ACCOUNTING-FILE, DAILY-REPORT; @B@@@@ * FREC )@@G@@OM EITHER OR BOTH THE @E@@@@ * CUMULATIVE-DAILY-ACCOUNTINGED )@@G@@-FILE, AND THE @B@@@@ * DAILY-ACCOUNTING-FILE. @G@@@@EE )@@G@@ * A PARAMETER CARD IS INPUTED SPECIFYING THE REQUIRED I/O. EF )@@G@@@]@@@@ * @]@@@@ * @]@@@@ * @]@@@@ * EG )@@G@@@ @@@@ * CHANGE 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974EH )@@G@@ COBOL (ACOB4). @]@@@@ * @ @@@@ ENVIRONMENT DIVISION. EI )@@G@@@ @@@@ CONFIGURATION SECTION. @ @@@@ COPY COMPUTER-NAMES. EJ )@@G@@@@@@@@@^@@@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NAMES. EK )@@G@@@ @@@@ INPUT-OUTPUT SECTION. @^@@@@ FILE-CONTROL. @C@@@@EL )@@G@@ SELECT OPTIONAL CURRENT-DAY-FILE @D@@@@ ASSEM )@@G@@IGN TO MASS-STORAGE DAILY-ACCNT. @C@@@@ SELECT OPTIONAL OLDEN )@@G@@-CUMULATIVE-FILE @C@@@@ ASSIGN TO UNISERVO OLD-CUM-DLY. EO )@@G@@@B@@@@ SELECT NEW-CUMULATIVE-FILE @C@@@@ ASSEP )@@G@@IGN TO UNISERVO NEW-CUM-DLY. @A@@@@ SELECT DAILY-REPORT-FILE EQ )@@G@@@C@@@@ ASSIGN TO PRINTER DLY-ACNT-RPT. @A@@@@ SER )@@G@@ELECT PARAMETER-FILE @B@@@@ ASSIGN TO CARD-READER. ES )@@G@@@]@@@@ / @^@@@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ ET )@@G@@ FILE SECTION. @@@@@@@@@@@@@@@@@@@ @@@@ FD CURRENT-DAY-FILE EU )@@G@@@A@@@@ BLOCK CONTAINS 3 RECORDS @B@@@@ LABEL RECORDSEV )@@G@@ ARE STANDARD @C@@@@ DATA RECORD IS CURRENT-DAY-RECORD. EW )@@G@@@@@@@@@D@@@@ 01 CURRENT-DAY-RECORD. COPY DLY-ACCT-MST. @@@@@@EX )@@G@@@@@@@@@ @@@@ FD OLD-CUMULATIVE-FILE@A@@@@ BLOCK CONTAINEY )@@G@@S 3 RECORDS @B@@@@ LABEL RECORDS ARE STANDARD @C@@@@ EZ )@@G@@ DATA RECORD IS OLD-CUMULATIVE-RECORD.@@@@@@@D@@@@ 01 OLD-CUMFA )@@G@@ULATIVE-RECORD. COPY DLY-ACCT-MST. @@@@@@@@@@@@@ @@@@ FD NEW-CUMFB )@@G@@ULATIVE-FILE@A@@@@ BLOCK CONTAINS 3 RECORDS @B@@@@ LFC )@@G@@ABEL RECORDS ARE STANDARD @C@@@@ DATA RECORD IS NEW-CUMULAFD )@@G@@TIVE-RECORD.@@@@@@@D@@@@ 01 NEW-CUMULATIVE-RECORD. COPY DLY-ACCT-FE )@@G@@MST. @@@@@@@@@@@@@ @@@@ FD DAILY-REPORT-FILE @A@@@@ LFF )@@G@@ABEL RECORDS ARE OMITTED@A@@@@ LINAGE 62 TOP 2 BOTTOM 2 @B@@@@FG )@@G@@ DATA RECORD IS DAILY-REPORT. @@@@@@@D@@@@ 01 DAILY-RFH )@@G@@EPORT PIC X(132). @@@@@@@@@@@@@ @@@@ FD PARAMETFI )@@G@@ER-FILE @B@@@@ RECORD CONTAINS 80 CHARACTERS @A@@@@ FJ )@@G@@ LABEL RECORDS ARE OMITTED@B@@@@ DATA RECORD IS CONTROL-CAFK )@@G@@RD. @@@@@@@B@@@@ 01 CONTROL-CARD USAGE DISP-1. @E@@@@ FL )@@G@@ 05 FILLER PIC X(15). @D@@@@ 0FM )@@G@@5 SW-CUR-DAY-EXISTS PIC X. @F@@@@ 88 CUR-DFN )@@G@@AY-EXISTS VALUE '1'. @D@@@@ 05 SW-OLD-CUFO )@@G@@M-EXISTS PIC X. @F@@@@ 88 OLD-CUM-EXISTS FP )@@G@@ VALUE '1'. @D@@@@ 05 SW-NEW-CUM-EXISTS FQ )@@G@@ PIC X. @F@@@@ 88 NEW-CUM-EXISTS FR )@@G@@ VALUE '1'. @D@@@@ 05 SW-DAILY-REPORT-EXISTS PIC XFS )@@G@@. @F@@@@ 88 DAILY-REPORT-EXISTS VALUE '1'FT )@@G@@. @D@@@@ 05 SW-MONTHLY-REPORT-EXISTS PIC X. @F@@@@FU )@@G@@ 88 MONTHLY-REPORT-EXISTS VALUE '1'. @D@@@@FV )@@G@@ 05 SW-MONTHLY-SUMMARY-EXISTS PIC X. @F@@@@ FW )@@G@@ 88 MONTHLY-SUMMARY-EXISTS VALUE '1'. @D@@@@ 0FX )@@G@@5 BEGIN-DAILY-DATE PIC XX. @D@@@@ 05 END-DAILYFY )@@G@@-DATE PIC XX. @D@@@@ 05 PROCESSING-MM FZ )@@G@@ PIC XX. @D@@@@ 05 PROCESSING-YY PIC XGA )@@G@@X. @]@@@@ / @A@@@@ WORKING-STORAGE SECTION. @@@@@@GB )@@G@@@@@@@@@@@@@@@D@@@@ 01 REC-VOL USAGE COMP-4 VALUE 0 PIC 9(10). GC )@@G@@@C@@@@ 01 DATE-6 USAGE DISP-1 PIC X(6). @C@@@@ 01 DGD )@@G@@ATE-8 USAGE DISP-1 PIC X(8). @D@@@@ 01 DATE-SLASH USAGE DIGE )@@G@@SP-1 VALUE '1' PIC X. @E@@@@ 01 EXFILNAME VALUE 'DAILY-ACCNT ' GF )@@G@@ PIC X(12). @B@@@@ 01 REPORT-DATE-HOLD USAGE DISP-1.@D@@@@GG )@@G@@ 05 REPORT-YEAR PIC XX. @D@@@@ 0GH )@@G@@5 REPORT-MONTH PIC XX. @D@@@@ 05 DATE-HOLDGI )@@G@@ PIC XX. @@@@@@@@@@@@@B@@@@ 01 SUMMARY-TABLEGJ )@@G@@ USAGE COMP-4. @C@@@@ 05 PROD-DEVP-TOTL OCCURS 3 TIMES. GK )@@G@@@B@@@@ 10 SHIFTS OCCURS 4 TIMES.@E@@@@ GL )@@G@@ 15 TOTAL-BATCH-DEMAND OCCURS 3 TIMES. @A@@@@ 18 GM )@@G@@ DETALE. @D@@@@ 20 FILLER PIC 9999. GN )@@G@@@D@@@@ 20 NR-RUNS PIC 9(5). @D@@@@ GO )@@G@@ 20 FILLER PIC 9999. @D@@@@ GP )@@G@@ 20 NR-RUN-ERR PIC 9(5). @D@@@@ 20 FILGQ )@@G@@LER PIC 9999. @D@@@@ 20 PCT-ERROR GR )@@G@@ PIC 999V9. @C@@@@ 20 FILLER PIC 9.@E@@@@GS )@@G@@ 20 SUP-HOURS PIC 9(4)V999. @D@@@@ GT )@@G@@ 20 FILLER PIC 99. @E@@@@ GU )@@G@@ 20 CPU-HOURS PIC 999V999. @C@@@@ 2GV )@@G@@0 FILLER PIC 99. @E@@@@ 20 ELAP-HOURS GW )@@G@@ PIC 9(4)V99. @C@@@@ 20 FILLER PIC 9999.GX )@@G@@@D@@@@ 20 AVG-SUP PIC 99V999.@C@@@@ GY )@@G@@ 20 FILLER PIC 9999.@D@@@@ 2GZ )@@G@@0 AVG-CPU PIC 99V999.@C@@@@ 20 FILLER HA )@@G@@ PIC 9999.@D@@@@ 20 AVG-ELAP PIC 99V999.HB )@@G@@@C@@@@ 20 FILLER PIC 99. @E@@@@ HC )@@G@@ 20 SUP-CPU-RATIO PIC 999V999. @C@@@@ HD )@@G@@ 20 FILLER PIC 99.@E@@@@ 20 ELAP-SUP-HE )@@G@@RATIO PIC 999V999. @C@@@@ 20 FILLER PHF )@@G@@IC 99.@E@@@@ 20 ELAP-CPU-RATIO PIC 999V999. HG )@@G@@@C@@@@ 20 FILLER PIC 9. @D@@@@ HH )@@G@@ 20 PAGES PIC 9(7). @@@@@@@@@@@@@@@@@@@@@@@@@^@@@@HI )@@G@@ COPY DEPT-HEADER.@@@@@@@ @@@@ 01 HEADING-3-DAILY. @G@@@@HJ )@@G@@ 05 FILLER PIC X(54) VALUE SPACES. HK )@@G@@@D@@@@ 05 FILLER PIC X(78) @E@@@@ HL )@@G@@ VALUE 'RUNSTREAM SUMMARY BY DAY '. @@@@@@@ @@@@ HM )@@G@@ 01 HEADING-5-DAILY. @E@@@@ 05 FILLER VALUE 'DAY OF MONTHHN )@@G@@ = ' PIC X(15). @D@@@@ 05 HEADING-DAY PIC XHO )@@G@@X. @G@@@@ 05 FILLER PIC X(115) VALUEHP )@@G@@ SPACES. @@@@@@@ @@@@ 01 HEADING-6-DAILY. @E@@@@ 0HQ )@@G@@5 FILLER VALUE 'DAY OF WEEK = ' PIC X(14). @D@@@@ 05 HEAHR )@@G@@DING-DAY-WK PIC X(9). @G@@@@ 05 FILLER HS )@@G@@ PIC X(109) VALUE SPACES. @@@@@@@^@@@@ 01 HEADINGHT )@@G@@-6. @F@@@@ 05 FILLER PIC X(61) VALUE SPHU )@@G@@ACES. @D@@@@ 05 FILLER PIC X(29) @E@@@@HV )@@G@@ VALUE 'AVG SUP AVG CPU AVG ELAPSED'. @F@@@@ HW )@@G@@ 05 FILLER PIC X(10) VALUE SPACES. @D@@@@ HX )@@G@@ 05 FILLER PIC X(20) @D@@@@ HY )@@G@@ VALUE ' ELAPSED/ ELAPSED/ '. @F@@@@ 05 FILLER HZ )@@G@@ PIC X(12) VALUE SPACES. @@@@@@@^@@@@ 01 HEADING-7. IA )@@G@@@E@@@@ 05 FILLER PIC X(50) VALUE @G@@@@IB )@@G@@ ' NR NR RUN PCT SUP CPU '. IC )@@G@@@E@@@@ 05 FILLER PIC X(50) VALUE @G@@@@ID )@@G@@ ' ELAPSED HOURS HOURS HOURS SUP/CPU '. IE )@@G@@@E@@@@ 05 FILLER PIC X(32) VALUE @D@@@@IF )@@G@@ ' SUP CPU PAGES '. @@@@@@@^@@@@ IG )@@G@@ 01 HEADING-8. @E@@@@ 05 FILLER PIC IH )@@G@@X(50) VALUE @G@@@@ ' RUNS ERRORS ERROR HII )@@G@@OURS HOURS'. @E@@@@ 05 FILLER PIC IJ )@@G@@X(50) VALUE @G@@@@ ' HOURS PER RUN PER RUN PER RUN IK )@@G@@ RATIO '. @E@@@@ 05 FILLER PIC XIL )@@G@@(32) VALUE @C@@@@ ' RATIO RATIO CREATED '.@@@@@@IM )@@G@@@ @@@@ 01 PROD-DEVP-HEADING. @D@@@@ 05 FILLER VALUE 'IN )@@G@@PRODUCTION' PIC X(26). @D@@@@ 05 FILLER VALUE 'DEVELOPMENT'IO )@@G@@ PIC X(26). @G@@@@ 05 FILLER VALUE 'PRODUCTION AND DEVELOPMEIP )@@G@@NT' PIC X(26). @@@@@@@D@@@@ 01 PROD-HEADING REDEFINES PROD-DEVIQ )@@G@@P-HEADING. @D@@@@ 05 TYPE-HEADING OCCURS 3 TIMES PIC X(26). IR )@@G@@@@@@@@@@@@@@@#@@@@ 01 DAYS. @E@@@@ 05 FILLER VALUE 'SIS )@@G@@UNDAY ' PIC X(9). @E@@@@ 05 FILLER VALUE 'MONDAY IT )@@G@@ ' PIC X(9). @E@@@@ 05 FILLER VALUE 'TUESDAY ' IU )@@G@@ PIC X(9). @E@@@@ 05 FILLER VALUE 'WEDNESDAY' IV )@@G@@ PIC X(9). @E@@@@ 05 FILLER VALUE 'THURSDAY ' PIC XIW )@@G@@(9). @E@@@@ 05 FILLER VALUE 'FRIDAY ' PIC X(9). IX )@@G@@@E@@@@ 05 FILLER VALUE 'SATURDAY ' PIC X(9). @@@@@@IY )@@G@@@B@@@@ 01 DAYS-OF-WEEK REDEFINES DAYS. @E@@@@ 05 DAYIZ )@@G@@-OF-WEEK OCCURS 7 TIMES PIC X(9). @@@@@@@E@@@@ 01 DAY-OF-JA )@@G@@WEEK-HOLD VALUE 1 PIC 9(6). @@@@@@@@@@@@@^@@@@ 01 TJB )@@G@@EXT-MESSAGE.@D@@@@ 05 FILLER VALUE '0001-0800' PIC X(9). JC )@@G@@@D@@@@ 05 FILLER VALUE ' BATCH ' PIC X(9). @D@@@@ JD )@@G@@ 05 FILLER VALUE ' DEMAND ' PIC X(9). @D@@@@ 05 FILJE )@@G@@LER VALUE '0801-1700' PIC X(9). @D@@@@ 05 FILLER VALUE 'JF )@@G@@ BATCH ' PIC X(9). @D@@@@ 05 FILLER VALUE ' DEMAND ' JG )@@G@@ PIC X(9). @D@@@@ 05 FILLER VALUE '1701-2400' PIC X(9). JH )@@G@@@D@@@@ 05 FILLER VALUE ' BATCH ' PIC X(9). @D@@@@ JI )@@G@@ 05 FILLER VALUE ' DEMAND ' PIC X(9). @D@@@@ 05 FILJJ )@@G@@LER VALUE 'TOTAL ' PIC X(9). @D@@@@ 05 FILLER VALUE 'JK )@@G@@ BATCH ' PIC X(9). @D@@@@ 05 FILLER VALUE ' DEMAND ' JL )@@G@@ PIC X(9). @D@@@@ 05 FILLER VALUE 'WEEKEND ' PIC X(9). JM )@@G@@@D@@@@ 05 FILLER VALUE ' BATCH ' PIC X(9). @D@@@@ JN )@@G@@ 05 FILLER VALUE ' DEMAND ' PIC X(9). @@@@@@@C@@@@ 01 MJO )@@G@@ESSAGE-TEXT REDEFINES TEXT-MESSAGE. @C@@@@ 05 MESSAGE-FOR-LINJP )@@G@@E OCCURS 5 TIMES. @G@@@@ 10 LINE-MESSAGE PIC XJQ )@@G@@(9) OCCURS 3 TIMES. @@@@@@@@@@@@@^@@@@ 01 PRINT-LINE. @B@@@@JR )@@G@@ 18 PRINT-FIGURES. @F@@@@ 2JS )@@G@@0 FILLER PIC XX VALUE SPACES. @D@@@@ 2JT )@@G@@0 TEXT-MSG PIC X(9). @F@@@@ 20 FILLER JU )@@G@@ PIC X VALUE SPACES. @D@@@@ 20 NR-RUNS JV )@@G@@ PIC ZZ,ZZ9.@F@@@@ 20 FILLER PIC XJW )@@G@@XX VALUE SPACES. @D@@@@ 20 NR-RUN-ERR PIC ZJX )@@G@@,ZZ9. @F@@@@ 20 FILLER PIC X VALUE SPAJY )@@G@@CES. @D@@@@ 20 PCT-ERROR PIC ZZZ.9. @F@@@@JZ )@@G@@ 20 FILLER PIC X VALUE SPACES. @E@@@@KA )@@G@@ 20 SUP-HOURS PIC Z,ZZZ.999. @F@@@@ KB )@@G@@ 20 FILLER PIC X VALUE SPACES. @E@@@@ KC )@@G@@ 20 CPU-HOURS PIC ZZZ.999. @F@@@@ KD )@@G@@ 20 FILLER PIC X VALUE SPACES. @E@@@@ KE )@@G@@ 20 ELAP-HOURS PIC Z,ZZZ.99. @F@@@@ KF )@@G@@ 20 FILLER PIC XXX VALUE SPACES. @D@@@@ KG )@@G@@ 20 AVG-SUP PIC ZZ.999.@F@@@@ 20 FILKH )@@G@@LER PIC XXX VALUE SPACES. @D@@@@ 20 AVGKI )@@G@@-CPU PIC ZZ.999.@F@@@@ 20 FILLER KJ )@@G@@ PIC XXXX VALUE SPACES. @D@@@@ 20 AVG-ELAP KK )@@G@@ PIC ZZ.999.@F@@@@ 20 FILLER PIC X(5) VAKL )@@G@@LUE SPACES. @E@@@@ 20 SUP-CPU-RATIO PIC ZZZ.999KM )@@G@@. @F@@@@ 20 FILLER PIC XX VALUE SPAKN )@@G@@CES. @E@@@@ 20 ELAP-SUP-RATIO PIC ZZZ.999. KO )@@G@@@F@@@@ 20 FILLER PIC XXX VALUE SPACES. KP )@@G@@@E@@@@ 20 ELAP-CPU-RATIO PIC ZZZ.999. @F@@@@KQ )@@G@@ 20 FILLER PIC XX VALUE SPACES. @E@@@@KR )@@G@@ 20 PAGES PIC Z,ZZZ,ZZ9. @F@@@@ KS )@@G@@ 20 FILLER PIC XXX VALUE SPACES. @@@@@@@@@@@@KT )@@G@@@E@@@@ 01 SW-FINAL-REPORT-DAY VALUE ' ' PIC XXX. @D@@@@KU )@@G@@ 88 FINAL-REPORT-DAY-FROM-OLD VALUE 'OLD'.@E@@@@ 8KV )@@G@@8 FINAL-REPORT-DAY-FROM-CUR VALUE 'CUR'. @@@@@@@D@@@@ 01 WKW )@@G@@HICH-FILE-FLAG VALUE 'OLD' PIC XXX. @B@@@@ 88 OLD-CUM KX )@@G@@ VALUE 'OLD'. @B@@@@ 88 CURRENT VALUE 'CUR'. @E@@@@KY )@@G@@ 01 FREE-FILE-IMAGE USAGE DISP-1 PIC X(80) VALUE@D@@@@ KZ )@@G@@ '@FREE OLD-CUM-DLY '. @E@@@@ 01 STAT-WOLA )@@G@@RD USAGE DISP-1 PIC S9(10). @C@@@@ 01 SW-END-OF-INPLB )@@G@@UT VALUE 0 PIC 9. @A@@@@ 88 END-OF-INPUT VALUE 2.@@@@@@LC )@@G@@@E@@@@ 01 TOTAL-SUB VALUE 3 PIC 9(10) COMP. @E@@@@LD )@@G@@ 01 PROD-DEVP-SUB PIC 9(10) COMP. @E@@@@ LE )@@G@@ 01 TYPE-SUB PIC 9(10) COMP. @E@@@@ 01 SLF )@@G@@HIFT-SUB PIC 9(10) COMP. @@@@@@@D@@@@ 01 RLG )@@G@@T-SUPS-FOR-AVG USAGE COMP-4 PIC 9(10). @D@@@@ 01 RT-AV-PRI-FORLH )@@G@@-AVG USAGE COMP-4 PIC 9(18). @D@@@@ 01 BT-SUPS-FOR-AVG USAGE LI )@@G@@COMP-4 PIC 9(10). @D@@@@ 01 BT-AV-PRI-FOR-AVG USAGE COMP-4 PIC 9LJ )@@G@@(18). @@@@@@@E@@@@ 01 T-SHIFT-SUB VALUE 4 PIC 9(10) CLK )@@G@@OMP. @E@@@@ 01 RT-SUP-HOURS PIC 9(5)V999. LL )@@G@@@E@@@@ 01 BT-SUP-HOURS PIC 9(5)V999. @D@@@@LM )@@G@@ 01 X-NUMBER-OF VALUE 2 PIC 9. @D@@@@ 01 DLN )@@G@@AILY-PAGE-NO VALUE 0 PIC 999. @E@@@@ 01 WEEKEND-SHIFTLO )@@G@@ VALUE 5 PIC 9(10) COMP. @E@@@@ 01 OUT-SUB LP )@@G@@ PIC 9(10) COMP. @D@@@@ 01 VOLUME-X LQ )@@G@@ PIC X(6). @D@@@@ 01 VOLUME-9 REDEFINES VOLUME-X PIC 9LR )@@G@@(6). @D@@@@ 01 AC-DATE-HOLD USAGE DISP-1 PIC X(6). @D@@@@LS )@@G@@ 01 AC-ACCOUNT-NO-HOLD USAGE DISP-1 PIC X(12). @@@@@@@@@@@@@E@@@@LT )@@G@@ 01 COUNT-DAILY VALUE 0 PIC 9(10) COMP. @E@@@@ LU )@@G@@ 01 COUNT-OLD-CUM VALUE 0 PIC 9(10) COMP. @E@@@@ 01 CLV )@@G@@OUNT-NEW-CUM VALUE 0 PIC 9(10) COMP. @E@@@@ 01 EXT-DAILW )@@G@@LY VALUE 'DAILY-ACCNT ' PIC X(12). @E@@@@ 01 EXT-OLD-CUM LX )@@G@@ VALUE 'OLD-CUM-DLY ' PIC X(12). @E@@@@ 01 EXT-NEW-CUM VALLY )@@G@@UE 'NEW-CUM-DLY ' PIC X(12). @]@@@@ / @ @@@@ PROCEDURE DLZ )@@G@@IVISION. @@@@@@@@@@@@@@@@@@@@@@@@@^@@@@ 0000-CONTROL. @B@@@@MA )@@G@@ PERFORM 0100-HOUSEKEEPING. @B@@@@ PERFORM 0140-MB )@@G@@MAIN-PROCESS. @A@@@@ PERFORM 0190-CLOSING. @^@@@@ MC )@@G@@ STOP RUN. @@@@@@@@@@@@@@@@@@@ @@@@ 0100-HOUSEKEEPING. MD )@@G@@@B@@@@ OPEN INPUT PARAMETER-FILE. @ @@@@ READ PAME )@@G@@RAMETER-FILE@^@@@@ AT END @G@@@@ DISPLMF )@@G@@AY 'NO CONTROL CARD FOR H1550080' UPON PRINTER @A@@@@ MG )@@G@@ ENTER FD 'ABORT'.@ @@@@ IF CUR-DAY-EXISTS @C@@@@ MH )@@G@@ OPEN INPUT CURRENT-DAY-FILE. @ @@@@ IF OLD-CUM-EXISTS MI )@@G@@@C@@@@ OPEN INPUT OLD-CUMULATIVE-FILE. @ @@@@ IMJ )@@G@@F NEW-CUM-EXISTS @C@@@@ OPEN OUTPUT NEW-CUMULATIVE-FILE. MK )@@G@@@A@@@@ IF DAILY-REPORT-EXISTS @C@@@@ OPEN OUTPML )@@G@@UT DAILY-REPORT-FILE. @C@@@@ ENTER FD 'GETDATE' USING DATE-6MM )@@G@@. @F@@@@ ENTER FD 'DATEDIT' USING DATE-6 DATE-8 DATE-SLAMN )@@G@@SH. @A@@@@ MOVE DATE-8 TO DEPT-DATE.@B@@@@ MOVE 'HMO )@@G@@15501' TO DEPT-RUN-ID. @C@@@@ MOVE 'H1550080' TO DEPT-PROGRAMMP )@@G@@-NUM. @D@@@@ IF CUR-DAY-EXISTS AND NOT OLD-CUM-EXISTS @C@@@@MQ )@@G@@ MOVE 'CUR' TO WHICH-FILE-FLAG. @@@@@@@ @@@@ 0140-MR )@@G@@MAIN-PROCESS. @A@@@@ PERFORM 0250-VOLUME-PREP.@C@@@@ MS )@@G@@ PERFORM 1220-HOUSEKEEPING-SORT-INPUT @C@@@@ PERFORM 0240-MT )@@G@@DAILY-PROCESS-NO-MONTHLY@A@@@@ UNTIL END-OF-INPUT. @@@@@@MU )@@G@@@^@@@@ 0190-CLOSING. @A@@@@ CLOSE PARAMETER-FILE. MV )@@G@@@A@@@@ IF DAILY-REPORT-EXISTS @B@@@@ CLOSE DAIMW )@@G@@LY-REPORT-FILE. @@@@@@@@@@@@@@@@@@@B@@@@ 0240-DAILY-PROCESS-NO-MMX )@@G@@ONTHLY. @ @@@@ IF NEW-CUM-EXISTS @D@@@@ PERMY )@@G@@FORM 1320-CREATE-NEW-CUMULATIVE. @A@@@@ IF DAILY-REPORT-EXIMZ )@@G@@STS @C@@@@ PERFORM 1360-CREATE-DAILY-REPORT.@B@@@@ NA )@@G@@ PERFORM 1300-READ-SOURCE-INPUT.@ @@@@ IF END-OF-INPUT NB )@@G@@@C@@@@ PERFORM 1280-CLOSING-SORT-INPUT. @@@@@@@^@@@@ NC )@@G@@ 0250-VOLUME-PREP.@ @@@@ IF CUR-DAY-EXISTS @E@@@@ ND )@@G@@ CALL 'GETVOLASCII' USING EXFILNAME, REC-VOL. @ @@@@ IF OLD-NE )@@G@@CUM-EXISTS @D@@@@ PERFORM 1620-READ-OLD-CUMULATIVE-FILE NF )@@G@@@G@@@@ IF AC-ACCOUNT-NO IN OLD-CUMULATIVE-RECORD IS EQUAL NG )@@G@@TO @B@@@@ 'VOLUME REC ' @G@@@@ NH )@@G@@ MOVE AC-DATE-9 IN OLD-CUMULATIVE-RECORD TO VOLUME-X @B@@@@ NI )@@G@@ ADD VOLUME-9 TO REC-VOL@^@@@@ ELSE @G@@@@NJ )@@G@@ DISPLAY 'FIRST RECORD NOT VOLUME REC OLD-CUM-FILE NK )@@G@@@E@@@@ - 'H1550080' UPON PRINT-DEVICE @A@@@@NL )@@G@@ ENTER FD 'ABORT'.@ @@@@ IF NEW-CUM-EXISTS NM )@@G@@@A@@@@ MOVE 'VOLUME REC' @E@@@@ TO ACNN )@@G@@-ACCOUNT-NO IN NEW-CUMULATIVE-RECORD@B@@@@ MOVE REC-VOL TONO )@@G@@ VOLUME-9 @ @@@@ MOVE VOLUME-X @E@@@@ NP )@@G@@ TO AC-DATE-9 IN NEW-CUMULATIVE-RECORD @C@@@@ WRITE NEWNQ )@@G@@-CUMULATIVE-RECORD. @]@@@@ / @A@@@@ 1220-HOUSEKEEPINGNR )@@G@@-SORT-INPUT.@A@@@@ IF NOT CUR-DAY-EXISTS @B@@@@ NS )@@G@@ MOVE 1 TO SW-END-OF-INPUT. @A@@@@ IF NOT OLD-CUM-EXISTS NT )@@G@@@B@@@@ MOVE 1 TO SW-END-OF-INPUT. @ @@@@ IF CUR-NU )@@G@@DAY-EXISTS @D@@@@ PERFORM 1610-READ-CURRENT-DAY-FILE. NV )@@G@@@ @@@@ IF OLD-CUM-EXISTS @D@@@@ PERFORM 1620-RENW )@@G@@AD-OLD-CUMULATIVE-FILE @A@@@@ IF CUR-DAY-EXISTS @E@@@@NX )@@G@@ PERFORM 1400-READ-AND-MINGLE-CUR-CUM. @B@@@@ NY )@@G@@ IF BEGIN-DAILY-DATE IS NUMERIC @ @@@@ NEXT SENTENCE NZ )@@G@@@#@@@@ ELSE @G@@@@ DISPLAY 'H1550080 PROGRAM AOA )@@G@@BORT: DATE RANGE NOT NUMERIC'@A@@@@ ENTER FD 'ABORT'. OB )@@G@@@C@@@@ IF BEGIN-DAILY-DATE IS EQUAL TO ZERO @G@@@@ OC )@@G@@ MOVE AC-DD IN CURRENT-DAY-RECORD TO BEGIN-DAILY-DATE @G@@@@ OD )@@G@@ MOVE AC-DATE IN CURRENT-DAY-RECORD TO REPORT-DATE-HOLD @#@@@@OE )@@G@@ ELSE @D@@@@ MOVE BEGIN-DAILY-DATE TO DATE-HOLOF )@@G@@D @D@@@@ MOVE PROCESSING-MM TO REPORT-MONTH @D@@@@OG )@@G@@ MOVE PROCESSING-YY TO REPORT-YEAR. @C@@@@ MOH )@@G@@OVE BEGIN-DAILY-DATE TO DATE-HOLD. @C@@@@ PERFORM 1560-ZERO-DOI )@@G@@AILY-ACCUMULATORS @C@@@@ VARYING PROD-DEVP-SUB FROM 1 BY 1OJ )@@G@@@D@@@@ UNTIL PROD-DEVP-SUB GREATER THAN 3 @C@@@@ OK )@@G@@ AFTER SHIFT-SUB FROM 1 BY 1 @D@@@@ UNTILOL )@@G@@ SHIFT-SUB GREATER THAN 4 @B@@@@ AFTER TYPE-SUB FROM OM )@@G@@1 BY 1@D@@@@ UNTIL TYPE-SUB GREATER THAN 3. @@@@@@ON )@@G@@@A@@@@ 1280-CLOSING-SORT-INPUT. @B@@@@ IF FINAL-REPOOO )@@G@@RT-DAY-FROM-OLD @D@@@@ PERFORM 1450-DAILY-REPORT-FROM-OLOP )@@G@@D. @B@@@@ IF FINAL-REPORT-DAY-FROM-CUR @D@@@@ OQ )@@G@@ PERFORM 1470-DAILY-REPORT-FROM-CUR. @ @@@@ IF CUR-DAY-EXOR )@@G@@ISTS @E@@@@ CALL 'LOG-RCNT' USING EXT-DAILY, COUNT-DAILY OS )@@G@@@B@@@@ CLOSE CURRENT-DAY-FILE. @ @@@@ IF OLD-OT )@@G@@CUM-EXISTS @E@@@@ CALL 'LOG-RCNT' USING EXT-OLD-CUM, COUNT-OLOU )@@G@@D-CUM @B@@@@ CLOSE OLD-CUMULATIVE-FILE @G@@@@ OV )@@G@@ ENTER FD ASM 'SUBCRD' USING FREE-FILE-IMAGE, STAT-WORD. @ @@@@ OW )@@G@@ IF NEW-CUM-EXISTS @E@@@@ CALL 'LOG-WCNT' USING EXT-NEW-COX )@@G@@UM, COUNT-NEW-CUM @B@@@@ CLOSE NEW-CUMULATIVE-FILE @E@@@@OY )@@G@@ MOVE '@FREE NEW-CUM-DLY' TO FREE-FILE-IMAGE @G@@@@ OZ )@@G@@ ENTER FD ASM 'SUBCRD' USING FREE-FILE-IMAGE, STAT-WORD. @@@@@@PA )@@G@@@@@@@@@@@@@@@ @@@@ 1300-READ-SOURCE-INPUT.@D@@@@ IF CURPB )@@G@@-DAY-EXISTS AND NOT OLD-CUM-EXISTS @D@@@@ PERFORM 1610-REPC )@@G@@AD-CURRENT-DAY-FILE. @D@@@@ IF NOT CUR-DAY-EXISTS AND OLD-CPD )@@G@@UM-EXISTS @D@@@@ PERFORM 1620-READ-OLD-CUMULATIVE-FILE. PE )@@G@@@C@@@@ IF CUR-DAY-EXISTS AND OLD-CUM-EXISTS@D@@@@ PF )@@G@@ PERFORM 1410-DETERMINE-AND-READ-FILE @D@@@@ PERFORM 1PG )@@G@@400-READ-AND-MINGLE-CUR-CUM. @@@@@@@A@@@@ 1320-CREATE-NEW-CUMULATPH )@@G@@IVE. @^@@@@ IF OLD-CUM @G@@@@ WRITE NEW-CUMULPI )@@G@@ATIVE-RECORD FROM OLD-CUMULATIVE-RECORD @B@@@@ ADD 1 TO PJ )@@G@@COUNT-NEW-CUM @#@@@@ ELSE @ @@@@ IF CURRENPK )@@G@@T @G@@@@ WRITE NEW-CUMULATIVE-RECORD FROM CURRENT-PL )@@G@@DAY-RECORD @B@@@@ ADD 1 TO COUNT-NEW-CUM @^@@@@ PM )@@G@@ ELSE @G@@@@ DISPLAY 'NO SOURCE NEW-CUM HPN )@@G@@1550080' UPON PRINTER @A@@@@ ENTER FD 'ABORT'.@@@@@@PO )@@G@@@@@@@@@A@@@@ 1360-CREATE-DAILY-REPORT. @^@@@@ IF OLD-PP )@@G@@CUM @G@@@@ IF AC-DATE IN OLD-CUMULATIVE-RECORD LESS REPOPQ )@@G@@RT-DATE-HOLD@A@@@@ NEXT SENTENCE @^@@@@ PR )@@G@@ ELSE @F@@@@ IF END-DAILY-DATE IS NOT EQUAL TO ZPS )@@G@@ERO AND @G@@@@ AC-DD IN OLD-CUMULATIVE-RECOPT )@@G@@RD IS GREATER THAN@C@@@@ END-DAILY-DATE PU )@@G@@@B@@@@ NEXT SENTENCE @^@@@@ PV )@@G@@ ELSE @G@@@@ IF AC-DD IN OLD-CUMULATIVE-RECORDPW )@@G@@ IS EQUAL TO@C@@@@ DATE-HOLD @E@@@@PX )@@G@@ PERFORM 1550-SUM-DAY-OLD-CUM @F@@@@ PY )@@G@@ VARYING SHIFT-SUB FROM 1 BY 1 @G@@@@ PZ )@@G@@ UNTIL SHIFT-SUB IS GREATER THAN 3@F@@@@QA )@@G@@ MOVE 'OLD' TO SW-FINAL-REPORT-DAY @D@@@@QB )@@G@@ MOVE AC-DAY-OF-WK-9 IN @F@@@@ QC )@@G@@ OLD-CUMULATIVE-RECORD TO @D@@@@ QD )@@G@@ DAY-OF-WEEK-HOLD @A@@@@ QE )@@G@@ ELSE @F@@@@ PERFORM 1450-DAILY-REPOQF )@@G@@RT-FROM-OLD.@^@@@@ IF CURRENT @G@@@@ IF AC-DATQG )@@G@@E IN CURRENT-DAY-RECORD LESS REPORT-DATE-HOLD @A@@@@ QH )@@G@@ NEXT SENTENCE @^@@@@ ELSE @F@@@@ QI )@@G@@ IF AC-DD IN CURRENT-DAY-RECORD IS GREATER THAN @B@@@@ QJ )@@G@@ END-DAILY-DATE @E@@@@ AND END-DAILY-DATE IS NQK )@@G@@OT EQUAL TO ZERO @A@@@@ NEXT SENTENCE@^@@@@ QL )@@G@@ ELSE @F@@@@ IF AC-DD IN CURRENT-DAY-RQM )@@G@@ECORD IS EQUAL TO @B@@@@ DATE-HOLD @E@@@@QN )@@G@@ PERFORM 1570-SUM-DAY-CUR-DAY @E@@@@ QO )@@G@@ VARYING SHIFT-SUB FROM 1 BY 1@G@@@@ QP )@@G@@ UNTIL SHIFT-SUB IS GREATER THAN 3 @E@@@@ QQ )@@G@@ MOVE 'CUR' TO SW-FINAL-REPORT-DAY@G@@@@ QR )@@G@@ MOVE AC-DAY-OF-WK-9 IN CURRENT-DAY-RECORD TO @C@@@@ QS )@@G@@ DAY-OF-WEEK-HOLD @ @@@@ EQT )@@G@@LSE @F@@@@ PERFORM 1470-DAILY-REPORT-FROM-CUQU )@@G@@R. @@@@@@@@@@@@@@@@@@@A@@@@ 1400-READ-AND-MINGLE-CUR-CUM.@E@@@@QV )@@G@@ IF AC-DATE IN OLD-CUMULATIVE-RECORD IS LESS THAN @C@@@@ QW )@@G@@ AC-DATE IN CURRENT-DAY-RECORD @D@@@@ MOVE QX )@@G@@'OLD' TO WHICH-FILE-FLAG. @F@@@@ IF AC-DATE IN OLD-CUMULATQY )@@G@@IVE-RECORD IS GREATER THAN @C@@@@ AC-DATE IN CURRENT-DAYQZ )@@G@@-RECORD @D@@@@ MOVE 'CUR' TO WHICH-FILE-FLAG. RA )@@G@@@D@@@@ IF AC-DATE IN OLD-CUMULATIVE-RECORD EQUAL @C@@@@ RB )@@G@@ AC-DATE IN CURRENT-DAY-RECORD @D@@@@ PERFORC )@@G@@RM 1500-MERGE-OLD-AND-CUR. @@@@@@@A@@@@ 1410-DETERMINE-AND-READRD )@@G@@-FILE.@^@@@@ IF CURRENT @D@@@@ PERFORM 1610-RERE )@@G@@AD-CURRENT-DAY-FILE. @^@@@@ IF OLD-CUM @D@@@@ RF )@@G@@ PERFORM 1620-READ-OLD-CUMULATIVE-FILE. @@@@@@@@@@@@@A@@@@ 1450-RG )@@G@@DAILY-REPORT-FROM-OLD. @C@@@@ PERFORM 1565-CALCULATE-DAILY-AVRH )@@G@@ERAGES@C@@@@ VARYING PROD-DEVP-SUB FROM 1 BY 1@D@@@@ RI )@@G@@ UNTIL PROD-DEVP-SUB GREATER THAN 3 @C@@@@ AFTRJ )@@G@@ER SHIFT-SUB FROM 1 BY 1 @E@@@@ UNTIL SHIRK )@@G@@FT-SUB GREATER THAN 4 @C@@@@ AFTER TYPE-SUB FROM 1 RL )@@G@@BY 1 @F@@@@ UNTIL TYPE-SUB GREATER THAN 3RM )@@G@@. @C@@@@ PERFORM 1554-HEADING-DAILY-REPORT. @B@@@@ RN )@@G@@ PERFORM 1555-WRITE-DAILY-REPORT@C@@@@ VARYING PROD-DERO )@@G@@VP-SUB FROM 1 BY 1@E@@@@ UNTIL PROD-DEVP-SUB IS GREATERP )@@G@@R THAN 3. @C@@@@ PERFORM 1560-ZERO-DAILY-ACCUMULATORS @C@@@@RQ )@@G@@ VARYING PROD-DEVP-SUB FROM 1 BY 1@D@@@@ RR )@@G@@ UNTIL PROD-DEVP-SUB GREATER THAN 3 @C@@@@ AFTER SHIFT-SURS )@@G@@B FROM 1 BY 1 @D@@@@ UNTIL SHIFT-SUB GREATER THAN RT )@@G@@4 @B@@@@ AFTER TYPE-SUB FROM 1 BY 1@D@@@@ RU )@@G@@ UNTIL TYPE-SUB GREATER THAN 3. @B@@@@ PERFORM 1550-RV )@@G@@SUM-DAY-OLD-CUM @C@@@@ VARYING SHIFT-SUB FROM 1 BY 1 RW )@@G@@@D@@@@ UNTIL SHIFT-SUB GREATER THAN 3. @E@@@@ RX )@@G@@ MOVE AC-DD IN OLD-CUMULATIVE-RECORD TO DATE-HOLD.@@@@@@@A@@@@ RY )@@G@@ 1470-DAILY-REPORT-FROM-CUR. @C@@@@ PERFORM 1565-CALCULATE-DARZ )@@G@@ILY-AVERAGES@C@@@@ VARYING PROD-DEVP-SUB FROM 1 BY 1@D@@@@SA )@@G@@ UNTIL PROD-DEVP-SUB GREATER THAN 3 @C@@@@ SB )@@G@@ AFTER SHIFT-SUB FROM 1 BY 1 @E@@@@ UNTSC )@@G@@IL SHIFT-SUB GREATER THAN 4 @C@@@@ AFTER TYPE-SUB FSD )@@G@@ROM 1 BY 1 @F@@@@ UNTIL TYPE-SUB GREATER SE )@@G@@THAN 3. @C@@@@ PERFORM 1554-HEADING-DAILY-REPORT. @B@@@@SF )@@G@@ PERFORM 1555-WRITE-DAILY-REPORT@C@@@@ VARYING PSG )@@G@@ROD-DEVP-SUB FROM 1 BY 1@E@@@@ UNTIL PROD-DEVP-SUB IS SH )@@G@@GREATER THAN 3. @C@@@@ PERFORM 1560-ZERO-DAILY-ACCUMULATORS SI )@@G@@@C@@@@ VARYING PROD-DEVP-SUB FROM 1 BY 1@D@@@@ SJ )@@G@@ UNTIL PROD-DEVP-SUB GREATER THAN 3 @C@@@@ AFTER SHSK )@@G@@IFT-SUB FROM 1 BY 1 @D@@@@ UNTIL SHIFT-SUB GREATERSL )@@G@@ THAN 4 @B@@@@ AFTER TYPE-SUB FROM 1 BY 1@D@@@@ SM )@@G@@ UNTIL TYPE-SUB GREATER THAN 3. @B@@@@ PERFORMSN )@@G@@ 1570-SUM-DAY-CUR-DAY @C@@@@ VARYING SHIFT-SUB FROM 1 BYSO )@@G@@ 1 @D@@@@ UNTIL SHIFT-SUB GREATER THAN 3. @E@@@@SP )@@G@@ MOVE AC-DD IN CURRENT-DAY-RECORD TO DATE-HOLD. @@@@@@@@@@@@SQ )@@G@@@@@@@@@ @@@@ 1500-MERGE-OLD-AND-CUR.@F@@@@ IF AC-ACCOUNTSR )@@G@@-NO IN CURRENT-DAY-RECORD IS EQUAL TO @F@@@@ ASS )@@G@@C-ACCOUNT-NO IN OLD-CUMULATIVE-RECORD @C@@@@ PERFORM 1ST )@@G@@600-SUM-SAME-DAY-RECORDS@C@@@@ MOVE 'OLD' TO WHICH-FILE-FLSU )@@G@@AG @D@@@@ PERFORM 1610-READ-CURRENT-DAY-FILE @#@@@@SV )@@G@@ ELSE @F@@@@ IF AC-ACCOUNT-NO IN CURRENT-DAY-RSW )@@G@@ECORD LESS THAN @F@@@@ AC-ACCOUNT-NO IN OLD-SX )@@G@@CUMULATIVE-RECORD @C@@@@ MOVE 'CUR' TO WHICH-FILE-FLAGSY )@@G@@@^@@@@ ELSE @D@@@@ MOVE 'OLD' TO WHISZ )@@G@@CH-FILE-FLAG. @@@@@@@@@@@@@ @@@@ 1550-SUM-DAY-OLD-CUM. @F@@@@TA )@@G@@ IF AC-ACCOUNT-TYPE IN OLD-CUMULATIVE-RECORD EQUAL 'T' @B@@@@TB )@@G@@ MOVE 2 TO PROD-DEVP-SUB @#@@@@ ELSE @B@@@@TC )@@G@@ MOVE 1 TO PROD-DEVP-SUB. @#@@@@ ADD @F@@@@TD )@@G@@ RUNS IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECORD @A@@@@TE )@@G@@ (SHIFT-SUB) @F@@@@ RUNS IN AC-RT-BTF )@@G@@ATCH-DATA IN OLD-CUMULATIVE-RECORD @A@@@@ (SHIFT-TG )@@G@@SUB) @^@@@@ TO @G@@@@ NR-RUNSTH )@@G@@ IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 2) @G@@@@ NTI )@@G@@R-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @F@@@@ TJ )@@G@@ NR-RUNS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1)@G@@@@ TK )@@G@@ NR-RUNS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1)@G@@@@ TL )@@G@@ NR-RUNS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 2)@G@@@@ TM )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1)@G@@@@TN )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 2)TO )@@G@@@G@@@@ NR-RUNS IN DETALE (TOTAL-SUB, SHIFT-SUB, 2)TP )@@G@@. @#@@@@ ADD @F@@@@ RUNS IN AC-DEMAND-DATTQ )@@G@@A IN OLD-CUMULATIVE-RECORD @A@@@@ (SHIFT-SUB) TR )@@G@@@F@@@@ RUNS IN AC-RT-DMAND-DATA IN OLD-CUMULATIVE-RECORD TS )@@G@@@A@@@@ (SHIFT-SUB) @^@@@@ TO TT )@@G@@@G@@@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-STU )@@G@@UB, 1)@G@@@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, STV )@@G@@HIFT-SUB, 3)@G@@@@ NR-RUNS IN DETALE (PROD-DEVP-SUTW )@@G@@B, T-SHIFT-SUB, 1)@G@@@@ NR-RUNS IN DETALE (PROD-DTX )@@G@@EVP-SUB, T-SHIFT-SUB, 3)@G@@@@ NR-RUNS IN DETALE (TY )@@G@@TOTAL-SUB, T-SHIFT-SUB, 1)@G@@@@ NR-RUNS IN DETZ )@@G@@TALE (TOTAL-SUB, T-SHIFT-SUB, 3)@G@@@@ NR-RUNSUA )@@G@@ IN DETALE (TOTAL-SUB, SHIFT-SUB, 1)@G@@@@ NUB )@@G@@R-RUNS IN DETALE (TOTAL-SUB, SHIFT-SUB, 3).@B@@@@ IF SHIUC )@@G@@FT-SUB IS LESS THAN 3 @C@@@@ ADD 1, SHIFT-SUB GIVING OUTUD )@@G@@-SUB @#@@@@ ADD@F@@@@ HARD-KILL IN OLD-UE )@@G@@CUMULATIVE-RECORD (SHIFT-SUB) @F@@@@ PROG-KILL IN OLD-UF )@@G@@CUMULATIVE-RECORD (SHIFT-SUB) @F@@@@ OPER-KILL IN OLD-UG )@@G@@CUMULATIVE-RECORD (SHIFT-SUB) @F@@@@ SYS-KILL IN OLD-UH )@@G@@CUMULATIVE-RECORD (SHIFT-SUB) @ @@@@ TO @F@@@@UI )@@G@@ NR-RUN-ERR IN DETALE (PROD-DEVP-SUB, @E@@@@UJ )@@G@@ T-SHIFT-SUB, OUT-SUB)@G@@@@ UK )@@G@@ NR-RUN-ERR IN DETALE (TOTAL-SUB, T-SHIFT-SUB,@C@@@@UL )@@G@@ OUT-SUB) @F@@@@ UM )@@G@@ NR-RUN-ERR IN DETALE (PROD-DEVP-SUB, @D@@@@ UN )@@G@@ T-SHIFT-SUB, 1) @E@@@@ NR-UO )@@G@@RUN-ERR IN DETALE (TOTAL-SUB, @D@@@@ TUP )@@G@@-SHIFT-SUB, 1). @G@@@@ DIVIDE TOT-SUPS IN AC-BATCH-DATA IUQ )@@G@@N OLD-CUMULATIVE-RECORD @ @@@@ (SHIFT-SUB)@E@@@@ UR )@@G@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDED. @D@@@@ DUS )@@G@@IVIDE TOT-SUPS IN AC-RT-BATCH-DATA IN @D@@@@ OLD-CUT )@@G@@UMULATIVE-RECORD (SHIFT-SUB) @E@@@@ BY 18000000 GIVING RTUU )@@G@@-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS UV )@@G@@@G@@@@ TO SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, UW )@@G@@1) @G@@@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFTUX )@@G@@-SUB, 2) @G@@@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB,UY )@@G@@ T-SHIFT-SUB, 1) @G@@@@ SUP-HOURS IN DETALE (PROD-DEVUZ )@@G@@P-SUB, T-SHIFT-SUB, 2) @G@@@@ SUP-HOURS IN DETALE (TOVA )@@G@@TAL-SUB, T-SHIFT-SUB, 1) @G@@@@ SUP-HOURS IN DETAVB )@@G@@LE (TOTAL-SUB, T-SHIFT-SUB, 2) @G@@@@ SUP-HOURS IVC )@@G@@N DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ SUP-HVD )@@G@@OURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 2). @G@@@@ DIVIDE VE )@@G@@TOT-SUPS IN AC-DEMAND-DATA IN OLD-CUMULATIVE-RECORD @ @@@@ VF )@@G@@ (SHIFT-SUB)@E@@@@ BY 18000000 GIVING BT-SUP-HOURS RVG )@@G@@OUNDED. @G@@@@ DIVIDE TOT-SUPS IN AC-RT-DMAND-DATA IN OLD-VH )@@G@@CUMULATIVE-RECORD @ @@@@ (SHIFT-SUB)@E@@@@ VI )@@G@@ BY 18000000 GIVING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-VJ )@@G@@SUP-HOURS, RT-SUP-HOURS @#@@@@ TO @G@@@@ VK )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ VL )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 3) @G@@@@ VM )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@VN )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3) VO )@@G@@@G@@@@ SUP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUBVP )@@G@@, 1) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SUB, SHIVQ )@@G@@FT-SUB, 3) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SUB, VR )@@G@@ T-SHIFT-SUB, 1) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SUVS )@@G@@B, T-SHIFT-SUB, 3). @G@@@@ DIVIDE CPU-SUPS IN AC-DEMAND-DAVT )@@G@@TA IN OLD-CUMULATIVE-RECORD @ @@@@ (SHIFT-SUB)@E@@@@VU )@@G@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDED. @G@@@@ VV )@@G@@ DIVIDE CPU-SUPS IN AC-RT-DMAND-DATA IN OLD-CUMULATIVE-RECORD @ @@@@VW )@@G@@ (SHIFT-SUB)@E@@@@ BY 18000000 GIVING RTVX )@@G@@-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS VY )@@G@@@#@@@@ TO @G@@@@ CPU-HOURS IN DETALE (PRVZ )@@G@@OD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ CPU-HOURS IN DETAWA )@@G@@LE (PROD-DEVP-SUB, T-SHIFT-SUB, 3) @G@@@@ CPU-HOURS IWB )@@G@@N DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ CPU-HWC )@@G@@OURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3) @G@@@@ WD )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ WE )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 3) @G@@@@ WF )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@WG )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 3). WH )@@G@@@G@@@@ DIVIDE CPU-SUPS IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECOWI )@@G@@RD @ @@@@ (SHIFT-SUB)@E@@@@ BY 180000WJ )@@G@@00 GIVING BT-SUP-HOURS ROUNDED. @G@@@@ DIVIDE CPU-SUPS IN WK )@@G@@AC-RT-BATCH-DATA IN OLD-CUMULATIVE-RECORD @ @@@@ (SHIFWL )@@G@@T-SUB)@E@@@@ BY 18000000 GIVING RT-SUP-HOURS ROUNDED. WM )@@G@@@B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @#@@@@ TO WN )@@G@@@G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUBWO )@@G@@, 1) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIWP )@@G@@FT-SUB, 2) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB,WQ )@@G@@ SHIFT-SUB, 1) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVWR )@@G@@P-SUB, SHIFT-SUB, 2) @G@@@@ CPU-HOURS IN DETALE (TOWS )@@G@@TAL-SUB, SHIFT-SUB, 1) @G@@@@ CPU-HOURS IN DETAWT )@@G@@LE (TOTAL-SUB, SHIFT-SUB, 2) @G@@@@ CPU-HOURS IWU )@@G@@N DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ CPU-HWV )@@G@@OURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 2). @G@@@@ DIVIDE WW )@@G@@RUN-SECS IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECORD @ @@@@ WX )@@G@@ (SHIFT-SUB)@D@@@@ BY 3600 GIVING BT-SUP-HOURS ROUNDWY )@@G@@ED. @G@@@@ DIVIDE RUN-SECS IN AC-RT-BATCH-DATA IN OLD-CUMULAWZ )@@G@@TIVE-RECORD @ @@@@ (SHIFT-SUB)@D@@@@ BY XA )@@G@@3600 GIVING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RXB )@@G@@T-SUP-HOURS @#@@@@ TO @G@@@@ ELAP-HOURS XC )@@G@@IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ ELAP-XD )@@G@@HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 2) @G@@@@ XE )@@G@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ XF )@@G@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 2) @G@@@@ XG )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@XH )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 2) XI )@@G@@@G@@@@ ELAP-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUXJ )@@G@@B, 1) @G@@@@ ELAP-HOURS IN DETALE (TOTAL-SUB, T-SHXK )@@G@@IFT-SUB, 2).@G@@@@ DIVIDE RUN-SECS IN AC-DEMAND-DATA IN OLD-CUXL )@@G@@MULATIVE-RECORD @ @@@@ (SHIFT-SUB)@D@@@@ XM )@@G@@ BY 3600 GIVING BT-SUP-HOURS ROUNDED. @G@@@@ DIVIDE RUN-SEXN )@@G@@CS IN AC-RT-DMAND-DATA IN OLD-CUMULATIVE-RECORD @ @@@@ XO )@@G@@ (SHIFT-SUB)@D@@@@ BY 3600 GIVING RT-SUP-HOURS ROUNDED. XP )@@G@@@B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @#@@@@ TO XQ )@@G@@@G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUXR )@@G@@B, 1) @G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHXS )@@G@@IFT-SUB, 3) @G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUBXT )@@G@@, SHIFT-SUB, 1) @G@@@@ ELAP-HOURS IN DETALE (PROD-DEXU )@@G@@VP-SUB, SHIFT-SUB, 3) @G@@@@ ELAP-HOURS IN DETALE (TXV )@@G@@OTAL-SUB, SHIFT-SUB, 1) @G@@@@ ELAP-HOURS IN DETXW )@@G@@ALE (TOTAL-SUB, SHIFT-SUB, 3) @G@@@@ ELAP-HOURS XX )@@G@@IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ ELAP-XY )@@G@@HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 3).@#@@@@ ADD XZ )@@G@@@F@@@@ STD-PGS IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECORD YA )@@G@@@A@@@@ (SHIFT-SUB) @G@@@@ STD-PGS IYB )@@G@@N AC-RT-BATCH-DATA IN OLD-CUMULATIVE-RECORD @A@@@@ YC )@@G@@ (SHIFT-SUB) @^@@@@ TO @G@@@@ YD )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ YE )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 2) @G@@@@ YF )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@YG )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 2) YH )@@G@@@G@@@@ PAGES IN DETALE (TOTAL-SUB, SHIFT-SUBYI )@@G@@, 1) @G@@@@ PAGES IN DETALE (TOTAL-SUB, SHIYJ )@@G@@FT-SUB, 2) @G@@@@ PAGES IN DETALE (TOTAL-SUB, YK )@@G@@ T-SHIFT-SUB, 1) @G@@@@ PAGES IN DETALE (TOTAL-SUYL )@@G@@B, T-SHIFT-SUB, 2). @#@@@@ ADD @F@@@@ STDYM )@@G@@-PGS IN AC-DEMAND-DATA IN OLD-CUMULATIVE-RECORD @A@@@@ YN )@@G@@ (SHIFT-SUB) @G@@@@ STD-PGS IN AC-RT-DMAND-DATA IN OLYO )@@G@@D-CUMULATIVE-RECORD @A@@@@ (SHIFT-SUB) @^@@@@YP )@@G@@ TO @G@@@@ PAGES IN DETALE (PRYQ )@@G@@OD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ PAGES IN DETAYR )@@G@@LE (PROD-DEVP-SUB, T-SHIFT-SUB, 3) @G@@@@ PAGES IYS )@@G@@N DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ PYT )@@G@@AGES IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3) @G@@@@ YU )@@G@@ PAGES IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ YV )@@G@@ PAGES IN DETALE (TOTAL-SUB, SHIFT-SUB, 3) @G@@@@ YW )@@G@@ PAGES IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@YX )@@G@@ PAGES IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 3). YY )@@G@@@@@@@@@A@@@@ 1554-HEADING-DAILY-REPORT. @A@@@@ ADD 1 TYZ )@@G@@O DAILY-PAGE-NO. @B@@@@ MOVE DATE-HOLD TO HEADING-DAY. @D@@@@ZA )@@G@@ IF NR-RUNS IN DETALE (3, 4, 1) EQUAL 0 @C@@@@ ZB )@@G@@ MOVE SPACES TO HEADING-DAY-WK @#@@@@ ELSE @G@@@@ ZC )@@G@@ MOVE DAY-OF-WEEK (DAY-OF-WEEK-HOLD) TO HEADING-DAY-WK. @C@@@@ZD )@@G@@ MOVE DAILY-PAGE-NO TO DEPT-PAGE-NUM. @E@@@@ WRITE DZE )@@G@@AILY-REPORT FROM DEPT-HEADER-1 AFTER PAGE.@D@@@@ WRITE DAILY-RZF )@@G@@EPORT FROM DEPT-HEADER-2. @D@@@@ WRITE DAILY-REPORT FROM HZG )@@G@@EADING-3-DAILY. @D@@@@ WRITE DAILY-REPORT FROM HEADING-5-DAIZH )@@G@@LY . @D@@@@ WRITE DAILY-REPORT FROM HEADING-6-DAILY. @C@@@@ZI )@@G@@ WRITE DAILY-REPORT FROM HEADING-6 . @C@@@@ WRITE DZJ )@@G@@AILY-REPORT FROM HEADING-7. @C@@@@ WRITE DAILY-REPORT FROM HZK )@@G@@EADING-8. @@@@@@@A@@@@ 1555-WRITE-DAILY-REPORT. @A@@@@ ZL )@@G@@ MOVE 2 TO X-NUMBER-OF. @F@@@@ WRITE DAILY-REPORT FROM TZM )@@G@@YPE-HEADING (PROD-DEVP-SUB) @C@@@@ AFTER X-NUMBER-OFZN )@@G@@ LINES. @C@@@@ PERFORM 1655-SHIFT-PRINT-DAILY-REPORT@G@@@@ZO )@@G@@ VARYING SHIFT-SUB FROM 1 BY 1 UNTIL SHIFT-SUB GREATER 4 ZP )@@G@@@B@@@@ AFTER TYPE-SUB FROM 1 BY 1@D@@@@ ZQ )@@G@@ UNTIL TYPE-SUB IS GREATER THAN 3. @@@@@@@A@@@@ 1560-ZERO-DAILY-AZR )@@G@@CCUMULATORS.@^@@@@ MOVE ZERO TO @G@@@@ NR-RUNS IZS )@@G@@N DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB) @G@@@@ NR-ZT )@@G@@RUN-ERR IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB)@G@@@@ ZU )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB)@G@@@@ ZV )@@G@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB)@G@@@@ZW )@@G@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB)ZX )@@G@@@G@@@@ PAGES IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUBZY )@@G@@). @@@@@@@B@@@@ 1565-CALCULATE-DAILY-AVERAGES. @F@@@@ ZZ )@@G@@ DIVIDE SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @C@@@@ AA )@@G@@ TYPE-SUB)@G@@@@ BY NR-RUNAB )@@G@@S IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB)@G@@@@ AC )@@G@@ GIVING AVG-SUP IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @E@@@@ AD )@@G@@ TYPE-SUB) ROUNDED @^@@@@ ON SIZEAE )@@G@@ ERROR@G@@@@ MOVE 0 TO AVG-SUP IN DETALE (PROD-DEVP-SUB, SAF )@@G@@HIFT-SUB, @C@@@@ TYPE-SUB). @F@@@@AG )@@G@@ DIVIDE CPU-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @C@@@@AH )@@G@@ TYPE-SUB)@G@@@@ BY AI )@@G@@NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB)@G@@@@ AJ )@@G@@ GIVING AVG-CPU IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @E@@@@ AK )@@G@@ TYPE-SUB) ROUNDED @^@@@@ OAL )@@G@@N SIZE ERROR@G@@@@ MOVE 0 TO AVG-CPU IN DETALE (PROD-DEVPAM )@@G@@-SUB, SHIFT-SUB, @E@@@@ TYAN )@@G@@PE-SUB). @F@@@@ DIVIDE ELAP-HOURS IN DETALE (PROD-DEVP-SUB,AO )@@G@@ SHIFT-SUB, @D@@@@ TYPE-SUB) AP )@@G@@@G@@@@ BY NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPAQ )@@G@@E-SUB)@G@@@@ GIVING AVG-ELAP IN DETALE (PROD-DEVP-SUB,AR )@@G@@ SHIFT-SUB, @E@@@@ TYPE-SUB) ROUNAS )@@G@@DED @^@@@@ ON SIZE ERROR@G@@@@ MOVE 0 TO AVG-EAT )@@G@@LAP IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @E@@@@ AU )@@G@@ TYPE-SUB). @F@@@@ DIVIDE SUP-HOURS INAV )@@G@@ DETALE (PROD-DEVP-SUB, SHIFT-SUB, @C@@@@ AW )@@G@@ TYPE-SUB)@F@@@@ BY CPU-HOURS IN DETALE (PROD-DEVPAX )@@G@@-SUB, SHIFT-SUB, @C@@@@ TYPE-SUB)AY )@@G@@@F@@@@ GIVING SUP-CPU-RATIO IN DETALE (PROD-DEVP-SUB, AZ )@@G@@@G@@@@ SHIFT-SUB, TYPE-SUB) ROUNDBA )@@G@@ED @^@@@@ ON SIZE ERROR@F@@@@ MOVE 0 TO SUP-CBB )@@G@@PU-RATIO IN DETALE (PROD-DEVP-SUB, @E@@@@ BC )@@G@@ SHIFT-SUB, TYPE-SUB). @F@@@@ DIVIDE ELAP-HOURS IN DETABD )@@G@@LE (PROD-DEVP-SUB, SHIFT-SUB, @D@@@@ BE )@@G@@ TYPE-SUB) @F@@@@ BY SUP-HOURS IN DETALE (PROD-DEVBF )@@G@@P-SUB, SHIFT-SUB, @D@@@@ TYPE-SUBBG )@@G@@) @F@@@@ GIVING ELAP-SUP-RATIO IN DETALE (PROD-DEVBH )@@G@@P-SUB,@G@@@@ SHIFT-SUB, TYPE-SUB)BI )@@G@@ ROUNDED @^@@@@ ON SIZE ERROR@F@@@@ MOVE 0 TOBJ )@@G@@ ELAP-SUP-RATIO IN DETALE (PROD-DEVP-SUB, @E@@@@ BK )@@G@@ SHIFT-SUB, TYPE-SUB).@F@@@@ DIVIDE ELAP-HOURS IBL )@@G@@N DETALE (PROD-DEVP-SUB, SHIFT-SUB, @D@@@@ BM )@@G@@ TYPE-SUB) @F@@@@ BY CPU-HOURS IN DETALE (PROBN )@@G@@D-DEVP-SUB, SHIFT-SUB, @D@@@@ TYBO )@@G@@PE-SUB) @F@@@@ GIVING ELAP-CPU-RATIO IN DETALE (PRBP )@@G@@OD-DEVP-SUB,@G@@@@ SHIFT-SUB, TYPBQ )@@G@@E-SUB) ROUNDED @^@@@@ ON SIZE ERROR@F@@@@ MOVBR )@@G@@E 0 TO ELAP-CPU-RATIO IN DETALE (PROD-DEVP-SUB, @E@@@@ BS )@@G@@ SHIFT-SUB, TYPE-SUB).@F@@@@ COMPUTE PCT-EBT )@@G@@RROR IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @E@@@@ BU )@@G@@ TYPE-SUB) ROUNDED @G@@@@ = 100 * NR-RUN-BV )@@G@@ERR IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @D@@@@ BW )@@G@@ TYPE-SUB)@G@@@@ / NR-RUNS IN DEBX )@@G@@TALE (PROD-DEVP-SUB, SHIFT-SUB, @D@@@@ BY )@@G@@ TYPE-SUB) @^@@@@ ON SIZE ERROR@E@@@@ BZ )@@G@@ MOVE 0 TO PCT-ERROR IN DETALE (PROD-DEVP-SUB,@E@@@@ CA )@@G@@ SHIFT-SUB, TYPE-SUB). @@@@@@@ @@@@ 1570-SUM-DACB )@@G@@Y-CUR-DAY. @F@@@@ IF AC-ACCOUNT-TYPE IN CURRENT-DAY-RECORD EQCC )@@G@@UAL 'T' @B@@@@ MOVE 2 TO PROD-DEVP-SUB @#@@@@ CD )@@G@@ ELSE @B@@@@ MOVE 1 TO PROD-DEVP-SUB. @#@@@@ CE )@@G@@ ADD @E@@@@ RUNS IN AC-BATCH-DATA IN CURRENT-DAY-RECF )@@G@@CORD @A@@@@ (SHIFT-SUB) @F@@@@ RUNCG )@@G@@S IN AC-RT-BATCH-DATA IN CURRENT-DAY-RECORD @A@@@@ CH )@@G@@ (SHIFT-SUB) @^@@@@ TO @G@@@@ CI )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 2) @G@@@@ CJ )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @F@@@@ CK )@@G@@ NR-RUNS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1)@G@@@@ CL )@@G@@ NR-RUNS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 2)@G@@@@CM )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1)CN )@@G@@@G@@@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SCO )@@G@@UB, 2)@G@@@@ NR-RUNS IN DETALE (TOTAL-SUB, T-SCP )@@G@@HIFT-SUB, 1)@G@@@@ NR-RUNS IN DETALE (TOTAL-SUB, SCQ )@@G@@HIFT-SUB, 2). @#@@@@ ADD @E@@@@ RUNS IN ACR )@@G@@C-DEMAND-DATA IN CURRENT-DAY-RECORD @A@@@@ (SHIFT-CS )@@G@@SUB) @F@@@@ RUNS IN AC-RT-DMAND-DATA IN CURRENT-DAY-RECORCT )@@G@@D @A@@@@ (SHIFT-SUB) @^@@@@ CU )@@G@@ TO @G@@@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, SCV )@@G@@HIFT-SUB, 1)@G@@@@ NR-RUNS IN DETALE (PROD-DEVP-SUCW )@@G@@B, SHIFT-SUB, 3)@G@@@@ NR-RUNS IN DETALE (PROD-DCX )@@G@@EVP-SUB, T-SHIFT-SUB, 1)@G@@@@ NR-RUNS IN DETALE (CY )@@G@@PROD-DEVP-SUB, T-SHIFT-SUB, 3)@G@@@@ NR-RUNS IN DECZ )@@G@@TALE (TOTAL-SUB, T-SHIFT-SUB, 1)@G@@@@ NR-RUNSDA )@@G@@ IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 3)@G@@@@ NDB )@@G@@R-RUNS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1)@H@@@@ DC )@@G@@ NR-RUNS IN DETALE (TOTAL-SUB, SHIFT-SUB, 3). @B@@@@ DD )@@G@@ IF SHIFT-SUB IS LESS THAN 3 @C@@@@ ADD 1, SHIFT-SUDE )@@G@@B GIVING OUT-SUB @#@@@@ ADD@F@@@@ HARD-DF )@@G@@KILL IN CURRENT-DAY-RECORD (SHIFT-SUB) @F@@@@ PROG-DG )@@G@@KILL IN CURRENT-DAY-RECORD (SHIFT-SUB) @F@@@@ OPER-DH )@@G@@KILL IN CURRENT-DAY-RECORD (SHIFT-SUB) @F@@@@ SYS-KDI )@@G@@ILL IN CURRENT-DAY-RECORD (SHIFT-SUB) @ @@@@ TDJ )@@G@@O @F@@@@ NR-RUN-ERR IN DETALE (PROD-DEVP-SDK )@@G@@UB, @E@@@@ T-SHIFT-SUB, OUT-SUB)DL )@@G@@@G@@@@ NR-RUN-ERR IN DETALE (TOTAL-SUB, T-SHIFDM )@@G@@T-SUB,@C@@@@ OUT-SUB) @F@@@@ DN )@@G@@ NR-RUN-ERR IN DETALE (PROD-DEVP-SUB, @D@@@@ DO )@@G@@ T-SHIFT-SUB, 1) @E@@@@ DP )@@G@@ NR-RUN-ERR IN DETALE (TOTAL-SUB, @D@@@@ DQ )@@G@@ T-SHIFT-SUB, 1). @G@@@@ DIVIDE TOT-SUPS IN AC-DR )@@G@@BATCH-DATA IN CURRENT-DAY-RECORD @ @@@@ (SHIFT-SUB)DS )@@G@@@E@@@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDED. @D@@@@DT )@@G@@ DIVIDE TOT-SUPS IN AC-RT-BATCH-DATA IN @D@@@@ DU )@@G@@ CURRENT-DAY-RECORD (SHIFT-SUB) @E@@@@ BY 180000DV )@@G@@00 GIVING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RDW )@@G@@T-SUP-HOURS @G@@@@ TO SUP-HOURS IN DETALE (PROD-DEVP-SUB,DX )@@G@@ SHIFT-SUB, 1) @G@@@@ SUP-HOURS IN DETALE (PROD-DEVDY )@@G@@P-SUB, SHIFT-SUB, 2) @G@@@@ SUP-HOURS IN DETALE (PRDZ )@@G@@OD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ SUP-HOURS IN DETAEA )@@G@@LE (PROD-DEVP-SUB, T-SHIFT-SUB, 2) @G@@@@ SUP-HOURS IEB )@@G@@N DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ SUP-HEC )@@G@@OURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 2) @G@@@@ ED )@@G@@ SUP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ EE )@@G@@ SUP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 2). @G@@@@ EF )@@G@@ DIVIDE TOT-SUPS IN AC-DEMAND-DATA IN CURRENT-DAY-RECORD @ @@@@EG )@@G@@ (SHIFT-SUB)@E@@@@ BY 18000000 GIVING BTEH )@@G@@-SUP-HOURS ROUNDED. @G@@@@ DIVIDE TOT-SUPS IN AC-RT-DMAND-EI )@@G@@DATA IN CURRENT-DAY-RECORD @ @@@@ (SHIFT-SUB)@E@@@@EJ )@@G@@ BY 18000000 GIVING RT-SUP-HOURS ROUNDED. @B@@@@ EK )@@G@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @#@@@@ TO @G@@@@ EL )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@EM )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 3) EN )@@G@@@G@@@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUBEO )@@G@@, 1) @G@@@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIEP )@@G@@FT-SUB, 3) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SUB, EQ )@@G@@ SHIFT-SUB, 1) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SUER )@@G@@B, SHIFT-SUB, 3) @G@@@@ SUP-HOURS IN DETALE (TOES )@@G@@TAL-SUB, T-SHIFT-SUB, 1) @G@@@@ SUP-HOURS IN DETAET )@@G@@LE (TOTAL-SUB, T-SHIFT-SUB, 3). @F@@@@ DIVIDE CPU-SUPS IN EU )@@G@@AC-DEMAND-DATA IN CURRENT-DAY-RECORD@ @@@@ (SHIFT-SUB)EV )@@G@@@E@@@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDED. @G@@@@EW )@@G@@ DIVIDE CPU-SUPS IN AC-RT-DMAND-DATA IN CURRENT-DAY-RECORD EX )@@G@@@ @@@@ (SHIFT-SUB)@E@@@@ BY 18000000 GIVEY )@@G@@ING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-EZ )@@G@@HOURS @#@@@@ TO @G@@@@ CPU-HOURS IN DETAFA )@@G@@LE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ CPU-HOURS IFB )@@G@@N DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 3) @G@@@@ CPU-HFC )@@G@@OURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ FD )@@G@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3) @G@@@@ FE )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ FF )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 3) @G@@@@FG )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) FH )@@G@@@G@@@@ CPU-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUBFI )@@G@@, 3). @F@@@@ DIVIDE CPU-SUPS IN AC-BATCH-DATA IN CURRENT-DAY-RFJ )@@G@@ECORD @ @@@@ (SHIFT-SUB)@E@@@@ BY 180000FK )@@G@@00 GIVING BT-SUP-HOURS ROUNDED. @G@@@@ DIVIDE CPU-SUPS IN FL )@@G@@AC-RT-BATCH-DATA IN CURRENT-DAY-RECORD @ @@@@ (SHIFFM )@@G@@T-SUB)@E@@@@ BY 18000000 GIVING RT-SUP-HOURS ROUNDED. FN )@@G@@@B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @#@@@@ TO FO )@@G@@@G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUBFP )@@G@@, 1) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFQ )@@G@@FT-SUB, 2) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB,FR )@@G@@ SHIFT-SUB, 1) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVFS )@@G@@P-SUB, SHIFT-SUB, 2) @G@@@@ CPU-HOURS IN DETALE (TOFT )@@G@@TAL-SUB, SHIFT-SUB, 1) @G@@@@ CPU-HOURS IN DETAFU )@@G@@LE (TOTAL-SUB, SHIFT-SUB, 2) @G@@@@ CPU-HOURS IFV )@@G@@N DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ CPU-HFW )@@G@@OURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 2). @F@@@@ DIVIDE FX )@@G@@RUN-SECS IN AC-BATCH-DATA IN CURRENT-DAY-RECORD @ @@@@ FY )@@G@@ (SHIFT-SUB)@D@@@@ BY 3600 GIVING BT-SUP-HOURS ROUNDED. FZ )@@G@@@G@@@@ DIVIDE RUN-SECS IN AC-RT-BATCH-DATA IN CURRENT-DAY-RECOGA )@@G@@RD @ @@@@ (SHIFT-SUB)@D@@@@ BY 3600 GGB )@@G@@IVING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-GC )@@G@@HOURS @#@@@@ TO @G@@@@ ELAP-HOURS IN DETGD )@@G@@ALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ ELAP-HOURS GE )@@G@@IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 2) @G@@@@ ELAP-GF )@@G@@HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ GG )@@G@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 2) @G@@@@ GH )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ GI )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 2) @G@@@@GJ )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) GK )@@G@@@G@@@@ ELAP-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUGL )@@G@@B, 2).@F@@@@ DIVIDE RUN-SECS IN AC-DEMAND-DATA IN CURRENT-DAY-GM )@@G@@RECORD@ @@@@ (SHIFT-SUB)@D@@@@ BY 3600 GGN )@@G@@IVING BT-SUP-HOURS ROUNDED. @G@@@@ DIVIDE RUN-SECS IN AC-RT-GO )@@G@@DMAND-DATA IN CURRENT-DAY-RECORD @ @@@@ (SHIFT-SUB)GP )@@G@@@D@@@@ BY 3600 GIVING RT-SUP-HOURS ROUNDED. @B@@@@ GQ )@@G@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @#@@@@ TO @G@@@@ GR )@@G@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@GS )@@G@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 3) GT )@@G@@@G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUGU )@@G@@B, 1) @G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHGV )@@G@@IFT-SUB, 3) @G@@@@ ELAP-HOURS IN DETALE (TOTAL-SUB, GW )@@G@@ SHIFT-SUB, 1) @G@@@@ ELAP-HOURS IN DETALE (TOTAL-SGX )@@G@@UB, SHIFT-SUB, 3) @G@@@@ ELAP-HOURS IN DETALE (TGY )@@G@@OTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ ELAP-HOURS IN DETGZ )@@G@@ALE (TOTAL-SUB, T-SHIFT-SUB, 3).@#@@@@ ADD @F@@@@ HA )@@G@@ STD-PGS IN AC-BATCH-DATA IN CURRENT-DAY-RECORD @ @@@@ HB )@@G@@ (SHIFT-SUB)@F@@@@ STD-PGS IN AC-RT-BATCH-DATAHC )@@G@@ IN CURRENT-DAY-RECORD @A@@@@ (SHIFT-SUB) @^@@@@HD )@@G@@ TO @G@@@@ PAGES IN DETALE (PRHE )@@G@@OD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ PAGES IN DETAHF )@@G@@LE (PROD-DEVP-SUB, T-SHIFT-SUB, 2) @G@@@@ PAGES IHG )@@G@@N DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ PHH )@@G@@AGES IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 2) @G@@@@ HI )@@G@@ PAGES IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ HJ )@@G@@ PAGES IN DETALE (TOTAL-SUB, SHIFT-SUB, 2) @G@@@@ HK )@@G@@ PAGES IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@HL )@@G@@ PAGES IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 2). HM )@@G@@@#@@@@ ADD @F@@@@ STD-PGS IN AC-DEMAND-DATA IHN )@@G@@N CURRENT-DAY-RECORD @A@@@@ (SHIFT-SUB) @F@@@@HO )@@G@@ STD-PGS IN AC-RT-DMAND-DATA IN CURRENT-DAY-RECORD @A@@@@HP )@@G@@ (SHIFT-SUB) @^@@@@ TO @G@@@@HQ )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) HR )@@G@@@G@@@@ PAGES IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUBHS )@@G@@, 3) @G@@@@ PAGES IN DETALE (PROD-DEVP-SUB, SHIHT )@@G@@FT-SUB, 1) @G@@@@ PAGES IN DETALE (PROD-DEVP-SUB,HU )@@G@@ SHIFT-SUB, 3) @G@@@@ PAGES IN DETALE (TOTAL-SUHV )@@G@@B, SHIFT-SUB, 1) @G@@@@ PAGES IN DETALE (TOHW )@@G@@TAL-SUB, SHIFT-SUB, 3) @G@@@@ PAGES IN DETAHX )@@G@@LE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ PAGES IHY )@@G@@N DETALE (TOTAL-SUB, T-SHIFT-SUB, 3). @@@@@@@@@@@@@@@@@@@A@@@@ HZ )@@G@@ 1600-SUM-SAME-DAY-RECORDS. @E@@@@ ADD AC-OUTSTAND-CAT-TKS IIA )@@G@@N CURRENT-DAY-RECORD TO @E@@@@ AC-OUTSTAND-CAT-TKS IN OLD-IB )@@G@@CUMULATIVE-RECORD.@F@@@@ ADD AC-OUTSTAND-LIB-REELS IN CURRENT-IC )@@G@@DAY-RECORD TO @F@@@@ AC-OUTSTAND-LIB-REELS IN OLD-CUMUID )@@G@@LATIVE-RECORD. @^@@@@ DIVIDE 2 INTO@E@@@@ AC-IE )@@G@@OUTSTAND-CAT-TKS IN OLD-CUMULATIVE-RECORD @F@@@@ AC-OUTSTAIF )@@G@@ND-LIB-REELS IN OLD-CUMULATIVE-RECORD. @B@@@@ PERFORM 1700-IG )@@G@@SUM-ERRORS-MERGE @G@@@@ VARYING TYPE-SUB FROM 1 BY 1 UNTIIH )@@G@@L TYPE-SUB GREATER 2. @B@@@@ PERFORM 1701-SUM-SHIFT-MERGE II )@@G@@@G@@@@ VARYING SHIFT-SUB FROM 1 BY 1 UNTIL SHIFT-SUB GREATIJ )@@G@@ER 3. @@@@@@@A@@@@ 1610-READ-CURRENT-DAY-FILE. @A@@@@ RIK )@@G@@EAD CURRENT-DAY-FILE @^@@@@ AT END @C@@@@ IL )@@G@@ ADD 1 TO SW-END-OF-INPUT @G@@@@ MOVE HIGH-VIM )@@G@@ALUES TO AC-DATE IN CURRENT-DAY-RECORD. @A@@@@ ADD 1 TO COUNIN )@@G@@T-DAILY. @F@@@@ IF AC-DATE IN CURRENT-DAY-RECORD EQUAL AC-DIO )@@G@@ATE-HOLD @G@@@@ IF AC-ACCOUNT-NO IN CURRENT-DAY-RECORD IP )@@G@@NOT LESS THAN @B@@@@ AC-ACCOUNT-NO-HOLD @A@@@@IQ )@@G@@ NEXT SENTENCE @^@@@@ ELSE @G@@@@IR )@@G@@ DISPLAY 'PROGRAM ABORT H1550080: DAILY ACCOUNT FILE',IS )@@G@@@C@@@@ ' OUT OF ORDER.' @E@@@@ IT )@@G@@ DISPLAY 'PREVIOUS ACCOUNT NUMBER ' , @G@@@@ IU )@@G@@ AC-ACCOUNT-NO-HOLD, ' CURRENT ACCOUNT' @E@@@@ IV )@@G@@ ' NUMBER ', AC-ACCOUNT-NO IN @D@@@@ IW )@@G@@ CURRENT-DAY-RECORD @A@@@@ ENTER FD 'AIX )@@G@@BORT' @#@@@@ ELSE @G@@@@ IF AC-DATE IN CURRENTIY )@@G@@-DAY-RECORD GREATER AC-DATE-HOLD @A@@@@ NEXT SENTENIZ )@@G@@CE @^@@@@ ELSE @G@@@@ DISPLAY 'PROJA )@@G@@GRAM ABORT H1550080: DAILY ACCOUNT FILE' @B@@@@ JB )@@G@@ 'OUT OF ORDER.'@G@@@@ DISPLAY 'PREVIOUS ACCOUNT NUMBJC )@@G@@ER ', AC-ACCOUNT-NO-HOLD@E@@@@ , ' CURRENTJD )@@G@@ ACCOUNT NUMBER', @F@@@@ AC-ACCOUNT-NO IN CURRJE )@@G@@ENT-DAY-RECORD @A@@@@ ENTER FD 'ABORT'. @@@@@@@B@@@@JF )@@G@@ 1620-READ-OLD-CUMULATIVE-FILE. @A@@@@ READ OLD-CUMUJG )@@G@@LATIVE-FILE @^@@@@ AT END @C@@@@ ADD 1JH )@@G@@ TO SW-END-OF-INPUT @D@@@@ MOVE HIGH-VALUES TO AC-JI )@@G@@ACCOUNT-NO @D@@@@ IN OLD-CUMULATIVE-RECORD JJ )@@G@@@G@@@@ MOVE HIGH-VALUES TO AC-DATE IN OLD-CUMULATIVE-RJK )@@G@@ECORD.@A@@@@ ADD 1 TO COUNT-OLD-CUM. @@@@@@@B@@@@ 1655-JL )@@G@@SHIFT-PRINT-DAILY-REPORT. @A@@@@ IF TYPE-SUB IS EQUAL TO 1JM )@@G@@@A@@@@ MOVE 2 TO X-NUMBER-OF@#@@@@ ELSE @B@@@@JN )@@G@@ MOVE 1 TO X-NUMBER-OF. @F@@@@ MOVE LINE-MESJO )@@G@@SAGE (SHIFT-SUB, TYPE-SUB) TO TEXT-MSG. @F@@@@ MOVE CORR DETJP )@@G@@ALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB) @A@@@@ TO PRINTJQ )@@G@@-FIGURES. @G@@@@ WRITE DAILY-REPORT FROM PRINT-LINE AFTER X-JR )@@G@@NUMBER-OF LINES. @@@@@@@@@@@@@@@@@@@ @@@@ 1700-SUM-ERRORS-MERGE. JS )@@G@@@E@@@@ ADD HARD-KILL IN CURRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@JT )@@G@@ HARD-KILL IN OLD-CUMULATIVE-RECORD (TYPE-SUB). @E@@@@JU )@@G@@ ADD PROG-KILL IN CURRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@ JV )@@G@@ PROG-KILL IN OLD-CUMULATIVE-RECORD (TYPE-SUB). @E@@@@ JW )@@G@@ ADD OPER-KILL IN CURRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@ JX )@@G@@ OPER-KILL IN OLD-CUMULATIVE-RECORD (TYPE-SUB). @E@@@@ AJY )@@G@@DD SYS-KILL IN CURRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@ SYSJZ )@@G@@-KILL IN OLD-CUMULATIVE-RECORD (TYPE-SUB). @E@@@@ ADD ER-KA )@@G@@ERR IN CURRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@ ER-ERR KB )@@G@@ IN OLD-CUMULATIVE-RECORD (TYPE-SUB). @E@@@@ ADD ER-ABORT KC )@@G@@ IN CURRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@ ER-ABORT IN OLKD )@@G@@D-CUMULATIVE-RECORD (TYPE-SUB). @E@@@@ ADD SEC-LOST IN CUKE )@@G@@RRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@ SEC-LOST IN OLD-CUMUKF )@@G@@LATIVE-RECORD (TYPE-SUB). @@@@@@@ @@@@ 1701-SUM-SHIFT-MERGE. KG )@@G@@@F@@@@ ADD TOT-RPTS IN CURRENT-DAY-RECORD (SHIFT-SUB) TO KH )@@G@@@F@@@@ TOT-RPTS IN OLD-CUMULATIVE-RECORD (SHIFT-SUB). KI )@@G@@@F@@@@ ADD TOT-LINES IN CURRENT-DAY-RECORD (SHIFT-SUB) TO KJ )@@G@@@F@@@@ TOT-LINES IN OLD-CUMULATIVE-RECORD (SHIFT-SUB). KK )@@G@@@F@@@@ ADD SPC-FORMS IN CURRENT-DAY-RECORD (SHIFT-SUB) TO KL )@@G@@@F@@@@ SPC-FORMS IN OLD-CUMULATIVE-RECORD (SHIFT-SUB). KM )@@G@@@F@@@@ ADD PR-BL-TIME IN CURRENT-DAY-RECORD (SHIFT-SUB) TO KN )@@G@@@F@@@@ PR-BL-TIME IN OLD-CUMULATIVE-RECORD (SHIFT-SUB). KO )@@G@@@F@@@@ MOVE AV-PRI IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECORD KP )@@G@@@ @@@@ (SHIFT-SUB)@A@@@@ TO BT-AV-PRI-FOKQ )@@G@@R-AVG.@G@@@@ MOVE AV-PRI IN AC-RT-BATCH-DATA IN OLD-CUMULATIVEKR )@@G@@-RECORD @ @@@@ (SHIFT-SUB)@A@@@@ TO KS )@@G@@RT-AV-PRI-FOR-AVG.@G@@@@ MOVE TOT-SUPS IN AC-RT-BATCH-DATA IN KT )@@G@@OLD-CUMULATIVE-RECORD @ @@@@ (SHIFT-SUB)@A@@@@ KU )@@G@@ TO RT-SUPS-FOR-AVG. @F@@@@ MOVE TOT-SUPS IN AC-BATCHKV )@@G@@-DATA IN OLD-CUMULATIVE-RECORD@ @@@@ (SHIFT-SUB)@A@@@@KW )@@G@@ TO BT-SUPS-FOR-AVG. @G@@@@ ADD CORR AC-BATCH-DKX )@@G@@ATA IN CURRENT-DAY-RECORD (SHIFT-SUB) TO @F@@@@ AC-BATCH-KY )@@G@@DATA IN OLD-CUMULATIVE-RECORD (SHIFT-SUB).@G@@@@ ADD CORR AC-DKZ )@@G@@EMAND-DATA IN CURRENT-DAY-RECORD (SHIFT-SUB) TO @G@@@@ AC-LA )@@G@@DEMAND-DATA IN OLD-CUMULATIVE-RECORD (SHIFT-SUB). @G@@@@ ALB )@@G@@DD CORR AC-RT-BATCH-DATA IN CURRENT-DAY-RECORD (SHIFT-SUB) @G@@@@ LC )@@G@@ TO AC-RT-BATCH-DATA IN OLD-CUMULATIVE-RECORD (SHIFT-SUB).@G@@@@LD )@@G@@ ADD CORR AC-RT-DMAND-DATA IN CURRENT-DAY-RECORD (SHIFT-SUB) LE )@@G@@@G@@@@ TO AC-RT-DMAND-DATA IN OLD-CUMULATIVE-RECORD (SHIFTLF )@@G@@-SUB).@F@@@@ IF TOT-SUPS IN AC-BATCH-DATA IN CURRENT-DAY-RECORLG )@@G@@D @C@@@@ (SHIFT-SUB) NOT EQUAL TO 0 @D@@@@ LH )@@G@@ AND BT-SUPS-FOR-AVG NOT EQUAL TO 0 @^@@@@ COMPULI )@@G@@TE @F@@@@ AV-PRI IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECLJ )@@G@@ORD @B@@@@ (SHIFT-SUB) =@F@@@@ LK )@@G@@ (AV-PRI IN AC-BATCH-DATA IN CURRENT-DAY-RECORD @B@@@@ LL )@@G@@ (SHIFT-SUB) * @G@@@@ TOT-SUPS IN AC-BLM )@@G@@ATCH-DATA IN CURRENT-DAY-RECORD @B@@@@ (SHIFTLN )@@G@@-SUB) + @E@@@@ BT-AV-PRI-FOR-AVG * BT-SUPS-FOR-AVLO )@@G@@G) /@G@@@@ (TOT-SUPS IN AC-BATCH-DATA IN CURRENT-DAYLP )@@G@@-RECORD @B@@@@ (SHIFT-SUB) + @A@@@@ LQ )@@G@@ BT-SUPS-FOR-AVG)@#@@@@ ELSE @D@@@@ LR )@@G@@ MOVE 0 TO AV-PRI IN AC-BATCH-DATA IN @E@@@@ OLS )@@G@@LD-CUMULATIVE-RECORD (SHIFT-SUB). @C@@@@ IF TOT-SUPS IN AC-RLT )@@G@@T-BATCH-DATA IN @F@@@@ CURRENT-DAY-RECORD (SHIFT-SUBLU )@@G@@) NOT EQUAL TO 0 @D@@@@ AND RT-SUPS-FOR-AVG NOT EQUAL TO LV )@@G@@0 @^@@@@ COMPUTE @F@@@@ AV-PRI IN AC-RTLW )@@G@@-BATCH-DATA IN OLD-CUMULATIVE-RECORD@B@@@@ (SHLX )@@G@@IFT-SUB) =@G@@@@ (AV-PRI IN AC-RT-BATCH-DATA IN CURRLY )@@G@@ENT-DAY-RECORD @B@@@@ (SHIFT-SUB) * @G@@@@LZ )@@G@@ TOT-SUPS IN AC-RT-BATCH-DATA IN CURRENT-DAY-RECORDMA )@@G@@@B@@@@ (SHIFT-SUB) + @F@@@@ MB )@@G@@ RT-AV-PRI-FOR-AVG * RT-SUPS-FOR-AVG) / @G@@@@ MC )@@G@@ (TOT-SUPS IN AC-RT-BATCH-DATA IN CURRENT-DAY-RECORD @B@@@@ MD )@@G@@ (SHIFT-SUB) + @B@@@@ RT-SUPS-FOR-AVME )@@G@@G) @#@@@@ ELSE @D@@@@ MOVE 0 TO AV-PRI IN AMF )@@G@@C-RT-BATCH-DATA IN@E@@@@ OLD-CUMULATIVE-RECORD (SHMG )@@G@@IFT-SUB). ___IN @D@@@@ MOVE 0 TO AV-PRI IN AC-RT-BATCH-DMH )@@G@@ATA IN@E@@@@ *[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONMI )@@G@@. @ @@@@ PROGRAM-ID. H1550081. @ @@@@ AUTHOR. JOHN BROZMJ )@@G@@OVSKY.@C@@@@ INSTALLATION. TEXAS DEPARTMENT OF HEALTH.@B@@@@ MK )@@G@@ DATE-WRITTEN. OCTOBER 16, 1978. @^@@@@ DATE-COMPILED. @C@@@@ML )@@G@@ *REMARKS. *** ASCII ANS-1974 *** @F@@@@ * PROMM )@@G@@GRAM H1550081 WILL PRODUCE ANY OR ALL OF FOUR @G@@@@ * OUTMN )@@G@@PUTS: CUMULATIVE-DAILY-ACCOUNTING-FILE, DAILY-REPORT, @E@@@@ * MO )@@G@@ MONTHLY-SUMMARY-BY-ACCOUNT-ACCOUNTING-FILE, @G@@@@ * MONMP )@@G@@THLY-REPORT (BY-ACCOUNT); FROM EITHER OR BOTH THE @E@@@@ * MQ )@@G@@ CUMULATIVE-DAILY-ACCOUNTING-FILE, AND THE @B@@@@ * DAIMR )@@G@@LY-ACCOUNTING-FILE. @G@@@@ * A PARAMETER CARD IS INPUTEDMS )@@G@@ SPECIFYING THE REQUIRED I/O. @]@@@@ * @]@@@@ * @]@@@@MT )@@G@@ * @]@@@@ * @ @@@@ * CHANGE 10 MAY 80 @C@@@@MU )@@G@@ * CONVERT TO ANS 1974 COBOL (ACOB4). @]@@@@ * @C@@@[MV )@@G@@ * CHANGE #2 07/11/80 D. HEROLD @D@@@[ * ALLOW MMW )@@G@@ONTHLY REPORT TO BE PRINTED WITHOUT @C@@@[ * ALSO CREATING MONTHMX )@@G@@LY SUMMARY FILE. @ @@@@ ENVIRONMENT DIVISION. @ @@@@ CONFIMY )@@G@@GURATION SECTION. @ @@@@ COPY COMPUTER-NAMES. @@@@@@@^@@@@ MZ )@@G@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NAMES. @ @@@@ INPUTNA )@@G@@-OUTPUT SECTION. @^@@@@ FILE-CONTROL. @C@@@@ SELECT NB )@@G@@OPTIONAL CURRENT-DAY-FILE @D@@@@ ASSIGN TO MASS-STORAGNC )@@G@@E DAILY-ACCNT. @C@@@@ SELECT OPTIONAL OLD-CUMULATIVE-FILE ND )@@G@@@C@@@@ ASSIGN TO UNISERVO OLD-CUM-DLY. @B@@@@ SNE )@@G@@ELECT NEW-CUMULATIVE-FILE @C@@@@ ASSIGN TO UNISERVO NENF )@@G@@W-CUM-DLY. @A@@@@ SELECT DAILY-REPORT-FILE @C@@@@ NG )@@G@@ ASSIGN TO PRINTER DLY-ACNT-RPT. @B@@@@ SELECT MONTHLY-REPONH )@@G@@RT-FILE @C@@@@ ASSIGN TO PRINTER MTH-ACNT-RPT. @B@@@@NI )@@G@@ SELECT MONTHLY-SUMMARY-FILE @D@@@@ ASSIGN TONJ )@@G@@ MASS-STORAGE MTH-ACNT-SUM. @ @@@@ SELECT SORT-FILE @B@@@@NK )@@G@@ ASSIGN TO MASS-STORAGE XA. @A@@@@ SELECT PARAMENL )@@G@@TER-FILE @B@@@@ ASSIGN TO CARD-READER. @]@@@@ NM )@@G@@/ @^@@@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE SECTIONN )@@G@@N. @@@@@@@@@@@@@@@@@@@ @@@@ FD CURRENT-DAY-FILE @A@@@@ NO )@@G@@ BLOCK CONTAINS 3 RECORDS @B@@@@ LABEL RECORDS ARE STANDARNP )@@G@@D @C@@@@ DATA RECORD IS CURRENT-DAY-RECORD. @@@@@@@D@@@@NQ )@@G@@ 01 CURRENT-DAY-RECORD. COPY DLY-ACCT-MST. @@@@@@@@@@@@@ @@@@NR )@@G@@ FD OLD-CUMULATIVE-FILE@A@@@@ BLOCK CONTAINS 3 RECORDS NS )@@G@@@B@@@@ LABEL RECORDS ARE STANDARD @C@@@@ DATA RENT )@@G@@CORD IS OLD-CUMULATIVE-RECORD.@@@@@@@D@@@@ 01 OLD-CUMULATIVE-RECONU )@@G@@RD. COPY DLY-ACCT-MST. @@@@@@@@@@@@@ @@@@ FD NEW-CUMULATIVE-FILENV )@@G@@@A@@@@ BLOCK CONTAINS 3 RECORDS @B@@@@ LABEL RECORDSNW )@@G@@ ARE STANDARD @C@@@@ DATA RECORD IS NEW-CUMULATIVE-RECORD.NX )@@G@@@@@@@@@D@@@@ 01 NEW-CUMULATIVE-RECORD. COPY DLY-ACCT-MST. @@@@@@NY )@@G@@@@@@@@@ @@@@ FD DAILY-REPORT-FILE @A@@@@ LABEL RECORDSNZ )@@G@@ ARE OMITTED@A@@@@ LINAGE 62 TOP 2 BOTTOM 2 @B@@@@ DOA )@@G@@ATA RECORD IS DAILY-REPORT. @@@@@@@D@@@@ 01 DAILY-REPORT OB )@@G@@ PIC X(132). @@@@@@@@@@@@@ @@@@ FD MONTHLY-REPORT-FILEOC )@@G@@@A@@@@ LABEL RECORDS ARE OMITTED@B@@@@ DATA RECORD IOD )@@G@@S MONTHLY-REPORT. @@@@@@@D@@@@ 01 MONTHLY-REPORT PICOE )@@G@@ X(132). @@@@@@@@@@@@@A@@@@ FD MONTHLY-SUMMARY-FILE @A@@@@OF )@@G@@ BLOCK CONTAINS 3 RECORDS @B@@@@ LABEL RECORDS ARE SOG )@@G@@TANDARD @D@@@@ DATA RECORD IS MONTHLY-SUMMARY-RECORD. OH )@@G@@@@@@@@@D@@@@ 01 MONTHLY-SUMMARY-RECORD. COPY DLY-ACCT-MST. @@@@@@OI )@@G@@@@@@@@@A@@@@ 01 MONTHLY-SUMMARY-CLEAR. @D@@@@ 03 FILOJ )@@G@@LER USAGE DISP-1 PIC X(24). @^@@@@ 03 X-CLEAR. @E@@@@OK )@@G@@ 05 CLEARING-SUMMARY USAGE COMP-4 OCCURS 328 @D@@@@ OL )@@G@@ TIMES PIC 9(10). @@@@@@@@@@@@@ @@@@ OM )@@G@@ FD PARAMETER-FILE @B@@@@ RECORD CONTAINS 80 CHARACTERS ON )@@G@@@A@@@@ LABEL RECORDS ARE OMITTED@B@@@@ DATA RECORD IOO )@@G@@S CONTROL-CARD. @@@@@@@B@@@@ 01 CONTROL-CARD USAGE DISP-1. OP )@@G@@@E@@@@ 05 FILLER PIC X(15). @D@@@@OQ )@@G@@ 05 SW-CUR-DAY-EXISTS PIC X. @F@@@@ OR )@@G@@ 88 CUR-DAY-EXISTS VALUE '1'. @D@@@@ 0OS )@@G@@5 SW-OLD-CUM-EXISTS PIC X. @F@@@@ 88 OLD-COT )@@G@@UM-EXISTS VALUE '1'. @D@@@@ 05 SW-NEW-CUOU )@@G@@M-EXISTS PIC X. @F@@@@ 88 NEW-CUM-EXISTS OV )@@G@@ VALUE '1'. @D@@@@ 05 SW-DAILY-REPORT-EXISTOW )@@G@@S PIC X. @F@@@@ 88 DAILY-REPORT-EXISTS OX )@@G@@ VALUE '1'. @D@@@@ 05 SW-MONTHLY-REPORT-EXISTS PIC XOY )@@G@@. @F@@@@ 88 MONTHLY-REPORT-EXISTS VALUE '1'OZ )@@G@@. @D@@@@ 05 SW-MONTHLY-SUMMARY-EXISTS PIC X. @F@@@@PA )@@G@@ 88 MONTHLY-SUMMARY-EXISTS VALUE '1'. @D@@@@PB )@@G@@ 05 BEGIN-DAILY-DATE PIC XX. @D@@@@ 0PC )@@G@@5 END-DAILY-DATE PIC XX. @D@@@@ 05 PROCESSINPD )@@G@@G-MM PIC XX. @D@@@@ 05 PROCESSING-YY PE )@@G@@ PIC XX. @@@@@@@@@@@@@^@@@@ SD SORT-FILE @B@@@@ PF )@@G@@ DATA RECORD IS SORT-RECORD. @@@@@@@B@@@@ 01 SORT-RECORD. PG )@@G@@COPY DLY-ACCT-MST.@@@@@@@@@@@@@]@@@@ / @A@@@@ WORKING-STOPH )@@G@@RAGE SECTION. @@@@@@@@@@@@@@@@@@@B@@@@ 01 WORK-RECORD. COPY DPI )@@G@@LY-ACCT-MST.@@@@@@@D@@@@ 01 WORK-RECORD-CLEAR REDEFINES WORK-RECOPJ )@@G@@RD. @E@@@@ 03 FILLER USAGE DISP-1 PIC X(24). PK )@@G@@@^@@@@ 03 X-CLEAR. @D@@@@ 05 CLEARING-WORK-RECPL )@@G@@ORD USAGE COMP-4 @D@@@@ OCCURS 328 TIMES PIC PM )@@G@@9(10).@@@@@@@@@@@@@C@@@@ 01 DATE-6 USAGE DISP-1 PIC X(6). PN )@@G@@@C@@@@ 01 DATE-8 USAGE DISP-1 PIC X(8). @D@@@@ 01 DPO )@@G@@ATE-SLASH USAGE DISP-1 VALUE '1' PIC X. @D@[@@ 01 REC-LENGTH VAPP )@@G@@LUE 329 USAGE COMP PIC 9(10). @D@@@[ 01 REC-LENGTH VALUE 332 USAGPQ )@@G@@E COMP PIC 9(10). @D@@@@ 01 REC-VOL VALUE 0 USAGE COMP PIC PR )@@G@@9(10).@D@@@@ 01 CORE-SIZE VALUE 15000 USAGE COMP PIC 9(10).@D@@@@PS )@@G@@ 01 STATUZ VALUE 0 USAGE COMP PIC 9(10).@E@@@@ 01 EPT )@@G@@XFILNAME VALUE 'DAILY-ACCNT ' PIC X(12). @B@@@@ 01 REPORT-PU )@@G@@DATE-HOLD USAGE DISP-1.@C@@@@ 05 REPORT-YEAR PIPV )@@G@@C XX. @C@@@@ 05 REPORT-MONTH PIC XX. @C@@@@ PW )@@G@@ 05 DATE-HOLD PIC XX. @B@@@@ 01 ACCOUNT-HOLD PX )@@G@@USAGE DISP-1. @D@@@@ 05 FILLER PIC XPY )@@G@@. @D@@@@ 05 ACCOUNT-NUM-HOLD PIC XXX. @D@@@@PZ )@@G@@ 05 ACCOUNT-TYPE-HOLD PIC X. @D@@@@ 0QA )@@G@@5 FILLER PIC X(7). @@@@@@@@@@@@@B@@@@ 01 SQB )@@G@@UMMARY-TABLE USAGE COMP-4. @C@@@@ 05 PROD-DEVP-TOTL OCCURSQC )@@G@@ 3 TIMES. @B@@@@ 10 SHIFTS OCCURS 4 TIMES.@E@@@@ QD )@@G@@ 15 TOTAL-BATCH-DEMAND OCCURS 3 TIMES. @A@@@@ QE )@@G@@ 18 DETALE. @D@@@@ 20 FILLER QF )@@G@@PIC 9999. @D@@@@ 20 NR-RUNS PIC 9(5). QG )@@G@@@D@@@@ 20 FILLER PIC 9999. @D@@@@ QH )@@G@@ 20 NR-RUN-ERR PIC 9(5). @D@@@@ QI )@@G@@ 20 FILLER PIC 9999. @D@@@@ 20 PCTQJ )@@G@@-ERROR PIC 999V9. @C@@@@ 20 FILLER QK )@@G@@PIC 9.@E@@@@ 20 SUP-HOURS PIC 9(4)V999. QL )@@G@@@D@@@@ 20 FILLER PIC 99. @E@@@@ QM )@@G@@ 20 CPU-HOURS PIC 999V999. @C@@@@ QN )@@G@@ 20 FILLER PIC 99. @E@@@@ 20 ELAQO )@@G@@P-HOURS PIC 9(4)V99. @C@@@@ 20 FILLER QP )@@G@@ PIC 9999.@D@@@@ 20 AVG-SUP PIC 99V999.QQ )@@G@@@C@@@@ 20 FILLER PIC 9999.@D@@@@ QR )@@G@@ 20 AVG-CPU PIC 99V999.@C@@@@ 2QS )@@G@@0 FILLER PIC 9999.@D@@@@ 20 AVG-ELAP QT )@@G@@ PIC 99V999.@C@@@@ 20 FILLER PIC 99. @E@@@@QU )@@G@@ 20 SUP-CPU-RATIO PIC 999V999. @C@@@@ QV )@@G@@ 20 FILLER PIC 99.@E@@@@ 2QW )@@G@@0 ELAP-SUP-RATIO PIC 999V999. @C@@@@ 20 FILQX )@@G@@LER PIC 99.@E@@@@ 20 ELAP-CPU-RATIO PIC 9QY )@@G@@99V999. @C@@@@ 20 FILLER PIC 9. @D@@@@QZ )@@G@@ 20 PAGES PIC 9(7). @@@@@@@C@@@@ RA )@@G@@ 01 SUMMARY-TABLE-MONTHLY USAGE COMP-4. @B@@@@ 05 SHFTS OCRB )@@G@@CURS 5 TIMES. @D@@@@ 10 TOTAL-BATCH-DMND OCCURS 3 TIRC )@@G@@MES. @ @@@@ 18 MO-SUM.@D@@@@ 2RD )@@G@@0 FILLER PIC 9999. @D@@@@ 20 NR-RUNS RE )@@G@@ PIC 9(5). @D@@@@ 20 FILLER PIC 999RF )@@G@@9. @D@@@@ 20 NR-RUN-ERR PIC 9(5). @D@@@@RG )@@G@@ 20 FILLER PIC 9999. @D@@@@ RH )@@G@@ 20 PCT-ERROR PIC 999V9. @C@@@@ 2RI )@@G@@0 FILLER PIC 9.@E@@@@ 20 SUP-HOURS RJ )@@G@@ PIC 9(4)V999. @D@@@@ 20 FILLER PIC 99RK )@@G@@. @E@@@@ 20 CPU-HOURS PIC 999V999. RL )@@G@@@D@@@@ 20 FILLER PIC 99. @E@@@@ RM )@@G@@ 20 ELAP-HOURS PIC 9(4)V99. @D@@@@ RN )@@G@@ 20 FILLER PIC 9999. @D@@@@ 2RO )@@G@@0 AVG-SUP PIC 99V999.@D@@@@ 20 FILLER RP )@@G@@ PIC 9999. @D@@@@ 20 AVG-CPU PIC 9RQ )@@G@@9V999.@D@@@@ 20 FILLER PIC 9999. @D@@@@RR )@@G@@ 20 AVG-ELAP PIC 99V999.@D@@@@ RS )@@G@@ 20 FILLER PIC 99. @E@@@@ 2RT )@@G@@0 SUP-CPU-RATIO PIC 999V999. @D@@@@ 20 FILRU )@@G@@LER PIC 99. @E@@@@ 20 ELAP-SUP-RATIO RV )@@G@@ PIC 999V999. @D@@@@ 20 FILLER PIC 99RW )@@G@@. @E@@@@ 20 ELAP-CPU-RATIO PIC 999V999. RX )@@G@@@C@@@@ 20 FILLER PIC 9.@D@@@@ RY )@@G@@ 20 PAGES PIC 9(7). @@@@@@@D@@@@ 01 SUMMARYRZ )@@G@@-TABLE-TOTAL-MONTHLY USAGE COMP-4. @C@@@@ 05 PROD-DEVP-TOT SA )@@G@@OCCURS 3 TIMES. @B@@@@ 10 SHIFTS OCCURS 5 TIMES.@E@@@@SB )@@G@@ 15 TOTAL-BATCH-DEMAND OCCURS 3 TIMES. @A@@@@ SC )@@G@@ 18 TOT-MO. @D@@@@ 20 FILLER SD )@@G@@ PIC 9999. @D@@@@ 20 NR-RUNS PIC 9SE )@@G@@(5). @D@@@@ 20 FILLER PIC 9999. @D@@@@SF )@@G@@ 20 NR-RUN-ERR PIC 9(5). @D@@@@ SG )@@G@@ 20 FILLER PIC 9999. @D@@@@ 2SH )@@G@@0 PCT-ERROR PIC 999V9. @C@@@@ 20 FILLER SI )@@G@@ PIC 9.@E@@@@ 20 SUP-HOURS PIC 9(4)V99SJ )@@G@@9. @D@@@@ 20 FILLER PIC 99. @E@@@@SK )@@G@@ 20 CPU-HOURS PIC 999V999. @D@@@@ SL )@@G@@ 20 FILLER PIC 99. @E@@@@ SM )@@G@@ 20 ELAP-HOURS PIC 9(4)V99. @D@@@@ 2SN )@@G@@0 FILLER PIC 9999. @D@@@@ 20 AVG-SUP SO )@@G@@ PIC 99V999.@D@@@@ 20 FILLER PIC 99SP )@@G@@99. @D@@@@ 20 AVG-CPU PIC 99V999.@D@@@@SQ )@@G@@ 20 FILLER PIC 9999. @D@@@@ SR )@@G@@ 20 AVG-ELAP PIC 99V999.@D@@@@ 2SS )@@G@@0 FILLER PIC 99. @E@@@@ 20 SUP-CPU-RST )@@G@@ATIO PIC 999V999. @D@@@@ 20 FILLER SU )@@G@@PIC 99. @E@@@@ 20 ELAP-SUP-RATIO PIC 999V999SV )@@G@@. @D@@@@ 20 FILLER PIC 99. @E@@@@SW )@@G@@ 20 ELAP-CPU-RATIO PIC 999V999. @C@@@@ SX )@@G@@ 20 FILLER PIC 9.@D@@@@ 2SY )@@G@@0 PAGES PIC 9(7). @@@@@@@@@@@@@@@@@@@@@@@@@^@@@@ COPY SZ )@@G@@DEPT-HEADER.@@@@@@@ @@@@ 01 HEADING-3-DAILY. @G@@@@ 0TA )@@G@@5 FILLER PIC X(54) VALUE SPACES. @D@@@@ TB )@@G@@ 05 FILLER PIC X(78) @E@@@@ TC )@@G@@ VALUE 'RUNSTREAM SUMMARY BY DAY '. @@@@@@@ @@@@ 01 HEADINGTD )@@G@@-3-MONTHLY. @G@@@@ 05 FILLER PIC X(51) TE )@@G@@ VALUE SPACES. @D@@@@ 05 FILLER PIC XTF )@@G@@(81) @F@@@@ VALUE 'RUNSTREAM SUMMARY BY ACCT. CODTG )@@G@@E '. @@@@@@@^@@@@ 01 HEADING-4. @G@@@@ 05 FILLER TH )@@G@@ PIC X(51) VALUE SPACES. @E@@@@ 05 FILTI )@@G@@LER VALUE 'ACCOUNT CODE: ' PIC X(14). @D@@@@ 05 HEADING-ATJ )@@G@@CCT PIC X(12). @G@@@@ 05 FILLER TK )@@G@@ PIC X(55) VALUE SPACES. @@@@@@@ @@@@ 01 HEADING-5-DAITL )@@G@@LY. @E@@@@ 05 FILLER VALUE SPACES PIC X(58). TM )@@G@@@D@@@@ 05 FILLER VALUE 'FOR: ' PIC X(6).@D@@@@ TN )@@G@@ 05 HEADING-MONTH PIC XX. @D@@@@ 05 FILTO )@@G@@LER VALUE '/' PIC X. @D@@@@ 05 HEADING-DAY TP )@@G@@ PIC XX. @D@@@@ 05 FILLER VALUE '/' TQ )@@G@@ PIC X. @D@@@@ 05 HEADING-YEAR PIC XX. TR )@@G@@@E@@@@ 05 FILLER VALUE SPACES PIC X(60). @@@@@@TS )@@G@@@ @@@@ 01 HEADING-5-MONTHLY. @E@@@@ 05 FILLER VALUE TT )@@G@@SPACES PIC X(59). @E@@@@ 05 FILLER VALUE 'FOR: TU )@@G@@ ' PIC X(6). @E@@@@ 05 HEAD-MONTH TV )@@G@@ PIC XX. @E@@@@ 05 FILLER VALUE ' / ' TW )@@G@@PIC XXX. @E@@@@ 05 HEAD-YEAR PIC XXTX )@@G@@. @E@@@@ 05 FILLER VALUE SPACES PIC X(60). TY )@@G@@@@@@@@@ @@@@ 01 HEADING-6-DAILY. @E@@@@ 05 FILLER VTZ )@@G@@ALUE 'DAY OF WEEK = ' PIC X(14). @D@@@@ 05 HEADING-DAY-WK UA )@@G@@ PIC X(9). @G@@@@ 05 FILLER UB )@@G@@ PIC X(109) VALUE SPACES. @@@@@@@^@@@@ 01 HEADING-6. @F@@@@UC )@@G@@ 05 FILLER PIC X(65) VALUE SPACES. @D@@@@UD )@@G@@ 05 FILLER PIC X(29) @E@@@@ UE )@@G@@ VALUE 'AVG SUP AVG CPU AVG ELAPSED'. @F@@@@ 05 FILUF )@@G@@LER PIC X(10) VALUE SPACES. @D@@@@ 05 FILUG )@@G@@LER PIC X(20) @D@@@@ VALUE ' EUH )@@G@@LAPSED/ ELAPSED/ '. @F@@@@ 05 FILLER UI )@@G@@PIC X(8) VALUE SPACES. @@@@@@@^@@@@ 01 HEADING-7. @E@@@@ UJ )@@G@@ 05 FILLER PIC X(53) VALUE @G@@@@ UK )@@G@@ ' NR NR RUN PCT SUP CPU '. @E@@@@ UL )@@G@@ 05 FILLER PIC X(51) VALUE @G@@@@ UM )@@G@@ ' ELAPSED HOURS HOURS HOURS SUP/CPU '. @E@@@@ UN )@@G@@ 05 FILLER PIC X(28) VALUE @C@@@@ UO )@@G@@ ' SUP CPU PAGES '. @@@@@@@^@@@@ 01 HEADING-8. UP )@@G@@@E@@@@ 05 FILLER PIC X(53) VALUE @G@@@@UQ )@@G@@ ' RUNS ERRORS ERROR HOURS HOURS'. UR )@@G@@@E@@@@ 05 FILLER PIC X(51) VALUE @G@@@@US )@@G@@ ' HOURS PER RUN PER RUN PER RUN RATIO '. UT )@@G@@@E@@@@ 05 FILLER PIC X(28) VALUE @C@@@@UU )@@G@@ ' RATIO RATIO CREATED'. @@@@@@@ @@@@ 01 PUV )@@G@@ROD-DEVP-HEADING. @D@@@@ 05 FILLER VALUE 'PRODUCTION' PIC XUW )@@G@@(26). @D@@@@ 05 FILLER VALUE 'DEVELOPMENT' PIC X(26). @G@@@@UX )@@G@@ 05 FILLER VALUE 'PRODUCTION AND DEVELOPMENT' PIC X(26). UY )@@G@@@@@@@@@D@@@@ 01 PROD-HEADING REDEFINES PROD-DEVP-HEADING. @D@@@@UZ )@@G@@ 05 TYPE-HEADING OCCURS 3 TIMES PIC X(26). @@@@@@@@@@@@@#@@@@VA )@@G@@ 01 DAYS. @E@@@@ 05 FILLER VALUE 'SUNDAY ' VB )@@G@@ PIC X(9). @E@@@@ 05 FILLER VALUE 'MONDAY ' PIC XVC )@@G@@(9). @E@@@@ 05 FILLER VALUE 'TUESDAY ' PIC X(9). VD )@@G@@@E@@@@ 05 FILLER VALUE 'WEDNESDAY' PIC X(9). @E@@@@VE )@@G@@ 05 FILLER VALUE 'THURSDAY ' PIC X(9). @E@@@@ VF )@@G@@ 05 FILLER VALUE 'FRIDAY ' PIC X(9). @E@@@@ 0VG )@@G@@5 FILLER VALUE 'SATURDAY ' PIC X(9). @@@@@@@B@@@@ 01 DVH )@@G@@AYS-OF-WEEK REDEFINES DAYS. @E@@@@ 05 DAY-OF-WEEK OCCURS 7 VI )@@G@@TIMES PIC X(9). @@@@@@@E@@@@ 01 DAY-OF-WEEK-HOLD VJ )@@G@@ PIC 9(6). @@@@@@@@@@@@@^@@@@ 01 TEXT-MESSAGE.@D@@@@VK )@@G@@ 05 FILLER VALUE '0001-0800' PIC X(9). @D@@@@ 0VL )@@G@@5 FILLER VALUE ' BATCH ' PIC X(9). @D@@@@ 05 FILLER VVM )@@G@@ALUE ' DEMAND ' PIC X(9). @D@@@@ 05 FILLER VALUE '0801-1VN )@@G@@700' PIC X(9). @D@@@@ 05 FILLER VALUE ' BATCH ' PIC XVO )@@G@@(9). @D@@@@ 05 FILLER VALUE ' DEMAND ' PIC X(9). @D@@@@VP )@@G@@ 05 FILLER VALUE '1701-2400' PIC X(9). @D@@@@ 0VQ )@@G@@5 FILLER VALUE ' BATCH ' PIC X(9). @D@@@@ 05 FILLER VVR )@@G@@ALUE ' DEMAND ' PIC X(9). @D@@@@ 05 FILLER VALUE 'TOTAL VS )@@G@@ ' PIC X(9). @D@@@@ 05 FILLER VALUE ' BATCH ' PIC XVT )@@G@@(9). @D@@@@ 05 FILLER VALUE ' DEMAND ' PIC X(9). @D@@@@VU )@@G@@ 05 FILLER VALUE 'WEEKEND ' PIC X(9). @D@@@@ 0VV )@@G@@5 FILLER VALUE ' BATCH ' PIC X(9). @D@@@@ 05 FILLER VVW )@@G@@ALUE ' DEMAND ' PIC X(9). @@@@@@@C@@@@ 01 MESSAGE-TEXT REDEFIVX )@@G@@NES TEXT-MESSAGE. @C@@@@ 05 MESSAGE-FOR-LINE OCCURS 5 TIMES. VY )@@G@@@G@@@@ 10 LINE-MESSAGE PIC X(9) OCCURS 3 TIMESVZ )@@G@@. @@@@@@@@@@@@@^@@@@ 01 PRINT-LINE. @B@@@@ WA )@@G@@ 18 PRINT-FIGURES. @F@@@@ 20 FILLER WB )@@G@@ PIC XX VALUE SPACES. @D@@@@ 20 TEXT-MSG WC )@@G@@ PIC X(9). @F@@@@ 20 FILLER PIC X VALWD )@@G@@UE SPACES. @E@@@@ 20 NR-RUNS PIC ZZZ,ZZ9WE )@@G@@. @F@@@@ 20 FILLER PIC XXX VALUE SPAWF )@@G@@CES. @D@@@@ 20 NR-RUN-ERR PIC Z,ZZ9. @F@@@@WG )@@G@@ 20 FILLER PIC X VALUE SPACES. @D@@@@WH )@@G@@ 20 PCT-ERROR PIC ZZZ.9. @F@@@@ WI )@@G@@ 20 FILLER PIC X VALUE SPACES. @E@@@@ WJ )@@G@@ 20 SUP-HOURS PIC Z,ZZZ.999. @F@@@@ WK )@@G@@ 20 FILLER PIC X VALUE SPACES. @E@@@@ WL )@@G@@ 20 CPU-HOURS PIC Z,ZZZ.999. @F@@@@ 2WM )@@G@@0 FILLER PIC X VALUE SPACES. @E@@@@ 2WN )@@G@@0 ELAP-HOURS PIC ZZ,ZZZ.99. @F@@@@ 20 FILWO )@@G@@LER PIC XXX VALUE SPACES. @D@@@@ 20 AVGWP )@@G@@-SUP PIC ZZ.999.@F@@@@ 20 FILLER WQ )@@G@@ PIC XXX VALUE SPACES. @D@@@@ 20 AVG-CPU WR )@@G@@ PIC ZZ.999.@F@@@@ 20 FILLER PIC XXXX VAWS )@@G@@LUE SPACES. @D@@@@ 20 AVG-ELAP PIC ZZ.999.WT )@@G@@@F@@@@ 20 FILLER PIC X(5) VALUE SPACES. WU )@@G@@@E@@@@ 20 SUP-CPU-RATIO PIC ZZZ.999. @F@@@@WV )@@G@@ 20 FILLER PIC XX VALUE SPACES. @E@@@@WW )@@G@@ 20 ELAP-SUP-RATIO PIC ZZZ.999. @F@@@@ WX )@@G@@ 20 FILLER PIC XXX VALUE SPACES. @E@@@@ WY )@@G@@ 20 ELAP-CPU-RATIO PIC ZZZ.999. @F@@@@ WZ )@@G@@ 20 FILLER PIC X VALUE SPACES. @E@@@@ XA )@@G@@ 20 PAGES PIC Z,ZZZ,ZZ9. @@@@@@@@@@@@@E@@@@ XB )@@G@@ 01 SW-FINAL-REPORT-DAY VALUE ' ' PIC XXX. @D@@@@ 8XC )@@G@@8 FINAL-REPORT-DAY-FROM-OLD VALUE 'OLD'.@E@@@@ 88 FINAL-REPOXD )@@G@@RT-DAY-FROM-CUR VALUE 'CUR'. @@@@@@@D@@@@ 01 WHICH-FILE-FLXE )@@G@@AG VALUE 'OLD' PIC XXX. @B@@@@ 88 OLD-CUM VALUE 'OXF )@@G@@LD'. @B@@@@ 88 CURRENT VALUE 'CUR'. @E@@@@ 01 FXG )@@G@@REE-FILE-IMAGE USAGE DISP-1 PIC X(80) VALUE@D@@@@ XH )@@G@@ '@FREE OLD-CUM-DLY '. @E@@@@ 01 STAT-WORD USXI )@@G@@AGE DISP-1 PIC S9(10). @C@@@@ 01 SW-END-OF-INPUT VALUE 0 XJ )@@G@@ PIC 9. @A@@@@ 88 END-OF-INPUT VALUE 2.@@@@@@@E@@@@ XK )@@G@@ 01 TOTAL-SUB VALUE 3 PIC 9(10) COMP. @E@@@@ 01 PXL )@@G@@ROD-DEVP-SUB PIC 9(10) COMP. @E@@@@ 01 TYPE-SUXM )@@G@@B PIC 9(10) COMP. @E@@@@ 01 SHIFT-SUB XN )@@G@@ PIC 9(10) COMP. @@@@@@@D@@@@ 01 RT-SUPS-FOR-AXO )@@G@@VG USAGE COMP-4 PIC 9(10). @D@@@@ 01 RT-AV-PRI-FOR-AVG USAGE XP )@@G@@COMP-4 PIC 9(18). @D@@@@ 01 BT-SUPS-FOR-AVG USAGE COMP-4 PIC 9XQ )@@G@@(10). @D@@@@ 01 BT-AV-PRI-FOR-AVG USAGE COMP-4 PIC 9(18). @@@@@@XR )@@G@@@E@@@@ 01 T-SHIFT-SUB VALUE 4 PIC 9(10) COMP. @E@@@@XS )@@G@@ 01 RT-SUP-HOURS PIC 9(5)V999. @E@@@@ XT )@@G@@ 01 BT-SUP-HOURS PIC 9(5)V999. @D@@@@ 01 XXU )@@G@@-NUMBER-OF VALUE 2 PIC 9. @D@@@@ 01 DAILY-PAGE-NOXV )@@G@@ VALUE 0 PIC 999. @D@@@@ 01 MONTHLY-PAGE-NO VALUE XW )@@G@@0 PIC 999. @E@@@@ 01 WEEKEND-SHIFT VALUE 5 PIC 9XX )@@G@@(10) COMP. @E@@@@ 01 OUT-SUB PIC 9(10) CXY )@@G@@OMP. @D@@@@ 01 VOLUME-X PIC X(6). @D@@@@XZ )@@G@@ 01 VOLUME-9 REDEFINES VOLUME-X PIC 9(6). @D@@@@ 01 AYA )@@G@@C-DATE-HOLD USAGE DISP-1 PIC X(6). @D@@@@ 01 AC-ACCOUNT-NOYB )@@G@@-HOLD USAGE DISP-1 PIC X(12). @@@@@@@@@@@@@F@@@@ 01 COUNT-DAILY YC )@@G@@ VALUE 0 PIC 9(10) COMP. @F@@@@ 01 COUNT-OLD-CUMYD )@@G@@ VALUE 0 PIC 9(10) COMP. @F@@@@ 01 COUNT-NEW-CUMYE )@@G@@ VALUE 0 PIC 9(10) COMP. @F@@@@ 01 COUNT-MTH-SUMYF )@@G@@ VALUE 0 PIC 9(10) COMP. @E@@@@ 01 EXT-DAILY YG )@@G@@ VALUE 'DAILY-ACCNT ' PIC X(12). @E@@@@ 01 EXT-OLD-CUM VAYH )@@G@@LUE 'OLD-CUM-DLY ' PIC X(12). @E@@@@ 01 EXT-NEW-CUM VALUE 'NYI )@@G@@EW-CUM-DLY ' PIC X(12). @E@@@@ 01 EXT-MTH-SUM VALUE 'MTH-ACNYJ )@@G@@T-SUM' PIC X(12). @]@@@@ / @ @@@@ PROCEDURE DIVISION. YK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@@@ 0000-CONTROL. @B@@@@ PYL )@@G@@ERFORM 0100-HOUSEKEEPING. @B@@@@ PERFORM 0140-MAIN-PROCESSYM )@@G@@. @A@@@@ PERFORM 0190-CLOSING. @^@@@@ STOP RUYN )@@G@@N. @@@@@@@@@@@@@@@@@@@ @@@@ 0100-HOUSEKEEPING. @B@@@@ YO )@@G@@ OPEN INPUT PARAMETER-FILE. @ @@@@ READ PARAMETER-FILEYP )@@G@@@^@@@@ AT END @G@@@@ DISPLAY 'NO CONTRYQ )@@G@@OL CARD FOR H1550081' UPON PRINTER @A@@@@ ENTER FD 'AYR )@@G@@BORT'.@ @@@@ IF CUR-DAY-EXISTS @C@@@@ OPEN INPUYS )@@G@@T CURRENT-DAY-FILE. @ @@@@ IF OLD-CUM-EXISTS @C@@@@ YT )@@G@@ OPEN INPUT OLD-CUMULATIVE-FILE. @ @@@@ IF NEW-CUM-EXYU )@@G@@ISTS @C@@@@ OPEN OUTPUT NEW-CUMULATIVE-FILE. @A@@@@ YV )@@G@@ IF DAILY-REPORT-EXISTS @C@@@@ OPEN OUTPUT DAILY-REPYW )@@G@@ORT-FILE. @C@@@@ ENTER FD 'GETDATE' USING DATE-6. @F@@@@YX )@@G@@ ENTER FD 'DATEDIT' USING DATE-6 DATE-8 DATE-SLASH. @A@@@@YY )@@G@@ MOVE DATE-8 TO DEPT-DATE.@B@@@@ MOVE 'H15501' TO DEYZ )@@G@@PT-RUN-ID. @C@@@@ MOVE 'H1550081' TO DEPT-PROGRAM-NUM. @D@@@@ZA )@@G@@ IF CUR-DAY-EXISTS AND NOT OLD-CUM-EXISTS @C@@@@ ZB )@@G@@ MOVE 'CUR' TO WHICH-FILE-FLAG. @@@@@@@ @@@@ 0140-MAIN-PROCESSZC )@@G@@. @A@@@@ PERFORM 0250-VOLUME-PREP.@A@@@@ IF MONTZD )@@G@@HLY-SUMMARY-EXISTS@#@@@@ OR @A@@@@ MONTHLY-REZE )@@G@@PORT-EXISTS @D@@@@ PERFORM 0270-SET-UP-SORT-PROCESS ZF )@@G@@@#@@@@ ELSE @D@@@@ PERFORM 1220-HOUSEKEEPING-SZG )@@G@@ORT-INPUT @D@@@@ PERFORM 0240-DAILY-PROCESS-NO-MONTHLY ZH )@@G@@@B@@@@ UNTIL END-OF-INPUT. @@@@@@@^@@@@ 0190-ZI )@@G@@CLOSING. @A@@@@ CLOSE PARAMETER-FILE. @A@@@@ IZJ )@@G@@F DAILY-REPORT-EXISTS @B@@@@ CLOSE DAILY-REPORT-FILE. ZK )@@G@@@A@@@@ IF MONTHLY-REPORT-EXISTS @B@@@@ CLOSE MONZL )@@G@@THLY-REPORT-FILE. @A@@@@ IF MONTHLY-SUMMARY-EXISTS@E@@@@ ZM )@@G@@ CALL 'LOG-WCNT' USING EXT-MTH-SUM, COUNT-MTH-SUM @B@@@@ ZN )@@G@@ CLOSE MONTHLY-SUMMARY-FILE.@@@@@@@@@@@@@@@@@@@B@@@@ 0240-DAILY-ZO )@@G@@PROCESS-NO-MONTHLY. @ @@@@ IF NEW-CUM-EXISTS @D@@@@ ZP )@@G@@ PERFORM 1320-CREATE-NEW-CUMULATIVE. @A@@@@ IF DAILZQ )@@G@@Y-REPORT-EXISTS @C@@@@ PERFORM 1360-CREATE-DAILY-REPORT.ZR )@@G@@@B@@@@ PERFORM 1300-READ-SOURCE-INPUT.@ @@@@ IF END-ZS )@@G@@OF-INPUT @C@@@@ PERFORM 1280-CLOSING-SORT-INPUT. @@@@@@ZT )@@G@@@^@@@@ 0250-VOLUME-PREP.@ @@@@ IF CUR-DAY-EXISTS @E@@@@ZU )@@G@@ CALL 'GETVOLASCII' USING EXFILNAME, REC-VOL. @ @@@@ ZV )@@G@@ IF OLD-CUM-EXISTS @D@@@@ PERFORM 1620-READ-OLD-CUMULZW )@@G@@ATIVE-FILE @G@@@@ IF AC-ACCOUNT-NO IN OLD-CUMULATIVE-RECOZX )@@G@@RD IS EQUAL TO @B@@@@ 'VOLUME REC ' @G@@@@ZY )@@G@@ MOVE AC-DATE-9 IN OLD-CUMULATIVE-RECORD TO VOLUME-X ZZ )@@G@@@B@@@@ ADD VOLUME-9 TO REC-VOL@^@@@@ ELSAA )@@G@@E @G@@@@ DISPLAY 'FIRST RECORD NOT VOLUME REC OLD-AB )@@G@@CUM-FILE @E@@@@ - 'H1550081' UPON PRINT-DAC )@@G@@EVICE @A@@@@ ENTER FD 'ABORT'.@ @@@@ IF NEWAD )@@G@@-CUM-EXISTS @A@@@@ MOVE 'VOLUME REC' @E@@@@ AE )@@G@@ TO AC-ACCOUNT-NO IN NEW-CUMULATIVE-RECORD@B@@@@ MOVAF )@@G@@E REC-VOL TO VOLUME-9 @ @@@@ MOVE VOLUME-X @E@@@@ AG )@@G@@ TO AC-DATE-9 IN NEW-CUMULATIVE-RECORD @C@@@@ AH )@@G@@ WRITE NEW-CUMULATIVE-RECORD. @A@@@@ ADD 1 TO COUNT-NEW-AI )@@G@@CUM. @@@@@@@A@@@@ 0270-SET-UP-SORT-PROCESS. @D@[@@ MAJ )@@G@@ULTIPLY REC-VOL BY 1.5 GIVING REC-VOL. @D@@@@ CALL 'SORTASGAK )@@G@@' USING REC-LENGTH, REC-VOL, @B@@@@ CORE-SIZE, STATUZAL )@@G@@. @A@@@@ IF STATUZ EQUAL ZERO @ @@@@ NEXAM )@@G@@T SENTENCE @#@@@@ ELSE @G@@@@ DISPLAY 'FILE XAN )@@G@@A CAN NOT BE ASSIGNED BY SRTSET H1550081' @B@@@@ UAO )@@G@@PON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'. @E@@@@ AP )@@G@@ SORT SORT-FILE ON ASCENDING KEY AC-ACCOUNT-NO @A@@@@ AQ )@@G@@ OF SORT-RECORD @F@@@@ INPUT PROCEDURE IS 1000-SOAR )@@G@@RT-INPUT-DAILY-FILES @F@@@@ OUTPUT PROCEDURE IS 2000-SOAS )@@G@@RT-OUTPUT-MONTHLY-FILES.@]@@@@ / @C@@@@ 1000-SORT-INPUT-DAT )@@G@@AILY-FILES SECTION. @@@@@@@@@@@@@@@@@@@@@@@@@A@@@@ 1100-DAILY-AU )@@G@@REPORT-CONTROL. @D@@@@ PERFORM 1220-HOUSEKEEPING-SORT-INPUTAV )@@G@@. @C@@@@ PERFORM 1200-MAIN-PROCESS-SORT-INPUT@A@@@@ AW )@@G@@ UNTIL END-OF-INPUT. @C@@@@ PERFORM 1280-CLOSING-SORAX )@@G@@T-INPUT. @@@@@@@C@@@@ GO TO 1990-SORT-INPUT-PROCEDURE-EXIT.AY )@@G@@@@@@@@@@@@@@@@@@@@@A@@@@ 1200-MAIN-PROCESS-SORT-INPUT.@ @@@@ AZ )@@G@@ IF NEW-CUM-EXISTS @D@@@@ PERFORM 1320-CREATE-NEW-CUMBA )@@G@@ULATIVE. @A@@@@ IF DAILY-REPORT-EXISTS @C@@@@ BB )@@G@@ PERFORM 1360-CREATE-DAILY-REPORT.@B@@@@ PERFORM 1380-RELEASBC )@@G@@E-TO-SORT. @B@@@@ PERFORM 1300-READ-SOURCE-INPUT.@@@@@@@A@@@@BD )@@G@@ 1220-HOUSEKEEPING-SORT-INPUT.@A@@@@ IF NOT CUR-DAY-EXISBE )@@G@@TS @B@@@@ MOVE 1 TO SW-END-OF-INPUT. @A@@@@ IBF )@@G@@F NOT OLD-CUM-EXISTS @B@@@@ MOVE 1 TO SW-END-OF-INPUT. BG )@@G@@@ @@@@ IF CUR-DAY-EXISTS @D@@@@ PERFORM 1610-REBH )@@G@@AD-CURRENT-DAY-FILE. @ @@@@ IF OLD-CUM-EXISTS @D@@@@ BI )@@G@@ PERFORM 1620-READ-OLD-CUMULATIVE-FILE @A@@@@ IF BJ )@@G@@CUR-DAY-EXISTS @E@@@@ PERFORM 1400-READ-AND-MINGLE-BK )@@G@@CUR-CUM. @B@@@@ IF BEGIN-DAILY-DATE IS NUMERIC @ @@@@ BL )@@G@@ NEXT SENTENCE @#@@@@ ELSE @G@@@@ DISBM )@@G@@PLAY 'PROGRAM ABORT H1550081: DATE RANGE NOT NUMERIC'@A@@@@ BN )@@G@@ ENTER FD 'ABORT'. @C@@@@ IF BEGIN-DAILY-DATE IS EQUAL TOBO )@@G@@ ZERO @G@@@@ MOVE AC-DD IN CURRENT-DAY-RECORD TO BEGIN-DAIBP )@@G@@LY-DATE @G@@@@ MOVE AC-DATE IN CURRENT-DAY-RECORD TO RBQ )@@G@@EPORT-DATE-HOLD @#@@@@ ELSE @D@@@@ MOVE BEGIBR )@@G@@N-DAILY-DATE TO DATE-HOLD @D@@@@ MOVE PROCESSING-MM TOBS )@@G@@ REPORT-MONTH @D@@@@ MOVE PROCESSING-YY TO REPORT-YEARBT )@@G@@. @C@@@@ MOVE BEGIN-DAILY-DATE TO DATE-HOLD. @C@@@@ BU )@@G@@ PERFORM 1560-ZERO-DAILY-ACCUMULATORS @C@@@@ VARYING PBV )@@G@@ROD-DEVP-SUB FROM 1 BY 1@D@@@@ UNTIL PROD-DEVP-SUB GREBW )@@G@@ATER THAN 3 @C@@@@ AFTER SHIFT-SUB FROM 1 BY 1 @D@@@@BX )@@G@@ UNTIL SHIFT-SUB GREATER THAN 4 @B@@@@ BY )@@G@@ AFTER TYPE-SUB FROM 1 BY 1@D@@@@ UNTIL TYPE-SUB GRBZ )@@G@@EATER THAN 3. @@@@@@@A@@@@ 1280-CLOSING-SORT-INPUT. @B@@@@CA )@@G@@ IF FINAL-REPORT-DAY-FROM-OLD @D@@@@ PERFORM 1CB )@@G@@450-DAILY-REPORT-FROM-OLD. @B@@@@ IF FINAL-REPORT-DAY-FROM-CC )@@G@@CUR @D@@@@ PERFORM 1470-DAILY-REPORT-FROM-CUR. @ @@@@CD )@@G@@ IF CUR-DAY-EXISTS @E@@@@ CALL 'LOG-RCNT' USING EXTCE )@@G@@-DAILY, COUNT-DAILY @B@@@@ CLOSE CURRENT-DAY-FILE. CF )@@G@@@ @@@@ IF OLD-CUM-EXISTS @E@@@@ CALL 'LOG-RCNT' USICG )@@G@@NG EXT-OLD-CUM, COUNT-OLD-CUM @B@@@@ CLOSE OLD-CUMULATIVE-CH )@@G@@FILE @G@@@@ ENTER FD ASM 'SUBCRD' USING FREE-FILE-IMAGE, CI )@@G@@STAT-WORD. @ @@@@ IF NEW-CUM-EXISTS @E@@@@ CALL 'LCJ )@@G@@OG-WCNT' USING EXT-NEW-CUM, COUNT-NEW-CUM @B@@@@ CLOSE NEWCK )@@G@@-CUMULATIVE-FILE. @E@@@@ * MOVE '@FREE NEW-CUM-DLY' TO FREE-CL )@@G@@FILE-IMAGE @G@@@@ * CALL FD ASM 'SUBCRD' USING FREE-FILE-IMCM )@@G@@AGE, STAT-WORD. @@@@@@@@@@@@@@@@@@@ @@@@ 1300-READ-SOURCE-INPUT.CN )@@G@@@D@@@@ IF CUR-DAY-EXISTS AND NOT OLD-CUM-EXISTS @D@@@@ CO )@@G@@ PERFORM 1610-READ-CURRENT-DAY-FILE. @D@@@@ IF NOT CP )@@G@@CUR-DAY-EXISTS AND OLD-CUM-EXISTS @D@@@@ PERFORM 1620-RECQ )@@G@@AD-OLD-CUMULATIVE-FILE. @C@@@@ IF CUR-DAY-EXISTS AND OLD-CUM-CR )@@G@@EXISTS@D@@@@ PERFORM 1410-DETERMINE-AND-READ-FILE @D@@@@CS )@@G@@ PERFORM 1400-READ-AND-MINGLE-CUR-CUM. @@@@@@@A@@@@ CT )@@G@@ 1320-CREATE-NEW-CUMULATIVE. @^@@@@ IF OLD-CUM @G@@@@ CU )@@G@@ WRITE NEW-CUMULATIVE-RECORD FROM OLD-CUMULATIVE-RECORD @B@@@@CV )@@G@@ ADD 1 TO COUNT-NEW-CUM @#@@@@ ELSE @ @@@@CW )@@G@@ IF CURRENT @G@@@@ WRITE NEW-CUMULATCX )@@G@@IVE-RECORD FROM CURRENT-DAY-RECORD @B@@@@ ADD 1 TO COCY )@@G@@UNT-NEW-CUM @^@@@@ ELSE @G@@@@ DISPLCZ )@@G@@AY 'NO SOURCE NEW-CUM H1550081' UPON PRINTER @A@@@@ DA )@@G@@ ENTER FD 'ABORT'.@@@@@@@@@@@@@A@@@@ 1360-CREATE-DAILY-REPORT. DB )@@G@@@^@@@@ IF OLD-CUM @G@@@@ IF AC-DATE IN OLD-CUMDC )@@G@@ULATIVE-RECORD LESS REPORT-DATE-HOLD@A@@@@ NEXT SENTENDD )@@G@@CE @^@@@@ ELSE @F@@@@ IF END-DAILDE )@@G@@Y-DATE IS NOT EQUAL TO ZERO AND @G@@@@ AC-DDF )@@G@@D IN OLD-CUMULATIVE-RECORD IS GREATER THAN@C@@@@ DG )@@G@@ END-DAILY-DATE @B@@@@ NEXT SENTENCE DH )@@G@@@^@@@@ ELSE @G@@@@ IF AC-DD DI )@@G@@IN OLD-CUMULATIVE-RECORD IS EQUAL TO@C@@@@ DJ )@@G@@ DATE-HOLD @E@@@@ PERFORM 1550-SUM-DK )@@G@@DAY-OLD-CUM @F@@@@ VARYING SHIFT-SUB FDL )@@G@@ROM 1 BY 1 @G@@@@ UNTIL SHIFT-SUBDM )@@G@@ IS GREATER THAN 3@F@@@@ MOVE 'OLD' TO SW-DN )@@G@@FINAL-REPORT-DAY @D@@@@ MOVE AC-DAY-OF-WKDO )@@G@@-9 IN @F@@@@ OLD-CUMULATIVE-RECORD TDP )@@G@@O @D@@@@ DAY-OF-WEEK-HOLD @A@@@@DQ )@@G@@ ELSE @F@@@@ DR )@@G@@ PERFORM 1450-DAILY-REPORT-FROM-OLD.@^@@@@ IF CURRENT @G@@@@DS )@@G@@ IF AC-DATE IN CURRENT-DAY-RECORD LESS REPORT-DATE-HOLD DT )@@G@@@A@@@@ NEXT SENTENCE @^@@@@ ELSE DU )@@G@@@F@@@@ IF AC-DD IN CURRENT-DAY-RECORD IS GREATER THAN DV )@@G@@@B@@@@ END-DAILY-DATE @E@@@@ DW )@@G@@ AND END-DAILY-DATE IS NOT EQUAL TO ZERO @A@@@@ NDX )@@G@@EXT SENTENCE@^@@@@ ELSE @F@@@@ IDY )@@G@@F AC-DD IN CURRENT-DAY-RECORD IS EQUAL TO @B@@@@ DZ )@@G@@ DATE-HOLD @E@@@@ PERFORM 1570-SUM-DAY-EA )@@G@@CUR-DAY @E@@@@ VARYING SHIFT-SUB FROM EB )@@G@@1 BY 1@G@@@@ UNTIL SHIFT-SUB IS GREATEEC )@@G@@R THAN 3 @E@@@@ MOVE 'CUR' TO SW-FINAL-REPOED )@@G@@RT-DAY@G@@@@ MOVE AC-DAY-OF-WK-9 IN CURRENT-DAEE )@@G@@Y-RECORD TO @C@@@@ DAY-OF-WEEK-HOLD @ @@@@EF )@@G@@ ELSE @F@@@@ PERFORM 1EG )@@G@@470-DAILY-REPORT-FROM-CUR. @@@@@@@@@@@@@ @@@@ 1380-RELEASE-TO-SEH )@@G@@ORT. @^@@@@ IF OLD-CUM @F@@@@ RELEASE SORT-REEI )@@G@@CORD FROM OLD-CUMULATIVE-RECORD @#@@@@ ELSE @E@@@@ EJ )@@G@@ RELEASE SORT-RECORD FROM CURRENT-DAY-RECORD. @@@@@@@@@@@@@@@@@@EK )@@G@@@A@@@@ 1400-READ-AND-MINGLE-CUR-CUM.@E@@@@ IF AC-DATE INEL )@@G@@ OLD-CUMULATIVE-RECORD IS LESS THAN @C@@@@ AC-DATE IN CURREEM )@@G@@NT-DAY-RECORD @D@@@@ MOVE 'OLD' TO WHICH-FILE-FLAGEN )@@G@@. @F@@@@ IF AC-DATE IN OLD-CUMULATIVE-RECORD IS GREATER THEO )@@G@@AN @C@@@@ AC-DATE IN CURRENT-DAY-RECORD @D@@@@ EP )@@G@@ MOVE 'CUR' TO WHICH-FILE-FLAG. @D@@@@ IF AC-EQ )@@G@@DATE IN OLD-CUMULATIVE-RECORD EQUAL @C@@@@ AC-DATE IN CURRER )@@G@@ENT-DAY-RECORD @D@@@@ PERFORM 1500-MERGE-OLD-AND-CUES )@@G@@R. @@@@@@@A@@@@ 1410-DETERMINE-AND-READ-FILE.@^@@@@ IET )@@G@@F CURRENT @D@@@@ PERFORM 1610-READ-CURRENT-DAY-FILE. EU )@@G@@@^@@@@ IF OLD-CUM @D@@@@ PERFORM 1620-READ-OLDEV )@@G@@-CUMULATIVE-FILE. @@@@@@@@@@@@@A@@@@ 1450-DAILY-REPORT-FROM-OLD. EW )@@G@@@C@@@@ PERFORM 1565-CALCULATE-DAILY-AVERAGES@C@@@@ EX )@@G@@ VARYING PROD-DEVP-SUB FROM 1 BY 1@D@@@@ UNTIL PROD-EY )@@G@@DEVP-SUB GREATER THAN 3 @C@@@@ AFTER SHIFT-SUB FROM 1 BY EZ )@@G@@1 @E@@@@ UNTIL SHIFT-SUB GREATER THAN 4 FA )@@G@@@C@@@@ AFTER TYPE-SUB FROM 1 BY 1 @F@@@@ FB )@@G@@ UNTIL TYPE-SUB GREATER THAN 3. @C@@@@ PFC )@@G@@ERFORM 1554-HEADING-DAILY-REPORT. @B@@@@ PERFORM 1555-WRITE-FD )@@G@@DAILY-REPORT@C@@@@ VARYING PROD-DEVP-SUB FROM 1 BY 1@E@@@@FE )@@G@@ UNTIL PROD-DEVP-SUB IS GREATER THAN 3. @C@@@@ FF )@@G@@ PERFORM 1560-ZERO-DAILY-ACCUMULATORS @C@@@@ VARYING PFG )@@G@@ROD-DEVP-SUB FROM 1 BY 1@D@@@@ UNTIL PROD-DEVP-SUB GREFH )@@G@@ATER THAN 3 @C@@@@ AFTER SHIFT-SUB FROM 1 BY 1 @D@@@@FI )@@G@@ UNTIL SHIFT-SUB GREATER THAN 4 @B@@@@ FJ )@@G@@ AFTER TYPE-SUB FROM 1 BY 1@D@@@@ UNTIL TYPE-SUB GRFK )@@G@@EATER THAN 3. @B@@@@ PERFORM 1550-SUM-DAY-OLD-CUM @C@@@@FL )@@G@@ VARYING SHIFT-SUB FROM 1 BY 1 @D@@@@ FM )@@G@@ UNTIL SHIFT-SUB GREATER THAN 3. @G@@@@ MOVE AC-DATE IN OLDFN )@@G@@-CUMULATIVE-RECORD TO REPORT-DATE-HOLD. @@@@@@@A@@@@ 1470-DAILY-FO )@@G@@REPORT-FROM-CUR. @C@@@@ PERFORM 1565-CALCULATE-DAILY-AVERAGESFP )@@G@@@C@@@@ VARYING PROD-DEVP-SUB FROM 1 BY 1@D@@@@ FQ )@@G@@ UNTIL PROD-DEVP-SUB GREATER THAN 3 @C@@@@ AFTER SHFR )@@G@@IFT-SUB FROM 1 BY 1 @E@@@@ UNTIL SHIFT-SUBFS )@@G@@ GREATER THAN 4 @C@@@@ AFTER TYPE-SUB FROM 1 BY 1 FT )@@G@@@F@@@@ UNTIL TYPE-SUB GREATER THAN 3. FU )@@G@@@C@@@@ PERFORM 1554-HEADING-DAILY-REPORT. @B@@@@ PFV )@@G@@ERFORM 1555-WRITE-DAILY-REPORT@C@@@@ VARYING PROD-DEVP-SUBFW )@@G@@ FROM 1 BY 1@E@@@@ UNTIL PROD-DEVP-SUB IS GREATER THANFX )@@G@@ 3. @C@@@@ PERFORM 1560-ZERO-DAILY-ACCUMULATORS @C@@@@ FY )@@G@@ VARYING PROD-DEVP-SUB FROM 1 BY 1@D@@@@ UNTILFZ )@@G@@ PROD-DEVP-SUB GREATER THAN 3 @C@@@@ AFTER SHIFT-SUB FROMGA )@@G@@ 1 BY 1 @D@@@@ UNTIL SHIFT-SUB GREATER THAN 4 GB )@@G@@@B@@@@ AFTER TYPE-SUB FROM 1 BY 1@D@@@@ GC )@@G@@ UNTIL TYPE-SUB GREATER THAN 3. @B@@@@ PERFORM 1570-SUM-DAGD )@@G@@Y-CUR-DAY @C@@@@ VARYING SHIFT-SUB FROM 1 BY 1 @D@@@@GE )@@G@@ UNTIL SHIFT-SUB GREATER THAN 3. @F@@@@ MGF )@@G@@OVE AC-DATE IN CURRENT-DAY-RECORD TO REPORT-DATE-HOLD.@@@@@@@@@@@@@@@@@@GG )@@G@@@ @@@@ 1500-MERGE-OLD-AND-CUR.@F@@@@ IF AC-ACCOUNT-NO INGH )@@G@@ CURRENT-DAY-RECORD IS EQUAL TO @F@@@@ AC-ACCOGI )@@G@@UNT-NO IN OLD-CUMULATIVE-RECORD @C@@@@ PERFORM 1600-SUGJ )@@G@@M-SAME-DAY-RECORDS@C@@@@ MOVE 'OLD' TO WHICH-FILE-FLAG GK )@@G@@@D@@@@ PERFORM 1610-READ-CURRENT-DAY-FILE @#@@@@ GL )@@G@@ ELSE @F@@@@ IF AC-ACCOUNT-NO IN CURRENT-DAY-RECORD GM )@@G@@ LESS THAN @F@@@@ AC-ACCOUNT-NO IN OLD-CUMULAGN )@@G@@TIVE-RECORD @C@@@@ MOVE 'CUR' TO WHICH-FILE-FLAG@^@@@@GO )@@G@@ ELSE @D@@@@ MOVE 'OLD' TO WHICH-FILGP )@@G@@E-FLAG. @@@@@@@@@@@@@ @@@@ 1550-SUM-DAY-OLD-CUM. @F@@@@ GQ )@@G@@ IF AC-ACCOUNT-TYPE IN OLD-CUMULATIVE-RECORD EQUAL 'T' @B@@@@ GR )@@G@@ MOVE 2 TO PROD-DEVP-SUB @#@@@@ ELSE @B@@@@ GS )@@G@@ MOVE 1 TO PROD-DEVP-SUB. @#@@@@ ADD @F@@@@ GT )@@G@@ RUNS IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECORD @A@@@@ GU )@@G@@ (SHIFT-SUB) @F@@@@ RUNS IN AC-RT-BATCH-DGV )@@G@@ATA IN OLD-CUMULATIVE-RECORD @A@@@@ (SHIFT-SUB) GW )@@G@@@^@@@@ TO @G@@@@ NR-RUNS IN DEGX )@@G@@TALE (PROD-DEVP-SUB, SHIFT-SUB, 2) @G@@@@ NR-RUNSGY )@@G@@ IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @F@@@@ NGZ )@@G@@R-RUNS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1)@G@@@@ NHA )@@G@@R-RUNS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1)@G@@@@ HB )@@G@@ NR-RUNS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 2)@G@@@@ HC )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1)@G@@@@ HD )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 2)@G@@@@HE )@@G@@ NR-RUNS IN DETALE (TOTAL-SUB, SHIFT-SUB, 2). HF )@@G@@@#@@@@ ADD @F@@@@ RUNS IN AC-DEMAND-DATA IN OHG )@@G@@LD-CUMULATIVE-RECORD @A@@@@ (SHIFT-SUB) @F@@@@HH )@@G@@ RUNS IN AC-RT-DMAND-DATA IN OLD-CUMULATIVE-RECORD @A@@@@HI )@@G@@ (SHIFT-SUB) @^@@@@ TO @G@@@@HJ )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1)HK )@@G@@@G@@@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SHL )@@G@@UB, 3)@G@@@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, T-SHM )@@G@@HIFT-SUB, 1)@G@@@@ NR-RUNS IN DETALE (PROD-DEVP-SUHN )@@G@@B, T-SHIFT-SUB, 3)@G@@@@ NR-RUNS IN DETALE (TOTAL-HO )@@G@@SUB, T-SHIFT-SUB, 1)@G@@@@ NR-RUNS IN DETALE (HP )@@G@@TOTAL-SUB, T-SHIFT-SUB, 3)@G@@@@ NR-RUNS IN DEHQ )@@G@@TALE (TOTAL-SUB, SHIFT-SUB, 1)@G@@@@ NR-RUNSHR )@@G@@ IN DETALE (TOTAL-SUB, SHIFT-SUB, 3).@B@@@@ IF SHIFT-SUBHS )@@G@@ IS LESS THAN 3 @C@@@@ ADD 1, SHIFT-SUB GIVING OUT-SUB HT )@@G@@@#@@@@ ADD@F@@@@ HARD-KILL IN OLD-CUMULAHU )@@G@@TIVE-RECORD (SHIFT-SUB) @F@@@@ PROG-KILL IN OLD-CUMULAHV )@@G@@TIVE-RECORD (SHIFT-SUB) @F@@@@ OPER-KILL IN OLD-CUMULAHW )@@G@@TIVE-RECORD (SHIFT-SUB) @F@@@@ SYS-KILL IN OLD-CUMULAHX )@@G@@TIVE-RECORD (SHIFT-SUB) @ @@@@ TO @F@@@@ HY )@@G@@ NR-RUN-ERR IN DETALE (PROD-DEVP-SUB, @E@@@@ HZ )@@G@@ T-SHIFT-SUB, OUT-SUB)@G@@@@ IA )@@G@@ NR-RUN-ERR IN DETALE (TOTAL-SUB, T-SHIFT-SUB,@C@@@@ IB )@@G@@ OUT-SUB) @F@@@@ IC )@@G@@ NR-RUN-ERR IN DETALE (PROD-DEVP-SUB, @D@@@@ ID )@@G@@ T-SHIFT-SUB, 1) @E@@@@ NR-RUN-ERIE )@@G@@R IN DETALE (TOTAL-SUB, @D@@@@ T-SHIFTIF )@@G@@-SUB, 1). @G@@@@ DIVIDE TOT-SUPS IN AC-BATCH-DATA IN OLD-IG )@@G@@CUMULATIVE-RECORD @ @@@@ (SHIFT-SUB)@E@@@@ IH )@@G@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDED. @D@@@@ DIVIDE II )@@G@@ TOT-SUPS IN AC-RT-BATCH-DATA IN @D@@@@ OLD-CUMULATIJ )@@G@@IVE-RECORD (SHIFT-SUB) @E@@@@ BY 18000000 GIVING RT-SUP-HIK )@@G@@OURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @G@@@@IL )@@G@@ TO SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) IM )@@G@@@G@@@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, IN )@@G@@2) @G@@@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIIO )@@G@@FT-SUB, 1) @G@@@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB,IP )@@G@@ T-SHIFT-SUB, 2) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SUIQ )@@G@@B, T-SHIFT-SUB, 1) @G@@@@ SUP-HOURS IN DETALE (TOIR )@@G@@TAL-SUB, T-SHIFT-SUB, 2) @G@@@@ SUP-HOURS IN DETAIS )@@G@@LE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ SUP-HOURS IIT )@@G@@N DETALE (TOTAL-SUB, SHIFT-SUB, 2). @G@@@@ DIVIDE TOT-SUIU )@@G@@PS IN AC-DEMAND-DATA IN OLD-CUMULATIVE-RECORD @ @@@@ IV )@@G@@ (SHIFT-SUB)@E@@@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDEDIW )@@G@@. @G@@@@ DIVIDE TOT-SUPS IN AC-RT-DMAND-DATA IN OLD-CUMULAIX )@@G@@TIVE-RECORD @ @@@@ (SHIFT-SUB)@E@@@@ BY IY )@@G@@18000000 GIVING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOIZ )@@G@@URS, RT-SUP-HOURS @#@@@@ TO @G@@@@ SUP-HJA )@@G@@OURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ JB )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 3) @G@@@@ JC )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ JD )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3) @G@@@@JE )@@G@@ SUP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) JF )@@G@@@G@@@@ SUP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUBJG )@@G@@, 3) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SUB, T-SHIJH )@@G@@FT-SUB, 1) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SUB, JI )@@G@@ T-SHIFT-SUB, 3). @G@@@@ DIVIDE CPU-SUPS IN AC-DEMAND-DATA IN JJ )@@G@@OLD-CUMULATIVE-RECORD @ @@@@ (SHIFT-SUB)@E@@@@ JK )@@G@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDED. @G@@@@ DJL )@@G@@IVIDE CPU-SUPS IN AC-RT-DMAND-DATA IN OLD-CUMULATIVE-RECORD @ @@@@ JM )@@G@@ (SHIFT-SUB)@E@@@@ BY 18000000 GIVING RT-SUP-HJN )@@G@@OURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @#@@@@JO )@@G@@ TO @G@@@@ CPU-HOURS IN DETALE (PROD-DEVJP )@@G@@P-SUB, T-SHIFT-SUB, 1) @G@@@@ CPU-HOURS IN DETALE (PRJQ )@@G@@OD-DEVP-SUB, T-SHIFT-SUB, 3) @G@@@@ CPU-HOURS IN DETAJR )@@G@@LE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ CPU-HOURS IJS )@@G@@N DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3) @G@@@@ CPU-HJT )@@G@@OURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ JU )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 3) @G@@@@ JV )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ JW )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 3). @G@@@@JX )@@G@@ DIVIDE CPU-SUPS IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECORD JY )@@G@@@ @@@@ (SHIFT-SUB)@E@@@@ BY 18000000 GIVJZ )@@G@@ING BT-SUP-HOURS ROUNDED. @G@@@@ DIVIDE CPU-SUPS IN AC-RT-KA )@@G@@BATCH-DATA IN OLD-CUMULATIVE-RECORD @ @@@@ (SHIFT-SUB)KB )@@G@@@E@@@@ BY 18000000 GIVING RT-SUP-HOURS ROUNDED. @B@@@@KC )@@G@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @#@@@@ TO @G@@@@KD )@@G@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) KE )@@G@@@G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUBKF )@@G@@, 2) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, SHIKG )@@G@@FT-SUB, 1) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB,KH )@@G@@ SHIFT-SUB, 2) @G@@@@ CPU-HOURS IN DETALE (TOTAL-SUKI )@@G@@B, SHIFT-SUB, 1) @G@@@@ CPU-HOURS IN DETALE (TOKJ )@@G@@TAL-SUB, SHIFT-SUB, 2) @G@@@@ CPU-HOURS IN DETAKK )@@G@@LE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ CPU-HOURS IKL )@@G@@N DETALE (TOTAL-SUB, T-SHIFT-SUB, 2). @G@@@@ DIVIDE RUN-SEKM )@@G@@CS IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECORD @ @@@@ KN )@@G@@ (SHIFT-SUB)@D@@@@ BY 3600 GIVING BT-SUP-HOURS ROUNDED. KO )@@G@@@G@@@@ DIVIDE RUN-SECS IN AC-RT-BATCH-DATA IN OLD-CUMULATIVE-RKP )@@G@@ECORD @ @@@@ (SHIFT-SUB)@D@@@@ BY 3600 GKQ )@@G@@IVING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-KR )@@G@@HOURS @#@@@@ TO @G@@@@ ELAP-HOURS IN DETKS )@@G@@ALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ ELAP-HOURS KT )@@G@@IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 2) @G@@@@ ELAP-KU )@@G@@HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ KV )@@G@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 2) @G@@@@ KW )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ KX )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 2) @G@@@@KY )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) KZ )@@G@@@G@@@@ ELAP-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SULA )@@G@@B, 2).@G@@@@ DIVIDE RUN-SECS IN AC-DEMAND-DATA IN OLD-CUMULATILB )@@G@@VE-RECORD @ @@@@ (SHIFT-SUB)@D@@@@ BY LC )@@G@@3600 GIVING BT-SUP-HOURS ROUNDED. @G@@@@ DIVIDE RUN-SECS IN LD )@@G@@AC-RT-DMAND-DATA IN OLD-CUMULATIVE-RECORD @ @@@@ (SHIFLE )@@G@@T-SUB)@D@@@@ BY 3600 GIVING RT-SUP-HOURS ROUNDED. @B@@@@LF )@@G@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @#@@@@ TO @G@@@@LG )@@G@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) LH )@@G@@@G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SULI )@@G@@B, 3) @G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHLJ )@@G@@IFT-SUB, 1) @G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUBLK )@@G@@, SHIFT-SUB, 3) @G@@@@ ELAP-HOURS IN DETALE (TOTAL-SLL )@@G@@UB, SHIFT-SUB, 1) @G@@@@ ELAP-HOURS IN DETALE (TLM )@@G@@OTAL-SUB, SHIFT-SUB, 3) @G@@@@ ELAP-HOURS IN DETLN )@@G@@ALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ ELAP-HOURS LO )@@G@@IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 3).@#@@@@ ADD @F@@@@LP )@@G@@ STD-PGS IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECORD @A@@@@LQ )@@G@@ (SHIFT-SUB) @G@@@@ STD-PGS IN AC-RLR )@@G@@T-BATCH-DATA IN OLD-CUMULATIVE-RECORD @A@@@@ (LS )@@G@@SHIFT-SUB) @^@@@@ TO @G@@@@ PLT )@@G@@AGES IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ LU )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 2) @G@@@@ LV )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ LW )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 2) @G@@@@LX )@@G@@ PAGES IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) LY )@@G@@@G@@@@ PAGES IN DETALE (TOTAL-SUB, SHIFT-SUBLZ )@@G@@, 2) @G@@@@ PAGES IN DETALE (TOTAL-SUB, T-SHIMA )@@G@@FT-SUB, 1) @G@@@@ PAGES IN DETALE (TOTAL-SUB, MB )@@G@@ T-SHIFT-SUB, 2). @#@@@@ ADD @F@@@@ STD-PGS IMC )@@G@@N AC-DEMAND-DATA IN OLD-CUMULATIVE-RECORD @A@@@@ (MD )@@G@@SHIFT-SUB) @G@@@@ STD-PGS IN AC-RT-DMAND-DATA IN OLD-CUMUME )@@G@@LATIVE-RECORD @A@@@@ (SHIFT-SUB) @^@@@@ MF )@@G@@ TO @G@@@@ PAGES IN DETALE (PROD-DEVMG )@@G@@P-SUB, T-SHIFT-SUB, 1) @G@@@@ PAGES IN DETALE (PRMH )@@G@@OD-DEVP-SUB, T-SHIFT-SUB, 3) @G@@@@ PAGES IN DETAMI )@@G@@LE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ PAGES IMJ )@@G@@N DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3) @G@@@@ PMK )@@G@@AGES IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ ML )@@G@@ PAGES IN DETALE (TOTAL-SUB, SHIFT-SUB, 3) @G@@@@ MM )@@G@@ PAGES IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ MN )@@G@@ PAGES IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 3). @@@@@@MO )@@G@@@A@@@@ 1554-HEADING-DAILY-REPORT. @A@@@@ ADD 1 TO DAILMP )@@G@@Y-PAGE-NO. @C@@@@ MOVE REPORT-YEAR TO HEADING-YEAR. @C@@@@MQ )@@G@@ MOVE REPORT-MONTH TO HEADING-MONTH. @B@@@@ MOVE DAMR )@@G@@TE-HOLD TO HEADING-DAY. @D@@@@ IF NR-RUNS IN DETALE (3, 4, 1) MS )@@G@@EQUAL 0 @C@@@@ MOVE SPACES TO HEADING-DAY-WK @#@@@@MT )@@G@@ ELSE @G@@@@ MOVE DAY-OF-WEEK (DAY-OF-WEEK-HOLMU )@@G@@D) TO HEADING-DAY-WK. @C@@@@ MOVE DAILY-PAGE-NO TO DEPT-PAGEMV )@@G@@-NUM. @E@@@@ WRITE DAILY-REPORT FROM DEPT-HEADER-1 AFTER PAGE.MW )@@G@@@D@@@@ WRITE DAILY-REPORT FROM DEPT-HEADER-2. @D@@@@ MX )@@G@@ WRITE DAILY-REPORT FROM HEADING-3-DAILY. @D@@@@ WRITE DMY )@@G@@AILY-REPORT FROM HEADING-5-DAILY . @D@@@@ WRITE DAILY-REPORT MZ )@@G@@FROM HEADING-6-DAILY. @C@@@@ WRITE DAILY-REPORT FROM HEADINGNA )@@G@@-6 . @C@@@@ WRITE DAILY-REPORT FROM HEADING-7. @C@@@@ NB )@@G@@ WRITE DAILY-REPORT FROM HEADING-8. @@@@@@@A@@@@ 1555-WRITE-NC )@@G@@DAILY-REPORT. @A@@@@ MOVE 2 TO X-NUMBER-OF. @F@@@@ ND )@@G@@ WRITE DAILY-REPORT FROM TYPE-HEADING (PROD-DEVP-SUB) @C@@@@ NE )@@G@@ AFTER X-NUMBER-OF LINES. @C@@@@ PERFORM 1655-NF )@@G@@SHIFT-PRINT-DAILY-REPORT@G@@@@ VARYING SHIFT-SUB FROM 1 BYNG )@@G@@ 1 UNTIL SHIFT-SUB GREATER 4 @B@@@@ AFTER TYPE-SUB FROM NH )@@G@@1 BY 1@D@@@@ UNTIL TYPE-SUB IS GREATER THAN 3. @@@@@@NI )@@G@@@A@@@@ 1560-ZERO-DAILY-ACCUMULATORS.@^@@@@ MOVE ZERO TO NJ )@@G@@@G@@@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SNK )@@G@@UB) @G@@@@ NR-RUN-ERR IN DETALE (PROD-DEVP-SUB, SHIFT-SUNL )@@G@@B, TYPE-SUB)@G@@@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHNM )@@G@@IFT-SUB, TYPE-SUB)@G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SNN )@@G@@UB, SHIFT-SUB, TYPE-SUB)@G@@@@ ELAP-HOURS IN DETALE (PROD-NO )@@G@@DEVP-SUB, SHIFT-SUB, TYPE-SUB)@G@@@@ PAGES IN DETALE (PRODNP )@@G@@-DEVP-SUB, SHIFT-SUB, TYPE-SUB). @@@@@@@B@@@@ 1565-CALCULATE-DANQ )@@G@@ILY-AVERAGES. @F@@@@ DIVIDE SUP-HOURS IN DETALE (PROD-DEVPNR )@@G@@-SUB, SHIFT-SUB, @C@@@@ TYPE-SUB)NS )@@G@@@G@@@@ BY NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPNT )@@G@@E-SUB)@G@@@@ GIVING AVG-SUP IN DETALE (PROD-DEVP-SUB, NU )@@G@@SHIFT-SUB, @F@@@@ TYPE-SUB)NV )@@G@@ ROUNDED @^@@@@ ON SIZE ERROR@G@@@@ MOVE 0 TONW )@@G@@ AVG-SUP IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @C@@@@ NX )@@G@@ TYPE-SUB). @F@@@@ DIVIDE CPU-HOURS IN DETALNY )@@G@@E (PROD-DEVP-SUB, SHIFT-SUB, @C@@@@ NZ )@@G@@ TYPE-SUB)@G@@@@ BY NR-RUNS IN DETALE (PROD-DEVP-SUB, SHOA )@@G@@IFT-SUB, TYPE-SUB)@G@@@@ GIVING AVG-CPU IN DETALE (PROOB )@@G@@D-DEVP-SUB, SHIFT-SUB, @F@@@@ OC )@@G@@ TYPE-SUB) ROUNDED @^@@@@ ON SIZE ERROR@G@@@@ OD )@@G@@ MOVE 0 TO AVG-CPU IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @E@@@@ OE )@@G@@ TYPE-SUB). @F@@@@ DOF )@@G@@IVIDE ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @D@@@@ OG )@@G@@ TYPE-SUB) @G@@@@ BY NR-RUNOH )@@G@@S IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB)@G@@@@ OI )@@G@@ GIVING AVG-ELAP IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @F@@@@ OJ )@@G@@ TYPE-SUB) ROUNDED @^@@@@ OOK )@@G@@N SIZE ERROR@G@@@@ MOVE 0 TO AVG-ELAP IN DETALE (PROD-DEVPOL )@@G@@-SUB, SHIFT-SUB, @E@@@@ TYOM )@@G@@PE-SUB). @F@@@@ DIVIDE SUP-HOURS IN DETALE (PROD-DEVP-SUB, ON )@@G@@SHIFT-SUB, @C@@@@ TYPE-SUB)@F@@@@OO )@@G@@ BY CPU-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @C@@@@OP )@@G@@ TYPE-SUB)@F@@@@ OQ )@@G@@ GIVING SUP-CPU-RATIO IN DETALE (PROD-DEVP-SUB, @G@@@@ OR )@@G@@ SHIFT-SUB, TYPE-SUB) ROUNDED @^@@@@ OOS )@@G@@N SIZE ERROR@F@@@@ MOVE 0 TO SUP-CPU-RATIO IN DETALE (PRODOT )@@G@@-DEVP-SUB, @E@@@@ SHIFT-SUB, TYPE-SUOU )@@G@@B). @F@@@@ DIVIDE ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFTOV )@@G@@-SUB, @D@@@@ TYPE-SUB) @F@@@@OW )@@G@@ BY SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, @D@@@@OX )@@G@@ TYPE-SUB) @F@@@@ OY )@@G@@ GIVING ELAP-SUP-RATIO IN DETALE (PROD-DEVP-SUB,@G@@@@ OZ )@@G@@ SHIFT-SUB, TYPE-SUB) ROUNDED @^@@@@ PA )@@G@@ ON SIZE ERROR@F@@@@ MOVE 0 TO ELAP-SUP-RATIO IN DETALPB )@@G@@E (PROD-DEVP-SUB, @E@@@@ SHIFT-SUBPC )@@G@@, TYPE-SUB).@F@@@@ DIVIDE ELAP-HOURS IN DETALE (PROD-DEVP-SUB,PD )@@G@@ SHIFT-SUB, @D@@@@ TYPE-SUB) PE )@@G@@@F@@@@ BY CPU-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, PF )@@G@@@D@@@@ TYPE-SUB) @F@@@@ PG )@@G@@ GIVING ELAP-CPU-RATIO IN DETALE (PROD-DEVP-SUB,@G@@@@ PH )@@G@@ SHIFT-SUB, TYPE-SUB) ROUNDED @^@@@@PI )@@G@@ ON SIZE ERROR@F@@@@ MOVE 0 TO ELAP-CPU-RATIO INPJ )@@G@@ DETALE (PROD-DEVP-SUB, @E@@@@ SHIPK )@@G@@FT-SUB, TYPE-SUB).@F@@@@ COMPUTE PCT-ERROR IN DETALE (PROD-DEVPL )@@G@@P-SUB, SHIFT-SUB, @D@@@@ TYPE-SUB) ROPM )@@G@@UNDED @G@@@@ = 100 * NR-RUN-ERR IN DETALE (PROD-DEVP-SUB, PN )@@G@@SHIFT-SUB, @D@@@@ TYPE-SUB)PO )@@G@@@G@@@@ / NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUPP )@@G@@B, @D@@@@ TYPE-SUB) @^@@@@PQ )@@G@@ ON SIZE ERROR@E@@@@ MOVE 0 TO PCT-ERROR IN DETAPR )@@G@@LE (PROD-DEVP-SUB,@E@@@@ SHIFT-SUB, PS )@@G@@TYPE-SUB). @@@@@@@ @@@@ 1570-SUM-DAY-CUR-DAY. @F@@@@ IPT )@@G@@F AC-ACCOUNT-TYPE IN CURRENT-DAY-RECORD EQUAL 'T' @B@@@@ PU )@@G@@ MOVE 2 TO PROD-DEVP-SUB @#@@@@ ELSE @B@@@@ PV )@@G@@ MOVE 1 TO PROD-DEVP-SUB. @#@@@@ ADD @E@@@@ PW )@@G@@ RUNS IN AC-BATCH-DATA IN CURRENT-DAY-RECORD @A@@@@ PX )@@G@@ (SHIFT-SUB) @F@@@@ RUNS IN AC-RT-BATCH-DATA IN CURREPY )@@G@@NT-DAY-RECORD @A@@@@ (SHIFT-SUB) @^@@@@ PZ )@@G@@ TO @G@@@@ NR-RUNS IN DETALE (PROD-DQA )@@G@@EVP-SUB, SHIFT-SUB, 2) @G@@@@ NR-RUNS IN DETALE (QB )@@G@@PROD-DEVP-SUB, SHIFT-SUB, 1) @F@@@@ NR-RUNS IN DEQC )@@G@@TALE (TOTAL-SUB, SHIFT-SUB, 1)@G@@@@ NR-RUNS IN DEQD )@@G@@TALE (TOTAL-SUB, T-SHIFT-SUB, 2)@G@@@@ NR-RUNSQE )@@G@@ IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1)@G@@@@ NQF )@@G@@R-RUNS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 2)@G@@@@ QG )@@G@@ NR-RUNS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1)@G@@@@ QH )@@G@@ NR-RUNS IN DETALE (TOTAL-SUB, SHIFT-SUB, 2). @#@@@@ QI )@@G@@ ADD @E@@@@ RUNS IN AC-DEMAND-DATA IN CURRENT-DAY-RQJ )@@G@@ECORD @A@@@@ (SHIFT-SUB) @F@@@@ RUNQK )@@G@@S IN AC-RT-DMAND-DATA IN CURRENT-DAY-RECORD @A@@@@ QL )@@G@@ (SHIFT-SUB) @^@@@@ TO @G@@@@ QM )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1)@G@@@@ QN )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3)@G@@@@ QO )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1)@G@@@@QP )@@G@@ NR-RUNS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 3)QQ )@@G@@@G@@@@ NR-RUNS IN DETALE (TOTAL-SUB, T-SHIFT-SQR )@@G@@UB, 1)@G@@@@ NR-RUNS IN DETALE (TOTAL-SUB, T-SQS )@@G@@HIFT-SUB, 3)@G@@@@ NR-RUNS IN DETALE (TOTAL-SUB, QT )@@G@@ SHIFT-SUB, 1)@H@@@@ NR-RUNS IN DETALE (TOTAL-QU )@@G@@SUB, SHIFT-SUB, 3). @B@@@@ IF SHIFT-SUB IS LESS THAQV )@@G@@N 3 @C@@@@ ADD 1, SHIFT-SUB GIVING OUT-SUB @#@@@@ QW )@@G@@ ADD@F@@@@ HARD-KILL IN CURRENT-DAY-RECORD (SHQX )@@G@@IFT-SUB) @F@@@@ PROG-KILL IN CURRENT-DAY-RECORD (SHQY )@@G@@IFT-SUB) @F@@@@ OPER-KILL IN CURRENT-DAY-RECORD (SHQZ )@@G@@IFT-SUB) @F@@@@ SYS-KILL IN CURRENT-DAY-RECORD (SHRA )@@G@@IFT-SUB) @ @@@@ TO @F@@@@ RB )@@G@@ NR-RUN-ERR IN DETALE (PROD-DEVP-SUB, @E@@@@ RC )@@G@@ T-SHIFT-SUB, OUT-SUB)@G@@@@ RD )@@G@@ NR-RUN-ERR IN DETALE (TOTAL-SUB, T-SHIFT-SUB,@C@@@@ RE )@@G@@ OUT-SUB) @F@@@@ NR-RUN-ERRF )@@G@@R IN DETALE (PROD-DEVP-SUB, @D@@@@ RG )@@G@@T-SHIFT-SUB, 1) @E@@@@ NR-RUN-ERR IN DETALE RH )@@G@@(TOTAL-SUB, @D@@@@ T-SHIFT-SUB, 1). RI )@@G@@@G@@@@ DIVIDE TOT-SUPS IN AC-BATCH-DATA IN CURRENT-DAY-RECORJ )@@G@@RD @ @@@@ (SHIFT-SUB)@E@@@@ BY 180000RK )@@G@@00 GIVING BT-SUP-HOURS ROUNDED. @D@@@@ DIVIDE TOT-SUPS RL )@@G@@IN AC-RT-BATCH-DATA IN @D@@@@ CURRENT-DAY-RECORD (SHIRM )@@G@@FT-SUB) @E@@@@ BY 18000000 GIVING RT-SUP-HOURS ROUNDEDRN )@@G@@. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @G@@@@ RO )@@G@@ TO SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ RP )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 2) @G@@@@RQ )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) RR )@@G@@@G@@@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUBRS )@@G@@, 2) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SUB, T-SHIRT )@@G@@FT-SUB, 1) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SUB, RU )@@G@@ T-SHIFT-SUB, 2) @G@@@@ SUP-HOURS IN DETALE (TOTAL-SURV )@@G@@B, SHIFT-SUB, 1) @G@@@@ SUP-HOURS IN DETALE (TORW )@@G@@TAL-SUB, SHIFT-SUB, 2). @G@@@@ DIVIDE TOT-SUPS IN AC-DRX )@@G@@EMAND-DATA IN CURRENT-DAY-RECORD @ @@@@ (SHIFT-SUB)RY )@@G@@@E@@@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDED. @G@@@@RZ )@@G@@ DIVIDE TOT-SUPS IN AC-RT-DMAND-DATA IN CURRENT-DAY-RECORD SA )@@G@@@ @@@@ (SHIFT-SUB)@E@@@@ BY 18000000 GIVSB )@@G@@ING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-SC )@@G@@HOURS @#@@@@ TO @G@@@@ SUP-HOURS IN DETASD )@@G@@LE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ SUP-HOURS ISE )@@G@@N DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 3) @G@@@@ SUP-HSF )@@G@@OURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ SG )@@G@@ SUP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3) @G@@@@ SH )@@G@@ SUP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ SI )@@G@@ SUP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 3) @G@@@@SJ )@@G@@ SUP-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) SK )@@G@@@G@@@@ SUP-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUBSL )@@G@@, 3). @F@@@@ DIVIDE CPU-SUPS IN AC-DEMAND-DATA IN CURRENT-DAY-SM )@@G@@RECORD@ @@@@ (SHIFT-SUB)@E@@@@ BY 180000SN )@@G@@00 GIVING BT-SUP-HOURS ROUNDED. @G@@@@ DIVIDE CPU-SUPS IN SO )@@G@@AC-RT-DMAND-DATA IN CURRENT-DAY-RECORD @ @@@@ (SHIFSP )@@G@@T-SUB)@E@@@@ BY 18000000 GIVING RT-SUP-HOURS ROUNDED. SQ )@@G@@@B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @#@@@@ TO SR )@@G@@@G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUBSS )@@G@@, 1) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIST )@@G@@FT-SUB, 3) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB,SU )@@G@@ SHIFT-SUB, 1) @G@@@@ CPU-HOURS IN DETALE (PROD-DEVSV )@@G@@P-SUB, SHIFT-SUB, 3) @G@@@@ CPU-HOURS IN DETALE (TOSW )@@G@@TAL-SUB, SHIFT-SUB, 1) @G@@@@ CPU-HOURS IN DETASX )@@G@@LE (TOTAL-SUB, SHIFT-SUB, 3) @G@@@@ CPU-HOURS ISY )@@G@@N DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ CPU-HSZ )@@G@@OURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 3). @F@@@@ DIVIDE TA )@@G@@CPU-SUPS IN AC-BATCH-DATA IN CURRENT-DAY-RECORD @ @@@@ TB )@@G@@ (SHIFT-SUB)@E@@@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDEDTC )@@G@@. @G@@@@ DIVIDE CPU-SUPS IN AC-RT-BATCH-DATA IN CURRENT-DATD )@@G@@Y-RECORD @ @@@@ (SHIFT-SUB)@E@@@@ BY TE )@@G@@18000000 GIVING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOTF )@@G@@URS, RT-SUP-HOURS @#@@@@ TO @G@@@@ CPU-HTG )@@G@@OURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ TH )@@G@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 2) @G@@@@ TI )@@G@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ TJ )@@G@@ CPU-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 2) @G@@@@TK )@@G@@ CPU-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) TL )@@G@@@G@@@@ CPU-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUBTM )@@G@@, 2) @G@@@@ CPU-HOURS IN DETALE (TOTAL-SUB, T-SHITN )@@G@@FT-SUB, 1) @G@@@@ CPU-HOURS IN DETALE (TOTAL-SUB, TO )@@G@@ T-SHIFT-SUB, 2). @F@@@@ DIVIDE RUN-SECS IN AC-BATCH-DATA IN CTP )@@G@@URRENT-DAY-RECORD @ @@@@ (SHIFT-SUB)@D@@@@ TQ )@@G@@ BY 3600 GIVING BT-SUP-HOURS ROUNDED. @G@@@@ DIVIDE RUN-SETR )@@G@@CS IN AC-RT-BATCH-DATA IN CURRENT-DAY-RECORD @ @@@@ TS )@@G@@ (SHIFT-SUB)@D@@@@ BY 3600 GIVING RT-SUP-HOURS ROUNDED. TT )@@G@@@B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @#@@@@ TO TU )@@G@@@G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUTV )@@G@@B, 1) @G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, T-SHTW )@@G@@IFT-SUB, 2) @G@@@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUBTX )@@G@@, SHIFT-SUB, 1) @G@@@@ ELAP-HOURS IN DETALE (PROD-DETY )@@G@@VP-SUB, SHIFT-SUB, 2) @G@@@@ ELAP-HOURS IN DETALE (TTZ )@@G@@OTAL-SUB, SHIFT-SUB, 1) @G@@@@ ELAP-HOURS IN DETUA )@@G@@ALE (TOTAL-SUB, SHIFT-SUB, 2) @G@@@@ ELAP-HOURS UB )@@G@@IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ ELAP-UC )@@G@@HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 2).@F@@@@ DIVIDE UD )@@G@@RUN-SECS IN AC-DEMAND-DATA IN CURRENT-DAY-RECORD@ @@@@ UE )@@G@@ (SHIFT-SUB)@D@@@@ BY 3600 GIVING BT-SUP-HOURS ROUNDED. UF )@@G@@@G@@@@ DIVIDE RUN-SECS IN AC-RT-DMAND-DATA IN CURRENT-DAY-RECOUG )@@G@@RD @ @@@@ (SHIFT-SUB)@D@@@@ BY 3600 GUH )@@G@@IVING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-UI )@@G@@HOURS @#@@@@ TO @G@@@@ ELAP-HOURS IN DETUJ )@@G@@ALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ ELAP-HOURS UK )@@G@@IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 3) @G@@@@ ELAP-UL )@@G@@HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ UM )@@G@@ ELAP-HOURS IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3) @G@@@@ UN )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@ UO )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, SHIFT-SUB, 3) @G@@@@UP )@@G@@ ELAP-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUB, 1) UQ )@@G@@@G@@@@ ELAP-HOURS IN DETALE (TOTAL-SUB, T-SHIFT-SUUR )@@G@@B, 3).@#@@@@ ADD @F@@@@ STD-PGS IN AC-BATCH-DUS )@@G@@ATA IN CURRENT-DAY-RECORD @ @@@@ (SHIFT-SUB)@F@@@@UT )@@G@@ STD-PGS IN AC-RT-BATCH-DATA IN CURRENT-DAY-RECORD @A@@@@UU )@@G@@ (SHIFT-SUB) @^@@@@ TO @G@@@@UV )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) UW )@@G@@@G@@@@ PAGES IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUBUX )@@G@@, 2) @G@@@@ PAGES IN DETALE (PROD-DEVP-SUB, SHIUY )@@G@@FT-SUB, 1) @G@@@@ PAGES IN DETALE (PROD-DEVP-SUB,UZ )@@G@@ SHIFT-SUB, 2) @G@@@@ PAGES IN DETALE (TOTAL-SUVA )@@G@@B, SHIFT-SUB, 1) @G@@@@ PAGES IN DETALE (TOVB )@@G@@TAL-SUB, SHIFT-SUB, 2) @G@@@@ PAGES IN DETAVC )@@G@@LE (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ PAGES IVD )@@G@@N DETALE (TOTAL-SUB, T-SHIFT-SUB, 2). @#@@@@ ADD @F@@@@VE )@@G@@ STD-PGS IN AC-DEMAND-DATA IN CURRENT-DAY-RECORD @A@@@@VF )@@G@@ (SHIFT-SUB) @F@@@@ STD-PGS IN AC-RVG )@@G@@T-DMAND-DATA IN CURRENT-DAY-RECORD @A@@@@ (SHIFT-VH )@@G@@SUB) @^@@@@ TO @G@@@@ PAGES IVI )@@G@@N DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ PVJ )@@G@@AGES IN DETALE (PROD-DEVP-SUB, T-SHIFT-SUB, 3) @G@@@@ VK )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 1) @G@@@@ VL )@@G@@ PAGES IN DETALE (PROD-DEVP-SUB, SHIFT-SUB, 3) @G@@@@ VM )@@G@@ PAGES IN DETALE (TOTAL-SUB, SHIFT-SUB, 1) @G@@@@VN )@@G@@ PAGES IN DETALE (TOTAL-SUB, SHIFT-SUB, 3) VO )@@G@@@G@@@@ PAGES IN DETALE (TOTAL-SUB, T-SHIFT-SUBVP )@@G@@, 1) @G@@@@ PAGES IN DETALE (TOTAL-SUB, T-SHIVQ )@@G@@FT-SUB, 3). @@@@@@@@@@@@@@@@@@@A@@@@ 1600-SUM-SAME-DAY-RECORDS. VR )@@G@@@E@@@@ ADD AC-OUTSTAND-CAT-TKS IN CURRENT-DAY-RECORD TO @E@@@@VS )@@G@@ AC-OUTSTAND-CAT-TKS IN OLD-CUMULATIVE-RECORD.@F@@@@ VT )@@G@@ ADD AC-OUTSTAND-LIB-REELS IN CURRENT-DAY-RECORD TO @F@@@@ VU )@@G@@ AC-OUTSTAND-LIB-REELS IN OLD-CUMULATIVE-RECORD. @^@@@@ VV )@@G@@ DIVIDE 2 INTO@E@@@@ AC-OUTSTAND-CAT-TKS IN OLD-CUMULAVW )@@G@@TIVE-RECORD @F@@@@ AC-OUTSTAND-LIB-REELS IN OLD-CUMULATIVEVX )@@G@@-RECORD. @B@@@@ PERFORM 1700-SUM-ERRORS-MERGE @G@@@@ VY )@@G@@ VARYING TYPE-SUB FROM 1 BY 1 UNTIL TYPE-SUB GREATER 2. @B@@@@VZ )@@G@@ PERFORM 1701-SUM-SHIFT-MERGE @G@@@@ VARYING SWA )@@G@@HIFT-SUB FROM 1 BY 1 UNTIL SHIFT-SUB GREATER 3. @@@@@@@A@@@@ 1610-WB )@@G@@READ-CURRENT-DAY-FILE. @A@@@@ READ CURRENT-DAY-FILE @^@@@@WC )@@G@@ AT END @C@@@@ ADD 1 TO SW-END-OF-INPUWD )@@G@@T @G@@@@ MOVE HIGH-VALUES TO AC-DATE IN CURRENT-DAWE )@@G@@Y-RECORD. @F@@@@ IF NOT AC-DATE IN CURRENT-DAY-RECORD EQUAL WF )@@G@@HIGH-VALUES @A@@@@ ADD 1 TO COUNT-DAILY.@F@@@@ IWG )@@G@@F AC-DATE IN CURRENT-DAY-RECORD EQUAL AC-DATE-HOLD @G@@@@ WH )@@G@@ IF AC-ACCOUNT-NO IN CURRENT-DAY-RECORD NOT LESS THAN @B@@@@ WI )@@G@@ AC-ACCOUNT-NO-HOLD @A@@@@ NEXT SENTENWJ )@@G@@CE @^@@@@ ELSE @G@@@@ DISPLAY 'PRWK )@@G@@OGRAM ABORT H1550081: DAILY ACCOUNT FILE',@C@@@@ WL )@@G@@ ' OUT OF ORDER.' @E@@@@ DISPLAY 'PREVIOUS ACCOUWM )@@G@@NT NUMBER ' , @G@@@@ AC-ACCOUNT-NO-HOLD, 'WN )@@G@@ CURRENT ACCOUNT' @E@@@@ ' NUMBER ', AC-WO )@@G@@ACCOUNT-NO IN @D@@@@ CURRENT-DAY-RECORWP )@@G@@D @A@@@@ ENTER FD 'ABORT' @#@@@@ ELSE WQ )@@G@@@G@@@@ IF AC-DATE IN CURRENT-DAY-RECORD GREATER AC-DATE-HOWR )@@G@@LD @A@@@@ NEXT SENTENCE @^@@@@ ELSWS )@@G@@E @G@@@@ DISPLAY 'PROGRAM ABORT H1550081: DAILY ACCWT )@@G@@OUNT FILE' @B@@@@ 'OUT OF ORDER.'@G@@@@ WU )@@G@@ DISPLAY 'PREVIOUS ACCOUNT NUMBER ', AC-ACCOUNT-NO-HOLD@E@@@@WV )@@G@@ , ' CURRENT ACCOUNT NUMBER', @F@@@@ WW )@@G@@ AC-ACCOUNT-NO IN CURRENT-DAY-RECORD @A@@@@ WX )@@G@@ ENTER FD 'ABORT'. @@@@@@@B@@@@ 1620-READ-OLD-CUMULATIVWY )@@G@@E-FILE. @A@@@@ READ OLD-CUMULATIVE-FILE @^@@@@ WZ )@@G@@ AT END @C@@@@ ADD 1 TO SW-END-OF-INPUT @D@@@@XA )@@G@@ MOVE HIGH-VALUES TO AC-ACCOUNT-NO @D@@@@ XB )@@G@@ IN OLD-CUMULATIVE-RECORD @G@@@@ MOVE XC )@@G@@HIGH-VALUES TO AC-DATE IN OLD-CUMULATIVE-RECORD.@G@@@@ IF NOT XD )@@G@@AC-DATE IN OLD-CUMULATIVE-RECORD EQUAL HIGH-VALUES @B@@@@ XE )@@G@@ ADD 1 TO COUNT-OLD-CUM. @@@@@@@B@@@@ 1655-SHIFT-PRINT-DAILY-XF )@@G@@REPORT. @A@@@@ IF TYPE-SUB IS EQUAL TO 1@A@@@@ XG )@@G@@ MOVE 2 TO X-NUMBER-OF@#@@@@ ELSE @B@@@@ MOVXH )@@G@@E 1 TO X-NUMBER-OF. @F@@@@ MOVE LINE-MESSAGE (SHIFT-SUB, TXI )@@G@@YPE-SUB) TO TEXT-MSG. @F@@@@ MOVE CORR DETALE (PROD-DEVP-SUBXJ )@@G@@, SHIFT-SUB, TYPE-SUB) @A@@@@ TO PRINT-FIGURES. @G@@@@XK )@@G@@ WRITE DAILY-REPORT FROM PRINT-LINE AFTER X-NUMBER-OF LINES. XL )@@G@@@@@@@@@@@@@@@@@@@@@ @@@@ 1700-SUM-ERRORS-MERGE. @E@@@@ AXM )@@G@@DD HARD-KILL IN CURRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@ HARXN )@@G@@D-KILL IN OLD-CUMULATIVE-RECORD (TYPE-SUB). @E@@@@ ADD PROXO )@@G@@G-KILL IN CURRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@ PROG-KILLXP )@@G@@ IN OLD-CUMULATIVE-RECORD (TYPE-SUB). @E@@@@ ADD OPER-KILLXQ )@@G@@ IN CURRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@ OPER-KILL IN OLXR )@@G@@D-CUMULATIVE-RECORD (TYPE-SUB). @E@@@@ ADD SYS-KILL IN CUXS )@@G@@RRENT-DAY-RECORD (TYPE-SUB) TO@F@@@@ SYS-KILL IN OLD-CUMUXT )@@G@@LATIVE-RECORD (TYPE-SUB). @E@@@@ ADD ER-ERR IN CURRENT-XU )@@G@@DAY-RECORD (TYPE-SUB) TO@F@@@@ ER-ERR IN OLD-CUMULATIVEXV )@@G@@-RECORD (TYPE-SUB). @E@@@@ ADD ER-ABORT IN CURRENT-DAY-REXW )@@G@@CORD (TYPE-SUB) TO@F@@@@ ER-ABORT IN OLD-CUMULATIVE-RECORXX )@@G@@D (TYPE-SUB). @E@@@@ ADD SEC-LOST IN CURRENT-DAY-RECORD (XY )@@G@@TYPE-SUB) TO@F@@@@ SEC-LOST IN OLD-CUMULATIVE-RECORD (TYPXZ )@@G@@E-SUB). @@@@@@@ @@@@ 1701-SUM-SHIFT-MERGE. @F@@@@ AYA )@@G@@DD TOT-RPTS IN CURRENT-DAY-RECORD (SHIFT-SUB) TO @F@@@@ YB )@@G@@ TOT-RPTS IN OLD-CUMULATIVE-RECORD (SHIFT-SUB). @F@@@@ AYC )@@G@@DD TOT-LINES IN CURRENT-DAY-RECORD (SHIFT-SUB) TO @F@@@@ YD )@@G@@ TOT-LINES IN OLD-CUMULATIVE-RECORD (SHIFT-SUB). @F@@@@ AYE )@@G@@DD SPC-FORMS IN CURRENT-DAY-RECORD (SHIFT-SUB) TO @F@@@@ YF )@@G@@ SPC-FORMS IN OLD-CUMULATIVE-RECORD (SHIFT-SUB). @F@@@@ AYG )@@G@@DD PR-BL-TIME IN CURRENT-DAY-RECORD (SHIFT-SUB) TO @F@@@@ YH )@@G@@ PR-BL-TIME IN OLD-CUMULATIVE-RECORD (SHIFT-SUB). @F@@@@ MYI )@@G@@OVE AV-PRI IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECORD @ @@@@ YJ )@@G@@ (SHIFT-SUB)@A@@@@ TO BT-AV-PRI-FOR-AVG.@G@@@@ YK )@@G@@ MOVE AV-PRI IN AC-RT-BATCH-DATA IN OLD-CUMULATIVE-RECORD @ @@@@YL )@@G@@ (SHIFT-SUB)@A@@@@ TO RT-AV-PRI-FOR-AVG.YM )@@G@@@G@@@@ MOVE TOT-SUPS IN AC-RT-BATCH-DATA IN OLD-CUMULATIVE-RECYN )@@G@@ORD @ @@@@ (SHIFT-SUB)@A@@@@ TO RT-SUPYO )@@G@@S-FOR-AVG. @F@@@@ MOVE TOT-SUPS IN AC-BATCH-DATA IN OLD-CUMULYP )@@G@@ATIVE-RECORD@ @@@@ (SHIFT-SUB)@A@@@@ TO YQ )@@G@@BT-SUPS-FOR-AVG. @G@@@@ ADD CORR AC-BATCH-DATA IN CURRENT-DAYYR )@@G@@-RECORD (SHIFT-SUB) TO @F@@@@ AC-BATCH-DATA IN OLD-CUMULAYS )@@G@@TIVE-RECORD (SHIFT-SUB).@G@@@@ ADD CORR AC-DEMAND-DATA IN CURRYT )@@G@@ENT-DAY-RECORD (SHIFT-SUB) TO @G@@@@ AC-DEMAND-DATA IN OLDYU )@@G@@-CUMULATIVE-RECORD (SHIFT-SUB). @G@@@@ ADD CORR AC-RT-BATCYV )@@G@@H-DATA IN CURRENT-DAY-RECORD (SHIFT-SUB) @G@@@@ TO AC-RT-YW )@@G@@BATCH-DATA IN OLD-CUMULATIVE-RECORD (SHIFT-SUB).@G@@@@ ADD CORYX )@@G@@R AC-RT-DMAND-DATA IN CURRENT-DAY-RECORD (SHIFT-SUB) @G@@@@ YY )@@G@@ TO AC-RT-DMAND-DATA IN OLD-CUMULATIVE-RECORD (SHIFT-SUB).@F@@@@ YZ )@@G@@ IF TOT-SUPS IN AC-BATCH-DATA IN CURRENT-DAY-RECORD @C@@@@ ZA )@@G@@ (SHIFT-SUB) NOT EQUAL TO 0 @D@@@@ AND BT-SUZB )@@G@@PS-FOR-AVG NOT EQUAL TO 0 @^@@@@ COMPUTE @F@@@@ ZC )@@G@@ AV-PRI IN AC-BATCH-DATA IN OLD-CUMULATIVE-RECORD @B@@@@ ZD )@@G@@ (SHIFT-SUB) =@F@@@@ (AV-PRI IN ZE )@@G@@AC-BATCH-DATA IN CURRENT-DAY-RECORD @B@@@@ (SHIFTZF )@@G@@-SUB) * @G@@@@ TOT-SUPS IN AC-BATCH-DATA IN CURREZG )@@G@@NT-DAY-RECORD @B@@@@ (SHIFT-SUB) + @E@@@@ZH )@@G@@ BT-AV-PRI-FOR-AVG * BT-SUPS-FOR-AVG) /@G@@@@ ZI )@@G@@ (TOT-SUPS IN AC-BATCH-DATA IN CURRENT-DAY-RECORD @B@@@@ZJ )@@G@@ (SHIFT-SUB) + @A@@@@ BT-SZK )@@G@@UPS-FOR-AVG)@#@@@@ ELSE @D@@@@ MOVE 0 TO AV-PRZL )@@G@@I IN AC-BATCH-DATA IN @E@@@@ OLD-CUMULATIVE-RECOZM )@@G@@RD (SHIFT-SUB). @C@@@@ IF TOT-SUPS IN AC-RT-BATCH-DATA IN ZN )@@G@@@F@@@@ CURRENT-DAY-RECORD (SHIFT-SUB) NOT EQUAL TO 0 ZO )@@G@@@D@@@@ AND RT-SUPS-FOR-AVG NOT EQUAL TO 0 @^@@@@ ZP )@@G@@ COMPUTE @F@@@@ AV-PRI IN AC-RT-BATCH-DATA IN OLDZQ )@@G@@-CUMULATIVE-RECORD@B@@@@ (SHIFT-SUB) =@G@@@@ZR )@@G@@ (AV-PRI IN AC-RT-BATCH-DATA IN CURRENT-DAY-RECORD ZS )@@G@@@B@@@@ (SHIFT-SUB) * @G@@@@ ZT )@@G@@ TOT-SUPS IN AC-RT-BATCH-DATA IN CURRENT-DAY-RECORD@B@@@@ ZU )@@G@@ (SHIFT-SUB) + @F@@@@ RT-AV-PRI-FOR-ZV )@@G@@AVG * RT-SUPS-FOR-AVG) / @G@@@@ (TOT-SUPS IN AC-RZW )@@G@@T-BATCH-DATA IN CURRENT-DAY-RECORD @B@@@@ (SHIFTZX )@@G@@-SUB) + @B@@@@ RT-SUPS-FOR-AVG) @#@@@@ ZY )@@G@@ ELSE @D@@@@ MOVE 0 TO AV-PRI IN AC-RT-BATCH-DATA INZZ )@@G@@@E@@@@ OLD-CUMULATIVE-RECORD (SHIFT-SUB). @@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@B@@@@ 1990-SORT-INPUT-PROCEDURE-EXIT. @#@@@@AB )@@G@@ EXIT. @]@@@@ / @C@@@@ 2000-SORT-OUTPUT-MONTHLAC )@@G@@Y-FILES SECTION. @@@@@@@@@@@@@@@@@@@@@@@@@B@@@@ 2100-MAIN-CONTROLAD )@@G@@-MONTHLY-PROC. @C@@@@ PERFORM 2200-MONTHLY-FILES-HOUSEKEEP.AE )@@G@@@C@@@@ PERFORM 2220-MAIN-PROCESSING-MONTHLY @A@@@@ AF )@@G@@ UNTIL END-OF-INPUT. @A@@@@ PERFORM 2280-LAST-RECORD.@@@@@@AG )@@G@@@C@@@@ GO TO 2990-SORT-OUTPUT-PROCEDUR-EXIT.@@@@@@@@@@@@@@@@@@AH )@@G@@@A@@@@ 2200-MONTHLY-FILES-HOUSEKEEP.@A@@@@ IF MONTHLY-REAI )@@G@@PORT-EXISTS @C@@@@ OPEN OUTPUT MONTHLY-REPORT-FILE. @A@@@@AJ )@@G@@ IF MONTHLY-SUMMARY-EXISTS@C@@@@ OPEN OUTPUT MONAK )@@G@@THLY-SUMMARY-FILE.@B@@@@ MOVE 0 TO SW-END-OF-INPUT. @C@@@@AL )@@G@@ MOVE PROCESSING-YY TO HEAD-YEAR. @C@@@@ MOVE PRAM )@@G@@OCESSING-MM TO HEAD-MONTH. @C@@@@ PERFORM 2310-RETURN-SORTEAN )@@G@@D-RECORD. @B@@@@ PERFORM 2472-ZERO-WORK-RECORD @G@@@@ AO )@@G@@ VARYING OUT-SUB FROM 1 BY 1 UNTIL OUT-SUB GREATER 328. @C@@@@AP )@@G@@ PERFORM 2475-ZERO-MONTHLY-SUMMARY-REC@G@@@@ VARAQ )@@G@@YING OUT-SUB FROM 1 BY 1 UNTIL OUT-SUB GREATER 328. @D@@@@ PAR )@@G@@ERFORM 2478-MOVE-ACCOUNT-INFORMATION. @F@@@[ MOVE AC-ACCOUAS )@@G@@NT-NO IN SORT-RECORD TO ACCOUNT-HOLD. @C@@@@ PERFORM 2555-AT )@@G@@ZERO-MONTHLY-REPORT-SUMS@G@@@@ VARYING SHIFT-SUB FROM 1 BYAU )@@G@@ 1 UNTIL SHIFT-SUB GREATER 5 @^@@@@ AFTER @B@@@@ AV )@@G@@ TYPE-SUB FROM 1 BY 1 @E@@@@ UNTAW )@@G@@IL TYPE-SUB GREATER THAN 3. @C@@@@ PERFORM 2556-ZERO-MONTHLYAX )@@G@@-TOTALS @G@@@@ VARYING PROD-DEVP-SUB FROM 1 BY 1 UNTILAY )@@G@@ PROD-DEVP-SUB > 3@G@@@@ AFTER SHIFT-SUB FROM 1 BY 1 UAZ )@@G@@NTIL SHIFT-SUB GREATER 5@G@@@@ AFTER TYPE-SUB FROMBA )@@G@@ 1 BY 1 UNTIL TYPE-SUB > 3. @@@@@@@A@@@@ 2220-MAIN-PROCESSING-MOBB )@@G@@NTHLY.@A@@@@ IF MONTHLY-REPORT-EXISTS@D@@@@ PERBC )@@G@@FORM 2340-PROCESS-MONTHLY-REPORT. @B@@@@ IF MONTHLY-SUMMARYBD )@@G@@-EXISTS @D@@@@ PERFORM 2370-PROCESS-MONTHLY-SUMMARY. BE )@@G@@@C@@@@ PERFORM 2310-RETURN-SORTED-RECORD. @@@@@@@^@@@@ BF )@@G@@ 2280-LAST-RECORD.@A@@@@ IF MONTHLY-REPORT-EXISTS @C@@@@ BG )@@G@@ PERFORM 2450-NEW-ACCOUNT-NUMBER @B@@@@ MOVE 'ALLBH )@@G@@' TO HEADING-ACCT.@D@@@@ PERFORM 2451-TOTALS-OF-ALL-ACCOUNBI )@@G@@TS @D@@@@ VARYING PROD-DEVP-SUB FROM 1 BY 1 @D@@@@BJ )@@G@@ UNTIL PROD-DEVP-SUB GREATER 3. @A@@@@ IBK )@@G@@F MONTHLY-SUMMARY-EXISTS@D@@@@ PERFORM 2470-WRITE-SUMMARY-BL )@@G@@RECORDS. @@@@@@@@@@@@@A@@@@ 2310-RETURN-SORTED-RECORD. @ @@@@BM )@@G@@ RETURN SORT-FILE @C@@@@ AT END MOVE 2 TO SW-EBN )@@G@@ND-OF-INPUT.@@@@@@@@@@@@@A@@@@ 2340-PROCESS-MONTHLY-REPORT. @G@@@@BO )@@G@@ IF AC-ACCOUNT-NO IN SORT-RECORD IS EQUAL TO ACCOUNT-HOLD BP )@@G@@@D@@@@ PERFORM 2530-SAME-ACCOUNT-NUMBER-PROC @#@@@@ BQ )@@G@@ ELSE @C@@@@ PERFORM 2450-NEW-ACCOUNT-NUMBER. @@@@@@BR )@@G@@@@@@@@@A@@@@ 2370-PROCESS-MONTHLY-SUMMARY.@F@@@@ IF AC-BS )@@G@@ACCOUNT-NO IN MONTHLY-SUMMARY-RECORD IS EQUAL TO@C@@@@ AC-BT )@@G@@ACCOUNT-NO IN SORT-RECORD @G@@@@ IF AC-DAY-OF-WK-BU )@@G@@9 IN SORT-RECORD EQUAL TO 1 OR @F@@@@ AC-DAY-BV )@@G@@OF-WK-9 IN SORT-RECORD EQUAL TO 7 @E@@@@ PERBW )@@G@@FORM 2460-SUMARIZE-WEEKEND @^@@@@ ELSE @D@@@@ BX )@@G@@ PERFORM 2465-SUMARIZE-WEEKDAY @#@@@@ ELSE BY )@@G@@@D@@@@ PERFORM 2470-WRITE-SUMMARY-RECORDS @C@@@@ BZ )@@G@@ PERFORM 2472-ZERO-WORK-RECORD @E@@@@ VARYICA )@@G@@NG OUT-SUB FROM 1 BY 1 UNTIL OUT-SUB@C@@@@ CB )@@G@@ GREATER THAN 328 @D@@@@ PERFORM 2475-ZERO-MONTHLY-SUMMARYCC )@@G@@-REC @C@@@@ VARYING OUT-SUB FROM 1 BY 1 @D@@@@ CD )@@G@@ UNTIL OUT-SUB GREATER THAN 328 @D@@@@ PERCE )@@G@@FORM 2478-MOVE-ACCOUNT-INFORMATION @F@@@@ IF AC-DAY-OF-WCF )@@G@@K-9 IN SORT-RECORD EQUAL TO 1 OR @E@@@@ AC-DAY-OF-WCG )@@G@@K-9 IN SORT-RECORD EQUAL TO 7 @D@@@@ PERFORM 2460-CH )@@G@@SUMARIZE-WEEKEND @^@@@@ ELSE @D@@@@ CI )@@G@@ PERFORM 2465-SUMARIZE-WEEKDAY. @@@@@@@@@@@@@@@@@@@A@@@@ 2450-CJ )@@G@@NEW-ACCOUNT-NUMBER. @C@@@@ PERFORM 2540-CALCULATE-AVG-MONTCK )@@G@@HLY @G@@@@ VARYING SHIFT-SUB FROM 1 BY 1 UNTIL SHIFT-SUBCL )@@G@@ GREATER 5 @^@@@@ AFTER @B@@@@ TYPE-CM )@@G@@SUB FROM 1 BY 1 @E@@@@ UNTIL TYPE-SUB GREATECN )@@G@@R THAN 3. @C@@@@ PERFORM 2545-PRINT-MONTHLY-HEADING. @C@@@@CO )@@G@@ PERFORM 2550-PRINT-MONTHLY-REPORT @G@@@@ VARCP )@@G@@YING SHIFT-SUB FROM 1 BY 1 UNTIL SHIFT-SUB GREATER 5 @^@@@@ CQ )@@G@@ AFTER @B@@@@ TYPE-SUB FROM 1 BY 1 @E@@@@ CR )@@G@@ UNTIL TYPE-SUB GREATER THAN 3. @F@@@[ MCS )@@G@@OVE AC-ACCOUNT-NO IN SORT-RECORD TO ACCOUNT-HOLD. @C@@@@ PCT )@@G@@ERFORM 2555-ZERO-MONTHLY-REPORT-SUMS@G@@@@ VARYING SHIFT-SCU )@@G@@UB FROM 1 BY 1 UNTIL SHIFT-SUB GREATER 5 @^@@@@ AFTER CV )@@G@@@B@@@@ TYPE-SUB FROM 1 BY 1 @E@@@@ CW )@@G@@ UNTIL TYPE-SUB GREATER THAN 3. @D@@@@ PERFORM 2530-CX )@@G@@SAME-ACCOUNT-NUMBER-PROC. @@@@@@@A@@@@ 2451-TOTALS-OF-ALL-ACCOCY )@@G@@UNTS. @C@@@@ PERFORM 2541-CALCULATE-AVG-TOTALS @G@@@@ CZ )@@G@@ VARYING SHIFT-SUB FROM 1 BY 1 UNTIL SHIFT-SUB GREATER 5 @^@@@@DA )@@G@@ AFTER @B@@@@ TYPE-SUB FROM 1 BY 1 DB )@@G@@@E@@@@ UNTIL TYPE-SUB GREATER THAN 3. @D@@@@DC )@@G@@ PERFORM 2546-PRINT-MONTHLY-HEAD-TOTAL. @C@@@@ PDD )@@G@@ERFORM 2551-PRINT-MONTHLY-REP-TOTAL @G@@@@ VARYING SHIFT-SDE )@@G@@UB FROM 1 BY 1 UNTIL SHIFT-SUB GREATER 5 @^@@@@ AFTER DF )@@G@@@B@@@@ TYPE-SUB FROM 1 BY 1 @E@@@@ DG )@@G@@ UNTIL TYPE-SUB GREATER THAN 3. @@@@@@@@@@@@@ @@@@ 2460-DH )@@G@@SUMARIZE-WEEKEND. @D@@@@ ADD AC-OUTSTAND-CAT-TKS IN SORT-RECORDI )@@G@@D TO @D@@@@ AC-OUTSTAND-CAT-TKS IN WORK-RECORD. @D@@@@DJ )@@G@@ ADD AC-OUTSTAND-LIB-REELS IN SORT-RECORD TO@D@@@@ DK )@@G@@ AC-OUTSTAND-LIB-REELS IN WORK-RECORD. @C@@@@ PERFORM 2560-DL )@@G@@SUMARIZE-WKEND-ERRORS @G@@@@ VARYING TYPE-SUB FROM 1 BY DM )@@G@@1 UNTIL TYPE-SUB GREATER 2. @D@@@@ PERFORM 2561-SUMARIZE-WKEDN )@@G@@ND-SHIFT-INFO @G@@@@ VARYING SHIFT-SUB FROM 1 BY 1 UNTDO )@@G@@IL SHIFT-SUB GREATER 3. @@@@@@@ @@@@ 2465-SUMARIZE-WEEKDAY. @D@@@@DP )@@G@@ ADD AC-OUTSTAND-CAT-TKS IN SORT-RECORD TO @F@@@@ DQ )@@G@@ AC-OUTSTAND-CAT-TKS IN MONTHLY-SUMMARY-RECORD. @D@@@@ ADR )@@G@@DD AC-OUTSTAND-LIB-REELS IN SORT-RECORD TO@F@@@@ AC-OUTSTADS )@@G@@ND-LIB-REELS IN MONTHLY-SUMMARY-RECORD. @C@@@@ PERFORM 2565-DT )@@G@@SUMARIZE-WKDAY-ERRORS @G@@@@ VARYING TYPE-SUB FROM 1 BY DU )@@G@@1 UNTIL TYPE-SUB GREATER 2. @D@@@@ PERFORM 2566-SUMARIZE-WKDDV )@@G@@AY-SHIFT-INFO @G@@@@ VARYING SHIFT-SUB FROM 1 BY 1 UNTDW )@@G@@IL SHIFT-SUB GREATER 3. @@@@@@@A@@@@ 2470-WRITE-SUMMARY-RECORDS. DX )@@G@@@B@@@@ WRITE MONTHLY-SUMMARY-RECORD. @E@@@@ WRITE MDY )@@G@@ONTHLY-SUMMARY-RECORD FROM WORK-RECORD. @A@@@@ ADD 2 TO COUNDZ )@@G@@T-MTH-SUM. @@@@@@@ @@@@ 2472-ZERO-WORK-RECORD. @E@@@@ MEA )@@G@@OVE ZERO TO CLEARING-WORK-RECORD (OUT-SUB). @@@@@@@B@@@@ 2475-EB )@@G@@ZERO-MONTHLY-SUMMARY-REC. @D@@@@ MOVE ZERO TO CLEARING-SUMEC )@@G@@MARY (OUT-SUB). @@@@@@@B@@@@ 2478-MOVE-ACCOUNT-INFORMATION. ED )@@G@@@C@@@@ MOVE AC-ACCOUNT-NO IN SORT-RECORD @C@@@@ EE )@@G@@ TO AC-ACCOUNT-NO IN WORK-RECORD @E@@@@ AC-ACCOUNT-EF )@@G@@NO IN MONTHLY-SUMMARY-RECORD. @ @@@@ MOVE PROCESSING-YY @B@@@@EG )@@G@@ TO AC-YY IN WORK-RECORD @D@@@@ AC-YYEH )@@G@@ IN MONTHLY-SUMMARY-RECORD. @ @@@@ MOVE PROCESSING-MM @B@@@@EI )@@G@@ TO AC-MM IN WORK-RECORD @D@@@@ AC-MMEJ )@@G@@ IN MONTHLY-SUMMARY-RECORD. @E@@@@ MOVE '32' TO AC-DD IN MONEK )@@G@@THLY-SUMMARY-RECORD. @F@[@@ MOVE AC-ACCOUNT-NO IN SORT-RECOEL )@@G@@RD TO ACCOUNT-HOLD. @C@@@@ MOVE '33' TO AC-DD IN WORK-RECOEM )@@G@@RD. @@@@@@@@@@@@@@@@@@@B@@@@ 2530-SAME-ACCOUNT-NUMBER-PROC. EN )@@G@@@B@@@@ IF ACCOUNT-TYPE-HOLD = 'T' @B@@@@ MOVEO )@@G@@E 2 TO PROD-DEVP-SUB @#@@@@ ELSE @B@@@@ MOVEP )@@G@@E 1 TO PROD-DEVP-SUB. @B@@@@ PERFORM 2625-SUM-NO-OF-ERRORS EQ )@@G@@@G@@@@ VARYING TYPE-SUB FROM 1 BY 1 UNTIL TYPE-SUB GREATERER )@@G@@ 2. @A@@@@ PERFORM 2630-SUM-SHIFTS @C@@@@ ES )@@G@@ VARYING SHIFT-SUB FROM 1 BY 1@D@@@@ UNTIL SHIFT-SET )@@G@@UB GREATER THAN 3.@@@@@@@A@@@@ 2540-CALCULATE-AVG-MONTHLY. @E@@@@EU )@@G@@ DIVIDE SUP-HOURS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @E@@@@ EV )@@G@@ BY NR-RUNS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ EW )@@G@@ GIVING AVG-SUP IN MO-SUM (SHIFT-SUB, TYPE-SUB) @D@@@@ EX )@@G@@ ROUNDED ON SIZE ERROR @G@@@@ MOVE EY )@@G@@ZERO TO AVG-SUP IN MO-SUM (SHIFT-SUB, TYPE-SUB).@F@@@@ DIVIDE EZ )@@G@@CPU-HOURS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ BY FA )@@G@@NR-RUNS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ FB )@@G@@ GIVING AVG-CPU IN MO-SUM (SHIFT-SUB, TYPE-SUB) @D@@@@ FC )@@G@@ ROUNDED ON SIZE ERROR @G@@@@ MOVE ZERO TFD )@@G@@O AVG-CPU IN MO-SUM (SHIFT-SUB, TYPE-SUB).@F@@@@ DIVIDE ELAP-HFE )@@G@@OURS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ BY NR-RUNFF )@@G@@S IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ GIVINGFG )@@G@@ AVG-ELAP IN MO-SUM (SHIFT-SUB, TYPE-SUB) @D@@@@ FH )@@G@@ ROUNDED ON SIZE ERROR @G@@@@ MOVE ZERO TO AVG-EFI )@@G@@LAP IN MO-SUM (SHIFT-SUB, TYPE-SUB).@F@@@@ DIVIDE SUP-HOURS FJ )@@G@@ IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ BY CPU-HOURS FK )@@G@@ IN MO-SUM (SHIFT-SUB, TYPE-SUB) @G@@@@ GIVING SUP-FL )@@G@@CPU-RATIO IN MO-SUM (SHIFT-SUB, TYPE-SUB) @E@@@@ FM )@@G@@ ROUNDED ON SIZE ERROR @G@@@@ MOVE ZERO TO SUP-FN )@@G@@CPU-RATIO IN MO-SUM (SHIFT-SUB, TYPE-SUB).@G@@@@ DIVIDE ELAP-HFO )@@G@@OURS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @G@@@@ BY FP )@@G@@SUP-HOURS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @G@@@@ FQ )@@G@@ GIVING ELAP-SUP-RATIO IN MO-SUM (SHIFT-SUB, TYPE-SUB) @E@@@@ FR )@@G@@ ROUNDED ON SIZE ERROR @G@@@@ FS )@@G@@MOVE ZERO TO ELAP-SUP-RATIO IN MO-SUM (SHIFT-SUB, TYPE-SUB).@G@@@@ FT )@@G@@ DIVIDE ELAP-HOURS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @G@@@@FU )@@G@@ BY CPU-HOURS IN MO-SUM (SHIFT-SUB, TYPE-SUB) FV )@@G@@@G@@@@ GIVING ELAP-CPU-RATIO IN MO-SUM (SHIFT-SUB, TYPEFW )@@G@@-SUB) @E@@@@ ROUNDED ON SIZE ERROR FX )@@G@@@G@@@@ MOVE ZERO TO ELAP-CPU-RATIO IN MO-SUM (SHIFT-SUB, TYPEFY )@@G@@-SUB).@G@@@@ COMPUTE PCT-ERROR IN MO-SUM (SHIFT-SUB, TYPE-SFZ )@@G@@UB) ROUNDED @G@@@@ = 100 * NR-RUN-ERR IN MO-SUM (SHIGA )@@G@@FT-SUB, TYPE-SUB) @G@@@@ / NR-RUNS IN MO-SUGB )@@G@@M (SHIFT-SUB, TYPE-SUB) @A@@@@ ON SIZE ERROR @G@@@@GC )@@G@@ MOVE ZERO TO PCT-ERROR IN MO-SUM (SHIFT-SUB, TYPE-SUB).GD )@@G@@@@@@@@@A@@@@ 2541-CALCULATE-AVG-TOTALS. @F@@@@ DIVIDE GE )@@G@@SUP-HOURS IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, @B@@@@ GF )@@G@@ TYPE-SUB) @G@@@@ BY NR-RUNS IN TOT-MO (PROD-GG )@@G@@DEVP-SUB, SHIFT-SUB, TYPE-SUB)@G@@@@ GIVING AVG-SUP INGH )@@G@@ TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, @F@@@@ TYPGI )@@G@@E-SUB) ROUNDED ON SIZE ERROR @G@@@@ MOVE ZERO TO AVG-SUGJ )@@G@@P IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, @B@@@@ GK )@@G@@ TYPE-SUB). @G@@@@ DIVIDE CPU-HOURS IN TOT-MO (PROGL )@@G@@D-DEVP-SUB, SHIFT-SUB, @B@@@@ TYPE-SUB) GM )@@G@@@G@@@@ BY NR-RUNS IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, TYPGN )@@G@@E-SUB)@G@@@@ GIVING AVG-CPU IN TOT-MO (PROD-DEVP-SUB, GO )@@G@@SHIFT-SUB, @F@@@@ TYPE-SUB) ROUNDED ON SIZGP )@@G@@E ERROR @G@@@@ MOVE ZERO TO AVG-CPU IN TOT-MO (PROD-DEVP-SGQ )@@G@@UB, SHIFT-SUB, @B@@@@ TYPE-SUB). @G@@@@GR )@@G@@ DIVIDE ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, GS )@@G@@@B@@@@ TYPE-SUB) @G@@@@ BY GT )@@G@@NR-RUNS IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB)@G@@@@ GU )@@G@@ GIVING AVG-ELAP IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, @F@@@@ GV )@@G@@ TYPE-SUB) ROUNDED ON SIZE ERROR @G@@@@ GW )@@G@@ MOVE ZERO TO AVG-ELAP IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, @B@@@@GX )@@G@@ TYPE-SUB). @G@@@@ DIVIDE SUP-HOGY )@@G@@URS IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, @B@@@@ GZ )@@G@@ TYPE-SUB) @G@@@@ BY CPU-HOURS IN TOT-MHA )@@G@@O (PROD-DEVP-SUB, SHIFT-SUB, @B@@@@ TYPE-HB )@@G@@SUB) @F@@@@ GIVING SUP-CPU-RATIO IN TOT-MO (PROD-DEVPHC )@@G@@-SUB, @G@@@@ SHIFT-SUB, TYPE-SUB) ROUNDED ON SIZHD )@@G@@E ERROR @F@@@@ MOVE ZERO TO SUP-CPU-RATIO IN TOT-MO (PROD-HE )@@G@@DEVP-SUB, @D@@@@ SHIFT-SUB, TYPE-SUB). HF )@@G@@@F@@@@ DIVIDE ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB, HG )@@G@@@D@@@@ SHIFT-SUB, TYPE-SUB) @F@@@@ HH )@@G@@ BY SUP-HOURS IN TOT-MO (PROD-DEVP-SUB, @D@@@@ HI )@@G@@ SHIFT-SUB, TYPE-SUB) @F@@@@ HJ )@@G@@GIVING ELAP-SUP-RATIO IN TOT-MO (PROD-DEVP-SUB, @G@@@@ HK )@@G@@ SHIFT-SUB, TYPE-SUB) ROUNDED ON SIZE ERROR @F@@@@ MHL )@@G@@OVE ZERO TO ELAP-SUP-RATIO IN TOT-MO (PROD-DEVP-SUB, @D@@@@ HM )@@G@@ SHIFT-SUB, TYPE-SUB). @F@@@@ DIVIDE ELAP-HHN )@@G@@OURS IN TOT-MO (PROD-DEVP-SUB, @D@@@@ HO )@@G@@ SHIFT-SUB, TYPE-SUB) @F@@@@ BY CPU-HOURS HP )@@G@@ IN TOT-MO (PROD-DEVP-SUB, @D@@@@ SHIFTHQ )@@G@@-SUB, TYPE-SUB) @F@@@@ GIVING ELAP-CPU-RATIO IN TOT-MHR )@@G@@O (PROD-DEVP-SUB, @F@@@@ SHIFT-SUB, TYPE-SUB) ROUNDED HS )@@G@@ ON SIZE ERROR @F@@@@ MOVE ZERO TO ELAP-CPU-RATIO IN TOT-MOHT )@@G@@ (PROD-DEVP-SUB, @D@@@@ SHIFT-SUB, TYPE-SHU )@@G@@UB). @G@@@@ COMPUTE PCT-ERROR IN TOT-MO (PROD-DEVP-SUB, SHHV )@@G@@IFT-SUB, @C@@@@ TYPE-SUB) ROUNDED@F@@@@HW )@@G@@ = 100 * NR-RUN-ERR IN TOT-MO (PROD-DEVP-SUB, @D@@@@HX )@@G@@ SHIFT-SUB, TYPE-SUB) @F@@@@ HY )@@G@@ / NR-RUNS IN TOT-MO (PROD-DEVP-SUB, @F@@@@ HZ )@@G@@ SHIFT-SUB, TYPE-SUB) ON SIZE ERROR @E@@@@ MIA )@@G@@OVE ZERO TO PCT-ERROR IN TOT-MO (PROD-DEVP-SUB, @D@@@@ IB )@@G@@ SHIFT-SUB, TYPE-SUB). @@@@@@@A@@@@ 2545-PRINT-MONTHLIC )@@G@@Y-HEADING. @A@@@@ ADD 1 TO MONTHLY-PAGE-NO.@D@@@@ MID )@@G@@OVE MONTHLY-PAGE-NO TO DEPT-PAGE-NUM. @F@@@@ WRITE MONTHLYIE )@@G@@-REPORT FROM DEPT-HEADER-1 AFTER PAGE. @D@@@@ WRITE MONTHLYIF )@@G@@-REPORT FROM DEPT-HEADER-2. @E@@@@ WRITE MONTHLY-REPORT FROMIG )@@G@@ HEADING-3-MONTHLY. @C@@@@ MOVE ACCOUNT-HOLD TO HEADING-ACIH )@@G@@CT. @C@@@@ WRITE MONTHLY-REPORT FROM HEADING-4. @E@@@@ II )@@G@@ WRITE MONTHLY-REPORT FROM HEADING-5-MONTHLY. @F@@@@ WIJ )@@G@@RITE MONTHLY-REPORT FROM HEADING-6 AFTER 4 LINES. @C@@@@ WIK )@@G@@RITE MONTHLY-REPORT FROM HEADING-7. @C@@@@ WRITE MONTHLY-REPORIL )@@G@@T FROM HEADING-8. @C@@@@ IF ACCOUNT-TYPE-HOLD IS EQUAL TO 'T' IM )@@G@@@B@@@@ MOVE 2 TO PROD-DEVP-SUB @#@@@@ ELSE IN )@@G@@@B@@@@ MOVE 1 TO PROD-DEVP-SUB. @F@@@@ MOVE TYIO )@@G@@PE-HEADING (PROD-DEVP-SUB) TO MONTHLY-REPORT. @A@@@@ WRITE MIP )@@G@@ONTHLY-REPORT @A@@@@ AFTER 2 LINES. @@@@@@@B@@@@IQ )@@G@@ 2546-PRINT-MONTHLY-HEAD-TOTAL. @A@@@@ ADD 1 TO MONTIR )@@G@@HLY-PAGE-NO.@D@@@@ MOVE MONTHLY-PAGE-NO TO DEPT-PAGE-NUM. IS )@@G@@@F@@@@ WRITE MONTHLY-REPORT FROM DEPT-HEADER-1 AFTER PAGE. IT )@@G@@@D@@@@ WRITE MONTHLY-REPORT FROM DEPT-HEADER-2. @E@@@@ IU )@@G@@ WRITE MONTHLY-REPORT FROM HEADING-3-MONTHLY. @C@@@@ WIV )@@G@@RITE MONTHLY-REPORT FROM HEADING-4. @E@@@@ WRITE MONTHLY-REPORIW )@@G@@T FROM HEADING-5-MONTHLY. @F@@@@ WRITE MONTHLY-REPORT FROMIX )@@G@@ HEADING-6 AFTER 4 LINES. @C@@@@ WRITE MONTHLY-REPORT FROMIY )@@G@@ HEADING-7. @C@@@@ WRITE MONTHLY-REPORT FROM HEADING-8. @F@@@@IZ )@@G@@ MOVE TYPE-HEADING (PROD-DEVP-SUB) TO MONTHLY-REPORT. @A@@@@JA )@@G@@ WRITE MONTHLY-REPORT @A@@@@ AFTER 2 LINJB )@@G@@ES. @@@@@@@A@@@@ 2550-PRINT-MONTHLY-REPORT. @A@@@@ IJC )@@G@@F SHIFT-SUB LESS THAN 4 @B@@@@ MOVE SHIFT-SUB TO OUT-SUB JD )@@G@@@#@@@@ ELSE @B@@@@ IF SHIFT-SUB EQUAL TO 4 JE )@@G@@@A@@@@ MOVE 5 TO OUT-SUB@^@@@@ ELSE JF )@@G@@@B@@@@ MOVE 4 TO OUT-SUB. @F@@@@ MOVE LIJG )@@G@@NE-MESSAGE (OUT-SUB, TYPE-SUB) TO TEXT-MSG. @F@@@@ MOVE COJH )@@G@@RR MO-SUM (OUT-SUB, TYPE-SUB) TO PRINT-FIGURES. @B@@@@ IF TYPEJI )@@G@@-SUB GREATER THAN 1 @A@@@@ MOVE 1 TO X-NUMBER-OF@#@@@@JJ )@@G@@ ELSE @B@@@@ MOVE 2 TO X-NUMBER-OF. @G@@@@JK )@@G@@ WRITE MONTHLY-REPORT FROM PRINT-LINE AFTER X-NUMBER-OF LINES.JL )@@G@@@@@@@@@A@@@@ 2551-PRINT-MONTHLY-REP-TOTAL.@A@@@@ IF SHIFJM )@@G@@T-SUB LESS THAN 4 @B@@@@ MOVE SHIFT-SUB TO OUT-SUB @#@@@@JN )@@G@@ ELSE @B@@@@ IF SHIFT-SUB EQUAL TO 4 @A@@@@JO )@@G@@ MOVE 5 TO OUT-SUB@^@@@@ ELSE @B@@@@JP )@@G@@ MOVE 4 TO OUT-SUB. @F@@@@ MOVE LINE-MESJQ )@@G@@SAGE (OUT-SUB, TYPE-SUB) TO TEXT-MSG. @F@@@@ MOVE CORR TOTJR )@@G@@-MO (PROD-DEVP-SUB, OUT-SUB, TYPE-SUB) @A@@@@ TO PRINT-JS )@@G@@FIGURES. @B@@@@ IF TYPE-SUB GREATER THAN 1 @A@@@@ JT )@@G@@ MOVE 1 TO X-NUMBER-OF@#@@@@ ELSE @B@@@@ JU )@@G@@ MOVE 2 TO X-NUMBER-OF. @G@@@@ WRITE MONTHLY-REPORT FROMJV )@@G@@ PRINT-LINE AFTER X-NUMBER-OF LINES.@@@@@@@B@@@@ 2555-ZERO-MONTHLYJW )@@G@@-REPORT-SUMS. @^@@@@ MOVE ZERO TO @F@@@@ JX )@@G@@ NR-RUNS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ JY )@@G@@ NR-RUN-ERR IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ JZ )@@G@@ PCT-ERROR IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ KA )@@G@@ SUP-HOURS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ KB )@@G@@ CPU-HOURS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ KC )@@G@@ ELAP-HOURS IN MO-SUM (SHIFT-SUB, TYPE-SUB) @F@@@@ KD )@@G@@ PAGES IN MO-SUM (SHIFT-SUB, TYPE-SUB). @@@@@@@A@@@@ 2556-KE )@@G@@ZERO-MONTHLY-TOTALS. @^@@@@ MOVE ZERO TO @G@@@@ KF )@@G@@ NR-RUNS IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB) @G@@@@ KG )@@G@@ NR-RUN-ERR IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB) @G@@@@KH )@@G@@ PCT-ERROR IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, TYPE-SUB) KI )@@G@@@G@@@@ SUP-HOURS IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB, TYPE-KJ )@@G@@SUB) @G@@@@ CPU-HOURS IN TOT-MO (PROD-DEVP-SUB, SHIFT-SUB,KK )@@G@@ TYPE-SUB) @G@@@@ ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB, SHIFKL )@@G@@T-SUB, TYPE-SUB) @G@@@@ PAGES IN TOT-MO (PROD-DEVP-SUBKM )@@G@@, SHIFT-SUB, TYPE-SUB). @@@@@@@@@@@@@A@@@@ 2560-SUMARIZE-WKEND-ERRKN )@@G@@ORS. @D@@@@ ADD HARD-KILL IN SORT-RECORD (TYPE-SUB) TO @D@@@@KO )@@G@@ HARD-KILL IN WORK-RECORD (TYPE-SUB). @D@@@@ AKP )@@G@@DD PROG-KILL IN SORT-RECORD (TYPE-SUB) TO @D@@@@ PROG-KILLKQ )@@G@@ IN WORK-RECORD (TYPE-SUB). @D@@@@ ADD OPER-KILL IN SORT-RECKR )@@G@@ORD (TYPE-SUB) TO @D@@@@ OPER-KILL IN WORK-RECORD (TYPE-SUKS )@@G@@B). @D@@@@ ADD SYS-KILL IN SORT-RECORD (TYPE-SUB) TO @D@@@@KT )@@G@@ SYS-KILL IN WORK-RECORD (TYPE-SUB). @D@@@@ AKU )@@G@@DD ER-ERR IN SORT-RECORD (TYPE-SUB) TO @D@@@@ ER-ERR KV )@@G@@ IN WORK-RECORD (TYPE-SUB). @D@@@@ ADD ER-ABORT IN SORT-RECKW )@@G@@ORD (TYPE-SUB) TO @D@@@@ ER-ABORT IN WORK-RECORD (TYPE-SUKX )@@G@@B). @D@@@@ ADD SEC-LOST IN SORT-RECORD (TYPE-SUB) TO @D@@@@KY )@@G@@ SEC-LOST IN WORK-RECORD (TYPE-SUB). @@@@@@@B@@@@ KZ )@@G@@ 2561-SUMARIZE-WKEND-SHIFT-INFO. @E@@@@ ADD TOT-RPTS IN SLA )@@G@@ORT-RECORD (SHIFT-SUB) TO @D@@@@ TOT-RPTS IN WORK-RELB )@@G@@CORD (SHIFT-SUB). @E@@@@ ADD TOT-LINES IN SORT-RECORD (SHIFT-LC )@@G@@SUB) TO @D@@@@ TOT-LINES IN WORK-RECORD (SHIFT-SUB). LD )@@G@@@E@@@@ ADD SPC-FORMS IN SORT-RECORD (SHIFT-SUB) TO @D@@@@LE )@@G@@ SPC-FORMS IN WORK-RECORD (SHIFT-SUB). @E@@@@ ALF )@@G@@DD PR-BL-TIME IN SORT-RECORD (SHIFT-SUB) TO @D@@@@ PR-LG )@@G@@BL-TIME IN WORK-RECORD (SHIFT-SUB). @F@@@@ MOVE AV-PRI IN AC-BLH )@@G@@ATCH-DATA IN WORK-RECORD (SHIFT-SUB)@A@@@@ TO BT-AV-PRI-FOLI )@@G@@R-AVG.@G@@@@ MOVE AV-PRI IN AC-RT-BATCH-DATA IN WORK-RECORD (SLJ )@@G@@HIFT-SUB) @A@@@@ TO RT-AV-PRI-FOR-AVG.@G@@@@ MLK )@@G@@OVE TOT-SUPS IN AC-BATCH-DATA IN WORK-RECORD (SHIFT-SUB) @A@@@@ LL )@@G@@ TO BT-SUPS-FOR-AVG. @G@@@@ MOVE TOT-SUPS IN AC-RT-BALM )@@G@@TCH-DATA IN WORK-RECORD (SHIFT-SUB) @A@@@@ TO RT-SUPS-FOR-LN )@@G@@AVG. @F@@@@ ADD CORR AC-BATCH-DATA IN SORT-RECORD (SHIFT-SUB)LO )@@G@@ TO @E@@@@ AC-BATCH-DATA IN WORK-RECORD (SHIFT-SUB). LP )@@G@@@F@@@@ ADD CORR AC-DEMAND-DATA IN SORT-RECORD (SHIFT-SUB) TO LQ )@@G@@@E@@@@ AC-DEMAND-DATA IN WORK-RECORD (SHIFT-SUB). @F@@@@LR )@@G@@ ADD CORR AC-RT-BATCH-DATA IN SORT-RECORD (SHIFT-SUB) TO@E@@@@LS )@@G@@ AC-RT-BATCH-DATA IN WORK-RECORD (SHIFT-SUB). @F@@@@ LT )@@G@@ ADD CORR AC-RT-DMAND-DATA IN SORT-RECORD (SHIFT-SUB) @F@@@@ LU )@@G@@ TO AC-RT-DMAND-DATA IN WORK-RECORD (SHIFT-SUB). @#@@@@ LV )@@G@@ COMPUTE@G@@@@ AV-PRI IN AC-BATCH-DATA IN WORK-RECORD LW )@@G@@(SHIFT-SUB) = @G@@@@ (AV-PRI IN AC-BATCH-DATA IN SLX )@@G@@ORT-RECORD (SHIFT-SUB) *@F@@@@ TOT-SUPS IN AC-BATCH-LY )@@G@@DATA IN SORT-RECORD @B@@@@ (SHIFT-SUB) +LZ )@@G@@@E@@@@ BT-AV-PRI-FOR-AVG * BT-SUPS-FOR-AVG) /@G@@@@MA )@@G@@ (TOT-SUPS IN AC-BATCH-DATA IN SORT-RECORD (SHIFT-SUB)MB )@@G@@@B@@@@ + BT-SUPS-FOR-AVG). @#@@@@ COMPUTEMC )@@G@@@G@@@@ AV-PRI IN AC-RT-BATCH-DATA IN WORK-RECORD (SHIFT-SUMD )@@G@@B) = @F@@@@ (AV-PRI IN AC-RT-BATCH-DATA IN SORT-RECORME )@@G@@D @B@@@@ (SHIFT-SUB) *@F@@@@ MF )@@G@@ TOT-SUPS IN AC-RT-BATCH-DATA IN SORT-RECORD @B@@@@ MG )@@G@@ (SHIFT-SUB) +@E@@@@ RT-AV-PRI-FOR-AMH )@@G@@VG * RT-SUPS-FOR-AVG) /@F@@@@ (TOT-SUPS IN AC-RT-BATCMI )@@G@@H-DATA IN SORT-RECORD @B@@@@ (SHIFT-SUB) +MJ )@@G@@@B@@@@ RT-SUPS-FOR-AVG). @@@@@@@A@@@@ 2565-MK )@@G@@SUMARIZE-WKDAY-ERRORS. @D@@@@ ADD HARD-KILL IN SORT-RECORD (TML )@@G@@YPE-SUB) TO @F@@@@ HARD-KILL IN MONTHLY-SUMMARY-RECORD (TYMM )@@G@@PE-SUB). @D@@@@ ADD PROG-KILL IN SORT-RECORD (TYPE-SUB) TO MN )@@G@@@F@@@@ PROG-KILL IN MONTHLY-SUMMARY-RECORD (TYPE-SUB). MO )@@G@@@D@@@@ ADD OPER-KILL IN SORT-RECORD (TYPE-SUB) TO @F@@@@ MP )@@G@@ OPER-KILL IN MONTHLY-SUMMARY-RECORD (TYPE-SUB). @D@@@@ MQ )@@G@@ ADD SYS-KILL IN SORT-RECORD (TYPE-SUB) TO @F@@@@ SYSMR )@@G@@-KILL IN MONTHLY-SUMMARY-RECORD (TYPE-SUB). @D@@@@ ADD ER-MS )@@G@@ERR IN SORT-RECORD (TYPE-SUB) TO @F@@@@ ER-ERR IN MOMT )@@G@@NTHLY-SUMMARY-RECORD (TYPE-SUB). @D@@@@ ADD ER-ABORT IN SOMU )@@G@@RT-RECORD (TYPE-SUB) TO @F@@@@ ER-ABORT IN MONTHLY-SUMMARMV )@@G@@Y-RECORD (TYPE-SUB). @D@@@@ ADD SEC-LOST IN SORT-RECORD (TMW )@@G@@YPE-SUB) TO @F@@@@ SEC-LOST IN MONTHLY-SUMMARY-RECORD (TYMX )@@G@@PE-SUB). @@@@@@@B@@@@ 2566-SUMARIZE-WKDAY-SHIFT-INFO. @E@@@@MY )@@G@@ ADD TOT-RPTS IN SORT-RECORD (SHIFT-SUB) TO @F@@@@ MZ )@@G@@ TOT-RPTS IN MONTHLY-SUMMARY-RECORD (SHIFT-SUB). @E@@@@ NA )@@G@@ ADD TOT-LINES IN SORT-RECORD (SHIFT-SUB) TO @F@@@@ NB )@@G@@ TOT-LINES IN MONTHLY-SUMMARY-RECORD (SHIFT-SUB). @E@@@@ ANC )@@G@@DD SPC-FORMS IN SORT-RECORD (SHIFT-SUB) TO @F@@@@ SPCND )@@G@@-FORMS IN MONTHLY-SUMMARY-RECORD (SHIFT-SUB). @E@@@@ ADD PR-NE )@@G@@BL-TIME IN SORT-RECORD (SHIFT-SUB) TO @F@@@@ PR-BL-TIMNF )@@G@@E IN MONTHLY-SUMMARY-RECORD (SHIFT-SUB). @F@@@@ MOVE AV-PRI ING )@@G@@N AC-BATCH-DATA IN MONTHLY-SUMMARY-RECORD @A@@@@ (NH )@@G@@SHIFT-SUB) @A@@@@ TO BT-AV-PRI-FOR-AVG.@G@@@@ MNI )@@G@@OVE AV-PRI IN AC-RT-BATCH-DATA IN MONTHLY-SUMMARY-RECORD @ @@@@ NJ )@@G@@ (SHIFT-SUB) @A@@@@ TO RT-AV-PRI-FOR-AVG.@G@@@@NK )@@G@@ MOVE TOT-SUPS IN AC-BATCH-DATA IN MONTHLY-SUMMARY-RECORD NL )@@G@@@A@@@@ (SHIFT-SUB) @A@@@@ TO BT-SUPNM )@@G@@S-FOR-AVG. @G@@@@ MOVE TOT-SUPS IN AC-RT-BATCH-DATA IN MONTHLNN )@@G@@Y-SUMMARY-RECORD @A@@@@ (SHIFT-SUB) @A@@@@ NO )@@G@@ TO RT-SUPS-FOR-AVG. @F@@@@ ADD CORR AC-BATCH-DATA INNP )@@G@@ SORT-RECORD (SHIFT-SUB) TO @G@@@@ AC-BATCH-DATA IN MONTNQ )@@G@@HLY-SUMMARY-RECORD (SHIFT-SUB). @F@@@@ ADD CORR AC-DEMAND-NR )@@G@@DATA IN SORT-RECORD (SHIFT-SUB) TO @G@@@@ AC-DEMAND-DATA NS )@@G@@IN MONTHLY-SUMMARY-RECORD (SHIFT-SUB). @F@@@@ ADD CORR AC-RNT )@@G@@T-BATCH-DATA IN SORT-RECORD (SHIFT-SUB) TO@G@@@@ AC-RT-BATNU )@@G@@CH-DATA IN MONTHLY-SUMMARY-RECORD (SHIFT-SUB). @F@@@@ ADD CORNV )@@G@@R AC-RT-DMAND-DATA IN SORT-RECORD (SHIFT-SUB) @G@@@@ TO ANW )@@G@@C-RT-DMAND-DATA IN MONTHLY-SUMMARY-RECORD (SHIFT-SUB).@#@@@@ CNX )@@G@@OMPUTE@F@@@@ AV-PRI IN AC-BATCH-DATA IN MONTHLY-SUMMARY-RENY )@@G@@CORD @B@@@@ (SHIFT-SUB) = @G@@@@ NZ )@@G@@ (AV-PRI IN AC-BATCH-DATA IN SORT-RECORD (SHIFT-SUB) *@F@@@@ OA )@@G@@ TOT-SUPS IN AC-BATCH-DATA IN SORT-RECORD @B@@@@ OB )@@G@@ (SHIFT-SUB) +@E@@@@ BT-AV-PRIOC )@@G@@-FOR-AVG * BT-SUPS-FOR-AVG) /@G@@@@ (TOT-SUPS IN AC-BOD )@@G@@ATCH-DATA IN SORT-RECORD (SHIFT-SUB)@B@@@@ + BT-SUPSOE )@@G@@-FOR-AVG). @#@@@@ COMPUTE@G@@@@ AV-PRI IN AC-RTOF )@@G@@-BATCH-DATA IN MONTHLY-SUMMARY-RECORD @A@@@@ (SOG )@@G@@HIFT-SUB) = @F@@@@ (AV-PRI IN AC-RT-BATCH-DATA IN SORTOH )@@G@@-RECORD @B@@@@ (SHIFT-SUB) *@F@@@@ OI )@@G@@ TOT-SUPS IN AC-RT-BATCH-DATA IN SORT-RECORD @B@@@@ OJ )@@G@@ (SHIFT-SUB) +@E@@@@ RT-AV-PRIOK )@@G@@-FOR-AVG * RT-SUPS-FOR-AVG) /@F@@@@ (TOT-SUPS IN AC-ROL )@@G@@T-BATCH-DATA IN SORT-RECORD @B@@@@ (SHIFT-OM )@@G@@SUB) +@B@@@@ RT-SUPS-FOR-AVG). @@@@@@@@@@@@@@@@@@ON )@@G@@@ @@@@ 2625-SUM-NO-OF-ERRORS. @B@@@@ ADD TYPE-SUB, 1 GIVOO )@@G@@ING OUT-SUB @D@@@@ ADD HARD-KILL IN SORT-RECORD (TYPE-SUB) OP )@@G@@@D@@@@ PROG-KILL IN SORT-RECORD (TYPE-SUB) @D@@@@ OQ )@@G@@ OPER-KILL IN SORT-RECORD (TYPE-SUB) @D@@@@ SYSOR )@@G@@-KILL IN SORT-RECORD (TYPE-SUB) @F@@@@ TO NR-RUN-OS )@@G@@ERR IN MO-SUM (T-SHIFT-SUB, OUT-SUB)@E@@@@ NR-RUN-OT )@@G@@ERR IN MO-SUM (T-SHIFT-SUB, 1)@G@@@@ NR-RUN-ERR INOU )@@G@@ TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUB,@B@@@@ OV )@@G@@ OUT-SUB) @G@@@@ NR-RUN-ERR IN TOT-MO (PROD-DEVPOW )@@G@@-SUB, T-SHIFT-SUB,@A@@@@ 1) @G@@@@ OX )@@G@@ NR-RUN-ERR IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, @B@@@@OY )@@G@@ OUT-SUB) @G@@@@ NOZ )@@G@@R-RUN-ERR IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 1).@D@@@@ IF AC-DPA )@@G@@AY-OF-WK-9 IN SORT-RECORD EQUAL 1 OR@D@@@@ AC-DAY-OF-WK-9 IPB )@@G@@N SORT-RECORD EQUAL 7 @^@@@@ ADD @E@@@@ PC )@@G@@ HARD-KILL IN SORT-RECORD (TYPE-SUB) @E@@@@ PD )@@G@@ PROG-KILL IN SORT-RECORD (TYPE-SUB) @E@@@@ OPE )@@G@@PER-KILL IN SORT-RECORD (TYPE-SUB) @E@@@@ SYS-KILPF )@@G@@L IN SORT-RECORD (TYPE-SUB) @F@@@@ TO NR-RUNPG )@@G@@-ERR IN MO-SUM (WEEKEND-SHIFT,@E@@@@ PH )@@G@@ OUT-SUB)@G@@@@ NR-RUN-ERR IPI )@@G@@N MO-SUM (WEEKEND-SHIFT, 1) @F@@@@ NR-RUNPJ )@@G@@-ERR IN TOT-MO (PROD-DEVP-SUB,@E@@@@ WEPK )@@G@@EKEND-SHIFT, OUT-SUB) @F@@@@ NR-RUN-ERR IPL )@@G@@N TOT-MO (PROD-DEVP-SUB,@D@@@@ WEEKEND-PM )@@G@@SHIFT, 1) @F@@@@ NR-RUN-ERR IN TOT-MO (TOPN )@@G@@TAL-SUB, @D@@@@ WEEKEND-SHIFT, 1) PO )@@G@@@F@@@@ NR-RUN-ERR IN TOT-MO (TOTAL-SUB, PP )@@G@@@E@@@@ WEEKEND-SHIFT, OUT-SUB) @ @@@@PQ )@@G@@ ELSE NEXT SENTENCE.@@@@@@@^@@@@ 2630-SUM-SHIFTS. @E@@@@PR )@@G@@ IF AC-DAY-OF-WK-9 IN SORT-RECORD IS EQUAL TO 1 @G@@@@ PS )@@G@@ OR AC-DAY-OF-WK-9 IN SORT-RECORD EQUAL TO 7 @A@@@@PT )@@G@@ MOVE 5 TO OUT-SUB @#@@@@ ELSE @B@@@@ PU )@@G@@ MOVE SHIFT-SUB TO OUT-SUB. @G@@@@ DIVIDE TOT-SUPS IN PV )@@G@@AC-BATCH-DATA IN SORT-RECORD (SHIFT-SUB) @E@@@@ BY 180000PW )@@G@@00 GIVING BT-SUP-HOURS ROUNDED. @F@@@@ DIVIDE TOT-SUPS IN PX )@@G@@AC-RT-BATCH-DATA IN SORT-RECORD @A@@@@ (SHIFT-PY )@@G@@SUB) @E@@@@ BY 18000000 GIVING RT-SUP-HOURS ROUNDED. PZ )@@G@@@B@@@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @D@@@@ TO QA )@@G@@ SUP-HOURS IN MO-SUM (OUT-SUB, 1) @D@@@@ SUP-HOURS IQB )@@G@@N MO-SUM (OUT-SUB, 2) @E@@@@ SUP-HOURS IN MO-SUM (T-QC )@@G@@SHIFT-SUB, 1) @E@@@@ SUP-HOURS IN MO-SUM (T-SHIFT-QD )@@G@@SUB, 2) @F@@@@ SUP-HOURS IN TOT-MO (TOTAL-SUB, OUTQE )@@G@@-SUB, 1) @F@@@@ SUP-HOURS IN TOT-MO (TOTAL-SUB, OUTQF )@@G@@-SUB, 2) @F@@@@ SUP-HOURS IN TOT-MO (TOTAL-SUB, T-SQG )@@G@@HIFT-SUB, 1)@F@@@@ SUP-HOURS IN TOT-MO (TOTAL-SUB, T-SQH )@@G@@HIFT-SUB, 2)@F@@@@ SUP-HOURS IN TOT-MO (PROD-DEVP-SUB,QI )@@G@@ OUT-SUB, 1)@F@@@@ SUP-HOURS IN TOT-MO (PROD-DEVP-SUB,QJ )@@G@@ OUT-SUB, 2)@G@@@@ SUP-HOURS IN TOT-MO (PROD-DEVP-SUB,QK )@@G@@ T-SHIFT-SUB, 1) @G@@@@ SUP-HOURS IN TOT-MO (PROD-DEVQL )@@G@@P-SUB, T-SHIFT-SUB, 2). @#@@@@ ADD @G@@@@ STDQM )@@G@@-PGS IN AC-DEMAND-DATA IN SORT-RECORD (SHIFT-SUB) @G@@@@ QN )@@G@@ STD-PGS IN AC-RT-DMAND-DATA IN SORT-RECORD (SHIFT-SUB) @D@@@@ QO )@@G@@ TO PAGES IN MO-SUM (OUT-SUB, 1) @D@@@@ QP )@@G@@ PAGES IN MO-SUM (OUT-SUB, 3) @E@@@@ PAGES IQQ )@@G@@N MO-SUM (T-SHIFT-SUB, 1) @E@@@@ PAGES IN MO-SQR )@@G@@UM (T-SHIFT-SUB, 3) @F@@@@ PAGES IN TOT-MO (TOQS )@@G@@TAL-SUB, OUT-SUB, 1) @F@@@@ PAGES IN TOT-MO (TOQT )@@G@@TAL-SUB, OUT-SUB, 3) @F@@@@ PAGES IN TOT-MO (TOQU )@@G@@TAL-SUB, T-SHIFT-SUB, 1)@F@@@@ PAGES IN TOT-MO (TOQV )@@G@@TAL-SUB, T-SHIFT-SUB, 3)@F@@@@ PAGES IN TOT-MO (PRQW )@@G@@OD-DEVP-SUB, OUT-SUB, 1)@F@@@@ PAGES IN TOT-MO (PRQX )@@G@@OD-DEVP-SUB, OUT-SUB, 3)@G@@@@ PAGES IN TOT-MO (PRQY )@@G@@OD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ PAGES IN TOT-QZ )@@G@@MO (PROD-DEVP-SUB, T-SHIFT-SUB, 3). @#@@@@ ADD @F@@@@ RA )@@G@@ RUNS IN AC-BATCH-DATA IN SORT-RECORD (SHIFT-SUB) @F@@@@ RB )@@G@@ RUNS IN AC-RT-BATCH-DATA IN SORT-RECORD (SHIFT-SUB)@D@@@@ RC )@@G@@ TO NR-RUNS IN MO-SUM (OUT-SUB, 1) @E@@@@ RD )@@G@@ NR-RUNS IN MO-SUM (T-SHIFT-SUB, 1) @D@@@@ NRRE )@@G@@-RUNS IN MO-SUM (OUT-SUB, 2) @E@@@@ NR-RUNS IN MO-RF )@@G@@SUM (T-SHIFT-SUB, 2) @F@@@@ NR-RUNS IN TOT-MO (TRG )@@G@@OTAL-SUB, OUT-SUB, 1) @G@@@@ NR-RUNS IN TOT-MO (TRH )@@G@@OTAL-SUB, T-SHIFT-SUB, 1) @F@@@@ NR-RUNS IN TOTRI )@@G@@-MO (TOTAL-SUB, OUT-SUB, 2) @G@@@@ NR-RUNS IN TOTRJ )@@G@@-MO (TOTAL-SUB, T-SHIFT-SUB, 2) @G@@@@ NR-RUNS RK )@@G@@IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 1) @G@@@@ NRRL )@@G@@-RUNS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ RM )@@G@@ NR-RUNS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 2) @G@@@@ RN )@@G@@ NR-RUNS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUB, 2).@#@@@@ RO )@@G@@ ADD @F@@@@ RUNS IN AC-DEMAND-DATA IN SORT-RECORDRP )@@G@@ (SHIFT-SUB)@F@@@@ RUNS IN AC-RT-DMAND-DATA IN SORT-RECORDRQ )@@G@@ (SHIFT-SUB)@D@@@@ TO NR-RUNS IN MO-SUM (OUT-SUB, 1) RR )@@G@@@D@@@@ NR-RUNS IN MO-SUM (OUT-SUB, 3) @E@@@@ RS )@@G@@ NR-RUNS IN MO-SUM (T-SHIFT-SUB, 1) @E@@@@ RT )@@G@@ NR-RUNS IN MO-SUM (T-SHIFT-SUB, 3) @F@@@@ RU )@@G@@ NR-RUNS IN TOT-MO (TOTAL-SUB, OUT-SUB, 1) @F@@@@ RV )@@G@@ NR-RUNS IN TOT-MO (TOTAL-SUB, OUT-SUB, 3) @G@@@@ RW )@@G@@ NR-RUNS IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ RX )@@G@@ NR-RUNS IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 3) @G@@@@ RY )@@G@@ NR-RUNS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 1) @G@@@@RZ )@@G@@ NR-RUNS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 3) SA )@@G@@@G@@@@ NR-RUNS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUSB )@@G@@B, 1) @G@@@@ NR-RUNS IN TOT-MO (PROD-DEVP-SUB, T-SHSC )@@G@@IFT-SUB, 3).@#@@@@ ADD @F@@@@ STD-PGS IN AC-BSD )@@G@@ATCH-DATA IN SORT-RECORD (SHIFT-SUB)@G@@@@ STD-PGS IN AC-RSE )@@G@@T-BATCH-DATA IN SORT-RECORD (SHIFT-SUB) @D@@@@ TO PSF )@@G@@AGES IN MO-SUM (OUT-SUB, 1) @D@@@@ PAGES IN MO-SSG )@@G@@UM (OUT-SUB, 2) @E@@@@ PAGES IN MO-SUM (T-SHIFT-SH )@@G@@SUB, 1) @E@@@@ PAGES IN MO-SUM (T-SHIFT-SUB, 2SI )@@G@@) @F@@@@ PAGES IN TOT-MO (TOTAL-SUB, OUT-SUB, SJ )@@G@@1) @F@@@@ PAGES IN TOT-MO (TOTAL-SUB, OUT-SUB, SK )@@G@@2) @F@@@@ PAGES IN TOT-MO (TOTAL-SUB, T-SHIFT-SSL )@@G@@UB, 1)@F@@@@ PAGES IN TOT-MO (TOTAL-SUB, T-SHIFT-SSM )@@G@@UB, 2)@F@@@@ PAGES IN TOT-MO (PROD-DEVP-SUB, OUT-SSN )@@G@@UB, 1)@F@@@@ PAGES IN TOT-MO (PROD-DEVP-SUB, OUT-SSO )@@G@@UB, 2)@G@@@@ PAGES IN TOT-MO (PROD-DEVP-SUB, T-SHISP )@@G@@FT-SUB, 1) @G@@@@ PAGES IN TOT-MO (PROD-DEVP-SUB,SQ )@@G@@ T-SHIFT-SUB, 2). @G@@@@ DIVIDE TOT-SUPS IN AC-DEMAND-DATA IN SR )@@G@@SORT-RECORD (SHIFT-SUB) @E@@@@ BY 18000000 GIVING BT-SUP-HSS )@@G@@OURS ROUNDED. @F@@@@ DIVIDE TOT-SUPS IN AC-RT-DMAND-DATA IST )@@G@@N SORT-RECORD @A@@@@ (SHIFT-SUB) @E@@@@ SU )@@G@@ BY 18000000 GIVING RT-SUP-HOURS ROUNDED. @B@@@@ ASV )@@G@@DD BT-SUP-HOURS, RT-SUP-HOURS @D@@@@ TO SUP-HOURS IN MO-SSW )@@G@@UM (OUT-SUB, 1) @D@@@@ SUP-HOURS IN MO-SUM (OUT-SUB,SX )@@G@@ 3) @E@@@@ SUP-HOURS IN MO-SUM (T-SHIFT-SUB, 1) SY )@@G@@@E@@@@ SUP-HOURS IN MO-SUM (T-SHIFT-SUB, 3) @F@@@@SZ )@@G@@ SUP-HOURS IN TOT-MO (TOTAL-SUB, OUT-SUB, 1) @F@@@@TA )@@G@@ SUP-HOURS IN TOT-MO (TOTAL-SUB, OUT-SUB, 3) @F@@@@TB )@@G@@ SUP-HOURS IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 1)@F@@@@TC )@@G@@ SUP-HOURS IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 3)@F@@@@TD )@@G@@ SUP-HOURS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 1)@F@@@@TE )@@G@@ SUP-HOURS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 3)@G@@@@TF )@@G@@ SUP-HOURS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUB, 1) TG )@@G@@@G@@@@ SUP-HOURS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUBTH )@@G@@, 3). @G@@@@ DIVIDE CPU-SUPS IN AC-BATCH-DATA IN SORT-RECORD (TI )@@G@@SHIFT-SUB) @E@@@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDETJ )@@G@@D. @F@@@@ DIVIDE CPU-SUPS IN AC-RT-BATCH-DATA IN SORT-RECORTK )@@G@@D @A@@@@ (SHIFT-SUB) @E@@@@ BY TL )@@G@@ 18000000 GIVING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOTM )@@G@@URS, RT-SUP-HOURS @D@@@@ TO CPU-HOURS IN MO-SUM (OUT-SUB,TN )@@G@@ 1) @D@@@@ CPU-HOURS IN MO-SUM (OUT-SUB, 2) @E@@@@TO )@@G@@ CPU-HOURS IN MO-SUM (T-SHIFT-SUB, 1) @E@@@@ TP )@@G@@ CPU-HOURS IN MO-SUM (T-SHIFT-SUB, 2) @F@@@@ TQ )@@G@@ CPU-HOURS IN TOT-MO (TOTAL-SUB, OUT-SUB, 1) @F@@@@ TR )@@G@@ CPU-HOURS IN TOT-MO (TOTAL-SUB, OUT-SUB, 2) @F@@@@ TS )@@G@@ CPU-HOURS IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 1)@F@@@@ TT )@@G@@ CPU-HOURS IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 2)@F@@@@ TU )@@G@@ CPU-HOURS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 1)@F@@@@ TV )@@G@@ CPU-HOURS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 2)@G@@@@ TW )@@G@@ CPU-HOURS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ TX )@@G@@ CPU-HOURS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUB, 2). @G@@@@TY )@@G@@ DIVIDE CPU-SUPS IN AC-DEMAND-DATA IN SORT-RECORD (SHIFT-SUB)TZ )@@G@@@E@@@@ BY 18000000 GIVING BT-SUP-HOURS ROUNDED. @F@@@@UA )@@G@@ DIVIDE CPU-SUPS IN AC-RT-DMAND-DATA IN SORT-RECORD @A@@@@UB )@@G@@ (SHIFT-SUB) @E@@@@ BY 18000000 GIVUC )@@G@@ING RT-SUP-HOURS ROUNDED. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-UD )@@G@@HOURS @D@@@@ TO CPU-HOURS IN MO-SUM (OUT-SUB, 1) @D@@@@UE )@@G@@ CPU-HOURS IN MO-SUM (OUT-SUB, 3) @E@@@@ UF )@@G@@ CPU-HOURS IN MO-SUM (T-SHIFT-SUB, 1) @E@@@@ UG )@@G@@ CPU-HOURS IN MO-SUM (T-SHIFT-SUB, 3) @F@@@@ CPU-HUH )@@G@@OURS IN TOT-MO (TOTAL-SUB, OUT-SUB, 1) @F@@@@ CPU-HUI )@@G@@OURS IN TOT-MO (TOTAL-SUB, OUT-SUB, 3) @F@@@@ CPU-HUJ )@@G@@OURS IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 1)@F@@@@ CPU-HUK )@@G@@OURS IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 3)@F@@@@ CPU-HUL )@@G@@OURS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 1)@F@@@@ CPU-HUM )@@G@@OURS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 3)@G@@@@ CPU-HUN )@@G@@OURS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUB, 1) @G@@@@ UO )@@G@@ CPU-HOURS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUB, 3). @G@@@@ DUP )@@G@@IVIDE RUN-SECS IN AC-BATCH-DATA IN SORT-RECORD (SHIFT-SUB) @C@@@@ UQ )@@G@@ BY 3600 GIVING BT-SUP-HOURS. @F@@@@ DIVIDE RUN-SEUR )@@G@@CS IN AC-RT-BATCH-DATA IN SORT-RECORD @A@@@@ (US )@@G@@SHIFT-SUB) @C@@@@ BY 3600 GIVING RT-SUP-HOURS. @B@@@@UT )@@G@@ ADD BT-SUP-HOURS, RT-SUP-HOURS @D@@@@ TO ELAP-HUU )@@G@@OURS IN MO-SUM (OUT-SUB, 1) @D@@@@ ELAP-HOURS IN MO-SUV )@@G@@UM (OUT-SUB, 2) @E@@@@ ELAP-HOURS IN MO-SUM (T-SHIFT-UW )@@G@@SUB, 1) @E@@@@ ELAP-HOURS IN MO-SUM (T-SHIFT-SUB, 2UX )@@G@@) @F@@@@ ELAP-HOURS IN TOT-MO (TOTAL-SUB, OUT-SUB, UY )@@G@@1) @F@@@@ ELAP-HOURS IN TOT-MO (TOTAL-SUB, OUT-SUB, UZ )@@G@@2) @F@@@@ ELAP-HOURS IN TOT-MO (TOTAL-SUB, T-SHIFT-SVA )@@G@@UB, 1)@F@@@@ ELAP-HOURS IN TOT-MO (TOTAL-SUB, T-SHIFT-SVB )@@G@@UB, 2)@F@@@@ ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB, OUT-SVC )@@G@@UB, 1)@F@@@@ ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB, OUT-SVD )@@G@@UB, 2)@G@@@@ ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB, T-SHIVE )@@G@@FT-SUB, 1) @G@@@@ ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB,VF )@@G@@ T-SHIFT-SUB, 2). @G@@@@ DIVIDE RUN-SECS IN AC-DEMAND-DATA IN VG )@@G@@SORT-RECORD (SHIFT-SUB) @C@@@@ BY 3600 GIVING BT-SUP-HOURSVH )@@G@@. @F@@@@ DIVIDE RUN-SECS IN AC-RT-DMAND-DATA IN SORT-RECORVI )@@G@@D @A@@@@ (SHIFT-SUB) @C@@@@ BY VJ )@@G@@3600 GIVING RT-SUP-HOURS. @B@@@@ ADD BT-SUP-HOURS, RT-SUP-VK )@@G@@HOURS @D@@@@ TO ELAP-HOURS IN MO-SUM (OUT-SUB, 1) @D@@@@VL )@@G@@ ELAP-HOURS IN MO-SUM (OUT-SUB, 3) @E@@@@ VM )@@G@@ ELAP-HOURS IN MO-SUM (T-SHIFT-SUB, 1) @E@@@@ VN )@@G@@ ELAP-HOURS IN MO-SUM (T-SHIFT-SUB, 3) @F@@@@ ELAP-VO )@@G@@HOURS IN TOT-MO (TOTAL-SUB, OUT-SUB, 1) @F@@@@ ELAP-VP )@@G@@HOURS IN TOT-MO (TOTAL-SUB, OUT-SUB, 3) @G@@@@ ELAP-VQ )@@G@@HOURS IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 1) @G@@@@ VR )@@G@@ ELAP-HOURS IN TOT-MO (TOTAL-SUB, T-SHIFT-SUB, 3) @G@@@@ VS )@@G@@ ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 1) @G@@@@ VT )@@G@@ ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB, OUT-SUB, 3) @G@@@@VU )@@G@@ ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUB, 1) VV )@@G@@@G@@@@ ELAP-HOURS IN TOT-MO (PROD-DEVP-SUB, T-SHIFT-SUVW )@@G@@B, 3).@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@ 2990-SORT-OUTPUT-PROCEDUR-EXIVX )@@G@@T. @#@@@@ EXIT. ___ @F@@@@ SUP-HOURS IVY )@@G@@N TOT-MO (TOTAL-SUB, OUT*[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONVZ )@@G@@. @ @@@@ PROGRAM-ID. H1551000. @A@@@@ AUTHOR. DOUGLAS EWA )@@G@@. RAGSDALE @D@@@@ INSTALLATION. TX DEPT OF HEALTH, AUSTIN, TX. WB )@@G@@@A@@@@ DATE-WRITTEN. MAY 16, 1979 @^@@@@ DATE-COMPILED. WC )@@G@@@D@@@@ *REMARKS. ASCII ANS-1974 ACOB3R1 @G@@@@ WD )@@G@@* H1501900 SORTS COUNT-CDS ON ACCOUNT-NO AND VALIDATES @G@@@@WE )@@G@@ * THE ACCOUNT NO'S OF COUNT-CDS AND TIME-CDS (AGAINST QUIP- WF )@@G@@@E@@@@ * CARDS) BEFORE CREATING KP-TIME AND KP-CARDS. @]@@@@WG )@@G@@ * @]@@@@ * @ @@@@ * CHANGE 10 MAY 80 @C@@@@WH )@@G@@ * CONVERT TO ANS 1974 COBOL (ACOB4). @]@@@@ * @A@@@@WI )@@G@@ *********CHANGE LOG********* @]@@@@ / @ @@@@ ENVIRWJ )@@G@@ONMENT DIVISION. @@@@@@@@@@@@@ @@@@ CONFIGURATION SECTION. @@@@@@WK )@@G@@@ @@@@ COPY COMPUTER-NAMES. @^@@@@ SPECIAL-NAMES. @ @@@@WL )@@G@@ COPY DEVICE-NAMES. @ @@@@ INPUT-OUTPUT SECTION. @@@@@@WM )@@G@@@^@@@@ FILE-CONTROL. @@@@@@@A@@@@ SELECT VALID-ACNT-FWN )@@G@@ILE @B@@@@ ASSIGN CARD-READER. @ @@@@ SWO )@@G@@ELECT TIME-IN @C@@@@ ASSIGN CARD-READER TIME-CDS. WP )@@G@@@ @@@@ SELECT COUNT-IN @C@@@@ ASSIGN CARD-WQ )@@G@@READER COUNT-CDS. @ @@@@ SELECT TIME-OUT @C@@@@ WR )@@G@@ ASSIGN CARD-PUNCH KP-TIME. @ @@@@ SELECT COUNT-OUT WS )@@G@@@C@@@@ ASSIGN CARD-PUNCH KP-CARDS. @ @@@@ SWT )@@G@@ELECT SORT-FILE @B@@@@ ASSIGN MASS-STORAGE XA. @@@@@@WU )@@G@@@@@@@@@^@@@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE SECTIOWV )@@G@@N. @@@@@@@ @@@@ FD VALID-ACNT-FILE @A@@@@ LABEL RWW )@@G@@ECORDS OMITTED. @@@@@@@^@@@@ 01 VAL-ACNT-REC.@D@@@@ 0WX )@@G@@2 QUIP-COMMAND PIC X(15). @D@@@@ 88 INSERT-WY )@@G@@CMD VALUE 'INSERT ACCOUNT '. @D@@@@ 02 QUIP-ACCNT WZ )@@G@@ PIC X(12). @D@@@@ 02 FILLER PIC X(53)XA )@@G@@. @@@@@@@#@@@@ FD TIME-IN@A@@@@ LABEL RECORDS OMITTXB )@@G@@ED. @@@@@@@^@@@@ 01 TIME-IN-REC. @D@@@@ 03 FILLER XC )@@G@@ PIC X(11). @C@@@@ 03 TI-ACNT XD )@@G@@ PIC XXX. @D@@@@ 03 FILLER PIC X(66). XE )@@G@@@@@@@@@^@@@@ FD COUNT-IN @A@@@@ LABEL RECORDS OMITTXF )@@G@@ED. @@@@@@@^@@@@ 01 COUNT-IN-REC.@D@@@@ 03 FILLER XG )@@G@@ PIC X(11). @C@@@@ 03 CI-ACNT XH )@@G@@ PIC XXX. @D@@@@ 03 FILLER PIC X(66). XI )@@G@@@@@@@@@^@@@@ FD TIME-OUT @A@@@@ LABEL RECORDS OMITTXJ )@@G@@ED. @@@@@@@D@@@@ 01 TIME-OUT-REC PIC X(80). XK )@@G@@@@@@@@@^@@@@ FD COUNT-OUT @A@@@@ LABEL RECORDS OMITTXL )@@G@@ED. @@@@@@@D@@@@ 01 COUNT-OUT-REC PIC X(80). XM )@@G@@@@@@@@@^@@@@ SD SORT-FILE. @@@@@@@^@@@@ 01 SORT-REC. XN )@@G@@@D@@@@ 03 FILLER PIC X(11). @C@@@@ XO )@@G@@ 03 SORT-KEY PIC XXX. @D@@@@ 03 FILLER XP )@@G@@ PIC X(63). @]@@@@ / @A@@@@ WORKING-STOXQ )@@G@@RAGE SECTION. @@@@@@@E@@@@ 01 SW-VALID-ACNT-EOF PICXR )@@G@@ X VALUE 'N'. @E@@@@ 88 VALID-ACNT-EOF VALXS )@@G@@UE 'Y'. @E@@@@ 01 SW-TIME-IN-EOF PIC X VALUE 'N'XT )@@G@@. @E@@@@ 88 TIME-IN-EOF VALUE 'Y'. XU )@@G@@@E@@@@ 01 SW-COUNT-IN-EOF PIC X VALUE 'N'. @E@@@@XV )@@G@@ 88 COUNT-IN-EOF VALUE 'Y'. @E@@@@ XW )@@G@@ 01 SW-ACNTS-MATCH PIC X VALUE 'N'. @E@@@@ 8XX )@@G@@8 ACNTS-MATCH VALUE 'Y'. @E@@@@ 01 SW-ATABXY )@@G@@LE-END PIC X VALUE 'N'. @E@@@@ 88 ATABLE-ENDXZ )@@G@@ VALUE 'Y'. @^@@@@ 01 ACNT-TABLE. @F@@@@YA )@@G@@ 03 ATABLE OCCURS 001 TO 999 TIMES DEPENDING ON A-CNT @B@@@@YB )@@G@@ ASCENDING KEY IS VALID-ACNT @ @@@@ INDEXED BYYC )@@G@@ P1. @D@@@@ 05 VALID-ACNT PIC X(12). @^@@@@YD )@@G@@ 01 ACNT-IN. @E@@@@ 03 FILLER PICYE )@@G@@ X VALUE 'H'. @C@@@@ 03 ACNT-IN-NUMERIC PIC XXX. YF )@@G@@@F@@@@ 03 FILLER PIC X(8) VALUE SPACES. YG )@@G@@@F@@@@ 01 TI-CNT PIC 9(10) COMP VALUE 0. YH )@@G@@@F@@@@ 01 TI-NAME PIC X(12) VALUE 'TIME-CDS'.YI )@@G@@@F@@@@ 01 TO-CNT PIC 9(10) COMP VALUE 0. YJ )@@G@@@F@@@@ 01 TO-NAME PIC X(12) VALUE 'KP-TIME'. YK )@@G@@@F@@@@ 01 CI-CNT PIC 9(10) COMP VALUE 0. YL )@@G@@@G@@@@ 01 CI-NAME PIC X(12) VALUE 'COUNT-CDS'YM )@@G@@. @F@@@@ 01 CO-CNT PIC 9(10) COMP VALUE YN )@@G@@0. @F@@@@ 01 CO-NAME PIC X(12) VALUE 'KP-CYO )@@G@@ARDS'.@F@@@@ 01 A-CNT PIC 9(10) COMP VALUYP )@@G@@E 0. @G@@@@ 01 A-NAME PIC X(12) VALUE 'QUIPYQ )@@G@@-CARDS'. @@@@@@@]@@@@ / @ @@@@ PROCEDURE DIVISION. YR )@@G@@@@@@@@@@@@@@@^@@@@ 0000-CONTROL. @@@@@@@B@@@@ PERFORMYS )@@G@@ 0100-HOUSEKEEPING. @F@@@@ PERFORM 0110-BUILD-ACNT-TABLE UYT )@@G@@NTIL VALID-ACNT-EOF. @E@@@@ PERFORM 0120-VALIDATE-TIME-IN UYU )@@G@@NTIL TIME-IN-EOF. @D@@@@ SORT SORT-FILE ON ASCENDING KEY SORT-YV )@@G@@KEY @C@@@@ INPUT PROCEDURE IS 1000-SORT-IN @A@@@@ YW )@@G@@ GIVING COUNT-OUT. @A@@@@ PERFORM 0130-CLOSING. YX )@@G@@@^@@@@ STOP RUN. @@@@@@@@@@@@@ @@@@ 0100-HOUSEKEEPINGYY )@@G@@. @@@@@@@B@@@@ OPEN INPUT VALID-ACNT-FILE @ @@@@ YZ )@@G@@ TIME-IN @ @@@@ COUNT-IN@A@@@@ ZA )@@G@@ OUTPUT TIME-OUT. @^@@@@ SET P1 TO 1. @@@@@@@@@@@@ZB )@@G@@@ @@@@ 0110-BUILD-ACNT-TABLE. @@@@@@@A@@@@ READ VALID-ACZC )@@G@@NT-FILE @D@@@@ AT END MOVE 'Y' TO SW-VALID-ACNT-EOF. ZD )@@G@@@A@@@@ IF NOT VALID-ACNT-EOF @ @@@@ ADD 1 TO AZE )@@G@@-CNT @ @@@@ IF INSERT-CMD @B@@@@ PERFORMZF )@@G@@ 0200-STORE-ACNT @#@@@@ ELSE@F@@@@ DISPLAYZG )@@G@@ 'ILLEGAL QUIP COMMAND IN QUIP-CARDS: ' @E@@@@ ZH )@@G@@ VAL-ACNT-REC UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABOZI )@@G@@RT'. @@@@@@@@@@@@@ @@@@ 0120-VALIDATE-TIME-IN. @@@@@@@^@@@@ ZJ )@@G@@ READ TIME-IN @D@@@@ AT END MOVE 'Y' TO SW-TIME-IN-EZK )@@G@@OF. @ @@@@ IF NOT TIME-IN-EOF @ @@@@ ADD 1 TO TZL )@@G@@I-CNT @C@@@@ MOVE TI-ACNT TO ACNT-IN-NUMERIC @B@@@@ ZM )@@G@@ MOVE 'N' TO SW-ACNTS-MATCH @C@@@@ PERFORM 1300-SORZN )@@G@@T-IN-SEARCH-ATABLE@ @@@@ IF ACNTS-MATCH @D@@@@ ZO )@@G@@ WRITE TIME-OUT-REC FROM TIME-IN-REC @A@@@@ ADD 1 TZP )@@G@@O TO-CNT. @@@@@@@@@@@@@^@@@@ 0130-CLOSING. @@@@@@@A@@@@ ZQ )@@G@@ CLOSE VALID-ACNT-FILE @^@@@@ TIME-IN@ @@@@ ZR )@@G@@ TIME-OUT @ @@@@ COUNT-IN. @C@@@@ ZS )@@G@@ CALL 'LOG-RCNT' USING TI-NAME TI-CNT.@C@@@@ CALL 'LOG-RCNZT )@@G@@T' USING CI-NAME CI-CNT.@C@@@@ CALL 'LOG-WCNT' USING TO-NAME TZU )@@G@@O-CNT.@C@@@@ CALL 'LOG-WCNT' USING CO-NAME CO-CNT.@C@@@@ ZV )@@G@@ CALL 'LOG-RCNT' USING A-NAME A-CNT. @@@@@@@@@@@@@^@@@@ 0200-ZW )@@G@@STORE-ACNT. @@@@@@@C@@@@ MOVE QUIP-ACCNT TO VALID-ACNT (P1). ZX )@@G@@@ @@@@ SET P1 UP BY 1. @@@@@@@@@@@@@@@@@@@ @@@@ 1000-ZY )@@G@@SORT-IN SECTION. @@@@@@@@@@@@@ @@@@ 1100-SORT-IN-CONTROL. @@@@@@ZZ )@@G@@@F@@@@ PERFORM 1200-SORT-IN-MAIN-PROCESS UNTIL COUNT-IN-EOF. AA )@@G@@@A@@@@ GO TO 1310-SORT-IN-EXIT. @@@@@@@@@@@@@A@@@@ 1200-AB )@@G@@SORT-IN-MAIN-PROCESS. @@@@@@@^@@@@ READ COUNT-IN@D@@@@ AC )@@G@@ AT END MOVE 'Y' TO SW-COUNT-IN-EOF. @ @@@@ IF NOT AD )@@G@@COUNT-IN-EOF@ @@@@ ADD 1 TO CI-CNT @C@@@@ MOVEAE )@@G@@ CI-ACNT TO ACNT-IN-NUMERIC @B@@@@ MOVE 'N' TO SW-ACNTS-MAF )@@G@@ATCH @C@@@@ PERFORM 1300-SORT-IN-SEARCH-ATABLE@ @@@@ AG )@@G@@ IF ACNTS-MATCH @D@@@@ RELEASE SORT-REC FROM COUAH )@@G@@NT-IN-REC @A@@@@ ADD 1 TO CO-CNT. @@@@@@@@@@@@@A@@@@AI )@@G@@ 1300-SORT-IN-SEARCH-ATABLE. @@@@@@@B@@@@ MOVE 'N' TO SAJ )@@G@@W-ATABLE-END. @^@@@@ SET P1 TO 1. @^@@@@ SEARCH AK )@@G@@ATABLE@D@@@@ AT END MOVE 'Y' TO SW-ATABLE-END @C@@@@AL )@@G@@ WHEN ACNT-IN = VALID-ACNT (P1)@D@@@@ AM )@@G@@ MOVE 'Y' TO SW-ACNTS-MATCH. @@@@@@@@@@@@@ @@@@ 1310-SORT-IAN )@@G@@N-EXIT. @@@@@@@#@@@@ EXIT. ___^@) MOVE 'YAO )@@G@@' TO SW-ACNTS-MATCH. @@@@@@@@@@@@@ @@@@ 1310-SORT-IN-EXIT. AP )@@G@@@@@@@@@#@@@@ EXIT. ___^@)^@)^@)^@)^@)*[S@@@*SDFF*@A@@@@ AQ )@@G@@ IDENTIFICATION DIVISION. @ @@@@ PROGRAM-ID. H1551010. @#@@@@AR )@@G@@001040 AUTHOR. @^@@@@001050 INFOREX. @^@@@@001060 DATE-WRITTEAS )@@G@@N. @A@@@@001070 NOVEMBER 1, 1974. @^@@@@ DATE-COMPILAT )@@G@@ED. @ @@@@ *REMARKS. ASCII ANS-1974@]@@@@001080* @ @@@@001090AU )@@G@@* DOS 26.2 COBOL 'F'@]@@@@001100* @C@@@@001110* KEYPUNCH AV )@@G@@+ VERIFIER STATISTICS @D@@@@001115* OPERATOR STATISTICS FORAW )@@G@@ *** 309 ***@]@@@@001120* @E@@@@001130* *********************AX )@@G@@************************@E@@@@001140* VERSION = 3 PFG. UTILIZINGAY )@@G@@ INTER. TIMER @E@@@@001150* *********************************AZ )@@G@@************@]@@@@001160* @^@@@@ * CHANGE LOG: @B@@@@ BA )@@G@@* 1. 11-20-78 - BROZOVSKY @G@@@@ * A. CHANGE BB )@@G@@PROGRAM ID FROM H1552100 TO H1551010. @G@@@@ * B. RBC )@@G@@EMANE FILES TO CORRESPOND TO NEW EXTERNAL NAMES.@G@@@@ * BD )@@G@@ C. CHANGE THE INTERNAL ASSIGN AND FREE TO TAPE TO @D@@@@ * BE )@@G@@ AGREE WITH NEW EXTERNAL NAMES. @G@@@@ * D CHBF )@@G@@ANGE INFOREX TAPE NUMBER FIELD FROM 4 TO 6 . @A@@@@ * BG )@@G@@ CHARACTERS. @]@@@@ * @]@@@@ * @ @@@@ * CBH )@@G@@HANGE 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOL (ACOB4). BI )@@G@@@]@@@@ * @C@@@# * CHANGE #3 08/11/80 D. HEROLD BJ )@@G@@@D@@@# * CHANGE TO PROCESS DE-STAT-TAPE AS UNLABELED@^@@@# BK )@@G@@* IBM OS TAPE. @ @@@@001170 ENVIRONMENT DIVISION. @ @@@@ CONFIBL )@@G@@GURATION SECTION. @ @@@@ COPY COMPUTER-NAMES. @^@@@@ SPECIBM )@@G@@AL-NAMES. @ @@@@ COPY DEVICE-NAMES. @ @@@@001180 INPUT-OUTPUBN )@@G@@T SECTION. @^@@@@001190 FILE-CONTROL. @E@@@@002010 SELECT DISK-JBO )@@G@@OB ASSIGN TO MASS-STORAGE DE-STAT. @E@@@@002015 SELECT JOB-FILE ASSBP )@@G@@IGN TO UNISERVO DE-STAT-TAPE. @ @@@@ SELECT CARD-FILE @A@@@@BQ )@@G@@ ASSIGN TO CARD-READER.@@@@@@@^@@@@002020 DATA DIVISION. BR )@@G@@@^@@@@002030 FILE SECTION. @@@@@@@^@@@@002040 FD JOB-FILE @A@#@@BS )@@G@@ RECORDING MODE FORM01 @ @@@# RECORDING MODE F BT )@@G@@@A@@@@002060 LABEL RECORDS ARE OMITTED@A@@@@ BLOCK CONTAINBU )@@G@@S 1 RECORDS @A@@@@002080 DATA RECORD IS JOBREC-IN.@@@@@@@A@#@@002090BV )@@G@@ 01 JOBREC-IN DISPLAY-1. @^@@@#002090 01 JOBREC-IN. @C@@@@002100BW )@@G@@ 03 JOB-Q PICTURE X. @F@@@@002110 03 FILLER BX )@@G@@ PICTURE X(13). @C@@@@002120 03 TEST-D BY )@@G@@ PICTURE X. @F@@@@002130 03 FILLER BZ )@@G@@ PICTURE X(111).@@@@@@@@@@@@@^@@@@002140 FD DISK-JOB @A@@@@CA )@@G@@002150 RECORDING MODE INTERNAL @B@@@@002160 LABEL RECORDS ARE SCB )@@G@@TANDARD @B@@@@002170 RECORD CONTAINS 83 CHARACTERS @A@@@@002180CC )@@G@@ BLOCK CONTAINS 20 RECORDS@B@@@@002190 DATA RECORD IS JOBREC-OUTCD )@@G@@. @@@@@@@^@@@@002200 01 JOBREC-OUT. @ @@@@003010 02 JOBNAME-OUCE )@@G@@T. @D@@@@003020 05 JOBO OCCURS 13 TIMES PICTURE X. @^@@@@CF )@@G@@ 02 REST-OUT.@C@@@@003030 04 RECID-OUT PICTURE CG )@@G@@X. @C@@@@003040 04 OPID-OUT PICTURE XXX. @C@@@@003050CH )@@G@@ 04 KP-OUT PICTURE X(4). @C@@@@003060 04 VR-OUTCI )@@G@@ PICTURE X(4). @C@@@@003070 04 ER-OUT PICTURE CJ )@@G@@X(4). @C@@@@003080 04 TIME-OUT PICTURE XXX. @D@@@@003090CK )@@G@@ 04 KP-STROKE-OUT PICTURE X(6). @D@@@@003100 04 VCL )@@G@@R-STROKE-OUT PICTURE X(6). @F@@@@003105 04 FILLER CM )@@G@@ PICTURE XX. @G@@@@003110 04 ER-STROKE-OUCN )@@G@@T PICTURE X(4). @D@@@@003120 04 BALREG-CO )@@G@@1-OUT PICTURE X(12). @D@@@@003130 04 BALREG-2-OUT CP )@@G@@ PICTURE X(12). @C@@@@003140 04 FILLER-OUT PICTURE X(5). CQ )@@G@@@D@@@@003150 04 FILLER PICTURE X(4). @@@@@@@^@@@@CR )@@G@@ FD CARD-FILE @A@@@@ LABEL RECORDS ARE OMITTED@E@@@@CS )@@G@@ DATA RECORDS ARE CONTROL-CARD TAPE-NUMBERS. @@@@@@@^@@@@CT )@@G@@ 01 CONTROL-CARD.@F@@@@ 10 CC-ID CU )@@G@@ PICTURE X(4). @E@@@@ 10 CC-NR CV )@@G@@ PICTURE 99.@F@@@@ 10 FILLER CW )@@G@@ PICTURE X(74). @^@@@@ 01 TAPE-NUMBERS.@F@@@@ 10 TAPCX )@@G@@E-NO PICTURE X(6). @F@@@@ 10 FILCY )@@G@@LER PICTURE X(74). @@@@@@@@@@@@@A@@@@003160CZ )@@G@@ WORKING-STORAGE SECTION. @@@@@@@E@@@@003170 77 NR-INPUT DA )@@G@@ PICTURE S99 VALUE ZEROS. @G@@@@ 77 REC-READ VALUE ZDB )@@G@@ERO PICTURE 9(4) COMP. @F@@@@ 77 DISPLAY-REC DC )@@G@@ DISPLAY-1 PICTURE 9(6). @E@@@@003180 77 SUBN DD )@@G@@ PICTURE 99 VALUE 0 COMP. @E@@@@003190 77 SUBO PIDE )@@G@@CTURE 99 VALUE 0 COMP. @F@@@@003200 77 REC-CTR PICTURE DF )@@G@@9(4) VALUE ZEROES COMP. @B@@@@003250 77 REPLY-ANS PIC X VALUE SPACE.DG )@@G@@@^@@@@004010 01 JOBREC-WS. @^@@@@004020 02 JOBREC-WS-1.@C@@@@004030DH )@@G@@ 03 JOBNAME-IN PICTURE X(13).@C@@@@004035 03 FILLER DI )@@G@@ PICTURE X(10).@C@@@@004040 03 ENTRY-IN PICTURE DJ )@@G@@X. @C@@@@004045 03 FILLER PICTURE XXX. @C@@@@004050DK )@@G@@ 03 VER-IN PICTURE X. @C@@@@004055 03 FILLER DL )@@G@@ PICTURE X(6). @C@@@@004060 03 KP-IN PICTURE DM )@@G@@XXXX. @C@@@@004065 03 FILLER PICTURE XXXX. @C@@@@004070DN )@@G@@ 03 VR-IN PICTURE XXXX. @C@@@@004075 03 FILLER DO )@@G@@ PICTURE XXXX. @C@@@@004080 03 ERR-IN PICTURE DP )@@G@@XXXX. @C@@@@004085 03 FILLER PICTURE XX. @C@@@@004090DQ )@@G@@ 03 E-TIME PICTURE XXX. @C@@@@004095 03 FILLER DR )@@G@@ PICTURE XX. @C@@@@004100 03 V-TIME PICTURE DS )@@G@@XXX. @C@@@@004105 03 FILLER PICTURE XX. @C@@@@004110DT )@@G@@ 03 KP-STROKE PICTURE X(6). @C@@@@004120 03 FILLER DU )@@G@@ PICTURE XXX. @C@@@@004130 03 VR-STROKE PICTURE DV )@@G@@X(6). @C@@@@004140 03 FILLER PICTURE XXX. @C@@@@004150DW )@@G@@ 03 ER-STROKE PICTURE XXXX. @C@@@@005020 03 FILLER DX )@@G@@ PICTURE X(40).@^@@@@005030 02 JOBREC-WS-2.@ @@@@005040 0DY )@@G@@3 JOBNAME-WS-2. @D@@@@005050 05 JOBN OCCURS 13 TIMES PICTURE XDZ )@@G@@. @C@@@@005060 03 FILLER PICTURE XX. @C@@@@005070EA )@@G@@ 03 KPID-IN PICTURE XXX. @C@@@@005080 03 FILLER EB )@@G@@ PICTURE X(7). @C@@@@005090 03 VRID-IN PICTURE EC )@@G@@XXX. @C@@@@005100 03 FILLER PICTURE X(6). @C@@@@005110ED )@@G@@ 03 BALREG-1 PICTURE X(12).@C@@@@005120 03 FILLER EE )@@G@@ PICTURE XXX. @C@@@@005130 03 BALREG-2 PICTURE EF )@@G@@X(12).@C@@@@005160 03 FILLER PICTURE X(67).@@@@@@@F@@@@EG )@@G@@ 01 CARD-IMAGE-1 DISPLAY-1 PICTURE X(80) @C@@@@EH )@@G@@ VALUE '@FREE,C DE-STAT-TAPE.'. @B@@@@ 01 CARD-IMEI )@@G@@AGE-2 DISPLAY-1. @F@]@@ 10 FILLER EJ )@@G@@ PICTURE X(42) @F@#@] 10 FILLER EK )@@G@@ PICTURE X(46) @F@@@# 10 FILLER EL )@@G@@ PICTURE X(34) @F@[@@ VALUE '@ASG,TJ DE-STAT-TEM )@@G@@APE.,16N////EBCDIC//6,'.@G@#@[ VALUE '@ASG,TJ DE-STAT-TEN )@@G@@APE.,T////FLDATA/EBCDIC/6,'. @E@@@# VALUE '@ASG,TJ DE-EO )@@G@@STAT-TAPE.,T//////Q,'. @F@@@@ 10 ASG-TAPE-NO EP )@@G@@ PICTURE X(6). @F@]@@ 10 FILLER VALUE SPACES EQ )@@G@@ PICTURE X(48). @F@#@] 10 FILLER VALUE SPACES ER )@@G@@ PICTURE X(44). @F@@@# 10 FILLER VALUE SPACES ES )@@G@@ PICTURE X(56). @@@@@@@E@@@@ 01 SWITCH-CARD-FILE VALUE ZET )@@G@@ERO PICTURE 9. @A@@@@ 88 END-OF-CARDS VALUE 1.@@@@@@EU )@@G@@@E@@@@ 01 SWITCH-CARD-1 VALUE ZERO PICTURE 9. @A@@@@EV )@@G@@ 88 CARD-1 VALUE 1. @E@@@@ 01 SWITCH-E-O-F VEW )@@G@@ALUE ZERO PICTURE 9. @A@@@@ 88 END-OF-FILE VALUE 1. EX )@@G@@@@@@@@@]@@@@ / @ @@@@005170 PROCEDURE DIVISION. @#@@@@ EY )@@G@@ 000-MAIN. @@@@@@@A@@@@005200 OPEN INPUT CARD-FILE @A@@@@006010EZ )@@G@@ OUTPUT DISK-JOB. @ @@@@ READ CARD-FILE @G@@@@FA )@@G@@ AT END DISPLAY 'CONTROL CARD MISSING * H1552100 ABORTED' FB )@@G@@@A@@@@ UPON PRINT-DEVICE. @A@@@@ MOVE CC-NR TOFC )@@G@@ NR-INPUT. @ @@@@ READ CARD-FILE @B@@@@ AT EFD )@@G@@ND MOVE ZERO TO NR-INPUT@C@@@@ MOVE 1 TO SWITCH-CARDFE )@@G@@-FILE.@ @@@@ IF NOT END-OF-CARDS@B@@@@ MOVE TAPE-FF )@@G@@NO TO ASG-TAPE-NO @D@@@@ ENTER FD ASM 'EQUIP' USING CARD-IMFG )@@G@@AGE-2.@A@@@@006020 SUBTRACT 1 FROM NR-INPUT.@A@@@@ OPEN INFH )@@G@@PUT JOB-FILE. @@@@@@@@@@@@@^@@@@006030 100-READ-INPUT. @@@@@@@^@@@@FI )@@G@@ IF CARD-1 @B@@@@ MOVE ZERO TO SWITCH-CARD-1 FJ )@@G@@@#@@@@ ELSE @D@@@@006040 READ JOB-FILE AT END GO TO 130-FK )@@G@@EOJ-RTN. @ @@@@ ADD 1 TO REC-READ. @E@@@@006045 IF JOB-FL )@@G@@Q IS EQUAL TO 'Q' GO TO 100-READ-INPUT. @E@@@@006048 IF JOB-Q IS EFM )@@G@@QUAL TO SPACE GO TO 100-READ-INPUT.@B@@@@006050 MOVE JOBREC-IN TO JFN )@@G@@OBREC-WS-1. @A@@@@006060 READ JOB-FILE AT END @G@@@@006070 FO )@@G@@ DISPLAY 'NO REC 2 AT EOJ ' JOBREC-WS-1 UPON PRINT-DEVICE@A@@@@006080FP )@@G@@ GO TO 130-EOJ-RTN. @B@@@@006130 MOVE JOBREC-IN TO JOBREC-FQ )@@G@@WS-2. @B@@@@006100 IF TEST-D NOT EQUAL TO 'D' @G@@@@ FR )@@G@@ DISPLAY 'SECOND RECORD NOT TYPE 2 ' UPON PRINT-DEVICE @F@@@@ FS )@@G@@ DISPLAY 'FIRST RECORD READ =' UPON PRINT-DEVICE @D@@@@ FT )@@G@@ DISPLAY JOBREC-WS-1 UPON PRINT-DEVICE @F@@@@ DISFU )@@G@@PLAY 'SECOND RECORD READ =' UPON PRINT-DEVICE @D@@@@ DISFV )@@G@@PLAY JOBREC-WS-2 UPON PRINT-DEVICE @B@@@@ MOVE 1 TO SWITCFW )@@G@@H-CARD-1 @A@@@@006120 GO TO 100-READ-INPUT.@ @@@@ AFX )@@G@@DD 1 TO REC-READ. @ @@@@006140 IF ENTRY-IN = 'C' @ @@@@006150 FY )@@G@@ NEXT SENTENCE @#@@@@006160 ELSE @A@@@@006170 GO TO 100FZ )@@G@@-READ-INPUT.@B@@@@006180 MOVE SPACES TO JOBNAME-OUT. @A@@@@006190GA )@@G@@ MOVE 0 TO SUBN, SUBO. @D@@@@006200 PERFORM 150-FIX-JOB-BATCHGB )@@G@@ THRU 160-END-FIX.@A@@@@ MOVE ZEROES TO REST-OUT. @A@@@@007010GC )@@G@@ MOVE '1' TO RECID-OUT. @A@@@@007020 MOVE KPID-IN TO OPID-OUT.GD )@@G@@@D@@@@007035 IF KP-IN NUMERIC MOVE KP-IN TO KP-OUT. @E@@@@007055GE )@@G@@ IF ERR-IN IS NUMERIC, MOVE ERR-IN TO ER-OUT. @E@@@@007065 IGF )@@G@@F E-TIME IS NUMERIC, MOVE E-TIME TO TIME-OUT. @A@@@@007085 IF ER-SGG )@@G@@TROKE IS NUMERIC, @C@@@@007088 MOVE ER-STROKE TO ER-STROKE-OUT.GH )@@G@@@A@@@@007095 IF KP-STROKE IS NUMERIC, @C@@@@007098 MOVE KP-GI )@@G@@STROKE TO KP-STROKE-OUT.@B@@@@007100 MOVE BALREG-1 TO BALREG-1-OUT. GJ )@@G@@@B@@@@007110 MOVE BALREG-2 TO BALREG-2-OUT. @A@@@@007120 PERFORMGK )@@G@@ 110-WR-JOBOUT. @A@@@@ MOVE ZEROS TO REST-OUT. @A@@@@007160GL )@@G@@ MOVE '2' TO RECID-OUT. @A@@@@007170 MOVE VRID-IN TO OPID-OUT.GM )@@G@@@D@@@@007185 IF VR-IN IS NUMERIC, MOVE VR-IN TO VR-OUT. @E@@@@007195GN )@@G@@ IF V-TIME IS NUMERIC, MOVE V-TIME TO TIME-OUT. @A@@@@008025 IGO )@@G@@F VR-STROKE IS NUMERIC, @C@@@@008028 MOVE VR-STROKE TO VR-STROKGP )@@G@@E-OUT.@@@@@@@@@@@@@^@@@@008040 110-WR-JOBOUT. @@@@@@@B@@@@008050 MGQ )@@G@@OVE SPACES TO FILLER-OUT. @ @@@@008060 ADD 1 TO REC-CTR. @ @@@@GR )@@G@@008080 WRITE JOBREC-OUT. @@@@@@@@@@@@@^@@@@008090 120-RETURN-RTN. GS )@@G@@@@@@@@@A@@@@008100 GO TO 100-READ-INPUT. @@@@@@@^@@@@008110 130-EGT )@@G@@OJ-RTN. @@@@@@@ @@@@008130 IF NR-INPUT < 1 @A@@@@008140 GU )@@G@@ GO TO 140-ALL-DONE. @ @@@@008145 CLOSE JOB-FILE. @ @@@@ GV )@@G@@ READ CARD-FILE @B@@@@ AT END MOVE ZERO TO NR-INPUTGW )@@G@@@C@@@@ MOVE 1 TO SWITCH-CARD-FILE.@ @@@@ IGX )@@G@@F NOT END-OF-CARDS@B@@@@ MOVE TAPE-NO TO ASG-TAPE-NO @D@@@@GY )@@G@@ ENTER FD ASM 'EQUIP' USING CARD-IMAGE-1 @D@@@@ GZ )@@G@@ ENTER FD ASM 'EQUIP' USING CARD-IMAGE-2.@ @@@@ IF NOT END-OFHA )@@G@@-CARDS@A@@@@008150 OPEN INPUT JOB-FILE @B@@@@008160 SUBTHB )@@G@@RACT 1 FROM NR-INPUT @A@@@@008170 GO TO 100-READ-INPUT @#@@@@HC )@@G@@ ELSE @A@@@@ GO TO 140-ALL-DONE. @@@@@@@@@@@@HD )@@G@@@^@@@@008180 140-ALL-DONE. @@@@@@@ @@@@ CLOSE JOB-FILE. HE )@@G@@@ @@@@008190 CLOSE DISK-JOB. @B@@@@ MOVE REC-READ TO DIHF )@@G@@SPLAY-REC. @G@@@@ DISPLAY 'RECORDS READ = ' DISPLAY-REC UPON HG )@@G@@PRINT-DEVICE. @B@@@@ MOVE REC-CTR TO DISPLAY-REC. @G@@@@HH )@@G@@ DISPLAY 'RECORDS WRITTEN = ' DISPLAY-REC UPON PRINT-DEVICE. HI )@@G@@@^@@@@008200 STOP RUN. @@@@@@@@@@@@@ @@@@009010 150-FIX-JOB-BATCHJ )@@G@@H. @@@@@@@ @@@@009020 ADD 1 TO SUBN. @C@@@@009030 IF JOBNHK )@@G@@ (SUBN) = '(' MOVE 8 TO SUBO. @B@@@@009040 IF SUBN = 14 GO TO 160-ENHL )@@G@@D-FIX.@ @@@@009050 ADD 1 TO SUBO. @C@@@@009060 MOVE JOBN (SUHM )@@G@@BN) TO JOBO (SUBO). @D@@@@009070 IF JOBN (SUBN) = ')', GO TO 160HN )@@G@@-END-FIX. @A@@@@009080 GO TO 150-FIX-JOB-BATCH. @@@@@@@@@@@@@^@@@@HO )@@G@@009090 160-END-FIX. @@@@@@@#@@@@ EXIT. ___@@#002090 01 JHP )@@G@@OBREC-IN. @C@@@@002100 03 JOB-Q *[S@@@*SDFF*@A@@@@ HQ )@@G@@ IDENTIFICATION DIVISION. @A@@@@ PROGRAM-ID. H1551020. HR )@@G@@@A@@@@ AUTHOR. BILL HENNIG. @E@@@@ INSTALLATION. THS )@@G@@EXAS DEPARTMENT OF HEALTH RESOURCES.@A@@@@ DATE-WRITTEN. NOV 15,HT )@@G@@ 1976.@^@@@@ DATE-COMPILED. @ @@@@ *REMARKS. ASCII ANS-1974HU )@@G@@@]@@@@ * @G@@@@ * SORT THE JOB-FILE ACCORDING TO REPHV )@@G@@ORT REQUEST IN COLUMN 11@G@@@@ * OF THE CONTROL CARD. A '1' SORTHW )@@G@@S FOR THE OPERATOR STATISTICS @G@@@@ * REPORT BY OPERATOR AND JOHX )@@G@@B. A'2' SORTS FOR THE DATE ENTRY @G@@@@ * STATISTICS BY JOB RHY )@@G@@EPORT AND THE DATA ENTRY STATISTICS BY @ @@@@ * COST CENTER RHZ )@@G@@EPORT.@]@@@@ * @]@@@@ * @^@@@@ * CHANGE LOG: IA )@@G@@@B@@@@ * 1. 11-20-78 - BROZOVSKY @G@@@@ * IB )@@G@@ A. CHANGE PROGRAM ID FROM H1552200 TO H1551020. @D@@@@ * IC )@@G@@ B. CHANGE EXTERNAL NAMES OF FILES.@]@@@@ * @]@@@@ ID )@@G@@* @]@@@@ * @ @@@@ * CHANGE 10 MAY 80 @C@@@@ IE )@@G@@* CONVERT TO ANS 1974 COBOL (ACOB4). @]@@@@ * @ @@@@ IF )@@G@@ ENVIRONMENT DIVISION. @ @@@@ CONFIGURATION SECTION. @ @@@@ IG )@@G@@ COPY COMPUTER-NAMES. @@@@@@@^@@@@ SPECIAL-NAMES. @ @@@@ IH )@@G@@ COPY DEVICE-NAMES. @ @@@@ INPUT-OUTPUT SECTION. @^@@@@ II )@@G@@ FILE-CONTROL. @@@@@@@@@@@@@ @@@@ SELECT CARD-FILE @A@@@@IJ )@@G@@ ASSIGN CARD-READER. @@@@@@@ @@@@ SELECT DISK-JIK )@@G@@OB @B@@@@ ASSIGN MASS-STORAGE DE-STAT.@@@@@@@ @@@@ IL )@@G@@ SELECT JOB-SORTED @C@@@@ ASSIGN MASS-STORAGE DE-STAT-IM )@@G@@SRTD. @@@@@@@ @@@@ SELECT SORT-FILE @B@@@@ ASSIIN )@@G@@GN MASS-STORAGE XA. @@@@@@@^@@@@ DATA DIVISION. @^@@@@ IO )@@G@@ FILE SECTION. @@@@@@@^@@@@ FD CARD-FILE @A@@@@ LIP )@@G@@ABEL RECORDS OMITTED @A@@@@ DATA RECORD CARD-REC. @@@@@@IQ )@@G@@@F@@@@ 01 CARD-REC PICTURE X(80). IR )@@G@@@@@@@@@@@@@@@^@@@@ FD DISK-JOB @A@@@@ LABEL RECORDSIS )@@G@@ STANDARD @A@@@@ BLOCK CONTAINS 20 RECORDS@A@@@@ DIT )@@G@@ATA RECORD DISK-REC. @@@@@@@F@@@@ 01 DISK-REC IU )@@G@@ PICTURE X(83). @@@@@@@@@@@@@^@@@@ FD JOB-SORTED IV )@@G@@@A@@@@ LABEL RECORDS STANDARD @A@@@@ BLOCK CONTAINIW )@@G@@S 20 RECORDS@A@@@@ DATA RECORD JOB-REC. @@@@@@@F@@@@ IX )@@G@@ 01 JOB-REC PICTURE X(83). @@@@@@@@@@@@IY )@@G@@@^@@@@ SD SORT-FILE @A@@@@ DATA RECORD SORT-REC. IZ )@@G@@@@@@@@@@@@@@@^@@@@ 01 SORT-REC. @H@@@@ 10 JOB-NAME.JA )@@G@@ 1-8 @E@@@@ JB )@@G@@ 15 JOB-N OCCURS 8 TIMES PICTURE X. @H@@@@ 10 FILJC )@@G@@LER PICTURE X. 9 @H@@@@ JD )@@G@@ 10 BATCH-NUM PICTURE XXX. 10-12 JE )@@G@@@H@@@@ 10 FILLER PICTURE XX. JF )@@G@@ 13-14 @H@@@@ 10 OPER-ID PICTUJG )@@G@@RE XXX. 15-17 @H@@@@ 10 FILLER JH )@@G@@ PICTURE X(62). 18-79 @H@@@@ 10 SEQ-CONTROL JI )@@G@@ PICTURE X(4). 80-83 @@@@@@@@@@@@@A@@@@ JJ )@@G@@ WORKING-STORAGE SECTION. @@@@@@@^@@@@ 01 CONTROL-CARD.@E@@@@JK )@@G@@ 10 CARD-TYPE PICTURE X. @F@@@@ JL )@@G@@ 10 PROG-ID PICTURE X(8). @E@@@@ JM )@@G@@ 10 FILLER PICTURE X. @E@@@@ 1JN )@@G@@0 RPT-OPTION PICTURE 9. @F@@@@ 10 FILJO )@@G@@LER PICTURE X(69). @@@@@@@H@@@@ 01 RJP )@@G@@EC-LENGTH VALUE 21 COMP PICTURE 9(10). SRTSET@H@@@@JQ )@@G@@ 01 REC-VOLUME COMP PICTURE 9(10). JR )@@G@@SRTSET@H@@@@ 01 CORE-SIZE VALUE 1500 COMP PICTURE 9(10)JS )@@G@@. SRTSET@H@@@@ 01 STATU COMP PJT )@@G@@ICTURE 9(10). SRTSET@I@@@@ 01 VOL JU )@@G@@ PICTURE S9(10) COMP. GETVOLAS @I@@@@ 01 FILENAMJV )@@G@@E VALUE 'DE-STAT' PICTURE X(12). GETVOLAS @E@@@@JW )@@G@@ 01 SWITCH-END-OF-FILE VALUE ZERO PICTURE 9. @B@@@@ JX )@@G@@ 88 END-OF-FILE VALUE 1. @@@@@@@^@@@@ 01 HOLD-JOB-ID. JY )@@G@@@E@@@@ 88 BYPASS-ID VALUES '219' '359' '499' '869'. @E@@@@JZ )@@G@@ 10 TEST-ID OCCURS 3 TIMES PICTURE X. @]@@@@ KA )@@G@@/ @ @@@@ PROCEDURE DIVISION. @@@@@@@#@@@@ 000-MAIN. KB )@@G@@@@@@@@@A@@@@ PERFORM 010-HOUSEKEEPING.@ @@@@ IF RPT-KC )@@G@@OPTION = 1 @A@@@@ PERFORM 100-SORT-ONE @#@@@@ EKD )@@G@@LSE @A@@@@ IF RPT-OPTION = 2 @B@@@@ PKE )@@G@@ERFORM 105-SORT-TWO @#@@@@ ELSE@F@@@@ DKF )@@G@@ISPLAY 'H1551020 - REPORT OPTION NOT 1 OR 2' @A@@@@ KG )@@G@@ UPON PRINT-DEVICE@A@@@@ ENTER FD 'ABORT'. @ @@@@ KH )@@G@@ CLOSE CARD-FILE @ @@@@ DISK-JOB @ @@@@ KI )@@G@@ JOB-SORTED. @^@@@@ STOP RUN. @@@@@@@@@@@@@^@@@@KJ )@@G@@ 010-HOUSEKEEPING.@@@@@@@A@@@@ OPEN INPUT CARD-FILE KK )@@G@@@A@@@@ DISK-JOB @A@@@@ OUTPUT JKL )@@G@@OB-SORTED. @C@@@@ READ CARD-FILE INTO CONTROL-CARD @^@@@@KM )@@G@@ AT END @G@@@@ DISPLAY 'H1551020 - CONTRKN )@@G@@OL CARD MISSING * ABORTED' @A@@@@ UPON PRINT-DEVICEKO )@@G@@@A@@@@ ENTER FD 'ABORT'. @A@@@@ IF PROG-ID = KP )@@G@@'H1551020' @#@@@@ AND @A@@@@ RPT-OPTION = 1KQ )@@G@@ OR 2 @A@@@@ NEXT SENTENCE @#@@@@ ELSE KR )@@G@@@F@@@@ DISPLAY 'H1551020 - BAD CONTROL CARD * ABORTED' KS )@@G@@@A@@@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'KT )@@G@@ABORT'. @C@@@@ CALL 'GETVOLASCII' USING FILENAME @B@@@@KU )@@G@@ VOL. @ @@@@ IF VOL NEGATIKV )@@G@@VE @G@@@@ DISPLAY 'H1551020 - DISK-JOB NOT ASSIGNED-RERUKW )@@G@@N * ABORTED'@A@@@@ UPON PRINT-DEVICE @A@@@@ KX )@@G@@ ENTER FD 'ABORT'. @A@@@@ MOVE VOL TO REC-VOLUME. @B@@@@KY )@@G@@ CALL 'SORTASG' USING REC-LENGTH@C@@@@ KZ )@@G@@ REC-VOLUME @C@@@@ CORE-SIZLA )@@G@@E @B@@@@ STATU. @ @@@@ ILB )@@G@@F STATU = ZERO @ @@@@ NEXT SENTENCE @#@@@@ ELC )@@G@@LSE @F@@@@ DISPLAY 'H1551020 - COULD NOT ASSIGN SORT WORKLD )@@G@@ AREA'@A@@@@ UPON PRINT-DEVICE @A@@@@ ENTELE )@@G@@R FD 'ABORT'. @@@@@@@@@@@@@^@@@@ 100-SORT-ONE. @@@@@@@ @@@@LF )@@G@@ SORT SORT-FILE @B@@@@ ASCENDING KEY OPELG )@@G@@R-ID @B@@@@ JOB-NAME @B@@@@ LH )@@G@@ BATCH-NUM@C@@@@ SEQLI )@@G@@-CONTROL @C@@@@ INPUT PROCEDURE 110-INPUT-SORT @D@@@@LJ )@@G@@ OUTPUT PROCEDURE 200-OUTPUT-SORT. @@@@@@@@@@@@@^@@@@LK )@@G@@ 105-SORT-TWO. @@@@@@@ @@@@ SORT SORT-FILE @B@@@@LL )@@G@@ ASCENDING KEY JOB-NAME @B@@@@ LM )@@G@@ BATCH-NUM@C@@@@ SEQ-CONTROL LN )@@G@@@C@@@@ INPUT PROCEDURE 110-INPUT-SORT @C@@@@ LO )@@G@@ OUTPUT PROCEDURE 200-OUTPUT-SORT. @@@@@@@@@@@@@ @@@@ 110-INPUT-SLP )@@G@@ORT SECTION.@@@@@@@#@@@@ 115-INPUT. @@@@@@@D@@@@ PERFORMLQ )@@G@@ 120-READ-ONE UNTIL END-OF-FILE. @ @@@@ GO TO 190-EXIT. LR )@@G@@@@@@@@@@@@@@@^@@@@ 120-READ-ONE. @@@@@@@B@@@@ READ DILS )@@G@@SK-JOB INTO SORT-REC @D@@@@ AT END MOVE 1 TO SWITCH-ENLT )@@G@@D-OF-FILE. @ @@@@ IF NOT END-OF-FILE @A@@@@ IF RLU )@@G@@PT-OPTION = 1 @C@@@@ PERFORM 130-CHECK-BYPASS-RECORDLV )@@G@@@#@@@@ ELSE@A@@@@ RELEASE SORT-REC. @@@@@@LW )@@G@@@@@@@@@A@@@@ 130-CHECK-BYPASS-RECORD. @@@@@@@B@@@@ MLX )@@G@@OVE JOB-N (1) TO TEST-ID (1). @B@@@@ MOVE JOB-N (2) TO TEST-IDLY )@@G@@ (2). @B@@@@ MOVE JOB-N (3) TO TEST-ID (3). @^@@@@ ILZ )@@G@@F BYPASS-ID @ @@@@ NEXT SENTENCE @#@@@@ ELSE MA )@@G@@@A@@@@ RELEASE SORT-REC. @@@@@@@#@@@@ 190-EXIT. MB )@@G@@@@@@@@@#@@@@ EXIT. @@@@@@@@@@@@@A@@@@ 200-OUTPUT-SORT SMC )@@G@@ECTION. @@@@@@@#@@@@ 205-OUTPUT.@@@@@@@C@@@@ MOVE ZEMD )@@G@@RO TO SWITCH-END-OF-FILE. @C@@@@ PERFORM 210-RETURN UNTIL ME )@@G@@END-OF-FILE.@ @@@@ GO TO 290-EXIT. @@@@@@@@@@@@@#@@@@ MF )@@G@@ 210-RETURN.@@@@@@@ @@@@ RETURN SORT-FILE @D@@@@ MG )@@G@@ AT END MOVE 1 TO SWITCH-END-OF-FILE. @ @@@@ IF NOT END-OFMH )@@G@@-FILE @B@@@@ WRITE JOB-REC FROM SORT-REC.@@@@@@@@@@@@@#@@@@MI )@@G@@ 290-EXIT. @@@@@@@#@@@@ EXIT. ___@@@OM SORT-REC.@@@@@@MJ )@@G@@@@@@@@@#@@@@ 290-E*[S@@@*SDFF*@A@@@@001010 IDENTIFICATION DIVISIONMK )@@G@@. @ @@@@001020 PROGRAM-ID. H1551030. @#@@@@001040 AUTHOR. @^@@@@ML )@@G@@001050 INFOREX. @^@@@@001060 DATE-WRITTEN. @A@@@@001070 MM )@@G@@ NOVEMBER 1, 1974. @^@@@@ DATE-COMPILED. @ @@@@ *REMARMN )@@G@@KS. ASCII ANS-1974@]@@@@001080* @ @@@@001090* DOS 26.2 COBOL 'F'MO )@@G@@@]@@@@001100* @D@@@@001110* DATA ENTRY STATISTICAL RECAP REPOMP )@@G@@RT. @]@@@@001120* @E@@@@001130* ***************************MQ )@@G@@******************@E@@@@001140* VERSION = 3 PFG. UTILIZING INTERMR )@@G@@. TIMER @E@@@@001150* ***************************************MS )@@G@@******@]@@@@001160* @]@@@@ * @^@@@@ * CHANGE LOG: MT )@@G@@@B@@@@ * 1. 11-20-78 - BROZOVSKY @F@@@@ * MU )@@G@@ A. CHANGE PROGRAM ID FROM H1552300TO H1551030.@D@@@@ * MV )@@G@@ B. CHANGE EXTERNAL NAMES OF FILES.@E@@@@ * C. PROVIDEMW )@@G@@ FOR ALTERNATE PRINT FILES. @]@@@@ * @]@@@@ * @]@@@@MX )@@G@@ * @ @@@@ * CHANGE 10 MAY 80 @C@@@@ * CONVERTMY )@@G@@ TO ANS 1974 COBOL (ACOB4). @]@@@@ * @ @@@@001170 ENVIRONMENTMZ )@@G@@ DIVISION. @ @@@@ CONFIGURATION SECTION. @ @@@@ COPY COMPUTNA )@@G@@ER-NAMES. @^@@@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NNB )@@G@@AMES. @ @@@@001180 INPUT-OUTPUT SECTION. @@@@@@@^@@@@001190 FILE-CONTRONC )@@G@@L. @F@@@@001200 SELECT DISK-JOB ASSIGN TO MASS-STORAGE DE-STAT-SRND )@@G@@TD. @F@@@@002010 SELECT TABLE-FILE ASSIGN TO UNISERVO TABLE-TAPE60NE )@@G@@. @D@@@@ SELECT CARD-FILE ASSIGN TO CARD-READER. @E@@@@NF )@@G@@002020 SELECT PRINT-FILE ASSIGN TO PRINTER DE-STAT-RPT. @^@@@@002030NG )@@G@@ I-O-CONTROL. @@@@@@@@@@@@@@@@@@@@@@@@@^@@@@002050 DATA DIVISION. NH )@@G@@@^@@@@002060 FILE SECTION. @^@@@@002070 FD DISK-JOB @A@@@@002080NI )@@G@@ RECORDING MODE INTERNAL @B@@@@002090 LABEL RECORDS ARE STANDARNJ )@@G@@D @B@@@@002100 RECORD CONTAINS 83 CHARACTERS @A@@@@002110 BNK )@@G@@LOCK CONTAINS 20 RECORDS@A@@@@002120 DATA RECORD IS JOBREC-IN.@^@@@@NL )@@G@@ 01 JOBREC-IN. @ @@@@002140 03 JOBNAME-IN. @F@@@@ NM )@@G@@ 05 JOB-ID-IN PICTURE 999. @F@@@@ NN )@@G@@ 05 FILLER PICTURE X(5). @C@@@@002150NO )@@G@@ 03 FILLER PICTURE X. @C@@@@002160 03 JOB-BATCH NP )@@G@@ PICTURE XXX. @C@@@@002170 03 FILLER PICTURE NQ )@@G@@X. @C@@@@002180 03 RECID-IN PICTURE X. @C@@@@002190NR )@@G@@ 03 OPID-IN PICTURE XXX. @C@@@@002200 03 KP-IN NS )@@G@@ PICTURE 9(4). @C@@@@003010 03 VR-IN PICTURE NT )@@G@@9(4). @C@@@@003020 03 ER-IN PICTURE 9(4). @C@@@@003030NU )@@G@@ 03 TIME-IN PICTURE 999. @D@@@@003040 03 TIMEX-IN NV )@@G@@REDEFINES TIME-IN PICTURE XXX.@C@@@@003050 03 KP-STROKE PINW )@@G@@CTURE 9(6). @C@@@@003060 03 VR-STROKE PICTURE 9(6). @F@@@@NX )@@G@@003065 03 FILLER PICTURE XX. @F@@@@NY )@@G@@003070 03 ER-STROKE PICTURE 9(4). @F@@@@NZ )@@G@@003080 03 FILLER PICTURE X(24). @C@@@@OA )@@G@@003100 03 FILLER-IN PICTURE X(9). @[@@@@003110@^@@@@003120OB )@@G@@ FD TABLE-FILE @A@@@@003130 RECORDING MODE CFH AN @B@@@@003140OC )@@G@@ LABEL RECORDS ARE STANDARD @B@@@@003150 RECORD CONTAINS 80 OD )@@G@@CHARACTERS @F@@@@003160 DATA RECORDS ARE JOB-FILE-CARDS, COMPANY-FIOE )@@G@@LE-CARD, @A@@@@003170 OPERATOR-FILE-CD. @B@@@@ 01 JOF )@@G@@OB-FILE-CARDS DISPLAY-1. @E@@@@ 03 TABLE-ID OG )@@G@@ PICTURE X. @C@@@@004060 03 CARD-TYPE PICTURE OH )@@G@@X. @C@@@@004070 03 JFC-JOB PICTURE X(8). @C@@@@004080OI )@@G@@ 03 JFC-CO-NO PICTURE XX. @E@@@@004090 03 JFC-CO-NO-OJ )@@G@@9 REDEFINES JFC-CO-NO PICTURE 99. @C@@@@004100 03 FILLER OK )@@G@@ PICTURE X(68). @B@@@@ 01 COMPANY-FILE-CARD DISPLAY-1. @C@@@@OL )@@G@@004120 03 FILLER PICTURE XX. @C@@@@004130 03 CFC-OM )@@G@@CO-NO PICTURE XX. @E@@@@004140 03 CFC-CO-NO-9 REDEFINES ON )@@G@@CFC-CO-NO PICTURE 99. @C@@@@004150 03 CFC-CO-NAME PICTURE OO )@@G@@X(8). @C@@@@004160 03 FILLER PICTURE X(68). @B@@@@ OP )@@G@@ 01 OPERATOR-FILE-CD DISPLAY-1. @C@@@@004180 03 FILLER OQ )@@G@@ PICTURE XX. @C@@@@004190 03 OFC-OPERATOR-NO PICTURE XXX. OR )@@G@@@D@@@@004200 03 OFC-OPERATOR-NAME PICTURE X(15). @D@@@@005010OS )@@G@@ 03 FILLER PICTURE X(60). @^@@@@005020 FD PRINT-FOT )@@G@@ILE @A@@@@005040 LABEL RECORDS ARE OMITTED@B@@@@005050 RECORD OU )@@G@@CONTAINS 132 CHARACTERS @^@@@@ LINAGE 57 @ @@@@ OV )@@G@@ LINES TOP 3 @ @@@@ LINES BOTTOM 6 @A@@@@005060 DOW )@@G@@ATA RECORD IS LINE-A. @@@@@@@#@@@@005070 01 LINE-A.@F@@@@005080 0OX )@@G@@3 SP-FILL PICTURE X(132).@@@@@@@^@@@@ OY )@@G@@ FD CARD-FILE @A@@@@ LABEL RECORDS OMITTED @A@@@@ OZ )@@G@@ DATA RECORD CTL-CARD. @@@@@@@^@@@@ 01 CTL-CARD. @F@@@@PA )@@G@@012130 03 CTL-CARD-TYPE PICTURE X. @F@@@@PB )@@G@@012140 03 CTL-PROG-NAME PICTURE X(8). @F@@@@PC )@@G@@ 03 FILLER PICTURE X. @F@@@@PD )@@G@@012150 03 CTL-RPT-OPTION PICTURE X. @F@@@@PE )@@G@@012160 03 CTL-COST-FACTOR PICTURE 99V99. @F@@@@PF )@@G@@012170 03 CTL-CF-X REDEFINES CTL-COST-FACTOR PICTURE 9999. @^@@@@PG )@@G@@012175 03 DATE-1. @F@@@@012176 05 MO PH )@@G@@ PICTURE 99. @F@@@@012177 05 DY PI )@@G@@ PICTURE 99. @F@@@@012178 05 YR PJ )@@G@@ PICTURE 99. @F@@@@ 03 FILLER PK )@@G@@ PICTURE X(59). @A@@@@006090 WORKING-STORAGE SECTION. @C@@@@PL )@@G@@006100 77 T-TIME PICTURE 9(6) VALUE ZERO. @A@@@@006110 77 HDG2 PM )@@G@@ PICTURE X(40) @F@@@@006120 VALUE ' DATA ENTRY STATISTICS BY PN )@@G@@JOB '. @A@@@@006130 77 HDG3 PICTURE X(40) @F@@@@006140PO )@@G@@ VALUE ' DATA ENTRY STATISTICS BY COST CENTER '. @E@@@@006150PP )@@G@@ 77 X1 PICTURE 999 VALUE ZERO COMPUTATIONAL. @E@@@@006160 77 XPQ )@@G@@2 PICTURE 999 VALUE ZERO COMPUTATIONAL. @B@@@@006170 77 FT PR )@@G@@ PICTURE 9 VALUE 1.@E@@@@006180 77 OF-SUB PICTURE PS )@@G@@999 VALUE 0.@E@@@@006190 77 JF-SUB PICTURE 999 PT )@@G@@ VALUE 0.@E@@@@006200 77 CF-SUB PICTURE 999 VAPU )@@G@@LUE 0.@D@@@@006210 77 OP-IND PICTURE 9 VALUE 0. @E@@@@PV )@@G@@007010 77 PREV-CARD-TYPE PICTURE X VALUE '0'. @F@@@@007020PW )@@G@@ 77 COST-FACTOR PICTURE 9V99 VALUE 0. @E@@@@007030PX )@@G@@ 77 RPT-4 PICTURE X VALUE '0'. @E@@@@007040 77 SPY )@@G@@UB-BR1 PICTURE 9(12)V99 VALUE 0.@E@@@@007050 77 SUB-BR2PZ )@@G@@ PICTURE 9(12)V99 VALUE 0.@E@@@@007060 77 TOT-BR1 QA )@@G@@ PICTURE 9(12)V99 VALUE 0.@E@@@@007070 77 TOT-BR2 QB )@@G@@ PICTURE 9(12)V99 VALUE 0.@F@@@@007080 77 PREV-JOB-SEQ PIQC )@@G@@CTURE X(8) VALUE SPACES. @@@@@@@E@@@@ 01 LINE-COUNT VQD )@@G@@ALUE ZERO PICTURE 99.@C@@@@ 88 FULL-PAGE VALUE 57 TQE )@@G@@HRU 99. @D@@@@007090 01 HE-TIME PICTURE 9999V99 VALUE ZEROS. QF )@@G@@@D@@@@007105 01 E-PER PICTURE 999V999 VALUE ZEROS. @A@@@@007110QG )@@G@@ 01 INTERMEDIATE-TOTALS. @B@@@@007120 02 N-STROKES PICTURE 9QH )@@G@@(7). @B@@@@007130 02 V-STROKES PICTURE 9(7). @B@@@@007140 0QI )@@G@@2 E-STROKES PICTURE 9(7). @B@@@@007150 02 P-STROKES PICTURE 9QJ )@@G@@(7). @^@@@@ 01 HEAD-LINE. @E@@@@007170 02 FILLER PICQK )@@G@@TURE X(7) VALUE SPACES. @F@@@@007180 02 OPRTR QL )@@G@@ PICTURE X(12) @B@@@@007182 VALUE 'OPERATOR QM )@@G@@ '. @F@@@@007184 02 FILLER PICTURE XQN )@@G@@(28) @E@@@@007186 VALUE 'JOBNAME REC ENTERED '. QO )@@G@@@F@@@@007200 02 PERCNTVER PICTURE X(10) VALUE 'REC VER. '. QP )@@G@@@B@@@@008010 02 FILLER PICTURE X(29) @G@@@@008020 QQ )@@G@@ VALUE '% ERRORS STROKES '. @B@@@@008030 0QR )@@G@@2 FILLER PICTURE X(30) @E@@@@008040 VALUE 'ELAP TIME QS )@@G@@ STROKES/HR '. @E@@@@008050 02 COSTPERREC PICTURE X(11) QT )@@G@@VALUE SPACES. @ @@@@008060 01 SEQUENCE-FIELD. @^@@@@008070 0QU )@@G@@2 SEQ-HOLD.@E@@@@008080 03 OPERATOR-SEQ PICTURE XXX VALUE SQV )@@G@@PACES.@ @@@@008090 03 JOB-SEQ. @F@@@@ 05 JQW )@@G@@OB-SEQ-NO PICTURE 999. @F@@@@ 05 FQX )@@G@@ILLER PICTURE X(5). @#@@@@ 01 LINE-B.@C@@@@QY )@@G@@008310 03 FILLER-1 PICTURE XX. @C@@@@008320 03 OP-QZ )@@G@@ID PICTURE X(15).@C@@@@008330 03 FILLER PIRA )@@G@@CTURE XX. @C@@@@008340 03 JOB-ID PICTURE X(8). @C@@@@RB )@@G@@008350 03 FILLER PICTURE X(7). @F@@@@008360 03 T-ERC )@@G@@NTER PICTURE ZZZZZ9 BLANK WHEN ZERO. @C@@@@008370 03 FILRD )@@G@@LER PICTURE X(7). @F@@@@008380 03 V-PERCNT PICTURE )@@G@@RE ZZ9.99 BLANK WHEN ZERO. @E@@@@008390 03 V-ENTERED REDEFINES V-RF )@@G@@PERCNT PICTURE ZZZZZ9 @F@@@@008400 RG )@@G@@ BLANK WHEN ZERO. @C@@@@008410 03 FILLER PICTURE X(5RH )@@G@@). @F@@@@008420 03 E-PERCNT PICTURE ZZ9.999 BLANK WHEN ZERI )@@G@@RO. @F@@@@008425 03 FILLER PICTURE XRJ )@@G@@(4). @G@@@@008430 03 T-STROKES BLANK WHEN ZERO PICTURE ZRK )@@G@@,ZZZ,ZZ9. @F@@@@008435 03 FILLER PICRL )@@G@@TURE X(7). @F@@@@008440 03 ELAP-TIME PICTURE ZZZ9.99 BLANK WRM )@@G@@HEN ZERO. @F@@@@008450 03 FILLER PICRN )@@G@@TURE X(8). @G@@@@008460 03 HR-STROKES BLANK WHEN ZERO PICRO )@@G@@TURE Z,ZZZ,ZZ9. @F@@@@008470 03 FILLER RP )@@G@@ PICTURE X(12). @F@@@@008480 03 REC-COST RQ )@@G@@ PICTURE $9.999 @B@@@@008485 BLANK WHEN ZERO. @C@@@@RR )@@G@@008490 03 FILLER PICTURE X(7). @[@@@@009010@^@@@@ RS )@@G@@ 01 JOB-FILE. @B@@@@010010 03 JOB-TBL OCCURS 200 TIMES. @^@@@@RT )@@G@@010020 05 JF-JOB. @F@@@@ 10 JF-JOB-3 RU )@@G@@ PICTURE 999. @F@@@@ 10 FILLER RV )@@G@@ PICTURE X(5). @C@@@@010030 05 JF-CO-NO PICTURE RW )@@G@@99. @[@@@@010040@^@@@@ 01 COMPANY-FILE.@B@@@@010060 03 CO-TRX )@@G@@BL OCCURS 99 TIMES. @C@@@@010070 05 CF-CO-NO PICTURE RY )@@G@@99. @C@@@@010080 05 CF-CO-NAME PICTURE X(8). @[@@@@010090RZ )@@G@@@ @@@@ 01 OPERATOR-FILE. @B@@@@010110 03 OF-TBL OCCURS 99SA )@@G@@ TIMES. @C@@@@010120 05 OF-OP-NO PICTURE XXX. @D@@@@SB )@@G@@010130 05 OF-OP-NAME PICTURE X(15). @#@@@@ 01 LSC )@@G@@INE-2.@F@@@@010150 03 FILLER PICTURE X(47) VALUE SPACESSD )@@G@@. @F@@@@010160 03 T-VERIFIED PICTURE ZZZZZ9 BLANK WHEN SE )@@G@@ZERO. @F@@@@010170 03 FILLER PICTURE X(6) VALUE SPACESSF )@@G@@. @D@@@@010180 03 E2-PERCNT PICTURE ZZ9.99. @C@@@@SG )@@G@@010190 03 FILLER PICTURE X(5). @D@@@@010200 03 T2-SSH )@@G@@TROKES PICTURE ZZZZ9.9. @C@@@@011010 03 FILLER SI )@@G@@ PICTURE X(8). @D@@@@011020 03 ELAP2-TIME PICTURE ZZZ9.9SJ )@@G@@9. @C@@@@011030 03 FILLER PICTURE X(9). @D@@@@011040SK )@@G@@ 03 HR2-STROKES PICTURE ZZZ9.99. @C@@@@011050 03 FILLSL )@@G@@ER PICTURE X(26).@[@@@@011060@^@@@@ 01 HEADING-2. SM )@@G@@@F@@@@011080 03 FILLER PICTURE X(69) VALUE SPACES. SN )@@G@@@C@@@@011090 03 FILLER PICTURE X(30) @E@@@@011100 SO )@@G@@ VALUE 'IN 1000NDS '. @C@@@@011110 03 FILSP )@@G@@LER PICTURE X(34) @F@@@@011115 VALUE 'IN 1000SQ )@@G@@NDS '. @[@@@@011120@#@@@@011130 01 TITLE. @E@@@@SR )@@G@@011140 02 FILLER PICTURE X(41) VALUE SPACES. @B@@@@011150SS )@@G@@ 02 T1 PICTURE X(40) @F@@@@011160 VALUE 'OPERATORST )@@G@@ STATISTICS BY OPERATOR & JOB '. @G@@@@011170 02 FILLER PICSU )@@G@@TURE X(21) VALUE 'JOB H1551030 DATE '. @B@@@@011180 02 MOE SV )@@G@@ PICTURE 99. @C@@@@011190 02 FILLER PICTURE X VALUE '/'.SW )@@G@@@B@@@@011200 02 DYE PICTURE 99. @C@@@@012010 02 FILSX )@@G@@LER PICTURE X VALUE '/'.@B@@@@012020 02 YRE PICTURE 9SY )@@G@@9. @^@@@@012030 01 UPSI-AREA. @A@@@@ 02 FILLER PIC X(SZ )@@G@@7). @A@@@@012040 02 UPSI-X PICTURE X. @E@@@@012180 01 JUL-DATTA )@@G@@E PICTURE 9(5) COMPUTATIONAL-3.@B@@@@012190 01 TOTALS COMTB )@@G@@PUTATIONAL-3. @E@@@@012200 02 JKP PICTURE 9(6) VALTC )@@G@@UE ZERO. @E@@@@013010 02 JVR PICTURE 9(6) VALUE ZERTD )@@G@@O. @E@@@@013020 02 JER PICTURE 9(6) VALUE ZERO. TE )@@G@@@D@@@@013030 02 JTE PICTURE 9(6) VALUE ZERO. @D@@@@013040TF )@@G@@ 02 JTV PICTURE 9(6) VALUE ZERO. @E@@@@013050 02 OKPTG )@@G@@ PICTURE 9(6) VALUE ZERO. @E@@@@013060 02 OVR TH )@@G@@ PICTURE 9(6) VALUE ZERO. @D@@@@013070 02 OTE PICTI )@@G@@TURE 9(6) VALUE ZERO. @D@@@@013080 02 OTV PICTURE 9(6) VTJ )@@G@@ALUE ZERO. @E@@@@013090 02 OP-STROKES PICTURE 9(7) VALUE ZERTK )@@G@@O. @E@@@@013100 02 OV-STROKES PICTURE 9(7) VALUE ZERO. TL )@@G@@@E@@@@013110 02 OE-STROKES PICTURE 9(7) VALUE ZERO. @ @@@@TM )@@G@@013120 01 COMPANY-TOTALS. @C@@@@013130 02 C-BUCKETS OCCURS TN )@@G@@99 TIMES. @B@@@@013140 03 CKP PICTURE 9(6). @B@@@@013150TO )@@G@@ 03 CPS PICTURE 9(7). @B@@@@013160 03 CVS PICTP )@@G@@TURE 9(7). @B@@@@013170 03 CES PICTURE 9(7). @B@@@@013180TQ )@@G@@ 03 CTE PICTURE 9(6). @B@@@@013190 03 CTV PICTR )@@G@@TURE 9(6). @C@@@@013200 03 CVR PICTURE 9(6). @E@@@@TS )@@G@@ 01 SWITCH-END-OF-TABLE VALUE ZERO PICTURE 9.@A@@@@ TT )@@G@@ 88 END-OF-TABLE VALUE 1.@]@@@@ / @ @@@@014010 PROCEDURE DTU )@@G@@IVISION. @#@@@@ 000-MAIN. @A@@@@014020 MOVE ZEROES TO UPSITV )@@G@@-AREA.@A@@@@014025 MOVE SPACES TO LINE-B. @F@@@@014030 MOVE ZETW )@@G@@ROS TO COMPANY-TOTALS, INTERMEDIATE-TOTALS. @D@@@@014040 OPEN INTX )@@G@@PUT DISK-JOB, TABLE-FILE, CARD-FILE @A@@@@014050 OUTPUT PRINT-FTY )@@G@@ILE. @ @@@@ READ CARD-FILE @B@@@@ AT END ENTTZ )@@G@@ER FD 'ABORT'. @ @@@@014090 MOVE MO TO MOE. @ @@@@014100 MUA )@@G@@OVE DY TO DYE. @ @@@@014110 MOVE YR TO YRE. @^@@@@014150 100-RUB )@@G@@EAD-CARD. @B@@@@014190 IF CTL-CARD-TYPE NOT = '0' @F@@@@014200UC )@@G@@ DISPLAY 'CONTROL CARD MISSING' UPON PRINT-DEVICE @B@@@@015010UD )@@G@@ GO TO 120-TABLE-BUILD-ABORT. @C@@@@015020 IF CTL-PROG-NAME NOUE )@@G@@T = 'H1551030' @E@@@@015030 DISPLAY 'INVALID PROG. NAME IN COUF )@@G@@NTROL CARD' @A@@@@015040 UPON PRINTER @B@@@@015050 GUG )@@G@@O TO 120-TABLE-BUILD-ABORT. @B@@@@015060 IF CTL-RPT-OPTION NOT = 'UH )@@G@@1' AND@B@@@@015070 CTL-RPT-OPTION NOT = '2' @F@@@@015090 UI )@@G@@ DISPLAY 'INVALID REPORT OPTION' UPON PRINT-DEVICE @B@@@@015100 GUJ )@@G@@O TO 120-TABLE-BUILD-ABORT. @B@@@@015110 IF CTL-CF-X NOT NUUK )@@G@@MERIC @E@@@@015120 DISPLAY 'NON NUMERIC COST FACTOR IN CTL. CARD'UL )@@G@@@ @@@@015130 UPON PRINTER @B@@@@015140 GO TO 120-TABLE-BUIUM )@@G@@LD-ABORT. @C@@@@015150 MOVE CTL-COST-FACTOR TO COST-FACTOR. @B@@@@UN )@@G@@015160 MOVE CTL-RPT-OPTION TO RPT-4. @D@@@@015170 IF CTL-RPT-OPUO )@@G@@TION = '2' MOVE '1' TO UPSI-X.@^@@@@015180 IF UPSI-X = 1@C@@@@015190UP )@@G@@ MOVE '% VER. ' TO PERCNTVER @C@@@@015200 MOVE 'COSUQ )@@G@@T/REC. ' TO COSTPERREC @A@@@@015300 MOVE SPACES TO OPRTR @A@@@@UR )@@G@@016010 MOVE HDG2 TO T1. @A@@@@016020 MOVE SPACES TO LINEUS )@@G@@-A. @A@@@@016040 PERFORM 270-HDG-RTN. @ @@@@016050 110-READ-TAUT )@@G@@BLE-CARDS. @A@@@@016060 READ TABLE-FILE AT END @C@@@@ UU )@@G@@ MOVE 1 TO SWITCH-END-OF-TABLE. @ @@@@ IF TABLE-ID = 'A' UV )@@G@@@B@@@@ GO TO 110-READ-TABLE-CARDS. @ @@@@ IF TABLUW )@@G@@E-ID = 'C' @C@@@@ MOVE 1 TO SWITCH-END-OF-TABLE. @ @@@@UX )@@G@@ IF END-OF-TABLE @ @@@@016070 ADD 1 TO OF-SUB@ @@@@UY )@@G@@016080 ADD 1 TO JF-SUB@ @@@@016090 ADD 1 TO CF-SUB@E@@@@UZ )@@G@@016100 MOVE 'NO ID ' TO OF-OP-NAME (OF-SUB) @C@@@@016110VA )@@G@@ MOVE 'OTHERS' TO JF-JOB (JF-SUB) @D@@@@016120 MOVE 'OTHVB )@@G@@ERS' TO CF-CO-NAME (CF-SUB) @C@@@@016130 MOVE 'ZZZ' TO OF-OP-NVC )@@G@@O (OF-SUB) @C@@@@016140 MOVE 99 TO JF-CO-NO (JF-SUB) @C@@@@VD )@@G@@016150 MOVE 99 TO CF-CO-NO (CF-SUB) @A@@@@016160 CLOVE )@@G@@SE TABLE-FILE @A@@@@016170 GO TO 160-READ-INPUT.@C@@@@016180VF )@@G@@ IF CARD-TYPE LESS THAN PREV-CARD-TYPE@F@@@@016190 DISPLAY 'VG )@@G@@CARD SEQUENCE ERROR' UPON PRINT-DEVICE @E@@@@016200 DISPLAY 'VH )@@G@@PREVIOUS CARD CODE ' PREV-CARD-TYPE@A@@@@017010 UPON PRINT-VI )@@G@@DEVICE@E@@@@017020 DISPLAY 'PRESENT CARD IS ' JOB-FILE-CARDS VJ )@@G@@@A@@@@017030 UPON PRINT-DEVICE@C@@@@017040 GO TOVK )@@G@@ 120-TABLE-BUILD-ABORT. @C@@@@017050 MOVE CARD-TYPE TO PREV-CARD-TYPVL )@@G@@E. @[@@@@017060@ @@@@017070 IF CARD-TYPE = '1' @B@@@@017080 VM )@@G@@ GO TO 130-BUILD-JOB-FILE. @ @@@@017090 IF CARD-TYPE = '2' @B@@@@VN )@@G@@017100 GO TO 140-BUILD-COMPANY-FL.@ @@@@017110 IF CARD-TYPE VO )@@G@@= '3' @C@@@@017120 GO TO 150-BUILD-OPERATOR-FL. @E@@@@017130VP )@@G@@ DISPLAY 'INVALID CARD TYPE ' UPON PRINT-DEVICE. @D@@@@017140 DVQ )@@G@@ISPLAY 'CARD REJECTED' UPON PRINT-DEVICE. @D@@@@017150 DISPLAY JOB-FVR )@@G@@ILE-CARDS UPON PRINT-DEVICE. @A@@@@ ADD 3 TO LINE-COUNT. VS )@@G@@@B@@@@017160 GO TO 110-READ-TABLE-CARDS. @[@@@@017170@ @@@@017180VT )@@G@@ 120-TABLE-BUILD-ABORT. @D@@@@017190 CLOSE DISK-JOB, TABLE-FILE, PRIVU )@@G@@NT-FILE. @^@@@@017200 STOP RUN. @[@@@@018010@ @@@@018020 130-BVV )@@G@@UILD-JOB-FILE. @A@@@@018030 IF JFC-CO-NO NOT NUMERIC @E@@@@018040VW )@@G@@ DISPLAY 'COMPANY NUMBER IS NON MUNERIC ' @G@@@@018050 VX )@@G@@ JOB-FILE-CARDS ' REJECTED' UPON PRINT-DEVICE @ @@@@ VY )@@G@@ ADD 1 TO LINE-COUNT@B@@@@018060 GO TO 110-READ-TABLE-CARDS.VZ )@@G@@@[@@@@018070@B@@@@018080 IF JF-SUB GREATER THAN 199 @B@@@@018090WA )@@G@@ GO TO 110-READ-TABLE-CARDS.@ @@@@018100 ADD 1 TO JF-SUB. WB )@@G@@@D@@@@018110 MOVE JFC-CO-NO-9 TO JF-CO-NO (JF-SUB). @B@@@@ WC )@@G@@ ADD 1 TO JF-CO-NO (JF-SUB). @C@@@@018120 MOVE JFC-JOB TO JF-WD )@@G@@JOB (JF-SUB). @B@@@@018130 GO TO 110-READ-TABLE-CARDS. @[@@@@WE )@@G@@018140@[@@@@018150@ @@@@018160 140-BUILD-COMPANY-FL. @A@@@@018170 IWF )@@G@@F CFC-CO-NO NOT NUMERIC @E@@@@018180 DISPLAY 'COMPANY NUMBER ISWG )@@G@@ NON NUMERIC ' @G@@@@018190 COMPANY-FILE-CARD ' REWH )@@G@@JECTED' UPON PRINTER @A@@@@ ADD 1 TO LINE-COUNT @C@@@@WI )@@G@@018200 GO TO 110-READ-TABLE-CARDS. @A@@@@019010 IF CF-SWJ )@@G@@UB GREATER THAN 98@B@@@@019020 GO TO 110-READ-TABLE-CARDS.@ @@@@WK )@@G@@019030 ADD 1 TO CF-SUB. @D@@@@019040 MOVE CFC-CO-NO-9 TO CF-COWL )@@G@@-NO (CF-SUB). @B@@@@ ADD 1 TO CF-CO-NO (CF-SUB). @D@@@@WM )@@G@@019050 MOVE CFC-CO-NAME TO CF-CO-NAME (CF-SUB). @B@@@@019060 GWN )@@G@@O TO 110-READ-TABLE-CARDS. @[@@@@019070@[@@@@019080@ @@@@019090 150-BWO )@@G@@UILD-OPERATOR-FL. @ @@@@019100 ADD 1 TO OF-SUB. @D@@@@019110 MWP )@@G@@OVE OFC-OPERATOR-NO TO OF-OP-NO (OF-SUB). @E@@@@019120 MOVE OFC-OPERWQ )@@G@@ATOR-NAME TO OF-OP-NAME (OF-SUB). @B@@@@019130 GO TO 110-READ-TABLWR )@@G@@E-CARDS. @^@@@@019140 160-READ-INPUT. @D@@@@019160 READ DISK-JOBWS )@@G@@ AT END GO TO 340-EOJ-RTN. @^@@@@019170 IF FT = 1 @ @@@@019180WT )@@G@@ MOVE ZERO TO FT@B@@@@019200 MOVE JOBNAME-IN TO JOB-SEQ.WU )@@G@@@E@@@@ IF UPSI-X NOT = 1 AND OPID-IN NOT = OPERATOR-SEQ,@A@@@@WV )@@G@@ GO TO 180-OP-TEST. @G@@@@020010 IF JOB-ID-IN IS NOTWW )@@G@@ EQUAL TO JOB-SEQ-NO, GO TO 180-OP-TEST. @^@@@@020060 170-PHASE2. WX )@@G@@@F@@@@020070 IF JOB-ID-IN IS NOT EQUAL TO JOB-SEQ-NO, MOVE SPACES TOWY )@@G@@@^@@@@ LINE-A @E@@@@020080 PERFORM 220-JOB-DUMP WZ )@@G@@THRU 230-CONT-JOBDUMP. @ @@@@020090 ADD KP-IN TO JKP. @ @@@@020100XA )@@G@@ ADD VR-IN TO JVR. @ @@@@020110 ADD ER-IN TO JER. @B@@@@020120XB )@@G@@ ADD VR-STROKE TO V-STROKES. @B@@@@020130 ADD KP-STROKE TO P-XC )@@G@@STROKES. @B@@@@020140 ADD ER-STROKE TO E-STROKES. @E@@@@020150XD )@@G@@ EXAMINE TIMEX-IN REPLACING ALL SPACES BY ZERO. @ @@@@020160 IXE )@@G@@F RECID-IN = 1 @A@@@@020170 ADD TIME-IN TO JTE @^@@@@020180XF )@@G@@ ELSE @A@@@@020190 ADD TIME-IN TO JTV. @A@@@@020200XG )@@G@@ GO TO 160-READ-INPUT. @^@@@@020210 180-OP-TEST. @A@@@@020220XH )@@G@@ MOVE SPACES TO LINE-A. @C@@@@020230 IF UPSI-X = 1, GO TO 190-XI )@@G@@NO-OP-CHG. @E@@@@020240 IF OPID-IN = OPERATOR-SEQ, GO TO 190-NO-OP-XJ )@@G@@CHG. @E@@@@ PERFORM 200-OPERATOR-DUMP THRU 250-END-OP-DUMP XK )@@G@@@ @@@@ PERFORM 270-HDG-RTN@C@@@@ MOVE OPID-IN TOXL )@@G@@ OPERATOR-SEQ @A@@@@ GO TO 170-PHASE2. @^@@@@020310XM )@@G@@ 190-NO-OP-CHG. @D@@@@020320 PERFORM 220-JOB-DUMP THRU 230-CONT-JOXN )@@G@@BDUMP.@ @@@@020330 GO TO 170-PHASE2. @ @@@@020400 200-OPERATOR-DUMPXO )@@G@@. @A@@@@020410 MOVE ZEROES TO OF-SUB. @B@@@@020430 MOVE OPXP )@@G@@ERATOR-SEQ TO OP-ID. @ @@@@020440 210-SEARCH-OPER-TBL. @ @@@@020450XQ )@@G@@ ADD 1 TO OF-SUB. @C@@@@020460 IF OPERATOR-SEQ = OF-OP-NO (OF-XR )@@G@@SUB) @D@@@@020470 MOVE OF-OP-NAME (OF-SUB) TO OP-ID @A@@@@XS )@@G@@ GO TO 220-JOB-DUMP. @C@@@@020490 IF OF-SUB = 99, GO XT )@@G@@TO 220-JOB-D