@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-DUMP. @E@@@@020495 IF OF-OP-NO (OF-SUB) = 'ZZZ', GO TO 2XU )@@G@@20-JOB-DUMP.@B@@@@020500 GO TO 210-SEARCH-OPER-TBL. @^@@@@021010XV )@@G@@ 220-JOB-DUMP. @ @@@@021020 MOVE ZERO TO X1. @A@@@@021030 GXW )@@G@@O TO 280-FACTOR-SEARCH. @^@@@@021040 230-CONT-JOBDUMP.@B@@@@021050 MXX )@@G@@OVE JOB-SEQ-NO TO JOB-ID. @A@@@@021060 MOVE JKP TO T-ENTER. XY )@@G@@@B@@@@021070 ADD P-STROKES TO OP-STROKES. @B@@@@021080 ADD E-SXZ )@@G@@TROKES TO OE-STROKES. @B@@@@021090 ADD V-STROKES TO OV-STROKES. YA )@@G@@@ @@@@021100 IF UPSI-X = '1' @A@@@@021110 ADD JKP TO CKP YB )@@G@@(X2) @A@@@@021120 ADD JVR TO CVR (X2) @B@@@@021130 ADDYC )@@G@@ P-STROKES TO CPS (X2) @B@@@@021140 ADD V-STROKES TO CVS (X2) YD )@@G@@@ @@@@021150 ADD JTE TO CTE (X2)@ @@@@021160 ADD JTV TO CTV (X2)YE )@@G@@@B@@@@021170 ADD E-STROKES TO CES (X2) @#@@@@021180 ELSE YF )@@G@@@B@@@@021190 MOVE JVR TO T-VERIFIED. @B@@@@021200 MOVE P-YG )@@G@@STROKES TO N-STROKES. @ @@@@022010 MOVE JTE TO T-TIME.@D@@@@022020YH )@@G@@ PERFORM 350-CALC-RTN THRU 380-END-COMPUTE. @A@@@@022030 PERFORMYI )@@G@@ 260-WR-DETAIL. @B@@@@022040 MOVE V-STROKES TO N-STROKES. @ @@@@YJ )@@G@@022050 MOVE JTV TO T-TIME.@C@@@@022060 MOVE ZEROES TO T-STROKES,YK )@@G@@ V-PERCNT. @D@@@@022070 PERFORM 350-CALC-RTN THRU 380-END-COMPUTE. YL )@@G@@@D@@@@022080 IF UPSI-X = '1' MOVE JVR TO T-ENTER ELSE @A@@@@022090YM )@@G@@ MOVE JVR TO V-ENTERED@A@@@@022100 MOVE ZEROES TO T-ENTER. YN )@@G@@@B@@@@022110 MOVE SPACES TO JOB-ID, OP-ID. @A@@@@022120 PERFORMYO )@@G@@ 260-WR-DETAIL. @ @@@@022130 ADD JKP TO OKP. @ @@@@022140 AYP )@@G@@DD JTE TO OTE @ @@@@022150 ADD JTV TO OTV @ @@@@022160 AYQ )@@G@@DD JVR TO OVR. @E@@@@022170 MOVE ZEROS TO ELAP-TIME, T-STROKES, EYR )@@G@@-PERCNT @C@@@@022180 JKP, JVR, JER, JTE, JTV. @E@@@@YS )@@G@@022185 MOVE ZEROS TO V-PERCNT, HR-STROKES, REC-COST. @E@@@@022190YT )@@G@@ MOVE ZEROES TO P-STROKES, E-STROKES, V-STROKES. @B@@@@022200 MYU )@@G@@OVE JOBNAME-IN TO JOB-SEQ. @A@@@@022210 MOVE SPACES TO LINE-A. YV )@@G@@@^@@@@ IF FULL-PAGE @A@@@@ PERFORM 270-HDG-RTN. YW )@@G@@@D@@@@022220 WRITE LINE-A AFTER 1 ADD 1 TO LINE-COUNT. @ @@@@023150YX )@@G@@ 240-END-OP-SEARCH. @E@@@@023155 IF UPSI-X = 0, MOVE '****TOTAL*YY )@@G@@***' TO OP-ID. @A@@@@023160 MOVE OKP TO T-ENTER. @ @@@@023170YZ )@@G@@ IF UPSI-X = '0' @B@@@@023180 MOVE OVR TO T-VERIFIED. ZA )@@G@@@B@@@@023190 MOVE OP-STROKES TO P-STROKES. @B@@@@023200 MOVE OEZB )@@G@@-STROKES TO E-STROKES. @B@@@@024010 MOVE OV-STROKES TO V-STROKES. ZC )@@G@@@ @@@@024020 MOVE OKP TO JKP. @B@@@@024030 MOVE P-STROKES TO NZD )@@G@@-STROKES. @ @@@@024040 MOVE OTE TO T-TIME.@D@@@@024050 PERFORMZE )@@G@@ 350-CALC-RTN THRU 380-END-COMPUTE. @A@@@@024060 PERFORM 260-WR-DETAZF )@@G@@IL. @B@@@@024070 MOVE V-STROKES TO N-STROKES. @ @@@@024080 MZG )@@G@@OVE OTV TO T-TIME.@C@@@@024080 MOVE ZEROES TO T-STROKES, V-PERCNT. ZH )@@G@@@D@@@@024100 PERFORM 350-CALC-RTN THRU 380-END-COMPUTE. @D@@@@024110ZI )@@G@@ IF UPSI-X = '1' MOVE OVR TO T-ENTER ELSE @A@@@@024120 MOVE OVZJ )@@G@@R TO V-ENTERED @A@@@@024130 MOVE ZEROES TO T-ENTER. @B@@@@024140ZK )@@G@@ MOVE SPACES TO JOB-ID, OP-ID. @A@@@@024150 PERFORM 260-WR-DETAZL )@@G@@IL. @E@@@@024160 MOVE ZEROS TO ELAP-TIME, T-STROKES, E-PERCNT ZM )@@G@@@E@@@@024170 OP-STROKES, OE-STROKES, OV-STROKES, OVR, @A@@@@ZN )@@G@@024180 OKP, OTE, OTV, JKP. @^@@@@ IF FULL-PAGE @A@@@@ZO )@@G@@ PERFORM 270-HDG-RTN. @E@@@@024190 MOVE ZEROES TO P-STZP )@@G@@ROKES, E-STROKES, V-STROKES. @A@@@@024210 MOVE SPACES TO LINE-A. ZQ )@@G@@@D@@@@024220 WRITE LINE-A AFTER 1 ADD 1 TO LINE-COUNT. @^@@@@ ZR )@@G@@ IF FULL-PAGE @A@@@@ PERFORM 270-HDG-RTN. @@@@@@@@@@@@ZS )@@G@@@^@@@@025000 250-END-OP-DUMP. @@@@@@@#@@@@025010 EXIT. @@@@@@@@@@@@ZT )@@G@@@^@@@@025020 260-WR-DETAIL. @@@@@@@C@@@@025030 WRITE LINE-A FROM LZU )@@G@@INE-B AFTER 1 @A@@@@ ADD 1 TO LINE-COUNT. @^@@@@ ZV )@@G@@ IF FULL-PAGE @A@@@@ PERFORM 270-HDG-RTN. @A@@@@025040ZW )@@G@@ MOVE SPACES TO LINE-A. @A@@@@025045 MOVE SPACES TO LINE-B. ZX )@@G@@@@@@@@@@@@@@@^@@@@025060 270-HDG-RTN. @@@@@@@C@@@@025070 WRITE LZY )@@G@@INE-A FROM TITLE AFTER PAGE. @A@@@@025080 MOVE SPACES TO LINE-A. ZZ )@@G@@@A@@@@ WRITE LINE-A AFTER 1. @C@@@@ WRITE LINE-A AA )@@G@@FROM HEAD-LINE AFTER 1. @A@@@@025110 MOVE SPACES TO LINE-A. @A@@@@AB )@@G@@025120 WRITE LINE-A AFTER 1. @A@@@@ MOVE 7 TO LINE-COUNAC )@@G@@T. @@@@@@@@@@@@@ @@@@025130 280-FACTOR-SEARCH. @@@@@@@^@@@@025140AD )@@G@@ ADD 1 TO X1. @C@@@@025150 IF JOB-SEQ-NO = JF-JOB-3 (X1) OR AE )@@G@@@A@@@@025160 JF-CO-NO (X1) = 99 @B@@@@025170 MOVE JF-CAF )@@G@@O-NO (X1) TO X2 @B@@@@025180 GO TO 230-CONT-JOBDUMP. @A@@@@AG )@@G@@025190 GO TO 280-FACTOR-SEARCH. @@@@@@@@@@@@@^@@@@025200 290-DUMP-COAH )@@G@@. @@@@@@@A@@@@026010 IF CKP (X2) = ZEROES @B@@@@026020 AI )@@G@@ GO TO 320-END-DUMP-CO. @ @@@@026030 MOVE 0 TO CF-SUB. @@@@@@AJ )@@G@@@@@@@@@ @@@@026040 300-COMPANY-SEARCH. @@@@@@@ @@@@026050 ADD 1 TAK )@@G@@O CF-SUB. @F@@@@026060 IF CF-CO-NO (CF-SUB) = X2 OR CF-CO-NO (CF-SAL )@@G@@UB) = 99 @D@@@@026070 MOVE CF-CO-NAME (CF-SUB) TO JOB-ID AM )@@G@@@A@@@@026080 GO TO 310-END-SEARCH.@A@@@@026090 GO TO 300-COMAN )@@G@@PANY-SEARCH.@@@@@@@@@@@@@^@@@@026100 310-END-SEARCH. @@@@@@@A@@@@026110AO )@@G@@ MOVE CKP (X2) TO T-ENTER.@B@@@@026120 MOVE CPS (X2) TO P-STROKEAP )@@G@@S. @B@@@@026130 MOVE CES (X2) TO E-STROKES. @B@@@@026140 MAQ )@@G@@OVE CVS (X2) TO V-STROKES. @A@@@@026150 MOVE CKP (X2) TO JKP. AR )@@G@@@B@@@@026160 MOVE P-STROKES TO N-STROKES. @A@@@@026170 MOVE CTAS )@@G@@E (X2) TO T-TIME. @D@@@@026180 PERFORM 350-CALC-RTN THRU 380-END-COMAT )@@G@@PUTE. @A@@@@026190 PERFORM 260-WR-DETAIL. @B@@@@026200 MOVE V-AU )@@G@@STROKES TO N-STROKES. @A@@@@027010 MOVE CTV (X2) TO T-TIME. @D@@@@AV )@@G@@027020 PERFORM 350-CALC-RTN THRU 380-END-COMPUTE. @E@@@@027030 IAW )@@G@@F UPSI-X = '1' MOVE CVR (X2) TO T-ENTER ELSE @A@@@@027040 MOVE ZEAX )@@G@@ROES TO T-ENTER. @B@@@@027050 MOVE SPACES TO JOB-ID, OP-ID. @A@@@@AY )@@G@@027060 PERFORM 260-WR-DETAIL. @@@@@@@@@@@@@^@@@@027070 320-END-DUMAZ )@@G@@P-CO. @@@@@@@#@@@@ EXIT. @@@@@@@@@@@@@ @@@@027080 330-COMPANYBA )@@G@@-RECAP. @@@@@@@ @@@@027090 MOVE HDG3 TO T1. @A@@@@027100 PBB )@@G@@ERFORM 270-HDG-RTN. @A@@@@027110 MOVE SPACES TO LINE-A. @G@@@@BC )@@G@@027120 PERFORM 290-DUMP-CO THRU 320-END-DUMP-CO VARYING X2 FROM BD )@@G@@@D@@@@027130 1 BY 1 UNTIL X2 IS GREATER THAN 98. @D@@@@027140BE )@@G@@ PERFORM 290-DUMP-CO THRU 320-END-DUMP-CO. @@@@@@@@@@@@@^@@@@027150BF )@@G@@ 340-EOJ-RTN. @@@@@@@ @@@@027160 IF UPSI-X = '1' @E@@@@027170BG )@@G@@ PERFORM 220-JOB-DUMP THRU 230-CONT-JOBDUMP @B@@@@027180 BH )@@G@@ MOVE 'TOTALS' TO OP-ID @F@@@@027190 PERFORM 240-END-OP-SBI )@@G@@EARCH THRU 250-END-OP-DUMP @B@@@@027200 PERFORM 330-COMPANY-RBJ )@@G@@ECAP @F@@@@028010 ELSE MOVE SPACES TO LINE-A PERFORM 260-WR-DETBK )@@G@@AIL @E@@@@ PERFORM 200-OPERATOR-DUMP THRU 250-END-OP-DUMP. BL )@@G@@@B@@@@028030 CLOSE DISK-JOB, PRINT-FILE. @^@@@@028040 STOP RUBM )@@G@@N. @@@@@@@@@@@@@^@@@@028060 350-CALC-RTN. @@@@@@@E@@@@028070 IBN )@@G@@F UPSI-X NOT = '1' GO TO 360-CALC-CONTINUE. @C@@@@028080 IF P-STBO )@@G@@ROKES IS NOT EQUAL TO ZERO @G@@@@028090 COMPUTE V-PERCNT ROUNBP )@@G@@DED = (V-STROKES / P-STROKES) * 100 @ @@@@028100 ELSE NEXT SENTENCE.BQ )@@G@@@@@@@@@@@@@@@ @@@@028110 360-CALC-CONTINUE. @@@@@@@C@@@@028120 IBR )@@G@@F P-STROKES IS NOT EQUAL TO ZERO @G@@@@028130 COMPUTE E-PER RBS )@@G@@OUNDED = (E-STROKES * 100) / P-STROKES, @B@@@@028140 MOVE E-PEBT )@@G@@R TO E-PERCNT. @@@@@@@@@@@@@ @@@@028150 370-COMPUTE-T-STK. @@@@@@BU )@@G@@@D@@@@028170 COMPUTE HE-TIME ROUNDED = T-TIME / 60. @B@@@@028180BV )@@G@@ MOVE N-STROKES TO T-STROKES. @B@@@@028190 MOVE HE-TIME TO ELABW )@@G@@P-TIME. @C@@@@028200 IF HE-TIME IS NOT EQUAL TO ZERO @F@@@@BX )@@G@@029010 COMPUTE HR-STROKES ROUNDED = N-STROKES / HE-TIME. @D@@@@BY )@@G@@029020 IF UPSI-X NOT = '1' GO TO 380-END-COMPUTE. @B@@@@029030 IBZ )@@G@@F JKP IS NOT EQUAL TO ZERO @G@@@@029040 COMPUTE REC-COST ROUNCA )@@G@@DED = (HE-TIME * COST-FACTOR) / JKP.@@@@@@@@@@@@@^@@@@029050 380-END-COMCB )@@G@@PUTE. @@@@@@@#@@@@029060 EXIT. ___ GO TO 11*[S@@@*SDFF*@A@@@@ CC )@@G@@ IDENTIFICATION DIVISION. @ @@@@ PROGRAM-ID. H1551031. @A@@@@CD )@@G@@ AUTHOR. DOUGLAS E. RASGDALE. @D@@@@ INSTALLATION. TX DEPT OCE )@@G@@F HEALTH, AUSTIN, TX. @A@@@@ DATE-WRITTEN. MAY 24, 1979. @^@@@@CF )@@G@@ DATE-COMPILED. @D@@@@ *REMARKS. ASCII ANS-1974 CG )@@G@@ ACOB3R1 @G@@@@ * H1551031 CREATES A DATA ENTRY STATISTICCH )@@G@@S REPORT WITH @G@@@@ * BREAKS ON EITHER OPERATOR-ID OR ACCOUCI )@@G@@NT-NO (AS PER CONTROL @G@@@@ * CARD) FROM THE DE-STAT-SRTD (PRCJ )@@G@@EVIOUSLY SORTED BY EITHER @A@@@@ * OPERATOR OR ACCOUNT). CK )@@G@@@]@@@@ * @]@@@@ * @]@@@@ * @ @@@@ * CCL )@@G@@HANGE 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOL (ACOB4). CM )@@G@@@]@@@@ * @ @@@@ ****** CHANGE LOG ****** @@@@@@@@@@@@@@@@@@CN )@@G@@@ @@@@ ENVIRONMENT DIVISION. @@@@@@@@@@@@@ @@@@ CONFIGURATICO )@@G@@ON SECTION. @@@@@@@ @@@@ COPY COMPUTER-NAMES. @^@@@@ SPECICP )@@G@@AL-NAMES. @ @@@@ COPY DEVICE-NAMES. @ @@@@ INPUT-OUTPUCQ )@@G@@T SECTION. @@@@@@@^@@@@ FILE-CONTROL. @@@@@@@@@@@@@^@@@@ CR )@@G@@ SELECT DE-IN @D@@@@ ASSIGN MASS-STORAGE DE-STAT-SRCS )@@G@@TD. @@@@@@@ @@@@ SELECT DE-REPORT @C@@@@ CT )@@G@@ASSIGN PRINTER DE-STAT-RPT. @@@@@@@ @@@@ SELECT CARD-IN CU )@@G@@@B@@@@ ASSIGN CARD-READER. @@@@@@@@@@@@@^@@@@ CV )@@G@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE SECTION. @@@@@@@#@@@@CW )@@G@@ FD DE-IN @A@@@@ BLOCK CONTAINS 10 RECORDS@B@@@@ CX )@@G@@ LABEL RECORDS ARE STANDARD @A@@@@ RECORDING MODE INTECY )@@G@@RNAL. @@@@@@@#@@@@ 01 DE-REC.@C@@@@ 03 DE-OPR-ID CZ )@@G@@ PIC XXX. @C@@@@ 03 DE-ACNT-NO PIC X(8). DA )@@G@@@C@@@@ 03 DE-P-MODE PIC X(8). @C@@@@ 0DB )@@G@@3 DE-ELAP-TIME PIC X(5). @C@@@@ 03 DE-STROKES DC )@@G@@ PIC X(5). @E@@@@ 03 DE-STROKES-9 REDEFINES DE-STROKES DD )@@G@@PIC 9(5). @C@@@@ 03 DE-RECORDS PIC X(5). @E@@@@DE )@@G@@ 03 DE-RECORDS-9 REDEFINES DE-RECORDS PIC 9(5). @C@@@@ DF )@@G@@ 03 DE-ERRORS PIC XXX. @E@@@@ 03 DE-ERRORS-DG )@@G@@9 REDEFINES DE-ERRORS PIC 999. @E@@@@ 03 FILLER DH )@@G@@ PIC XXX. @@@@@@@^@@@@ FD DE-REPORT @ @@@@DI )@@G@@ REPORT IS DE-RPT @A@@@@ LABEL RECORDS OMITTED. DJ )@@G@@@@@@@@@#@@@@ FD CARD-IN@A@@@@ LABEL RECORDS OMITTED. DK )@@G@@@@@@@@@^@@@@ 01 PARAM-CARD. @C@@@@ 03 SW-PARAM-CD DL )@@G@@ PIC X(8).@C@@@@ 88 PARAM-CD VALUE 'H1551031'. DM )@@G@@@C@@@@ 03 SW-RPT-TYPE PIC X. @B@@@@ DN )@@G@@ 88 OPR-RPT VALUE '1'. @B@@@@ 88 JOB-RPT VALUE '2'DO )@@G@@. @ @@@@ 03 PROCESSING-DATE.@C@@@@ 05 PROCESSDP )@@G@@ING-MM PIC XX. @C@@@@ 05 PROCESSING-YY PICDQ )@@G@@ XX. @D@@@@ 03 FILLER PIC X(67). @@@@@@DR )@@G@@@A@@@@ WORKING-STORAGE SECTION. @@@@@@@G@@@@ 77 F-NAME DS )@@G@@ PIC X(12) VALUE 'DE-STAT-SRTD'. @F@@@@ 77 FDT )@@G@@-RCNT PIC 9(10) COMP VALUE 0. @F@@@@ 77 TDU )@@G@@A-LIMIT PIC 9(10) COMP VALUE 0. @F@@@@ 77 DDV )@@G@@EPT-RUN-ID PIC X(6) VALUE 'H15512'. @F@@@@ 77 DDW )@@G@@EPT-PROGRAM-NO PIC X(8) VALUE 'H1551031'. @C@@@@ 77 DDX )@@G@@EPT-DATE PIC X(8).@C@@@@ 77 DEPT-TIME DY )@@G@@ PIC X(5).@G@@@@ 77 RPT-SELECT PIC X(12)DZ )@@G@@ VALUE 'ACCOUNT-NO'. @F@@@@ 77 OPR-ID-FLD PICEA )@@G@@ X(6) VALUE SPACES. @C@@@@ 77 LAST-ID PICEB )@@G@@ XXX. @C@@@@ 77 LAST-ACNT PIC X(8).@C@@@@ EC )@@G@@ 77 LAST-MODE PIC X(8).@F@@@@ 77 CUR-ID ED )@@G@@ PIC XXX VALUE SPACES. @D@@@@ 77 CUR-ACNT EE )@@G@@ PIC X(8). @C@@@@ 77 CUR-MODE EF )@@G@@ PIC X(8).@E@@@@ 77 ELAPSED-HOURS PIC 9(7)V999 COEG )@@G@@MP. @@@@@@@^@@@@ 01 EDIT-DATE. @C@@@@ 03 MM EH )@@G@@ PIC XX. @E@@@@ 03 FILLER PICEI )@@G@@ X VALUE '/'. @C@@@@ 03 DD PIC XX. EJ )@@G@@@E@@@@ 03 FILLER PIC X VALUE '/'. @C@@@@EK )@@G@@ 03 YY PIC XX. @@@@@@@^@@@@ 01 EEL )@@G@@DIT-TIME. @C@@@@ 03 HRS PIC XX. @E@@@@EM )@@G@@ 03 FILLER PIC X VALUE ':'. @C@@@@ EN )@@G@@ 03 MIN PIC XX. @@@@@@@ @@@@ 01 CUR-DATEO )@@G@@E-TIME. @C@@@@ 03 MM PIC XX. @C@@@@EP )@@G@@ 03 DD PIC XX. @C@@@@ 03 YY EQ )@@G@@ PIC XX. @C@@@@ 03 HRS ER )@@G@@ PIC XX. @C@@@@ 03 MIN PIC XX. @C@@@@ES )@@G@@ 03 SEC PIC XX. @@@@@@@^@@@@ 01 EET )@@G@@LAP-TIME. @C@@@@ 03 HH-X PIC XX. @C@@@@EU )@@G@@ 03 HH-9 REDEFINES HH-X PIC 99. @C@@@@ 03 FILLEV )@@G@@ER PIC X. @C@@@@ 03 MM-X EW )@@G@@ PIC XX. @C@@@@ 03 MM-9 REDEFINES MM-X PIC 99. @@@@@@EX )@@G@@@E@@@@ 01 SW-DE-EOF PIC X VALUE 'N'. @E@@@@EY )@@G@@ 88 DE-EOF VALUE 'Y'. @@@@@@@E@@@@EZ )@@G@@ 01 SW-CARD-EOF PIC X VALUE 'N'. @E@@@@ FA )@@G@@ 88 CARD-EOF VALUE 'Y'. @@@@@@@E@@@@ FB )@@G@@ 01 SW-MODES-MATCH PIC X VALUE 'N'. @E@@@@ 8FC )@@G@@8 MODES-MATCH VALUE 'Y'. @@@@@@@^@@@@ 01 LFD )@@G@@INE-STAGE. @E@@@@ 03 OPR-ID PIC XXX VALUE SFE )@@G@@PACES.@C@@@@ 03 ACNT-NO PIC X(8).@C@@@@ FF )@@G@@ 03 P-MODE PIC X(8).@D@@@@ 03 R-CNT FG )@@G@@ PIC 9(10). @D@@@@ 03 E-CNT FH )@@G@@ PIC 9(10). @D@@@@ 03 E-PCT PIC 9(7)VFI )@@G@@999. @D@@@@ 03 S-CNT PIC 9(10). @D@@@@FJ )@@G@@ 03 ELAP-HRS PIC 9(7)V999. @D@@@@ 0FK )@@G@@3 SPH PIC 9(7)V999. @@@@@@@^@@@@ 01 DETAIL-FL )@@G@@ACCUM.@C@@@@ 03 P-MODE PIC X(8).@D@@@@ FM )@@G@@ 03 R-CNT PIC 9(10) COMP.@D@@@@ 03 E-CNFN )@@G@@T PIC 9(10) COMP.@D@@@@ 03 S-CNT FO )@@G@@ PIC 9(10) COMP.@E@@@@ 03 ELAP-HRS PICFP )@@G@@ 9(7)V999 COMP. @E@@@@ 03 SPH PIC 9(7)VFQ )@@G@@999 COMP. @@@@@@@ @@@@ 01 TOTAL-ACCUMULATORS.@G@@@@ 0FR )@@G@@3 TOTAL-ACCUMS OCCURS 0 TO 50 TIMES DEPENDING ON TA-LIMIT @B@@@@ FS )@@G@@ INDEXED BY P1. @C@@@@ 05 P-MODE FT )@@G@@ PIC X(8).@D@@@@ 05 R-CNT PIC 9(10)FU )@@G@@ COMP.@D@@@@ 05 E-CNT PIC 9(10) COMP.@D@@@@FV )@@G@@ 05 S-CNT PIC 9(10) COMP.@E@@@@ FW )@@G@@ 05 ELAP-HRS PIC 9(7)V999 COMP. @E@@@@ 05 SPFX )@@G@@H PIC 9(7)V999 COMP. @@@@@@@@@@@@@^@@@@ REPORFY )@@G@@T SECTION. @@@@@@@#@@@@ RD DE-RPT @D@@@@ CONTROLS ARE FZ )@@G@@FINAL, OPR-ID OF LINE-STAGE @ @@@@ PAGE LIMIT 66 LINES@A@@@@GA )@@G@@ HEADING 7 @B@@@@ FIRST DEGB )@@G@@TAIL 15 @B@@@@ LAST DETAIL 63. @@@@@@@ @@@@GC )@@G@@ COPY DEPT-HEADER-RW. @ @@@@ 03 LINE PLUS 2. @D@@@@GD )@@G@@ 05 COLUMN 48 PIC X(25) VALUE@C@@@@ GE )@@G@@ 'DATA ENTRY STATISTICS BY '. @G@@@@ 05 COLUMN 73 GF )@@G@@ PIC X(12) SOURCE RPT-SELECT. @ @@@@ 03 LINE PLUS GG )@@G@@1. @G@@@@ 05 COLUMN 63 PIC XX SOURCE PROCESGH )@@G@@SING-MM. @E@@@@ 05 COLUMN 65 PIC XXX VALUE GI )@@G@@'/19'.@G@@@@ 05 COLUMN 68 PIC XX SOURCE PROCESGJ )@@G@@SING-YY. @ @@@@ 03 LINE PLUS 2. @F@@@@ 05 CGK )@@G@@OLUMN 11 PIC X(6) SOURCE OPR-ID-FLD.@F@@@@ 05 CGL )@@G@@OLUMN 23 PIC X(7) VALUE 'ACNT-NO'. @F@@@@ 05 CGM )@@G@@OLUMN 39 PIC X(4) VALUE 'MODE'. @F@@@@ 05 CGN )@@G@@OLUMN 52 PIC X(7) VALUE 'RECORDS'. @F@@@@ 05 CGO )@@G@@OLUMN 69 PIC X(6) VALUE 'ERR %'. @F@@@@ 05 CGP )@@G@@OLUMN 84 PIC X(7) VALUE 'STROKES'. @F@@@@ 05 CGQ )@@G@@OLUMN 100 PIC X(8) VALUE 'ELAP-HRS'.@G@@@@ 05 CGR )@@G@@OLUMN 115 PIC X(10) VALUE 'STROKES/HR'. @@@@@@@ @@@@ GS )@@G@@ 01 RPT-LINE TYPE DE. @ @@@@ 03 LINE PLUS 1. @G@@@@ GT )@@G@@ 05 COLUMN 14 PIC XXX SOURCE OPR-ID OF LINE-STAGE.@G@@@@GU )@@G@@ 05 COLUMN 22 PIC X(8) SOURCE ACNT-NO OF LINE-STAGE.GV )@@G@@@G@@@@ 05 COLUMN 35 PIC X(8) SOURCE P-MODE OF LINE-GW )@@G@@STAGE.@G@@@@ 05 COLUMN 48 PIC Z(9)9 SOURCE R-CNT OFGX )@@G@@ LINE-STAGE.@G@@@@ 05 COLUMN 64 PIC Z(7).999 SOURCE E-PCTGY )@@G@@ OF LINE-STAGE.@G@@@@ 05 COLUMN 80 PIC Z(9)9 SOURCEGZ )@@G@@ S-CNT OF LINE-STAGE.@G@@@@ 05 COLUMN 96 PIC Z(7).999 HA )@@G@@SOURCE ELAP-HRS OF LINE-STAGE.@G@@@@ 05 COLUMN 113 PIC Z(7HB )@@G@@).999 SOURCE SPH OF LINE-STAGE.@@@@@@@A@@@@ 01 NEXT GROUP ISHC )@@G@@ NEXT PAGE @B@@@@ TYPE CF OPR-ID OF LINE-STAGE. @ @@@@ HD )@@G@@ 03 LINE PLUS 1. @C@@@@ 05 COLUMN 1 PIC X VALUE HE )@@G@@' '. @]@@@@ / @ @@@@ PROCEDURE DIVISION. @@@@@@@@@@@@HF )@@G@@@^@@@@ 0000-CONTROL. @@@@@@@B@@@@ PERFORM 0100-HOUSEKHG )@@G@@EEPING. @B@@@@ PERFORM 0110-INITIALIZE-DE-IN. @D@@@@ HH )@@G@@ PERFORM 0120-PROCESS-DE-IN UNTIL DE-EOF. @A@@@@ PERFORMHI )@@G@@ 0130-CLOSING. @^@@@@ STOP RUN. @@@@@@@@@@@@@ @@@@ HJ )@@G@@ 0100-HOUSEKEEPING. @@@@@@@ @@@@ OPEN INPUT DE-IN @ @@@@HK )@@G@@ CARD-IN @A@@@@ OUTPUT DE-REPORT. HL )@@G@@@^@@@@ READ CARD-IN @C@@@@ AT END MOVE 'Y' TO SHM )@@G@@W-CARD-EOF. @^@@@@ IF PARAM-CD @#@@@@ AND @A@@@@HN )@@G@@ (OPR-RPT OR JOB-RPT) @ @@@@ NEXT SENTENCE HO )@@G@@@#@@@@ ELSE @F@@@@ DISPLAY 'H1551031 PARAM-CD MHP )@@G@@ISSING OR INCORRECT' @B@@@@ UPON PRINT-DEVICE HQ )@@G@@@A@@@@ ENTER FD 'ABORT'. @^@@@@ IF OPR-RPT HR )@@G@@@C@@@@ MOVE 'OPERATOR-ID' TO RPT-SELECT @B@@@@ HS )@@G@@ MOVE 'OPR-ID' TO OPR-ID-FLD.@C@@@@ ACCEPT CUR-DATE-TIME FROMHT )@@G@@ DATE-TIME. @C@@@@ MOVE CORR CUR-DATE-TIME TO EDIT-DATE.@C@@@@HU )@@G@@ MOVE CORR CUR-DATE-TIME TO EDIT-TIME.@B@@@@ MOVE EDHV )@@G@@IT-DATE TO DEPT-DATE. @B@@@@ MOVE EDIT-TIME TO DEPT-TIME. HW )@@G@@@ @@@@ INITIATE DE-RPT. @@@@@@@@@@@@@ @@@@ 0110-INITIAHX )@@G@@LIZE-DE-IN. @@@@@@@B@@@@ PERFORM 0200-FETCH-DE-REC. @C@@@@HY )@@G@@ PERFORM 0450-CLEAR-DETAIL-ACCUM. @D@@@@ MOVE CUHZ )@@G@@R-MODE TO P-MODE OF DETAIL-ACCUM. @C@@@@ PERFORM 0460-UPDATEIA )@@G@@-DETAIL-ACCUM. @@@@@@@@@@@@@ @@@@ 0120-PROCESS-DE-IN. @@@@@@IB )@@G@@@A@@@@ MOVE CUR-ID TO LAST-ID. @B@@@@ MOVE CUR-ACNTIC )@@G@@ TO LAST-ACNT. @B@@@@ MOVE CUR-MODE TO LAST-MODE. @B@@@@ID )@@G@@ PERFORM 0200-FETCH-DE-REC. @^@@@@ IF NOT DE-EOFIE )@@G@@@B@@@@ IF CUR-ID NOT = LAST-ID @C@@@@ PIF )@@G@@ERFORM 0210-NEW-ID-OR-DE-EOF @#@@@@ ELSE@C@@@@ IG )@@G@@ IF CUR-ACNT NOT = LAST-ACNT @D@@@@ PERFORM 03IH )@@G@@00-NEW-ACNT-OR-MODE @^@@@@ ELSE @C@@@@ II )@@G@@ IF CUR-MODE NOT = LAST-MODE @D@@@@ PERFORMIJ )@@G@@ 0300-NEW-ACNT-OR-MODE @^@@@@ ELSE@E@@@@ IK )@@G@@ PERFORM 0460-UPDATE-DETAIL-ACCUM @#@@@@ ELSE IL )@@G@@@C@@@@ PERFORM 0210-NEW-ID-OR-DE-EOF. @@@@@@@@@@@@@^@@@@IM )@@G@@ 0130-CLOSING. @@@@@@@ @@@@ TERMINATE DE-RPT. @^@@@@IN )@@G@@ CLOSE DE-IN @^@@@@ CARD-IN@ @@@@ IO )@@G@@ DE-REPORT. @C@@@@ CALL 'LOG-RCNT' USING F-NAME F-RCNT. IP )@@G@@@@@@@@@@@@@@@ @@@@ 0200-FETCH-DE-REC. @@@@@@@^@@@@ RIQ )@@G@@EAD DE-IN @C@@@@ AT END MOVE 'Y' TO SW-DE-EOF. @^@@@@IR )@@G@@ IF NOT DE-EOF@ @@@@ ADD 1 TO F-RCNT @B@@@@ IS )@@G@@ MOVE DE-ACNT-NO TO CUR-ACNT @B@@@@ MOVE DE-P-MODE IT )@@G@@TO CUR-MODE @^@@@@ IF OPR-RPT@B@@@@ MOVE DEIU )@@G@@-OPR-ID TO CUR-ID.@@@@@@@@@@@@@ @@@@ 0210-NEW-ID-OR-DE-EOF. @@@@@@IV )@@G@@@B@@@@ PERFORM 0300-NEW-ACNT-OR-MODE. @B@@@@ PERFORMIW )@@G@@ 0310-GET-TOTAL-SPH @F@@@@ VARYING P1 FROM 1 BY 1 IX )@@G@@UNTIL P1 > TA-LIMIT. @C@@@@ MOVE 'ALL' TO ACNT-NO OF LINE-SIY )@@G@@TAGE. @^@@@@ IF JOB-RPT @C@@@@ MOVE 'TOT' TO OPIZ )@@G@@R-ID OF LINE-STAGE@#@@@@ ELSE @D@@@@ MOVE LAST-JA )@@G@@ID TO OPR-ID OF LINE-STAGE. @B@@@@ PERFORM 0320-PRINT-TOTAL-JB )@@G@@ACCUMS@F@@@@ VARYING P1 FROM 1 BY 1 UNTIL P1 > TA-LIMIJC )@@G@@T. @D@@@@ MOVE CUR-ACNT TO ACNT-NO OF LINE-STAGE. @C@@@@JD )@@G@@ MOVE CUR-ID TO OPR-ID OF LINE-STAGE. @B@@@@ PERFORMJE )@@G@@ 0330-ERASE-TOTAL-ACCUMS@F@@@@ VARYING P1 FROM 1 BY 1 JF )@@G@@UNTIL P1 > TA-LIMIT. @ @@@@ MOVE 0 TO TA-LIMIT.@@@@@@@@@@@@JG )@@G@@@ @@@@ 0300-NEW-ACNT-OR-MODE. @@@@@@@B@@@@ MOVE 'N' TO SJH )@@G@@W-MODES-MATCH. @C@@@@ PERFORM 0400-SEARCH-TOTAL-ACCUMS. JI )@@G@@@ @@@@ IF NOT MODES-MATCH @D@@@@ PERFORM 0410-INSJJ )@@G@@ERT-MODE-IN-TOT-ACCUMS @#@@@@ ELSE @C@@@@ PERFJK )@@G@@ORM 0420-UPDATE-TOTAL-ACCUMS. @B@@@@ PERFORM 0430-GET-DETAIL-SJL )@@G@@PH. @C@@@@ PERFORM 0440-PRINT-DETAIL-ACCUM. @C@@@@ JM )@@G@@ PERFORM 0450-CLEAR-DETAIL-ACCUM. @D@@@@ MOVE CUR-MODEJN )@@G@@ TO P-MODE OF DETAIL-ACCUM. @C@@@@ PERFORM 0460-UPDATE-DETAIJO )@@G@@L-ACCUM. @@@@@@@@@@@@@ @@@@ 0310-GET-TOTAL-SPH. @@@@@@@C@@@@JP )@@G@@ IF S-CNT OF TOTAL-ACCUMS (P1) = 0 @#@@@@ OR JQ )@@G@@@C@@@@ ELAP-HRS OF TOTAL-ACCUMS (P1) = 0 @C@@@@ JR )@@G@@ MOVE 0 TO SPH OF TOTAL-ACCUMS (P1)@#@@@@ ELSE @E@@@@ JS )@@G@@ COMPUTE SPH OF TOTAL-ACCUMS (P1) ROUNDED = @D@@@@ JT )@@G@@ S-CNT OF TOTAL-ACCUMS (P1) / @D@@@@ ELJU )@@G@@AP-HRS OF TOTAL-ACCUMS (P1). @@@@@@@@@@@@@A@@@@ 0320-PRINT-TOTAL-JV )@@G@@ACCUMS. @@@@@@@D@@@@ MOVE CORR TOTAL-ACCUMS (P1) TO LINE-SJW )@@G@@TAGE. @C@@@@ COMPUTE E-PCT OF LINE-STAGE ROUNDED =@G@@@@ JX )@@G@@ (E-CNT OF LINE-STAGE / S-CNT OF LINE-STAGE) * 100.000 @ @@@@JY )@@G@@ GENERATE RPT-LINE. @@@@@@@@@@@@@A@@@@ 0330-ERASE-TOTAL-JZ )@@G@@ACCUMS. @@@@@@@E@@@@ MOVE LOW-VALUE TO P-MODE OF TOTAL-ACKA )@@G@@CUMS (P1). @@@@@@@@@@@@@A@@@@ 0400-SEARCH-TOTAL-ACCUMS. @@@@@@KB )@@G@@@ @@@@ IF TA-LIMIT > 0 @ @@@@ SET P1 TO 1 KC )@@G@@@A@@@@ SEARCH TOTAL-ACCUMS @C@@@@ AT KD )@@G@@END SET P1 TO TA-LIMIT @F@@@@ WHEN P-MODE OF TOTAL-KE )@@G@@ACCUMS (P1) = LAST-MODE @D@@@@ MOVE 'Y' TO SW-MKF )@@G@@ODES-MATCH. @@@@@@@@@@@@@B@@@@ 0410-INSERT-MODE-IN-TOT-ACCUMS. KG )@@G@@@@@@@@@ @@@@ ADD 1 TO TA-LIMIT. @ @@@@ SET P1 TO TA-KH )@@G@@LIMIT.@E@@@@ MOVE CORR DETAIL-ACCUM TO TOTAL-ACCUMS (P1). KI )@@G@@@@@@@@@@@@@@@A@@@@ 0420-UPDATE-TOTAL-ACCUMS. @@@@@@@G@@@@ KJ )@@G@@ ADD R-CNT OF DETAIL-ACCUM TO R-CNT OF TOTAL-ACCUMS (P1). @G@@@@KK )@@G@@ ADD E-CNT OF DETAIL-ACCUM TO E-CNT OF TOTAL-ACCUMS (P1). KL )@@G@@@G@@@@ ADD S-CNT OF DETAIL-ACCUM TO S-CNT OF TOTAL-ACCUMS (P1)KM )@@G@@. @D@@@@ ADD ELAP-HRS OF DETAIL-ACCUM TO ELAP-HRS @F@@@@KN )@@G@@ OF TOTAL-ACCUMS (P1). @@@@@@KO )@@G@@@@@@@@@ @@@@ 0430-GET-DETAIL-SPH. @@@@@@@B@@@@ IF S-CNKP )@@G@@T OF DETAIL-ACCUM = 0 @#@@@@ OR @B@@@@ ELAPKQ )@@G@@-HRS OF DETAIL-ACCUM = 0@C@@@@ MOVE 0 TO SPH OF DETAIL-ACCUKR )@@G@@M @#@@@@ ELSE @D@@@@ COMPUTE SPH OF DETAIL-KS )@@G@@ACCUM ROUNDED = @G@@@@ S-CNT OF DETAIL-ACCUM / ELKT )@@G@@AP-HRS OF DETAIL-ACCUM. @@@@@@@@@@@@@A@@@@ 0440-PRINT-DETAIL-ACCUMKU )@@G@@. @@@@@@@C@@@@ MOVE CORR DETAIL-ACCUM TO LINE-STAGE.@D@@@@KV )@@G@@ MOVE LAST-ACNT TO ACNT-NO OF LINE-STAGE. @C@@@@ MKW )@@G@@OVE LAST-ID TO OPR-ID OF LINE-STAGE.@C@@@@ COMPUTE E-PCT OF LIKX )@@G@@NE-STAGE ROUNDED =@G@@@@ (E-CNT OF LINE-STAGE / S-CNT OFKY )@@G@@ LINE-STAGE) * 100.000 @ @@@@ GENERATE RPT-LINE. @@@@@@@@@@@@KZ )@@G@@@A@@@@ 0450-CLEAR-DETAIL-ACCUM. @@@@@@@C@@@@ MOVE 0 LA )@@G@@TO R-CNT OF DETAIL-ACCUM @C@@@@ E-CNT OF DETLB )@@G@@AIL-ACCUM @C@@@@ S-CNT OF DETAIL-ACCUM @C@@@@LC )@@G@@ ELAP-HRS OF DETAIL-ACCUM @C@@@@ LD )@@G@@ SPH OF DETAIL-ACCUM. @@@@@@@@@@@@@A@@@@ 0460-UPDATE-DETAILE )@@G@@L-ACCUM. @@@@@@@C@@@@ PERFORM 0500-FETCH-ELAPSED-HOURS. LF )@@G@@@F@@@@ ADD ELAPSED-HOURS TO ELAP-HRS OF DETAIL-ACCUM ROUNDED. LG )@@G@@@E@@@@ EXAMINE DE-RECORDS REPLACING ALL ' ' BY '0'. @D@@@@LH )@@G@@ ADD DE-RECORDS-9 TO R-CNT OF DETAIL-ACCUM. @D@@@@ ELI )@@G@@XAMINE DE-ERRORS REPLACING ALL ' ' BY '0'.@D@@@@ ADD DE-ERRORSLJ )@@G@@-9 TO E-CNT OF DETAIL-ACCUM. @E@@@@ EXAMINE DE-STROKES REPLACLK )@@G@@ING ALL ' ' BY '0'. @D@@@@ ADD DE-STROKES-9 TO S-CNT OF DELL )@@G@@TAIL-ACCUM. @@@@@@@@@@@@@A@@@@ 0500-FETCH-ELAPSED-HOURS. @@@@@@LM )@@G@@@B@@@@ MOVE DE-ELAP-TIME TO ELAP-TIME.@ @@@@ IF HH-XLN )@@G@@ NUMERIC @#@@@@ AND @ @@@@ MM-X NUMERIC LO )@@G@@@G@@@@ COMPUTE ELAPSED-HOURS ROUNDED = HH-9 + (MM-9 / 60.00LP )@@G@@0) @#@@@@ ELSE @B@@@@ MOVE 0 TO ELAPSED-HOURLQ )@@G@@S. ___ 05 SPH PIC 9(7)V999 COMP. @@@@@@LR )@@G@@@@@@@@@^@@@@ REPOR*[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONLS )@@G@@. @ @@@@ PROGRAM-ID. H1551035. @A@@@@ AUTHOR. DOUGLAS ELT )@@G@@. RAGSDALE. @D@@@@ INSTALLATION. TX DEPT OF HEALTH, AUSTIN, TX. LU )@@G@@@B@@@@ DATE-WRITTEN. JANUARY 20, 1979. @^@@@@ DATE-COMPILLV )@@G@@ED. @E@@@@ *REMARKS. ASCII ANS-1974 ACOB3R1 LW )@@G@@@G@@@@ * THIS PROGRAM INPUTS RAW DATA-ENTRY STATISTICS ORDERELX )@@G@@D BY @G@@@@ * ACCOUNT NO. AND OUTPUTS THE ESSENTIAL INFORMATIONLY )@@G@@ ON A MORE @F@@@@ * EFFICIENTLY FORMATTED RECORD, AFTER FIRST VLZ )@@G@@ALIDATING @G@@@@ * EACH ACCOUNT NO. AND ADJUSTING THE ACCUMULAMA )@@G@@TED MAN-MINUTES @G@@@@ * FOR EACH ACCOUNT BY A CALCULATED FACTMB )@@G@@OR SUCH THAT THE TOTAL @G@@@@ * ADJUSTED MAN-MINUTES ON THE OUTMC )@@G@@PUT DE FILE IS EQUIVALENT TO @G@@@@ * THE ACTUAL DE MAN-HOURS WMD )@@G@@ORKED DURING THE MONTH BEING PRO- @G@@@@ * CESSED AS PER THE PME )@@G@@ROGRAM CONTROL CARD. A SUMMARY OF EACH @G@@@@ * TRANSACTION BMF )@@G@@Y ACCOUNT NO., AS WELL AS OVERALL SUMMARY INFOR-@C@@@@ * MATION MG )@@G@@IS PROVIDED BY DE-ADJ-RPT. @]@@@@ * @]@@@@ * @ @@@@MH )@@G@@ * CHANGE 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOLMI )@@G@@ (ACOB4). @]@@@@ * @ @@@@ ENVIRONMENT DIVISION. @@@@@@MJ )@@G@@@@@@@@@ @@@@ CONFIGURATION SECTION. @@@@@@@ @@@@ COPY COMPUTMK )@@G@@ER-NAMES. @^@@@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NML )@@G@@AMES. @ @@@@ INPUT-OUTPUT SECTION. @@@@@@@^@@@@ FILE-CONTROMM )@@G@@L. @@@@@@@A@@@@ SELECT OPTIONAL INFRX-IN @D@@@@ MN )@@G@@ ASSIGN MASS-STORAGE DE-STAT-SRTD. @@@@@@@^@@@@ SELECT MO )@@G@@DE-OUT@C@@@@ ASSIGN MASS-STORAGE DE-FILE. @@@@@@@ @@@@MP )@@G@@ SELECT PRINT-FILE @B@@@@ ASSIGN PRINTER DE-MQ )@@G@@RPT. @@@@@@@A@@@@ SELECT VALID-ACNT-FILE @C@@@@ MR )@@G@@ ASSIGN CARD-READER QUIP-CARDS.@@@@@@@ @@@@ SELECT CONTROMS )@@G@@L-CARD@B@@@@ ASSIGN CARD-READER. @@@@@@@@@@@@@@@@@@MT )@@G@@@^@@@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE SECTION. MU )@@G@@@@@@@@@^@@@@ FD INFRX-IN @A@@@@ BLOCK CONTAINS 20 RMV )@@G@@ECORDS@A@@@@ LABEL RECORDS STANDARD @B@@@@ RECORD MW )@@G@@CONTAINS 83 CHARACTERS @A@@@@ RECORDING MODE INTERNAL. @@@@@@MX )@@G@@@^@@@@ 01 INFRX-REC. @^@@@@ 03 JOB-NAME. @C@@@@ MY )@@G@@ 05 ACNT-NO PIC XXX. @D@@@@ 05 FILLER MZ )@@G@@ PIC X(14). @C@@@@ 03 RECS-ENTERED NA )@@G@@ PIC 9(4).@C@@@@ 03 RECS-VERIFIED PIC 9(4).@C@@@@NB )@@G@@ 03 FILLER PIC X(4).@C@@@@ 03 ELAPNC )@@G@@-TIME PIC 999. @C@@@@ 03 KEYSTROKES-ENTERED ND )@@G@@ PIC 9(6).@A@@@@ 88 VERIFIED VALUE 0. @C@@@@ 0NE )@@G@@3 KEYSTROKES-VERIFIED PIC 9(6).@D@@@@ 03 FILLER NF )@@G@@ PIC X(39). @@@@@@@#@@@@ FD DE-OUT @A@@@@ BNG )@@G@@LOCK CONTAINS 8 RECORDS @A@@@@ LABEL RECORDS STANDARD @B@@@@NH )@@G@@ RECORD CONTAINS 54 CHARACTERS @A@@@@ RECORDING MODNI )@@G@@E INTERNAL. @@@@@@@A@@@@ 01 DE-OUT-REC. COPY DE-REC. @@@@@@@ @@@@NJ )@@G@@ FD VALID-ACNT-FILE @A@@@@ LABEL RECORDS OMITTED. NK )@@G@@@@@@@@@^@@@@ 01 VAL-ACNT-REC.@D@@@@ 02 QUIP-COMMAND NL )@@G@@ PIC X(15). @D@@@@ 88 INSERT-CMD VALUE 'INSERT NM )@@G@@ACCOUNT '. @D@@@@ 02 QUIP-ACCNT PIC X(12). NN )@@G@@@D@@@@ 02 FILLER PIC X(53). @@@@@@@^@@@@NO )@@G@@ FD CONTROL-CARD @A@@@@ LABEL RECORDS OMITTED. @@@@@@NP )@@G@@@^@@@@ 01 CONTROL-REC. @C@@@@ 02 CONTROL-CD NQ )@@G@@ PIC X(8).@C@@@@ 88 PARAM-CD VALUE 'H1551035'. @C@@@@NR )@@G@@ 02 FILE-SW PIC X. @A@@@@ 88 INS )@@G@@NFRX VALUE '1'. @A@@@@ 88 CADE VALUE '0'. @ @@@@ NT )@@G@@ 02 PROCESS-DATE. @C@@@@ 03 MM PICNU )@@G@@ 99. @C@@@@ 03 DD PIC 99. @C@@@@ NV )@@G@@ 03 YY PIC 99. @C@@@@ 02 ACTUAL-HOUNW )@@G@@RS-X PIC X(5).@D@@@@ 02 ACTUAL-HOURS REDEFINES ACTUANX )@@G@@L-HOURS-X @D@@@@ PIC 9999V9. NY )@@G@@@D@@@@ 02 FILLER PIC X(60). @@@@@@@^@@@@NZ )@@G@@ FD PRINT-FILE @A@@@@ REPORT IS DE-ADJ-RPT @A@@@@OA )@@G@@ LABEL RECORDS OMITTED. @]@@@@ / @A@@@@ WORKIOB )@@G@@NG-STORAGE SECTION. @@@@@@@F@@@@ 77 REJECT-MIN OC )@@G@@ PIC 9(5) VALUE 0 COMP.@F@@@@ 77 ACCEPT-RAW-MIN OD )@@G@@ PIC 9(5) VALUE 0 COMP.@G@@@@ 77 ACCEPT-ADJ-MIN OE )@@G@@ PIC 9(5)V999 VALUE 0 COMP. @F@@@@ 77 TOT-ACNTS-IN OF )@@G@@ PIC 9(4) VALUE 0 COMP.@F@@@@ 77 TOT-REJ-RAW-MIN OG )@@G@@ PIC 9(7) VALUE 0 COMP.@F@@@@ 77 TOT-ACP-RAW-MIN OH )@@G@@ PIC 9(7) VALUE 0 COMP.@F@@@@ 77 TOT-REJECTS OI )@@G@@ PIC 9(4) VALUE 0 COMP.@F@@@@ 77 TOT-ACCEPTS OJ )@@G@@ PIC 9(4) VALUE 0 COMP.@F@@@@ 77 TOT-RAW-MIN OK )@@G@@ PIC 9(7) VALUE 0 COMP.@G@@@@ 77 TOT-ACP-ADJ-MIN OL )@@G@@ PIC 9(7)V999 VALUE 0 COMP. @F@@@@ 77 ADJ-FAC OM )@@G@@ PIC 9V999 COMP.@G@@@@ 77 DEPT-RUN-ID ON )@@G@@ PIC X(6) VALUE 'H15512'. @G@@@@ 77 DEPT-PROO )@@G@@OGRAM-NO PIC X(8) VALUE 'H1551035'. @F@@@@ 77 DOP )@@G@@EPT-TIME PIC X(5) VALUE SPACES.@F@@@@ 77 QOQ )@@G@@UIP-CNT PIC 9(5) VALUE 0 COMP.@G@@@@ 77 HOR )@@G@@OLD-ACCNT PIC X(12) VALUE SPACES. @E@@@@ OS )@@G@@ 77 TOT-ADJ-HOURS PIC 9(5)V9 COMP.@E@@@@ 77 COT )@@G@@H-A PIC 9 VALUE 0. @@@@@@@D@@@@ 01 SOU )@@G@@W-INPUT-EOF PIC X VALUE 'N'. @D@@@@ 88 INPUT-EOF OV )@@G@@ VALUE 'Y'. @D@@@@ 01 SW-XTABLE-END PIOW )@@G@@C X VALUE 'N'. @D@@@@ 88 XTABLE-END VALUE 'YOX )@@G@@'. @D@@@@ 01 SW-CC-EOF PIC X VALUE 'N'. @D@@@@OY )@@G@@ 88 CC-EOF VALUE 'Y'. @D@@@@ 01 SOZ )@@G@@W-VALID-ACNT-EOF PIC X VALUE 'N'. @D@@@@ 88 VALID-ACNTPA )@@G@@-EOF VALUE 'Y'. @D@@@@ 01 SW-ACNTS-MATCH PIPB )@@G@@C X VALUE 'N'. @D@@@@ 88 ACNTS-MATCH VALUE 'YPC )@@G@@'. @@@@@@@F@@@@ 01 A-NAME PIC X(12) VALUE 'QUIPD )@@G@@P-CARDS'. @E@@@@ 01 A-CNT PIC 9(10) COMP VALUPE )@@G@@E 0. @@@@@@@F@@@@ 01 IN-NAME PIC X(12) VALUE 'DE-PF )@@G@@STAT-SRTD'. @E@@@@ 01 IN-CNT PIC 9(10) COMP VALUPG )@@G@@E 0. @@@@@@@E@@@@ 01 OUT-NAME PIC X(12) VALUE 'DE-PH )@@G@@FILE'.@E@@@@ 01 OUT-CNT PIC 9(10) COMP VALUE 0. PI )@@G@@@@@@@@@^@@@@ 01 DEPT-DATE. @C@@@@ 03 MM PJ )@@G@@ PIC XX. @E@@@@ 03 FILLER PIC X VAPK )@@G@@LUE '-'. @C@@@@ 03 DD PIC XX. @E@@@@PL )@@G@@ 03 FILLER PIC X VALUE '-'. @C@@@@ PM )@@G@@ 03 YY PIC XX. @@@@@@@^@@@@ 01 CUR-DATPN )@@G@@E. @C@@@@ 03 YY PIC XX. @C@@@@ PO )@@G@@ 03 MM PIC XX. @C@@@@ 03 DD PP )@@G@@ PIC XX. @@@@@@@ @@@@ 01 INPUT-ACNT DISP-1. @E@@@@PQ )@@G@@ 02 FLD-1 PIC X VALUE 'H'. @C@@@@ PR )@@G@@ 02 FLD-2 PIC XXX. @F@@@@ 02 FILLER PS )@@G@@ PIC X(8) VALUE SPACES. @@@@@@@^@@@@ 01 QUIP-TAPT )@@G@@BLE. @F@@@@ 02 XTABLE OCCURS 001 TO 999 TIMES DEPENDING ON QUPU )@@G@@IP-CNT@A@@@@ ASCENDING KEY IS XACNT@ @@@@ INDEPV )@@G@@XED BY P1. @C@@@@ 05 XACNT DISP-1. @C@@@@PW )@@G@@ 07 XACNT-1 PIC X. @C@@@@ 0PX )@@G@@7 XACNT-3 PIC XXX. @C@@@@ 07 XACNT-8 PY )@@G@@ PIC X(8).@E@@@@ 05 E-RECS PIC 9(5) COMP-4PZ )@@G@@. @E@@@@ 05 V-RECS PIC 9(5) COMP-4. QA )@@G@@@E@@@@ 05 E-STROKES PIC 9(5) COMP-4. @E@@@@QB )@@G@@ 05 V-STROKES PIC 9(5) COMP-4. @E@@@@ QC )@@G@@ 05 E-TIME PIC 9(5) COMP-4. @E@@@@ QD )@@G@@ 05 V-TIME PIC 9(5) COMP-4. @]@@@@ / @^@@@@QE )@@G@@ REPORT SECTION. @@@@@@@^@@@@ RD DE-ADJ-RPT @A@@@@ QF )@@G@@ CONTROLS ARE FINAL, CH-A @A@@@@ PAGE LIMIT IS 66 LINES QG )@@G@@@ @@@@ HEADING 7 @A@@@@ FIRST DETAIL 1QH )@@G@@5 @A@@@@ LAST DETAIL 63. @@@@@@@ @@@@ COPY QI )@@G@@DEPT-HEADER-RW. @ @@@@ 03 LINE PLUS 2. @D@@@@ QJ )@@G@@ 05 COLUMN 53 PIC X(22) VALUE @B@@@@ 'DATA EQK )@@G@@NTRY REPORT FOR '.@G@@@@ 05 COLUMN 75 PIC XX SOURQL )@@G@@CE MM OF PROCESS-DATE. @D@@@@ 05 COLUMN 77 PIC X QM )@@G@@ VALUE '/'.@G@@@@ 05 COLUMN 78 PIC XX SOURCE YY QN )@@G@@OF PROCESS-DATE. @@@@@@@ @@@@ 01 TYPE CH FINAL. @^@@@@ QO )@@G@@ 02 LINE 15. @D@@@@ 03 COLUMN 53 PIC X(17) VALUQP )@@G@@E @B@@@@ ' RECORDS REJECTED'. @ @@@@ 0QQ )@@G@@2 LINE PLUS 2. @D@@@@ 03 COLUMN 49 PIC X(10) VALUQR )@@G@@E @ @@@@ 'ACCOUNT-NO'.@D@@@@ 03 COLUMN QS )@@G@@65 PIC X(7) VALUE @ @@@@ 'RAW-MIN'. @@@@@@QT )@@G@@@ @@@@ 01 DE-REJECT TYPE DE. @ @@@@ 02 LINE PLUS 2. QU )@@G@@@G@@@@ 03 COLUMN 49 PIC X(12) SOURCE ACNT-NO OF JOB-QV )@@G@@NAME. @F@@@@ 03 COLUMN 67 PIC Z(5) SOURCE REJECT-MIQW )@@G@@N. @@@@@@@^@@@@ 01 TYPE CF CH-A.@^@@@@ 02 LINE 15. QX )@@G@@@D@@@@ 03 COLUMN 53 PIC X(17) VALUE @B@@@@ QY )@@G@@ ' RECORDS ACCEPTED'. @ @@@@ 02 LINE PLUS 2. QZ )@@G@@@D@@@@ 03 COLUMN 39 PIC X(10) VALUE @ @@@@ RA )@@G@@ 'ACCOUNT-NO'.@D@@@@ 03 COLUMN 55 PIC X(7)RB )@@G@@ VALUE @ @@@@ 'RAW-MIN'. @D@@@@ 03 CRC )@@G@@OLUMN 72 PIC X(7) VALUE @ @@@@ 'ADJ-MIN'. RD )@@G@@@@@@@@@ @@@@ 01 DE-ACCEPT TYPE DE. @ @@@@ 02 LINE PLUS RE )@@G@@2. @F@@@@ 03 COLUMN 39 PIC X(12) SOURCE HOLD-ACCNRF )@@G@@T. @F@@@@ 03 COLUMN 55 PIC Z(7) SOURCE ACCEPT-RARG )@@G@@W-MIN.@F@@@@ 03 COLUMN 70 PIC Z(4)9.999 SOURCE ACCEPT-ADJRH )@@G@@-MIN. @@@@@@@ @@@@ 01 TYPE CF FINAL. @A@@@@ 02 LINERI )@@G@@ 15 ON NEXT PAGE. @E@@@@ 03 COLUMN 58 PIC X(6) VALUERJ )@@G@@ 'TOTALS'. @ @@@@ 02 LINE PLUS 4. @F@@@@ 03 CRK )@@G@@OLUMN 40 PIC X(14) VALUE ' RECORD GROUP'.@E@@@@ 03 CRL )@@G@@OLUMN 61 PIC XXX VALUE 'NO.'. @E@@@@ 03 COLUMN RM )@@G@@70 PIC X(7) VALUE 'RAW-MIN'.@E@@@@ 03 COLUMN 84 RN )@@G@@ PIC X(7) VALUE 'ADJ-MIN'.@ @@@@ 02 LINE PLUS 3. @E@@@@RO )@@G@@ 03 COLUMN 45 PIC XXX VALUE 'ALL'. @F@@@@ RP )@@G@@ 03 COLUMN 60 PIC Z(3)9 SOURCE TOT-ACNTS-IN. @F@@@@ RQ )@@G@@ 03 COLUMN 70 PIC Z(6)9 SOURCE TOT-RAW-MIN. @ @@@@ RR )@@G@@ 02 LINE PLUS 2. @F@@@@ 03 COLUMN 43 PIC X(8)RS )@@G@@ VALUE 'REJECTED'. @F@@@@ 03 COLUMN 60 PIC ZZZ9RT )@@G@@ SOURCE TOT-REJECTS. @G@@@@ 03 COLUMN 70 PIC Z(6)RU )@@G@@9 SOURCE TOT-REJ-RAW-MIN. @ @@@@ 02 LINE PLUS 2. @F@@@@RV )@@G@@ 03 COLUMN 43 PIC X(8) VALUE 'ACCEPTED'. @F@@@@RW )@@G@@ 03 COLUMN 60 PIC ZZZ9 SOURCE TOT-ACCEPTS. @G@@@@RX )@@G@@ 03 COLUMN 70 PIC Z(6)9 SOURCE TOT-ACP-RAW-MIN. RY )@@G@@@G@@@@ 03 COLUMN 80 PIC Z(6)9.999 SOURCE TOT-ACP-ADJ-MINRZ )@@G@@. @ @@@@ 02 LINE PLUS 4. @D@@@@ 03 COLUMN SA )@@G@@20 PIC X(20) VALUE @B@@@@ 'ADJUSTMENT FACTOR SB )@@G@@= '. @E@@@@ 03 COLUMN 40 PIC 9.999 SOURCE ADJ-FAC. SC )@@G@@@ @@@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN 20 SD )@@G@@ PIC X(48) VALUE @G@@@@ 'ACTUAL MAN-HOURS WORKED SE )@@G@@(AS PER CONTROL CARD) = '. @F@@@@ 03 COLUMN 68 PISF )@@G@@C 9999.9 SOURCE ACTUAL-HOURS. @ @@@@ 02 LINE PLUS 2. @D@@@@SG )@@G@@ 03 COLUMN 20 PIC X(32) VALUE @D@@@@ SH )@@G@@ 'TOTAL ADJUSTED MAN-MINUTES OF: '. @G@@@@ 03 COLUMN SI )@@G@@52 PIC Z(6)9.999 SOURCE TOT-ACP-ADJ-MIN. @D@@@@ 03 CSJ )@@G@@OLUMN 63 PIC X(19) VALUE @B@@@@ ' IS EQUIVALESK )@@G@@NT TO: '. @G@@@@ 03 COLUMN 82 PIC Z(5)9.9 SOURCE SL )@@G@@TOT-ADJ-HOURS. @F@@@@ 03 COLUMN 90 PIC X(10) VALUSM )@@G@@E ' MAN-HOURS'. @]@@@@ / @ @@@@ PROCEDURE DIVISION. SN )@@G@@@@@@@@@@@@@@@^@@@@ 000-CONTROL. @@@@@@@A@@@@ PERFORMSO )@@G@@ 100-HOUSEKEEPING.@E@@@@ PERFORM 110-BUILD-XTABLE UNTIL VALID-SP )@@G@@ACNT-EOF. @A@@@@ INITIATE DE-ADJ-RPT. @E@@@@ PSQ )@@G@@ERFORM 120-COLLECT-DE-TIME UNTIL INPUT-EOF. @C@@@@ PERFORMSR )@@G@@ 130-FETCH-ADJUSTMENT-FACTOR. @D@@@@ PERFORM 140-CREATE-OUTPUTSS )@@G@@ UNTIL XTABLE-END.@A@@@@ PERFORM 150-CLOSE-UP. @^@@@@ ST )@@G@@ STOP RUN. @@@@@@@@@@@@@^@@@@ 100-HOUSEKEEPING.@@@@@@@ @@@@SU )@@G@@ OPEN OUTPUT DE-OUT @A@@@@ PRINT-FILE SV )@@G@@@B@@@@ INPUT VALID-ACNT-FILE @A@@@@ SW )@@G@@ CONTROL-CARD. @ @@@@ READ CONTROL-CARD @C@@@@ SX )@@G@@ AT END MOVE 'Y' TO SW-CC-EOF. @ @@@@ IF NOT PARAM-CD SY )@@G@@@F@@@@ DISPLAY 'CONTROL CARD MISSING' UPON PRINT-DEVICE SZ )@@G@@@ @@@@ ENTER FD 'ABORT'@#@@@@ ELSE @D@@@@ TA )@@G@@ DISPLAY CONTROL-REC UPON PRINT-DEVICE. @^@@@@ IF INFRTB )@@G@@X @A@@@@ OPEN INPUT INFRX-IN. @B@@@@ ACCEPT TC )@@G@@CUR-DATE FROM DATE. @C@@@@ MOVE CORR CUR-DATE TO DEPT-DATETD )@@G@@. @^@@@@ SET P1 TO 1. @B@@@@ MOVE LOW-VALUES TO TE )@@G@@HOLD-ACCNT. @@@@@@@@@@@@@^@@@@ 110-BUILD-XTABLE.@@@@@@@A@@@@ TF )@@G@@ READ VALID-ACNT-FILE @D@@@@ AT END MOVE 'Y' TO STG )@@G@@W-VALID-ACNT-EOF. @A@@@@ IF NOT VALID-ACNT-EOF @ @@@@ TH )@@G@@ ADD 1 TO A-CNT @ @@@@ IF INSERT-CMD @C@@@@ TI )@@G@@ PERFORM 200-CHECK-ACNT-SEQ @B@@@@ PERFORMTJ )@@G@@ 210-STORE-ACNT @#@@@@ ELSE@F@@@@ DISPLAYTK )@@G@@ 'ILLEGAL QUIP COMMAND IN QUIP-CARDS: ' @E@@@@ TL )@@G@@ VAL-ACNT-REC UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABOTM )@@G@@RT'. @@@@@@@@@@@@@ @@@@ 120-COLLECT-DE-TIME. @@@@@@@^@@@@ TN )@@G@@ READ INFRX-IN@C@@@@ AT END MOVE 'Y' TO SW-INPUT-EOF.TO )@@G@@@ @@@@ IF NOT INPUT-EOF @ @@@@ ADD 1 TO IN-CNT TP )@@G@@@C@@@@ IF ACNT-NO OF JOB-NAME = 'PRO' @D@@@@ TQ )@@G@@ MOVE '150' TO FLD-2 OF INPUT-ACNT @#@@@@ ELSE@F@@@@TR )@@G@@ MOVE ACNT-NO OF JOB-NAME TO FLD-2 OF INPUT-ACNT. @ @@@@TS )@@G@@ IF NOT INPUT-EOF @A@@@@ ADD 1 TO TOT-ACNTS-IN TT )@@G@@@B@@@@ ADD ELAP-TIME TO TOT-RAW-MIN@ @@@@ MOVETU )@@G@@ 'N' TO @B@@@@ SW-ACNTS-MATCH @B@@@@ TV )@@G@@ PERFORM 220-SEARCH-TABLE @ @@@@ IF ACNTS-MATCH TW )@@G@@@B@@@@ PERFORM 230-ACCEPT-ACNT @#@@@@ ELSETX )@@G@@@B@@@@ PERFORM 240-REJECT-ACNT @#@@@@ ELSE TY )@@G@@@ @@@@ SET P1 TO 1 @ @@@@ MOVE 1 TO CH-A TZ )@@G@@@B@@@@ MOVE 'N' TO SW-XTABLE-END. @@@@@@@@@@@@@A@@@@ UA )@@G@@ 130-FETCH-ADJUSTMENT-FACTOR. @@@@@@@B@@@@ IF ACTUAL-HOURS-X IUB )@@G@@S NUMERIC @A@@@@ IF ACTUAL-HOURS > 0 @B@@@@ UC )@@G@@ COMPUTE ADJ-FAC ROUNDED =@F@@@@ (ACTUAL-HOURS * UD )@@G@@60.0) / (TOT-ACP-RAW-MIN) @#@@@@ ELSE@B@@@@ UE )@@G@@ MOVE 1.000 TO ADJ-FAC @#@@@@ ELSE @A@@@@ UF )@@G@@ MOVE 1.000 TO ADJ-FAC.@@@@@@@@@@@@@ @@@@ 140-CREATE-OUTPUT. UG )@@G@@@@@@@@@ @@@@ IF E-TIME (P1) > 0 @#@@@@ OR @ @@@@UH )@@G@@ V-TIME (P1) > 0 @C@@@@ PERFORM 250-OUTPUT-VALUI )@@G@@ID-ACNT. @ @@@@ SET P1 UP BY 1. @ @@@@ IF P1 >UJ )@@G@@ QUIP-CNT @B@@@@ MOVE 'Y' TO SW-XTABLE-END. @@@@@@@@@@@@UK )@@G@@@^@@@@ 150-CLOSE-UP. @@@@@@@F@@@@ COMPUTE TOT-ADJ-HOUUL )@@G@@RS ROUNDED = TOT-ACP-ADJ-MIN / 60.0.@A@@@@ TERMINATE DE-ADJ-RPUM )@@G@@T. @^@@@@ CLOSE DE-OUT @ @@@@ PRINT-FILE UN )@@G@@@A@@@@ VALID-ACNT-FILE @ @@@@ CONTROLUO )@@G@@-CARD.@^@@@@ IF INFRX @ @@@@ CLOSE INFRX-IN. UP )@@G@@@C@@@@ CALL 'LOG-RCNT' USING A-NAME A-CNT. @^@@@@ IUQ )@@G@@F INFRX @D@@@@ CALL 'LOG-RCNT' USING IN-NAME IN-CNT. UR )@@G@@@D@@@@ CALL 'LOG-WCNT' USING OUT-NAME OUT-CNT. @@@@@@@@@@@@US )@@G@@@ @@@@ 200-CHECK-ACNT-SEQ. @@@@@@@B@@@@ IF QUIP-ACCNTUT )@@G@@ > HOLD-ACCNT @C@@@@ MOVE QUIP-ACCNT TO HOLD-ACCNT UU )@@G@@@#@@@@ ELSE @F@@@@ DISPLAY 'ACCOUNT-NO ' QUIP-AUV )@@G@@CCNT ' OUT OF SEQUENCE' @A@@@@ ENTER FD 'ABORT'. @@@@@@UW )@@G@@@@@@@@@^@@@@ 210-STORE-ACNT. @@@@@@@ @@@@ ADD 1 TO QUIPUX )@@G@@-CNT. @B@@@@ MOVE QUIP-ACCNT TO XACNT (P1). @A@@@@ MUY )@@G@@OVE 0 TO E-RECS (P1) @A@@@@ V-RECS (P1) @A@@@@UZ )@@G@@ E-STROKES (P1) @A@@@@ V-STROKESVA )@@G@@ (P1) @A@@@@ E-TIME (P1) @A@@@@ VB )@@G@@ V-TIME (P1). @ @@@@ SET P1 UP BY 1. @@@@@@@@@@@@@^@@@@VC )@@G@@ 220-SEARCH-TABLE.@@@@@@@^@@@@ SET P1 TO 1. @^@@@@ VD )@@G@@ SEARCH XTABLE@D@@@@ AT END MOVE 'Y' TO SW-XTABLE-EVE )@@G@@ND @B@@@@ WHEN INPUT-ACNT = XACNT (P1) @C@@@@ VF )@@G@@ MOVE 'Y' TO SW-ACNTS-MATCH. @@@@@@@@@@@@@^@@@@ 230-ACCEPT-VG )@@G@@ACNT. @@@@@@@^@@@@ IF VERIFIED @C@@@@ ADD RECS-VVH )@@G@@ERIFIED TO V-RECS (P1) @E@@@@ ADD KEYSTROKES-VERIFIED TO VVI )@@G@@-STROKES (P1) @B@@@@ ADD ELAP-TIME TO V-TIME (P1)@#@@@@VJ )@@G@@ ELSE @C@@@@ ADD RECS-ENTERED TO E-RECS (P1) VK )@@G@@@D@@@@ ADD KEYSTROKES-ENTERED TO E-STROKES (P1)@C@@@@ VL )@@G@@ ADD ELAP-TIME TO E-TIME (P1). @A@@@@ ADD 1 TO TOT-VM )@@G@@ACCEPTS. @C@@@@ ADD ELAP-TIME TO TOT-ACP-RAW-MIN. @@@@@@VN )@@G@@@@@@@@@^@@@@ 240-REJECT-ACNT. @@@@@@@A@@@@ ADD 1 TO TOT-VO )@@G@@REJECTS. @C@@@@ ADD ELAP-TIME TO TOT-REJ-RAW-MIN. @B@@@@VP )@@G@@ MOVE ELAP-TIME TO REJECT-MIN. @ @@@@ GENERATE DE-RVQ )@@G@@EJECT.@@@@@@@@@@@@@ @@@@ 250-OUTPUT-VALID-ACNT. @@@@@@@ @@@@ VR )@@G@@ IF E-TIME (P1) > 0 @#@@@@ OR @ @@@@ V-TIVS )@@G@@ME (P1) > 0 @B@@@@ PERFORM 300-BUILD-DE-REC @F@@@@ VT )@@G@@ COMPUTE ACCEPT-RAW-MIN = E-TIME (P1) + V-TIME (P1) @C@@@@ VU )@@G@@ COMPUTE ACCEPT-ADJ-MIN ROUNDED = @D@@@@ DEVV )@@G@@-ENTRY-MIN + DE-VERIFY-MIN @C@@@@ COMPUTE TOT-ACP-ADJ-MIVW )@@G@@N ROUNDED = @D@@@@ TOT-ACP-ADJ-MIN + ACCEPT-ADJ-MINVX )@@G@@@ @@@@ WRITE DE-OUT-REC@ @@@@ ADD 1 TO OUT-CNTVY )@@G@@@C@@@@ MOVE XACNT (P1) TO HOLD-ACCNT @A@@@@ VZ )@@G@@ GENERATE DE-ACCEPT. @@@@@@@@@@@@@^@@@@ 300-BUILD-DE-REC.@@@@@@WA )@@G@@@B@@@@ MOVE XACNT (P1) TO DE-ACNT-NO. @C@@@@ MOVE E-WB )@@G@@RECS (P1) TO DE-RECS-ENTERED. @C@@@@ MOVE V-RECS (P1) TO DE-REWC )@@G@@CS-VERIFIED.@D@@@@ MOVE E-STROKES (P1) TO DE-ENTRY-STROKES. WD )@@G@@@D@@@@ MOVE V-STROKES (P1) TO DE-VERIFY-STROKES. @ @@@@ WE )@@G@@ IF E-TIME (P1) > 0 @C@@@@ COMPUTE DE-ENTRY-MIN ROUNDEDWF )@@G@@ = @C@@@@ E-TIME (P1) * ADJ-FAC @#@@@@ WG )@@G@@ ELSE @B@@@@ MOVE 0 TO DE-ENTRY-MIN. @ @@@@ WH )@@G@@ IF V-TIME (P1) > 0 @C@@@@ COMPUTE DE-VERIFY-MIN ROUNDEWI )@@G@@D = @C@@@@ V-TIME (P1) * ADJ-FAC @#@@@@ WJ )@@G@@ ELSE @B@@@@ MOVE 0 TO DE-VERIFY-MIN. ___ACC@D@@@@WK )@@G@@ MOVE E-STROKES (P1) TO DE-ENTRY-STROKES. @D@@@@ MWL )@@G@@OVE V-STROKES (P1) TO DE*[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONWM )@@G@@. @ @@@@ PROGRAM-ID. H1551036. @A@@@@ AUTHOR. DOUGLAS EWN )@@G@@. RAGSDALE. @D@@@@ INSTALLATION. TX DEPT OF HEALTH, AUSTIN, TX. WO )@@G@@@B@@@@ DATE-WRITTEN. APRIL 30, 1979 . @^@@@@ DATE-COMPILWP )@@G@@ED. @E@@@@ *REMARKS. ASCII ANS-1974 ACOB3R1 WQ )@@G@@@G@@@@ * THIS PROGRAM INPUTS RAW DATA-ENTRY STATISTICS ORDEREWR )@@G@@D BY @G@@@@ * ACCOUNT NO. AND OUTPUTS THE ESSENTIAL INFORMATIONWS )@@G@@ ON A MORE @F@@@@ * EFFICIENTLY FORMATTED RECORD, AFTER FIRST VWT )@@G@@ALIDATING @G@@@@ * EACH ACCOUNT NO. AND ADJUSTING THE ACCUMULAWU )@@G@@TED MAN-MINUTES @G@@@@ * FOR EACH ACCOUNT BY A CALCULATED FACTWV )@@G@@OR SUCH THAT THE TOTAL @G@@@@ * ADJUSTED MAN-MINUTES ON THE OUTWW )@@G@@PUT DE FILE IS EQUIVALENT TO @G@@@@ * THE ACTUAL DE MAN-HOURS WWX )@@G@@ORKED DURING THE MONTH BEING PRO- @G@@@@ * CESSED AS PER THE PWY )@@G@@ROGRAM CONTROL CARD. A SUMMARY OF EACH @G@@@@ * TRANSACTION BWZ )@@G@@Y ACCOUNT NO., AS WELL AS OVERALL SUMMARY INFOR-@C@@@@ * MATION XA )@@G@@IS PROVIDED BY DE-ADJ-RPT. @]@@@@ * @]@@@@ * @ @@@@XB )@@G@@ * CHANGE 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOLXC )@@G@@ (ACOB4). @]@@@@ * @ @@@@ ENVIRONMENT DIVISION. @@@@@@XD )@@G@@@@@@@@@ @@@@ CONFIGURATION SECTION. @@@@@@@ @@@@ COPY COMPUTXE )@@G@@ER-NAMES. @^@@@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NXF )@@G@@AMES. @ @@@@ INPUT-OUTPUT SECTION. @@@@@@@^@@@@ FILE-CONTROXG )@@G@@L. @@@@@@@ @@@@ SELECT CADE-IN @D@@@@ XH )@@G@@ASSIGN MASS-STORAGE DE-STAT-SRTD. @@@@@@@^@@@@ SELECT DE-OUTXI )@@G@@@C@@@@ ASSIGN MASS-STORAGE DE-FILE. @@@@@@@ @@@@ XJ )@@G@@ SELECT PRINT-FILE @B@@@@ ASSIGN PRINTER DE-RPT. XK )@@G@@@@@@@@@A@@@@ SELECT VALID-ACNT-FILE @C@@@@ XL )@@G@@ASSIGN CARD-READER QUIP-CARDS.@@@@@@@ @@@@ SELECT CONTROL-CARDXM )@@G@@@B@@@@ ASSIGN CARD-READER. @@@@@@@@@@@@@@@@@@@^@@@@XN )@@G@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE SECTION. @@@@@@XO )@@G@@@#@@@@ FD CADE-IN@A@@@@ BLOCK CONTAINS 10 RECORDS@A@@@@XP )@@G@@ LABEL RECORDS STANDARD @B@@@@ RECORD CONTAINS 40 XQ )@@G@@CHARACTERS @A@@@@ RECORDING MODE INTERNAL. @@@@@@@^@@@@ XR )@@G@@ 01 CADE-REC. @D@@@@ 03 FILLER PIC XXS )@@G@@XX. @D@@@@ 03 C-ACNT-NO PIC X(8). @D@@@@XT )@@G@@ 03 C-MODE PIC X(8). @E@@@@ XU )@@G@@ 88 VERIFIED VALUE 'VERIFY'. @ @@@@ 03 C-ELXV )@@G@@AP-TIME. @D@@@@ 05 C-ELAP-HH PIC XX. XW )@@G@@@C@@@@ 05 C-ELAP-HH-9 REDEFINES C-ELAP-HH@D@@@@ XX )@@G@@ PIC 99. @D@@@@ 05 FILLER XY )@@G@@ PIC X. @D@@@@ 05 C-ELAP-MM XZ )@@G@@ PIC XX. @C@@@@ 05 C-ELAP-MM-9 REDEFINES C-ELAP-MMYA )@@G@@@D@@@@ PIC 99. @D@@@@ YB )@@G@@ 03 C-KEYSTROKES PIC 9(5). @D@@@@ 03 C-REYC )@@G@@CS PIC 9(5). @D@@@@ 03 FILLER YD )@@G@@ PIC X(6). @@@@@@@@@@@@@#@@@@ FD DE-OUT @A@@@@ YE )@@G@@ BLOCK CONTAINS 9 RECORDS @A@@@@ LABEL RECORDS STANDARD YF )@@G@@@B@@@@ RECORD CONTAINS 54 CHARACTERS @A@@@@ RECORDIYG )@@G@@NG MODE INTERNAL. @@@@@@@A@@@@ 01 DE-OUT-REC. COPY DE-REC. @@@@@@YH )@@G@@@ @@@@ FD VALID-ACNT-FILE @A@@@@ LABEL RECORDS OMITTYI )@@G@@ED. @@@@@@@^@@@@ 01 VAL-ACNT-REC.@D@@@@ 02 QUIP-COMMAYJ )@@G@@ND PIC X(15). @D@@@@ 88 INSERT-CMD VALUE 'IYK )@@G@@NSERT ACCOUNT '. @D@@@@ 02 QUIP-ACCNT PIC X(12)YL )@@G@@. @D@@@@ 02 FILLER PIC X(53). @@@@@@YM )@@G@@@^@@@@ FD CONTROL-CARD @A@@@@ LABEL RECORDS OMITTED. YN )@@G@@@@@@@@@^@@@@ 01 CONTROL-REC. @C@@@@ 02 CONTROL-CD YO )@@G@@ PIC X(8).@C@@@@ 88 PARAM-CD VALUE 'H155103X'. YP )@@G@@@C@@@@ 02 FILLER PIC X. @ @@@@ 0YQ )@@G@@2 PROCESS-DATE. @C@@@@ 03 MM PIC 99. YR )@@G@@@C@@@@ 03 DD PIC 99. @C@@@@ YS )@@G@@ 03 YY PIC 99. @C@@@@ 02 ACTUAL-HOURS-X YT )@@G@@ PIC X(5).@D@@@@ 02 ACTUAL-HOURS REDEFINES ACTUAL-HOURYU )@@G@@S-X @D@@@@ PIC 9999V9. @D@@@@YV )@@G@@ 02 FILLER PIC X(60). @@@@@@@^@@@@ YW )@@G@@ FD PRINT-FILE @A@@@@ REPORT IS DE-ADJ-RPT @A@@@@ YX )@@G@@ LABEL RECORDS OMITTED. @]@@@@ / @A@@@@ WORKING-STOYY )@@G@@RAGE SECTION. @@@@@@@F@@@@ 77 REJECT-MIN YZ )@@G@@ PIC 9(5) VALUE 0 COMP.@F@@@@ 77 ACCEPT-RAW-MIN ZA )@@G@@ PIC 9(5) VALUE 0 COMP.@G@@@@ 77 ACCEPT-ADJ-MIN ZB )@@G@@ PIC 9(5)V999 VALUE 0 COMP. @F@@@@ 77 TOT-ACNTS-IN ZC )@@G@@ PIC 9(8) VALUE 0 COMP.@F@@@@ 77 TOT-REJ-RAW-MIN ZD )@@G@@ PIC 9(7) VALUE 0 COMP.@F@@@@ 77 TOT-ACP-RAW-MIN ZE )@@G@@ PIC 9(7) VALUE 0 COMP.@F@@@@ 77 TOT-REJECTS ZF )@@G@@ PIC 9(8) VALUE 0 COMP.@F@@@@ 77 TOT-ACCEPTS ZG )@@G@@ PIC 9(8) VALUE 0 COMP.@F@@@@ 77 TOT-RAW-MIN ZH )@@G@@ PIC 9(7) VALUE 0 COMP.@G@@@@ 77 TOT-ACP-ADJ-MIN ZI )@@G@@ PIC 9(7)V999 VALUE 0 COMP. @F@@@@ 77 ADJ-FAC ZJ )@@G@@ PIC 9V999 COMP.@G@@@@ 77 DEPT-RUN-ID ZK )@@G@@ PIC X(6) VALUE 'H15512'. @G@@@@ 77 DEPT-PROGRAM-ZL )@@G@@NO PIC X(8) VALUE 'H1551036'. @D@@@@ 77 DEPT-TIZM )@@G@@ME VALUE SPACE PIC X(5). @F@@@@ 77 QUIP-CNT ZN )@@G@@ PIC 9(5) VALUE 0 COMP.@G@@@@ 77 HOLD-ACCNT ZO )@@G@@ PIC X(12) VALUE SPACES. @E@@@@ 77 TOT-ADJ-HOURSZP )@@G@@ PIC 9(5)V9 COMP.@E@@@@ 77 CH-A ZQ )@@G@@ PIC 9 VALUE 0. @D@@@@ 77 ELAP-MIN ZR )@@G@@ PIC 999. @@@@@@@D@@@@ 01 SW-INPUT-EOF PIC X VAZS )@@G@@LUE 'N'. @D@@@@ 88 INPUT-EOF VALUE 'Y'. ZT )@@G@@@D@@@@ 01 SW-XTABLE-END PIC X VALUE 'N'. @D@@@@ ZU )@@G@@ 88 XTABLE-END VALUE 'Y'. @D@@@@ 01 SW-CC-EZV )@@G@@OF PIC X VALUE 'N'. @D@@@@ 88 CC-EOF ZW )@@G@@ VALUE 'Y'. @D@@@@ 01 SW-VALID-ACNT-EOF PIC X VAZX )@@G@@LUE 'N'. @D@@@@ 88 VALID-ACNT-EOF VALUE 'Y'. ZY )@@G@@@D@@@@ 01 SW-ACNTS-MATCH PIC X VALUE 'N'. @D@@@@ ZZ )@@G@@ 88 ACNTS-MATCH VALUE 'Y'. @@@@@@@F@@@@ 01 AAA )@@G@@-NAME PIC X(12) VALUE 'QUIP-CARDS'. @E@@@@ 01 AAB )@@G@@-CNT PIC 9(10) COMP VALUE 0. @@@@@@@F@@@@ 01 IAC )@@G@@N-NAME PIC X(12) VALUE 'DE-STAT-SRTD'. @E@@@@ 01 IAD )@@G@@N-CNT PIC 9(10) COMP VALUE 0. @@@@@@@E@@@@ 01 OAE )@@G@@UT-NAME PIC X(12) VALUE 'DE-FILE'.@E@@@@ 01 OUT-CNTAF )@@G@@ PIC 9(10) COMP VALUE 0. @@@@@@@^@@@@ 01 DEPT-DAAG )@@G@@TE. @C@@@@ 03 MM PIC XX. @E@@@@ AH )@@G@@ 03 FILLER PIC X VALUE '-'. @C@@@@ 0AI )@@G@@3 DD PIC XX. @E@@@@ 03 FILLER AJ )@@G@@ PIC X VALUE '-'. @C@@@@ 03 YY AK )@@G@@ PIC XX. @@@@@@@^@@@@ 01 CUR-DATE. @C@@@@ 03 YY AL )@@G@@ PIC XX. @C@@@@ 03 MM AM )@@G@@ PIC XX. @C@@@@ 03 DD PIC XX. @@@@@@AN )@@G@@@ @@@@ 01 INPUT-ACNT DISP-1. @C@@@@ 02 FLD-1 AO )@@G@@ PIC X(8).@F@@@@ 02 FILLER PIC X(4) AP )@@G@@VALUE SPACES. @@@@@@@^@@@@ 01 QUIP-TABLE. @F@@@@ 0AQ )@@G@@2 XTABLE OCCURS 001 TO 999 TIMES DEPENDING ON QUIP-CNT@A@@@@ AR )@@G@@ ASCENDING KEY IS XACNT@ @@@@ INDEXED BY P1. @C@@@@ AS )@@G@@ 05 XACNT DISP-1. @C@@@@ 07 XACNAT )@@G@@T-1 PIC X. @C@@@@ 07 XACNT-3 PICAU )@@G@@ XXX. @C@@@@ 07 XACNT-8 PIC X(8).@E@@@@ AV )@@G@@ 05 E-RECS PIC 9(10) COMP-4. @E@@@@ AW )@@G@@ 05 V-RECS PIC 9(10) COMP-4. @E@@@@ 05 EAX )@@G@@-STROKES PIC 9(10) COMP-4. @E@@@@ 05 V-STROKAY )@@G@@ES PIC 9(10) COMP-4. @E@@@@ 05 E-TIME AZ )@@G@@ PIC 9(5) COMP-4. @E@@@@ 05 V-TIME BA )@@G@@ PIC 9(5) COMP-4. @]@@@@ / @^@@@@ REPORT SECTION. BB )@@G@@@@@@@@@^@@@@ RD DE-ADJ-RPT @A@@@@ CONTROLS ARE FINAL,BC )@@G@@ CH-A @A@@@@ PAGE LIMIT IS 66 LINES @ @@@@ HEBD )@@G@@ADING 7 @A@@@@ FIRST DETAIL 15 @A@@@@ BE )@@G@@ LAST DETAIL 63. @@@@@@@ @@@@ COPY DEPT-HEADER-RW. @ @@@@BF )@@G@@ 03 LINE PLUS 2. @D@@@@ 05 COLUMN 53 PIBG )@@G@@C X(22) VALUE @B@@@@ 'DATA ENTRY REPORT FOR '.@G@@@@BH )@@G@@ 05 COLUMN 75 PIC XX SOURCE MM OF PROCESS-DATE. BI )@@G@@@D@@@@ 05 COLUMN 77 PIC X VALUE '/'.@G@@@@ BJ )@@G@@ 05 COLUMN 78 PIC XX SOURCE YY OF PROCESS-DATE. @@@@@@BK )@@G@@@ @@@@ 01 TYPE CH FINAL. @^@@@@ 02 LINE 15. @D@@@@BL )@@G@@ 03 COLUMN 53 PIC X(17) VALUE @B@@@@ BM )@@G@@ ' RECORDS REJECTED'. @ @@@@ 02 LINE PLUS 2. @D@@@@BN )@@G@@ 03 COLUMN 49 PIC X(10) VALUE @ @@@@ BO )@@G@@ 'ACCOUNT-NO'.@D@@@@ 03 COLUMN 65 PIC X(7) VALUBP )@@G@@E @ @@@@ 'RAW-MIN'. @@@@@@@ @@@@ 01 DE-REJEBQ )@@G@@CT TYPE DE. @ @@@@ 02 LINE PLUS 2. @F@@@@ 03 CBR )@@G@@OLUMN 49 PIC X(12) SOURCE C-ACNT-NO. @F@@@@ 03 CBS )@@G@@OLUMN 67 PIC Z(5) SOURCE REJECT-MIN. @@@@@@@^@@@@ 01 TBT )@@G@@YPE CF CH-A.@^@@@@ 02 LINE 15. @D@@@@ 03 COLUMN BU )@@G@@53 PIC X(17) VALUE @B@@@@ ' RECORDS ACCEPTED'BV )@@G@@. @ @@@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN BW )@@G@@39 PIC X(10) VALUE @ @@@@ 'ACCOUNT-NO'.@D@@@@BX )@@G@@ 03 COLUMN 55 PIC X(7) VALUE @ @@@@ BY )@@G@@ 'RAW-MIN'. @D@@@@ 03 COLUMN 72 PIC X(7) VALUBZ )@@G@@E @ @@@@ 'ADJ-MIN'. @@@@@@@ @@@@ 01 DE-ACCECA )@@G@@PT TYPE DE. @ @@@@ 02 LINE PLUS 2. @F@@@@ 03 CCB )@@G@@OLUMN 39 PIC X(12) SOURCE HOLD-ACCNT. @F@@@@ 03 CCC )@@G@@OLUMN 55 PIC Z(7) SOURCE ACCEPT-RAW-MIN.@F@@@@ 03 CCD )@@G@@OLUMN 70 PIC Z(4)9.999 SOURCE ACCEPT-ADJ-MIN. @@@@@@@ @@@@ 01 TCE )@@G@@YPE CF FINAL. @A@@@@ 02 LINE 15 ON NEXT PAGE. @E@@@@ CF )@@G@@ 03 COLUMN 58 PIC X(6) VALUE 'TOTALS'. @ @@@@ 0CG )@@G@@2 LINE PLUS 4. @F@@@@ 03 COLUMN 40 PIC X(14) VALUCH )@@G@@E ' RECORD GROUP'.@E@@@@ 03 COLUMN 61 PIC XXX VALUCI )@@G@@E 'NO.'. @E@@@@ 03 COLUMN 70 PIC X(7) VALUE 'RAWCJ )@@G@@-MIN'.@E@@@@ 03 COLUMN 84 PIC X(7) VALUE 'ADJ-MIN'.CK )@@G@@@ @@@@ 02 LINE PLUS 3. @E@@@@ 03 COLUMN 45 CL )@@G@@ PIC XXX VALUE 'ALL'. @F@@@@ 03 COLUMN 60 PICM )@@G@@C Z(7)9 SOURCE TOT-ACNTS-IN. @F@@@@ 03 COLUMN 70 PICN )@@G@@C Z(6)9 SOURCE TOT-RAW-MIN. @ @@@@ 02 LINE PLUS 2. @F@@@@CO )@@G@@ 03 COLUMN 43 PIC X(8) VALUE 'REJECTED'. @F@@@@CP )@@G@@ 03 COLUMN 60 PIC Z(7)9 SOURCE TOT-REJECTS. @G@@@@CQ )@@G@@ 03 COLUMN 70 PIC Z(6)9 SOURCE TOT-REJ-RAW-MIN. CR )@@G@@@ @@@@ 02 LINE PLUS 2. @F@@@@ 03 COLUMN 43 CS )@@G@@ PIC X(8) VALUE 'ACCEPTED'. @F@@@@ 03 COLUMN 60 CT )@@G@@ PIC Z(7)9 SOURCE TOT-ACCEPTS. @G@@@@ 03 COLUMN 70 CU )@@G@@ PIC Z(6)9 SOURCE TOT-ACP-RAW-MIN. @G@@@@ 03 COLUMN CV )@@G@@80 PIC Z(6)9.999 SOURCE TOT-ACP-ADJ-MIN. @ @@@@ 02 LINECW )@@G@@ PLUS 4. @D@@@@ 03 COLUMN 20 PIC X(20) VALUE CX )@@G@@@B@@@@ 'ADJUSTMENT FACTOR = '. @E@@@@ 03 CCY )@@G@@OLUMN 40 PIC 9.999 SOURCE ADJ-FAC. @ @@@@ 02 LINE PLUS CZ )@@G@@2. @D@@@@ 03 COLUMN 20 PIC X(48) VALUE @G@@@@DA )@@G@@ 'ACTUAL MAN-HOURS WORKED (AS PER CONTROL CARD) = '. DB )@@G@@@F@@@@ 03 COLUMN 68 PIC 9999.9 SOURCE ACTUAL-HOURS. DC )@@G@@@ @@@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN 20 DD )@@G@@ PIC X(32) VALUE @D@@@@ 'TOTAL ADJUSTED MAN-MINUTDE )@@G@@ES OF: '. @G@@@@ 03 COLUMN 52 PIC Z(6)9.999 SOURCE TODF )@@G@@T-ACP-ADJ-MIN. @D@@@@ 03 COLUMN 63 PIC X(19) VALUDG )@@G@@E @B@@@@ ' IS EQUIVALENT TO: '. @G@@@@ DH )@@G@@ 03 COLUMN 82 PIC Z(5)9.9 SOURCE TOT-ADJ-HOURS. @F@@@@ DI )@@G@@ 03 COLUMN 90 PIC X(10) VALUE ' MAN-HOURS'. @]@@@@ DJ )@@G@@/ @ @@@@ PROCEDURE DIVISION. @@@@@@@@@@@@@^@@@@ 000-CDK )@@G@@ONTROL. @@@@@@@A@@@@ PERFORM 100-HOUSEKEEPING.@E@@@@ DL )@@G@@ PERFORM 110-BUILD-XTABLE UNTIL VALID-ACNT-EOF. @A@@@@ IDM )@@G@@NITIATE DE-ADJ-RPT. @E@@@@ PERFORM 120-COLLECT-DE-TIME UNTDN )@@G@@IL INPUT-EOF. @C@@@@ PERFORM 130-FETCH-ADJUSTMENT-FACTOR. DO )@@G@@@D@@@@ PERFORM 140-CREATE-OUTPUT UNTIL XTABLE-END.@A@@@@ DP )@@G@@ PERFORM 150-CLOSE-UP. @^@@@@ STOP RUN. @@@@@@@@@@@@DQ )@@G@@@^@@@@ 100-HOUSEKEEPING.@@@@@@@ @@@@ OPEN OUTPUT DE-OUT DR )@@G@@@A@@@@ PRINT-FILE @B@@@@ INPUT VADS )@@G@@LID-ACNT-FILE @ @@@@ CADE-IN @A@@@@ DT )@@G@@ CONTROL-CARD. @ @@@@ READ CONTROL-CARD @C@@@@ DU )@@G@@ AT END MOVE 'Y' TO SW-CC-EOF. @ @@@@ IF NOT PARAM-DV )@@G@@CD @F@@@@ DISPLAY 'CONTROL CARD MISSING' UPON PRINT-DEVIDW )@@G@@CE @ @@@@ ENTER FD 'ABORT'@#@@@@ ELSE @D@@@@DX )@@G@@ DISPLAY CONTROL-REC UPON PRINT-DEVICE. @B@@@@ ADY )@@G@@CCEPT CUR-DATE FROM DATE. @C@@@@ MOVE CORR CUR-DATE TO DEPDZ )@@G@@T-DATE. @^@@@@ SET P1 TO 1. @B@@@@ MOVE LOW-VALUEA )@@G@@ES TO HOLD-ACCNT. @@@@@@@@@@@@@^@@@@ 110-BUILD-XTABLE.@@@@@@@A@@@@EB )@@G@@ READ VALID-ACNT-FILE @D@@@@ AT END MOVE 'YEC )@@G@@' TO SW-VALID-ACNT-EOF. @A@@@@ IF NOT VALID-ACNT-EOF @ @@@@ED )@@G@@ ADD 1 TO A-CNT @ @@@@ IF INSERT-CMD @C@@@@EE )@@G@@ PERFORM 200-CHECK-ACNT-SEQ @B@@@@ PEF )@@G@@ERFORM 210-STORE-ACNT @#@@@@ ELSE@F@@@@ DEG )@@G@@ISPLAY 'ILLEGAL QUIP COMMAND IN QUIP-CARDS: ' @E@@@@ EH )@@G@@ VAL-ACNT-REC UPON PRINT-DEVICE @A@@@@ ENTER FEI )@@G@@D 'ABORT'. @@@@@@@@@@@@@ @@@@ 120-COLLECT-DE-TIME. @@@@@@@^@@@@EJ )@@G@@ READ CADE-IN @C@@@@ AT END MOVE 'Y' TO SW-INPUEK )@@G@@T-EOF.@ @@@@ IF NOT INPUT-EOF @ @@@@ ADD 1 TO IEL )@@G@@N-CNT @A@@@@ IF C-ACNT-NO = 'PRO' @D@@@@ MEM )@@G@@OVE 'H150' TO FLD-1 OF INPUT-ACNT @#@@@@ ELSE@E@@@@ EN )@@G@@ MOVE C-ACNT-NO TO FLD-1 OF INPUT-ACNT. @ @@@@ IEO )@@G@@F NOT INPUT-EOF @A@@@@ ADD 1 TO TOT-ACNTS-IN @B@@@@ EP )@@G@@ PERFORM 260-FETCH-ELAP-MIN @B@@@@ ADD ELAP-MIN TO EQ )@@G@@TOT-RAW-MIN @B@@@@ MOVE 'N' TO SW-ACNTS-MATCH @B@@@@ ER )@@G@@ PERFORM 220-SEARCH-TABLE @ @@@@ IF ACNTS-MATCH ES )@@G@@@B@@@@ PERFORM 230-ACCEPT-ACNT @#@@@@ ELSEET )@@G@@@B@@@@ PERFORM 240-REJECT-ACNT @#@@@@ ELSE EU )@@G@@@ @@@@ SET P1 TO 1 @ @@@@ MOVE 1 TO CH-A EV )@@G@@@B@@@@ MOVE 'N' TO SW-XTABLE-END. @@@@@@@@@@@@@A@@@@ EW )@@G@@ 130-FETCH-ADJUSTMENT-FACTOR. @@@@@@@B@@@@ IF ACTUAL-HOURS-X IEX )@@G@@S NUMERIC @A@@@@ IF ACTUAL-HOURS > 0 @B@@@@ EY )@@G@@ COMPUTE ADJ-FAC ROUNDED =@F@@@@ (ACTUAL-HOURS * EZ )@@G@@60.0) / (TOT-ACP-RAW-MIN) @#@@@@ ELSE@B@@@@ FA )@@G@@ MOVE 1.000 TO ADJ-FAC @#@@@@ ELSE @A@@@@ FB )@@G@@ MOVE 1.000 TO ADJ-FAC.@@@@@@@@@@@@@ @@@@ 140-CREATE-OUTPUT. FC )@@G@@@@@@@@@ @@@@ IF E-TIME (P1) > 0 @#@@@@ OR @ @@@@FD )@@G@@ V-TIME (P1) > 0 @C@@@@ PERFORM 250-OUTPUT-VALFE )@@G@@ID-ACNT. @ @@@@ SET P1 UP BY 1. @ @@@@ IF P1 >FF )@@G@@ QUIP-CNT @B@@@@ MOVE 'Y' TO SW-XTABLE-END. @@@@@@@@@@@@FG )@@G@@@^@@@@ 150-CLOSE-UP. @@@@@@@F@@@@ COMPUTE TOT-ADJ-HOUFH )@@G@@RS ROUNDED = TOT-ACP-ADJ-MIN / 60.0.@A@@@@ TERMINATE DE-ADJ-RPFI )@@G@@T. @^@@@@ CLOSE DE-OUT @ @@@@ PRINT-FILE FJ )@@G@@@A@@@@ VALID-ACNT-FILE @^@@@@ CADE-INFK )@@G@@@ @@@@ CONTROL-CARD.@C@@@@ CALL 'LOG-RCNT' USIFL )@@G@@NG A-NAME A-CNT. @C@@@@ CALL 'LOG-RCNT' USING IN-NAME IN-CNT.FM )@@G@@@D@@@@ CALL 'LOG-WCNT' USING OUT-NAME OUT-CNT. @@@@@@@@@@@@FN )@@G@@@ @@@@ 200-CHECK-ACNT-SEQ. @@@@@@@B@@@@ IF QUIP-ACCNTFO )@@G@@ > HOLD-ACCNT @C@@@@ MOVE QUIP-ACCNT TO HOLD-ACCNT FP )@@G@@@#@@@@ ELSE @F@@@@ DISPLAY 'ACCOUNT-NO ' QUIP-AFQ )@@G@@CCNT ' OUT OF SEQUENCE' @A@@@@ ENTER FD 'ABORT'. @@@@@@FR )@@G@@@@@@@@@^@@@@ 210-STORE-ACNT. @@@@@@@ @@@@ ADD 1 TO QUIPFS )@@G@@-CNT. @B@@@@ MOVE QUIP-ACCNT TO XACNT (P1). @A@@@@ MFT )@@G@@OVE 0 TO E-RECS (P1) @A@@@@ V-RECS (P1) @A@@@@FU )@@G@@ E-STROKES (P1) @A@@@@ V-STROKESFV )@@G@@ (P1) @A@@@@ E-TIME (P1) @A@@@@ FW )@@G@@ V-TIME (P1). @ @@@@ SET P1 UP BY 1. @@@@@@@@@@@@@^@@@@FX )@@G@@ 220-SEARCH-TABLE.@@@@@@@^@@@@ SET P1 TO 1. @^@@@@ FY )@@G@@ SEARCH XTABLE@D@@@@ AT END MOVE 'Y' TO SW-XTABLE-EFZ )@@G@@ND @D@@@@ WHEN INPUT-ACNT = XACNT (P1) @E@@@@GA )@@G@@ MOVE 'Y' TO SW-ACNTS-MATCH. @@@@@@@@@@@@GB )@@G@@@^@@@@ 230-ACCEPT-ACNT. @@@@@@@D@@@@ EXAMINE C-RECS REPLGC )@@G@@ACING ALL ' ' BY '0'. @E@@@@ EXAMINE C-KEYSTROKES REPLACING GD )@@G@@ALL ' ' BY '0'. @^@@@@ IF VERIFIED @B@@@@ ADD GE )@@G@@C-RECS TO V-RECS (P1) @C@@@@ ADD C-KEYSTROKES TO V-STROKEGF )@@G@@S (P1)@B@@@@ ADD ELAP-MIN TO V-TIME (P1) @#@@@@ EGG )@@G@@LSE @B@@@@ ADD C-RECS TO E-RECS (P1) @C@@@@ GH )@@G@@ ADD C-KEYSTROKES TO E-STROKES (P1)@B@@@@ ADD ELAP-MIN TO GI )@@G@@E-TIME (P1).@A@@@@ ADD 1 TO TOT-ACCEPTS. @C@@@@ AGJ )@@G@@DD ELAP-MIN TO TOT-ACP-RAW-MIN. @@@@@@@@@@@@@^@@@@ 240-REJECT-GK )@@G@@ACNT. @@@@@@@A@@@@ ADD 1 TO TOT-REJECTS. @C@@@@ AGL )@@G@@DD ELAP-MIN TO TOT-REJ-RAW-MIN. @B@@@@ MOVE ELAP-MIN TO REGM )@@G@@JECT-MIN. @ @@@@ GENERATE DE-REJECT.@@@@@@@@@@@@@ @@@@ GN )@@G@@ 250-OUTPUT-VALID-ACNT. @@@@@@@ @@@@ IF E-TIME (P1) > 0 @#@@@@GO )@@G@@ OR @ @@@@ V-TIME (P1) > 0 @B@@@@ GP )@@G@@ PERFORM 300-BUILD-DE-REC @F@@@@ COMPUTE ACCEPT-RAW-MINGQ )@@G@@ = E-TIME (P1) + V-TIME (P1) @C@@@@ COMPUTE ACCEPT-ADJ-MINGR )@@G@@ ROUNDED = @D@@@@ DE-ENTRY-MIN + DE-VERIFY-MIN GS )@@G@@@C@@@@ COMPUTE TOT-ACP-ADJ-MIN ROUNDED = @D@@@@ GT )@@G@@ TOT-ACP-ADJ-MIN + ACCEPT-ADJ-MIN@ @@@@ WRITE DE-OGU )@@G@@UT-REC@ @@@@ ADD 1 TO OUT-CNT@C@@@@ MOVE XACNTGV )@@G@@ (P1) TO HOLD-ACCNT @A@@@@ GENERATE DE-ACCEPT. @@@@@@GW )@@G@@@@@@@@@ @@@@ 260-FETCH-ELAP-MIN. @@@@@@@A@@@@ IF C-ELGX )@@G@@AP-HH NOT NUMERIC @A@@@@ MOVE 0 TO C-ELAP-HH-9.@A@@@@ GY )@@G@@ IF C-ELAP-MM NOT NUMERIC @A@@@@ MOVE 0 TO C-ELAP-MM-9.GZ )@@G@@@ @@@@ IF C-ELAP-HH-9 > 0 @D@@@@ COMPUTE ELAP-MINHA )@@G@@ = C-ELAP-HH-9 * 60 @#@@@@ ELSE @A@@@@ MOVEHB )@@G@@ 0 TO ELAP-MIN. @B@@@@ ADD C-ELAP-MM-9 TO ELAP-MIN. @@@@@@HC )@@G@@@@@@@@@^@@@@ 300-BUILD-DE-REC.@@@@@@@B@@@@ MOVE XACNT (PHD )@@G@@1) TO DE-ACNT-NO. @C@@@@ MOVE E-RECS (P1) TO DE-RECS-ENTERED. HE )@@G@@@C@@@@ MOVE V-RECS (P1) TO DE-RECS-VERIFIED.@D@@@@ MHF )@@G@@OVE E-STROKES (P1) TO DE-ENTRY-STROKES. @D@@@@ MOVE V-STROKEHG )@@G@@S (P1) TO DE-VERIFY-STROKES. @ @@@@ IF E-TIME (P1) > 0 @C@@@@HH )@@G@@ COMPUTE DE-ENTRY-MIN ROUNDED = @C@@@@ HI )@@G@@ E-TIME (P1) * ADJ-FAC @#@@@@ ELSE @B@@@@ HJ )@@G@@ MOVE 0 TO DE-ENTRY-MIN. @ @@@@ IF V-TIME (P1) > 0 @C@@@@HK )@@G@@ COMPUTE DE-VERIFY-MIN ROUNDED = @C@@@@ HL )@@G@@ V-TIME (P1) * ADJ-FAC @#@@@@ ELSE @B@@@@ HM )@@G@@ MOVE 0 TO DE-VERIFY-MIN. ___ @D@@@@ MOVE E-STROKES (P1)HN )@@G@@ TO DE-ENTRY-STROKES. @D@@@@ MOVE V-STROKES (P1) TO DE-VERIFHO )@@G@@Y-STROKES. @ @@@@ IF E-TIME (P1) > 0 *[S@@@*SDFF*@A@@@@001010HP )@@G@@ IDENTIFICATION DIVISION. @ @@@@001020 PROGRAM-ID. H1551040. @^@@@@HQ )@@G@@001030 AUTHOR. PLUMMER. @^@@@@001040 DATE-WRITTEN. @^@@@@001050 DATE-HR )@@G@@COMPILED. @A@@@@ *REMARKS. ** ASCII ANS-1974 **@G@@@@ * THS )@@G@@HIS PROGRAM DERIVES TOTALS BY CATEGORY ON PRE-DETERMINED @G@@@@ HT )@@G@@* COST CATEGORIES (# OF TAPE MOUNTS, # OF PAGES PRINTED,ETC), @G@@@@HU )@@G@@ * AND ACCUMULATES NUMBER OF SUP HOURS FOR MONTH BY SHIFT AND HV )@@G@@@^@@@@ * IN TOTAL. @B@@@@ * ****** CHANGE LOG *****HW )@@G@@* @ @@@@ * CHANGE 10 MAY 80 @C@@@@ * CONVERT TO ANHX )@@G@@S 1974 COBOL (ACOB4). @]@@@@ * @ @@@@001060 ENVIRONMENT DIVISHY )@@G@@ION. @ @@@@001070 CONFIGURATION SECTION. @ @@@@ COPY COMPUTER-NAMHZ )@@G@@ES. @^@@@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NAMES. IA )@@G@@@ @@@@001100 INPUT-OUTPUT SECTION. @^@@@@001110 FILE-CONTROL. @ @@@@IB )@@G@@001120 SELECT TAB-DISC @D@@@@001130 ASSIGN TO MASS-STOIC )@@G@@RAGE TABLEDISC-JA @B@@@@001140 ACCESS MODE IS DYNAMIC @B@@@@ID )@@G@@001150 ORGANIZATION IS INDEXED @B@@@@001160 ACTUALIE )@@G@@ KEY IS TABLE-KEY.@ @@@@001170 SELECT ACCT-REC @D@@@@001180 IF )@@G@@ ASSIGN TO MASS-STORAGE MTH-ACNT-SUM.@ @@@@001190 SELECT DISC-OIG )@@G@@UT @C@@@@001200 ASSIGN TO MASS-STORAGE CTCF. @ @@@@001210IH )@@G@@ SELECT PRINT-OUT @D@@@@001220 ASSIGN TO PRINTER COST-CII )@@G@@AT-RPT. @^@@@@ DATA DIVISION. @^@@@@ FILE SECTION. IJ )@@G@@@^@@@@002010 FD TAB-DISC @B@@@@002020 LABEL RECORDS ARE STANDARIK )@@G@@D @B@@@@002030 BLOCK CONTAINS 3360 CHARACTERS @B@@@@002040 DIL )@@G@@ATA RECORD IS TABLE-DISC. @C@@@@002050 01 TABLE-DISC USAGE IS DISP-IM )@@G@@1 PIC X(84).@^@@@@002060 FD ACCT-REC @B@@@@002070 LABEL RECORDSIN )@@G@@ ARE STANDARD @A@@@@002080 BLOCK CONTAINS 3 RECORDS @B@@@@002090IO )@@G@@ DATA RECORD IS DLY-ACCT-REC. @C@@@@002100 01 DLY-ACCT-REC. COPY IP )@@G@@DLY-ACCT-MST. @^@@@@002110 FD DISC-OUT @B@@@@002120 LABEL RIQ )@@G@@ECORDS ARE STANDARD @B@@@@002130 RECORD CONTAINS 285 CHARACTERS IR )@@G@@@B@@@@002150 DATA RECORD IS COST-TOTALS. @B@@@@002160 01 COST-TOIS )@@G@@TALS. COPY CTCF-REC. @^@@@@003160 FD PRINT-OUT @A@@@@003170 LIT )@@G@@ABEL RECORDS ARE OMITTED@B@@@@003180 DATA RECORD IS PRINT-FILE. IU )@@G@@@D@@@@003190 01 PRINT-FILE PIC X(132) USAGE IS DISPLAY. @A@@@@004010IV )@@G@@ WORKING-STORAGE SECTION. @E@@@@004020 77 OUTSD-CAT-TRACKS-NO IW )@@G@@ PIC 9(10) COMP-4. @E@@@@004030 77 OUTSD-LIB-REELS-NO PIIX )@@G@@C 9(10) COMP-4. @E@@@@004040 77 PAGES-CREATED-NO PIC 9(10IY )@@G@@) COMP-4. @E@@@@004050 77 SPECIAL-FORMS-NO PIC 9(10) COMPIZ )@@G@@-4. @E@@@@004060 77 M-S-XFERS-NO PIC 9(18) COMP-4. JA )@@G@@@E@@@@004070 77 TAPE-MOUNTS-NO PIC 9(10) COMP-4. @E@@@@JB )@@G@@004080 77 TAPE-DATA-XFERS-NO PIC 9(18) COMP-4. @E@@@@004090JC )@@G@@ 77 CARDS-READ-NO PIC 9(10) COMP-4. @E@@@@004100 77 CJD )@@G@@ARDS-PUNCHED-NO PIC 9(10) COMP-4. @E@@@@004110 77 RM-PACKJE )@@G@@-MOUNTS-NO PIC 9(10) COMP-4. @E@@@@004120 77 RM-PACK-SECS-JF )@@G@@NO PIC 9(10) COMP-4. @E@@@@004020 77 TOUTSD-CAT-TRACKS-NJG )@@G@@O PIC 9(10) COMP-4. @E@@@@004030 77 TOUTSD-LIB-REELS-NO JH )@@G@@ PIC 9(10) COMP-4. @E@@@@004040 77 TPAGES-CREATED-NO PJI )@@G@@IC 9(10) COMP-4. @E@@@@004050 77 TSPECIAL-FORMS-NO PIC 9(1JJ )@@G@@0) COMP-4. @E@@@@004060 77 TM-S-XFERS-NO PIC 9(18) COMJK )@@G@@P-4. @E@@@@004070 77 TTAPE-MOUNTS-NO PIC 9(10) COMP-4. JL )@@G@@@E@@@@004080 77 TTAPE-DATA-XFERS-NO PIC 9(18) COMP-4. @E@@@@JM )@@G@@004090 77 TCARDS-READ-NO PIC 9(10) COMP-4. @E@@@@004100JN )@@G@@ 77 TCARDS-PUNCHED-NO PIC 9(10) COMP-4. @E@@@@004110 77 TJO )@@G@@RM-PACK-MOUNTS-NO PIC 9(10) COMP-4. @E@@@@004120 77 TRM-PACJP )@@G@@K-SECS-NO PIC 9(10) COMP-4. @C@@@@ 77 DPS VALUE ZEJQ )@@G@@RO PIC 9. @F@@@@004140 77 W-TRANS-COST PIJR )@@G@@C 9(10)V9(5) COMP-4. @F@@@@004150 77 SUB USAGE IS COMP PIJS )@@G@@C 9(10) VALUE ZERO. @F@@@@004160 77 ACCT-NO PIJT )@@G@@C XXX VALUE ZEROES. @E@@@@004170 77 LAST-RECORD-FLAG PIJU )@@G@@C X VALUE 'N'. @E@@@@004180 77 COMM-TRANS-NO PIC 9(10JV )@@G@@) COMP-4. @F@@@@004190 77 SHIFT4-SUP-HRS PIC 9(10)V999 JW )@@G@@COMP-4. @E@@@@ 77 VALID-ACCT-SWITCH PIC X VALUE 'YJX )@@G@@'. @E@@@@ 77 DECODE-03-SWITCH PIC X VALUE 'Y'. JY )@@G@@@E@@@@ 77 ABORT-SWITCH PIC X VALUE 'N'. @E@@@@JZ )@@G@@ 77 SHIFT1-SUPS PIC 9(18) COMP-4. @E@@@@ KA )@@G@@ 77 SHIFT2-SUPS PIC 9(18) COMP-4. @E@@@@ 77 SKB )@@G@@HIFT3-SUPS PIC 9(18) COMP-4. @E@@@@ 77 SHIFT4-KC )@@G@@SUPS PIC 9(18) COMP-4. @G@@@@ 77 FILENAME-1 KD )@@G@@ PIC X(12) VALUE 'MTH-ACNT-SUM'. @G@@@@ 77 FILENAMKE )@@G@@E-2 PIC X(12) VALUE 'TABLEDISC-JA'. @F@@@@ 77 FKF )@@G@@ILENAME-3 PIC X(12) VALUE 'CTCF'. @G@@@@ 77 MKG )@@G@@O-ACT-REC-CNT PIC 9(10) COMP VALUE ZEROES. @G@@@@ KH )@@G@@ 77 TABLE-DISC-REC-CNT PIC 9(10) COMP VALUE ZEROES. @G@@@@KI )@@G@@ 77 CTCF-REC-CNT PIC 9(10) COMP VALUE ZEROES. KJ )@@G@@@E@@@@ 77 COMM-TRANS-TOTAL PIC 9(18) COMP-4. @E@@@@KK )@@G@@ 77 TRANS-COST-5 PIC 9V9(5) COMP-4. @F@@@@ KL )@@G@@ 77 UNIT-COST-5 PIC 9(4)V9(5) COMP-4. @E@@@@ KM )@@G@@ 77 NON-DP-SUPS-1 PIC 9(18) COMP-4. @E@@@@ 77 NKN )@@G@@ON-DP-SUPS-2 PIC 9(18) COMP-4. @E@@@@ 77 NON-DP-KO )@@G@@SUPS-3 PIC 9(18) COMP-4. @E@@@@ 77 NON-DP-SUPS-4KP )@@G@@ PIC 9(18) COMP-4. @E@@@@ 77 NON-DP-HRS-4 KQ )@@G@@ PIC 9(5)V999 COMP-4. @^@@@@ 01 FIRST-COMP. @C@@@@ KR )@@G@@ 02 FILLER PIC 9(6) COMP-4. @D@@@@ 02 1ST-COMPUKS )@@G@@TE PIC 9(10)V9(5) COMP-4. @C@@@@004200 01 DATE-EDIT KT )@@G@@ DISP-1. @C@@@@ 05 MONTH PIC XX. @C@@@@KU )@@G@@ 05 FILLER PIC XX. @C@@@@ 05 YEARKV )@@G@@ PIC XX. @D@@@@ 05 FILLER KW )@@G@@ PIC X(12). @#@@@@ 01 DATE-8.@C@@@@ 05 MONTH-8 KX )@@G@@ PIC 99. @E@@@@ 05 FILLER PIKY )@@G@@C X VALUE '-'. @C@@@@ 05 DA-8 PIC 99. KZ )@@G@@@E@@@@ 05 FILLER PIC X VALUE '-'. @C@@@@LA )@@G@@ 05 YEAR-8 PIC 99. @ @@@@004210 01 DATE-6 LB )@@G@@DISP-1. @C@@@@004220 05 MM PIC 99. @C@@@@LC )@@G@@004230 05 DD PIC 99. @C@@@@004240 05 YY LD )@@G@@ PIC 99. @B@@@@005050 01 TABLE-KEY USAGE IS DISP-1LE )@@G@@. @A@@@@005060 05 DECODE-FIELD PIC XX. @A@@@@005070 05 3-DILF )@@G@@GIT-FIELD PIC XXX.@D@@@@005080 05 FILLER PIC X(6) VALUE SPACELG )@@G@@S. @C@@@@005090 05 CARD-NO-FIELD PIC 9 VALUE 0. @ @@@@005100LH )@@G@@ 01 TABLE-DISC-01. @A@@@@005110 05 DECODE-NO PIC 99. @A@@@@LI )@@G@@005120 05 ACCT-CODE PIC XXX.@D@@@@005130 05 FILLER PILJ )@@G@@C X(6) VALUE SPACES. @A@@@@005140 05 CARD-NO PIC 9. @B@@@@LK )@@G@@005150 05 FILLER PIC X(7). @B@@@@005160 05 TRANS-COSTLL )@@G@@ PIC 9V99. @B@@@@005170 05 FILLER PIC X(62). @D@@@@LM )@@G@@005180 01 TABLE-DISC-03 REDEFINES TABLE-DISC-01. @A@@@@005190 0LN )@@G@@5 DECODE-NUM PIC 99. @A@@@@005200 05 SEQ-NUM PIC 999.@B@@@@LO )@@G@@005210 05 FILLER PIC X(6). @A@@@@005220 05 CARD-NUM LP )@@G@@ PIC X. @A@@@@006010 05 FILLER PIC X. @B@@@@006020 0LQ )@@G@@5 ITEM-DESCRIP PIC X(15). @A@@@@006030 05 UNITS PIC X. LR )@@G@@@B@@@@006040 05 UNIT-COST PIC 9(4)V999. @B@@@@006050 05 SHIFLS )@@G@@T-DIFF-1 PIC 999V9. @B@@@@006060 05 SHIFT-DIFF-3 PIC 999V9. LT )@@G@@@B@@@@006070 05 FILLER PIC X(40). @^@@@@ COPY DEPT-HLU )@@G@@EADER.@#@@@@006130 01 LINE-3.@B@@@@006140 05 MONTH-YEAR PIC X(15)LV )@@G@@. @D@@@@ 05 FILLER PIC X(35) VALUE SPACES. @G@@@@LW )@@G@@006150 05 FILLER PIC X(35) VALUE 'PRE-DETERMINED COSTS BY CATEGORY'.LX )@@G@@@^@@@@123456 01 LINE-3A. @E@@@@ 02 FILLER VALUE SPACE LY )@@G@@ PIC X(57). @E@@@@ 02 FILLER VALUE 'TOTAL' LZ )@@G@@ PIC X(5). @E@@@@ 02 FILLER VALUE SPACE PMA )@@G@@IC X(17). @E@@@@ 02 FILLER VALUE 'NON-DP' PIC X(7MB )@@G@@). @E@@@@ 02 FILLER VALUE SPACE PIC X(47). MC )@@G@@@#@@@@006160 01 LINE-4.@C@@@@006170 05 FILLER PIC X(10) VALUE SPACEMD )@@G@@S. @A@@@@006180 05 FILLER PIC X(40) VALUE@D@@@@ 'TOME )@@G@@TAL NO. OF CATALOGUED TRACK-DAYS'. @D@@@@006190 05 TCAT-TRACKS-PRT MF )@@G@@ PIC Z,ZZZ,ZZZ,ZZ9.@E@@@@ 05 CAT-TRACKS-PRT PIC ZZZ,ZZMG )@@G@@Z,ZZZ,ZZZ,ZZZ,ZZ9.@E@@@@006200 05 FILLER PIC X(5) VALUMH )@@G@@E ' @ '. @C@@@@006210 05 CAT-TRACKS-COST-PRT PIC 9(4).999.@E@@@@MI )@@G@@006220 05 FILLER PIC X(7) VALUE ' PER '.@B@@@@006230MJ )@@G@@ 05 CAT-TRACKS-UNIT-PRT PIC X. @F@@@@008240 05 FILLER MK )@@G@@ PIC X(8) VALUE ' = '. @D@@@@006250 05 CAT-TRACKS-TOTALML )@@G@@-PRT PIC $$$,$$9.99. @E@@@@ 05 FILLER PIC X(MM )@@G@@7) VALUE SPACES. @#@@@@007010 01 LINE-5.@C@@@@007020 05 FILLER PICMN )@@G@@ X(10) VALUE SPACES. @G@@@@007030 05 FILLER PIC X(40) VALUE 'TOTAMO )@@G@@L NO. OF LIBRARY REEL-DAYS'. @D@@@@007040 05 TLIB-REELS-PRT MP )@@G@@PIC Z,ZZZ,ZZZ,ZZ9.@E@@@@ 05 LIB-REELS-PRT PIC ZZZ,ZZZ,ZZZ,ZMQ )@@G@@ZZ,ZZZ,ZZ9. @E@@@@007050 05 FILLER PIC X(5) VALUE ' @MR )@@G@@ '. @C@@@@007060 05 LIB-REELS-COST-PRT PIC 9(4).999.@E@@@@007070MS )@@G@@ 05 FILLER PIC X(7) VALUE ' PER '.@B@@@@007080 0MT )@@G@@5 LIB-REELS-UNIT-PRT PIC X. @F@@@@007090 05 FILLER PMU )@@G@@IC X(8) VALUE ' = '. @D@@@@007100 05 LIB-REELS-TOTAL-PRT PMV )@@G@@IC $$$,$$9.99. @E@@@@ 05 FILLER PIC X(7) VALUMW )@@G@@E SPACES. @#@@@@007110 01 LINE-6.@E@@@@007120 05 FILLER MX )@@G@@ PIC X(10) VALUE SPACES. @G@@@@007130 05 FILLER PMY )@@G@@IC X(40) VALUE 'PAGES CREATED'. @D@@@@007140 05 TPAGES-CREATED-PMZ )@@G@@RT PIC Z,ZZZ,ZZZ,ZZ9.@E@@@@ 05 PAGES-CREATED-PRT PIC ZZZ,ZZNA )@@G@@Z,ZZZ,ZZZ,ZZZ,ZZ9.@E@@@@007150 05 FILLER PIC X(5) VALNB )@@G@@UE ' @ '. @C@@@@007160 05 PAGES-COST-PRT PIC 9(4).999.@E@@@@NC )@@G@@007170 05 FILLER PIC X(7) VALUE ' PER '.@B@@@@007180ND )@@G@@ 05 PAGES-UNIT-PRT PIC X. @F@@@@0071X0 05 FILLER NE )@@G@@ PIC X(8) VALUE ' = '. @D@@@@007200 05 PAGES-TOTAL-PRT NF )@@G@@ PIC $$$,$$9.99. @E@@@@ 05 FILLER PIC X(7NG )@@G@@) VALUE SPACES. @#@@@@007210 01 LINE-7.@C@@@@007220 05 FILLER PICNH )@@G@@ X(10) VALUE SPACES. @F@@@@007230 05 FILLER PIC X(40) VALUE 'SPECNI )@@G@@IAL FORMS MOUNTED'. @D@@@@007240 05 TSPEC-FORMS-PRT PIC Z,NJ )@@G@@ZZZ,ZZZ,ZZ9.@E@@@@ 05 SPEC-FORMS-PRT PIC ZZZ,ZZZ,ZZZ,ZZZ,ZZZ,NK )@@G@@ZZ9. @E@@@@007250 05 FILLER PIC X(5) VALUE ' @ '. NL )@@G@@@C@@@@008010 05 FORMS-COST-PRT PIC 9(4).999.@E@@@@008020 0NM )@@G@@5 FILLER PIC X(7) VALUE ' PER '.@B@@@@008030 05 FORMNN )@@G@@S-UNIT-PRT PIC X. @F@@@@008040 05 FILLER PIC X(8NO )@@G@@) VALUE ' = '. @D@@@@008050 05 FORMS-TOTAL-PRT PIC $$$NP )@@G@@,$$9.99. @E@@@@ 05 FILLER PIC X(7) VALUE SPACNQ )@@G@@ES. @#@@@@008060 01 LINE-8.@C@@@@008070 05 FILLER PIC X(10) VALUENR )@@G@@ SPACES. @F@@@@008080 05 FILLER PIC X(30) VALUE 'MASS-STORAGE TRANS )@@G@@NSFERS'. @F@@@@008090 05 TM-S-TRANSFERS-PRT PIC ZZZ,ZZZ,ZZZ,ZZNT )@@G@@Z,ZZZ,ZZ9. @F@@@@008090 05 M-S-TRANSFERS-PRT PIC ZZZ,ZZZ,ZZZ,ZZZNU )@@G@@,ZZZ,ZZ9. @E@@@@008100 05 FILLER PIC X(5) VALUE ' @NV )@@G@@ '. @C@@@@008110 05 M-S-COST-PRT PIC 9(4).999.@E@@@@008120NW )@@G@@ 05 FILLER PIC X(7) VALUE ' PER '.@B@@@@008130 0NX )@@G@@5 M-S-UNIT-PRT PIC X. @F@@@@008140 05 FILLER PNY )@@G@@IC X(8) VALUE ' = '. @D@@@@008150 05 M-S-TOTAL-PRT PNZ )@@G@@IC $$$,$$9.99. @E@@@@ 05 FILLER PIC X(7) VALUOA )@@G@@E SPACES. @#@@@@008160 01 LINE-9.@E@@@@008170 05 FILLER OB )@@G@@ PIC X(10) VALUE SPACES. @G@@@@008180 05 FILLER POC )@@G@@IC X(40) VALUE 'TAPE REELS MOUNTED'.@D@@@@008190 05 TREELS-MOUNTED-POD )@@G@@RT PIC Z,ZZZ,ZZZ,ZZ9.@E@@@@ 05 REELS-MOUNTED-PRT PIC ZZZ,ZZOE )@@G@@Z,ZZZ,ZZZ,ZZZ,ZZ9.@E@@@@008200 05 FILLER PIC X(5) VALOF )@@G@@UE ' @ '. @D@@@@008210 05 REELS-MOUNTED-COST-PRT PIC 9(4).999. OG )@@G@@@E@@@@008220 05 FILLER PIC X(7) VALUE ' PER '.@C@@@@OH )@@G@@008230 05 REELS-MOUNTED-UNIT-PRT PIC X. @F@@@@008240 05 FILLOI )@@G@@ER PIC X(8) VALUE ' = '. @D@@@@008250 05 TAPEOJ )@@G@@-MNTS-TOTAL-PRT PIC $$$,$$9.99. @E@@@@ 05 FILLER OK )@@G@@ PIC X(7) VALUE SPACES. @^@@@@009010 01 LINE-10. @C@@@@009020OL )@@G@@ 05 FILLER PIC X(10) VALUE SPACES. @E@@@@009030 05 FILLER PICOM )@@G@@ X(30) VALUE 'TAPE DATA TRANSFERS'. @G@@@@009040 05 TTAPE-DATA-TRANSON )@@G@@FERS-PRT PIC ZZZ,ZZZ,ZZZ,ZZZ,ZZZ,ZZ9. @G@@@@009040 05 TAPE-DATA-OO )@@G@@TRANSFERS-PRT PIC ZZZ,ZZZ,ZZZ,ZZZ,ZZZ,ZZ9. @F@@@@009050 05 FILLOP )@@G@@ER PIC X(5) VALUE ' @ '. @D@@@@009060 05 TAPEOQ )@@G@@-DATA-XFERS-COST-PRT PIC 9(4).999. @F@@@@009070 05 FILLER OR )@@G@@ PIC X(7) VALUE ' PER '. @C@@@@009080 05 TAPE-DATA-XFERS-OS )@@G@@UNIT-PRT PIC X. @F@@@@009090 05 FILLER PIC X(8)OT )@@G@@ VALUE ' = '.@E@@@@009100 05 TAPE-DATA-XFERS-TOTAL-PRT PIC $$$,OU )@@G@@$$9.99. @F@@@@ 05 FILLER PIC X(7) VALUEOV )@@G@@ SPACES. @^@@@@009110 01 LINE-11. @F@@@@009120 05 FILLER OW )@@G@@ PIC X(10) VALUE SPACES. @G@@@@009130 05 FILLER OX )@@G@@ PIC X(40) VALUE 'CARDS READ'. @E@@@@009140 05 TCAROY )@@G@@DS-READ-PRT PIC Z,ZZZ,ZZZ,ZZ9. @E@@@@ 05 CARDS-READOZ )@@G@@-PRT PIC ZZZ,ZZZ,ZZZ,ZZZ,ZZZ,ZZ9. @F@@@@009150 05 FILLER PA )@@G@@ PIC X(5) VALUE ' @ '. @D@@@@009160 05 CARDS-READ-COST-PB )@@G@@PRT PIC 9(4).999. @F@@@@009170 05 FILLER PIPC )@@G@@C X(7) VALUE ' PER '. @C@@@@009180 05 CARDS-READ-UNIT-PRT PIPD )@@G@@C X. @F@@@@009190 05 FILLER PIC X(8) VALUE ' = PE )@@G@@ '.@E@@@@009200 05 CARDS-READ-TOTAL-PRT PIC $$$,$$9.99. PF )@@G@@@F@@@@ 05 FILLER PIC X(7) VALUE SPACES. PG )@@G@@@^@@@@009210 01 LINE-12. @F@@@@009220 05 FILLER PH )@@G@@ PIC X(10) VALUE SPACES. @G@@@@009230 05 FILLER PI )@@G@@ PIC X(40) VALUE 'CARDS PUNCHED'.@E@@@@009240 05 TCARDS-PUNCHED-PPJ )@@G@@RT PIC Z,ZZZ,ZZZ,ZZ9. @E@@@@ 05 CARDS-PUNCHED-PRT PIC PK )@@G@@ZZZ,ZZZ,ZZZ,ZZZ,ZZZ,ZZ9.@F@@@@009250 05 FILLER PIPL )@@G@@C X(5) VALUE ' @ '. @D@@@@010010 05 CARDS-PUNCHED-COST-PRT PIPM )@@G@@C 9(4).999. @F@@@@010020 05 FILLER PIC X(7) VALUEPN )@@G@@ ' PER '. @C@@@@010030 05 CARDS-PUNCHED-UNIT-PRT PIC X. @F@@@@PO )@@G@@010040 05 FILLER PIC X(8) VALUE ' = '.@E@@@@PP )@@G@@010050 05 CARDS-PUNCHED-TOTAL-PRT PIC $$$,$$9.99. @F@@@@ PQ )@@G@@ 05 FILLER PIC X(7) VALUE SPACES. @^@@@@010060PR )@@G@@ 01 LINE-13. @C@@@@010070 05 FILLER PIC X(10) VALUE SPACES. PS )@@G@@@F@@@@010080 05 FILLER PIC X(40) VALUE 'REMOVABLE PACK MOUNTS'. PT )@@G@@@E@@@@010090 05 TREMOV-PACK-MTS-PRT PIC Z,ZZZ,ZZZ,ZZ9. @F@@@@PU )@@G@@ 05 REMOV-PACK-MTS-PRT PIC ZZZ,ZZZ,ZZZ,ZZZ,ZZZ,ZZ9. @F@@@@PV )@@G@@010100 05 FILLER PIC X(5) VALUE ' @ '. @D@@@@PW )@@G@@010110 05 REMOV-PACK-MTS-COST-PRT PIC 9(4).999. @F@@@@010120 0PX )@@G@@5 FILLER PIC X(7) VALUE ' PER '. @C@@@@010130 0PY )@@G@@5 REMOV-PACK-MTS-UNIT-PRT PIC X. @F@@@@010140 05 FILLER PZ )@@G@@ PIC X(8) VALUE ' = '.@E@@@@010150 05 REMOV-PACK-MTS-TQA )@@G@@OTAL-PRT PIC $$$,$$9.99. @F@@@@ 05 FILLER QB )@@G@@ PIC X(7) VALUE SPACES. @^@@@@010160 01 LINE-14. @C@@@@010170QC )@@G@@ 05 FILLER PIC X(10) VALUE SPACES. @ @@@@010180 05 FILLER PICQD )@@G@@ X(40)@F@@@@010190 VALUE 'REMOVABLE PACK - TIME MOUNTED (SECQE )@@G@@S)'. @E@@@@010200 05 TREMOV-PACK-SECS-PRT PIC Z,ZZZ,ZZZ,ZZ9. QF )@@G@@@F@@@@ 05 REMOV-PACK-SECS-PRT PIC ZZZ,ZZZ,ZZZ,ZZZ,ZZZ,ZZ9. QG )@@G@@@F@@@@010210 05 FILLER PIC X(5) VALUE ' @ '. QH )@@G@@@D@@@@010220 05 REMOV-PACK-SECS-COST-PRT PIC 9(4).999. @F@@@@010230QI )@@G@@ 05 FILLER PIC X(7) VALUE ' PER '. @C@@@@010240QJ )@@G@@ 05 REMOV-PACK-SEC-UNIT-PRT PIC X. @F@@@@010250 05 FILLER QK )@@G@@ PIC X(8) VALUE ' = '.@E@@@@011010 05 REMOV-PACKQL )@@G@@-SECS-TOTAL-PRT PIC $$$,$$9.99. @F@@@@ 05 FILLER QM )@@G@@ PIC X(7) VALUE SPACES. @^@@@@ 01 COMM-LINE. @E@@@@QN )@@G@@ 05 FILLER PIC X(10) VALUE SPACES.@D@@@@ QO )@@G@@ 05 FILLER PIC X(30) VALUE @C@@@@ 'COQP )@@G@@MMUNICATIONS TRANSACTIONS'. @F@@@@ 05 TCOMM-NO-PRT QQ )@@G@@ PIC ZZZ,ZZZ,ZZZ,ZZZ,ZZZ,ZZ9. @F@@@@ 05 COMM-NO-PRT QR )@@G@@ PIC ZZZ,ZZZ,ZZZ,ZZZ,ZZZ,ZZ9. @E@@@@ 05 FILLER QS )@@G@@ PIC X(23) VALUE SPACES.@F@@@@ 05 FILLER PIC XQT )@@G@@(6) VALUE '= '. @D@@@@ 05 COMM-COST-PRT PIC $QU )@@G@@$$,$$9.99. @E@@@@ 05 FILLER PIC X(7) VALUE SPQV )@@G@@ACES. @^@@@@ 01 TOTAL-LINE. @E@@@@ 05 FILLER QW )@@G@@ PIC X(10) VALUE SPACES.@E@@@@ 05 FILLER QX )@@G@@ PIC X(5) VALUE 'TOTAL'.@E@@@@ 05 FILLER PIC XQY )@@G@@(96) VALUE SPACES.@E@@@@ 05 COST-TOT-PRT PIC $$$,$$$QZ )@@G@@,$$9.99. @E@@@@ 05 FILLER PIC X(7) VALUE SPRA )@@G@@ACES. @^@@@@011020 01 LINE-15. @C@@@@011030 05 FILLER PIC X(10)RB )@@G@@ VALUE SPACES. @G@@@@011040 05 FILLER PIC X(30) VALUE 'SHIFT DIFFRC )@@G@@ERENTIAL - SHIFT1 = '. @C@@@@011050 05 SHIFT1-DIFF-PRT PIC 9(4).99RD )@@G@@9. @E@@@@011060 05 FILLER PIC X(6) VALUE ' (PCT)'. RE )@@G@@@^@@@@011070 01 LINE-16. @C@@@@011080 05 FILLER PIC X(10) VALUERF )@@G@@ SPACES. @G@@@@011090 05 FILLER PIC X(30) VALUE 'SHIFT DIFFERENTIRG )@@G@@AL - SHIFT3 = '. @C@@@@011100 05 SHIFT3-DIFF-PRT PIC 9(4).999. RH )@@G@@@E@@@@011110 05 FILLER PIC X(6) VALUE ' (PCT)'. @^@@@@RI )@@G@@011120 01 LINE-17. @C@@@@011130 05 FILLER PIC X(10) VALUE SPACERJ )@@G@@S. @E@@@@011140 05 FILLER PIC X(20) VALUE 'TOTAL SUP HOURS = '.RK )@@G@@@C@@@@011150 05 TOTAL-SUP-HRS-PRT PIC ZZ,ZZ9.999. @E@@@@ 0RL )@@G@@5 FILLER PIC X(31) VALUE SPACES. @G@@@@ 05 FILLRM )@@G@@ER PIC X(21) VALUE 'NON-DP SUP HOURS = '.@C@@@@ 0RN )@@G@@5 SUP-LESS-DP-PRT PIC ZZ,ZZ9.999. @D@@@@ 05 FILLER RO )@@G@@ PIC X(30) VALUE SPACES.@^@@@@011160 01 LINE-18. @E@@@@011170 0RP )@@G@@5 FILLER PIC X(14) VALUE SPACES. @G@@@@011180 05 FILLRQ )@@G@@ER PIC X(16) VALUE 'SHIFT1 = '. @C@@@@011190 0RR )@@G@@5 SHIFT1-SUP-HRS-PRT PIC ZZ,ZZ9.999.@D@@@@ 05 FILLER RS )@@G@@ PIC X(36) VALUE SPACES.@F@@@@ 05 FILLER PIC X(16) VRT )@@G@@ALUE 'SHIFT1 = '.@C@@@@ 05 NON-DP-1-PRT PIC ZZ,ZZ9.RU )@@G@@999. @D@@@@ 05 FILLER PIC X(30) VALUE SPACES.@^@@@@RV )@@G@@011200 01 LINE-19. @E@@@@011210 05 FILLER PIC X(14)RW )@@G@@ VALUE SPACES. @G@@@@011220 05 FILLER PIC X(16) VALUERX )@@G@@ 'SHIFT2 = '. @C@@@@011230 05 SHIFT2-SUP-HRS-PRT PIC ZZ,ZZRY )@@G@@9.999.@D@@@@ 05 FILLER PIC X(36) VALUE SPACES.@F@@@@RZ )@@G@@ 05 FILLER PIC X(16) VALUE 'SHIFT2 = '.@C@@@@SA )@@G@@ 05 NON-DP-2-PRT PIC ZZ,ZZ9.999. @D@@@@ 05 FILLSB )@@G@@ER PIC X(30) VALUE SPACES.@^@@@@011240 01 LINE-20. @E@@@@SC )@@G@@011250 05 FILLER PIC X(14) VALUE SPACES. @G@@@@012010SD )@@G@@ 05 FILLER PIC X(16) VALUE 'SHIFT3 = '. @C@@@@SE )@@G@@012020 05 SHIFT3-SUP-HRS-PRT PIC ZZ,ZZ9.999.@D@@@@ 05 FILLSF )@@G@@ER PIC X(36) VALUE SPACES.@F@@@@ 05 FILLER SG )@@G@@ PIC X(16) VALUE 'SHIFT3 = '.@C@@@@ 05 NON-DP-3-PRT SH )@@G@@ PIC ZZ,ZZ9.999. @D@@@@ 05 FILLER PIC X(30) VALUE SSI )@@G@@PACES.@^@@@@012030 01 LINE-21. @E@@@@012040 05 FILLER SJ )@@G@@ PIC X(14) VALUE SPACES. @G@@@@012050 05 FILLER PICSK )@@G@@ X(16) VALUE 'SHIFT4 = '. @C@@@@012060 05 SHIFT4-SUP-HRS-PSL )@@G@@RT PIC ZZ,ZZ9.999.@D@@@@ 05 FILLER PIC X(36) VALUE SSM )@@G@@PACES.@F@@@@ 05 FILLER PIC X(16) VALUE 'SHIFT4 SN )@@G@@ = '.@C@@@@ 05 NON-DP-4-PRT PIC ZZ,ZZ9.999. @D@@@@ SO )@@G@@ 05 FILLER PIC X(30) VALUE SPACES.@ @@@@012070 PROCEDURE DSP )@@G@@IVISION. @^@@@@012080 1000-MAIN-LINE. @B@@@@012090 PERFORM 1100-SQ )@@G@@INIT-PROCEDURE. @A@@@@012100 PERFORM 1200-1ST-READ. @C@@@@012110SR )@@G@@ PERFORM 1300-MAIN-COMM-PROCESS UNTIL@B@@@@012120 LAST-RECORSS )@@G@@D-FLAG = 'Y'. @C@@@@ PERFORM 1700-ADD-UP-COMM-TRANS-COST. ST )@@G@@@A@@@@012130 PERFORM 1800-COST-TOTALS.@B@@@@012140 PERFORM 3000-SU )@@G@@FINAL-SUP-TOTAL. @A@@@@012150 PERFORM 3100-GET-DATE. @C@@@@012160SV )@@G@@ PERFORM 3200-WRITE-OUTPUT-FILES. @A@@@@012170 PERFORM 3300-SW )@@G@@CLOSE-FILES.@^@@@@012180 STOP RUN. @ @@@@012190 1100-INIT-PROCEDUSX )@@G@@RE. @ @@@@012200 OPEN I-O TAB-DISC @ @@@@ INPUT ACSY )@@G@@CT-REC@B@@@@012210 OUTPUT PRINT-OUT DISC-OUT.@A@@@@012220 MSZ )@@G@@OVE ZEROES TO ACCT-NO @B@@@@012230 COST-TOTALS TA )@@G@@@B@@@@012240 COMM-TRANS-NO @C@@@@012250 TB )@@G@@ SHIFT-SUP-HRS (1) @C@@@@013010 SHIFT-SUP-TC )@@G@@HRS (2) @C@@@@013020 SHIFT-SUP-HRS (3) @B@@@@TD )@@G@@013030 SHIFT4-SUP-HRS @B@@@@ TE )@@G@@ SHIFT1-SUPS @B@@@@ SHIFT2-SUPS @B@@@@TF )@@G@@ SHIFT3-SUPS @B@@@@ TG )@@G@@ SHIFT4-SUPS @C@@@@013040 OUTSD-CAT-TRACKS-NO TH )@@G@@@C@@@@013050 OUTSD-LIB-REELS-NO @B@@@@013060 TI )@@G@@ PAGES-CREATED-NO@B@@@@013070 SPECIAL-FOTJ )@@G@@RMS-NO@B@@@@013080 M-S-XFERS-NO @B@@@@013090 TK )@@G@@ TAPE-MOUNTS-NO @C@@@@013100 TAPE-DATA-TL )@@G@@XFERS-NO @B@@@@013110 CARDS-READ-NO @B@@@@013120TM )@@G@@ CARDS-PUNCHED-NO@C@@@@013130 RM-PTN )@@G@@ACK-MOUNTS-NO @B@@@@013140 RM-PACK-SECS-NO @C@@@@TO )@@G@@013040 TOUTSD-CAT-TRACKS-NO @C@@@@013050 TP )@@G@@ TOUTSD-LIB-REELS-NO @B@@@@013060 TPAGES-CREATQ )@@G@@TED-NO@B@@@@013070 TSPECIAL-FORMS-NO@B@@@@013080 TR )@@G@@ TM-S-XFERS-NO @B@@@@013090 TTAPE-MOUNTTS )@@G@@S-NO @C@@@@013100 TTAPE-DATA-XFERS-NO @B@@@@013110TT )@@G@@ TCARDS-READ-NO @B@@@@013120 TCARDTU )@@G@@S-PUNCHED-NO@C@@@@013130 TRM-PACK-MOUNTS-NO @B@@@@TV )@@G@@013140 TRM-PACK-SECS-NO @B@@@@ TW )@@G@@ NON-DP-SUPS-1 @B@@@@ NON-DP-SUPS-2 @B@@@@TX )@@G@@ NON-DP-SUPS-3 @B@@@@ TY )@@G@@ NON-DP-SUPS-4 @B@@@@ NON-DP-HRS-4 @B@@@@TZ )@@G@@ COMM-TRANS-TOTAL@B@@@@ UA )@@G@@ TRANS-COST-5 @B@@@@ UNIT-COST-5 @B@@@@UB )@@G@@013150 1ST-COMPUTE @B@@@@ UC )@@G@@ COST-TOTALS. @B@@@@ MOVE 'H15513' TO DEPT-RUN-ID. @A@@@@UD )@@G@@ MOVE SPACES TO DATE-EDIT.@A@@@@ MOVE 1 TO DEPT-PAGEUE )@@G@@-NUM. @C@@@@ MOVE 'H1551040' TO DEPT-PROGRAM-NUM. @^@@@@ UF )@@G@@ 1200-1ST-READ. @B@@@@ MOVE '01' TO DECODE-FIELD. @B@@@@UG )@@G@@ PERFORM 1750-READ-ACCNT-FILE. @B@@@@ MOVE AC-ACCOUUH )@@G@@NT-NUM TO ACCT-NO.@B@@@@ PERFORM 1760-READ-DECODE-01. @A@@@@UI )@@G@@ IF LAST-RECORD-FLAG = 'Y'@F@@@@ DISPLAY 'NO ACCUJ )@@G@@T RECORDS ON MONTHLY ACCT FILE' @A@@@@ UPON PRINT-UK )@@G@@DEVICE@A@@@@ ENTER FD 'ABORT'. @ @@@@ 1300-MAIN-CUL )@@G@@OMM-PROCESS.@B@@@@ IF VALID-ACCT-SWITCH = 'Y' @C@@@@ UM )@@G@@ PERFORM 1600-TOTAL-COMM-TRANS @E@@@@ VARYIUN )@@G@@NG SUB FROM 1 BY 1 UNTIL SUB > 3 @C@@@@ PERFORM 1350-TRUO )@@G@@K-AND-REEL-TOTALS @C@@@@ PERFORM 1450-3-SHIFT-ACCT-TOTALS UP )@@G@@@E@@@@ VARYING SUB FROM 1 BY 1 UNTIL SUB > 3 @B@@@@UQ )@@G@@ PERFORM 1400-SUP-TOTALS. @B@@@@ PERFORM 1750-UR )@@G@@READ-ACCNT-FILE. @D@@@@ IF ACCT-NO IS NOT EQUAL TO AC-ACCOUNTUS )@@G@@-NUM @B@@@@ IF VALID-ACCT-SWITCH = 'Y' @D@@@@ UT )@@G@@ PERFORM 1700-ADD-UP-COMM-TRANS-COST@C@@@@ PERFOUU )@@G@@RM 1760-READ-DECODE-01 @^@@@@ ELSE @C@@@@ UV )@@G@@ MOVE 'Y' TO VALID-ACCT-SWITCH@D@@@@ MOVE AC-ACCUW )@@G@@OUNT-NUM TO ACCT-NO @C@@@@ PERFORM 1760-READ-DECODUX )@@G@@E-01. @A@@@@ 1350-TRK-AND-REEL-TOTALS. @E@@@@ ADD AC-UY )@@G@@OUTSTAND-CAT-TKS TO TOUTSD-CAT-TRACKS-NO. @E@@@@ ADD AC-OUTSTAUZ )@@G@@ND-LIB-REELS TO TOUTSD-LIB-REELS-NO.@^@@@@ IF DPS = 0 @E@@@@VA )@@G@@ ADD AC-OUTSTAND-CAT-TKS TO OUTSD-CAT-TRACKS-NO @E@@@@ VB )@@G@@ ADD AC-OUTSTAND-LIB-REELS TO OUTSD-LIB-REELS-NO.@^@@@@ 1400-VC )@@G@@SUP-TOTALS. @D@@@@ IF ACCT-NO > '149' AND ACCT-NO < '191' VD )@@G@@@B@@@@ AND ACCT-NO NOT = '180' @A@@@@ OR AVE )@@G@@CCT-NO = '865' @A@@@@ OR ACCT-NO = '900' @ @@@@ VF )@@G@@ IF AC-DD = '32'@D@@@@ PERFORM 1410-WK-DAY-SUPVG )@@G@@-TOTALS @E@@@@ VARYING SUB FROM 1 BY 1 UNTIL SVH )@@G@@UB > 3@^@@@@ ELSE @D@@@@ PERFORM 142VI )@@G@@0-WK-END-SUP-TOTALS @E@@@@ VARYING SUB FROM 1 VJ )@@G@@BY 1 UNTIL SUB > 3@#@@@@ ELSE @C@@@@ PERFORM 1VK )@@G@@401-OTHER-ACCT-SUPS. @ @@@@ 1401-OTHER-ACCT-SUPS. @ @@@@ VL )@@G@@ IF AC-DD = '32' @C@@@@ PERFORM 1402-WK-DAY-OTHER-SVM )@@G@@UPS @#@@@@ ELSE @C@@@@ PERFORM 1403-WK-END-OVN )@@G@@THER-SUPS. @ @@@@ 1402-WK-DAY-OTHER-SUPS.@B@@@@ PERFORMVO )@@G@@ 1410-WK-DAY-SUP-TOTALS @D@@@@ VARYING SUB FROM 1 BY 1 UNTVP )@@G@@IL SUB > 3. @B@@@@ PERFORM 1430-OTHER-SUP-TOTALS @D@@@@ VQ )@@G@@ VARYING SUB FROM 1 BY 1 UNTIL SUB > 3. @ @@@@ 1403-WK-ENDVR )@@G@@-OTHER-SUPS.@B@@@@ PERFORM 1420-WK-END-SUP-TOTALS @D@@@@ VS )@@G@@ VARYING SUB FROM 1 BY 1 UNTIL SUB > 3. @B@@@@ PERFORMVT )@@G@@ 1435-OTHER-33-SUP-TOT @D@@@@ VARYING SUB FROM 1 BY 1 UNTVU )@@G@@IL SUB > 3. @ @@@@014150 1410-WK-DAY-SUP-TOTALS.@^@@@@014160 IF SUB VV )@@G@@= 1 @F@@@@014170 ADD TOT-SUPS OF AC-BATCH-DATA (SUB) TO SHIFT1-SUPVW )@@G@@S @F@@@@014180 ADD TOT-SUPS OF AC-DEMAND-DATA (SUB) TO SHIFT1-SUVX )@@G@@PS @F@@@@014190 ADD TOT-SUPS OF AC-RT-BATCH-DATA (SUB) TO SHIFT1-VY )@@G@@SUPS @F@@@@014200 ADD TOT-SUPS OF AC-RT-DMAND-DATA (SUB) TO SHIFT1-VZ )@@G@@SUPS. @^@@@@014210 IF SUB = 2 @F@@@@014220 ADD TOT-SUPS OF AC-WA )@@G@@BATCH-DATA (SUB) TO SHIFT2-SUPS @F@@@@014230 ADD TOT-SUPS OF AC-WB )@@G@@DEMAND-DATA (SUB) TO SHIFT2-SUPS @F@@@@014240 ADD TOT-SUPS OF AC-WC )@@G@@RT-BATCH-DATA (SUB) TO SHIFT2-SUPS @F@@@@014250 ADD TOT-SUPS OF AC-WD )@@G@@RT-DMAND-DATA (SUB) TO SHIFT2-SUPS. @^@@@@015010 IF SUB = 3 @F@@@@WE )@@G@@015020 ADD TOT-SUPS OF AC-BATCH-DATA (SUB) TO SHIFT3-SUPS @F@@@@WF )@@G@@015030 ADD TOT-SUPS OF AC-DEMAND-DATA (SUB) TO SHIFT3-SUPS @F@@@@WG )@@G@@015040 ADD TOT-SUPS OF AC-RT-BATCH-DATA (SUB) TO SHIFT3-SUPS @F@@@@WH )@@G@@015050 ADD TOT-SUPS OF AC-RT-DMAND-DATA (SUB) TO SHIFT3-SUPS. @ @@@@WI )@@G@@015060 1420-WK-END-SUP-TOTALS.@F@@@@015120 ADD TOT-SUPS OF AC-BATCH-WJ )@@G@@DATA (SUB) TO SHIFT1-SUPS. @F@@@@ ADD TOT-SUPS OF AC-BATCH-WK )@@G@@DATA (SUB) TO SHIFT4-SUPS. @F@@@@ ADD TOT-SUPS OF AC-DEMANDWL )@@G@@-DATA (SUB) TO SHIFT1-SUPS. @F@@@@ ADD TOT-SUPS OF AC-DEMANDWM )@@G@@-DATA (SUB) TO SHIFT4-SUPS. @F@@@@ ADD TOT-SUPS OF AC-RT-BATWN )@@G@@CH-DATA (SUB) TO SHIFT1-SUPS. @F@@@@ ADD TOT-SUPS OF AC-RT-BATWO )@@G@@CH-DATA (SUB) TO SHIFT4-SUPS. @F@@@@ ADD TOT-SUPS OF AC-RT-DMAWP )@@G@@ND-DATA (SUB) TO SHIFT1-SUPS. @F@@@@ ADD TOT-SUPS OF AC-RT-DMAWQ )@@G@@ND-DATA (SUB) TO SHIFT4-SUPS. @ @@@@ 1430-OTHER-SUP-TOTALS. @^@@@@WR )@@G@@ IF SUB = 1 @C@@@@ ADD TOT-SUPS OF AC-BATCH-DATA (WS )@@G@@SUB) @E@@@@ TOT-SUPS OF AC-DEMAND-DATA (SUB) WT )@@G@@@F@@@@ TOT-SUPS OF AC-RT-BATCH-DATA (SUB) WU )@@G@@@F@@@@ TOT-SUPS OF AC-RT-DMAND-DATA (SUB) WV )@@G@@@A@@@@ TO NON-DP-SUPS-1. @^@@@@ IF SUB = 2 WW )@@G@@@C@@@@ ADD TOT-SUPS OF AC-BATCH-DATA (SUB) @E@@@@ WX )@@G@@ TOT-SUPS OF AC-DEMAND-DATA (SUB) @F@@@@ WY )@@G@@ TOT-SUPS OF AC-RT-BATCH-DATA (SUB) @F@@@@ WZ )@@G@@ TOT-SUPS OF AC-RT-DMAND-DATA (SUB) @A@@@@ TO XA )@@G@@NON-DP-SUPS-2. @^@@@@ IF SUB = 3 @C@@@@ ADD TOTXB )@@G@@-SUPS OF AC-BATCH-DATA (SUB) @E@@@@ TOT-SUPS XC )@@G@@OF AC-DEMAND-DATA (SUB) @F@@@@ TOT-SUPS OF AC-XD )@@G@@RT-BATCH-DATA (SUB) @F@@@@ TOT-SUPS OF AC-XE )@@G@@RT-DMAND-DATA (SUB) @A@@@@ TO NON-DP-SUPS-3. @ @@@@XF )@@G@@ 1435-OTHER-33-SUP-TOT. @F@@@@ ADD TOT-SUPS OF AC-BATCH-XG )@@G@@DATA (SUB) TO NON-DP-SUPS-1. @F@@@@ ADD TOT-SUPS OF AC-BATCH-XH )@@G@@DATA (SUB) TO NON-DP-SUPS-4. @F@@@@ ADD TOT-SUPS OF AC-DEMANDXI )@@G@@-DATA (SUB) TO NON-DP-SUPS-1. @F@@@@ ADD TOT-SUPS OF AC-DEMANDXJ )@@G@@-DATA (SUB) TO NON-DP-SUPS-4. @G@@@@ ADD TOT-SUPS OF AC-RT-BATXK )@@G@@CH-DATA (SUB) TO NON-DP-SUPS-1. @G@@@@ ADD TOT-SUPS OF AC-XL )@@G@@RT-BATCH-DATA (SUB) TO NON-DP-SUPS-4. @G@@@@ ADD TOT-SUPS XM )@@G@@OF AC-RT-DMAND-DATA (SUB) TO NON-DP-SUPS-1. @G@@@@ ADD TOTXN )@@G@@-SUPS OF AC-RT-DMAND-DATA (SUB) TO NON-DP-SUPS-4. @A@@@@016010 1450-XO )@@G@@3-SHIFT-ACCT-TOTALS. @C@@@@ IF DPS = 0 PERFORM 1460-3-NON-XP )@@G@@DP. @G@@@@016020 ADD STD-PGS OF AC-BATCH-DATA (SUB) TO TPAGES-CREAXQ )@@G@@TED-NO. @G@@@@016030 ADD STD-PGS OF AC-DEMAND-DATA (SUB) TO TPAGXR )@@G@@ES-CREATED-NO. @G@@@@016040 ADD STD-PGS OF AC-RT-BATCH-DATA (SUB)XS )@@G@@ TO TPAGES-CREATED-NO. @G@@@@016050 ADD STD-PGS OF AC-RT-DMAND-DATAXT )@@G@@ (SUB) TO TPAGES-CREATED-NO. @D@@@@016060 ADD SPC-FORMS (SUB) TO TSXU )@@G@@PECIAL-FORMS-NO. @G@@@@016070 ADD MASS-STOR-XFERS OF AC-BATCH-DATA XV )@@G@@(SUB) TO TM-S-XFERS-NO. @G@@@@016080 ADD MASS-STOR-XFERS OF AC-DEMANXW )@@G@@D-DATA (SUB) TO TM-S-XFERS-NO.@E@@@@016090 ADD MASS-STOR-XFERS OF ACXX )@@G@@-RT-BATCH-DATA (SUB) @B@@@@ TO TM-S-XFERS-NO. XY )@@G@@@E@@@@016110 ADD MASS-STOR-XFERS OF AC-RT-DMAND-DATA (SUB) TO @ @@@@XZ )@@G@@016120 TM-S-XFERS-NO. @G@@@@016130 ADD REELS-MTD OF AC-BATCHYA )@@G@@-DATA (SUB) TO TTAPE-MOUNTS-NO. @G@@@@016140 ADD REELS-MTD OF ACYB )@@G@@-DEMAND-DATA (SUB) TO TTAPE-MOUNTS-NO. @G@@@@016150 ADD REELS-MTDYC )@@G@@ OF AC-RT-BATCH-DATA (SUB) TO TTAPE-MOUNTS-NO. @G@@@@016160 ADD REEYD )@@G@@LS-MTD OF AC-RT-DMAND-DATA (SUB) TO TTAPE-MOUNTS-NO. @G@@@@016170 AYE )@@G@@DD TAPE-XFERS OF AC-BATCH-DATA (SUB) TO TTAPE-DATA-XFERS-NO.@H@@@@016180YF )@@G@@ ADD TAPE-XFERS OF AC-DEMAND-DATA (SUB) TO TTAPE-DATA-XFERS-NO. YG )@@G@@@D@@@@016190 ADD TAPE-XFERS OF AC-RT-BATCH-DATA (SUB) @C@@@@ YH )@@G@@ TO TTAPE-DATA-XFERS-NO. @D@@@@016210 ADD TAPE-XFERYI )@@G@@S OF AC-RT-DMAND-DATA (SUB) TO@A@@@@016220 TTAPE-DATA-XFERS-NO. YJ )@@G@@@F@@@@016230 ADD CARDS-IN OF AC-BATCH-DATA (SUB) TO TCARDS-READ-NO. YK )@@G@@@F@@@@016240 ADD CARDS-IN OF AC-DEMAND-DATA (SUB) TO TCARDS-READ-NO.YL )@@G@@@G@@@@016250 ADD CARDS-IN OF AC-RT-BATCH-DATA (SUB) TO TCARDS-READ-NYM )@@G@@O. @G@@@@017010 ADD CARDS-IN OF AC-RT-DMAND-DATA (SUB) TO TCARDS-YN )@@G@@READ-NO. @G@@@@017020 ADD CARDS-OUT OF AC-BATCH-DATA (SUB) TO TCAYO )@@G@@RDS-PUNCHED-NO. @G@@@@017030 ADD CARDS-OUT OF AC-DEMAND-DATA (SUB)YP )@@G@@ TO TCARDS-PUNCHED-NO. @G@@@@017040 ADD CARDS-OUT OF AC-RT-BATCH-DAYQ )@@G@@TA (SUB) TO TCARDS-PUNCHED-NO.@G@@@@017050 ADD CARDS-OUT OF AC-RT-DMYR )@@G@@AND-DATA (SUB) TO TCARDS-PUNCHED-NO.@G@@@@017060 ADD RMV-MNTS OF AC-YS )@@G@@BATCH-DATA (SUB) TO TRM-PACK-MOUNTS-NO. @G@@@@017070 ADD RMV-MNTS YT )@@G@@OF AC-DEMAND-DATA (SUB) TO TRM-PACK-MOUNTS-NO. @G@@@@017080 ADD RMVYU )@@G@@-MNTS OF AC-RT-BATCH-DATA (SUB) TO TRM-PACK-MOUNTS-NO.@G@@@@017090 AYV )@@G@@DD RMV-MNTS OF AC-RT-DMAND-DATA (SUB) TO TRM-PACK-MOUNTS-NO.@G@@@@017100YW )@@G@@ ADD RMV-SECS OF AC-BATCH-DATA (SUB) TO TRM-PACK-SECS-NO. @G@@@@YX )@@G@@017110 ADD RMV-SECS OF AC-DEMAND-DATA (SUB) TO TRM-PACK-SECS-NO. YY )@@G@@@G@@@@017120 ADD RMV-SECS OF AC-RT-BATCH-DATA (SUB) TO TRM-PACK-SECSYZ )@@G@@-NO. @G@@@@017130 ADD RMV-SECS OF AC-RT-DMAND-DATA (SUB) TO TRM-PACZA )@@G@@K-SECS-NO. @^@@@@ 1460-3-NON-DP. @F@@@@016020 ADD STD-PGS OZB )@@G@@F AC-BATCH-DATA (SUB) TO PAGES-CREATED-NO.@G@@@@016030 ADD STD-PGS OZC )@@G@@F AC-DEMAND-DATA (SUB) TO PAGES-CREATED-NO. @G@@@@016040 ADD STDZD )@@G@@-PGS OF AC-RT-BATCH-DATA (SUB) TO PAGES-CREATED-NO. @G@@@@016050 AZE )@@G@@DD STD-PGS OF AC-RT-DMAND-DATA (SUB) TO PAGES-CREATED-NO. @D@@@@016060ZF )@@G@@ ADD SPC-FORMS (SUB) TO SPECIAL-FORMS-NO. @G@@@@016070 ADD MASZG )@@G@@S-STOR-XFERS OF AC-BATCH-DATA (SUB) TO M-S-XFERS-NO. @G@@@@016080 AZH )@@G@@DD MASS-STOR-XFERS OF AC-DEMAND-DATA (SUB) TO M-S-XFERS-NO. @E@@@@016090ZI )@@G@@ ADD MASS-STOR-XFERS OF AC-RT-BATCH-DATA (SUB) @B@@@@ ZJ )@@G@@ TO M-S-XFERS-NO. @E@@@@016110 ADD MASS-STOR-XFERS OF ACZK )@@G@@-RT-DMAND-DATA (SUB) TO @ @@@@016120 M-S-XFERS-NO. @F@@@@016130ZL )@@G@@ ADD REELS-MTD OF AC-BATCH-DATA (SUB) TO TAPE-MOUNTS-NO.@G@@@@016140ZM )@@G@@ ADD REELS-MTD OF AC-DEMAND-DATA (SUB) TO TAPE-MOUNTS-NO. @G@@@@ZN )@@G@@016150 ADD REELS-MTD OF AC-RT-BATCH-DATA (SUB) TO TAPE-MOUNTS-NO. ZO )@@G@@@G@@@@016160 ADD REELS-MTD OF AC-RT-DMAND-DATA (SUB) TO TAPE-MOUNTS-ZP )@@G@@NO. @G@@@@016170 ADD TAPE-XFERS OF AC-BATCH-DATA (SUB) TO TAPE-DATZQ )@@G@@A-XFERS-NO. @G@@@@016180 ADD TAPE-XFERS OF AC-DEMAND-DATA (SUB) TO TZR )@@G@@APE-DATA-XFERS-NO.@D@@@@016190 ADD TAPE-XFERS OF AC-RT-BATCH-DATA (SZS )@@G@@UB) @C@@@@ TO TAPE-DATA-XFERS-NO. @D@@@@016210ZT )@@G@@ ADD TAPE-XFERS OF AC-RT-DMAND-DATA (SUB) TO@A@@@@016220 TAPZU )@@G@@E-DATA-XFERS-NO. @F@@@@016230 ADD CARDS-IN OF AC-BATCH-DATA (SUB) TZV )@@G@@O CARDS-READ-NO. @F@@@@016240 ADD CARDS-IN OF AC-DEMAND-DATA (SUB) ZW )@@G@@TO CARDS-READ-NO. @G@@@@016250 ADD CARDS-IN OF AC-RT-BATCH-DATA (SUBZX )@@G@@) TO CARDS-READ-NO. @G@@@@017010 ADD CARDS-IN OF AC-RT-DMAND-DATZY )@@G@@A (SUB) TO CARDS-READ-NO. @G@@@@017020 ADD CARDS-OUT OF AC-BATCHZZ )@@G@@-DATA (SUB) TO CARDS-PUNCHED-NO. @G@@@@017030 ADD CARDS-OUT OF ACAA )@@G@@-DEMAND-DATA (SUB) TO CARDS-PUNCHED-NO. @G@@@@017040 ADD CARDS-OUTAB )@@G@@ OF AC-RT-BATCH-DATA (SUB) TO CARDS-PUNCHED-NO. @G@@@@017050 ADD CARAC )@@G@@DS-OUT OF AC-RT-DMAND-DATA (SUB) TO CARDS-PUNCHED-NO. @G@@@@017060 AAD )@@G@@DD RMV-MNTS OF AC-BATCH-DATA (SUB) TO RM-PACK-MOUNTS-NO. @G@@@@017070AE )@@G@@ ADD RMV-MNTS OF AC-DEMAND-DATA (SUB) TO RM-PACK-MOUNTS-NO. @G@@@@AF )@@G@@017080 ADD RMV-MNTS OF AC-RT-BATCH-DATA (SUB) TO RM-PACK-MOUNTS-NO. AG )@@G@@@G@@@@017090 ADD RMV-MNTS OF AC-RT-DMAND-DATA (SUB) TO RM-PACK-MOUNTAH )@@G@@S-NO. @F@@@@017100 ADD RMV-SECS OF AC-BATCH-DATA (SUB) TO RM-PACK-SEAI )@@G@@CS-NO.@G@@@@017110 ADD RMV-SECS OF AC-DEMAND-DATA (SUB) TO RM-PACK-SAJ )@@G@@ECS-NO. @G@@@@017120 ADD RMV-SECS OF AC-RT-BATCH-DATA (SUB) TO RAK )@@G@@M-PACK-SECS-NO. @G@@@@017130 ADD RMV-SECS OF AC-RT-DMAND-DATA (SUBAL )@@G@@) TO RM-PACK-SECS-NO. @ @@@@018030 1600-TOTAL-COMM-TRANS. @F@@@@018040AM )@@G@@ ADD RUNS OF AC-RT-DMAND-DATA (SUB) TO COMM-TRANS-NO. @A@@@@ AN )@@G@@ 1700-ADD-UP-COMM-TRANS-COST. @A@@@@ IF TRANS-COST IS NUMERIC AO )@@G@@@C@@@@ MOVE TRANS-COST TO TRANS-COST-5 @D@@@@ AP )@@G@@ MULTIPLY COMM-TRANS-NO BY TRANS-COST-5 @B@@@@ GIVINAQ )@@G@@G W-TRANS-COST @D@@@@ ADD W-TRANS-COST TO COMM-TRANS ROAR )@@G@@UNDED @D@@@@ ADD COMM-TRANS-NO TO COMM-TRANS-TOTAL. @B@@@@AS )@@G@@ MOVE AC-ACCOUNT-NUM TO ACCT-NO.@B@@@@ MOVE ZEROES TAT )@@G@@O COMM-TRANS-NO. @ @@@@ 1750-READ-ACCNT-FILE. @^@@@@ RAU )@@G@@EAD ACCT-REC@D@@@@ AT END MOVE 'Y' TO LAST-RECORD-FLAG. AV )@@G@@@A@@@@ ADD 1 TO MO-ACT-REC-CNT. @F@@@@ IF AC-ACCOUNTAW )@@G@@-NUM > '149' AND AC-ACCOUNT-NUM < '191' @C@@@@ AND AC-AAX )@@G@@CCOUNT-NUM NOT = '180' @B@@@@ OR AC-ACCOUNT-NUM = '865' AY )@@G@@@B@@@@ OR AC-ACCOUNT-NUM = '900' @ @@@@ MOVAZ )@@G@@E 1 TO DPS @A@@@@ ELSE MOVE 0 TO DPS. @ @@@@ 1760-BA )@@G@@READ-DECODE-01. @B@@@@ MOVE ACCT-NO TO 3-DIGIT-FIELD. @C@@@@BB )@@G@@ READ TAB-DISC INTO TABLE-DISC-01 @ @@@@ INVBC )@@G@@ALID KEY @C@@@@ MOVE 'N' TO VALID-ACCT-SWITCH@C@@@@BD )@@G@@ MOVE 'Y' TO ABORT-SWITCH @G@@@@ BE )@@G@@ DISPLAY 'ACCT NUMBER ' ACCT-NO ' NOT ON TABLE-DISC' @B@@@@ BF )@@G@@ UPON PRINT-DEVICE. @B@@@@ ADD 1 TO TABLE-DISC-REC-CBG )@@G@@NT. @^@@@@019010 1800-COST-TOTALS.@A@@@@019020 PERFORM 1900-CARDS-BH )@@G@@READ. @B@@@@019030 PERFORM 2000-CARDS-PUNCHED. @B@@@@019040 PBI )@@G@@ERFORM 2100-PAGES-CREATED. @B@@@@019050 PERFORM 2200-FORMS-MOUNTEBJ )@@G@@D. @B@@@@019060 PERFORM 2300-REELS-MOUNTED. @A@@@@019070 PBK )@@G@@ERFORM 2400-TAPE-XFERS. @B@@@@019080 PERFORM 2500-REELS-IN-LIBR. BL )@@G@@@B@@@@019090 PERFORM 2600-RMV-PACK-MOUNTS. @B@@@@019100 PERFORMBM )@@G@@ 2700-RMV-PACK-SECS. @A@@@@019110 PERFORM 2800-CAT-TRKS. @A@@@@BN )@@G@@019120 PERFORM 2900-M-S-XFERS. @^@@@@019130 1900-CARDS-READ. @A@@@@BO )@@G@@019140 MOVE 03 TO DECODE-FIELD. @B@@@@019150 MOVE 001 TO 3-DIGITBP )@@G@@-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-03. @A@@@@ BQ )@@G@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISPLAY 'NO COSTS FORBR )@@G@@ CARDS READ ON DECODE-03' @A@@@@ UPON PRINT-DEVICEBS )@@G@@@A@@@@ ENTER FD 'ABORT'. @C@@@@019170 MOVE UNITS TOBT )@@G@@ CARDS-READ-UNIT-PRT. @F@@@@019180 MOVE UNIT-COST TO CARDS-READ-COBU )@@G@@ST-PRT UNIT-COST-5. @E@@@@ MOVE SHIFT-DIFF-1 TO SHIFT1-DIFBV )@@G@@F SHIFT1-DIFF-PRT.@E@@@@ MOVE SHIFT-DIFF-3 TO SHIFT3-DIFF SHIFBW )@@G@@T3-DIFF-PRT.@E@@@@019210 IF UNITS = 'I' MOVE CARDS-READ-NO TO 1ST-COBX )@@G@@MPUTE.@D@@@@019220 IF UNITS = 'K' DIVIDE CARDS-READ-NO BY 1000@A@@@@BY )@@G@@ GIVING 1ST-COMPUTE. @F@@@@019230 IF UNITS = 'M' DIVIBZ )@@G@@DE CARDS-READ-NO BY 1000000 GIVING @ @@@@ 1ST-COMPUTE. CA )@@G@@@F@@@@019240 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING CARDS-READ CB )@@G@@@^@@@@ ROUNDED. @D@@@@019250 MOVE CARDS-READ TO CARDS-CC )@@G@@READ-TOTAL-PRT. @ @@@@020010 2000-CARDS-PUNCHED. @B@@@@020030 MCD )@@G@@OVE 002 TO 3-DIGIT-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-CE )@@G@@03. @A@@@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISCF )@@G@@PLAY 'NO COSTS FOR CARDS PUNCHED ON DECODE-03' @A@@@@ CG )@@G@@ UPON PRINT-DEVICE@A@@@@ ENTER FD 'ABORT'. @C@@@@020050CH )@@G@@ MOVE UNITS TO CARDS-PUNCHED-UNIT-PRT.@F@@@@020060 MOVE UNIT-COSCI )@@G@@T TO CARDS-PUNCHED-COST-PRT UNIT-COST-5. @F@@@@020070 IF UNITS = 'ICJ )@@G@@' MOVE CARDS-PUNCHED-NO TO 1ST-COMPUTE. @F@@@@020080 IF UNITS = 'KCK )@@G@@' DIVIDE CARDS-PUNCHED-NO BY 1000 GIVING @ @@@@020090 1ST-COMPUTCL )@@G@@E. @G@@@@020100 IF UNITS = 'M' DIVIDE CARDS-PUNCHED-NO BY 1000000CM )@@G@@ GIVING @ @@@@020110 1ST-COMPUTE. @G@@@@020120 MULTIPLCN )@@G@@Y 1ST-COMPUTE BY UNIT-COST-5 GIVING CARDS-PUNCHED @^@@@@ CO )@@G@@ ROUNDED. @E@@@@020130 MOVE CARDS-PUNCHED TO CARDS-PUNCHED-TOTAL-PCP )@@G@@RT. @ @@@@020140 2100-PAGES-CREATED. @B@@@@020150 MOVE 003 TO 3CQ )@@G@@-DIGIT-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-03. @A@@@@CR )@@G@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISPLAY 'NO COSCS )@@G@@TS FOR PAGES CREATED ON DECODE-03' @A@@@@ UPON PRINT-CT )@@G@@DEVICE@A@@@@ ENTER FD 'ABORT'. @B@@@@020170 MOVE UNCU )@@G@@ITS TO PAGES-UNIT-PRT. @E@@@@020180 MOVE UNIT-COST TO PAGES-COST-PRCV )@@G@@T UNIT-COST-5. @F@@@@020190 IF UNITS = 'I' MOVE PAGES-CREATED-NO CW )@@G@@TO 1ST-COMPUTE. @F@@@@020200 IF UNITS = 'K' DIVIDE PAGES-CREATED-NCX )@@G@@O BY 1000 GIVING @ @@@@020210 1ST-COMPUTE. @G@@@@020220 ICY )@@G@@F UNITS = 'M' DIVIDE PAGES-CREATED-NO BY 1000000 GIVING @ @@@@020230CZ )@@G@@ 1ST-COMPUTE. @G@@@@020240 MULTIPLY 1ST-COMPUTE BY UNIT-CODA )@@G@@ST-5 GIVING PAGES-CREATED @^@@@@ ROUNDED. @D@@@@020250DB )@@G@@ MOVE PAGES-CREATED TO PAGES-TOTAL-PRT. @ @@@@021010 2200-FORMS-DC )@@G@@MOUNTED. @B@@@@021020 MOVE 004 TO 3-DIGIT-FIELD. @B@@@@ DD )@@G@@ PERFORM 2950-READ-DECODE-03. @A@@@@ IF DECODE-03-SWITCHDE )@@G@@ = 'N'@F@@@@ DISPLAY 'NO COSTS FOR FORMS MOUNTED ON DECODEDF )@@G@@-03' @A@@@@ UPON PRINT-DEVICE@A@@@@ ENTDG )@@G@@ER FD 'ABORT'. @B@@@@021040 MOVE UNITS TO FORMS-UNIT-PRT. @E@@@@DH )@@G@@021050 MOVE UNIT-COST TO FORMS-COST-PRT UNIT-COST-5. @F@@@@021060DI )@@G@@ IF UNITS = 'I' MOVE SPECIAL-FORMS-NO TO 1ST-COMPUTE. @F@@@@021070DJ )@@G@@ IF UNITS = 'K' DIVIDE SPECIAL-FORMS-NO BY 1000 GIVING @ @@@@021080DK )@@G@@ 1ST-COMPUTE. @G@@@@021090 IF UNITS = 'M' DIVIDE SPECIAL-FDL )@@G@@ORMS-NO BY 1000000 GIVING @ @@@@021100 1ST-COMPUTE. @G@@@@DM )@@G@@021110 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING SPECIAL-FORMS DN )@@G@@@^@@@@ ROUNDED. @D@@@@021120 MOVE SPECIAL-FORMS TO FORDO )@@G@@MS-TOTAL-PRT. @ @@@@021130 2300-REELS-MOUNTED. @B@@@@021140 MDP )@@G@@OVE 005 TO 3-DIGIT-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-DQ )@@G@@03. @A@@@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISDR )@@G@@PLAY 'NO COSTS FOR REELS MOUNTED ON DECODE-03' @A@@@@ DS )@@G@@ UPON PRINT-DEVICE@A@@@@ ENTER FD 'ABORT'. @C@@@@021160DT )@@G@@ MOVE UNITS TO REELS-MOUNTED-UNIT-PRT.@F@@@@021170 MOVE UNIT-COSDU )@@G@@T TO REELS-MOUNTED-COST-PRT UNIT-COST-5. @F@@@@021180 IF UNITS = 'IDV )@@G@@' MOVE TAPE-MOUNTS-NO TO 1ST-COMPUTE. @F@@@@021190 IF UNITS = 'KDW )@@G@@' DIVIDE TAPE-MOUNTS-NO BY 1000 GIVING @ @@@@ 1ST-COMPUTDX )@@G@@E. @F@@@@021200 IF UNITS = 'M' DIVIDE TAPE-MOUNTS-NO BY 1000000 GDY )@@G@@IVING @ @@@@021210 1ST-COMPUTE. @G@@@@021220 MULTIPLY 1ST-DZ )@@G@@COMPUTE BY UNIT-COST-5 GIVING REELS-MOUNTED @^@@@@ ROUEA )@@G@@NDED. @D@@@@021230 MOVE REELS-MOUNTED TO TAPE-MNTS-TOTAL-PRT. @^@@@@EB )@@G@@022010 2400-TAPE-XFERS. @B@@@@022020 MOVE 006 TO 3-DIGIT-FIELD. EC )@@G@@@B@@@@ PERFORM 2950-READ-DECODE-03. @A@@@@ IF DECOED )@@G@@DE-03-SWITCH = 'N'@E@@@@ DISPLAY 'NO COSTS FOR TAPE DATA TEE )@@G@@RANSFERS' @A@@@@ UPON PRINT-DEVICE@A@@@@ EF )@@G@@ ENTER FD 'ABORT'. @D@@@@022040 MOVE UNITS TO TAPE-DATA-XFERS-UEG )@@G@@NIT-PRT. @F@@@@022050 MOVE UNIT-COST TO TAPE-DATA-XFERS-COST-PRT EH )@@G@@UNIT-COST-5.@F@@@@022060 IF UNITS = 'I' MOVE TAPE-DATA-XFERS-NO TO 1EI )@@G@@ST-COMPUTE. @F@@@@022070 IF UNITS = 'K' DIVIDE TAPE-DATA-XFERS-NO BYEJ )@@G@@ 1000 GIVING@ @@@@022080 1ST-COMPUTE. @G@@@@022090 IF UNITEK )@@G@@S = 'M' DIVIDE TAPE-DATA-XFERS-NO BY 1000000 GIVING @ @@@@022100 EL )@@G@@ 1ST-COMPUTE. @C@@@@022110 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 EM )@@G@@@E@@@@ GIVING TAPE-XFERS OF COST-TOTALS ROUNDED. @G@@@@EN )@@G@@022120 MOVE TAPE-XFERS OF COST-TOTALS TO TAPE-DATA-XFERS-TOTAL-PRT. EO )@@G@@@ @@@@022130 2500-REELS-IN-LIBR. @B@@@@022140 MOVE 007 TO 3-DIGITEP )@@G@@-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-03. @A@@@@ EQ )@@G@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISPLAY 'NO COSTS FORER )@@G@@ LIBRARY REELS ON DECODE-03' @A@@@@ UPON PRINT-DEVICEES )@@G@@@A@@@@ ENTER FD 'ABORT'. @C@@@@022160 MOVE UNITS TOET )@@G@@ LIB-REELS-UNIT-PRT. @E@@@@022170 MOVE UNIT-COST TO LIB-REELS-COSEU )@@G@@T-PRT UNIT-COST-5.@F@@@@022180 IF UNITS = 'I' MOVE OUTSD-LIB-REELS-NEV )@@G@@O TO 1ST-COMPUTE. @F@@@@022190 IF UNITS = 'K' DIVIDE OUTSD-LIB-REELSEW )@@G@@-NO BY 1000 GIVING@ @@@@022200 1ST-COMPUTE. @G@@@@022210 IEX )@@G@@F UNITS = 'M' DIVIDE OUTSD-LIB-REELS-NO BY 1000000 GIVING @ @@@@022220EY )@@G@@ 1ST-COMPUTE. @D@@@@022230 MULTIPLY 1ST-COMPUTE BY UNIT-COEZ )@@G@@ST-5 GIVING @B@@@@ OUTSTAND-LIB-REELS ROUNDED.@E@@@@022240FA )@@G@@ MOVE OUTSTAND-LIB-REELS TO LIB-REELS-TOTAL-PRT. @ @@@@023010 2600-FB )@@G@@RMV-PACK-MOUNTS. @B@@@@023020 MOVE 008 TO 3-DIGIT-FIELD. @B@@@@FC )@@G@@ PERFORM 2950-READ-DECODE-03. @A@@@@ IF DECODE-03-FD )@@G@@SWITCH = 'N'@E@@@@ DISPLAY 'NO COSTS FOR REMOVABLE PACK MOFE )@@G@@UNTS' @A@@@@ UPON PRINT-DEVICE@A@@@@ ENTFF )@@G@@ER FD 'ABORT'. @D@@@@023040 MOVE UNITS TO REMOV-PACK-MTS-UNIT-PRTFG )@@G@@. @F@@@@023050 MOVE UNIT-COST TO REMOV-PACK-MTS-COST-PRT UNIT-COFH )@@G@@ST-5. @F@@@@023060 IF UNITS = 'I' MOVE RM-PACK-MOUNTS-NO TO 1ST-COMPFI )@@G@@UTE. @F@@@@023070 IF UNITS = 'K' DIVIDE RM-PACK-MOUNTS-NO BY 1000 GFJ )@@G@@IVING @ @@@@023080 1ST-COMPUTE. @G@@@@023090 IF UNITS = 'MFK )@@G@@' DIVIDE RM-PACK-MOUNTS-NO BY 1000000 GIVING @ @@@@023100 1ST-FL )@@G@@COMPUTE. @G@@@@023110 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING FM )@@G@@RMV-PACKS-MOUNTED @^@@@@ ROUNDED. @F@@@@023120 MOVE RMFN )@@G@@V-PACKS-MOUNTED TO REMOV-PACK-MTS-TOTAL-PRT. @ @@@@023130 2700-RMV-PAFO )@@G@@CK-SECS. @B@@@@023140 MOVE 009 TO 3-DIGIT-FIELD. @B@@@@ FP )@@G@@ PERFORM 2950-READ-DECODE-03. @A@@@@ IF DECODE-03-SWITCHFQ )@@G@@ = 'N'@E@@@@ DISPLAY 'NO COSTS FOR REMOVABLE PACK SECS' FR )@@G@@@A@@@@ UPON PRINT-DEVICE@A@@@@ ENTER FD FS )@@G@@'ABORT'. @D@@@@023160 MOVE UNITS TO REMOV-PACK-SEC-UNIT-PRT. FT )@@G@@@F@@@@023170 MOVE UNIT-COST TO REMOV-PACK-SECS-COST-PRT UNIT-COST-5.FU )@@G@@@F@@@@023180 IF UNITS = 'I' MOVE RM-PACK-SECS-NO TO 1ST-COMPUTE. FV )@@G@@@F@@@@023190 IF UNITS = 'K' DIVIDE RM-PACK-SECS-NO BY 1000 GIVING FW )@@G@@@ @@@@023200 1ST-COMPUTE. @F@@@@023210 IF UNITS = 'M' DIVIFX )@@G@@DE RM-PACK-SECS-NO BY 1000000 GIVING@ @@@@023220 1ST-COMPUTE. FY )@@G@@@G@@@@023230 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING RMV-PACKS-SEFZ )@@G@@CS @^@@@@ ROUNDED. @E@@@@023240 MOVE RMV-PACKS-SECSGA )@@G@@ TO REMOV-PACK-SECS-TOTAL-PRT.@^@@@@024010 2800-CAT-TRKS. @B@@@@024020GB )@@G@@ MOVE 010 TO 3-DIGIT-FIELD. @B@@@@ PERFORM 2950-READ-DGC )@@G@@ECODE-03. @A@@@@ IF DECODE-03-SWITCH = 'N'@E@@@@ GD )@@G@@ DISPLAY 'NO COSTS FOR CATALOGUED TRACKS' @A@@@@ GE )@@G@@ UPON PRINT-DEVICE@A@@@@ ENTER FD 'ABORT'. @C@@@@024040GF )@@G@@ MOVE UNITS TO CAT-TRACKS-UNIT-PRT. @F@@@@024050 MOVE UNIT-COSGG )@@G@@T TO CAT-TRACKS-COST-PRT UNIT-COST-5. @F@@@@024060 IF UNITS = 'IGH )@@G@@' MOVE OUTSD-CAT-TRACKS-NO TO 1ST-COMPUTE.@G@@@@024070 IF UNITS = 'KGI )@@G@@' DIVIDE OUTSD-CAT-TRACKS-NO BY 1000 GIVING @ @@@@024080 1ST-GJ )@@G@@COMPUTE. @G@@@@024090 IF UNITS = 'M' DIVIDE OUTSD-CAT-TRACKS-NO BGK )@@G@@Y 1000000 GIVING @ @@@@024100 1ST-COMPUTE. @D@@@@024110 MGL )@@G@@ULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING @C@@@@ OUTSTAND-GM )@@G@@CAT-TRACKS ROUNDED. @E@@@@024120 MOVE OUTSTAND-CAT-TRACKS TO CATGN )@@G@@-TRACKS-TOTAL-PRT.@^@@@@024130 2900-M-S-XFERS. @B@@@@024140 MOVE 01GO )@@G@@1 TO 3-DIGIT-FIELD. @B@@@@ PERFORM 2950-READ-DECODE-03. GP )@@G@@@A@@@@ IF DECODE-03-SWITCH = 'N'@F@@@@ DISPLGQ )@@G@@AY 'NO COSTS FOR MASS STORAGE TRANSFERS' @B@@@@ UGR )@@G@@PON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'.@B@@@@024160GS )@@G@@ MOVE UNITS TO M-S-UNIT-PRT. @D@@@@024170 MOVE UNIT-COST TO MGT )@@G@@-S-COST-PRT UNIT-COST-5.@E@@@@024180 IF UNITS = 'I' MOVE M-S-XFERS-NGU )@@G@@O TO 1ST-COMPUTE. @D@@@@024190 IF UNITS = 'K' DIVIDE M-S-XFERS-NO BYGV )@@G@@ 1000 @A@@@@ GIVING 1ST-COMPUTE. @E@@@@024200 IF UNITGW )@@G@@S = 'M' DIVIDE M-S-XFERS-NO BY 1000000 @A@@@@ GIVING 1SGX )@@G@@T-COMPUTE. @F@@@@024210 MULTIPLY 1ST-COMPUTE BY UNIT-COST-5 GIVING GY )@@G@@MASS-XFERS @^@@@@ ROUNDED. @C@@@@024220 MOVE MASS-XFEGZ )@@G@@RS TO M-S-TOTAL-PRT. @ @@@@ 2950-READ-DECODE-03. @C@@@@ HA )@@G@@ READ TAB-DISC INTO TABLE-DISC-03 @ @@@@ INVALID KHB )@@G@@EY @C@@@@ MOVE 'N' TO DECODE-03-SWITCH.@B@@@@ HC )@@G@@ ADD 1 TO TABLE-DISC-REC-CNT. @ @@@@025010 3000-FINAL-SUP-TOTAL. HD )@@G@@@G@@@@ DIVIDE SHIFT1-SUPS BY 18000000 GIVING SHIFT-SUP-HRS (1)HE )@@G@@. @G@@@@ DIVIDE SHIFT2-SUPS BY 18000000 GIVING SHIFT-SUP-HHF )@@G@@RS (2). @G@@@@ DIVIDE SHIFT3-SUPS BY 18000000 GIVING SHIFTHG )@@G@@-SUP-HRS (3). @F@@@@ DIVIDE SHIFT4-SUPS BY 18000000 GIVINGHH )@@G@@ SHIFT4-SUP-HRS. @F@@@@ DIVIDE NON-DP-SUPS-1 BY 18000000 GIVIHI )@@G@@NG NON-DP-HRS (1).@F@@@@ DIVIDE NON-DP-SUPS-2 BY 18000000 GIVIHJ )@@G@@NG NON-DP-HRS (2).@F@@@@ DIVIDE NON-DP-SUPS-3 BY 18000000 GIVIHK )@@G@@NG NON-DP-HRS (3).@F@@@@ DIVIDE NON-DP-SUPS-4 BY 18000000 GIVIHL )@@G@@NG NON-DP-HRS-4. @G@@@@025020 ADD SHIFT-SUP-HRS (1) SHIFT-SUP-HRS (HM )@@G@@2) SHIFT-SUP-HRS (3) @A@@@@025030 GIVING TOTAL-SUP-HRS. @ @@@@HN )@@G@@ ADD NON-DP-HRS (1) @ @@@@ NON-DP-HRS (2) @D@@@@HO )@@G@@ NON-DP-HRS (3) GIVING SUP-HRS-LESS-DP. @E@@@@ SHP )@@G@@UBTRACT SHIFT4-SUP-HRS FROM SHIFT-SUP-HRS (1) @B@@@@ GIVHQ )@@G@@ING SHIFT1-SUP-HRS-PRT. @E@@@@ SUBTRACT NON-DP-HRS-4 FROM NON-HR )@@G@@DP-HRS (1) GIVING @ @@@@ NON-DP-1-PRT. @E@@@@025050 MHS )@@G@@OVE SHIFT-SUP-HRS (2) TO SHIFT2-SUP-HRS-PRT. @E@@@@025060 MOVE SHHT )@@G@@IFT-SUP-HRS (3) TO SHIFT3-SUP-HRS-PRT. @D@@@@025070 MOVE SHIFT4-SHU )@@G@@UP-HRS TO SHIFT4-SUP-HRS-PRT. @C@@@@ MOVE NON-DP-HRS (2) TO NOHV )@@G@@N-DP-2-PRT. @C@@@@ MOVE NON-DP-HRS (3) TO NON-DP-3-PRT. @C@@@@HW )@@G@@ MOVE NON-DP-HRS-4 TO NON-DP-4-PRT. @D@@@@025080 MOVE TOHX )@@G@@TAL-SUP-HRS TO TOTAL-SUP-HRS-PRT. @D@@@@ MOVE SUP-HRS-LESS-DHY )@@G@@P TO SUP-LESS-DP-PRT. @^@@@@025090 3100-GET-DATE. @C@@@@025100 EHZ )@@G@@NTER FD 'GETDATE' USING DATE-6. @ @@@@025110 MOVE MM TO MONTH-8.IA )@@G@@@ @@@@ MOVE DD TO DA-8. @ @@@@025120 MOVE YY TO YEAR-8. IB )@@G@@@C@@@@ MOVE AC-YY-9 TO YEAR PROCESSING-YY. @C@@@@ MIC )@@G@@OVE AC-MM-9 TO MONTH PROCESSING-MM. @A@@@@ MOVE DATE-8 TO DEPTID )@@G@@-DATE.@C@@@@ ENTER FD 'CONVDATE' USING DATE-EDIT. @B@@@@ IE )@@G@@ MOVE DATE-EDIT TO MONTH-YEAR. @A@@@@026010 3200-WRITE-OUTPUT-FILESIF )@@G@@. @D@@@@026020 MOVE OUTSD-CAT-TRACKS-NO TO CAT-TRACKS-PRT.@D@@@@IG )@@G@@026030 MOVE OUTSD-LIB-REELS-NO TO LIB-REELS-PRT. @D@@@@026040 MIH )@@G@@OVE PAGES-CREATED-NO TO PAGES-CREATED-PRT.@D@@@@026050 MOVE SPECIAL-II )@@G@@FORMS-NO TO SPEC-FORMS-PRT. @D@@@@026060 MOVE M-S-XFERS-NO TO M-S-IJ )@@G@@TRANSFERS-PRT. @D@@@@026070 MOVE TAPE-MOUNTS-NO TO REELS-MOUNTED-IK )@@G@@PRT. @F@@@@026080 MOVE TAPE-DATA-XFERS-NO TO TAPE-DATA-TRANSFERS-PRIL )@@G@@T. @C@@@@026090 MOVE CARDS-READ-NO TO CARDS-READ-PRT.@D@@@@026100IM )@@G@@ MOVE CARDS-PUNCHED-NO TO CARDS-PUNCHED-PRT.@E@@@@026110 MOVE RMIN )@@G@@-PACK-MOUNTS-NO TO REMOV-PACK-MTS-PRT. @E@@@@026120 MOVE RM-PACK-IO )@@G@@SECS-NO TO REMOV-PACK-SECS-PRT. @F@@@@ MOVE COMM-TRANS-TOTIP )@@G@@AL TO COMM-NO-PRT TCOMM-NO-PRT. @C@@@@ MOVE COMM-TRANS TO IQ )@@G@@COMM-COST-PRT. @E@@@@026020 MOVE TOUTSD-CAT-TRACKS-NO TO TCAT-TRAIR )@@G@@CKS-PRT. @D@@@@026030 MOVE TOUTSD-LIB-REELS-NO TO TLIB-REELS-PRT.IS )@@G@@@E@@@@026040 MOVE TPAGES-CREATED-NO TO TPAGES-CREATED-PRT. @D@@@@IT )@@G@@026050 MOVE TSPECIAL-FORMS-NO TO TSPEC-FORMS-PRT. @D@@@@026060 MIU )@@G@@OVE TM-S-XFERS-NO TO TM-S-TRANSFERS-PRT. @D@@@@026070 MOVE TTAPE-MOIV )@@G@@UNTS-NO TO TREELS-MOUNTED-PRT.@F@@@@026080 MOVE TTAPE-DATA-XFERS-NO IW )@@G@@TO TTAPE-DATA-TRANSFERS-PRT. @D@@@@026090 MOVE TCARDS-READ-NO TO TCIX )@@G@@ARDS-READ-PRT. @E@@@@026100 MOVE TCARDS-PUNCHED-NO TO TCARDS-PUNCIY )@@G@@HED-PRT. @E@@@@026110 MOVE TRM-PACK-MOUNTS-NO TO TREMOV-PACK-MTS-IZ )@@G@@PRT. @E@@@@026120 MOVE TRM-PACK-SECS-NO TO TREMOV-PACK-SECS-PRT. JA )@@G@@@A@@@@ ADD OUTSTAND-CAT-TRACKS @A@@@@ OUTSTAND-JB )@@G@@LIB-REELS @ @@@@ PAGES-CREATED @ @@@@ SPEJC )@@G@@CIAL-FORMS @ @@@@ MASS-XFERS @ @@@@ REEJD )@@G@@LS-MOUNTED @B@@@@ TAPE-XFERS OF COST-TOTALS @ @@@@ JE )@@G@@ CARDS-READ @ @@@@ CARDS-PUNCHED @A@@@@ JF )@@G@@ RMV-PACKS-MOUNTED @ @@@@ COMM-TRANS @D@@@@JG )@@G@@ RMV-PACKS-SECS GIVING COST-TOT-PRT. @ @@@@026130 WJH )@@G@@RITE COST-TOTALS. @A@@@@ ADD 1 TO CTCF-REC-CNT. @C@@@@ JI )@@G@@ WRITE PRINT-FILE FROM DEPT-HEADER-1 @A@@@@ AFTER ADVAJJ )@@G@@NCING PAGE. @G@@@@ WRITE PRINT-FILE FROM DEPT-HEADER-2 AFTER AJK )@@G@@DVANCING 1 LINE. @F@@@@026160 WRITE PRINT-FILE FROM LINE-3 AFTER ADJL )@@G@@VANCING 1 LINE. @F@@@@026160 WRITE PRINT-FILE FROM LINE-3A AFTER AJM )@@G@@DVANCING 2 LINES. @F@@@@026170 WRITE PRINT-FILE FROM LINE-4 AFTER ADJN )@@G@@VANCING 2 LINES. @F@@@@026180 WRITE PRINT-FILE FROM LINE-5 AFTER ADJO )@@G@@VANCING 2 LINES. @F@@@@026190 WRITE PRINT-FILE FROM LINE-6 AFTER ADJP )@@G@@VANCING 2 LINES. @F@@@@026200 WRITE PRINT-FILE FROM LINE-7 AFTER ADJQ )@@G@@VANCING 2 LINES. @F@@@@026210 WRITE PRINT-FILE FROM LINE-8 AFTER ADJR )@@G@@VANCING 2 LINES. @F@@@@026220 WRITE PRINT-FILE FROM LINE-9 AFTER ADJS )@@G@@VANCING 2 LINES. @F@@@@026230 WRITE PRINT-FILE FROM LINE-10 AFTER AJT )@@G@@DVANCING 2 LINES. @F@@@@026240 WRITE PRINT-FILE FROM LINE-11 AFTER AJU )@@G@@DVANCING 2 LINES. @F@@@@026250 WRITE PRINT-FILE FROM LINE-12 AFTER AJV )@@G@@DVANCING 2 LINES. @F@@@@027010 WRITE PRINT-FILE FROM LINE-13 AFTER AJW )@@G@@DVANCING 2 LINES. @F@@@@027020 WRITE PRINT-FILE FROM LINE-14 AFTER AJX )@@G@@DVANCING 2 LINES. @G@@@@ WRITE PRINT-FILE FROM COMM-LINE AFTERJY )@@G@@ ADVANCING 2 LINES. @G@@@@ WRITE PRINT-FILE FROM TOTAL-LINJZ )@@G@@E AFTER ADVANCING 2 LINES. @F@@@@027030 WRITE PRINT-FILE FROM LINKA )@@G@@E-15 AFTER ADVANCING 6 LINES. @F@@@@027040 WRITE PRINT-FILE FROM LINKB )@@G@@E-16 AFTER ADVANCING 2 LINES. @F@@@@027050 WRITE PRINT-FILE FROM LINKC )@@G@@E-17 AFTER ADVANCING 3 LINES. @F@@@@027060 WRITE PRINT-FILE FROM LINKD )@@G@@E-18 AFTER ADVANCING 1 LINE. @F@@@@027070 WRITE PRINT-FILE FROM LINKE )@@G@@E-19 AFTER ADVANCING 1 LINE. @F@@@@027080 WRITE PRINT-FILE FROM LINKF )@@G@@E-20 AFTER ADVANCING 1 LINE. @F@@@@027090 WRITE PRINT-FILE FROM LINKG )@@G@@E-21 AFTER ADVANCING 1 LINE. @^@@@@027100 3300-CLOSE-FILES.@ @@@@027110KH )@@G@@ CLOSE TAB-DISC @ @@@@027120 ACCT-REC @ @@@@027130KI )@@G@@ PRINT-OUT @ @@@@027140 DISC-OUT. @E@@@@ KJ )@@G@@ CALL 'LOG-RCNT' USING FILENAME-1, MO-ACT-REC-CNT.@F@@@@ CKK )@@G@@ALL 'LOG-RCNT' USING FILENAME-2, TABLE-DISC-REC-CNT. @E@@@@ CKL )@@G@@ALL 'LOG-WCNT' USING FILENAME-3, CTCF-REC-CNT. @C@@@@ * IF ABORKM )@@G@@T-SWITCH = 'Y' CALL 'ABORT'. ___S-UNIT-PRT. @E@@@@022170 MOVE UNKN )@@G@@IT-COST TO LIB-REELS-COST-PRT UNIT-COST-5.@F@@@@022180 IF UNITS = 'IKO )@@G@@' MOVE OUTSD-LIB-REELS-N*[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONKP )@@G@@. @@@@@@@@@@@@@ @@@@ PROGRAM-ID. H1551050. @ @@@@ AUTHOKQ )@@G@@R. DOUG RAGSDALE. @D@@@@ INSTALLATION. TEXAS DEPT. OF HEALTH, AUSTKR )@@G@@IN,TX.@A@@@@ DATE-WRITTEN. SEPT. 21,1978 @^@@@@ DATE-COMPILKS )@@G@@ED. @#@@@@ SECURITY. @E@@@@ *REMARKS. ASCII ANS-KT )@@G@@1974 ACOB 3R1 @G@@@@ * THIS PROGRAM DERIVES HOURLY KU )@@G@@RATES FOR DATA PROCESSING @F@@@@ * SERVICES (DATA-ENTRY, ANAKV )@@G@@LYSIS/PROGRAMMING AND COMPUTER@F@@@@ * SUP HRS), GENERATES THE EKW )@@G@@XPENDITURE AND BUDGET REPORTS @F@@@@ * AND UPDATES THE COST TOTAKX )@@G@@L BY CATEGORY FILE (CTCF). @]@@@@ * @]@@@@ * @ @@@@KY )@@G@@ * CHANGE 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOLKZ )@@G@@ (ACOB4). @]@@@@ * @ @@@@ ENVIRONMENT DIVISION. @@@@@@LA )@@G@@@@@@@@@ @@@@ CONFIGURATION SECTION. @@@@@@@ @@@@ COPY COMPUTLB )@@G@@ER-NAMES. @^@@@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NLC )@@G@@AMES. @ @@@@ INPUT-OUTPUT SECTION. @@@@@@@^@@@@ FILE-CONTROLD )@@G@@L. @ @@@@ SELECT CTCF-IN @C@@@@ ASSIGNLE )@@G@@ MASS-STORAGE OLD-CTCF. @ @@@@ SELECT CTCF-OUT @C@@@@ LF )@@G@@ ASSIGN MASS-STORAGE NEW-CTCF. @B@@@@ SELECT OPTIONLG )@@G@@AL DATA-ENTRY-TIME@C@@@@ ASSIGN MASS-STORAGE DE-FILE. LH )@@G@@@A@@@@ SELECT KEY-PUNCH-TIME @C@@@@ ASSIGNLI )@@G@@ CARD-READER KP-TIME. @A@@@@ SELECT SALRY-EQUIP-COSTS @B@@@@LJ )@@G@@ ASSIGN CARD-READER. @A@@@@ SELECT PCT-COLK )@@G@@ST-FIGURES @D@@@@ ASSIGN MASS-STORAGE TABLEDISC-JA LL )@@G@@@B@@@@ ACCESS MODE IS DYNAMIC @B@@@@ LM )@@G@@ORGANIZATION IS INDEXED @C@@@@ ACTUAL KEY IS TABLE-JA-KLN )@@G@@EY. @ @@@@ SELECT SCS-SUMM @D@@@@ ASSIGNLO )@@G@@ MASS-STORAGE SCS-SUMMARY @B@@@@ ACCESS MODE IS DYNLP )@@G@@AMIC @B@@@@ ORGANIZATION IS INDEXED @C@@@@ LQ )@@G@@ ACTUAL KEY IS SCS-SUMM-KEY. @ @@@@ SELECT PRINT-FILE LR )@@G@@@C@@@@ ASSIGN PRINTER EXP-BUD-RPT. @]@@@@ / LS )@@G@@@^@@@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE SECTION. LT )@@G@@@@@@@@@#@@@@ FD CTCF-IN@B@@@@ BLOCK CONTAINS 1 RECORDLU )@@G@@S @A@@@@ LABEL RECORDS STANDARD @A@@@@ RECORDILV )@@G@@NG MODE INTERNAL. @@@@@@@D@@@@ 01 CTCF-IN-REC PICLW )@@G@@ X(324). @@@@@@@^@@@@ FD CTCF-OUT @B@@@@ BLOCK CLX )@@G@@ONTAINS 1 RECORDS @A@@@@ LABEL RECORDS STANDARD @A@@@@LY )@@G@@ RECORDING MODE INTERNAL. @@@@@@@B@@@@ 01 CTCF-OUT-REC.LZ )@@G@@ COPY CTCF-REC. @@@@@@@ @@@@ FD DATA-ENTRY-TIME @A@@@@ MA )@@G@@ BLOCK CONTAINS 8 RECORDS @A@@@@ LABEL RECORDS STANDARD MB )@@G@@@B@@@@ RECORD CONTAINS 70 CHARACTERS @A@@@@ RECORDIMC )@@G@@NG MODE INTERNAL. @@@@@@@A@@@@ 01 DE-IN-REC. COPY DE-REC. @@@@@@MD )@@G@@@ @@@@ FD SALRY-EQUIP-COSTS @A@@@@ LABEL RECORDS OMITTME )@@G@@ED. @@@@@@@A@@@@ 01 SALARY-EQUIP-COSTS-REC. @D@@@@ 0MF )@@G@@3 PROGRAM-NO PIC X(8). @G@@@@ 88 CONTROLMG )@@G@@-CARD VALUE 'H1551050'. @D@@@@ 03 CARDMH )@@G@@-TYPE PIC X. @E@@@@ 03 ADMIN-SALARIES MI )@@G@@ PIC 9(5)V99. @E@@@@ 03 DE-SALARIES MJ )@@G@@ PIC 9(5)V99. @E@@@@ 03 AP-SALARIES MK )@@G@@ PIC 9(5)V99. @E@@@@ 03 COMPUTER-SALARIES PIC ML )@@G@@9(5)V99. @E@@@@ 03 DE-EQUIP-COST PIC 9(5)V9MM )@@G@@9. @E@@@@ 03 COMPUTER-EQUIP-COST PIC 9(6)V99. MN )@@G@@@E@@@@ 03 AFTER-5-MAINT PIC 9(5)V99. @D@@@@MO )@@G@@ 03 FILLER PIC X(21).@@@@@@@ @@@@ MP )@@G@@ FD KEY-PUNCH-TIME @A@@@@ LABEL RECORDS OMITTED. @@@@@@MQ )@@G@@@^@@@@ 01 KP-TIME-REC. @D@@@@ 03 FILLER MR )@@G@@ PIC X. @D@@@@ 03 KP-MACHINE-TYPE PIC MS )@@G@@XXX. @D@@@@ 03 KP-MACHINE-NO PIC 9. @^@@@@MT )@@G@@ 03 KP-DATE. @D@@@@ 05 KP-MM MU )@@G@@ PIC 99. @D@@@@ 05 KP-DD PIC 99. MV )@@G@@@D@@@@ 05 KP-YY PIC 99. @D@@@@ MW )@@G@@ 03 KP-JOB-CODE PIC 999. @D@@@@ 03 KP-HMX )@@G@@RS PIC 99V9. @D@@@@ 03 KP-HRS-X REDEFINMY )@@G@@ES KP-HRS PIC XXX. @D@@@@ 03 FILLER MZ )@@G@@ PIC X(63).@@@@@@@@@@@@@ @@@@ FD PCT-COST-FIGURES @B@@@@ NA )@@G@@ BLOCK CONTAINS 3360 CHARACTERS @A@@@@ LABEL RECORDS STANDNB )@@G@@ARD @A@@@@ RECORDING MODE INTERNAL. @@@@@@@A@@@@ 01 TNC )@@G@@ABLE-JA-REC DISP-1. @C@@@@ 03 TJA-KEY PICND )@@G@@ 99. @D@@@@ 03 TJA-HEADER-AREA PIC X(10). @C@@@@NE )@@G@@ 88 TJA-DECODE-02-HDR VALUE SPACES.@D@@@@ 88 TNF )@@G@@JA-DECODE-02 VALUE 'JAPCT 0'.@C@@@@ 03 FILLER NG )@@G@@ PIC X. @D@@@@ 03 TJA-OVHD-PCT PIC 99V99NH )@@G@@. @D@@@@ 03 TJA-EMP-BENEFIT-PCT PIC 99V99. @D@@@@NI )@@G@@ 03 TJA-DE-SUPPLIES PIC 999V99. @D@@@@ 0NJ )@@G@@3 TJA-AP-SUPPLIES PIC 999V99. @D@@@@ 03 TJA-COMPUTNK )@@G@@ER-SUPPLIES PIC 9(5)V99. @D@@@@ 03 TJA-CTMC-LINE-COST NL )@@G@@ PIC 9(5)V99. @D@@@@ 03 TJA-HS-CTM-COST PIC 999V9NM )@@G@@9. @D@@@@ 03 TJA-MS-CTM-COST PIC 999V99. @D@@@@NN )@@G@@ 03 TJA-LS-CTM-COST PIC 999V99. @D@@@@ 0NO )@@G@@3 TJA-DIAL-CTM-COST PIC 999V99. @D@@@@ 03 FILLER NP )@@G@@ PIC X(19). @@@@@@@^@@@@ FD SCS-SUMM @B@@@@NQ )@@G@@ BLOCK CONTAINS 119 RECORDS @A@@@@ LABEL RECORDSNR )@@G@@ STANDARD @A@@@@ RECORDING MODE INTERNAL. @@@@@@@C@@@@ NS )@@G@@ 01 SCS-SUMM-REC. COPY SCS-SUMM-REC. @@@@@@@^@@@@ FD PRINT-FNT )@@G@@ILE @B@@@@ REPORTS ARE EXPENDITURE-RPT @A@@@@ NU )@@G@@ BUDGET-RPT @A@@@@ LABEL RECORDS OMITTED. @]@@@@NV )@@G@@ / @A@@@@ WORKING-STORAGE SECTION. @F@@@@ 77 DNW )@@G@@E-BYPASS-MIN PIC 9(6)V999 VALUE 0. @F@@@@ 77 DNX )@@G@@E-OVHD-MIN PIC 9(6)V999 VALUE 0. @F@@@@ 77 DNY )@@G@@E-TOTAL-MIN PIC 9(6)V999 VALUE 0. @F@@@@ 77 DNZ )@@G@@E-BYPASS-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 DOA )@@G@@E-OVHD-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 DOB )@@G@@E-TOTAL-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 KOC )@@G@@P-BYPASS-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 KOD )@@G@@P-OVHD-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 KOE )@@G@@P-TOTAL-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 AOF )@@G@@P-BYPASS-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 AOG )@@G@@P-OVHD-HRS PIC 9(5)V999 VALUE 0. @F@@@@ 77 AOH )@@G@@P-TOTAL-HRS PIC 9(5)V999 VALUE 0. @E@@@@ 77 NOI )@@G@@ET-EXP-TOTAL PIC 9(6)V99. @E@@@@ 77 ADJ-SUPOJ )@@G@@-HR-RATE PIC 999V99. @E@@@@ 77 Q OK )@@G@@ PIC 9(10) COMP. @D@@@@ 77 MM-SUB OL )@@G@@ PIC 99. @D@@@@ 77 DEPT-DATE OM )@@G@@ PIC X(8). @D@@@@ 77 DEPT-TIME VALUE SPACE PIC X(5). ON )@@G@@@D@@@@ 77 DEPT-RUN-ID PIC X(6). @D@@@@ OO )@@G@@ 77 DEPT-PROGRAM-NO PIC X(8). @E@@@@ 77 PCT-REGOP )@@G@@ PIC 999V9999. @D@@@@ 77 E1-40 OQ )@@G@@ PIC 9(6)V99. @D@@@@ 77 E1-60 OR )@@G@@ PIC 9(6)V99. @D@@@@ 77 E1-80 PIC 9(6)VOS )@@G@@99. @D@@@@ 77 E1-100 PIC 9(6)V99. @D@@@@OT )@@G@@ 77 E2-40 PIC 9(6)V99. @D@@@@ 77 EOU )@@G@@2-60 PIC 9(6)V99. @D@@@@ 77 E2-80 OV )@@G@@ PIC 9(6)V99. @D@@@@ 77 E2-100 OW )@@G@@ PIC 9(6)V99. @D@@@@ 77 E3-40 PIC 9(6)VOX )@@G@@99. @D@@@@ 77 E3-60 PIC 9(6)V99. @D@@@@OY )@@G@@ 77 E3-80 PIC 9(6)V99. @D@@@@ 77 EOZ )@@G@@3-100 PIC 9(6)V99. @D@@@@ 77 E4-40 PA )@@G@@ PIC 9(6)V99. @E@@@@ 77 E4-40A PB )@@G@@ PIC 9(6)V9999999. @D@@@@ 77 E4-60 PICPC )@@G@@ 9(6)V99. @E@@@@ 77 E4-60A PIC 9(6)V999999PD )@@G@@9. @D@@@@ 77 E4-80 PIC 9(6)V99. @E@@@@PE )@@G@@ 77 E4-80A PIC 9(6)V9999999. @D@@@@ PF )@@G@@ 77 E4-100 PIC 9(6)V99. @E@@@@ 77 E4-100APG )@@G@@ PIC 9(6)V9999999. @D@@@@ 77 E5-22 PH )@@G@@ PIC 99V99. @D@@@@ 77 E5-40 PI )@@G@@ PIC 9(6)V99. @E@@@@ 77 E5-40A PIC 9(6)VPJ )@@G@@9999999. @D@@@@ 77 E5-60 PIC 9(6)V99. PK )@@G@@@E@@@@ 77 E5-60A PIC 9(6)V9999999. @D@@@@PL )@@G@@ 77 E5-80 PIC 9(6)V99. @E@@@@ 77 EPM )@@G@@5-80A PIC 9(6)V9999999. @D@@@@ 77 E5-100 PN )@@G@@ PIC 9(6)V99. @E@@@@ 77 E5-100A PO )@@G@@ PIC 9(6)V9999999. @D@@@@ 77 E6-40 PP )@@G@@ PIC 9(6)V99. @D@@@@ 77 E6-60 PIC 9(6)VPQ )@@G@@99. @D@@@@ 77 E6-80 PIC 9(6)V99. @D@@@@PR )@@G@@ 77 E6-100 PIC 9(6)V99. @D@@@@ 77 EPS )@@G@@7-40 PIC 9(6)V99. @D@@@@ 77 E7-60 PT )@@G@@ PIC 9(6)V99. @D@@@@ 77 E7-100 PU )@@G@@ PIC 9(6)V99. @D@@@@ 77 E8-40 PIC 9(6)VPV )@@G@@99. @D@@@@ 77 E8-100 PIC 9(6)V99. @D@@@@PW )@@G@@ 77 E9-40 PIC 9(7)V99. @E@@@@ 77 EPX )@@G@@9-40A PIC 9(7)V9999999. @D@@@@ 77 E9-60 PY )@@G@@ PIC 9(7)V99. @E@@@@ 77 E9-60A PZ )@@G@@ PIC 9(7)V9999999. @D@@@@ 77 E9-80 QA )@@G@@ PIC 9(7)V99. @E@@@@ 77 E9-80A PIC 9(7)VQB )@@G@@9999999. @D@@@@ 77 E9-100 PIC 9(7)V99. QC )@@G@@@E@@@@ 77 E9-100A PIC 9(7)V9999999. @D@@@@QD )@@G@@ 77 E10-45 PIC 99V999. @D@@@@ 77 EQE )@@G@@10-65 PIC 99V999. @D@@@@ 77 E10-85 QF )@@G@@ PIC 99V999. @D@@@@ 77 E10-105 QG )@@G@@ PIC 99V999. @D@@@@ 77 E11-45 PIC 99V99QH )@@G@@9. @D@@@@ 77 E11-65 PIC 99V999. @D@@@@QI )@@G@@ 77 E11-85 PIC 99V999. @D@@@@ 77 EQJ )@@G@@11-105 PIC 99V999. @D@@@@ 77 E4-13 QK )@@G@@ PIC 99V99. @D@@@@ 77 B1-1 QL )@@G@@ PIC 9(5)V9. @D@@@@ 77 B1-57 PIC 9(5)VQM )@@G@@9. @D@@@@ 77 B2-24 PIC 9(6)V99. @D@@@@QN )@@G@@ 77 B2-39 PIC 9(5)V99. @D@@@@ 77 BQO )@@G@@2-100 PIC 9(7)V99. @D@@@@ 77 B3-28 QP )@@G@@ PIC 9(6)V99. @D@@@@ 77 B3-42 QQ )@@G@@ PIC 9(6)V99. @D@@@@ 77 B3-108 PIC 9(7)VQR )@@G@@99. @D@@@@ 77 B4-27 PIC 9(7)V99. @D@@@@QS )@@G@@ 77 B4-71 PIC 9(7)V99. @D@@@@ 77 BQT )@@G@@5-30 PIC 999V99999. @D@@@@ 77 B5-90 QU )@@G@@ PIC 999V99999. @E@@@@ 77 B6-65 QV )@@G@@ PIC 9(6)V99 VALUE 0. @E@@@@ 77 B6-87 PICQW )@@G@@ 9(6)V99 VALUE 0. @D@@@@ 77 B6-87A PIC 9(6)VQX )@@G@@99999.@D@@@@ 77 B7-58 PIC 999V99999. @D@@@@QY )@@G@@ 77 B7-77 PIC 999V99999. @D@@@@ 77 BQZ )@@G@@9-32 PIC 999V99999. @D@@@@ 77 B9-47 RA )@@G@@ PIC 9(5)V99999.@E@@@@ 77 B9-67 RB )@@G@@ PIC 9(6)V99 VALUE 0. @D@@@@ 77 B9-67A PICRC )@@G@@ 9(6)V99999.@D@@@@ 77 B10-32 PIC 999V99999. RD )@@G@@@E@@@@ 77 B10-47 PIC 9(5)V99999. @E@@@@RE )@@G@@ 77 B10-67 PIC 9(6)V99 VALUE 0.@E@@@@ RF )@@G@@ 77 B10-67A PIC 9(6)V99999. @D@@@@ 77 BRG )@@G@@11-32 PIC 999V99999. @E@@@@ 77 B11-47 RH )@@G@@ PIC 9(5)V99999. @E@@@@ 77 B11-67 RI )@@G@@ PIC 9(6)V99 VALUE 0.@E@@@@ 77 B11-67A RJ )@@G@@ PIC 9(6)V99999. @E@@@@ 77 B12-47 PIRK )@@G@@C 9(5)V99999. @D@@@@ 77 B12-67 PIC 9(6)RL )@@G@@V99. @@@@@@@A@@@@ 01 TABLE-JA-KEY DISP-1. @E@@@@ 0RM )@@G@@3 TABLE-JA-KEY-NO PIC 99 VALUE 02.@G@@@@ 03 FILLRN )@@G@@ER PIC X(10) VALUE SPACES. @@@@@@@^@@@@ RO )@@G@@ 01 SCS-SUMM-KEY.@E@@@@ 88 COUNT-REC VALURP )@@G@@E '0000'. @F@@@@ 02 SCS-ACCT-NUM PIC 999 VARQ )@@G@@LUE 000. @E@@@@ 02 SCS-ACCT-CLASS PIC X VALURR )@@G@@E '0'.@@@@@@@^@@@@ 01 CUR-DATE. @D@@@@ 03 CUR-YY RS )@@G@@ PIC 99. @D@@@@ 03 CUR-MM RT )@@G@@ PIC 99. @D@@@@ 03 CUR-DD PIC RU )@@G@@99. @@@@@@@ @@@@ 01 CUR-DATE-EDITED. @D@@@@ 03 CUR-RV )@@G@@MM PIC 99. @E@@@@ 03 FILLER RW )@@G@@ PIC X VALUE '-'.@D@@@@ 03 CUR-DD RX )@@G@@ PIC 99. @E@@@@ 03 FILLER PIC RY )@@G@@X VALUE '-'.@D@@@@ 03 CUR-YY PIC 99. RZ )@@G@@@@@@@@@G@@@@ 01 DE-CNT PIC 9(10) COMP VSA )@@G@@ALUE 0. @E@@@@ 01 DE-NAME PIC X(12) SB )@@G@@VALUE @ @@@@ 'DE-FILE'. @G@@@@ 01 KP-CNT SC )@@G@@ PIC 9(10) COMP VALUE 0. @E@@@@ 01 KP-NAMESD )@@G@@ PIC X(12) VALUE @ @@@@ 'KP-TISE )@@G@@ME'. @G@@@@ 01 AP-CNT PIC 9(10) COMP VSF )@@G@@ALUE 0. @E@@@@ 01 AP-NAME PIC X(12) SG )@@G@@VALUE @A@@@@ 'SCS-SUMMARY'. @@@@@@@E@@@@ 01 SSH )@@G@@W-CTCF-IN-EOF PIC X VALUE 'N'.@A@@@@ 88 CTCFSI )@@G@@-IN-EOF VALUE 'Y'.@@@@@@@E@@@@ 01 SW-CARD-IN-EOF SJ )@@G@@ PIC X VALUE 'N'.@A@@@@ 88 CARD-IN-EOF VALUE 'Y'.@@@@@@@E@@@@SK )@@G@@ 01 SW-DE-TIME-EOF PIC X VALUE 'N'.@A@@@@ SL )@@G@@ 88 DE-TIME-EOF VALUE 'Y'.@@@@@@@E@@@@ 01 SW-KP-TIME-EOF SM )@@G@@ PIC X VALUE 'N'.@A@@@@ 88 KP-TIME-EOF VALUE 'Y'.SN )@@G@@@@@@@@@E@@@@ 01 SW-SCS-SUMM-EOF PIC X VALUE 'N'.SO )@@G@@@B@@@@ 88 SCS-SUMM-EOF VALUE 'Y'. @@@@@@@E@@@@ 01 SSP )@@G@@W-TABLE-JA-EOF PIC X VALUE 'N'.@E@@@@ 88 TABLSQ )@@G@@E-JA-EOF VALUE 'Y'.@@@@@@@]@@@@ / @^@@@@SR )@@G@@ REPORT SECTION. @@@@@@@ @@@@ RD EXPENDITURE-RPT @A@@@@SS )@@G@@ PAGE LIMIT IS 66 LINES @ @@@@ HEADING 7 ST )@@G@@@A@@@@ FIRST DETAIL 20 . @@@@@@@ @@@@ COPY DEPT-HSU )@@G@@EADER-RW. @ @@@@ 03 LINE PLUS 2. @D@@@@ 05 CSV )@@G@@OLUMN 56 PIC X(21) VALUE@B@@@@ 'EXPENDITURE SW )@@G@@WORKSHEET'. @ @@@@ 03 LINE PLUS 1. @G@@@@ 05 CSX )@@G@@OLUMN 63 PIC XX SOURCE PROCESSING-MM. @E@@@@ SY )@@G@@ 05 COLUMN 65 PIC XXX VALUE '/19'. @G@@@@ 05 CSZ )@@G@@OLUMN 68 PIC XX SOURCE PROCESSING-YY. @@@@@@@B@@@@ TA )@@G@@ 01 EXPEND-RPT-DETAIL TYPE DE. @A@@@@ 02 LINE NUMBER IS 2TB )@@G@@0. @F@@@@ 03 COLUMN 80 PIC X(9) VALUE 'ANALYTC )@@G@@SIS/'.@ @@@@ 02 LINE PLUS 1. @D@@@@ 03 COLUMN TD )@@G@@44 PIC X(67) VALUE@F@@@@ 'TOTAL DTE )@@G@@ATA ENTRY PROGRAMMING @A@@@@ - ' COMPUTER'. TF )@@G@@@ @@@@ 02 LINE PLUS 2. @F@@@@ 03 COLUMN 1 TG )@@G@@ PIC X(9) VALUE 'SALARIES:'.@G@@@@ 03 COLUMN 40 TH )@@G@@ PIC $$$$,$$$.99 SOURCE E1-40. @G@@@@ 03 COLUMN TI )@@G@@60 PIC $$$$,$$$.99 SOURCE E1-60. @G@@@@ 03 CTJ )@@G@@OLUMN 80 PIC $$$$,$$$.99 SOURCE E1-80. @G@@@@ TK )@@G@@ 03 COLUMN 100 PIC $$$$,$$$.99 SOURCE E1-100. @ @@@@ TL )@@G@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN 4 PICTM )@@G@@ X(24) VALUE@C@@@@ 'ADMINISTRATIVE PERSONNEL'. @G@@@@TN )@@G@@ 03 COLUMN 40 PIC $$$$,$$$.99 SOURCE E2-40. TO )@@G@@@G@@@@ 03 COLUMN 60 PIC $$$$,$$$.99 SOURCE E2-6TP )@@G@@0. @F@@@@ 03 COLUMN 72 PIC X(5) VALUE '(15%)TQ )@@G@@'. @G@@@@ 03 COLUMN 80 PIC $$$$,$$$.99 SOURCTR )@@G@@E E2-80. @F@@@@ 03 COLUMN 92 PIC X(5) VALUE TS )@@G@@'(55%)'. @G@@@@ 03 COLUMN 100 PIC $$$$,$$$.99TT )@@G@@ SOURCE E2-100. @F@@@@ 03 COLUMN 112 PIC X(5) TU )@@G@@VALUE '(30%)'. @ @@@@ 02 LINE PLUS 2. @D@@@@ TV )@@G@@ 03 COLUMN 4 PIC X(28) VALUE@C@@@@ 'NON-ADTW )@@G@@MINISTRATIVE PERSONNEL'.@G@@@@ 03 COLUMN 40 PICTX )@@G@@ $$$$,$$$.99 SOURCE E3-40. @G@@@@ 03 COLUMN 60 TY )@@G@@ PIC $$$$,$$$.99 SOURCE E3-60. @G@@@@ 03 COLUMN 80 TZ )@@G@@ PIC $$$$,$$$.99 SOURCE E3-80. @G@@@@ 03 COLUMN UA )@@G@@100 PIC $$$$,$$$.99 SOURCE E3-100. @ @@@@ 02 LINEUB )@@G@@ PLUS 2. @G@@@@ 03 COLUMN 1 PIC X(11) VALUEUC )@@G@@ 'OVERHEAD ('. @G@@@@ 03 COLUMN 13 PIC ZZ.99UD )@@G@@ SOURCE E4-13. @E@@@@ 03 COLUMN 19 PICUE )@@G@@ XXX VALUE '% )'. @G@@@@ 03 COLUMN 40 PIC $$$$,UF )@@G@@$$$.99 SOURCE E4-40. @G@@@@ 03 COLUMN 60 PICUG )@@G@@ $$$$,$$$.99 SOURCE E4-60. @G@@@@ 03 COLUMN 80 UH )@@G@@ PIC $$$$,$$$.99 SOURCE E4-80. @G@@@@ 03 COLUMN 100 UI )@@G@@ PIC $$$$,$$$.99 SOURCE E4-100. @ @@@@ 02 LINE PLUS UJ )@@G@@2. @D@@@@ 03 COLUMN 1 PIC X(20) VALUE@B@@@@UK )@@G@@ 'EMPLOYEE BENEFITS ('. @G@@@@ 03 COLUMN UL )@@G@@22 PIC ZZ.99 SOURCE E5-22. @E@@@@ 03 CUM )@@G@@OLUMN 28 PIC XXX VALUE '% )'. @G@@@@ 03 COLUMN UN )@@G@@40 PIC $$$$,$$$.99 SOURCE E5-40. @G@@@@ 03 CUO )@@G@@OLUMN 60 PIC $$$$,$$$.99 SOURCE E5-60. @G@@@@ UP )@@G@@ 03 COLUMN 80 PIC $$$$,$$$.99 SOURCE E5-80. @G@@@@ UQ )@@G@@ 03 COLUMN 100 PIC $$$$,$$$.99 SOURCE E5-100. @ @@@@UR )@@G@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN 1 US )@@G@@ PIC X(35) VALUE@E@@@@ 'COST OF SUPPLIES (AVER. HIST. UT )@@G@@COST)'. @G@@@@ 03 COLUMN 40 PIC $$$$,$$$.99UU )@@G@@ SOURCE E6-40. @G@@@@ 03 COLUMN 60 PIC $$$$,UV )@@G@@$$$.99 SOURCE E6-60. @G@@@@ 03 COLUMN 80 PICUW )@@G@@ $$$$,$$$.99 SOURCE E6-80. @G@@@@ 03 COLUMN 100 UX )@@G@@ PIC $$$$,$$$.99 SOURCE E6-100. @ @@@@ 02 LINE PLUS 2. UY )@@G@@@D@@@@ 03 COLUMN 1 PIC X(31) VALUE@D@@@@ UZ )@@G@@ 'RENTAL/MAINTENANCE OF EQUIPMENT'. @G@@@@ 03 CVA )@@G@@OLUMN 40 PIC $$$$,$$$.99 SOURCE E7-40. @G@@@@ VB )@@G@@ 03 COLUMN 60 PIC $$$$,$$$.99 SOURCE E7-60. @G@@@@ VC )@@G@@ 03 COLUMN 100 PIC $$$$,$$$.99 SOURCE E7-100. @ @@@@VD )@@G@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN 1 VE )@@G@@ PIC X(23) VALUE@C@@@@ 'AFTER HOURS MAINTENANCE'. VF )@@G@@@G@@@@ 03 COLUMN 40 PIC $$$$,$$$.99 SOURCE E8-4VG )@@G@@0. @G@@@@ 03 COLUMN 100 PIC $$$$,$$$.99 SOURCVH )@@G@@E E8-100. @ @@@@ 02 LINE PLUS 4. @D@@@@ 03 CVI )@@G@@OLUMN 3 PIC X(25) VALUE@C@@@@ '** TOTAL EXPVJ )@@G@@ENDITURES ***'. @G@@@@ 03 COLUMN 38 PIC $$,$$VK )@@G@@$,$$$.99 SOURCE E9-40. @G@@@@ 03 COLUMN 58 PICVL )@@G@@ $$,$$$,$$$.99 SOURCE E9-60. @G@@@@ 03 COLUMN 78 VM )@@G@@ PIC $$,$$$,$$$.99 SOURCE E9-80. @G@@@@ 03 COLUMN 98 VN )@@G@@ PIC $$,$$$,$$$.99 SOURCE E9-100. @ @@@@ 02 LINE PLUS VO )@@G@@4. @D@@@@ 03 COLUMN 1 PIC X(30) VALUE@D@@@@VP )@@G@@ 'PERCENTAGE OF TOTAL = OVERHEAD'. @G@@@@ VQ )@@G@@ 03 COLUMN 45 PIC ZZ.999 SOURCE E10-45. @G@@@@ VR )@@G@@ 03 COLUMN 65 PIC ZZ.999 SOURCE E10-65. @G@@@@VS )@@G@@ 03 COLUMN 85 PIC ZZ.999 SOURCE E10-85. VT )@@G@@@G@@@@ 03 COLUMN 105 PIC ZZ.999 SOURCE E10-1VU )@@G@@05. @ @@@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN VV )@@G@@1 PIC X(39) VALUE@E@@@@ 'PERCENTAGE OF TOTAVW )@@G@@L = EMPLOYEE BENEFITS'. @G@@@@ 03 COLUMN 45 PICVX )@@G@@ ZZ.999 SOURCE E11-45. @G@@@@ 03 COLUMN 65 VY )@@G@@ PIC ZZ.999 SOURCE E11-65. @G@@@@ 03 COLUMN 85 VZ )@@G@@ PIC ZZ.999 SOURCE E11-85. @G@@@@ 03 COLUMN WA )@@G@@105 PIC ZZ.999 SOURCE E11-105. @@@@@@@^@@@@ RD BWB )@@G@@UDGET-RPT @A@@@@ PAGE LIMIT IS 66 LINES @ @@@@ WC )@@G@@ HEADING 7 @A@@@@ FIRST DETAIL 15. @@@@@@@ @@@@WD )@@G@@ COPY DEPT-HEADER-RW. @ @@@@ 03 LINE PLUS 2. @E@@@@WE )@@G@@ 05 COLUMN 55 PIC X(24) VALUE @C@@@@ WF )@@G@@ 'BUDGET ADJUSTMENT REPORT'. @ @@@@ 03 LINE PLUS WG )@@G@@1. @G@@@@ 05 COLUMN 63 PIC XX SOURCE PRWH )@@G@@OCESSING-MM.@F@@@@ 05 COLUMN 65 PIC XXX VAWI )@@G@@LUE '/19'. @G@@@@ 05 COLUMN 68 PIC XX SOUWJ )@@G@@RCE PROCESSING-YY.@@@@@@@A@@@@ 01 BUD-RPT-DETAIL TYPE DE. @A@@@@WK )@@G@@ 02 LINE NUMBER IS 15. @F@@@@ 03 COLUMN 1 WL )@@G@@ PIC Z(5).9 SOURCE B1-1. @D@@@@ 03 COLUMN 9 WM )@@G@@ PIC X(43) VALUE@F@@@@ 'KP/VER HOURS TO BE ADDEDWN )@@G@@ TO COMPUTER BUDGET'. @F@@@@ 03 COLUMN 57 PICWO )@@G@@ Z(5).9 SOURCE B1-57. @D@@@@ 03 COLUMN 65 PICWP )@@G@@ X(47) VALUE@G@@@@ 'PROGRAMMER HOURS TO BE ADDED TO COMPWQ )@@G@@UTER BUDGET'. @ @@@@ 02 LINE PLUS 2. @D@@@@ WR )@@G@@ 03 COLUMN 1 PIC X(22) VALUE@B@@@@ 'INITIAWS )@@G@@L KP/VER BUDGET:'.@G@@@@ 03 COLUMN 24 PIC $$$$,WT )@@G@@$$$.99 SOURCE B2-24. @G@@@@ 03 COLUMN 39 PICWU )@@G@@ $$$,$$$.99 SOURCE B2-39. @D@@@@ 03 COLUMN 50 WV )@@G@@ PIC X(50) VALUE@G@@@@ 'ADDED TO COMPUTER BUDGET - ADJWW )@@G@@USTED KP/VER BUDGET:'. @G@@@@ 03 COLUMN 100 PICWX )@@G@@ $$,$$$,$$$.99 SOURCE B2-100. @ @@@@ 02 LINE PLUS 2. @D@@@@WY )@@G@@ 03 COLUMN 1 PIC X(26) VALUE@C@@@@ WZ )@@G@@ 'INITIAL PROGRAMMER BUDGET:'. @G@@@@ 03 COLUMN 28 XA )@@G@@ PIC $$$$,$$$.99 SOURCE B3-28. @G@@@@ 03 COLUMN XB )@@G@@41 PIC $$$$,$$$.99 SOURCE B3-42. @D@@@@ 03 CXC )@@G@@OLUMN 53 PIC X(54) VALUE@G@@@@ 'ADDED TO COMPUXD )@@G@@TER BUDGET - ADJUSTED PROGRAMMER BUDGET:'.@G@@@@ 03 COLUMN XE )@@G@@108 PIC $$,$$$,$$$.99 SOURCE B3-108. @ @@@@ 02 LINEXF )@@G@@ PLUS 2. @D@@@@ 03 COLUMN 1 PIC X(24) VALUEXG )@@G@@@C@@@@ 'INITIAL COMPUTER BUDGET:'. @G@@@@ XH )@@G@@ 03 COLUMN 27 PIC $$,$$$,$$$.99 SOURCE B4-27. @D@@@@ XI )@@G@@ 03 COLUMN 44 PIC X(25) VALUE@C@@@@ 'XJ )@@G@@ADJUSTED COMPUTER BUDGET:'. @G@@@@ 03 COLUMN 71 XK )@@G@@ PIC $$,$$$,$$$.99 SOURCE B4-71. @ @@@@ 02 LINE PLUS 6. XL )@@G@@@D@@@@ 03 COLUMN 1 PIC X(28) VALUE@C@@@@ XM )@@G@@ 'HOURLY RATE FOR DATA ENTRY ='.@G@@@@ 03 COLUMN XN )@@G@@30 PIC $$$$.99999 SOURCE B5-30. @D@@@@ 03 CXO )@@G@@OLUMN 51 PIC X(38) VALUE@E@@@@ 'HOURLY RATE XP )@@G@@FOR ANALYSIS/PROGRAMMING ='. @G@@@@ 03 COLUMN 90 XQ )@@G@@ PIC $$$$.99999 SOURCE B5-90. @ @@@@ 02 LINE PLUS 2. XR )@@G@@@E@@@@ 03 COLUMN 1 PIC X(63) VALUE @G@@@@XS )@@G@@ 'NET EXPENDITURE TOTAL AFTER DEDUCTING PRE-DETERMINED CXT )@@G@@@ @@@@ - 'OSTS OF:'. @F@@@@ 03 COLUMN 65 XU )@@G@@ PIC $$$$,$$$.99 SOURCE B6-65.@D@@@@ 03 COLUMN 77 XV )@@G@@ PIC X(9) VALUE @A@@@@ ' EQUALS:'. @F@@@@XW )@@G@@ 03 COLUMN 87 PIC $$$$,$$$.99 SOURCE B6-87.@ @@@@XX )@@G@@ 02 LINE PLUS 2. @D@@@@ 03 COLUMN 1 XY )@@G@@ PIC X(56) VALUE @G@@@@ 'AVERAGE RATES FOR COMPUTER PRXZ )@@G@@OCESSING (SUP) HOUR: BAS@^@@@@ - 'E ='.@F@@@@ YA )@@G@@ 03 COLUMN 58 PIC $$$$.99999 SOURCE B7-58. @D@@@@ YB )@@G@@ 03 COLUMN 69 PIC X(10) VALUE @A@@@@ 'ADJUSYC )@@G@@TED ='. @F@@@@ 03 COLUMN 80 PIC $$$$.99999 SOYD )@@G@@URCE B7-77. @ @@@@ 02 LINE PLUS 2. @D@@@@ 03 YE )@@G@@COLUMN 1 PIC X(30) VALUE @D@@@@ 'SUP HOUR RAYF )@@G@@TES FOR EACH SHIFT:'. @ @@@@ 02 LINE PLUS 1. @D@@@@ YG )@@G@@ 03 COLUMN 10 PIC X(22) VALUE @B@@@@ YH )@@G@@'SHIFT-1 (0001-0800) ='.@F@@@@ 03 COLUMN 32 PIC $YI )@@G@@$$$.99999 SOURCE B9-32. @D@@@@ 03 COLUMN 42 PIC XYJ )@@G@@(7) VALUE @ @@@@ '/HR FOR'. @F@@@@ 03 YK )@@G@@COLUMN 50 PIC 9(5).99999 SOURCE B9-47. @D@@@@ 03 YL )@@G@@COLUMN 62 PIC X(9) VALUE @ @@@@ 'SUP HRS ='.YM )@@G@@@F@@@@ 03 COLUMN 72 PIC $$$$,$$$.99 SOURCE B9-67.YN )@@G@@@ @@@@ 02 LINE PLUS 1. @D@@@@ 03 COLUMN 10 YO )@@G@@ PIC X(22) VALUE @B@@@@ 'SHIFT-2 (0801-1700) ='.YP )@@G@@@F@@@@ 03 COLUMN 32 PIC $$$$.99999 SOURCE B10-32.YQ )@@G@@@D@@@@ 03 COLUMN 42 PIC X(7) VALUE @ @@@@ YR )@@G@@ '/HR FOR'. @F@@@@ 03 COLUMN 50 PIC 9YS )@@G@@(5).99999 SOURCE B10-47.@D@@@@ 03 COLUMN 62 PIC XYT )@@G@@(9) VALUE @ @@@@ 'SUP HRS ='.@G@@@@ 03 YU )@@G@@COLUMN 72 PIC $$$$,$$$.99 SOURCE B10-67. @ @@@@ 0YV )@@G@@2 LINE PLUS 1. @D@@@@ 03 COLUMN 10 PIC X(22) VYW )@@G@@ALUE @B@@@@ 'SHIFT-3 (1701-2400) ='.@F@@@@ YX )@@G@@ 03 COLUMN 32 PIC $$$$.99999 SOURCE B11-32.@D@@@@ YY )@@G@@ 03 COLUMN 42 PIC X(7) VALUE @ @@@@ '/HR FYZ )@@G@@OR'. @F@@@@ 03 COLUMN 50 PIC 9(5).99999 SOURCE BZA )@@G@@11-47.@D@@@@ 03 COLUMN 62 PIC X(9) VALUE @ @@@@ZB )@@G@@ 'SUP HRS ='.@G@@@@ 03 COLUMN 72 ZC )@@G@@ PIC $$$$,$$$.99 SOURCE B11-67. @ @@@@ 02 LINE PLUS 2. ZD )@@G@@@D@@@@ 03 COLUMN 10 PIC X(7) VALUE @ @@@@ ZE )@@G@@ 'TOTALS:'. @F@@@@ 03 COLUMN 50 PIC 9(5ZF )@@G@@).99999 SOURCE B12-47. @D@@@@ 03 COLUMN 62 PIC X(9ZG )@@G@@) VALUE @ @@@@ 'SUP HRS ='.@F@@@@ 03 ZH )@@G@@COLUMN 72 PIC $$$$,$$$.99 SOURCE B12-67. @]@@@@ / @ @@@@ZI )@@G@@ PROCEDURE DIVISION. @@@@@@@@@@@@@^@@@@ 0000-CONTROL. ZJ )@@G@@@@@@@@@A@@@@ PERFORM 0100-INITIALIZE. @B@@@@ PERFORMZK )@@G@@ 0110-FETCH-CTCF-IN. @D@@@@ PERFORM 0120-FETCH-SALARY-EQUIPZL )@@G@@-COSTS. @F@@@@ PERFORM 0130-FETCH-DATA-ENTRY-TIME UNTIL DEZM )@@G@@-TIME-EOF. @F@@@@ PERFORM 0140-FETCH-KEYPUNCH-TIME UNTIL KP-TZN )@@G@@IME-EOF. @E@@@@ PERFORM 0150-FETCH-AP-TIME UNTIL SCS-SUMM-EZO )@@G@@OF. @C@@@@ PERFORM 0160-FETCH-PCT-COST-FIGURES. @C@@@@ ZP )@@G@@ PERFORM 0170-PROCESS-EXPENDITURE-RPT.@C@@@@ PERFORM 0180-ZQ )@@G@@PROCESS-BUDGET-RPT. @A@@@@ PERFORM 0190-OUTPUT-CTCF.@A@@@@ZR )@@G@@ PERFORM 0199-CLOSE-UP. @^@@@@ STOP RUN. @@@@@@ZS )@@G@@@@@@@@@^@@@@ 0100-INITIALIZE. @@@@@@@ @@@@ OPEN INPUT CTZT )@@G@@CF-IN @B@@@@ DATA-ENTRY-TIME @B@@@@ ZU )@@G@@ SALRY-EQUIP-COSTS @A@@@@ KEY-PUNCH-TIMEZV )@@G@@@B@@@@ PCT-COST-FIGURES @ @@@@ ZW )@@G@@ SCS-SUMM@A@@@@ OUTPUT CTCF-OUT @A@@@@ ZX )@@G@@ PRINT-FILE. @B@@@@ ACCEPT CUR-DATE FROM DATE. ZY )@@G@@@D@@@@ MOVE CORR CUR-DATE TO CUR-DATE-EDITED. @C@@@@ ZZ )@@G@@ MOVE CUR-DATE-EDITED TO DEPT-DATE . @C@@@@ MOVE 'H155105AA )@@G@@0' TO DEPT-PROGRAM-NO . @B@@@@ MOVE 'H15513' TO DEPT-RUN-ID . AB )@@G@@@^@@@@ READ SCS-SUMM@A@@@@ INVALID KEY DISPLAY AC )@@G@@@G@@@@ 'COULD NOT READ SCS-SUMMARY FILE' UPON PRIAD )@@G@@NTER @B@@@@ ENTER FD 'ABORT'. @@@@@@@@@@@@@ @@@@AE )@@G@@ 0110-FETCH-CTCF-IN. @@@@@@@B@@@@ READ CTCF-IN INTO CAF )@@G@@TCF-OUT-REC @D@@@@ AT END MOVE 'Y' TO SW-CTCF-IN-EOF. AG )@@G@@@B@@@@ MOVE PROCESSING-MM TO MM-SUB. @@@@@@@@@@@@@B@@@@ AH )@@G@@ 0120-FETCH-SALARY-EQUIP-COSTS. @@@@@@@A@@@@ READ SALRY-EQAI )@@G@@UIP-COSTS @D@@@@ AT END MOVE 'Y' TO SW-CARD-IN-EOF. AJ )@@G@@@ @@@@ IF NOT CONTROL-CARD@G@@@@ DISPLAY 'H155105AK )@@G@@0 CONTROL CARD MISSING' UPON PRINT-DEVICE @A@@@@ ENTER FD 'AL )@@G@@ABORT'. @@@@@@@@@@@@@A@@@@ 0130-FETCH-DATA-ENTRY-TIME. @@@@@@AM )@@G@@@A@@@@ READ DATA-ENTRY-TIME @D@@@@ AT END MAN )@@G@@OVE 'Y' TO SW-DE-TIME-EOF. @ @@@@ IF NOT DE-TIME-EOF @ @@@@AO )@@G@@ ADD 1 TO DE-CNT @E@@@@ IF DE-ACNT-NO-FLD = '1AP )@@G@@50' OR '162' OR '865' @^@@@@ OR @B@@@@ AQ )@@G@@ DE-ACNT-NO-FLD > '899' @E@@@@ ADD DE-ENTRY-MIN TOAR )@@G@@ DE-BYPASS-MIN ROUNDED @E@@@@ ADD DE-VERIFY-MIN TO DE-BAS )@@G@@YPASS-MIN ROUNDED @#@@@@ ELSE@D@@@@ IF DE-AAT )@@G@@CNT-NO-FLD > '150' AND < '160'@E@@@@ ADD DE-ENTRY-MINAU )@@G@@ TO DE-OVHD-MIN ROUNDED @E@@@@ ADD DE-VERIFY-MIN TO DAV )@@G@@E-OVHD-MIN ROUNDED@^@@@@ ELSE @E@@@@ AW )@@G@@ ADD DE-ENTRY-MIN TO DE-TOTAL-MIN ROUNDED@F@@@@ ADD AX )@@G@@DE-VERIFY-MIN TO DE-TOTAL-MIN ROUNDED @#@@@@ ELSE @G@@@@AY )@@G@@ COMPUTE DE-BYPASS-HRS ROUNDED = DE-BYPASS-MIN / 60.000 AZ )@@G@@@F@@@@ COMPUTE DE-OVHD-HRS ROUNDED = DE-OVHD-MIN / 60.000 BA )@@G@@@F@@@@ COMPUTE DE-TOTAL-HRS ROUNDED = DE-TOTAL-MIN / 60.000BB )@@G@@@G@@@@ ADD DE-BYPASS-HRS DE-OVHD-HRS TO DE-TOTAL-HRS ROUNDEBC )@@G@@D @F@@@@ DISPLAY 'DE-BYPASS ' DE-BYPASS-HRS UPON PRINT-BD )@@G@@DEVICE@F@@@@ DISPLAY 'DE-OVHD ' DE-OVHD-HRS UPON PRINT-DEVIBE )@@G@@CE @F@@@@ DISPLAY 'DE-TOTAL ' DE-TOTAL-HRS UPON PRINT-DEBF )@@G@@VICE. @@@@@@@@@@@@@A@@@@ 0140-FETCH-KEYPUNCH-TIME. @@@@@@@ @@@@BG )@@G@@ READ KEY-PUNCH-TIME@D@@@@ AT END MOVE 'Y' TO SBH )@@G@@W-KP-TIME-EOF. @ @@@@ IF NOT KP-TIME-EOF @ @@@@ BI )@@G@@ ADD 1 TO KP-CNT @B@@@@ IF KP-MACHINE-TYPE = '129' @A@@@@BJ )@@G@@ IF KP-HRS-X NUMERIC@D@@@@ IF KP-JOB-BK )@@G@@CODE = 150 OR 162 OR 865@ @@@@ OR @B@@@@ BL )@@G@@ KP-JOB-CODE > 899 @E@@@@ ADD KP-BM )@@G@@HRS TO KP-BYPASS-HRS ROUNDED @^@@@@ ELSE@D@@@@ BN )@@G@@ IF KP-JOB-CODE > 150 AND < 160 @E@@@@ BO )@@G@@ ADD KP-HRS TO KP-OVHD-HRS ROUNDED @ @@@@ EBP )@@G@@LSE @E@@@@ ADD KP-HRS TO KP-TOTAL-HRS ROUNDEDBQ )@@G@@@^@@@@ ELSE @A@@@@ NEXT SENTENCE BR )@@G@@@#@@@@ ELSE@ @@@@ NEXT SENTENCE@#@@@@ BS )@@G@@ ELSE @G@@@@ ADD KP-BYPASS-HRS KP-OVHD-HRS TO KP-TOTABT )@@G@@L-HRS ROUNDED @F@@@@ DISPLAY 'KP-BYPASS ' KP-BYPASS-HRSBU )@@G@@ UPON PRINT-DEVICE@F@@@@ DISPLAY 'KP-OVHD ' KP-OVHD-HRS UPOBV )@@G@@N PRINT-DEVICE @F@@@@ DISPLAY 'KP-TOTAL ' KP-TOTAL-HRS UBW )@@G@@PON PRINT-DEVICE. @@@@@@@@@@@@@ @@@@ 0150-FETCH-AP-TIME . @@@@@@BX )@@G@@@ @@@@ READ SCS-SUMM NEXT @D@@@@ AT END MOVE 'YBY )@@G@@' TO SW-SCS-SUMM-EOF. @ @@@@ IF NOT SCS-SUMM-EOF@ @@@@ BZ )@@G@@ ADD 1 TO AP-CNT @C@@@@ IF NOT INACTIVE-SUMMARY-RECOCA )@@G@@RD @D@@@@ IF SCS-ACCT-NUM = 150 OR 162 OR 865 @F@@@@CB )@@G@@ ADD ACCT-HOURS (MM-SUB) RUN-HOURS (MM-SUB) @C@@@@CC )@@G@@ TO AP-BYPASS-HRS ROUNDED@^@@@@ ECD )@@G@@LSE @D@@@@ IF SCS-ACCT-NUM > 150 AND < 160 @F@@@@CE )@@G@@ ADD ACCT-HOURS (MM-SUB) RUN-HOURS (MM-SUB) @D@@@@CF )@@G@@ TO AP-OVHD-HRS ROUNDED @^@@@@ CG )@@G@@ ELSE@F@@@@ ADD ACCT-HOURS (MM-SUB) RUN-HOUCH )@@G@@RS (MM-SUB) @D@@@@ TO AP-TOTAL-HRS ROUNDED CI )@@G@@@#@@@@ ELSE@ @@@@ NEXT SENTENCE@#@@@@ CJ )@@G@@ ELSE @G@@@@ ADD AP-BYPASS-HRS AP-OVHD-HRS TO AP-TOTACK )@@G@@L-HRS ROUNDED @F@@@@ DISPLAY 'AP-BYPASS ' AP-BYPASS-HRSCL )@@G@@ UPON PRINT-DEVICE@F@@@@ DISPLAY 'AP-OVHD ' AP-OVHD-HRS UPOCM )@@G@@N PRINT-DEVICE @F@@@@ DISPLAY 'AP-TOTAL ' AP-TOTAL-HRS UCN )@@G@@PON PRINT-DEVICE. @@@@@@@@@@@@@A@@@@ 0160-FETCH-PCT-COST-FIGURES. CO )@@G@@@@@@@@@A@@@@ READ PCT-COST-FIGURES @F@@@@ INCP )@@G@@VALID KEY DISPLAY 'TABLE-DISC-JA KEY 02 INVALID'@D@@@@ CQ )@@G@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABORCR )@@G@@T'. @B@@@@ READ PCT-COST-FIGURES NEXT @D@@@@ CS )@@G@@ AT END MOVE 'Y' TO SW-TABLE-JA-EOF. @ @@@@ IF TABLE-JA-ECT )@@G@@OF @A@@@@ OR NOT TJA-DECODE-02 @F@@@@ DISPCU )@@G@@LAY 'COULD NOT FIND TABLE-DISC-JA DECODE 02' @B@@@@ CV )@@G@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'. @@@@@@CW )@@G@@@@@@@@@A@@@@ 0170-PROCESS-EXPENDITURE-RPT.@@@@@@@B@@@@ MCX )@@G@@OVE ADMIN-SALARIES TO E2-40. @C@@@@ COMPUTE E2-60 ROUNDED = ECY )@@G@@2-40 * 0.15.@C@@@@ COMPUTE E2-80 ROUNDED = E2-40 * 0.55.@D@@@@CZ )@@G@@ COMPUTE E2-100 ROUNDED = E2-40 * 0.30. @B@@@@ MDA )@@G@@OVE DE-SALARIES TO E3-60. @B@@@@ MOVE AP-SALARIES TO E3-80DB )@@G@@. @C@@@@ MOVE COMPUTER-SALARIES TO E3-100. @E@@@@ DC )@@G@@ COMPUTE E3-40 ROUNDED = E3-60 + E3-80 + E3-100. @D@@@@ CDD )@@G@@OMPUTE E1-40 ROUNDED = E2-40 + E3-40. @D@@@@ COMPUTE E1-60DE )@@G@@ ROUNDED = E2-60 + E3-60. @D@@@@ COMPUTE E1-80 ROUNDED = EDF )@@G@@2-80 + E3-80. @D@@@@ COMPUTE E1-100 ROUNDED = E2-100 + E3-DG )@@G@@100. @B@@@@ MOVE TJA-OVHD-PCT TO E4-13 @B@@@@ DH )@@G@@ PCT-REG. @E@@@@ COMPUTE PCT-REG ROUNDED =DI )@@G@@ PCT-REG / 100.00000. @D@@@@ COMPUTE E4-60 ROUNDED = E1-60 DJ )@@G@@ * PCT-REG. @D@@@@ COMPUTE E4-80 ROUNDED = E1-80 * PCT-REG. DK )@@G@@@D@@@@ COMPUTE E4-100 ROUNDED = E1-100 * PCT-REG. @E@@@@ DL )@@G@@ COMPUTE E4-40 ROUNDED = E4-60 + E4-80 + E4-100. @A@@@@ MDM )@@G@@OVE E4-40 TO E4-40A. @A@@@@ MOVE E4-60 TO E4-60A. @A@@@@DN )@@G@@ MOVE E4-80 TO E4-80A. @A@@@@ MOVE E4-100 TO E4-1DO )@@G@@00A. @C@@@@ MOVE TJA-EMP-BENEFIT-PCT TO E5-22 @B@@@@ DP )@@G@@ PCT-REG. @E@@@@ COMPUTE PCT-REG ROUDQ )@@G@@NDED = PCT-REG / 100.00000. @D@@@@ COMPUTE E5-60 ROUNDED = DR )@@G@@E1-60 * PCT-REG. @D@@@@ COMPUTE E5-80 ROUNDED = E1-80 * PCTDS )@@G@@-REG. @D@@@@ COMPUTE E5-100 ROUNDED = E1-100 * PCT-REG. @E@@@@DT )@@G@@ COMPUTE E5-40 ROUNDED = E5-60 + E5-80 + E5-100. @A@@@@ DU )@@G@@ MOVE E5-40 TO E5-40A. @A@@@@ MOVE E5-60 TO E5-60A. DV )@@G@@@A@@@@ MOVE E5-80 TO E5-80A. @A@@@@ MOVE E5-100 TDW )@@G@@O E5-100A. @B@@@@ MOVE TJA-DE-SUPPLIES TO E6-60. @B@@@@ DX )@@G@@ MOVE TJA-AP-SUPPLIES TO E6-80. @C@@@@ MOVE TJA-COMPUTER-SDY )@@G@@UPPLIES TO E6-100.@E@@@@ COMPUTE E6-40 ROUNDED = E6-60 + E6-80DZ )@@G@@ + E6-100. @B@@@@ MOVE DE-EQUIP-COST TO E7-60. @C@@@@ EA )@@G@@ MOVE COMPUTER-EQUIP-COST TO E7-100. @D@@@@ COMPUTE E7-40EB )@@G@@ ROUNDED = E7-60 + E7-100. @B@@@@ MOVE AFTER-5-MAINT TO E8-EC )@@G@@40 @B@@@@ E8-100. @F@@@@ CED )@@G@@OMPUTE E9-40 ROUNDED = E1-40 + E4-40 + E5-40 + E6-40 +@D@@@@ EE )@@G@@ E7-40 + E8-40. @F@@@@ COMPUTE E9-60EF )@@G@@ ROUNDED = E1-60 + E4-60 + E5-60 + E6-60 +@B@@@@ EG )@@G@@ E7-60. @F@@@@ COMPUTE E9-80 ROUNDED = E1-80 + E4-80EH )@@G@@ + E5-80 + E6-80. @G@@@@ COMPUTE E9-100 ROUNDED = E1-100 + E4-EI )@@G@@100 + E5-100 + E6-100 + @D@@@@ E7-100EJ )@@G@@ + E8-100. @A@@@@ MOVE E9-40 TO E9-40A. @A@@@@ MEK )@@G@@OVE E9-60 TO E9-60A. @A@@@@ MOVE E9-80 TO E9-80A. @A@@@@EL )@@G@@ MOVE E9-100 TO E9-100A. @F@@@@ COMPUTE E10-45 ROUNEM )@@G@@DED = (E4-40A / E9-40A) * 100.00000.@F@@@@ COMPUTE E10-65 ROUNEN )@@G@@DED = (E4-60A / E9-60A) * 100.00000.@F@@@@ COMPUTE E10-85 ROUNEO )@@G@@DED = (E4-80A / E9-80A) * 100.00000.@G@@@@ COMPUTE E10-105 ROUEP )@@G@@NDED = (E4-100A / E9-100A) * 100.00000. @G@@@@ COMPUTE E11-4EQ )@@G@@5 ROUNDED = (E5-40A / E9-40A) * 100.00000. @G@@@@ COMPUTEER )@@G@@ E11-65 ROUNDED = (E5-60A / E9-60A) * 100.00000. @G@@@@ CES )@@G@@OMPUTE E11-85 ROUNDED = (E5-80A / E9-80A) * 100.00000. @G@@@@ ET )@@G@@ COMPUTE E11-105 ROUNDED = (E5-100A / E9-100A) * 100.00000. @A@@@@EU )@@G@@ INITIATE EXPENDITURE-RPT.@B@@@@ GENERATE EXPEND-RPTEV )@@G@@-DETAIL. @B@@@@ TERMINATE EXPENDITURE-RPT. @@@@@@@@@@@@EW )@@G@@@A@@@@ 0180-PROCESS-BUDGET-RPT. @@@@@@@A@@@@ MOVE E9EX )@@G@@-60 TO B2-24. @A@@@@ MOVE E9-80 TO B3-28. @A@@@@ EY )@@G@@ MOVE E9-100 TO B4-27. @D@@@@ ADD KP-BYPASS-HRS TO DE-BEZ )@@G@@YPASS-HRS ROUNDED.@D@@@@ ADD KP-OVHD-HRS TO DE-OVHD-HRS ROUNDEFA )@@G@@D. @D@@@@ ADD KP-TOTAL-HRS TO DE-TOTAL-HRS ROUNDED. @A@@@@FB )@@G@@ MOVE DE-OVHD-HRS TO B1-1.@B@@@@ MOVE AP-OVHD-HRS TOFC )@@G@@ B1-57. @E@@@@ COMPUTE B2-39 ROUNDED = (E9-60 / DE-TOTAL-HFD )@@G@@RS) * @C@@@@ DE-OVHD-HRS. @D@@@@ FE )@@G@@ COMPUTE B2-100 ROUNDED = B2-24 - B2-39. @E@@@@ COMPUTEFF )@@G@@ B3-42 ROUNDED = (E9-80 / AP-TOTAL-HRS) * @C@@@@ FG )@@G@@ AP-OVHD-HRS. @D@@@@ COMPUTE B3-108 ROUNDED = B3-28 FH )@@G@@- B3-42. @E@@@@ COMPUTE B4-71 ROUNDED = B2-39 + B3-42 + B4-FI )@@G@@27. @E@@@@ COMPUTE B5-30 ROUNDED = B2-100 / (DE-TOTAL-HRS - FJ )@@G@@@F@@@@ (DE-OVHD-HRS + DE-BYPASS-HRS)).FK )@@G@@@E@@@@ COMPUTE B5-90 ROUNDED = B3-108 / (AP-TOTAL-HRS - @F@@@@FL )@@G@@ (AP-OVHD-HRS + AP-BYPASS-HRS)).@C@@@@FM )@@G@@ PERFORM 0200-ACCUMULATE-PRE-DET-COSTS@D@@@@ FN )@@G@@ VARYING Q FROM 1 BY 1 UNTIL Q > 20.@C@@@@ ADD COMM-TRANS TO BFO )@@G@@6-65 ROUNDED. @D@@@@ COMPUTE B6-87 ROUNDED = B4-71 - B6-65FP )@@G@@. @B@@@@ MOVE NON-DP-HRS (1) TO B9-47. @B@@@@ MFQ )@@G@@OVE NON-DP-HRS (2) TO B10-47. @B@@@@ MOVE NON-DP-HRS (3) TO B1FR )@@G@@1-47. @B@@@@ MOVE SUP-HRS-LESS-DP TO B12-47.@D@@@@ CFS )@@G@@OMPUTE B7-58 ROUNDED = B4-71 / B12-47. @D@@@@ COMPUTE B7-77FT )@@G@@ ROUNDED = B6-87 / B12-47. @B@@@@ MOVE SHIFT1-DIFF TO PCT-RFU )@@G@@EG. @E@@@@ COMPUTE PCT-REG ROUNDED = PCT-REG / 100.00000. FV )@@G@@@D@@@@ COMPUTE B9-32 ROUNDED = B7-77 * PCT-REG. @D@@@@ FW )@@G@@ COMPUTE B9-67A ROUNDED = B9-32 * B9-47. @D@@@@ COMPUTEFX )@@G@@ B9-67 ROUNDED = B9-67 + B9-67A. @B@@@@ MOVE SHIFT3-DIFF TOFY )@@G@@ PCT-REG. @E@@@@ COMPUTE PCT-REG ROUNDED = PCT-REG / 100.000FZ )@@G@@00. @D@@@@ COMPUTE B11-32 ROUNDED = B7-77 * PCT-REG. @D@@@@GA )@@G@@ COMPUTE B11-67A ROUNDED = B11-32 * B11-47. @D@@@@ CGB )@@G@@OMPUTE B11-67 ROUNDED = B11-67 + B11-67A. @A@@@@ MOVE B6-87 TOGC )@@G@@ B6-87A. @F@@@@ COMPUTE B10-67A ROUNDED = B6-87A - (B9-67A GD )@@G@@+ B11-67A). @D@@@@ COMPUTE B10-67 ROUNDED = B10-67 + B10-67A. GE )@@G@@@D@@@@ COMPUTE B10-32 ROUNDED = B10-67A / B10-47. @E@@@@ GF )@@G@@ COMPUTE B12-67 ROUNDED = B9-67 + B10-67 + B11-67.@A@@@@ IGG )@@G@@NITIATE BUDGET-RPT. @A@@@@ GENERATE BUD-RPT-DETAIL. @A@@@@GH )@@G@@ TERMINATE BUDGET-RPT. @@@@@@@@@@@@@^@@@@ 0190-OUTPUTGI )@@G@@-CTCF.@@@@@@@D@@@@ MOVE E10-65 TO D-E OF PCT-OVHD-TO-APPLY. GJ )@@G@@@D@@@@ MOVE E10-85 TO AP OF PCT-OVHD-TO-APPLY. @E@@@@ GK )@@G@@ MOVE E10-105 TO COMPUTER OF PCT-OVHD-TO-APPLY. @E@@@@ MGL )@@G@@OVE E11-65 TO D-E OF PCT-EMPLOYEE-BENEFITS. @E@@@@ MOVE E1GM )@@G@@1-85 TO AP OF PCT-EMPLOYEE-BENEFITS. @F@@@@ MOVE E11-105 GN )@@G@@TO COMPUTER OF PCT-EMPLOYEE-BENEFITS. @C@@@@ MOVE B5-30 TOGO )@@G@@ D-E OF HOURLY-RATES. @C@@@@ MOVE B5-90 TO AP OF HOURLY-RATGP )@@G@@ES. @C@@@@ MOVE B7-58 TO UNADJ-SUP-HR-RATE. @B@@@@ GQ )@@G@@ MOVE B9-32 TO CMPUTR-RATES (1).@C@@@@ MOVE B10-32 TO CMPUGR )@@G@@TR-RATES (2). @C@@@@ MOVE B11-32 TO CMPUTR-RATES (3). GS )@@G@@@ @@@@ WRITE CTCF-OUT-REC.@@@@@@@@@@@@@^@@@@ 0199-CLOSE-GT )@@G@@UP. @@@@@@@^@@@@ CLOSE CTCF-IN@A@@@@ DATA-ENGU )@@G@@TRY-TIME @A@@@@ SALRY-EQUIP-COSTS @A@@@@ GV )@@G@@ KEY-PUNCH-TIME @A@@@@ PCT-COST-FIGURES @ @@@@GW )@@G@@ SCS-SUMM @ @@@@ CTCF-OUT @ @@@@GX )@@G@@ PRINT-FILE. @C@@@@ CALL 'LOG-RCNT' USING DE-GY )@@G@@NAME DE-CNT.@C@@@@ CALL 'LOG-RCNT' USING KP-NAME KP-CNT.@C@@@@GZ )@@G@@ CALL 'LOG-RCNT' USING AP-NAME AP-CNT.@@@@@@@@@@@@@B@@@@ HA )@@G@@ 0200-ACCUMULATE-PRE-DET-COSTS. @@@@@@@B@@@@ IF PRE-DET-ITHB )@@G@@EM (Q) IS NUMERIC @F@@@@ COMPUTE B6-65 ROUNDED = B6-65 + PRHC )@@G@@E-DET-ITEM (Q). ___@@@ IF KP-HRS-X NUMERIC@D@@@@ HD )@@G@@ IF KP-JOB-CODE = 150 OR 162 OR 865@ @@@@ HE )@@G@@ OR @B@@@@ *[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONHF )@@G@@. @A@@@@ PROGRAM-ID. H1551060. @B@@@@ AUTHOR. HG )@@G@@ JOHN BROZOVSKY. @D@@@@ INSTALLATION. TEXAS DEPARTMENT OFHH )@@G@@ HEALTH. @B@@@@ DATE-WRITTEN. SEPTEMBER 16, 1978.@^@@@@ HI )@@G@@ DATE-COMPILED. @C@@@@ *REMARKS. *** ASCII ANS-1974 *** HJ )@@G@@@C@@@@ * INPUTS: COST-TOTALS-BY-CATAGORY @C@@@@ * HK )@@G@@ MONTHLY-ACCOUNTING-LOG @D@@@@ * YEAR-THL )@@G@@O-DATE-ACCOUNTING-LOG @E@@@@ * ANALYSIS / PROGRAMHM )@@G@@MING TIME (SCS) @A@@@@ * INFOREX TIME@D@@@@ HN )@@G@@* KEYPUNCH TIME (TEMPORARY). @]@@@@ * @E@@@@HO )@@G@@ * THESE ARE USED TO CREATE AND UPDATE THE @F@@@@ HP )@@G@@* YEAR-TO-DATE-ACCOUNTING-LOG, TO CREATE THE @G@@@@ HQ )@@G@@* COST-SUMMARY-BY-ACCOUNT (LEAVES SEVERAL FIELDS @G@@@@HR )@@G@@ * BLANK), AND TO WRITE THE COMPUTER UTILIZATION HS )@@G@@@ @@@@ * RECAP. @]@@@@ * @]@@@@ * HT )@@G@@@]@@@@ * @]@@@@ * @ @@@@ * CHANGE 10 MAY 80 HU )@@G@@@C@@@@ * CONVERT TO ANS 1974 COBOL (ACOB4). @]@@@@ * HV )@@G@@@ @@@@ ENVIRONMENT DIVISION. @ @@@@ CONFIGURATION SECTION. HW )@@G@@@ @@@@ COPY COMPUTER-NAMES. @@@@@@@^@@@@ SPECIAL-NAMES. HX )@@G@@@ @@@@ COPY DEVICE-NAMES. @ @@@@ INPUT-OUTPUT SECTION. HY )@@G@@@@@@@@@^@@@@ FILE-CONTROL. @B@@@@ SELECT COST-BY-CATAHZ )@@G@@GORY-FILE @C@@@@ ASSIGN TO MASS-STORAGE CTCF. @A@@@@IA )@@G@@ SELECT MONTHLY-BY-ACCOUNT@D@@@@ ASSIGN TO MASS-IB )@@G@@STORAGE MTH-ACNT-SUM. @B@@@@ SELECT SCS-BY-ACCOUNT-FILE IC )@@G@@@D@@@@ ASSIGN TO MASS-STORAGE SCS-SUMMARY, @B@@@@ ID )@@G@@ ACCESS MODE IS SEQUENTIAL, @B@@@@ ORGANIZATION ISIE )@@G@@ INDEXED, @B@@@@ PROCESSING IS SEQUENTIAL, @B@@@@ IF )@@G@@ ACTUAL KEY IS SCS-SUMM-KEY.@B@@@@ SELECT OPTIONAL OLDIG )@@G@@-Y-T-D-FILE @D@@@@ ASSIGN TO MASS-STORAGE OLD-YTD-ACNT. IH )@@G@@@A@@@@ SELECT NEW-Y-T-D-FILE @D@@@@ ASSIGN TOII )@@G@@ MASS-STORAGE NEW-YTD-ACNT. @B@@@@ SELECT COST-BY-ACCOUNT-FIIJ )@@G@@LE @D@@@@ ASSIGN TO MASS-STORAGE MTH-COST-SUM. @B@@@@IK )@@G@@ SELECT OPTIONAL INFOREX-FILE @C@@@@ ASSIGN TOIL )@@G@@ MASS-STORAGE DE-FILE. @A@@@@ SELECT KEYPUNCH-FILE @C@@@@IM )@@G@@ ASSIGN TO CARD-READER KP-CARDS. @ @@@@ SELECT IN )@@G@@PRINT-FILE @C@@@@ ASSIGN TO PRINTER UTILIZ-RPT. @]@@@@IO )@@G@@ / @^@@@@ DATA DIVISION. @@@@@@@^@@@@ FILE SECTIOIP )@@G@@N. @@@@@@@@@@@@@A@@@@ FD COST-BY-CATAGORY-FILE, @B@@@@ IQ )@@G@@ LABEL RECORDS ARE STANDARD, @A@@@@ BLOCK CONTAINS 1 REIR )@@G@@CORDS,@B@@@@ DATA RECORD IS CATAGORY-RECORD.@@@@@@@C@@@@ IS )@@G@@ 01 CATAGORY-RECORD. COPY CTCF-REC. @@@@@@@@@@@@@^@@@@ FD PIT )@@G@@RINT-FILE @A@@@@ LABEL RECORDS ARE OMITTED@A@@@@ LIU )@@G@@INAGE 66 TOP 0 BOTTOM 0 @B@@@@ DATA RECORD IS PRINT-LINE. IV )@@G@@@@@@@@@C@@@@ 01 PRINT-LINE PIC X(132). @@@@@@@@@@@@IW )@@G@@@ @@@@ FD MONTHLY-BY-ACCOUNT,@B@@@@ LABEL RECORDS ARE SIX )@@G@@TANDARD, @A@@@@ BLOCK CONTAINS 3 RECORDS,@A@@@@ DIY )@@G@@ATA RECORD IS ACCOUNT. @@@@@@@B@@@@ 01 ACCOUNT. COPY DLY-ACCT-MIZ )@@G@@ST. @@@@@@@@@@@@@A@@@@ FD SCS-BY-ACCOUNT-FILE, @B@@@@ JA )@@G@@ LABEL RECORDS ARE STANDARD, @B@@@@ BLOCK CONTAINS 119 JB )@@G@@RECORDS, @B@@@@ DATA RECORD IS SCS-RECORD. @@@@@@@B@@@@JC )@@G@@ 01 SCS-RECORD. COPY SCS-SUMM-REC. @@@@@@@@@@@@@ @@@@ FD OJD )@@G@@LD-Y-T-D-FILE, @B@@@@ LABEL RECORDS ARE STANDARD, @A@@@@JE )@@G@@ BLOCK CONTAINS 3 RECORDS,@C@@@@ RECORD CONTAINS 199JF )@@G@@2 CHARACTERS, @C@@@@ DATA RECORD IS OLD-ACCOUNT-YEARLY. JG )@@G@@@@@@@@@E@@@@ 01 OLD-ACCOUNT-YEARLY PIC X(1992) USAGE DISP-1. JH )@@G@@@@@@@@@@@@@@@ @@@@ FD NEW-Y-T-D-FILE, @B@@@@ LABEL RJI )@@G@@ECORDS ARE STANDARD, @A@@@@ BLOCK CONTAINS 3 RECORDS,@C@@@@JJ )@@G@@ DATA RECORD IS NEW-ACCOUNT-YEARLY. @@@@@@@ @@@@ 01 NJK )@@G@@EW-ACCOUNT-YEARLY.@E@@@@ 05 INITIAL-ACCT-INFO USAGEJL )@@G@@ DISP-1. @C@@@@ 10 FILLER PIC X(4). @B@@@@JM )@@G@@ 10 ACCOUNT-TYPE PIC X. @D@@@@ 88 DJN )@@G@@EVELOPMENTAL VALUE 'T'. @C@@@@ 10 FILLER PJO )@@G@@IC X(9). @B@@@@ 10 MONTH-OF-YEARLY PIC 99.@B@@@@ JP )@@G@@ 10 ACCT-DAY-CODE PIC 99.@D@@@@ 88 WEEKDAYJQ )@@G@@ VALUE 32. @D@@@@ 88 WEEKEND JR )@@G@@ VALUE 33. @C@@@@ 10 FILLER PIC X(6). @C@@@@JS )@@G@@ 05 START-FILLER USAGE IS COMP-4. @E@@@@ 10 JT )@@G@@ FILLER PIC 9(10) OCCURS 16 TIMES. @C@@@@ 10 SHIFTJU )@@G@@-INFO OCCURS 3 TIMES. @E@@@@ 15 FILLER PIC 9(10) OJV )@@G@@CCURS 4 TIMES. @D@@@@ 15 BATCH-RUNS PIC 9JW )@@G@@(10). @E@@@@ 15 FILLER PIC 9(10) OCCURS 6 TIMES. JX )@@G@@@D@@@@ 15 FILLER PIC 9. @D@@@@ JY )@@G@@ 15 BATCH-SUPS PIC 9(18). @G@@@@ JZ )@@G@@ 15 FILLER PIC 9(10) OCCURS 18 TIMES. @D@@@@ KA )@@G@@ 15 DEMAND-RUNS PIC 9(10). @D@@@@ 15 FKB )@@G@@ILLER PIC 9(10). @D@@@@ 15 FILLER KC )@@G@@ PIC 9. @D@@@@ 15 DEMAND-SUPS PIC 9KD )@@G@@(18). @G@@@@ 15 FILLER PIC 9(10) OCCURS KE )@@G@@18 TIMES. @D@@@@ 15 RT-BATCH-RUNS PIC 9(10). KF )@@G@@@G@@@@ 15 FILLER PIC 9(10) OCCURS 4 TIMKG )@@G@@ES. @D@@@@ 15 FILLER PIC 9. @D@@@@KH )@@G@@ 15 RT-BATCH-SUPS PIC 9(18). @G@@@@ KI )@@G@@ 15 FILLER PIC 9(10) OCCURS 20 TIMES. @D@@@@ KJ )@@G@@ 15 RT-DEMAND-RUNS PIC 9(10). @D@@@@ KK )@@G@@ 15 FILLER PIC 9(10). @D@@@@ 15 FILLER KL )@@G@@ PIC 9. @D@@@@ 15 RT-DEMAND-SUPS KM )@@G@@ PIC 9(18). @G@@@@ 15 FILLER PIC 9(10) OKN )@@G@@CCURS 20 TIMES. @@@@@@@@@@@@@A@@@@ FD COST-BY-ACCOUNT-FILE, KO )@@G@@@B@@@@ LABEL RECORDS ARE STANDARD, @B@@@@ BLOCK CKP )@@G@@ONTAINS 13 RECORDS, @B@@@@ RECORD CONTAINS 236 CHARACTERS,KQ )@@G@@@F@@@@ DATA RECORD ARE BY-ACCOUNT-RECORD, BY-ACCOUNT-CLEAR. KR )@@G@@@@@@@@@ @@@@ 01 BY-ACCOUNT-RECORD. @ @@@@ 05 BUDGET-NUMKS )@@G@@. @C@@@@ 10 DEPUTY-NUMBER PIC X . @C@@@@ KT )@@G@@ 10 BUREAU-NUMBER PIC X . @C@@@@ 10 FILLERKU )@@G@@ PIC XXX . @A@@@@ 10 ACCOUNT-CODE. @C@@@@KV )@@G@@ 15 ACCT-CODE-3 PIC XXX. @C@@@@ KW )@@G@@ 15 ACCT-CODE-L PIC X(9). @^@@@@ 05 PERIOD. @B@@@@ KX )@@G@@ 10 PERIOD-YEAR PIC XX.@B@@@@ 10 PERIOD-MONTKY )@@G@@H PIC XX.@C@@@@ 05 FILLER PIC XXX. @D@@@@KZ )@@G@@ 05 NUMERIC-FIELDS USAGE IS COMPUTATIONAL. @C@@@@ LA )@@G@@ 10 NUM-OF-RUNS PIC 9(10). @D@@@@ 10 COMPUTER-PRLB )@@G@@OCESSING OCCURS 3 TIMES.@D@@@@ 15 COMP-HOURS PICLC )@@G@@ 9(5)V9(4). @C@@@@ 15 COMP-COST PIC 9(7)V99. @A@@@@LD )@@G@@ 10 RELATED-COSTS. @D@@@@ 15 CARDS-ILE )@@G@@N-REL PIC 9(10). @D@@@@ 15 CARDS-IN-COST PICLF )@@G@@ 9(7)V99. @D@@@@ 15 CARDS-OUT-REL PIC 9(10). LG )@@G@@@D@@@@ 15 CARDS-OUT-COST PIC 9(7)V99. @D@@@@ LH )@@G@@ 15 PAGES-PRINTED PIC 9(10). @D@@@@ LI )@@G@@ 15 PAGES-COST PIC 9(7)V99. @D@@@@ 15 FORMS-MLJ )@@G@@OUNTED PIC 9(10). @D@@@@ 15 FORMS-MT-COST PICLK )@@G@@ 9(7)V99. @D@@@@ 15 REELS-MOUNT PIC 9(10). LL )@@G@@@D@@@@ 15 REELS-MT-COST PIC 9(7)V99. @C@@@@ LM )@@G@@ 15 FILLER PIC 9. @D@@@@ 15 TLN )@@G@@APE-DATA-TRANS PIC 9(18). @D@@@@ 15 DATA-TRAN-COSLO )@@G@@T PIC 9(7)V99. @D@@@@ 15 REELS-IN-LIBR PIC 9(10)LP )@@G@@. @D@@@@ 15 REELS-LIBR-COST PIC 9(7)V99. @D@@@@LQ )@@G@@ 15 PACKS-MOUNTED PIC 9(10). @D@@@@ LR )@@G@@ 15 PACK-MT-COST PIC 9(7)V99. @C@@@@ 15 FLS )@@G@@ILLER PIC 9. @D@@@@ 15 CAT-DISC-TRACKS PICLT )@@G@@ 9(18). @D@@@@ 15 CAT-TRACKS-COST PIC 9(7)V99. LU )@@G@@@C@@@@ 15 FILLER PIC 9. @D@@@@ LV )@@G@@ 15 MS-DATA-TRANS PIC 9(18). @E@@@@ 15 MLW )@@G@@S-DATA-TRANS-COST PIC 9(7)V99. @D@@@@ 15 PACK-DULX )@@G@@R PIC 9(10). @D@@@@ 15 PACK-DUR-COST PICLY )@@G@@ 9(7)V99. @A@@@@ 10 DATA-ENTRY-COSTS.@D@@@@ LZ )@@G@@ 15 DE-REC-ENTERED PIC 9(10). @D@@@@ 15 DMA )@@G@@E-REC-VERIFIED PIC 9(10). @D@@@@ 15 DE-KEY-ENTEREMB )@@G@@D PIC 9(10). @D@@@@ 15 DE-KEY-VERIFIED PIC 9(10)MC )@@G@@. @D@@@@ 15 DE-HOUR-ENTER PIC 9(7)V9. @D@@@@MD )@@G@@ 15 DE-ENTER-COST PIC 9(7)V99. @D@@@@ ME )@@G@@ 15 DE-HOUR-VERIFY PIC 9(7)V9. @D@@@@ 15 DMF )@@G@@E-VERIFY-COST PIC 9(7)V99. @B@@@@ 10 ANALYSIS-PROGRAMMMG )@@G@@ING. @D@@@@ 15 AP-HOURS PIC 9(7)V9. @D@@@@MH )@@G@@ 15 AP-COST PIC 9(7)V99. @A@@@@ MI )@@G@@ 10 RELATED-COST-2. @D@@@@ 15 DATA-COM-SOFT PICMJ )@@G@@ 9(7)V99. @D@@@@ 15 DATA-COM-HARD PIC 9(7)V99. MK )@@G@@@D@@@@ 10 OTHER-COST PIC 9(7)V99. @A@@@@ ML )@@G@@ 10 OVERHEAD-PERCENT.@D@@@@ 15 COMPUTER-OV MM )@@G@@ PIC 9(5)V999. @D@@@@ 15 DATA-ENTRY-OV PIC 9(5)VMN )@@G@@999. @D@@@@ 15 ANAL-PROG-OV PIC 9(5)V999. @B@@@@MO )@@G@@ 10 EMPLOYEE-BENEFITS-PCT. @D@@@@ 15 CMP )@@G@@OMPUTER-EMP PIC 9(5)V999. @D@@@@ 15 DATA-ENTRY-EMMQ )@@G@@P PIC 9(5)V999. @D@@@@ 15 ANAL-PROG-EMP PIC 9(5)VMR )@@G@@999. @D@@@@ 10 BUDGETED-AMOUNT PIC 9(7)V99. @D@@@@MS )@@G@@ 10 NUM-COM-TRANS PIC 9(10). @@@@@@@ @@@@ MT )@@G@@ 01 BY-ACCOUNT-CLEAR. @A@@@@ 05 FILLER PIC X(24). @A@@@@MU )@@G@@ 05 NUM USAGE COMP. @G@@@@ 10 NUMERIC-FIEMV )@@G@@LDS-CLEAR OCCURS 53 TIMES PIC 9(10). @@@@@@@@@@@@@^@@@@ FD IMW )@@G@@NFOREX-FILE,@B@@@@ LABEL RECORDS ARE STANDARD, @A@@@@ MX )@@G@@ BLOCK CONTAINS 8 RECORDS,@B@@@@ DATA RECORD IS INFOREX-CAMY )@@G@@RD. @@@@@@@B@@@@ 01 INFOREX-CARD. COPY DE-REC. @@@@@@@@@@@@MZ )@@G@@@^@@@@ FD KEYPUNCH-FILE@A@@@@ LABEL RECORDS ARE OMITTEDNA )@@G@@@B@@@@ RECORD CONTAINS 80 CHARACTERS @B@@@@ DATA RENB )@@G@@CORD IS KEYPUNCH-RECORD.@D@@@@ 01 KEYPUNCH-RECORD NC )@@G@@ PIC X(80).@]@@@@ / @A@@@@ WORKING-STORAGE SECTION. ND )@@G@@@@@@@@@@@@@@@D@@@@ 77 PRINT-MONTH PIC 9(10) COMP.NE )@@G@@@D@@@@ 77 PROD-TEST PIC 9(10) COMP.@D@@@@ NF )@@G@@ 77 SHIFT PIC 9(10) COMP.@D@@@@ 77 INFOREXNG )@@G@@-TIME PIC 9(5)V999. @C@@@@ 77 CALC-YEAR-TMP NH )@@G@@ PIC 99. @D@@@@ 77 MONTH PIC 9(10)NI )@@G@@ COMP.@D@@@@ 77 TEMP-CALC PIC 9(7)V9(5). @D@@@@NJ )@@G@@ 77 REC-ENTERED PIC 9(10). @E@@@@ 77 TNK )@@G@@OTAL-TIME-TO-PUNCH PIC 9(7)V9 VALUE 0. @D@@@@ 77 TIME-RANL )@@G@@TIO PIC 9(5)V9(5). @C@@@@ 77 TIME-OFF NM )@@G@@ PIC 9V9. @E@@@@ 77 KP-HOUR-ENTER PIC 9(7)VNN )@@G@@9 VALUE 0. @E@@@@ 77 KP-HOUR-VERIFY PIC 9(7)V9 VALUNO )@@G@@E 0. @E@@@@ 77 KP-REC-ENTERED PIC 9(10) VALUE 0. NP )@@G@@@E@@@@ 77 KP-REC-VERIFIED PIC 9(10) VALUE 0. @F@@@@NQ )@@G@@ 77 ACT-DE-MIN-ENT PIC 9(10)V999 VALUE 0. @F@@@@NR )@@G@@ 77 ACT-DE-MIN-VER PIC 9(10)V999 VALUE 0. @D@@@@NS )@@G@@ 77 TEMP-DE-HOUR-ENTER PIC 9(7)V9. @D@@@@ 77 TNT )@@G@@EMP-DE-HOUR-VERIFY PIC 9(7)V9. @D@@@@ 77 HOLD-ACCT VALNU )@@G@@UE SPACE PIC X(12). @@@@@@@@@@@@@^@@@@ 01 DE-JOBACNT. NV )@@G@@@E@@@@ 05 DE-ACT-NO PIC XXX. @E@@@@NW )@@G@@ 05 DE-ACT-RMDR PIC X(9). @E@@@@ NX )@@G@@ 01 JOB-ACCOUNT-NUM PIC X(12). @^@@@@ 01 ANY )@@G@@CCOUNT-NUM. @E@@@@ 05 ACCT-NUM PIC XXXNZ )@@G@@. @E@@@@ 05 ACCT-TYPE PIC X(9). OA )@@G@@@@@@@@@ @@@@ 01 KEYPUNCH-CARD. @B@@@@ 05 PUNCH-VEROB )@@G@@IFY PIC X. @E@@@@ 88 KP-TIME VALUOC )@@G@@E IS ' '. @E@@@@ 88 KEYPUNCH VALUE IS '0OD )@@G@@'. @E@@@@ 88 VERIFY VALUE IS '1'. OE )@@G@@@C@@@@ 05 FILLER PIC X(4). @C@@@@ 0OF )@@G@@5 FILLER PIC X(6). @C@@@@ 05 KP-ACNT-NUMBER OG )@@G@@ PIC XXX. @C@@@@ 05 TIME-TO-PUNCH PIC 99V9. OH )@@G@@@C@@@@ 05 FILLER PIC X(7). @C@@@@ 0OI )@@G@@5 NUM-RECORDS-PUNCHED PIC 9(6). @C@@@@ 05 FILLER OJ )@@G@@ PIC X(50). @@@@@@@D@@@@ 01 CALCULATIONS-FOR-2ND-PRINT USAOK )@@G@@GE COMP-4. @D@@@@ 05 PROD-RUNS-CALC PIC 9(10). OL )@@G@@@D@@@@ 05 TEST-RUNS-CALC PIC 9(10). @D@@@@ OM )@@G@@ 05 PROD-SUP-HOURS-CALC PIC 9(6)V9(4). @D@@@@ 05 TESON )@@G@@T-SUP-HOURS-CALC PIC 9(6)V9(4). @^@@@@ 01 LOW-ACCOUNT. @C@@@@OO )@@G@@ 05 LOW-NUM PIC XXX.@D@@@@ 05 LOWOP )@@G@@-TYPE PIC X(9). @@@@@@@@@@@@@^@@@@ COPY DEPT-HOQ )@@G@@EADER.@@@@@@@^@@@@ 01 HEADER-3. @E@@@@ 05 FILLER OR )@@G@@ PIC X(53) VALUE IS SPACES. @B@@@@ 05 FILLER OS )@@G@@ PIC X(79) @E@@@@ VALUE IS 'COMPUTER UTILIZATION RECAOT )@@G@@P'. @@@@@@@^@@@@ 01 HEADER-4. @E@@@@ 05 FILLER OU )@@G@@ PIC X(58) VALUE IS SPACES. @E@@@@ 05 FILLER OV )@@G@@ PIC X(4) VALUE IS 'SEP '. @B@@@@ 05 HEADING-YEAR-1 PIC XOW )@@G@@X. @E@@@@ 05 FILLER PIC XXX VALUE IS ' - '. OX )@@G@@@B@@@@ 05 HEADING-MONTH-2 PIC XXXX. @B@@@@ 05 HEAOY )@@G@@DING-YEAR-2 PIC XX. @E@@@@ 05 FILLER PIC X(53) OZ )@@G@@ VALUE IS SPACES. @@@@@@@@@@@@@ @@@@ 01 DETAIL-HEAD-MONTHS.@E@@@@PA )@@G@@ 05 FILLER PIC X(4) VALUE IS SPACES. @G@@@@ PB )@@G@@ 05 FILLER PIC X(26) VALUE IS '----DESCRIPTION----'.@E@@@@PC )@@G@@ 05 FILLER PIC X(9) VALUE IS 'SEP'. @E@@@@ PD )@@G@@ 05 FILLER PIC X(9) VALUE IS 'OCT'. @E@@@@ 0PE )@@G@@5 FILLER PIC X(9) VALUE IS 'NOV'. @E@@@@ 05 FILPF )@@G@@LER PIC X(9) VALUE IS 'DEC'. @E@@@@ 05 FILLER PG )@@G@@ PIC X(9) VALUE IS 'JAN'. @E@@@@ 05 FILLER PH )@@G@@ PIC X(9) VALUE IS 'FEB'. @E@@@@ 05 FILLER PIC XPI )@@G@@(9) VALUE IS 'MAR'. @E@@@@ 05 FILLER PIC X(9) PJ )@@G@@ VALUE IS 'APR'. @E@@@@ 05 FILLER PIC X(9) VALUEPK )@@G@@ IS 'MAY'. @E@@@@ 05 FILLER PIC X(9) VALUE IS 'JPL )@@G@@UN'. @E@@@@ 05 FILLER PIC X(9) VALUE IS 'JUL'. PM )@@G@@@E@@@@ 05 FILLER PIC X(9) VALUE IS 'AUG'. @@@@@@PN )@@G@@@ @@@@ 01 DETAIL-HEAD-RUN-1. @E@@@@ 05 FILLER PO )@@G@@ PIC X(10) VALUE IS SPACES. @B@@@@ 05 FILLER PIC XPP )@@G@@(63) @G@@@@ VALUE IS '----------------------COMPUTER RUNSPQ )@@G@@------------@B@@@@ - '-----------'. @G@@@@ PR )@@G@@ 05 FILLER PIC X(59) VALUE '----------------------C@D@@@@PS )@@G@@ - 'OMPUTER HOURS----------------------'. @@@@@@@ @@@@ PT )@@G@@ 01 DETAIL-HEAD-RUN-2. @E@@@@ 05 FILLER PIC X(10) PU )@@G@@ VALUE IS SPACES. @B@@@@ 05 FILLER PIC X(122) @G@@@@PV )@@G@@ VALUE IS 'TOTAL ---BATCH--- --DEMAND-- ---PROD--- PW )@@G@@@G@@@@ - ' ---TEST--- TOTAL ---BATCH--- -PX )@@G@@-DEMAN@E@@@@ - 'D-- ---PROD--- ---TEST--- '. PY )@@G@@@@@@@@@ @@@@ 01 DETAIL-HEAD-RUN-3. @G@@@@ 05 FILLER PZ )@@G@@ PIC X(132) VALUE IS ' MONTH RUNS R@G@@@@ - 'UNQA )@@G@@S PCT RUNS PCT RUNS PCT RUNS PCT HO@G@@@@ - QB )@@G@@ 'URS HOURS PCT HOURS PCT HOURS PCT HOURS PCT@^@@@@ QC )@@G@@- ' '. @@@@@@@B@@@@ 01 DETAIL-PAGE-1-LINE-HEADING. QD )@@G@@@F@@@@ 05 BATCH-T PIC X(5) VALUE 'BATCH'. QE )@@G@@@F@@@@ 05 TOTAL-T VALUE 'TOTAL COMPUTER RUNS' PIC X(19). QF )@@G@@@F@@@@ 05 DEMAND-T PIC X(6) VALUE 'DEMAND'.QG )@@G@@@G@@@@ 05 PROD-T PIC X(10) VALUE 'PRODUCTIQH )@@G@@ON'. @F@@@@ 05 TEST-T PIC X(4) VALUE 'TEQI )@@G@@ST'. @F@@@@ 05 SUP-TOT-T VALUE 'TOTAL SUP HOURS' PIC X(15)QJ )@@G@@. @ @@@@ 05 SHIFT-LABELS. @G@@@@ 10 FILLEQK )@@G@@R PIC X(9) VALUE '0000-0800'. @G@@@@ 10 QL )@@G@@ FILLER PIC X(9) VALUE '0800-1700'. @G@@@@ QM )@@G@@ 10 FILLER PIC X(9) VALUE '1700-2400'. @G@@@@ QN )@@G@@ 10 FILLER PIC X(9) VALUE 'WEEKEND '. @D@@@@QO )@@G@@ 05 SHIFT-TIME REDEFINES SHIFT-LABELS. @F@@@@ QP )@@G@@ 10 TIME-OF-SHIFT PIC X(9) OCCURS 4 TIMES.@@@@@@@@@@@@@ @@@@QQ )@@G@@ 01 DETAIL-PAGE-1. @C@@@@ 05 FILLER QR )@@G@@ PIC XXXX.@D@@@@ 05 TOTAL-LINE-TITLE PIC X(20). QS )@@G@@@D@@@@ 05 TITLE-2 REDEFINES TOTAL-LINE-TITLE. @C@@@@ QT )@@G@@ 10 FILLER PIC XX. @D@@@@ 10 BATCHQU )@@G@@-TITLE PIC X(18). @D@@@@ 05 TITLE-3 REDEFINES TOTQV )@@G@@AL-LINE-TITLE. @C@@@@ 10 FILLER PIC XXXX.QW )@@G@@@D@@@@ 10 DETAIL-TITLE PIC X(16). @D@@@@ QX )@@G@@ 05 TITLE-4 REDEFINES TOTAL-LINE-TITLE. @C@@@@ 10 QY )@@G@@ FILLER PIC X(6).@D@@@@ 10 HOURS-TITLE QZ )@@G@@ PIC X(14). @A@@@@ 05 MONTHLY-DETAIL-PRINT.@D@@@@ RA )@@G@@ 10 MONTHLY-DETAIL OCCURS 12 TIMES. @D@@@@ RB )@@G@@ 15 FILLER PIC X(3). @D@@@@ 15 MONTHLYRC )@@G@@-RUNS-PRINT PIC ZZ,ZZZ.@F@@@@ 05 MONTHLY-DETAIL-2 REDEFINES RD )@@G@@MONTHLY-DETAIL-PRINT. @D@@@@ 10 MONTHLY-DETAIL-H OCCURSRE )@@G@@ 12 TIMES. @D@@@@ 15 FILLER PIC XX. RF )@@G@@@E@@@@ 15 MONTHLY-HOURS-PRINT PIC Z,ZZZ.Z. @@@@@@RG )@@G@@@ @@@@ 01 DETAIL-2ND-PAGE. @C@@@@ 05 MONTH-PRINT RH )@@G@@ PIC X(4). @B@@@@ 05 FILLER VALUE '19' PIC XX.@B@@@@RI )@@G@@ 05 YEAR-PRINT PIC 99.@B@@@@ 05 FILLER VARJ )@@G@@LUE SPACES PIC X. @C@@@@ 05 TOT-RUN-PRINT PIC ZZ,ZZZ. RK )@@G@@@B@@@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 BATRL )@@G@@CH-RUN-PRINT PIC ZZ,ZZZ. @C@@@@ 05 FILLER VALUE SPACES PRM )@@G@@IC XXX. @C@@@@ 05 BATCH-PCT-PRINT PIC ZZ.Z. @B@@@@RN )@@G@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 DEMAND-RURO )@@G@@N-PRINT PIC ZZ,ZZZ. @B@@@@ 05 FILLER VALUE SPACES PIC X. RP )@@G@@@C@@@@ 05 DEMAND-PCT-PRINT PIC ZZZ.Z. @B@@@@ 0RQ )@@G@@5 FILLER VALUE SPACES PIC X. @C@@@@ 05 PROD-RUN-PRINT PRR )@@G@@IC ZZ,ZZZ. @B@@@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ RS )@@G@@ 05 PROD-PCT-PRINT PIC ZZZ.Z. @B@@@@ 05 FILLER VART )@@G@@LUE SPACES PIC X. @C@@@@ 05 TEST-RUN-PRINT PIC ZZ,ZZZ. RU )@@G@@@B@@@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 TESRV )@@G@@T-PCT-PRINT PIC ZZZ.Z. @C@@@@ 05 FILLER VALUE SPACES PRW )@@G@@IC X(3). @C@@@@ 05 TOT-HOURS-PRINT PIC Z,ZZZ.Z. @B@@@@RX )@@G@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 B-HOURS-PRY )@@G@@RINT PIC Z,ZZZ.Z. @B@@@@ 05 FILLER VALUE SPACES PIC XX.RZ )@@G@@@C@@@@ 05 B-HOURS-PCT-PRINT PIC ZZ.Z. @B@@@@ 0SA )@@G@@5 FILLER VALUE SPACES PIC X. @C@@@@ 05 D-HOURS-PRINT PSB )@@G@@IC Z,ZZZ.Z. @B@@@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ SC )@@G@@ 05 D-HOURS-PCT-PRINT PIC ZZ.Z. @B@@@@ 05 FILLER VASD )@@G@@LUE SPACES PIC X. @C@@@@ 05 P-HOURS-PRINT PIC Z,ZZZ.Z. SE )@@G@@@B@@@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 P-HSF )@@G@@OURS-PCT-PRINT PIC ZZ.Z. @B@@@@ 05 FILLER VALUE SPACES PSG )@@G@@IC X. @C@@@@ 05 T-HOURS-PRINT PIC Z,ZZZ.Z. @B@@@@ SH )@@G@@ 05 FILLER VALUE SPACES PIC X. @C@@@@ 05 T-HOURS-PCT-PRISI )@@G@@NT PIC ZZ.Z. @B@@@@ 05 FILLER VALUE SPACES PIC X. @@@@@@SJ )@@G@@@@@@@@@ @@@@ 01 UTILIZATION-MATRIX.@F@@@@ 05 MONTH-OF-SK )@@G@@YEAR OCCURS 12 TIMES USAGE IS COMP-4. @D@@@@ 10 PRODUSL )@@G@@CTION-TEST OCCURS 2 TIMES. @C@@@@ 15 SHIFTS OCCURSSM )@@G@@ 4 TIMES. @F@@@@ 20 BATCH-RUNS-TOTAL PICSN )@@G@@ 9(10) . @F@@@@ 20 DEMAND-RUNS-TOTAL PICSO )@@G@@ 9(10) . @F@@@@ 20 BATCH-SUP-HOURS-TOTAL PICSP )@@G@@ 9(6)V9(4). @F@@@@ 20 DEMAND-SUP-HOURS-TOTAL PICSQ )@@G@@ 9(6)V9(4). @E@@@@ 20 FILLER PICSR )@@G@@ 9. @F@@@@ 20 BATCH-SUP-CALC-TOTAL PIC 9(18)SS )@@G@@. @E@@@@ 20 FILLER PIC 9. ST )@@G@@@F@@@@ 20 DEMAND-SUP-CALC-TOTAL PIC 9(18). SU )@@G@@@B@@@@ 10 TOTAL-COMPUTER-RUNS. @D@@@@ SV )@@G@@ 15 TOTAL-RUNS PIC 9(10). @E@@@@ 15 TOTAL-BSW )@@G@@ATCH-RUNS PIC 9(10). @E@@@@ 15 TOTAL-DEMAND-SX )@@G@@RUNS PIC 9(10). @A@@@@ 10 TOTAL-SUPS-HOURS.@E@@@@SY )@@G@@ 15 TOTAL-SUP-HOURS PIC 9(6)V9(4). @E@@@@ SZ )@@G@@ 15 BATCH-SUP-HOURS PIC 9(6)V9(4). @E@@@@ TA )@@G@@ 15 DEMAND-SUP-HOURS PIC 9(6)V9(4). @C@@@@ TB )@@G@@ 15 FILLER PIC 9. @D@@@@ 15 TOTAL-SUP-CALTC )@@G@@C PIC 9(18). @C@@@@ 15 FILLER PIC 9. TD )@@G@@@D@@@@ 15 BATCH-SUP-CALC PIC 9(18). @C@@@@ TE )@@G@@ 15 FILLER PIC 9. @D@@@@ 15 DTF )@@G@@EMAND-SUP-CALC PIC 9(18). @@@@@@@@@@@@@^@@@@ 01 SCS-SUMM-KEY.TG )@@G@@@F@@@@ 88 COUNT-REC VALUE '0000'. TH )@@G@@@C@@@@ 02 SCS-ACCT-NUM PIC XXX. @C@@@@ 0TI )@@G@@2 SCS-ACCT-CLASS PIC X. @@@@@@@A@@@@ 01 SUPS-1 USAGE TJ )@@G@@COMP-4. @B@@@@ 05 SUPS-2 OCCURS 3 TIMES. @B@@@@ TK )@@G@@ 10 FILLER PIC 9. @C@@@@ 10 SUPS-SUM TL )@@G@@ PIC 9(18). @A@@@@ 01 SUP-HR-1 USAGE COMP-4. @E@@@@ TM )@@G@@ 05 SUP-HR-TMP OCCURS 3 TIMES PIC 9(5)V9(4). @@@@@@@@@@@@@B@@@@TN )@@G@@ 01 TWELVE-MONTHS-OF-THE-YEAR. @C@@@@ 05 FILLER TO )@@G@@ PIC XXX VALUE 'JAN'. @C@@@@ 05 FILLER PIC XXX VALUE 'FETP )@@G@@B'. @C@@@@ 05 FILLER PIC XXX VALUE 'MAR'. @C@@@@ TQ )@@G@@ 05 FILLER PIC XXX VALUE 'APR'. @C@@@@ 05 FILLER TR )@@G@@ PIC XXX VALUE 'MAY'. @C@@@@ 05 FILLER PIC XXX VALUE 'JUTS )@@G@@N'. @C@@@@ 05 FILLER PIC XXX VALUE 'JUL'. @C@@@@ TT )@@G@@ 05 FILLER PIC XXX VALUE 'AUG'. @C@@@@ 05 FILLER TU )@@G@@ PIC XXX VALUE 'SEP'. @C@@@@ 05 FILLER PIC XXX VALUE 'OCTV )@@G@@T'. @C@@@@ 05 FILLER PIC XXX VALUE 'NOV'. @C@@@@ TW )@@G@@ 05 FILLER PIC XXX VALUE 'DEC'. @@@@@@@@@@@@@E@@@@ 01 MTX )@@G@@ONTHS-01 REDEFINES TWELVE-MONTHS-OF-THE-YEAR . @D@@@@ 05 MONTY )@@G@@THS-12 OCCURS 12 TIMES PIC XXX. @E@@@@ 01 END-OF-FILE-YEAR-SWTZ )@@G@@ PIC XXX VALUE 'NO'. @E@@@@ 88 END-OF-FILE-YEAR UA )@@G@@ VALUE 'YES'. @D@@@@ 01 END-OF-FILES-SW PIC 9 UB )@@G@@ VALUE 0. @D@@@@ 88 END-OF-FILES VALUE 4. UC )@@G@@@E@@@@ 01 NEXT-ACCOUNT-SW PIC XXX VALUE IS 'NO'. @E@@@@UD )@@G@@ 88 NEXT-ACCOUNT VALUE IS 'YES'. @@@@@@@D@@@@UE )@@G@@ 01 CLEAR-SUB PIC 9(10) COMP. @@@@@@@@@@@@@F@@@@UF )@@G@@ 01 WREC-NEW-YEARLY PIC 9(10) COMP VALUE 0. @F@@@@UG )@@G@@ 01 WREC-COST-SUM PIC 9(10) COMP VALUE 0. @F@@@@UH )@@G@@ 01 RREC-Y-T-D-OLD PIC 9(10) COMP VALUE 0. @F@@@@UI )@@G@@ 01 RREC-SCS PIC 9(10) COMP VALUE 0. @F@@@@UJ )@@G@@ 01 RREC-INFOREX PIC 9(10) COMP VALUE 0. @F@@@@UK )@@G@@ 01 RREC-KEYPUNCH PIC 9(10) COMP VALUE 0. @F@@@@UL )@@G@@ 01 RREC-MTH-ACCT-LOG PIC 9(10) COMP VALUE 0. @@@@@@UM )@@G@@@D@@@@ 01 EXT-SCS VALUE 'SCS-SUMMARY ' PIC X(12). @F@@@@ UN )@@G@@ 01 EXT-Y-T-D-OLD VALUE 'OLD-YTD-ACNT' PIC X(12). @E@@@@ UO )@@G@@ 01 EXT-INFOREX VALUE 'DE-FILE' PIC X(12). @E@@@@ 01 EUP )@@G@@XT-KEYPUNCH VALUE 'KP-CARDS' PIC X(12). @F@@@@ 01 EXT-MTHUQ )@@G@@-ACCT VALUE 'MTH-ACNT-SUM' PIC X(12). @F@@@@ 01 EXT-YTDUR )@@G@@-MTH-ACCT VALUE 'NEW-YTD-ACNT' PIC X(12). @F@@@@ 01 EXT-COSUS )@@G@@T-SUM VALUE 'MTH-COST-SUM' PIC X(12). @@@@@@@D@@@@ 01 DUT )@@G@@ATE-AREA USAGE DISP-1 PIC X(6). @D@@@@ 01 INDICATOR VAUU )@@G@@LUE 1 USAGE DISP-1 PIC 9. @D@@@@ 01 DATE-RESULT USAGEUV )@@G@@ DISP-1 PIC X(8). @D@@@@ 01 POINT-05 VALUE .05 PIC UW )@@G@@9V99. @]@@@@ / @ @@@@ PROCEDURE DIVISION. @@@@@@@@@@@@UX )@@G@@@^@@@@ 000-CONTROL. @C@@@@ PERFORM 110-READ-COST-BY-UY )@@G@@CATAGORY. @A@@@@ PERFORM 120-HOUSEKEEPING.@C@@@@ PUZ )@@G@@ERFORM 130-PROCESS-Y-T-D-ACCT-LOG @B@@@@ UNTIL END-OF-FIVA )@@G@@LE-YEAR. @C@@@@ PERFORM 140-PROCESS-COST-SUM-BY-ACCT @A@@@@VB )@@G@@ UNTIL END-OF-FILES. @C@@@@ PERFORM 150-PRINT-UVC )@@G@@TILIZATION-RECAP. @A@@@@ PERFORM 190-CLOSING. @^@@@@ VD )@@G@@ STOP RUN. @@@@@@@@@@@@@@@@@@@A@@@@ 110-READ-COST-BY-CATAGOVE )@@G@@RY. @C@@@@ OPEN INPUT COST-BY-CATAGORY-FILE. @B@@@@ VF )@@G@@ READ COST-BY-CATAGORY-FILE @D@@@@ AT END DISPLAYVG )@@G@@ 'NO CATAGORY FILE' @C@@@@ UPON PRINT-DEVIVH )@@G@@CE @B@@@@ ENTER FD 'ABORT'. @@@@@@@^@@@@ VI )@@G@@ 120-HOUSEKEEPING.@B@@@@ OPEN INPUT MONTHLY-BY-ACCOUNT @B@@@@VJ )@@G@@ SCS-BY-ACCOUNT-FILE@B@@@@ OVK )@@G@@LD-Y-T-D-FILE @A@@@@ INFOREX-FILE @A@@@@ VL )@@G@@ KEYPUNCH-FILE@C@@@@ OUTPUT COST-BY-ACCOUVM )@@G@@NT-FILE @B@@@@ NEW-Y-T-D-FILE @A@@@@ VN )@@G@@ PRINT-FILE. @B@@@@ MOVE ZEROES TO SCS-SUMM-KVO )@@G@@EY @ @@@@ SUPS-SUM (1) @ @@@@ SUPS-SUM VP )@@G@@(2) @ @@@@ SUPS-SUM (3). @C@@@@ ENTER FD 'GETVQ )@@G@@DATE' USING DATE-AREA. @G@@@@ ENTER FD 'DATEDIT' USING DATE-AVR )@@G@@REA DATE-RESULT INDICATOR. @B@@@@ MOVE DATE-RESULT TO DEPT-VS )@@G@@DATE. @E@@@@ * READING INITIAL RECORDS-THROWING OUT VOLUME RECORDSVT )@@G@@@C@@@@ PERFORM 300-READ-Y-T-D-BY-ACCOUNT. @B@@@@ PVU )@@G@@ERFORM 330-READ-SCS 2 TIMES. @A@@@@ PERFORM 330-READ-SCS VV )@@G@@@D@@@@ UNTIL NOT INACTIVE-SUMMARY-RECORD. @A@@@@ VW )@@G@@ PERFORM 340-READ-INFOREX.@B@@@@ PERFORM 360-READ-MTH-ACCTVX )@@G@@-LOG. @C@@@@ PERFORM 290-ZERO-SUMMARY-ACCOUNT @G@@@@ VY )@@G@@ VARYING CLEAR-SUB FROM 1 BY 1 UNTIL CLEAR-SUB GREATER 53.@B@@@@VZ )@@G@@ PERFORM 350-READ-KEYPUNCH. @C@@@@ IF JOB-ACCOUNWA )@@G@@T-NUM EQUALS HIGH-VALUES@ @@@@ NEXT SENTENCE @#@@@@ WB )@@G@@ ELSE @D@@@@ MOVE KP-ACNT-NUMBER TO JOB-ACCOUNT-NUM.WC )@@G@@@C@@@@ MOVE AC-ACCOUNT-NUM TO ACCT-NUM. @C@@@@ MWD )@@G@@OVE AC-ACCOUNT-TYPE TO ACCT-TYPE. @C@@@@ MOVE DE-ACNT-NO-FLDWE )@@G@@ TO DE-ACT-NO. @C@@@@ MOVE DE-ACNT-RMDR-FLD TO DE-ACT-RMDR.WF )@@G@@@@@@@@@A@@@@ 130-PROCESS-Y-T-D-ACCT-LOG. @C@@@@ PERFORMWG )@@G@@ 310-ACCUMULATE-UTIL-TOTALS. @B@@@@ PERFORM 320-WRITE-NEW-Y-TWH )@@G@@-D. @C@@@@ PERFORM 300-READ-Y-T-D-BY-ACCOUNT. @@@@@@@@@@@@WI )@@G@@@A@@@@ 140-PROCESS-COST-SUM-BY-ACCT.@C@@@@ PERFORM 200-DWJ )@@G@@ETERMINE-LOW-ACCOUNT. @A@@@@ PERFORM 230-PROCESS-SCS @F@@@@WK )@@G@@ UNTIL SCS-SUMM-KEY IS NOT EQUAL TO LOW-ACCOUNT.@B@@@@WL )@@G@@ PERFORM 240-PROCESS-INFOREX @F@@@@ UNTILWM )@@G@@ DE-JOBACNT IS NOT EQUAL TO LOW-ACCOUNT. @B@@@@ PERFORM 250-PWN )@@G@@ROCESS-KEYPUNCH @G@@@@ UNTIL JOB-ACCOUNT-NUM IS NOTWO )@@G@@ EQUAL TO LOW-ACCOUNT. @C@@@@ PERFORM 260-PROCESS-MONTHLY-ACCWP )@@G@@T-LOG @F@@@@ UNTIL ACCOUNT-NUM IS NOT EQUAL TO LOW-ACCWQ )@@G@@OUNT. @D@@@@ PERFORM 270-FINAL-SUMMARY-CALCULATIONS. @C@@@@WR )@@G@@ PERFORM 280-WRITE-SUMMARY-ACCOUNT. @C@@@@ PERFORMWS )@@G@@ 290-ZERO-SUMMARY-ACCOUNT @G@@@@ VARYING CLEAR-SUB FROWT )@@G@@M 1 BY 1 UNTIL CLEAR-SUB GREATER 53.@@@@@@@@@@@@@A@@@@ 150-PRINT-UWU )@@G@@TILIZATION-RECAP. @B@@@@ PERFORM 205-FINAL-CALCULATIONS @F@@@@WV )@@G@@ VARYING MONTH FROM 1 BY 1 UNTIL MONTH GREATER 12. @C@@@@WW )@@G@@ PERFORM 210-PRINT-HEADING-PAGE-1. @C@@@@ PERFORMWX )@@G@@ 215-PRINT-DETAILS-PAGE-1. @C@@@@ PERFORM 220-PRINT-HEADINGWY )@@G@@-PAGE-2. @B@@@@ IF PROCESSING-MM IS LESS THAN 9@C@@@@ WZ )@@G@@ PERFORM 225-PROCESS-DETAIL-PAGE-2@H@@@@ VARYIXA )@@G@@NG MONTH FROM 9 BY 1 UNTIL MONTH GREATER THAN 12. @C@@@@ XB )@@G@@ PERFORM 225-PROCESS-DETAIL-PAGE-2@G@@@@ VARYING MONXC )@@G@@TH FROM 1 BY 1 UNTIL MONTH GREATER THAN @B@@@@ XD )@@G@@ PROCESSING-MM @#@@@@ ELSE @C@@@@ PERFORM 2XE )@@G@@25-PROCESS-DETAIL-PAGE-2@G@@@@ VARYING MONTH FROM 9 BYXF )@@G@@ 1 UNTIL MONTH GREATER THAN @B@@@@ PROCESSINXG )@@G@@G-MM. @@@@@@@@@@@@@^@@@@ 190-CLOSING. @#@@@@ CLOSE XH )@@G@@@ @@@@ PRINT-FILE @E@@@@ DISPLAY 'PRXI )@@G@@INT-FILE' UPON PRINT-DEVICE. @#@@@@ CLOSE @A@@@@ XJ )@@G@@ COST-BY-CATAGORY-FILE@G@@@@ DISPLAY 'COST-BY-CATAGOXK )@@G@@RY-FILE' UPON PRINT-DEVICE. @E@@@@ CALL 'LOG-RCNT' USING EXTXL )@@G@@-INFOREX, RREC-INFOREX. @#@@@@ CLOSE @ @@@@ INFXM )@@G@@OREX-FILE @E@@@@ DISPLAY 'INFOREX-FILE' UPON PRINT-DXN )@@G@@EVICE @F@@@@ CALL 'LOG-RCNT' USING EXT-KEYPUNCH, RREC-KEYPUNCHXO )@@G@@. @#@@@@ CLOSE @ @@@@ KEYPUNCH-FILE. @F@@@@XP )@@G@@ DISPLAY 'KEYPUNCH-FILE' UPON PRINT-DEVICE. @F@@@@XQ )@@G@@ CALL 'LOG-RCNT' USING EXT-MTH-ACCT, RREC-MTH-ACCT-LOG. @#@@@@XR )@@G@@ CLOSE @A@@@@ MONTHLY-BY-ACCOUNT @F@@@@ XS )@@G@@ DISPLAY 'MONTHLY-BY-ACCOUNT' UPON PRINT-DEVICE @F@@@@ XT )@@G@@ CALL 'LOG-RCNT' USING EXT-Y-T-D-OLD, RREC-Y-T-D-OLD. @#@@@@ XU )@@G@@ CLOSE @ @@@@ OLD-Y-T-D-FILE @F@@@@ XV )@@G@@ DISPLAY 'OLD-Y-T-D-FILE' UPON PRINT-DEVICE. @G@@@@ CALL 'LXW )@@G@@OG-WCNT' USING EXT-YTD-MTH-ACCT, WREC-NEW-YEARLY. @#@@@@ CXX )@@G@@LOSE @ @@@@ NEW-Y-T-D-FILE @F@@@@ DISPLXY )@@G@@AY 'NEW-Y-T-D-FILE' UPON PRINT-DEVICE. @F@@@@ CALL 'LOG-WCNXZ )@@G@@T' USING EXT-COST-SUM, WREC-COST-SUM. @#@@@@ CLOSE @A@@@@YA )@@G@@ COST-BY-ACCOUNT-FILE @G@@@@ DISPLAY 'COYB )@@G@@ST-BY-ACCOUNT-FILE' UPON PRINT-DEVICE @D@@@@ CALL 'LOG-RCNYC )@@G@@T' USING EXT-SCS, RREC-SCS. @#@@@@ CLOSE @A@@@@ YD )@@G@@ SCS-BY-ACCOUNT-FILE @G@@@@ DISPLAY 'SCS-BY-ACCOUNTYE )@@G@@-FILE' UPON PRINT-DEVICE. @@@@@@@@@@@@@@@@@@@A@@@@ 200-DETERMIYF )@@G@@NE-LOW-ACCOUNT. @C@@@@ MOVE ACCOUNT-NUM TO LOW-ACCOUNT. YG )@@G@@@D@@@@ IF SCS-SUMM-KEY IS LESS THAN LOW-ACCOUNT @C@@@@ YH )@@G@@ MOVE SCS-SUMM-KEY TO LOW-ACCOUNT.@D@@@@ IF JOB-ACCOUNYI )@@G@@T-NUM IS LESS THAN LOW-ACCOUNT@D@@@@ MOVE JOB-ACCOUNT-NUM YJ )@@G@@TO LOW-ACCOUNT. @D@@@@ IF DE-JOBACNT IS LESS THAN LOW-ACCOUNYK )@@G@@T @C@@@@ MOVE DE-JOBACNT TO LOW-ACCOUNT. @B@@@@ YL )@@G@@ IF HOLD-ACCT < LOW-ACCOUNT @C@@@@ MOVE LOW-ACCOUNYM )@@G@@T TO HOLD-ACCT @#@@@@ ELSE @A@@@@ IF HOLD-ACYN )@@G@@CT > SPACES @F@@@@ DISPLAY 'HOLD-ACCT ' HOLD-ACCT UPON PRIYO )@@G@@NT-DEVICE @F@@@@ DISPLAY 'SCS-KEY ' SCS-SUMM-KEY UPON PRYP )@@G@@INT-DEVICE @G@@@@ DISPLAY 'JOB-ACCT-NUM ' JOB-ACCOUNT-NUMYQ )@@G@@ UPON PRINT-DEVICE@F@@@@ DISPLAY 'DE-JOB-ACNT ' DE-JOBACNTYR )@@G@@ UPON PRINT-DEVICE@A@@@@ ENTER FD 'ABORT'. @@@@@@@@@@@@YS )@@G@@@ @@@@ 205-FINAL-CALCULATIONS.@D@@@@ IF TOTAL-SUP-CALC (YT )@@G@@MONTH) NOT EQUAL TO 0 @E@@@@ DIVIDE TOTAL-SUP-CALC (MONTYU )@@G@@H) BY 18000000 @E@@@@ GIVING TOTAL-SUP-HOURS (MONTHYV )@@G@@) ROUNDED @E@@@@ DIVIDE BATCH-SUP-CALC (MONTH) BY 180000YW )@@G@@00 @E@@@@ GIVING BATCH-SUP-HOURS (MONTH) ROUNDED YX )@@G@@@E@@@@ DIVIDE DEMAND-SUP-CALC (MONTH) BY 18000000 @E@@@@YY )@@G@@ GIVING DEMAND-SUP-HOURS (MONTH) ROUNDED @C@@@@ YZ )@@G@@ PERFORM 305-FINAL-CALCULATIONS @G@@@@ VARYIZA )@@G@@NG PROD-TEST FROM 1 BY 1 UNTIL PROD-TEST > 2 @F@@@@ ZB )@@G@@ AFTER SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER 4. @@@@@@@A@@@@ 210-PZC )@@G@@RINT-HEADING-PAGE-1. @B@@@@ MOVE 'H15515' TO DEPT-RUN-ID. ZD )@@G@@@C@@@@ MOVE 'H1551060' TO DEPT-PROGRAM-NUM. @A@@@@ MZE )@@G@@OVE 1 TO DEPT-PAGE-NUM. @E@@@@ WRITE PRINT-LINE FROM DEPT-HEADZF )@@G@@ER-1 AFTER PAGE. @E@@@@ WRITE PRINT-LINE FROM DEPT-HEADER-2 AZG )@@G@@FTER 1 LINE.@E@@@@ WRITE PRINT-LINE FROM HEADER-3 AFTER 1 LINZH )@@G@@E. @F@@@@ MOVE MONTHS-12 (PROCESSING-MM) TO HEADING-MONTH-2ZI )@@G@@. @C@@@@ MOVE PROCESSING-YY TO HEADING-YEAR-2.@C@@@@ ZJ )@@G@@ IF PROCESSING-MM IS LESS THAN '09' @D@@@@ MOVE PROCZK )@@G@@ESSING-YY TO CALC-YEAR-TMP @C@@@@ SUBTRACT 1 FROM CALC-ZL )@@G@@YEAR-TMP @D@@@@ MOVE CALC-YEAR-TMP TO HEADING-YEAR-1 ZM )@@G@@@D@@@@ ELSE MOVE PROCESSING-YY TO HEADING-YEAR-1. @E@@@@ ZN )@@G@@ WRITE PRINT-LINE FROM HEADER-4 AFTER 1 LINES. @F@@@@ WZO )@@G@@RITE PRINT-LINE FROM DETAIL-HEAD-MONTHS AFTER 3 LINES.@B@@@@ MZP )@@G@@OVE SPACES TO PRINT-LINE. @B@@@@ WRITE PRINT-LINE AFTER 1 ZQ )@@G@@LINE. @@@@@@@A@@@@ 215-PRINT-DETAILS-PAGE-1. @C@@@@ PZR )@@G@@ERFORM 312-ROUNDING-PRINT-TOTALS @E@@@@ VARYING MONTH FZS )@@G@@ROM 1 BY 1 UNTIL MONTH > 12. @A@@@@ MOVE 1 TO PROD-TEST. ZT )@@G@@@B@@@@ MOVE SPACES TO DETAIL-PAGE-1. @C@@@@ MOVE TOZU )@@G@@TAL-T TO TOTAL-LINE-TITLE. @C@@@@ PERFORM 313-MOVE-TOTALS-TZV )@@G@@O-PRINT @G@@@@ VARYING MONTH FROM 1 BY 1 UNTIL MONTH GZW )@@G@@REATER THAN 12. @F@@@@ WRITE PRINT-LINE FROM DETAIL-PAGE-1 AZX )@@G@@FTER 2 LINES. @B@@@@ MOVE SPACES TO DETAIL-PAGE-1. @B@@@@ZY )@@G@@ MOVE BATCH-T TO BATCH-TITLE. @B@@@@ PERFORM 314-MZZ )@@G@@OVE-BATCH-TO-PRINT@G@@@@ VARYING MONTH FROM 1 BY 1 UNTIL MAA )@@G@@ONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. AB )@@G@@@B@@@@ MOVE DEMAND-T TO BATCH-TITLE. @C@@@@ PERFORMAC )@@G@@ 315-MOVE-DEMAND-TO-PRINT @G@@@@ VARYING MONTH FROM 1 AD )@@G@@BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LAE )@@G@@INE-PAGE-1. @B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. @B@@@@ AF )@@G@@ MOVE PROD-T TO BATCH-TITLE. @C@@@@ PERFORM 316-MOVE-PRAG )@@G@@ODUCTION-TO-PRINT @G@@@@ VARYING MONTH FROM 1 BY 1 UNTIL MAH )@@G@@ONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. AI )@@G@@@B@@@@ MOVE BATCH-T TO DETAIL-TITLE. @C@@@@ PERFORMAJ )@@G@@ 317-MOVE-PROD-BATCH-TO-PRINT @G@@@@ VARYING MONTH FROM 1 AK )@@G@@BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LAL )@@G@@INE-PAGE-1. @B@@@@ PERFORM 318-BATCH-SHIFT-TOTALS @G@@@@ AM )@@G@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 4. @B@@@@AN )@@G@@ MOVE DEMAND-T TO DETAIL-TITLE. @C@@@@ PERFORM 319-MAO )@@G@@OVE-PROD-DEMAND-TO-PRINT@G@@@@ VARYING MONTH FROM 1 BY 1 UAP )@@G@@NTIL MONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LINE-PAAQ )@@G@@GE-1. @B@@@@ PERFORM 321-DEMAND-SHIFT-TOTALS@G@@@@ AR )@@G@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 4. @B@@@@ AS )@@G@@ PERFORM 612-WRITE-LINE-PAGE-1. @A@@@@ MOVE 2 TO PROD-TESTAT )@@G@@. @B@@@@ MOVE TEST-T TO BATCH-TITLE. @C@@@@ PAU )@@G@@ERFORM 316-MOVE-PRODUCTION-TO-PRINT @G@@@@ VARYING MONTH FAV )@@G@@ROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORM 612-WAW )@@G@@RITE-LINE-PAGE-1. @B@@@@ MOVE BATCH-T TO DETAIL-TITLE. @C@@@@AX )@@G@@ PERFORM 317-MOVE-PROD-BATCH-TO-PRINT @G@@@@ VARAY )@@G@@YING MONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PAZ )@@G@@ERFORM 612-WRITE-LINE-PAGE-1. @B@@@@ PERFORM 318-BATCH-SHIFT-TBA )@@G@@OTALS @G@@@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATERBB )@@G@@ THAN 4. @B@@@@ MOVE DEMAND-T TO DETAIL-TITLE. @C@@@@ BC )@@G@@ PERFORM 319-MOVE-PROD-DEMAND-TO-PRINT@G@@@@ VARYING MBD )@@G@@ONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORMBE )@@G@@ 612-WRITE-LINE-PAGE-1. @B@@@@ PERFORM 321-DEMAND-SHIFT-TOTALSBF )@@G@@@G@@@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN BG )@@G@@4. @C@@@@ MOVE SUP-TOT-T TO TOTAL-LINE-TITLE. @C@@@@ BH )@@G@@ PERFORM 322-MOVE-SUP-TOTAL-TO-PRINT @G@@@@ VARYING MBI )@@G@@ONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ MOVE SPBJ )@@G@@ACES TO PRINT-LINE. @B@@@@ WRITE PRINT-LINE AFTER 2 LINES.BK )@@G@@@B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. @B@@@@ MOVE BABL )@@G@@TCH-T TO BATCH-TITLE. @C@@@@ PERFORM 323-MOVE-SUP-BATCH-TO-PBM )@@G@@RINT @G@@@@ VARYING MONTH FROM 1 BY 1 UNTIL MONTH GREATERBN )@@G@@ THAN 12. @B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. @B@@@@ BO )@@G@@ MOVE DEMAND-T TO BATCH-TITLE. @C@@@@ PERFORM 324-MOVE-SUBP )@@G@@P-DEMAND-TO-PRINT @G@@@@ VARYING MONTH FROM 1 BY 1 UNTIL MBQ )@@G@@ONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LINE-PAGE-1. BR )@@G@@@C@@@@ PERFORM 308-SUP-HOURS-PRINT-BREAKDOWN@G@@@@ BS )@@G@@ VARYING PROD-TEST FROM 1 BY 1 UNTIL PROD-TEST GREATER 2. @@@@@@@A@@@@BT )@@G@@ 220-PRINT-HEADING-PAGE-2. @E@@@@ WRITE PRINT-LINE FRBU )@@G@@OM DEPT-HEADER-1 AFTER PAGE. @E@@@@ WRITE PRINT-LINE FROM DEPBV )@@G@@T-HEADER-2 AFTER 1 LINE.@E@@@@ WRITE PRINT-LINE FROM HEADER-3 BW )@@G@@AFTER 1 LINE. @E@@@@ WRITE PRINT-LINE FROM HEADER-4 AFTER BX )@@G@@1 LINE. @F@@@@ WRITE PRINT-LINE FROM DETAIL-HEAD-RUN-1 AFTBY )@@G@@ER 2 LINES. @F@@@@ WRITE PRINT-LINE FROM DETAIL-HEAD-RUN-2 AFTBZ )@@G@@ER 1 LINE. @F@@@@ WRITE PRINT-LINE FROM DETAIL-HEAD-RUN-3 AFTCA )@@G@@ER 1 LINE. @B@@@@ MOVE SPACES TO PRINT-LINE. @B@@@@ CB )@@G@@ WRITE PRINT-LINE AFTER 1 LINE. @@@@@@@A@@@@ 225-PROCESS-DETAICC )@@G@@L-PAGE-2. @D@@@@ MOVE MONTHS-12 (MONTH) TO MONTH-PRINT. CD )@@G@@@F@@@@ IF PROCESSING-MM IS LESS THAN 9 AND MONTH > 8 CE )@@G@@@C@@@@ MOVE CALC-YEAR-TMP TO YEAR-PRINT @#@@@@ ECF )@@G@@LSE @C@@@@ MOVE PROCESSING-YY TO YEAR-PRINT.@D@@@@ CG )@@G@@ IF TOTAL-RUNS (MONTH) IS NOT EQUAL TO 0 @E@@@@ MOVCH )@@G@@E TOTAL-RUNS (MONTH) TO TOT-RUN-PRINT @F@@@@ MOVE TOTACI )@@G@@L-BATCH-RUNS (MONTH) TO BATCH-RUN-PRINT @F@@@@ MOVE TOTACJ )@@G@@L-DEMAND-RUNS (MONTH) TO DEMAND-RUN-PRINT @F@@@@ DIVIDE TOCK )@@G@@TAL-RUNS (MONTH) BY 100 GIVING TEMP-CALC @G@@@@ DIVIDE TCL )@@G@@OTAL-BATCH-RUNS (MONTH) BY TEMP-CALC GIVING @C@@@@ CM )@@G@@ BATCH-PCT-PRINT ROUNDED @G@@@@ DIVIDE TOTAL-DEMAND-CN )@@G@@RUNS (MONTH) BY TEMP-CALC GIVING @C@@@@ DEMAND-CO )@@G@@PCT-PRINT ROUNDED @D@@@@ PERFORM 326-ZERO-TEMPORARY-ACCUM-CP )@@G@@PRINT @D@@@@ PERFORM 325-CALCULATE-PROD-TEST-FIG @G@@@@CQ )@@G@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 4 CR )@@G@@@E@@@@ MOVE PROD-RUNS-CALC TO PROD-RUN-PRINT @E@@@@CS )@@G@@ MOVE TEST-RUNS-CALC TO TEST-RUN-PRINT @D@@@@ CT )@@G@@ ADD POINT-05 TO PROD-SUP-HOURS-CALC @E@@@@ MOVCU )@@G@@E PROD-SUP-HOURS-CALC TO P-HOURS-PRINT @D@@@@ ADD POINTCV )@@G@@-05 TO TEST-SUP-HOURS-CALC @E@@@@ MOVE TEST-SUP-HOURS-CCW )@@G@@ALC TO T-HOURS-PRINT. @D@@@@ IF TOTAL-RUNS (MONTH) IS NOT EQCX )@@G@@UAL TO 0 @E@@@@ DIVIDE PROD-RUNS-CALC BY TEMP-CALC GICY )@@G@@VING @C@@@@ PROD-PCT-PRINT ROUNDED @E@@@@ CZ )@@G@@ DIVIDE TEST-RUNS-CALC BY TEMP-CALC GIVING @C@@@@ DA )@@G@@ TEST-PCT-PRINT ROUNDED @F@@@@ MOVE TOTAL-SUP-DB )@@G@@HOURS (MONTH) TO TOT-HOURS-PRINT @E@@@@ MOVE BATCH-SUP-DC )@@G@@HOURS (MONTH) TO B-HOURS-PRINT@F@@@@ MOVE DEMAND-SUP-HOURSDD )@@G@@ (MONTH) TO D-HOURS-PRINT @G@@@@ DIVIDE TOTAL-SUP-HOURDE )@@G@@S (MONTH) BY 100 GIVING TEMP-CALC @G@@@@ DIVIDE BATCH-SDF )@@G@@UP-HOURS (MONTH) BY TEMP-CALC GIVING @C@@@@ BDG )@@G@@-HOURS-PCT-PRINT ROUNDED@G@@@@ DIVIDE DEMAND-SUP-HOURS (MDH )@@G@@ONTH) BY TEMP-CALC GIVING @C@@@@ D-HOURS-PCT-PDI )@@G@@RINT ROUNDED@F@@@@ DIVIDE PROD-SUP-HOURS-CALC BY TEMP-CALDJ )@@G@@C GIVING @C@@@@ P-HOURS-PCT-PRINT ROUNDED@F@@@@DK )@@G@@ DIVIDE TEST-SUP-HOURS-CALC BY TEMP-CALC GIVING @D@@@@DL )@@G@@ T-HOURS-PCT-PRINT ROUNDED. @D@@@@ WDM )@@G@@RITE PRINT-LINE FROM DETAIL-2ND-PAGE. @@@@@@@@@@@@@^@@@@ 230-PDN )@@G@@ROCESS-SCS. @G@@@@ ADD ACCT-HOURS (PROCESSING-MM), RUN-HOURS (DO )@@G@@PROCESSING-MM) TO@^@@@@ AP-HOURS.@A@@@@ PERFORMDP )@@G@@ 330-READ-SCS. @A@@@@ PERFORM 330-READ-SCS @D@@@@ DQ )@@G@@ UNTIL NOT INACTIVE-SUMMARY-RECORD OR@D@@@@ DR )@@G@@ SCS-ACCT-NUM EQUAL TO HIGH-VALUES.@@@@@@@ @@@@ 240-PROCESS-INFORDS )@@G@@EX. @A@@@@ PERFORM 345-INFOREX-ADD. @A@@@@ PERFORMDT )@@G@@ 340-READ-INFOREX.@@@@@@@ @@@@ 250-PROCESS-KEYPUNCH. @^@@@@ DU )@@G@@ IF VERIFY @E@@@@ ADD NUM-RECORDS-PUNCHED TO DE-RECDV )@@G@@-VERIFIED @E@@@@ KP-REC-VERIFDW )@@G@@IED @#@@@@ ELSE @ @@@@ IF KEYPUNCH @E@@@@DX )@@G@@ ADD NUM-RECORDS-PUNCHED TO DE-REC-ENTERED@E@@@@ DY )@@G@@ KP-REC-ENTERED@^@@@@ DZ )@@G@@ ELSE @ @@@@ IF KP-TIME @F@@@@ EA )@@G@@ ADD TIME-TO-PUNCH TO TOTAL-TIME-TO-PUNCH @^@@@@ EB )@@G@@ ELSE @ @@@@ DISPLAY@G@@@@ EC )@@G@@ '** THIS IS NEITHER KEYPUNCH OR VERIFY **' @C@@@@ ED )@@G@@ UPON PRINT-DEVICE @F@@@@ DISPLAY KEYPUEE )@@G@@NCH-CARD UPON PRINT-DEVICE. @B@@@@ PERFORM 350-READ-KEYPUNCHEF )@@G@@. @E@@@@ IF JOB-ACCOUNT-NUM IS NOT EQUAL TO LOW-ACCOUNT EG )@@G@@@G@@@@ ADD KP-REC-ENTERED KP-REC-VERIFIED GIVING REC-ENTEH )@@G@@ERED @B@@@@ IF REC-ENTERED EQUALS 0 @E@@@@ EI )@@G@@ ADD TOTAL-TIME-TO-PUNCH TO DE-HOUR-ENTER @F@@@@ EJ )@@G@@ MOVE ZERO TO KP-REC-ENTERED KP-REC-VERIFIED @C@@@@ EK )@@G@@ TOTAL-TIME-TO-PUNCH @^@@@@ ELSE @G@@@@ EL )@@G@@ DIVIDE TOTAL-TIME-TO-PUNCH BY REC-ENTERED GIVING @C@@@@EM )@@G@@ TIME-RATIO ROUNDED @F@@@@ EN )@@G@@ MULTIPLY TIME-RATIO BY KP-REC-VERIFIED GIVING @B@@@@ EO )@@G@@ KP-HOUR-VERIFY @G@@@@ SUBTRACT KP-HOUR-VERIFYEP )@@G@@ FROM TOTAL-TIME-TO-PUNCH @C@@@@ GIVING KP-HOUEQ )@@G@@R-ENTER @D@@@@ ADD KP-HOUR-ENTER TO DE-HOUR-ENTER ER )@@G@@@E@@@@ ADD KP-HOUR-VERIFY TO DE-HOUR-VERIFY @F@@@@ES )@@G@@ MOVE ZERO TO KP-REC-ENTERED KP-REC-VERIFIED @C@@@@ET )@@G@@ TOTAL-TIME-TO-PUNCH.@@@@@@@A@@@@ 260-PEU )@@G@@ROCESS-MONTHLY-ACCT-LOG.@F@@@@ * NEXT THREE UPDATE YEARLY-ACCT-LOG EV )@@G@@AND UTILIZATION REPORT @C@@@@ MOVE ACCOUNT TO NEW-ACCOUNT-YEAEW )@@G@@RLY. @C@@@@ PERFORM 310-ACCUMULATE-UTIL-TOTALS. @B@@@@ EX )@@G@@ PERFORM 320-WRITE-NEW-Y-T-D. @C@@@@ PERFORM 365-ADD-MONEY )@@G@@THLY-ACCT-LOG. @B@@@@ PERFORM 360-READ-MTH-ACCT-LOG. @@@@@@EZ )@@G@@@B@@@@ 270-FINAL-SUMMARY-CALCULATIONS. @C@@@@ MOVE LOFA )@@G@@W-ACCOUNT TO ACCOUNT-CODE. @C@@@@ MOVE PROCESSING-YY TO PERFB )@@G@@IOD-YEAR. @C@@@@ MOVE PROCESSING-MM TO PERIOD-MONTH. @B@@@@FC )@@G@@ DIVIDE SUPS-SUM (1) BY 18000000@B@@@@ GIVING COFD )@@G@@MP-HOURS (1). @B@@@@ DIVIDE SUPS-SUM (2) BY 18000000@B@@@@FE )@@G@@ GIVING COMP-HOURS (2). @B@@@@ DIVIDE SUPS-SFF )@@G@@UM (3) BY 18000000@B@@@@ GIVING COMP-HOURS (3). @^@@@@FG )@@G@@ MOVE ZERO TO @ @@@@ SUPS-SUM (1) @ @@@@ FH )@@G@@ SUPS-SUM (2) @ @@@@ SUPS-SUM (3). @F@@@@ FI )@@G@@ DIVIDE ACT-DE-MIN-ENT BY 60 GIVING TEMP-DE-HOUR-ENTER @^@@@@ FJ )@@G@@ ROUNDED. @F@@@@ DIVIDE ACT-DE-MIN-VER BY 60 GIVING TEFK )@@G@@MP-DE-HOUR-VERIFY @^@@@@ ROUNDED. @D@@@@ ADD TEMFL )@@G@@P-DE-HOUR-ENTER TO DE-HOUR-ENTER. @D@@@@ ADD TEMP-DE-HOUR-VEFM )@@G@@RIFY TO DE-HOUR-VERIFY. @D@@@@ MULTIPLY CMPUTR-RATES (1) BY COFN )@@G@@MP-HOURS (1)@C@@@@ GIVING COMP-COST (1) ROUNDED. @D@@@@FO )@@G@@ MULTIPLY CMPUTR-RATES (2) BY COMP-HOURS (2)@C@@@@ FP )@@G@@ GIVING COMP-COST (2) ROUNDED. @D@@@@ MULTIPLY CMPUTR-RATFQ )@@G@@ES (3) BY COMP-HOURS (3)@C@@@@ GIVING COMP-COST (3) ROUNDEFR )@@G@@D. @E@@@@ MULTIPLY D-E IN HOURLY-RATES BY DE-HOUR-ENTER FS )@@G@@@C@@@@ GIVING DE-ENTER-COST ROUNDED. @E@@@@ MFT )@@G@@ULTIPLY D-E IN HOURLY-RATES BY DE-HOUR-VERIFY @C@@@@ GIVFU )@@G@@ING DE-VERIFY-COST ROUNDED. @D@@@@ MULTIPLY AP IN HOURLY-RATFV )@@G@@ES BY AP-HOURS @B@@@@ GIVING AP-COST ROUNDED. @E@@@@FW )@@G@@ MOVE ZERO TO ACT-DE-MIN-ENT ACT-DE-MIN-VER. @F@@@@ FX )@@G@@ MOVE AP IN PCT-EMPLOYEE-BENEFITS TO ANAL-PROG-EMP. @F@@@@ FY )@@G@@ MOVE D-E IN PCT-EMPLOYEE-BENEFITS TO DATA-ENTRY-EMP. @F@@@@ FZ )@@G@@ MOVE COMPUTER IN PCT-EMPLOYEE-BENEFITS TO COMPUTER-EMP.@F@@@@ GA )@@G@@ MOVE AP IN PCT-OVHD-TO-APPLY TO ANAL-PROG-OV. @F@@@@ GB )@@G@@ MOVE D-E IN PCT-OVHD-TO-APPLY TO DATA-ENTRY-OV. @F@@@@ GC )@@G@@ MOVE COMPUTER IN PCT-OVHD-TO-APPLY TO COMPUTER-OV. @G@@@@ GD )@@G@@* BE SURE OF ONE RUN (FIX SHOULD NEVER BE USED) IF COMPTER TIME@F@@@@GE )@@G@@ IF COMP-HOURS (1) EQUALS 0 AND COMP-HOURS (2) EQUALS 0 @B@@@@GF )@@G@@ AND COMP-HOURS (3) EQUALS 0@A@@@@ NEXT GG )@@G@@SENTENCE @#@@@@ ELSE @E@@@@ IF NUM-OF-RUNS GH )@@G@@IN BY-ACCOUNT-RECORD EQUALS 0 @B@@@@ MOVE 1 TO NUM-OF-GI )@@G@@RUNS. @@@@@@@A@@@@ 280-WRITE-SUMMARY-ACCOUNT. @A@@@@ WGJ )@@G@@RITE BY-ACCOUNT-RECORD. @A@@@@ ADD 1 TO WREC-COST-SUM. @@@@@@GK )@@G@@@A@@@@ 290-ZERO-SUMMARY-ACCOUNT. @E@@@@ MOVE ZEROES TGL )@@G@@O NUMERIC-FIELDS-CLEAR (CLEAR-SUB). @@@@@@@@@@@@@@@@@@@A@@@@ 300-RGM )@@G@@EAD-Y-T-D-BY-ACCOUNT. @D@@@@ READ OLD-Y-T-D-FILE INTO NEW-ACGN )@@G@@COUNT-YEARLY@E@@@@ AT END MOVE 'YES' TO END-OF-FILE-YEAR-GO )@@G@@SW. @A@@@@ ADD 1 TO RREC-Y-T-D-OLD. @@@@@@@@@@@@@ @@@@ GP )@@G@@ 305-FINAL-CALCULATIONS.@F@@@@ DIVIDE BATCH-SUP-CALC-TOTAL (MOGQ )@@G@@NTH, PROD-TEST, SHIFT) @F@@@@ BY 18000000 GIVING BATCH-SUGR )@@G@@P-HOURS-TOTAL (MONTH, @C@@@@ PROD-TEST, SHIFGS )@@G@@T). @F@@@@ DIVIDE DEMAND-SUP-CALC-TOTAL (MONTH, PROD-TEST, SGT )@@G@@HIFT) @F@@@@ BY 18000000 GIVING DEMAND-SUP-HOURS-TOTAL (MOGU )@@G@@NTH, @C@@@@ PROD-TEST, SHIFT). @@@@@@@@@@@@GV )@@G@@@B@@@@ 308-SUP-HOURS-PRINT-BREAKDOWN. @B@@@@ PERFORMGW )@@G@@ 612-WRITE-LINE-PAGE-1. @A@@@@ IF PROD-TEST EQUAL TO 1 @B@@@@GX )@@G@@ MOVE PROD-T TO BATCH-TITLE@#@@@@ ELSE @C@@@@GY )@@G@@ MOVE TEST-T TO BATCH-TITLE. @C@@@@ PERFORMGZ )@@G@@ 408-MOVE-PROD-TEST-SUP-TO-PRT@G@@@@ VARYING MONTH FROM 1 HA )@@G@@BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORM 612-WRITE-LHB )@@G@@INE-PAGE-1 @B@@@@ MOVE BATCH-T TO DETAIL-TITLE. @C@@@@ HC )@@G@@ PERFORM 409-MOVE-BATCH-SUP-TO-PRINT @G@@@@ VARYING MHD )@@G@@ONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORMHE )@@G@@ 612-WRITE-LINE-PAGE-1. @C@@@@ PERFORM 411-BATCH-SUP-SHIFT-TOTHF )@@G@@ALS @G@@@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATERHG )@@G@@ THAN 4. @B@@@@ MOVE DEMAND-T TO DETAIL-TITLE. @C@@@@ HH )@@G@@ PERFORM 410-MOVE-SUP-DEMAND-TO-PRINT @G@@@@ VARYING MHI )@@G@@ONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @B@@@@ PERFORMHJ )@@G@@ 612-WRITE-LINE-PAGE-1. @C@@@@ PERFORM 413-DEMAND-SUP-SHIFT-TOHK )@@G@@TALS @G@@@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATERHL )@@G@@ THAN 4. @@@@@@@@@@@@@A@@@@ 310-ACCUMULATE-UTIL-TOTALS. @C@@@@HM )@@G@@ IF DEVELOPMENTAL MOVE 2 TO PROD-TEST @A@@@@ ELSE MOHN )@@G@@VE 1 TO PROD-TEST.@^@@@@ IF WEEKDAY @D@@@@ PERHO )@@G@@FORM 405-ADD-SHIFTS-YEARLY-TOTALS @G@@@@ VARYING SHIHP )@@G@@FT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 3 @#@@@@ ELSE @ @@@@HQ )@@G@@ IF WEEKEND @D@@@@ PERFORM 406-ADD-WHR )@@G@@EEKEND-YEARLY @C@@@@ VARYING SHIFT FROM 1 BY 1HS )@@G@@@D@@@@ UNTIL SHIFT GREATER THAN 3 @G@@@@ HT )@@G@@ ELSE DISPLAY 'NON SUMMARY ACCOUNT' UPON PRINT-DEVICE @G@@@@HU )@@G@@ DISPLAY INITIAL-ACCT-INFO UPON PRINT-DEVICE. HV )@@G@@@@@@@@@@@@@@@A@@@@ 312-ROUNDING-PRINT-TOTALS. @D@@@@ AHW )@@G@@DD POINT-05 TO TOTAL-SUP-HOURS (MONTH) @C@@@@ BAHX )@@G@@TCH-SUP-HOURS (MONTH) @C@@@@ DEMAND-SUP-HOURS (MOHY )@@G@@NTH). @@@@@@@A@@@@ 313-MOVE-TOTALS-TO-PRINT. @A@@@@ IHZ )@@G@@F MONTH IS LESS THAN 9 @C@@@@ ADD MONTH, 4 GIVING PRINT-IA )@@G@@MONTH @#@@@@ ELSE @E@@@@ SUBTRACT 8 FROM MONTHIB )@@G@@ GIVING PRINT-MONTH. @G@@@@ MOVE TOTAL-RUNS (MONTH) TO MONTIC )@@G@@HLY-RUNS-PRINT (PRINT-MONTH). @@@@@@@A@@@@ 314-MOVE-BATCH-TO-PRINTID )@@G@@. @A@@@@ IF MONTH IS LESS THAN 9 @C@@@@ ADDIE )@@G@@ MONTH, 4 GIVING PRINT-MONTH @#@@@@ ELSE @E@@@@ IF )@@G@@ SUBTRACT 8 FROM MONTH GIVING PRINT-MONTH. @B@@@@ MOVE TOIG )@@G@@TAL-BATCH-RUNS (MONTH) @D@@@@ TO MONTHLY-RUNS-PRINT (PRINIH )@@G@@T-MONTH). @@@@@@@A@@@@ 315-MOVE-DEMAND-TO-PRINT. @A@@@@ II )@@G@@ IF MONTH IS LESS THAN 9 @C@@@@ ADD MONTH, 4 GIVING PIJ )@@G@@RINT-MONTH @#@@@@ ELSE @E@@@@ SUBTRACT 8 FROMIK )@@G@@ MONTH GIVING PRINT-MONTH. @B@@@@ MOVE TOTAL-DEMAND-RUNS (MIL )@@G@@ONTH) @D@@@@ TO MONTHLY-RUNS-PRINT (PRINT-MONTH). @@@@@@IM )@@G@@@A@@@@ 316-MOVE-PRODUCTION-TO-PRINT.@B@@@@ MOVE ZERO TO IN )@@G@@PROD-RUNS-CALC. @B@@@@ PERFORM 416-ADD-PRODUCTION @G@@@@IO )@@G@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 4. IP )@@G@@@A@@@@ IF MONTH IS LESS THAN 9 @C@@@@ ADD MONTHIQ )@@G@@, 4 GIVING PRINT-MONTH @#@@@@ ELSE @E@@@@ SUBIR )@@G@@TRACT 8 FROM MONTH GIVING PRINT-MONTH. @G@@@@ MOVE PROD-RUNIS )@@G@@S-CALC TO MONTHLY-RUNS-PRINT (PRINT-MONTH). @@@@@@@A@@@@ 317-MIT )@@G@@OVE-PROD-BATCH-TO-PRINT.@B@@@@ MOVE ZERO TO PROD-RUNS-CALC. IU )@@G@@@C@@@@ PERFORM 417-ADD-PRODUCTION-BATCH @G@@@@ IV )@@G@@ VARYING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 4. @A@@@@ IW )@@G@@ IF MONTH IS LESS THAN 9 @C@@@@ ADD MONTH, 4 GIVING PIX )@@G@@RINT-MONTH @#@@@@ ELSE @E@@@@ SUBTRACT 8 FROMIY )@@G@@ MONTH GIVING PRINT-MONTH. @G@@@@ MOVE PROD-RUNS-CALC TO MOIZ )@@G@@NTHLY-RUNS-PRINT (PRINT-MONTH). @@@@@@@ @@@@ 318-BATCH-SHIFT-TJA )@@G@@OTALS.@C@@@@ PERFORM 418-MOVE-PROD-SHIFT-TO-PRINT @G@@@@ JB )@@G@@ VARYING MONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @D@@@@JC )@@G@@ MOVE TIME-OF-SHIFT (SHIFT) TO HOURS-TITLE. @B@@@@ PJD )@@G@@ERFORM 612-WRITE-LINE-PAGE-1. @@@@@@@B@@@@ 319-MOVE-PROD-DEMAND-TOJE )@@G@@-PRINT. @B@@@@ MOVE ZERO TO PROD-RUNS-CALC. @C@@@@ JF )@@G@@ PERFORM 419-ADD-PRODUCTION-DEMAND @G@@@@ VARYING SJG )@@G@@HIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 4. @A@@@@ IF MONJH )@@G@@TH IS LESS THAN 9 @C@@@@ ADD MONTH, 4 GIVING PRINT-MONTH JI )@@G@@@#@@@@ ELSE @E@@@@ SUBTRACT 8 FROM MONTH GIVINJJ )@@G@@G PRINT-MONTH. @G@@@@ MOVE PROD-RUNS-CALC TO MONTHLY-RUNS-PJK )@@G@@RINT (PRINT-MONTH). @@@@@@@@@@@@@ @@@@ 320-WRITE-NEW-Y-T-D. JL )@@G@@@A@@@@ WRITE NEW-ACCOUNT-YEARLY.@A@@@@ ADD 1 TO WRECJM )@@G@@-NEW-YEARLY.@@@@@@@@@@@@@A@@@@ 321-DEMAND-SHIFT-TOTALS. @D@@@@JN )@@G@@ PERFORM 421-MOVE-DEMAND-SHIFT-TO-PRINT @G@@@@ JO )@@G@@ VARYING MONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @D@@@@ JP )@@G@@ MOVE TIME-OF-SHIFT (SHIFT) TO HOURS-TITLE. @B@@@@ PERFORMJQ )@@G@@ 612-WRITE-LINE-PAGE-1. @@@@@@@A@@@@ 322-MOVE-SUP-TOTAL-TO-PRINT. JR )@@G@@@A@@@@ IF MONTH IS LESS THAN 9 @C@@@@ ADD MONTHJS )@@G@@, 4 GIVING PRINT-MONTH @#@@@@ ELSE @E@@@@ SUBJT )@@G@@TRACT 8 FROM MONTH GIVING PRINT-MONTH. @B@@@@ MOVE TOTAL-SUJU )@@G@@P-HOURS (MONTH) TO@D@@@@ MONTHLY-HOURS-PRINT (PRINT-MONTH)JV )@@G@@. @@@@@@@A@@@@ 323-MOVE-SUP-BATCH-TO-PRINT. @A@@@@ IJW )@@G@@F MONTH IS LESS THAN 9 @C@@@@ ADD MONTH, 4 GIVING PRINT-MJX )@@G@@ONTH @#@@@@ ELSE @E@@@@ SUBTRACT 8 FROM MONTHJY )@@G@@ GIVING PRINT-MONTH. @B@@@@ MOVE BATCH-SUP-HOURS (MONTH) TOJZ )@@G@@@D@@@@ MONTHLY-HOURS-PRINT (PRINT-MONTH). @@@@@@@A@@@@KA )@@G@@ 324-MOVE-SUP-DEMAND-TO-PRINT.@A@@@@ IF MONTH IS LESS TKB )@@G@@HAN 9 @C@@@@ ADD MONTH, 4 GIVING PRINT-MONTH @#@@@@ KC )@@G@@ ELSE @E@@@@ SUBTRACT 8 FROM MONTH GIVING PRINT-MONTKD )@@G@@H. @C@@@@ MOVE DEMAND-SUP-HOURS (MONTH) TO @D@@@@ KE )@@G@@ MONTHLY-HOURS-PRINT (PRINT-MONTH). @@@@@@@@@@@@@A@@@@ KF )@@G@@ 325-CALCULATE-PROD-TEST-FIG. @D@@@@ ADD BATCH-RUNS-TOTAL (MONKG )@@G@@TH, 1, SHIFT) @D@@@@ DEMAND-RUNS-TOTAL (MONTH, 1, SHIFKH )@@G@@T) @B@@@@ TO PROD-RUNS-CALC. @D@@@@ AKI )@@G@@DD BATCH-RUNS-TOTAL (MONTH, 2, SHIFT) @D@@@@ DEMAND-RUKJ )@@G@@NS-TOTAL (MONTH, 2, SHIFT) @B@@@@ TO TEST-RUNS-CALCKK )@@G@@. @E@@@@ ADD DEMAND-SUP-HOURS-TOTAL (MONTH, 1, SHIFT) KL )@@G@@@D@@@@ BATCH-SUP-HOURS-TOTAL (MONTH, 1, SHIFT)@B@@@@ KM )@@G@@ TO PROD-SUP-HOURS-CALC.@D@@@@ ADD BATCH-SUP-HOURSKN )@@G@@-TOTAL (MONTH, 2, SHIFT)@E@@@@ DEMAND-SUP-HOURS-TOTAL (MONKO )@@G@@TH, 2, SHIFT) @B@@@@ TO TEST-SUP-HOURS-CALC.@@@@@@KP )@@G@@@B@@@@ 326-ZERO-TEMPORARY-ACCUM-PRINT. @B@@@@ MOVE ZEKQ )@@G@@RO TO PROD-RUNS-CALC @B@@@@ TEST-RUNS-CALC KR )@@G@@@C@@@@ PROD-SUP-HOURS-CALC @C@@@@ KS )@@G@@ TEST-SUP-HOURS-CALC. @@@@@@@@@@@@@^@@@@ 330-READ-SCKT )@@G@@S. @A@@@@ READ SCS-BY-ACCOUNT-FILE @C@@@@ AT KU )@@G@@END ADD 1 TO END-OF-FILES-SW @D@@@@ MOVE HIGH-VALUKV )@@G@@ES TO SCS-ACCT-NUM@D@@@@ MOVE LOW-VALUES TO SUMM-RKW )@@G@@ECORD.@B@@@@ IF NOT INACTIVE-SUMMARY-RECORD @A@@@@ KX )@@G@@ ADD 1 TO RREC-SCS. @C@@@@ IF SCS-ACCT-NUM NOT = HIGH-VALKY )@@G@@UES @B@@@@ IF SCS-ACCT-NUM NOT NUMERIC @F@@@@ KZ )@@G@@ DISPLAY 'SCS-ACCT ' SCS-ACCT-NUM UPON PRINT-DEVICE@A@@@@ LA )@@G@@ GO TO 330-READ-SCS. @@@@@@@^@@@@ 340-READ-INFOREX.@ @@@@ LB )@@G@@ READ INFOREX-FILE @C@@@@ AT END ADD 1 TO END-OF-FILELC )@@G@@S-SW @E@@@@ MOVE HIGH-VALUES TO DE-ACNT-NO-FLD. LD )@@G@@@A@@@@ ADD 1 TO RREC-INFOREX. @C@@@@ MOVE DE-ACNT-LE )@@G@@NO-FLD TO DE-ACT-NO. @C@@@@ MOVE DE-ACNT-RMDR-FLD TO DE-ACTLF )@@G@@-RMDR.@C@@@@ IF DE-ACNT-NO-FLD NOT = HIGH-VALUES @B@@@@ LG )@@G@@ IF DE-ACNT-NO-FLD NOT NUMERIC@F@@@@ DISPLAY 'DE-ACCLH )@@G@@T ' DE-ACNT-NO-FLD UPON PRINT-DEVICE@B@@@@ GO TO 340-READ-LI )@@G@@INFOREX. @@@@@@@^@@@@ 345-INFOREX-ADD. @D@@@@ ADD DE-LJ )@@G@@RECS-ENTERED TO DE-REC-ENTERED. @D@@@@ ADD DE-RECS-VERIFIELK )@@G@@D TO DE-REC-VERIFIED. @D@@@@ ADD DE-ENTRY-STROKES TO DE-KEY-LL )@@G@@ENTERED. @D@@@@ ADD DE-VERIFY-STROKES TO DE-KEY-VERIFIED. LM )@@G@@@C@@@@ ADD DE-VERIFY-MIN TO ACT-DE-MIN-VER. @C@@@@ ALN )@@G@@DD DE-ENTRY-MIN TO ACT-DE-MIN-ENT. @@@@@@@ @@@@ 350-READ-KEYPUNCHLO )@@G@@. @C@@@@ READ KEYPUNCH-FILE INTO KEYPUNCH-CARD@D@@@@ LP )@@G@@ AT END ADD 1 TO END-OF-FILES-SW @E@@@@ LQ )@@G@@ MOVE HIGH-VALUES TO KP-ACNT-NUMBER. @A@@@@ ADD 1 TO RRECLR )@@G@@-KEYPUNCH. @C@@@@ IF KP-ACNT-NUMBER NOT = HIGH-VALUES@C@@@@LS )@@G@@ IF KP-ACNT-NUMBER NOT NUMERIC @F@@@@ DISLT )@@G@@PLAY 'KP-ACCT ' KP-ACNT-NUMBER UPON PRINT-DEVICE@B@@@@ GO LU )@@G@@TO 350-READ-KEYPUNCH. @D@@@@ MOVE KP-ACNT-NUMBER TO JOB-ACCOLV )@@G@@UNT-NUM. @@@@@@@ @@@@ 360-READ-MTH-ACCT-LOG. @A@@@@ RLW )@@G@@EAD MONTHLY-BY-ACCOUNT @C@@@@ AT END ADD 1 TO END-OF-FILELX )@@G@@S-SW @D@@@@ MOVE HIGH-VALUES TO AC-ACCOUNT-NUM. @C@@@@LY )@@G@@ MOVE AC-ACCOUNT-NUM TO ACCT-NUM. @C@@@@ MOVE ACLZ )@@G@@-ACCOUNT-TYPE TO ACCT-TYPE. @C@@@@ IF AC-ACCOUNT-NUM NOT = HMA )@@G@@IGH-VALUES @B@@@@ IF AC-ACCOUNT-H NOT = 'H' @E@@@@ MB )@@G@@ DISPLAY 'AC-ALL ' AC-ACCNT-NO UPON PRINT-DEVICE@B@@@@ MC )@@G@@ GO TO 360-READ-MTH-ACCT-LOG @#@@@@ ELSE @B@@@@ MD )@@G@@ IF ACCT-NUM NOT NUMERIC @E@@@@ DISPLAY 'AC-ACCT ' ACME )@@G@@CT-NUM UPON PRINT-DEVICE@C@@@@ GO TO 360-READ-MTH-ACCT-LOGMF )@@G@@. @B@@@@ ADD 1 TO RREC-MTH-ACCT-LOG. @B@@@@ IMG )@@G@@F AC-MM EQUALS PROCESSING-MM @ @@@@ NEXT SENTENCE @#@@@@MH )@@G@@ ELSE @G@@@@ DISPLAY 'PROGRAM ABORT - H1551060MI )@@G@@ FILES NOT SAME MONTH' @B@@@@ UPON PRINT-DEVICE MJ )@@G@@@G@@@@ DISPLAY AC-REC-ID, ' CTCF MONTH ', PROCESSINMK )@@G@@G-MM @B@@@@ UPON PRINT-DEVICE @A@@@@ ML )@@G@@ ENTER FD 'ABORT'. @@@@@@@A@@@@ 365-ADD-MONTHLY-ACCT-LOG. MM )@@G@@@A@@@@ PERFORM 465-ADD-SHIFTS @G@@@@ VARYIMN )@@G@@NG SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 3.@E@@@@ ADD AC-MO )@@G@@OUTSTAND-LIB-REELS TO REELS-IN-LIBR @E@@@@ ADD AC-OUTSTAMP )@@G@@ND-CAT-TKS TO CAT-DISC-TRACKS. @@@@@@@@@@@@@@@@@@@A@@@@ 405-AMQ )@@G@@DD-SHIFTS-YEARLY-TOTALS.@F@@@@ ADD BATCH-RUNS (SHIFT) RT-BATMR )@@G@@CH-RUNS (SHIFT) TO @G@@@@ BATCH-RUNS-TOTAL (MONTHMS )@@G@@-OF-YEARLY, PROD-TEST, SHIFT) @C@@@@ TOTAL-RUNS (MONTMT )@@G@@H-OF-YEARLY)@D@@@@ TOTAL-BATCH-RUNS (MONTH-OF-YEARLY).MU )@@G@@@E@@@@ ADD DEMAND-RUNS (SHIFT) RT-DEMAND-RUNS (SHIFT) TO@F@@@@MV )@@G@@ DEMAND-RUNS-TOTAL (MONTH-OF-YEARLY, PROD-TEST, @C@@@@MW )@@G@@ SHIFT) @D@@@@ MX )@@G@@ TOTAL-DEMAND-RUNS (MONTH-OF-YEARLY)@C@@@@ TOTAL-RUNS MY )@@G@@(MONTH-OF-YEARLY).@E@@@@ ADD BATCH-SUPS (SHIFT), RT-BATCH-SUPSMZ )@@G@@ (SHIFT) TO@G@@@@ BATCH-SUP-CALC-TOTAL (MONTH-OF-YEARNA )@@G@@LY, PROD-TEST, @D@@@@ SHIFTNB )@@G@@) @D@@@@ TOTAL-SUP-CALC (MONTH-OF-YEARLY) @D@@@@NC )@@G@@ BATCH-SUP-CALC (MONTH-OF-YEARLY). @F@@@@ AND )@@G@@DD DEMAND-SUPS (SHIFT), RT-DEMAND-SUPS (SHIFT) TO @G@@@@ NE )@@G@@ DEMAND-SUP-CALC-TOTAL (MONTH-OF-YEARLY, PROD-TEST, @D@@@@ NF )@@G@@ SHIFT) @D@@@@ NG )@@G@@ TOTAL-SUP-CALC (MONTH-OF-YEARLY) @D@@@@ DEMAND-SUP-NH )@@G@@CALC (MONTH-OF-YEARLY). @@@@@@@ @@@@ 406-ADD-WEEKEND-YEARLY.@E@@@@NI )@@G@@ ADD BATCH-RUNS (SHIFT), RT-BATCH-RUNS (SHIFT) TO@G@@@@ NJ )@@G@@ BATCH-RUNS-TOTAL (MONTH-OF-YEARLY, PROD-TEST, 4) @C@@@@NK )@@G@@ TOTAL-RUNS (MONTH-OF-YEARLY) @D@@@@ NL )@@G@@ TOTAL-BATCH-RUNS (MONTH-OF-YEARLY).@F@@@@ ADD DEMAND-RUNS (SHNM )@@G@@IFT), RT-DEMAND-RUNS (SHIFT) TO @G@@@@ DEMAND-RUNSNN )@@G@@-TOTAL (MONTH-OF-YEARLY, PROD-TEST, 4) @D@@@@ TOTALNO )@@G@@-DEMAND-RUNS (MONTH-OF-YEARLY)@D@@@@ TOTAL-RUNS (MONTNP )@@G@@H-OF-YEARLY). @E@@@@ ADD BATCH-SUPS (SHIFT), RT-BATCH-SUPSNQ )@@G@@ (SHIFT) TO@G@@@@ BATCH-SUP-CALC-TOTAL (MONTH-OF-YEARNR )@@G@@LY, PROD-TEST, 4) @D@@@@ TOTAL-SUP-CALC (MONTH-OF-YEARNS )@@G@@LY) @D@@@@ BATCH-SUP-CALC (MONTH-OF-YEARLY). @F@@@@NT )@@G@@ ADD DEMAND-SUPS (SHIFT), RT-DEMAND-SUPS (SHIFT) TO @G@@@@NU )@@G@@ DEMAND-SUP-CALC-TOTAL (MONTH-OF-YEARLY, PROD-TEST, NV )@@G@@@C@@@@ 4) @D@@@@ NW )@@G@@ TOTAL-SUP-CALC (MONTH-OF-YEARLY) @D@@@@ DEMANNX )@@G@@D-SUP-CALC (MONTH-OF-YEARLY). @@@@@@@@@@@@@B@@@@ 408-MOVE-PROD-TESNY )@@G@@T-SUP-TO-PRT. @C@@@@ MOVE ZERO TO PROD-SUP-HOURS-CALC. NZ )@@G@@@B@@@@ PERFORM 508-ADD-SUP-TOTALS @G@@@@ VAROA )@@G@@YING SHIFT FROM 1 BY 1 UNTIL SHIFT GREATER THAN 4. @C@@@@ AOB )@@G@@DD POINT-05 TO PROD-SUP-HOURS-CALC. @A@@@@ IF MONTH IS LESS OC )@@G@@THAN 9@C@@@@ ADD MONTH, 4 GIVING PRINT-MONTH @#@@@@ OD )@@G@@ ELSE @E@@@@ SUBTRACT 8 FROM MONTH GIVING PRINT-MONTOE )@@G@@H. @A@@@@ MOVE PROD-SUP-HOURS-CALC @D@@@@ TO OF )@@G@@MONTHLY-HOURS-PRINT (PRINT-MONTH). @@@@@@@A@@@@ 409-MOVE-BATCH-SUOG )@@G@@P-TO-PRINT. @C@@@@ MOVE ZERO TO PROD-SUP-HOURS-CALC. @A@@@@OH )@@G@@ PERFORM 509-ADD-SUP-BATCH@G@@@@ VARYING SHIFT FOI )@@G@@ROM 1 BY 1 UNTIL SHIFT GREATER THAN 4. @C@@@@ ADD POINT-05 OJ )@@G@@TO PROD-SUP-HOURS-CALC. @A@@@@ IF MONTH IS LESS THAN 9 @C@@@@OK )@@G@@ ADD MONTH, 4 GIVING PRINT-MONTH @#@@@@ ELSE OL )@@G@@@E@@@@ SUBTRACT 8 FROM MONTH GIVING PRINT-MONTH. @A@@@@OM )@@G@@ MOVE PROD-SUP-HOURS-CALC @D@@@@ TO MONTHLY-HOURON )@@G@@S-PRINT (PRINT-MONTH). @@@@@@@A@@@@ 410-MOVE-SUP-DEMAND-TO-PRINT.OO )@@G@@@C@@@@ MOVE ZERO TO PROD-SUP-HOURS-CALC. @B@@@@ POP )@@G@@ERFORM 510-ADD-SUP-DEMAND @G@@@@ VARYING SHIFT FROM 1 OQ )@@G@@BY 1 UNTIL SHIFT GREATER THAN 4. @C@@@@ ADD POINT-05 TO PROOR )@@G@@D-SUP-HOURS-CALC. @A@@@@ IF MONTH IS LESS THAN 9 @C@@@@ OS )@@G@@ ADD MONTH, 4 GIVING PRINT-MONTH @#@@@@ ELSE @E@@@@OT )@@G@@ SUBTRACT 8 FROM MONTH GIVING PRINT-MONTH. @A@@@@ OU )@@G@@ MOVE PROD-SUP-HOURS-CALC @D@@@@ TO MONTHLY-HOURS-PRINOV )@@G@@T (PRINT-MONTH). @@@@@@@A@@@@ 411-BATCH-SUP-SHIFT-TOTALS. @D@@@@OW )@@G@@ PERFORM 511-MOVE-SUP-BATCH-SHIFT-PRINT @G@@@@ OX )@@G@@ VARYING MONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. @D@@@@ OY )@@G@@ MOVE TIME-OF-SHIFT (SHIFT) TO HOURS-TITLE. @B@@@@ PERFORMOZ )@@G@@ 612-WRITE-LINE-PAGE-1. @@@@@@@@@@@@@A@@@@ 413-DEMAND-SUP-SHIFT-TOPA )@@G@@TALS. @D@@@@ PERFORM 513-MOVE-SUP-DEMAND-SHIFT-PRNT @G@@@@PB )@@G@@ VARYING MONTH FROM 1 BY 1 UNTIL MONTH GREATER THAN 12. PC )@@G@@@D@@@@ MOVE TIME-OF-SHIFT (SHIFT) TO HOURS-TITLE. @B@@@@ PD )@@G@@ PERFORM 612-WRITE-LINE-PAGE-1. @@@@@@@ @@@@ 416-ADD-PRODUCTIOPE )@@G@@N. @E@@@@ ADD BATCH-RUNS-TOTAL (MONTH, PROD-TEST, SHIFT) PF )@@G@@@E@@@@ DEMAND-RUNS-TOTAL (MONTH, PROD-TEST, SHIFT) @B@@@@PG )@@G@@ TO PROD-RUNS-CALC. @@@@@@@A@@@@ 417-ADD-PROPH )@@G@@DUCTION-BATCH. @E@@@@ ADD BATCH-RUNS-TOTAL (MONTH, PROD-TESPI )@@G@@T, SHIFT) @A@@@@ TO PROD-RUNS-CALC. @@@@@@@A@@@@ PJ )@@G@@ 418-MOVE-PROD-SHIFT-TO-PRINT.@A@@@@ IF MONTH IS LESS THAN 9 PK )@@G@@@C@@@@ ADD MONTH, 4 GIVING PRINT-MONTH @#@@@@ EPL )@@G@@LSE @E@@@@ SUBTRACT 8 FROM MONTH GIVING PRINT-MONTH. PM )@@G@@@E@@@@ MOVE BATCH-RUNS-TOTAL (MONTH, PROD-TEST, SHIFT) @D@@@@PN )@@G@@ TO MONTHLY-RUNS-PRINT (PRINT-MONTH). @@@@@@@A@@@@ PO )@@G@@ 419-ADD-PRODUCTION-DEMAND. @E@@@@ ADD DEMAND-RUNS-TOTAL (MOPP )@@G@@NTH, PROD-TEST, SHIFT) @A@@@@ TO PROD-RUNS-CALC. @@@@@@PQ )@@G@@@B@@@@ 421-MOVE-DEMAND-SHIFT-TO-PRINT. @A@@@@ IF MONPR )@@G@@TH IS LESS THAN 9 @C@@@@ ADD MONTH, 4 GIVING PRINT-MONTH PS )@@G@@@#@@@@ ELSE @E@@@@ SUBTRACT 8 FROM MONTH GIVINPT )@@G@@G PRINT-MONTH. @E@@@@ MOVE DEMAND-RUNS-TOTAL (MONTH, PROD-TPU )@@G@@EST, SHIFT) @D@@@@ TO MONTHLY-RUNS-PRINT (PRINT-MONTH). PV )@@G@@@@@@@@@@@@@@@^@@@@ 465-ADD-SHIFTS. @C@@@@ ADD RUNS IN APW )@@G@@C-BATCH-DATA (SHIFT) @C@@@@ RUNS IN AC-DEMAND-DATA (SHIPX )@@G@@FT) @C@@@@ RUNS IN AC-RT-BATCH-DATA (SHIFT) @C@@@@ PY )@@G@@ RUNS IN AC-RT-DMAND-DATA (SHIFT) @A@@@@ TO NPZ )@@G@@UM-OF-RUNS. @D@@@@ ADD CARDS-IN IN AC-BATCH-DATA (SHIFT) QA )@@G@@@D@@@@ CARDS-IN IN AC-DEMAND-DATA (SHIFT) @D@@@@ QB )@@G@@ CARDS-IN IN AC-RT-BATCH-DATA (SHIFT) @D@@@@ CARQC )@@G@@DS-IN IN AC-RT-DMAND-DATA (SHIFT) @A@@@@ TO CARDS-IQD )@@G@@N-REL.@D@@@@ ADD CARDS-OUT IN AC-BATCH-DATA (SHIFT) @D@@@@QE )@@G@@ CARDS-OUT IN AC-DEMAND-DATA (SHIFT) @D@@@@ QF )@@G@@ CARDS-OUT IN AC-RT-BATCH-DATA (SHIFT) @D@@@@ CARDS-OUTQG )@@G@@ IN AC-RT-DMAND-DATA (SHIFT) @B@@@@ TO CARDS-OUT-RELQH )@@G@@. @C@@@@ ADD STD-PGS IN AC-BATCH-DATA (SHIFT) @C@@@@ QI )@@G@@ STD-PGS IN AC-DEMAND-DATA (SHIFT)@D@@@@ STD-PGS IQJ )@@G@@N AC-RT-BATCH-DATA (SHIFT) @D@@@@ STD-PGS IN AC-RT-DMANQK )@@G@@D-DATA (SHIFT) @B@@@@ TO PAGES-PRINTED. @A@@@@QL )@@G@@ ADD SPC-FORMS (SHIFT) @A@@@@ TO FORMS-MOQM )@@G@@UNTED.@D@@@@ ADD REELS-MTD IN AC-BATCH-DATA (SHIFT) @D@@@@QN )@@G@@ REELS-MTD IN AC-DEMAND-DATA (SHIFT) @D@@@@ QO )@@G@@ REELS-MTD IN AC-RT-BATCH-DATA (SHIFT) @D@@@@ REELS-MTDQP )@@G@@ IN AC-RT-DMAND-DATA (SHIFT) @A@@@@ TO REELS-MOUNT. QQ )@@G@@@D@@@@ ADD TAPE-XFERS IN AC-BATCH-DATA (SHIFT) @D@@@@ QR )@@G@@ TAPE-XFERS IN AC-DEMAND-DATA (SHIFT) @D@@@@ TAPQS )@@G@@E-XFERS IN AC-RT-BATCH-DATA (SHIFT) @D@@@@ TAPE-XFERS IN AQT )@@G@@C-RT-DMAND-DATA (SHIFT) @B@@@@ TO TAPE-DATA-TRANS. QU )@@G@@@C@@@@ ADD RMV-MNTS IN AC-BATCH-DATA (SHIFT)@D@@@@ QV )@@G@@ RMV-MNTS IN AC-DEMAND-DATA (SHIFT) @D@@@@ RMV-MNTS QW )@@G@@IN AC-RT-BATCH-DATA (SHIFT) @D@@@@ RMV-MNTS IN AC-RT-DMAQX )@@G@@ND-DATA (SHIFT) @B@@@@ TO PACKS-MOUNTED. @E@@@@QY )@@G@@ ADD MASS-STOR-XFERS IN AC-BATCH-DATA (SHIFT) @E@@@@ QZ )@@G@@ MASS-STOR-XFERS IN AC-DEMAND-DATA (SHIFT) @E@@@@ RA )@@G@@ MASS-STOR-XFERS IN AC-RT-BATCH-DATA (SHIFT) @E@@@@ MASRB )@@G@@S-STOR-XFERS IN AC-RT-DMAND-DATA (SHIFT) @B@@@@ TO MRC )@@G@@S-DATA-TRANS. @C@@@@ ADD RMV-SECS IN AC-BATCH-DATA (SHIFT)RD )@@G@@@D@@@@ RMV-SECS IN AC-DEMAND-DATA (SHIFT) @D@@@@ RE )@@G@@ RMV-SECS IN AC-RT-BATCH-DATA (SHIFT) @D@@@@ RMVRF )@@G@@-SECS IN AC-RT-DMAND-DATA (SHIFT) @A@@@@ TO PACK-DURG )@@G@@R. @C@@@@ ADD RUNS IN AC-RT-DMAND-DATA (SHIFT) @B@@@@ RH )@@G@@ TO NUM-COM-TRANS. @A@@@@ IF AC-DD EQUALS '3RI )@@G@@2' @E@@@@ ADD TOT-SUPS IN AC-BATCH-DATA (SHIFT) RJ )@@G@@@E@@@@ TOT-SUPS IN AC-DEMAND-DATA (SHIFT) @E@@@@RK )@@G@@ TOT-SUPS IN AC-RT-BATCH-DATA (SHIFT) @E@@@@ RL )@@G@@ TOT-SUPS IN AC-RT-DMAND-DATA (SHIFT) @B@@@@ RM )@@G@@ TO SUPS-SUM (SHIFT)@#@@@@ ELSE @A@@@@ RN )@@G@@ IF AC-DD EQUALS '33' @E@@@@ ADD TOT-SUPS IN AC-BATCH-DARO )@@G@@TA (SHIFT) @E@@@@ TOT-SUPS IN AC-DEMAND-DATA RP )@@G@@(SHIFT) @E@@@@ TOT-SUPS IN AC-RT-BATCH-DATA (SHIFTRQ )@@G@@) @E@@@@ TOT-SUPS IN AC-RT-DMAND-DATA (SHIFT) RR )@@G@@@B@@@@ TO SUPS-SUM (1) @G@@@@ ELSRS )@@G@@E DISPLAY 'NOT A MTHLY SUMMARY RECORD' UPON PRINTER @E@@@@ RT )@@G@@ DISPLAY AC-REC-ID UPON PRINT-DEVICE. @@@@@@@@@@@@@@@@@@@ @@@@RU )@@G@@ 508-ADD-SUP-TOTALS. @F@@@@ ADD BATCH-SUP-HOURS-TOTALRV )@@G@@ (MONTH, PROD-TEST, SHIFT) @F@@@@ DEMAND-SUP-HOURS-TOTARW )@@G@@L (MONTH, PROD-TEST, SHIFT) @C@@@@ TO PROD-SUP-HOURRX )@@G@@S-CALC. @ @@@@ 509-ADD-SUP-BATCH. @F@@@@ ADD BATRY )@@G@@CH-SUP-HOURS-TOTAL (MONTH, PROD-TEST, SHIFT) @B@@@@ TO RZ )@@G@@ PROD-SUP-HOURS-CALC. @ @@@@ 510-ADD-SUP-DEMAND. @F@@@@ SA )@@G@@ ADD DEMAND-SUP-HOURS-TOTAL (MONTH, PROD-TEST, SHIFT) @B@@@@ SB )@@G@@ TO PROD-SUP-HOURS-CALC. @B@@@@ 511-MOVE-SUP-BATCH-SHIFSC )@@G@@T-PRINT. @A@@@@ IF MONTH IS LESS THAN 9 @C@@@@ SD )@@G@@ ADD MONTH, 4 GIVING PRINT-MONTH @#@@@@ ELSE @E@@@@ SE )@@G@@ SUBTRACT 8 FROM MONTH GIVING PRINT-MONTH. @G@@@@ ASF )@@G@@DD POINT-05 BATCH-SUP-HOURS-TOTAL (MONTH, PROD-TEST, SHIFT) @C@@@@ SG )@@G@@ GIVING PROD-SUP-HOURS-CALC. @E@@@@ MOVE PROD-SUPSH )@@G@@-HOURS-CALC TO MONTHLY-HOURS-PRINT @ @@@@ (PRINT-MONTH). SI )@@G@@@@@@@@@B@@@@ 513-MOVE-SUP-DEMAND-SHIFT-PRNT. @A@@@@ ISJ )@@G@@F MONTH IS LESS THAN 9 @C@@@@ ADD MONTH, 4 GIVING PRINT-MSK )@@G@@ONTH @#@@@@ ELSE @E@@@@ SUBTRACT 8 FROM MONTHSL )@@G@@ GIVING PRINT-MONTH. @G@@@@ ADD POINT-05 DEMAND-SUP-HOURS-TSM )@@G@@OTAL (MONTH, PROD-TEST, SHIFT)@C@@@@ GIVING PROD-SUP-HOURSN )@@G@@S-CALC. @E@@@@ MOVE PROD-SUP-HOURS-CALC TO MONTHLY-HOURS-PSO )@@G@@RINT @ @@@@ (PRINT-MONTH). @@@@@@@@@@@@@@@@@@@ @@@@ SP )@@G@@ 612-WRITE-LINE-PAGE-1. @C@@@@ WRITE PRINT-LINE FROM DETAIL-PASQ )@@G@@GE-1. @B@@@@ MOVE SPACES TO DETAIL-PAGE-1. ___LY)@C@@@@ SR )@@G@@ TOTAL-RUNS (MONTH-OF-YEARLY).@E@@@@*[S@@@*SDFF*@A@@@] SS )@@G@@ IDENTIFICATION DIVISION. @ @@@] PROGRAM-ID. H1551070. @^@@@]ST )@@G@@ AUTHOR. R B RUDY.@ @@@] DATE-WRITTEN. 9-18-78. @^@@@] SU )@@G@@ DATE-COMPILED. @ @@@] *REMARKS. ASCII ANS-1974@F@@@] * CREASV )@@G@@TES A DATA PROCESSING SERVICES SUMMARY LISTING BY @G@@@] * TSW )@@G@@HE FULL ACCOUNT CODE WITH TOTAL PAGES BY THE MAJOR 3 DIGIT @G@@@] SX )@@G@@* ACCOUNT CODES, BY BUDGET, BY BUREAU, AND BY DEPUTYSHIP, WITH @G@@@]SY )@@G@@ * AN OVERALL TOTAL FOR THE DEPARTMENT. (ALSO, ACCUMULATE & SZ )@@G@@@G@@@] * PRINT A YEAR-TO-DATE TOTAL UPON EACH OF THE ABOVE CONTRTA )@@G@@OL @G@@@] * BREAKS). TO CREATE BILLING MEMOS FOR APPROPRIATE TB )@@G@@ACCOUNTS. TO@D@@@] * UPDATE THE YEAR-TO-DATE COST SUMMARY FILE. TC )@@G@@@]@@@] * @ @@@] * CHANGE 10 MAY 80 @C@@@] * CTD )@@G@@ONVERT TO ANS 1974 COBOL (ACOB4). @]@@@] * @C@@@] * CTE )@@G@@HANGE #2 07/18/80 D. HEROLD @E@@@] * CHANGE TO INPUT QUITF )@@G@@P-CARDS AND CREATE SORT RECORD@E@@@] * FOR EACH VALID ACCOUNT WHTG )@@G@@ETHER ACTIVE THIS MONTH @#@@@] * OR NOT.@@@#@]@]@@@# * TH )@@G@@@@@#@]@]@@@# * @ @@@] ENVIRONMENT DIVISION. @@@@@]@ @@@]TI )@@G@@ CONFIGURATION SECTION. @ @@@] COPY COMPUTER-NAMES. @^@@@]TJ )@@G@@ SPECIAL-NAMES. @ @@@] COPY DEVICE-NAMES. @@@@@]@ @@@]TK )@@G@@ INPUT-OUTPUT SECTION. @^@@@] FILE-CONTROL. @G@@@] TL )@@G@@ SELECT OPTIONAL CARDIN ASSIGN TO CARD-READER BILL-ADJ-CDS. @D@@@]TM )@@G@@ SELECT CBCF ASSIGN TO MASS-STORAGE CTCF. @F@@@] STN )@@G@@ELECT MTHLY ASSIGN TO MASS-STORAGE MTH-COST-SUM. @E@@@] STO )@@G@@ELECT PRINTR ASSIGN TO PRINTER DP-SRVS-SUM. @E@@@] SELECT TP )@@G@@PRINT2 ASSIGN TO PRINTER DP-SRVS-BILL. @D@@@] SELECT SRT-FITQ )@@G@@LE ASSIGN TO MASS-STORAGE XA. @F@@@] SELECT TBLDISC ASSIGN TOTR )@@G@@ MASS-STORAGE TABLEDISC-JA @E@@@] ACCESS IS DYNAMIC ORGTS )@@G@@ANIZATION IS INDEXED @B@@@] ACTUAL KEY IS JA-KEY.TT )@@G@@@G@@@] SELECT OPTIONAL YTD-IN ASSIGN TO MASS-STORAGE OLD-YTD-STU )@@G@@UM. @F@@@] SELECT YTD-OUT ASSIGN TO MASS-STORAGE NEW-YTD-SUMTV )@@G@@. @ @@@] SELECT ACCOUNT-FILE@A@@@] ASSIGN TO CTW )@@G@@ARD-READER. @@@#@]@]@@@# / @@@#@]@^@@@] DATA DIVISION. TX )@@G@@@^@@@] FILE SECTION. @@@@@]@#@@@] FD CARDIN @E@@@] TY )@@G@@ LABEL RECORDS ARE OMITTED DATA RECORD IS C-CARD. @@@@@]@#@@@] TZ )@@G@@ 01 C-CARD.@E@@@] 02 C-BUDGET PIC X(5UA )@@G@@). @E@@@] 02 C-ACCOUNT PIC X(12). UB )@@G@@@E@@@] 02 C-DISCRIPT PIC X(54). @E@@@]UC )@@G@@ 02 C-AMOUNT PIC S9(7)V99.@@@@@]@#@@@]UD )@@G@@ FD CBCF @F@@@] LABEL RECORDS ARE STANDARD BLOCK CONTUE )@@G@@AINS 1 RECORDS @A@@@] DATA RECORD IS CAT-REC. @@@@@]@A@@@]UF )@@G@@ 01 CAT-REC. COPY CTCF-REC.@@@@@]@#@@@] FD TBLDISC@B@@@]UG )@@G@@ LABEL RECORDS ARE STANDARD @B@@@] BLOCK CONTAINUH )@@G@@S 3360 CHARACTERS @B@@@] RECORDING MODE IS INTERNAL @A@@@]UI )@@G@@ DATA RECORD IS TBL-D. @@@@@]@F@@@] 01 TBL-D USAGE IUJ )@@G@@S DISPLAY-1 PIC X(84). @@@@@]@^@@@] FD ACCOUNTUK )@@G@@-FILE @A@@@] LABEL RECORDS ARE OMITTED@B@@@] RECORD UL )@@G@@CONTAINS 80 CHARACTERS. @ @@@] 01 ACCOUNT-RECORD. @F@@@] UM )@@G@@ 88 END-OF-ACCOUNT-FILE VALUE HIGH-VALUES. @C@@@] UN )@@G@@ 02 FILLER PIC X(15). @^@@@] 02 ACCOUNT. UO )@@G@@@B@@@] 03 FILLER PIC X. @C@@@] 03 UP )@@G@@ ACCOUNT-NUMBER PIC X(11). @C@@@] 02 FILLER PUQ )@@G@@IC X(53). @@@@@]@^@@@] SD SRT-FILE @F@@@] RECORD UR )@@G@@CONTAINS 236 CHARACTERS DATA RECORD IS S-FILE. @@@@@]@#@@@] 01 SUS )@@G@@-FILE.@ @@@# 02 M-SRT-SEQ. @ @@@# 03 M-BUDGEUT )@@G@@T. @H@@@] 04 M-DEPT PIC X. UU )@@G@@ 1-1 @H@@@] 04 M-BUR PUV )@@G@@IC X. 2-2 @H@@@] 04 M-SEQ UW )@@G@@ PIC XXX. 3-5 @H@@@] 03 M-ACCT.UX )@@G@@ 6-17 @D@@@] UY )@@G@@ 04 M-ACCT1 PIC XXX.@E@@@] 04 M-ACCTUZ )@@G@@2 PIC X(9). @ @@@] 03 M-PERIOD. VA )@@G@@@H@@@] 04 M-YR PIC XX. VB )@@G@@ 18-19@D@@@] 04 M-YR9 REDEFINES M-YR PIC 99.VC )@@G@@@H@@@] 04 M-MO PIC XX. VD )@@G@@ 20-21@D@@@] 04 M-MO9 REDEFINES M-MO PIC 99.VE )@@G@@@H@@@] 03 FILLER PIC XXX. VF )@@G@@ 22-24@B@@@] 02 M-ACCT-SEQ USAGE IS COMP. @H@@@] VG )@@G@@ 03 M-TOT-RUNS PIC S9(10). 25-28VH )@@G@@@B@@@] 03 M-SHIFTS OCCURS 3 TIMES.@H@@@] 04 VI )@@G@@ M-SHIFT-NO PIC S9(5)V9999. 29- @H@@@] VJ )@@G@@ 04 M-SHIFT-COST PIC S9(7)V99. -52VK )@@G@@@H@@@] 03 M-CD-IN-NO PIC S9(10). VL )@@G@@ 53-56@H@@@] 03 M-CD-IN-COST PIC S9(VM )@@G@@7)V99. 57-60@H@@@] 03 M-CD-OUT-NO VN )@@G@@ PIC S9(10). 61-64@H@@@] 03 M-CD-OUT-COSTVO )@@G@@ PIC S9(7)V99. 65-68@H@@@] 03 MVP )@@G@@-PGS-NO PIC S9(10). 69-72@H@@@] VQ )@@G@@ 03 M-PGS-COST PIC S9(7)V99. 73-76VR )@@G@@@H@@@] 03 M-FORM-NO PIC S9(10). VS )@@G@@ 77-80@H@@@] 03 M-FORM-COST PIC S9(VT )@@G@@7)V99. 81-84@H@@@] 03 M-REELS-NO VU )@@G@@ PIC S9(10). 85-88@H@@@] 03 M-REELS-COST VV )@@G@@ PIC S9(7)V99. 89-92@H@@@] 03 MVW )@@G@@-FIL-1 PIC 9. 93 @I@@@] VX )@@G@@ 03 M-TP-TRANS-NO PIC S9(18). 94-10VY )@@G@@0 @I@@@] 03 M-TP-TRANS-COST PIC S9(7)V99.VZ )@@G@@ 101-104 @I@@@] 03 M-REELIB-NO WA )@@G@@ PIC S9(10). 105-108 @I@@@] 03 M-REELIWB )@@G@@B-COST PIC S9(7)V99. 109-112 @I@@@] WC )@@G@@ 03 M-PACKS-NO PIC S9(10). 113-1WD )@@G@@16 @I@@@] 03 M-PACKS-COST PIC S9(7)V99.WE )@@G@@ 117-120 @H@@@] 03 M-FIL-2 WF )@@G@@ PIC 9. 121 @I@@@] 03 M-CAT-TRK-NO WG )@@G@@ PIC S9(18). 122-128 @I@@@] WH )@@G@@ 03 M-CAT-TRK-COST PIC S9(7)V99. 129-132 WI )@@G@@@H@@@] 03 M-FIL-3 PIC 9. WJ )@@G@@ 133 @I@@@] 03 M-MS-TRANS-NO PIC S9(WK )@@G@@18). 134-140 @I@@@] 03 M-MS-TRANS-COST WL )@@G@@ PIC S9(7)V99. 141-144 @I@@@] 03 MWM )@@G@@-P-DURATION-NO PIC S9(10). 145-148 @I@@@]WN )@@G@@ 03 M-P-DURATION-COST PIC S9(7)V99. WO )@@G@@ 149-152 @I@@@] 03 M-DE-RCDS-IN PIC S9(WP )@@G@@10). 153-156 @I@@@] 03 M-DE-RCDS-VER WQ )@@G@@ PIC S9(10). 157-160 @I@@@] 03 MWR )@@G@@-DE-KEYS-IN PIC S9(10). 161-164 @I@@@]WS )@@G@@ 03 M-DE-KEYS-VER PIC S9(10). WT )@@G@@ 165-168 @I@@@] 03 M-DE-HRS-IN-NO PIC S9(WU )@@G@@7)V9. 169-172 @I@@@] 03 M-DE-HRS-IN-COST WV )@@G@@ PIC S9(7)V99. 173-176 @I@@@] 03 MWW )@@G@@-DE-HRS-VER-NO PIC S9(7)V9. 177-180 @I@@@]WX )@@G@@ 03 M-DE-HRS-VER-COST PIC S9(7)V99. WY )@@G@@ 181-184 @I@@@] 03 M-AN-PROG-HRS PIC S9(WZ )@@G@@7)V9. 185-188 @I@@@] 03 M-AN-PROG-COST XA )@@G@@ PIC S9(7)V99. 189-192 @I@@@] 03 MXB )@@G@@-SOFTWARE PIC S9(7)V99. 193-196 @I@@@]XC )@@G@@ 03 M-HARDWARE PIC S9(7)V99. XD )@@G@@ 197-200 @I@@@] 03 M-OTHER-COST PIC S9(XE )@@G@@7)V99. 201-204 @I@@@] 03 M-OVRHD-CMPR XF )@@G@@ PIC S999V9(5). 205-208 @I@@@] 03 MXG )@@G@@-OVRHD-DE PIC S999V9(5). 209-212 @I@@@]XH )@@G@@ 03 M-OVRHD-AN-PROG PIC S999V9(5). XI )@@G@@ 213-216 @I@@@] 03 M-BENFT-CMPR PIC S99XJ )@@G@@9V9(5). 217-220 @I@@@] 03 M-BENFT-DE XK )@@G@@ PIC S999V9(5). 221-224 @I@@@] 03 MXL )@@G@@-BENFT-AN-PROG PIC S999V9(5). 225-228 @I@@@]XM )@@G@@ 03 M-EXPENDITURE PIC S9(7)V99. XN )@@G@@ 229-232 @I@@@] 03 M-NO-TRANS PIC S9(XO )@@G@@10). 233-236 @@@@@]@#@@@] FD MTHLY @F@@@] XP )@@G@@ LABEL RECORDS ARE STANDARD BLOCK CONTAINS 13 RECORDS @B@@@] XQ )@@G@@ DATA RECORD IS MTHLY-COST. @@@@@]@^@@@] 01 MTHLY-COST. XR )@@G@@@F@#@] 88 END-OF-MNTHLY-FILE VALUE HIGH-VALUES. XS )@@G@@@F@@@# 88 END-OF-MTHLY-FILE VALUE HIGH-VALUES. XT )@@G@@@C@@@] 02 FILLER PIC X(5). @C@@@] 0XU )@@G@@2 MTHLY-ACCT PIC X(12). @ @@@] 02 MTHLY-PERIOD. XV )@@G@@@B@@@] 03 MTHLY-YR PIC 99.@B@@@] 03 XW )@@G@@ MTHLY-MO PIC 99.@C@@@] 02 FILLER PIC X(2XX )@@G@@15). @@@@@]@#@@@] FD YTD-IN @ @#@] 02 M-SRT-SEQ. XY )@@G@@@ @#@] 03 M-BUDGET. @F@@@] LABEL RECORDS ARE SXZ )@@G@@TANDARD BLOCK CONTAINS 13 RECORDS @A@@@] DATA RECORD IS YN-CYA )@@G@@OST. @@@@@]@^@@@] 01 YN-COST. @ @@@] 02 YN-SRT-SEQYB )@@G@@. @ @@@] 03 YN-BUDGET. @H@@@] 04 YN-DEPYC )@@G@@T PIC X. 1-1 @H@@@] YD )@@G@@ 04 YN-BUR PIC X. 2-2 @H@@@]YE )@@G@@ 04 YN-SEQ PIC XXX. YF )@@G@@ 3-5 @H@@@] 03 YN-ACCT. YG )@@G@@ 6-17 @D@@@] 04 YN-ACCT1 PIYH )@@G@@C XXX.@E@@@] 04 YN-ACCT2 PIC X(9). YI )@@G@@@ @@@] 03 YN-PERIOD. @H@@@] 04 YN-YR YJ )@@G@@ PIC XX. 18-19@H@@@] 04 YK )@@G@@YN-MO PIC XX. 20-21@D@@@] YL )@@G@@ 04 YN-MO9 REDEFINES YN-MO PIC 99.@H@@@] 03 FYM )@@G@@ILLER PIC XXX. 22-24@B@@@] YN )@@G@@ 02 YN-ACCT-SEQ USAGE IS COMP. @H@@@] 03 YN-TOT-RUNS YO )@@G@@ PIC S9(10). 25-28@B@@@] 03 YNYP )@@G@@-SHIFTS OCCURS 3 TIMES.@H@@@] 04 YN-SHIFT-NO YQ )@@G@@ PIC S9(5)V9999. 29- @H@@@] 04 YN-SHIFT-COSYR )@@G@@T PIC S9(7)V99. -52@H@@@] 03 YNYS )@@G@@-CD-IN-NO PIC S9(10). 53-56@H@@@] YT )@@G@@ 03 YN-CD-IN-COST PIC S9(7)V99. 57-60YU )@@G@@@H@@@] 03 YN-CD-OUT-NO PIC S9(10). YV )@@G@@ 61-64@H@@@] 03 YN-CD-OUT-COST PIC S9(YW )@@G@@7)V99. 65-68@H@@@] 03 YN-PGS-NO YX )@@G@@ PIC S9(10). 69-72@H@@@] 03 YN-PGS-COST YY )@@G@@ PIC S9(7)V99. 73-76@H@@@] 03 YNYZ )@@G@@-FORM-NO PIC S9(10). 77-80@H@@@] ZA )@@G@@ 03 YN-FORM-COST PIC S9(7)V99. 81-84ZB )@@G@@@H@@@] 03 YN-REELS-NO PIC S9(10). ZC )@@G@@ 85-88@H@@@] 03 YN-REELS-COST PIC S9(ZD )@@G@@7)V99. 89-92@H@@@] 03 YN-FIL-1 ZE )@@G@@ PIC 9. 93 @I@@@] 03 YN-TP-TRANS-NOZF )@@G@@ PIC S9(18). 94-100 @I@@@] ZG )@@G@@ 03 YN-TP-TRANS-COST PIC S9(7)V99. 101-104 ZH )@@G@@@I@@@] 03 YN-REELIB-NO PIC S9(10). ZI )@@G@@ 105-108 @I@@@] 03 YN-REELIB-COST PZJ )@@G@@IC S9(7)V99. 109-112 @I@@@] 03 YN-PACKS-NO ZK )@@G@@ PIC S9(10). 113-116 @I@@@] ZL )@@G@@ 03 YN-PACKS-COST PIC S9(7)V99. 117-120 ZM )@@G@@@H@@@] 03 YN-FIL-2 PIC 9. ZN )@@G@@ 121 @I@@@] 03 YN-CAT-TRK-NO PIC S9(ZO )@@G@@18). 122-128 @I@@@] 03 YN-CAT-TRK-COST ZP )@@G@@ PIC S9(7)V99. 129-132 @H@@@] 03 YNZQ )@@G@@-FIL-3 PIC 9. 133 @I@@@] ZR )@@G@@ 03 YN-MS-TRANS-NO PIC S9(18). 134-1ZS )@@G@@40 @I@@@] 03 YN-MS-TRANS-COST PIC S9(7)V99.ZT )@@G@@ 141-144 @I@@@] 03 YN-P-DURATION-NO ZU )@@G@@ PIC S9(10). 145-148 @I@@@] 03 YN-P-DURZV )@@G@@ATION-COST PIC S9(7)V99. 149-152 @I@@@] ZW )@@G@@ 03 YN-DE-RCDS-IN PIC S9(10). 153-1ZX )@@G@@56 @I@@@] 03 YN-DE-RCDS-VER PIC S9(10). ZY )@@G@@ 157-160 @I@@@] 03 YN-DE-KEYS-IN ZZ )@@G@@ PIC S9(10). 161-164 @I@@@] 03 YN-DE-KEAA )@@G@@YS-VER PIC S9(10). 165-168 @I@@@] AB )@@G@@ 03 YN-DE-HRS-IN-NO PIC S9(7)V9. 169-1AC )@@G@@72 @I@@@] 03 YN-DE-HRS-IN-COST PIC S9(7)V99.AD )@@G@@ 173-176 @I@@@] 03 YN-DE-HRS-VER-NO AE )@@G@@ PIC S9(7)V9. 177-180 @I@@@] 03 YN-DE-HRAF )@@G@@S-VER-COST PIC S9(7)V99. 181-184 @I@@@] AG )@@G@@ 03 YN-AN-PROG-HRS PIC S9(7)V9. 185-1AH )@@G@@88 @I@@@] 03 YN-AN-PROG-COST PIC S9(7)V99.AI )@@G@@ 189-192 @I@@@] 03 YN-SOFTWARE AJ )@@G@@ PIC S9(7)V99. 193-196 @I@@@] 03 YN-HARDWAK )@@G@@ARE PIC S9(7)V99. 197-200 @I@@@] AL )@@G@@ 03 YN-OTHER-COST PIC S9(7)V99. 201-2AM )@@G@@04 @I@@@] 03 YN-OVRHD-CMPR PIC S999V9(5)AN )@@G@@. 205-208 @I@@@] 03 YN-OVRHD-DE AO )@@G@@ PIC S999V9(5). 209-212 @I@@@] 03 YN-OVRHDAP )@@G@@-AN-PROG PIC S999V9(5). 213-216 @I@@@] AQ )@@G@@ 03 YN-BENFT-CMPR PIC S999V9(5). 217-2AR )@@G@@20 @I@@@] 03 YN-BENFT-DE PIC S999V9(5)AS )@@G@@. 221-224 @I@@@] 03 YN-BENFT-AN-PROG AT )@@G@@ PIC S999V9(5). 225-228 @I@@@] 03 YN-EXPENAU )@@G@@DITURE PIC S9(7)V99. 229-232 @I@@@] AV )@@G@@ 03 YN-NO-TRANS PIC S9(10). 233-2AW )@@G@@36 @@@@@]@#@@@] FD YTD-OUT@F@@@] LABEL RECORDS ARE SAX )@@G@@TANDARD BLOCK CONTAINS 13 RECORDS @A@@@] DATA RECORD IS YO-CAY )@@G@@OST. @@@@@]@^@@@] 01 YO-COST. @ @@@] 02 YO-SRT-SEQAZ )@@G@@. @ @@@] 03 YO-BUDGET. @H@@@] 04 YO-DEPBA )@@G@@T PIC X. 1-1 @H@@@] BB )@@G@@ 04 YO-BUR PIC X. 2-2 @H@@@]BC )@@G@@ 04 YO-SEQ PIC XXX. BD )@@G@@ 3-5 @H@@@] 03 YO-ACCT. BE )@@G@@ 6-17 @D@@@] 04 YO-ACCT1 PIBF )@@G@@C XXX.@E@@@] 04 YO-ACCT2 PIC X(9). BG )@@G@@@ @@@] 03 YO-PERIOD. @H@@@] 04 YO-YR BH )@@G@@ PIC XX. 18-19@H@@@] 04 BI )@@G@@YO-MO PIC XX. 20-21@H@@@] BJ )@@G@@ 03 FILLER PIC XXX. 22-24BK )@@G@@@B@@@] 02 YO-ACCT-SEQ USAGE IS COMP. @H@@@] 03 YOBL )@@G@@-TOT-RUNS PIC S9(10). 25-28@B@@@] BM )@@G@@ 03 YO-SHIFTS OCCURS 3 TIMES.@H@@@] 04 YO-SHIFT-NO BN )@@G@@ PIC S9(5)V9999. 29- @H@@@] 04 BO )@@G@@YO-SHIFT-COST PIC S9(7)V99. -52@H@@@] BP )@@G@@ 03 YO-CD-IN-NO PIC S9(10). 53-56BQ )@@G@@@H@@@] 03 YO-CD-IN-COST PIC S9(7)V99. BR )@@G@@ 57-60@H@@@] 03 YO-CD-OUT-NO PIC S9(BS )@@G@@10). 61-64@H@@@] 03 YO-CD-OUT-COST BT )@@G@@ PIC S9(7)V99. 65-68@H@@@] 03 YO-PGS-NO BU )@@G@@ PIC S9(10). 69-72@H@@@] 03 YOBV )@@G@@-PGS-COST PIC S9(7)V99. 73-76@H@@@] BW )@@G@@ 03 YO-FORM-NO PIC S9(10). 77-80BX )@@G@@@H@@@] 03 YO-FORM-COST PIC S9(7)V99. BY )@@G@@ 81-84@H@@@] 03 YO-REELS-NO PIC S9(BZ )@@G@@10). 85-88@H@@@] 03 YO-REELS-COST CA )@@G@@ PIC S9(7)V99. 89-92@H@@@] 03 YO-FIL-1 CB )@@G@@ PIC 9. 93 @I@@@] 03 YOCC )@@G@@-TP-TRANS-NO PIC S9(18). 94-100 @I@@@]CD )@@G@@ 03 YO-TP-TRANS-COST PIC S9(7)V99. CE )@@G@@ 101-104 @I@@@] 03 YO-REELIB-NO PIC S9(CF )@@G@@10). 105-108 @I@@@] 03 YO-REELIB-COST CG )@@G@@ PIC S9(7)V99. 109-112 @I@@@] 03 YOCH )@@G@@-PACKS-NO PIC S9(10). 113-116 @I@@@]CI )@@G@@ 03 YO-PACKS-COST PIC S9(7)V99. CJ )@@G@@ 117-120 @H@@@] 03 YO-FIL-2 PIC 9. CK )@@G@@ 121 @I@@@] 03 YO-CAT-TRK-NO CL )@@G@@ PIC S9(18). 122-128 @I@@@] 03 YO-CAT-TCM )@@G@@RK-COST PIC S9(7)V99. 129-132 @H@@@] CN )@@G@@ 03 YO-FIL-3 PIC 9. 133 CO )@@G@@@I@@@] 03 YO-MS-TRANS-NO PIC S9(18). CP )@@G@@ 134-140 @I@@@] 03 YO-MS-TRANS-COST PCQ )@@G@@IC S9(7)V99. 141-144 @I@@@] 03 YO-P-DURATION-CR )@@G@@NO PIC S9(10). 145-148 @I@@@] CS )@@G@@ 03 YO-P-DURATION-COST PIC S9(7)V99. 149-152 CT )@@G@@@I@@@] 03 YO-DE-RCDS-IN PIC S9(10). CU )@@G@@ 153-156 @I@@@] 03 YO-DE-RCDS-VER PCV )@@G@@IC S9(10). 157-160 @I@@@] 03 YO-DE-KEYS-IN CW )@@G@@ PIC S9(10). 161-164 @I@@@] CX )@@G@@ 03 YO-DE-KEYS-VER PIC S9(10). 165-168 CY )@@G@@@I@@@] 03 YO-DE-HRS-IN-NO PIC S9(7)V9. CZ )@@G@@ 169-172 @I@@@] 03 YO-DE-HRS-IN-COST PDA )@@G@@IC S9(7)V99. 173-176 @I@@@] 03 YO-DE-HRS-VER-DB )@@G@@NO PIC S9(7)V9. 177-180 @I@@@] DC )@@G@@ 03 YO-DE-HRS-VER-COST PIC S9(7)V99. 181-184 DD )@@G@@@I@@@] 03 YO-AN-PROG-HRS PIC S9(7)V9. DE )@@G@@ 185-188 @I@@@] 03 YO-AN-PROG-COST PDF )@@G@@IC S9(7)V99. 189-192 @I@@@] 03 YO-SOFTWARE DG )@@G@@ PIC S9(7)V99. 193-196 @I@@@] DH )@@G@@ 03 YO-HARDWARE PIC S9(7)V99. 197-200 DI )@@G@@@I@@@] 03 YO-OTHER-COST PIC S9(7)V99. DJ )@@G@@ 201-204 @I@@@] 03 YO-OVRHD-CMPR PDK )@@G@@IC S9(5)V999. 205-208 @I@@@] 03 YO-OVRHD-DE DL )@@G@@ PIC S9(5)V999. 209-212 @I@@@] DM )@@G@@ 03 YO-OVRHD-AN-PROG PIC S9(5)V999. 213-216 DN )@@G@@@I@@@] 03 YO-BENFT-CMPR PIC S9(5)V999. DO )@@G@@ 217-220 @I@@@] 03 YO-BENFT-DE PDP )@@G@@IC S9(5)V999. 221-224 @I@@@] 03 YO-BENFT-AN-PRDQ )@@G@@OG PIC S9(5)V999. 225-228 @I@@@] DR )@@G@@ 03 YO-EXPENDITURE PIC S9(7)V99. 229-232 DS )@@G@@@I@@@] 03 YO-NO-TRANS PIC S9(10). DT )@@G@@ 233-236 @@@@@]@#@@@] FD PRINTR @E@@@] LABEL RDU )@@G@@ECORDS ARE OMITTED DATA RECORD IS PRINT. @@@@@]@E@@@] 01 PRINT DV )@@G@@ PIC X(132). @@@@@]@#@@@] FD PRINT2 DW )@@G@@@E@@@] LABEL RECORDS ARE OMITTED DATA RECORD IS PRINTB @D@@@]DX )@@G@@ VALUE OF FORMS-REQUEST IS '1PLAIN'. @@@@@]@E@@@] DY )@@G@@ 01 PRINTB PIC X(132). @@@#@]@]@@@# DZ )@@G@@/ @A@@@] WORKING-STORAGE SECTION. @E@@@] 77 ADJ VAEA )@@G@@LUE 50 PIC 999. @E@@@] 77 ADJ-HOLD EB )@@G@@ PIC 999. @E@@@] 77 BCTR EC )@@G@@ PIC S9(12)V999999 COMP. @I@@@] 77 CORE-S VALUE 15000 ED )@@G@@ PIC S9(10) COMP. SORTPRM @E@@@] 77 DASHES EE )@@G@@VALUE '_______________________' PIC X(25).@F@@@] 77 DATE-AREA EF )@@G@@ PIC X(6) DISP-1. @F@@@] 77 DATE-8 EG )@@G@@ PIC X(8) DISP-1. @E@@@] 77 INDICATOR VALEH )@@G@@UE '1' PIC X DISP-1.@F@@@] 77 H-CTR VALUE 0 EI )@@G@@ PIC S9(7)V99 COMP. @D@@@] 77 JA VALUE 0 EJ )@@G@@ PIC 9. @G@@@] 77 LCTR VALUE 0 EK )@@G@@ PIC S9(7)V99999 COMP. @F@@@] 77 LPCT VALUE 0 EL )@@G@@ PIC S9V9999 COMP. @D@@@] 77 MAX VALUE 0 EM )@@G@@ PIC 9. @E@@@] 77 NBRS VALUE 0 PIC S9(1EN )@@G@@8) COMP. @F@@@] 77 PAG PIC S9(EO )@@G@@10) COMP. @F@@@] 77 P-EDIT1 PIC ZZ,EP )@@G@@ZZZ.9999. @G@@@] 77 P-EDIT2 PIC ZZZEQ )@@G@@,ZZZ,ZZZ,ZZZ. @E@@@] 77 P-EDIT2A PIC ZZZ,ER )@@G@@ZZZ,ZZZ. @E@@@] 77 P-EDIT3 PIC ZZZES )@@G@@.9(5).@F@@@] 77 P-EDIT5 PIC Z,ZZZ,ZZZET )@@G@@.99. @E@@@] 77 P-EDIT5N PIC --,---,--9.99. EU )@@G@@@F@@@] 77 P-EDIT6 PIC Z,ZZZ.999. EV )@@G@@@F@@@] 77 P-EDIT7 PIC ZZ,ZZZ.99. EW )@@G@@@E@@@] 77 P-EDIT7N PIC ----,--9.99. @F@@@]EX )@@G@@ 77 P-EDIT8 PIC Z,ZZZ,ZZZ.9. @I@@@]EY )@@G@@ 77 Q PIC S9(10) COMP. EZ )@@G@@SUBSCRPT @I@@@] 77 Q1 PIC S9(FA )@@G@@10) COMP. SUBSCRPT @I@@@] 77 Q2 FB )@@G@@ PIC S9(10) COMP. SUBSCRPT @I@@@] 77 Q3 FC )@@G@@ PIC S9(10) COMP. SUBSCRPT @I@@@]FD )@@G@@ 77 Q4 PIC S9(10) COMP. FE )@@G@@SUBSCRPT @F@@@] 77 Q5 PIC S9(FF )@@G@@10) COMP. @I@@@] 77 REC-L VALUE 39 PIC S9(1FG )@@G@@0) COMP. SORTPRM @I@@@] 77 REC-V VALUE 2000 FH )@@G@@ PIC S9(10) COMP. SORTPRM @I@@@] 77 STAT FI )@@G@@VALUE 0 PIC S9(10) COMP. SORTPRM @F@@@]FJ )@@G@@ 77 TYMES VALUE 2 PIC S999 COMP. @F@@@]FK )@@G@@ 77 W-CTR1 VALUE 0 PIC S9(6)V9(4). @F@@@]FL )@@G@@ 77 W-CTR3 VALUE 0 PIC S9(7)V99 COMP. @F@@@]FM )@@G@@ 77 W-CTR4 VALUE 0 PIC S9(7)V99 COMP. @F@@@]FN )@@G@@ 77 WS-EXPENDITURE VALUE 0 PIC S9(7)V99 COMP. @@@@@]FO )@@G@@@^@@@] 01 ADJ-CARDS. @B@@@] 02 ADJCARD OCCURS 50 TIMFP )@@G@@ES. @ @@@] 03 ADJ-BUDGET. @D@@@] 04 ADJ-DFQ )@@G@@EPT PIC X. @D@@@] 04 ADJ-BUR FR )@@G@@ PIC X. @E@@@] 04 ADJ-SEQ PFS )@@G@@IC XXX. @ @@@] 03 ADJ-ACCOUNT. @E@@@] 04 FT )@@G@@ ADJ-ACCT1 PIC XXX. @E@@@] 04 ADJ-AFU )@@G@@CCT2 PIC X(9). @E@@@] 03 ADJ-DISCRIPT FV )@@G@@ PIC X(54). @E@@@] 03 ADJ-AMOUNT FW )@@G@@ PIC S9(7)V99.@@@@@]@ @@@] 01 BILLING-LINES. @ @@@]FX )@@G@@ 02 BILL-LINE1. @G@@@] 03 FILLER VALUE 'FROM:FY )@@G@@ DIRECTOR ' PIC X(29).@G@@@] 03 FILLER VALUE FZ )@@G@@' TO: ' PIC X(16).@G@@@] 03 BILL-1AGA )@@G@@ PIC X(31).@ @@@] 02 BILGB )@@G@@L-LINE2. @G@@@] 03 FILLER VALUE ' DATA PROCESSINGC )@@G@@G DIVI' PIC X(29).@G@@@] 03 FILLER VALUE 'SION 'GD )@@G@@ PIC X(16).@G@@@] 03 BILL-2A GE )@@G@@ PIC X(31).@ @@@] 02 BILL-LINE3. @G@@@]GF )@@G@@ 03 FILLER VALUE 'SUBJECT: COST OF DATA PROCESS' PIC X(29).GG )@@G@@@G@@@] 03 FILLER VALUE 'ING SERVICES FOR THE MONTH OF' PIC GH )@@G@@X(29).@G@@@] 03 BILL-3A GI )@@G@@ PIC X(16).@G@@@] 03 FILLER VALUE SPACE GJ )@@G@@ PIC XX. @ @@@] 02 BILL-LINE4. @G@@@] GK )@@G@@ 03 FILLER VALUE ' FOR ' PIC X(13).@G@@@] GL )@@G@@ 03 BILL-4A PIC X(34).@G@@@]GM )@@G@@ 03 FILLER VALUE SPACE PIC X(29).GN )@@G@@@ @@@] 02 BILL-LINE5. @G@@@] 03 FILLER VALUE GO )@@G@@'DATA ENTRY/VERIFY ' PIC X(19).@E@@@] 03 BILL-5AGP )@@G@@ PIC Z,ZZZ.9. @G@@@] 03 FILLER VALUE GQ )@@G@@' HRS @ ' PIC X(7). @E@@@] 03 BILL-5BGR )@@G@@ PIC ZZ.99999.@G@@@] 03 FILLER VALUE GS )@@G@@' PER HR ' PIC X(8). @G@@@] 03 BILL-5CGT )@@G@@ VALUE SPACE PIC X(7). @G@@@] 03 FGU )@@G@@ILLER VALUE SPACE PIC X(10).@ @@@] 0GV )@@G@@2 BILL-LINE6. @G@@@] 03 FILLER VALUE 'ANALYSIS/PROGRAMMGW )@@G@@ING ' PIC X(22).@E@@@] 03 BILL-6A GX )@@G@@ PIC Z,ZZZ.9. @G@@@] 03 FILLER VALUE ' HRS @ ' GY )@@G@@ PIC X(7). @E@@@] 03 BILL-6B GZ )@@G@@ PIC ZZ.99999.@G@@@] 03 FILLER VALUE ' PER HR ' HA )@@G@@ PIC X(17).@G@@@] 03 BILL-6C VALUE SPACE HB )@@G@@ PIC X(7). @G@@@] 03 FILLER VALUE SPACEHC )@@G@@ PIC X(7). @ @@@] 02 BILL-LINE7. HD )@@G@@@G@@@] 03 FILLER VALUE 'COMPUTER RELATED COSTS:' PIC HE )@@G@@X(23).@G@@@] 03 FILLER VALUE SPACES HF )@@G@@ PIC X(43).@ @@@] 02 BILL-LINE8. @G@@@] 03 FHG )@@G@@ILLER VALUE ' TOTAL NUMBER OF PROCESSIN' PIC X(29).@G@@@] HH )@@G@@ 03 FILLER VALUE 'G HOURS (SUP) - ' PIC X(16).@F@@@] HI )@@G@@ 03 BILL-8A PIC ZZ,ZZZ.9999. @G@@@] HJ )@@G@@ 03 FILLER VALUE SPACE PIC X(6). @ @@@]HK )@@G@@ 02 BILL-LINE8-1. @G@@@] 03 FILLER VALUE SPACE HL )@@G@@ PIC X(6). @G@@@] 03 BILL-81A HM )@@G@@ PIC X(25).@F@@@] 03 BILL-81HN )@@G@@B PIC ZZ,ZZZ.9999. @G@@@] 03 FILLER HO )@@G@@VALUE ' @ ' PIC XXX. @F@@@] 03 BHP )@@G@@ILL-81C PIC ZZZ.99999. @G@@@] 03 FHQ )@@G@@ILLER VALUE ' PER HR ' PIC X(8). @ @@@] 0HR )@@G@@2 BILL-LINE9. @G@@@] 03 FILLER VALUE SPACE HS )@@G@@ PIC X(4). @G@@@] 03 BILL-9A HT )@@G@@ PIC X(26).@F@@@] 03 BILL-9B HU )@@G@@ PIC ZZ,ZZZ,ZZZ,ZZZ.@G@@@] 03 FILLER VALUE ' ' HV )@@G@@ PIC XXX. @E@@@] 03 BILL-9C HW )@@G@@ PIC ZZZZ.999.@G@@@] 03 BILL-9D HX )@@G@@ PIC X(5). @G@@@] 03 FILLER VALUE HY )@@G@@SPACE PIC X(6). @ @@@] 02 BILL-LINEHZ )@@G@@11. @G@@@] 03 FILLER VALUE 'COMMUNICATIONS - SOFTWARE ' IA )@@G@@ PIC X(26).@G@@@] 03 FILLER VALUE SPACES IB )@@G@@ PIC X(40).@ @@@] 02 BILL-LINE12. @G@@@] IC )@@G@@ 03 FILLER VALUE '** TOTAL COMPUTER RELATED ' PIC X(26).@G@@@] ID )@@G@@ 03 FILLER VALUE 'COSTS ** ' PIC X(10).@G@@@]IE )@@G@@ 03 BILL-12A VALUE SPACES PIC X(7). IF )@@G@@@G@@@] 03 FILLER VALUE SPACES PIC IG )@@G@@X(23).@ @@@] 02 BILL-LINE13. @G@@@] 03 FILLER IH )@@G@@VALUE 'COMMUNICATIONS - HARDWARE ' PIC X(26).@G@@@] 03 FII )@@G@@ILLER VALUE SPACES PIC X(40).@ @@@] 0IJ )@@G@@2 BILL-LINE14. @G@@@] 03 BILL-14A IK )@@G@@ PIC X(8). @G@@@] 03 BILL-14B IL )@@G@@ PIC X(54).@G@@@] 03 FILLER VALUE SPACESIM )@@G@@ PIC X(4). @ @@@] 02 BILL-LINE16. IN )@@G@@@G@@@] 03 FILLER VALUE 'OVERHEAD APPLICABLE TO SALARI' PIC IO )@@G@@X(29).@G@@@] 03 FILLER VALUE 'ES INCLUDED IN THE AMOUNT OF IP )@@G@@' PIC X(29).@F@@@] 03 BILL-16A PIC Z,IQ )@@G@@ZZZ.99. @ @@@] 02 BILL-LINE17. @G@@@] 03 FIR )@@G@@ILLER VALUE ' IN ABOVE COSTS ' PIC X(29).@G@@@] IS )@@G@@ 03 FILLER VALUE SPACES PIC X(37).@ @@@] IT )@@G@@ 02 BILL-LINE18. @G@@@] 03 FILLER VALUE 'EMPLOYEE BEIU )@@G@@NEFITS APPLICABLE ' PIC X(29).@G@@@] 03 FILLER VALUE 'TO SAIV )@@G@@LARIES INCLUDED IN THE A' PIC X(29).@G@@@] 03 FILLER VALUE IW )@@G@@'MOUNT OF' PIC X(8). @ @@@] 02 BILL-LINEIX )@@G@@19. @F@@@] 03 BILL-19A PIC ZZ,ZZZ.99IY )@@G@@. @G@@@] 03 FILLER VALUE ' IN ABOVE COSTS IZ )@@G@@' PIC X(29).@ @@@] 02 BILL-LINE20. @G@@@] 03 BJA )@@G@@ILL-20A PIC X(6). @E@@@] JB )@@G@@ 03 BILL-20B PIC ZZZ.9. @G@@@] 03 FJC )@@G@@ILLER VALUE ' PCT OF ACCOUNT ' PIC X(16).@G@@@] JD )@@G@@ 03 BILL-20C PIC XXX. @G@@@] JE )@@G@@ 03 BILL-20D PIC X(12).@G@@@]JF )@@G@@ 03 FILLER VALUE 'COSTS INCLUDED ' PIC X(34).JG )@@G@@@@@@@]@^@@@] 01 BILL-8-TBL. @G@@@] 02 FILLER VALUE JH )@@G@@'SUP HRS - FIRST SHIFT - ' PIC X(25).@G@@@] 02 FILLER JI )@@G@@VALUE ' PRIME SHIFT - ' PIC X(25).@G@@@] 02 FJJ )@@G@@ILLER VALUE ' THIRD SHIFT - ' PIC X(25).@@@@@]@B@@@] JK )@@G@@ 01 BILL-8TBL REDEFINES BILL-8-TBL.@G@@@] 02 B-8-TBL OCCURJL )@@G@@S 3 TIMES PIC X(25).@@@@@]@^@@@] 01 BILL-9AJM )@@G@@-TBL. @G@@@] 02 FILLER VALUE 'TOTAL CARDS READ / K ' JN )@@G@@ PIC X(27).@G@@@] 02 FILLER VALUE 'TOTAL CARDS PUNCHED / JO )@@G@@K ' PIC X(27).@G@@@] 02 FILLER VALUE 'TOTAL PAGES CREATEDJP )@@G@@ / K ' PIC X(27).@G@@@] 02 FILLER VALUE 'SPECIAL FORMSJQ )@@G@@ MOUNTED EACH' PIC X(27).@G@@@] 02 FILLER VALUE 'TAPE REJR )@@G@@ELS MOUNTED EACH' PIC X(27).@G@@@] 02 FILLER VALUE 'TJS )@@G@@APE DATA TRANSFERS / M ' PIC X(27).@G@@@] 02 FILLER VAJT )@@G@@LUE 'TAPE LIBRARY REEL-DAYS EACH' PIC X(27).@G@@@] 02 FILJU )@@G@@LER VALUE 'DISC PACK MOUNTED EACH' PIC X(27).@G@@@] 0JV )@@G@@2 FILLER VALUE 'TIME PACKS MOUNTED EACH' PIC X(27).@G@@@] JW )@@G@@ 02 FILLER VALUE 'CAT DISC TRACK-DAYS / K ' PIC X(27).@G@@@]JX )@@G@@ 02 FILLER VALUE 'MASS-STORAGE TRANSFERS / M ' PIC X(27).JY )@@G@@@@@@@]@C@@@] 01 BILL-9TBL REDEFINES BILL-9A-TBL. @B@@@] JZ )@@G@@ 02 BILL-9T OCCURS 11 TIMES. @E@@@] 03 BILL9A KA )@@G@@ PIC X(22). @E@@@] 03 BILL9D KB )@@G@@ PIC X(5). @@@@@]@^@@@] 01 BILL-20D-TBL.@E@@@] KC )@@G@@ 02 FILLER VALUE ' DATA ENTRY' PIC X(12). @E@@@] 0KD )@@G@@2 FILLER VALUE ' ANAL/PROG ' PIC X(12). @E@@@] 02 FILKE )@@G@@LER VALUE ' COMPUTER ' PIC X(12). @E@@@] 02 FILLER VAKF )@@G@@LUE ' COMM - S/W' PIC X(12). @E@@@] 02 FILLER VALUE ' KG )@@G@@COMM - H/W' PIC X(12). @@@@@]@C@@@] 01 BILL-TBL REDEFINES KH )@@G@@BILL-20D-TBL. @E@@@] 02 B-TBL OCCURS 5 TIMES PKI )@@G@@IC X(12). @@@@@]@^@@@] 01 BILL-MAX. @G@@@] 02 FILKJ )@@G@@LER VALUE 'TOTAL HAS BEEN ADJUSTED DUE TO ' PIC X(31).@G@@@] 0KK )@@G@@2 FILLER VALUE 'CONTRACTUAL MAXIMUMS BEING EXCE' PIC X(31).@G@@@] KL )@@G@@ 02 FILLER VALUE 'EDED' PIC XXXX. @@@@@]KM )@@G@@@^@@@] 01 CUT-LINE. @D@@@] 02 FILLER VALUE '.' KN )@@G@@ PIC X. @E@@@] 02 FILLER VALUE SPACE KO )@@G@@ PIC X(85).@E@@@] 02 FILLER VALUE '.' PIC KP )@@G@@X. @D@@@] 02 FILLER VALUE SPACE PIC X(45).@@@@@]KQ )@@G@@@^@@@] COPY DEPT-HEADER.@@@@@]@A@@@] COPY DEPT-HEADER-MEDIUMKR )@@G@@. @@@@@]@ @@@] 01 DEPT-HEADER-3. @E@@@] 02 FILLKS )@@G@@ER VALUE SPACES PIC X(50). @G@@@] 02 FILLER VALKT )@@G@@UE 'DATA PROCESSING SERVICES SUMMARY' PIC X(32).@E@@@] 02 FILLKU )@@G@@ER VALUE SPACES PIC X(50). @@@@@]@ @@@] 01 DEPT-HEKV )@@G@@ADER-4. @E@@@] 02 FILLER VALUE ' PERIOD COVERED: ' PIC X(KW )@@G@@18). @E@@@] 02 D-DATE1 VALUE SPACE PIC XXX. KX )@@G@@@E@@@] 02 FILLER VALUE ', 19' PIC XXXX. @E@@@]KY )@@G@@ 02 D-YR-1 PIC XX. @E@@@] KZ )@@G@@ 02 FILLER VALUE SPACE PIC X(83). @E@@@] 0LA )@@G@@2 FILLER VALUE 'BILLING MEMO SENT - ' PIC X(20).@E@@@] 02 D-ILB )@@G@@NDK PIC XX. @@@@@]@^@@@] 01 HOLD-JALC )@@G@@. @E@@@] 02 H-BUD-DISCRIPT PIC X(30). LD )@@G@@@E@@@] 02 H-DEP-DISCRIPT PIC X(32). @E@@@]LE )@@G@@ 02 H-BUR-DISCRIPT PIC X(35). @E@@@] LF )@@G@@ 02 H-ACCT-DISCRIPT PIC X(34). @F@@@] 0LG )@@G@@2 H-BUD-AMT PIC S9(6)V99 COMP. @@@@@]@^@@@] LH )@@G@@ 01 H-SRT-SEQ. @^@@@] 02 H-BUDGET.@D@@@] 03 HLI )@@G@@-DEPT PIC X. @D@@@] 03 H-BUR LJ )@@G@@ PIC X. @E@@@] 03 H-SEQ LK )@@G@@ PIC XXX. @^@@@] 02 H-ACCT. @E@@@] 03 HLL )@@G@@-ACCT1 PIC XXX. @E@@@] 03 H-ACCT2LM )@@G@@ PIC X(9). @^@@@] 02 H-PERIOD.@D@@@]LN )@@G@@ 03 H-YR PIC 99.@D@@@] LO )@@G@@ 03 H-MO PIC 99.@@@@@]@B@@@] 01 JA-KEY LP )@@G@@USAGE IS DISPLAY-1. @D@@@] 02 JA-CARD LQ )@@G@@ PIC 99.@E@@@] 02 JA-ACCT PIC XXXLR )@@G@@. @E@@@] 02 JA-ACCT2 PIC X(6). LS )@@G@@@D@@@] 02 JA-TYPE PIC 9. @@@@@]@^@@@]LT )@@G@@ 01 LEACH-TABLE. @C@@@] 02 LEACH-TBL OCCURS 50 TIMESLU )@@G@@. @E@@@] 03 L-ACCT-CD PIC XXX. LV )@@G@@@E@@@] 03 L-ACCT-2 PIC X(6). @E@@@]LW )@@G@@ 03 L-PAY-ACCT PIC XXX. @E@@@] LX )@@G@@ 03 L-PAY-PCT OCCURS 5 TIMES PIC 999V9. @@@@@]@^@@@] LY )@@G@@ 01 MONTHLYS. @G@@@] 02 FILLER VALUE 'JANUARY FEBRUARY MLZ )@@G@@ARCH ' PIC X(27). @G@@@] 02 FILLER VALUE 'APRIL MAY MA )@@G@@ JUNE ' PIC X(27). @G@@@] 02 FILLER VALUE 'JULY MB )@@G@@ AUGUST SEPTEMBER' PIC X(27). @G@@@] 02 FILLER VALUE 'OMC )@@G@@CTOBER NOVEMBER DECEMBER ' PIC X(27). @@@@@]@B@@@] 01 MONTHLYMD )@@G@@ REDEFINES MONTHLYS. @B@@@] 02 MONTHS OCCURS 12 TIMES. ME )@@G@@@E@@@] 03 MTH PIC XXX. @E@@@]MF )@@G@@ 03 MOTH PIC X(6). @@@@@]@^@@@]MG )@@G@@ 01 NO-PAY-TBL. @B@@@] 02 NO-PAY OCCURS 50 TIMES. MH )@@G@@@C@@@] 03 NP-ACCT PIC XXX. @@@@@]@^@@@] MI )@@G@@ 01 NON-TABLES. @F@@@] 03 NP-SHIFT-NO OCCURS 3 TIMES PMJ )@@G@@IC S9(5)V999 COMP.@F@@@] 03 NP-SHIFT-COST OCCURS 3 TIMES PMK )@@G@@IC S9(7)V99 COMP. @F@@@] 03 NP-COST OCCURS 6 TIMES PIML )@@G@@C S9(7)V99 COMP. @B@@@] 03 NP-N OCCURS 11 TIMES. @E@@@]MM )@@G@@ 05 NP-F-1 PIC S9 COMP. @E@@@] MN )@@G@@ 05 NP-NBRS PIC S9(18) COMP.@F@@@] MO )@@G@@03 NP-11-COST OCCURS 11 TIMES PIC S9(7)V99 COMP. @@@@@]@^@@@] MP )@@G@@ 01 PAYEE-TABLE. @B@@@] 02 PAYEES OCCURS 50 TIMES. @E@@@]MQ )@@G@@ 03 PAY-ACCT-CD PIC XXX. @G@@@] MR )@@G@@ 03 PAY-SHIFT-NO OCCURS 3 TIMES PIC S9(5)V99999 COMP. @F@@@]MS )@@G@@ 03 PAY-SHIFT-COST OCCURS 3 TIMES PIC S9(7)V99 COMP. @F@@@]MT )@@G@@ 03 PAY-DE-COST PIC S9(7)V99 COMP. @F@@@]MU )@@G@@ 03 PAY-AP-COST PIC S9(7)V99 COMP. @F@@@]MV )@@G@@ 03 PAY-DE-HRS PIC S9(7)V9 COMP. @F@@@]MW )@@G@@ 03 PAY-AP-HRS PIC S9(7)V9 COMP. @F@@@]MX )@@G@@ 03 PAY-COST OCCURS 12 TIMES PIC S9(7)V99 COMP. @F@@@]MY )@@G@@ 03 PAY-NBRS OCCURS 12 TIMES PIC S9(18) COMP. @F@@@]MZ )@@G@@ 03 PAY-S-TOT PIC S9(7)V99 COMP. @F@@@]NA )@@G@@ 03 PAY-HWR PIC S9(7)V99 COMP. @@@@@]NB )@@G@@@^@@@] 01 PAY-OVR-HD. @E@@@] 03 PAY-OV-CMPR NC )@@G@@ PIC S999V9(5) COMP. @E@@@] 03 PAY-OV-DE PICND )@@G@@ S999V9(5) COMP. @E@@@] 03 PAY-OV-AP PIC S999VNE )@@G@@9(5) COMP. @E@@@] 03 PAY-BE-CMPR PIC S999V9(5) CNF )@@G@@OMP. @E@@@] 03 PAY-BE-DE PIC S999V9(5) COMP. NG )@@G@@@E@@@] 03 PAY-BE-AP PIC S999V9(5) COMP. @@@@@]NH )@@G@@@^@@@] 01 P-COUNTER. @F@@@] 02 PCTR OCCURS 6 TIMES NI )@@G@@ PIC S9(5) COMP. @@@@@]@^@@@] 01 PRINT-LINE. @^@@@]NJ )@@G@@ 02 P-LINE1. @D@@@] 03 FILLER NK )@@G@@ PIC XX.@E@@@] 03 P-POS1A PIC X(3NL )@@G@@5). @E@@@] 03 P-POS1B PIC X(24). NM )@@G@@@E@@@] 03 FILLER PIC X(71). @B@@@]NN )@@G@@ 02 P-LINE2 REDEFINES P-LINE1. @E@@@] 03 FILLER NO )@@G@@ PIC X(6). @E@@@] 03 P-POS2A NP )@@G@@ PIC X(64). @E@@@] 03 P-POS2B NQ )@@G@@ PIC X(62). @B@@@] 02 P-LINE3 REDEFINES P-LINE1. NR )@@G@@@E@@@] 03 FILLER PIC X(6). @E@@@]NS )@@G@@ 03 P-POS3A PIC X(8). @E@@@] NT )@@G@@ 03 P-POS3B PIC X(56). @E@@@] NU )@@G@@ 03 FILLER PIC X(62). @B@@@] 02 P-LNV )@@G@@INE4 REDEFINES P-LINE1. @E@@@] 03 FILLER NW )@@G@@ PIC X(10). @ @@@] 03 P-POS4A. @E@@@] NX )@@G@@ 04 P-POS4A1 PIC X(9). @E@@@] 04 NY )@@G@@ P-POS4A2 PIC X(95). @C@@@] 03 P-POS4BNZ )@@G@@ REDEFINES P-POS4A. @E@@@] 04 P-POS4B1 OA )@@G@@ PIC X(18). @E@@@] 04 P-POS4B2 POB )@@G@@IC X(86). @E@@@] 03 FILLER PIC X(1OC )@@G@@8). @B@@@] 02 P-LINE5 REDEFINES P-LINE1. @E@@@] OD )@@G@@ 03 FILLER PIC X(4). @E@@@] 03 POE )@@G@@-POS5 PIC X(76). @E@@@] 03 FILLER OF )@@G@@ PIC X(52). @B@@@] 02 P-LINE6 REDEFINOG )@@G@@ES P-LINE1. @E@@@] 03 FILLER PIC X(4OH )@@G@@). @E@@@] 03 P-POS6A PIC X(66). OI )@@G@@@E@@@] 03 P-POS6B PIC X(10). @E@@@]OJ )@@G@@ 03 FILLER PIC X(52). @B@@@] OK )@@G@@ 02 P-LINE6N REDEFINES P-LINE1.@E@@@] 03 FILLER OL )@@G@@ PIC X(68). @E@@@] 03 P-POS6N OM )@@G@@ PIC X(12). @E@@@] 03 FILLER ON )@@G@@ PIC X(52). @B@@@] 02 P-LINE7 REDEFINES P-LINE1. @D@@@]OO )@@G@@ 03 FILLER PIC X(6).@E@@@] OP )@@G@@ 03 P-POS7A PIC X(63). @ @@@] 03 POQ )@@G@@-POS7B. @E@@@] 04 PT-7A PIC X(15)OR )@@G@@. @D@@@] 04 FILLER PIC X(3).@D@@@]OS )@@G@@ 04 PT-7B PIC X(9).@D@@@] OT )@@G@@ 04 FILLER PIC X(5).@D@@@] 04 PT-7COU )@@G@@ PIC X. @D@@@] 04 FILLER OV )@@G@@ PIC X(8).@E@@@] 04 PT-7D PICOW )@@G@@ X(12). @E@@@] 04 FILLER PIC X(10)OX )@@G@@. @B@@@] 02 P-LINE8 REDEFINES P-LINE1. @D@@@] OY )@@G@@ 03 FILLER PIC X(47). @D@@@] 03 SIGNZ OZ )@@G@@ PIC X(6). @D@@@] 03 DASHZ PA )@@G@@ PIC X(25). @D@@@] 03 FILLER PIC XPB )@@G@@(54). @@@@@]@ @@@] 01 PRINTER-LINES. @G@@@] 02 PL0PC )@@G@@1 VALUE '---------------------DESCRIPTION OF SERVICE--@E@@@] - PD )@@G@@ '-------------------' PIC X(64). @D@@@] 02 PL0PE )@@G@@2 VALUE 'COMPUTER RELATED SERVICES: @E@@@] - ' PF )@@G@@ ' PIC X(64). @E@@@] 02 PL03 VALUE ' TOTALPG )@@G@@ NUMBER OF COMPUTER RUNS@E@@@] - ' ' PH )@@G@@ PIC X(64). @G@@@] 02 PL04 VALUE ' TOTAL NUMBER OF PPI )@@G@@ROCESSING HOURS (SUP) @E@@@] - ' ' PJ )@@G@@ PIC X(64). @D@@@] 02 PL05 VALUE ' 1ST SHIFT (0001PK )@@G@@-0800)@E@@@] - ' ' PIC X(64). PL )@@G@@@G@@@] 02 PL06 VALUE ' 2ND SHIFT (0801-1700) - PRIME SHIPM )@@G@@FT @E@@@] - ' ' PIC X(64). PN )@@G@@@D@@@] 02 PL07 VALUE ' 3RD SHIFT (1701-2400)@E@@@] PO )@@G@@- ' ' PIC X(64). @E@@@] 0PP )@@G@@2 PL08 VALUE ' TOTAL NUMBER OF CARDS READ @E@@@] - ' PQ )@@G@@ ' PIC X(64). @E@@@] 02 PL09 VALUPR )@@G@@E ' TOTAL NUMBER OF CARDS PUNCHED@E@@@] - ' PS )@@G@@ ' PIC X(64). @E@@@] 02 PL10 VALUE ' TOTALPT )@@G@@ NUMBER OF PAGES CREATED@E@@@] - ' ' PU )@@G@@ PIC X(64). @G@@@] 02 PL11 VALUE ' TOTAL NUMBER OF SPV )@@G@@PECIAL COMPUTER FORMS MO@E@@@] - 'UNTED ' PW )@@G@@ PIC X(64). @F@@@] 02 PL12 VALUE ' TOTAL NUMBER OF TPX )@@G@@APE REELS MOUNTED @E@@@] - ' ' PIPY )@@G@@C X(64). @F@@@] 02 PL13 VALUE ' TOTAL NUMBER OF TAPE DAPZ )@@G@@TA TRANSFERS@E@@@] - ' ' PIC X(64QA )@@G@@). @F@@@] 02 PL14 VALUE ' TOTAL NUMBER OF LIBRARY REEL-QB )@@G@@DAYS @E@@@] - ' ' PIC X(64). QC )@@G@@@G@@@] 02 PL15 VALUE ' TOTAL NUMBER OF REMOVABLE DISC PACKQD )@@G@@S MOUN@E@@@] - 'TED ' PIC X(64). QE )@@G@@@G@@@] 02 PL16 VALUE ' TOTAL DURATION OF REMOVABLE DISC PAQF )@@G@@CKS MO@E@@@] - 'UNTED ' PIC X(64). QG )@@G@@@G@@@] 02 PL17 VALUE ' TOTAL NUMBER OF CATALOGUED TRACK-DAQH )@@G@@YS @E@@@] - 'DISC TRACKS ' PIC X(64). QI )@@G@@@G@@@] 02 PL18 VALUE ' TOTAL NUMBER OF MASS-STORAGE DATA TQJ )@@G@@RANSFE@E@@@] - 'RS ' PIC X(64). QK )@@G@@@G@@@] 02 PL19 VALUE ' ** TOTAL OF COMPUTER RELATED SERVICESQL )@@G@@ ** @E@@@] - ' ' PIC X(64). QM )@@G@@@D@@@] 02 PL20 VALUE 'DATA ENTRY/VERIFY SERVICES:@E@@@] QN )@@G@@- ' ' PIC X(64). @F@@@] 0QO )@@G@@2 PL21 VALUE ' TOTAL NUMBER OF RECORDS - ENTERED @E@@@] - QP )@@G@@ ' ' PIC X(64). @F@@@] 02 PL2QQ )@@G@@2 VALUE ' TOTAL NUMBER OF RECORDS - VERIFIED @E@@@] - ' QR )@@G@@ ' PIC X(64). @G@@@] 02 PL23 VALUQS )@@G@@E ' TOTAL NUMBER OF KEYSTROKES - ENTERED @E@@@] - ' QT )@@G@@ ' PIC X(64). @G@@@] 02 PL24 VALUQU )@@G@@E ' TOTAL NUMBER OF KEYSTROKES - VERIFIED @E@@@] - ' QV )@@G@@ ' PIC X(64). @F@@@] 02 PL25 VALUQW )@@G@@E ' TOTAL NUMBER OF HOURS - ENTERED @E@@@] - ' QX )@@G@@ ' PIC X(64). @F@@@] 02 PL26 VALUE ' QY )@@G@@ TOTAL NUMBER OF HOURS - VERIFIED @E@@@] - ' QZ )@@G@@ ' PIC X(64). @D@@@] 02 PL27 VALUE 'ANALYSIS/RA )@@G@@PROGRAMMING HOURS @E@@@] - ' ' PIRB )@@G@@C X(64). @G@@@] 02 PL28 VALUE 'DATA COMMUNICATIONS - SOFTWRC )@@G@@ARE (# OF TRANSA@E@@@] - 'CTIONS) ' PIRD )@@G@@C X(64). @E@@@] 02 PL29 VALUE 'DATA COMMUNICATIONS - HARDWRE )@@G@@ARE @E@@@] - ' ' PIC X(64). RF )@@G@@@G@@@] 02 PL30 VALUE ' ** TOTAL COST OF DATA PROCESSING SERVRG )@@G@@ICES -@E@@@] - ' THIS PERIOD ** ' PIC X(64). RH )@@G@@@G@@@] 02 PL31 VALUE ' ** TOTAL COST OF DATA PROCESSING SERVRI )@@G@@ICES -@E@@@] - ' YEAR TO DATE ** ' PIC X(64). RJ )@@G@@@@@@@]@C@@@] 01 PRT-LINES REDEFINES PRINTER-LINES. @E@@@] RK )@@G@@ 02 PRT-LN OCCURS 31 PIC X(64). @@@@@]@^@@@] RL )@@G@@ 01 PRT-TITLES. @ @@@] 02 PRT-TITLE2. @G@@@] RM )@@G@@ 03 FILLER VALUE 'ACCT. CODE DESCRIPTION H' PIC X(25). @^@@@] RN )@@G@@ 03 P-ACCT. @E@@@] 04 PRT-A1 RO )@@G@@ PIC XXX. @E@@@] 04 PRT-A2 PIC XRP )@@G@@(9). @E@@@] 03 FILLER VALUE SPACE PIC XX. RQ )@@G@@@E@@@] 03 P-T-ACCT-DISC PIC X(34). @ @@@]RR )@@G@@ 02 PRT-TITLE3. @F@@@] 03 FILLER VALUE 'BUDGERS )@@G@@T DESCRIPTION (' PIC X(20). @E@@@] 03 PRT-3A RT )@@G@@ PIC X(5). @E@@@] 03 FILLER VALUE ') ' RU )@@G@@ PIC X(3). @E@@@] 03 P-T-BUD RV )@@G@@ PIC X(30). @ @@@] 02 PRT-TITLE4. @E@@@] 03 FRW )@@G@@ILLER VALUE 'BUREAU OF ' PIC X(10). @E@@@] 03 P-T-BURRX )@@G@@ PIC X(35). @ @@@] 02 PRT-TITLE5. RY )@@G@@@F@@@] 03 FILLER VALUE 'DEPUTY COMMISSIONER OF ' PIC X(23).RZ )@@G@@@E@@@] 03 P-T-DEP PIC X(32). @@@@@]SA )@@G@@@^@@@] 01 PRT-L-BACK1. @E@@@] 02 FILLER VALUE SPACE SB )@@G@@ PIC X(21). @E@@@] 02 FILLER VALUE 'UNIT' SC )@@G@@ PIC X(4). @E@@@] 02 FILLER VALUE SPACE PSD )@@G@@IC X(37). @@@@@]@^@@@] 01 PRT-L-BACK2. @G@@@] 02 FILSE )@@G@@LER VALUE ' QUANTITY COST UN' PIC X(31).@G@@@] 0SF )@@G@@2 FILLER VALUE 'IT EXTENSION ' PIC X(31).@@@@@]@^@@@]SG )@@G@@ 01 PRT-T-LINE. @E@@@] 02 P-T-01 SH )@@G@@ PIC X(62). @B@@@] 02 P-T-02 REDEFINES P-T-01. @E@@@]SI )@@G@@ 03 FILLER PIC XXX. @E@@@] SJ )@@G@@ 03 PT-2A PIC X(11). @E@@@] SK )@@G@@ 03 FILLER PIC X(5). @E@@@] 03 PSL )@@G@@T-2B PIC X(6). @E@@@] 03 FILLER SM )@@G@@ PIC X(6). @D@@@] 03 PT-2C SN )@@G@@ PIC X. @E@@@] 03 FILLER SO )@@G@@ PIC X(8). @E@@@] 03 PT-2D PSP )@@G@@IC X(12). @E@@@] 03 FILLER PIC X(1SQ )@@G@@0). @B@@@] 02 P-T-02N REDEFINES P-T-01. @D@@@] SR )@@G@@ 03 FILLER PIC X(39). @D@@@] 03 PT-2N SS )@@G@@ PIC X(13). @D@@@] 03 FILLER ST )@@G@@ PIC X(10). @B@@@] 02 P-T-03 REDEFINES P-T-01. @E@@@]SU )@@G@@ 03 PT-3A PIC X(19). @E@@@] SV )@@G@@ 03 PT-3B PIC X(12). @D@@@] SW )@@G@@ 03 PT-3C PIC X. @E@@@] 03 PT-3D SX )@@G@@ PIC X(30). @B@@@] 02 P-T-04 REDEFINESSY )@@G@@ P-T-01. @D@@@] 03 FILLER PIC X(17). SZ )@@G@@@D@@@] 03 PT-4B PIC X(11). @D@@@] TA )@@G@@ 03 FILLER PIC X(34). @@@@@]@^@@@] 01 STB )@@G@@RT-SEQ-TBL. @B@@@] 02 SS-TBL OCCURS 250 TIMES. @C@@@] TC )@@G@@ 03 SS-ACCT PIC XXX. @C@@@] 03 FILLER TD )@@G@@ PIC XXX. @ @@@] 03 SS-BUDGET. @C@@@] TE )@@G@@ 04 SS-DEPUTY PIC X. @C@@@] 04 SS-BUTF )@@G@@REAU PIC X. @C@@@] 04 SS-SEQ PIC TG )@@G@@XXX. @C@@@] 03 FILLER PIC X. @@@@@]@#@@@]TH )@@G@@ 01 SWAP-1.@D@@@] 02 S1 OCCURS 10 TIMES PTI )@@G@@IC X. @@@@@]@#@@@] 01 SWAP-2.@D@@@] 02 S2 OCCURS 16 TITJ )@@G@@MES PIC X. @@@@@]@^@@@] 01 TBL-D-CD. @H@@@] TK )@@G@@ 02 TD-DECODE PIC 99. 1-2 TL )@@G@@@ @@@] 02 TD-ACCT-CD. @H@@@] 03 TD-ACCT TM )@@G@@ PIC XXX. 3-5 @H@@@] 03 TTN )@@G@@D-ACCT2 PIC X(6). 6-11@H@@@] TO )@@G@@ 02 TD-CD-NO PIC X. 12 TP )@@G@@@H@@@] 02 TD-ACD PIC X. TQ )@@G@@ 13 @^@@@] 02 TD-TYPE1.@ @@@] 03 TD-T1-0TR )@@G@@. @A@@@] 04 TD-0-BUDGET. @H@@@] 0TS )@@G@@5 TD-0-DEPUTY PIC X. 14 @H@@@] TT )@@G@@ 05 TD-0-BUREAU PIC X. 15 TU )@@G@@@I@@@] 05 TD-0-SEQ PIC XXX. TV )@@G@@ 16-18 @H@@@] 04 TD-0-BILLING PTW )@@G@@IC X. 19 @I@@@] 04 TD-0-COST-PER TX )@@G@@ PIC 9V99. 20-22 @I@@@] 04 TY )@@G@@ TD-0-NBR-LINES PIC 9V999. 23-26 @I@@@]TZ )@@G@@ 04 TD-0-TYPE-CTM OCCURS 4 TIMES PIC 9V999. UA )@@G@@ 27-42 @I@@@] 04 TD-0-BUD-AMT PIC 9(UB )@@G@@6)V99. 43-50 @I@@@] 04 TD-0-BUD-DISCRIPTUC )@@G@@ PIC X(30). 51-80 @C@@@] 03 TUD )@@G@@D-T1-1 REDEFINES TD-T1-0. @I@@@] 04 TD-1-DEP-DISC UE )@@G@@ PIC X(32). 14-45 @I@@@] 04 UF )@@G@@ TD-1-BUR-DISC PIC X(35). 46-80 @C@@@]UG )@@G@@ 03 TD-T1-2 REDEFINES TD-T1-0. @I@@@] 04 UH )@@G@@ TD-2-ACCT-DISC PIC X(34). 14-47 @I@@@]UI )@@G@@ 04 TD-2-TITLE PIC X(33). UJ )@@G@@ 48-80 @C@@@] 03 TD-T1-3 REDEFINES TD-T1-0. @I@@@]UK )@@G@@ 04 TD-3-RCVR PIC X(33). UL )@@G@@ 14-46 @I@@@] 04 TD-3-COPY PIC X(UM )@@G@@34). 47-80 @C@@@] 03 TD-T1-4 REDEFINES TUN )@@G@@D-T1-0. @I@@@] 04 TD-4-RCVR PIC X(UO )@@G@@33). 14-46 @I@@@] 04 TD-4-MAX-FEES UP )@@G@@ PIC X(15). 47-61 @D@@@] 04 UQ )@@G@@ TD-4-MAX REDEFINES TD-4-MAX-FEES. @I@@@] 05 TD-4-FEESUR )@@G@@ OCCURS 3 TIMES PIC S999V99. 47-61 @I@@@] US )@@G@@ 04 FILLER PIC X(19). 62-80 UT )@@G@@@C@@@] 03 TD-T1-5 REDEFINES TD-T1-0. @I@@@] UU )@@G@@ 04 TD-5-ACT-1 PIC 999. 14-16 UV )@@G@@@I@@@] 04 TD-5-PCT-1 OCCURS 5 TIMES PIC 999V9. UW )@@G@@ 17-36 @I@@@] 04 TD-5-ACT-2 UX )@@G@@PIC 999. 37-39 @I@@@] 04 TD-5-PCT-2 UY )@@G@@OCCURS 5 TIMES PIC 999V9. 40-59 @I@@@] UZ )@@G@@ 04 FILLER PIC X(21). 60-80 VA )@@G@@@C@@@] 03 TD-TYPES REDEFINES TD-T1-0. @I@@@] VB )@@G@@ 04 TD3-ITEM PIC X(15). 14-28 VC )@@G@@@H@@@] 04 TD3-UNITS PIC X. VD )@@G@@ 29 @I@@@] 04 TD3-COSTS PIC 9(VE )@@G@@4)V999. 30-36 @I@@@] 04 TD3-SHIFT1 VF )@@G@@ PIC 999V9. 37-40 @I@@@] 04 TVG )@@G@@D3-SHIFT3 PIC 999V9. 41-44 @I@@@]VH )@@G@@ 04 FILLER PIC X(36). VI )@@G@@ 45-80 @E@@@] 02 FILLER PIC X(VJ )@@G@@4). @@@@@]@^@@@] 01 TD-TYPE2-CD. @H@@@] 02 TD2-OVRHDVK )@@G@@ PIC 99V99. 14-17@H@@@] 0VL )@@G@@2 TD2-E-BEN PIC 99V99. 18-21@H@@@]VM )@@G@@ 02 TD2-COST-DE PIC 999V99. VN )@@G@@ 22-26@H@@@] 02 TD2-COST-AP PIC 999V99. VO )@@G@@ 27-31@H@@@] 02 TD2-COST-CPR PVP )@@G@@IC 9(5)V99. 32-38@H@@@] 02 TD2-PRO-RATE VQ )@@G@@ PIC 9(5)V99. 39-45@H@@@] 02 TD2-COST-VR )@@G@@CTM OCCURS 4 TIMES PIC 999V99. 46-65@E@@@] 0VS )@@G@@2 FILLER PIC X(19). @@@@@]@^@@@] 01 TVT )@@G@@D-TYPE3-CD. @A@@@] 02 TD-TP3 OCCURS 11. @E@@@] VU )@@G@@ 03 TP-ITEM PIC X(15). @D@@@] 03 TVV )@@G@@P-UNIT-TYPE PIC X. @F@@@] 03 TP-UNITS VW )@@G@@ PIC S99V9(6) COMP. @F@@@] 03 TP-COSTS VX )@@G@@ PIC S9(5)V999 COMP.@F@@@] 02 TP-SHIFT1 VY )@@G@@ PIC S999V9 COMP. @F@@@] 02 TP-SHIFT3 VZ )@@G@@ PIC S999V9 COMP. @@@@@]@^@@@] 01 TOTAL-TABLES.WA )@@G@@@C@@@] 02 TOTAL-TABLE OCCURS 6 TIMES. @F@@@] WB )@@G@@ 03 TT-TOT-RUNS PIC S9(10) COMP. @G@@@] WC )@@G@@ 03 TT-SHIFT-NO OCCURS 3 TIMES PIC S9(5)V9999 COMP. @F@@@] WD )@@G@@ 03 TT-SHIFT-COST OCCURS 3 TIMES PIC S9(7)V99 COMP. @C@@@] WE )@@G@@ 03 TT-NBR-S OCCURS 20 TIMES. @E@@@] 04 TT-FIWF )@@G@@L PIC S9 COMP. @F@@@] 04 TT-NBRS WG )@@G@@ PIC S9(18) COMP. @F@@@] 03 TT-COST OCCUWH )@@G@@RS 28 TIMES PIC S9(7)V99 COMP. @@@@@]@^@@@] 01 TRLR-LINES. WI )@@G@@@E@@@] 02 OVRHD VALUE 'OVERHEAD ' PIC X(9). @F@@@]WJ )@@G@@ 02 EMPL-BEN VALUE 'EMPLOYEE BENEFITS ' PIC X(18). @^@@@]WK )@@G@@ 02 TRLR1. @G@@@] 04 FILLER VALUE 'APPLICABLE WL )@@G@@TO SALARIES (COMPU' PIC X(29).@G@@@] 04 FILLER VALUE 'TED AWM )@@G@@T ' PIC X(9). @E@@@] 04 TRLR-PCT WN )@@G@@ PIC ZZ.99. @G@@@] 04 FILLER VALUE ' PERCWO )@@G@@ENT) INCLUDED IN THE FOL' PIC X(29).@G@@@] 04 FILLER VALUE WP )@@G@@'LOWING AMOUNTS ' PIC X(24).@^@@@] 02 TRLR2. WQ )@@G@@@G@@@] 04 FILLER VALUE ' IN THE ABOVE COSTS: COMPUTER' PIC WR )@@G@@X(29).@G@@@] 04 FILLER VALUE ' = ' WS )@@G@@ PIC XXX. @F@@@] 04 TRLR-CPR PIC ZZ,WT )@@G@@ZZZ.99. @F@@@] 04 FILLER VALUE ' DATA ENTRY = ' PIWU )@@G@@C X(17). @F@@@] 04 TRLR-DATA PIC ZZ,WV )@@G@@ZZZ.99. @G@@@] 04 FILLER VALUE ' ANALYSIS/PROGRAMMING WW )@@G@@= ' PIC X(25). @F@@@] 04 TRLR-A-P PWX )@@G@@IC ZZ,ZZZ.99. @G@@@] 04 FILLER VALUE SPACE WY )@@G@@ PIC XX. @^@@@] 02 TRLR3. @F@@@] WZ )@@G@@ 03 FILLER VALUE ' PERIOD COVERED: ' PIC X(22). @E@@@] XA )@@G@@ 03 T-DATE1 VALUE SPACE PIC XXX. @E@@@] 03 FIXB )@@G@@LLER VALUE ', 19' PIC XXXX. @E@@@] 03 T-YR-1 XC )@@G@@ PIC XX. @ @@@] 03 FILL-HDR. XD )@@G@@@E@@@] 04 FIL1 VALUE ' - ' PIC XXX. @E@@@]XE )@@G@@ 04 T-DATE2 VALUE SPACE PIC XXX. @E@@@] XF )@@G@@ 04 FIL2 VALUE ', 19' PIC XXXX. @E@@@] XG )@@G@@ 04 T-YR-2 PIC XX. @]@@@] / @ @@@]XH )@@G@@ PROCEDURE DIVISION. @^@@@] 100-CLEAR-TBLS. @ @@@] XI )@@G@@ MOVE 0 TO Q1 Q2 Q4.@C@@@] PERFORM 300-CLEAR-LEACH 50 TIMEXJ )@@G@@S. @C@@@] PERFORM 320-CLR-SRT-SEQ 250 TIMES. @ @@@] XK )@@G@@ MOVE 0 TO Q1 Q2. @C@@@] PERFORM 340-CLEAR-PAYEE 50 TIMEXL )@@G@@S @ @@@] MOVE 0 TO Q1 Q2. @C@@@] PERFORM 370-CXM )@@G@@LEAR-TOTALS 6 TIMES. @B@@@] MOVE 0 TO Q Q1 Q3 Q2 Q4 Q5. XN )@@G@@@@@@@]@#@@@] 101-OPENS. @B@@@] OPEN INPUT TBLDISC CARDINXO )@@G@@. @C@@@] PERFORM 110-READC THRU 120-READ-EXIT.@^@@@] XP )@@G@@ CLOSE CARDIN.@^@@@] MOVE 0 TO Q @A@@@] PERFORMXQ )@@G@@ 180-JA-EXIT. @A@@@] PERFORM 150-BUILD-JA. @D@@@] XR )@@G@@ PERFORM 150-BUILD-JA THRU 180-JA-EXIT. @E@@@] CALL 'SXS )@@G@@ORTASG' USING REC-L REC-V CORE-S STAT. @A@@@] MOVE 0 TO Q QXT )@@G@@1 Q2 Q3 Q4. @D@@@] SORT SRT-FILE ON ASCENDING KEY M-SRT-SEQ XU )@@G@@@B@@@] INPUT PROCEDURE IS BUILD-FILE @B@@@] OUTPUT XV )@@G@@PROCEDURE IS WRITE-FILE.@@@@@]@#@@@] 110-READC. @G@@@] RXW )@@G@@EAD CARDIN AT END MOVE Q TO ADJ-HOLD GO TO 120-READ-EXIT. @^@@@] XX )@@G@@ ADD 1 TO Q. @^@@@] IF Q > ADJ @F@@@] DISPLXY )@@G@@AY 'ADJUSTMENT CARD OVERFLOW ' UPON PRINT-DEVICE@ @@@] ENTERXZ )@@G@@ FD 'ABORT' @#@@@] ELSE @E@@@] EXAMINE C-AMOUNTYA )@@G@@ REPLACING ALL SPACES BY ZEROS@B@@@] MOVE C-CARD TO ADJCARDYB )@@G@@ (Q). @ @@@] GO TO 110-READC. @@@@@]@^@@@] 120-READ-EXYC )@@G@@IT. @^@@@] ADD 1 TO Q. @^@@@] IF Q > ADJ @ @@@]YD )@@G@@ NEXT SENTENCE @#@@@] ELSE @C@@@] YE )@@G@@ MOVE SPACES TO ADJ-BUDGET (Q) @B@@@] MOVE ZEROS TO ADJYF )@@G@@-AMOUNT (Q) @A@@@] GO TO 120-READ-EXIT. @@@@@]@^@@@] YG )@@G@@ 140-JA-ERROR. @F@@@] DISPLAY 'TBL-DISC-JA INVALID KEY ' UPYH )@@G@@ON PRINT-DEVICE. @ @@@] ENTER FD 'ABORT'. @@@@@]@^@@@] YI )@@G@@ 150-BUILD-JA. @G@@@] READ TBLDISC NEXT INTO TBL-D-CD AT YJ )@@G@@END GO TO 180-JA-EXIT. @^@@@] 151-CONTINUE. @ @@@] IYK )@@G@@F TD-DECODE = 02 @A@@@] GO TO 160-JA-02. @ @@@] YL )@@G@@ IF TD-DECODE = 03 @A@@@] GO TO 170-JA-03. @ @@@]YM )@@G@@ IF TD-DECODE = 01 @E@@@] NEXT SENTENCE ELSE DIYN )@@G@@SPLAY 'JA ERROR ' JA-KEY@E@@@] UPON PRINT-DEVICE ENYO )@@G@@TER FD 'ABORT'. @ @@@] IF TD-CD-NO = 0 @A@@@] YP )@@G@@PERFORM 190-SRT-SEQ @A@@@] IF TD-0-BILLING = 'X' @ @@@]YQ )@@G@@ ADD 1 TO Q @^@@@] IF Q > 50 @F@@@] YR )@@G@@ DISPLAY 'PAYEE-TBL TOO SMALL ' UPON PRINT-DEVICE @A@@@] YS )@@G@@ ENTER FD 'ABORT' @#@@@] ELSE@C@@@] YT )@@G@@ MOVE TD-ACCT TO PAY-ACCT-CD (Q)@#@@@] ELSE @B@@@] YU )@@G@@ IF TD-0-BILLING = 'B' OR 'O' @ @@@] ADD 1 TO Q5 YV )@@G@@@C@@@] MOVE TD-ACCT TO NP-ACCT (Q5). @ @@@] IYW )@@G@@F TD-CD-NO > 4 @A@@@] PERFORM 200-LEACHES.@ @@@] YX )@@G@@ GO TO 150-BUILD-JA.@@@@@]@#@@@] 160-JA-02. @B@@@] MYY )@@G@@OVE TD-T1-0 TO TD-TYPE2-CD. @ @@@] GO TO 150-BUILD-JA.@@@@@]YZ )@@G@@@#@@@] 170-JA-03. @D@@@] IF TD-ACCT = SPACES GO TO 150-BZA )@@G@@UILD-JA. @^@@@] ADD 1 TO Q3. @B@@@] MOVE TD3-ITEMZB )@@G@@ TO TP-ITEM (Q3). @A@@@] IF TD3-UNITS = '1' @C@@@] ZC )@@G@@ MOVE 'I' TO TD3-UNITS. @E@@@] IF TD3-UNITZD )@@G@@S = 'I' MOVE 1 TO TP-UNITS (Q3) @C@@@] MOVE ' EACH' ZE )@@G@@TO BILL9D (Q3). @E@@@] IF TD3-UNITS = 'K' MOVE .001 TO TP-ZF )@@G@@UNITS (Q3) @C@@@] MOVE ' / K ' TO BILL9D (Q3). @F@@@]ZG )@@G@@ IF TD3-UNITS = 'M' MOVE .000001 TO TP-UNITS (Q3) @C@@@]ZH )@@G@@ MOVE ' / M ' TO BILL9D (Q3). @C@@@] MOVE TDZI )@@G@@3-UNITS TO TP-UNIT-TYPE (Q3). @C@@@] MOVE TD3-COSTS TO TP-COSTZJ )@@G@@S (Q3). @^@@@] IF Q3 = 1 @B@@@] MOVE TD3-SHZK )@@G@@IFT1 TO TP-SHIFT1 @B@@@] MOVE TD3-SHIFT3 TO TP-SHIFT3.@ @@@]ZL )@@G@@ GO TO 150-BUILD-JA.@@@@@]@^@@@] 180-JA-EXIT. @A@@@]ZM )@@G@@ MOVE SPACES TO JA-KEY. @ @@@] MOVE 01 TO JA-CARD.ZN )@@G@@@E@@@] START TBLDISC INVALID KEY GO TO 140-JA-ERROR. @@@@@]ZO )@@G@@@^@@@] 190-SRT-SEQ. @^@@@] ADD 1 TO Q4. @B@@@] ZP )@@G@@ MOVE TD-ACCT TO SS-ACCT (Q4). @C@@@] MOVE TD-0-BUDGET TOZQ )@@G@@ SS-BUDGET (Q4). @@@@@]@^@@@] 200-LEACHES. @^@@@] AZR )@@G@@DD 1 TO Q1. @B@@@] MOVE TD-ACCT TO L-ACCT-CD (Q1).@C@@@] ZS )@@G@@ MOVE TD-5-ACT-1 TO L-PAY-ACCT (Q1). @^@@@] MOVE 0 TO Q2.ZT )@@G@@@B@@@] PERFORM 210-LEACH1 5 TIMES. @A@@@] IF TD-5ZU )@@G@@-ACT-2 > SPACES @B@@@] ADD 1 TO Q1 MOVE 0 TO Q2 @C@@@]ZV )@@G@@ MOVE TD-ACCT TO L-ACCT-CD (Q1) @D@@@] MOVZW )@@G@@E TD-5-ACT-2 TO L-PAY-ACCT (Q1) @B@@@] PERFORM 220-LEAZX )@@G@@CH2 5 TIMES.@@@@@]@#@@@] 210-LEACH1.@^@@@] ADD 1 TO Q2. ZY )@@G@@@A@@@] IF TD-5-PCT-1 (Q2) > 0 @E@@@] MOVE TD-5ZZ )@@G@@-PCT-1 (Q2) TO L-PAY-PCT (Q1, Q2). @@@@@]@#@@@] 220-LEACH2.@^@@@]AA )@@G@@ ADD 1 TO Q2. @A@@@] IF TD-5-PCT-2 (Q2) > 0 @E@@@]AB )@@G@@ MOVE TD-5-PCT-2 (Q2) TO L-PAY-PCT (Q1, Q2). @@@@@]@^@@@]AC )@@G@@ 300-CLEAR-LEACH. @^@@@] ADD 1 TO Q1 @E@@@] MAD )@@G@@OVE 0 TO L-ACCT-CD (Q1) L-PAY-ACCT (Q1) Q2. @B@@@] MOVE SPAE )@@G@@ACE TO L-ACCT-2 (Q1). @B@@@] PERFORM 310-CLR-LCH-2 5 TIMES. AF )@@G@@@@@@@]@^@@@] 310-CLR-LCH-2. @^@@@] ADD 1 TO Q2. @B@@@]AG )@@G@@ MOVE 0 TO L-PAY-PCT (Q1, Q2). @@@@@]@^@@@] 320-CLR-SRTAH )@@G@@-SEQ. @^@@@] ADD 1 TO Q4. @B@@@] MOVE SPACES TO SS-TAI )@@G@@BL (Q4). @@@@@]@^@@@] 340-CLEAR-PAYEE. @E@@@] ADD 1 TAJ )@@G@@O Q1. MOVE SPACES TO PAY-ACCT-CD (Q1). @B@@@] MOVE SPACES AK )@@G@@TO NP-ACCT (Q1). @E@@@] MOVE ZERO TO PAY-DE-COST (Q1) PAY-DE-AL )@@G@@HRS (Q1) Q2.@B@@@] PERFORM 350-CLR-SHIFT 3 TIMES.@G@@@] AM )@@G@@ MOVE 0 TO PAY-S-TOT (Q1) PAY-HWR (Q1) PAY-AP-COST (Q1) Q2. @B@@@]AN )@@G@@ PERFORM 360-CLR-COST 12 TIMES.@B@@@] MOVE 0 TO PAAO )@@G@@Y-AP-HRS (Q1). @A@@@] MOVE 0 TO PAY-OV-CMPR. @A@@@] AP )@@G@@ MOVE 0 TO PAY-OV-DE . @A@@@] MOVE 0 TO PAY-OV-AP . AQ )@@G@@@A@@@] MOVE 0 TO PAY-BE-CMPR. @A@@@] MOVE 0 TO PAAR )@@G@@Y-BE-DE . @A@@@] MOVE 0 TO PAY-BE-AP . @@@@@]@^@@@] AS )@@G@@ 350-CLR-SHIFT. @^@@@] ADD 1 TO Q2. @G@@@] MOVE 0 AT )@@G@@TO PAY-SHIFT-NO (Q1, Q2) PAY-SHIFT-COST (Q1, Q2). @@@@@]@^@@@] AU )@@G@@ 360-CLR-COST. @^@@@] ADD 1 TO Q2. @E@@@] MOVE 0 AV )@@G@@TO PAY-COST (Q1, Q2) PAY-NBRS (Q1, Q2). @@@@@]@^@@@] 370-CLEAR-TAW )@@G@@OTALS.@^@@@] ADD 1 TO Q1. @D@@@] MOVE 0 TO TT-TOT-RUAX )@@G@@NS (Q1) PCTR (Q1) Q2 Q3.@B@@@] PERFORM 380-CLR-SHFT 3 TIMES. AY )@@G@@@B@@@] PERFORM 390-CLR-NBRS 28 TIMES. @@@@@]@^@@@] 380-CAZ )@@G@@LR-SHFT. @^@@@] ADD 1 TO Q2. @F@@@] MOVE 0 TO TT-BA )@@G@@SHIFT-NO (Q1, Q2) TT-SHIFT-COST (Q1, Q2). @@@@@]@^@@@] 390-CLR-NBRBB )@@G@@S. @^@@@] ADD 1 TO Q3. @^@@@] IF Q3 < 21 @B@@@]BC )@@G@@ MOVE 0 TO TT-NBRS (Q1, Q3). @B@@@] MOVE 0 TO TT-BD )@@G@@COST (Q1, Q3). @@@@@]@^@@@] 391-CLEAR-NP. @C@@@] PBE )@@G@@ERFORM 392-CLR-NP-SHIFT 3 TIMES. @C@@@] PERFORM 393-CLR-NP-BF )@@G@@NBRS 6 TIMES. @^@@@] MOVE 0 TO Q2.@C@@@] PERFORMBG )@@G@@ 394-CLR-NP-NEW 11 TIMES. @@@@@]@^@@@] 392-CLR-NP-SHIFT.@^@@@]BH )@@G@@ ADD 1 TO Q1. @B@@@] MOVE 0 TO NP-SHIFT-NO (Q1). BI )@@G@@@B@@@] MOVE 0 TO NP-SHIFT-COST (Q1). @@@@@]@^@@@] 393-CBJ )@@G@@LR-NP-NBRS. @^@@@] ADD 1 TO Q2. @A@@@] MOVE 0 TO NP-BK )@@G@@COST (Q2). @@@@@]@^@@@] 394-CLR-NP-NEW. @^@@@] ADD 1 TBL )@@G@@O Q2. @A@@@] MOVE 0 TO NP-NBRS (Q2). @B@@@] MOVE 0 BM )@@G@@TO NP-11-COST (Q2). @]@@@] / @ @@@] BUILD-FILE SECTIOBN )@@G@@N. @^@@@] 400-BUILD-FILE. @ @@@] OPEN INPUT MTHLY BO )@@G@@@A@@@] ACCOUNT-FILE. @A@@@] PERFORM 410-RBP )@@G@@EAD-MTHLY. @A@@@] MOVE MTHLY-YR TO H-YR. @A@@@] MBQ )@@G@@OVE MTHLY-MO TO H-MO. @A@@@] PERFORM 420-READ-ACCOUNT.@B@@@]BR )@@G@@ PERFORM 430-MATCH-MTHLY-ACCOUNT@F@@@] UNTIL END-OBS )@@G@@F-MTHLY-FILE AND END-OF-ACCOUNT-FILE. @^@@@] CLOSE MTHLY BT )@@G@@@ @@@] ACCOUNT-FILE.@ @@@] GO TO 499-EXIT. BU )@@G@@@@@@@]@^@@@] 410-READ-MTHLY. @^@@@] READ MTHLY @^@@@]BV )@@G@@ AT END @C@@@] MOVE HIGH-VALUES TO MTHLY-CBW )@@G@@OST. @@@@@]@^@@@] 420-READ-ACCOUNT.@ @@@] READ ACCOUNT-BX )@@G@@FILE @^@@@] AT END @D@@@] MOVE HIGH-VALUEBY )@@G@@S TO ACCOUNT-RECORD. @@@@@]@A@@@] 430-MATCH-MTHLY-ACCOUNT. BZ )@@G@@@A@^@] IF MTHLY-ACCT < ACCOUNT @B@@@^ IF MTHLY-ACCTCA )@@G@@ < ACCOUNT-NUMBER @B@@@] PERFORM 440-PROCESS-MTHLY @B@@@]CB )@@G@@ PERFORM 410-READ-MTHLY @#@@@] ELSE @B@^@]CC )@@G@@ IF MTHLY-ACCT = ACCOUNT @C@@@^ IF MTHLY-CD )@@G@@ACCT = ACCOUNT-NUMBER @C@@@] PERFORM 440-PROCESS-MTHCE )@@G@@LY @B@@@] PERFORM 410-READ-MTHLY @C@@@] CF )@@G@@ PERFORM 420-READ-ACCOUNT @^@@@] ELSE @C@@@]CG )@@G@@ PERFORM 450-PROCESS-ACCOUNT @C@@@] CH )@@G@@ PERFORM 420-READ-ACCOUNT. @@@@@]@ @@@] 440-PROCESS-MTHLY. CI )@@G@@@B@@@] MOVE MTHLY-COST TO S-FILE. @^@@@] MOVE 0 CJ )@@G@@TO Q4.@A@@@] PERFORM 460-GET-BUDGET. @^@@@] IF MAX CK )@@G@@= 1 @ @@@] MOVE 0 TO MAX @#@@@] ELSE @B@@@]CL )@@G@@ PERFORM 470-CHECK-PERIOD @B@@@] PERFORM 4CM )@@G@@80-CLEAR-COSTS @B@@@] PERFORM 490-COMPUTE-COSTS @ @@@]CN )@@G@@ RELEASE S-FILE.@@@@@]@ @@@] 450-PROCESS-ACCOUNT. CO )@@G@@@B@@@] MOVE LOW-VALUES TO M-ACCT-SEQ. @B@@@] MOVE ACCP )@@G@@COUNT-NUMBER TO M-ACCT. @^@@@] MOVE 0 TO Q4.@A@@@] PCQ )@@G@@ERFORM 460-GET-BUDGET. @^@@@] IF MAX = 1 @ @@@] CR )@@G@@ MOVE 0 TO MAX @#@@@] ELSE @B@@@] MOVE H-PECS )@@G@@RIOD TO M-PERIOD @ @@@] RELEASE S-FILE.@@@@@]@^@@@] CT )@@G@@ 460-GET-BUDGET. @^@@@] ADD 1 TO Q4. @^@@@] IF Q4 >CU )@@G@@ 250 @ @@@] MOVE 1 TO MAX @E@@@] DISPLAY 'JACV )@@G@@-SRT-SEQ EXCEEDED ' M-ACCT TD-ACCT @D@@@] SS-ACCT (Q4)CW )@@G@@ UPON PRINT-DEVICE. @A@@@] IF M-ACCT1 = SS-ACCT (Q4)@C@@@]CX )@@G@@ MOVE SS-BUDGET (Q4) TO M-BUDGET. @^@@@] IF MACY )@@G@@X = 0 @B@@@] IF M-ACCT1 > SS-ACCT (Q4) @B@@@] CZ )@@G@@ GO TO 460-GET-BUDGET. @A@@@] IF M-ACCT1 < SS-ACCT (Q4)DA )@@G@@@ @@@] MOVE 1 TO MAX @C@@@] DISPLAY 'SS INVALDB )@@G@@ID ACCT # ' M-ACCT@B@@@] UPON PRINT-DEVICE. @@@@@]DC )@@G@@@^@@@] 470-CHECK-PERIOD.@^@@@] IF M-YR9 < 13@ @@@] DD )@@G@@ IF M-MO9 > 76 @B@@@] MOVE H-PERIOD TO M-PERIOD. DE )@@G@@@@@@@]@^@@@] 480-CLEAR-COSTS. @F@@@] MOVE ZEROS TO M-CD-DF )@@G@@IN-COST M-CD-OUT-COST M-PGS-COST. @G@@@] MOVE ZEROS TO M-FORDG )@@G@@M-COST M-REELS-COST M-TP-TRANS-COST. @G@@@] MOVE ZEROS TODH )@@G@@ M-REELIB-COST M-PACKS-COST M-CAT-TRK-COST. @G@@@] MOVE ZEDI )@@G@@ROS TO M-MS-TRANS-COST M-P-DURATION-COST M-SOFTWARE. @F@@@] MDJ )@@G@@OVE ZEROS TO M-HARDWARE M-OTHER-COST M-EXPENDITURE. @@@@@]@ @@@] DK )@@G@@ 490-COMPUTE-COSTS. @ @@@] IF M-CD-IN-NO > 0 @A@@@] DL )@@G@@ IF TP-COSTS (1) > 0 @F@@@] COMPUTE M-CD-IN-COST DM )@@G@@= (M-CD-IN-NO * TP-UNITS (1)) @F@@@] DN )@@G@@ * TP-COSTS (1) + .005. @ @@@] IF M-CD-OUT-NO > 0 @A@@@]DO )@@G@@ IF TP-COSTS (2) > 0 @G@@@] COMPUTE M-CD-OUDP )@@G@@T-COST = (M-CD-OUT-NO * TP-UNITS (2)) @F@@@] DQ )@@G@@ * TP-COSTS (2) + .005. @ @@@] IF M-PGS-NO >DR )@@G@@ 0 @A@@@] IF TP-COSTS (3) > 0 @F@@@] COMDS )@@G@@PUTE M-PGS-COST = (M-PGS-NO * TP-UNITS (3)) @F@@@] DT )@@G@@ * TP-COSTS (3) + .005. @ @@@] IF M-FODU )@@G@@RM-NO > 0 @A@@@] IF TP-COSTS (4) > 0 @F@@@] DV )@@G@@ COMPUTE M-FORM-COST = (M-FORM-NO * TP-UNITS (4)) @F@@@] DW )@@G@@ * TP-COSTS (4) + .005. @ @@@] IDX )@@G@@F M-REELS-NO > 0 @A@@@] IF TP-COSTS (5) > 0 @F@@@] DY )@@G@@ COMPUTE M-REELS-COST = (M-REELS-NO * TP-UNITS (5)) @G@@@] DZ )@@G@@ * TP-COSTS (5) + .005. @A@@@]EA )@@G@@ IF M-TP-TRANS-NO > 0 @B@@@] MOVE M-TP-TRANS-NEB )@@G@@O TO NBRS @A@@@] IF TP-COSTS (6) > 0 @E@@@] EC )@@G@@ MULTIPLY NBRS BY TP-UNITS (6) GIVING BCTR @C@@@] MULED )@@G@@TIPLY TP-COSTS (6) BY BCTR @D@@@] ADD BCTR .005 GIVING MEE )@@G@@-TP-TRANS-COST. @ @@@] IF M-REELIB-NO > 0 @A@@@] EF )@@G@@ IF TP-COSTS (7) > 0 @G@@@] COMPUTE M-REELIB-COST = (M-EG )@@G@@REELIB-NO * TP-UNITS (7)) @G@@@] EH )@@G@@ * TP-COSTS (7) + .005. @ @@@] IF M-PACKS-NO > 0 EI )@@G@@@A@@@] IF TP-COSTS (8) > 0 @F@@@] COMPUTE MEJ )@@G@@-PACKS-COST = (M-PACKS-NO * TP-UNITS (8)) @G@@@] EK )@@G@@ * TP-COSTS (8) + .005. @ @@@] IF M-CAEL )@@G@@T-TRK-NO > 0@A@@@] IF TP-COSTS (10) > 0 @B@@@] EM )@@G@@ MOVE M-CAT-TRK-NO TO NBRS @E@@@] MULTIPLY NBRS BY TP-UEN )@@G@@NITS (10) GIVING BCTR @C@@@] MULTIPLY TP-COSTS (10) BY BEO )@@G@@CTR @D@@@] ADD BCTR .005 GIVING M-CAT-TRK-COST. @A@@@]EP )@@G@@ IF M-MS-TRANS-NO > 0 @A@@@] IF TP-COSTS (11) EQ )@@G@@> 0 @B@@@] MOVE M-MS-TRANS-NO TO NBRS @E@@@] ER )@@G@@ MULTIPLY NBRS BY TP-UNITS (11) GIVING BCTR@C@@@] ES )@@G@@MULTIPLY TP-COSTS (11) BY BCTR@D@@@] ADD BCTR .005 GIVING MET )@@G@@-MS-TRANS-COST. @A@@@] IF M-P-DURATION-NO > 0 @A@@@] EU )@@G@@ IF TP-COSTS (9) > 0 @F@@@] COMPUTE M-P-DURATION-EV )@@G@@COST = (M-P-DURATION-NO * @G@@@] TP-UEW )@@G@@NITS (9)) * TP-COSTS (9) + .005. @A@@@] PERFORM 491-SOFTWAREX )@@G@@E. @A@@@] PERFORM 492-HARDWARE. @^@@@] MOVE 0 EY )@@G@@TO Q @D@@@] PERFORM 494-ADJUSTMENT ADJ-HOLD TIMES. @F@@@]EZ )@@G@@ ADD M-SHIFT-COST (1) M-SHIFT-COST (2) M-SHIFT-COST (3) @F@@@]FA )@@G@@ M-CD-IN-COST M-CD-OUT-COST M-PGS-COST M-FORM-COST @G@@@]FB )@@G@@ M-REELS-COST M-TP-TRANS-COST M-REELIB-COST M-PACKS-COST FC )@@G@@@F@@@] M-CAT-TRK-COST M-MS-TRANS-COST M-P-DURATION-COST FD )@@G@@@F@@@] M-DE-HRS-IN-COST M-DE-HRS-VER-COST M-AN-PROG-COST FE )@@G@@@G@@@] M-SOFTWARE M-HARDWARE M-OTHER-COST GIVING M-EXPENDIFF )@@G@@TURE. @@@@@]@@@@@]@^@@@] 491-SOFTWARE. @ @@@] MOVE 01FG )@@G@@ TO JA-CARD.@A@@@] MOVE M-ACCT TO JA-ACCT. @A@@@] MFH )@@G@@OVE SPACE TO JA-ACCT2. @ @@@] MOVE 0 TO JA-TYPE. @ @@@] FI )@@G@@ PERFORM 621-READ-JA@^@@@] IF JA = 1 @ @@@] FJ )@@G@@ NEXT SENTENCE @#@@@] ELSE @A@@@] IF M-NO-TFK )@@G@@RANS > 0 @B@@@] IF TD-0-COST-PER > 0 @F@@@] FL )@@G@@ COMPUTE M-SOFTWARE = M-NO-TRANS * TD-0-COST-PER@ @@@] FM )@@G@@ + .005. @@@@@]@^@@@] 492-HARDWARE. @ @@@] FN )@@G@@ MOVE 0 TO H-CTR. @A@@@] IF TD-0-NBR-LINES > 0 @A@@@]FO )@@G@@ IF TD2-PRO-RATE > 0 @G@@@] COMPUTE H-CTR =FP )@@G@@ TD-0-NBR-LINES * TD2-PRO-RATE + .005 @B@@@] ADD H-CTRFQ )@@G@@ TO M-HARDWARE. @ @@@] MOVE 0 TO Q H-CTR.@A@@@] PFR )@@G@@ERFORM 493-CTMC 4 TIMES.@@@@@]@#@@@] 493-CTMC. @^@@@] AFS )@@G@@DD 1 TO Q. @A@@@] IF TD-0-TYPE-CTM (Q) > 0 @A@@@] FT )@@G@@ IF TD2-COST-CTM (Q) > 0@G@@@] COMPUTE H-CTR = TD-0-TYPE-CFU )@@G@@TM (Q) * TD2-COST-CTM (Q) @B@@@] + .0FV )@@G@@05. @B@@@] ADD H-CTR TO M-HARDWARE. @ @@@] FW )@@G@@ MOVE 0 TO H-CTR. @@@@@]@^@@@] 494-ADJUSTMENT. @^@@@] FX )@@G@@ ADD 1 TO Q.@B@@@] IF M-BUDGET = ADJ-BUDGET (Q) @B@@@] FY )@@G@@ IF M-ACCT = ADJ-ACCOUNT (Q)@D@@@] ADD ADJ-AMOUFZ )@@G@@NT (Q) TO M-OTHER-COST. @@@@@]@#@@@] 499-EXIT. @#@@@] EGA )@@G@@XIT. @]@@@] / @ @@@] WRITE-FILE SECTION. @#@@@] GB )@@G@@ 500-OPEN2. @E@@@] OPEN INPUT YTD-IN CBCF OUTPUT YTD-OUT PRINGC )@@G@@TR. @D@@@] READ CBCF AT END GO TO 510-READ-YTD-IN. @@@@@]GD )@@G@@@#@@@] 505-OVR-HD.@D@@@] MULTIPLY AP IN PCT-OVHD-TO-APPLGE )@@G@@Y BY .01 @B@@@] GIVING PAY-OV-AP. @D@@@] GF )@@G@@ MULTIPLY D-E IN PCT-OVHD-TO-APPLY BY .01 @B@@@] GG )@@G@@ GIVING PAY-OV-DE. @E@@@] MULTIPLY COMPUTER IN PCT-OVHD-TGH )@@G@@O-APPLY BY .01 @B@@@] GIVING PAY-OV-CMPR.@D@@@]GI )@@G@@ MULTIPLY COMPUTER IN PCT-EMPLOYEE-BENEFITS @B@@@] GJ )@@G@@ BY .01 GIVING PAY-BE-CMPR.@C@@@] MULTIPLY D-E IN PCT-EMPLOGK )@@G@@YEE-BENEFITS@B@@@] BY .01 GIVING PAY-BE-DE. @C@@@] GL )@@G@@ MULTIPLY AP IN PCT-EMPLOYEE-BENEFITS @B@@@] BY .01 GGM )@@G@@IVING PAY-BE-AP. @@@@@]@^@@@] 510-READ-YTD-IN. @B@@@] IGN )@@G@@F YN-SRT-SEQ < HIGH-VALUES @F@@@] READ YTD-IN AT END GO )@@G@@MOVE HIGH-VALUES TO YN-SRT-SEQ@B@@@] MOVE 0 TO WS-EXPENDITGP )@@G@@URE. @B@@@] IF YN-SRT-SEQ < HIGH-VALUES @D@@@] GQ )@@G@@ MOVE YN-EXPENDITURE TO WS-EXPENDITURE. @@@@@]@^@@@] 520-RTN-SRTGR )@@G@@. @D@@@] IF M-SRT-SEQ = HIGH-VALUES GO TO 590-EOF. @ @@@]GS )@@G@@ RETURN SRT-FILE @^@@@] AT END @C@@@] GT )@@G@@ MOVE HIGH-VALUES TO M-SRT-SEQ @B@@@] PERFORM 5GU )@@G@@37-DEPT-TOTALS @ @@@] GO TO 590-EOF. @A@@@] IGV )@@G@@F M-BUDGET = H-BUDGET @A@@@] IF M-ACCT = H-ACCT @E@@@]GW )@@G@@ DISPLAY 'POSSIBLE MTH-SUM DUP-REC ' M-BUDGET @C@@@] GX )@@G@@ M-ACCT UPON PRINT-DEVICE. @ @@@] IF D-DATE1 = GY )@@G@@SPACES@A@@@] PERFORM 554-SET-HDG. @@@@@]@^@@@] 530-CGZ )@@G@@HECK-LEVEL. @ @@@] IF M-DEPT = H-DEPT @ @@@] IF M-HA )@@G@@BUR = H-BUR @A@@@] IF M-SEQ = H-SEQ @B@@@] HB )@@G@@ IF M-ACCT1 = H-ACCT1 @B@@@] IF M-ACCT2 = H-ACHC )@@G@@CT2 @B@@@] PERFORM 532-ADD-ACCT2@B@@@] HD )@@G@@ PERFORM 567-MOVE-BILX@B@@@] GO TO 520-RTN-HE )@@G@@SRT @^@@@] ELSE @B@@@] PERFORM 5HF )@@G@@31-P-M-ACCT2@^@@@] ELSE @B@@@] PERFOHG )@@G@@RM 531-P-M-ACCT2 @B@@@] PERFORM 533-P-M-ACCT1 @^@@@]HH )@@G@@ ELSE @B@@@] PERFORM 531-P-M-ACCT2 HI )@@G@@@B@@@] PERFORM 533-P-M-ACCT1 @B@@@] PHJ )@@G@@ERFORM 534-P-M-SEQ. @ @@@] IF M-DEPT = H-DEPT @ @@@] HK )@@G@@ IF M-BUR = H-BUR @ @@@] NEXT SENTENCE @#@@@] HL )@@G@@ ELSE @A@@@] PERFORM 531-P-M-ACCT2@A@@@] HM )@@G@@ PERFORM 533-P-M-ACCT1@A@@@] PERFORM 534-P-M-SEQ @A@@@]HN )@@G@@ PERFORM 535-P-M-BUR @#@@@] ELSE @A@@@] HO )@@G@@ PERFORM 531-P-M-ACCT2 @A@@@] PERFORM 533-P-M-ACCT1 HP )@@G@@@A@@@] PERFORM 534-P-M-SEQ @A@@@] PERFORM 535HQ )@@G@@-P-M-BUR @A@@@] PERFORM 536-P-M-DUP. @D@@@] IHR )@@G@@F M-SRT-SEQ = HIGH-VALUES GO TO 590-EOF. @B@@@] MOVE M-BUDGETHS )@@G@@ TO H-BUDGET. @A@@@] MOVE M-ACCT TO H-ACCT. @A@@@] HT )@@G@@ GO TO 530-CHECK-LEVEL. @@@@@]@^@@@] 531-P-M-ACCT2. @^@@@]HU )@@G@@ MOVE 1 TO Q. @ @@@] IF PCTR (Q) > 0 @C@@@] HV )@@G@@ PERFORM 570-MOVE-SUM THRU 570A-OUT @^@@@] MOVE 1 TO Q1 HW )@@G@@@^@@@] MOVE 2 TO Q2 @A@@@] PERFORM 550-MOVE-UP. HX )@@G@@@@@@@]@^@@@] 532-ADD-ACCT2. @ @@@] MOVE 1 TO Q Q5. HY )@@G@@@A@@@] PERFORM 540-ADD-NBRS. @A@@@] PERFORM 538-CHZ )@@G@@K-NOPAY. @@@@@]@^@@@] 533-P-M-ACCT1. @^@@@] MOVE 2 IA )@@G@@TO Q @ @@@] IF PCTR (Q) > 1 @ @@@] MOVE 0 TIB )@@G@@O Q4 @D@@@] PERFORM 570-MOVE-SUM THRU 570A-OUT. @ @@@]IC )@@G@@ IF PCTR (Q) > 0 @^@@@] MOVE 2 TO Q1 @^@@@] ID )@@G@@ MOVE 3 TO Q2 @A@@@] PERFORM 550-MOVE-UP. @@@@@]@^@@@]IE )@@G@@ 534-P-M-SEQ. @^@@@] MOVE 3 TO Q @ @@@] IIF )@@G@@F PCTR (Q) > 0 @C@@@] PERFORM 570-MOVE-SUM THRU 570A-OUT IG )@@G@@@^@@@] MOVE 3 TO Q1 @^@@@] MOVE 4 TO Q2 @A@@@] IH )@@G@@ PERFORM 550-MOVE-UP. @@@@@]@^@@@] 535-P-M-BUR. @^@@@]II )@@G@@ MOVE 4 TO Q. @ @@@] IF PCTR (Q) > 0 @C@@@] IJ )@@G@@ PERFORM 570-MOVE-SUM THRU 570A-OUT @^@@@] MOVE 4 TO Q1 IK )@@G@@@^@@@] MOVE 5 TO Q2 @A@@@] PERFORM 550-MOVE-UP. IL )@@G@@@@@@@]@^@@@] 536-P-M-DUP. @^@@@] MOVE 5 TO Q. @ @@@]IM )@@G@@ IF PCTR (Q) > 0 @C@@@] PERFORM 570-MOVE-SUM THRUIN )@@G@@ 570A-OUT @^@@@] MOVE 5 TO Q1 @^@@@] MOVE 6 TO Q2 IO )@@G@@@A@@@] PERFORM 550-MOVE-UP. @@@@@]@^@@@] 537-DEPT-TOIP )@@G@@TALS. @A@@@] PERFORM 531-P-M-ACCT2. @A@@@] PERFORMIQ )@@G@@ 533-P-M-ACCT1. @A@@@] PERFORM 534-P-M-SEQ. @A@@@] IR )@@G@@ PERFORM 535-P-M-BUR. @A@@@] PERFORM 536-P-M-DUP. IS )@@G@@@A@@@] PERFORM 544-SUBT-NOPAY. @^@@@] MOVE 6 TO Q IT )@@G@@@C@@@] PERFORM 570-MOVE-SUM THRU 570A-OUT. @@@@@]@^@@@] IU )@@G@@ 538-CK-NOPAY. @A@@@] IF H-ACCT1 = NP-ACCT (Q5)@A@@@] IV )@@G@@ PERFORM 548-ADD-NOPAY @#@@@] ELSE @ @@@] IW )@@G@@ ADD 1 TO Q5 @B@@@] IF NP-ACCT (Q5) > SPACES @A@@@]IX )@@G@@ GO TO 538-CK-NOPAY.@@@@@]@^@@@] 540-ADD-NBRS. IY )@@G@@@C@@@] ADD M-TOT-RUNS TO TT-TOT-RUNS (Q). @^@@@] MIZ )@@G@@OVE 0 TO Q1 @B@@@] PERFORM 541-ADD-SHIFT 3 TIMES. @D@@@] JA )@@G@@ ADD M-CD-IN-NO TO TT-NBRS (Q, 1). @D@@@] ADD M-CJB )@@G@@D-OUT-NO TO TT-NBRS (Q, 2). @B@@@] ADD M-PGS-NO TO TT-JC )@@G@@NBRS (Q, 3).@D@@@] ADD M-FORM-NO TO TT-NBRS (Q, 4). JD )@@G@@@D@@@] ADD M-REELS-NO TO TT-NBRS (Q, 5). @D@@@] JE )@@G@@ ADD M-TP-TRANS-NO TO TT-NBRS (Q, 6). @D@@@] ADD M-RJF )@@G@@EELIB-NO TO TT-NBRS (Q, 7). @D@@@] ADD M-PACKS-NO JG )@@G@@ TO TT-NBRS (Q, 8). @D@@@] ADD M-CAT-TRK-NO TO TT-NBRS JH )@@G@@(Q, 10). @D@@@] ADD M-MS-TRANS-NO TO TT-NBRS (Q, 11). JI )@@G@@@D@@@] ADD M-P-DURATION-NO TO TT-NBRS (Q, 9). @D@@@] JJ )@@G@@ ADD M-DE-RCDS-IN TO TT-NBRS (Q, 12). @D@@@] ADD M-DJK )@@G@@E-RCDS-VER TO TT-NBRS (Q, 13). @D@@@] ADD M-DE-KEYS-IN JL )@@G@@ TO TT-NBRS (Q, 14). @D@@@] ADD M-DE-KEYS-VER TO TT-NBRS JM )@@G@@(Q, 15). @D@@@] ADD M-DE-HRS-IN-NO TO TT-COST (Q, 12). JN )@@G@@@D@@@] ADD M-DE-HRS-VER-NO TO TT-COST (Q, 13). @D@@@] JO )@@G@@ ADD M-AN-PROG-HRS TO TT-COST (Q, 14). @D@@@] ADD M-NJP )@@G@@O-TRANS TO TT-NBRS (Q, 19). @D@@@] ADD M-CD-IN-COST JQ )@@G@@ TO TT-COST (Q, 1). @D@@@] ADD M-CD-OUT-COST TO TT-COSJR )@@G@@T (Q, 2). @D@@@] ADD M-PGS-COST TO TT-COST (Q, 3). JS )@@G@@@D@@@] ADD M-FORM-COST TO TT-COST (Q, 4). @D@@@] JT )@@G@@ ADD M-REELS-COST TO TT-COST (Q, 5). @D@@@] ADD M-TJU )@@G@@P-TRANS-COST TO TT-COST (Q, 6). @D@@@] ADD M-REELIB-COST JV )@@G@@ TO TT-COST (Q, 7). @D@@@] ADD M-PACKS-COST TO TT-COSJW )@@G@@T (Q, 8). @D@@@] ADD M-CAT-TRK-COST TO TT-COST (Q, 10). JX )@@G@@@D@@@] ADD M-MS-TRANS-COST TO TT-COST (Q, 11). @D@@@] JY )@@G@@ ADD M-P-DURATION-COST TO TT-COST (Q, 9). @D@@@] ADD M-DJZ )@@G@@E-HRS-IN-COST TO TT-COST (Q, 16). @D@@@] ADD M-DE-HRS-VER-COKA )@@G@@ST TO TT-COST (Q, 17). @D@@@] ADD M-AN-PROG-COST TO TT-COSKB )@@G@@T (Q, 18). @D@@@] ADD M-SOFTWARE TO TT-COST (Q, 19). KC )@@G@@@D@@@] ADD M-HARDWARE TO TT-COST (Q, 20). @D@@@] KD )@@G@@ ADD M-EXPENDITURE TO TT-COST (Q, 21). @C@@@] PERFORKE )@@G@@M 542-GET-JA THRU 542-A. @ @@@] ADD 1 TO PCTR (Q).@@@@@]KF )@@G@@@^@@@] 541-ADD-SHIFT. @^@@@] ADD 1 TO Q1. @D@@@] KG )@@G@@ ADD M-SHIFT-NO (Q1) TO TT-SHIFT-NO (Q, Q1).@E@@@] ADD M-SKH )@@G@@HIFT-COST (Q1) TO TT-SHIFT-COST (Q, Q1). @@@@@]@#@@@] 542-GET-JA.KI )@@G@@@A@@@] MOVE M-ACCT1 TO JA-ACCT. @A@@@] MOVE SPACES KJ )@@G@@TO JA-ACCT2.@A@@@] MOVE 0 TO JA-TYPE. @A@@@] MKK )@@G@@OVE 01 TO JA-CARD. @A@@@] PERFORM 621-READ-JA @B@@@]KL )@@G@@ IF JA = 1 GO TO 543-INVALID.@F@@@] EXAMINE TD-0-KM )@@G@@BUD-AMT REPLACING ALL SPACES BY ZEROS. @C@@@] MOVE TD-0-BUDKN )@@G@@-AMT TO H-BUD-AMT. @D@@@] MOVE TD-0-BUD-DISCRIPT TO H-BUDKO )@@G@@-DISCRIPT. @ @@@] MOVE 1 TO JA-TYPE. @A@@@] PERFORKP )@@G@@M 621-READ-JA @B@@@] IF JA = 1 GO TO 543-INVALID.@C@@@]KQ )@@G@@ MOVE TD-1-DEP-DISC TO H-DEP-DISCRIPT @C@@@] MOVE TDKR )@@G@@-1-BUR-DISC TO H-BUR-DISCRIPT @ @@@] MOVE 2 TO JA-TYPE. @A@@@]KS )@@G@@ PERFORM 621-READ-JA @B@@@] IF JA = 1 GO TO KT )@@G@@543-INVALID.@D@@@] MOVE TD-2-ACCT-DISC TO H-ACCT-DISCRIPT. KU )@@G@@@@@@@]@^@@@] 542-A. EXIT.@@@@@]@^@@@] 543-INVALID. KV )@@G@@@^@@@] MOVE 0 TO JA.@D@@@] DISPLAY 'JA-KEY ' JA-KEY KW )@@G@@UPON PRINT-DEVICE.@^@@@] GO TO 542-A. @@@@@]@^@@@] 544-SKX )@@G@@UBT-NOPAY. @^@@@] MOVE 0 TO Q3.@B@@@] PERFORM 545-SKY )@@G@@UBT-SHIFT 3 TIMES.@^@@@] MOVE 0 TO Q3.@D@@@] SUBTRACKZ )@@G@@T NP-COST (1) FROM TT-COST (6, 12). @D@@@] SUBTRACT NP-COST (2LA )@@G@@) FROM TT-COST (6, 13). @D@@@] SUBTRACT NP-COST (3) FROM TT-COLB )@@G@@ST (6, 14). @D@@@] SUBTRACT NP-COST (4) FROM TT-COST (6, 16). LC )@@G@@@D@@@] SUBTRACT NP-COST (5) FROM TT-COST (6, 17). @D@@@] LD )@@G@@ SUBTRACT NP-COST (6) FROM TT-COST (6, 18). @^@@@] MOVE 0 LE )@@G@@TO Q3.@B@@@] PERFORM 546-SUBT-NBRS 11 TIMES.@@@@@]@^@@@] LF )@@G@@ 545-SUBT-SHIFT. @^@@@] ADD 1 TO Q3. @F@@@] SUBTRACLG )@@G@@T NP-SHIFT-NO (Q3) FROM TT-SHIFT-NO (6, Q3). @F@@@] SUBTRACLH )@@G@@T NP-SHIFT-COST (Q3) FROM TT-SHIFT-COST (6, Q3).@@@@@]@^@@@] 546-SLI )@@G@@UBT-NBRS. @^@@@] ADD 1 TO Q3. @D@@@] SUBTRACT NP-NLJ )@@G@@BRS (Q3) FROM TT-NBRS (6, Q3).@E@@@] SUBTRACT NP-11-COST (Q3) LK )@@G@@FROM TT-COST (6, Q3). @@@@@]@^@@@] 548-ADD-NOPAY. @^@@@] LL )@@G@@ MOVE 0 TO Q1 @B@@@] PERFORM 549-ADD-SHIFT 3 TIMES. @C@@@]LM )@@G@@ ADD M-DE-HRS-IN-NO TO NP-COST (1). @C@@@] ADD M-DLN )@@G@@E-HRS-VER-NO TO NP-COST (2). @C@@@] ADD M-AN-PROG-HRS TO NPLO )@@G@@-COST (3). @C@@@] ADD M-AN-PROG-COST TO NP-COST (6). @C@@@]LP )@@G@@ ADD M-DE-HRS-IN-COST TO NP-COST (4).@D@@@] ADD M-DLQ )@@G@@E-HRS-VER-COST TO NP-COST (5). @C@@@] ADD M-CD-IN-NO LR )@@G@@ TO NP-NBRS (1). @C@@@] ADD M-CD-OUT-NO TO NP-NBRS (2). LS )@@G@@@B@@@] ADD M-PGS-NO TO NP-NBRS (3). @C@@@] ADD M-FLT )@@G@@ORM-NO TO NP-NBRS (4). @C@@@] ADD M-REELS-NO TO NPLU )@@G@@-NBRS (5). @C@@@] ADD M-TP-TRANS-NO TO NP-NBRS (6). @C@@@]LV )@@G@@ ADD M-REELIB-NO TO NP-NBRS (7). @C@@@] ADD M-PLW )@@G@@ACKS-NO TO NP-NBRS (8). @C@@@] ADD M-CAT-TRK-NO TO NPLX )@@G@@-NBRS (10). @C@@@] ADD M-MS-TRANS-NO TO NP-NBRS (11). @C@@@]LY )@@G@@ ADD M-P-DURATION-NO TO NP-NBRS (9). @D@@@] ADD M-CLZ )@@G@@D-IN-COST TO NP-11-COST (1). @D@@@] ADD M-CD-OUT-COST MA )@@G@@ TO NP-11-COST (2). @D@@@] ADD M-PGS-COST TO NP-11-MB )@@G@@COST (3). @D@@@] ADD M-FORM-COST TO NP-11-COST (4). MC )@@G@@@D@@@] ADD M-REELS-COST TO NP-11-COST (5). @D@@@] MD )@@G@@ ADD M-TP-TRANS-COST TO NP-11-COST (6). @D@@@] ADD M-RME )@@G@@EELIB-COST TO NP-11-COST (7). @D@@@] ADD M-PACKS-COST MF )@@G@@ TO NP-11-COST (8). @D@@@] ADD M-CAT-TRK-COST TO NP-11-MG )@@G@@COST (10). @D@@@] ADD M-MS-TRANS-COST TO NP-11-COST (11). MH )@@G@@@D@@@] ADD M-P-DURATION-COST TO NP-11-COST (9). @@@@@]@^@@@]MI )@@G@@ 549-ADD-SHIFT. @^@@@] ADD 1 TO Q1. @D@@@] AMJ )@@G@@DD M-SHIFT-NO (Q1) TO NP-SHIFT-NO (Q1). @E@@@] ADD M-SHIFT-CMK )@@G@@OST (Q1) TO NP-SHIFT-COST (Q1). @@@@@]@^@@@] 550-MOVE-UP. ML )@@G@@@D@@@] ADD TT-TOT-RUNS (Q1) TO TT-TOT-RUNS (Q2). @C@@@] MM )@@G@@ MOVE 0 TO TT-TOT-RUNS (Q1) Q3. @B@@@] PERFORM 551-MMN )@@G@@OVE-SHIFT 3 TIMES.@^@@@] MOVE 0 TO Q3.@B@@@] PERFORMMO )@@G@@ 552-MOVE-NBR 20 TIMES @B@@@] PERFORM 553-MOVE-COST 8 TIMES. MP )@@G@@@A@@@] MOVE 0 TO PCTR (Q1). @ @@@] ADD 1 TO PCTRMQ )@@G@@ (Q2).@@@@@]@^@@@] 551-MOVE-SHIFT. @^@@@] ADD 1 TO Q3. MR )@@G@@@E@@@] ADD TT-SHIFT-NO (Q1, Q3) TO TT-SHIFT-NO (Q2, Q3).@F@@@]MS )@@G@@ ADD TT-SHIFT-COST (Q1, Q3) TO TT-SHIFT-COST (Q2, Q3). @F@@@]MT )@@G@@ MOVE 0 TO TT-SHIFT-NO (Q1, Q3) TT-SHIFT-COST (Q1, Q3). @@@@@]MU )@@G@@@^@@@] 552-MOVE-NBR. @^@@@] ADD 1 TO Q3. @E@@@] MV )@@G@@ ADD TT-NBRS (Q1, Q3) TO TT-NBRS (Q2, Q3). @E@@@] AMW )@@G@@DD TT-COST (Q1, Q3) TO TT-COST (Q2, Q3). @E@@@] MOVE 0 MX )@@G@@TO TT-NBRS (Q1, Q3) TT-COST (Q1, Q3). @@@@@]@^@@@] 553-MOVE-COMY )@@G@@ST. @^@@@] ADD 1 TO Q3. @D@@@] ADD TT-COST (Q1, Q3MZ )@@G@@) TO TT-COST (Q2, Q3). @B@@@] MOVE 0 TO TT-COST (Q1, Q3). NA )@@G@@@@@@@]@^@@@] 554-SET-HDG. @A@@@] MOVE M-MO9 TO QNB )@@G@@1 @B@@@] MOVE MTH (Q1) TO D-DATE1 @A@@@] NC )@@G@@ MOVE M-YR TO D-YR-1 @B@@@] IF M-PERIOD > YN-PERIOD ND )@@G@@@A@@@] MOVE YN-MO9 TO Q1 @B@@@] MOVE MTH NE )@@G@@(Q1) TO T-DATE1 @A@@@] MOVE YN-YR TO T-YR-1 @A@@@] NF )@@G@@ MOVE M-MO9 TO Q1 @B@@@] MOVE MTH (Q1) TO T-DANG )@@G@@TE2 @A@@@] MOVE M-YR TO T-YR-2 @#@@@] ELSE NH )@@G@@@B@@@] MOVE SPACES TO FILL-HDR @A@@@] MNI )@@G@@OVE M-MO9 TO Q1 @B@@@] MOVE MTH (Q1) TO T-DATE1 @B@@@]NJ )@@G@@ MOVE M-YR TO T-YR-1. @B@@@] MOVE M-BUDGENK )@@G@@T TO H-BUDGET. @A@@@] MOVE M-ACCT TO H-ACCT. @B@@@] NL )@@G@@ MOVE M-PERIOD TO H-PERIOD. @B@@@] MOVE SPACES TO DEPTNM )@@G@@-HEADER-1M. @C@@@] ENTER FD 'GETDATE' USING DATE-AREA. @F@@@]NN )@@G@@ ENTER FD 'DATEDIT' USING DATE-AREA DATE-8 INDICATOR. @D@@@]NO )@@G@@ MOVE DATE-8 TO DEPT-DATE OF DEPT-HEADER-2. @G@@@] MNP )@@G@@OVE 'H1551070' TO DEPT-PROGRAM-NUM OF DEPT-HEADER-2. @E@@@] NQ )@@G@@ MOVE 'H15515' TO DEPT-RUN-ID OF DEPT-HEADER-1. @@@@@]@^@@@] NR )@@G@@ 561-CHECK-MONTH. @^@@@] IF Q = 1 @A@@@] IF YNNS )@@G@@-BUDGET = H-BUDGET@A@@@] IF YN-ACCT = H-ACCT @B@@@] NT )@@G@@ IF YN-PERIOD > H-PERIOD @C@@@] WRITE YO-CONU )@@G@@ST FROM YN-COST @C@@@] PERFORM 510-READ-YTD-IN NV )@@G@@@B@@@] GO TO 561-CHECK-MONTH. @@@@@]@^@@@] 565-SNW )@@G@@UM-HDGS. @^@@@] ADD 1 TO PAG @D@@@] MOVE PAG TO DNX )@@G@@EPT-PAGE-NUM OF DEPT-HEADER-1.@F@@@] WRITE PRINT FROM DEPT-HEANY )@@G@@DER-1M AFTER ADVANCING PAGE. @E@@@] WRITE PRINT FROM DEPT-HEANZ )@@G@@DER-1 AFTER ADVANCING 2.@E@@@] WRITE PRINT FROM DEPT-HEADER-2 OA )@@G@@AFTER ADVANCING 1.@E@@@] WRITE PRINT FROM DEPT-HEADER-3 AFTER OB )@@G@@ADVANCING 2.@E@@@] WRITE PRINT FROM DEPT-HEADER-4 AFTER ADVANCOC )@@G@@ING 2.@ @@@] MOVE 'N' TO D-INDK.@@@@@]@^@@@] 566-SUM-HDGOD )@@G@@-2. @^@@@] ADD 1 TO PAG @D@@@] MOVE PAG TO DEPT-PAOE )@@G@@GE-NUM OF DEPT-HEADER-1.@F@@@] WRITE PRINT FROM DEPT-HEADER-1MOF )@@G@@ AFTER ADVANCING PAGE. @E@@@] WRITE PRINT FROM DEPT-HEADER-1 OG )@@G@@AFTER ADVANCING 2.@E@@@] WRITE PRINT FROM DEPT-HEADER-2 AFTER OH )@@G@@ADVANCING 1.@@@@@]@^@@@] 567-MOVE-BILX. @A@@@] IF YN-BOI )@@G@@UDGET < H-BUDGET @B@@@] IF YN-PERIOD NOT = H-PERIOD @B@@@]OJ )@@G@@ WRITE YO-COST FROM YN-COST @B@@@] PERFORM 51OK )@@G@@0-READ-YTD-IN @A@@@] GO TO 567-MOVE-BILX @#@@@] OL )@@G@@ ELSE @B@@@] PERFORM 510-READ-YTD-IN @A@@@] OM )@@G@@ GO TO 567-MOVE-BILX. @A@@@] IF YN-BUDGET = H-BUDGET ON )@@G@@@A@@@] IF YN-ACCT < H-ACCT @B@@@] IF YN-PEROO )@@G@@IOD NOT = H-PERIOD@B@@@] WRITE YO-COST FROM YN-COST @B@@@]OP )@@G@@ PERFORM 510-READ-YTD-IN @A@@@] GO TO 567OQ )@@G@@-MOVE-BILX @^@@@] ELSE @B@@@] PERFORMOR )@@G@@ 510-READ-YTD-IN @B@@@] GO TO 567-MOVE-BILX. @A@@@]OS )@@G@@ IF YN-BUDGET = H-BUDGET@A@@@] IF YN-ACCT = H-OT )@@G@@ACCT @B@@@] IF YN-PERIOD < H-PERIOD @E@@@] OU )@@G@@ ADD WS-EXPENDITURE TO TT-COST (Q, 28) @C@@@] OV )@@G@@ WRITE YO-COST FROM YN-COST @B@@@] PERFORM 510-READ-OW )@@G@@YTD-IN@B@@@] GO TO 567-MOVE-BILX @^@@@] OX )@@G@@ ELSE @B@@@] IF YN-PERIOD = H-PERIOD@C@@@] OY )@@G@@ PERFORM 510-READ-YTD-IN. @B@@@] IF M-SRT-SEQOZ )@@G@@ NOT = HIGH-VALUES@B@@@] WRITE YO-COST FROM S-FILE. @A@@@]PA )@@G@@ PERFORM 561-CHECK-MONTH. @ @@@] MOVE 'N' TO D-INDK.PB )@@G@@@ @@@] MOVE 0 TO Q4 Q3 @ @@@] PERFORM 568-BILX. PC )@@G@@@ @@@] IF D-INDK = 'Y'@B@@@] PERFORM 581-PD )@@G@@ADD-BILL @#@@@] ELSE @B@@@] PERFORM 569-CKPE )@@G@@-LEACH. @@@@@]@#@@@] 568-BILX. @^@@@] ADD 1 TO Q4. PF )@@G@@@B@@@] IF PAY-ACCT-CD (Q4) > SPACES @C@@@] IF PG )@@G@@PAY-ACCT-CD (Q4) = H-ACCT1 @A@@@] MOVE 'Y' TO D-INDKPH )@@G@@@A@@@] ELSE GO TO 568-BILX.@@@@@]@^@@@] 569-CK-LEACPI )@@G@@H. @^@@@] ADD 1 TO Q3 @B@@@] IF L-ACCT-CD (Q3) >PJ )@@G@@ SPACES @B@@@] IF L-ACCT-CD (Q3) = H-ACCT1 @ @@@] PK )@@G@@ MOVE 0 TO Q4 @B@@@] PERFORM 586-FIND-PAYEE PL )@@G@@@A@@@] GO TO 569-CK-LEACH @#@@@] ELSE @A@@@]PM )@@G@@ GO TO 569-CK-LEACH. @@@@@]@^@@@] 570-MOVE-SUM. PN )@@G@@@ @@@] MOVE 0 TO LCTR. @A@@@] PERFORM 570E-CK-TITPO )@@G@@LE. @B@@@] IF LCTR > 0 GO TO 570A-OUT. @C@ @] * PPP )@@G@@ERFORM 570B-CK-ZERO THRU 570C-Z-OUT.@C@@@ PERFORM 570B-CK-ZERPQ )@@G@@O THRU 570C-Z-OUT.@B@ @] * IF LCTR = 0 GO TO 570A-OUT. @B@@@ PR )@@G@@ IF LCTR = 0 GO TO 570A-OUT. @A@@@] PERFORM 565-SPS )@@G@@UM-HDGS. @ @@@] PERFORM 571-TITLE. @B@@@] MOVE PRPT )@@G@@T-L-BACK1 TO P-POS2B @A@@@] PERFORM 572-WRITE-SUM. @B@@@]PU )@@G@@ MOVE PRT-L-BACK2 TO P-POS2B. @B@@@] MOVE PL01 PV )@@G@@ TO P-POS2A. @ @@@] MOVE 1 TO TYMES. @A@@@] PPW )@@G@@ERFORM 572-WRITE-SUM. @ @@@] MOVE 3 TO TYMES. @B@@@] PX )@@G@@ MOVE PL02 TO P-POS2A. @A@@@] PERFORM 572-WRITE-SPY )@@G@@UM. @B@@@] MOVE PL03 TO P-POS2A. @C@@@] MPZ )@@G@@OVE TT-TOT-RUNS (Q) TO P-EDIT2A. @A@@@] MOVE P-EDIT2A TO PTQA )@@G@@-2A. @A@@@] MOVE P-T-02 TO P-POS2B. @A@@@] PERFORMQB )@@G@@ 572-WRITE-SUM. @G@@@] ADD TT-SHIFT-NO (Q, 1) TT-SHIFT-NO (QQC )@@G@@, 2) TT-SHIFT-NO (Q, 3) @ @@@] GIVING W-CTR1.@A@@@] QD )@@G@@ MOVE W-CTR1 TO P-EDIT1. @A@@@] MOVE P-EDIT1 TO PT-2A. QE )@@G@@@A@@@] MOVE P-T-02 TO P-POS2B. @A@@@] MOVE PL04 TQF )@@G@@O P-POS2A. @ @@@] MOVE 1 TO TYMES. @A@@@] PERFORMQG )@@G@@ 572-WRITE-SUM. @C@@@] MOVE 4 TO Q1 MOVE 0 TO Q2 W-CTR3. QH )@@G@@@B@@@] PERFORM 573-MOVE-SHIFT 3 TIMES.@ @@@] MOVE 2 QI )@@G@@TO TYMES. @^@@@] MOVE 0 TO Q2.@^@@@] MOVE 7 TO Q1.QJ )@@G@@@B@@@] PERFORM 574-MOVE-NBRS 11 TIMES.@A@@@] MOVE PLQK )@@G@@19 TO P-POS2A. @A@@@] MOVE W-CTR3 TO P-EDIT5. @A@@@] QL )@@G@@ MOVE P-EDIT5 TO PT-2D. @A@@@] MOVE P-T-02 TO P-POS2B. QM )@@G@@@A@@@] PERFORM 572-WRITE-SUM. @A@@@] PERFORM 566-SQN )@@G@@UM-HDG-2. @ @@@] PERFORM 571-TITLE. @A@@@] MOVE PLQO )@@G@@20 TO P-POS2A. @A@@@] PERFORM 572-WRITE-SUM. @ @@@] QP )@@G@@ MOVE 20 TO Q1. @ @@@] MOVE 11 TO Q2. @ @@@] QQ )@@G@@ MOVE 2 TO TYMES. @B@@@] PERFORM 575-DATA-ENTRY 2 TIMES.QR )@@G@@@ @@@] MOVE 2 TO TYMES. @B@@@] PERFORM 575-DATA-ENQS )@@G@@TRY 2 TIMES.@ @@@] MOVE 2 TO TYMES. @ @@@] MOVE 11QT )@@G@@ TO Q3. @B@@@] PERFORM 576-DE-HRS 2 TIMES. @ @@@] QU )@@G@@ MOVE 2 TO TYMES. @ @@@] PERFORM 576-DE-HRS.@A@@@] QV )@@G@@ MOVE PL28 TO P-POS2A. @C@@@] MOVE TT-NBRS (Q, 19) TO PQW )@@G@@-EDIT2A. @A@@@] MOVE P-EDIT2A TO PT-2A. @C@@@] MQX )@@G@@OVE TT-COST (Q, 19) TO P-EDIT5. @A@@@] MOVE P-EDIT5 TO PT-QY )@@G@@2D. @A@@@] IF TT-NBRS (Q, 19) > 0 @A@@@] IF TTQZ )@@G@@-COST (Q, 19) > 0 @E@@@] DIVIDE TT-COST (Q, 19) BY TT-NBRSRA )@@G@@ (Q, 19) @A@@@] GIVING W-CTR4 @B@@@] RB )@@G@@ MOVE W-CTR4 TO P-EDIT3 @B@@@] MOVE P-EDIT3 TO PT-4RC )@@G@@B. @A@@@] MOVE P-T-02 TO P-POS2B. @A@@@] PERFORMRD )@@G@@ 572-WRITE-SUM. @ @@@] MOVE 1 TO TYMES. @C@@@] MRE )@@G@@OVE TT-COST (Q, 20) TO P-EDIT5. @A@@@] MOVE P-EDIT5 TO PT-RF )@@G@@2D. @A@@@] MOVE PL29 TO P-POS2A. @A@@@] MOVE P-RG )@@G@@T-02 TO P-POS2B. @A@@@] PERFORM 572-WRITE-SUM. @ @@@] RH )@@G@@ MOVE 3 TO TYMES. @A@@@] MOVE 0 TO Q1 W-CTR4. @B@@@]RI )@@G@@ MOVE 'OTHER - ' TO P-POS3A. @ @@@] IF ADJ-HOLD >RJ )@@G@@ 0 @C@@@] PERFORM 577-OTHERS ADJ-HOLD TIMES. @^@@@] RK )@@G@@ IF Q > 2 @ @@@] IF W-CTR4 NOT = 0@B@@@] RL )@@G@@ MOVE ' COSTS ' TO P-POS3B @B@@@] MOVE W-CTR4 TO P-EDIRM )@@G@@T5N @B@@@] MOVE P-EDIT5N TO PT-2N @B@@@] RN )@@G@@ MOVE P-T-02 TO P-POS2B @B@@@] PERFORM 572-WRITE-SURO )@@G@@M. @A@@@] MOVE SPACES TO P-T-01. @G@@@] ADD W-CRP )@@G@@TR3 TT-COST (Q, 16) TT-COST (Q, 17) TT-COST (Q, 18) @E@@@] RQ )@@G@@ TT-COST (Q, 19) TT-COST (Q, 20) TO W-CTR4. @A@@@] MOVE W-RR )@@G@@CTR4 TO P-EDIT5N. @A@@@] MOVE P-EDIT5N TO PT-2N. @A@@@] RS )@@G@@ MOVE PL30 TO P-POS2A. @ @@@] MOVE 2 TO TYMES. @A@@@]RT )@@G@@ MOVE P-T-02 TO P-POS2B. @A@@@] PERFORM 572-WRITE-SRU )@@G@@UM. @B@@@] ADD TT-COST (Q, 28) TO W-CTR4. @A@@@] MRV )@@G@@OVE PL31 TO P-POS2A. @^@@@] IF Q = 1 OR 2@ @@@] RW )@@G@@ IF H-BUD-AMT > 0 @D@@@] MOVE '(BUDGETED AMOUNT = ' TO PT-RX )@@G@@3A @A@@@] MOVE ')' TO PT-3C @B@@@] MOVRY )@@G@@E H-BUD-AMT TO P-EDIT5 @B@@@] MOVE P-EDIT5 TO PT-3B. RZ )@@G@@@A@@@] MOVE P-T-02 TO P-POS2B. @A@@@] PERFORM 572-WSA )@@G@@RITE-SUM @ @@@] MOVE 1 TO TYMES @A@@@] MOVE TRSB )@@G@@LR3 TO P-POS2A. @A@@@] MOVE W-CTR4 TO P-EDIT5N. @A@@@] SC )@@G@@ MOVE P-EDIT5N TO PT-2N. @A@@@] MOVE P-T-02 TO P-POS2B. SD )@@G@@@A@@@] PERFORM 572-WRITE-SUM. @ @@@] MOVE 4 TO TYMSE )@@G@@ES. @^@@@] IF Q = 1 @B@@@] IF H-ACCT1 NOT = NSF )@@G@@P-ACCT (Q5) @B@@@] PERFORM 579-ADD-OVRHD. @A@@@] SG )@@G@@ PERFORM 580-MOVE-OVRHD. @@@@@]@^@@@] 570A-OUT. EXIT. @@@@@]SH )@@G@@@^@@@] 570B-CK-ZERO. @C@@@] IF TT-TOT-RUNS (Q) > 0 ADSI )@@G@@D 1 TO LCTR.@D@@@] IF TT-SHIFT-NO (Q, 1) > 0 ADD 1 TO LCTR. SJ )@@G@@@D@@@] IF TT-SHIFT-NO (Q, 2) > 0 ADD 1 TO LCTR. @D@@@] SK )@@G@@ IF TT-SHIFT-NO (Q, 3) > 0 ADD 1 TO LCTR. @C@@@] IF TT-CSL )@@G@@OST (Q, 14) > 0 ADD 1 TO LCTR.@C@@@] IF TT-COST (Q, 12) > 0 ADSM )@@G@@D 1 TO LCTR.@C@@@] IF TT-COST (Q, 13) > 0 ADD 1 TO LCTR.@B@@@]SN )@@G@@ IF LCTR > 0 GO TO 570C-Z-OUT. @^@@@] MOVE 0 TO Q1.SO )@@G@@@B@@@] PERFORM 570D-LOOP 20 TIMES. @A@@@ IF TT-CSP )@@G@@OST (Q, 28) > 0 @ @@@ ADD 1 TO LCTR. @@@@@]@ @@@] SQ )@@G@@ 570C-Z-OUT. EXIT. @@@@@]@#@@@] 570D-LOOP. @^@@@] ASR )@@G@@DD 1 TO Q1. @C@@@] IF TT-NBRS (Q, Q1) > 0 ADD 1 TO LCTR.@@@@@]SS )@@G@@@^@@@] 570E-CK-TITLE. @^@@@] IF Q = 1 OR 2@E@@@] ST )@@G@@ IF H-ACCT-DISCRIPT = SPACE MOVE 1 TO LCTR. @^@@@] ISU )@@G@@F Q = 3 @D@@@] IF H-BUD-DISCRIPT = SPACE MOVE 1 TO LCTR.SV )@@G@@@^@@@] IF Q = 4 @D@@@] IF H-BUR-DISCRIPT = SPASW )@@G@@CE MOVE 1 TO LCTR.@^@@@] IF Q = 5 @D@@@] IF H-SX )@@G@@DEP-DISCRIPT = SPACE MOVE 1 TO LCTR.@@@@@]@#@@@] 571-TITLE. @^@@@]SY )@@G@@ IF Q = 1 @A@@@] MOVE H-ACCT TO P-ACCT@D@@@]SZ )@@G@@ MOVE H-ACCT-DISCRIPT TO P-T-ACCT-DISC @B@@@] TA )@@G@@ MOVE PRT-TITLE2 TO P-POS5. @^@@@] IF Q = 2 @B@@@] TB )@@G@@ MOVE H-ACCT1 TO PRT-A1 @B@@@] MOVE ' TOTAL TC )@@G@@' TO PRT-A2@D@@@] MOVE H-ACCT-DISCRIPT TO P-T-ACCT-DISC TD )@@G@@@B@@@] MOVE PRT-TITLE2 TO P-POS5. @^@@@] IF Q = TE )@@G@@3 @C@@@] MOVE H-BUD-DISCRIPT TO P-T-BUD @B@@@] TF )@@G@@ MOVE H-BUDGET TO PRT-3A @B@@@] MOVE PRT-TITLE3 TTG )@@G@@O P-POS5. @^@@@] IF Q = 4 @C@@@] MOVE H-BUTH )@@G@@R-DISCRIPT TO P-T-BUR @B@@@] MOVE PRT-TITLE4 TO P-POS5. TI )@@G@@@^@@@] IF Q = 5 @C@@@] MOVE H-DEP-DISCRIPT TTJ )@@G@@O P-T-DEP @B@@@] MOVE PRT-TITLE5 TO P-POS5. @^@@@] TK )@@G@@ IF Q = 6 @G@@@] MOVE 'D E P A R T M E N T A L TTL )@@G@@ O T A L S ' TO P-POS2A.@ @@@] MOVE 2 TO TYMES. @A@@@] TM )@@G@@ PERFORM 572-WRITE-SUM. @@@@@]@^@@@] 572-WRITE-SUM. @F@@@]TN )@@G@@ WRITE PRINT FROM PRINT-LINE AFTER ADVANCING TYMES. @B@@@]TO )@@G@@ MOVE SPACES TO P-LINE1 P-T-01.@@@@@]@^@@@] 573-MOVE-SHTP )@@G@@IFT. @^@@@] ADD 1 TO Q1 @^@@@] ADD 1 TO Q2 @B@@@]TQ )@@G@@ MOVE PRT-LN (Q1) TO P-POS2A @C@@@] MOVE TT-SHIFTTR )@@G@@-NO (Q, Q2) TO P-EDIT1 @A@@@] MOVE P-EDIT1 TO PT-2A @A@@@]TS )@@G@@ MOVE 'I' TO PT-2C @C@@@] ADD TT-SHIFT-COST (TT )@@G@@Q, Q2) TO W-CTR3. @C@@@] MOVE CMPUTR-RATES (Q2) TO P-EDIT3. TU )@@G@@@A@@@] MOVE P-EDIT3 TO PT-4B@C@@@] MOVE TT-SHIFTTV )@@G@@-COST (Q, Q2) TO P-EDIT5@A@@@] MOVE P-EDIT5 TO PT-2D. @A@@@]TW )@@G@@ MOVE P-T-02 TO P-POS2B @A@@@] PERFORM 572-WRITE-STX )@@G@@UM. @@@@@]@^@@@] 574-MOVE-NBRS. @^@@@] ADD 1 TO Q1. TY )@@G@@@^@@@] ADD 1 TO Q2. @B@@@] MOVE PRT-LN (Q1) TO P-POSTZ )@@G@@7A. @C@@@] MOVE TT-NBRS (Q, Q2) TO P-EDIT2. @A@@@] UA )@@G@@ MOVE P-EDIT2 TO PT-7A @B@@@] MOVE TP-COSTS (Q2) TO P-UB )@@G@@EDIT6.@A@@@] MOVE P-EDIT6 TO PT-7B @C@@@] MOVE TPUC )@@G@@-UNIT-TYPE (Q2) TO PT-7C. @C@@@] MOVE TT-COST (Q, Q2) TO PUD )@@G@@-EDIT5. @B@@@] ADD TT-COST (Q, Q2) TO W-CTR3. @A@@@] UE )@@G@@ MOVE P-EDIT5 TO PT-7D. @A@@@] PERFORM 572-WRITE-SUM. UF )@@G@@@@@@@]@^@@@] 575-DATA-ENTRY. @^@@@] ADD 1 TO Q1. @^@@@]UG )@@G@@ ADD 1 TO Q2. @B@@@] MOVE PRT-LN (Q1) TO P-POS2A. UH )@@G@@@C@@@] MOVE TT-NBRS (Q, Q2) TO P-EDIT2A. @A@@@] MUI )@@G@@OVE P-EDIT2A TO PT-2A. @A@@@] MOVE P-T-02 TO P-POS2B. @A@@@]UJ )@@G@@ PERFORM 572-WRITE-SUM. @ @@@] MOVE 1 TO TYMES. UK )@@G@@@@@@@]@#@@@] 576-DE-HRS.@A@@@] ADD 1 TO Q1. ADD 1 TO Q3 UL )@@G@@@^@@@] ADD 1 TO Q2. @B@@@] MOVE PRT-LN (Q1) TO P-POSUM )@@G@@2A. @B@@@] MOVE TT-COST (Q, Q3) TO P-EDIT8@A@@@] MUN )@@G@@OVE P-EDIT8 TO PT-2A @C@@@] MOVE TT-COST (Q, Q2) TO P-EDIT5UO )@@G@@. @A@@@] MOVE P-EDIT5 TO PT-2D @ @@@] MOVE 'IUP )@@G@@' TO PT-2C. @^@@@] IF Q3 = 14 @C@@@] MOVE AP INUQ )@@G@@ HOURLY-RATES TO P-EDIT3@#@@@] ELSE @D@@@] MOVEUR )@@G@@ D-E IN HOURLY-RATES TO P-EDIT3. @A@@@] MOVE P-EDIT3 TO PT-US )@@G@@4B. @A@@@] MOVE P-T-02 TO P-POS2B @A@@@] PERFORMUT )@@G@@ 572-WRITE-SUM. @ @@@] MOVE 1 TO TYMES. @@@@@]@#@@@] UU )@@G@@ 577-OTHERS.@^@@@] ADD 1 TO Q1. @^@@@] IF Q = 1 UV )@@G@@@C@@@] IF ADJ-BUDGET (Q1) = H-BUDGET @C@@@] UW )@@G@@ IF ADJ-ACCOUNT (Q1) = H-ACCT @B@@@] PERFORM 578UX )@@G@@-MOVE-OTHER.@^@@@] IF Q = 2 @C@@@] IF ADJ-BUUY )@@G@@DGET (Q1) = H-BUDGET @C@@@] IF ADJ-ACCT1 (Q1) = H-ACCUZ )@@G@@T1 @B@@@] PERFORM 578-MOVE-OTHER.@^@@@] IVA )@@G@@F Q = 3 @C@@@] IF ADJ-BUDGET (Q1) = H-BUDGET @C@@@]VB )@@G@@ ADD ADJ-AMOUNT (Q1) TO W-CTR4.@^@@@] IF Q = VC )@@G@@4 @B@@@] IF ADJ-DEPT (Q1) = H-DEPT @B@@@] VD )@@G@@ IF ADJ-BUR (Q1) = H-BUR @D@@@] ADD ADJ-AMOUNT (QVE )@@G@@1) TO W-CTR4. @^@@@] IF Q = 5 @B@@@] IF VF )@@G@@ADJ-DEPT (Q1) = H-DEPT @D@@@] ADD ADJ-AMOUNT (Q1) TO VG )@@G@@W-CTR4. @^@@@] IF Q = 6 @D@@@] ADD AVH )@@G@@DJ-AMOUNT (Q1) TO W-CTR4. @@@@@]@^@@@] 578-MOVE-OTHER. @C@@@]VI )@@G@@ MOVE ADJ-DISCRIPT (Q1) TO P-POS3B. @C@@@] MOVE ADVJ )@@G@@J-AMOUNT (Q1) TO P-EDIT5N. @A@@@] MOVE P-EDIT5N TO PT-2N. VK )@@G@@@A@@@] MOVE P-T-02 TO P-POS2B @B@@@] ADD ADJ-AMOUVL )@@G@@NT (Q1) TO W-CTR4.@A@@@] PERFORM 572-WRITE-SUM. @ @@@] VM )@@G@@ MOVE 1 TO TYMES. @@@@@]@^@@@] 579-ADD-OVRHD. @G@@@] VN )@@G@@ MULTIPLY M-OVRHD-CMPR BY W-CTR3 GIVING TT-COST (1, 22). @F@@@]VO )@@G@@ MULTIPLY M-BENFT-CMPR BY W-CTR3 GIVING TT-COST (1, 25).@F@@@]VP )@@G@@ MULTIPLY M-BENFT-AN-PROG BY TT-COST (1, 18) GIVING @E@@@]VQ )@@G@@ TT-COST (1, 27). @F@@@] VR )@@G@@ MULTIPLY M-OVRHD-AN-PROG BY TT-COST (1, 18) GIVING @E@@@] VS )@@G@@ TT-COST (1, 24). @F@@@] AVT )@@G@@DD TT-COST (1, 16) TT-COST (1, 17) GIVING W-CTR3. @F@@@] MVU )@@G@@ULTIPLY M-OVRHD-DE BY W-CTR3 GIVING TT-COST (1, 23). @F@@@] MVV )@@G@@ULTIPLY M-BENFT-DE BY W-CTR3 GIVING TT-COST (1, 26). @@@@@]@^@@@] VW )@@G@@ 580-MOVE-OVRHD. @B@@@] MOVE TD2-OVRHD TO TRLR-PCT. @C@@@]VX )@@G@@ MOVE TT-COST (Q, 22) TO TRLR-CPR. @C@@@] MOVE TTVY )@@G@@-COST (Q, 23) TO TRLR-DATA. @C@@@] MOVE TT-COST (Q, 24) TO TVZ )@@G@@RLR-A-P. @A@@@] MOVE OVRHD TO P-POS4A1 @A@@@] MWA )@@G@@OVE TRLR1 TO P-POS4A2 @A@@@] PERFORM 572-WRITE-SUM @ @@@]WB )@@G@@ MOVE 1 TO TYMES @A@@@] MOVE TRLR2 TO P-POS4A WC )@@G@@@A@@@] PERFORM 572-WRITE-SUM @ @@@] MOVE 3 TO TYMWD )@@G@@ES @A@@@] MOVE EMPL-BEN TO P-POS4B1@B@@@] MOVE TDWE )@@G@@2-E-BEN TO TRLR-PCT @C@@@] MOVE TT-COST (Q, 25) TO TRLR-CPWF )@@G@@R. @C@@@] MOVE TT-COST (Q, 26) TO TRLR-DATA. @C@@@] WG )@@G@@ MOVE TT-COST (Q, 27) TO TRLR-A-P. @A@@@] MOVE TRLR1 TOWH )@@G@@ P-POS4B2 @A@@@] PERFORM 572-WRITE-SUM @ @@@] MWI )@@G@@OVE 1 TO TYMES @A@@@] MOVE TRLR2 TO P-POS4A. @A@@@] WJ )@@G@@ PERFORM 572-WRITE-SUM. @@@@@]@^@@@] 581-ADD-BILL. @^@@@]WK )@@G@@ MOVE 0 TO Q2 @B@@@] PERFORM 582-ADD-SHIFT 3 TIMES. WL )@@G@@@^@@@] MOVE 0 TO Q2.@B@@@] PERFORM 584-ADD-NBRS 11 TWM )@@G@@IMES. @D@@@] ADD TT-NBRS (1, 19) TO PAY-NBRS (Q4, 12).@D@@@]WN )@@G@@ ADD TT-COST (1, 19) TO PAY-COST (Q4, 12).@D@@@] AWO )@@G@@DD TT-COST (1, 14) TO PAY-AP-HRS (Q4). @D@@@] ADD TT-COST (WP )@@G@@1, 18) TO PAY-AP-COST (Q4). @F@@@] ADD TT-COST (1, 12) TT-COWQ )@@G@@ST (1, 13) TO PAY-DE-HRS (Q4).@G@@@] ADD TT-COST (1, 16) TT-COWR )@@G@@ST (1, 17) TO PAY-DE-COST (Q4). @C@@@] ADD TT-COST (1, 20)WS )@@G@@ TO PAY-HWR (Q4).@@@@@]@^@@@] 582-ADD-SHIFT. @^@@@] AWT )@@G@@DD 1 TO Q2. @F@@@] ADD TT-SHIFT-NO (1, Q2) TO PAY-SHIFT-NO (QWU )@@G@@4, Q2). @F@@@] ADD TT-SHIFT-COST (1, Q2) TO PAY-SHIFT-COSWV )@@G@@T (Q4, Q2). @@@@@]@^@@@] 584-ADD-NBRS. @^@@@] ADD 1 TWW )@@G@@O Q2. @D@@@] ADD TT-NBRS (1, Q2) TO PAY-NBRS (Q4, Q2). @D@@@]WX )@@G@@ ADD TT-COST (1, Q2) TO PAY-COST (Q4, Q2). @@@@@]@^@@@] WY )@@G@@ 585-ADD-LEACH. @A@@@] IF L-PAY-PCT (Q3, 1) > 0 @E@@@] WZ )@@G@@ MULTIPLY L-PAY-PCT (Q3, 1) BY .01 GIVING LPCT@F@@@] XA )@@G@@ COMPUTE LCTR = (TT-COST (1, 16) + TT-COST (1, 17)) @ @@@] XB )@@G@@ * LPCT @C@@@] ADD LCTR TO PAY-DE-COST (Q4) XC )@@G@@@F@@@] COMPUTE LCTR = (TT-COST (1, 12) + TT-COST (1, 13)) XD )@@G@@@ @@@] * LPCT @C@@@] ADD LCTR TO PAXE )@@G@@Y-DE-HRS (Q4). @A@@@] IF L-PAY-PCT (Q3, 2) > 0 @E@@@] XF )@@G@@ MULTIPLY L-PAY-PCT (Q3, 2) BY .01 GIVING LPCT@D@@@] XG )@@G@@ COMPUTE LCTR = TT-COST (1, 18) * LPCT @C@@@] ADD LCTR XH )@@G@@TO PAY-AP-COST (Q4) @D@@@] COMPUTE LCTR = TT-COST (1, XI )@@G@@14) * LPCT @C@@@] ADD LCTR TO PAY-AP-HRS (Q4). @A@@@]XJ )@@G@@ IF L-PAY-PCT (Q3, 3) > 0 @E@@@] MULTIPLY L-PAY-XK )@@G@@PCT (Q3, 3) BY .01 GIVING LPCT@ @@@] MOVE 0 TO Q2 @B@@@]XL )@@G@@ PERFORM 587A-CMPTR 3 TIMES @ @@@] MOVE 0 TOXM )@@G@@ Q2 @C@@@] PERFORM 587-COMPUTE 11 TIMES. @A@@@] XN )@@G@@ IF L-PAY-PCT (Q3, 4) > 0 @E@@@] MULTIPLY L-PAY-PCT (QXO )@@G@@3, 4) BY .01 GIVING LPCT@D@@@] COMPUTE LCTR = TT-COST (1, XP )@@G@@19) * LPCT @C@@@] ADD LCTR TO PAY-COST (Q4, 12). @A@@@]XQ )@@G@@ IF L-PAY-PCT (Q3, 5) > 0 @E@@@] MULTIPLY L-PAY-XR )@@G@@PCT (Q3, 5) BY .01 GIVING LPCT@D@@@] COMPUTE LCTR = TT-COSXS )@@G@@T (1, 20) * LPCT @B@@@] ADD LCTR TO PAY-HWR (Q4). @@@@@]XT )@@G@@@^@@@] 586-FIND-PAYEE. @^@@@] ADD 1 TO Q4. @B@@@] XU )@@G@@ IF PAY-ACCT-CD (Q4) > SPACES @D@@@] IF PAY-ACCT-CD (QXV )@@G@@4) = L-PAY-ACCT (Q3) @B@@@] PERFORM 585-ADD-LEACH XW )@@G@@@#@@@] ELSE @B@@@] GO TO 586-FIND-PAYEE. XX )@@G@@@@@@@]@^@@@] 587-COMPUTE. @^@@@] ADD 1 TO Q2. @D@@@]XY )@@G@@ COMPUTE LCTR = TT-COST (1, Q2) * LPCT. @C@@@] XZ )@@G@@ ADD LCTR TO PAY-COST (Q4, Q2). @E@@@] MULTIPLY TT-NBRS (1YA )@@G@@, Q2) BY LPCT GIVING NBRS @C@@@] ADD NBRS TO PAY-NBRSYB )@@G@@ (Q4, Q2). @@@@@]@#@@@] 587A-CMPTR.@^@@@] ADD 1 TO Q2.YC )@@G@@@D@@@] COMPUTE LCTR = TT-SHIFT-NO (1, Q2) * LPCT.@C@@@] YD )@@G@@ ADD LCTR TO PAY-SHIFT-NO (Q4, Q2). @E@@@] COMPUTE LCTRYE )@@G@@ = TT-SHIFT-COST (1, Q2) * LPCT. @C@@@] ADD LCTR TO PAY-SHYF )@@G@@IFT-COST (Q4, Q2).@@@@@]@^@@@] 588-SET-DATE. @B@@@] MYG )@@G@@OVE SPACES TO SWAP-1 SWAP-2. @B@@@] MOVE MONTHS (H-MO) TO SWAYH )@@G@@P-1. @^@@@] MOVE 0 TO Q1 @^@@@] MOVE 1 TO Q2 @ @@@]YI )@@G@@ PERFORM 589-SWAP. @^@@@] ADD 1 TO Q2 @A@@@] YJ )@@G@@ MOVE ',' TO S2 (Q2). @^@@@] ADD 1 TO Q2 @A@@@] YK )@@G@@ MOVE ' ' TO S2 (Q2). @^@@@] ADD 1 TO Q2 @A@@@] YL )@@G@@ MOVE '1' TO S2 (Q2). @^@@@] ADD 1 TO Q2 @A@@@] YM )@@G@@ MOVE '9' TO S2 (Q2). @A@@@] MOVE SPACES TO SWAP-1. YN )@@G@@@A@@@] MOVE H-YR TO SWAP-1. @^@@@] ADD 1 TO Q2. YO )@@G@@@A@@@] MOVE S1 (1) TO S2 (Q2). @^@@@] ADD 1 TO Q2. YP )@@G@@@A@@@] MOVE S1 (2) TO S2 (Q2). @A@@@] MOVE SWAP-2 TYQ )@@G@@O BILL-3A. @@@@@]@#@@@] 589-SWAP. @^@@@] ADD 1 TO Q1. YR )@@G@@@ @@@] IF S1 (Q1) > SPACES@ @@@] ADD 1 TO Q2 YS )@@G@@@B@@@] MOVE S1 (Q1) TO S2 (Q2) @ @@@] GO YT )@@G@@TO 589-SWAP.@@@@@]@#@@@] 590-EOF. @B@@@] IF YN-SRT-SEQYU )@@G@@ < HIGH-VALUES @A@@@] IF YN-PERIOD = H-PERIOD@B@@@] YV )@@G@@ PERFORM 510-READ-YTD-IN @ @@@] GO TO 590-EOF YW )@@G@@@#@@@] ELSE @B@@@] WRITE YO-COST FROM YN-COSTYX )@@G@@@B@@@] PERFORM 510-READ-YTD-IN @ @@@] GOYY )@@G@@ TO 590-EOF.@B@A@] CLOSE YTD-IN YTD-OUT MTHLY. @A@@@A YZ )@@G@@ CLOSE YTD-IN YTD-OUT. @A@@@] MOVE 0 TO Q Q1 Q2 Q3 Q4. ZA )@@G@@@A@@@] PERFORM 588-SET-DATE. @^@@@] CLOSE PRINTR.ZB )@@G@@@ @@@] OPEN OUTPUT PRINT2.@@@@@]@^@@@] 600-BILLING. ZC )@@G@@@^@@@] ADD 1 TO Q. @D@@@] MOVE SPACES TO BILL-5C ZD )@@G@@BILL-6C BILL-12A @ @@@] MOVE 0 TO MAX. @B@@@] IZE )@@G@@F PAY-ACCT-CD (Q) = SPACES @A@@@] GO TO 690-FINISHED. ZF )@@G@@@ @@@] MOVE 0 TO LCTR. @C@@@] * PERFORM 605-CHECK-ZZG )@@G@@ERO THRU 606-OUT. @B@@@] * IF LCTR = 0 GO TO 600-BILLING. @A@@@]ZH )@@G@@ PERFORM 620-JA-INFO. @E@@@] WRITE PRINTB FROM CZI )@@G@@UT-LINE AFTER ADVANCING PAGE. @F@@@] WRITE PRINTB FROM DEPT-HEZJ )@@G@@ADER-2M AFTER ADVANCING 1. @D@@@] MOVE 'INTER-OFFICE ZK )@@G@@ ' TO P-POS1B. @ @@@] MOVE 1 TO TYMES. @A@@@] PZL )@@G@@ERFORM 617-WRITE-BILL. @F@@@] MOVE BILL-LINE1 TO P-POS5 ZM )@@G@@ PERFORM 617-WRITE-BILL.@ @@@] MOVE 1 TO TYMES. @F@@@] ZN )@@G@@ MOVE BILL-LINE2 TO P-POS5 PERFORM 617-WRITE-BILL.@ @@@] ZO )@@G@@ MOVE 2 TO TYMES. @F@@@] MOVE BILL-LINE3 TO P-POS5 ZP )@@G@@ PERFORM 617-WRITE-BILL.@ @@@] MOVE 1 TO TYMES. @F@@@] ZQ )@@G@@ MOVE BILL-LINE4 TO P-POS5 PERFORM 617-WRITE-BILL.@ @@@] ZR )@@G@@ MOVE 3 TO TYMES. @C@@@] MOVE D-E IN HOURLY-RATES TO LCTZS )@@G@@R. @A@@@] IF TD-4-MAX-FEES > SPACES@A@@@] IF TDZT )@@G@@-4-FEES (1) > 0 @B@@@] IF TD-4-FEES (1) < LCTR @C@@@]ZU )@@G@@ MOVE TD-4-FEES (1) TO LCTR @B@@@] IFZV )@@G@@ PAY-DE-COST (Q) > 0 @F@@@] MULTIPLY LCTR BY PAY-DE-HZW )@@G@@RS (Q) GIVING W-CTR3 @C@@@] MOVE W-CTR3 TO PAY-DE-COSZX )@@G@@T (Q) @ @@@] MOVE 1 TO MAX@C@@@] MOVE ' ZY )@@G@@NOTE-1' TO BILL-5C. @C@@@] ADD .05 PAY-DE-HRS (Q) GIVING ZZ )@@G@@W-CTR3@A@@@] MOVE W-CTR3 TO BILL-5A.@D@@@] ADD .0AA )@@G@@05 PAY-DE-COST (Q) GIVING W-CTR3 @A@@@] MOVE W-CTR3 TO P-AB )@@G@@EDIT7 @A@@@] MOVE LCTR TO BILL-5B @A@@@] MOVE AC )@@G@@P-EDIT7 TO P-POS6B@G@@@] MOVE BILL-LINE5 TO P-POS6A PERFOAD )@@G@@RM 617-WRITE-BILL. @ @@@] MOVE 2 TO TYMES. @C@@@] AE )@@G@@ MOVE AP IN HOURLY-RATES TO LCTR. @A@@@] IF TD-4-MAX-FAF )@@G@@EES > SPACES@A@@@] IF TD-4-FEES (2) > 0 @B@@@] AG )@@G@@ IF TD-4-FEES (2) < LCTR @C@@@] MOVE TD-4-FEES (2) AH )@@G@@ TO LCTR @B@@@] IF PAY-AP-COST (Q) > 0 @F@@@] AI )@@G@@ MULTIPLY LCTR BY PAY-AP-HRS (Q) GIVING W-CTR3 @C@@@] AJ )@@G@@ MOVE W-CTR3 TO PAY-AP-COST (Q)@ @@@] MOVE 1 AK )@@G@@TO MAX@C@@@] MOVE ' NOTE-1' TO BILL-6C. @C@@@] AL )@@G@@ ADD .05 PAY-AP-HRS (Q) GIVING W-CTR3@A@@@] MOVE W-CTR3AM )@@G@@ TO BILL-6A.@D@@@] ADD .005 PAY-AP-COST (Q) GIVING W-CTR3 AN )@@G@@@A@@@] MOVE W-CTR3 TO P-EDIT7.@A@@@] MOVE LCTR TAO )@@G@@O BILL-6B. @A@@@] MOVE P-EDIT7 TO P-POS6B@G@@@] MAP )@@G@@OVE BILL-LINE6 TO P-POS6A PERFORM 617-WRITE-BILL. @G@@@] AQ )@@G@@ MOVE BILL-LINE7 TO P-POS6A PERFORM 617-WRITE-BILL. @A@@@]AR )@@G@@ MOVE 0 TO Q1 Q2 W-CTR1. @D@@@] ADD PAY-SHIFT-NO (QAS )@@G@@, 1) PAY-SHIFT-NO (Q, 2)@C@@@] PAY-SHIFT-NO (Q, 3) TO W-CTAT )@@G@@R1. @A@@@] MOVE W-CTR1 TO BILL-8A. @F@@@] MOVE BIAU )@@G@@LL-LINE8 TO P-POS6A PERFORM 617-WRITE-BILL.@ @@@] MOVE 1 AV )@@G@@TO TYMES. @B@@@] PERFORM 610-SHIFTS 3 TIMES. @^@@@] AW )@@G@@ MOVE 0 TO Q1.@D@@@] PERFORM 611-NBRS THRU 612-EXIT 11 TAX )@@G@@IMES. @ @@@] MOVE 2 TO TYMES. @C@@@] ADD .005 PAYAY )@@G@@-S-TOT (Q) GIVING W-CTR3@A@@@] MOVE W-CTR3 TO P-EDIT7. @A@@@]AZ )@@G@@ MOVE P-EDIT7 TO P-POS6B @F@@@] MOVE BILL-LINE12 TBA )@@G@@O P-POS6A. PERFORM 617-WRITE-BILL.@A@@@] IF PAY-COST (Q, 12)BB )@@G@@ > 0 @B@@@] MOVE BILL-LINE11 TO P-POS6A @C@@@] BC )@@G@@ MOVE PAY-COST (Q, 12) TO P-EDIT7 @A@@@] MOVE P-EDIT7 TO PBD )@@G@@-POS6B@A@@@] PERFORM 617-WRITE-BILL.@^@@@] IF MAX BE )@@G@@= 1 @G@@@] MOVE ' ** NOTE-1 - ' TO P-POS5 PERFORM 617-BF )@@G@@WRITE-BILL @ @@@] MOVE 1 TO TYMES@F@@@] MOVBG )@@G@@E BILL-MAX TO P-POS5 PERFORM 617-WRITE-BILL. @ @@@] MOVE 2 BH )@@G@@TO TYMES. @ @@@] IF PAY-HWR (Q) > 0 @B@@@] MOVE PABI )@@G@@Y-HWR (Q) TO P-EDIT7 @A@@@] MOVE P-EDIT7 TO P-POS6B @F@@@]BJ )@@G@@ MOVE BILL-LINE13 TO P-POS6A PERFORM 617-WRITE-BILL. @B@@@]BK )@@G@@ MOVE 'OTHER - ' TO BILL-14A. @A@@@] MOVE 0 TO Q1 BL )@@G@@ W-CTR4 @C@@@] PERFORM 614-OTHERS ADJ-HOLD TIMES. @E@@@]BM )@@G@@ ADD PAY-DE-COST (Q) PAY-AP-COST (Q) PAY-S-TOT (Q)@E@@@] BN )@@G@@ .005 PAY-HWR (Q) PAY-COST (Q, 12) TO W-CTR4. @A@@@] MBO )@@G@@OVE W-CTR4 TO P-EDIT7N. @C@@@] MOVE '*** TOTAL *** ' TO P-POS6BP )@@G@@A @A@@@] MOVE P-EDIT7N TO P-POS6N @ @@@] MOVE 2 BQ )@@G@@TO TYMES @A@@@] PERFORM 617-WRITE-BILL. @E@@@] CBR )@@G@@OMPUTE LCTR = PAY-OV-DE * PAY-DE-COST (Q). @A@@@] MOVE LCBS )@@G@@TR TO W-CTR3. @E@@@] COMPUTE LCTR = PAY-OV-AP * PAY-AP-CBT )@@G@@OST (Q). @A@@@] ADD LCTR TO W-CTR3. @E@@@] CBU )@@G@@OMPUTE LCTR = PAY-OV-CMPR * PAY-S-TOT (Q). @A@@@] ADD .00BV )@@G@@5 LCTR TO W-CTR3.@A@@@] MOVE W-CTR3 TO BILL-16A. @F@@@] BW )@@G@@ MOVE BILL-LINE16 TO P-POS6A PERFORM 617-WRITE-BILL.@ @@@] BX )@@G@@ MOVE 1 TO TYMES. @F@@@] MOVE BILL-LINE17 TO P-POS6A BY )@@G@@ PERFORM 617-WRITE-BILL.@ @@@] MOVE 2 TO TYMES. @E@@@] BZ )@@G@@ COMPUTE LCTR = PAY-BE-DE * PAY-DE-COST (Q). @A@@@] MCA )@@G@@OVE LCTR TO W-CTR3. @E@@@] COMPUTE LCTR = PAY-BE-AP * PACB )@@G@@Y-AP-COST (Q). @A@@@] ADD LCTR TO W-CTR3. @E@@@] CC )@@G@@ COMPUTE LCTR = PAY-BE-CMPR * PAY-S-TOT (Q). @A@@@] ACD )@@G@@DD .005 LCTR TO W-CTR3. @B@@@] MOVE W-CTR3 TO BILL-19A. CE )@@G@@@F@@@] MOVE BILL-LINE18 TO P-POS6A PERFORM 617-WRITE-BILLCF )@@G@@@ @@@] MOVE 1 TO TYMES. @G@@@] MOVE BILL-LINE19 TOCG )@@G@@ P-POS6A PERFORM 617-WRITE-BILL. @ @@@] MOVE 2 TO TYMCH )@@G@@ES @^@@@] MOVE 0 TO Q1 @B@@@] MOVE 'NOTE: ' TO BCI )@@G@@ILL-20A. @A@@@] PERFORM 615-PRT-LEACH. @ @@@] MCJ )@@G@@OVE 3 TO TYMES. @B@@@] IF H-ACCT-DISCRIPT > SPACES @A@@@]CK )@@G@@ MOVE 'CC: ' TO P-POS6A @C@@@] MOVE H-ACCT-DISCRCL )@@G@@IPT TO P-POS4A @A@@@] PERFORM 617-WRITE-BILL @ @@@] CM )@@G@@ MOVE 1 TO TYMES @B@@@] MOVE TD-4-RCVR TO P-POS4A CN )@@G@@@A@@@] PERFORM 617-WRITE-BILL.@C@@@] WRITE PRINTB CO )@@G@@FROM CUT-LINE AFTER 1. @A@@@] MOVE 'SIGNED' TO SIGNZ @A@@@]CP )@@G@@ MOVE DASHES TO DASHZ @C@@@] WRITE PRINTB FROM PCQ )@@G@@-LINE1 AFTER 2. @A@@@] MOVE 'DATE ' TO SIGNZ @A@@@] CR )@@G@@ MOVE DASHES TO DASHZ @C@@@] WRITE PRINTB FROM P-LINE1CS )@@G@@ AFTER 2. @A@@@] MOVE SPACES TO P-LINE1. @ @@@] GCT )@@G@@O TO 600-BILLING. @@@@@]@^@@@] 605-CHECK-ZERO. @E@@@] ICU )@@G@@F PAY-S-TOT (Q) > 0 ADD 1 TO LCTR GO TO 606-OUT.@F@@@] IF PAY-CV )@@G@@DE-HRS (Q) > 0 ADD 1 TO LCTR GO TO 606-OUT. @F@@@] IF PAY-CW )@@G@@AP-HRS (Q) > 0 ADD 1 TO LCTR GO TO 606-OUT. @F@@@] IF PAY-CX )@@G@@AP-COST (Q) > 0 ADD 1 TO LCTR GO TO 606-OUT. @F@@@] IF PAY-CY )@@G@@DE-COST (Q) > 0 ADD 1 TO LCTR GO TO 606-OUT. @E@@@] IF PAY-CZ )@@G@@HWR (Q) > 0 ADD 1 TO LCTR GO TO 606-OUT. @F@@@] IF PAY-COST (DA )@@G@@Q, 12) > 0 ADD 1 TO LCTR GO TO 606-OUT. @F@@@] IF PAY-COST (DB )@@G@@Q, 1) > 0 ADD 1 TO LCTR GO TO 606-OUT. @F@@@] IF PAY-COST (DC )@@G@@Q, 3) > 0 ADD 1 TO LCTR GO TO 606-OUT. @F@@@] IF PAY-COST (DD )@@G@@Q, 6) > 0 ADD 1 TO LCTR GO TO 606-OUT. @F@@@] IF PAY-COST (DE )@@G@@Q, 11) > 0 ADD 1 TO LCTR GO TO 606-OUT. @D@@@] IF PAY-SHIFT-DF )@@G@@NO (Q, 1) > 0 ADD 1 TO LCTR. @D@@@] IF PAY-SHIFT-NO (Q, 2) > DG )@@G@@0 ADD 1 TO LCTR. @D@@@] IF PAY-SHIFT-NO (Q, 3) > 0 ADD 1 TO LDH )@@G@@CTR. @@@@@]@^@@@] 606-OUT. EXIT. @@@@@]@#@@@] 610-SHIFTS.DI )@@G@@@^@@@] ADD 1 TO Q1 @C@@@] MOVE CMPUTR-RATES (Q1) TODJ )@@G@@ BILL-81C. @B@@@] MOVE B-8-TBL (Q1) TO BILL-81A @D@@@] DK )@@G@@ MOVE PAY-SHIFT-NO (Q, Q1) TO BILL-81B. @D@@@] MOVE DL )@@G@@PAY-SHIFT-COST (Q, Q1) TO P-EDIT7. @A@@@] IF TD-4-MAX-FEES > DM )@@G@@SPACES@D@@@] IF TD-4-FEES (3) < CMPUTR-RATES (Q1) @C@@@]DN )@@G@@ MOVE TD-4-FEES (3) TO BILL-81C @B@@@] IF PADO )@@G@@Y-SHIFT-COST (Q, Q1) > 0@E@@@] MULTIPLY PAY-SHIFT-NO (Q, Q1DP )@@G@@) BY TD-4-FEES (3)@ @@@] GIVING LCTR @A@@@] DQ )@@G@@ MOVE LCTR TO P-EDIT7 @D@@@] MOVE LCTR TO PAY-SHIFT-COST DR )@@G@@(Q, Q1) @ @@@] MOVE 1 TO MAX @B@@@] MOVEDS )@@G@@ 'NOTE-1' TO BILL-12A. @A@@@] MOVE P-EDIT7 TO P-POS6B @G@@@]DT )@@G@@ MOVE BILL-LINE8-1 TO P-POS6A PERFORM 617-WRITE-BILL. DU )@@G@@@E@@@] ADD PAY-SHIFT-COST (Q, Q1) TO PAY-S-TOT (Q). @@@@@]DV )@@G@@@#@@@] 611-NBRS. @^@@@] ADD 1 TO Q1. @E@@@] IDW )@@G@@F PAY-NBRS (Q, Q1) > 0 OR PAY-COST (Q, Q1) > 0 @ @@@] NEXDX )@@G@@T SENTENCE @A@@@] ELSE GO TO 612-EXIT. @B@@@] MDY )@@G@@OVE TP-COSTS (Q1) TO BILL-9C. @C@@@] MOVE PAY-NBRS (Q, Q1) TO DZ )@@G@@BILL-9B. @B@@@] MOVE BILL9A (Q1) TO BILL-9A. @B@@@] EA )@@G@@ MOVE BILL9D (Q1) TO BILL-9D. @B@@@] MOVE BILL-LINE9 TO EB )@@G@@P-POS6A @C@@@] MOVE PAY-COST (Q, Q1) TO P-EDIT7. @A@@@]EC )@@G@@ MOVE P-EDIT7 TO P-POS6B. @A@@@] PERFORM 617-WRITE-BED )@@G@@ILL. @D@@@] ADD PAY-COST (Q, Q1) TO PAY-S-TOT (Q). @@@@@]EE )@@G@@@^@@@] 612-EXIT. EXIT. @@@@@]@#@@@] 614-OTHERS.@^@@@] EF )@@G@@ ADD 1 TO Q1. @C@@@] IF ADJ-ACCT1 (Q1) = PAY-ACCT-CD (Q) EG )@@G@@@D@@@] MOVE ADJ-DISCRIPT (Q1) TO BILL-14B @C@@@] EH )@@G@@ MOVE ADJ-AMOUNT (Q1) TO P-EDIT7N @C@@@] ADD ADJ-EI )@@G@@AMOUNT (Q1) TO W-CTR4 @B@@@] MOVE BILL-LINE14 TO P-POS6AEJ )@@G@@@B@@@] MOVE P-EDIT7N TO P-POS6N @B@@@] PEREK )@@G@@FORM 617-WRITE-BILL @B@@@] MOVE SPACE TO BILL-14A EL )@@G@@@A@@@] MOVE 1 TO TYMES. @@@@@]@^@@@] 615-PRT-LEAEM )@@G@@CH. @^@@@] ADD 1 TO Q1. @A@@@] IF L-ACCT-CD (Q1) >EN )@@G@@ 0 @D@@@] IF L-PAY-ACCT (Q1) = PAY-ACCT-CD (Q) @ @@@]EO )@@G@@ MOVE 0 TO Q2@C@@@] PERFORM 616-LEACHEEP )@@G@@S 5 TIMES @B@@@] GO TO 615-PRT-LEACH @^@@@] EQ )@@G@@ ELSE @B@@@] GO TO 615-PRT-LEACH. @^@@@]ER )@@G@@ 616-LEACHES. @^@@@] ADD 1 TO Q2 @A@@@] IES )@@G@@F L-PAY-PCT (Q1, Q2) > 0@D@@@] MOVE L-PAY-PCT (Q1, Q2) TO ET )@@G@@BILL-20B @D@@@] MOVE L-ACCT-CD (Q1) TO BILL-20C EU )@@G@@@B@@@] MOVE B-TBL (Q2) TO BILL-20D@B@@@] MOVEV )@@G@@E BILL-LINE20 TO P-POS6A@B@@@] PERFORM 617-WRITE-BILL EW )@@G@@@ @@@] MOVE 1 TO TYMES@B@@@] MOVE SPACE TO BEX )@@G@@ILL-20A. @@@@@]@^@@@] 617-WRITE-BILL. @F@@@] WRITE PEY )@@G@@RINTB FROM PRINT-LINE AFTER ADVANCING TYMES. @B@@@] MOVE SPEZ )@@G@@ACES TO P-LINE1 P-T-01.@@@@@]@^@@@] 620-JA-INFO. @C@@@] FA )@@G@@ MOVE PAY-ACCT-CD (Q) TO JA-ACCT. @C@@@] MOVE SPACES FB )@@G@@ TO JA-ACCT2. @ @@@] MOVE 01 TO JA-CARD.@ @@@] FC )@@G@@ MOVE 2 TO JA-TYPE @A@@@] PERFORM 621-READ-JA. @B@@@]FD )@@G@@ IF JA = 1 PERFORM 622-INV-JA. @B@@@] MOVE TD-2-TITFE )@@G@@LE TO BILL-1A. @B@@@] MOVE TD-2-ACCT-DISC TO BILL-4A.@ @@@]FF )@@G@@ MOVE 3 TO JA-TYPE.@A@@@] PERFORM 621-READ-JA. FG )@@G@@@B@@@] IF JA = 1 PERFORM 622-INV-JA. @B@@@] MOVE TDFH )@@G@@-3-RCVR TO BILL-2A. @B@@@] MOVE SPACES TO H-ACCT-DISCRIPT.FI )@@G@@@C@@@] MOVE TD-3-COPY TO H-ACCT-DISCRIPT. @ @@@] MFJ )@@G@@OVE 4 TO JA-TYPE @A@@@] PERFORM 621-READ-JA. @B@@@] FK )@@G@@ IF JA = 1 PERFORM 622-INV-JA. @@@@@]@^@@@] 621-READ-JA. FL )@@G@@@D@@@] READ TBLDISC INTO TBL-D-CD INVALID KEY @ @@@] FM )@@G@@ MOVE 1 TO JA. @@@@@]@#@@@] 622-INV-JA.@^@@@] MFN )@@G@@OVE 0 TO JA.@F@@@] DISPLAY 'JA-KEY-IVD ' JA-KEY UPON PRINTFO )@@G@@-DEVICE. @@@@@]@^@@@] 690-FINISHED. @A@@@] CLOSE TFP )@@G@@BLDISC PRINT2. @^@@@] STOP RUN. ___@@] MFQ )@@G@@OVE W-CTR3 TO PAY-DE-COST (Q) @ @@@] MOVE 1 TO MAX@C@@@]FR )@@G@@*[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISION. @A@@@@ PROGRFS )@@G@@AM-ID. H1551080. @B@@@@ AUTHOR. JOHN BROZOVSKY. FT )@@G@@@D@@@@ INSTALLATION. TEXAS DEPARTMENT OF HEALTH. @B@@@@ FU )@@G@@ DATE-WRITTEN. SEPTEMBER 6, 1978. @^@@@@ DATE-COMPILED. @C@@@@FV )@@G@@ *REMARKS. *** ASCII ANS-1974 *** @G@@@@ * PRIFW )@@G@@NTS A MONTHLY SUMMARY OF COMPUTER USE BY ACCOUNT. @G@@@@ * FX )@@G@@ WHEN APPLICABLE PRINT A YEAR-TO-DATE SUMMARY OF COMPUTER @G@@@@ FY )@@G@@* USE. INPUTS INCLUDE TABLE-DISC-JA (FOR ACCOUNT NAMES), @G@@@@FZ )@@G@@ * COST-SUMMARY-BY-ACCOUNT (WITH MONTHS STACKED BACK TO GA )@@G@@@G@@@@ * BACK), COST-TOTALS-BY-CATAGORY (ONE RECORD) ALL THRGB )@@G@@EE @A@@@@ * FROM MASS STORAGE. @]@@@@ * @]@@@@GC )@@G@@ * @B@@@@ * ****** CHANGE LOG ****** @]@@@@ GD )@@G@@* @]@@@@ * @]@@@@ * @ @@@@ * CHANGE 10 MGE )@@G@@AY 80 @C@@@@ * CONVERT TO ANS 1974 COBOL (ACOB4). @]@@@@ GF )@@G@@* @ @@@@ ENVIRONMENT DIVISION. @ @@@@ CONFIGURATION SECGG )@@G@@TION. @ @@@@ COPY COMPUTER-NAMES. @@@@@@@^@@@@ SPECIAL-NAMGH )@@G@@ES. @ @@@@ COPY DEVICE-NAMES. @ @@@@ INPUT-OUTPUT SECTGI )@@G@@ION. @@@@@@@^@@@@ FILE-CONTROL. @ @@@@ SELECT TAB-DIGJ )@@G@@SC @D@@@@ ASSIGN TO MASS-STORAGE TABLEDISC-JA @B@@@@GK )@@G@@ ACCESS MODE IS DYNAMIC,@C@@@@ ORGANGL )@@G@@IZATION IS INDEXED, @C@@@@ ACTUAL KEY IS TABLE-KEYGM )@@G@@. @A@@@@ SELECT CATAGORY-RECORD @C@@@@ ASSGN )@@G@@IGN TO MASS-STORAGE CTCF. @A@@@@ SELECT PRINT-CURRENT-FILEGO )@@G@@@C@@@@ ASSIGN TO PRINTER MTH-DP-RPT. @A@@@@ SGP )@@G@@ELECT PRINT-SUMMARY-FILE@C@@@@ ASSIGN TO PRINTER YTD-DP-RPGQ )@@G@@T. @ @@@@ SELECT SORT-FILE @B@@@@ ASSIGN TOGR )@@G@@ MASS-STORAGE XA. @B@@@@ SELECT COST-BY-ACCOUNT-FILE @D@@@@GS )@@G@@ ASSIGN TO MASS-STORAGE YTD-ACNT-SUM. @]@@@@ / GT )@@G@@@^@@@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE SECTION. GU )@@G@@@@@@@@@^@@@@ FD TAB-DISC @B@@@@ LABEL RECORDS ARE SGV )@@G@@TANDARD @B@@@@ RECORDING MODE IS INTERNAL @B@@@@ GW )@@G@@ BLOCK CONTAINS 3360 CHARACTERS @B@@@@ DATA RECORD IS TABGX )@@G@@LE-RECORD. @B@@@@ 01 TABLE-RECORD USAGE IS DISP-1. @D@@@@ GY )@@G@@ 05 FILLER PIC X(13). @D@@@@ 05 TABGZ )@@G@@LE-BUDGET-NUM PIC X(5). @D@[@@ 05 FILLER HA )@@G@@ PIC X(68). @D@@@[ 05 FILLER HB )@@G@@ PIC X(66). @@@@@@@ @@@@ FD CATAGORY-RECORD @B@@@@ LHC )@@G@@ABEL RECORDS ARE STANDARD @A@@@@ BLOCK CONTAINS 1 RECORDS HD )@@G@@@B@@@@ RECORD CONTAINS 285 CHARACTERS @B@@@@ DATA REHE )@@G@@CORD IS CATAGORIES. @B@@@@ 01 CATAGORIES. COPY CTCF-REC. HF )@@G@@@@@@@@@ @@@@ FD PRINT-CURRENT-FILE @B@@@@ LABEL RECORDSHG )@@G@@ ARE OMITTED, @B@@@@ DATA RECORD IS PRINT-LINE. @C@@@@HH )@@G@@ 01 PRINT-LINE PIC X(132). @@@@@@@ @@@@ FD PHI )@@G@@RINT-SUMMARY-FILE @B@@@@ LABEL RECORDS ARE OMITTED, @B@@@@HJ )@@G@@ DATA RECORD IS PRINT-Y-T-D. @C@@@@ 01 PRINT-Y-T-D HK )@@G@@ PIC X(132). @@@@@@@A@@@@ FD COST-BY-ACCOUNT-FILE HL )@@G@@@B@@@@ LABEL RECORDS ARE STANDARD, @B@@@@ BLOCK CHM )@@G@@ONTAINS 13 RECORDS, @B@@@@ RECORD CONTAINS 236 CHARACTERS,HN )@@G@@@B@@@@ DATA RECORD IS ACCOUNT-COST. @C@@@@ 01 ACCOUNTHO )@@G@@-COST PIC X(236). @@@@@@@^@@@@ SD SORT-FILE, @B@@@@HP )@@G@@ RECORD CONTAINS 236 CHARACTERS,@C@@@@ DATA RECORD IHQ )@@G@@S ACCOUNT-COST-SORT. @ @@@@ 01 ACCOUNT-COST-SORT. @ @@@@ HR )@@G@@ 05 SORT-KEY-AREA. @F@@@@ 10 SORT-BUDGET-NUM HS )@@G@@ PIC X(5). @F@@@@ 10 SORT-ACCOUNT-NUM HT )@@G@@ PIC X(3). @D@@@@ 05 FILLER HU )@@G@@ PIC X(228).@]@@@@ / @A@@@@ WORKING-STORAGE SECTION. HV )@@G@@@@@@@@@F@@@@ 77 COST-OF-COMP PIC 9(7)V99 USAGE IS COMPHW )@@G@@. @F@@@@ 77 COST-OF-RELATED PIC 9(7)V99 USAGE IS COMPHX )@@G@@. @F@@@@ 77 HOURS-OF-COMP PIC 9(5)V999 USAGE IS COMHY )@@G@@P. @F@@@@ 77 DE-HOURS PIC 9(7)V9 USAGE IS COMPHZ )@@G@@. @F@@@@ 77 DE-COST PIC 9(7)V99 USAGE IS COMIA )@@G@@P. @F@@@@ 77 COST-OF-TOTAL PIC 9(7)V99 USAGE IS COMIB )@@G@@P. @E@@@@ 77 PAGE-COUNT-CURRENT PIC 9(5) VALUE IS 1. IC )@@G@@@E@@@@ 77 PAGE-COUNTER-Y-T-D PIC 9(5) VALUE IS 1. @C@@@@ID )@@G@@ 77 DATE-AREA PIC X(6). @E@@@@ 77 VOLUME-IE )@@G@@FOR-SORT PIC S9(10) USAGE IS COMP.@G@@@@ 77 RECORD-LENGTHIF )@@G@@ PIC 9(10) USAGE COMP VALUE IS 59. @E@@@@ 77 CORE-SIIG )@@G@@ZE-FOR-SORT PIC 9(10) USAGE COMP @D@@@@ IH )@@G@@ VALUE IS 15000.@E@@@@ 77 STATUS-FOR-SORT PII )@@G@@IC 9(10) USAGE IS COMP.@E@@@@ 77 LINE-COUNT-Y-T-D PIC 9(1IJ )@@G@@0) USAGE COMP. @E@@@@ 77 LINE-COUNT-CUR PIC 9(10) USAIK )@@G@@GE COMP. @E@@@@ 77 X-NUMBER-OF PIC 9(10) USAGE COMIL )@@G@@P. @G@]@@ 77 EXTERNAL-NAME PIC X(12) VALUE IS 'MTH-CIM )@@G@@OST-SUM'. @G@@@] 77 EXTERNAL-NAME PIC X(12) VALUE IS IN )@@G@@'YTD-ACNT-SUM'. @@@@@@@E@@@@ 77 WHICH-RPT-SUB IO )@@G@@ PIC 9(10) COMP. @E@@@@ 77 LEVEL-SUB PIC IP )@@G@@9(10) COMP. @@@@@@@D@@@@ 77 FIRST-YEAR-CALC PIQ )@@G@@IC 99.@@@@@@@@@@@@@^@@@@ 01 CARD-NO-1. @C@@@@ 05 FILIR )@@G@@LER PIC X(13). @B@@@@ 05 DEPUTY-DESC PIC XIS )@@G@@(32). @B@@@@ 05 BUREAU-DESC PIC X(40). @B@@@@ 0IT )@@G@@5 FILLER PIC X(9). @B@@@@ 01 CARD-NO-2 USAGE IS DISP-1IU )@@G@@. @D@@@@ 05 FILLER PIC X(13). @B@@@@IV )@@G@@ 05 ACCOUNT-DESC PIC X(34). @B@@@@ 05 FILLER IW )@@G@@ PIC X(37). @@@@@@@^@@@@ 01 COST-TOTALS. @C@@@@ 0IX )@@G@@5 CURRENT-Y-T-D OCCURS 2 TIMES. @B@@@@ 10 S-LEVEL OCCIY )@@G@@URS 4 TIMES.@C@@@@ 12 SUM-LEVEL USAGE COMP. @E@@@@IZ )@@G@@ 15 ENTRY-HOURS PIC S9(7)V9. @E@@@@ JA )@@G@@ 15 ENTRY-COST PIC S9(7)V99. @E@@@@ JB )@@G@@ 15 PROG-HOURS PIC S9(7)V9. @E@@@@ JC )@@G@@ 15 PROG-COST PIC S9(7)V99. @E@@@@ 15 SJD )@@G@@UP-HOURS PIC S9(5)V999. @E@@@@ 15 SUP-COSJE )@@G@@T PIC S9(7)V99. @E@@@@ 15 REL-COST JF )@@G@@ PIC S9(7)V99. @E@@@@ 15 OTH-COST JG )@@G@@ PIC S9(7)V99. @E@@@@ 15 TOT-COST PICJH )@@G@@ S9(7)V99. @@@@@@@@@@@@@B@@@@ 01 TABLE-KEY USAGE IS DISP-1. JI )@@G@@@E@@@@ 05 FILLER PIC XX VALUE IS '01'.@C@@@@JJ )@@G@@ 05 ACCT-CODE PIC XXX. @F@@@@ 05 FILJK )@@G@@LER PIC X(6) VALUE IS ' '. @B@@@@ 05 CARJL )@@G@@D-NO PIC X. @@@@@@@@@@@@@ @@@@ 01 BY-ACCOUNT-RECORD. JM )@@G@@@ @@@@ 05 BUDGET-NUM. @B@@@@ 10 DEPUTY-NUMBJN )@@G@@ER PIC X. @B@@@@ 10 BUREAU-NUMBER PIC X. @C@@@@ JO )@@G@@ 10 B-CODE PIC XXX. @A@@@@ 10 ACCOUJP )@@G@@NT-CODE. @C@@@@ 15 ACCT-CODE-3 PIC XXX. @B@@@@JQ )@@G@@ 15 FILLER PIC X(9). @^@@@@ 05 PERIOD. JR )@@G@@@B@@@@ 10 PERIOD-YEAR PIC XX.@B@@@@ 10 JS )@@G@@ PERIOD-MONTH PIC XX.@C@@@@ 05 FILLER PIC XXXJT )@@G@@. @D@@@@ 05 NUMERIC-FIELDS USAGE IS COMPUTATIONAL. @C@@@@JU )@@G@@ 10 FILLER PIC 9(10). @B@@@@ 10 JV )@@G@@ COMPUTER-PROCESSING. @D@@@@ 15 SHIFT1-HOURS PICJW )@@G@@ S9(5)V9(4).@D@@@@ 15 SHIFT1-COST PIC S9(7)V99. JX )@@G@@@D@@@@ 15 SHIFT2-HOURS PIC S9(5)V9(4).@D@@@@ JY )@@G@@ 15 SHIFT2-COST PIC S9(7)V99. @D@@@@ JZ )@@G@@ 15 SHIFT3-HOURS PIC S9(5)V9(4).@D@@@@ 15 SHIFT3-KA )@@G@@COST PIC S9(7)V99. @A@@@@ 10 RELATED-COSTS. @D@@@@KB )@@G@@ 15 FILLER PIC 9(10). @D@@@@ KC )@@G@@ 15 CARDS-IN-COST PIC S9(7)V99. @D@@@@ 15 FKD )@@G@@ILLER PIC 9(10). @D@@@@ 15 CARDS-OUT-COSKE )@@G@@T PIC S9(7)V99. @D@@@@ 15 FILLER PIC 9(10)KF )@@G@@. @D@@@@ 15 PAGES-COST PIC S9(7)V99. @D@@@@KG )@@G@@ 15 FILLER PIC 9(10). @D@@@@ KH )@@G@@ 15 FORMS-MT-COST PIC S9(7)V99. @D@@@@ 15 FKI )@@G@@ILLER PIC 9(10). @D@@@@ 15 REELS-MT-COSTKJ )@@G@@ PIC S9(7)V99. @C@@@@ 15 FILLER PIC 9. KK )@@G@@@D@@@@ 15 FILLER PIC 9(18). @D@@@@ KL )@@G@@ 15 DATA-TRAN-COST PIC S9(7)V99. @D@@@@ KM )@@G@@ 15 FILLER PIC 9(10). @D@@@@ 15 REELS-LKN )@@G@@IBR-COST PIC S9(7)V99. @D@@@@ 15 FILLER PICKO )@@G@@ 9(10). @D@@@@ 15 PACK-MT-COST PIC S9(7)V99. KP )@@G@@@C@@@@ 15 FILLER PIC 9. @D@@@@ KQ )@@G@@ 15 FILLER PIC 9(18). @D@@@@ 15 CKR )@@G@@AT-TRACKS-COST PIC S9(7)V99. @C@@@@ 15 FILLER KS )@@G@@ PIC 9. @D@@@@ 15 FILLER PIC 9(18). KT )@@G@@@E@@@@ 15 MS-DATA-TRANS-COST PIC S9(7)V99. @D@@@@KU )@@G@@ 15 FILLER PIC 9(10). @D@@@@ KV )@@G@@ 15 PACK-DUR-COST PIC S9(7)V99. @A@@@@ 10 DATA-KW )@@G@@ENTRY-COSTS.@D@@@@ 15 FILLER PIC 9(10). KX )@@G@@@D@@@@ 15 FILLER PIC 9(10). @D@@@@ KY )@@G@@ 15 FILLER PIC 9(10). @D@@@@ KZ )@@G@@ 15 FILLER PIC 9(10). @D@@@@ 15 DE-HOURLA )@@G@@-ENTER PIC S9(7)V9. @D@@@@ 15 DE-ENTER-COST PICLB )@@G@@ S9(7)V99. @D@@@@ 15 DE-HOUR-VERIFY PIC S9(7)V9. LC )@@G@@@D@@@@ 15 DE-VERIFY-COST PIC S9(7)V99. @B@@@@ LD )@@G@@ 10 ANALYSIS-PROGRAMMING. @D@@@@ 15 AP-HOURLE )@@G@@S PIC S9(7)V9. @D@@@@ 15 AP-COST PICLF )@@G@@ S9(7)V99. @A@@@@ 10 RELATED-COST-2. @D@@@@ LG )@@G@@ 15 DATA-COM-SOFT PIC S9(7)V99. @D@@@@ 15 DLH )@@G@@ATA-COM-HARD PIC S9(7)V99. @D@@@@ 10 OTHER-COST LI )@@G@@ PIC S9(7)V99. @F@@@@ 10 FILLER PIC 9(10)LJ )@@G@@ OCCURS 8 TIMES.@D@@@@ 66 BUD-NUM RENAMES DEPUTY-NUMBER THRU B-LK )@@G@@CODE. @@@@@@@@@@@@@^@@@@ COPY DEPT-HEADER.@@@@@@@^@@@@ 01 TLL )@@G@@HIRD-LINE. @F@@@@ 05 FILLER PIC X(50) VALUE ILM )@@G@@S SPACES. @G@@@@ 05 FILLER PIC X(82) VALUE ILN )@@G@@S 'DATA PROCESSING@G@@@@ - LO )@@G@@' ACTIVITY SUMMARY'. @@@@@@@ @@@@ 01 Y-T-D-FOURTH-LINE. @G@@@@LP )@@G@@ 05 FILLER PIC X(17) VALUE IS 'PERIOD COVERED LQ )@@G@@@D@@@@ - '= '. @ @@@@ LR )@@G@@ 05 FIRST-DATE. @E@@@@ 10 FILLER PIC XX LS )@@G@@VALUE IS '09'. @E@@@@ 10 FILLER PIC X VLT )@@G@@ALUE IS '/'.@B@@@@ 10 FIRST-YEAR PIC XX.@F@@@@ LU )@@G@@ 05 FILLER PIC XXX VALUE IS ' - '. @ @@@@ LV )@@G@@ 05 LAST-DATE. @B@@@@ 10 LAST-MONTH PIC XX.LW )@@G@@@E@@@@ 10 SLASH-2 PIC X VALUE IS '/'.@B@@@@LX )@@G@@ 10 LAST-YEAR PIC XX.@F@@@@ 05 FILLER LY )@@G@@ PIC X(102) VALUE IS SPACES. @@@@@@@A@@@@ 01 CURRENTLZ )@@G@@-FOURTH-LINE. @G@@@@ 05 FILLER PIC X(17) VALUEMA )@@G@@ IS 'PERIOD COVERED = '.@B@@@@ 05 C-MONTH PIC XX. MB )@@G@@@E@@@@ 05 FILLER PIC X VALUE IS '/'. @B@@@@MC )@@G@@ 05 C-YEAR PIC XX. @B@@@@ 05 FILLER MD )@@G@@ PIC X(110).@@@@@@@^@@@@ 01 FIFTH-LINE. @G@@@@ 0ME )@@G@@5 FILLER PIC X(36) VALUE IS 'COMPUTER SUP HO@G@@@@ MF )@@G@@- 'UR RATE: SHIFT1 = '. @C@@@@MG )@@G@@ 05 SHIFT1 PIC ZZ9.9(5).@G@@@@ 05 FILMH )@@G@@LER PIC X(13) VALUE IS ' SHIFT2 = '. @C@@@@ 0MI )@@G@@5 SHIFT2 PIC ZZ9.9(5).@G@@@@ 05 FILLER MJ )@@G@@ PIC X(10) VALUE IS ' SHIFT3 = '. @C@@@@ 05 SHIFT3 MK )@@G@@ PIC ZZ9.9(5).@G@@@@ 05 FILLER PIC X(1ML )@@G@@0) VALUE IS ' SHIFT4 = '. @C@@@@ 05 SHIFT4 PMM )@@G@@IC ZZ9.9(5).@F@@@@ 05 FILLER PIC X(27) VALUE IMN )@@G@@S SPACES. @E@@@@ 01 HEAD-5-BLANK REDEFINES FIFTH-LINE PIC X(1MO )@@G@@32). @@@@@@@^@@@@ 01 SIXTH-LINE. @G@@@@ 05 FILLER MP )@@G@@ PIC X(25) VALUE IS 'DATA ENTRY HOUR@F@@@@ - MQ )@@G@@ 'LY RATE = '. @C@@@@ 05 DATMR )@@G@@A-ENTRY-RATE PIC Z9.9(5). @F@@@@ 05 FILLER PMS )@@G@@IC X(7) VALUE IS SPACES. @G@@@@ 05 FILLER PMT )@@G@@IC X(35) VALUE IS 'ANALYSIS/PROGRA@G@@@@ - MU )@@G@@ 'MMING HOURLY RATE = '. @C@@@@ 05 ANALYSIS-MV )@@G@@RATE PIC Z9.9(5). @F@@@@ 05 FILLER PIC X(4MW )@@G@@9) VALUE IS SPACES. @E@@@@ 01 HEAD-6-BLANK REDEFINES SIXTH-LIMX )@@G@@NE PIC X(132). @@@@@@@ @@@@ 01 DETAIL-HEAD-1. @F@@@@ MY )@@G@@ 05 FILLER PIC X(42) VALUE IS SPACES. @G@@@@ MZ )@@G@@ 05 FILLER PIC X(90) VALUE IS '----DATA ENTRY-@F@@@@NA )@@G@@ - '--- ----ANAL/PROG---- -----------COMPUTER-----------'.@ @@@@NB )@@G@@ 01 DETAIL-HEAD-2. @F@@@@ 05 FILLER PNC )@@G@@IC X(43) VALUE IS SPACES. @F@@@@ 05 FILLER PND )@@G@@IC X(10) VALUE IS 'HOURS'. @F@@@@ 05 FILLER PNE )@@G@@IC X(9) VALUE IS 'COST'. @F@@@@ 05 FILLER PNF )@@G@@IC X(10) VALUE IS 'HOURS'. @F@@@@ 05 FILLER PNG )@@G@@IC X(7) VALUE IS 'COST'. @G@@@@ 05 FILLER PNH )@@G@@IC X(23) VALUE IS '--PROCESSING TI@E@@@@ - NI )@@G@@ 'ME---'. @F@@@@ 05 FILLER PNJ )@@G@@IC X(12) VALUE IS 'RELATED'.@F@@@@ 05 FILLER PNK )@@G@@IC X(12) VALUE IS 'OTHER'. @F@@@@ 05 FILLER PNL )@@G@@IC X(6) VALUE IS 'TOTAL'. @ @@@@ 01 DETAIL-HEAD-3. @F@@@@NM )@@G@@ 05 FILLER PIC X(79) VALUE IS SPACES. @G@@@@NN )@@G@@ 05 FILLER PIC X(16) VALUE IS 'SUP HOURS'. NO )@@G@@@F@@@@ 05 FILLER PIC X(9) VALUE IS 'COST'. NP )@@G@@@F@@@@ 05 FILLER PIC X(10) VALUE IS 'COSTS'. NQ )@@G@@@F@@@@ 05 FILLER PIC X(12) VALUE IS 'COSTS'. NR )@@G@@@F@@@@ 05 FILLER PIC X(6) VALUE IS 'COSTS'. NS )@@G@@@@@@@@@^@@@@ 01 DEPUTY-TITLE.@F@@@@ 05 FILLER VALUE 'DNT )@@G@@EPUTY COMMISSIONER - ' PIC X(22). @C@@@@ 05 DEPUTY-NAME NU )@@G@@ PIC X(32). @F@@@@ 05 FILLER PIC X(78) VANV )@@G@@LUE IS SPACES. @^@@@@ 01 BUREAU-TITLE.@F@@@@ 05 FILNW )@@G@@LER PIC X(2) VALUE IS SPACES. @D@@@@ 05 FILNX )@@G@@LER VALUE 'BUREAU - ' PIC X(9). @C@@@@ 05 BUREAU-NAME NY )@@G@@ PIC X(35). @F@@@@ 05 FILLER PIC X(86) VNZ )@@G@@ALUE IS SPACES. @@@@@@@ @@@@ 01 ACCOUNT-DETAIL. @ @@@@ OA )@@G@@ 12 PRINT-DETAIL. @G@@@@ 15 FIRST-SPACE PICOB )@@G@@ X(2) VALUE IS SPACES. @C@@@@ 15 LEADING-SPACES OC )@@G@@ PIC X(2).@D@@@@ 15 ACCOUNT-NAME PIC X(37). OD )@@G@@@D@@@@ 15 ENTRY-HOURS PIC ZZZZ9.9. @E@@@@ OE )@@G@@ 15 ENTRY-COST PIC BZZZ,ZZ9.99. @D@@@@ OF )@@G@@ 15 PROG-HOURS PIC BZZZZ9.9. @E@@@@ 15 PROG-OG )@@G@@COST PIC BZZZ,ZZ9.99. @D@@@@ 15 SUP-HOURS OH )@@G@@ PIC BZZZZ9.999.@E@@@@ 15 SUP-COST PICOI )@@G@@ BZZZ,ZZ9.99. @D@@@@ 15 REL-COST PIC BZZ,ZOJ )@@G@@Z9.99.@D@@@@ 15 OTH-COST PIC ---,--9.99.@E@@@@OK )@@G@@ 15 TOT-COST PIC --,---,--9.99. @G@@@@ OL )@@G@@ 66 BUREAU-TOT RENAMES LEADING-SPACES THRU ACCOUNT-NAME. @G@@@@OM )@@G@@ 66 DEPUTY-TOT RENAMES FIRST-SPACE THRU ACCOUNT-NAME. ON )@@G@@@G@@@@ 66 FOUR-SPACES RENAMES FIRST-SPACE THRU LEADING-SPOO )@@G@@ACES. @@@@@@@@@@@@@^@@@@ 01 TODAYS-DATE. @B@@@@ 05 TODOP )@@G@@AY-YEAR PIC XX.@B@@@@ 05 TODAY-MONTH PIC XX.OQ )@@G@@@B@@@@ 05 TODAY-DAY PIC XX.@^@@@@ 01 DATE-EDOR )@@G@@ITED. @B@@@@ 05 TODAY-MONTH PIC XX.@B@@@@ 0OS )@@G@@5 FILLER VALUE '/' PIC X. @B@@@@ 05 TODAY-DAY POT )@@G@@IC XX.@B@@@@ 05 FILLER VALUE '/' PIC X. @B@@@@ 0OU )@@G@@5 TODAY-YEAR PIC XX.@C@@@@ 01 DATE-CALC REDEFINES DATE-OV )@@G@@EDITED. @B@@@@ 05 MONTH-CALC PIC 99. @B@@@@ OW )@@G@@ 05 FILLER PIC XXX.@B@@@@ 05 FILLER OX )@@G@@ PIC XXX.@F@@@@ 01 SW-CREATE-Y-T-D-SUMMARY PIC XXX VALUE IOY )@@G@@S 'NO'. @F@@@@ 88 CREATE-Y-T-D-SUMMARY VALUE IOZ )@@G@@S 'YES'. @F@@@@ 01 END-OF-FILE-SW PIC XXX VALUE IPA )@@G@@S 'NO'. @F@@@@ 88 END-OF-FILE VALUE IPB )@@G@@S 'YES'. @F@@@@ 01 FIRST-TIME-THROUGH-SW PIC XXX VALUE IPC )@@G@@S 'YES'. @F@@@@ 88 FIRST-TIME-THROUGH VALUE IPD )@@G@@S 'YES'. @A@@@@ 01 PREVIOUS-BUDGET-NUM. @F@@@@ 0PE )@@G@@5 PREVIOUS-DEPUTY-NUM VALUE SPACES PIC X. @F@@@@ 0PF )@@G@@5 PREVIOUS-BUREAU-NUM VALUE SPACES PIC X. @F@@@@ 0PG )@@G@@5 FILLER VALUE SPACES PIC XXX. @F@@@@ 0PH )@@G@@5 PREVIOUS-ACCOUNT-NUM VALUE SPACES PIC XXX. @E@@@@ 01 CPI )@@G@@UR-BUDGET-NUM VALUE SPACES PIC X(8).@E@@@@ 01 CUR-ACNPJ )@@G@@T-SAVE VALUE SPACES PIC X(3).@@@@@@@E@@@@ 01 NEW-BURPK )@@G@@EAU-NUM-SW PIC XXX VALUE IS 'NO'. @E@@@@ 88 NEW-BUREAPL )@@G@@U-NUM VALUE IS 'YES'. @E@@@@ 01 NEW-DEPUTY-NUM-SW PM )@@G@@ PIC XXX VALUE IS 'NO'. @E@@@@ 88 NEW-DEPUTY-NUM PN )@@G@@ VALUE IS 'YES'. @E@@@@ 01 SW-NO-PARAMETER-CARD PIC XPO )@@G@@XX VALUE IS 'NO'.@F@@@@ 88 NO-PARAMETER-CARD VAPP )@@G@@LUE IS 'YES'. @E@@@@ 01 NEW-ACCOUNT-NUM-SW VALUE 'NO PQ )@@G@@' PIC XXX. @D@@@@ 88 NEW-ACCOUNT-NUM VALUE 'YES'. PR )@@G@@@C@@@@ 01 IF-SW PIC 9. @B@@@@ 8PS )@@G@@8 IF-ON VALUE 1. @]@@@@ / @ @@@@ PROCEDURE DPT )@@G@@IVISION. @@@@@@@@@@@@@^@@@@ 000-CONTROL. @C@@@@ PPU )@@G@@ERFORM 110-GET-BY-CATAGORY-CARD. @B@@@@ IF PROCESSING-MM ISPV )@@G@@ EQUAL TO 9 @ @@@@ NEXT SENTENCE @#@@@@ ELSE PW )@@G@@@D@@@@ MOVE 'YES' TO SW-CREATE-Y-T-D-SUMMARY. @D@@@@ PX )@@G@@ PERFORM 120-CUR-MONTH-HEADING-INITIAL. @A@@@@ PERFORMPY )@@G@@ 100-HOUSEKEEPING.@A@@@@ IF CREATE-Y-T-D-SUMMARY @D@@@@ PZ )@@G@@ PERFORM 130-SORT-BY-ACCOUNT-NUMBER @C@@@@ ELSE PEQA )@@G@@RFORM 250-CURRENT-REPORT-ONLY.@A@@@@ PERFORM 190-CLOSING. QB )@@G@@@^@@@@ STOP RUN. @@@@@@@@@@@@@^@@@@ 100-HOUSEKEEPING.QC )@@G@@@A@@@@ OPEN INPUT TAB-DISC @C@@@@ OUTPUT QD )@@G@@PRINT-CURRENT-FILE. @A@@@@ IF CREATE-Y-T-D-SUMMARY @C@@@@QE )@@G@@ OPEN OUTPUT PRINT-SUMMARY-FILE. @C@@@@ OPEN INQF )@@G@@PUT COST-BY-ACCOUNT-FILE. @B@@@@ ACCEPT TODAYS-DATE FROM DQG )@@G@@ATE. @E@@@@ MOVE CORRESPONDING TODAYS-DATE TO DATE-EDITED. QH )@@G@@@B@@@@ MOVE DATE-EDITED TO DEPT-DATE. @B@@@@ MOVE 'HQI )@@G@@15515' TO DEPT-RUN-ID. @C@@@@ MOVE 'H1551080' TO DEPT-PROGRAMQJ )@@G@@-NUM. @B@@@@ MOVE PROCESSING-YY TO C-YEAR @B@@@@ MQK )@@G@@OVE PROCESSING-MM TO C-MONTH. @A@@@@ IF CREATE-Y-T-D-SUMMARY QL )@@G@@@B@@@@ MOVE 1 TO WHICH-RPT-SUB @C@@@@ PERQM )@@G@@FORM 710-ZERO-ACCUMULATORS @G@@@@ VARYING LEVEL-SUBQN )@@G@@ FROM 1 BY 1 UNTIL LEVEL-SUB > 4. @A@@@@ MOVE 2 TO WHICH-RPTQO )@@G@@-SUB. @B@@@@ PERFORM 710-ZERO-ACCUMULATORS @G@@@@ QP )@@G@@ VARYING LEVEL-SUB FROM 1 BY 1 UNTIL LEVEL-SUB GREATER 4. @A@@@@ QQ )@@G@@ IF PROCESSING-MM < 9 @G@@@@ SUBTRACT 1 FROM PROCEQR )@@G@@SSING-YY GIVING FIRST-YEAR-CALC @C@@@@ MOVE FIRST-YEAR-CALQS )@@G@@C TO FIRST-YEAR. @C@@@@ MOVE PROCESSING-MM TO LAST-MONTH. QT )@@G@@@C@@@@ MOVE PROCESSING-YY TO LAST-YEAR. @@@@@@@@@@@@@A@@@@QU )@@G@@ 110-GET-BY-CATAGORY-CARD. @B@@@@ OPEN INPUT CATAGORYQV )@@G@@-RECORD. @A@@@@ READ CATAGORY-RECORD @D@@@@ QW )@@G@@ AT END DISPLAY 'NO CATAGORY FILE' @D@@@@ QX )@@G@@ UPON PRINT-DEVICE @B@@@@ ENTER FD 'ABOQY )@@G@@RT'. @@@@@@@B@@@@ 120-CUR-MONTH-HEADING-INITIAL. @D@@@@ QZ )@@G@@ MOVE AP IN HOURLY-RATES TO ANALYSIS-RATE. @E@@@@ MOVE D-RA )@@G@@E IN HOURLY-RATES TO DATA-ENTRY-RATE. @C@@@@ MOVE CMPUTR-RRB )@@G@@ATES (1) TO SHIFT1. @C@@@@ MOVE CMPUTR-RATES (1) TO SHIFT4RC )@@G@@. @C@@@@ MOVE CMPUTR-RATES (2) TO SHIFT2. @C@@@@ RD )@@G@@ MOVE CMPUTR-RATES (3) TO SHIFT3. @@@@@@@A@@@@ 130-SORT-BYRE )@@G@@-ACCOUNT-NUMBER. @ @@@@ CALL 'GETVOLASCII' @D@@@@ RF )@@G@@ USING EXTERNAL-NAME, VOLUME-FOR-SORT. @ @@@@ CALL 'SORTASGRG )@@G@@' @G@@@@ USING RECORD-LENGTH, VOLUME-FOR-SORT, CORE-SIRH )@@G@@ZE-FOR-SORT,@A@@@@ STATUS-FOR-SORT. @C@@@@ IRI )@@G@@F STATUS-FOR-SORT IS NOT EQUAL TO 0 @^@@@@ DISPLAY @D@@@@RJ )@@G@@ 'SORT COULD NOT BE ACCOMPLISHED' @B@@@@ RK )@@G@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'. RL )@@G@@@E@@@@ SORT SORT-FILE ON ASCENDING KEY SORT-KEY-AREA @D@@@@RM )@@G@@ INPUT PROCEDURE IS 200-INPUT-TO-SORT @E@@@@ RN )@@G@@ OUTPUT PROCEDURE IS 200-INCLUDE-Y-T-D-REPORT.@@@@@@@^@@@@ 190-CRO )@@G@@LOSING. @#@@@@ CLOSE @A@@@@ CATAGORY-RECORP )@@G@@RD @ @@@@ TAB-DISC @A@@@@ PRINT-CRQ )@@G@@URRENT-FILE @A@@@@ IF CREATE-Y-T-D-SUMMARY @B@@@@ RR )@@G@@ CLOSE PRINT-SUMMARY-FILE @#@@@@ ELSE @B@@@@ RS )@@G@@ CLOSE COST-BY-ACCOUNT-FILE.@@@@@@@@@@@@@@@@@@@A@@@@ 200-INPUT-TRT )@@G@@O-SORT SECTION. @@@@@@@ @@@@ 200-SORT-INPUT-CONTROL.@ @@@@ RU )@@G@@ MOVE 0 TO CARD-NO. @F@@@@ PERFORM 200-MAIN-SORT-INPUT-PRORV )@@G@@C UNTIL END-OF-FILE. @B@@@@ MOVE 'NO ' TO END-OF-FILE-SW. RW )@@G@@@B@@@@ GO TO 200-SORT-INPUT-EXIT. @@@@@@@A@@@@ 200-MRX )@@G@@AIN-SORT-INPUT-PROC. @A@@@@ PERFORM 425-READ-RECORD. @ @@@@RY )@@G@@ IF NOT END-OF-FILE @B@@@@ MOVE ACCT-CODE-3 TO ACCTRZ )@@G@@-CODE @C@@@@ PERFORM 510-GET-LABELS-FROM-DISC-JA @C@@@@ SA )@@G@@ MOVE TABLE-BUDGET-NUM TO BUD-NUM @E@@@@ RELEASE ACCOUSB )@@G@@NT-COST-SORT FROM BY-ACCOUNT-RECORD.@@@@@@@ @@@@ 200-SORT-INPUT-EXSC )@@G@@IT. @#@@@@ EXIT. @B@@@@ 200-INCLUDE-Y-T-D-REPORT SECTSD )@@G@@ION. @@@@@@@^@@@@ 210-PROCESS. @B@@@@ PERFORM 320-PSE )@@G@@ROCESS-DETAIL @A@@@@ UNTIL END-OF-FILE. @A@@@@ SF )@@G@@ MOVE '2' TO CARD-NO. @D@@@@ MOVE PREVIOUS-ACCOUNT-NUMSG )@@G@@ TO ACCT-CODE. @C@@@@ PERFORM 510-GET-LABELS-FROM-DISC-JA. SH )@@G@@@B@@@@ MOVE TABLE-RECORD TO CARD-NO-2.@B@@@@ MOVE SPSI )@@G@@ACES TO FOUR-SPACES. @C@@@@ MOVE ACCOUNT-DESC TO ACCOUNT-NASJ )@@G@@ME. @C@@@@ PERFORM 570-SET-LINE-TITLE-CALL-PRT @G@@@@ SK )@@G@@ VARYING LEVEL-SUB FROM 1 BY 1 UNTIL LEVEL-SUB GREATER 4 @F@@@@SL )@@G@@ AFTER WHICH-RPT-SUB FROM 1 BY 1 UNTIL WHICH-RPT-SUB@B@@@@SM )@@G@@ GREATER 2. @A@@@@ GO TO 800-EXISN )@@G@@T-FROM-SORT.@@@@@@@A@@@@ 250-CURRENT-REPORT-ONLY. @C@@@@ SO )@@G@@ PERFORM 370-CUR-READ-AND-STEPDOWN @A@@@@ UNTIL ENDSP )@@G@@-OF-FILE. @A@@@@ MOVE 2 TO WHICH-RPT-SUB. @C@@@@ MSQ )@@G@@OVE CUR-ACNT-SAVE TO ACCT-CODE. @A@@@@ MOVE '2' TO CARD-NOSR )@@G@@. @C@@@@ PERFORM 510-GET-LABELS-FROM-DISC-JA. @B@@@@ SS )@@G@@ MOVE TABLE-RECORD TO CARD-NO-2.@B@@@@ MOVE SPACES TO FOURST )@@G@@-SPACES. @C@@@@ MOVE ACCOUNT-DESC TO ACCOUNT-NAME. @C@@@@SU )@@G@@ PERFORM 570-SET-LINE-TITLE-CALL-PRT @G@@@@ VARSV )@@G@@YING LEVEL-SUB FROM 1 BY 1 UNTIL LEVEL-SUB GREATER 4. @@@@@@@@@@@@@ @@@@SW )@@G@@ 320-PROCESS-DETAIL. @C@@@@ PERFORM 420-RETREIVE-SORTSX )@@G@@ED-RECORD. @A@@@@ IF FIRST-TIME-THROUGH @E@@@@ SY )@@G@@ MOVE BUDGET-NUM TO PREVIOUS-BUDGET-NUM @E@@@@ SZ )@@G@@ MOVE 'NO ' TO FIRST-TIME-THROUGH-SW @C@@@@ PERFOTA )@@G@@RM 505-INITIAL-BUREAU @D@@@@ MOVE ACCT-CODE-3 TO CURTB )@@G@@-ACNT-SAVE @D@@@@ PERFORM 625-PRINT-HEADINGS-CURRENT TC )@@G@@@E@@@@ PERFORM 620-PRINT-HEADINGS-Y-T-D. @C@@@@TD )@@G@@ MOVE BUDGET-NUM TO CUR-BUDGET-NUM. @A@@@@ MOVE 1 TE )@@G@@TO WHICH-RPT-SUB. @E@@@@ IF PREVIOUS-BUDGET-NUM IS EQUAL TO CUTF )@@G@@R-BUDGET-NUM@ @@@@ NEXT SENTENCE @#@@@@ ELSE TG )@@G@@@A@@@@ MOVE '2' TO CARD-NO @D@@@@ MOVE PREVTH )@@G@@IOUS-ACCOUNT-NUM TO ACCT-CODE @D@@@@ PERFORM 510-GET-LABELTI )@@G@@S-FROM-DISC-JA @C@@@@ MOVE TABLE-RECORD TO CARD-NO-2 TJ )@@G@@@B@@@@ MOVE SPACES TO FOUR-SPACES @C@@@@ MOVTK )@@G@@E ACCOUNT-DESC TO ACCOUNT-NAME@A@@@@ MOVE 1 TO LEVEL-SUB TL )@@G@@@B@@@@ PERFORM 670-PRINT-TOTALS @C@@@@ MOVTM )@@G@@E 'YES' TO NEW-ACCOUNT-NUM-SW @F@@@@ IF PREVIOUS-BUREAU-NTN )@@G@@UM IS EQUAL TO BUREAU-NUMBER @G@@@@ AND PREVIOUS-DEPUTO )@@G@@TY-NUM IS EQUAL TO DEPUTY-NUMBER @E@@@@ MOVE BUDGETTP )@@G@@-NUM TO PREVIOUS-BUDGET-NUM @^@@@@ ELSE @B@@@@ TQ )@@G@@ MOVE 2 TO LEVEL-SUB @D@@@@ PERFORM 570TR )@@G@@-SET-LINE-TITLE-CALL-PRT@D@@@@ MOVE 'YES' TO NEW-BUREATS )@@G@@U-NUM-SW @G@@@@ IF PREVIOUS-DEPUTY-NUM IS EQUAL TO TT )@@G@@DEPUTY-NUMBER @D@@@@ PERFORM 505-INITIAL-BUREATU )@@G@@U @F@@@@ MOVE BUDGET-NUM TO PREVIOUS-BUDGET-NUTV )@@G@@M @F@@@@ WRITE PRINT-Y-T-D FROM BUREAU-TITLE ATW )@@G@@FTER 3@A@@@@ LINES @C@@@@ TX )@@G@@ ADD 3 TO LINE-COUNT-Y-T-D @^@@@@ ELSE @B@@@@ TY )@@G@@ MOVE 3 TO LEVEL-SUB@E@@@@ PERFORMTZ )@@G@@ 570-SET-LINE-TITLE-CALL-PRT @D@@@@ PERFORM 505-IUA )@@G@@NITIAL-BUREAU @D@@@@ MOVE 'YES' TO NEW-DEPUTY-UB )@@G@@NUM-SW@F@@@@ MOVE BUDGET-NUM TO PREVIOUS-BUDGET-NUUC )@@G@@M @E@@@@ PERFORM 620-PRINT-HEADINGS-Y-T-D. UD )@@G@@@ @@@@ IF NOT END-OF-FILE @C@@@@ PERFORM 530-ACCUE )@@G@@UMULATE-TOTALS @G@@@@ VARYING LEVEL-SUB FROM 1 BY 1UF )@@G@@ UNTIL LEVEL-SUB > 4 @E@@@@ IF PROCESSING-MM IS EQUAL TUG )@@G@@O PERIOD-MONTH @E@@@@ PERFORM 450-CURRENT-MONTH-PROUH )@@G@@CESSING. @@@@@@@A@@@@ 370-CUR-READ-AND-STEPDOWN. @A@@@@ UI )@@G@@ PERFORM 425-READ-RECORD. @C@@@@ MOVE BUDGET-NUM TO CUR-BUUJ )@@G@@DGET-NUM. @ @@@@ IF NOT END-OF-FILE @A@@@@ IF NOT UK )@@G@@FIRST-TIME-THROUGH@ @@@@ NEXT SENTENCE @B@@@@ EUL )@@G@@LSE PERFORM 505-INITIAL-BUREAU@D@@@@ MOVE ACCT-CODE-3 TO UM )@@G@@CUR-ACNT-SAVE @D@@@@ PERFORM 625-PRINT-HEADINGS-CURREUN )@@G@@NT @D@@@@ MOVE 'NO ' TO FIRST-TIME-THROUGH-SW @E@@@@UO )@@G@@ MOVE BUDGET-NUM TO PREVIOUS-BUDGET-NUM. @ @@@@ UP )@@G@@ IF NOT END-OF-FILE @D@@@@ IF PREVIOUS-BUDGET-NUM = CUR-BUUQ )@@G@@DGET-NUM @ @@@@ NEXT SENTENCE @#@@@@ ELSE UR )@@G@@@C@@@@ MOVE 'YES' TO NEW-ACCOUNT-NUM-SW @A@@@@ US )@@G@@ MOVE '2' TO CARD-NO @D@@@@ MOVE PREVIOUS-ACCOUNT-NUM TUT )@@G@@O ACCT-CODE @D@@@@ PERFORM 510-GET-LABELS-FROM-DISC-JA UU )@@G@@@C@@@@ MOVE TABLE-RECORD TO CARD-NO-2 @D@@@@ UV )@@G@@ IF PREVIOUS-BUREAU-NUM = BUREAU-NUMBER @A@@@@ NEXT UW )@@G@@SENTENCE @^@@@@ ELSE @D@@@@ MOVE UX )@@G@@'YES' TO NEW-BUREAU-NUM-SW @E@@@@ IF PREVIOUS-DEPUTUY )@@G@@Y-NUM = DEPUTY-NUMBER @A@@@@ NEXT SENTENCE@^@@@@UZ )@@G@@ ELSE @E@@@@ MOVE 'YES' TO NEW-DVA )@@G@@EPUTY-NUM-SW. @ @@@@ IF NOT END-OF-FILE @C@@@@ PVB )@@G@@ERFORM 450-CURRENT-MONTH-PROCESSING.@@@@@@@@@@@@@A@@@@ 420-RETREIVVC )@@G@@E-SORTED-RECORD. @ @@@@ RETURN SORT-FILE @D@@@@ VD )@@G@@ AT END MOVE 'YES' TO END-OF-FILE-SW. @E@@@@ MOVE ACCOUNT-VE )@@G@@COST-SORT TO BY-ACCOUNT-RECORD. @@@@@@@^@@@@ 425-READ-RECORD. VF )@@G@@@E@@@@ READ COST-BY-ACCOUNT-FILE INTO BY-ACCOUNT-RECORD @D@@@@VG )@@G@@ AT END MOVE 'YES' TO END-OF-FILE-SW. @@@@@@@A@@@@ VH )@@G@@ 450-CURRENT-MONTH-PROCESSING.@A@@@@ MOVE 2 TO WHICH-RPT-SUB. VI )@@G@@@A@@@@ IF NOT NEW-ACCOUNT-NUM @A@@@@ MOVVJ )@@G@@E 0 TO IF-SW@D@@@@ MOVE ACCT-CODE-3 TO CUR-ACNT-SAVEVK )@@G@@@#@@@@ ELSE @C@@@@ MOVE 'NO ' TO NEW-ACCOUNT-NVL )@@G@@UM-SW @C@@@@ MOVE CUR-ACNT-SAVE TO ACCT-CODE @A@@@@ VM )@@G@@ MOVE '2' TO CARD-NO @D@@@@ PERFORM 510-GET-LABELVN )@@G@@S-FROM-DISC-JA @C@@@@ MOVE TABLE-RECORD TO CARD-NO-2 VO )@@G@@@B@@@@ MOVE SPACES TO FOUR-SPACES @C@@@@ MOVVP )@@G@@E ACCOUNT-DESC TO ACCOUNT-NAME@C@@@@ MOVE ACCT-CODE-3 TO CVQ )@@G@@UR-ACNT-SAVE@A@@@@ MOVE 1 TO LEVEL-SUB @B@@@@ VR )@@G@@ PERFORM 670-PRINT-TOTALS @A@@@@ IF NOT NEW-BUREAU-NUMVS )@@G@@@E@@@@ MOVE BUDGET-NUM TO PREVIOUS-BUDGET-NUM @A@@@@VT )@@G@@ MOVE 0 TO IF-SW @^@@@@ ELSE @A@@@@VU )@@G@@ MOVE 1 TO IF-SW. @^@@@@ IF IF-ON @A@@@@VV )@@G@@ IF NOT NEW-DEPUTY-NUM@D@@@@ MOVE 'NO ' VW )@@G@@TO NEW-BUREAU-NUM-SW @B@@@@ MOVE 2 TO LEVEL-SUB VX )@@G@@@D@@@@ PERFORM 570-SET-LINE-TITLE-CALL-PRT@C@@@@ VY )@@G@@ PERFORM 505-INITIAL-BUREAU @G@@@@ WRITEVZ )@@G@@ PRINT-LINE FROM BUREAU-TITLE AFTER 3 LINES @B@@@@ WA )@@G@@ ADD 3 TO LINE-COUNT-CUR@E@@@@ MOVE BUDGET-NUM TO PREVWB )@@G@@IOUS-BUDGET-NUM @^@@@@ ELSE @D@@@@ WC )@@G@@ MOVE 'NO ' TO NEW-BUREAU-NUM-SW @D@@@@ WD )@@G@@ NEW-DEPUTY-NUM-SW @D@@@@ PERFORM 570-SET-LINE-TIWE )@@G@@TLE-CALL-PRT@D@@@@ VARYING LEVEL-SUB FROM 2 BY 1 WF )@@G@@@D@@@@ UNTIL LEVEL-SUB GREATER 3 @C@@@@ WG )@@G@@ PERFORM 505-INITIAL-BUREAU @D@@@@ PERFOWH )@@G@@RM 625-PRINT-HEADINGS-CURRENT @E@@@@ MOVE BUDGET-NUM TWI )@@G@@O PREVIOUS-BUDGET-NUM. @B@@@@ PERFORM 530-ACCUMULATE-TOTALS WJ )@@G@@@G@@@@ VARYING LEVEL-SUB FROM 1 BY 1 UNTIL LEVEL-SUB GREATWK )@@G@@ER 4. @ @@@@ 505-INITIAL-BUREAU. @C@@@@ MOVE ACCTWL )@@G@@-CODE-3 TO ACCT-CODE. @A@@@@ MOVE '1' TO CARD-NO. @C@@@@WM )@@G@@ PERFORM 510-GET-LABELS-FROM-DISC-JA. @B@@@@ MOVE TAWN )@@G@@BLE-RECORD TO CARD-NO-1.@C@@@@ MOVE DEPUTY-DESC TO DEPUTY-NAMEWO )@@G@@. @C@@@@ MOVE BUREAU-DESC TO BUREAU-NAME. @@@@@@@A@@@@WP )@@G@@ 510-GET-LABELS-FROM-DISC-JA. @^@@@@ READ TAB-DISC@G@@@@WQ )@@G@@ INVALID KEY DISPLAY 'NO MATCHING LABEL FOUND' UPON PRINTER WR )@@G@@@E@@@@ DISPLAY BUDGET-NUM ' ' TABLE-KEY@C@@@@WS )@@G@@ UPON PRINT-DEVICE @B@@@@ WT )@@G@@ ENTER FD 'ABORT'. @@@@@@@@@@@@@ @@@@ 530-ACCUMULATE-TOTALS. WU )@@G@@@E@@@@ ADD SHIFT1-HOURS, SHIFT2-HOURS, SHIFT3-HOURS @G@@@@WV )@@G@@ TO SUP-HOURS IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB). WW )@@G@@@G@@@@ ADD CARDS-IN-COST, CARDS-OUT-COST, PAGES-COST, FORMS-MTWX )@@G@@-COST,@F@@@@ REELS-MT-COST, DATA-TRAN-COST, REELS-LIBR-COSWY )@@G@@T, @F@@@@ PACK-MT-COST, CAT-TRACKS-COST, MS-DATA-TRANS-WZ )@@G@@COST, @E@@@@ PACK-DUR-COST, DATA-COM-SOFT, DATA-COM-HARD XA )@@G@@@G@@@@ TO REL-COST IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUBXB )@@G@@) @G@@@@ TOT-COST IN SUM-LEVEL (WHICH-RPT-SUB, LEVXC )@@G@@EL-SUB). @^@@@@ ADD AP-HOURS @G@@@@ TO PROG-HXD )@@G@@OURS IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB). @ @@@@ ADD OTHXE )@@G@@ER-COST @G@@@@ TO OTH-COST IN SUM-LEVEL (WHICH-RPT-SUXF )@@G@@B, LEVEL-SUB) @G@@@@ TOT-COST IN SUM-LEVEL (WHICH-XG )@@G@@RPT-SUB, LEVEL-SUB). @D@@@@ ADD SHIFT1-COST, SHIFT2-COST, SXH )@@G@@HIFT3-COST @G@@@@ TO SUP-COST IN SUM-LEVEL (WHICH-RPT-SUXI )@@G@@B, LEVEL-SUB) @G@@@@ TOT-COST IN SUM-LEVEL (WHICH-XJ )@@G@@RPT-SUB, LEVEL-SUB). @C@@@@ ADD DE-ENTER-COST, DE-VERIFY-COXK )@@G@@ST @G@@@@ TO ENTRY-COST IN SUM-LEVEL (WHICH-RPT-SUB, LXL )@@G@@EVEL-SUB) @G@@@@ TOT-COST IN SUM-LEVEL (WHICH-RPT-SUXM )@@G@@B, LEVEL-SUB). @^@@@@ ADD AP-COST @G@@@@ TO XN )@@G@@ PROG-COST IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB) @G@@@@ XO )@@G@@ TOT-COST IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB). @C@@@@ XP )@@G@@ ADD DE-HOUR-ENTER, DE-HOUR-VERIFY @G@@@@ TO ENTRYXQ )@@G@@-HOURS IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB). @@@@@@@@@@@@@A@@@@ XR )@@G@@ 570-SET-LINE-TITLE-CALL-PRT. @A@@@@ IF LEVEL-SUB EQUALS 1 XS )@@G@@@ @@@@ NEXT SENTENCE @#@@@@ ELSE @A@@@@ XT )@@G@@ IF LEVEL-SUB EQUALS 2@E@@@@ MOVE '** BUREAU TXU )@@G@@OTAL **' TO BUREAU-TOT @^@@@@ ELSE @B@@@@ XV )@@G@@ IF LEVEL-SUB EQUALS 3 @F@@@@ MOVE '*** DEPXW )@@G@@UTY TOTAL ***' TO DEPUTY-TOT @^@@@@ ELSE @G@@@@ XX )@@G@@ MOVE '**** DEPARTMENTAL TOTAL ****' TO DEPUTY-TOT.@A@@@@XY )@@G@@ PERFORM 670-PRINT-TOTALS.@@@@@@@@@@@@@A@@@@ 620-PRINT-HXZ )@@G@@EADINGS-Y-T-D. @D@@@@ MOVE PAGE-COUNTER-Y-T-D TO DEPT-PAGE-YA )@@G@@NUM. @B@@@@ ADD 1 TO PAGE-COUNTER-Y-T-D. @E@@@@ WYB )@@G@@RITE PRINT-Y-T-D FROM DEPT-HEADER-1 AFTER PAGE. @F@@@@ WRITE PYC )@@G@@RINT-Y-T-D FROM DEPT-HEADER-2 AFTER 1 LINE. @E@@@@ WRITE PYD )@@G@@RINT-Y-T-D FROM THIRD-LINE AFTER 1 LINE. @F@@@@ WRITE PRINT-YYE )@@G@@-T-D FROM Y-T-D-FOURTH-LINE AFTER 1 LINE. @B@@@@ MOVE SPACES TYF )@@G@@O PRINT-Y-T-D. @C@@@@ WRITE PRINT-Y-T-D AFTER 3 LINES. YG )@@G@@@F@@@@ WRITE PRINT-Y-T-D FROM DETAIL-HEAD-1 AFTER 2 LINES. YH )@@G@@@F@@@@ WRITE PRINT-Y-T-D FROM DETAIL-HEAD-2 AFTER 1 LINE. YI )@@G@@@F@@@@ WRITE PRINT-Y-T-D FROM DETAIL-HEAD-3 AFTER 1 LINE. YJ )@@G@@@E@@@@ WRITE PRINT-Y-T-D FROM DEPUTY-TITLE AFTER 1 LINE.@F@@@@YK )@@G@@ WRITE PRINT-Y-T-D FROM BUREAU-TITLE AFTER 2 LINES. @B@@@@YL )@@G@@ MOVE ZERO TO LINE-COUNT-Y-T-D. @@@@@@@A@@@@ 625-PRINT-HYM )@@G@@EADINGS-CURRENT. @D@@@@ MOVE PAGE-COUNT-CURRENT TO DEPT-PAGE-YN )@@G@@NUM. @B@@@@ ADD 1 TO PAGE-COUNT-CURRENT. @E@@@@ WYO )@@G@@RITE PRINT-LINE FROM DEPT-HEADER-1 AFTER PAGE. @E@@@@ WRITE PYP )@@G@@RINT-LINE FROM DEPT-HEADER-2 AFTER 1 LINE.@E@@@@ WRITE PRINT-LYQ )@@G@@INE FROM THIRD-LINE AFTER 1 LINE. @F@@@@ WRITE PRINT-LINE FRYR )@@G@@OM CURRENT-FOURTH-LINE AFTER 1 LINE.@E@@@@ WRITE PRINT-LINE FRYS )@@G@@OM FIFTH-LINE AFTER 2 LINES. @E@@@@ WRITE PRINT-LINE FROM SIXYT )@@G@@TH-LINE AFTER 1 LINE. @F@@@@ WRITE PRINT-LINE FROM DETAIL-HEYU )@@G@@AD-1 AFTER 3 LINES. @E@@@@ WRITE PRINT-LINE FROM DETAIL-HEYV )@@G@@AD-2 AFTER 1 LINE.@E@@@@ WRITE PRINT-LINE FROM DETAIL-HEAD-3 AYW )@@G@@FTER 1 LINE.@E@@@@ WRITE PRINT-LINE FROM DEPUTY-TITLE AFTER 1YX )@@G@@ LINE.@F@@@@ WRITE PRINT-LINE FROM BUREAU-TITLE AFTER 2 LINESYY )@@G@@. @B@@@@ MOVE ZERO TO LINE-COUNT-CUR. @@@@@@@@@@@@@^@@@@YZ )@@G@@ 670-PRINT-TOTALS.@E@@@@ MOVE CORR SUM-LEVEL (WHICH-RPT-ZA )@@G@@SUB, LEVEL-SUB) @A@@@@ TO PRINT-DETAIL. @B@@@@ ZB )@@G@@ MOVE LEVEL-SUB TO X-NUMBER-OF. @G@@@@ IF TOT-COST IN SUM-ZC )@@G@@LEVEL (WHICH-RPT-SUB, LEVEL-SUB) NOT = 0 @B@@@@ IF WHICH-ZD )@@G@@RPT-SUB EQUALS 1 @B@@@@ PERFORM 730-PRINT-Y-T-D@^@@@@ZE )@@G@@ ELSE @D@@@@ PERFORM 750-PRINT-CURREZF )@@G@@NT-TOTALS. @B@@@@ PERFORM 710-ZERO-ACCUMULATORS. @@@@@@@@@@@@ZG )@@G@@@ @@@@ 710-ZERO-ACCUMULATORS. @ @@@@ MOVE ZEROES TO ZH )@@G@@@F@@@@ ENTRY-HOURS IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB)ZI )@@G@@@F@@@@ ENTRY-COST IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB)ZJ )@@G@@@F@@@@ PROG-COST IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB)ZK )@@G@@@F@@@@ PROG-HOURS IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB)ZL )@@G@@@F@@@@ SUP-HOURS IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB)ZM )@@G@@@F@@@@ SUP-COST IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB)ZN )@@G@@@F@@@@ REL-COST IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB)ZO )@@G@@@F@@@@ OTH-COST IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB)ZP )@@G@@@G@@@@ TOT-COST IN SUM-LEVEL (WHICH-RPT-SUB, LEVEL-SUB)ZQ )@@G@@. @@@@@@@@@@@@@@@@@@@^@@@@ 730-PRINT-Y-T-D. @C@@@@ WZR )@@G@@RITE PRINT-Y-T-D FROM ACCOUNT-DETAIL@B@@@@ AFTER X-NUMBER-ZS )@@G@@OF LINES. @C@@@@ ADD X-NUMBER-OF TO LINE-COUNT-Y-T-D. @@@@@@ZT )@@G@@@A@@@@ 750-PRINT-CURRENT-TOTALS. @F@@@@ WRITE PRINT-LZU )@@G@@INE FROM ACCOUNT-DETAIL AFTER X-NUMBER-OF @ @@@@ LINZV )@@G@@ES. @C@@@@ ADD X-NUMBER-OF TO LINE-COUNT-CUR. @@@@@@@@@@@@ZW )@@G@@@@@@@@@ @@@@ 800-EXIT-FROM-SORT. @#@@@@ EXIT. ___ ZX )@@G@@ PERFORM 530-ACCUMULATE-TOTALS @G@@@@ VARYIZY )@@G@@NG LEVEL-SUB FROM 1 BY 1*[S@@@*SDFF*@A@@@@000000 IDENTIFICATION DIVISIONZZ )@@G@@. @ @@@@000100 PROGRAM-ID. H1551090. @^@@@@000200 AUTHOR. R B RUDY.AA )@@G@@@A@@@@000300 DATE-WRITTEN. 15 MAY 1979. @^@@@@000400 DATE-COMPILED. AB )@@G@@@ @@@@ *REMARKS. ASCII ANS-1974@E@@@@000500* CREATES A LIST OF JOBAC )@@G@@-ACCOUNTING 'LEACHES' AND THE @B@@@@000510* PAYING JOB DISCRIPTAD )@@G@@IONS. @A@@@@000520* *** ASCII *** . @]@@@@000530* @ @@@@AE )@@G@@ * CHANGE 10 MAY 80 @C@@@@ * CONVERT TO ANS 1974 COBOLAF )@@G@@ (ACOB4). @]@@@@ * @ @@@@100000 ENVIRONMENT DIVISION. @ @@@@AG )@@G@@100100 CONFIGURATION SECTION. @ @@@@ COPY COMPUTER-NAMES. @^@@@@AH )@@G@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NAMES. @ @@@@100400AI )@@G@@ INPUT-OUTPUT SECTION. @^@@@@100500 FILE-CONTROL. @E@@@@100510 SAJ )@@G@@ELECT PRINTR ASSIGN TO PRINTER DP-LCH-LIST. @F@@@@100520 SELECT AK )@@G@@TBLDISC ASSIGN TO MASS-STORAGE TABLEDISC-JA @D@@@@100530 ACCESAL )@@G@@S IS DYNAMIC ORGANIZATION IS INDEXED@A@@@@100540 ACTUAL KEY IS JAM )@@G@@A-KEY.@[@@@@100550@^@@@@200000 DATA DIVISION. @^@@@@200100 FILE SECTIOAN )@@G@@N. @[@@@@200110@#@@@@200200 FD PRINTR @E@@@@200210 LABEL RECORDSAO )@@G@@ ARE OMITTED DATA RECORD IS PRINT. @@@@@@@[@@@@200220@E@@@@200300 01 PAP )@@G@@RINT PIC X(132). @[@@@@200310@#@@@@200400AQ )@@G@@ FD TBLDISC@G@@@@200410 LABEL RECORDS ARE STANDARD BLOCK CONTAINS 3AR )@@G@@360 CHARACTERS @E@@@@200420 RECORDING MODE IS INTERNAL DATA RECORAS )@@G@@D IS TBL-D. @[@@@@200430@E@@@@200500 01 TBL-D USAGE IS DISPLAY-1 AT )@@G@@ PIC X(84). @[@@@@200510@A@@@@201000 WORKING-STORAGE SECTION. AU )@@G@@@F@@@@201010 77 DATE-6 PIC X(6) DISP-1. AV )@@G@@@F@@@@201020 77 DATE-8 PIC X(8) DISP-1. AW )@@G@@@E@@@@201030 77 DATE-I VALUE '1' PIC X DISP-1.@E@@@@AX )@@G@@201030 77 H-ACCT VALUE SPACE PIC XXX DISP-1. @F@@@@201040AY )@@G@@ 77 LNBR VALUE 55 PIC S9(5) COMP. @F@@@@201070AZ )@@G@@ 77 PGNBR VALUE ZERO PIC S9(5) COMP. @F@@@@201080BA )@@G@@ 77 Q VALUE ZERO PIC S9(5) COMP. @F@@@@201090BB )@@G@@ 77 Q1 VALUE ZERO PIC S9(5) COMP. @E@@@@201050BC )@@G@@ 77 L-HOLD VALUE ZERO PIC XXX. @D@@@@201060 77 LBD )@@G@@YNES PIC 99.@[@@@@201100@^@@@@ COPY BE )@@G@@DEPT-HEADER.@[@@@@201210@ @@@@201300 01 DEPT-HEADER-3. @E@@@@201310BF )@@G@@ 02 FILLER VALUE SPACE PIC X(44). @E@@@@201320 0BG )@@G@@2 FILLER VALUE 'DATA PROCESSING' PIC X(15). @E@@@@201330 02 FILBH )@@G@@LER VALUE ' SERVICES - ADJ' PIC X(15). @E@@@@201340 02 FILLER VBI )@@G@@ALUE 'USTMENT REPORT ' PIC X(15). @E@@@@201350 02 FILLER VALUE SBJ )@@G@@PACE PIC X(53). @[@@@@201360@ @@@@201400 01 DEPT-HEADER-4BK )@@G@@. @E@@@@201410 02 FILLER VALUE '------------SERV' PIC X(16). BL )@@G@@@E@@@@201420 02 FILLER VALUE 'ICES PERFORMED U' PIC X(16). @E@@@@BM )@@G@@201430 02 FILLER VALUE 'NDER:-----------' PIC X(16). @E@@@@201440BN )@@G@@ 02 FILLER VALUE '-- ----------' PIC X(16). @E@@@@201450 0BO )@@G@@2 FILLER VALUE '-------------SER' PIC X(16). @E@@@@201460 02 FILBP )@@G@@LER VALUE 'VICES PERFORMED ' PIC X(16). @E@@@@201470 02 FILLER VABQ )@@G@@LUE 'BILLABLE TO:----' PIC X(16). @E@@@@201480 02 FILLER VALUE '-BR )@@G@@---------------' PIC X(16). @E@@@@201490 02 FILLER VALUE '----' BS )@@G@@ PIC X(4). @[@@@@201500@ @@@@201600 01 DEPT-HEADER-5. BT )@@G@@@E@@@@201610 02 FILLER VALUE 'ACCT' PIC X(4). @E@@@@BU )@@G@@201620 02 FILLER VALUE SPACE PIC X(50). @E@@@@201630BV )@@G@@ 02 FILLER VALUE 'ACCT' PIC X(4). @E@@@@201640 0BW )@@G@@2 FILLER VALUE SPACE PIC X(74). @[@@@@201650@ @@@@201700BX )@@G@@ 01 DEPT-HEADER-6. @E@@@@201710 02 FILLER VALUE 'CODE -------BY )@@G@@---' PIC X(16). @E@@@@201720 02 FILLER VALUE '-ACCOUNT DESCRIP' PBZ )@@G@@IC X(16). @E@@@@201730 02 FILLER VALUE 'TION------------' PIC X(1CA )@@G@@6). @E@@@@201740 02 FILLER VALUE '-- CODE ----' PIC X(16). CB )@@G@@@E@@@@201750 02 FILLER VALUE '------ACCOUNT DI' PIC X(16). @E@@@@CC )@@G@@201760 02 FILLER VALUE 'SCRIPTION-------' PIC X(16). @E@@@@201770CD )@@G@@ 02 FILLER VALUE '-------- PCT. ' PIC X(16). @E@@@@201780 0CE )@@G@@2 FILLER VALUE ' SERVICE ' PIC X(16). @E@@@@201790 02 FILCF )@@G@@LER VALUE ' ' PIC X(4). @[@@@@201800@B@@@@201900 01 JCG )@@G@@A-KEY USAGE IS DISPLAY-1. @D@@@@201910 02 JA-CARD CH )@@G@@ PIC 99.@E@@@@201920 02 JA-ACCT PCI )@@G@@IC XXX. @E@@@@201930 02 JA-ACCT2 PIC X(6CJ )@@G@@). @D@@@@201940 02 JA-TYPE PIC 9. @[@@@@CK )@@G@@201950@^@@@@202000 01 LEACH-TABLE. @B@@@@202010 02 LEACH-TBL OCCURCL )@@G@@S 75 TIMES. @E@@@@202020 03 L-ACCT-1 PIC XXXCM )@@G@@. @E@@@@202030 03 L-PAY-ACCT PIC XXX. CN )@@G@@@E@@@@202040 03 L-PAY-PCT OCCURS 5 TIMES PIC 999V9. @[@@@@CO )@@G@@202050@^@@@@202100 01 LEACH-TYPE. @E@@@@202110 02 FILLER VALUE ' CP )@@G@@DATA ENTRY ' PIC X(12). @E@@@@202120 02 FILLER VALUE ' ANAL/PCQ )@@G@@ROG ' PIC X(12). @E@@@@202130 02 FILLER VALUE ' COMPUTER 'CR )@@G@@ PIC X(12). @E@@@@202140 02 FILLER VALUE ' COMM - S/W ' PCS )@@G@@IC X(12). @E@@@@202150 02 FILLER VALUE ' COMM - H/W ' PIC X(1CT )@@G@@2). @[@@@@202160@B@@@@202200 01 L-TYPE REDEFINES LEACH-TYPE. @E@@@@CU )@@G@@202210 02 L-TBL OCCURS 5 TIMES PIC X(12). @[@@@@202220CV )@@G@@@^@@@@202300 01 PRINT-LINE. @D@@@@202310 03 FILLER CW )@@G@@ PIC X. @E@@@@202320 03 P-ACCT-L PCX )@@G@@IC XXX. @D@@@@202330 03 FILLER PIC XX.CY )@@G@@@E@@@@202340 03 P-DISC-L PIC X(34). @E@@@@CZ )@@G@@202350 03 FILLER PIC X(15). @E@@@@202360DA )@@G@@ 03 P-ACCT-P PIC XXX. @D@@@@202370 DB )@@G@@ 03 FILLER PIC XX.@E@@@@202380 03 P-DISC-DC )@@G@@P PIC X(34). @E@@@@202390 03 FILLER DD )@@G@@ PIC X(11). @E@@@@202400 03 P-PCT DE )@@G@@ PIC ZZZ.9. @D@@@@202410 03 FILLER DF )@@G@@ PIC X. @E@@@@202420 03 P-TYPE PIC X(1DG )@@G@@2). @E@@@@202430 03 FILLER PIC X(9). DH )@@G@@@[@@@@202440@B@@@@202500 01 TBL-D-CD USAGE IS DISPLAY-1. @D@@@@202510DI )@@G@@ 02 TD-DECODE PIC 99.@ @@@@202520 02 TD-DJ )@@G@@ACCT-CD. @E@@@@202530 03 TD-ACCT1 PIC XXXDK )@@G@@. @E@@@@202540 03 TD-ACCT2 PIC X(6). DL )@@G@@@D@@@@202550 02 TD-CD-NO PIC X. @D@@@@202560DM )@@G@@ 02 TD-ACD PIC X. @^@@@@202570 02 TD-DN )@@G@@TYPE2.@E@@@@202580 03 TD-DISC PIC X(34). DO )@@G@@@E@@@@202590 03 TD-TITLE PIC X(33). @C@@@@DP )@@G@@202600 02 TD-TYPE5 REDEFINES TD-TYPE2. @E@@@@202610 03 TDQ )@@G@@D-5-ACCT1 PIC XXX. @E@@@@202620 03 TD-5-PCDR )@@G@@T-1 OCCURS 5 TIMES PIC 999V9. @E@@@@202630 03 TD-5-ACCT2 DS )@@G@@ PIC XXX. @E@@@@202640 03 TD-5-PCT-2 OCCURS 5DT )@@G@@ TIMES PIC 999V9. @E@@@@202650 03 FILLER DU )@@G@@ PIC X(21). @[@@@@202660@ @@@@300000 PROCEDURE DIVISION. @^@@@@DV )@@G@@310000 100-HOUSEKPING. @B@@@@310010 MOVE SPACES TO PRINT-LINE. DW )@@G@@@B@@@@310020 PERFORM 180-CLR-LEACH 75 TIMES.@C@@@@310030 ENTER FDX )@@G@@D 'GETDATE ' USING DATE-6. @E@@@@310040 ENTER FD 'DATEDIT' USING DY )@@G@@DATE-6 DATE-8 DATE-I. @A@@@@310050 MOVE DATE-8 TO DEPT-DATE.@C@@@@DZ )@@G@@310060 MOVE 'H1551090' TO DEPT-PROGRAM-NUM. @B@@@@310070 MOVE 'HEA )@@G@@15515' TO DEPT-RUN-ID.@ @@@@310080 MOVE 0 TO Q Q1. @[@@@@310090EB )@@G@@@#@@@@311000 110-OPENS. @C@@@@311010 OPEN INPUT TBLDISC OUTPUT PRINTEC )@@G@@R. @A@@@@311020 PERFORM 160-START-JA. @A@@@@311030 PERFORMED )@@G@@ 150-BUILD-JA. @D@@@@311040 PERFORM 150-BUILD-JA THRU 160-START-JEE )@@G@@A. @ @@@@311050 MOVE 0 TO Q Q1. @A@@@@311060 PERFORM 200-PEF )@@G@@ROCESS. @A@@@@311070 CLOSE TBLDISC PRINTR. @^@@@@311080 SEG )@@G@@TOP RUN. @[@@@@311090@^@@@@315000 150-BUILD-JA. @G@@@@315010 REH )@@G@@EAD TBLDISC NEXT INTO TBL-D-CD AT END GO TO 160-START-JA. @[@@@@315020EI )@@G@@@^@@@@315140 151-CONTINUE. @D@@@@315110 IF TD-DECODE > 01 GO TOEJ )@@G@@ 160-START-JA. @C@@@@315120 IF TD-DECODE = 01 NEXT SENTENCE EK )@@G@@@#@@@@315130 ELSE @A@@@@315140 GO TO 170-JA-ERROR. @ @@@@EL )@@G@@315150 IF TD-CD-NO < 5 @A@@@@315160 GO TO 150-BUILD-JA. EM )@@G@@@^@@@@315170 ADD 1 TO Q. @B@@@@ IF Q > 75 GO TO 169-Q-ERREN )@@G@@OR. @B@@@@315180 MOVE TD-ACCT1 TO L-ACCT-1 (Q) @C@@@@315190 MEO )@@G@@OVE TD-5-ACCT1 TO L-PAY-ACCT (Q) @^@@@@315200 MOVE 0 TO Q1.@B@@@@EP )@@G@@315210 PERFORM 156-LEACH1 5 TIMES. @A@@@@315220 IF TD-5-ACCT2EQ )@@G@@ > SPACES @B@@@@315230 ADD 1 TO Q MOVE 0 TO Q1 @C@@@@315240ER )@@G@@ MOVE TD-ACCT1 TO L-ACCT-1 (Q) @C@@@@315250 MOVE TD-5ES )@@G@@-ACCT2 TO L-PAY-ACCT (Q)@B@@@@315260 PERFORM 157-LEACH2 5 TIMES.ET )@@G@@@ @@@@315270 GO TO 150-BUILD-JA.@[@@@@315280@#@@@@315600 156-LEACH1.EU )@@G@@@^@@@@315610 ADD 1 TO Q1. @A@@@@315620 IF TD-5-PCT-1 (Q1) > 0 EV )@@G@@@E@@@@315630 MOVE TD-5-PCT-1 (Q1) TO L-PAY-PCT (Q, Q1). @[@@@@EW )@@G@@315640@#@@@@315700 157-LEACH2.@^@@@@315710 ADD 1 TO Q1. @A@@@@315720EX )@@G@@ IF TD-5-PCT-2 (Q1) > 0 @E@@@@315730 MOVE TD-5-PCT-2 (Q1) EY )@@G@@TO L-PAY-PCT (Q, Q1). @[@@@@315040@^@@@@316000 160-START-JA. @A@@@@EZ )@@G@@316010 MOVE SPACES TO JA-KEY. @ @@@@316020 MOVE 01 TO JA-CARD.FA )@@G@@@E@@@@316030 START TBLDISC INVALID KEY GO TO 170-JA-ERROR. @[@@@@FB )@@G@@316040@^@@@@ 169-Q-ERROR. @C@@@@ DISPLAY 'Q = ' Q UPFC )@@G@@ON PRINT-DEVICE. @@@@@@@^@@@@317000 170-JA-ERROR. @E@@@@317010 DFD )@@G@@ISPLAY 'INVALID KEY ' JA-KEY UPON PRINT-DEVICE. @ @@@@317020 ENTER FFE )@@G@@D 'ABORT'. @[@@@@317030@^@@@@318000 180-CLR-LEACH. @^@@@@318010 AFF )@@G@@DD 1 TO Q. @D@@@@318020 MOVE SPACES TO L-ACCT-1 (Q) L-PAY-ACCT (Q).FG )@@G@@@^@@@@318030 MOVE 0 TO Q1.@B@@@@318040 PERFORM 190-CLR-PCT 5 TIMFH )@@G@@ES. @[@@@@318050@^@@@@319000 190-CLR-PCT. @^@@@@319010 ADD 1 TFI )@@G@@O Q1. @B@@@@319020 MOVE 0 TO L-PAY-PCT (Q, Q1). @[@@@@319030@^@@@@FJ )@@G@@320000 200-PROCESS. @^@@@@320010 ADD 1 TO Q. @B@@@@ IFK )@@G@@F Q > 75 GO TO 169-Q-ERROR. @A@@@@320020 IF L-ACCT-1 (Q) > SPACES FL )@@G@@@ @@@@320030 MOVE 0 TO Q1 @A@@@@320040 PERFORM 210-PROFM )@@G@@CESS-2@A@@@@320050 GO TO 200-PROCESS. @[@@@@320060@^@@@@321000FN )@@G@@ 210-PROCESS-2. @A@@@@321010 IF L-ACCT-1 (Q) > H-ACCT @ @@@@321020FO )@@G@@ IF LNBR > 50 @A@@@@321030 PERFORM 300-HDGS. @A@@@@FP )@@G@@321040 IF L-ACCT-1 (Q) > H-ACCT @F@@@@321050 MOVE L-ACCT-1 (QFQ )@@G@@) TO JA-ACCT P-ACCT-L H-ACCT @A@@@@321060 PERFORM 220-CALLFR )@@G@@-JA @B@@@@321070 MOVE TD-DISC TO P-DISC-L @ @@@@321080 FS )@@G@@ MOVE 2 TO LYNES @A@@@@321090 PERFORM 230-MOVE-PAY @#@@@@321100FT )@@G@@ ELSE @A@@@@321110 PERFORM 230-MOVE-PAY. @[@@@@321120@^@@@@FU )@@G@@322000 220-CALL-JA. @ @@@@322010 MOVE 01 TO JA-CARD.@A@@@@322020FV )@@G@@ MOVE SPACES TO JA-ACCT2 @ @@@@322030 MOVE 2 TO JA-TYPE. @G@@@@FW )@@G@@322040 READ TBLDISC INTO TBL-D-CD INVALID KEY GO TO 170-JA-ERROR. FX )@@G@@@[@@@@322050@^@@@@323000 230-MOVE-PAY. @D@@@@323010 MOVE L-PAY-ACFY )@@G@@CT (Q) TO JA-ACCT P-ACCT-P @A@@@@323020 PERFORM 220-CALL-JA. FZ )@@G@@@A@@@@323025 MOVE TD-DISC TO P-DISC-P.@A@@@@323030 PERFORM 240-PGA )@@G@@CTS 5 TIMES.@[@@@@323040@#@@@@324000 240-PCTS. @^@@@@324010 ADD 1 TGB )@@G@@O Q1. @A@@@@324020 IF L-PAY-PCT (Q, Q1) > 0 @C@@@@324030 MOVE GC )@@G@@L-PAY-PCT (Q, Q1) TO P-PCT @B@@@@324040 MOVE L-TBL (Q1) TO P-TYGD )@@G@@PE @A@@@@324050 PERFORM 250-P-LINE. @[@@@@324060@#@@@@325000GE )@@G@@ 250-P-LINE.@F@@@@325010 WRITE PRINT FROM PRINT-LINE AFTER ADVANCINGGF )@@G@@ LYNES. @B@@@@325020 MOVE SPACES TO PRINT-LINE. @ @@@@325030GG )@@G@@ ADD LYNES TO LNBR @ @@@@325040 MOVE 1 TO LYNES. @[@@@@325050GH )@@G@@@#@@@@330000 300-HDGS. @ @@@@330010 ADD 1 TO PGNBR @B@@@@330020GI )@@G@@ MOVE PGNBR TO DEPT-PAGE-NUM. @F@@@@330030 WRITE PRINT FROM DEGJ )@@G@@PT-HEADER-1 AFTER ADVANCING PAGE. @E@@@@330040 WRITE PRINT FROM DEGK )@@G@@PT-HEADER-2 AFTER ADVANCING 1.@E@@@@330050 WRITE PRINT FROM DEPT-HEAGL )@@G@@DER-3 AFTER ADVANCING 2.@E@@@@330060 WRITE PRINT FROM DEPT-HEADER-4 GM )@@G@@AFTER ADVANCING 3.@E@@@@330070 WRITE PRINT FROM DEPT-HEADER-5 AFTER GN )@@G@@ADVANCING 2.@E@@@@330080 WRITE PRINT FROM DEPT-HEADER-6 AFTER ADVANCGO )@@G@@ING 1.@ @@@@330090 MOVE 15 TO LNBR. @B@@@@330100 MOVE SPACES TGP )@@G@@O PRINT-LINE. @[@@@@330010___ - WRITE PRINT FROM DEPT-HEADER-1-GQ )@@G@@4 AFTER ADVANCING 3. @E@@@@330060 WRITE PRINT FROM DEPT-HEADER-4 GR )@@G@@AFTER ADVANCING 3.@F@[@@*[S@@@*SDFF*@@@@@[@@@@@[@@@@@[@@@@@[@@@@@[@[@@@[GS )@@G@@. @[@@@[. @A@@@[. ROUTINE TO USE MSOC INTERFACE@[@@@[. GT )@@G@@@A@@@[. FORTRAN CALLING SEQUENCE @B@@@[. CALL DGET('FILEGU )@@G@@NAME',SIZE,STATUS)@[@@@[. @[@@@[. @A@@@[$(1) AXR$ GV )@@G@@ .@[@@@[DGET*.@C@@@[ SZ A1 . INGW )@@G@@IT A1 @E@@@[ ER OPT$ . GET XQT OPTIONS GX )@@G@@@D@@@[ TEP A0,(1*/('Z'-'S')) . S OPTION? @E@@@[ GY )@@G@@ A,U A1,1 . SET A1 FOR S OPTION @D@@@[ TEGZ )@@G@@P A0,(1*/('Z'-'G')) . G OPTION? @E@@@[ A,U A1,2HA )@@G@@ . SET A1 FOR G OPTION @F@@@[ S A1,*2,X11 HB )@@G@@ . SET STATUS FOR G,S OPTIONS@E@@@[ L A0,(USELG,HC )@@G@@USE) . NEW USE STATEMENT @D@@@[ TG,U A1,2 HD )@@G@@ . G OPTION SET? @D@@@[ ER CSF$ . YES DO THE )@@G@@HE USE@E@@@[ JN A0,MSCN . FAILED SO GO REGULARHF )@@G@@@D@@@[ TG,U A1,2 . G OPTION SET ?@E@@@[ HG )@@G@@ J 4,X11 . RETURN TO SENDER @[@@@[MSCN. @B@@@[HH )@@G@@ SZ MSCPKT . @D@@@[ L,U A0,01HI )@@G@@5 . SET TO DO DGET$ @A@@@[ S,S6 A0,MSCPKT .HJ )@@G@@@F@@@[ DL A0,*0,X11 . GET FILE TO HOLD MFD INFO HK )@@G@@@ @@@[ DS A0,MSCPKT+1@F@@@[ L A0,*1,X11 HL )@@G@@ . GET SIZE OF FILE IN TRACKS @A@@@[ S A0,MSCPKT+3HM )@@G@@ .@F@@@[ L A0,(BUFF1,BUFF2) . GET BUFFER ADDRESSESHN )@@G@@ THEY @H@@@[ S A0,MSCPKT+4 . ARE INTERNAL STORAHO )@@G@@GE IN THIS ROUTINE@A@@@[ L,U A0,MSCPKT .@A@@@[ HP )@@G@@ ER MSCON$ .@E@@@[ TN A0 .HQ )@@G@@ WAS ERROR DETECTED @E@@@[ J 4,X11 . NO /HR )@@G@@ NORMAL RETURN @G@@@[ SSL A0,18 . SHIFT ERRORHS )@@G@@ BITS TO RT OF WORD @D@@@[ S A0,*2,X11 . LOG EHT )@@G@@RROR BITS @^@@@[ J 4,X11@[@@@[. @[@@@[. @[@@@[HU )@@G@@/. @[@@@[. @[@@@[$(0) @ @@@[USE '@USE 2.,TDIR$. . ' @ @@@[HV )@@G@@USELG EQU $-USE @^@@@[BUFF1 RES 1792 @^@@@[BUFF2 HW )@@G@@ RES 1792 @^@@@[MSCPKT RES 20 @]@@@[ END@]@[@@HX )@@G@@ADD+ 210 265@[@[@@B ___ELICDG^[NE-JEL[C9 ^[DD0)E-CDDN^[MD9PE-DD1 ^@)HY )@@G@@*[S@@@*SDFF*@#@@@@DLY-ACCT-MST PROC @^@@@@ *01 W-ACT-REC. @C@@@@HZ )@@G@@ * CHANGE # 09 MAY 80 D. HEROLD @C@@@@ * CONVERTIA )@@G@@ FOR 1974 ANS COBOL (ACOB4) @]@@@@ * @A@@@@ 03 AC-REIB )@@G@@C-ID USAGE DISP-1.@ @@@@ 05 AC-ACCOUNT-NO. @D@@@@ IC )@@G@@ 07 AC-ACCOUNT-H PIC X.@E@@@@ 07 AC-ACCID )@@G@@OUNT-NUM PIC XXX. @D@@@@ 07 AC-ACCOUNT-TIE )@@G@@YPE PIC X.@E@@@@ 07 AC-ACCOUNT-REST IF )@@G@@ PIC X(7). @D@@@@ 05 AC-ACCNT-NO REDEFINES AC-ACCOUNT-IG )@@G@@NO @E@@@@ PIC X(12). IH )@@G@@@^@@@@ 05 AC-DATE. @E@@@@ 07 AC-YY II )@@G@@ PIC XX. @E@@@@ 07 AC-MM IJ )@@G@@ PIC XX. @E@@@@ 07 AC-DD IK )@@G@@PIC XX. @C@@@@ 05 AC-DATE-9 REDEFINES AC-DATE. @E@@@@IL )@@G@@ 07 AC-YY-9 PIC 99. @E@@@@ IM )@@G@@ 07 AC-MM-9 PIC 99. @E@@@@ IN )@@G@@ 07 AC-DD-9 PIC 99. @E@@@@ 05 AC-IO )@@G@@DAY-OF-WK PIC X(6). @F@@@@ 05 AC-DAY-OFIP )@@G@@-WK-9 REDEFINES AC-DAY-OF-WK PIC 9(6). @A@@@@ 03 AC-DATA UIQ )@@G@@SAGE COMP-4.@E@@@@ 05 AC-OUTSTAND-CAT-TKS PIC 9IR )@@G@@(10). @E@@@@ 05 AC-OUTSTAND-LIB-REELS PIC 9(10). IS )@@G@@@ @@@@ 05 AC-ERROR-INFO. @B@@@@ 07 AC-ERRORS OCCUIT )@@G@@RS 2 TIMES. @D@@@@ 09 HARD-KILL PIC 9(10). IU )@@G@@@D@@@@ 09 PROG-KILL PIC 9(10). @D@@@@ IV )@@G@@ 09 OPER-KILL PIC 9(10). @D@@@@ 09 IW )@@G@@SYS-KILL PIC 9(10). @D@@@@ 09 ER-ERR IX )@@G@@ PIC 9(10). @D@@@@ 09 ER-ABORT IY )@@G@@ PIC 9(10). @D@@@@ 09 SEC-LOST PIC 9(10). IZ )@@G@@@C@@@@ 07 AC-SHIFT-INFO OCCURS 3 TIMES. @E@@@@ JA )@@G@@ 09 TOT-RPTS PIC 9(10). @E@@@@ 09 JB )@@G@@TOT-LINES PIC 9(10). @E@@@@ 09 SPC-FOJC )@@G@@RMS PIC 9(10). @E@@@@ 09 PR-BL-TIME JD )@@G@@ PIC 9(10). @A@@@@ 09 AC-BATCH-DATA. JE )@@G@@@C@@@@ 13 RUNS PIC 9(10). @C@@@@ JF )@@G@@ 13 RUN-SECS PIC 9(10). @C@@@@ 13 NO-RJE JG )@@G@@ PIC 9(10). @C@@@@ 13 NO-ST PIC 9(10). JH )@@G@@@C@@@@ 13 DL-BATCH PIC 9(10). @C@@@@ JI )@@G@@ 13 BL-MIN PIC 9(10). @C@@@@ 13 AV-PRI JJ )@@G@@ PIC 9(10). @E@@@@ 13 FILLER JK )@@G@@ PIC 9. @C@@@@ 13 TOT-SUPS PIC 9(18). @E@@@@JL )@@G@@ 13 FILLER PIC 9. @C@@@@ JM )@@G@@ 13 CPU-SUPS PIC 9(18). @E@@@@ 13 FILJN )@@G@@LER PIC 9. @C@@@@ 13 CB-SUPS JO )@@G@@ PIC 9(18). @E@@@@ 13 FILLER JP )@@G@@ PIC 9. @C@@@@ 13 CCER-SUPS PIC 9(18). @D@@@@JQ )@@G@@ 13 TEMP-TKS PIC 9(10). @D@@@@ JR )@@G@@ 13 NEW-TKS PIC 9(10). @D@@@@ 13 RMVJS )@@G@@-MNTS PIC 9(10). @D@@@@ 13 RMV-SECS JT )@@G@@ PIC 9(10). @E@@@@ 13 FILLER JU )@@G@@ PIC 9. @D@@@@ 13 MASS-STOR-XFERS PIC 9(18). JV )@@G@@@D@@@@ 13 REELS-MTD PIC 9(10). @E@@@@ JW )@@G@@ 13 FILLER PIC 9. @D@@@@ JX )@@G@@ 13 TAPE-XFERS PIC 9(18). @D@@@@ 13 STDJY )@@G@@-PGS PIC 9(10). @D@@@@ 13 CARDS-IN JZ )@@G@@ PIC 9(10). @D@@@@ 13 CARDS-OUT PIC 9(10KA )@@G@@). @A@@@@ 09 AC-DEMAND-DATA. @C@@@@ KB )@@G@@13 RUNS PIC 9(10).@C@@@@ 13 RUN-SECS KC )@@G@@ PIC 9(10).@E@@@@ 13 FILLER PIC 9KD )@@G@@. @C@@@@ 13 TOT-SUPS PIC 9(18).@E@@@@ KE )@@G@@ 13 FILLER PIC 9. @C@@@@ KF )@@G@@ 13 CPU-SUPS PIC 9(18).@E@@@@ 13 FILLER KG )@@G@@ PIC 9. @C@@@@ 13 CB-SUPS KH )@@G@@ PIC 9(18).@E@@@@ 13 FILLER PIC 9KI )@@G@@. @C@@@@ 13 CCER-SUPS PIC 9(18).@D@@@@ KJ )@@G@@ 13 TEMP-TKS PIC 9(10). @D@@@@ KK )@@G@@13 NEW-TKS PIC 9(10). @D@@@@ 13 RMV-MNTS KL )@@G@@ PIC 9(10). @D@@@@ 13 RMV-SECS KM )@@G@@PIC 9(10). @E@@@@ 13 FILLER PIC 9KN )@@G@@. @D@@@@ 13 MASS-STOR-XFERS PIC 9(18). @D@@@@KO )@@G@@ 13 REELS-MTD PIC 9(10). @E@@@@ KP )@@G@@ 13 FILLER PIC 9. @D@@@@ KQ )@@G@@13 TAPE-XFERS PIC 9(18). @D@@@@ 13 STD-PGS KR )@@G@@ PIC 9(10). @D@@@@ 13 CARDS-IN KS )@@G@@PIC 9(10). @D@@@@ 13 CARDS-OUT PIC 9(10). KT )@@G@@@A@@@@ 09 AC-RT-BATCH-DATA. @C@@@@ 13 RUNKU )@@G@@S PIC 9(10).@C@@@@ 13 RUN-SECS PIC KV )@@G@@9(10).@C@@@@ 13 NO-RJE PIC 9(10).@C@@@@ KW )@@G@@ 13 NO-ST PIC 9(10).@D@@@@ 13 AV-KX )@@G@@PRI PIC 9(10). @E@@@@ 13 FILLER KY )@@G@@ PIC 9. @C@@@@ 13 TOT-SUPS PIC KZ )@@G@@9(18).@E@@@@ 13 FILLER PIC 9. LA )@@G@@@C@@@@ 13 CPU-SUPS PIC 9(18).@E@@@@ LB )@@G@@ 13 FILLER PIC 9. @C@@@@ LC )@@G@@13 CB-SUPS PIC 9(18).@E@@@@ 13 FILLER LD )@@G@@ PIC 9. @C@@@@ 13 CCER-SUPS PIC LE )@@G@@9(18).@D@@@@ 13 TEMP-TKS PIC 9(10). @D@@@@LF )@@G@@ 13 NEW-TKS PIC 9(10). @D@@@@ LG )@@G@@ 13 RMV-MNTS PIC 9(10). @D@@@@ 13 RMVLH )@@G@@-SECS PIC 9(10). @E@@@@ 13 FILLER LI )@@G@@ PIC 9. @D@@@@ 13 MASS-STOR-XFERS LJ )@@G@@PIC 9(18). @D@@@@ 13 REELS-MTD PIC 9(10). LK )@@G@@@E@@@@ 13 FILLER PIC 9. @D@@@@LL )@@G@@ 13 TAPE-XFERS PIC 9(18). @D@@@@ LM )@@G@@ 13 STD-PGS PIC 9(10). @D@@@@ 13 CARLN )@@G@@DS-IN PIC 9(10). @D@@@@ 13 CARDS-OUT LO )@@G@@ PIC 9(10). @E@@@@ 13 FILLER LP )@@G@@ PIC 9. @D@@@@ 13 RT-SECS PIC 9(18). LQ )@@G@@@A@@@@ 09 AC-RT-DMAND-DATA. @C@@@@ 13 RUNLR )@@G@@S PIC 9(10).@C@@@@ 13 RUN-SECS PIC LS )@@G@@9(10).@E@@@@ 13 FILLER PIC 9. LT )@@G@@@C@@@@ 13 TOT-SUPS PIC 9(18).@E@@@@ LU )@@G@@ 13 FILLER PIC 9. @C@@@@ LV )@@G@@13 CPU-SUPS PIC 9(18).@E@@@@ 13 FILLER LW )@@G@@ PIC 9. @C@@@@ 13 CB-SUPS PIC LX )@@G@@9(18).@E@@@@ 13 FILLER PIC 9. LY )@@G@@@C@@@@ 13 CCER-SUPS PIC 9(18).@D@@@@ LZ )@@G@@ 13 TEMP-TKS PIC 9(10). @D@@@@ 13 NEWMA )@@G@@-TKS PIC 9(10). @D@@@@ 13 RMV-MNTS MB )@@G@@ PIC 9(10). @D@@@@ 13 RMV-SECS PIC 9(MC )@@G@@10). @E@@@@ 13 FILLER PIC 9. MD )@@G@@@D@@@@ 13 MASS-STOR-XFERS PIC 9(18). @D@@@@ ME )@@G@@ 13 REELS-MTD PIC 9(10). @E@@@@ MF )@@G@@13 FILLER PIC 9. @D@@@@ 13 TAPMG )@@G@@E-XFERS PIC 9(18). @D@@@@ 13 STD-PGS MH )@@G@@ PIC 9(10). @D@@@@ 13 CARDS-IN PIC 9(MI )@@G@@10). @D@@@@ 13 CARDS-OUT PIC 9(10). @E@@@@MJ )@@G@@ 13 FILLER PIC 9. @D@@@@ MK )@@G@@ 13 RT-SECS PIC 9(18). @[@@@@ END ___ ML )@@G@@ PIC 9. @C@@@@ 13 CPU-SUPS PIC MM )@@G@@9(18).@E@@@@ 13 FILLER PIC 9. MN )@@G@@*[S@@@*SDFF*@#@@@@CTCF-REC PROC @^@@@@ *01 CTCF-REC. @C@@@@MO )@@G@@ * CHANGE # 09 MAY 80 D. HEROLD @C@@@@ * CONVERTMP )@@G@@ FOR 1974 ANS COBOL (ACOB4) @]@@@@ * @E@@@@ 03 TOTAMQ )@@G@@L-SUP-HRS PIC 9(5)V999. @E@@@@ 03 SHIFT-SUP-MR )@@G@@HRS OCCURS 3 TIMES PIC 9(4)V999. @ @@@@ 03 HOURLY-RATES. MS )@@G@@@E@@@@ 05 AP PIC 999V99999. @E@@@@MT )@@G@@ 05 D-E PIC 999V99999. @A@@@@ MU )@@G@@ 05 COMPUTER-RATES. @F@@@@ 07 CMPUTR-RATES OCCMV )@@G@@URS 3 TIMES PIC 999V99999. @A@@@@ 03 PCT-OVHD-TO-APPLY. MW )@@G@@@E@@@@ 05 AP PIC 99V999. @E@@@@MX )@@G@@ 05 D-E PIC 99V999. @E@@@@ MY )@@G@@ 05 COMPUTER PIC 99V999. @A@@@@ 0MZ )@@G@@3 PRE-DETERMINED-COSTS. @E@@@@ 05 OUTSTAND-CAT-TRACKS NA )@@G@@ PIC 9(5)V99. @E@@@@ 05 OUTSTAND-LIB-REELS PIC NB )@@G@@9(5)V99. @E@@@@ 05 PAGES-CREATED PIC 9(5)V9NC )@@G@@9. @E@@@@ 05 SPECIAL-FORMS PIC 9(5)V99. ND )@@G@@@E@@@@ 05 MASS-XFERS PIC 9(5)V99. @E@@@@NE )@@G@@ 05 REELS-MOUNTED PIC 9(5)V99. @E@@@@ NF )@@G@@ 05 TAPE-XFERS PIC 9(5)V99. @E@@@@ NG )@@G@@ 05 CARDS-READ PIC 9(5)V99. @E@@@@ 05 CNH )@@G@@ARDS-PUNCHED PIC 9(5)V99. @E@@@@ 05 RMV-PACNI )@@G@@KS-MOUNTED PIC 9(5)V99. @E@@@@ 05 RMV-PACKS-SECNJ )@@G@@S PIC 9(5)V99. @D@@@@ 05 FILLER NK )@@G@@ PIC X(63).@E@@@@ 03 PRE-DET-COSTS REDEFINES PRE-DETERMNL )@@G@@INED-COSTS. @C@@@@ 05 PRE-DET-ITEM OCCURS 20 TIMES @E@@@@NM )@@G@@ PIC 9(5)V99. @E@@@@ NN )@@G@@ 03 SHIFT1-DIFF PIC 999V99. @E@@@@ 0NO )@@G@@3 SHIFT3-DIFF PIC 999V99. @A@@@@ 03 PCT-NP )@@G@@EMPLOYEE-BENEFITS.@E@@@@ 05 AP PIC NQ )@@G@@99V999. @E@@@@ 05 D-E PIC 99V99NR )@@G@@9. @E@@@@ 05 COMPUTER PIC 99V999. NS )@@G@@@E@@@@ 03 CTMC-COST PIC 9(5)V99. @^@@@@NT )@@G@@ 03 CTM-COST. @E@@@@ 05 HIGH-SPEED NU )@@G@@ PIC 999V99. @E@@@@ 05 MED-SPEED PIC NV )@@G@@999V99. @E@@@@ 05 LOW-SPEED PIC 999V99NW )@@G@@. @E@@@@ 05 DIAL-UP PIC 999V99. NX )@@G@@@E@@@@ 03 UNADJ-SUP-HR-RATE PIC 999V99999. @E@@@@NY )@@G@@ 03 SUP-HRS-LESS-DP PIC 9(5)V999. @ @@@@ NZ )@@G@@ 03 PROCESSING-DATE.@D@@@@ 05 PROCESSING-YY OA )@@G@@ PIC 99. @D@@@@ 05 PROCESSING-MM PIC 99. OB )@@G@@@E@@@@ 03 COMM-TRANS PIC 9(5)V99. @ @@@@OC )@@G@@ 03 NON-DP-SUP-HRS. @E@@@@ 05 NON-DP-HRS OCCURS 3OD )@@G@@ TIMES PIC 9(4)V999. @[@@@@ END ___ 07 CMPUTR-RATES OCCOE )@@G@@URS 3 TIMES PIC 999V99999. @A@@@@ 03 PCT-OVHD-TO-APPLY. OF )@@G@@@E@@@@ 05 A*[S@@@*SDFF*@]@@@@DE-REC PROC @#@@@@ *01 DOG )@@G@@E-REC.@C@@@@ * CHANGE # 09 MAY 80 D. HEROLD @C@@@@ OH )@@G@@* CONVERT FOR 1974 ANS COBOL (ACOB4) @]@@@@ * @ @@@@ OI )@@G@@ 03 DE-ACNT-NO. @C@@@@ 05 DE-ACNT-H-FLD PICOJ )@@G@@ X. @C@@@@ 05 DE-ACNT-NO-FLD PIC XXX. @C@@@@ OK )@@G@@ 05 DE-ACNT-RMDR-FLD PIC X(8).@C@@@@ 03 DE-RECS-ENOL )@@G@@TERED PIC 9(6).@C@@@@ 03 DE-RECS-VERIFIED PICOM )@@G@@ 9(6).@C@@@@ 03 DE-ENTRY-STROKES PIC 9(6).@C@@@@ ON )@@G@@ 03 DE-VERIFY-STROKES PIC 9(6).@D@@@@ 03 DE-ENTRY-MOO )@@G@@IN PIC 9(6)V999. @D@@@@ 03 DE-VERIFY-MIN OP )@@G@@ PIC 9(6)V999. @[@@@@ END ___E[MD9#C(NETDD1B (^CDOC*,^@)@H@@@@^@)^@)OQ )@@G@@^@)^@)^@)^@)^@)A@5^[KELJCT ETNDDIC8!FDT^@)^@)^@)^@)^@)^@)^@)E[DCS)BC9 0)OR )@@G@@*[S@@@*SDFF*@ @[@@@RUN,A/NR REP01,H155,H155,3,50@A@@@[@RUN,A/NR PREP01,HOS )@@G@@155,H155,3,50 @^@@@@@BL CONNIE,BOX010@ @@@@@CYCLE,C H15501*OT )@@G@@SGS-ALT.,0 @ @@@@@ASG,CP H15501*SGS-ALT.,F @A@@@@@ELT,ILS H15501*OU )@@G@@SGS-ALT.H15501-SGS@ @@@@P1) RECOVERY RESTART? NO @^@@@@P1A) RESTAROV )@@G@@T POINT: CP4@A@@@@P2) SELECT DAILY ACCNT FILE? YES @D@@@@P2A) IF DAIOW )@@G@@LY ACCNT FILE NON-CURRENT SPECIFY REEL-NO:@D@@@@P3) SELECT OLD CUMULATOX )@@G@@IVE DAILY ACCNT FILE? YES @F@@@@P3A) IF OLD CUM DAILY ACCNT FILE NOOY )@@G@@N-CURRENT SPECIFY REEL-NO: @E@@@@P4) UPDATE DAILY ACCNT FILE WITH MOZ )@@G@@FD SUMMARY INFO? YES @F@@@@P4A) GENERATE LISTING OF SUMMARY INFO BY PA )@@G@@ACCNT-NO? NO COPIES 1 @F@@@@P5) UPDATE DAILY ACCNT FILE WITH TAPE LIPB )@@G@@B SUMMARY INFO? YES @F@@@@P5A) GENERATE LISTING OF SUMMARY INFO BY PC )@@G@@ACCNT-NO? NO COPIES 1 @D@@@@P6) CREATE NEW CUMULATIVE DAILY ACCNT FIPD )@@G@@LE? YES @D@@@@P7) GENERATE DAILY SUMMARY REPORT? YES COPIES 2 PE )@@G@@@D@@@@P7A) RANGE OF DAILY SUMMARY REPORT: START 01 STOP 31 @C@@@@P8) PF )@@G@@CREATE MONTHLY ACCNT SUMMARY FILE? YES @D@@@@P8A) DATE FOR MONTHLY APG )@@G@@CCNT SUMMARY: MONTH 10 YEAR 80@D@@@@P9) GENERATE MONTHLY SUMMARY REPORPH )@@G@@T? YES COPIES 2 @[@@@@@END @ @@@@@FREE H15501*SGS-ALT. @[@@@@PI )@@G@@@FIN ___ 80@D@@@@P9) GENERATE MONTHLY SUMMARY REPORT? YES COPIES 2 PJ )@@G@@@[@@@@@END @ @@@@@FREE H15501*SGS-ALT. *[S@@@*SDFF*@A@]@@@RUN,APK )@@G@@/NR REP00,H155,H155,3,50 @A@@@]@RUN,A/NR PREP00,H155,H155,3,50 PL )@@G@@@^@@@@@BL CONNIE,BOX010@ @@@@@CYCLE,C H15500*SGS-ALT.,0 @[@@@@PM )@@G@@@END @ @@@@@ASG,CP H15500*SGS-ALT.,F @A@@@@@ELT,IL H15500*SGS-ALPN )@@G@@T.H15500-SGS@^@@@@ P1A) RESTART POINT: CP@ @@@@ P1) RECOVERY RESTART"PO )@@G@@ NO @E@@@@ P2A) LOG TAPE FILENAME: REEL-NO:PP )@@G@@@B@@@@ P2) SELECT OPTIONAL INPUT LOG TAPE" NO @D@@@@ P3A) SYMBOINT DEPQ )@@G@@VICE USAGE REPORT" YES COPIES 1 @B@@@@ P3) CREATE DAILY ACCOUNT FIPR )@@G@@LE" YES @B@@@@ P3B1) SUMMARIZE TIP TRANSACTIONS" NO @C@@@@ P3B) PS )@@G@@ LIST OF ALL RUNS REPORT" YES COPIES 1 @[@@@@@END @ @@@@@FREE HPT )@@G@@15500*SGS-ALT. @ @@@@@PRT,F H15500*SGS-ALT. @[@@@[@FIN ___@@@PU )@@G@@^[KAT]AC(^[NE(HD([ELDFL ^[ODDK^[OEL[D1NCD#E-DD9IES+^[ID8)^@)@F@@@@^[KAT]PV )@@G@@ C)^[GDDNE))D9A^[[D-G^[M*[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISIONPW )@@G@@. @ @@@@ PROGRAM-ID. H1551011. @A@@@@ AUTHOR. DOUGLAS EPX )@@G@@. RAGSDALE. @D@@@@ INSTALLATION. TX DEPT OF HEALTH, AUSTIN, TX. PY )@@G@@@A@@@@ DATE-WRITTEN. MAY 25, 1979. @^@@@@ DATE-COMPILED. PZ )@@G@@@E@@@@ *REMARKS. ASCII ANS-1974 ACOB3R1 @E@@@@QA )@@G@@ * THIS PROGRAM INPUTS THE CADE STATISTICS TAPE, @F@@@@ QB )@@G@@* EXTRACTS ONLY USEFUL DATA, INTERPRETS THE JOB-NAME @G@@@@ QC )@@G@@* INTO AN ACCOUNT-NO AND OUTPUTS THE RESULT TO MASS-STORAGE. @]@@@@QD )@@G@@ * @]@#@@ * @ @#@@ * CHANGE 10 MAY 80 @C@#@@QE )@@G@@ * CONVERT TO ANS 1974 COBOL (ACOB4). @]@#@@ * @B@@@@QF )@@G@@ ************CHANGE LOG************ @]@@@# * @ @@@# QG )@@G@@* CHANGE 10 MAY 80 @C@@@# * CONVERT TO ANS 1974 COBOL (ACOBQH )@@G@@4). @]@@@# * @C@@@# * CHANGE #2 08/11/80 D. HEROLQI )@@G@@D @E@@@# * CHANGE TO PROCESS DE-STAT-TAPE AS AN UNLABELED QJ )@@G@@@^@@@# * IBM OS TAPE. @@@@@@@ @@@@ ENVIRONMENT DIVISION. QK )@@G@@@@@@@@@@@@@@@ @@@@ CONFIGURATION SECTION. @@@@@@@ @@@@ COPY QL )@@G@@COMPUTER-NAMES. @^@@@@ SPECIAL-NAMES. @ @@@@ COPY DEQM )@@G@@VICE-NAMES. @ @@@@ INPUT-OUTPUT SECTION. @@@@@@@^@@@@ FILE-QN )@@G@@CONTROL. @@@@@@@ @@@@ SELECT CADE-IN @C@@@@ QO )@@G@@ ASSIGN UNISERVO DE-STAT-TAPE. @@@@@@@^@@@@ SELECT DE-OUTQP )@@G@@@C@@@@ ASSIGN MASS-STORAGE DE-STAT. @@@@@@@ @@@@ QQ )@@G@@ SELECT CARD-IN @B@@@@ ASSIGN TO CARD-READER. QR )@@G@@@@@@@@@@@@@@@^@@@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ FILE QS )@@G@@SECTION. @@@@@@@#@@@@ FD CADE-IN@A@@@@ BLOCK CONTAINQT )@@G@@S 9 RECORDS @A@@@@ LABEL RECORDS OMITTED @B@@@@ RQU )@@G@@ECORD CONTAINS 132 CHARACTERS @A@#@@ RECORDING MODE FORM01. QV )@@G@@@ @@@# RECORDING MODE F. @@@@@@@A@#@@ 01 CADE-REC QW )@@G@@ DISPLAY-1.@^@@@# 01 CADE-REC. @C@@@@ 03 C-MODE QX )@@G@@ PIC X(8). @ @@@@ 03 C-JOB-NAME. @C@@@@ QY )@@G@@ 05 C-JOB-NAME-F1 PIC XXXX. @C@@@@ 05 C-JOB-NQZ )@@G@@AME-F2 PIC XXXX. @C@@@@ 03 FILLER PIC X(5)RA )@@G@@. @B@@@@ 03 C-OPR-ID PIC XXX.@C@@@@ 0RB )@@G@@3 FILLER PIC X(27). @C@@@@ 03 C-ELAP-TIME RC )@@G@@ PIC X(5). @C@@@@ 03 C-KEYSTROKES PIC X(5). RD )@@G@@@C@@@@ 03 FILLER PIC X(10). @C@@@@ 0RE )@@G@@3 C-RECORDS PIC X(5). @B@@@@ 03 C-ERRORS RF )@@G@@ PIC XXX.@C@@@@ 03 FILLER PIC X(53). @@@@@@RG )@@G@@@@@@@@@#@@@@ FD DE-OUT @A@@@@ BLOCK CONTAINS 10 RECORDSRH )@@G@@@A@@@@ LABEL RECORDS STANDARD @B@@@@ RECORD CONTAIRI )@@G@@NS 40 CHARACTERS @A@@@@ RECORDING MODE INTERNAL. @@@@@@@#@@@@RJ )@@G@@ 01 DE-REC.@C@@@@ 03 DE-OPR-ID PIC XXX. RK )@@G@@@C@@@@ 03 DE-ACNT-NO PIC X(8). @C@@@@ 0RL )@@G@@3 DE-P-MODE PIC X(8). @C@@@@ 03 DE-ELAP-TIME RM )@@G@@ PIC X(5). @C@@@@ 03 DE-STROKES PIC X(5). RN )@@G@@@E@@@@ 03 DE-STROKES-9 REDEFINES DE-STROKES PIC 9(5). @C@@@@RO )@@G@@ 03 DE-RECORDS PIC X(5). @E@@@@ 03 DE-RRP )@@G@@ECORDS-9 REDEFINES DE-RECORDS PIC 9(5). @C@@@@ 03 DE-ERRORS RQ )@@G@@ PIC XXX. @E@@@@ 03 DE-ERRORS-9 REDEFINES DE-ERRR )@@G@@RORS PIC 999. @C@@@@ 03 FILLER PIC XXX. RS )@@G@@@@@@@@@@@@@@@#@@@@ FD CARD-IN@A@@@@ LABEL RECORDS OMITTRT )@@G@@ED @E@@@@ DATA RECORDS ARE CONTROL-CARD, REEL-NO-CARD. RU )@@G@@@@@@@@@^@@@@ 01 CONTROL-CARD.@C@@@@ 03 CC-ID RV )@@G@@ PIC XXXX. @B@@@@ 03 CC-NR PIC 99. @C@@@@RW )@@G@@ 03 FILLER PIC X(74). @@@@@@@^@@@@ 01 RRX )@@G@@EEL-NO-CARD.@C@@@@ 03 CC-REEL-NO PIC X(6). @C@@@@RY )@@G@@ 03 FILLER PIC X(74). @]@@@@ / @A@@@@RZ )@@G@@ WORKING-STORAGE SECTION. @@@@@@@D@@@@ 77 REEL-CNT SA )@@G@@ PIC 99 VALUE 0. @D@@@@ 77 STAT PSB )@@G@@IC S9(10) COMP-4. @D@@@@ 01 SW-CADE-EOF PIC X VALUE 'SC )@@G@@N'. @D@@@@ 88 CADE-EOF VALUE 'Y'. @D@@@@SD )@@G@@ 01 SW-ACNT-INTERPRETED PIC X VALUE 'N'. @D@@@@ 8SE )@@G@@8 ACNT-INTERPRETED VALUE 'Y'. @D@@@@ 01 SW-CARD-EOF SF )@@G@@ PIC X VALUE 'N'. @D@@@@ 88 CARD-EOF SG )@@G@@ VALUE 'Y'. @@@@@@@F@@@@ 01 R-FILE PIC X(1SH )@@G@@2) VALUE 'DE-STAT-TAPE'.@F@@@@ 01 W-FILE PIC X(1SI )@@G@@2) VALUE 'DE-STAT'. @E@@@@ 01 R-CNT PIC 9(1SJ )@@G@@0) COMP VALUE 0. @E@@@@ 01 W-CNT PIC 9(10) COMSK )@@G@@P VALUE 0. @D@@@@ 01 P1 PIC 9(10) COMP. SL )@@G@@@^@@@@ 01 WORK-ACNT. @D@@@@ 03 WORK-ACNT-F1 SM )@@G@@ PIC XXXX. @F@@@@ 03 FILLER PIC XXXXSN )@@G@@ VALUE SPACES. @B@@@@ 01 CARD-IMAGE-1 DISPLAY-1. @F@]@@SO )@@G@@ 10 FILLER PICTURE X(42) @F@#@]SP )@@G@@ 10 FILLER PICTURE X(46) @F@@@#SQ )@@G@@ 10 FILLER PICTURE X(34) @F@[@@SR )@@G@@ VALUE '@ASG,TJ DE-STAT-TAPE.,16N////EBCDIC//6,'.@G@#@[SS )@@G@@ VALUE '@ASG,TJ DE-STAT-TAPE.,T////FLDATA/EBCDIC/6,'. ST )@@G@@@E@@@# VALUE '@ASG,TJ DE-STAT-TAPE.,T//////Q,'. @F@@@@SU )@@G@@ 10 ASG-TAPE-NO PICTURE X(6). @F@]@@SV )@@G@@ 10 FILLER VALUE SPACES PICTURE X(48). @F@#@]SW )@@G@@ 10 FILLER VALUE SPACES PICTURE X(44). @F@@@#SX )@@G@@ 10 FILLER VALUE SPACES PICTURE X(56). @F@@@@SY )@@G@@ 01 CARD-IMAGE-2 DISPLAY-1 PICTURE X(80) @C@@@@SZ )@@G@@ VALUE '@FREE,C DE-STAT-TAPE.'. @]@@@@ / @ @@@@TA )@@G@@ PROCEDURE DIVISION. @@@@@@@@@@@@@^@@@@ 0000-CONTROL. TB )@@G@@@@@@@@@B@@@@ PERFORM 0100-HOUSEKEEPING. @D@@@@ PTC )@@G@@ERFORM 0110-MAIN-PROCESS UNTIL CARD-EOF. @A@@@@ PERFORM 0120-TD )@@G@@CLOSE-DOWN. @^@@@@ STOP RUN. @@@@@@@@@@@@@ @@@@ 0100-TE )@@G@@HOUSEKEEPING. @@@@@@@ @@@@ OPEN INPUT CARD-IN @ @@@@ TF )@@G@@ OUTPUT DE-OUT.@^@@@@ READ CARD-IN @C@@@@ TG )@@G@@ AT END MOVE 'Y' TO SW-CARD-EOF. @ @@@@ IF CC-ID = 'CCCD' TH )@@G@@@B@@@@ MOVE CC-NR TO REEL-CNT. @A@@@@ IF REELTI )@@G@@-CNT < 1 OR > 9 @F@@@@ DISPLAY 'CONTROL CARD MISSING OR RTJ )@@G@@EEL COUNT INVALID'@B@@@@ UPON PRINT-DEVICE @A@@@@TK )@@G@@ ENTER FD 'ABORT'. @@@@@@@@@@@@@ @@@@ 0110-MAIN-PTL )@@G@@ROCESS. @@@@@@@ @@@@ IF REEL-CNT > -1 @B@@@@ TM )@@G@@ SUBTRACT 1 FROM REEL-CNT @ @@@@ READ CARD-IN @D@@@@TN )@@G@@ AT END MOVE 'Y' TO SW-CARD-EOF @#@@@@ ETO )@@G@@LSE @F@@@@ DISPLAY 'REEL-CNT LIMIT ERROR' UPON PRINT-DEVITP )@@G@@CE @A@@@@ ENTER FD 'ABORT'. @ @@@@ IF NOT TQ )@@G@@CARD-EOF @C@@@@ PERFORM 0200-ASSIGN-TAPE-FILE @E@@@@TR )@@G@@ PERFORM 0210-PROCESS-CADE-TAPE UNTIL CADE-EOF @B@@@@ TS )@@G@@ MOVE 'N' TO SW-CADE-EOF @ @@@@ CLOSE CADE-IN TT )@@G@@@E@@@@ ENTER FD ASM 'SUBCRD' USING CARD-IMAGE-2 STAT.@@@@@@TU )@@G@@@@@@@@@^@@@@ 0120-CLOSE-DOWN. @@@@@@@^@@@@ CLOSE CARD-INTV )@@G@@@^@@@@ DE-OUT.@C@@@@ CALL 'LOG-RCNT' USING R-FTW )@@G@@ILE R-CNT. @C@@@@ CALL 'LOG-WCNT' USING W-FILE W-CNT. @@@@@@TX )@@G@@@@@@@@@@@@@@@ @@@@ 0200-ASSIGN-TAPE-FILE. @@@@@@@B@@@@ MTY )@@G@@OVE CC-REEL-NO TO ASG-TAPE-NO.@E@@@@ ENTER FD ASM 'SUBCRD' USITZ )@@G@@NG CARD-IMAGE-1 STAT. @^@@@@ IF STAT < 0 @G@@@@ UA )@@G@@ DISPLAY 'FAC REJECT ON TAPE ASSIGN' UPON PRINT-DEVICE @ @@@@ UB )@@G@@ ENTER FD 'ABORT'@#@@@@ ELSE @A@@@@ OPENUC )@@G@@ INPUT CADE-IN. @@@@@@@@@@@@@ @@@@ 0210-PROCESS-CADE-TAPE.@@@@@@UD )@@G@@@B@@@@ PERFORM 0300-READ-CADE-IN. @ @@@@ IF NOT UE )@@G@@CADE-EOF @ @@@@ ADD 1 TO R-CNT @C@@@@ MOVEUF )@@G@@ C-JOB-NAME-F1 TO WORK-ACNT-F1@B@@@@ MOVE WORK-ACNT TO DE-AUG )@@G@@CNT-NO@B@@@@ MOVE C-OPR-ID TO DE-OPR-ID @B@@@@ UH )@@G@@ MOVE C-MODE TO DE-P-MODE @C@@@@ MOVE C-ELAP-TIME TO DEUI )@@G@@-ELAP-TIME @C@@@@ MOVE C-KEYSTROKES TO DE-STROKES @B@@@@UJ )@@G@@ MOVE C-RECORDS TO DE-RECORDS@B@@@@ MOVE C-ERRUK )@@G@@ORS TO DE-ERRORS @ @@@@ WRITE DE-REC @ @@@@ UL )@@G@@ ADD 1 TO W-CNT. @@@@@@@@@@@@@ @@@@ 0300-READ-CADE-IN. @@@@@@UM )@@G@@@^@@@@ READ CADE-IN @C@@@@ AT END MOVE 'Y' TO SUN )@@G@@W-CADE-EOF. @@@@@@@@@@@@@@@@@@@@@@@@___E)!C- E1DCT ^@)@D@@@@^@)^@)^@)^@)UO )@@G@@^@)^@)^@)C(IE- EK)C1^^@$CD]D9ME)$ 0)^@)^@)@B@@@@^@)^@)^@)^@)^@)^[DC0)D1JUP )@@G@@*[S@@@*SDFF*@A@@@@ IDENTIFICATION DIVISION. @ @@@@ PROGRUQ )@@G@@AM-ID. H1551021. @A@@@@ AUTHOR. DOUGLAS E. RAGSDALE. @D@@@@ UR )@@G@@ INSTALLATION. TX DEPT OF HEALTH, AUSTIN, TX. @A@@@@ DATE-WRITTEUS )@@G@@N. MAY 25, 1979. @^@@@@ DATE-COMPILED. @E@@@@ *REMARKS. UT )@@G@@ ASCII ANS-1974 ACOB3R1 @A@@@@ * SORTS DE-STAUU )@@G@@T FILE ON @E@@@@ * OPERATOR-ID OR ACNT-NO AS PER CONTROL CARDUV )@@G@@. @]@@@@ * @B@@@] ************CHANGE LOG************ UW )@@G@@@]@@@@ * @ @@@@ * CHANGE 10 MAY 80 @C@@@@ * CUX )@@G@@ONVERT TO ANS 1974 COBOL (ACOB4). @]@@@@ * @C@@@] * CUY )@@G@@HANGE #2 09 SEPT 80 D. HEROLD @F@@@] * CHANGE TO CALL SORTUZ )@@G@@ASG WITH REQUEST FOR 3 WORK AREAS. @B@]@@ ************CHANGE LOG**VA )@@G@@********** @@@@@@@ @@@@ ENVIRONMENT DIVISION. @@@@@@@@@@@@@ @@@@VB )@@G@@ CONFIGURATION SECTION. @@@@@@@ @@@@ COPY COMPUTER-NAMES. VC )@@G@@@^@@@@ SPECIAL-NAMES. @ @@@@ COPY DEVICE-NAMES. @ @@@@VD )@@G@@ INPUT-OUTPUT SECTION. @@@@@@@^@@@@ FILE-CONTROL. @@@@@@VE )@@G@@@^@@@@ SELECT DE-IN @C@@@@ ASSIGN MASS-STORAGVF )@@G@@E DE-STAT. @@@@@@@^@@@@ SELECT DE-OUT@D@@@@ VG )@@G@@ASSIGN MASS-STORAGE DE-STAT-SRTD. @@@@@@@ @@@@ SELECT SORT-FVH )@@G@@ILE @B@@@@ ASSIGN MASS-STORAGE XA. @@@@@@@ @@@@ VI )@@G@@ SELECT CARD-IN @B@@@@ ASSIGN CARD-READER. VJ )@@G@@@@@@@@@@@@@@@@@@@@@^@@@@ DATA DIVISION. @@@@@@@@@@@@@^@@@@ VK )@@G@@ FILE SECTION. @@@@@@@#@@@@ FD DE-IN @A@@@@ BLOCK CVL )@@G@@ONTAINS 10 RECORDS@A@@@@ LABEL RECORDS STANDARD @A@@@@ VM )@@G@@ RECORDING MODE INTERNAL. @@@@@@@A@@@@ 01 IN-REC PIC VN )@@G@@X(40).@@@@@@@@@@@@@#@@@@ FD DE-OUT @A@@@@ BLOCK CONTAINVO )@@G@@S 10 RECORDS@A@@@@ LABEL RECORDS STANDARD @A@@@@ RVP )@@G@@ECORDING MODE INTERNAL. @@@@@@@C@@@@ 01 OUT-REC PVQ )@@G@@IC X(40). @@@@@@@@@@@@@#@@@@ FD CARD-IN@A@@@@ LABEL RVR )@@G@@ECORDS OMITTED. @@@@@@@^@@@@ 01 PARAM-CARD. @C@@@@ 0VS )@@G@@3 SW-PARAM-CD PIC X(8). @D@@@@ 88 PARAM-CD VT )@@G@@ VALUE 'H1551021'. @B@@@@ 03 SW-SRT-OPT PIC X. VU )@@G@@@C@@@@ 88 OPR-SRT VALUE '1'. @C@@@@ VV )@@G@@ 88 JOB-SRT VALUE '2'. @C@@@@ 03 FILLER VW )@@G@@ PIC X(71). @@@@@@@@@@@@@@@@@@@^@@@@ SD SORT-FILE @A@@@@VX )@@G@@ DATA RECORD SORT-REC. @@@@@@@^@@@@ 01 SORT-REC. VY )@@G@@@^@@@@ 03 SID1. @C@@@@ 05 SID1-A PVZ )@@G@@IC XXX. @C@@@@ 05 SID1-B PIC X(16). @C@@@@WA )@@G@@ 03 FILLER PIC X(21). @]@@@@ / @A@@@@WB )@@G@@ WORKING-STORAGE SECTION. @@@@@@@D@@@@ 01 SW-CARD-EOF WC )@@G@@ PIC X VALUE 'N'. @D@@@@ 88 CARD-EOF WD )@@G@@ VALUE 'Y'. @D@[@@ 01 REC-LENGTH VALUE 10 PIC 9(10) COMWE )@@G@@P. @D@]@[ 01 REC-LENGTH VALUE 40 PIC 9(10) COMP. @D@@@]WF )@@G@@ 01 REC-LENGTH VALUE 10 PIC 9(10) COMP. @D@@@@ 01 RWG )@@G@@EC-VOLUME PIC 9(10) COMP. @D@]@@ 01 CORE-SIZE VWH )@@G@@ALUE 1500 PIC 9(10) COMP. @D@@@] 01 CORE-SIZE VALUE 22500 WI )@@G@@PIC 9(10) COMP. @D@]@@ 01 STATUZ PIC 9(10) COMWJ )@@G@@P. @E@@@] 01 STATUZ PIC 9(10) COMP VALUE 3. WK )@@G@@@D@@@@ 01 VOL PIC S9(10) COMP. @C@@@@ WL )@@G@@ 01 FILENAME VALUE 'DE-STAT' PIC X(12). @@@@@@@]@@@@ / @ @@@@WM )@@G@@ PROCEDURE DIVISION. @@@@@@@@@@@@@^@@@@ 0000-CONTROL. WN )@@G@@@@@@@@@B@@@@ PERFORM 0100-HOUSEKEEPING. @^@@@@ IWO )@@G@@F OPR-SRT @D@@@@ SORT SORT-FILE ON ASCENDING KEY SID1 WP )@@G@@@ @@@@ USING DE-IN@A@@@@ GIVING DE-OWQ )@@G@@UT @#@@@@ ELSE @D@@@@ SORT SORT-FILE ON ASCEWR )@@G@@NDING KEY SID1-B @ @@@@ USING DE-IN@A@@@@ WS )@@G@@ GIVING DE-OUT. @^@@@@ STOP RUN. @@@@@@@@@@@@@ @@@@WT )@@G@@ 0100-HOUSEKEEPING. @@@@@@@ @@@@ OPEN INPUT CARD-IN.WU )@@G@@@^@@@@ READ CARD-IN @C@@@@ AT END MOVE 'Y' TO SWV )@@G@@W-CARD-EOF. @^@@@@ IF PARAM-CD @#@@@@ AND @A@@@@WW )@@G@@ (OPR-SRT OR JOB-SRT) @ @@@@ NEXT SENTENCE WX )@@G@@@#@@@@ ELSE @F@@@@ DISPLAY 'H1551021 CONTROL CAWY )@@G@@RD MISSING OR INCORRECT'@B@@@@ UPON PRINT-DEVICE WZ )@@G@@@A@@@@ ENTER FD 'ABORT'. @D@@@@ CALL 'GETVOLAXA )@@G@@SCII' USING FILENAME VOL. @^@@@@ IF VOL < 4 @E@@@@ XB )@@G@@ DISPLAY 'H1551021 GETVOLASCII STATUS BAD' @B@@@@ XC )@@G@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'. XD )@@G@@@A@@@@ MOVE VOL TO REC-VOLUME. @B@@@@ CALL 'SORTASGXE )@@G@@' USING REC-LENGTH@C@@@@ REC-VOLUME XF )@@G@@@C@@@@ CORE-SIZE @B@@@@ XG )@@G@@ STATUZ. @ @@@@ IF STATUZ NOT = 0 @D@@@@XH )@@G@@ DISPLAY 'H1551021 SRTSET STATUS BAD' @B@@@@ XI )@@G@@ UPON PRINT-DEVICE @A@@@@ ENTER FD 'ABORT'. XJ )@@G@@@ @@@@ CLOSE CARD-IN. @@@@@@@@@@@@___GROSS. XK )@@G@@K18053@N@[@@ 487 945 048700 IF CC-PROOF NXL )@@G@@OT = 'PROOF' *[S@@@*SDFF*@B@@@#@RUN,AXM )@@G@@/BNR 015511,H155,H155,5,50,D1800 @^@^@#@BL RUDY,BOX-03 @^@@@^XN )@@G@@@BL CONNIE,BOX-10 @ @B@#@ASG,A H155*ABS/JOB/ACT. @^@@@B@ASG,AXO )@@G@@ H155*ABS. @^@@@#@USE H155.,H155*ABS. @A@B@#@ASG,A H155*JA-SXP )@@G@@GS/LINDA/LOU. @^@@@B@ASG,A H155*JA-SGS. @^@@@#@USE SGS.,H155*JA-XQ )@@G@@SGS. @A@@@#@COPY,S H155.H15511/SKEL,TPF$. @[@@@#@END @B@@@#@SSG,IXR )@@G@@K TPF$.H15511/SKEL,SGS.H15511-SGS @[@@@#@EOF @^@@@A@START H155.H1XS )@@G@@5512 @^@ @#@START H155.H15512 @[@@@#@FIN ___ LECC!ETBES,^@)@C@@@]XT )@@G@@C[#D9KFC?ES)^@)D@1A*5 1CAC5A*1AC\ETFC(G -OE[A^),@[@@@]C[ D1^@E@@@]C[NETBXU )@@G@@ -DDS)^[OE[A^),D@1A*5AC1 9NDT D)?ETBES,D@1A*5AC1 (NC9N@[@@@]C[ D9A@A@@@AXV )@@G@@*[S@@@*SDFF*@C@^@[@RUN,A/BR 115512,H155,H155,5,75 . BOX-03 @C@@@^XW )@@G@@@RUN,A/BR 115512,H155,H155,5,75 . BOX-10 @#@#@[@BL DOUG,BOX-03XX )@@G@@@^@@@#@BL CONNIE,BOX-10 @^@ @[@ASG,A H155*ABS/JOB. @^@@@ @ASG,AXY )@@G@@ H155*ABS. @ @@@[@USE H155.,H155*ABS. @A@ @]@ASG,A H15XZ )@@G@@5*JA-SGS/LINDA/LOU. @^@@@ @ASG,A H155*JA-SGS. @ @@@]@USE SGS.YA )@@G@@,H155*JA-SGS. @A@@@[@COPY,S H155.H15512/SKEL,TPF$. @B@]@[@SSG,IYB )@@G@@K TPF$.H15512/SKEL,H155.H15512/SGS@B@@@]@SSG,IK TPF$.H15512/SKEL,SGSYC )@@G@@.H15512-SGS @[@@@[@EOF @[@@@[@EOF @ @@@[ . @START H.H15513 YD )@@G@@@[@@@[@FIN ___D9KFC?CC)^@)^[K 1CAC5A*1A@3A@?E-KC0= 0)@B@[@@C[#D9KFC?CC)YE )@@G@@^@)^[K 1CAC5A*1A@3AC?E-K*[S@@@*SDFF*@D@@@A@RUN,A/BR 115513,H155,H150-JOYF )@@G@@BACTT,5,50 . *BOX-10*@^@@@A@BL CONNIE,BOX-10 @^@E@A@ASG,A H1YG )@@G@@55*ABS/JOB. @^@@@E@ASG,A H155*ABS. @ @@@A@USE H155.,H155*ABSYH )@@G@@. @A@E@A@ASG,A H155*JA-SGS/LINDA/LOU. @^@@@E@ASG,A H155*JA-SYI )@@G@@GS. @ @@@A@USE SGS.,H155*JA-SGS. @A@@@A@COPY,S H155.H15513/SKEYJ )@@G@@L,TPF$. @[@@@A@END @C@@@A@SSG,IK TPF$.H15513/SKEL,SGS.H15513-SGYK )@@G@@S @[@@@A@EOF @[@@@A@EOF @^@C@A@START H155.H15514 @^@D@C@STARTYL )@@G@@ H155.H15515 @^@@@D@START H155.H15514 @[@@@A@FIN ___AC5A*1AS\YM )@@G@@ETFC(G -NC9N 1CAC5A*1AS!ETBES)@[@@@ C[ D9A@[@@@ C[ D9A@A@C@ C[NE-[ELO^@)YN )@@G@@^@)D@1A*5 1CAC5A*1A))^@)@A@D@CC[NE-[ELO^@)^@)D@1*[S@@@*SDFF*@D@ @]@RUN,AYO )@@G@@/BNPRT 215514,H155,H155,10,50 . BOX-03 @D@@@ @RUN,A/BNPRT 2155YP )@@G@@14,H155,H155,10,50 . BOX-10 @#@ @]@BL DOUG,BOX-03@^@@@ @BL YQ )@@G@@ CONNIE,BOX-10 @^@A@]@ASG,A H155*ABS/JOB.@^@@@A@ASG,A H155*ABYR )@@G@@S. @ @@@]@USE H155.,H155*ABS. @A@A@]@ASG,A H155*JA-SGS/LINYS )@@G@@DA/LOU. @^@@@A@ASG,A H155*JA-SGS. @ @@@]@USE S.,H155*JA-SGSYT )@@G@@. @A@@@]@COPY,S H155.H15514/SKEL,TPF$. @[@@@]@END @F@#@]@SSG,IYU )@@G@@K TPF$.H15514/SKEL,S.H15514/SGS,,,,,SGS/1,H155.JA-BU-TABLE @F@@@#@SSG,IYV )@@G@@K TPF$.H15514/SKEL,S.H15514-SGS,,,,,SGS/1,H155.JA-BU-TABLE @[@@@]@EOF YW )@@G@@@[@@@]@EOF @ @^@] . @START H155.H15515 @^@@@^@START H155.H1YX )@@G@@5515 @[@@@]@FIN ___D- ^@)^@)@L@#@]C[NETB -DDS)^[OE[A^),D@1A*5AC4 9NDT YY )@@G@@D)?ES,D@1A*5AC4 9NC9N )? )? -NC9N 81 -CAC5A*,DL[ (]E*!E-[CLGC*)^@)@L@@@#YZ )@@G@@C[NETB -DDS)^[OE[A^),D@1*[S@@@*SDFF*@C@@@^@RUN,A/BR 115515,H155,H155,15ZA )@@G@@,500 . BOX-10 @^@@@^@BL BOX-10,CONNIE @^@C@^@ASG,A H155*ABZB )@@G@@S/JOB.@^@@@C@ASG,A H155*ABS. @^@@@^@USE H155.,H155*ABS.@A@C@^ZC )@@G@@@ASG,A H155*JA-SGS/LINDA/LOU. @^@@@C@ASG,A H155*JA-SGS. @ @@@^ZD )@@G@@@USE SGS.,H155*JA-SGS. @[@@@^@END @A@@@^@COPY,S H155.H15515/SKZE )@@G@@EL,TPF$. @[@@@^@END @B@@@^@SSG,IK TPF$.H15515/SKEL,SGS.H15515-SGSZF )@@G@@@[@@@^@EOF @[@@@^@EOF @^@ @^@START H155.H15516 @^@B@ . @START ZG )@@G@@H155.H15516 @^@@@B@START H155.H15516 @[@@@^@FIN ___D@1A*5 1CAC5A*1ZH )@@G@@A*\ETFC(G -OE[A^),@[@@@#C[ D1^@F@@@#C[NETB -DDS)^@)^[OE[A^),D@1A*5AC5 9NZI )@@G@@DT D)?ETBES,D@1A*5AC5 (NC9N^@)@[@@@#C[ D9A@[@@@#*[S@@@*SDFF*@C@#@@@RUN,AZJ )@@G@@/BNR 115516,H155,H155,5,50 . BOX-03@C@@@#@RUN,A/BNR 115516,H15ZK )@@G@@5,H155,5,50 . BOX-10@^@#@@@BL BOX-03,DOUG @^@@@#@BL BOZL )@@G@@X-10,CONNIE @ @[@@@ASG,A SYS*PROJ-H155/LONE. @ @[@@@USE P.,SYS*PZM )@@G@@ROJ-H155. @^@[@@@COPY,S P.H15516/SKEL @]@[@@@FREE P.@^@^@@@ASG,AZN )@@G@@ H155*ABS/JOB. @^@@@^@ASG,A H155*ABS. @^@[@@@USE H.,H155*ZO )@@G@@ABS. @ @@@[@USE H155.,H155*ABS. @A@^@]@ASG,A H155*JA-SGS/LINZP )@@G@@DA/LOU. @^@@@^@ASG,A H155*JA-SGS. @ @@@]@USE SGS.,H155*JA-SGSZQ )@@G@@. @A@@@[@COPY,S H155.H15516/SKEL,TPF$. @[@@@[@END @B@[@@@SSG,IZR )@@G@@K TPF$.H15516/SKEL,H.H15516/SGS @B@]@[@SSG,IK TPF$.H15516/SKEL,H155.ZS )@@G@@H15516/SGS @B@@@]@SSG,IK TPF$.H15516/SKEL,SGS.H15516-SGS @[@@@@@EOF ZT )@@G@@@[@@@@@FIN ___D@1A*5AC6 9NDT D)?E-KC0= 0)@[@@@[C[ D1^@E@[@@C[NETB -DDS)ZU )@@G@@E-KC0= 1CAC5A*1A0\ETFC(G*[S@@@*SDFF*@A@@@@*. PROGRAM-ID: H15501 (LEV 1R1ZV )@@G@@) @ @@@@*. AUTHOR: D. E. RAGSDALE @ @@@@*. DATE WRITTEN: JUN 21,ZW )@@G@@1978 @C@@@@*. INSTALLATION: TX DEPT OF HEALTH, AUSTIN, TX. @F@@@@*. PROZX )@@G@@GRAM FUNCTION: SSG RUNSTREAM DRIVER FOR ACCOUNTING SYSTEM. @[@@@@*. ZY )@@G@@@[@@@@*. @E@@@@*. SGS PARAMETERS: ( ) INDICATES SET OF VALID RESPOZZ )@@G@@NSES @[@@@@*. @[@@@@*. @A@@@@*. P1) RECOVERY RESTART? (YES/NO) AA )@@G@@@D@@@@*. P1A) RESTART POINT: (CP1/CP2/CP3/CP4/CP5/CP6) @B@@@@*. P2)AB )@@G@@ SELECT DAILY ACCNT FILE? (YES/NO)@F@@@@*. P2A) IF DAILY ACCNT FILE NAC )@@G@@ON-CURRENT SPECIFY REEL-NO: (XXXXXX)@E@@@@*. P3) SELECT OLD CUMULATIVEAD )@@G@@ DAILY ACCNT FILE? (YES/NO) @H@@@@*. P3A) IF OLD CUM DAILY ACCNT FILEAE )@@G@@ NON-CURRENT SPECIFY REEL-NO: (XXXXXX) @F@@@@*. P4) UPDATE DAILY ACAF )@@G@@CNT FILE WITH MFD SUMMARY INFO? (YES/NO) @H@@@@*. P4A) GENERATE LISTINAG )@@G@@G OF SUMMARY INFO BY ACCNT-NO? (YES/NO) COPIES (X) @G@@@@*. P5) UPDAH )@@G@@ATE DAILY ACCNT FILE WITH TAPE LIB SUMMARY INFO? (YES/NO) @H@@@@*. P5AAI )@@G@@) GENERATE LISTING OF SUMMARY INFO BY ACCNT-NO? (YES/NO) COPIES (X) AJ )@@G@@@E@@@@*. P6) CREATE NEW CUMULATIVE DAILY ACCNT FILE? (YES/NO) @E@@@@AK )@@G@@*. P7) GENERATE DAILY SUMMARY REPORT? (YES/NO) COPIES (X)@E@@@@*. P7AAL )@@G@@) RANGE OF DAILY SUMMARY REPORT: START XX STOP XX @D@@@@*. P8) CREAM )@@G@@ATE MONTHLY ACCNT SUMMARY FILE? (YES/NO) @E@@@@*. P8A) DATE FOR MONTHLAN )@@G@@Y ACCNT SUMMARY: MONTH XX YEAR XX @F@@@@*. P9) GENERATE MONTHLY SUMMAO )@@G@@ARY REPORT? (YES/NO) COPIES (X) @[@@@@*. @[@@@@*. @A@@@@*. PARAP )@@G@@AMETER SELECTION INSTRUCTIONS:@[@@@@*. @D@@@@*. DEFAULT ON PARAMETERSAQ )@@G@@ WITH YES/NO' RESPONSE = 'NO'.@F@@@@*. DEFAULT ON P2A,P3A CAUSES THE MOSAR )@@G@@T CURRENT FILE(S) TO BE USED. @G@@@@*. DEFAULT ON P7A CAUSES THE DAYNO OAS )@@G@@F THE DAILY-ACCNT FILE TO BE USED. @D@@@@*. EXCEPT AS FOLLOWS, ALL PARAAT )@@G@@METERS ARE OPTIONAL: @E@@@@*. AT LEAST ONE PARAMETER OF SET [P2,AU )@@G@@P3] MUST = 'YES'. @F@@@@*. AT LEAST ONE PARAMETER OF SET [P6,P7,P8,AV )@@G@@P9] MUST = 'YES'. @D@@@@*. IF P1 = 'YES', THEN P1A MUST BE RESPONDEAW )@@G@@D TO. @G@@@@*. IF P2 = 'YES' AND P3 = 'YES' THEN EITHER P2A AND P3AAX )@@G@@ MUST BE @F@@@@*. RESPONDED TO OR, P2A AND P3A MUST NOT BE REAY )@@G@@SPONDED TO. @G@@@@*. IF P2A IS RESPONDED TO, THEN NEITHER P4 NOR P5AZ )@@G@@ MAY = 'YES'. @C@@@@*. IF P4A = 'YES', THEN P4 MUST = 'YES'. BA )@@G@@@C@@@@*. IF P5A = 'YES', THEN P5 MUST = 'YES'. @E@@@@*. IF PBB )@@G@@8 = 'YES' OR P9 = 'YES', THEN P3 MUST = 'YES'. @D@@@@*. IF P8 = 'YBC )@@G@@ES', THEN P8A MUST BE RESPONDED TO. @[@@@@*. @[@@@@*. @[@@@@*. BD )@@G@@@ @@@@*. CHECK POINT LOCATIONS: @[@@@@*. @B@@@@*. CP1: AFTER CREABE )@@G@@TION OF MFD-DETAIL FILE @B@@@@*. CP2: AFTER CREATION OF MFD-SUMMARY FILEBF )@@G@@@B@@@@*. CP3: AFTER CREATION OF LIB-SUMMARY FILE@C@@@@*. CP4: AFTER UPDABG )@@G@@TING DAILY-ACCNT FILE WITH MFD@A@@@@*. AND TAPE LIB SUMMARY INFO BH )@@G@@@C@@@@*. CP5: AFTER CREATION OF FOLLOWING FILE(S)- @ @@@@*. NEW-BI )@@G@@CUM-ACNT FILE @ @@@@*. DLY-ACNT-RPT FILE @ @@@@*. MTH-BJ )@@G@@ACNT-RPT FILE @ @@@@*. MTH-ACNT-SUM FILE @B@@@@*. CP6: BEFOBK )@@G@@RE CREATION OF DAILY-ACT-BU @[@@@@*. @[@@@@*. @[@@@@*. @[@@@@BL )@@G@@*. @[@@@@*. @A@@@@*. H15501 PART 1: CLEAR SWITCHES @[@@@@*. BM )@@G@@@]@@@@*CLEAR ERROR@#@@@@*CLEAR RESTRT @]@@@@*CLEAR CKPT1@]@@@@*CLEARBN )@@G@@ CKPT2@]@@@@*CLEAR CKPT3@]@@@@*CLEAR CKPT4@]@@@@*CLEAR CKPT5@]@@@@*CLEARBO )@@G@@ CKPT6@C@@@@*CLEAR F1 . DAILY-ACCNT FILE @C@@@@*CLEARBP )@@G@@ F2 . OLD-CUM-DLY FILE @C@@@@*CLEAR F3 BQ )@@G@@ . MFD-SUMMARY FILE @C@@@@*CLEAR F4 . LIB-SUMMARY BR )@@G@@FILE @C@@@@*CLEAR F5 . NEW-CUM-DLY FILE @B@@@@*CLEARBS )@@G@@ F6 . DLY-ACNT-RPT@B@@@@*CLEAR F7 . BT )@@G@@MTH-ACNT-RPT@C@@@@*CLEAR F8 . MTH-ACNT-SUM FILE @#@@@@BU )@@G@@*CLEAR F1REEL @#@@@@*CLEAR F2REEL @#@@@@*CLEAR F6DAYS @#@@@@BV )@@G@@*CLEAR MFDRPT @#@@@@*CLEAR LIBRPT @]@@@@*CLEAR MM @]@@@@*CLEARBW )@@G@@ YY @#@@@@*CLEAR STARTDAY @#@@@@*CLEAR STOPDAY @[@@@@*. @[@@@@BX )@@G@@*. @[@@@@*. @[@@@@*. @C@@@@*. H15501 PART 2: CHECK PARAMETEBY )@@G@@R SYNTAX. @[@@@@*. @#@@@@*IF [P1)] > 0 @#@@@@*IF [P1),1] = 3 BZ )@@G@@@^@@@@*IF [P1),1,3,1] = YES @]@@@@*SET RESTRT @[@@@@*ELSE @^@@@@*IF NOCA )@@G@@T [P1),1,3,1] = NO@D@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P1) INCCB )@@G@@ORRECT@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*ELSE @^@@@@*IF NOCC )@@G@@T [P1),1] = 2 @D@@@@#MSG,N SGS ERROR: PARAMETER (P1) INCORRECTLY WORCD )@@G@@DED @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. CE )@@G@@@[@@@@*. @[@@@@*. @#@@@@*IF RESTRT IS SET @#@@@@*IF [P1A)] > 0 CF )@@G@@@#@@@@*IF [P1A),1] = 3 @^@@@@*IF [P1A),1,3,1] = CP1 @]@@@@*SET CKPT1 CG )@@G@@@[@@@@*ELSE @^@@@@*IF [P1A),1,3,1] = CP2 @]@@@@*SET CKPT2 @[@@@@*ELSE CH )@@G@@@^@@@@*IF [P1A),1,3,1] = CP3 @]@@@@*SET CKPT3 @[@@@@*ELSE @^@@@@*IF [PCI )@@G@@1A),1,3,1] = CP4 @]@@@@*SET CKPT4 @[@@@@*ELSE @^@@@@*IF [P1A),1,3,1] =CJ )@@G@@ CP5 @]@@@@*SET CKPT5 @[@@@@*ELSE @^@@@@*IF [P1A),1,3,1] = CP6 @]@@@@CK )@@G@@*SET CKPT6 @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (PCL )@@G@@1A) INCORRECT @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*END CM )@@G@@@[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*ELSE @D@@@@#MSG,N SGS ERROR: CN )@@G@@PARAMETER (P1A) INCORRECTLY WORDED @]@@@@*SET ERROR @[@@@@*END @[@@@@CO )@@G@@*ELSE @B@@@@#MSG,N SGS ERROR: PARAMETER (P1A) MISSING @]@@@@*SET ERROR CP )@@G@@@[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@*IF [PCQ )@@G@@2)] > 0 @#@@@@*IF [P2),1] = 5 @^@@@@*IF [P2),1,5,1] = YES @]@@@@CR )@@G@@*SET F1 TO 1@[@@@@*ELSE @^@@@@*IF NOT [P2),1,5,1] = NO@D@@@@#MSG,N SGS ECS )@@G@@RROR: RESPONSE TO PARAMETER (P2) INCORRECT@]@@@@*SET ERROR @[@@@@*END CT )@@G@@@[@@@@*END @[@@@@*ELSE @^@@@@*IF NOT [P2),1] = 4 @D@@@@#MSG,N SGS ECU )@@G@@RROR: PARAMETER (P2) WORDED INCORRECTLY @]@@@@*SET ERROR @[@@@@*END CV )@@G@@@[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@*IF F1CW )@@G@@ IS SET @#@@@@*IF [P2A)] > 0 @#@@@@*IF [P2A),1] = 8 @]@@@@*SET FCX )@@G@@1REEL @[@@@@*ELSE @^@@@@*IF NOT [P2A),1] = 7 @D@@@@#MSG,N SGS ERROR: CY )@@G@@PARAMETER (P2A) INCORRECTLY WORDED @]@@@@*SET ERROR @[@@@@*END @[@@@@CZ )@@G@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@DA )@@G@@*IF [P3)] > 0 @#@@@@*IF [P3),1] = 7 @^@@@@*IF [P3),1,7,1] = YES DB )@@G@@@]@@@@*SET F2 TO 1@[@@@@*ELSE @^@@@@*IF NOT [P3),1,7,1] = NO@D@@@@#MSG,NDC )@@G@@ SGS ERROR: RESPONSE TO PARAMETER (P3) INCORRECT@]@@@@*SET ERROR @[@@@@DD )@@G@@*END @[@@@@*END @[@@@@*ELSE @^@@@@*IF NOT [P3),1] = 6 @D@@@@#MSG,NDE )@@G@@ SGS ERROR: PARAMETER (P3) WORDED INCORRECTLY @]@@@@*SET ERROR @[@@@@DF )@@G@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@DG )@@G@@*IF F2 IS SET @#@@@@*IF [P3A)] > 0 @#@@@@*IF [P3A),1] = 10 @]@@@@DH )@@G@@*SET F2REEL @[@@@@*ELSE @^@@@@*IF NOT [P3A),1] = 9 @D@@@@#MSG,N SGS EDI )@@G@@RROR: PARAMETER (P3A) INCORRECTLY WORDED @]@@@@*SET ERROR @[@@@@*END DJ )@@G@@@[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. DK )@@G@@@#@@@@*IF [P4)] > 0 @#@@@@*IF [P4),1] = 9 @^@@@@*IF [P4),1,9,1] = DL )@@G@@YES @]@@@@*SET F3 TO 1@[@@@@*ELSE @^@@@@*IF NOT [P4),1,9,1] = NO@D@@@@DM )@@G@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P4) INCORRECT@]@@@@*SET ERROR DN )@@G@@@[@@@@*END @[@@@@*END @[@@@@*ELSE @^@@@@*IF NOT [P4),1] = 8 @D@@@@DO )@@G@@#MSG,N SGS ERROR: PARAMETER (P4) WORDED INCORRECTLY @]@@@@*SET ERROR DP )@@G@@@[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. DQ )@@G@@@#@@@@*IF F3 IS SET @#@@@@*IF [P4A)] > 0 @#@@@@*IF [P4A),1] = 10 DR )@@G@@@^@@@@*IF [P4A),1,8,1] = YES @#@@@@*SET MFDRPT TO 1 @[@@@@*ELSE @ @@@@DS )@@G@@*IF NOT [P4A),1,8,1] = NO @E@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMEDT )@@G@@TER (P4A) INCORRECT @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @^@@@@DU )@@G@@*IF [P4A),1,10,1] = 1 @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: RESPONSE TODV )@@G@@ PARAMETER P4A) INCORRECT @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE DW )@@G@@@D@@@@#MSG,N SGS ERROR: PARAMETER (P4A) WORDED INCORRECTLY @]@@@@*SET EDX )@@G@@RROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@DY )@@G@@*. @#@@@@*IF [P5)] > 0 @#@@@@*IF [P5),1] = 10 @^@@@@*IF [P5),1,1DZ )@@G@@0,1] = YES @]@@@@*SET F4 TO 1@[@@@@*ELSE @ @@@@*IF NOT [P5),1,10,1] = NEA )@@G@@O @D@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P5) INCORRECT@]@@@@EB )@@G@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*ELSE @^@@@@*IF NOT [P5),1] = EC )@@G@@9 @D@@@@#MSG,N SGS ERROR: PARAMETER (P5) WORDED INCORRECTLY @]@@@@ED )@@G@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. EE )@@G@@@[@@@@*. @#@@@@*IF F4 IS SET @#@@@@*IF [P5A)] > 0 @#@@@@*IF [PEF )@@G@@5A),1] = 10 @^@@@@*IF [P5A),1,8,1] = YES @#@@@@*SET LIBRPT TO 1 @[@@@@EG )@@G@@*ELSE @ @@@@*IF NOT [P5A),1,8,1] = NO @E@@@@#MSG,N SGS ERROR: RESPONEH )@@G@@SE TO PARAMETER (P5A) INCORRECT @]@@@@*SET ERROR @[@@@@*END @[@@@@EI )@@G@@*END @^@@@@*IF [P5A),1,10,1,4] = 1 @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: EJ )@@G@@ RESPONSE TO PARAMETER P5A) INCORRECT @]@@@@*SET ERROR @[@@@@*END EK )@@G@@@[@@@@*ELSE @D@@@@#MSG,N SGS ERROR: PARAMETER (P5A) WORDED INCORRECTLY EL )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@EM )@@G@@*. @[@@@@*. @#@@@@*IF [P6)] > 0 @#@@@@*IF [P6),1] = 7 @^@@@@EN )@@G@@*IF [P6),1,7,1] = YES @]@@@@*SET F5 TO 1@[@@@@*ELSE @^@@@@*IF NOT [P6)EO )@@G@@,1,7,1] = NO@D@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P6) INCORRECTEP )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*ELSE @^@@@@*IF NOT [P6)EQ )@@G@@,1] = 6 @D@@@@#MSG,N SGS ERROR: PARAMETER (P6) WORDED INCORRECTLY ER )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@ES )@@G@@*. @[@@@@*. @#@@@@*IF [P7)] > 0 @#@@@@*IF [P7),1] = 7 @^@@@@ET )@@G@@*IF [P7),1,5,1] = YES @]@@@@*SET F6 TO 1@[@@@@*ELSE @^@@@@*IF NOT [P7)EU )@@G@@,1,5,1] = NO@D@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER INCORRECT EV )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @^@@@@*IF [P7),1,7,1,4] = 1 EW )@@G@@@[@@@@*ELSE @D@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER P7) INCORRECTEX )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @D@@@@#MSG,N SGS ERROR: PARAMEEY )@@G@@TER (P7) INCORRECTLY WORDED @]@@@@*SET ERROR @[@@@@*END @[@@@@*END EZ )@@G@@@[@@@@*. @[@@@@*. @[@@@@*. @#@@@@*IF F6 IS SET @#@@@@*IF [PFA )@@G@@7A)] > 0 @#@@@@*IF [P7A),1] = 9 @B@@@@*IF [P7A),1,7,1] < 01 OR [P7A)FB )@@G@@,1,7,1] > 31@E@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P7A) OUT OF RFC )@@G@@ANGE @]@@@@*SET ERROR @[@@@@*ELSE @B@@@@*IF [P7A),1,9,1] < 01 OR [P7A)FD )@@G@@,1,9,1] > 31@E@@@@#MSG,N SGS ERROR: RESPONSE TO PARAMETER (P7A) OUT OF RFE )@@G@@ANGE @]@@@@*SET ERROR @[@@@@*ELSE @]@@@@*SET F6DAYS @ @@@@*SET STARTDAFF )@@G@@Y TO [P7A),1,7,1] @ @@@@*SET STOPDAY TO [P7A),1,9,1] @[@@@@*END @[@@@@FG )@@G@@*END @[@@@@*ELSE @^@@@@*IF NOT [P7A),1] = 7 @D@@@@#MSG,N SGS ERROR: FH )@@G@@PARAMETER (P7A) INCORRECTLY WORDED @]@@@@*SET ERROR @[@@@@*END @[@@@@FI )@@G@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@FJ )@@G@@*IF [P8)] > 0 @#@@@@*IF [P8),1] = 6 @^@@@@*IF [P8),1,6,1] = YES FK )@@G@@@]@@@@*SET F8 TO 1@[@@@@*ELSE @^@@@@*IF NOT [P8),1,6,1] = NO@D@@@@#MSG,NFL )@@G@@ SGS ERROR: RESPONSE TO PARAMETER (P8) INCORRECT@]@@@@*SET ERROR @[@@@@FM )@@G@@*END @[@@@@*END @[@@@@*ELSE @^@@@@*IF NOT [P8),1] = 5 @D@@@@#MSG,NFN )@@G@@ SGS ERROR: PARAMETER (P8) INCORRECTLY WORDED @]@@@@*SET ERROR @[@@@@FO )@@G@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@FP )@@G@@*IF F8 IS SET @#@@@@*IF [P8A)] > 0 @#@@@@*IF [P8A),1] = 9 @C@@@@FQ )@@G@@*IF [P8A),1,7,1] > 00 AND [P8A),1,7,1] < 13 @^@@@@*SET MM TO [P8A),1FR )@@G@@,7,1] @C@@@@*IF [P8A),1,9,1] > 75 AND [P8A),1,9,1] < 99 @^@@@@*SET YFS )@@G@@Y TO [P8A),1,9,1] @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: YY FIELD ON PARAMEFT )@@G@@TER (P8A) OUT OF RANGE @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @E@@@@FU )@@G@@#MSG,N SGS ERROR: MM FIELD ON PARAMETER (P8A) OUT OF RANGE @]@@@@*SET EFV )@@G@@RROR @[@@@@*END @[@@@@*ELSE @E@@@@#MSG,N SGS ERROR: PARAMETER (P8A) ISFW )@@G@@ INCORRECTLY WORDED @]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE @C@@@@FX )@@G@@#MSG,N SGS ERROR: PARAMETER (P8A) IS MISSING @]@@@@*SET ERROR @[@@@@FY )@@G@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@*IF [P9)] > FZ )@@G@@0 @#@@@@*IF [P9),1] = 7 @^@@@@*IF [P9),1,5,1] = YES @]@@@@*SET FGA )@@G@@7 TO 1@[@@@@*ELSE @^@@@@*IF NOT [P9),1,5,1] = NO@D@@@@#MSG,N SGS ERROR: GB )@@G@@RESPONSE TO PARAMETER (P9) INCORRECT@]@@@@*SET ERROR @[@@@@*END @[@@@@GC )@@G@@*END @ @@@@*IF NOT [P9),1,7,1,4] = 1 @D@@@@#MSG,N SGS ERROR: RESPOGD )@@G@@NSE TO PARAMETER P9) INCORRECT@]@@@@*SET ERROR @[@@@@*END @[@@@@*ELSE GE )@@G@@@D@@@@#MSG,N SGS ERROR: PARAMETER (P9) INCORRECTLY WORDED @]@@@@*SET EGF )@@G@@RROR @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @[@@@@GG )@@G@@*. @A@@@@*. H15501 PART 3: CHECK SWITCHES@[@@@@*. @A@@@@*IF F1GH )@@G@@ IS CLEAR AND F2 IS CLEAR @D@@@@#MSG,N ERROR: SGS SELECTION RESULTS GI )@@G@@IN NO INPUT ACCNT @C@@@@#MSG,N FILE BEING ASSIGNED FOR H1550080 GJ )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. @#@@@@GK )@@G@@*IF F5 IS CLEAR @#@@@@*IF F6 IS CLEAR @#@@@@*IF F7 IS CLEAR @#@@@@GL )@@G@@*IF F8 IS CLEAR @E@@@@#MSG,N ERROR: SGS SELECTION RESULTS IN NO OUTPUTGM )@@G@@ FUNCTIONS @B@@@@#MSG,N BEING REQUESTED OF H1550080 @]@@@@*SET EGN )@@G@@RROR @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@GO )@@G@@*. @[@@@@*. @ @@@@*IF F1 IS SET AND F2 IS SET @B@@@@*IF F1REEL IGP )@@G@@S CLEAR AND F2REEL IS SET @D@@@@#MSG,N ERROR: ATTEMPT WAS MADE TO UPGQ )@@G@@DATE NON-CURRENT @D@@@@#MSG,N CUM-DLY-ACNT FILE WITH CURRENT DAIGR )@@G@@LY- @ @@@@#MSG,N ACCNT FILE. @]@@@@*SET ERROR @[@@@@*ELSE GS )@@G@@@B@@@@*IF F1REEL IS SET AND F2REEL IS CLEAR @C@@@@#MSG,N ERROR: ATTEGT )@@G@@MPT WAS MADE TO UPDATE CURRENT@C@@@@#MSG,N CUM-DLY-ACNT FILE WITHGU )@@G@@ NON-CURRENT@A@@@@#MSG,N DAILY-ACCNT FILE. @]@@@@*SET ERROR GV )@@G@@@[@@@@*END @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@*. GW )@@G@@@#@@@@*IF F1REEL IS SET @ @@@@*IF F3 IS SET OR F4 IS SET @D@@@@#MSG,NGX )@@G@@ ERROR: ATTEMPT WAS MADE TO UPDATE NON-CURRENT @D@@@@#MSG,N DAILGY )@@G@@Y-ACCNT FILE WITH CURRENT MFD AND/OR@ @@@@#MSG,N TAPE LIB INFO. GZ )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@HA )@@G@@*. @#@@@@*IF F5 IS SET @#@@@@*IF F1 IS CLEAR @E@@@@#MSG,N ERHB )@@G@@ROR: ATTEMPT WAS MADE TO CREATE NEW-CUM-DLY @E@@@@#MSG,N FHC )@@G@@ILE BUT DAILY-ACCNT FILE WAS NOT SELECTED @]@@@@*SET ERROR @[@@@@*END HD )@@G@@@[@@@@*END @#@@@@*IF F1 IS CLEAR @ @@@@*IF F3 IS SET OR F4 IS SET HE )@@G@@@F@@@@#MSG,N ERROR: UPDATE OF DAILY-ACCNT FILE WITH MFD AND/OR TAPE LIB HF )@@G@@@F@@@@#MSG,N INFO WAS SPECIFIED BUT DAILY-ACCNT FILE WAS NOT HG )@@G@@@^@@@@#MSG,N SELECTED. @]@@@@*SET ERROR @[@@@@*END @[@@@@*END HH )@@G@@@[@@@@*. @[@@@@*. @[@@@@*. @A@@@@*IF F6 IS SET AND F6DAYS IS CLHI )@@G@@EAR @A@@@@*IF F1 IS CLEAR OR F1REEL IS SET @E@@@@#MSG,N ERROR: SGS HJ )@@G@@SELECTED DAILY-SUMMARY REPORT TO BE DONE @E@@@@#MSG,N AGAINST CUHK )@@G@@RRENT DAILY-ACCNT FILE BUT CURRENT @D@@@@#MSG,N DAILY-ACCNT FILEHL )@@G@@ WAS NOT SPECIFIED. @]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@HM )@@G@@*. @[@@@@*. @[@@@@*. @A@@@@*IF MFDRPT IS SET AND F3 IS CLEAR HN )@@G@@@B@@@@#MSG,N ERROR: PARAMETER (P4A) = YES BUT @B@@@@#MSG,N PARAHO )@@G@@METER (P4) IS NOT = YES @]@@@@*SET ERROR @[@@@@*END @A@@@@*IF LIBRPT IHP )@@G@@S SET AND F4 IS CLEAR @B@@@@#MSG,N ERROR: PARAMETER (P5A) = YES BUT HQ )@@G@@@B@@@@#MSG,N PARAMETER (P5) IS NOT = YES @]@@@@*SET ERROR @[@@@@HR )@@G@@*END @[@@@@*. @[@@@@*. @[@@@@*. @ @@@@*IF F7 IS SET OR F8 IS SHS )@@G@@ET @#@@@@*IF F2 IS CLEAR @D@@@@#MSG,N ERROR: PARAMETERS (P8) AND/ORHT )@@G@@ (P9) = 'YES' @C@@@@#MSG,N BUT PARAMETER (P3) IS NOT = 'YES'.HU )@@G@@@]@@@@*SET ERROR @[@@@@*END @[@@@@*END @[@@@@*. @[@@@@*. @[@@@@HV )@@G@@*. @[@@@@*. @[@@@@*. @A@@@@*. H15501 PART 4: GENERATE JCL HW )@@G@@@[@@@@*. @#@@@@*IF ERROR IS SET @E@@@@#MSG,N ERROR CONDITION EXISTS HX )@@G@@IN SGS. EXECUTION ABORTED. @#@@@@#SETC 3777/T2@[@@@@*ELSE @^@@@@HY )@@G@@*IF RESTRT IS CLEAR @ @@@@*IF F3 IS SET OR F4 IS SET @#@@@@#ASG,AHZ )@@G@@ S*OP. @[@@@@#END @[@@@@*END @#@@@@*IF F3 IS SET @ @@@@#CYCLEIA )@@G@@,C H155*MFD-DETAIL.,0 @[@@@@#END @A@@@@#CAT H155*MFD-DETAIL.,F/IB )@@G@@//500 @[@@@@#END @ @@@@#ASG,ADX H155*MFD-DETAIL. @[@@@@#END @A@@@@IC )@@G@@#USE PUNCHA.,H155*MFD-DETAIL. @^@@@@#BRKPT PUNCH$/PUNCHA@ @@@@ID )@@G@@#CYCLE,C H155*VOL-CARD.,0 @[@@@@#END @ @@@@#CAT H155*VOL-CARDIE )@@G@@.,F @[@@@@#END @ @@@@#ASG,ADX H155*VOL-CARD. @[@@@@#END @ @@@@IF )@@G@@#USE 3.,H155*VOL-CARD. @^@@@@#XQT H155.H1550040@]@@@@#PMD,AIG )@@G@@ELP @#@@@@#BRKPT PUNCH$ @ @@@@#ED,U SGS.H15501-SGS @]@@@@IH )@@G@@FIND P1) @ @@@@R P1) RECOVERY RESTART? YES @]@@@@FIND P1A) @ @@@@II )@@G@@R P1A) RESTART POINT: CP1 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CIJ )@@G@@P1 @ @@@@#BL CHECK,POINT,CP1 @[@@@@#END @ @@@@#CYCLE,C H1IK )@@G@@55*MFD-SUMMARY.,0 @[@@@@#END @A@@@@#CAT H155*MFD-SUMMARY.,F///500IL )@@G@@@[@@@@#END @ @@@@#ASG,ADX H155*MFD-SUMMARY. @[@@@@#END @ @@@@#CYCLEIM )@@G@@,C H155*MFD-REPORT.,0 @[@@@@#END @A@@@@#CAT H155*MFD-REPORT.,F///IN )@@G@@1000 @[@@@@#END @ @@@@#ASG,AX H155*MFD-REPORT. @[@@@@#END @ @@@@IO )@@G@@#CYCLE,C H155*MFD-TRANS.,0 @[@@@@#END @ @@@@#CAT,P H155*MFD-TRANSIP )@@G@@.,F @[@@@@#END @ @@@@#ASG,AX H155*MFD-TRANS. @[@@@@#END @^@@@@IQ )@@G@@#XQT H155.H1550050@^@@@@PARAMETER CARD [*MFDRPT]@ @@@@#ADD,DP IR )@@G@@H155*MFD-DETAIL. @]@@@@QUIPCARDS @ @@@@#ADD,DP S*OP.QUIP-CARDS IS )@@G@@@[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#FREE H155*MFD-REPORT. @C@@@@IT )@@G@@#SYM H155*MFD-REPORT.,[P4A),1,10,1],PR @ @@@@#ED,U SGS.H15IU )@@G@@501-SGS @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP2 @[@@@@IV )@@G@@EXIT @ @@@@#MSG CHECK-POINT,CP2 @ @@@@#BL CHECK,POINT,CIW )@@G@@P2 @[@@@@#END @ @@@@#FREE H155*MFD-DETAIL. @ @@@@#FREE HIX )@@G@@155*VOL-CARD. @[@@@@*END @#@@@@*IF F4 IS SET @[@@@@#END @ @@@@IY )@@G@@#ASG,AX H151*TAPE-LIB-LAB. @[@@@@#END @A@@@@#ASG,T H151*LABEL-TPLIZ )@@G@@IB.,F///1000@[@@@@#END @C@@@@#COPY,G H151*TAPE-LIB-LAB.,H151*LABEL-TPJA )@@G@@LIB. @ @@@@#FREE H151*TAPE-LIB-LAB. @ @@@@#ASG,AX H151*TAPE-LIBJB )@@G@@RARY. @[@@@@#END @ @@@@#ASG,T T-LIB-UPD.,F///1000@B@@@@#COPY,G HJC )@@G@@151*TAPE-LIBRARY.,T-LIB-UPD. @ @@@@#FREE H151*TAPE-LIBRARY. @A@@@@JD )@@G@@#ASG,T UNLAB-TPLIB.,F///1000 @[@@@@@SORT @[@@@@COPY @D@@@@FILEINJE )@@G@@=T-LIB-UPD BLOCK=20 MODE=CFH LABEL=STANDARD @D@@@@FILEOUT=UNLAB-TPLIJF )@@G@@B BLOCK=20 MODE=ACOB LABEL=STANDARD @[@@@@RSZ=80@#@@@@DATA=FIELDATA JG )@@G@@@[@@@@@EOF @^@@@@@FREE T-LIB-UPD. @ @@@@#CYCLE,C H155*LIB-SUMMAJH )@@G@@RY.,0 @[@@@@#END @A@@@@#CAT H155*LIB-SUMMARY.,F///500@[@@@@#END JI )@@G@@@ @@@@#ASG,ADX H155*LIB-SUMMARY. @[@@@@#END @ @@@@#CYCLE,C H155*LIBJJ )@@G@@-SUM-RPT.,0 @[@@@@#END @A@@@@#CAT H155*LIB-SUM-RPT.,F///1000@[@@@@JK )@@G@@#END @ @@@@#ASG,AX H155*LIB-SUM-RPT. @[@@@@#END @ @@@@#CYCLE,C H1JL )@@G@@55*LIB-TRANS.,0 @[@@@@#END @ @@@@#CAT,P H155*LIB-TRANS.,F @[@@@@JM )@@G@@#END @ @@@@#ASG,AX H155*LIB-TRANS. @[@@@@#END @^@@@@#XQT HJN )@@G@@155.H1550060@^@@@@PARAMETER CARD [*LIBRPT]@ @@@@#ADD,DP S*OP.QUIP-JO )@@G@@CARDS @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#FREE H155*LIB-SUM-RPT. JP )@@G@@@C@@@@#SYM H155*LIB-SUM-RPT.,[P4A),1,10,1],PR @ @@@@#ED,U SJQ )@@G@@GS.H15501-SGS @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP3 JR )@@G@@@[@@@@EXIT @ @@@@#MSG CHECK-POINT,CP3 @ @@@@#BL CHECK,PJS )@@G@@OINT,CP3 @ @@@@#FREE H151*LABEL-TPLIB. @^@@@@#FREE UNLAB-TJT )@@G@@PLIB. @[@@@@*END @ @@@@*IF F3 IS SET OR F4 IS SET @#@@@@#FREE SJU )@@G@@*OP. @[@@@@*END @#@@@@*IF F1 IS SET @B@@@@#ASG,TX H155*DAILY-ACJV )@@G@@CNT.,F///1000 @B@@@@#USE DAILY-ACCNT.,H155*DAILY-ACCNT. @[@@@@JW )@@G@@#END @#@@@@*IF F1REEL IS SET @C@@@@#ASG,TX H155*DAILY-ACT-BU.,T,[P2AJX )@@G@@),1,8,1] @[@@@@#END @[@@@@*ELSE @ @@@@#ASG,AX H155*DAILY-ACT-BU. JY )@@G@@@[@@@@#END @[@@@@*END @B@@@@#COPY,G H155*DAILY-ACT-BU.,DAILY-ACCNT.JZ )@@G@@@ @@@@#FREE H155*DAILY-ACT-BU. @[@@@@*END @ @@@@*IF F3 IS SET OR FKA )@@G@@4 IS SET @B@@@@#USE DAILY-IN.,H155*DAILY-ACCNT. @ @@@@#CYCLEKB )@@G@@,C H155*DAILY-ACCT.,0 @A@@@@#CAT H155*DAILY-ACCT.,F///1000@[@@@@KC )@@G@@#END @ @@@@#ASG,ADX H155*DAILY-ACCT. @^@@@@#XQT H155.H1550070KD )@@G@@@ @@@@#ED,U SGS.H15501-SGS @]@@@@FIND P1A) @ @@@@R P1A) RESTKE )@@G@@ART POINT: CP4 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CP4 @ @@@@KF )@@G@@#BL CHECK,POINT,CP4 @^@@@@#FREE DAILY-IN. @B@@@@#USE KG )@@G@@ DAILY-ACCNT.,H155*DAILY-ACCT. @ @@@@#FREE H155*MFD-SUMMARY. KH )@@G@@@ @@@@#FREE H155*LIB-SUMMARY. @[@@@@*END @#@@@@*IF F2 IS SET KI )@@G@@@#@@@@*IF F2REEL IS SET @C@@@@#ASG,T H155*CUM-DLY-ACNT.,T,[P3A),1,10KJ )@@G@@,1] @[@@@@#END @B@@@@#USE OLD-CUM-DLY.,H155*CUM-DLY-ACNT.@[@@@@KK )@@G@@*ELSE @ @@@@#ASG,AX H155*CUM-DLY-ACNT. @[@@@@#END @B@@@@#USE OKL )@@G@@LD-CUM-DLY.,H155*CUM-DLY-ACNT.@[@@@@*END @[@@@@*END @#@@@@*IF F5 IS SEKM )@@G@@T @A@@@@*IF F1REEL IS SET OR F2REEL IS SET @A@@@@#ASG,TF H155*NEKN )@@G@@W-CUM-ACNT.,T,,7 @[@@@@#END @B@@@@#USE NEW-CUM-DLY.,H155*NEW-CUMKO )@@G@@-ACNT.@[@@@@*ELSE @B@@@@#ASG,CX H155*CUM-DLY-ACNT(+1).,T,,7 @[@@@@KP )@@G@@#END @C@@@@#USE NEW-CUM-DLY.,H155*CUM-DLY-ACNT(+1). @[@@@@*END KQ )@@G@@@[@@@@*END @#@@@@*IF F6 IS SET @ @@@@#CYCLE,C H155*DLY-ACNT-RPT.,0KR )@@G@@@[@@@@#END @B@@@@#CAT H155*DLY-ACNT-RPT.,F///500 @[@@@@#END KS )@@G@@@ @@@@#ASG,AX H155*DLY-ACNT-RPT. @[@@@@#END @[@@@@*END @#@@@@*IF F7KT )@@G@@ IS SET @ @@@@#CYCLE,C H155*MTH-ACNT-RPT.,0@[@@@@#END @B@@@@#CAT KU )@@G@@ H155*MTH-ACNT-RPT.,F///1000 @[@@@@#END @ @@@@#ASG,AX H155*MTKV )@@G@@H-ACNT-RPT. @[@@@@#END @[@@@@*END @#@@@@*IF F8 IS SET @ @@@@#CYCLEKW )@@G@@,C H155*MTH-ACNT-SUM.,0@[@@@@#END @B@@@@#CAT H155*MTH-ACNT-SUM.,KX )@@G@@F///1000 @[@@@@#END @ @@@@#ASG,ADX H155*MTH-ACNT-SUM. @[@@@@#END KY )@@G@@@[@@@@*END @ @@@@*IF F7 IS SET OR F8 IS SET @^@@@@#XQT H155.H15KZ )@@G@@50081 @[@@@@*ELSE @^@@@@#XQT H155.H1550080 @[@@@@*END @]@@@@*EDIT LA )@@G@@ON @C@@@@PARAMETER CARD [*F1][*F2][*F5][*F6][*F7][*F8]& @#@@@@*IF [PLB )@@G@@7A),1] > 7 @ @@@@[P7A),1,7,1][P7A),1,9,1]& @[@@@@*ELSE @[@@@@0000& LC )@@G@@@[@@@@*END @#@@@@*IF [P8A),1] > 7 @ @@@@[P8A),1,7,1][P8A),1,9,1]& LD )@@G@@@[@@@@*ELSE @[@@@@0000& @[@@@@*END @]@@@@*EDIT OFF @[@@@@#EOF @]@@@@LE )@@G@@#PMD,AELP @ @@@@#ED,U SGS.H15501-SGS @]@@@@FIND P1A) @ @@@@LF )@@G@@R P1A) RESTART POINT: CP5 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CLG )@@G@@P5 @ @@@@#BL CHECK,POINT,CP5 @#@@@@*IF F1 IS SET @^@@@@LH )@@G@@#FREE DAILY-ACCNT. @ @@@@*IF F3 IS SET OR F4 IS SET @[@@@@*END LI )@@G@@@[@@@@*END @#@@@@*IF F2 IS SET @^@@@@#FREE OLD-CUM-DLY. @[@@@@LJ )@@G@@*END @#@@@@*IF F5 IS SET @^@@@@#FREE NEW-CUM-DLY. @[@@@@*END LK )@@G@@@#@@@@*IF F6 IS SET @ @@@@#FREE H155*DLY-ACNT-RPT. @C@@@@#SYM LL )@@G@@ H155*DLY-ACNT-RPT.,[P7),1,7,1],PR @[@@@@*END @#@@@@*IF F7 IS SELM )@@G@@T @ @@@@#FREE H155*MTH-ACNT-RPT. @C@@@@#SYM H155*MTH-ACNTLN )@@G@@-RPT.,[P9),1,7,1],PR @[@@@@*END @#@@@@*IF F8 IS SET @A@@@@*IF F1LO )@@G@@REEL IS SET OR F2REEL IS SET @B@@@@#ASG,TX H155-BU*MTH-ACNT-SUM.,T,,LP )@@G@@30 @[@@@@#END @C@@@@#USE MTH-ACNT-BU.,H155-BU*MTH-ACNT-SUM. LQ )@@G@@@[@@@@*ELSE @C@@@@#ASG,CX H155-BU*MTH-ACNT-SUM(+1).,T,,400 @[@@@@LR )@@G@@#END @D@@@@#USE MTH-ACNT-BU.,H155-BU*MTH-ACNT-SUM(+1). @[@@@@LS )@@G@@*END @ @@@@#ED,U SGS.H15501-SGS @]@@@@FIND P1A) @ @@@@R P1A)LT )@@G@@ RESTART POINT: CP6 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CP6 LU )@@G@@@ @@@@#BL CHECK,POINT,CP6 @B@@@@#COPY,GM H155*MTH-ACNT-SUM.,LV )@@G@@MTH-ACNT-BU.@ @@@@#FREE H155*MTH-ACNT-SUM. @^@@@@#FREE MTH-ACNLW )@@G@@T-BU. @[@@@@*END @[@@@@*ELSE @#@@@@*IF CKPT1 IS SET @ @@@@#BL RLX )@@G@@ESTRT,FROM,CP1 @ @@@@*IF F3 IS SET OR F4 IS SET @#@@@@#ASG,A SLY )@@G@@*OP. @[@@@@#END @[@@@@*END @#@@@@*IF F3 IS SET @ @@@@#ASG,ADX HLZ )@@G@@155*MFD-DETAIL. @[@@@@#END @[@@@@#END @ @@@@#ASG,ADX H155*VOL-CARDMA )@@G@@. @[@@@@#END @ @@@@#USE 3.,H155*VOL-CARD. @ @@@@#CYCLE,C H1MB )@@G@@55*MFD-SUMMARY.,0 @[@@@@#END @A@@@@#CAT H155*MFD-SUMMARY.,F///500MC )@@G@@@[@@@@#END @ @@@@#ASG,ADX H155*MFD-SUMMARY. @[@@@@#END @ @@@@#CYCLEMD )@@G@@,C H155*MFD-REPORT.,0 @[@@@@#END @A@@@@#CAT H155*MFD-REPORT.,F///ME )@@G@@1000 @[@@@@#END @ @@@@#ASG,AX H155*MFD-REPORT. @[@@@@#END @ @@@@MF )@@G@@#CYCLE,C H155*MFD-TRANS.,0 @[@@@@#END @ @@@@#CAT,P H155*MFD-TRANSMG )@@G@@.,F @[@@@@#END @ @@@@#ASG,AX H155*MFD-TRANS. @[@@@@#END @^@@@@MH )@@G@@#XQT H155.H1550050@^@@@@PARAMETER CARD [*MFDRPT]@ @@@@#ADD,DP MI )@@G@@H155*MFD-DETAIL. @]@@@@QUIPCARDS @ @@@@#ADD,DP S*OP.QUIP-CARDS MJ )@@G@@@[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#FREE H155*MFD-REPORT. @C@@@@MK )@@G@@#SYM H155*MFD-REPORT.,[P4A),1,10,1],PR @ @@@@#ED,U SGS.H15ML )@@G@@501-SGS @]@@@@FIND P1) @ @@@@R P1) RECOVERY RESTART? YES @]@@@@MM )@@G@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP2 @[@@@@EXIT @ @@@@#MSG MN )@@G@@ CHECK-POINT,CP2 @ @@@@#BL CHECK,POINT,CP2 @[@@@@#END MO )@@G@@@ @@@@#FREE H155*MFD-DETAIL. @ @@@@#FREE H155*VOL-CARD. MP )@@G@@@[@@@@*END @#@@@@*IF F4 IS SET @[@@@@#END @ @@@@#ASG,AX H151*TAPMQ )@@G@@E-LIB-LAB. @[@@@@#END @A@@@@#ASG,T H151*LABEL-TPLIB.,F///1000@[@@@@MR )@@G@@#END @C@@@@#COPY,G H151*TAPE-LIB-LAB.,H151*LABEL-TPLIB. @ @@@@#FREE MS )@@G@@ H151*TAPE-LIB-LAB. @ @@@@#ASG,AX H151*TAPE-LIBRARY. @[@@@@#END MT )@@G@@@ @@@@#ASG,T T-LIB-UPD.,F///1000@B@@@@#COPY,G H151*TAPE-LIBRARY.,MU )@@G@@T-LIB-UPD. @ @@@@#FREE H151*TAPE-LIBRARY. @A@@@@#ASG,T UNLAB-TMV )@@G@@PLIB.,F///1000 @[@@@@@SORT @[@@@@COPY @D@@@@FILEIN=T-LIB-UPD BLOCK=2MW )@@G@@0 MODE=CFH LABEL=STANDARD @D@@@@FILEOUT=UNLAB-TPLIB BLOCK=20 MODE=ACMX )@@G@@OB LABEL=STANDARD @[@@@@RSZ=80@#@@@@DATA=FIELDATA @[@@@@@EOF @^@@@@MY )@@G@@#FREE T-LIB-UPD. @ @@@@#CYCLE,C H155*LIB-SUMMARY.,0 @[@@@@#END MZ )@@G@@@A@@@@#CAT H155*LIB-SUMMARY.,F///500@[@@@@#END @ @@@@#ASG,ADX HNA )@@G@@155*LIB-SUMMARY. @[@@@@#END @ @@@@#CYCLE,C H155*LIB-SUM-RPT.,0 @[@@@@NB )@@G@@#END @A@@@@#CAT H155*LIB-SUM-RPT.,F///1000@[@@@@#END @ @@@@#ASG,ANC )@@G@@X H155*LIB-SUM-RPT. @[@@@@#END @ @@@@#CYCLE,C H155*LIB-TRANS.,0 ND )@@G@@@[@@@@#END @ @@@@#CAT,P H155*LIB-TRANS.,F @[@@@@#END @ @@@@#ASG,ANE )@@G@@X H155*LIB-TRANS. @[@@@@#END @^@@@@#XQT H155.H1550060@^@@@@NF )@@G@@PARAMETER CARD [*LIBRPT]@ @@@@#ADD,DP S*OP.QUIP-CARDS @[@@@@#EOF NG )@@G@@@]@@@@#PMD,AELP @ @@@@#FREE H155*LIB-SUM-RPT. @C@@@@#SYM H1NH )@@G@@55*LIB-SUM-RPT.,[P4A),1,10,1],PR @ @@@@#ED,U SGS.H15501-SGS NI )@@G@@@]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP3 @[@@@@EXIT @ @@@@NJ )@@G@@#MSG CHECK-POINT,CP3 @ @@@@#BL CHECK,POINT,CP3 @ @@@@NK )@@G@@#FREE H151*LABEL-TPLIB. @^@@@@#FREE UNLAB-TPLIB. @[@@@@*END NL )@@G@@@ @@@@*IF F3 IS SET OR F4 IS SET @#@@@@#FREE S*OP. @[@@@@*END NM )@@G@@@#@@@@*IF F1 IS SET @B@@@@#ASG,TX H155*DAILY-ACCNT.,F///1000 NN )@@G@@@B@@@@#USE DAILY-IN.,H155*DAILY-ACCNT. @[@@@@#END @#@@@@*IF F1NO )@@G@@REEL IS SET @C@@@@#ASG,TX H155*DAILY-ACT-BU.,T,[P2A),1,8,1] @[@@@@NP )@@G@@#END @[@@@@*ELSE @ @@@@#ASG,AX H155*DAILY-ACT-BU. @[@@@@#END @[@@@@NQ )@@G@@*END @C@@@@#COPY,G H155*DAILY-ACT-BU.,H155*DAILY-ACCNT. @ @@@@#FREE NR )@@G@@ H155*DAILY-ACT-BU. @[@@@@*END @ @@@@*IF F3 IS SET OR F4 IS SET NS )@@G@@@ @@@@#CYCLE,C H155*DAILY-ACCT.,0 @A@@@@#CAT H155*DAILY-ACCT.,F/NT )@@G@@//1000@[@@@@#END @ @@@@#ASG,ADX H155*DAILY-ACCT. @^@@@@#XQT HNU )@@G@@155.H1550070@ @@@@#ED,U SGS.H15501-SGS @]@@@@FIND P1A) @ @@@@NV )@@G@@R P1A) RESTART POINT: CP4 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CNW )@@G@@P4 @ @@@@#BL CHECK,POINT,CP4 @^@@@@#FREE DAILY-IN. NX )@@G@@@B@@@@#USE DAILY-ACCNT.,H155*DAILY-ACCT. @ @@@@#FREE H155*MFNY )@@G@@D-SUMMARY. @ @@@@#FREE H155*LIB-SUMMARY. @[@@@@*END @#@@@@*IF F2NZ )@@G@@ IS SET @#@@@@*IF F2REEL IS SET @C@@@@#ASG,T H155*CUM-DLY-ACNT.,OA )@@G@@T,[P3A),1,10,1] @[@@@@#END @B@@@@#USE OLD-CUM-DLY.,H155*CUM-DLYOB )@@G@@-ACNT.@[@@@@*ELSE @ @@@@#ASG,AX H155*CUM-DLY-ACNT. @[@@@@#END @B@@@@OC )@@G@@#USE OLD-CUM-DLY.,H155*CUM-DLY-ACNT.@[@@@@*END @[@@@@*END @#@@@@OD )@@G@@*IF F5 IS SET @A@@@@*IF F1REEL IS SET OR F2REEL IS SET @A@@@@#ASG,TOE )@@G@@F H155*NEW-CUM-ACNT.,T,,7 @[@@@@#END @B@@@@#USE NEW-CUM-DLY.,OF )@@G@@H155*NEW-CUM-ACNT.@[@@@@*ELSE @B@@@@#ASG,CX H155*CUM-DLY-ACNT(+1).,T,OG )@@G@@,7 @[@@@@#END @C@@@@#USE NEW-CUM-DLY.,H155*CUM-DLY-ACNT(+1). OH )@@G@@@[@@@@*END @[@@@@*END @#@@@@*IF F6 IS SET @ @@@@#CYCLE,C H155*DLYOI )@@G@@-ACNT-RPT.,0@[@@@@#END @B@@@@#CAT H155*DLY-ACNT-RPT.,F///500 OJ )@@G@@@[@@@@#END @ @@@@#ASG,AX H155*DLY-ACNT-RPT. @[@@@@#END @[@@@@*END OK )@@G@@@#@@@@*IF F7 IS SET @ @@@@#CYCLE,C H155*MTH-ACNT-RPT.,0@[@@@@#END OL )@@G@@@B@@@@#CAT H155*MTH-ACNT-RPT.,F///1000 @[@@@@#END @ @@@@#ASG,AOM )@@G@@X H155*MTH-ACNT-RPT. @[@@@@#END @[@@@@*END @#@@@@*IF F8 IS SET ON )@@G@@@ @@@@#CYCLE,C H155*MTH-ACNT-SUM.,0@[@@@@#END @B@@@@#CAT H155*MTOO )@@G@@H-ACNT-SUM.,F///1000 @[@@@@#END @ @@@@#ASG,ADX H155*MTH-ACNT-SUM. OP )@@G@@@[@@@@#END @[@@@@*END @ @@@@*IF F7 IS SET OR F8 IS SET @^@@@@#XQT OQ )@@G@@ H155.H1550081 @[@@@@*ELSE @^@@@@#XQT H155.H1550080 @[@@@@*END OR )@@G@@@]@@@@*EDIT ON @C@@@@PARAMETER CARD [*F1][*F2][*F5][*F6][*F7][*F8]& OS )@@G@@@#@@@@*IF [P7A),1] > 7 @ @@@@[P7A),1,7,1][P7A),1,9,1]& @[@@@@*ELSE OT )@@G@@@[@@@@0000& @[@@@@*END @#@@@@*IF [P8A),1] > 7 @ @@@@[P8A),1,7,1][P8A),OU )@@G@@1,9,1]& @[@@@@*ELSE @[@@@@0000& @[@@@@*END @]@@@@*EDIT OFF @[@@@@OV )@@G@@#EOF @]@@@@#PMD,AELP @ @@@@#ED,U SGS.H15501-SGS @]@@@@FIND POW )@@G@@1A) @ @@@@R P1A) RESTART POINT: CP5 @[@@@@EXIT @ @@@@#MSG COX )@@G@@HECK-POINT,CP5 @ @@@@#BL CHECK,POINT,CP5 @#@@@@*IF F1 IS SEOY )@@G@@T @^@@@@#FREE DAILY-ACCNT. @[@@@@*END @#@@@@*IF F2 IS SET OZ )@@G@@@^@@@@#FREE OLD-CUM-DLY. @[@@@@*END @#@@@@*IF F5 IS SET @^@@@@PA )@@G@@#FREE NEW-CUM-DLY. @[@@@@*END @#@@@@*IF F6 IS SET @ @@@@#FREE PB )@@G@@ H155*DLY-ACNT-RPT. @C@@@@#SYM H155*DLY-ACNT-RPT.,[P7),1,7,1],PC )@@G@@PR @[@@@@*END @#@@@@*IF F7 IS SET @ @@@@#FREE H155*MTH-ACNTPD )@@G@@-RPT. @C@@@@#SYM H155*MTH-ACNT-RPT.,[P9),1,7,1],PR @[@@@@*END PE )@@G@@@#@@@@*IF F8 IS SET @A@@@@*IF F1REEL IS SET OR F2REEL IS SET @B@@@@PF )@@G@@#ASG,TX H155-BU*MTH-ACNT-SUM.,T,,30 @[@@@@#END @C@@@@#USE MPG )@@G@@TH-ACNT-BU.,H155-BU*MTH-ACNT-SUM. @[@@@@*ELSE @C@@@@#ASG,CX H155-BUPH )@@G@@*MTH-ACNT-SUM(+1).,T,,400 @[@@@@#END @D@@@@#USE MTH-ACNT-BU.,PI )@@G@@H155-BU*MTH-ACNT-SUM(+1). @[@@@@*END @ @@@@#ED,U SGS.H15501-SGPJ )@@G@@S @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP6 @[@@@@EXIT PK )@@G@@@ @@@@#MSG CHECK-POINT,CP6 @ @@@@#BL CHECK,POINT,CP6 PL )@@G@@@B@@@@#COPY,GM H155*MTH-ACNT-SUM.,MTH-ACNT-BU.@ @@@@#FREE H155*MTPM )@@G@@H-ACNT-SUM. @^@@@@#FREE MTH-ACNT-BU. @[@@@@*END @[@@@@*END @#@@@@PN )@@G@@*IF CKPT2 IS SET @ @@@@#BL RESTRT,FROM,CP2 @#@@@@*IF F3 IS SEPO )@@G@@T @ @@@@#ASG,ADX H155*MFD-SUMMARY. @[@@@@#END @[@@@@*END @#@@@@PP )@@G@@*IF F4 IS SET @#@@@@#ASG,A S*OP. @[@@@@#END @ @@@@#ASG,AX H1PQ )@@G@@51*TAPE-LIB-LAB. @[@@@@#END @A@@@@#ASG,T H151*LABEL-TPLIB.,F///1000PR )@@G@@@[@@@@#END @C@@@@#COPY,G H151*TAPE-LIB-LAB.,H151*LABEL-TPLIB. @ @@@@PS )@@G@@#FREE H151*TAPE-LIB-LAB. @ @@@@#ASG,AX H151*TAPE-LIBRARY. @ @@@@PT )@@G@@#ASG,T T-LIB-UPD.,F///1000@B@@@@#COPY,G H151*TAPE-LIBRARY.,T-LIB-PU )@@G@@UPD. @ @@@@#FREE H151*TAPE-LIBRARY. @A@@@@#ASG,T UNLAB-TPLIB.,PV )@@G@@F///1000 @[@@@@@SORT @[@@@@COPY @D@@@@FILEIN=T-LIB-UPD BLOCK=20 MODEPW )@@G@@=CFH LABEL=STANDARD @D@@@@FILEOUT=UNLAB-TPLIB BLOCK=20 MODE=ACOB LABPX )@@G@@EL=STANDARD @[@@@@RSZ=80@#@@@@DATA=FIELDATA @[@@@@@EOF @^@@@@#FREE PY )@@G@@ T-LIB-UPD. @ @@@@#CYCLE,C H155*LIB-SUMMARY.,0 @[@@@@#END @A@@@@PZ )@@G@@#CAT H155*LIB-SUMMARY.,F///500@[@@@@#END @ @@@@#ASG,ADX H155*LIQA )@@G@@B-SUMMARY. @ @@@@#CYCLE,C H155*LIB-SUM-RPT.,0 @[@@@@#END @A@@@@#CAT QB )@@G@@ H155*LIB-SUM-RPT.,F///1000@[@@@@#END @ @@@@#ASG,AX H155*LIB-SUM-RQC )@@G@@PT. @[@@@@#END @ @@@@#CYCLE,C H155*LIB-TRANS.,0 @[@@@@#END @ @@@@QD )@@G@@#CAT,P H155*LIB-TRANS.,F @[@@@@#END @ @@@@#ASG,AX H155*LIB-TRANSQE )@@G@@. @[@@@@#END @^@@@@#XQT H155.H1550060@^@@@@PARAMETER CARD [*LQF )@@G@@IBRPT]@ @@@@#ADD,DP S*OP.QUIP-CARDS @[@@@@#EOF @]@@@@#PMD,AELP QG )@@G@@@ @@@@#FREE H155*LIB-SUM-RPT. @C@@@@#SYM H155*LIB-SUM-RPT.,[PQH )@@G@@4A),1,10,1],PR @ @@@@#ED,U SGS.H15501-SGS @]@@@@FIND P1) QI )@@G@@@ @@@@R P1) RECOVERY RESTART? YES @]@@@@FIND P1A) @ @@@@R P1A) RESTQJ )@@G@@ART POINT: CP3 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CP3 @ @@@@QK )@@G@@#BL CHECK,POINT,CP3 @#@@@@#FREE S*OP. @ @@@@#FREE HQL )@@G@@151*LABEL-TPLIB. @^@@@@#FREE UNLAB-TPLIB. @[@@@@*END @#@@@@*IF F1QM )@@G@@ IS SET @B@@@@#ASG,TX H155*DAILY-ACCNT.,F///1000 @B@@@@#USE QN )@@G@@ DAILY-IN.,H155*DAILY-ACCNT. @[@@@@#END @#@@@@*IF F1REEL IS SET QO )@@G@@@C@@@@#ASG,TX H155*DAILY-ACT-BU.,T,[P2A),1,8,1] @[@@@@#END @[@@@@QP )@@G@@*ELSE @ @@@@#ASG,AX H155*DAILY-ACT-BU. @[@@@@#END @[@@@@*END @C@@@@QQ )@@G@@#COPY,G H155*DAILY-ACT-BU.,H155*DAILY-ACCNT. @ @@@@#FREE H155*DAQR )@@G@@ILY-ACT-BU. @[@@@@*END @ @@@@*IF F3 IS SET OR F4 IS SET @ @@@@#CYCLEQS )@@G@@,C H155*DAILY-ACCT.,0 @A@@@@#CAT H155*DAILY-ACCT.,F///1000@[@@@@QT )@@G@@#END @ @@@@#ASG,ADX H155*DAILY-ACCT. @^@@@@#XQT H155.H1550070QU )@@G@@@]@@@@#PMD,AELP @ @@@@#ED,U SGS.H15501-SGS @]@@@@FIND P1A) QV )@@G@@@ @@@@R P1A) RESTART POINT: CP4 @[@@@@EXIT @ @@@@#MSG CHECK-PQW )@@G@@OINT,CP4 @ @@@@#BL CHECK,POINT,CP4 @^@@@@#FREE DAILY-IQX )@@G@@N. @B@@@@#USE DAILY-ACCNT.,H155*DAILY-ACCT. @ @@@@#FREE HQY )@@G@@155*MFD-SUMMARY. @ @@@@#FREE H155*LIB-SUMMARY. @[@@@@*END @#@@@@QZ )@@G@@*IF F2 IS SET @#@@@@*IF F2REEL IS SET @C@@@@#ASG,T H155*CUM-DLY-RA )@@G@@ACNT.,T,[P3A),1,10,1] @[@@@@#END @B@@@@#USE OLD-CUM-DLY.,H155*CRB )@@G@@UM-DLY-ACNT.@[@@@@*ELSE @ @@@@#ASG,AX H155*CUM-DLY-ACNT. @[@@@@#END RC )@@G@@@B@@@@#USE OLD-CUM-DLY.,H155*CUM-DLY-ACNT.@[@@@@*END @[@@@@*END RD )@@G@@@#@@@@*IF F5 IS SET @A@@@@*IF F1REEL IS SET OR F2REEL IS SET @A@@@@RE )@@G@@#ASG,TF H155*NEW-CUM-ACNT.,T,,7 @[@@@@#END @B@@@@#USE NEW-CUMRF )@@G@@-DLY.,H155*NEW-CUM-ACNT.@[@@@@*ELSE @B@@@@#ASG,CX H155*CUM-DLY-ACNT(+RG )@@G@@1).,T,,7 @[@@@@#END @C@@@@#USE NEW-CUM-DLY.,H155*CUM-DLY-ACNT(RH )@@G@@+1). @[@@@@*END @[@@@@*END @#@@@@*IF F6 IS SET @ @@@@#CYCLE,C H1RI )@@G@@55*DLY-ACNT-RPT.,0@[@@@@#END @B@@@@#CAT H155*DLY-ACNT-RPT.,F///50RJ )@@G@@0 @[@@@@#END @ @@@@#ASG,AX H155*DLY-ACNT-RPT. @[@@@@#END @[@@@@RK )@@G@@*END @#@@@@*IF F7 IS SET @ @@@@#CYCLE,C H155*MTH-ACNT-RPT.,0@[@@@@RL )@@G@@#END @B@@@@#CAT H155*MTH-ACNT-RPT.,F///1000 @[@@@@#END @ @@@@RM )@@G@@#ASG,AX H155*MTH-ACNT-RPT. @[@@@@#END @[@@@@*END @#@@@@*IF F8 IS SERN )@@G@@T @ @@@@#CYCLE,C H155*MTH-ACNT-SUM.,0@[@@@@#END @B@@@@#CAT HRO )@@G@@155*MTH-ACNT-SUM.,F///1000 @[@@@@#END @ @@@@#ASG,ADX H155*MTH-ACNTRP )@@G@@-SUM. @[@@@@#END @[@@@@*END @ @@@@*IF F7 IS SET OR F8 IS SET @^@@@@RQ )@@G@@#XQT H155.H1550081 @[@@@@*ELSE @^@@@@#XQT H155.H1550080 @[@@@@RR )@@G@@*END @]@@@@*EDIT ON @C@@@@PARAMETER CARD [*F1][*F2][*F5][*F6][*F7][*RS )@@G@@F8]& @#@@@@*IF [P7A),1] > 7 @ @@@@[P7A),1,7,1][P7A),1,9,1]& @[@@@@RT )@@G@@*ELSE @[@@@@0000& @[@@@@*END @#@@@@*IF [P8A),1] > 7 @ @@@@[P8A),1,7,1]RU )@@G@@[P8A),1,9,1]& @[@@@@*ELSE @[@@@@0000& @[@@@@*END @]@@@@*EDIT OFF RV )@@G@@@[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#ED,U SGS.H15501-SGS @]@@@@RW )@@G@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP5 @[@@@@EXIT @ @@@@#MSG RX )@@G@@ CHECK-POINT,CP5 @ @@@@#BL CHECK,POINT,CP5 @#@@@@*IF F1RY )@@G@@ IS SET @^@@@@#FREE DAILY-ACCNT. @[@@@@*END @#@@@@*IF F2 IS SERZ )@@G@@T @^@@@@#FREE OLD-CUM-DLY. @[@@@@*END @#@@@@*IF F5 IS SET SA )@@G@@@^@@@@#FREE NEW-CUM-DLY. @[@@@@*END @#@@@@*IF F6 IS SET @ @@@@SB )@@G@@#FREE H155*DLY-ACNT-RPT. @C@@@@#SYM H155*DLY-ACNT-RPT.,[P7),1SC )@@G@@,7,1],PR @[@@@@*END @#@@@@*IF F7 IS SET @ @@@@#FREE H155*MTSD )@@G@@H-ACNT-RPT. @C@@@@#SYM H155*MTH-ACNT-RPT.,[P9),1,7,1],PR @[@@@@SE )@@G@@*END @#@@@@*IF F8 IS SET @A@@@@*IF F1REEL IS SET OR F2REEL IS SET SF )@@G@@@B@@@@#ASG,TX H155-BU*MTH-ACNT-SUM.,T,,30 @[@@@@#END @C@@@@#USE SG )@@G@@ MTH-ACNT-BU.,H155-BU*MTH-ACNT-SUM. @[@@@@*ELSE @C@@@@#ASG,CX HSH )@@G@@155-BU*MTH-ACNT-SUM(+1).,T,,400 @[@@@@#END @D@@@@#USE MTH-ACNSI )@@G@@T-BU.,H155-BU*MTH-ACNT-SUM(+1). @[@@@@*END @ @@@@#ED,U SGS.H15SJ )@@G@@501-SGS @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP6 @[@@@@SK )@@G@@EXIT @ @@@@#MSG CHECK-POINT,CP6 @ @@@@#BL CHECK,POINT,CSL )@@G@@P6 @B@@@@#COPY,GM H155*MTH-ACNT-SUM.,MTH-ACNT-BU.@ @@@@#FREE HSM )@@G@@155*MTH-ACNT-SUM. @^@@@@#FREE MTH-ACNT-BU. @[@@@@*END @[@@@@*END SN )@@G@@@#@@@@*IF CKPT3 IS SET @ @@@@#BL RESTRT,FROM,CP3 @#@@@@*IF F1SO )@@G@@ IS SET @B@@@@#ASG,TX H155*DAILY-ACCNT.,F///1000 @B@@@@#USE SP )@@G@@ DAILY-IN.,H155*DAILY-ACCNT. @[@@@@#END @#@@@@*IF F1REEL IS SET SQ )@@G@@@C@@@@#ASG,TX H155*DAILY-ACT-BU.,T,[P2A),1,8,1] @[@@@@#END @[@@@@SR )@@G@@*ELSE @ @@@@#ASG,AX H155*DAILY-ACT-BU. @[@@@@#END @[@@@@*END @C@@@@SS )@@G@@#COPY,G H155*DAILY-ACT-BU.,H155*DAILY-ACCNT. @ @@@@#FREE H155*DAST )@@G@@ILY-ACT-BU. @[@@@@*END @#@@@@*IF F3 IS SET @ @@@@#ASG,ADX H155*MFSU )@@G@@D-SUMMARY. @[@@@@#END @[@@@@*END @#@@@@*IF F4 IS SET @ @@@@#ASG,ASV )@@G@@DX H155*LIB-SUMMARY. @[@@@@#END @[@@@@*END @ @@@@*IF F3 IS SET OR FSW )@@G@@4 IS SET @ @@@@#CYCLE,C H155*DAILY-ACCT.,0 @A@@@@#CAT H155*DASX )@@G@@ILY-ACCT.,F///1000@[@@@@#END @ @@@@#ASG,ADX H155*DAILY-ACCT. @^@@@@SY )@@G@@#XQT H155.H1550070@]@@@@#PMD,AELP @ @@@@#ED,U SGS.H15501-SGSZ )@@G@@S @]@@@@FIND P1) @ @@@@R P1) RECOVERY RESTART? YES @]@@@@FIND PTA )@@G@@1A) @ @@@@R P1A) RESTART POINT: CP4 @[@@@@EXIT @ @@@@#MSG CTB )@@G@@HECK-POINT,CP4 @ @@@@#BL CHECK,POINT,CP4 @^@@@@#FREE DTC )@@G@@AILY-IN. @B@@@@#USE DAILY-ACCNT.,H155*DAILY-ACCT. @ @@@@#FREE TD )@@G@@ H155*MFD-SUMMARY. @ @@@@#FREE H155*LIB-SUMMARY. @[@@@@*END TE )@@G@@@#@@@@*IF F2 IS SET @#@@@@*IF F2REEL IS SET @C@@@@#ASG,T H155*CUTF )@@G@@M-DLY-ACNT.,T,[P3A),1,10,1] @[@@@@#END @B@@@@#USE OLD-CUM-DLY.,TG )@@G@@H155*CUM-DLY-ACNT.@[@@@@*ELSE @ @@@@#ASG,AX H155*CUM-DLY-ACNT. @[@@@@TH )@@G@@#END @B@@@@#USE OLD-CUM-DLY.,H155*CUM-DLY-ACNT.@[@@@@*END @[@@@@TI )@@G@@*END @#@@@@*IF F5 IS SET @A@@@@*IF F1REEL IS SET OR F2REEL IS SET TJ )@@G@@@A@@@@#ASG,TF H155*NEW-CUM-ACNT.,T,,7 @[@@@@#END @B@@@@#USE NTK )@@G@@EW-CUM-DLY.,H155*NEW-CUM-ACNT.@[@@@@*ELSE @B@@@@#ASG,CX H155*CUM-DLY-TL )@@G@@ACNT(+1).,T,,7 @[@@@@#END @C@@@@#USE NEW-CUM-DLY.,H155*CUM-DLYTM )@@G@@-ACNT(+1). @[@@@@*END @[@@@@*END @#@@@@*IF F6 IS SET @ @@@@#CYCLETN )@@G@@,C H155*DLY-ACNT-RPT.,0@[@@@@#END @B@@@@#CAT H155*DLY-ACNT-RPT.,TO )@@G@@F///500 @[@@@@#END @ @@@@#ASG,AX H155*DLY-ACNT-RPT. @[@@@@#END TP )@@G@@@[@@@@*END @#@@@@*IF F7 IS SET @ @@@@#CYCLE,C H155*MTH-ACNT-RPT.,0TQ )@@G@@@[@@@@#END @B@@@@#CAT H155*MTH-ACNT-RPT.,F///1000 @[@@@@#END TR )@@G@@@ @@@@#ASG,AX H155*MTH-ACNT-RPT. @[@@@@#END @[@@@@*END @#@@@@*IF F8TS )@@G@@ IS SET @ @@@@#CYCLE,C H155*MTH-ACNT-SUM.,0@[@@@@#END @B@@@@#CAT TT )@@G@@ H155*MTH-ACNT-SUM.,F///1000 @[@@@@#END @ @@@@#ASG,ADX H155*MTTU )@@G@@H-ACNT-SUM. @[@@@@#END @[@@@@*END @ @@@@*IF F7 IS SET OR F8 IS SET TV )@@G@@@^@@@@#XQT H155.H1550081 @[@@@@*ELSE @^@@@@#XQT H155.H1550080 TW )@@G@@@[@@@@*END @]@@@@*EDIT ON @C@@@@PARAMETER CARD [*F1][*F2][*F5][*F6][TX )@@G@@*F7][*F8]& @#@@@@*IF [P7A),1] > 7 @ @@@@[P7A),1,7,1][P7A),1,9,1]& TY )@@G@@@[@@@@*ELSE @[@@@@0000& @[@@@@*END @#@@@@*IF [P8A),1] > 7 @ @@@@[P8A),TZ )@@G@@1,7,1][P8A),1,9,1]& @[@@@@*ELSE @[@@@@0000& @[@@@@*END @]@@@@*EDIT UA )@@G@@OFF @[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#ED,U SGS.H15501-SGS UB )@@G@@@]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP5 @[@@@@EXIT @ @@@@UC )@@G@@#MSG CHECK-POINT,CP5 @ @@@@#BL CHECK,POINT,CP5 @#@@@@UD )@@G@@*IF F1 IS SET @^@@@@#FREE DAILY-ACCNT. @[@@@@*END @#@@@@*IF F2UE )@@G@@ IS SET @^@@@@#FREE OLD-CUM-DLY. @[@@@@*END @#@@@@*IF F5 IS SEUF )@@G@@T @^@@@@#FREE NEW-CUM-DLY. @[@@@@*END @#@@@@*IF F6 IS SET UG )@@G@@@ @@@@#FREE H155*DLY-ACNT-RPT. @C@@@@#SYM H155*DLY-ACNT-RPT.,UH )@@G@@[P7),1,7,1],PR @[@@@@*END @#@@@@*IF F7 IS SET @ @@@@#FREE HUI )@@G@@155*MTH-ACNT-RPT. @C@@@@#SYM H155*MTH-ACNT-RPT.,[P9),1,7,1],PR UJ )@@G@@@[@@@@*END @#@@@@*IF F8 IS SET @A@@@@*IF F1REEL IS SET OR F2REEL ISUK )@@G@@ SET @B@@@@#ASG,TX H155-BU*MTH-ACNT-SUM.,T,,30 @[@@@@#END @C@@@@UL )@@G@@#USE MTH-ACNT-BU.,H155-BU*MTH-ACNT-SUM. @[@@@@*ELSE @C@@@@#ASG,CUM )@@G@@X H155-BU*MTH-ACNT-SUM(+1).,T,,400 @[@@@@#END @D@@@@#USE MUN )@@G@@TH-ACNT-BU.,H155-BU*MTH-ACNT-SUM(+1). @[@@@@*END @ @@@@#ED,U SUO )@@G@@GS.H15501-SGS @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP6 UP )@@G@@@[@@@@EXIT @ @@@@#MSG CHECK-POINT,CP6 @ @@@@#BL CHECK,PUQ )@@G@@OINT,CP6 @B@@@@#COPY,GM H155*MTH-ACNT-SUM.,MTH-ACNT-BU.@ @@@@#FREE UR )@@G@@ H155*MTH-ACNT-SUM. @^@@@@#FREE MTH-ACNT-BU. @[@@@@*END @[@@@@US )@@G@@*END @#@@@@*IF CKPT4 IS SET @ @@@@#BL RESTRT,FROM,CP4 @#@@@@UT )@@G@@*IF F1 IS SET @ @@@@*IF F3 IS SET OR F4 IS SET @ @@@@#ASG,ADX HUU )@@G@@155*DAILY-ACCT. @B@@@@#USE DAILY-ACCNT.,H155*DAILY-ACCT. @[@@@@UV )@@G@@*ELSE @B@@@@#ASG,T H155*DAILY-ACCNT.,F///1000 @B@@@@#USE DUW )@@G@@AILY-ACCNT.,H155*DAILY-ACCNT. @#@@@@*IF F1REEL IS SET @C@@@@#ASG,TX HUX )@@G@@155*DAILY-ACT-BU.,T,[P2A),1,8,1] @[@@@@*ELSE @ @@@@#ASG,AX H155*DAUY )@@G@@ILY-ACT-BU. @[@@@@*END @C@@@@#COPY,G H155*DAILY-ACT-BU.,H155*DAILY-AUZ )@@G@@CCNT. @ @@@@#FREE H155*DAILY-ACT-BU. @[@@@@*END @[@@@@*END @#@@@@VA )@@G@@*IF F2 IS SET @#@@@@*IF F2REEL IS SET @C@@@@#ASG,T H155*CUM-DLY-VB )@@G@@ACNT.,T,[P3A),1,10,1] @[@@@@#END @B@@@@#USE OLD-CUM-DLY.,H155*CVC )@@G@@UM-DLY-ACNT.@[@@@@*ELSE @ @@@@#ASG,AX H155*CUM-DLY-ACNT. @[@@@@#END VD )@@G@@@B@@@@#USE OLD-CUM-DLY.,H155*CUM-DLY-ACNT.@[@@@@*END @[@@@@*END VE )@@G@@@#@@@@*IF F5 IS SET @A@@@@*IF F1REEL IS SET OR F2REEL IS SET @A@@@@VF )@@G@@#ASG,TF H155*NEW-CUM-ACNT.,T,,7 @[@@@@#END @B@@@@#USE NEW-CUMVG )@@G@@-DLY.,H155*NEW-CUM-ACNT.@[@@@@*ELSE @B@@@@#ASG,CX H155*CUM-DLY-ACNT(+VH )@@G@@1).,T,,7 @[@@@@#END @C@@@@#USE NEW-CUM-DLY.,H155*CUM-DLY-ACNT(VI )@@G@@+1). @[@@@@*END @[@@@@*END @#@@@@*IF F6 IS SET @ @@@@#CYCLE,C H1VJ )@@G@@55*DLY-ACNT-RPT.,0@[@@@@#END @B@@@@#CAT H155*DLY-ACNT-RPT.,F///50VK )@@G@@0 @[@@@@#END @ @@@@#ASG,AX H155*DLY-ACNT-RPT. @[@@@@#END @[@@@@VL )@@G@@*END @#@@@@*IF F7 IS SET @ @@@@#CYCLE,C H155*MTH-ACNT-RPT.,0@[@@@@VM )@@G@@#END @B@@@@#CAT H155*MTH-ACNT-RPT.,F///1000 @[@@@@#END @ @@@@VN )@@G@@#ASG,AX H155*MTH-ACNT-RPT. @[@@@@#END @[@@@@*END @#@@@@*IF F8 IS SEVO )@@G@@T @ @@@@#CYCLE,C H155*MTH-ACNT-SUM.,0@[@@@@#END @B@@@@#CAT HVP )@@G@@155*MTH-ACNT-SUM.,F///1000 @[@@@@#END @ @@@@#ASG,ADX H155*MTH-ACNTVQ )@@G@@-SUM. @[@@@@#END @[@@@@*END @ @@@@*IF F7 IS SET OR F8 IS SET @^@@@@VR )@@G@@#XQT H155.H1550081 @[@@@@*ELSE @^@@@@#XQT H155.H1550080 @[@@@@VS )@@G@@*END @]@@@@*EDIT ON @C@@@@PARAMETER CARD [*F1][*F2][*F5][*F6][*F7][*VT )@@G@@F8]& @#@@@@*IF [P7A),1] > 7 @ @@@@[P7A),1,7,1][P7A),1,9,1]& @[@@@@VU )@@G@@*ELSE @[@@@@0000& @[@@@@*END @#@@@@*IF [P8A),1] > 7 @ @@@@[P8A),1,7,1]VV )@@G@@[P8A),1,9,1]& @[@@@@*ELSE @[@@@@0000& @[@@@@*END @]@@@@*EDIT OFF VW )@@G@@@[@@@@#EOF @]@@@@#PMD,AELP @ @@@@#ED,U SGS.H15501-SGS @]@@@@VX )@@G@@FIND P1) @ @@@@R P1) RECOVERY RESTART? YES @]@@@@FIND P1A) @ @@@@VY )@@G@@R P1A) RESTART POINT: CP5 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CVZ )@@G@@P5 @ @@@@#BL CHECK,POINT,CP5 @#@@@@*IF F1 IS SET @^@@@@WA )@@G@@#FREE DAILY-ACCNT. @[@@@@*END @#@@@@*IF F2 IS SET @^@@@@#FREE WB )@@G@@ OLD-CUM-DLY. @[@@@@*END @#@@@@*IF F5 IS SET @^@@@@#FREE NWC )@@G@@EW-CUM-DLY. @[@@@@*END @#@@@@*IF F6 IS SET @ @@@@#FREE H155*DLWD )@@G@@Y-ACNT-RPT. @C@@@@#SYM H155*DLY-ACNT-RPT.,[P7),1,7,1],PR @[@@@@WE )@@G@@*END @#@@@@*IF F7 IS SET @ @@@@#FREE H155*MTH-ACNT-RPT. @C@@@@WF )@@G@@#SYM H155*MTH-ACNT-RPT.,[P9),1,7,1],PR @[@@@@*END @#@@@@*IF F8WG )@@G@@ IS SET @A@@@@*IF F1REEL IS SET OR F2REEL IS SET @B@@@@#ASG,TX HWH )@@G@@155-BU*MTH-ACNT-SUM.,T,,30 @[@@@@#END @C@@@@#USE MTH-ACNT-BU.,WI )@@G@@H155-BU*MTH-ACNT-SUM. @[@@@@*ELSE @C@@@@#ASG,CX H155-BU*MTH-ACNT-SUWJ )@@G@@M(+1).,T,,400 @[@@@@#END @D@@@@#USE MTH-ACNT-BU.,H155-BU*MTH-WK )@@G@@ACNT-SUM(+1). @[@@@@*END @ @@@@#ED,U SGS.H15501-SGS @]@@@@WL )@@G@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP6 @[@@@@EXIT @ @@@@#MSG WM )@@G@@ CHECK-POINT,CP6 @ @@@@#BL CHECK,POINT,CP6 @B@@@@#COPY,WN )@@G@@GM H155*MTH-ACNT-SUM.,MTH-ACNT-BU.@ @@@@#FREE H155*MTH-ACNT-SUM. WO )@@G@@@^@@@@#FREE MTH-ACNT-BU. @[@@@@*END @[@@@@*END @#@@@@*IF CKPT5 ISWP )@@G@@ SET @ @@@@#BL RESTRT,FROM,CP5 @#@@@@*IF F3 IS SET @ @@@@WQ )@@G@@#CYCLE,C H155*MFD-SUMMARY.,0 @[@@@@#END @[@@@@*END @#@@@@*IF F4 IS SEWR )@@G@@T @ @@@@#CYCLE,C H155*LIB-SUMMARY.,0 @[@@@@#END @[@@@@*END @ @@@@WS )@@G@@*IF F3 IS SET OR F4 IS SET @ @@@@#CYCLE,C H155*DAILY-ACCT.,0 @[@@@@WT )@@G@@*END @#@@@@*IF F6 IS SET @ @@@@#ASG,A H155*DLY-ACNT-RPT. @[@@@@WU )@@G@@#END @ @@@@#FREE H155*DLY-ACNT-RPT. @C@@@@#SYM H155*DLY-ACNTWV )@@G@@-RPT.,[P7),1,7,1],PR @[@@@@*END @#@@@@*IF F7 IS SET @ @@@@#ASG,AWW )@@G@@ H155*MTH-ACNT-RPT. @[@@@@#END @ @@@@#FREE H155*MTH-ACNT-RPT. WX )@@G@@@C@@@@#SYM H155*MTH-ACNT-RPT.,[P9),1,7,1],PR @[@@@@*END @#@@@@WY )@@G@@*IF F8 IS SET @^@@@@#ASG,A MTH-ACNT-SUM.@[@@@@#END @A@@@@*IF F1WZ )@@G@@REEL IS SET OR F2REEL IS SET @B@@@@#ASG,TX H155-BU*MTH-ACNT-SUM.,T,,XA )@@G@@30 @[@@@@#END @C@@@@#USE MTH-ACNT-BU.,H155-BU*MTH-ACNT-SUM. XB )@@G@@@[@@@@*ELSE @C@@@@#ASG,CX H155-BU*MTH-ACNT-SUM(+1).,T,,400 @[@@@@XC )@@G@@#END @D@@@@#USE MTH-ACNT-BU.,H155-BU*MTH-ACNT-SUM(+1). @[@@@@XD )@@G@@*END @ @@@@#ED,U SGS.H15501-SGS @]@@@@FIND P1) @ @@@@R P1) XE )@@G@@ RECOVERY RESTART? YES @]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CXF )@@G@@P6 @[@@@@EXIT @ @@@@#MSG CHECK-POINT,CP6 @ @@@@#BL CXG )@@G@@HECK,POINT,CP6 @B@@@@#COPY,GM H155*MTH-ACNT-SUM.,MTH-ACNT-BU.@ @@@@XH )@@G@@#FREE H155*MTH-ACNT-SUM. @^@@@@#FREE MTH-ACNT-BU. @[@@@@*END XI )@@G@@@[@@@@*END @#@@@@*IF CKPT6 IS SET @ @@@@#BL RESTRT,FROM,CP6 XJ )@@G@@@#@@@@*IF F8 IS SET @ @@@@#ASG,A H155*MTH-ACNT-SUM. @[@@@@#END XK )@@G@@@A@@@@*IF F1REEL IS SET OR F2REEL IS SET @B@@@@#ASG,TX H155-BU*MTH-AXL )@@G@@CNT-SUM.,T,,30 @[@@@@#END @C@@@@#USE MTH-ACNT-BU.,H155-BU*MTH-XM )@@G@@ACNT-SUM. @[@@@@*ELSE @C@@@@#ASG,CX H155-BU*MTH-ACNT-SUM(+1).,T,,40XN )@@G@@0 @[@@@@#END @D@@@@#USE MTH-ACNT-BU.,H155-BU*MTH-ACNT-SUM(+1)XO )@@G@@. @[@@@@*END @B@@@@#COPY,GM H155*MTH-ACNT-SUM.,MTH-ACNT-BU.@ @@@@XP )@@G@@#FREE H155*MTH-ACNT-SUM. @^@@@@#FREE MTH-ACNT-BU. @[@@@@*END XQ )@@G@@@[@@@@*END @[@@@@*END @^@@@@#ED,U SGS.H15501-SGS@]@@@@FIND P1) XR )@@G@@@ @@@@R P1) RECOVERY RESTART? NO @[@@@@EXIT @^@@@@#BL END,OF,SKXS )@@G@@EL @[@@@@*END ___ SET @^@@@@#FREE OLD-CUM-DLY. @[@@@@*END XT )@@G@@@#@@@@*IF F5 IS SET *[S@@@*SDFF*@#@@@@DEPT-HEADER PROC @C@@@@ **XU )@@G@@* HEADINGS FOR 14 7/8 X 11 PAPER ***@@@@@@@ @@@@ 01 DEPT-HEXV )@@G@@ADER-1. @I@@@@ 02 DEPT-RUN-ID PIC X(6XW )@@G@@). 001-006 @I@@@@ 02 FILLER XX )@@G@@ PIC X(115) VALUE SPACES. 007-121 @I@@@@ 02 DEPXY )@@G@@T-PAGE-LIT PIC X(5) VALUE 'PAGE'. 122-126 @I@@@@XZ )@@G@@ 02 DEPT-PAGE-NUM PIC ZZ,ZZZ. YA )@@G@@127-132 @@@@@@@ @@@@ 01 DEPT-HEADER-2. @I@@@@ 0YB )@@G@@2 DEPT-PROGRAM-NUM PIC X(8). 001-008 YC )@@G@@@I@@@@ 02 FILLER PIC X(45) VALUE SPYD )@@G@@ACES. 009-053 @I@@@@ 02 FILLER PYE )@@G@@IC X(26) 054-079 @D@@@@ VALUE 'TEXAS DEYF )@@G@@PARTMENT OF HEALTH'. @I@@@@ 02 FILLER YG )@@G@@ PIC X(39) VALUE SPACES. 080-118 @I@@@@ 02 DEPT-DATEYH )@@G@@ PIC X(8). 119-126 @I@@@@ YI )@@G@@ 02 FILLER PIC X VALUE SPACES. 127-12YJ )@@G@@7 @I@@@@ 02 DEPT-TIME VAYK )@@G@@LUE SPACES. 128-132 @I@@@@ 03 DEPT-TIME-HRS YL )@@G@@ PIC 99. 128-129 @I@@@@ 03 DEPT-YM )@@G@@TIME-COLON PIC X. 130-130 @I@@@@ YN )@@G@@ 03 DEPT-TIME-MINS PIC 99. 131-13YO )@@G@@2 @[@@@@ END ___^@C*[S@@@*SDFF*@^@@@@DEPT-HEADER-RW PROC @C@@@@YP )@@G@@ * HEADINGS FOR 14 7/8 X 11 PAPER * @@@@@@@A@@@@ 01 PYQ )@@G@@AGE-HEADER TYPE PH. @@@@@@@ @@@@ 03 LINE PLUS 1. @I@@@@YR )@@G@@ 05 COLUMN 001 PIC X(6) SOURCE DEPT-RUN-ID. YS )@@G@@001-006 @I@@@@ 05 COLUMN 122 PIC X(4) VALUE YT )@@G@@'PAGE'. 122-125 @I@@@@ 05 COLUMN 127 PYU )@@G@@IC ZZ,ZZZ SOURCE PAGE-COUNTER. 127-132 @@@@@@@ @@@@ 0YV )@@G@@3 LINE PLUS 1. @I@@@@ 05 COLUMN 001 PIC X(8) SYW )@@G@@OURCE DEPT-PROGRAM-NO. 001-008 @I@@@@ 05 COLUMN 054YX )@@G@@ PIC X(26) 054-079 @D@@@@ YY )@@G@@ VALUE 'TEXAS DEPARTMENT OF HEALTH'.@I@@@@ 05 COLUMYZ )@@G@@N 119 PIC X(8) SOURCE DEPT-DATE. 119-126 @I@@@@ ZA )@@G@@ 05 COLUMN 128 PIC X(5) SOURCE DEPT-TIME. 128-13ZB )@@G@@2 @[@@@@ END ___X(15) VALUE SPACES. 056-070 @I@@@@ 0ZC )@@G@@2 DEPT-DATE *[S@@@*SDFF*@^@@@@DEPT-HEADER-MEDIUM PROC @D@@@@ZD )@@G@@ *** HEADINGS FOR 8 1/2 X 11 REPORTS *** @@@@@@@ @@@@ ZE )@@G@@ 01 DEPT-HEADER-1M. @I@@@@ 02 DEPT-RUN-ID ZF )@@G@@ PIC X(6). 001-006 @I@@@@ 02 FILLER ZG )@@G@@ PIC X(67) VALUE SPACES. 007-073 @I@@@@ ZH )@@G@@ 02 DEPT-PAGE-LIT PIC X(5) VALUE 'PAGE'. 074-07ZI )@@G@@8 @I@@@@ 02 DEPT-PAGE-NUM PIC ZZ,ZZZ. ZJ )@@G@@ 079-084 @@@@@@@ @@@@ 01 DEPT-HEADER-2M. @I@@@@ZK )@@G@@ 02 DEPT-PROGRAM-NUM PIC X(8). ZL )@@G@@001-008 @I@@@@ 02 FILLER PIC X(2ZM )@@G@@1) VALUE SPACES. 009-029 @I@@@@ 02 FILLER ZN )@@G@@ PIC X(26) 030-055 @D@@@@ VALZO )@@G@@UE 'TEXAS DEPARTMENT OF HEALTH'. @I@@@@ 02 FILLER ZP )@@G@@ PIC X(15) VALUE SPACES. 056-070 @I@@@@ 0ZQ )@@G@@2 DEPT-DATE PIC X(8). 071-078 ZR )@@G@@@I@@@@ 02 FILLER PIC X VALUE SPAZS )@@G@@CE. 079-079 @I@@@@ 02 DEPT-TIME ZT )@@G@@ VALUE SPACE. 080-084 @I@@@@ 03 DEPT-TIME-HZU )@@G@@RS PIC 99. 080-081 @I@@@@ ZV )@@G@@ 03 DEPT-TIME-COLON PIC X. 082-082 ZW )@@G@@@I@@@@ 03 DEPT-TIME-MINS PIC 99. ZX )@@G@@ 083-084 @[@@@@ END ___@&_/K@@R^/K@@RERZ]@@@O#[@@QP;@@@#A#[@@QZY )@@G@@R]0^@J/KF@@[R#@^FBA#[@@UR;@350A#[K@X/K@O@JR;@362/K@@RH@@@@@@A]0^@JRZ]@@@ZZ )@@G@@%8@@@#/KF@@@R#[@@?O;@@@^A#@^D_RB@^@CA#@^E@RF@^@C*[S@@@*SDFF*@#@@@@LABELTAA )@@G@@APELIB PROC @A@@@@010 *01 H151-LABEL-TAPELIBRARY. @B@@@@020 * INDEAB )@@G@@X SEQUENTIAL (ASCII) FILE @A@@@@030 * BLOCK SIZE 1344 CHARACTERS AC )@@G@@@B@@@@040 * RECORD SIZE 114 CHAR (14 WORDS) @ @@@@050 * KEY 6 CHARAD )@@G@@ (1 WORD) @E@@@@060 * 111 KEYS PER INDEX BLOCK, 16 LOGICAL REC / BLOAE )@@G@@CK @ @@@@061 * KEY IS REEL-NO. @C@@@@ * CHANGE # 0AF )@@G@@2 APR 80 D. HEROLD @C@@@@ * CONVERT FOR 1974 ANS COBOL (ACOAG )@@G@@B4) @]@@@@ * @I@@@@070 05 REEL-NO PICTURE X(6).AH )@@G@@ 001-006 @D@@@@071 88 TIME-OFAI )@@G@@-LAST-UPDATE VALUE 'INFO'. @F@@@@072 * KEY OF RECORD CONTAINAJ )@@G@@ING LAST UPDATE DATE-TIME @I@@@@080 05 ACCOUNT-NO PICTUREAK )@@G@@ X(12). 007-018 @I@@@@ 05 LASAL )@@G@@T-UPDATE-DATE-TIME REDEFINES ACCOUNT-NO. 007-018 @H@@@@AM )@@G@@ * * CONTAINS DATE & TIME OF LAST UPDATE OF LABELED-TABE-LIBRARAN )@@G@@Y @I@@@@ 10 LAST-UP-MO PICTURE 99. AO )@@G@@ 007-008 @I@@@@ 10 LAST-UP-DA PICAP )@@G@@TURE 99. 009-010 @I@@@@ 10 LAST-AQ )@@G@@UP-YR PICTURE 99. 011-012 @I@@@@ AR )@@G@@ 10 LAST-UP-HRS PICTURE 99. 013-0AS )@@G@@14 @I@@@@ 10 LAST-UP-MIN PICTURE 99. AT )@@G@@ 015-016 @I@@@@ 10 LAST-UP-SEC PICAU )@@G@@TURE 99. 017-018 @I@@@@090 05 RUN-ID AV )@@G@@ PICTURE X(6). 019-024 @I@@@@100 AW )@@G@@ 05 CREATION-DATE-TIME. 025-0AX )@@G@@36 @H@@@@101 * * CONTAINS LAST UPDATE DATE-TIME IF REEL-NO COAY )@@G@@NTAINS 'INFO' @I@@@@120 10 CREATION-MDY. AZ )@@G@@ 025-030 @I@@@@130 15 CREATION-MONBA )@@G@@TH PICTURE 99. 025-026 @I@@@@140 BB )@@G@@ 15 CREATION-DAY PICTURE 99. 027-028 BC )@@G@@@I@@@@150 15 CREATION-YEAR PICTURE 99. BD )@@G@@ 029-030 @I@@@@ 10 CREATION-TIME. BE )@@G@@ 031-036 @I@@@@170 15 CREATION-HOUBF )@@G@@R PICTURE 99. 031-032 @I@@@@180 BG )@@G@@ 15 CREATION-MINUTE PICTURE 99. 033-034 BH )@@G@@@I@@@@185 15 CREATION-SECOND PICTURE 99. BI )@@G@@ 035-036 @I@@@@190 05 EXPIRATION-DATE. BJ )@@G@@ 037-042 @I@@@@200 10 EXPIRATION-MOBK )@@G@@NTH PICTURE XX. 037-038 @I@@@@210 BL )@@G@@ 10 EXPIRATION-DAY PICTURE XX. 039-040 BM )@@G@@@I@@@@220 10 EXPIRATION-YEAR PICTURE XX. BN )@@G@@ 041-042 @I@@@@230 05 QUALIFIER-FILENAME PICTURE X(25)BO )@@G@@. 043-067 @F@@@@240 * ** QUALIFIER SEPARBP )@@G@@ATED FROM FILENAME BY ASTERISK * @I@@@@250 05 NUMBER-OF-RECORBQ )@@G@@DS PICTURE 9(7). 068-074 @I@@@@260 0BR )@@G@@5 REEL-COUNT PICTURE XX. 075-076 BS )@@G@@@C@@@@270 * ** WHICH REEL OF MULTI-REEL FILE @I@@@@280 0BT )@@G@@5 REEL-TOTAL PICTURE XX. 077-078 BU )@@G@@@C@@@@290 * ** NUMBER OF REELS IN THIS FILE @I@@@@300 0BV )@@G@@5 CYCLE-NO PICTURE 999. 079-081 BW )@@G@@@F@@@@310 * ** ABSOLUTE CYCLE IF CATALOGUED FILE 001 TO 999. BX )@@G@@@C@@@@320 * ** BLANK IF FILE NOT CATALOGUED @I@@@@325 0BY )@@G@@5 DRIVE PICTURE XX. 082-083 BZ )@@G@@@I@@@@328 05 COMMENT-AREA PICTURE X(30). CA )@@G@@ 084-113 @H@@@@330 05 FILLER PICTURE X. CB )@@G@@ 114 @[@@@@ END ___E 99. CC )@@G@@ 011-012 @I@@@@ 10 LAST-UP-HRS PICTURE 99. CD )@@G@@ 013-014 @I@@@@ *[S@@@*SDFF*@#@@@@SCS-SUCE )@@G@@MM-REC PROC @I@@@@ *01 SCS-SUMM-REC. CF )@@G@@ 001-048 @A@@@@ * SCS ACCOUNT SUMMARY FILE CG )@@G@@@F@@@@ * CONTAINS HOURS BY ACCOUNT FROM ACCOUNT-ORIENTED FILE CH )@@G@@@F@@@@ * AND RUN-ORIENTED FILE; INITIAL RECORD CONTAINS COUNT CI )@@G@@@E@@@@ * OF RECORDS ADDED TO FILE SINCE LAST REORGANIZE @F@@@@CJ )@@G@@ * ASCII INDEX-SEQUENTIAL, BLOCK CONTAINS 119 RECORDS @A@@@@CK )@@G@@ * ACTUAL KEY DESCRIPTION: @A@@@@ * 01 SCS-SUMM-KECL )@@G@@Y. @G@@@@ * 88 COUNT-REC VALUECM )@@G@@ '0000'. @D@@@@ * 02 SCS-ACCT-NUM PIC 9(3). CN )@@G@@@D@@@@ * 02 SCS-ACCT-CLASS PIC X. @]@@@@ CO )@@G@@* @C@@@@ * CHANGE # 02 APR 80 D. HEROLD @C@@@@ CP )@@G@@* CONVERT FOR 1974 ANS COBOL (ACOB4) @]@@@@ * @ @@@@ CQ )@@G@@ 02 COUNT-RECORD. @D@@@@ 03 RECORDS-ADDED PIC 9(3CR )@@G@@) COMP. @F@@@@ 88 REORGANIZE-NEEDED VALUE 1CS )@@G@@00 THRU 999.@C@@@@ 03 FILLER PIC X(46). @D@@@@CT )@@G@@ 02 SUMM-RECORD REDEFINES COUNT-RECORD. @F@@@@ CU )@@G@@ 88 INACTIVE-SUMMARY-RECORD VALUE LOW-VALUES. @B@@@@ CV )@@G@@ 03 SUMM-MONTHS OCCURS 12. @D@@@@ 04 ACCT-HOURS PCW )@@G@@IC 9(5) COMP. @D@@@@ 04 RUN-HOURS PIC 9(5) COMPCX )@@G@@. @[@@@@ END ___^I&C[K@EP%[W@@A/K@@HO*^J@@[/KC@@@QE@^I(R;@@@M/KF@@@CY )@@G@@C5I@@#)9@@@)[5Y@@#/,@@NX/KF@@@C9@@@[[!J@@@/KC@@@*[S@@@*SDFF*@#@@@@ CZ )@@G@@ AXR$ @[@@@@$(1) @A@@@@ABORT* ER EABT$ . @A@@@@DA )@@G@@ J 0,11 . @#@@@@ END ___@@@@@@@@@DB )@@G@@*[S@@@*SDFF*@A@@@@ AXR$ . @A@@@@$(1) DC )@@G@@ . @A@@@@CALCDAYS* . @A@@@@DD )@@G@@ L A0,*0,X11 . @A@@@@ S A0,BEGDTE DE )@@G@@ . @A@@@@ L A0,*1,X11 . @A@@@@ S DF )@@G@@ A0,ENDDTE . @A@@@@ S X11,X11SVE . @A@@@@ DG )@@G@@ LMJ X11,JULIN1 . @A@@@@ +BEGDTE . DH )@@G@@@A@@@@ +BEGYR . @A@@@@ +STATUS DI )@@G@@ . @B@@@@ L,U A0,061 . @A@@@@ DJ )@@G@@ TNE,S1 A0,STATUS . @A@@@@ J BEGOK . DK )@@G@@@A@@@@ L X11,X11SVE . @A@@@@ L,U A0,06DL )@@G@@4 . @A@@@@ S,S1 A0,*3,X11 . @A@@@@ SZ DM )@@G@@ *2,X11 . @A@@@@ J 4,X11 . @A@@@@DN )@@G@@BEGOK LMJ X11,JULIN1 . @A@@@@ +ENDDTE DO )@@G@@ . @A@@@@ +ENDYR . @A@@@@ +STATUS DP )@@G@@ . @B@@@@ L,U A0,061 . @A@@@@DQ )@@G@@ TNE,S1 A0,STATUS . @A@@@@ J ENDOK DR )@@G@@ . @A@@@@ L X11,X11SVE . @A@@@@ L,U DS )@@G@@ A0,062 . @A@@@@ S,S1 A0,*3,X11 . @A@@@@ DT )@@G@@ SZ *2,X11 . @A@@@@ J 4,X11 . DU )@@G@@@A@@@@ENDOK L X11,X11SVE . @A@@@@ L A0,ENDV )@@G@@DYR . @A@@@@ DSL A0,54 . @A@@@@ DI,DW )@@G@@U A0,1000 . @A@@@@ DS A0,ENDYR . @A@@@@DX )@@G@@ L A0,BEGYR . @A@@@@ DSL A0,54 DY )@@G@@ . @A@@@@ DI,U A0,1000 . @A@@@@ DS DZ )@@G@@ A0,BEGYR . @A@@@@ TNG A0,ENDYR . @A@@@@ EA )@@G@@ J BGDLOW . @A@@@@ TE A0,ENDYR . EB )@@G@@@A@@@@ J BGDHI . @A@@@@ TNG A1,ENEC )@@G@@DDAY . @A@@@@ J BGDLOW . @A@@@@ TE ED )@@G@@ A1,ENDDAY . @A@@@@ J BGDHI . @A@@@@EE )@@G@@ L,U A2,061 . @A@@@@ S,S1 A2,*3,X11 EF )@@G@@ . @A@@@@ L,U A2,1 . @A@@@@ J EG )@@G@@ FINISH+1 . @A@@@@BGDHI L A2,ENDYR . @A@@@@ EH )@@G@@ A,U A2,100 . @A@@@@ S A2,ENDYR . EI )@@G@@@A@@@@ L,U A2,063 . @A@@@@ S,S1 A2,*3EJ )@@G@@,X11 . @A@@@@ J BGDLOW+2 . @A@@@@BGDLOW L,UEK )@@G@@ A2,061 . @A@@@@ S,S1 A2,*3,X11 . @A@@@@EL )@@G@@ L A2,ENDDAY . @A@@@@LOOP L A0,ENDYR EM )@@G@@ . @A@@@@ AN,U A0,1 . @A@@@@ TLE EN )@@G@@ A0,BEGYR . @A@@@@ J FINISH . @A@@@@ EO )@@G@@ S A0,ENDYR . @A@@@@ DSL A0,36 . EP )@@G@@@A@@@@ DI,U A0,4 . @A@@@@ A,U A2,36EQ )@@G@@5 . @A@@@@ TNZ A1 . @A@@@@ A,UER )@@G@@ A2,1 . @A@@@@ J LOOP . @A@@@@ES )@@G@@FINISH AN A2,BEGDAY . @A@@@@ LSSL A2,18 ET )@@G@@ . @A@@@@ S A2,*2,X11 . @A@@@@ J EU )@@G@@ 4,X11 . @A@@@@$(0) . @A@@@@STATUSEV )@@G@@ +0 . @A@@@@X11SVE +0 . EW )@@G@@@A@@@@BEGDTE +0 . @A@@@@ENDDTE +0 EX )@@G@@ . @A@@@@BEGYR +0 . @A@@@@BEGDAY +0 EY )@@G@@ . @A@@@@ENDYR +0 . @A@@@@EZ )@@G@@ENDDAY +0 . @A@@@@ END FA )@@G@@ . ___ +STATUS *[S@@@*SDFF*@I@@@@000010 IDENTIFICATION DIVISIONFB )@@G@@. H1509150 @I@@@@000020 PROGRFC )@@G@@AM-ID. DATEDIT. H1509150 FD )@@G@@@I@@@@000030 AUTHOR. NANCY FARRIS. FE )@@G@@ H1509150 @I@@@@000040 DATE-WRITTEN. NOVEMBER 27, 1972. FF )@@G@@ H1509150 @I@@@@000050 REMARKS. FG )@@G@@ H1509150 @I@@@@000060 FH )@@G@@ THIS PROGRAM WAS WRITTEN TO PROVIDE ANY COBOL PROGRAM AN H1509150 FI )@@G@@@I@@@@000070 EASY METHOD OF EDITING DATES (MMDDYY) WITH EITHER SLASHFJ )@@G@@ES OR H1509150 @I@@@@000080 DASHES. FK )@@G@@ H1509150 @I@@@@000090 IT WAS WRITTEN FL )@@G@@TO REPLACE THE ASSEMBLY LANGUAGE (RCA) H1509150 @I@@@@000100 SFM )@@G@@UB-PROGRAM 'DATEDIT'. H1509150 FN )@@G@@@I@@@@000110 FO )@@G@@ H1509150 @I@@@@020010 ENVIRONMENT DIVISION. FP )@@G@@ H1509150 @I@@@@020020 FQ )@@G@@ H1509150 @I@@@@100010 DATA FR )@@G@@DIVISION. H1509150 FS )@@G@@@I@@@@100020 FT )@@G@@ H1509150 @I@@@@300010 LINKAGE SECTION. FU )@@G@@ H1509150 @I@@@@300020 FV )@@G@@ H1509150 @I@@@@300030 77 EFW )@@G@@DIT-INDICATOR PICTURE X. H1509150 FX )@@G@@@I@@@@300040 FY )@@G@@ H1509150 @I@@@@301010 01 DATE. FZ )@@G@@ H1509150 @I@@@@301020 02 MO GA )@@G@@ PICTURE XX. H1509150 @I@@@@301030 0GB )@@G@@2 DA PICTURE XX. H1509150 GC )@@G@@@I@@@@301040 02 YR PICTURE XX. GD )@@G@@ H1509150 @I@@@@301050 GE )@@G@@ H1509150 @I@@@@302010 01 EDITED-DATE. GF )@@G@@ H1509150 @I@@@@302020 0GG )@@G@@2 E-MO PICTURE XX. H1509150 GH )@@G@@@I@@@@302030 02 FILL-1 PICTURE X. GI )@@G@@ H1509150 @I@@@@302040 02 E-DA PGJ )@@G@@ICTURE XX. H1509150 @I@@@@302050 02 FILL-2 GK )@@G@@ PICTURE X. H1509150 @I@@@@302060 0GL )@@G@@2 E-YR PICTURE XX. H1509150 GM )@@G@@@I@@@@500010 PROCEDURE DIVISION. GN )@@G@@ H1509150 @I@@@@501010 BEGIN. GO )@@G@@ H1509150 @I@@@@501020 ENTRY 'DATEDIT' USIGP )@@G@@NG DATE, EDITED-DATE, EDIT-INDICATOR. H1509150 @I@@@@502010 MOVE-GQ )@@G@@IT. H1509150 GR )@@G@@@I@@@@502020 IF DATE = SPACES, GS )@@G@@ H1509150 @I@@@@502030 MOVE SPACES TO EDITED-DATE, GT )@@G@@ H1509150 @I@@@@502040 GO TO THE-END. GU )@@G@@ H1509150 @I@@@@502050 MGV )@@G@@OVE MO TO E-MO. H1509150 GW )@@G@@@I@@@@502060 MOVE DA TO E-DA. GX )@@G@@ H1509150 @I@@@@502070 MOVE YR TO E-YR. GY )@@G@@ H1509150 @I@@@@502080 IF EDIT-INDICATOR =GZ )@@G@@ '1', H1509150 @I@@@@502090 HA )@@G@@ MOVE '/' TO FILL-1, FILL-2, H1509150 HB )@@G@@@I@@@@502100 ELSE HC )@@G@@ H1509150 @I@@@@502110 MOVE '-' TO FILL-1, FILL-2. HD )@@G@@ H1509150 @I@@@@503010 THE-END. HE )@@G@@ H1509150 @I@@@@503020 GHF )@@G@@OBACK. H1509150 HG )@@G@@@I@@@@503030 HH )@@G@@ H1509150 ___ EDIT-INDICATOR PICTURE X. HI )@@G@@ H1509150 @I@@@@300040 HJ )@@G@@*[S@@@*SDFF*@#@@@@ AXR$ @[@@@@$(1) .@H@@@@CONVDATE* . HK )@@G@@ -- REWRITEN 2/8/74 FROM COBOL SUB TO CORRECT OUTPUT ERRORS@D@@@@ HL )@@G@@ L A2,SPACE . INITIALIZE @A@@@@ S HM )@@G@@ A2,BUF+2 . @E@@@@ L A1,*0,X11 . PICK UP AHN )@@G@@RGUMENT @E@@@@ DSL A1,12 . ?-------------HO )@@G@@-? @F@@@@ S A2,BUF+3 . ? IF YEAR = ' ' ?-->HP )@@G@@: YES @F@@@@ TNE A2,SPACE . ?--------------? HQ )@@G@@: @F@@@@ J CHKDAY . : NO HR )@@G@@: @F@@@@ L A2,CENTRY . STORE 'YY ' IN BUF+3 HS )@@G@@: @F@@@@ S A2,BUF+2 . STORE ' , 19' IN BUF+2 HT )@@G@@V @F@@@@CHKDAY L A2,SPACE . :<----------HU )@@G@@- @E@@@@ DSL A1,12 . ?--------------? HV )@@G@@@F@@@@ TNE A2,SPACE . ? IF DAY = ' ' ?-->: YES HW )@@G@@@F@@@@ J NODAY . ?--------------? : HX )@@G@@@F@@@@ SSL A2,24 . : NO : HY )@@G@@@F@@@@ S,T1 A2,BUF+2 . STORE 'DD' : HZ )@@G@@@F@@@@ J CHKMON . IN T1 OF BUF+2 : IA )@@G@@@F@@@@NODAY DL A3,BUF+2 . : : IB )@@G@@@G@@@@ LDSL A3,24 . : SHIFT YEARIC )@@G@@ LEFT @G@@@@ S A3,BUF+2 . : INTID )@@G@@O BUF+2 @F@@@@ S A2,BUF+3 . : IE )@@G@@ V @F@@@@CHKMON AND,U A1,07660 . :<----IF )@@G@@------- @E@@@@ TE,U A2,06060 . ?-------------IG )@@G@@-? @E@@@@ J NOMON . ? IF MONTH OUT ? IH )@@G@@@F@@@@ AN,U A1,06060 . ? OF RANGE ?-->: YES II )@@G@@@F@@@@ DSL A1,6 . ?--------------? : IJ )@@G@@@F@@@@ SSL A2,30 . : NO : IK )@@G@@@F@@@@ TNE,U A1,1 . SET UP MON : IL )@@G@@@F@@@@ A,U A2,10 . INDEX IN A2 : IM )@@G@@@F@@@@ TG,U A2,13 . : : IN )@@G@@@F@@@@NOMON SZ A2 . : SET INDEX IO )@@G@@@F@@@@ MSI,U A2,2 . : A2 TO ZEROIP )@@G@@@F@@@@ DL A3,MONTH,A2 . :<----------- IQ )@@G@@@D@@@@ DS A3,BUF . : @E@@@@ IR )@@G@@ L,S1 A2,BUF . STORE MONTH @E@@@@ S,SIS )@@G@@6 A2,SHIFT . IN BUF AND BUF+1 @D@@@@ L,S2 IT )@@G@@ A2,BUF . : @D@@@@ LXI,U A2,1 IU )@@G@@ . : @D@@@@ L A1,0,X11 . IV )@@G@@ : @D@@@@ LXI,U A1,0 . : IW )@@G@@@E@@@@LOOP DL A3,BUF,*A2 . LOOP TO LEFT @D@@@@IX )@@G@@SHIFT LDSL A3,12 . JUSTIFY BUF@D@@@@ TNEIY )@@G@@ A3,SPACE . : @I@@@@ J FINISIZ )@@G@@H . ADDED 5/7/74 @I@@@@ JA )@@G@@ S A3,0,A1 . ADDED 5/7/JB )@@G@@74 @I@@@@ A A1,(1,1) . JC )@@G@@ ADDED 5/7/74 @A@@@@ J LOOP . @I@@@@JD )@@G@@FINISH TG A1,(3,0) . ADDEJE )@@G@@D 5/7/74 @D@@@@ J 1,X11 . ** RETURN **JF )@@G@@@I@@@@ S A3,0,A1 . 5-7-74 ADDITION MADE TO JG )@@G@@ ADDED 5/7/74 @I@@@@ A A1,(1,1) . SPACE OUT CAJH )@@G@@LLING ROUTINE'S ADDED 5/7/74 @I@@@@ J FINISH JI )@@G@@ . 18 CHARACTER FIELD ADDED 5/7/74 @[@@@@$(0) .@^@@@@JJ )@@G@@BUF RES 4 . @^@@@@SPACE ' ' . @^@@@@CENTRY ' JK )@@G@@, 19' . @A@@@@TBL FORM 6,6,60 . @A@@@@MONTH TBLJL )@@G@@ 0,2,' ' . @A@@@@ TBL 24,0,' JANUARY ' . @A@@@@JM )@@G@@ TBL 18,0,' FEBRUARY ' . @A@@@@ TBL 0,1,' MARCHJN )@@G@@ ' . @A@@@@ TBL 0,1,' APRIL ' . @A@@@@ TBL 12,JO )@@G@@1,' MAY ' . @A@@@@ TBL 6,1,' JUNE ' . @A@@@@ JP )@@G@@ TBL 6,1,' JULY ' . @A@@@@ TBL 30,0,' AUGUST ' . JQ )@@G@@@A@@@@ TBL 12,0,'SEPTEMBER ' . @A@@@@ TBL 24,0,' OJR )@@G@@CTOBER ' . @A@@@@ TBL 18,0,' NOVEMBER ' . @A@@@@ TBLJS )@@G@@ 18,0,' DECEMBER ' . @]@@@@ END___ A1,06060 . ? JT )@@G@@ OF RANGE ?-->: YES @F@@@@ DSL A1,6 . ?-JU )@@G@@*[S@@@*SDFF*@]@@@@ AXR$ @[@@@@EQUIP*@#@@@@ SA A0,SA0 @#@@@@JV )@@G@@ SA A1,SA1 @^@@@@ L,H2 A0,0,X11 @^@@@@ L A1,13JW )@@G@@,A0 @#@@@@ S A1,ST@^@@@@ S A0,ADR @^@@@@ JX )@@G@@ L,U A1,0505 @^@@@@ S,T2 A1,13,A0 @^@@@@ S,T3 A1,13JY )@@G@@,A0 @^@@@@LOOP L,H2 A0,0,X11 @^@@@@ L,U A1,0505 @^@@@@JZ )@@G@@ S,T2 A1,13,A0 @^@@@@ S,T3 A1,13,A0 @#@@@@ ER CKA )@@G@@SF$ @^@@@@ SA A0,STATUS @^@@@@ JN A0,REJECT @#@@@@KB )@@G@@ J RTN @#@@@@REJECT AND A0,MASK@#@@@@ JZ A1,ERR @#@@@@KC )@@G@@ L,U A1,5000@#@@@@ ER TWAIT$ @#@@@@ J LOOP @ @@@@KD )@@G@@ERR L A0,(PF 1,6,MSG) @#@@@@ ER PRINT$ @#@@@@ ER EKE )@@G@@ABT$ @#@@@@RTN LA A0,ADR @#@@@@ L A3,ST @^@@@@ S KF )@@G@@A3,13,A0 @#@@@@ L A0,SA0@#@@@@ LA A1,SA1 @#@@@@ KG )@@G@@ J 2,X11 @]@@@@SA0 RES 1@]@@@@SA1 RES 1@]@@@@ST RES 1@]@@@@KH )@@G@@ADR RES 1@^@@@@MASK 000001000000 @C@@@@MSG 'ASSIGNMENT EKI )@@G@@RROR VIA EQUIP ' @]@@@@STATUS RES 1@^@@@@PF FORM 12,6,18 KJ )@@G@@@]@@@@ END ___@[@@]@@@@ END ___@[@^@)^@)^@)^@)ES)^@)CC3 )1KK )@@G@@AS?CC0@ @@[@^@)^@)^@)^@)*[S@@@*SDFF*@#@@@@ AXR$ @[@@@@$(1) .KL )@@G@@@]@@@@GETDATE* . @C@@@@ ER DATE$ . GET MMDDYY IN A0 KM )@@G@@@ @@@@ S A0,*0,X11 .@ @@@@ J 1,X11 . KN )@@G@@@]@@@@ END___@@]@@@@@[@@@@@B@@#@@^^@@@@#C[K@@B@@[@[E[DJ@@@@@^@@ KO )@@G@@ @@@@#G[K@@]@@[@[F]EJ@@@$@@@@#@@ @@ @@@@#[[K@@]@@[@[G]EJ@@@$@@@@#@@ @@#KP )@@G@@*[S@@@*SDFF*@#@@@@ AXR$ @H@@@@ . SUBROUTINE FETCHES KQ )@@G@@RECORD VOLUME FROM A ASCII FORMAT DISC FILE. @A@@@@ . FILE MUKR )@@G@@ST BE ASSIGNED. @^@@@@ . CALL LINE: @D@@@@ . CAKS )@@G@@LL 'GETVOL' USING FILE-NAME, VOLUME.@E@@@@ . FILE-NAME IKT )@@G@@S COBOL INTERNAL FILE NAME. @E@@@@ . VOLUME IS FULL-WOKU )@@G@@RD, SIGNED, BINARY. @G@@@@ . VOLUME RETURNED NEGATIVE INDICAKV )@@G@@TES OPERATION COULD NOT BE @ @@@@ . PERFORMED: @D@@@@KW )@@G@@ . -1 INDICATES FILE IS NOT ON DISC. @H@@@@ . KX )@@G@@ -2 INDICATES FILE IS NOT ASCII FORMAT ('EOF' NOT IN FIRST @F@@@@KY )@@G@@ . THREE CHARACTERS OF SECOND SECTOR) OR FILE IS @ @@@@KZ )@@G@@ . UNREADABLE.@C@@@@ . -3 INDICATES FILE NOLA )@@G@@T ASSIGNED. @[@@@@$(1). @D@@@@GETVOLASCII* S X11,BUF+2 .LB )@@G@@ SAVE X11 @B@@@@ S A0,STOA0 .@D@]@@ LC )@@G@@ L A1,FRSTD$ . DBANK ADDR @E@@@] L,U LD )@@G@@ A1,FRSTD$ . DBANK ADDR @D@]@@ L ALE )@@G@@2,LASTD$ . DBANK ADDR @E@@@] L,U A2,LASTD$ LF )@@G@@ . DBANK ADDR @B@@@@ TW,H2 A1,STOA0 .LG )@@G@@@B@@@@ J ASCII3 .@C@@@@ L LH )@@G@@ A2,0,A0 . @C@@@@ SZ A3 LI )@@G@@ . @ @@@@ DSC A2,18 @C@[@@ L LJ )@@G@@ A1,(0,GETVOLASCII) . @C@@@[ L A1,(0,C$BGETLLK )@@G@@ASCII) . @B@@@@ TE A1,A2 .@B@@@@ LL )@@G@@ J ASCII3 .@B@@@@ L A1,(2,0LM )@@G@@) .@E@@@@ TE A1,A3 . CK # PARAMELN )@@G@@TERS @C@@@@ J ERROUT . WRONG@D@@@@ LO )@@G@@ L,U A1,1 . OR RIGHT @D@@@@ S LP )@@G@@ A1,ACOB4 . SET SWITCH @E@@@@ L A3,1,A0LQ )@@G@@ . GET ADDR OBJ LIST@E@@@@ DL A1,0,A3 LR )@@G@@ . LOAD FILENM 2 WDS@C@@@@ DS A1,FIPKT+2 .LS )@@G@@ STORE@D@@@@ L A1,2,A3 . LOAD 3D WD @D@@@@LT )@@G@@ S A1,FIPKT+4 . STORE SAME @D@@@@ LU )@@G@@ J CONT . PROCEED @E@@@@ASCII3 L A0,1LV )@@G@@,X11 . SET UP INTERNAL FILE@ @@@@ DL A1,0,A0. LW )@@G@@@ @@@@ DS A1,FIPKT+2@ @@@@ L A1,2,A0 LX )@@G@@@ @@@@ S A1,FIPKT+4@ @@@@CONT L,U A0,03 LY )@@G@@@ @@@@ L,U A1,FIPKT+2@ @@@@ L,U A2,FIPKT LZ )@@G@@@G@@@@ LMJ X11,ASCFD$ . CHANGE ASCII FILE-NAME TOMA )@@G@@ FD @ @@@@ L X11,BUF+2 @ @@@@ L,U A0,FIMB )@@G@@PKT @G@@@@ ER FACIL$ . EQUIP MUST BE 8414 MC )@@G@@OR 8440 FAST@ @@@@ TNZ FIPKT+2 @E@@@@ J MD )@@G@@ NOFILE . FILE NOT ASSIGNED @ @@@@ L,S1 A0,FIME )@@G@@PKT+6 @ @@@@ TE,U A0,035 @ @@@@ TNE,U A0,03MF )@@G@@6 @^@@@@ J $+2 @ @@@@ J BADFAC MG )@@G@@@G@@@@ SZ FIPKT+2 . SET TO READ FIRST FOUR WOMH )@@G@@RDS @E@@@@ L,U A0,2 . OF THIRD SECTOR MI )@@G@@@ @@@@ S A0,FIPKT+5 @ @@@@ DL A0,TWOWDS MJ )@@G@@@ @@@@ DS A0,FIPKT+3 @ @@@@ L,U A0,FIPKT MK )@@G@@@^@@@@ ER IOW$ @F@@@@ TZ,S1 FIPKT+3 ML )@@G@@ . CHECK FOR DISC ERROR @ @@@@ J BADDSC @F@@@@MM )@@G@@ L A0,BUF . FIRST FOUR = 'EOF1'? @ @@@@MN )@@G@@ TE A0,EOF1 @C@@@@ J BADDSC MO )@@G@@ . NOPE @D@@@@ L A1,BUF+13 . BLOCK COUNT MP )@@G@@@^@@@@ L,U R1,1@^@@@@ L,U R2,2@ @@@@ MQ )@@G@@ LSSL A1,18 @ @@@@ J ASCBN @^@@@@SETUP2MR )@@G@@ L,U R2,3@ @@@@ L A1,BUF+14 @ @@@@ J MS )@@G@@ ASCBN+1 @^@@@@ASCBN SZ A3 @B@@@@ AND MT )@@G@@ A1,(017017017017) @^@@@@ SZ A1 @^@@@@ LDMU )@@G@@SL A1,9@ @@@@ MSI,U A3,10 @ @@@@ A MV )@@G@@ A3,A1 @ @@@@ JGD R2,$-4 @ @@@@ JGD MW )@@G@@ R1,SETUP2 @D@@@# L A0,A3 . TEST FOR 0000 BLOCKMX )@@G@@@C@@@# JZ A0,EXIT . ZERO SO JUMP @ @@@@ S MY )@@G@@ A3,BUF+12 @^@@@@ L,U A0,4@ @@@@ S MZ )@@G@@ A0,FIPKT+5@ @@@@ S,H1 A0,FIPKT+4@ @@@@ L,U NA )@@G@@ A0,FIPKT @^@@@@ ER IOW$@ @@@@ TZ,S1 FIPKNB )@@G@@T+3 @ @@@@ J BADDSC @^@@@@ SZ A0 NC )@@G@@@ @@@@ L A1,BUF @^@@@@ AN,U A1,1@ @@@@ND )@@G@@ L,H1 A3,BUF+1 @ @@@@ DI A0,A3 @^@@@@NE )@@G@@ TZ A1 @^@@@@ A,U A0,1@ @@@@ MSNF )@@G@@I A0,BUF+12 @B@@@@EXIT SZ A1 . @D@@@@NG )@@G@@ TNE A1,ACOB4 . IS SWITCH SET?@B@@@@ J NH )@@G@@ EXIT2 . NO@B@@@@ L A1,A0 NI )@@G@@ . @D@@@@ L A0,STOA0 . RELOAD ADDR @D@@@@NJ )@@G@@ S A1,*2,A0 . SEND VOL @C@@@@ J NK )@@G@@ 0,X11 . GO HOME @B@@@@EXIT2 S A0,*2,X11 NL )@@G@@ . @E@@@@ J 3,X11 . RETURN TO USENM )@@G@@R @E@@@@BADFAC L A0,MIN1 . -1 FOR NO DISC NN )@@G@@@^@@@@ J EXIT @G@@@@BADDSC L A0,MIN2 NO )@@G@@ . -2 FOR NOT ASCII OR DISC ERROR @^@@@@ J EXIT @F@@@@NP )@@G@@NOFILE L A0,MIN3 . -3 FOR FILE NOT ASSIGNED @^@@@@NQ )@@G@@ J EXIT @D@@@@ERROUT L A0,(PF 2,3,MSG) .NR )@@G@@ ERR MSG @B@@@@ ER PRINT$ . @C@@@@ NS )@@G@@ ER ERR$ . ABORT@[@@@@$(0). @#@@@[C$BGETLASCIINT )@@G@@* . @A@@@@MIN1 + 0777777777776 @A@@@@MIN2 + NU )@@G@@ 0777777777775 @A@@@@MIN3 + 0777777777774 @A@@@@EOF1 NV )@@G@@ + 0105117106061 @A@@@@PF FORM 12,6,18 . NW )@@G@@@B@@@@MSG 'PARAMETER ERROR ' . @B@@@@STOA0 + NX )@@G@@ 0 . @B@@@@ACOB4 + 0 . NY )@@G@@@ @@@@TWOWDS + 02000,0 @^@@@@ + 15,BUF@^@@@@NZ )@@G@@FIPKT RES 9 @^@@@@BUF RES 15 @]@@@@ ENDOA )@@G@@___@@$')E)@@8K)@+19?@^U,9*@^U4C@@^S!'=@@@J*@@@@G/,)@TVC@@^S,'=@@@J*@@@@GOB )@@G@@/,)@TVC@@^S\'=@@@J*@@@@G/,)@TVC@@^S0'=@@@J*@@@@G/,)@TVC@@^S1'=@@@IR@K^S2OC )@@G@@*[S@@@*SDFF*@B@@@@ AXR$ . @B@@@@ OD )@@G@@ $INCLUDE 'M$STRUC' . @B@@@@ M$STRUC,'OLD PROGRAMOE )@@G@@' . @B@@@@$(0) . @G@@@@ . ***OF )@@G@@**** THE FOLLOWING TAGS ARE SITE CONFIGURATION DEPENDANT ******* @[@@@@OG )@@G@@ . @I@@@@NUMMSTYPES EQU 5 . NUMBER OF MASS STORAOH )@@G@@GE TYPES CONFIGURED @I@@@@NUMSS EQU 3 . NUOI )@@G@@MBER OF MASS STORAGE SUBSYSTEMS CONFIGURED@[@@@@ . @H@@@@ . *********OJ )@@G@@************************************************************* @[@@@@OK )@@G@@ . @G@@@@ . THIS COMPUTES THE FATBL BUFFER SPACE NEEDED BASED ON THE OL )@@G@@RELATIONSHIP@H@@@@ . LENGTH = NUMMSTYPES+(NUMMSTYPES+NUMSS)+[(NUMMSTYOM )@@G@@PES*3)+(NUMSS*16*5)] @F@@@@ . FOR SUBSYSTEM TON )@@G@@BL FOR UNITS TABLE @[@@@@ . @G@@@@ . NOTE: THIS COMPUTES SPACE AOO )@@G@@SSUMING 16 DISK UNITS ON EACH SUBSYSTEM @[@@@@ . @D@@@@FATBLENGTH EOP )@@G@@QU +(NUMMSTYPES*5)+(NUMSS*(16*10)+1) @[@@@@ . @H@@@@ . *********OQ )@@G@@************************************************************* @[@@@@OR )@@G@@. @[@@@@. @E@@@@ . TEST = 1 -> TEST MODE. NO WORK AREA ASG'S AREOS )@@G@@ MADE AND @C@@@@ . ALL CONSOLE MSG ARE READ$,PRINT$ INSTEAD. @E@@@@OT )@@G@@. TEST36 = 1 -> LV36 TEST MODE. MSCON$ IS REPLACED WITH @[@@@@. IOW$OU )@@G@@@^@@@@COMTEST EQU 0 @^@@@@TEST EQU 0 @^@@@@TEST36OV )@@G@@ EQU 0 @[@@@@. @#@@@@UPPLIM '90000 '@[@@@@. @H@@@@OW )@@G@@ . *********************************************************************OX )@@G@@* @#@@@@C$BSORTASG* . @G@@@@RECLNG + 0 OY )@@G@@ . SAVE AREA FOR LINKAGE VALUES @B@@@@VOLUME + 0 OZ )@@G@@ . @B@@@@CORSIZ + 0 . @H@@@@ . ***PA )@@G@@******************************************************************* PB )@@G@@@B@@@@FIXEDTRKS + 0 . @B@@@@SAVX1 + PC )@@G@@ 0 . @B@@@@SAVX3 + 0 . PD )@@G@@@B@@@@SAVX11 + 0 . @^@@@@SAVA0 + PE )@@G@@ 0 @B@@@@SAVR15 + 0 . @B@@@@SAVDBITS + PF )@@G@@ 0 . @^@@@@TOTSIZ + 0 @^@@@@TOTALSPG )@@G@@IZE + 0 @B@@@@RMFWRD + 0 . @B@@@@PH )@@G@@MRFWRD + 0 . @^@@@@MASHFL + 0 PI )@@G@@@B@@@@REMTOT EQUF RMFWRD,,S6 . @B@@@@REMFND EQUF PJ )@@G@@ RMFWRD,,S5 . @B@@@@REMFIX EQUF RMFWRD,,S4 . PK )@@G@@@B@@@@MTOREM EQUF MRFWRD,,S6 . @B@@@@MREMFN EQUF PL )@@G@@ MRFWRD,,S5 . @B@@@@MREMFX EQUF MRFWRD,,S4 . PM )@@G@@@^@@@@REMSIZ + 0 @^@@@@MRMSIZ + 0 @B@@@@MINGRAPN )@@G@@N + 0 . @ @@@@REMASH EQUF MASHFL,,H2PO )@@G@@@ @@@@MRMASH EQUF MASHFL,,H1@B@@@@MAXGRAN + 0 PP )@@G@@ . @^@@@@MASH + 1 @^@@@@MAXOUT + 1 PQ )@@G@@@^@@@@NUMSUB + 0 @^@@@@LEVEL36 + 0 @^@@@@LV4CALPR )@@G@@L + 0 @^@@@@ACOB4 +C$BSORTASG,4 @H@@@@ . ***************PS )@@G@@******************************************************* @B@@@@XAASG PT )@@G@@ '@ASG,T' . @B@@@@XANAME ' XA,' PU )@@G@@ . @H@@@@XADEV ' F40/' . DEVICE TYPE CHPV )@@G@@ANGES FOR FIXED ASG @B@@@@XAMIN ' ' . PW )@@G@@@B@@@@XAGRN '/ TRK/' . @B@@@@XAMAX ' ,PX )@@G@@ ' . @B@@@@XAPAK ' . ' . PY )@@G@@@B@@@@XAASGL EQU $-XAASG . @B@@@@PRT FORM PZ )@@G@@ 12,6,18 . @B@@@@PRTASG PRT 1,XAASGL,XAASG . QA )@@G@@@H@@@@ . ***************************************************************QB )@@G@@******* @C@@@@ASGSF '@ASG,AX SYS$*SORTINFO$. . ' . @C@@@@QC )@@G@@ADDSF '@ADD,E SYS$*SORTINFO$. . ' . @C@@@@FREESF '@FREE QD )@@G@@ SYS$*SORTINFO$. . ' . @^@@@@FREEXX '@FREE,C XA. '@ @@@@FREEXLQE )@@G@@G EQU $-FREEXX @D@@@@BGMSG 'SORT SIZE EXCEEDS MAXIMUM ALLOWQF )@@G@@ED ' . @B@@@@BGMSGL EQU $-BGMSG . @B@@@@BIGMSGQG )@@G@@ PRT 2,BGMSGL,BGMSG . @C@@@@FACMESG ' FAC REJECT - STATUQH )@@G@@S IN A11 ' . @B@@@@FACMESGL EQU $-FACMESG . @B@@@@QI )@@G@@FACMSG PRT 2,FACMESGL,FACMESG . @E@@@@COMSG1 ' SORT NEEDS XQJ )@@G@@XXXXX TRKS ---- XXXXXX TRKS AVAIL '@B@@@@COMSG1L EQU +($-COMSG1QK )@@G@@)*6 . @B@@@@COMSG2 'RUN ROLOUT - THEN RESPOND ' @B@@@@COMSG2QL )@@G@@L EQU +($-COMSG2)*6 . @B@@@@COMSG3 'FIX XX PACKS THEN RQM )@@G@@ESPOND ' @B@@@@COMSG3L EQU +($-COMSG3)*6 . @B@@@@COMPKTQN )@@G@@ + 0 . @B@@@@ +COMSG1L,COMSG1 QO )@@G@@ . @B@@@@ +0,FATBUF . @H@@@@ . ***QP )@@G@@******************************************************************* QQ )@@G@@@H@@@@CARDENTRIES + 4 . NUMBER OF ENTRIES ON EACH QR )@@G@@'FIXED' CARD@B@@@@FIXTAB . @#@@@@ . FIXQS )@@G@@ED CARD @F@@@@MAXSIZ + 65000 . ABSOLUTE SORT QT )@@G@@MAXIMUM @G@@@@MAXFILES + 10 . MAXIMUM NUMBERQU )@@G@@ OF SCRATCH FILES @H@@@@FXROOM + 3200 . MINIMUM QV )@@G@@ROOM TO GAURANTEE ON FIXED @H@@@@NUMFILES + 5 QW )@@G@@ . NUMBER OF FILES TO USE ON FIXED ASSIGN@^@@@@MAX + 1 QX )@@G@@@ @@@@PACKSIZ + 11008 @^@@@@NEEDPK + 6400@^@@@@QY )@@G@@UNITHED + 4 @B@@@@UNITLG + 10 . QZ )@@G@@@B@@@@MINFILES + 3 . @^@@@@ + RA )@@G@@ 0 @^@@@@ + 0 @H@@@@INFOLENGTH + 0 RB )@@G@@ . SAVE LENGTH OF INFOTABLE AFTER READ @G@@@@INFOTABLE RES RC )@@G@@ 3*16*NUMSS . RESERVE 3 WORDS FOR EACH DEVICE @D@@@@. **********RD )@@G@@**************************************** @]@@@@MCTPKT. @^@@@@ RE )@@G@@ +3,FATBUF @#@@@@ +1,0 @#@@@@ +0,0 @D@@@@RF )@@G@@. ************************************************** @G@@@@ ONRG )@@G@@ TEST36 . TURN ON THE PACKET IF LV36 TEST @]@@@@IOPKT3RH )@@G@@6. @^@@@@ 'LV36FAT' @]@@@@ +0@^@@@@ +0RI )@@G@@,020,0,0,0,0@^@@@@ +300,FATPKT @#@@@@ +0,0 @E@@@@RJ )@@G@@ OFF TEST36 . TURN OFF LV36 TEST @H@@@@ . ***RK )@@G@@******************************************************************* RL )@@G@@@B@@@@FATPKT + 01,MSALL$ . @B@@@@ + RM )@@G@@ FATBLENGTH,FATBUF . @G@@@@ + 0 . RN )@@G@@ FATBL LGTH , NBR WORDS XFERED@G@@@@ + 0 RO )@@G@@ . 1ST MS TYPE , LAST MS TYPE @G@@@@ + 0 RP )@@G@@ . 1ST DISK TYPE , LAST DISK TYPE @H@@@@ . *********************RQ )@@G@@************************************************* @^@@@@ . *** FATPKRR )@@G@@T EQUF'S @B@@@@FRSTMSTYPE EQUF FATPKT+3,,H1 . @B@@@@LASTMSRS )@@G@@TYPE EQUF FATPKT+3,,H2 . @B@@@@FRSTDISKTYPE EQUF FATPKT+4,,RT )@@G@@H1 . @B@@@@LASTDISKTYPE EQUF FATPKT+4,,H2 . @H@@@@ . ***RU )@@G@@******************************************************************* RV )@@G@@@^@@@@ . *** FATBUF EQUF'S @B@@@@UNITSTATUS EQUF 0,X3,S1 RW )@@G@@ . @B@@@@UNITSUBSYS EQUF 1,X3,T1 . @B@@@@UNITREGBIT ERX )@@G@@QUF 1,X3,S4 . @B@@@@UNITRAKAVL EQUF 2,X3 RY )@@G@@ . @B@@@@UNITPOSAVL EQUF 2,X3,T3 . @B@@@@UNITPACKID ERZ )@@G@@QUF 4,X3 . @H@@@@ . *********************************SA )@@G@@************************************* @B@@@@FATBUF RES FATBSB )@@G@@LENGTH . @H@@@@ . *********************************************SC )@@G@@************************* @H@@@@/. *********************************SD )@@G@@************************************* @[@@@@ . @#@@@@ . INITIALIZSE )@@G@@E @ @@@@ . PICK UP PARAMETERS @[@@@@ . @H@@@@ . *********SF )@@G@@************************************************************* @B@@@@SG )@@G@@$(1) . @B@@@@SORTASG* SH )@@G@@ . @B@@@@ BEGIN SUBROUTINE,,NOSAVE ; . @G@@@@SI )@@G@@ SAVE,X1,X2,X3,A1,A2,A3,A4,A5,A6,A7,A8,A11,A12,A13,A14,A15,R1,R14,R15 SJ )@@G@@@G@@@@ S X11,SAVX11 . *** ASSUMES CORRECT LINKAGSK )@@G@@E *** @^@@@@ S A0,SAVX11+1@F@@@@ S X3,SAVX3 SL )@@G@@ . *SAVE X3 FOR PARAM REC @E@@@@ SZ LV4CALL SM )@@G@@ . REINIT PROTOCAL @^@@@@ L,U A2,FRSTD$ @^@@@@ L,USN )@@G@@ A3,LASTD$ @A@@@@ IF A2,SPANS,SAVX11+1,,H2 @^@@@@ LSO )@@G@@ A1,0,A0 @^@@@@ IF A1,EQ,ACOB4@^@@@@ DL A2,SSP )@@G@@AVX11 @^@@@@ DSC A2,36 @^@@@@ A,U A2,1 @ @@@@SQ )@@G@@ DS A2,SAVX11 @ @@@@ S A1,LV4CALL @^@@@@SR )@@G@@ S A2,X11 @]@@@@ ENDIF @]@@@@ ENDIF @D@@@@ SPDSS )@@G@@ A0 . GET PSR DBITS @D@@@@ S A0,SAST )@@G@@VDBITS . SAVE FOR LATER@F@@@@ AND,U A0,0167 SU )@@G@@ . TURN OFF QTR WRD MODE @D@@@@ LPD 0,A1 SV )@@G@@ . BACK TO PSR @F@@@@ L,U A0,MCTPKT . CHSW )@@G@@ECK MCT FOR EXEC LEVEL @C@@@@ ER MCT$ . YASX )@@G@@SS @D@@@@ L A0,FATBUF . LEVEL36> IDENT@#@@@@SY )@@G@@ SSL A0,18@E@@@@ TNE,U A0,+'MCT' . LEVEL 36SZ )@@G@@ OR 33? @B@@@@ S A0,LEVEL36 . 36@^@@@@ ON TA )@@G@@ TEST36 @E@@@@ ER OPT$ . CHECK FOTB )@@G@@R OPTIONS @E@@@@ TEP,U A0,2 . IS IT THE Y OPTC )@@G@@TION @^@@@@ S A0,LEVEL36 @^@@@@ OFF TEST36 @H@@@@TD )@@G@@/. *********************************************************************TE )@@G@@* @[@@@@ . @#@@@@ . MAJOR LOOP @C@@@@ . REPEATED UNTIL FTF )@@G@@ILES HAVE BEEN ASSIGNED @[@@@@ . @H@@@@ . ***************************TG )@@G@@******************************************* @B@@@@ SZ A11 TH )@@G@@ . @B@@@@ REPEAT . TI )@@G@@@H@@@@ ESCAPE WHEN A11,IS,NONZ . A11 SET WHEN ASSIGN MADE OTJ )@@G@@R PROBLEMS @B@@@@ OTHERWISE . @H@@@@ . ***TK )@@G@@******************************************************************* TL )@@G@@@[@@@@ . @#@@@@ . FIRST PHASE @C@@@@ . READ INFORMATION FROM TM )@@G@@SYS$*SORTINFO$ @[@@@@ . @H@@@@ . *********************************TN )@@G@@************************************* @B@@@@ L X1,(3,INFTO )@@G@@OTABLE) . @B@@@@ L X2,(1,FIXTAB) . @B@@@@TP )@@G@@ L A0,(5,ASGSF) . @F@@@@ ER CSF$ TQ )@@G@@ . '@ASG,AX SYS$*SORTINFO$' @I@@@@ IF A0,IS,POSTR )@@G@@ . CAN'T GET FILE - USE DEFAULTS FOR FIXED @B@@@@ TS )@@G@@ L A0,(5,ADDSF) . @F@@@@ ER CSF$ TT )@@G@@ . '@ADD,E SYS$*SORTINFO$' @B@@@@ REPEAT TU )@@G@@ . @G@@@@ READ$ FATBUF,,U . READ CARD IMAGTV )@@G@@E INTO FATBUF @G@@@@ ESCAPE WHEN NEG,IN,0,A0,XU . GET OUT TW )@@G@@ON EOF - AUTOMAGICALLY @B@@@@ OTHERWISE . TX )@@G@@@G@@@@ IF A0,EVENP,(020000,0) . IF IMAGE IS INFOR - SKIP ITY )@@G@@T @B@@@@ DL A1,FATBUF . @B@@@@ ITZ )@@G@@F A1,EQ,('FIXED ') . @F@@@@ L X3,(1,FATBUF+UA )@@G@@1) . GET 'FIXED' CARD INFO @C@@@@ REPEAT VARY,R15 FOR,CARUB )@@G@@DENTRIES . @B@@@@ L A2,0,*X3 . @E@@@@ UC )@@G@@ CALL FDTB . CONVERT TO BINARY @E@@@@ UD )@@G@@ S A2,0,*X2 . AND STACK IN FIXTAB @B@@@@ ENDREUE )@@G@@P . @B@@@@ ELSE . UF )@@G@@@G@@@@ S A1,0,X1 . REMOVABLE PACKID TO INFOTAUG )@@G@@BLE @B@@@@ IF A2,NE,('SORTPK') . @G@@@@ UH )@@G@@ CALL FDTB . CONVERT TRACK INFO TO BINARY @B@@@@ UI )@@G@@ ENDIF . @F@@@@ S A2,1,X1UJ )@@G@@ . AND STACK IT IN INFOTABLE @A@@@@ L A2,FATBUK )@@G@@UF+2 @A@@@@ S A2,2,*X1 @B@@@@ ENDIF UL )@@G@@ . @B@@@@ ENDIF . UM )@@G@@@B@@@@ ENDREP . @G@@@@ LXM AUN )@@G@@0,X1 . COMPUTE NUM ENTRIES IN INFOTABLE@B@@@@ AN,U UO )@@G@@ A0,INFOTABLE . @H@@@@ SSL A0,1 UP )@@G@@ . DIVIDE BY 2 TO GET NUM OF ENTRIES @D@@@@ S A0,INFOUQ )@@G@@LENGTH . SAVE FOR LATER@B@@@@ ENDIF UR )@@G@@ . @D@@@@ L X11,SAVX11 . RESTORE X11 @D@@@@US )@@G@@ L X3,SAVX3 . RESTORE X3 @E@@@@ L UT )@@G@@ A0,*0,X11 . GET RECORD LENGTH @C@@@@ S A0,REUU )@@G@@CLNG . SAVE @D@@@@ L A0,*1,X11 UV )@@G@@ . GET VOLUME @C@@@@ S A0,VOLUME . SAVE UW )@@G@@@D@@@@ L A0,*2,X11 . GET CORE SIZE @C@@@@ MI,UX )@@G@@U A0,3 . TIMES 3 @E@@@@ DI,U A0,1792 UY )@@G@@ . CONVERT TO TRACKS @B@@@@ IF A0,LT,25,,U UZ )@@G@@ . @F@@@@ L,U A0,25 . MUST BE AT LEAVA )@@G@@ST 25 TRKS @G@@@@ ENDIF . FOR MAX TRACKSVB )@@G@@ COMPUTATION LATER@C@@@@ S A0,CORSIZ . SAVE VC )@@G@@@G@@@@ L A0,*3,X11 . GET NUM FILES TO TRY TO ASVD )@@G@@SIGN @G@@@@ IF A0,GT,MAXFILES . IF LARGER THAN MAX NVE )@@G@@UM OF FILES @D@@@@ L A0,NUMFILES . MAKE IT MAX VF )@@G@@@]@@@@ ENDIF @E@@@@ IF A0,LT,MINFILES . MINIMUM VG )@@G@@OF MINFILES @B@@@@ L A0,NUMFILES . @B@@@@ ENDVH )@@G@@IF . @C@@@@ S A0,NUMFILES VI )@@G@@ . SAVE @E@@@@ L A0,UPPLIM . MAX FOR VJ )@@G@@DUMMY ASG @E@@@@ S A0,XAMAX . SET IT IN MAX VK )@@G@@FIELD @A@@@@ L A0,(' ') @E@@@@ S VL )@@G@@ A0,XAMIN . SET MIN TO SPACES @D@@@@ L,U A0,+'XA,' VM )@@G@@ . REINIT XA @C@@@@ S,H2 A0,XANAME VN )@@G@@ . DO IT @C@@@@ SSL A0,6 . SHIFT OFF FOR FREEXX BUF @C@@@@VO )@@G@@ AN,U A0,1 . SET IT EQUAL TO SPACE @D@@@@ S,T2 A0,FREEXVP )@@G@@X+1 . PUT IN BUFF @]@@@@ SZ A0@#@@@@ L,U A1VQ )@@G@@,26 @#@@@@ REPEAT JGD,A1 @ @@@@ ESCAPE WHEN A0,IS,NONZ @]@@@@VR )@@G@@ OTHERWISE@C@@@@ L,T2 A0,FREEXX+1 . ZAP @C@@@@VS )@@G@@ A,U A0,1 . ZAP+1 @E@@@@ S,T2 VT )@@G@@A0,FREEXX+1 . PUT IT IN BUFFER @D@@@@ L A0,(FRVU )@@G@@EEXLG,FREEXX) . FREE XX FILES @C@@@@ ER CSF$ VV )@@G@@ . DOIT @]@@@@ ENDREP @D@@@@ L,U A0,XAASG VW )@@G@@ . ADDR OF XA @D@@@@ LXI,U A0,6 . NUM OF WVX )@@G@@RDS @D@@@@ ER CSF$ . DO THE ASG @E@@@@VY )@@G@@ L,U A0,+'XB,' . START NOW WITH XB @D@@@@ S,HVZ )@@G@@2 A0,XANAME . GOT IT NOW @H@@@@/. ***************WA )@@G@@******************************************************* @[@@@@ . WB )@@G@@@#@@@@ . SECOND PHASE @E@@@@ . CHECK SORT SIZE REQUESTED AGAINST WC )@@G@@'MAXSIZ' PARAM @#@@@@ . GET FATBL @F@@@@ . LOOP THRU DISC UWD )@@G@@NITS - DETERMINE IF UNIT IS AVAILABLE @[@@@@ . @H@@@@ . *********WE )@@G@@************************************************************* @F@@@@WF )@@G@@ L A0,RECLNG . TOTAL SCRATCH SPACE NEEDED@C@@@@WG )@@G@@ MSI A0,VOLUME . IN WORDS@E@@@@ MI,U A0,WH )@@G@@220 . COMPUTE TRACKS * 1.5@G@@@@ DSL A0,18 WI )@@G@@ . THIS IS GSM'S APPROXIMATION @D@@@@ S A1,WJ )@@G@@TOTSIZ . SAVE FOR LATER@G@@@@ IF A1,GT,MAXSIZ ORWK )@@G@@ A1,IS,NEG . REQUEST TOO BIG ? @F@@@@ L,U A11,-1 WL )@@G@@ . GET OUT WITH 'BAD' STATUS @B@@@@ L A0,(5,FWM )@@G@@REESF) . @F@@@@ ER CSF$ . '@FREE WN )@@G@@ SYS$*SORTINFO$.' @F@@@@ L A0,BIGMSG . REQUEST WO )@@G@@EXCEEDS MAXSIZE @F@@@@ ER PRINT$ . REQUEST WP )@@G@@EXCEEDS MAXSIZE @D@@@@ ER ERR$ . *** ERROWQ )@@G@@R *** @F@@@@ ENDIF . REQUEST O.K. - LET'SWR )@@G@@ DOIT @B@@@@ L,U A0,FATPKT . @D@@@@ ER WS )@@G@@ MSCON$ . GET FATBL @B@@@@ IF A0,IS,NEGWT )@@G@@ . @B@@@@ S A0,A1 . @B@@@@WU )@@G@@ L A0,(5,FREESF) . @F@@@@ ER CSF$ WV )@@G@@ . '@FREE SYS$*SORTINFO$.' @G@@@@ ER ERR$ WW )@@G@@ . THIS IS DIRTY - BUT IT WORKS @B@@@@ ENDIF WX )@@G@@ . @E@@@@ ON TEST36 . TUWY )@@G@@RN ON TEST MODE @A@@@@ IF NONZ,IN,LEVEL36 @D@@@@ LWZ )@@G@@,U A0,IOPKT36 . DO THE IO @C@@@@ ER IOWXA )@@G@@$ . DO IT @C@@@@ IF NONZ,IN,IOPKT36+3,,S1XB )@@G@@ . BAD ST @E@@@@ ER ERR$ . QUICK AND DIRTXC )@@G@@Y @]@@@@ ENDIF @#@@@@ ENDIF @E@@@@ OFF TESXD )@@G@@T36 . TURN OFF TEST MODE @H@@@@ SZ A4 XE )@@G@@ . AVAILABLE FIXED TRACK ACCUMULATOR @B@@@@ L XF )@@G@@ A0,LASTDISKTYPE . @B@@@@ ANU A0,FRSTDISKTYPE XG )@@G@@ . @B@@@@ L A0,FRSTDISKTYPE . @B@@@@ AN XH )@@G@@ A0,FRSTMSTYPE . @G@@@@ L,U X1,FATBUF,A0 XI )@@G@@ . X1 => 1ST DISK POINTER IN FATBL @D@@@@ IF NONZ,IN,LEVEL36XJ )@@G@@ . IF ITS 36 @F@@@@ AX,U X1,1 . ADXK )@@G@@D ANOTHER WRD TO START @]@@@@ ENDIF @B@@@@ LXI,U X1,1 XL )@@G@@ . @D@@@@ S X1,SAVX1 . SAVE FORXM )@@G@@ LATER@F@@@@ A,U A1,1 . SET UP FOR LOOP CONTXN )@@G@@ROL @F@@@@ L R15,A1 . SET UP FOR LOOP CONTXO )@@G@@ROL @D@@@@ S R15,SAVR15 . SAVE FOR LATER@G@@@@XP )@@G@@ REPEAT JGD,R15 . FOR EACH DISC EQUIP TYPE ENTRY XQ )@@G@@@F@@@@ L A0,0,*X1 . X2 => START OF UNIT TABLE XR )@@G@@@F@@@@ SSC A0,18 . NEED OTHER HALF FOR 33 XS )@@G@@@H@@@@ L,U X3,FATBUF,A0 . X3 => INDIVIDUAL ENTRY IN XT )@@G@@UNIT TBL @C@@@@ IF NONZ,IN,LEVEL36 . IF 36 @F@@@@XU )@@G@@ SSC A0,18 . NEED OTHER HALF FOR 36 @B@@@@XV )@@G@@ ELSE . 33@F@@@@ AX X3,UNXW )@@G@@ITHED . COMPENSATE FOR HEADER AREA@]@@@@ ENDIF@B@@@@ XX )@@G@@ LXI X3,UNITLG . @E@@@@ S A0,X2 XY )@@G@@ . USE X2 FOR INDEX @H@@@@ REPEAT VARY,R14 FOR,FATBUF,X2XZ )@@G@@,T1 . FOR EACH UNIT OF THIS EQUIP TYPE @G@@@@ SZ A3 YA )@@G@@ . ZERO IMPLIES UNIT IS AVAILABLE @A@@@@ IF YB )@@G@@ ZERO,IN,LEVEL36 @G@@@@ IF NONZ,IN,UNITSTATUS . UNIT RV/YC )@@G@@SU/DN, SATURATED, ETC.? @B@@@@ L,XU A3,-1 . YD )@@G@@@B@@@@ ENDIF . @B@@@@ L YE )@@G@@ A0,UNITREGBIT . @F@@@@ IF A0,ODDP,020,,U . REYF )@@G@@GISTRATION IN PROGRESS ?@B@@@@ L,XU A3,-1 . YG )@@G@@@B@@@@ ENDIF . @I@@@@ IF NEG,YH )@@G@@IN,UNITPOSAVL . PACK NEEDS LBL CHECK, UNIT IS ADH, ETC. @B@@@@YI )@@G@@ L,XU A3,-1 . @B@@@@ ENDIF YJ )@@G@@ . @E@@@@ L A0,UNITRAKAVL . AREA FORYK )@@G@@ LV33 PAKID @D@@@@ SSL A0,18 . PUT IT DOWN YL )@@G@@@A@@@@ S A0,UNITRAKAVL @B@@@@ DL A1,YM )@@G@@3,X3 . @G@@@@ IF A1,IS,NEG,SHIFT . RV/UP - YN )@@G@@UP/RV INDICATOR SET ? @B@@@@ L,XU A3,-1 . YO )@@G@@@B@@@@ ENDIF . @D@@@@ ELSE YP )@@G@@ . IF IT IS LV36 @E@@@@ IF NONZ,IN,2YQ )@@G@@,X3 . BAD STATUS IF NONZ @D@@@@ L,XU A3,-1 YR )@@G@@ . NO AVAILABLE @#@@@@ ENDIF @E@@@@ L A1,YS )@@G@@3,X3 . MAYBE THIRD WRD TOO @D@@@@ SZ A0 YT )@@G@@ . SET UP A0 @ @@@@ DSC A0,2 @D@@@@ YU )@@G@@ IF A1,IS,NONZ . BAD STATUS @D@@@@ L,XU YV )@@G@@ A3,-1 . UNAVAILABLE @#@@@@ ENDIF @E@@@@ YW )@@G@@ DL A1,7,X3 . PACKID AND ROOM @D@@@@ DYX )@@G@@SC A1,36 . REARRANGE @A@@@@ S A1,YY )@@G@@UNITRAKAVL @A@@@@ S A2,UNITPACKID @D@@@@ SYZ )@@G@@ A0,A1 . FIXED BIT @#@@@@ ENDIF @H@@@@ZA )@@G@@ IF A2,EQ,('EXEC 8') OR ZERO,IN,A2 . PREPPING OR NO PACK MOUNTEDZB )@@G@@ ? @B@@@@ L,XU A3,-1 . @B@@@@ ENDZC )@@G@@IF . @E@@@@ IF A3,IS,ZERO ZD )@@G@@ . IF UNIT IS AVAILABLE@D@@@@ IF A1,IS,NEG . FOZE )@@G@@R FIXED PACK@G@@@@ A A4,UNITRAKAVL . ACCUMULATE FIXZF )@@G@@ED SPACE AVAIL @H@@@@ L,XU A3,-1 . INDICATEZG )@@G@@ UNAVAILABLE FOR REMOVEABLE @E@@@@ ELSE ZH )@@G@@ . FOR REMOVABLE PACK @H@@@@ IF LOOKFOR A2,EQ,INFOTABLE ZI )@@G@@; . SEARCH FOR PACK-ID IN INFOTAB @F@@@@ VARY,X4,OFFSET ZJ )@@G@@FROM,0,,U BY,3,,U FOR,INFOLENGTH @E@@@@ L A0,ZK )@@G@@INFOTABLE+2,X4 . FACILITY TYPE@E@@@@ S A0,3,X3 ZL )@@G@@ .PUT IT IN THE AREA @G@@@@ L A0,INFOTABLE+1,X4ZM )@@G@@ . TABLE INFO FOR REMOV PACK @C@@@@ IF A0,EQ,('SORZN )@@G@@TPK') . @B@@@@ L A0,('SORTUP') .@C@@@@ ZO )@@G@@ S A0,INFOTABLE+1,X4 . @B@@@@ ELSE ZP )@@G@@ . @G@@@@ L A1,UNITRAKAVL . SPACEZQ )@@G@@ AVAIL ON THIS PACK @F@@@@ AN A1,A0 . ADZR )@@G@@JUSTED BY TABLE VALUE @F@@@@ S A1,UNITRAKAVL .ZS )@@G@@ STORED BACK IN FATBL @B@@@@ ENDIF . ZT )@@G@@@D@@@@ ELSE . ON NOFIND @E@@@@ ZU )@@G@@ L,XU A3,-1 . ASSUME UNAVAILABLE @B@@@@ ZV )@@G@@ ENDIF . @B@@@@ ENDIF ZW )@@G@@ . @B@@@@ ENDIF . @F@@@@ IF ZX )@@G@@ A3,IS,NONZ . IF PACK IS 'UNAVAILABLE' @F@@@@ SZY )@@G@@ A3,UNITRAKAVL . SET TRACKS AVAIL TO -1 @B@@@@ ENDZZ )@@G@@IF . @B@@@@ NOP 0,0,*X3 AA )@@G@@ . @B@@@@ ENDREP . @B@@@@ ENDREP AB )@@G@@ . @F@@@@ S A4,FIXEDTRKS AC )@@G@@ . SAVE AVAILABLE FIXED SPACE@E@@@@/. *********************************AD )@@G@@********************* @[@@@@ . * @[@@@@ . * @C@@@@ . * PHASE 3 - LOAE )@@G@@CATE AND ALLOCATE WORK SPACE @F@@@@ . * USING THE FOLLOWING ALGORITHM TAF )@@G@@ = ((RZ*V*N)*(1.5))/(N-1). @A@@@@ . * WHERE T = TOTAL AREA NEEDED AG )@@G@@@A@@@@ . * RZ = RECORD SIZE IN WORDS @A@@@@ . * V = NUMBER OFAH )@@G@@ RECORDS @B@@@@ . * N = NUMBER OF FILES TO ASG @A@@@@ . * AI )@@G@@ 1.5 = THE SAFETY FACTOR @ @@@@ . * NOTE: THE MINIMUM N = 3 @C@@@@AJ )@@G@@ . * THE SEARCHING ALGORITHM TAKES PLACE IN THE @^@@@@ . * FOLLOWING SEQAK )@@G@@UENCE:@E@@@@ . * (1) SEARCH FOR 3 < N < NUMFILES OR USER NUMFILES < MAX AL )@@G@@@ @@@@ . * ON REMOVEABLE DISC. @E@@@@ . * (2) SEARCH FOR 3 < N < NUAM )@@G@@MFILES OR USER NUMFILES < MAX @E@@@@ . * ON A COMBINATION OF REMOVEAAN )@@G@@BLE AND FIXED DISC. @D@@@@ . * (3) SEARCH FOR NUMFILES < N 0 ALLOCATE THEM @D@@@@ L CX )@@G@@ A1,REMSIZ . SIZE OF FILES @F@@@@ CALL,X10 ALLOREM CY )@@G@@ . OK GET THEM ON REMOVABLE @#@@@@ ENDIF @F@@@@ CZ )@@G@@ L A6,REMFIX . NUMBER OF FIXED FILES @E@@@@ DA )@@G@@ L A1,REMSIZ . SIZE OF EACH FILE @F@@@@ CADB )@@G@@LL,X10 ALLOFIX . AND GET THEM ON FIXED @D@@@@ IFDC )@@G@@ A11,IS,POS . CHECK IT OUT @D@@@@ L,U A11,DD )@@G@@1 . SET IT NONZ @#@@@@ ENDIF @[@@@@ ENDIF@[@@@@DE )@@G@@ ENDIF@[@@@@ ENDIF@#@@@@ ENDREP @B@@@@ IF A11,IS,NEGDF )@@G@@ . @F@@@@ L A0,(5,FREESF) . CAN'DG )@@G@@T DO ANYTHING ELSE@G@@@@ ER CSF$ . '@FREEDH )@@G@@ SYS$*SORTINFO$.' @E@@@@ L A0,FACMSG . DI )@@G@@FAC REJECT MESSAGE@E@@@@ ER PRINT$ . FAC REDJ )@@G@@JECT MESSAGE@E@@@@ ER ERR$ . *** ERROR **DK )@@G@@* @B@@@@ ENDIF .@G@@@@ IFDL )@@G@@ A11,IS,ZERO . NOT ENOUGH SPACE - PUT OUT CONSOLE MSG @F@@@@ DM )@@G@@ L A1,TOTSIZ . SETUP FOR TOTALSIZE NEEDED @F@@@@ DN )@@G@@ S A1,A12 . NUMBER OF TRACKS NEEDED @B@@@@ DO )@@G@@ CALL BTFD . @B@@@@ CALL SPACER DP )@@G@@ . @E@@@@ S A12,COMSG1+2 . TO OPERATOR MEDQ )@@G@@SSAGE @F@@@@ L A12,FIXEDTRKS . AMOUNT OF FIXED AVAIDR )@@G@@LABLE @B@@@@ CALL BTFD . @B@@@@ DS )@@G@@CALL SPACER . @E@@@@ S A12,COMSG1+5 DT )@@G@@ . TO OPERATOR MESSAGE @B@@@@ L A0,(5,FREESF) . DU )@@G@@@F@@@@ ER CSF$ . '@FREE SYS$*SORTINFO$.' DV )@@G@@@C@@@@ L A0,(COMSG1L,COMSG1) . @B@@@@ DW )@@G@@S A0,COMPKT+1 . @B@@@@ SZ COMPKT+2 DX )@@G@@ . @B@@@@ L,U A0,COMPKT . @ @@@@ ONDY )@@G@@ 1-COMTEST @H@@@@ ER COM$ . 'SORT NEDZ )@@G@@EDS XXX TRKS - XXX TRKS AVAIL'@ @@@@ OFF 1-COMTEST @ @@@@EA )@@G@@ ON COMTEST @E@@@@ LMJ X11,COMUN EB )@@G@@ . CHECK OUT CONSOLE @ @@@@ OFF COMTEST @F@@@@ EC )@@G@@ IF A1,LT,NEEDPK . NOT TOO MUCH FOR ROLOUT @C@@@@ ED )@@G@@ L A0,(COMSG2L,COMSG2) . @B@@@@ S A0EE )@@G@@,COMPKT+1 . @B@@@@ SZ COMPKT+2 . @B@@@@EF )@@G@@ L,U A0,COMPKT . @ @@@@ ON 1-COEG )@@G@@MTEST @G@@@@ ER COM$ . 'RUN ROLOUT - THEN REH )@@G@@ESPOND' @ @@@@ OFF 1-COMTEST @ @@@@ ON EI )@@G@@ COMTEST @E@@@@ LMJ X11,COMUN . CHECK OUT CONSEJ )@@G@@OLE @ @@@@ OFF COMTEST @B@@@@ ENDIF EK )@@G@@ . @F@@@@ SZ A0 . SET UP NEL )@@G@@UMBER OF PACKS @F@@@@ DI A0,PACKSIZ . CONFIG NEM )@@G@@UMBER OF PACKS @ @@@@ IF A0,IS,ZERO@E@@@@ A,EN )@@G@@U A0,1 . MAKE SURE NONZERO @#@@@@ ENDIF EO )@@G@@@D@@@@ S A0,A12 . SET UP BTFD @B@@@@ EP )@@G@@ CALL BTFD . @B@@@@ CALL SPACER EQ )@@G@@ . @E@@@@ S,T3 A12,COMSG3 . NUMBER OF PACKER )@@G@@S @I@@@@ L A0,(COMSG3L,COMSG3) ES )@@G@@ . # OF PACKS@A@@@@ S A0,COMPKT+1 @C@@@@ET )@@G@@ L A0,(1,FATBUF) . RESP @A@@@@ S EU )@@G@@ A0,COMPKT+2 @B@@@@ L,U A0,COMPKT . @D@@@@EV )@@G@@ ON 1-COMTEST . PRODUCTION @D@@@@ EREW )@@G@@ COM$ . GO TO CONSOLE @D@@@@ OFF 1-COEX )@@G@@MTEST . PRODUCTION @C@@@@ ON COMTEST EY )@@G@@ . TEST @D@@@@ CALL COMUN . GO TO TREAD$ EZ )@@G@@@C@@@@ OFF COMTEST . TEST @B@@@@ ENDFA )@@G@@IF . @B@@@@ ENDREP FB )@@G@@ . @B@@@@ L A0,(5,FREESF) . @F@@@@ ER FC )@@G@@CSF$ . '@FREE SYS$*SORTINFO$.' @B@@@@ L FD )@@G@@X11,SAVX11 . @B@@@@ L X3,SAVX3 FE )@@G@@ . @F@@@@ IF A11,EQ,1,,U . ASSIGNS HAVE BEEN MAFF )@@G@@DE @B@@@@ SZ *3,X11 . @B@@@@ ELSE FG )@@G@@ . @B@@@@ S A11,*3,X11 FH )@@G@@ . @B@@@@ ENDIF . @E@@@@ L FI )@@G@@A0,SAVDBITS . RESTORE DBITS IN PSR@E@@@@ LPD 0,A0 FJ )@@G@@ . RESTORE DBITS IN PSR@ @@@@ IF NONZ,IN,LV4CFK )@@G@@ALL @ @@@@ L X11,SAVX11+1 @[@@@@ ELSE@C@@@@ A,U FL )@@G@@ X11,4 . @]@@@@ ENDIF @E@@@@ ENDBEG FM )@@G@@ . RETURN TO CALLER @H@@@@/. ***************FN )@@G@@******************************************************* @[@@@@ . FO )@@G@@@ @@@@ . REMOVEABLE SEARCH ALGORITHM@E@@@@ . ATTEMPT TO LOCATE SUITABLEFP )@@G@@ WORK AREAS ON REMOVABLE DISC @[@@@@ . @E@@@@. FIRST - BY RUNNIFQ )@@G@@NG A DESCENDING SEARCH KEEPING TRACK@E@@@@ . OF MAX COMBINATION FR )@@G@@OF FILE SIZE AND NUM OF FILES @H@@@@ . *********************************FS )@@G@@************************************* @[@@@@SRCREM@^@@@@ BEGIN SUBROFT )@@G@@UTINE,X10 @B@@@@ REPEAT . @I@@@@ FU )@@G@@ESCAPE WHEN A6,LT,3,,U OR A5,IS,NONZ . A5 SET WHEN FILES CAN BE ASSIGNFV )@@G@@ED @B@@@@ OTHERWISE . @F@@@@ CALLFW )@@G@@ SIZECOMP . CALC FILE MIN AND MAX @E@@@@ DSL FX )@@G@@ A2,72 . INITIALIZE TO ZERO @E@@@@ SSL FY )@@G@@A4,36 . INITIALIZE TO ZERO @B@@@@ L X1,SAVFZ )@@G@@X1 . @B@@@@ L R15,SAVR15 . @D@@@@GA )@@G@@ SZ A5 . INIT MS SAVER @G@@@@ REPEGB )@@G@@AT JGD,R15 . FOR EACH DISC EQUIP TYPE ENTRY @F@@@@ GC )@@G@@ L A0,0,*X1 . X2 => START OF UNIT TABLE @F@@@@ GD )@@G@@ SSC A0,18 . NEED THE OTHER HALF FOR 33@G@@@@ GE )@@G@@ L,U X3,FATBUF,A0 . X3 => INDIVIDUAL ENTRY IN UNIT TBL@C@@@@GF )@@G@@ IF NONZ,IN,LEVEL36 . LV36 @F@@@@ SSC GG )@@G@@ A0,18 . NEED OTHER HALF FOR 36 @B@@@@ ELSE GH )@@G@@ . 33@F@@@@ AX X3,UNITHED . COGI )@@G@@MPENSATE FOR HEADER @#@@@@ ENDIF @E@@@@ S GJ )@@G@@ A0,X2 . USE X2 AS INDEX @B@@@@ LXI X3,UGK )@@G@@NITLG . @H@@@@ REPEAT VARY,R14 FOR,FATBUF,X2,T1 . FORGL )@@G@@ EACH UNIT OF THIS EQUIP TYPE @B@@@@ IF A1,LE,UNITRAKAGM )@@G@@VL . @E@@@@ L A8,UNITRAKAVL . HOW MANY ON ONE PACKGN )@@G@@@D@@@@ SZ A7 . SET UP DIVIDE @C@@@@ GO )@@G@@ DI A7,A1 . DIVIDE @D@@@@ A A5,AGP )@@G@@7 . ADD IT UP @G@@@@ A,U A2,1 GQ )@@G@@ . COUNT OF UNITS WITH ENOUGH SPACE@B@@@@ IF A3,NE,GR )@@G@@UNITSUBSYS .@H@@@@ A,U A4,1 . COUNT OF SUBSYGS )@@G@@STEMS WITH ENOUGH SPACE @H@@@@ L A3,UNITSUBSYS .GT )@@G@@ CURRENT SUBSYSTEM NUMBER INTO A3 @B@@@@ ENDIF GU )@@G@@ . @B@@@@ ENDIF . @B@@@@ GV )@@G@@ NOP 0,0,*X3 . @B@@@@ ENDREP GW )@@G@@ . @B@@@@ ENDREP . @G@@@@ GX )@@G@@ IF A2,LT,A6 . IF WE DID NOT FIND ENOUGH UNITS @E@@@@GY )@@G@@ L A0,REMFND . HOW MANY DID WE GET @E@@@@ GZ )@@G@@ MSI A0,REMSIZ . HOW MUCH DO WE HAVE @E@@@@ S HA )@@G@@ A2,A7 . SET UP CURRENT MULT @E@@@@ MSI HB )@@G@@ A7,A1 . TOTAL CURRENT SIZ @G@@@@ IF A7,GHC )@@G@@T,A0 . IF CURRENT IS BIGGER THAN OLD @C@@@@ S HD )@@G@@ A6,REMTOT . GOTCHA @D@@@@ S A2,REMFND HE )@@G@@ . MAKE IT OLD @D@@@@ S A1,REMSIZ . MAKE IT HF )@@G@@OLD @F@@@@ S A5,REMASH . HOW MANY ON EACH PACHG )@@G@@K @[@@@@ ENDIF@^@@@@ SZ A5 @D@@@@ IF HH )@@G@@ ZERO,IN,MAXOUT . MAXING IS ON @^@@@@ A,U A6,1@#@@@@HI )@@G@@ ELSE @H@@@@ L A6,A2 . SEE IF FHJ )@@G@@EWER UNITS HAVE ENOUGH SPACE @#@@@@ ENDIF @B@@@@ ELSEHK )@@G@@ . @H@@@@ L,U A5,1 HL )@@G@@ . WE DID HAVE ENOUGH UNITS - GET OUT @D@@@@ S A1,RHM )@@G@@EMSIZ . SAVE SIZE @B@@@@ ENDIF HN )@@G@@ . @E@@@@ IF A6,GT,MAXFILES . A6 IS OUT OF RANGE HO )@@G@@@E@@@@ L,U A6,1 . SET IT BELOW MINIMUM@#@@@@HP )@@G@@ ENDIF @D@@@@ S A4,NUMSUB . SAVE NUMHQ )@@G@@ OF SS@B@@@@ ENDREP . @B@@@@ IFHR )@@G@@ A5,IS,ZERO . @ @@@@ IF ZERO,IN,REMFND @F@@@@HS )@@G@@ L A0,NUMFILES . DEFAULT NUMB OF FILES @F@@@@HT )@@G@@ S A0,REMTOT . DEFAULT NUMB OF FILES @#@@@@HU )@@G@@ ENDIF @ @@@@ L A0,REMTOT @B@@@@ ANHV )@@G@@ A0,REMFND . @B@@@@ S A0,REMFIX HW )@@G@@ . @#@@@@ ENDIF @]@@@@ ENDBEG @H@@@@ . ***************HX )@@G@@******************************************************* @F@@@@ . ***HY )@@G@@ IF WE FOUND THE SPACE ON REMOVEABLE - MAKE THE ASSIGNS @H@@@@ . ***HZ )@@G@@******************************************************************* IA )@@G@@@]@@@@ALLOREM @^@@@@ BEGIN SUBROUTINE,X10 @A@@@@ L IB )@@G@@ A0,(', ') @C@@@@ S A0,XAMAX+1 . YAHTZI IC )@@G@@@G@@@@ L,U A3,-1 . INITIALIZE CURRENT SS # TOID )@@G@@ -1 @G@@@@ SZ A5 . A5 IS FILES ASSIGNEDIE )@@G@@ COUNTER @H@@@@. L A12,MINGRAN . IF )@@G@@ (MIN=MAX ON REM) @H@@@@. CALL BTFD . IG )@@G@@ (MIN=MAX ON REM) @H@@@@. CALL SPACER IH )@@G@@ . (MIN=MAX ON REM) @H@@@@. S II )@@G@@A12,XAMIN . BUILD @ASG IMAGE (MIN=MAX ON REM) @B@@@@ IJ )@@G@@ L A12,REMSIZ . @B@@@@ CALL BTFD IK )@@G@@ . @B@@@@ CALL SPACER . @F@@@@ IL )@@G@@ S A12,XAMAX . BUILD @ASG IMAGE MAXIMUM @H@@@@ IM )@@G@@ S A12,XAMIN . AND MINIMUM (MIN=MAX ON REM) IN )@@G@@@^@@@@ L,U A7,1@ @@@@ L A4,NUMSUB @#@@@@IO )@@G@@ REPEAT @A@@@@ ESCAPE WHEN A7,IS,ZERO ; @^@@@@ IP )@@G@@ OR A11,IS,NONZ@^@@@@ OTHERWISE @^@@@@ SZ IQ )@@G@@ A7 @B@@@@ L X1,SAVX1 . @B@@@@ L IR )@@G@@ R15,SAVR15 . @B@@@@ REPEAT JGD,R15 IS )@@G@@ . @B@@@@ L A0,0,*X1 . @B@@@@ SSIT )@@G@@C A0,18 . @B@@@@ L,U X3,FATBUF,A0 IU )@@G@@. @C@@@@ IF NONZ,IN,LEVEL36 . IF 36 @B@@@@ IV )@@G@@ SSC A0,18 . @#@@@@ ELSE @F@@@@ IW )@@G@@ AX X3,UNITHED . COMPENSATE FOR HEADER @#@@@@ IX )@@G@@ ENDIF @E@@@@ S A0,X2 . USE X2 AS INDEIY )@@G@@X @B@@@@ LXI X3,UNITLG . @C@@@@ REIZ )@@G@@PEAT VARY,R14 FOR,FATBUF,X2,T1 . @G@@@@ ESCAPE WHEN A5,GE,A6JA )@@G@@ ; . A6 IS NUMBER OF FILES TO ASSIGN @G@@@@ OR A11,JB )@@G@@IS,NONZ . A11 SET NEGATIVE IF PROBLEMS @B@@@@ OTHERWISJC )@@G@@E . @H@@@@ IF A3,NE,UNITSUBSYS . MJD )@@G@@AKE ASSIGN IF THIS IS A NEW SUBSYS @H@@@@ IF A1,LE,JE )@@G@@UNITRAKAVL . AND THIS PACK HAS ENOUGH SPACE @A@@@@ IF JF )@@G@@ ZERO,IN,MASH @A@@@@ L A7,UNITRAKAVL @ @@@@ JG )@@G@@ AN A7,A1 @A@@@@ S A7,UNITRAKAVL @#@@@@JH )@@G@@ ENDIF @B@@@@ L A0,UNITPACKID .@B@@@@JI )@@G@@ S A0,XAPAK . @F@@@@ L A0,3JJ )@@G@@,X3 . GET THE FACILITY TYPE @B@@@@ S A0,XJK )@@G@@ANAME+1 . @C@@@@ L A0,(XAASGL,XAASG) . JL )@@G@@@ @@@@ ON 1-TEST @H@@@@ ER CSF$JM )@@G@@ . '@ASG,T XA.,F33/XXX/ TRK/XXX,PACKID' @ @@@@ OFF JN )@@G@@ 1-TEST @E@@@@ IF A0,IS,NEG . ASSIGN PROBLEMJO )@@G@@S ? @F@@@@ S A0,A11 . YES - GET OUT OF LOOJP )@@G@@P @B@@@@ ELSE . @B@@@@ JQ )@@G@@ L A0,PRTASG . @B@@@@ ER PRINT$ JR )@@G@@ . @G@@@@ A,U A5,1 . INCREMENT ASSIGNED FJS )@@G@@ILE COUNTER @B@@@@ L,S5 A0,XANAME . @B@@@@ JT )@@G@@ A,U A0,1 . @B@@@@ S,S5 A0JU )@@G@@,XANAME . @H@@@@ IF A6,LE,A4 . ENOUGH SUB SYSJV )@@G@@ FOR SEPARATE ASG'S? @G@@@@ L A3,UNITSUBSYJW )@@G@@S . THEN FORCE ASG TO NEXT SS@B@@@@ ENDIF JX )@@G@@ . @B@@@@ ENDIF . @B@@@@ JY )@@G@@ ENDIF . @B@@@@ ENDIF JZ )@@G@@ . @B@@@@ NOP 0,0,*X3 . @B@@@@ ENKA )@@G@@DREP . @B@@@@ ENDREP KB )@@G@@ . @B@@@@ ENDREP . @]@@@@ ENDBEG KC )@@G@@@H@@@@/. ***************************************************************KD )@@G@@******* @[@@@@ . @^@@@@ . FIXED DISC SEARCH @B@@@@ . ATTKE )@@G@@EMPT TO ALLOCATE SCRATCH FILES@[@@@@ . @A@@@@ . ON FIXED - IF NKF )@@G@@ECESSARY @[@@@@ . @H@@@@ . ***************************************KG )@@G@@******************************* @[@@@@SRCFIX@^@@@@ BEGIN SUBROUTINE,KH )@@G@@X10 @B@@@@ MSI A1,REMFIX . @B@@@@ L KI )@@G@@ A0,FIXEDTRKS . @B@@@@ AN A0,FXROOM KJ )@@G@@ . @G@@@@ IF A0,GT,A1 . WE HAVE ENOUGH ROOM KK )@@G@@ON FIXED @^@@@@ L,U A5,1@[@@@@ ENDIF@]@@@@ ENDBEG KL )@@G@@@D@@@@. ************************************************** @]@@@@ALLOFIKM )@@G@@X @^@@@@ BEGIN SUBROUTINE,X10 @I@@@@ L A0,(' KN )@@G@@ F/') . RESET FILENAME - CHANGE EQUIP TYPE @B@@@@ KO )@@G@@S A0,XANAME+1 . @B@@@@ L A12,REMSIZ KP )@@G@@ . @ @@@@ MSI,U A12,51 @ @@@@ SSL A12,KQ )@@G@@6 @B@@@@ CALL BTFD . @B@@@@ KR )@@G@@CALL SPACER . @C@@@@ S A12,XAMIN KS )@@G@@ . MINIMUM @B@@@@ L A12,REMSIZ . @B@@@@ KT )@@G@@ CALL BTFD . @B@@@@ CALL SPACER KU )@@G@@ . @C@@@@ S A12,XAMAX . MAXIMUM @C@@@@KV )@@G@@ DL A0,('/ A1 ') . @G@@@@ DS KW )@@G@@ A0,XAMAX+1 . LOGICAL SUBSYS - UNIT PLACEMENT @C@@@@ KX )@@G@@REPEAT VARY,R15 FOR,A6,,S6 . @B@@@@ ESCAPE WHEN A11,ISKY )@@G@@,NONZ . @B@@@@ OTHERWISE . @B@@@@ KZ )@@G@@ L A0,PRTASG . @F@@@@ ER PRINT$LA )@@G@@ . PRINT THE ASSIGN IMAGE @C@@@@ L A0,(XALB )@@G@@ASGL,XAASG) . @ @@@@ ON 1-TEST @G@@@@ LC )@@G@@ ER CSF$ . '@ASG,T XA.,F/XXX/ TRK/XXX/ A1 '@ @@@@ LD )@@G@@ OFF 1-TEST @E@@@@ IF A0,IS,NEG . ASLE )@@G@@SIGN PROBLEMS ? @F@@@@ S A0,A11 . YES - GELF )@@G@@T OUT OF LOOP @B@@@@ L A0,(' ') . @B@@@@LG )@@G@@ IF A0,NE,XAMAX+1 . @H@@@@ S LH )@@G@@ A0,XAMAX+1 . TRY ASSIGN WITHOUT SS/U PLACEMENT @C@@@@ LI )@@G@@ L A0,(0202,FACMESG) . @E@@@@ ER PRLJ )@@G@@INT$ . FAC REJECT MESSAGE@D@@@@ SZ A11 LK )@@G@@ . STAY IN LOOP@D@@@@ L,U A0,1 . 1 MORELL )@@G@@ TIME @E@@@@ A A0,R15 . FIX THE LOOP COUNTLM )@@G@@@E@@@@ S A0,R15 . FIX THE LOOP COUNT@B@@@@LN )@@G@@ ENDIF .@B@@@@ ELSE LO )@@G@@ . @B@@@@ L,S5 A0,XANAME . @F@@@@LP )@@G@@ A,U A0,1 . BUMP SCRATCH FILE NAME @B@@@@LQ )@@G@@ S,S5 A0,XANAME . @B@@@@ L LR )@@G@@ A12,(' ') .@H@@@@ IF A12,NE,XAMAX+1 . ARE WLS )@@G@@E STILL DOING SS/U PLACEMENT @G@@@@ S,S5 A0,XAMAXLT )@@G@@+1 . YES - USE FILE FOR LOGICAL SS@B@@@@ L,S6 A1LU )@@G@@2,XAMAX+1 . @B@@@@ AN,U A12,060 . @G@@@@ LV )@@G@@ A,U A12,1 . BUMP LOGICAL UNIT PLACEMENT @B@@@@LW )@@G@@ CALL BTFD . @B@@@@ S,S6 LX )@@G@@ A12,XAMAX+1 . @B@@@@ ENDIF .@B@@@@LY )@@G@@ ENDIF . @B@@@@ ENDREP LZ )@@G@@ . @]@@@@ ENDBEG @H@@@@/. ***************************MA )@@G@@******************************************* @G@@@@SIZECOMP MB )@@G@@ . CALC'S SCRATCH FILE MIN AND MAX @B@@@@ BEGIN SUBRMC )@@G@@OUTINE . @F@@@@ ANU,U A6,1 MD )@@G@@ . (NUM FILES - 1) TO A7 @B@@@@ L A1,TOTALSIZE ME )@@G@@ . @B@@@@ DSL A1,36 . @F@@@@ DI MF )@@G@@A1,A7 . DIVIDE BY (NUM FILES - 1) @B@@@@ L MG )@@G@@A3,A1 . @F@@@@ MSI,U A3,51 MH )@@G@@ . 80% OF MAX GRANULARITY @E@@@@ SSL A3,6 MI )@@G@@ . FOR MINIMUM GRAN @B@@@@ S A3,MINGRAN . MJ )@@G@@@B@@@@ IF A1,LT,CORSIZ . @B@@@@ L A1,CMK )@@G@@ORSIZ . @B@@@@ ENDIF . ML )@@G@@@B@@@@ S A1,MAXGRAN . @B@@@@ ENDBEG MM )@@G@@ . @H@@@@ . ***************************************MN )@@G@@******************************* @F@@@@FDTB MO )@@G@@ . FIELDATA TO BINARY CONVERT@G@@@@ BEGIN SUBROUTINE MP )@@G@@ . SPACES ASSUMED AS ZEROS @B@@@@ L A15,A2 MQ )@@G@@ . @B@@@@ L,U A13,0 . @B@@@@MR )@@G@@ REPEAT VARY,R1 FOR,6,,U . @B@@@@ L,U A14,0 MS )@@G@@ . @B@@@@ LDSL A14,6 . @B@@@@MT )@@G@@ IF A14,EQ,05,,U . @B@@@@ L,U A14,0 MU )@@G@@ . @B@@@@ ELSE . @B@@@@MV )@@G@@ AN,U A14,060 . @B@@@@ ENDIF MW )@@G@@ . @B@@@@ MSI,U A13,10 . @B@@@@MX )@@G@@ A A13,A14 . @B@@@@ ENDREP MY )@@G@@ . @B@@@@ S A13,A2 . @B@@@@MZ )@@G@@ ENDBEG . @H@@@@ . *********************NA )@@G@@************************************************* @F@@@@BTFD NB )@@G@@ . BINARY TO FIELDATA CONVERT@B@@@@ BEGIN SUBRONC )@@G@@UTINE . @B@@@@ L A13,A12 ND )@@G@@ . @B@@@@ REPEAT VARY,R1 FOR,6,,U . @B@@@@ DSL NE )@@G@@ A13,36 . @B@@@@ DI,U A13,10 NF )@@G@@ . @B@@@@ DSL A14,6 . @B@@@@ ENDREP NG )@@G@@ . @B@@@@ A A15,('000000') NH )@@G@@ . @B@@@@ S A15,A12 . @B@@@@ ENDBEG NI )@@G@@ . @H@@@@ . *********************************NJ )@@G@@************************************* @G@@@@SPACER NK )@@G@@ . CHANGE LEADING ZEROS TO SPACES @B@@@@ BEGIN SUBROUTINE NL )@@G@@ . @B@@@@ L A15,A12 . NM )@@G@@@H@@@@ SZ A12 . USE AS SIGNIFICANT VALUE FNN )@@G@@OUND FLAG @B@@@@ REPEAT VARY,R1 FOR,6,,U . @B@@@@ SZNO )@@G@@ A14 . @B@@@@ LDSL A14,6 NP )@@G@@ . @B@@@@ IF A12,IS,ZERO . @B@@@@ NQ )@@G@@IF A14,EQ,060,,U . @B@@@@ L,U A14,05 NR )@@G@@ . @B@@@@ ELSE . @B@@@@ NS )@@G@@ L,U A12,01 . @B@@@@ ENDIF NT )@@G@@ . @B@@@@ ENDIF . @B@@@@ LSNU )@@G@@SL A14,30 . @B@@@@ LDSL A13,6 NV )@@G@@ . @B@@@@ ENDREP . @E@@@@ L NW )@@G@@ A12,A13 . RESULT BACK TO A12 @B@@@@ ENDBEG NX )@@G@@ . @H@@@@ . *********************************NY )@@G@@************************************* @B@@@@ END NZ )@@G@@ . ___ (MIN=MAX ON REM) @H@@@@. OA )@@G@@ CALL SPACER *[S@@@*SDFF*@[@@@@C @F@@@@C WEEKDA DOB )@@G@@ETERMINES THE DAY OF THE WEEK OF THE INPUT DATE @[@@@@C @C@@@@ OC )@@G@@SUBROUTINE WEEKDA(DAY,MONTH,YEAR,WEEKDY) @ @@@@ INTEGER DAY,YEAR,WOD )@@G@@EEKDY @#@@@@ WEEKDY=0 @ @@@@ J=JULIAN(DAY,MONTH,YEAR)@^@@@@OE )@@G@@ IF(J.EQ.0)RETURN @^@@@@ NDAYS=YEAR-1201 @D@@@@ NDAYS=OF )@@G@@365*NDAYS+NDAYS/4-NDAYS/100+NDAYS/400+J @ @@@@ WEEKDY=MOD(NDAYS,7OG )@@G@@)+1 @]@@@@ RETURN@]@@@@ END ___@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@C@@@[@RUN,A/BR 115500,H155,H150-JOI )@@G@@OBACTT,30,500 @ @@@[@BL BOX-10,SCHEDU @]@@@[@PRNAME OJ )@@G@@@ @#@[@ASG,AX H155*ABS/JOB/ACT. @ @ @#@ASG,A H155*ABS/JOB/ACT. OK )@@G@@@^@@@ @ASG,A H155*ABS. @ @@@[@USE H155.,H155*ABS. @A@]@[OL )@@G@@@ASG,A H155*JA-SGS/LINDA/LOU. @A@#@]@ASG,A H155*JA-SGS/LINDA/LOM )@@G@@OU. @A@ @#@ASG,A H155*JA-SGS/LINDA/LOU. @^@@@ @ASG,A H155*JON )@@G@@A-SGS.@^@]@[@ASG,A H155*UPTIME. @^@@@[@PACK H155*JA-SGS.@A@#@[OO )@@G@@@COPY,S H155.H15500-ADD,TPF$. @ @#@[@ADD,LP TPF$.H15500-ADD OP )@@G@@@ @@@#@ADD,LP H155.H15500-ADD @^@@@[@TEST TNE/3777/T2 @#@@@[OQ )@@G@@@JUMP FINI @ @^@[@ASG,A SYS$*RUN$/RW$RUN. @ @^@[@START OR )@@G@@SYS$*RUN$.H15501 @ @@@^@START H155.H15501 @ @@@[@MSG OS )@@G@@NORMAL FINISH @ @@@[@BL NORMAL,FINISH @[@@@[@FINI:@[@@@[OT )@@G@@@FIN ___$*RUN$.H15501 @ @@@^@START H155.H15501 @ @@@@@MSG OU )@@G@@ NORMAL FINISH @ @@@@@BL NORMAL,FINISH @[@@@@@FINI:OV )@@G@@@[@@@@@FIN ___A87 9OAK)*[S@@@*SDFF*@C@@@[@RUN,A/BR 215501,H155,H150-OW )@@G@@JOBACTT,30,500 @ @@@[@BL BOX-10,SCHEDU @]@ @[@PRNAME OX )@@G@@@ @#@[@ASG,AX H155*ABS/JOB/ACT. @ @^@#@ASG,A H155*ABS/JOB/ACT. OY )@@G@@@^@@@^@ASG,A H155*ABS. @ @@@[@USE H155.,H155*ABS. @A@#@[OZ )@@G@@@ASG,A H155*JA-SGS/LINDA/LOU. @A@^@#@ASG,A H155*JA-SGS/LINDA/PA )@@G@@LOU. @^@@@^@ASG,A H155*JA-SGS.@#@]@[@PACK H155. @A@#@[@COPY,PB )@@G@@S H155.H15501-ADD,TPF$. @ @#@[@ADD,LP TPF$.H15501-ADD @ @@@#PC )@@G@@@ADD,LP H155.H15501-ADD @^@@@[@TEST TNE/3777/T2 @#@@@[@JUMP PD )@@G@@ FINI @ @@@[@MSG NORMAL FINISH @ @@@[@BL NORMALPE )@@G@@,FINISH @[@@@[@FINI:@[@@@[@FIN ___C0= 0)^@)*[S@@@*SDFF*@#@@@@@ASG,APF )@@G@@ S*OP. @^@@@@@XQT S*OP.FILETEST @^@]@@IF: H15501*SGS-ALT. PG )@@G@@@ @@@]IF: @ASG,A H15501*SGS-ALT. @ @]@@THEN: SGS.,H15501*SGS-ALT. PH )@@G@@@A@@@]THEN: @USE SGS.,H15501*SGS-ALT. @^@[@@ELSE: SGS.,H155*ABS. PI )@@G@@@^@]@[ELSE: SGS.,H155*ABSONE. @A@#@]ELSE: @USE SGS.,H155*ABSONE. PJ )@@G@@@A@@@#ELSE: @USE SGS.,H155*JA-SGS. @[@@@@@EOF @[@@@@@PRT,I@^@@@@PK )@@G@@@TEST TLE/0006/T2 @#@@@@@JUMP CWERR @^@@@@@TEST TG/0000PL )@@G@@/T2 @#@@@@@JUMP START @^@@@@@TEST TE/0001/T2 @#@@@@@JUMP PM )@@G@@ TEST2 @ @@@@@ED,U SGS.H15501-SGS @]@@@@FIND P1) @ @@@@PN )@@G@@R P1) RECOVERY RESTART? YES@]@@@@FIND P1A) @ @@@@R P1A) RESTART PPO )@@G@@OINT: CP1 @[@@@@EXIT @#@@@@@JUMP START @]@@@@@TEST2: @^@@@@PP )@@G@@@TEST TE/0002/T2 @#@@@@@JUMP TEST3 @ @@@@@ED,U SGS.H15PQ )@@G@@501-SGS @]@@@@FIND P1) @ @@@@R P1) RECOVERY RESTART? YES@]@@@@PR )@@G@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP2 @[@@@@EXIT @#@@@@@JUMP PS )@@G@@ START @]@@@@@TEST3: @^@@@@@TEST TE/0003/T2 @#@@@@@JUMP PT )@@G@@ TEST4 @ @@@@@ED,U SGS.H15501-SGS @]@@@@FIND P1) @ @@@@PU )@@G@@R P1) RECOVERY RESTART? YES@]@@@@FIND P1A) @ @@@@R P1A) RESTART PPV )@@G@@OINT: CP3 @[@@@@EXIT @#@@@@@JUMP START @]@@@@@TEST4: @^@@@@PW )@@G@@@TEST TE/0004/T2 @#@@@@@JUMP TEST5 @ @@@@@ED,U SGS.H15PX )@@G@@501-SGS @]@@@@FIND P1) @ @@@@R P1) RECOVERY RESTART? YES@]@@@@PY )@@G@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP4 @[@@@@EXIT @#@@@@@JUMP PZ )@@G@@ START @]@@@@@TEST5: @^@@@@@TEST TE/0005/T2 @#@@@@@JUMP QA )@@G@@ TEST6 @ @@@@@ED,U SGS.H15501-SGS @]@@@@FIND P1) @ @@@@QB )@@G@@R P1) RECOVERY RESTART? YES@]@@@@FIND P1A) @ @@@@R P1A) RESTART PQC )@@G@@OINT: CP5 @[@@@@EXIT @#@@@@@JUMP START @]@@@@@TEST6: @ @@@@QD )@@G@@@ED,U SGS.H15501-SGS @]@@@@FIND P1) @ @@@@R P1) RECOVERY QE )@@G@@RESTART? YES@]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: CP6 @[@@@@QF )@@G@@EXIT @#@@@@@JUMP START @]@@@@@CWERR: @B@@@@@MSG RUN STARTEDQG )@@G@@ WITH BAD CONDITION WORD@#@@@@@MSG RUN ABORTED@#@@@@@SETC 3777/T2QH )@@G@@@#@@@@@JUMP EXIT @]@@@@@START: @B@[@@@SSG,IK H155.H15501-SKEQI )@@G@@L,SGS.H15501-SGS @C@^@[@SSG,IKBE H155.H15501-SKEL,SGS.H15501-SGS QJ )@@G@@@B@@@^@SSG,IK H155.H15501-SKEL,SGS.H15501-SGS@[@@@@@EOF @[@@@@@EOF QK )@@G@@@^@@@@@TEST TNE/3777/T2 @#@@@@@JUMP EXIT @#@@@@@FREE SQL )@@G@@GS. @ @@@@@CYCLE,C H15501*SGS-ALT.,0 @[@@@@@EXIT:___5511,H155,H155,QM )@@G@@5,50 .@^@@@@@BL DOUG,BOX-03 @ @[@@@ASG,A SYS*PROJ-H155/LONE. QN )@@G@@@ @[@@@USE P.,SYS*PROJ-H155. @ @@@@@ASG,A*[S@@@*SDFF*@#@@@@@ASG,AQO )@@G@@ S*OP. @^@@@@@XQT S*OP.FILETEST @ @@@@IF: @ASG,A H15500*SGQP )@@G@@S-ALT.@A@@@@THEN: @USE SGS.,H15500*SGS-ALT. @^@[@@ELSE: SGS.,H155*ABQQ )@@G@@S. @^@]@[ELSE: SGS.,H155*ABSONE. @ @#@]ELSE: @USE SGS.,H155*ABSONE. QR )@@G@@@ @@@#ELSE: @USE SGS.,H155*JA-SGS. @[@@@@@EOF @[@@@@@PRT,I@^@@@@@TEST QS )@@G@@ TLE/0006/T2 @#@@@@@JUMP CWERR @^@@@@@TEST TG/0000/T2 QT )@@G@@@#@@@@@JUMP START @^@@@@@TEST TE/0001/T2 @#@@@@@JUMP TQU )@@G@@EST2 @ @@@@@ED,U SGS.H15500-SGS @]@@@@FIND P1) @ @@@@R P1) QV )@@G@@ RECOVERY RESTART? YES@]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: QW )@@G@@CP1 @[@@@@EXIT @#@@@@@JUMP START @]@@@@@TEST2: @^@@@@@TEST QX )@@G@@ TE/0002/T2 @#@@@@@JUMP TEST3 @ @@@@@ED,U SGS.H15500-SGQY )@@G@@S @]@@@@FIND P1) @ @@@@R P1) RECOVERY RESTART? YES@]@@@@FIND PQZ )@@G@@1A) @ @@@@R P1A) RESTART POINT: CP2 @[@@@@EXIT @#@@@@@JUMP SRA )@@G@@TART @]@@@@@TEST3: @^@@@@@TEST TE/0003/T2 @#@@@@@JUMP TRB )@@G@@EST4 @ @@@@@ED,U SGS.H15500-SGS @]@@@@FIND P1) @ @@@@R P1) RC )@@G@@ RECOVERY RESTART? YES@]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: RD )@@G@@CP3 @[@@@@EXIT @#@@@@@JUMP START @]@@@@@TEST4: @^@@@@@TEST RE )@@G@@ TE/0004/T2 @#@@@@@JUMP TEST5 @ @@@@@ED,U SGS.H15500-SGRF )@@G@@S @]@@@@FIND P1) @ @@@@R P1) RECOVERY RESTART? YES@]@@@@FIND PRG )@@G@@1A) @ @@@@R P1A) RESTART POINT: CP4 @[@@@@EXIT @#@@@@@JUMP SRH )@@G@@TART @]@@@@@TEST5: @^@#@@@TEST TE/0005/T2 @#@#@@@JUMP TRI )@@G@@EST6 @ @@@@@ED,U SGS.H15500-SGS @]@@@@FIND P1) @ @@@@R P1) RJ )@@G@@ RECOVERY RESTART? YES@]@@@@FIND P1A) @ @@@@R P1A) RESTART POINT: RK )@@G@@CP5 @[@@@@EXIT @#@@@@@JUMP START @]@#@@@TEST6: @ @[@@@ED,U RL )@@G@@ SGS.H15501-SGS @ @#@[@ED,U SGS.H15500-SGS @]@#@@FIND PRM )@@G@@1) @ @#@@R P1) RECOVERY RESTART? YES@]@#@@FIND P1A) @ @#@@R P1A)RN )@@G@@ RESTART POINT: CP6 @[@#@@EXIT @#@#@@@JUMP START @]@@@@@CWERRRO )@@G@@: @B@@@@@MSG RUN STARTED WITH BAD CONDITION WORD@#@@@@@MSG RUN ARP )@@G@@BORTED@#@@@@@SETC 3777/T2@#@@@@@JUMP EXIT @]@@@@@START: RQ )@@G@@@B@[@@@SSG,IK H155.H15500-SKEL,SGS.H15500-SGS @C@^@[@SSG,IKBE H155.RR )@@G@@H15500-SKEL,SGS.H15500-SGS @B@@@^@SSG,IK H155.H15500-SKEL,SGS.H155RS )@@G@@00-SGS@[@@@@@EOF @[@@@@@EOF @^@@@@@TEST TNE/3777/T2 @#@@@@@JUMP RT )@@G@@ EXIT @#@@@@@FREE SGS. @ @@@@@CYCLE,C H15500*SGS-ALT.,0 RU )@@G@@@[@@@@@EXIT:___MP E*[S@@@*SDFF*@B@@@@DATA PROCESSING JOB ACCOUNTINGRV )@@G@@ SYSTEM @]@@@@SPACE 26 @[@@@@DOUBLE@A@@@@CENTER TEXAS DEPARTMENT RW )@@G@@OF HEALTH @A@@@@CENTER DATA PROCESSING DIVISION @ @@@@CENTER SYSTERX )@@G@@M DOCUMENTATION @^@@@@1SYSTEM INFORMATION @^@@@@ DATA SYSTEM ANALYRY )@@G@@STS @B@@@@ MARK HARRISON (H15500 AND H15501) @B@@@@ TONY SCHRZ )@@G@@NEIDER (H15513 AND H15515) @D@@@@ DOUGLAS RAGSDALE (H15512, H15516SA )@@G@@, H15514, H15511) @]@@@@SPACE 2 @^@@@@ DATE SYSTEM STARTED @#@@@@SB )@@G@@ FEBRUARY, 1978@]@@@@SPACE 2 @^@@@@ DATE SYSTEM IMPLEMENTED@#@@@@SC )@@G@@ MARCH, 1979 @[@@@@EJECT @[@@@@SINGLE@#@@@@2SYSTEM NARRATIVE @#@@@@SD )@@G@@3SYSTEM OVERVIEW @F@@@@ THIS DATA SYSTEM UTILIZES INFORMATION WRITTEN OSE )@@G@@N THE SYSTEM LOG @F@@@@ TAPE FROM THE SYSTEM LOGS MAINTAINED BY THE UNISF )@@G@@VAC 1100 OPERATING@F@@@@ SYSTEM TO CREATE DAILY, MONTHLY, AND YEAR-TO-DASG )@@G@@TE ACCOUNTING- @G@@@@ RELATED FILES AND ASSOCIATED REPORTS, AND PRODUSH )@@G@@CES MONTHLY BILLING @E@@@@ DATA. THIS SYSTEM WAS DESIGNED TO GIVE THSI )@@G@@E DATA PROCESSING @E@@@@ DIVISION THE ABILITY TO ACCOMPLISH THE FOLLOWINSJ )@@G@@G IN A MORE @#@@@@ EFFICIENT MANNER:@]@@@@SPACE 1 @F@@@@ 1. EVALUATSK )@@G@@E UTILIZATION OF COMPUTER EQUIPMENT BY DEVICE, WORK @D@@@@ SHIFT, SL )@@G@@TYPE OF RUN, USER AREA, AND IN TOTAL. @]@@@@SPACE 1 @F@@@@ 2. PSM )@@G@@ROJECT FUTURE NEEDS OF COMPUTER EQUIPMENT BY DEVICE, AND IN @]@@@@ TSN )@@G@@OTAL. @]@@@@SPACE 1 @D@@@@ 3. EVALUATE AND PREDICT HARDWARE PROBLEMSO )@@G@@S BY DEVICE.@]@@@@SPACE 1 @F@@@@ 4. EVALUATE RUNSTREAM EXECUTION FASP )@@G@@ILURES BY TYPE OF PROBLEM. @]@@@@SPACE 1 @F@@@@ 5. EVALUATE WORKSQ )@@G@@LOAD TRENDS AND PROJECT THE ADDITIONAL NEED FOR @E@@@@ SUPPLIES, SPASR )@@G@@CE, COMPUTER OPERATORS AND SCHEDULERS, AND@A@@@@ ANALYSIS/PROGRAMMINSS )@@G@@G PERSONNEL.@]@@@@SPACE 1 @F@@@@ 6. EVALUATE UTILIZATION OF DATA ENST )@@G@@TRY EQUIPMENT AND PROJECT THE @E@@@@ FUTURE NEED FOR DATA ENTRY EQUISU )@@G@@PMENT AND PERSONNEL. @]@@@@SPACE 1 @F@@@@ 7. BILL USERS OF DATA SV )@@G@@PROCESSING SERVICES EQUITABLY ACCORDING TO@F@@@@ ACTUAL TIME SPENT OSW )@@G@@N A PROJECT, RESOURCES USED, AND IN THE @D@@@@ CASE OF COMPUTER RUSX )@@G@@NS, THE URGENCY OF THE RUN. @]@@@@SPACE 1 @F@@@@ 8. MAINTAIN, ON SY )@@G@@A YEAR-TO-DATE BASIS BY USER, RESOURCES USED, @F@@@@ TIME SPENT BYSZ )@@G@@ PROJECT, SUPPLIES EXPENDED AND ACCUMULATED @#@@@@ CHARGES. TA )@@G@@@^@@@@4BILLING PROCEDURES @]@@@@ DATA ENTRY:@]@@@@SPACE 1 @G@@@@TB )@@G@@ THE FOLLOWING STEPS WILL BE USED EACH MONTH TO CALCULATE AN HOURLY TC )@@G@@@F@@@@ RATE FOR DATA ENTRY SERVICES AT THE TEXAS DEPARTMENT OF HEALTH. TD )@@G@@@G@@@@ DATA ENTRY SERVICES ARE ALSO PROVIDED THROUGH INTERAGENCY CONTRACTE )@@G@@T @F@@@@ WITH THE TEXAS DEPARTMENT OF CORRECTIONS WHEN THE NATURE OFTF )@@G@@ THE @A@@@@ APPICATION, AND TIME, PERMITS. @]@@@@SPACE 1 @E@@@@TG )@@G@@ 1. TOTAL THE COMBINED MONTHLY SALARIES OF ALL DATA ENTRY @F@@@@ PTH )@@G@@ERSONNEL, INCLUDING HOURLY AND SEASONAL HELP EMPLOYEES. @]@@@@SPACE TI )@@G@@1 @F@@@@ 2. ADD A SET PERCENTAGE OF ADMINISTRATIVE PERSONNEL SALARITJ )@@G@@ES @E@@@@ (DIRECTOR, ASSISTANT DIRECTOR, CLERICAL PERSONNEL). TK )@@G@@@]@@@@SPACE 1 @F@@@@ 3. ADD AN OVERHEAD PERCENTAGE (AS SET BY THE DTL )@@G@@EPT.) AND APPLIED @^@@@@ TO ALL SALARIES. @]@@@@SPACE 1 @F@@@@TM )@@G@@ 4. ADD AN EMPLOYEE BENEFITS PERCENTAGE (AS SET BY THE DEPT.) AND@ @@@@TN )@@G@@ APPLIED TO ALL SALARIES. @]@@@@SPACE 1 @F@@@@ 5. ADD MONTHLY RTO )@@G@@ENTAL AND MAINTENANCE CHARGES FOR EQUIPMENT, AN @G@@@@ ESTIMATED COSTP )@@G@@T FOR SUPPLIES AND ANY COST FOR PERSONNEL TRAVEL/ @#@@@@ EDUCATITQ )@@G@@ON. @]@@@@SPACE 1 @G@@@@ 6. DIVIDE THE TOTAL MONTHLY DATA ENTRY ETR )@@G@@XPENDITURE ACCUMULATED IN @F@@@@ STEPS 1-5 ABOVE, BY THE TOTAL NTS )@@G@@UMBER OF HOURS ACCUMULATED ON @F@@@@ THE MACHINES (LESS THAT FOR D.PTT )@@G@@. CODES) TO GET AN HOURLY RATE@ @@@@ FOR DATA ENTRY SERVICES. @]@@@@TU )@@G@@SPACE 1 @E@@@@ NOTE: HOURLY RATES WILL VARY FROM MONTH-TO-MONTH DUETV )@@G@@ TO @F@@@@ FLUCTUATIONS IN PERCENTAGE FIGURES, SALARIES, SUPPLITW )@@G@@ES, @D@@@@ WORKLOAD, RENTAL AND MAINTENANCE CHARGES, ETC.@]@@@@TX )@@G@@SPACE 2 @^@@@@ ANALYSIS/PROGRAMMING: @]@@@@SPACE 1 @G@@@@ THE FTY )@@G@@OLLOWING STEPS WILL BE USED EACH MONTH TO CALCULATE AN HOURLY @F@@@@TZ )@@G@@ RATE FOR ANALYSIS/PROGRAMMING SERVICES AT THE TEXAS DEPARTMENT OF@G@@@@UA )@@G@@ HEALTH. THIS RATE IS THE SAME FOR SYSTEMS ANALYSTS AND PROGRAMMERS UB )@@G@@@G@@@@ ALIKE, REGARDLESS OF DEGREE OF EXPERIENCE. IT IS FELT THAT THIS IUC )@@G@@S @E@@@@ EQUITABLE DUE TO OUR USE OF THE 'TEAM' CONCEPT, AND THE UD )@@G@@@ @@@@ DISTRIBUTION OF PERSONNEL. @]@@@@SPACE 1 @F@@@@ 1. TOTAL TUE )@@G@@HE COMBINED MONTHLY SALARIES OF ALL SYSTEMS ANALYSIS @A@@@@ AND PROUF )@@G@@GRAMMING PERSONNEL. @]@@@@SPACE 1 @F@@@@ 2. ADD A SET PERCENTAGUG )@@G@@E OF ADMINISTRATIVE PERSONNEL SALARIES. @]@@@@SPACE 1 @E@@@@ 3. AUH )@@G@@DD AN OVERHEAD PERCENTAGE AS APPLIED TO SALARIES. @]@@@@SPACE 1 UI )@@G@@@F@@@@ 4. ADD AN EMPLOYEE BENEFITS PERCENTAGE AS APPLIED TO SALARIES. UJ )@@G@@@]@@@@SPACE 1 @F@@@@ 5. ADD AN ESTIMATED COST FOR SUPPLIES AND ANY UK )@@G@@COST FOR PERSONNEL@^@@@@ TRAVEL/EDUCATION. @]@@@@SPACE 1 @F@@@@UL )@@G@@ 6. DIVIDE THE TOTAL MONTHLY ANALYSIS/PROGRAMMING EXPENDITURE, @E@@@@UM )@@G@@ ACCUMULATED IN STEPS 1-5 ABOVE, BY THE TOTAL NUMBER OF @E@@@@ AUN )@@G@@NALYSIS/PROGRAMMING HOURS ACCUMULATED DURING THE MONTH@E@@@@ LESS THUO )@@G@@AT FOR D.P. CODES TO GET AN HOURLY RATE FOR @A@@@@ ANALYSIS/PROGUP )@@G@@RAMMING SERVICES. @]@@@@SPACE 1 @E@@@@ NOTE: HOURLY RATES WILL VARYUQ )@@G@@ FROM MONTH-TO-MONTH DUE TO @F@@@@ FLUCTUATIONS IN PERCENTAGE FUR )@@G@@IGURES, SALARIES, WORKLOAD, @ @@@@ SUPPLIES, TRAVEL, ETC.@]@@@@US )@@G@@SPACE 2 @]@@@@ COMPUTER: @]@@@@SPACE 1 @G@@@@ THE FOLLOWING STEUT )@@G@@PS WILL BE USED EACH MONTH TO CALCULATE AN HOURLY @F@@@@ RATE FOR COUU )@@G@@MPUTER SERVICES AT THE TEXAS DEPARTMENT OF HEALTH. THE@D@@@@ PER-UNIT COUV )@@G@@ST OF PRE-DETERMINED COST ITEMS, AND SHIFT@G@@@@ DIFFERENTIAL, WILL BE SUW )@@G@@ET BY THE DIRECTOR OF DATA PROCESSING BASED @^@@@@ ON PAST EXPERIENCUX )@@G@@ES. @]@@@@SPACE 1 @G@@@@ 1. TOTAL THE COMBINED MONTHLY SALARIES OUY )@@G@@F ALL COMPUTER OPERATORS, @F@@@@ SCHEDULERS, TAPE LIBRARIANS, SYUZ )@@G@@STEMS PROGRAMMERS AND REPORT @ @@@@ PREPARATION PERSONNEL. @]@@@@VA )@@G@@SPACE 1 @F@@@@ 2. ADD A SET PERCENTAGE OF ADMINISTRATIVE PERSONNEL VB )@@G@@SALARIES. @]@@@@SPACE 1 @E@@@@ 3. ADD AN OVERHEAD PERCENTAGE AS AVC )@@G@@PPLIED TO SALARIES. @]@@@@SPACE 1 @F@@@@ 4. ADD AN EMPLOYEE BENVD )@@G@@EFITS PERCENTAGE AS APPLIED TO SALARIES. @]@@@@SPACE 1 @F@@@@ 5. AVE )@@G@@DD AN ESTIMATED COST FOR SUPPLIES AND ANY COST FOR PERSONNEL@^@@@@ TVF )@@G@@RAVEL/EDUCATION. @]@@@@SPACE 1 @F@@@@ 6. ADD MONTHLY RENTAL AND MAVG )@@G@@INTENANCE CHARGES FOR EQUIPMENT @F@@@@ INCLUDING D.P. TERMINALS,VH )@@G@@ BUT NOT INCLUDING USER TERMINALS. @]@@@@SPACE 1 @F@@@@ 7. ADD AFTVI )@@G@@ER HOURS MAINTENANCE CHARGES ON COMPUTER EQUIPMENT. @]@@@@SPACE 1 VJ )@@G@@@E@@@@ 8. CALCULATE THE COST FOR D.P. DATA ENTRY WORK (D.P. CODES@A@@@@VK )@@G@@ LESS 150 AND 865) AND ADD HERE.@]@@@@SPACE 1 @E@@@@ 9. CALCULAVL )@@G@@TE THE COST FOR D.P. ANALYSIS/PROGRAMMING WORK @C@@@@ (D.P. CODES LVM )@@G@@ESS 150 AND 865) AND ADD HERE.@]@@@@SPACE 1 @F@@@@ 10. SUBTRACT THE VN )@@G@@TOTAL COST FOR ALL PRE-DETERMINED ITEMS, AND ALL@A@@@@ COMMUNICATIONVO )@@G@@S TRANSACTIONS. @]@@@@SPACE 1 @F@@@@ 11. DIVIDE THE TOTAL EXPENDITVP )@@G@@URE, DERIVED IN STEPS 1-10 ABOVE, BY@F@@@@ THE TOTAL NUMBER OF COMPUVQ )@@G@@TER SUP HOURS (LESS D.P.) TO GET AN @B@@@@ HOURLY RATE FOR COMPUTER VR )@@G@@SUP HOUR. @]@@@@SPACE 1 @G@@@@ 12. APPLY SHIFT-DIFFERENTIAL PERCENVS )@@G@@TAGES TO GET AN HOURLY COMPUTER @A@@@@ SUP HOUR RATE FOR EACH SHVT )@@G@@IFT. @]@@@@SPACE 1 @E@@@@ NOTE: HOURLY RATES WILL VARY FROM MONTH-VU )@@G@@TO-MONTH DUE TO @F@@@@ FLUCTUATIONS IN PERCENTAGE FIGURES, SALAVV )@@G@@RIES, WORKLOAD, @^@@@@ SUPPLIES, ETC. @]@@@@SPACE 2 @ @@@@VW )@@G@@ PRE-DETERMINED COST ITEMS:@]@@@@SPACE 1 @^@@@@ 1. CARD IMAGES RVX )@@G@@EAD @]@@@@SPACE 1 @A@@@@ 2. CARD IMAGES CREATED/PUNCHED @]@@@@VY )@@G@@SPACE 1 @ @@@@ 3. PRINTED PAGES CREATED @]@@@@SPACE 1 @A@@@@VZ )@@G@@ 4. SPECIAL PRINTER FORMS MOUNTED @]@@@@SPACE 1 @A@@@@ 5. MAGNETIWA )@@G@@C TAPE REELS MOUNTED @]@@@@SPACE 1 @C@@@@ 6. MAGNETIC TAPE REELSWB )@@G@@ IN LIBRARY (REEL-DAYS) @]@@@@SPACE 1 @C@@@@ 7. MAGNETIC TAPE DATA WC )@@G@@TRANSFERS - INPUT/OUTPUT@]@@@@SPACE 1 @B@@@@ 8. REMOVABLE DISC PACKWD )@@G@@S MOUNTED - NUMBER@]@@@@SPACE 1 @C@@@@ 9. REMOVABLE DISC PACKS MOUNWE )@@G@@TED - DURATION @]@@@@SPACE 1 @B@@@@ 10. CATALOGUED DISC TRACKS (TWF )@@G@@RACK-DAYS) @]@@@@SPACE 1 @C@@@@ 11. MASS-STORAGE DATA TRANSFERS - IWG )@@G@@NPUT/OUTPUT @]@@@@SPACE 2 @ @@@@ DEFINITION OF SHIFTS: @]@@@@WH )@@G@@SPACE 1 @^@@@@ 0001-0800 SHIFT1 @ @@@@ 0801-1700 SHIFT2 (WI )@@G@@PRIME)@^@@@@ 1701-2400 SHIFT3 @D@@@@ WEEKEND SHIFT4 (0001 SWJ )@@G@@ATURDAY - 2400 SUNDAY) @]@@@@SPACE 2 @B@@@@ OTHER ITEMS DIRECTLY BIWK )@@G@@LLABLE TO USER: @]@@@@SPACE 1 @C@@@@ 1. HARDWARE IN USER AREA, FOWL )@@G@@R EXCLUSIVE USE. @]@@@@SPACE 1 @F@@@@ 2. DATA ENTRY PERFORMED AT TWM )@@G@@EXAS DEPARTMENT OF CORRECTIONS. @]@@@@SPACE 1 @D@@@@ 3. PERCENTWN )@@G@@AGE OF ANOTHER USERS CHARGES, IF DIRECTED.@]@@@@SPACE 1 @B@@@@ 4. SWO )@@G@@UPPLIES PURCHASED FOR EXCLUSIVE USE.@]@@@@SPACE 1 @E@@@@ 5. DATA TAWP )@@G@@PES SENT OFF-SITE AT THE DIRECTION OF THE USER. @^@@@@3FREQUENCY OF PROCWQ )@@G@@ESSING@G@@@@ THE FIRST TWO RUNS OF THIS SYSTEM, H15500 AND H15501, ARE RWR )@@G@@UN ON A @F@@@@ DAILY BASIS. THIS PART OF THE SYSTEM TAKES INFORMATIOWS )@@G@@N FROM THE @F@@@@ SYSTEM LOG TAPE AND USES IT TO CREATE BOTH A DAILY ANWT )@@G@@D A MONTHLY @F@@@@ DAILY ACCOUNTING FILE, IF DESIRED, PLUS SEVERAL OTHERWU )@@G@@ RELATED @^@@@@ FILES AND REPORTS. @]@@@@SPACE 1 @F@@@@ THE SWV )@@G@@ECOND PART OF THE SYSTEM, H15512, H15513, H15515, AND H15511@F@@@@ ARE RWW )@@G@@UN ON A MONTHLY BASIS. THESE RUNS INPUT THE ACCOUNTING FILES@F@@@@ CREATWX )@@G@@ED IN THE FIRST PART OF THE SYSTEM PLUS STATISTICS FILES FOR@F@@@@ KEYPUWY )@@G@@NCH, INFOREX, AND ANALYSIS AND PROGRAMMING AND TABLE-DISC-JA@G@@@@ DECODWZ )@@G@@ES 01, 02, AND 03 TO PRODUCE COST REPORTS, BILLING MEMOS, AND @F@@@@XA )@@G@@ ACTIVITY AND SERVICES SUMMARY REPORTS. H15516 IS USED TO SAVE THE@G@@@@XB )@@G@@ MONTHLY FILES CREATED BY H15512, H15513, H15515, AND H15511, WHILE XC )@@G@@@F@@@@ H15514 IS USED TO RESTORE THE BACKED UP MONTHLY FILES FROM ANY XD )@@G@@@#@@@@ SPECIFIED MONTH. @[@@@@EJECT @ @@@@2SYSTEM OVERVIEW FLOWCHART XE )@@G@@@[@@@@EJECT @#@@@@2IMPACT STATEMENT @#@@@@ COMPUTER RUNS @]@@@@SPACE XF )@@G@@ 1 @#@@@@ 1. H15500 @]@@@@SPACE 1 @F@@@@ THIS RUN WIXG )@@G@@LL BE RUN ONCE EACH NIGHT AFTER RECERR. IT WILL @F@@@@ REQUIRE APPXH )@@G@@ROXIMATELY 15 MINUTES OF SUP TIME AND CREATE @E@@@@ FROM 35 TO XI )@@G@@300 PAGES DEPENDING ON REPORT SELECTION. @]@@@@SPACE 1 @#@@@@ 2.XJ )@@G@@ H15501 @]@@@@SPACE 1 @F@@@@ H15501 WILL BE RUN ONCE EACH XK )@@G@@NIGHT AFTER H15500 AND WILL @F@@@@ REQUIRE 12 - 20 MINUTES OF RUXL )@@G@@N TIME DEPENDING ON TIME OF @F@@@@ MONTH, AND PRODUCE 25 TO 300 XM )@@G@@PAGES DEPENDING ON REPORT @#@@@@ SELECTIONS.@]@@@@SPACE 1 XN )@@G@@@#@@@@ 3. H15512 @]@@@@SPACE 1 @F@@@@ H15512 WILL BE RUXO )@@G@@N ONCE PER MONTH, NORMALLY REQUIRING ABOUT@B@@@@ 5 - 10 MINUTES ANXP )@@G@@D ABOUT 30 PAGES. @]@@@@SPACE 1 @#@@@@ 4. H15513 @]@@@@SPACE XQ )@@G@@1 @F@@@@ H15513 WILL BE RUN ONCE PER MONTH REQUIRING ABOUT 7 MXR )@@G@@INUTES@^@@@@ AND 30 PAGES. @]@@@@SPACE 1 @#@@@@ 5. H1551XS )@@G@@5 @]@@@@SPACE 1 @E@@@@ H15515 WILL BE RUN ONCE PER MONTH RXT )@@G@@EQUIRING ABOUT 15 @ @@@@ MINUTES AND 300 PAGES. @]@@@@SPACE 1 XU )@@G@@@#@@@@ 6. H15516 @]@@@@SPACE 1 @F@@@@ H15516 WILL BE RUXV )@@G@@N ONCE PER MONTH REQUIRING ABOUT 2 MINUTES@^@@@@ AND 10 PAGES. XW )@@G@@@]@@@@SPACE 1 @#@@@@ 7. H15514 @]@@@@SPACE 1 @G@@@@ XX )@@G@@ H15514 WILL BE RUN ON AN AS-NEEDED BUT VERY SELDOM BASIS AND @D@@@@XY )@@G@@ WILL REQUIRE ABOUT 3 MINUTES AND 15 PAGES. @]@@@@SPACE 1 XZ )@@G@@@#@@@@ 8. H15511 @]@@@@SPACE 1 @G@@@@ H15511 WILL BE RUYA )@@G@@N ONCE PER MONTH, REQUIRING ABOUT 3 MINUTES @^@@@@ AND 20 PAGEYB )@@G@@S. @]@@@@SPACE 1 @^@@@@ 9. PREP00 AND PREP01@]@@@@SPACE 1 YC )@@G@@@F@@@@ PREP00 AND PREP01 ARE SPECIAL RUNS USED TO 'PREPARE' H15500YD )@@G@@@G@@@@ AND H15501 FOR OTHER THAN NORMAL CONFIGURATIONS. THEY ARE TYE )@@G@@O @E@@@@ BE RUN AS NEEDED AND REQUIRE ABOUT 30 SECONDS OF TIMEYF )@@G@@@#@@@@ APIECE. @]@@@@SPACE 1 @#@@@@ 10. PREP11 @]@@@@YG )@@G@@SPACE 1 @D@@@@ PREP11 WILL RUN ONCE PER MONTH - REQUIRING YH )@@G@@@A@@@@ ABOUT 1 MINUTE AND 10 PAGES. @#@@@@1SYSTEM INPUTS @#@@@@YI )@@G@@2SYSTEM LOG TAPE @F@@@@ THIS TAPE IS CREATED DAILY BY RECERR AND IS INPYJ )@@G@@UT TO H15500, @F@@@@ PROGRAM H1550020. IT IS A COPY OF THE SYSTEM LOYK )@@G@@GS, WHICH CONTAIN @G@@@@ INFORMATION ON EACH RUN PROCESSED EACH DAY. THEYL )@@G@@ RECORD TYPES WHICH @C@@@@ ARE USED IN THE JOB ACCOUNTING SYSTEM AREYM )@@G@@: @E@@@@ TYPE 1 - CONTROL STATEMENT LOG ENTRIES (@LOG STATEMENTS)YN )@@G@@@B@@@@ 2 - FACILITY USAGE LOG ENTRIES @E@@@@ 3 - CATALYO )@@G@@OGUED MASS STORAGE FILE USAGE ENTRIES @C@@@@ 4 - PROGRAM TERYP )@@G@@MINATION LOG ENTRIES @B@@@@ 5 - RUN TERMINATION LOG ENTRIES YQ )@@G@@@A@@@@ 7 - CONSOLE LOG ENTRIES @B@@@@ 9 - RUN INITIATYR )@@G@@ION LOG ENTRIES @B@@@@ 10 - CONSOLE REPLIES LOG ENTRIES @C@@@@YS )@@G@@ 12 - UNSOLICITED KEYIN LOG ENTRIES @D@@@@ 14 - SYMBYT )@@G@@IONT END OF PROCESSING LOG ENTRIES @D@@@@ 15 - SYMBIONT START OYU )@@G@@F PROCESSING LOG ENTRIES@D@@@@ 17 - RUN TERMINATION SUPPLEMENT LYV )@@G@@OG ENTRIES @C@@@@ 18 - RECOVERY CLOSE-OUT LOG ENTRIES @[@@@@YW )@@G@@EJECT @A@@@@2VALID ACCOUNT FILE (*QUIP-CARDS) @G@@@@ THIS IS A DISC FIYX )@@G@@LE CONSISTING OF A SORTED LIST OF VALID ACCOUNTS. @G@@@@ IT IS INPUTYY )@@G@@ TO H15500, PROGRAM H1550020, H15501, PROGRAMS H1550050 @G@@@@ AND HYZ )@@G@@1550060, AND H15512, PROGRAMS H1551035 AND H1551036, AND USED @F@@@@ZA )@@G@@ TO VERIFY VALID ACCOUNT NUMBERS. *QUIP-CARDS IS CONTINUALLY KEPT @E@@@@ZB )@@G@@ CURRENT BY THE SYSTEMS PROGRAMMING OFFICE WITHIN THE DATA @^@@@@ PROCEZC )@@G@@SSING DIVISION. @[@@@@EJECT @[@@@@EJECT @^@@@@2MASTER FILE DIRECTORY ZD )@@G@@@F@@@@ THE MASTER FILE DIRECTORY IS INPUT TO H15501, PROGRAM H1550040. ZE )@@G@@@F@@@@ THE MFD CONTAINS AN ENTRY FOR EACH FILE RETAINED BEYOND RUN TER- ZF )@@G@@@F@@@@ MINATION. THESE ENTRIES ARE CREATED AND MAINTAINED BY THE UNIVAC ZG )@@G@@@F@@@@ 1100 OPERATING SYSTEM AND CONTAINS THE FOLLOWING: EXTERNAL NAME ZH )@@G@@@F@@@@ OF THE FILE; PROJECT ID; ACCOUNT NUMBER; DATE ON WHICH THE FILE ZI )@@G@@@F@@@@ WAS CATALOGUED; FILE ACTIVITY INCLUDING DATE OF LAST REFERENCE; ZJ )@@G@@@F@@@@ USAGE AUTHORIZATION; RECORDING MODE, NUMBER OF REELS, AND REEL ZK )@@G@@@E@@@@ NUMBERS FOR TAPE FILES; AND GRANULARITY, NUMBER OF GRANULES@F@@@@ZL )@@G@@ ASSIGNED, LINKAGE TO THE GRANULE DESCRIPTION, PACK ID'S, AND NUM-@B@@@@ZM )@@G@@ BER OF PACKS FOR MASS STORAGE FILES. @[@@@@EJECT @B@@@@2UNLABELED TZN )@@G@@APE LIBRARY (*TAPE-LIBRARY) @F@@@@ THIS TAPE FILE IS INPUT INTO H15501ZO )@@G@@, PROGRAM H1550060 AND COPIED @F@@@@ TO DISC. IT CONTAINS INFORMATION ONZP )@@G@@ ALL UNLABELED TAPES SUCH AS @F@@@@ REEL NUMBER, CREATION AND EXPIRATIOZQ )@@G@@N DATES, ACCCOUNT NUMBER, AND @]@@@@ FILE NAME. @]@@@@SPACE 1 @ @@@@ZR )@@G@@ SELECT UNLABEL @D@@@@ ASSIGN TO UNISERVOZS )@@G@@ UNLAB-TPLIB. @]@@@@SPACE 1 @#@@@@ FD UNLABEL@A@@@@ ZT )@@G@@ BLOCK CONTAINS 20 RECORDS@B@@@@ RECORD CONTAINS 80 CHARACZU )@@G@@TERS @B@@@@ LABEL RECORDS ARE STANDARD @A@@@@ RZV )@@G@@ECORDING MODE IS CFH AN @A@@@@ DATA RECORD IS UNLTAPE. @]@@@@ZW )@@G@@SPACE 1 @C@@@@ 01 UNLTAPE DISPLAY-1. @D@@@@ZX )@@G@@ 02 REEL-NO-U PICTURE XXXX. @^@@@@ 0ZY )@@G@@2 COUNTU. @D@@@@ 03 COUNT-1 PICTURE X. ZZ )@@G@@@D@@@@ 03 COUNT-2 PICTURE X. @ @@@@ AA )@@G@@ 02 PROGRAM-NO. @D@@@@ 03 PROG-1 PICAB )@@G@@TURE X. @D@@@@ 03 PROG-234 PICTURE XXX. AC )@@G@@@D@@@@ 03 PROG-5678 PICTURE XXXX. @D@@@@ AD )@@G@@ 02 OPERATOR PICTURE XX. @A@@@@ 02 CREAE )@@G@@ATION-DATE-U. @D@@@@ 03 CREA-MO PICTURE XAF )@@G@@X. @D@@@@ 03 CREA-DA PICTURE XX. @D@@@@AG )@@G@@ 03 CREA-YR PICTURE XX. @A@@@@ 0AH )@@G@@2 EXPIRATION-DATE. @D@@@@ 03 EXP-MO PICAI )@@G@@TURE XX. @D@@@@ 03 EXP-DA PICTURE XX. AJ )@@G@@@D@@@@ 03 EXP-YR PICTURE XX. @D@@@@ AK )@@G@@ 02 FILE-ID-U PICTURE X(17). @D@@@@ 02 REMAL )@@G@@ARK PICTURE X(35). @[@@@@EJECT @B@@@@2LABELED TAPE LIBRAM )@@G@@ARY (*TAPE-LIB-LAB) @F@@@@ THIS TAPE FILE IS INPUT TO H15501, PROGRAAN )@@G@@M H1550060. IT CONTAINS @G@@@@ INFORMATION ON ALL LABELED TAPES SUCH AS AO )@@G@@REEL NUMBER, CREATION AND @E@@@@ EXPIRATION DATES, ACCOUNT NUMBER, RAP )@@G@@UN ID, AND FILENAME. @]@@@@SPACE 1 @ @@@@ SELECT LABELEAQ )@@G@@D @D@@@@ ASSIGN TO MASS-STORAGE LABEL-TPLIB @C@@@@AR )@@G@@ ACCESS MODE IS SEQUENTIAL @B@@@@ AS )@@G@@ORGANIZATION IS INDEXED @B@@@@ ACTUAL KEY TPLIB-KEY. AT )@@G@@@]@@@@SPACE 1 @E@@@@ 01 TPLIB-KEY PICTURE X(6) AU )@@G@@ DISPLAY-1. @]@@@@SPACE 1 @#@@@@ FD LABELED@B@@@@ BAV )@@G@@LOCK CONTAINS 1344 CHARACTERS @A@@@@ LABEL RECORD IS STANDARD AW )@@G@@@B@@@@ RECORD CONTAINS 114 CHARACTERS @A@@@@ DATA REAX )@@G@@CORD IS LABTAPE. @]@@@@SPACE 1 @A@@@@ 01 H151-LABEL-TAPELIBRAY )@@G@@ARY. @B@@@@ * INDEX SEQUENTIAL (ASCII) FILE @A@@@@ * BLOCAZ )@@G@@K SIZE 1344 CHARACTERS @B@@@@ * RECORD SIZE 114 CHAR (14 WORDS) BA )@@G@@@ @@@@ * KEY 6 CHAR (1 WORD) @E@@@@ * 111 KEYS PER INDEX BLOBB )@@G@@CK, 16 LOGICAL REC / BLOCK @ @@@@ * KEY IS REEL-NO. @D@@@@BC )@@G@@ 05 REEL-NO PICTURE X(6). @D@@@@ BD )@@G@@ 88 TIME-OF-LAST-UPDATE VALUE 'INFO'. @F@@@@ * KEY OF REBE )@@G@@CORD CONTAINING LAST UPDATE DATE-TIME @D@@@@ 05 ACCOUNT-NBF )@@G@@O PICTURE X(12).@E@@@@ 05 LAST-UPDATE-DATE-TIMEBG )@@G@@ REDEFINES ACCOUNT-NO. @F@@@@ * * CONTAINS DATE & TIME OF LASTBH )@@G@@ UPDATE OF LABELED-TAPE-@^@@@@ * * LIBRARY @D@@@@ BI )@@G@@ 10 LAST-UP-MO PICTURE 99. @D@@@@ 10 LAST-BJ )@@G@@UP-DA PICTURE 99. @D@@@@ 10 LAST-UP-YR BK )@@G@@ PICTURE 99. @D@@@@ 10 LAST-UP-HRS PICTURE 9BL )@@G@@9. @D@@@@ 10 LAST-UP-MIN PICTURE 99. @D@@@@BM )@@G@@ 10 LAST-UP-SEC PICTURE 99. @D@@@@ 0BN )@@G@@5 RUN-ID PICTURE X(6). @A@@@@ 05 CREATION-BO )@@G@@DATE-TIME. @F@@@@ * * CONTAINS LAST UPDATE DATE-TIME IF REELBP )@@G@@-NO CONTAINS@^@@@@ * 'INFO' @ @@@@ 10 CREATIOBQ )@@G@@N-MDY.@D@@@@ 15 CREATION-MONTH PICTURE 99. @D@@@@BR )@@G@@ 15 CREATION-DAY PICTURE 99. @D@@@@ BS )@@G@@ 15 CREATION-YEAR PICTURE 99. @A@@@@ 10 CREATIOBT )@@G@@N-TIME. @D@@@@ 15 CREATION-HOUR PICTURE 99. BU )@@G@@@D@@@@ 15 CREATION-MINUTE PICTURE 99. @D@@@@ BV )@@G@@ 15 CREATION-SECOND PICTURE 99. @A@@@@ 05 EXPBW )@@G@@IRATION-DATE. @D@@@@ 10 EXPIRATION-MONTH PICTURE XBX )@@G@@X. @D@@@@ 10 EXPIRATION-DAY PICTURE XX. @D@@@@BY )@@G@@ 10 EXPIRATION-YEAR PICTURE XX. @D@@@@ 0BZ )@@G@@5 QUALIFIER-FILENAME PICTURE X(25). @F@@@@ * ** QUALIFIERCA )@@G@@ SEPARATED FROM FILENAME BY ASTERISK * @D@@@@ 05 NUMBER-OFCB )@@G@@-RECORDS PICTURE 9(7). @D@@@@ 05 REEL-COUNT CC )@@G@@ PICTURE XX. @C@@@@ * ** WHICH REEL OF MULTI-REEL FILE CD )@@G@@@D@@@@ 05 REEL-TOTAL PICTURE XX. @C@@@@ CE )@@G@@* ** NUMBER OF REELS IN THIS FILE @D@@@@ 05 CYCLE-NO CF )@@G@@ PICTURE 999. @F@@@@ * ** ABSOLUTE CYCLE IF CATCG )@@G@@ALOGUED FILE 001 TO 999. @C@@@@ * ** BLANK IF FILE NOT CATCH )@@G@@ALOGUED @D@@@@ 05 DRIVE PICTURE XX. CI )@@G@@@D@@@@ 05 COMMENT-AREA PICTURE X(30). @D@@@@ CJ )@@G@@ 05 FILLER PICTURE X. @[@@@@EJECT @ @@@@2TABLECK )@@G@@-TAPE 60 (*TABLE-TAPE60)@G@@@@ H15512, PROGRAM H1551030 USES THE JOB, COCL )@@G@@MPANY, AND OPERATOR FILES @F@@@@ OF TABLE-TAPE 60 TO PROVIDE NAMES FCM )@@G@@OR CODES FOUND ON THE DATA @#@@@@ ENTRY STAT TAPE. @]@@@@SPACE 1 CN )@@G@@@^@@@@ 03120 FD TABLE-FILE @]@@@@SPACE 0 @A@@@@ 03130 RECORDICO )@@G@@NG MODE CFH AN @]@@@@SPACE 0 @B@@@@ 03140 LABEL RECORDS ARE SCP )@@G@@TANDARD @]@@@@SPACE 0 @B@@@@ 03150 RECORD CONTAINS 80 CHARACCQ )@@G@@TERS @]@@@@SPACE 0 @F@@@@ 03160 DATA RECORDS ARE JOB-FILE-CARDSCR )@@G@@, COMPANY-FILE-CARD, @]@@@@SPACE 0 @A@@@@ 03170 OPERATORCS )@@G@@-FILE-CD. @B@@@@ 01 JOB-FILE-CARDS DISPLAY-1. @E@@@@ CT )@@G@@ 03 TABLE-ID PICTURE X. @]@@@@SPACE 0 CU )@@G@@@C@@@@ 04060 03 CARD-TYPE PICTURE X. @]@@@@SPACE 0 CV )@@G@@@C@@@@ 04070 03 JFC-JOB PICTURE X(8). @]@@@@SPACE 0 CW )@@G@@@C@@@@ 04080 03 JFC-CO-NO PICTURE XX. @]@@@@SPACE 0 CX )@@G@@@E@@@@ 04090 03 JFC-CO-NO-9 REDEFINES JFC-CO-NO PICTURE 99. @]@@@@CY )@@G@@SPACE 0 @C@@@@ 04100 03 FILLER PICTURE X(68). @B@@@@CZ )@@G@@ 01 COMPANY-FILE-CARD DISPLAY-1. @]@@@@SPACE 0 @C@@@@ 04120DA )@@G@@ 03 FILLER PICTURE XX. @]@@@@SPACE 0 @C@@@@ 04130DB )@@G@@ 03 CFC-CO-NO PICTURE XX. @]@@@@SPACE 0 @E@@@@ 04140DC )@@G@@ 03 CFC-CO-NO-9 REDEFINES CFC-CO-NO PICTURE 99. @]@@@@SPACE 0 DD )@@G@@@C@@@@ 04150 03 CFC-CO-NAME PICTURE X(8). @]@@@@SPACE 0 DE )@@G@@@C@@@@ 04160 03 FILLER PICTURE X(68). @B@@@@ 01 ODF )@@G@@PERATOR-FILE-CD DISPLAY-1. @]@@@@SPACE 0 @C@@@@ 04180 03 FILLDG )@@G@@ER PICTURE XX. @]@@@@SPACE 0 @C@@@@ 04190 03 OFC-DH )@@G@@OPERATOR-NO PICTURE XXX. @]@@@@SPACE 0 @D@@@@ 04200 03 OFC-DI )@@G@@OPERATOR-NAME PICTURE X(15). @]@@@@SPACE 0 @D@@@@ 05010 0DJ )@@G@@3 FILLER PICTURE X(60). @[@@@@EJECT @D@@@@2DATA ENTRY DK )@@G@@STAT TAPE (*DE-STAT-TAPE) INFOREX SYSTEM @F@@@@ THIS FILE IS INPUT TO HDL )@@G@@15512, PROGRAM H1551010. IT CONTAINS DATA @F@@@@ ENTRY AND VERIFY STATISDM )@@G@@TICS, WITH 2 RECORDS PER JOB/OPERATOR. @]@@@@SPACE 1 @^@@@@ 02040DN )@@G@@ FD JOB-FILE @A@@@@ RECORDING MODE FORM01 @]@@@@SPACE DO )@@G@@0 @A@@@@ 02060 LABEL RECORDS ARE OMITTED@A@@@@ BLOCK CDP )@@G@@ONTAINS 1 RECORDS @]@@@@SPACE 0 @A@@@@ 02080 DATA RECORD IS JOBRDQ )@@G@@EC-IN.@[@@@@SPACE @A@@@@ 02090 01 JOBREC-IN DISPLAY-1. @]@@@@SPACE DR )@@G@@0 @C@@@@ 02100 03 JOB-Q PICTURE X. @]@@@@SPACE DS )@@G@@0 @F@@@@ 02110 03 FILLER PICTURE XDT )@@G@@(13). @]@@@@SPACE 0 @C@@@@ 02120 03 TEST-D PICTURE DU )@@G@@X. @]@@@@SPACE 0 @F@@@@ 02130 03 FILLER DV )@@G@@ PICTURE X(113).@[@@@@EJECT @D@@@@2DATA ENTRY STAT TAPE (*DE-STADW )@@G@@T-TAPE) CADE SYSTEM @F@@@@ THIS FILE IS INPUT TO @GSM IN RUNSTREAM HDX )@@G@@15512 TO BE SORTED AND @F@@@@ CONTAINS DATA ENTRY AND VERIFY STATISTICSDY )@@G@@ BY ACCOUNT NUMBER. @]@@@@SPACE 1 @ @@@@ SELECT CADE-IDZ )@@G@@N @C@@@@ ASSIGN UNISERVO DE-STAT-TAPE. @]@@@@SPACE EA )@@G@@1 @#@@@@ FD CADE-IN@A@@@@ BLOCK CONTAINS 9 RECORDS EB )@@G@@@A@@@@ LABEL RECORDS OMITTED @B@@@@ RECORD CONTAIEC )@@G@@NS 132 CHARACTERS @A@@@@ RECORDING MODE FORM01. @]@@@@SPACE ED )@@G@@1 @A@@@@ 01 CADE-REC DISPLAY-1.@D@@@@ 03 C-MOEE )@@G@@DE PIC X(8). @D@@@@ 03 C-JOB-NAME EF )@@G@@ PIC X(8). @D@@@@ 03 FILLER EG )@@G@@ PIC X(5). @D@@@@ 03 C-OPR-ID PIC XXX. EH )@@G@@@D@@@@ 03 FILLER PIC X(27). @D@@@@ EI )@@G@@ 03 C-ELAP-TIME PIC X(5). @D@@@@ 03 C-KEEJ )@@G@@YSTROKES PIC 9(5). @D@@@@ 03 FILLER EK )@@G@@ PIC X(10). @D@@@@ 03 C-RECORDS EL )@@G@@ PIC X(5). @D@@@@ 03 C-ERRORS PIC XXX. EM )@@G@@@D@@@@ 03 FILLER PIC X(53). @[@@@@EJECT EN )@@G@@@ @@@@2TABLE-DISC-JA (*TABLEDISC-JA)@]@@@@3DECODE 01 @F@@@@ DECODE 01 OEO )@@G@@F TABLE-DISC-JA IS USED AS INPUT TO H15513, PROGRAM @F@@@@ H1551040, AEP )@@G@@ND H15515, PROGRAMS H1551070 AND H1551080. THIS DECODE@F@@@@ CONTAINS DAEQ )@@G@@TA RELATING TO BUDGETED AMOUNTS FOR OPERATING EXPENSES@ @@@@ AND BILLINGER )@@G@@ INFORMATION. @]@@@@SPACE 1 @F@@@@ 00300 SELECT TBLDISC ASSES )@@G@@IGN TO MASS-STORAGE TABLEDISC-JA @]@@@@SPACE 0 @E@@@@ 00314 ET )@@G@@ ACCESS IS DYNAMIC ORGANIZATION IS INDEXED @]@@@@SPACE 0 @B@@@@EU )@@G@@ 00320 ACTUAL KEY IS JA-KEY.@]@@@@SPACE 1 @B@@@@ 15700EV )@@G@@ 01 TBL-D-CD USAGE IS DISPLAY-1. @]@@@@SPACE 0 @D@@@@ 15710 0EW )@@G@@2 TD-DECODE PIC 99.@]@@@@SPACE 0 @ @@@@ 15720EX )@@G@@ 02 TD-ACCT-CD. @]@@@@SPACE 0 @E@@@@ 15730 03 TD-ACCTEY )@@G@@ PIC XXX. @]@@@@SPACE 0 @E@@@@ 15740 EZ )@@G@@ 03 TD-ACCT2 PIC X(6). @]@@@@SPACE 0 @D@@@@FA )@@G@@ 15750 02 TD-CD-NO PIC X. @]@@@@SPACE 0 FB )@@G@@@D@@@@ 15760 02 TD-ACD PIC X. @]@@@@SPACE FC )@@G@@0 @^@@@@ 15770 02 TD-TYPE1.@]@@@@SPACE 0 @ @@@@ 15780 FD )@@G@@ 03 TD-T1-0. @]@@@@SPACE 0 @A@@@@ 15790 04 TD-0-BUDGETFE )@@G@@. @]@@@@SPACE 0 @D@@@@ 15800 05 TD-0-DEPUTY FF )@@G@@ PIC X. @D@@@@ 810 05 TD-0-BUREAU PIC X. FG )@@G@@@]@@@@SPACE 0 @E@@@@ 15820 05 TD-0-SEQ PFH )@@G@@IC XXX. @]@@@@SPACE 0 @D@@@@ 15830 04 TD-0-BILLING FI )@@G@@ PIC X. @]@@@@SPACE 0 @E@@@@ 15840 04 TD-0-COST-PFJ )@@G@@ER PIC 9V99. @]@@@@SPACE 0 @E@@@@ 15850 04 FK )@@G@@ TD-0-NBR-LINES PIC 9V999. @]@@@@SPACE 0 @E@@@@ 15860FL )@@G@@ 04 TD-0-TYPE-CTM OCCURS 4 TIMES PIC 9V999. @]@@@@SPACE 0 FM )@@G@@@E@@@@ 15870 04 TD-0-BUD-AMT PIC 9(6)V99.@]@@@@FN )@@G@@SPACE 0 @E@@@@ 15880 04 TD-0-BUD-DISCRIPT PIC X(FO )@@G@@30). @]@@@@SPACE 0 @C@@@@ 15890 03 TD-T1-1 REDEFINES TD-T1-0FP )@@G@@. @]@@@@SPACE 0 @E@@@@ 15900 04 TD-1-DEP-DISC FQ )@@G@@ PIC X(32). @]@@@@SPACE 0 @E@@@@ 15910 04 TD-1-BUR-DIFR )@@G@@SC PIC X(35). @]@@@@SPACE 0 @C@@@@ 15920 03 TFS )@@G@@D-T1-2 REDEFINES TD-T1-0. @]@@@@SPACE 0 @E@@@@ 15930 04 FT )@@G@@ TD-2-ACCT-DISC PIC X(34). @]@@@@SPACE 0 @E@@@@ 15940FU )@@G@@ 04 TD-2-TITLE PIC X(33). @]@@@@SPACE 0 FV )@@G@@@C@@@@ 15950 03 TD-T1-3 REDEFINES TD-T1-0. @]@@@@SPACE 0 FW )@@G@@@E@@@@ 15960 04 TD-3-RCVR PIC X(33). @]@@@@FX )@@G@@SPACE 0 @E@@@@ 15970 04 TD-3-COPY PIC X(FY )@@G@@34). @]@@@@SPACE 0 @C@@@@ 16050 03 TD-T1-4 REDEFINES TD-T1-0FZ )@@G@@. @]@@@@SPACE 0 @E@@@@ 16060 04 TD-4-RCVR GA )@@G@@ PIC X(33). @]@@@@SPACE 0 @E@@@@ 16070 04 TD-4-MAX-FEGB )@@G@@ES PIC X(15). @]@@@@SPACE 0 @D@@@@ 16080 04 GC )@@G@@ TD-4-MAX REDEFINES TD-4-MAX-FEES. @]@@@@SPACE 0 @E@@@@ 16090 GD )@@G@@ 05 TD-4-FEES OCCURS 3 TIMES PIC S999V99.@]@@@@SPACE 0 @E@@@@GE )@@G@@ 16100 04 FILLER PIC X(19). @]@@@@SPACE GF )@@G@@0 @C@@@@ 16110 03 TD-T1-5 REDEFINES TD-T1-0. @]@@@@SPACE GG )@@G@@0 @E@@@@ 16120 04 TD-5-ACT-1 PIC 999. GH )@@G@@@]@@@@SPACE 0 @E@@@@ 16130 04 TD-5-PCT-1 OCCURS 5 TIMES GI )@@G@@PIC 999V9. @]@@@@SPACE 0 @E@@@@ 16140 04 TD-5-ACT-2 GJ )@@G@@ PIC 999. @]@@@@SPACE 0 @E@@@@ 16150 04 TD-5-GK )@@G@@PCT-2 OCCURS 5 TIMES PIC 999V9. @]@@@@SPACE 0 @E@@@@ 16160 GL )@@G@@ 04 FILLER PIC X(21). @]@@@@SPACE 0 @C@@@@GM )@@G@@ 15980 03 TD-TYPES REDEFINES TD-T1-0. @]@@@@SPACE 0 @E@@@@GN )@@G@@ 15990 04 TD3-ITEM PIC X(15). @]@@@@SPACE GO )@@G@@0 @D@@@@ 16000 04 TD3-UNITS PIC X.@]@@@@GP )@@G@@SPACE 0 @F@@@@ 16010 04 TD3-COSTS PIC 9(GQ )@@G@@4)V999. @]@@@@SPACE 0 @E@@@@ 16020 04 TD3-SHIFT1 GR )@@G@@ PIC 999V9. @]@@@@SPACE 0 @E@@@@ 16030 04 TD3-SHIGS )@@G@@FT3 PIC 999V9. @]@@@@SPACE 0 @E@@@@ 16040 GT )@@G@@ 04 FILLER PIC X(36). @E@@@@ 02 FILGU )@@G@@LER PIC X(4). @[@@@@EJECT @]@@@@3DECODE 02 GV )@@G@@@F@@@@ DECODE 02 OF TABLE-DISC-JA IS USED AS INPUT TO H15513, PROGRAM GW )@@G@@@G@@@@ H1551050, AND H15515, PROGRAM H1551070. THIS DECODE CONTAINS OVERGX )@@G@@- @D@@@@ HEAD PERCENTAGES, COSTS OF SUPPLIES, AND CTM COSTS. @]@@@@GY )@@G@@SPACE 1 @A@@@@ SELECT PCT-COST-FIGURES @D@@@@ GZ )@@G@@ ASSIGN MASS-STORAGE TABLEDISC-JA @B@@@@ ACCESSHA )@@G@@ MODE IS DYNAMIC @B@@@@ ORGANIZATION IS INDEXED @C@@@@HB )@@G@@ ACTUAL KEY IS TABLE-JA-KEY. @]@@@@SPACE 1 @^@@@@HC )@@G@@ 01 TABLE-JA-KEY.@E@@@@ 03 TABLE-JA-KEY-NO PICHD )@@G@@ 99 VALUE 02. @F@@@@ 03 FILLER PIC X(10)HE )@@G@@ VALUE SPACES. @]@@@@SPACE 1 @ @@@@ FD PCT-COST-FIGURES HF )@@G@@@B@@@@ BLOCK CONTAINS 3360 CHARACTERS @A@@@@ LABEL RHG )@@G@@ECORDS STANDARD @A@@@@ RECORDING MODE INTERNAL. @[@@@@SPACE HH )@@G@@@^@@@@ 01 TABLE-JA-REC.@C@@@@ 03 TJA-KEY HI )@@G@@ PIC 99. @D@@@@ 03 TJA-HEADER-AREA PIC X(10). HJ )@@G@@@C@@@@ 88 TJA-DECODE-02-HDR VALUE SPACES.@D@@@@ HK )@@G@@ 88 TJA-DECODE-02 VALUE 'JAPCT 0'.@C@@@@ 03 FILLER HL )@@G@@ PIC X. @D@@@@ 03 TJA-OVHD-PCT PICHM )@@G@@ 99V99. @D@@@@ 03 TJA-EMP-BENEFIT-PCT PIC 99V99. HN )@@G@@@D@@@@ 03 TJA-DE-SUPPLIES PIC 999V99. @D@@@@ HO )@@G@@ 03 TJA-AP-SUPPLIES PIC 999V99. @D@@@@ 03 TJA-HP )@@G@@COMPUTER-SUPPLIES PIC 9(5)V99. @D@@@@ 03 TJA-CTMC-LINE-COHQ )@@G@@ST PIC 9(5)V99. @D@@@@ 03 TJA-HS-CTM-COST PICHR )@@G@@ 999V99. @D@@@@ 03 TJA-MS-CTM-COST PIC 999V99. HS )@@G@@@D@@@@ 03 TJA-LS-CTM-COST PIC 999V99. @D@@@@ HT )@@G@@ 03 TJA-DIAL-CTM-COST PIC 999V99. @D@@@@ 03 FILLHU )@@G@@ER PIC X(19). @[@@@@EJECT @]@@@@3DECODE 03 @F@@@@HV )@@G@@ DECODE 03 OF TABLE-DISC-JA IS USED AS INPUT TO H15513, PROGRAM @G@@@@HW )@@G@@ H1551040, AND H15515, PROGRAM H1551070. THIS DECODE CONTAINS COSTS HX )@@G@@@G@@@@ PER UNIT OF VARIOUS ITEMS SUCH AS TAPE MOUNTS, AND SHIFT DIFFERENHY )@@G@@- @#@@@@ TIAL PERCENTAGES.@]@@@@SPACE 1 @ @@@@ SELECT HZ )@@G@@TAB-DISC @D@@@@ ASSIGN TO MASS-STORAGE TABLEDISC-JA IA )@@G@@@B@@@@ ACCESS MODE IS DYNAMIC @B@@@@ IB )@@G@@ORGANIZATION IS INDEXED @B@@@@ ACTUAL KEY IS TABLE-KEY.IC )@@G@@@]@@@@SPACE 1 @^@@@@ FD TAB-DISC @B@@@@ LABEL RID )@@G@@ECORDS ARE STANDARD @B@@@@ BLOCK CONTAINS 3360 CHARACTERS IE )@@G@@@B@@@@ DATA RECORD IS TABLE-DISC. @C@@@@ 01 TABLE-DIF )@@G@@ISC USAGE IS DISP-1 PIC X(84).@]@@@@SPACE 1 @B@@@@ 01 TABLE-KIG )@@G@@EY USAGE IS DISP-1. @A@@@@ 05 DECODE-FIELD PIC XX. @A@@@@IH )@@G@@ 05 3-DIGIT-FIELD PIC XXX.@B@@@@ 05 FILLER PIII )@@G@@C X(6). @C@@@@ 05 CARD-NO-FIELD PIC 9 VALUE 0. @]@@@@IJ )@@G@@SPACE 1 @D@@@@ 01 TABLE-DISC-03 REDEFINES TABLE-DISC-01. IK )@@G@@@A@@@@ 05 DECODE-NUM PIC 99. @A@@@@ 05 SEQ-NUM IL )@@G@@ PIC 999.@B@@@@ 05 FILLER PIC X(6). @A@@@@ IM )@@G@@ 05 CARD-NUM PIC X. @A@@@@ 05 FILLER PIC X. IN )@@G@@@B@@@@ 05 ITEM-DESCRIP PIC X(15). @A@@@@ 05 UNITIO )@@G@@S PIC X. @B@@@@ 05 UNIT-COST PIC 9(4)V999. @B@@@@IP )@@G@@ 05 SHIFT1-DIFF PIC 999V9. @B@@@@ 05 SHIFT3-DIFIQ )@@G@@F PIC 999V9. @B@@@@ 05 FILLER PIC X(40). @[@@@@IR )@@G@@EJECT @A@@@@2SALARY AND EQUIPMENT COST FIGURES @F@@@@ THESE ARE D.P. OVIS )@@G@@ERHEAD COSTS SUPPLIED VIA SGS STATEMENTS TO @F@@@@ H15511. THIS INFOIT )@@G@@RMATION IS USED TO CREATE THE FILE *SALRY-EQUIP.@]@@@@SPACE 1 @C@@@@IU )@@G@@ THE DATA CONTAINS THE FOLLOWING FOR EACH MONTH:@]@@@@SPACE 1 @B@@@@IV )@@G@@ 1. TOTAL D.P. ADMINISTRATIVE SALARIES @ @@@@ 2. TOTAL DATA ENTRY SAIW )@@G@@LARIES@B@@@@ 3. TOTAL ANALYST/PROGRAMMER SALARIES @B@@@@ 4. TOTAL CIX )@@G@@OMPUTER OPERATIONS SALARIES @B@@@@ 5. TOTAL DATA ENTRY EQUIPMENT COSTIY )@@G@@S @A@@@@ 6. TOTAL COMPUTER EQUIPMENT COSTS @B@@@@ 7. TOTAL AFTER 5IZ )@@G@@PM MAINTENANCE COSTS. @[@@@@EJECT @D@@@@2ANALYSIS AND PROGRAMMING TIMEJA )@@G@@ FILE (*SCS-SUMMARY) @F@@@@ THIS DISC FILE IS INPUT TO H15513, PROGRAJB )@@G@@M H1551050, AND H15515, @G@@@@ PROGRAM H1551060. IT CONTAINS STATISTICS JC )@@G@@ON TIME SPENT BY ANALYSTS @A@@@@ AND PROGRAMMERS ON VARIOUS DUTIES. JD )@@G@@@]@@@@SPACE 1 @ @@@@ SELECT SCS-SUMM @D@@@@ JE )@@G@@ ASSIGN MASS-STORAGE SCS-SUMMARY @B@@@@ ACCESSJF )@@G@@ MODE IS DYNAMIC @B@@@@ ORGANIZATION IS INDEXED @C@@@@JG )@@G@@ ACTUAL KEY IS SCS-SUMM-KEY. @]@@@@SPACE 1 @^@@@@JH )@@G@@ 01 SCS-SUMM-KEY.@E@@@@ 88 COUNT-REC JI )@@G@@ VALUE '0000'. @F@@@@ 02 SCS-ACCT-NUM PIC JJ )@@G@@999 VALUE 000. @E@@@@ 02 SCS-ACCT-CLASS PIC JK )@@G@@X VALUE '0'.@]@@@@SPACE 1 @^@@@@ FD SCS-SUMM @B@@@@ JL )@@G@@ BLOCK CONTAINS 119 RECORDS @A@@@@ LABEL RECORDS STANDJM )@@G@@ARD @A@@@@ RECORDING MODE INTERNAL. @]@@@@SPACE 1 @^@@@@JN )@@G@@ 01 SCS-SUMM-REC.@A@@@@ * SCS ACCOUNT SUMMARY FILE @F@@@@JO )@@G@@ * CONTAINS HOURS BY ACCOUNT FROM ACCOUNT-ORIENTED FILE @F@@@@JP )@@G@@ * AND RUN-ORIENTED FILE; INITIAL RECORD CONTAINS COUNT @E@@@@JQ )@@G@@ * OF RECORDS ADDED TO FILE SINCE LAST REORGANIZE @F@@@@ JR )@@G@@* ASCII INDEX-SEQUENTIAL, BLOCK CONTAINS 119 RECORDS @A@@@@ JS )@@G@@* ACTUAL KEY DESCRIPTION: @A@@@@ * 01 SCS-SUMM-KEY. JT )@@G@@@E@@@@ * 88 COUNT-REC VALUE '0000'. @D@@@@JU )@@G@@ * 02 SCS-ACCT-NUM PIC 9(3). @D@@@@ * JV )@@G@@ 02 SCS-ACCT-CLASS PIC X. @]@@@@ * @ @@@@ JW )@@G@@ 02 COUNT-RECORD. @C@@@@ 03 RECORDS-ADDED PIC H9(JX )@@G@@3). @F@@@@ 88 REORGANIZE-NEEDED VALUE 100 THRJY )@@G@@U 999.@C@@@@ 03 FILLER PIC X(46). @D@@@@ JZ )@@G@@ 02 SUMM-RECORD REDEFINES COUNT-RECORD. @F@@@@ 88 KA )@@G@@ INACTIVE-SUMMARY-RECORD VALUE LOW-VALUES. @B@@@@ 03 KB )@@G@@ SUMM-MONTHS OCCURS 12. @C@@@@ 04 ACCT-HOURS PIC H9(KC )@@G@@5). @C@@@@ 04 RUN-HOURS PIC H9(5). @[@@@@EJECT KD )@@G@@@^@@@@2KEYPUNCH TIME CARDS @F@@@@ THIS CARD FILE IS INPUT TO H15511 TKE )@@G@@O CREATE THE *KP-TIME FILE. @F@@@@ INFORMATION IS FURNISHED DETAILING KF )@@G@@HOW MUCH TIME WAS SPENT DOING @F@@@@ ENTRY WORK FOR A GIVEN ACCOUNT-NO. KG )@@G@@ON A GIVEN DAY, BY A GIVEN @ @@@@ OPERATOR AND MACHINE TYPE. @[@@@@KH )@@G@@EJECT @ @@@@2KEYPUNCH MONTHLY CARD COUNT @F@@@@ THIS CARD FILE IS INPUTKI )@@G@@ TO H15511 TO CREATE THE *KP-CARDS FILE @F@@@@ (SORTED BY ACCOUNT-NO.)KJ )@@G@@. IT CONTAINS INFORMATION ON HOW MUCH TIME@G@@@@ WAS SPENT DOING ENTRY WKK )@@G@@ORK FOR A GIVEN ACCOUNT, WHETHER OR NOT THE @F@@@@ WORK WAS INITIAL KL )@@G@@ENTRY OR VERIFICATION, AND HOW MANY RECORDS WERE@]@@@@ ENTERED. @[@@@@KM )@@G@@EJECT @ @@@@2BILLING ADJUSTMENT CARDS @F@@@@ THIS CARD FILE IS INPUTKN )@@G@@ TO H15511 TO CREATE *BILL-ADJ-CDS. IT @F@@@@ DETAILS SPECIAL ADJUSTMKO )@@G@@ENTS TO BE MADE ON THE FINAL D.P. CHARGES @^@@@@ FOR A GIVEN ACCOUNT-NO.KP )@@G@@@ @@@@1SYSTEM-PRODUCED DATA FILES @C@@@@2INTERIM DAILY ACCOUNTING FILEKQ )@@G@@ (*INTERIM-ACCT) @G@@@@ THIS DISC FILE IS CREATED IN H15500, PROGRAM H1KR )@@G@@550020, AND USED BY @F@@@@ GSM TO CREATE A SORTED VERSION. IT CONSISKS )@@G@@TS OF INFORMATION FOUND @C@@@@ ON THE SYSTEM LOG TAPE ORGANIZED BY RUN-IKT )@@G@@D. @]@@@@SPACE 1 @ @@@@ SELECT INTERIM-FILE@D@@@@ KU )@@G@@ ASSIGN MASS-STORAGE INTERIM-ACCT. @]@@@@SPACE 1 @^@@@@KV )@@G@@ FD INTERIM-FILE @B@@@@ BLOCK CONTAINS 6 RECORDS KW )@@G@@@A@@@@ LABEL RECORDS STANDARD @A@@@@ RECORDING MODKX )@@G@@E INTERNAL. @[@@@@SPACE @^@@@@ 01 INTERIM-REC. @E@@@@ 03 KY )@@G@@INT-TYPE PIC 9 COMP-4. @E@@@@ 03 FILLERKZ )@@G@@ PIC X(149) DISP-1. @E@@@@ 03 INT-ENTRY-TILA )@@G@@ME COMP-4. @D@@@@ 05 INT-ENTRY-DATE LB )@@G@@ COMP-4. @D@@@@ 07 INT-ENTRY-YY PIC LC )@@G@@9 COMP-4. @D@@@@ 07 INT-ENTRY-MM PIC 9 COMP-4. LD )@@G@@@D@@@@ 07 INT-ENTRY-DD PIC 9 COMP-4. @D@@@@ LE )@@G@@ 05 INT-ENTRY-SEC PIC 9(5) COMP-4.@E@@@@ 03 FILLERLF )@@G@@ PIC X(12) DISP-1. @E@@@@ 03 INT-SORT-DATLG )@@G@@E-9 PIC 9(10) COMP-4. @E@@@@ 03 INT-DEVICE-ID LH )@@G@@ PIC X(6) DISP-1. @E@@@@ 03 INT-PRI-ACCT-NO LI )@@G@@ DISP-1. @C@@@@ 05 INT-PRI-ACCT-GP PIC LJ )@@G@@XX. @C@@@@ 05 FILLER PIC X(10).@A@@@@ LK )@@G@@ 03 INT-PRI-ACCNT9 REDEFINES@ @@@@ INT-PRI-ACCT-NO. @D@@@@LL )@@G@@ 05 FILLER PIC 9 COMP-4. @E@@@@ LM )@@G@@05 INT-PRI-ACCT-NO-9 PIC 9(18) COMP-4. @E@@@@ 03 INT-RULN )@@G@@NID PIC X(6) DISP-1. @F@@@@ 03 INT-SYMB-DATLO )@@G@@E REDEFINES INT-RUNID PIC 9(10) COMP-4. @]@@@@SPACE 1 @^@@@@ LP )@@G@@ 01 TYPE-03-REC. @D@@@@ 03 T03-ID PIC X(6) DLQ )@@G@@ISP-1.@E@@@@ 03 T03-QUALIFIER PIC X(12) DISP-1. LR )@@G@@@E@@@@ 03 T03-FNAME PIC X(12) DISP-1. @E@@@@LS )@@G@@ 03 FILLER PIC X(25) DISP-1. @C@@@@ LT )@@G@@ 03 T03-COND-WD PIC 1. @D@@@@ 88 POSITIOLU )@@G@@N-GRANULARITY VALUE 1. @C@@@@ 03 FILLER LV )@@G@@ PIC 1(5). @D@@@@ 03 FILLER PIC XX DISP-1. LW )@@G@@@D@@@@ 03 T03-CYCLE PIC 99 COMP-4. @A@@@@ LX )@@G@@ 03 T03-FREE-TIME COMP-4. @ @@@@ 05 T03-FREE-DATE. @E@@@@LY )@@G@@ 07 T03-FREE-MM PIC 9. @E@@@@ LZ )@@G@@ 07 T03-FREE-DD PIC 9. @E@@@@ MA )@@G@@ 07 T03-FREE-YY PIC 9. @E@@@@ 05 T03-MB )@@G@@FREE-SEC PIC 9(5). @D@@@@ 03 T03-FREE-TIMMC )@@G@@E-9 REDEFINES T03-FREE-TIME @A@@@@ PIC 9(10) COMP-4. MD )@@G@@@F@@@@ 03 FILLER PIC X(12) DISP-1.ME )@@G@@@F@@@@ 03 T03-GRANULE-CNT OCCURS 8 TIMES PIC 9(10) COMP-4.MF )@@G@@@F@@@@ 03 T03-EQUIP-CODE PIC 999 COMP-4. MG )@@G@@@F@@@@ 03 FILLER PIC X(16) DISP-1.MH )@@G@@@F@@@@ 03 T03-SUPS-VDT PIC 9(10) COMP-4.MI )@@G@@@A@@@@ 03 T03-ENTRY-TIME COMP-4. @ @@@@ 05 T03-ENTRY-MJ )@@G@@DATE. @E@@@@ 07 T03-ENTRY-YY PIC 9. MK )@@G@@@E@@@@ 07 T03-ENTRY-MM PIC 9. @E@@@@ML )@@G@@ 07 T03-ENTRY-DD PIC 9. @E@@@@ MM )@@G@@ 05 T03-ENTRY-SEC PIC 9(5). @F@@@@ 03 MN )@@G@@FILLER PIC X(24) DISP-1.@F@@@@ 03 MO )@@G@@T03-PRI-ACCNT-NO PIC X(12) DISP-1.@F@@@@ 03 MP )@@G@@T03-RUNID PIC X(6) DISP-1. @F@@@@ 03 MQ )@@G@@FILLER PIC X(6) DISP-1. @[@@@@SPACE @[@@@@MR )@@G@@SPACE @^@@@@ 01 TYPE-04-REC. @G@@@@ 03 FILLER MS )@@G@@ PIC X(132) DISP-1. @F@@@@ 03 T04-REAL-TIMMT )@@G@@E PIC 9(10) COMP-4.@F@@@@ 03 FILLER MU )@@G@@ PIC X(6) DISP-1. @ @@@@ 03 T04-CONDITIOMV )@@G@@N-WD. @E@@@@ 05 FILLER PIC 1(9). MW )@@G@@@E@@@@ 05 SW-T04-ABORT PIC 1. @C@@@@MX )@@G@@ 88 T04-ABORT VALUE 1. @E@@@@ 05 SW-MY )@@G@@T04-ERR PIC 1. @C@@@@ 88 T04-ERRMZ )@@G@@ VALUE 1. @E@@@@ 05 FILLER NA )@@G@@ PIC 1(25). @A@@@@ 03 T04-ENTRY-TIME COMP-4. @ @@@@ NB )@@G@@ 05 T04-ENTRY-DATE. @E@@@@ 07 T04-ENTRY-YY NC )@@G@@ PIC 9. @E@@@@ 07 T04-ENTRY-MM ND )@@G@@ PIC 9. @E@@@@ 07 T04-ENTRY-DD PIC 9NE )@@G@@. @E@@@@ 05 T04-ENTRY-SEC PIC 9(5). NF )@@G@@@F@@@@ 03 FILLER PIC X(24) DISP-1.NG )@@G@@@F@@@@ 03 T04-PRI-ACCNT-NO PIC X(12) DISP-1.NH )@@G@@@F@@@@ 03 T04-RUNID PIC X(6) DISP-1. NI )@@G@@@F@@@@ 03 FILLER PIC X(6) DISP-1. NJ )@@G@@@[@@@@SPACE @[@@@@SPACE @^@@@@ 01 TYPE-05-REC. @F@@@@ 03 NK )@@G@@FILLER PIC X(6) DISP-1. @E@@@@ 03 NL )@@G@@T05-ACCNT-NO USAGE DISP-1 PIC X(12). @E@@@@ 03 T05-PRNM )@@G@@OJ-ID USAGE DISP-1 PIC X(12). @A@@@@ 03 T05-INIT-TIMNN )@@G@@E COMP-4. @ @@@@ 05 T05-INIT-DATE . @E@@@@ 07 T0NO )@@G@@5-INIT-MM PIC 9. @E@@@@ 07 T05-INITNP )@@G@@-DD PIC 9. @E@@@@ 07 T05-INIT-YY NQ )@@G@@ PIC 9. @E@@@@ 05 T05-INIT-SEC NR )@@G@@ PIC 9(5). @A@@@@ 03 T05-TERM-TIME COMP-4. @B@@@@NS )@@G@@ 05 T05-TERM-DATE . @E@@@@ 07 T05-TERMNT )@@G@@-MM PIC 9. @E@@@@ 07 T05-TERM-DD NU )@@G@@ PIC 9. @E@@@@ 07 T05-TERM-YY NV )@@G@@ PIC 9. @E@@@@ 05 T05-TERM-SEC NW )@@G@@ PIC 9(5). @F@@@@ 03 T05-CARDS-IN NX )@@G@@ PIC 9(5) COMP-4. @F@@@@ 03 T05-CARDS-OUT NY )@@G@@ PIC 9(5) COMP-4. @F@@@@ 03 FILLER NZ )@@G@@ PIC X DISP-1. @F@@@@ 03 T05-STD- PG-CNT OA )@@G@@ PIC 9(8) COMP-4. @F@@@@ 03 FILLER OB )@@G@@ PIC X(6) DISP-1. @F@@@@ 03 T05-TOT-SU PS OC )@@G@@ PIC 9(10) COMP-4.@F@@@@ 03 T05-CB-SUPS OD )@@G@@ PIC 9(10) COMP-4.@F@@@@ 03 T05-TK-SUP-PROD OCCURS 8 TIMES OE )@@G@@ PIC 9(10) COMP-4.@F@@@@ 03 FILLER OF )@@G@@ PIC X(30) DISP-1.@A@@@@ 03 T05-ENTRY-TIME COMP-4. @A@@@@ OG )@@G@@ 05 T05-ENTRY-DATE . @E@@@@ 07 T05-ENTRY-YY OH )@@G@@ PIC 9. @E@@@@ 07 T05-ENTRY-MM OI )@@G@@ PIC 9. @E@@@@ 07 T05-ENTRY-DD OJ )@@G@@ PIC 9. @E@@@@ 05 T05-ENTRY-SEC PIC 9OK )@@G@@(5) . @F@@@@ 03 FILLER PIC X(24) DOL )@@G@@ISP-1.@F@@@@ 03 T05-PRI-ACCNT-NO PIC X(12) DOM )@@G@@ISP-1.@F@@@@ 03 T05-RUNID PIC X(6) DION )@@G@@SP-1. @F@@@@ 03 FILLER PIC X(6) DIOO )@@G@@SP-1. @[@@@@SPACE @[@@@@SPACE @^@@@@ 01 TYPE-07-REC. @F@@@@ OP )@@G@@ 03 FILLER PIC X(10) DISP-1.@F@@@@ OQ )@@G@@ 03 T07-MSG-NO PIC 9 COMP-4. @F@@@@ OR )@@G@@ 03 FILLER PIC X DISP-1. @E@@@@ OS )@@G@@ 03 T07-MSG DISP-1. @E@@@@ OT )@@G@@05 T07-MSG-SUBSYS PIC XX. @E@@@@ 05 T07OU )@@G@@-MSG-RMDR PIC X(136).@A@@@@ 03 T07-ENTRY-TIOV )@@G@@ME COMP-4. @ @@@@ 05 T07-ENTRY-DATE. @E@@@@ 07 T0OW )@@G@@7-ENTRY-YY PIC 9. @E@@@@ 07 T07-ENTROX )@@G@@Y-MM PIC 9. @E@@@@ 07 T07-ENTRY-DD OY )@@G@@ PIC 9. @E@@@@ 05 T07-ENTRY-SEC OZ )@@G@@ PIC 9(5). @F@@@@ 03 FILLER PA )@@G@@ PIC X(24) DISP-1.@F@@@@ 03 T07-PRI-ACCNT-NO PB )@@G@@ PIC X(12) DISP-1.@F@@@@ 03 T07-RUNID PC )@@G@@ PIC X(6) DISP-1. @F@@@@ 03 FILLER PD )@@G@@ PIC X(6) DISP-1. @[@@@@SPACE @[@@@@SPACE @^@@@@ 01 TYPE-09PE )@@G@@-REC. @F@@@@ 03 FILLER PIC X(7) DIPF )@@G@@SP-1. @F@@@@ 03 T09-PRIORITY PIC X DISP-PG )@@G@@1. @F@@@@ 03 FILLER PIC X(22) DPH )@@G@@ISP-1.@F@@@@ 03 T09-PROJ-ID PIC X(12) DPI )@@G@@ISP-1.@A@@@@ 03 T09-ACCNT-NO DISP-1. @E@@@@ 05 T09PJ )@@G@@-ACCNT-FLD-1 PIC XX. @E@@@@ 05 FILLER PK )@@G@@ PIC X(10). @F@@@@ 03 T09-SEQ-ID PL )@@G@@ PIC X(6) DISP-1. @F@@@@ 03 T09-SEQ-NO REDEFINPM )@@G@@ES T09-SEQ-ID PIC 9(10) COMP-4.@F@@@@ 03 T09-RUN-TYPE PN )@@G@@ PIC 9 COMP-4. @F@@@@ 03 FILLER PO )@@G@@ PIC X(5) DISP-1. @A@@@@ 03 T09-DEVICE-ASSOC DPP )@@G@@ISP-1.@E@@@@ 05 T09-DEV-ASSOC-H1 PIC XXX. PQ )@@G@@@E@@@@ 05 T09-DEV-ASSOC-H2 PIC XXX. @F@@@@PR )@@G@@ 03 FILLER PIC X(18) DISP-1.@F@@@@PS )@@G@@ 03 T09-BL-MIN PIC 9(10) COMP-4.@F@@@@PT )@@G@@ 03 FILLER PIC X(54) DISP-1.@A@@@@PU )@@G@@ 03 T09-ENTRY-TIME COMP-4. @ @@@@ 05 T09-ENTRY-DATE. PV )@@G@@@E@@@@ 07 T09-ENTRY-YY PIC 9. @E@@@@PW )@@G@@ 07 T09-ENTRY-MM PIC 9. @E@@@@ PX )@@G@@ 07 T09-ENTRY-DD PIC 9. @E@@@@ 0PY )@@G@@5 T09-ENTRY-SEC PIC 9(5). @F@@@@ 03 FILLERPZ )@@G@@ PIC X(18) DISP-1.@F@@@@ 03 T09-SYQA )@@G@@MB-ID PIC X(6) DISP-1. @A@@@@ 03 T09-PRQB )@@G@@I-ACCNT-NO DISP-1.@E@@@@ 05 T09-PRI-ACCNT-GP QC )@@G@@ PIC XX. @E@@@@ 05 FILLER PIC XQD )@@G@@(10). @F@@@@ 03 T09-RUNID PIC X(6) DIQE )@@G@@SP-1. @F@@@@ 03 FILLER PIC X(6) DIQF )@@G@@SP-1. @[@@@@SPACE @[@@@@SPACE @^@@@@ 01 TYPE-10-REC. @F@@@@ QG )@@G@@ 03 FILLER PIC X(9) DISP-1. @F@@@@ QH )@@G@@ 03 T10-MSG-NO PIC 9 COMP-4. @F@@@@ QI )@@G@@ 03 FILLER PIC XX DISP-1. @E@@@@ QJ )@@G@@ 03 T10-MSG DISP-1. @E@@@@ QK )@@G@@05 T10-RES PONSE PIC X. @E@@@@ 05 T10QL )@@G@@-MSG-RMDR PIC X(65). @F@@@@ 03 FILLER QM )@@G@@ PIC X(72) DISP-1.@A@@@@ 03 T10-ENTRY-TIQN )@@G@@ME COMP-4. @ @@@@ 05 T10-ENTRY-DATE. @E@@@@ 07 T1QO )@@G@@0-ENTRY-YY PIC 9. @E@@@@ 07 T10-ENTRQP )@@G@@Y-MM PIC 9. @E@@@@ 07 T10-ENTRY-DD QQ )@@G@@ PIC 9. @E@@@@ 05 T10-ENTRY-SEC QR )@@G@@ PIC 9(5). @F@@@@ 03 FILLER QS )@@G@@ PIC X(24) DISP-1.@F@@@@ 03 T10-PRI-ACCNT-NO QT )@@G@@ PIC X(12) DISP-1.@F@@@@ 03 T10-RUNID QU )@@G@@ PIC X(6) DISP-1. @F@@@@ 03 FILLER QV )@@G@@ PIC X(6) DISP-1. @[@@@@SPACE @[@@@@SPACE @^@@@@ 01 TYPE-12QW )@@G@@-REC. @F@@@@ 03 FILLER PIC X(9) DIQX )@@G@@SP-1. @F@@@@ 03 T12-KEYIN PIC XXX DISQY )@@G@@P-1. @G@@@@ 03 T12-MSG PIC X(138) QZ )@@G@@DISP-1. @A@@@@ 03 T12-ENTRY-TIME COMP-4. @ @@@@ 0RA )@@G@@5 T12-ENTRY-DATE. @E@@@@ 07 T12-ENTRY-YY RB )@@G@@ PIC 9. @E@@@@ 07 T12-ENTRY-MM PIC 9RC )@@G@@. @E@@@@ 07 T12-ENTRY-DD PIC 9. RD )@@G@@@E@@@@ 05 T12-ENTRY-SEC PIC 9(5). @F@@@@RE )@@G@@ 03 FILLER PIC X(24) DISP-1.@F@@@@RF )@@G@@ 03 T12-PRI-ACCNT-NO PIC X(12) DISP-1.@F@@@@RG )@@G@@ 03 T12-RUNID PIC X(6) DISP-1. @F@@@@RH )@@G@@ 03 FILLER PIC X(6) DISP-1. @[@@@@RI )@@G@@SPACE @[@@@@SPACE @^@@@@ 01 TYPE-14-REC. @F@@@@ 03 FILLERRJ )@@G@@ PIC X(6) DISP-1. @F@@@@ 03 T14-EQRK )@@G@@UIP-CODE PIC 99 COMP-4. @F@@@@ 03 T14-FIRL )@@G@@LE-TYPE PIC 9 COMP-4. @F@@@@ 03 T14-SPRM )@@G@@C-FORMS-CNT PIC 9(5) COMP-4. @F@@@@ 03 T14-SYRN )@@G@@M-NAME PIC X(6) DISP-1. @F@@@@ 03 T14-LIRO )@@G@@NES-CARDS PIC 9(10) COMP-4.@F@@@@ 03 T14-ASRP )@@G@@SOC-RUNID PIC X(6) DISP-1. @G@@@@ 03 FILLERRQ )@@G@@ PIC X(120) DISP-1. @B@@@@ 03 RR )@@G@@T14-SYM-START-TIME COMP-4 . @A@@@@ 05 T14-SYM-START-DATE. RS )@@G@@@E@@@@ 07 T14-SYM-START-YY PIC 9. @E@@@@RT )@@G@@ 07 T14-SYM-START-MM PIC 9. @E@@@@ RU )@@G@@ 07 T14-SYM-START-DD PIC 9. @E@@@@ 0RV )@@G@@5 T14-SYM-START-SEC PIC 9(5). @F@@@@ 03 FILLERRW )@@G@@ PIC X(24) DISP-1.@F@@@@ 03 T14-PRRX )@@G@@I-ACCNT-NO PIC X(12) DISP-1.@F@@@@ 03 T14-RURY )@@G@@NID PIC X(6) DISP-1. @F@@@@ 03 FILLERRZ )@@G@@ PIC X(6) DISP-1. @[@@@@SPACE @[@@@@SPACE SA )@@G@@@^@@@@ 01 TYPE-17-REC. @F@@@@ 03 FILLER SB )@@G@@ PIC X(6) DISP-1. @F@@@@ 03 T17-CPU-SUPS SC )@@G@@ PIC 9(10) COMP-4.@F@@@@ 03 FILLER SD )@@G@@ PIC X(6) DISP-1. @F@@@@ 03 T17-CCER-SUPS SE )@@G@@ PIC 9(10) COMP-4.@F@@@@ 03 T17-I-O-XFERS OCCURSSF )@@G@@ 10 TIMES PIC 9(10) COMP-4.@F@@@@ 03 FILLER SG )@@G@@ PIC X(66) DISP-1.@A@@@@ 03 T17-ENTRY-TIME COMP-4. SH )@@G@@@ @@@@ 05 T17-ENTRY-DATE. @E@@@@ 07 T17-ENTRY-YY SI )@@G@@ PIC 9. @E@@@@ 07 T17-ENTRY-MM SJ )@@G@@ PIC 9. @E@@@@ 07 T17-ENTRY-DD SK )@@G@@ PIC 9. @E@@@@ 05 T17-ENTRY-SEC SL )@@G@@ PIC 9(5). @F@@@@ 03 FILLER PIC XSM )@@G@@(24) DISP-1.@F@@@@ 03 T17-PRI-ACCNT-NO PIC XSN )@@G@@(12) DISP-1.@F@@@@ 03 T17-RUNID PIC XSO )@@G@@(6) DISP-1. @F@@@@ 03 FILLER PIC XSP )@@G@@(6) DISP-1. @[@@@@SPACE @[@@@@SPACE @^@@@@ 01 TYPE-18-REC. @G@@@@SQ )@@G@@ 03 FILLER PIC X(150) DISP-1. SR )@@G@@@A@@@@ 03 T18-ENTRY-TIME COMP-4. @ @@@@ 05 T18-ENTRY-SS )@@G@@DATE. @E@@@@ 07 T18-ENTRY-YY PIC 9. ST )@@G@@@E@@@@ 07 T18-ENTRY-MM PIC 9. @E@@@@SU )@@G@@ 07 T18-ENTRY-DD PIC 9. @E@@@@ SV )@@G@@ 05 T18-ENTRY-SEC PIC 9(5). @F@@@@ 03 SW )@@G@@FILLER PIC X(24) DISP-1.@F@@@@ 03 SX )@@G@@T18-PRI-ACCNT-NO PIC X(12) DISP-1.@F@@@@ 03 SY )@@G@@T18-RUNID PIC X(6) DISP-1. @F@@@@ 03 SZ )@@G@@FILLER PIC X(6) DISP-1. @[@@@@EJECT @C@@@@TA )@@G@@2SORTED INTERIM ACCOUNT FILE (*INT-ACCT-SRT) @F@@@@ THIS DISC FILE ISTB )@@G@@ CREATED BY GSM IN H15500, IMMEDIATELY FOLLOWING@F@@@@ PROGRAM H1550020.TC )@@G@@ IT IS A SORTED VERSION OF THE INTERIM DAILY @#@@@@ ACCOUNTING FILE. TD )@@G@@@]@@@@SPACE 1 @ @@@@ SELECT INTERIM-FILE@D@@@@ TE )@@G@@ ASSIGN MASS-STORAGE INTERIM-ACCT. @]@@@@SPACE 1 @^@@@@ TF )@@G@@ FD INTERIM-FILE @B@@@@ BLOCK CONTAINS 6 RECORDS @A@@@@TG )@@G@@ LABEL RECORDS STANDARD @A@@@@ RECORDING MODE INTETH )@@G@@RNAL. @[@@@@SPACE @^@@@@ 01 INTERIM-REC. @E@@@@ 03 INT-TYTI )@@G@@PE PIC 9 COMP-4. @E@@@@ 03 FILLER TJ )@@G@@ PIC X(149) DISP-1. @E@@@@ 03 INT-ENTRY-TIME TK )@@G@@ COMP-4. @D@@@@ 05 INT-ENTRY-DATE TL )@@G@@ COMP-4. @D@@@@ 07 INT-ENTRY-YY PIC 9 COMPTM )@@G@@-4. @D@@@@ 07 INT-ENTRY-MM PIC 9 COMP-4. @D@@@@TN )@@G@@ 07 INT-ENTRY-DD PIC 9 COMP-4. @D@@@@ TO )@@G@@05 INT-ENTRY-SEC PIC 9(5) COMP-4.@E@@@@ 03 FILLER TP )@@G@@ PIC X(12) DISP-1. @E@@@@ 03 INT-SORT-DATE-9 TQ )@@G@@ PIC 9(10) COMP-4. @E@@@@ 03 INT-DEVICE-ID TR )@@G@@ PIC X(6) DISP-1. @E@@@@ 03 INT-PRI-ACCT-NO TS )@@G@@ DISP-1. @C@@@@ 05 INT-PRI-ACCT-GP PIC XX. TT )@@G@@@C@@@@ 05 FILLER PIC X(10).@A@@@@ 03 TU )@@G@@INT-PRI-ACCNT9 REDEFINES@ @@@@ INT-PRI-ACCT-NO. @D@@@@ TV )@@G@@ 05 FILLER PIC 9 COMP-4. @E@@@@ 05 INTTW )@@G@@-PRI-ACCT-NO-9 PIC 9(18) COMP-4. @E@@@@ 03 INT-RUNID TX )@@G@@ PIC X(6) DISP-1. @F@@@@ 03 INT-SYMB-DATE REDETY )@@G@@FINES INT-RUNID PIC 9(10) COMP-4. @[@@@@EJECT @B@@@@2INTERIM ACCNT VOLTZ )@@G@@UME (*INT-ACCT-VOL) @E@@@@ THIS SINGLE RECORD CARD FILE IS CREATED IUA )@@G@@N H15500, PROGRAM @G@@@@ H1550020, AND IS INPUT TO GSM OF THE SAME RUNSTUB )@@G@@REAM. IT CONTAINS A @A@@@@ VOLUME FOR THE INTERIM ACCNT FILE. @]@@@@UC )@@G@@SPACE 1 @F@@@@ 01060 SELECT LOG-CARD ASSIGN TO CARD-PUNCH INT-ACUD )@@G@@CT-VOL. @]@@@@SPACE 1 @^@@@@ 03100 FD LOG-CARD @]@@@@SPACE UE )@@G@@0 @E@@@@ 03110 LABEL RECORDS ARE OMITTED DATA RECORD IS L-CARD. UF )@@G@@@]@@@@SPACE 0 @[@@@@ 03120@]@@@@SPACE 0 @#@@@@ 03200 01 L-CARD.UG )@@G@@@D@@@@ 02 L-TITLE PIC X(9). @]@@@@SPACE UH )@@G@@0 @D@@@@ 03210 02 LOG-V PIC 9(6). @]@@@@UI )@@G@@SPACE 0 @D@@@@ 03221 02 FILLER PIC X(65). UJ )@@G@@@[@@@@EJECT @^@@@@2UP-TIME FILE (*UP-TIME)@G@@@@ THIS DISC FILE IS CREATUK )@@G@@ED IN H15500, PROGRAM H1550020. IT CONTAINS @G@@@@ A STATUS OF EQUIPUL )@@G@@MENT FOR USE IN DETERMINING THE AVAILABLE UP-TIME @ @@@@ PERCENTAGESUM )@@G@@ OF EQUIPMENT. @]@@@@SPACE 1 @E@@@@ SELECT DISCOUT ASSIUN )@@G@@GN TO MASS-STORAGE UP-TIME. @]@@@@SPACE 1 @#@@@@ FD DISCOUTUO )@@G@@@F@@@@ LABEL RECORDS ARE STANDARD BLOCK CONTAINS 11 RECORDS UP )@@G@@@E@@@@ DATA RECORD IS UPTIME RECORDING MODE IS INTERNAL.@]@@@@UQ )@@G@@SPACE 1 @^@@@@ 01 UP-TIME. @F@@@@ 02 UP-DATE UR )@@G@@ PIC X(6) DISP-1. @F@@@@ 02 U P-DAUS )@@G@@TE9 REDEFINES UP-DATE PIC 9(6) DISP-1. @B@@@@ 02 U-DATE RUT )@@G@@EDEFINES UP-DATE. @B@@@@ 03 UD-YR PIC 99 DISP-1. @B@@@@UU )@@G@@ 03 UD-MO PIC 99 DISP-1. @B@@@@ 03 UD-DA UV )@@G@@ PIC 99 DISP-1. @F@@@@ 02 UP-TYME PUW )@@G@@IC 9(6) DISP-1. @F@@@@ 02 U P-TYMX REDEFINES UP-TYME PUX )@@G@@IC X(6) DISP-1. @B@@@@ 02 UP-DATA OCCURS 29 TIMES. @F@@@@UY )@@G@@ 03 UCOND PIC XX DISP-1. @F@@@@UZ )@@G@@ 03 USYS PIC XX DISP-1. @F@@@@VA )@@G@@ 03 USUB PIC XX DISP-1. @^@@@@VB )@@G@@ 03 UDTM. @F@@@@ 04 UDT1 VC )@@G@@ PIC S9(5) COMP-4. @F@@@@ 04 UDT2 VD )@@G@@ PIC S9(5) COMP-4. @[@@@@EJECT @D@@@@2SYMBIONT USE BY DEVICE AND ACVE )@@G@@COUNT FILE (*DAILY-SYM) @G@@@@ THIS DISC FILE IS CREATED IN H15500, PROGVF )@@G@@RAM H1550030, AND WRITTEN @G@@@@ TO TAPE. IT CONTAINS SUMMARY INFORMVG )@@G@@ATION BY ACCOUNT ABOUT THE NUM- @F@@@@ BER OF RUNS INPUT FROM A DEVIVH )@@G@@CE; HOW MANY 'CARDS' ARE READ; AND @E@@@@ HOW MANY 'CARDS' AND 'PAGES' VI )@@G@@ARE PRODUCED AT THAT DEVICE. @]@@@@SPACE 1 @ @@@@ SELECT VJ )@@G@@SYM-FILE @C@@@@ ASSIGN MASS-STORAGE DAILY-SYM.@]@@@@VK )@@G@@SPACE 1 @^@@@@ FD SYM-FILE @B@@@@ BLOCK CONTAINVL )@@G@@S 15 RECORDS @A@@@@ LABEL RECORDS STANDARD @A@@@@ VM )@@G@@ RECORDING MODE INTERNAL. @[@@@@SPACE @^@@@@ 01 SYM-REC. VN )@@G@@@A@@@@ 03 SYM-REC-ID USAGE DISP-1.@E@@@@ 05 SYM-DEVICEVO )@@G@@ PIC X(6). @E@@@@ 05 SYM-ACCT VP )@@G@@ PIC X(12). @^@@@@ 05 SYM-DATE. @E@@@@ VQ )@@G@@ 07 SYM-YY PIC 99. @E@@@@ VR )@@G@@ 07 SYM-MM PIC 99. @E@@@@ 07 SYVS )@@G@@M-DD PIC 99. @A@@@@ 03 SYM-DATA USAVT )@@G@@GE COMP-4. @C@@@@ 05 SYM-SHIFT-INFO OCCURS 3 TIMES. @E@@@@VU )@@G@@ 07 DLBT PIC 9(10). @E@@@@ VV )@@G@@ 07 BT PIC 9(10). @E@@@@ VW )@@G@@ 07 DM PIC 9(10). @E@@@@ 07 PRVX )@@G@@IORITY PIC 9(10). @E@@@@ 07 FILLER VY )@@G@@ PIC 9. @E@@@@ 07 ELAP-SECS VZ )@@G@@ PIC 9(18). @E@@@@ 07 FILLER WA )@@G@@ PIC 9. @E@@@@ 07 TOT-SECS WB )@@G@@ PIC 9(18). @E@@@@ 07 FILLER WC )@@G@@ PIC 9. @E@@@@ 07 CPU-SECS PIC 9WD )@@G@@(18). @E@@@@ 07 FILLER PIC 9. WE )@@G@@@E@@@@ 07 C-BLKS PIC 9(18). @E@@@@WF )@@G@@ 07 S-CDS-N PIC 9(10). @E@@@@ WG )@@G@@ 07 S-CDS-O PIC 9(10). @E@@@@ WH )@@G@@ 07 R-CDS-N PIC 9(10). @E@@@@ 07 R-WI )@@G@@CDS-O PIC 9(10). @E@@@@ 07 S-LINES WJ )@@G@@ PIC 9(10). @E@@@@ 07 R-LINES WK )@@G@@ PIC 9(10). @C@@@@ 03 CLR-SYM-DATA REDEFINES SWL )@@G@@YM-DATA. @F@@@@ 05 CLR-SYM-DATA-WD OCCURS 54 TIMES PIC 9WM )@@G@@(10) COMP-4.@[@@@@EJECT @A@@@@2DAILY ACCOUNTING FILE (*DAILY-ACCT)@G@@@@WN )@@G@@ THIS DISC FILE IS CREATED IN H15500, PROGRAM H1550030, AND WRITTEN WO )@@G@@@F@@@@ TO TAPE, THEN INPUT TO H15501, PROGRAMS H1550070 AND H1550080 (ORWP )@@G@@@E@@@@ H1550081). IT CONTAINS INFORMATION FROM THE INTERIM DAILY @E@@@@WQ )@@G@@ ACCOUNTING FILE THAT HAS BEEN INTERPRETED AND SUMMARIZED BY@^@@@@ ACCOUWR )@@G@@NT NUMBER AND DAY.@]@@@@SPACE 1 @ @@@@ SELECT ACCT-FILE WS )@@G@@@D@@@@ ASSIGN MASS-STORAGE DAILY-ACCT. @]@@@@SPACE WT )@@G@@1 @^@@@@ FD DAILY-IN @B@@@@ BLOCK CONTAINS 3 WU )@@G@@RECORDS @A@@@@ LABEL RECORDS STANDARD @A@@@@ RWV )@@G@@ECORDING MODE INTERNAL. @]@@@@SPACE 1 @^@@@@ 01 W-ACT-REC. WW )@@G@@@A@@@@ 03 AC-REC-ID USAGE DISP-1.@ @@@@ 05 AC-ACCOUNWX )@@G@@T-NO. @E@@@@ 07 AC-ACCOUNT-H PIC X. WY )@@G@@@E@@@@ 07 AC-ACCOUNT-NUM PIC XXX. @E@@@@WZ )@@G@@ 07 AC-ACCOUNT-TYPE PIC X. @E@@@@ XA )@@G@@ 07 FILLER PIC X(7). @^@@@@ 0XB )@@G@@5 AC-DATE. @E@@@@ 07 AC-YY PIC XXC )@@G@@X. @E@@@@ 07 AC-MM PIC XX. XD )@@G@@@E@@@@ 07 AC-DD PIC XX. @C@@@@XE )@@G@@ 05 AC-DATE-9 REDEFINES AC-DATE. @E@@@@ 07 AXF )@@G@@C-YY-9 PIC 99. @E@@@@ 07 AC-MM-9XG )@@G@@ PIC 99. @E@@@@ 07 AC-DD-9 XH )@@G@@ PIC 99. @E@@@@ 05 AC-DAY-OF-WK XI )@@G@@ PIC X(6). @F@@@@ 05 AC-DAY-OF-WK-9 REDEFINES ACXJ )@@G@@-DAY-OF-WK PIC 9(6). @A@@@@ 03 AC-DATA USAGE COMP-4.@E@@@@XK )@@G@@ 05 AC-OUTSTAND-CAT-TKS PIC 9(10). @E@@@@ XL )@@G@@ 05 AC-OUTSTAND-LIB-REELS PIC 9(10). @ @@@@ 0XM )@@G@@5 AC-ERROR-INFO. @B@@@@ 07 AC-ERRORS OCCURS 2 TIMES. @E@@@@XN )@@G@@ 09 HARD-KILL PIC 9(10). @E@@@@ XO )@@G@@ 09 PROG-KILL PIC 9(10). @E@@@@ XP )@@G@@ 09 OPER-KILL PIC 9(10). @E@@@@ 09 XQ )@@G@@SYS-KILL PIC 9(10). @E@@@@ 09 ER-ERRXR )@@G@@ PIC 9(10). @E@@@@ 09 ER-ABORT XS )@@G@@ PIC 9(10). @E@@@@ 09 SEC-LOST XT )@@G@@ PIC 9(10). @C@@@@ 07 AC-SHIFT-INFO OCCURS 3 TIMXU )@@G@@ES. @E@@@@ 09 TOT-RPTS PIC 9(10). XV )@@G@@@E@@@@ 09 TOT-LINES PIC 9(10). @E@@@@XW )@@G@@ 09 SPC-FORMS PIC 9(10). @E@@@@ XX )@@G@@ 09 PR-BL-TIME PIC 9(10). @A@@@@ XY )@@G@@ 09 AC-BATCH-DATA. @E@@@@ 13 RUNS XZ )@@G@@ PIC 9(10). @E@@@@ 13 RUN-SECS YA )@@G@@ PIC 9(10). @E@@@@ 13 NO-RJE PIC 9YB )@@G@@(10). @E@@@@ 13 NO-ST PIC 9(10). YC )@@G@@@E@@@@ 13 DL-BATCH PIC 9(10). @E@@@@YD )@@G@@ 13 BL-MIN PIC 9(10). @E@@@@ YE )@@G@@ 13 AV-PRI PIC 9(10). @E@@@@ YF )@@G@@ 13 FILLER PIC 9. @E@@@@ YG )@@G@@13 TOT-SUPS PIC 9(18). @E@@@@ 13 FILYH )@@G@@LER PIC 9. @E@@@@ 13 CPU-SUPS YI )@@G@@ PIC 9(18). @E@@@@ 13 FILLER YJ )@@G@@ PIC 9. @E@@@@ 13 CB-SUPS YK )@@G@@ PIC 9(18). @E@@@@ 13 FILLER YL )@@G@@ PIC 9. @E@@@@ 13 CCER-SUPS PIC 9YM )@@G@@(18). @E@@@@ 13 TEMP-TKS PIC 9(10). YN )@@G@@@E@@@@ 13 NEW-TKS PIC 9(10). @E@@@@YO )@@G@@ 13 RMV-MNTS PIC 9(10). @E@@@@ YP )@@G@@ 13 RMV-SECS PIC 9(10). @E@@@@ YQ )@@G@@ 13 FILLER PIC 9. @E@@@@ YR )@@G@@13 MASS-STOR-XFERS PIC 9(18). @E@@@@ 13 REEYS )@@G@@LS-MTD PIC 9(10). @E@@@@ 13 FILLER YT )@@G@@ PIC 9. @E@@@@ 13 TAPE-XFERS YU )@@G@@ PIC 9(18). @E@@@@ 13 STD-PGS YV )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-IN YW )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-OUT PIC 9YX )@@G@@(10). @A@@@@ 09 AC-DEMAND-DATA. @E@@@@ YY )@@G@@13 RUNS PIC 9(10). @E@@@@ 13 RUNYZ )@@G@@-SECS PIC 9(10). @E@@@@ 13 FILLER ZA )@@G@@ PIC 9. @E@@@@ 13 TOT-SUPS ZB )@@G@@ PIC 9(18). @E@@@@ 13 FILLER ZC )@@G@@ PIC 9. @E@@@@ 13 CPU-SUPS ZD )@@G@@ PIC 9(18). @E@@@@ 13 FILLER PIC 9ZE )@@G@@. @E@@@@ 13 CB-SUPS PIC 9(18). ZF )@@G@@@E@@@@ 13 FILLER PIC 9. @E@@@@ZG )@@G@@ 13 CCER-SUPS PIC 9(18). @E@@@@ ZH )@@G@@ 13 TEMP-TKS PIC 9(10). @E@@@@ ZI )@@G@@ 13 NEW-TKS PIC 9(10). @E@@@@ ZJ )@@G@@13 RMV-MNTS PIC 9(10). @E@@@@ 13 RMVZK )@@G@@-SECS PIC 9(10). @E@@@@ 13 FILLER ZL )@@G@@ PIC 9. @E@@@@ 13 MASS-STOR-XFERSZM )@@G@@ PIC 9(18). @E@@@@ 13 REELS-MTD ZN )@@G@@ PIC 9(10). @E@@@@ 13 FILLER ZO )@@G@@ PIC 9. @E@@@@ 13 TAPE-XFERS PIC 9ZP )@@G@@(18). @E@@@@ 13 STD-PGS PIC 9(10). ZQ )@@G@@@E@@@@ 13 CARDS-IN PIC 9(10). @E@@@@ZR )@@G@@ 13 CARDS-OUT PIC 9(10). @A@@@@ ZS )@@G@@ 09 AC-RT-BATCH-DATA. @E@@@@ 13 RUNS ZT )@@G@@ PIC 9(10). @E@@@@ 13 RUN-SECS ZU )@@G@@ PIC 9(10). @E@@@@ 13 NO-RJE ZV )@@G@@ PIC 9(10). @E@@@@ 13 NO-ST PIC 9ZW )@@G@@(10). @E@@@@ 13 AV-PRI PIC 9(10). ZX )@@G@@@E@@@@ 13 FILLER PIC 9. @E@@@@ZY )@@G@@ 13 TOT-SUPS PIC 9(18). @E@@@@ ZZ )@@G@@ 13 FILLER PIC 9. @E@@@@ AA )@@G@@ 13 CPU-SUPS PIC 9(18). @E@@@@ AB )@@G@@13 FILLER PIC 9. @E@@@@ 13 CB-AC )@@G@@SUPS PIC 9(18). @E@@@@ 13 FILLER AD )@@G@@ PIC 9. @E@@@@ 13 CCER-SUPS AE )@@G@@ PIC 9(18). @E@@@@ 13 TEMP-TKS AF )@@G@@ PIC 9(10). @E@@@@ 13 NEW-TKS AG )@@G@@ PIC 9(10). @E@@@@ 13 RMV-MNTS PIC 9AH )@@G@@(10). @E@@@@ 13 RMV-SECS PIC 9(10). AI )@@G@@@E@@@@ 13 FILLER PIC 9. @E@@@@AJ )@@G@@ 13 MASS-STOR-XFERS PIC 9(18). @E@@@@ AK )@@G@@ 13 REELS-MTD PIC 9(10). @E@@@@ AL )@@G@@ 13 FILLER PIC 9. @E@@@@ AM )@@G@@13 TAPE-XFERS PIC 9(18). @E@@@@ 13 STDAN )@@G@@-PGS PIC 9(10). @E@@@@ 13 CARDS-IN AO )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-OUT AP )@@G@@ PIC 9(10). @E@@@@ 13 FILLER AQ )@@G@@ PIC 9. @E@@@@ 13 RT-SECS AR )@@G@@ PIC 9(18). @A@@@@ 09 AC-RT-DMAND-DATA. @E@@@@ AS )@@G@@ 13 RUNS PIC 9(10). @E@@@@ AT )@@G@@13 RUN-SECS PIC 9(10). @E@@@@ 13 FILAU )@@G@@LER PIC 9. @E@@@@ 13 TOT-SUPS AV )@@G@@ PIC 9(18). @E@@@@ 13 FILLER AW )@@G@@ PIC 9. @E@@@@ 13 CPU-SUPS AX )@@G@@ PIC 9(18). @E@@@@ 13 FILLER AY )@@G@@ PIC 9. @E@@@@ 13 CB-SUPS PIC 9AZ )@@G@@(18). @E@@@@ 13 FILLER PIC 9. BA )@@G@@@E@@@@ 13 CCER-SUPS PIC 9(18). @E@@@@BB )@@G@@ 13 TEMP-TKS PIC 9(10). @E@@@@ BC )@@G@@ 13 NEW-TKS PIC 9(10). @E@@@@ BD )@@G@@ 13 RMV-MNTS PIC 9(10). @E@@@@ BE )@@G@@13 RMV-SECS PIC 9(10). @E@@@@ 13 FILBF )@@G@@LER PIC 9. @E@@@@ 13 MASS-STORBG )@@G@@-XFERS PIC 9(18). @E@@@@ 13 REELS-MTD BH )@@G@@ PIC 9(10). @E@@@@ 13 FILLER BI )@@G@@ PIC 9. @E@@@@ 13 TAPE-XFERS BJ )@@G@@ PIC 9(18). @E@@@@ 13 STD-PGS PIC 9BK )@@G@@(10). @E@@@@ 13 CARDS-IN PIC 9(10). BL )@@G@@@E@@@@ 13 CARDS-OUT PIC 9(10). @E@@@@BM )@@G@@ 13 FILLER PIC 9. @F@@@@ BN )@@G@@ 13 RT-SECS PIC 9(18). END @[@@@@EJECT BO )@@G@@@^@@@@2VOLUME CARD (*VOL-CARD)@G@@@@ THIS DISC FILE IS CREATED IN H15501BP )@@G@@, PROGRAM H1550040 AND INPUT TO @F@@@@ H1550050. IF REFLECTS THE NUMBQ )@@G@@BER OF RECORDS ON THE MFD DETAIL @[@@@@ FILE.@]@@@@SPACE 1 @ @@@@BR )@@G@@ SELECT VOL-CRD @D@@@@ ASSIGN TO CARD-REABS )@@G@@DER VOL-CARD. @]@@@@SPACE 1 @#@@@@ FD VOL-CRD@B@@@@ BT )@@G@@ RECORD CONTAINS 80 CHARACTERS @A@@@@ LABEL RECORDS ARE OBU )@@G@@MITTED@B@@@@ DATA RECORD IS VOLUME-CRD. @]@@@@SPACE 1 BV )@@G@@@A@@@@ 01 VOLUME-CRD DISPLAY-1. @D@@@@ 03 CRD-HDR BW )@@G@@ PIC X(11). @D@@@@ 88 VOLUME-CARD VALUEBX )@@G@@ IS 'VOLUME CARD'.@D@@@@ 03 FILLER PIC XBY )@@G@@. @D@@@@ 03 VOL-CNT PIC 9(6). @C@@@@BZ )@@G@@ 03 VOL-CNT-XX REDEFINES VOL-CNT. @D@@@@ 04 CA )@@G@@ VOL-CNT-X PIC X(6). @D@@@@ 03 FILLER CB )@@G@@ PIC X(62). @[@@@@EJECT @ @@@@2MFD DETAIL FILE (*MFD-DETAIL)CC )@@G@@@G@@@@ THIS DISC FILE IS CREATED IN H15501, PROGRAM H1550040 AND INPUT TCD )@@G@@O @G@@@@ H1550050. IT CONTAINS INFORMATION ON CATALOGUED FILES, SUCHCE )@@G@@ AS THE @F@@@@ NUMBER OF TAPE OR DISC FILES AND NUMBER OF GRANULES, CF )@@G@@TAKEN FROM @ @@@@ THE MASTER FILE DIRECTORY. @]@@@@SPACE 1 @ @@@@CG )@@G@@ SELECT SORT-WORK @C@@@@ ASSIGN TO MASS-STOCH )@@G@@RAGE XA. @]@@@@SPACE 1 @^@@@@ SD SORT-WORK @B@@@@ CI )@@G@@ RECORD CONTAINS 80 CHARACTERS @C@@@@ DATA RECORD IS SORTCJ )@@G@@-WORK-RECORD. @B@@@@ 01 SORT-WORK-RECORD DISPLAY-1. @C@@@@CK )@@G@@ 05 FILLER PIC XXX. @D@@@@ 05 ACCCL )@@G@@OUNT PIC X(12). @D@@@@ 05 QUAL CM )@@G@@ PIC X(12). @D@@@@ 05 FILENAME PICCN )@@G@@ X(12). @C@@@@ 05 F-CYCLE PIC XXX. @D@@@@CO )@@G@@ 05 FILLER PIC X(10). @D@@@@ 0CP )@@G@@5 COUNTS PIC X(5). @B@@@@ 05 9-COUNT RCQ )@@G@@EDEFINES COUNTS. @C@@@@ 07 COUNT-9 PIC 9(5).CR )@@G@@@C@@@@ 05 CODES PIC XX. @D@@@@ 0CS )@@G@@5 FILLER PIC X(20). @C@@@@ 05 SEQ-NO CT )@@G@@ PIC X. @[@@@@EJECT @A@@@@2MFD SUMMARY FILE (*MFD-SUMMARCU )@@G@@Y) @G@@@@ THIS DISC FILE IS CREATED IN H15501, PROGRAM H1550050 AND ICV )@@G@@NPUT TO @F@@@@ PROGRAM H1550070 OF THE SAME RUN. IT IS A SUMMARIZED CW )@@G@@VERSION BY @A@@@@ ACCOUNT OF THE MFD DETAIL FILE. @]@@@@SPACE 1 CX )@@G@@@ @@@@ SELECT SUM-OUT @D@@@@ ASSIGN TO MACY )@@G@@SS-STORAGE MFD-SUMMARY. @]@@@@SPACE 1 @#@@@@ FD SUM-OUT@B@@@@CZ )@@G@@ RECORD CONTAINS 42 CHARACTERS @A@@@@ BLOCK CONTAINDA )@@G@@S 27 RECORDS@B@@@@ LABEL RECORDS ARE STANDARD @A@@@@ DB )@@G@@ DATA RECORD IS OUT-FILE. @]@@@@SPACE 1 @^@@@@ 01 OUT-FILDC )@@G@@E. @E@@@@ 02 ACT-NUM PIC X(12) DISP-1. DD )@@G@@@^@@@@ 02 O-DATE . @D@@@@ 05 O-YY DE )@@G@@ PIC XX DISP-1. @D@@@@ 05 O-MM PIC XX DIDF )@@G@@SP-1. @D@@@@ 05 O-DD PIC XX DISP-1. @E@@@@DG )@@G@@ 02 CAT-DISC-FILE PIC S9(10) COMP-4. @E@@@@ DH )@@G@@ 02 CAT-DISC-TRK PIC S9(10) COMP-4. @E@@@@ 0DI )@@G@@2 CAT-TAPE-FILE PIC S9(10) COMP-4. @E@@@@ 02 CATDJ )@@G@@-TAPE-REEL PIC S9(10) COMP-4. @[@@@@EJECT @]@@@@2*MFD-TRANS DK )@@G@@@E@@@@ THIS CARD IMAGE FILE IS OUTPUT FROM H1550050 IN H15501 AND @F@@@@DL )@@G@@ CONTAINS INFORMATION ON CATALOGUED FILES CREATED UNDER ACCOUNTS @E@@@@DM )@@G@@ WHICH ARE NO LONGER VALID ACCORDING TO *QUIP-CARDS. THESE @E@@@@ TRANSDN )@@G@@ACTIONS CAN BE USED LATER BY A MFD MAINTENANCE SYSTEM.@]@@@@SPACE 1 DO )@@G@@@ @@@@ SELECT PUNCH-FILE @D@@@@ ASSIGN TO CDP )@@G@@ARD-PUNCH MFD-TRANS. @]@@@@SPACE 1 @^@@@@ FD PUNCH-FILE DQ )@@G@@@B@@@@ RECORD CONTAINS 80 CHARACTERS @A@@@@ LABEL RDR )@@G@@ECORDS ARE OMITTED@A@@@@ DATA RECORD IS MFD-PUNCH.@^@@@@ DS )@@G@@ 01 MFD-PUNCH. @C@@@@ 02 QUAL-PUNCH PIC X(12). DT )@@G@@@B@@@@ 02 FILLER PIC X. @C@@@@ 02 FILDU )@@G@@E-PUNCH PIC X(12). @B@@@@ 02 FILLER PICDV )@@G@@ X. @B@@@@ 02 CYCLE-PUNCH PIC XXX. @B@@@@ 0DW )@@G@@2 FILLER PIC X. @C@@@@ 02 OLD-ACCT-PCH PICDX )@@G@@ X(12). @C@@@@ 02 FILLER PIC X(38). @[@@@@DY )@@G@@EJECT @ @@@@2LIB-SUMMARY FILE (*LIB-SUMM) @G@@@@ THIS DISC FILE IS CREATDZ )@@G@@ED IN H15501, PROGRAM H1550060 AND INPUT TO @G@@@@ H1550070. IT CONTEA )@@G@@AINS SUMMARY INFORMATION ABOUT THE NUMBER OF TAPE @A@@@@ REELS EACH EB )@@G@@ACCOUNT HAS ACQUIRED. @]@@@@SPACE 1 @ @@@@ SELECT COUNT-EC )@@G@@OUT @D@@@@ ASSIGN TO MASS-STORAGE LIB-SUMMARY. @]@@@@ED )@@G@@SPACE 1 @^@@@@ FD COUNT-OUT @B@@@@ LABEL RECORDSEE )@@G@@ ARE STANDARD @B@@@@ RECORD CONTAINS 30 CHARACTERS @A@@@@EF )@@G@@ BLOCK CONTAINS 37 RECORDS@A@@@@ DATA RECORD IS OTAPEG )@@G@@E. @]@@@@SPACE 1 @#@@@@ 01 OTAPE. @E@@@@ 02 ACTEH )@@G@@-NUM PICTURE X(12) DISP-1.@^@@@@ 02 O-DATE. EI )@@G@@@E@@@@ 05 O-YY PICTURE 99 DISP-1. @E@@@@EJ )@@G@@ 05 O-MM PICTURE 99 DISP-1. @E@@@@ EK )@@G@@ 05 O-DD PICTURE 99 DISP-1. @F@@@@ 0EL )@@G@@2 LABELED-CNT PICTURE S9(10) COMP-4. @F@@@@ 0EM )@@G@@2 UNLABEL-CNT PICTURE S9(10) COMP-4. @[@@@@EJECT @]@@@@EN )@@G@@2*LIB-TRANS @F@@@@ THIS CARD IMAGE FILE IS OUTPUT FROM H15501, PROGRAM HEO )@@G@@1550060. @F@@@@ THIS FILE CONTAINS ACCOUNT NUMBERS THAT ARE ON LABELEEP )@@G@@D TAPE FILES@F@@@@ IN THE MASTER FILE DIRECTORY, AND ARE NOT VALID ACCOREQ )@@G@@DING TO @F@@@@ *QUIP-CARDS. THESE TRANSACTIONS CAN BE USED LATER BY ER )@@G@@THE TAPE @C@@@@ LIBRARY SYSTEM FOR UPDATING THEIR MASTER FILES.@]@@@@ES )@@G@@SPACE 1 @ @@@@ SELECT PUNCH-FILE @D@@@@ ET )@@G@@ ASSIGN TO CARD-PUNCH LIB-TRANS. @]@@@@SPACE 1 @^@@@@ FD PEU )@@G@@UNCH-FILE @B@@@@ RECORD CONTAINS 80 CHARACTERS @A@@@@ EV )@@G@@ LABEL RECORDS ARE OMITTED@A@@@@ DATA RECORD IS LIB-PUNCH.EW )@@G@@@^@@@@ 01 LIB-PUNCH. @B@@@@ 02 REEL-NUM PIC X(EX )@@G@@6). @A@@@@ 02 FILLER PIC X.@B@@@@ 02 TYPEY )@@G@@E-REEL PIC XXX. @A@@@@ 02 FILLER PIC X.@B@@@@EZ )@@G@@ 02 OLD-ACCT-NO PIC X(12). @B@@@@ 02 FILLER FA )@@G@@ PIC X(57). @[@@@@EJECT @D@@@@2CUMULATIVE DAILY ACCOUNTING FILE (*FB )@@G@@CUM-DLY-ACNT) @F@@@@ THIS TAPE FILE IS INPUT TO H15501, PROGRAM H155FC )@@G@@0080 (OR H1550081)@F@@@@ AND UPDATED IN THE SAME PROGRAM. THIS FILE IS AFD )@@G@@N ACCUMULATION OF @F@@@@ DAILY ACCOUNTING FILES FOR THE CURRENT MONTH. TFE )@@G@@HE FIRST RECORD IN@C@@@@ THIS FILE CONTAINS A FILE RECORD-VOLUME COUNT. FF )@@G@@@]@@@@SPACE 1 @ @@@@ SELECT ACCT-FILE @D@@@@ FG )@@G@@ ASSIGN MASS-STORAGE DAILY-ACCT. @]@@@@SPACE 1 @^@@@@ FH )@@G@@ 01 W-ACT-REC. @A@@@@ 03 AC-REC-ID USAGE DISP-1.@ @@@@ FI )@@G@@ 05 AC-ACCOUNT-NO. @E@@@@ 07 AC-ACCOUNT-H FJ )@@G@@ PIC X. @E@@@@ 07 AC-ACCOUNT-NUM FK )@@G@@ PIC XXX. @E@@@@ 07 AC-ACCOUNT-TYPE PIC XFL )@@G@@. @E@@@@ 07 FILLER PIC X(7). FM )@@G@@@^@@@@ 05 AC-DATE. @E@@@@ 07 AC-YY FN )@@G@@ PIC XX. @E@@@@ 07 AC-MM FO )@@G@@ PIC XX. @E@@@@ 07 AC-DD FP )@@G@@ PIC XX. @C@@@@ 05 AC-DATE-9 REDEFINES AC-DATE. @E@@@@FQ )@@G@@ 07 AC-YY-9 PIC 99. @E@@@@ FR )@@G@@ 07 AC-MM-9 PIC 99. @E@@@@ FS )@@G@@ 07 AC-DD-9 PIC 99. @E@@@@ 05 AC-FT )@@G@@DAY-OF-WK PIC X(6). @F@@@@ 05 AC-DAY-OFFU )@@G@@-WK-9 REDEFINES AC-DAY-OF-WK PIC 9(6). @A@@@@ 03 AC-DATA UFV )@@G@@SAGE COMP-4.@E@@@@ 05 AC-OUTSTAND-CAT-TKS PIC 9FW )@@G@@(10). @E@@@@ 05 AC-OUTSTAND-LIB-REELS PIC 9(10). FX )@@G@@@ @@@@ 05 AC-ERROR-INFO. @B@@@@ 07 AC-ERRORS OCCUFY )@@G@@RS 2 TIMES. @E@@@@ 09 HARD-KILL PIC 9FZ )@@G@@(10). @E@@@@ 09 PROG-KILL PIC 9(10). GA )@@G@@@E@@@@ 09 OPER-KILL PIC 9(10). @E@@@@GB )@@G@@ 09 SYS-KILL PIC 9(10). @E@@@@ GC )@@G@@ 09 ER-ERR PIC 9(10). @E@@@@ GD )@@G@@ 09 ER-ABORT PIC 9(10). @E@@@@ 09 GE )@@G@@SEC-LOST PIC 9(10). @C@@@@ 07 AC-SHIFTGF )@@G@@-INFO OCCURS 3 TIMES. @E@@@@ 09 TOT-RPTS GG )@@G@@ PIC 9(10). @E@@@@ 09 TOT-LINES GH )@@G@@ PIC 9(10). @E@@@@ 09 SPC-FORMS PIC 9GI )@@G@@(10). @E@@@@ 09 PR-BL-TIME PIC 9(10). GJ )@@G@@@A@@@@ 09 AC-BATCH-DATA. @E@@@@ 13 RUNGK )@@G@@S PIC 9(10). @E@@@@ 13 RUN-SECS GL )@@G@@ PIC 9(10). @E@@@@ 13 NO-RJE GM )@@G@@ PIC 9(10). @E@@@@ 13 NO-ST GN )@@G@@ PIC 9(10). @E@@@@ 13 DL-BATCH GO )@@G@@ PIC 9(10). @E@@@@ 13 BL-MIN PIC 9GP )@@G@@(10). @E@@@@ 13 AV-PRI PIC 9(10). GQ )@@G@@@E@@@@ 13 FILLER PIC 9. @E@@@@GR )@@G@@ 13 TOT-SUPS PIC 9(18). @E@@@@ GS )@@G@@ 13 FILLER PIC 9. @E@@@@ GT )@@G@@ 13 CPU-SUPS PIC 9(18). @E@@@@ GU )@@G@@13 FILLER PIC 9. @E@@@@ 13 CB-GV )@@G@@SUPS PIC 9(18). @E@@@@ 13 FILLER GW )@@G@@ PIC 9. @E@@@@ 13 CCER-SUPS GX )@@G@@ PIC 9(18). @E@@@@ 13 TEMP-TKS GY )@@G@@ PIC 9(10). @E@@@@ 13 NEW-TKS GZ )@@G@@ PIC 9(10). @E@@@@ 13 RMV-MNTS PIC 9HA )@@G@@(10). @E@@@@ 13 RMV-SECS PIC 9(10). HB )@@G@@@E@@@@ 13 FILLER PIC 9. @E@@@@HC )@@G@@ 13 MASS-STOR-XFERS PIC 9(18). @E@@@@ HD )@@G@@ 13 REELS-MTD PIC 9(10). @E@@@@ HE )@@G@@ 13 FILLER PIC 9. @E@@@@ HF )@@G@@13 TAPE-XFERS PIC 9(18). @E@@@@ 13 STDHG )@@G@@-PGS PIC 9(10). @E@@@@ 13 CARDS-IN HH )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-OUT HI )@@G@@ PIC 9(10). @A@@@@ 09 AC-DEMAND-DATA. @E@@@@HJ )@@G@@ 13 RUNS PIC 9(10). @E@@@@ HK )@@G@@ 13 RUN-SECS PIC 9(10). @E@@@@ HL )@@G@@ 13 FILLER PIC 9. @E@@@@ HM )@@G@@13 TOT-SUPS PIC 9(18). @E@@@@ 13 FILHN )@@G@@LER PIC 9. @E@@@@ 13 CPU-SUPS HO )@@G@@ PIC 9(18). @E@@@@ 13 FILLER HP )@@G@@ PIC 9. @E@@@@ 13 CB-SUPS HQ )@@G@@ PIC 9(18). @E@@@@ 13 FILLER HR )@@G@@ PIC 9. @E@@@@ 13 CCER-SUPS PIC 9HS )@@G@@(18). @E@@@@ 13 TEMP-TKS PIC 9(10). HT )@@G@@@E@@@@ 13 NEW-TKS PIC 9(10). @E@@@@HU )@@G@@ 13 RMV-MNTS PIC 9(10). @E@@@@ HV )@@G@@ 13 RMV-SECS PIC 9(10). @E@@@@ HW )@@G@@ 13 FILLER PIC 9. @E@@@@ HX )@@G@@13 MASS-STOR-XFERS PIC 9(18). @E@@@@ 13 REEHY )@@G@@LS-MTD PIC 9(10). @E@@@@ 13 FILLER HZ )@@G@@ PIC 9. @E@@@@ 13 TAPE-XFERS IA )@@G@@ PIC 9(18). @E@@@@ 13 STD-PGS IB )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-IN IC )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-OUT PIC 9ID )@@G@@(10). @A@@@@ 09 AC-RT-BATCH-DATA. @E@@@@ IE )@@G@@13 RUNS PIC 9(10). @E@@@@ 13 RUNIF )@@G@@-SECS PIC 9(10). @E@@@@ 13 NO-RJE IG )@@G@@ PIC 9(10). @E@@@@ 13 NO-ST IH )@@G@@ PIC 9(10). @E@@@@ 13 AV-PRI II )@@G@@ PIC 9(10). @E@@@@ 13 FILLER IJ )@@G@@ PIC 9. @E@@@@ 13 TOT-SUPS PIC 9IK )@@G@@(18). @E@@@@ 13 FILLER PIC 9. IL )@@G@@@E@@@@ 13 CPU-SUPS PIC 9(18). @E@@@@IM )@@G@@ 13 FILLER PIC 9. @E@@@@ IN )@@G@@ 13 CB-SUPS PIC 9(18). @E@@@@ IO )@@G@@ 13 FILLER PIC 9. @E@@@@ IP )@@G@@13 CCER-SUPS PIC 9(18). @E@@@@ 13 TEMIQ )@@G@@P-TKS PIC 9(10). @E@@@@ 13 NEW-TKS IR )@@G@@ PIC 9(10). @E@@@@ 13 RMV-MNTS IS )@@G@@ PIC 9(10). @E@@@@ 13 RMV-SECS IT )@@G@@ PIC 9(10). @E@@@@ 13 FILLER IU )@@G@@ PIC 9. @E@@@@ 13 MASS-STOR-XFERS PIC 9IV )@@G@@(18). @E@@@@ 13 REELS-MTD PIC 9(10). IW )@@G@@@E@@@@ 13 FILLER PIC 9. @E@@@@IX )@@G@@ 13 TAPE-XFERS PIC 9(18). @E@@@@ IY )@@G@@ 13 STD-PGS PIC 9(10). @E@@@@ IZ )@@G@@ 13 CARDS-IN PIC 9(10). @E@@@@ JA )@@G@@13 CARDS-OUT PIC 9(10). @E@@@@ 13 FILJB )@@G@@LER PIC 9. @E@@@@ 13 RT-SECS JC )@@G@@ PIC 9(18). @A@@@@ 09 AC-RT-DMAND-DATA. JD )@@G@@@E@@@@ 13 RUNS PIC 9(10). @E@@@@JE )@@G@@ 13 RUN-SECS PIC 9(10). @E@@@@ JF )@@G@@ 13 FILLER PIC 9. @E@@@@ JG )@@G@@ 13 TOT-SUPS PIC 9(18). @E@@@@ JH )@@G@@13 FILLER PIC 9. @E@@@@ 13 CPUJI )@@G@@-SUPS PIC 9(18). @E@@@@ 13 FILLER JJ )@@G@@ PIC 9. @E@@@@ 13 CB-SUPS JK )@@G@@ PIC 9(18). @E@@@@ 13 FILLER JL )@@G@@ PIC 9. @E@@@@ 13 CCER-SUPS JM )@@G@@ PIC 9(18). @E@@@@ 13 TEMP-TKS PIC 9JN )@@G@@(10). @E@@@@ 13 NEW-TKS PIC 9(10). JO )@@G@@@E@@@@ 13 RMV-MNTS PIC 9(10). @E@@@@JP )@@G@@ 13 RMV-SECS PIC 9(10). @E@@@@ JQ )@@G@@ 13 FILLER PIC 9. @E@@@@ JR )@@G@@ 13 MASS-STOR-XFERS PIC 9(18). @E@@@@ JS )@@G@@13 REELS-MTD PIC 9(10). @E@@@@ 13 FILJT )@@G@@LER PIC 9. @E@@@@ 13 TAPE-XFERJU )@@G@@S PIC 9(18). @E@@@@ 13 STD-PGS JV )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-IN JW )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-OUT JX )@@G@@ PIC 9(10). @E@@@@ 13 FILLER PIC 9JY )@@G@@. @F@@@@ 13 RT-SECS PIC 9(18). JZ )@@G@@ END @[@@@@EJECT @B@@@@2MONTHLY ACCOUNTING FILE (*MTH-ACNT-SUM) @F@@@@KA )@@G@@ THIS FILE IS CREATED IN H15501, PROGRAM H1550081, AT THE END OF @F@@@@KB )@@G@@ EACH MONTH. IT IS USED AS INPUT TO H15513, PROGRAM H1551040, AND @G@@@@KC )@@G@@ H15515, PROGRAM H1551060. IT CONTAINS TWO SUMMARY RECORDS FOR EACH KD )@@G@@@F@@@@ ACCOUNT FOR THE MONTH: ONE FOR WEEKDAYS, ONE FOR THE WEEKEND. THEKE )@@G@@@F@@@@ FORMAT OF THE RECORDS IS THE SAME AS FOR THE DAILY ACCOUNTING KF )@@G@@@C@@@@ FILE. IT IS A DISC FILE BACKED UP TO TAPE. @]@@@@SPACE 1 KG )@@G@@@ @@@@ SELECT ACCT-FILE @D@@@@ ASSIGN MASS-KH )@@G@@STORAGE DAILY-ACCT. @]@@@@SPACE 1 @^@@@@ 01 W-ACT-REC. KI )@@G@@@A@@@@ 03 AC-REC-ID USAGE DISP-1.@ @@@@ 05 AC-ACCOUNKJ )@@G@@T-NO. @E@@@@ 07 AC-ACCOUNT-H PIC X. KK )@@G@@@E@@@@ 07 AC-ACCOUNT-NUM PIC XXX. @E@@@@KL )@@G@@ 07 AC-ACCOUNT-TYPE PIC X. @E@@@@ KM )@@G@@ 07 FILLER PIC X(7). @^@@@@ 0KN )@@G@@5 AC-DATE. @E@@@@ 07 AC-YY PIC XKO )@@G@@X. @E@@@@ 07 AC-MM PIC XX. KP )@@G@@@E@@@@ 07 AC-DD PIC XX. @C@@@@KQ )@@G@@ 05 AC-DATE-9 REDEFINES AC-DATE. @E@@@@ 07 AKR )@@G@@C-YY-9 PIC 99. @E@@@@ 07 AC-MM-9KS )@@G@@ PIC 99. @E@@@@ 07 AC-DD-9 KT )@@G@@ PIC 99. @E@@@@ 05 AC-DAY-OF-WK KU )@@G@@ PIC X(6). @F@@@@ 05 AC-DAY-OF-WK-9 REDEFINES ACKV )@@G@@-DAY-OF-WK PIC 9(6). @A@@@@ 03 AC-DATA USAGE COMP-4.@E@@@@KW )@@G@@ 05 AC-OUTSTAND-CAT-TKS PIC 9(10). @E@@@@ KX )@@G@@ 05 AC-OUTSTAND-LIB-REELS PIC 9(10). @ @@@@ 0KY )@@G@@5 AC-ERROR-INFO. @B@@@@ 07 AC-ERRORS OCCURS 2 TIMES. @E@@@@KZ )@@G@@ 09 HARD-KILL PIC 9(10). @E@@@@ LA )@@G@@ 09 PROG-KILL PIC 9(10). @E@@@@ LB )@@G@@ 09 OPER-KILL PIC 9(10). @E@@@@ 09 LC )@@G@@SYS-KILL PIC 9(10). @E@@@@ 09 ER-ERRLD )@@G@@ PIC 9(10). @E@@@@ 09 ER-ABORT LE )@@G@@ PIC 9(10). @E@@@@ 09 SEC-LOST LF )@@G@@ PIC 9(10). @C@@@@ 07 AC-SHIFT-INFO OCCURS 3 TIMLG )@@G@@ES. @E@@@@ 09 TOT-RPTS PIC 9(10). LH )@@G@@@E@@@@ 09 TOT-LINES PIC 9(10). @E@@@@LI )@@G@@ 09 SPC-FORMS PIC 9(10). @E@@@@ LJ )@@G@@ 09 PR-BL-TIME PIC 9(10). @A@@@@ LK )@@G@@ 09 AC-BATCH-DATA. @E@@@@ 13 RUNS LL )@@G@@ PIC 9(10). @E@@@@ 13 RUN-SECS LM )@@G@@ PIC 9(10). @E@@@@ 13 NO-RJE PIC 9LN )@@G@@(10). @E@@@@ 13 NO-ST PIC 9(10). LO )@@G@@@E@@@@ 13 DL-BATCH PIC 9(10). @E@@@@LP )@@G@@ 13 BL-MIN PIC 9(10). @E@@@@ LQ )@@G@@ 13 AV-PRI PIC 9(10). @E@@@@ LR )@@G@@ 13 FILLER PIC 9. @E@@@@ LS )@@G@@13 TOT-SUPS PIC 9(18). @E@@@@ 13 FILLT )@@G@@LER PIC 9. @E@@@@ 13 CPU-SUPS LU )@@G@@ PIC 9(18). @E@@@@ 13 FILLER LV )@@G@@ PIC 9. @E@@@@ 13 CB-SUPS LW )@@G@@ PIC 9(18). @E@@@@ 13 FILLER LX )@@G@@ PIC 9. @E@@@@ 13 CCER-SUPS PIC 9LY )@@G@@(18). @E@@@@ 13 TEMP-TKS PIC 9(10). LZ )@@G@@@E@@@@ 13 NEW-TKS PIC 9(10). @E@@@@MA )@@G@@ 13 RMV-MNTS PIC 9(10). @E@@@@ MB )@@G@@ 13 RMV-SECS PIC 9(10). @E@@@@ MC )@@G@@ 13 FILLER PIC 9. @E@@@@ MD )@@G@@13 MASS-STOR-XFERS PIC 9(18). @E@@@@ 13 REEME )@@G@@LS-MTD PIC 9(10). @E@@@@ 13 FILLER MF )@@G@@ PIC 9. @E@@@@ 13 TAPE-XFERS MG )@@G@@ PIC 9(18). @E@@@@ 13 STD-PGS MH )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-IN MI )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-OUT PIC 9MJ )@@G@@(10). @A@@@@ 09 AC-DEMAND-DATA. @E@@@@ MK )@@G@@13 RUNS PIC 9(10). @E@@@@ 13 RUNML )@@G@@-SECS PIC 9(10). @E@@@@ 13 FILLER MM )@@G@@ PIC 9. @E@@@@ 13 TOT-SUPS MN )@@G@@ PIC 9(18). @E@@@@ 13 FILLER MO )@@G@@ PIC 9. @E@@@@ 13 CPU-SUPS MP )@@G@@ PIC 9(18). @E@@@@ 13 FILLER PIC 9MQ )@@G@@. @E@@@@ 13 CB-SUPS PIC 9(18). MR )@@G@@@E@@@@ 13 FILLER PIC 9. @E@@@@MS )@@G@@ 13 CCER-SUPS PIC 9(18). @E@@@@ MT )@@G@@ 13 TEMP-TKS PIC 9(10). @E@@@@ MU )@@G@@ 13 NEW-TKS PIC 9(10). @E@@@@ MV )@@G@@13 RMV-MNTS PIC 9(10). @E@@@@ 13 RMVMW )@@G@@-SECS PIC 9(10). @E@@@@ 13 FILLER MX )@@G@@ PIC 9. @E@@@@ 13 MASS-STOR-XFERSMY )@@G@@ PIC 9(18). @E@@@@ 13 REELS-MTD MZ )@@G@@ PIC 9(10). @E@@@@ 13 FILLER NA )@@G@@ PIC 9. @E@@@@ 13 TAPE-XFERS PIC 9NB )@@G@@(18). @E@@@@ 13 STD-PGS PIC 9(10). NC )@@G@@@E@@@@ 13 CARDS-IN PIC 9(10). @E@@@@ND )@@G@@ 13 CARDS-OUT PIC 9(10). @A@@@@ NE )@@G@@ 09 AC-RT-BATCH-DATA. @E@@@@ 13 RUNS NF )@@G@@ PIC 9(10). @E@@@@ 13 RUN-SECS NG )@@G@@ PIC 9(10). @E@@@@ 13 NO-RJE NH )@@G@@ PIC 9(10). @E@@@@ 13 NO-ST PIC 9NI )@@G@@(10). @E@@@@ 13 AV-PRI PIC 9(10). NJ )@@G@@@E@@@@ 13 FILLER PIC 9. @E@@@@NK )@@G@@ 13 TOT-SUPS PIC 9(18). @E@@@@ NL )@@G@@ 13 FILLER PIC 9. @E@@@@ NM )@@G@@ 13 CPU-SUPS PIC 9(18). @E@@@@ NN )@@G@@13 FILLER PIC 9. @E@@@@ 13 CB-NO )@@G@@SUPS PIC 9(18). @E@@@@ 13 FILLER NP )@@G@@ PIC 9. @E@@@@ 13 CCER-SUPS NQ )@@G@@ PIC 9(18). @E@@@@ 13 TEMP-TKS NR )@@G@@ PIC 9(10). @E@@@@ 13 NEW-TKS NS )@@G@@ PIC 9(10). @E@@@@ 13 RMV-MNTS PIC 9NT )@@G@@(10). @E@@@@ 13 RMV-SECS PIC 9(10). NU )@@G@@@E@@@@ 13 FILLER PIC 9. @E@@@@NV )@@G@@ 13 MASS-STOR-XFERS PIC 9(18). @E@@@@ NW )@@G@@ 13 REELS-MTD PIC 9(10). @E@@@@ NX )@@G@@ 13 FILLER PIC 9. @E@@@@ NY )@@G@@13 TAPE-XFERS PIC 9(18). @E@@@@ 13 STDNZ )@@G@@-PGS PIC 9(10). @E@@@@ 13 CARDS-IN OA )@@G@@ PIC 9(10). @E@@@@ 13 CARDS-OUT OB )@@G@@ PIC 9(10). @E@@@@ 13 FILLER OC )@@G@@ PIC 9. @E@@@@ 13 RT-SECS OD )@@G@@ PIC 9(18). @A@@@@ 09 AC-RT-DMAND-DATA. @E@@@@ OE )@@G@@ 13 RUNS PIC 9(10). @E@@@@ OF )@@G@@13 RUN-SECS PIC 9(10). @E@@@@ 13 FILOG )@@G@@LER PIC 9. @E@@@@ 13 TOT-SUPS OH )@@G@@ PIC 9(18). @E@@@@ 13 FILLER OI )@@G@@ PIC 9. @E@@@@ 13 CPU-SUPS OJ )@@G@@ PIC 9(18). @E@@@@ 13 FILLER OK )@@G@@ PIC 9. @E@@@@ 13 CB-SUPS PIC 9OL )@@G@@(18). @E@@@@ 13 FILLER PIC 9. OM )@@G@@@E@@@@ 13 CCER-SUPS PIC 9(18). @E@@@@ON )@@G@@ 13 TEMP-TKS PIC 9(10). @E@@@@ OO )@@G@@ 13 NEW-TKS PIC 9(10). @E@@@@ OP )@@G@@ 13 RMV-MNTS PIC 9(10). @E@@@@ OQ )@@G@@13 RMV-SECS PIC 9(10). @E@@@@ 13 FILOR )@@G@@LER PIC 9. @E@@@@ 13 MASS-STOROS )@@G@@-XFERS PIC 9(18). @E@@@@ 13 REELS-MTD OT )@@G@@ PIC 9(10). @E@@@@ 13 FILLER OU )@@G@@ PIC 9. @E@@@@ 13 TAPE-XFERS OV )@@G@@ PIC 9(18). @E@@@@ 13 STD-PGS PIC 9OW )@@G@@(10). @E@@@@ 13 CARDS-IN PIC 9(10). OX )@@G@@@E@@@@ 13 CARDS-OUT PIC 9(10). @E@@@@OY )@@G@@ 13 FILLER PIC 9. @F@@@@ OZ )@@G@@ 13 RT-SECS PIC 9(18). END @[@@@@EJECT PA )@@G@@@A@@@@2DATA ENTRY STAT FILE (*DE-STAT) @E@@@@ THIS FILE IS CREATED INPB )@@G@@ H15512, IN EITHER OF TWO VERSIONS: @F@@@@ INFOREX OR CADE. THE INFOREXPC )@@G@@ VERSION IS PRODUCED BY H1551010 AND@F@@@@ INPUT TO H1551020. THE CADE PD )@@G@@VERSION IS PRODUCED BY H1551011 AND @^@@@@ INPUT TO H1551021. @]@@@@PE )@@G@@SPACE 1 @^@@@@ INFOREX VERSION @]@@@@SPACE 1 @^@@@@ 02140PF )@@G@@ FD DISK-JOB @]@@@@SPACE 0 @A@@@@ 02150 RECORDING MODE INTEPG )@@G@@RNAL @]@@@@SPACE 0 @B@@@@ 02160 LABEL RECORDS ARE STANDARD PH )@@G@@@]@@@@SPACE 0 @B@@@@ 02170 RECORD CONTAINS 83 CHARACTERS @]@@@@PI )@@G@@SPACE 0 @A@@@@ 02180 BLOCK CONTAINS 20 RECORDS@]@@@@SPACE 0 PJ )@@G@@@B@@@@ 02190 DATA RECORD IS JOBREC-OUT. @[@@@@SPACE @^@@@@ 02200PK )@@G@@ 01 JOBREC-OUT. @]@@@@SPACE 0 @ @@@@ 03010 02 JOBNAME-OUT. PL )@@G@@@]@@@@SPACE 0 @D@@@@ 03020 05 JOBO OCCURS 13 TIMES PICTURE XPM )@@G@@. @^@@@@ 02 REST-OUT.@]@@@@SPACE 0 @C@@@@ 03030 PN )@@G@@ 04 RECID-OUT PICTURE X. @]@@@@SPACE 0 @C@@@@ 03040 PO )@@G@@ 04 OPID-OUT PICTURE XXX. @]@@@@SPACE 0 @C@@@@ 03050 PP )@@G@@ 04 KP-OUT PICTURE X(4). @]@@@@SPACE 0 @C@@@@ 03060 PQ )@@G@@ 04 VR-OUT PICTURE X(4). @]@@@@SPACE 0 @C@@@@ 03070 PR )@@G@@ 04 ER-OUT PICTURE X(4). @]@@@@SPACE 0 @C@@@@ 03080 PS )@@G@@ 04 TIME-OUT PICTURE XXX. @]@@@@SPACE 0 @D@@@@ 03090 PT )@@G@@ 04 KP-STROKE-OUT PICTURE X(6). @]@@@@SPACE 0 @D@@@@ 03100PU )@@G@@ 04 VR-STROKE-OUT PICTURE X(6). @]@@@@SPACE 0 @F@@@@PV )@@G@@ 03105 04 FILLER PICTURE XX. @]@@@@PW )@@G@@SPACE 0 @G@@@@ 03110 04 ER-STROKE-OUT PX )@@G@@PICTURE X(4). @]@@@@SPACE 0 @D@@@@ 03120 04 BALREG-1-OUT PY )@@G@@ PICTURE X(12). @]@@@@SPACE 0 @D@@@@ 03130 04 BALREG-PZ )@@G@@2-OUT PICTURE X(12). @]@@@@SPACE 0 @C@@@@ 03140 04 QA )@@G@@FILLER-OUT PICTURE X(5). @]@@@@SPACE 0 @D@@@@ 03150 04 FQB )@@G@@ILLER PICTURE X(4). @[@@@@EJECT @]@@@@SPACE 1 @^@@@@QC )@@G@@ CADE VERSION @]@@@@SPACE 1 @#@@@@ FD DE-OUT @A@@@@QD )@@G@@ BLOCK CONTAINS 10 RECORDS@A@@@@ LABEL RECORDS STANDQE )@@G@@ARD @B@@@@ RECORD CONTAINS 40 CHARACTERS @A@@@@ RQF )@@G@@ECORDING MODE INTERNAL. @]@@@@SPACE 1 @#@@@@ 01 DE-REC.@D@@@@QG )@@G@@ 03 DE-OPR-ID PIC XXX. @D@@@@ 0QH )@@G@@3 DE-ACNT-N0 PIC X(8). @D@@@@ 03 DE-P-MODE QI )@@G@@ PIC X(8). @D@@@@ 03 DE-ELAP-TIME QJ )@@G@@ PIC X(5) @D@@@@ 03 STROKES PIC XQK )@@G@@(5). @E@@@@ 03 DE-STROKES-9 REDEFINES DE-STROKES PIC 9(5). QL )@@G@@@D@@@@ 03 DE-RECORDS PIC X(5). @E@@@@ QM )@@G@@ 03 DE-RECORDS-9 REDEFINES DE-RECORDS PIC 9(5). @D@@@@ 0QN )@@G@@3 DE-ERRORS PIC XXX. @E@@@@ 03 DE-ERRORS-QO )@@G@@9 REDEFINES DE-ERRORS PIC 999. @D@@@@ 03 FILLER QP )@@G@@ PIC XXX. @[@@@@EJECT @C@@@@2SORTED DATA ENTRY STAT FILE (QQ )@@G@@*DE-STAT-SRTD) @F@@@@ THIS FILE IS CREATED IN H15512. IT IS A SORTEDQR )@@G@@ VERSION OF THE @F@@@@ DATA ENTRY STAT FILE IN EITHER OPERATOR OR JOB QS )@@G@@SEQUENCE. LIKE @F@@@@ *DE-STAT FILE, THIS FILE IS EITHER INFOREX OR CQT )@@G@@ADE. THE INFOREX @F@@@@ VERSION IS PRODUCED BY H1551020 AND INPUT TO H1QU )@@G@@551030 , WHILE THE@E@@@@ CADE VERSION IS PRODUCED BY H1551021 AND INPUT QV )@@G@@TO H1551031.@]@@@@SPACE 1 @^@@@@ INFOREX VERSION @]@@@@SPACE QW )@@G@@1 @^@@@@ 02070 FD DISK-JOB @]@@@@SPACE 0 @A@@@@ 02080 RQX )@@G@@ECORDING MODE INTERNAL @]@@@@SPACE 0 @B@@@@ 02090 LABEL RECORDSQY )@@G@@ ARE STANDARD @]@@@@SPACE 0 @B@@@@ 02100 RECORD CONTAINS 83 QZ )@@G@@CHARACTERS @]@@@@SPACE 0 @A@@@@ 02110 BLOCK CONTAINS 20 RECORDSRA )@@G@@@]@@@@SPACE 0 @A@@@@ 02120 DATA RECORD IS JOBREC-IN.@^@@@@ RB )@@G@@ 01 JOBREC-IN. @]@@@@SPACE 0 @ @@@@ 02140 03 JOBNAME-IN. RC )@@G@@@F@@@@ 05 JOB-ID-IN PICTURE 999. RD )@@G@@@F@@@@ 05 FILLER PICTURE X(5). RE )@@G@@@]@@@@SPACE 0 @C@@@@ 02150 03 FILLER PICTURE X. RF )@@G@@@]@@@@SPACE 0 @C@@@@ 02160 03 JOB-BATCH PICTURE XXX. RG )@@G@@@]@@@@SPACE 0 @C@@@@ 02170 03 FILLER PICTURE X. RH )@@G@@@]@@@@SPACE 0 @C@@@@ 02180 03 RECID-IN PICTURE X. RI )@@G@@@]@@@@SPACE 0 @C@@@@ 02190 03 OPID-IN PICTURE XXX. RJ )@@G@@@]@@@@SPACE 0 @C@@@@ 02200 03 KP-IN PICTURE 9(4). RK )@@G@@@]@@@@SPACE 0 @C@@@@ 03010 03 VR-IN PICTURE 9(4). RL )@@G@@@]@@@@SPACE 0 @C@@@@ 03020 03 ER-IN PICTURE 9(4). RM )@@G@@@]@@@@SPACE 0 @C@@@@ 03030 03 TIME-IN PICTURE 999. RN )@@G@@@]@@@@SPACE 0 @D@@@@ 03040 03 TIMEX-IN REDEFINES TIME-IN PICTURRO )@@G@@E XXX.@]@@@@SPACE 0 @C@@@@ 03050 03 KP-STROKE PICTURE RP )@@G@@9(6). @]@@@@SPACE 0 @C@@@@ 03060 03 VR-STROKE PICTURE RQ )@@G@@9(6). @]@@@@SPACE 0 @F@@@@ 03065 03 FILLER RR )@@G@@ PICTURE XX. @]@@@@SPACE 0 @F@@@@ 03070 03 ER-STROKERS )@@G@@ PICTURE 9(4). @]@@@@SPACE 0 @F@@@@ 03080RT )@@G@@ 03 FILLER PICTURE X(24). @]@@@@SPACE RU )@@G@@0 @C@@@@ 03100 03 FILLER-IN PICTURE X(9). @[@@@@EJECT RV )@@G@@@^@@@@ CADE VERSION @]@@@@SPACE 1 @#@@@@ FD DE-OUT RW )@@G@@@A@@@@ BLOCK CONTAINS 10 RECORDS@A@@@@ LABEL RECORDSRX )@@G@@ STANDARD @B@@@@ RECORD CONTAINS 40 CHARACTERS @A@@@@ RY )@@G@@ RECORDING MODE INTERNAL. @]@@@@SPACE 1 @#@@@@ 01 DE-REC.RZ )@@G@@@D@@@@ 03 DE-OPR-ID PIC XXX. @D@@@@ SA )@@G@@ 03 DE-ACNT-N0 PIC X(8). @D@@@@ 03 DE-PSB )@@G@@-MODE PIC X(8). @D@@@@ 03 DE-ELAP-TIME SC )@@G@@ PIC X(5) @D@@@@ 03 STROKES SD )@@G@@ PIC X(5). @E@@@@ 03 DE-STROKES-9 REDEFINES DE-STROKES PIC 9(SE )@@G@@5). @D@@@@ 03 DE-RECORDS PIC X(5). @E@@@@SF )@@G@@ 03 DE-RECORDS-9 REDEFINES DE-RECORDS PIC 9(5). @D@@@@ SG )@@G@@ 03 DE-ERRORS PIC XXX. @E@@@@ 03 DE-ESH )@@G@@RRORS-9 REDEFINES DE-ERRORS PIC 999. @D@@@@ 03 FILLER SI )@@G@@ PIC XXX. @[@@@@EJECT @ @@@@2DATA ENTRY FILE (*DE-FISJ )@@G@@LE) @F@@@@ THIS FILE IS CREATED BY PROGRAM H1551035 IN H15512 (IF INFOSK )@@G@@REX @G@@@@ DATA IS INPUT VIA *DE-STAT-TAPE) OR PROGRAM H1551036 IN H15SL )@@G@@512 (IF @F@@@@ CADE DATA IS INPUT VIA *DE-STAT-TAPE). THIS IS A COMPSM )@@G@@ACT SUMMARY @F@@@@ BY ACCOUNT FILE OF DATA ENTRY STROKE COUNTS, RECORD CSN )@@G@@OUNTS AND @#@@@@ TIME STATISTICS. @]@@@@SPACE 1 @^@@@@ SSO )@@G@@ELECT DE-OUT@C@@@@ ASSIGN MASS-STORAGE DE-FILE. @]@@@@SP )@@G@@SPACE 1 @#@@@@ FD DE-OUT @A@@@@ BLOCK CONTAINS 8 RESQ )@@G@@CORDS @A@@@@ LABEL RECORDS STANDARD @B@@@@ RECORD SR )@@G@@CONTAINS 54 CHARACTERS @A@@@@ RECORDING MODE INTERNAL. @[@@@@SS )@@G@@SPACE @A@@@@ 01 DE-OUT-REC COPY DE-REC. @]@@@@SPACE 1 @#@@@@ST )@@G@@ 01 DE-REC.@ @@@@ 03 DE-ACNT-NO. @C@@@@ SU )@@G@@ 05 DE-ACNT-H-FLD PIC X. @C@@@@ 05 DE-ACNT-NO-FLSV )@@G@@D PIC XXX. @C@@@@ 05 DE-ACNT-RMDR-FLD PIC X(8).SW )@@G@@@C@@@@ 03 DE-RECS-ENTERED PIC 9(6).@C@@@@ 0SX )@@G@@3 DE-RECS-VERIFIED PIC 9(6).@C@@@@ 03 DE-ENTRY-STROKESSY )@@G@@ PIC 9(6).@C@@@@ 03 DE-VERIFY-STROKES PIC 9(6).SZ )@@G@@@D@@@@ 03 DE-ENTRY-MIN PIC 9(6)V999. @E@@@@ TA )@@G@@ 03 DE-VERIFY-MIN PIC 9(6)V999. END @[@@@@EJECT @#@@@@TB )@@G@@2*SALRY-EQUIP FILE@F@@@@ THIS FILE IS CREATED IN H15511 AND USED BY PROGTC )@@G@@RAM H1551050 IN @B@@@@ H15513. IT DETAILS D.P. OVERHEAD COSTS. @]@@@@TD )@@G@@SPACE 1 @A@@@@ SELECT SALRY-EQUIP-COSTS @B@@@@ TE )@@G@@ ASSIGN CARD-READER. @]@@@@SPACE 1 @ @@@@ FD SALRY-ETF )@@G@@QUIP-COSTS @A@@@@ LABEL RECORDS OMITTED. @[@@@@SPACE @A@@@@TG )@@G@@ 01 SALARY-EQUIP-COSTS-REC. @D@@@@ 03 PROGRAM-NO TH )@@G@@ PIC X(8). @D@@@@ 88 CONTROL-CARD VALUE TI )@@G@@'H1551050'. @D@@@@ 03 CARD-TYPE PIC X. TJ )@@G@@@E@@@@ 03 ADMIN-SALARIES PIC 9(5)V99. @E@@@@TK )@@G@@ 03 DE-SALARIES PIC 9(5)V99. @E@@@@ TL )@@G@@ 03 AP-SALARIES PIC 9(5)V99. @E@@@@ 0TM )@@G@@3 COMPUTER-SALARIES PIC 9(5)V99. @E@@@@ 03 DE-ETN )@@G@@QUIP-COST PIC 9(5)V99. @E@@@@ 03 COMPUTER-ETO )@@G@@QUIP-COST PIC 9(6)V99. @E@@@@ 03 AFTER-5-MAINT TP )@@G@@ PIC 9(5)V99. @D@@@@ 03 FILLER TQ )@@G@@ PIC X(21).@[@@@@EJECT @#@@@@2*KP-TIME FILE @G@@@@ THIS FILE ITR )@@G@@S CREATED IN H15511 AND IS INPUT TO H1551050 IN H15513. @F@@@@ IT COTS )@@G@@NSISTS OF MAN-HOUR TIME INFORMATION FOR DOING KEYPUNCHING @^@@@@ WORK,TT )@@G@@ BY ACCOUNT-NO. @]@@@@SPACE 1 @A@@@@ SELECT KEY-PUNCH-TITU )@@G@@ME @C@@@@ ASSIGN CARD-READER KP-TIME. @]@@@@SPACE TV )@@G@@1 @ @@@@ FD KEY-PUNCH-TIME @A@@@@ LABEL RECORDSTW )@@G@@ OMITTED. @[@@@@SPACE @^@@@@ 01 KP-TIME-REC. @D@@@@ 0TX )@@G@@3 FILLER PIC X. @D@@@@ 03 KP-MACHINETY )@@G@@-TYPE PIC XXX. @D@@@@ 03 KP-MACHINE-NO TZ )@@G@@ PIC 9. @^@@@@ 03 KP-DATE. @D@@@@ 05 KUA )@@G@@P-MM PIC 99. @D@@@@ 05 KP-DD UB )@@G@@ PIC 99. @D@@@@ 05 KP-YY UC )@@G@@ PIC 99. @D@@@@ 03 KP-JOB-CODE PIC 999. UD )@@G@@@D@@@@ 03 KP-HRS PIC 99V9. @D@@@@ UE )@@G@@ 03 KP-HRS-X REDEFINES KP-HRS PIC XXX. @D@@@@ 03 FILLUF )@@G@@ER PIC X(63).@[@@@@EJECT @B@@@@2COST TOTALS BY CAUG )@@G@@TEGORY FILE (*CTCF) @F@@@@ THIS FILE IS PARTIALLY CREATED IN H15513,UH )@@G@@ PROGRAM H1551040, AND @E@@@@ INPUT INTO PROGRAM H1551050 OF THE SAME RUI )@@G@@UN, WHERE IT IS @F@@@@ COMPLETED, THEN INPUT AGAIN INTO H15515, PROGRAUJ )@@G@@MS H1551060 AND @F@@@@ H1551080. THIS FILE CONTAINS PRE-DETERMINED COSUK )@@G@@T TOTALS AND OTHER@G@@@@ COSTS SUCH AS COST OF CTM'S AND COMMUNICATIONS UL )@@G@@TRANSACTIONS. IT IS @ @@@@ A DISC FILE WRITTEN TO TAPE. @]@@@@SPACE UM )@@G@@1 @ @@@@ SELECT CTCF-OUT @B@@@@ ASSIGNUN )@@G@@ MASS-STORAGE. @]@@@@SPACE 1 @^@@@@ FD CTCF-OUT @B@@@@UO )@@G@@ BLOCK CONTAINS 1 RECORDS @A@@@@ LABEL RECORDSUP )@@G@@ STANDARD @A@@@@ RECORDING MODE INTERNAL. @]@@@@SPACE 1 UQ )@@G@@@^@@@@ 01 CTCF-REC. @E@@@@ 03 TOTAL-SUP-HRS UR )@@G@@ PIC 9(5)V999. @E@@@@ 03 SHIFT-SUP-HRS OCCURS 3 TIMESUS )@@G@@ PIC 9(4)V999. @ @@@@ 03 HOURLY-RATES. @E@@@@ UT )@@G@@ 05 AP PIC 999V99. @E@@@@ 05 DUU )@@G@@-E PIC 999V99. @A@@@@ 05 COMPUTEUV )@@G@@R-RATES. @F@@@@ 07 CMPUTR-RATES OCCURS 3 TIMES PIC UW )@@G@@999V99. @A@@@@ 03 PCT-OVHD-TO-APPLY. @E@@@@ UX )@@G@@ 05 AP PIC 99V999. @E@@@@ 05 DUY )@@G@@-E PIC 99V999. @E@@@@ 05 COMPUTEUZ )@@G@@R PIC 99V999. @A@@@@ 03 PRE-DETERMINED-CVA )@@G@@OSTS. @E@@@@ 05 OUTSTAND-CAT-TRACKS PIC 9(5)V99. VB )@@G@@@E@@@@ 05 OUTSTAND-LIB-REELS PIC 9(5)V99. @E@@@@VC )@@G@@ 05 PAGES-CREATED PIC 9(5)V99. @E@@@@ VD )@@G@@ 05 SPECIAL-FORMS PIC 9(5)V99. @E@@@@ VE )@@G@@ 05 MASS-XFERS PIC 9(5)V99. @E@@@@ 05 RVF )@@G@@EELS-MOUNTED PIC 9(5)V99. @E@@@@ 05 TAPE-XFVG )@@G@@ERS PIC 9(5)V99. @E@@@@ 05 CARDS-READ VH )@@G@@ PIC 9(5)V99. @E@@@@ 05 CARDS-PUNCHED VI )@@G@@ PIC 9(5)V99. @E@@@@ 05 RMV-PACKS-MOUNTED VJ )@@G@@ PIC 9(5)V99. @E@@@@ 05 RMV-PACKS-SECS PIC VK )@@G@@9(5)V99. @D@@@@ 05 FILLER PIC X(63).VL )@@G@@@E@@@@ 03 PRE-DET-COSTS REDEFINES PRE-DETERMINED-COSTS. @C@@@@VM )@@G@@ 05 PRE-DET-ITEM OCCURS 20 TIMES @E@@@@ VN )@@G@@ PIC 9(5)V99. @E@@@@ 03 SHIFT1-DIFVO )@@G@@F PIC 999V99. @E@@@@ 03 SHIFT3-DIFF VP )@@G@@ PIC 999V99. @A@@@@ 03 PCT-EMPLOYEE-BENEFITS.VQ )@@G@@@E@@@@ 05 AP PIC 99V999. @E@@@@VR )@@G@@ 05 D-E PIC 99V999. @E@@@@ VS )@@G@@ 05 COMPUTER PIC 99V999. @E@@@@ 0VT )@@G@@3 CTMC-COST PIC 9(5)V99. @^@@@@ 03 CTM-VU )@@G@@COST. @E@@@@ 05 HIGH-SPEED PIC 999V99. VV )@@G@@@E@@@@ 05 MED-SPEED PIC 999V99. @E@@@@VW )@@G@@ 05 LOW-SPEED PIC 999V99. @E@@@@ VX )@@G@@ 05 DIAL-UP PIC 999V99. @E@@@@ 0VY )@@G@@3 UNADJ-SUP-HR-RATE PIC 999V99. @E@@@@ 03 SUP-VZ )@@G@@HRS-LESS-DP PIC 9(5)V999. @ @@@@ 03 PROCESSINGWA )@@G@@-DATE.@D@@@@ 05 PROCESSING-YY PIC 99. @D@@@@WB )@@G@@ 05 PROCESSING-MM PIC 99. @E@@@@ 0WC )@@G@@3 COMM-TRANS PIC 9(5)V99. @[@@@@EJECT @#@@@@2*KP-CWD )@@G@@ARDS FILE @F@@@@ THIS FILE IS CREATED IN H15511 AND INPUT TO H1551060 WE )@@G@@IN H15515. @F@@@@ IT CONSISTS OF INFORMATION ON RECORD COUNTS (FOR KEYPWF )@@G@@UNCHING @C@@@@ INITIAL ENTRY AND VERIFICATION) BY ACCOUNT-NO. @]@@@@WG )@@G@@SPACE 1 @A@@@@ SELECT KEYPUNCH-FILE @C@@@@ WH )@@G@@ ASSIGN TO CARD-READER KP-CARDS. @]@@@@SPACE 1 @^@@@@ FD KWI )@@G@@EYPUNCH-FILE@A@@@@ LABEL RECORDS ARE OMITTED@B@@@@ RWJ )@@G@@ECORD CONTAINS 80 CHARACTERS @B@@@@ DATA RECORD IS KEYPUNCH-RWK )@@G@@ECORD.@]@@@@SPACE 1 @ @@@@ 01 KEYPUNCH-CARD. @B@@@@ WL )@@G@@ 05 PUNCH-VERIFY PIC X. @E@@@@ 88 KP-TIME WM )@@G@@ VALUE IS ' '. @E@@@@ 88 KEYPUNCH WN )@@G@@ VALUE IS '0'. @E@@@@ 88 VERIFY WO )@@G@@ VALUE IS '1'. @C@@@@ 05 FILLER PIC X(4). WP )@@G@@@C@@@@ 05 FILLER PIC X(6). @C@@@@ 0WQ )@@G@@5 KP-ACNT-NUMBER PIC XXX. @C@@@@ 05 TIME-TO-PUNCH WR )@@G@@ PIC 99V9. @C@@@@ 05 FILLER PIC X(7). WS )@@G@@@C@@@@ 05 NUM-RECORDS-PUNCHED PIC 9(6). @C@@@@ 0WT )@@G@@5 FILLER PIC X(50). @[@@@@EJECT @B@@@@2YEAR-TO-DATE ACCOWU )@@G@@UNTING FILE (*YTD-ACNT) @F@@@@ THIS FILE IS INPUT INTO H15515, PROGRAM HWV )@@G@@1551060 AND UPDATED IN @F@@@@ THE SAME PROGRAM. IT CONTAINS AN ACCUMULAWW )@@G@@TION OF MONTHLY ACCOUNT-@F@@@@ ING RECORDS FOR THE YEAR. IT IS A DISC FIWX )@@G@@LE BACKED UP TO TAPE. @]@@@@SPACE 1 @ @@@@ SELECT ACCT-FWY )@@G@@ILE @D@@@@ ASSIGN MASS-STORAGE DAILY-ACCT. @]@@@@WZ )@@G@@SPACE 1 @ @@@@ FD NEW-Y-T-D-FILE, @B@@@@ LABEL RXA )@@G@@ECORDS ARE STANDARD, @A@@@@ BLOCK CONTAINS 3 RECORDS,@C@@@@XB )@@G@@ RECORD CONTAINS 1974 CHARACTERS, @C@@@@ DATA REXC )@@G@@CORD IS NEW-ACCOUNT-YEARLY. @[@@@@SPACE @ @@@@ 01 NEW-ACCOUNT-YXD )@@G@@EARLY.@D@@@@ 05 INITIAL-ACCT-INFO USAGE DISP-1. @D@@@@XE )@@G@@ 10 FILLER PIC X(4). @C@@@@ XF )@@G@@ 10 ACCOUNT-TYPE PIC X. @D@@@@ 88 DEVELOPXG )@@G@@MENTAL VALUE 'T'. @D@@@@ 10 FILLER PIXH )@@G@@C X(9). @C@@@@ 10 MONTH-OF-YEARLY PIC 99. @C@@@@XI )@@G@@ 10 ACCT-DAY-CODE PIC 99. @D@@@@ XJ )@@G@@ 88 WEEKDAY VALUE 32. @D@@@@ 88 WEEKENDXK )@@G@@ VALUE 33. @D@@@@ 10 FILLER PIXL )@@G@@C X(6). @C@@@@ 05 START-FILLER USAGE IS COMP-4. @F@@@@XM )@@G@@ 10 FILLER PIC 9(10) OCCURS 16 TIMES.@C@@@@XN )@@G@@ 10 SHIFT-INFO OCCURS 3 TIMES. @F@@@@ XO )@@G@@ 15 FILLER PIC 9(10) OCCURS 4 @ @@@@ XP )@@G@@ TIMES. @D@@@@ 15 BATCH-RUNS PIC 9(10). XQ )@@G@@@F@@@@ 15 FILLER PIC 9(10) OCCURS 6 XR )@@G@@@ @@@@ TIMES. @C@@@@ 15 FILLER XS )@@G@@ PIC 9. @D@@@@ 15 BATCH-SUPS PIC 9(18XT )@@G@@). @F@@@@ 15 FILLER PIC 9(10) OCCURS 18 XU )@@G@@TIMES.@D@@@@ 15 DEMAND-RUNS PIC 9(10). @D@@@@XV )@@G@@ 15 FILLER PIC 9(10). @C@@@@ XW )@@G@@ 15 FILLER PIC 9. @D@@@@ 15 DEMAND-XX )@@G@@SUPS PIC 9(18). @F@@@@ 15 FILLER PIXY )@@G@@C 9(10) OCCURS 18 TIMES.@D@@@@ 15 RT-BATCH-RUNS PIXZ )@@G@@C 9(10). @F@@@@ 15 FILLER PIC 9(10) OCCUYA )@@G@@RS 4 TIMES.@C@@@@ 15 FILLER PIC 9. @D@@@@YB )@@G@@ 15 RT-BATCH-SUPS PIC 9(18). @F@@@@ YC )@@G@@ 15 FILLER PIC 9(10) OCCURS 20 TIMES.@D@@@@ YD )@@G@@ 15 RT-DEMAND-RUNS PIC 9(10). @D@@@@ 15 FYE )@@G@@ILLER PIC 9(10). @C@@@@ 15 FILLER YF )@@G@@ PIC 9. @D@@@@ 15 RT-DEMAND-SUPS PIC 9(18). YG )@@G@@@F@@@@ 15 FILLER PIC 9(10) OCCURS 20 TIMES.YH )@@G@@@[@@@@EJECT @D@@@@2COST SUMMARY BY ACCOUNT- MONTHLY (*MTH-COST-SUM) YI )@@G@@@F@@@@ THIS FILE IS CREATED IN H15515, PROGRAM H1551060, AND INPUT INTO YJ )@@G@@@F@@@@ PROGRAM H1551070 OF THE SAME RUN. IT CONTAINS COSTS FOR DATA YK )@@G@@@F@@@@ PROCESSING SERVICES ARRANGED BY ACCOUNT FOR THE MONTH. IT IS A YL )@@G@@@ @@@@ DISC FILE WRITTEN TO TAPE. @]@@@@SPACE 1 @B@@@@ SYM )@@G@@ELECT COST-BY-ACCOUNT-FILE @D@@@@ ASSIGN TO MASS-STORAGYN )@@G@@E COST-BY-ACCT. @]@@@@SPACE 1 @A@@@@ FD COST-BY-ACCOUNT-FILYO )@@G@@E, @B@@@@ LABEL RECORDS ARE STANDARD, @B@@@@ BYP )@@G@@LOCK CONTAINS 15 RECORDS, @B@@@@ RECORD CONTAINS 236 CHARAYQ )@@G@@CTERS,@C@@@@ DATA RECORD IS BY-ACCOUNT-RECORD. @[@@@@SPACE YR )@@G@@@ @@@@ 01 BY-ACCOUNT-RECORD. @ @@@@ 05 BUDGET-NUM. YS )@@G@@@C@@@@ 10 DEPUTY-NUMBER PIC X .@C@@@@ YT )@@G@@ 10 BUREAU-NUMBER PIC X . @D@@@@ 10 FILLER YU )@@G@@ PIC XXX . @A@@@@ 10 ACCOUNT-CODE. @C@@@@YV )@@G@@ 15 ACCT-CODE-3 PIC XXX. @C@@@@ YW )@@G@@ 15 ACCT-CODE-L PIC X(9).@^@@@@ 05 PERIOD. @C@@@@ YX )@@G@@ 10 PERIOD-MONTH PIC XX. @C@@@@ 10 PERIOYY )@@G@@D-YEAR PIC XX. @C@@@@ 05 FILLER PICYZ )@@G@@ XXX. @D@@@@ 05 NUMERIC-FIELDS USAGE IS COMPUTATIONAL. @D@@@@ZA )@@G@@ 10 NUM-OF-RUNS PIC 9(10). @D@@@@ ZB )@@G@@ 10 COMPUTER-PROCESSING OCCURS 3 TIMES.@D@@@@ 15 CZC )@@G@@OMP-HOURS PIC 9(5)V999. @D@@@@ 15 COMP-COST ZD )@@G@@ PIC 9(7)V99. @A@@@@ 10 RELATED-COSTS. @D@@@@ ZE )@@G@@ 15 CARDS-IN-REL PIC 9(10). @D@@@@ ZF )@@G@@ 15 CARDS-IN-COST PIC 9(7)V99. @D@@@@ 15 CARDS-OZG )@@G@@UT-REL PIC 9(10). @D@@@@ 15 CARDS-OUT-COST PICZH )@@G@@ 9(7)V99. @D@@@@ 15 PAGES-PRINTED PIC 9(10). ZI )@@G@@@D@@@@ 15 PAGES-COST PIC 9(7)V99. @D@@@@ ZJ )@@G@@ 15 FORMS-MOUNTED PIC 9(10). @D@@@@ ZK )@@G@@ 15 FORMS-MT-COST PIC 9(7)V99. @D@@@@ 15 REELS-MZL )@@G@@OUNT PIC 9(10). @D@@@@ 15 REELS-MT-COST PICZM )@@G@@ 9(7)V99. @C@@@@ 15 FILLER PIC 9. @D@@@@ZN )@@G@@ 15 TAPE-DATA-TRANS PIC 9(18). @D@@@@ ZO )@@G@@ 15 DATA-TRAN-COST PIC 9(7)V99. @D@@@@ 15 RZP )@@G@@EELS-IN-LIBR PIC 9(10). @D@@@@ 15 REELS-LIBR-COZQ )@@G@@ST PIC 9(7)V99. @D@@@@ 15 PACKS-MOUNTED PIC 9(10)ZR )@@G@@. @D@@@@ 15 PACK-MT-COST PIC 9(7)V99. @C@@@@ZS )@@G@@ 15 FILLER PIC 9. @D@@@@ ZT )@@G@@ 15 CAT-DISC-TRACKS PIC 9(18). @D@@@@ 15 CAT-TRAZU )@@G@@CKS-COST PIC 9(7)V99. @C@@@@ 15 FILLER PICZV )@@G@@ 9. @D@@@@ 15 MS-DATA-TRANS PIC 9(18). @E@@@@ZW )@@G@@ 15 MS-DATA-TRANS-COST PIC 9(7)V99. @D@@@@ ZX )@@G@@ 15 PACK-DUR PIC 9(10). @D@@@@ ZY )@@G@@ 15 PACK-DUR-COST PIC 9(7)V99. @A@@@@ 10 DATA-ENTRY-ZZ )@@G@@COSTS.@D@@@@ 15 DE-REC-ENTERED PIC 9(10). @D@@@@AA )@@G@@ 15 DE-REC-VERIFIED PIC 9(10). @D@@@@ AB )@@G@@ 15 DE-KEY-ENTERED PIC 9(10). @D@@@@ 15 DAC )@@G@@E-KEY-VERIFIED PIC 9(10). @D@@@@ 15 DE-HOUR-ENTERAD )@@G@@ PIC 9(7)V9. @D@@@@ 15 DE-ENTER-COST PIC 9(7)VAE )@@G@@99. @D@@@@ 15 DE-HOUR-VERIFY PIC 9(7)V9. @D@@@@AF )@@G@@ 15 DE-VERIFY-COST PIC 9(7)V99. @B@@@@ AG )@@G@@ 10 ANALYSIS-PROGRAMMING. @D@@@@ 15 AP-HOURS AH )@@G@@ PIC 9(7)V9. @D@@@@ 15 AP-COST PIC 9(7)VAI )@@G@@99. @A@@@@ 10 RELATED-COST-2. @D@@@@ AJ )@@G@@ 15 DATA-COM-SOFT PIC 9(7)V99. @D@@@@ 15 DATA-COAK )@@G@@M-HARD PIC 9(7)V99. @D@@@@ 10 OTHER-COST PICAL )@@G@@ 9(7)V99. @A@@@@ 10 OVERHEAD-PERCENT.@D@@@@ AM )@@G@@ 15 COMPUTER-OV PIC 9(5)V999. @D@@@@ 15 DAN )@@G@@ATA-ENTRY-OV PIC 9(5)V999. @D@@@@ 15 ANAL-PROG-OV AO )@@G@@ PIC 9(5)V999. @B@@@@ 10 EMPLOYEE-BENEFITS-PCT. @D@@@@AP )@@G@@ 15 COMPUTER-EMP PIC 9(5)V999. @D@@@@ AQ )@@G@@ 15 DATA-ENTRY-EMP PIC 9(5)V999. @D@@@@ 15 AAR )@@G@@NAL-PROG-EMP PIC 9(5)V999. @D@@@@ 10 BUDGETED-AMOUNT AS )@@G@@ PIC 9(7)V99. @D@@@@ 10 NUM-COM-TRANS PIC 9(10)AT )@@G@@. @[@@@@EJECT @#@@@@2*BILL-ADJ-CDS @F@@@@ THIS FILE IS CREATED BYAU )@@G@@ H15511 AND INPUT TO H1551070 IN H15515. @E@@@@ IT CONSISTS OF INFORMATAV )@@G@@ION ON SPECIAL CHARGE ADJUSTMENTS BY@]@@@@ ACCOUNT-NO.@[@@@@EJECT @D@@@@AW )@@G@@2COST SUMMARY BY ACCOUNT-YEAR-TO-DATE (*YTD-ACNT-SUM) @E@@@@ THIS FILE IAX )@@G@@S BOTH INPUT TO AND UPDATED IN H15515, PROGRAM @G@@@@ H1551070, THEN INAY )@@G@@PUT INTO H1551080. IT CONTAINS AN ACCUMULATION OF @G@@@@ MONTHLY COSAZ )@@G@@T SUMMARY BY ACCOUNT RECORDS FOR THE YEAR. IT IS A DISC @^@@@@ FILE BA )@@G@@WRITTEN TO TAPE. @]@@@@SPACE 1 @B@@@@ SELECT COST-BY-ACCOBB )@@G@@UNT-FILE @D@@@@ ASSIGN TO MASS-STORAGE BY-ACCOUNT. BC )@@G@@@]@@@@SPACE 1 @A@@@@ FD COST-BY-ACCOUNT-FILE @B@@@@ BD )@@G@@ LABEL RECORDS ARE STANDARD, @B@@@@ BLOCK CONTAINS 15 RBE )@@G@@ECORDS, @B@@@@ RECORD CONTAINS 236 CHARACTERS,@B@@@@ BF )@@G@@ DATA RECORD IS ACCOUNT-COST. @]@@@@SPACE 1 @ @@@@ 01 BBG )@@G@@Y-ACCOUNT-RECORD. @ @@@@ 05 BUDGET-NUM. @C@@@@ BH )@@G@@ 10 DEPUTY-NUMBER PIC X. @C@@@@ 10 BUREAU-NUMBBI )@@G@@ER PIC X. @C@@@@ 10 FILLER PIC XXX. BJ )@@G@@@A@@@@ 10 ACCOUNT-CODE. @C@@@@ 15 ABK )@@G@@CCT-CODE-3 PIC XXX. @C@@@@ 15 FILLER PICBL )@@G@@ X(9).@^@@@@ 05 PERIOD. @C@@@@ 10 PERIOD-MONTBM )@@G@@H PIC XX. @C@@@@ 10 PERIOD-YEAR PIC XX. BN )@@G@@@C@@@@ 05 FILLER PIC XXX. @D@@@@ 0BO )@@G@@5 NUMERIC-FIELDS USAGE IS COMPUTATIONAL. @D@@@@ 10 FILLEBP )@@G@@R PIC 9(10). @B@@@@ 10 COMPUTER-PROCESSIBQ )@@G@@NG. @D@@@@ 15 SHIFT1-HOURS PIC 9(5)V999. @D@@@@BR )@@G@@ 15 SHIFT1-COST PIC 9(7)V99. @D@@@@ BS )@@G@@ 15 SHIFT2-HOURS PIC 9(5)V999. @D@@@@ 15 SBT )@@G@@HIFT2-COST PIC 9(7)V99. @D@@@@ 15 SHIFT3-HOURS BU )@@G@@ PIC 9(5)V999. @D@@@@ 15 SHIFT3-COST PIC 9(7)VBV )@@G@@99. @A@@@@ 10 RELATED-COSTS. @D@@@@ BW )@@G@@ 15 FILLER PIC 9(10). @D@@@@ 15 CARDS-IBX )@@G@@N-COST PIC 9(7)V99. @D@@@@ 15 FILLER PICBY )@@G@@ 9(10). @D@@@@ 15 CARDS-OUT-COST PIC 9(7)V99. BZ )@@G@@@D@@@@ 15 FILLER PIC 9(10). @D@@@@ CA )@@G@@ 15 PAGES-COST PIC 9(7)V99. @D@@@@ CB )@@G@@ 15 FILLER PIC 9(10). @D@@@@ 15 FORMS-MCC )@@G@@T-COST PIC 9(7)V99. @D@@@@ 15 FILLER PICCD )@@G@@ 9(10). @D@@@@ 15 REELS-MT-COST PIC 9(7)V99. CE )@@G@@@C@@@@ 15 FILLER PIC 9. @D@@@@ CF )@@G@@ 15 FILLER PIC 9(18). @D@@@@ 15 DCG )@@G@@ATA-TRAN-COST PIC 9(7)V99. @D@@@@ 15 FILLER CH )@@G@@ PIC 9(10). @D@@@@ 15 REELS-LIBR-COST PIC 9(7)VCI )@@G@@99. @D@@@@ 15 FILLER PIC 9(10). @D@@@@CJ )@@G@@ 15 PACK-MT-COST PIC 9(7)V99. @C@@@@ CK )@@G@@ 15 FILLER PIC 9. @D@@@@ 15 FILLER CL )@@G@@ PIC 9(18). @D@@@@ 15 CAT-TRACKS-COST PICCM )@@G@@ 9(7)V99. @C@@@@ 15 FILLER PIC 9. @D@@@@CN )@@G@@ 15 FILLER PIC 9(18). @E@@@@ CO )@@G@@ 15 MS-DATA-TRANS-COST PIC 9(7)V99. @D@@@@ CP )@@G@@ 15 FILLER PIC 9(10). @D@@@@ 15 PACK-DUCQ )@@G@@R-COST PIC 9(7)V99. @A@@@@ 10 DATA-ENTRY-COSTS.@D@@@@CR )@@G@@ 15 FILLER PIC 9(10). @D@@@@ CS )@@G@@ 15 FILLER PIC 9(10). @D@@@@ 15 FCT )@@G@@ILLER PIC 9(10). @D@@@@ 15 FILLER CU )@@G@@ PIC 9(10). @D@@@@ 15 DE-HOUR-ENTER PIC 9(7)VCV )@@G@@9. @D@@@@ 15 DE-ENTER-COST PIC 9(7)V99. @D@@@@CW )@@G@@ 15 DE-HOUR-VERIFY PIC 9(7)V9. @D@@@@ CX )@@G@@ 15 DE-VERIFY-COST PIC 9(7)V99. @B@@@@ 10 ANALYCY )@@G@@SIS-PROGRAMMING. @D@@@@ 15 AP-HOURS PIC 9(7)VCZ )@@G@@9. @D@@@@ 15 AP-COST PIC 9(7)V99. @A@@@@DA )@@G@@ 10 RELATED-COST-2. @D@@@@ 15 DATA-CODB )@@G@@M-SOFT PIC 9(7)V99. @D@@@@ 15 DATA-COM-HARD PICDC )@@G@@ 9(7)V99. @D@@@@ 10 OTHER-COST PIC 9(7)V99. DD )@@G@@@F@@@@ 10 FILLER PIC 9(10) OCCURS 8 TIMES.DE )@@G@@@^@@@@1SYSTEM PRINTED OUTPUT @^@@@@2ACCOUNT FILE REFERENCE @F@@@@ THIS DF )@@G@@REPORT IS CREATED IN H15500, PROGRAM H1550020. IT LISTS THE @F@@@@ REFERDG )@@G@@ENCES BY RUNS OF ONE ACCOUNT GROUP OF FILES CATALOGUED UNDER@E@@@@ ANOTHDH )@@G@@ER GROUP. THIS REPORT IS CREATED ONLY IF THE SITUATION@]@@@@ OCCURS. DI )@@G@@@[@@@@EJECT @ @@@@2LIST OF OPERATOR ALLOWED RUNS@F@@@@ THIS REPORT IS CRDJ )@@G@@EATED IN H15500, PROGRAM H1550020. IT LISTS THE @G@@@@ RUNS WHICH DID NODK )@@G@@T HAVE VALID ACCOUNT NUMBERS THAT WERE ALLOWED TO @G@@@@ RUN BY THE DL )@@G@@OPERATOR. THIS REPORT IS CREATED ONLY IN THE EVENT THAT @#@@@@ THIS DM )@@G@@HAPPENS. @[@@@@EJECT @C@@@@2LIST OF ALL RUNS BY ACCNT NO (*RUNS-TODAYDN )@@G@@) @F@@@@ THIS REPORT IS CREATED IN H15500, PROGRAM H1550030. IT LISTDO )@@G@@S BY @F@@@@ RUN ID ALL RUNS THAT HAVE RUN THAT DAY. IT IS PRODUCED ONLYDP )@@G@@ UPON @]@@@@ REQUEST. @[@@@@EJECT @D@@@@2SYMBIONT USE BY DEVICE AND ACDQ )@@G@@CT GROUP (*SYMBIONT-RPT)@F@@@@ THIS OPTIONAL REPORT IS CREATED IN H15500DR )@@G@@, PROGRAM H1550030. IT @F@@@@ CONTAINS SUMMARY INFORMATION BY ACCOUNT ADS )@@G@@BOUT THE NUMBER OF RUNS @F@@@@ INPUT FROM A DEVICE; HOW MANY 'CARDS' WERDT )@@G@@E READ; AND HOW MANY @D@@@@ 'CARDS' AND 'PAGES' WERE PRODUCED AT THATDU )@@G@@ DEVICE. @[@@@@EJECT @#@@@@2ERROR REPORT @F@@@@ THIS REPORT IS CRDV )@@G@@EATED IN H15500, PROGRAM H1550030. IT LISTS @F@@@@ RECORDS FROM THE DW )@@G@@INTERIM DAILY ACCOUNTING FILE THAT ARE IN ERROR.@[@@@@EJECT @D@@@@2SUMMADX )@@G@@RY BY ACCNT NO OF CATALOGUED FILES (*MFD-REPORT)@G@@@@ THIS OPTIONAL REPDY )@@G@@ORT IS CREATED IN H15501, PROGRAM H1550050. IT IS @F@@@@ A SUMMARY ODZ )@@G@@F INFORMATION FOUND IN THE MASTER FILE DIRECTORY CON- @F@@@@ CERNING THEEA )@@G@@ NUMBER OF TAPE FILES, DISC FILES, AND GRANULES EACH @G@@@@ ACCOUNT HASEB )@@G@@ ACQUIRED. IT REFLECTS THE INFORMATION FOUND IN THE MFD @F@@@@ SUMMAEC )@@G@@RY FILE. 2 LISTINGS ARE CREATED: 1 FOR VALID ACCOUNTS, AND 1@#@@@@ FOR IED )@@G@@NVALID. @[@@@@EJECT @C@@@@2TAPE LIBRARY SUMMARY BY ACCNT NO (*LIB-SUEE )@@G@@MMARY)@F@@@@ THIS OPTIONAL REPORT IS CREATED IN H15501, PROGRAM H1550060EF )@@G@@. IT @G@@@@ CONTAINS INFORMATION FROM THE LABELED AND UNLABELED TAPE LIEG )@@G@@BRARIES @F@@@@ ABOUT THE NUMBER OF TAPE REELS EACH ACCOUNT HAS ACQUIEH )@@G@@RED. IT RE- @F@@@@ FLECTS THE INFORMATION FOUND ON THE LIB-SUMMARY FILE.EI )@@G@@ 2 LISTINGS @D@@@@ ARE CREATED: 1 FOR VALID ACCOUNTS, 1 FOR INVALID. EJ )@@G@@@[@@@@EJECT @ @@@@2RUNSTREAM SUMMARY BY DAY @G@@@@ THIS IS AN OPTIONEK )@@G@@AL REPORT CREATED IN H15501, PROGRAM H1550080. IT @G@@@@ CONTAINS THEL )@@G@@E TOTAL SUPS ACCUMULATED ON EACH SHIFT FOR ALL ACCOUNTS @F@@@@ FOR TEM )@@G@@HE DAY. THIS REPORT CAN OPTIONALLY COVER LONGER PERIODS OF @^@@@@ TIME EN )@@G@@WITHIN ONE MONTH. @[@@@@EJECT @^@@@@2MONTHLY ACCOUNT SUMMARY@F@@@@ THIS EO )@@G@@IS AN OPTIONAL REPORT CREATED IN H15501, PROGRAM H1550081. @F@@@@ IT COEP )@@G@@NTAINS THE TOTAL SUPS FOR EACH ACCOUNT BROKEN DOWN BY SHIFT,@G@@@@ AND AEQ )@@G@@CCUMULATED OVER THE PERIOD FROM THE FIRST OF THE MONTH TO THE @#@@@@ER )@@G@@ CURRENT DAY. @[@@@@EJECT @B@@@@2DATA ENTRY STAT REPORT (*DE-STAT-RPES )@@G@@T) @F@@@@ THIS REPORT IS CREATED IN H15512, PROGRAM H1551030. IT CONTET )@@G@@AINS @F@@@@ STATISTICS ON DATA ENTRY AND VERIFY BY EITHER JOB OR OPERATEU )@@G@@OR, IF@A@@@@ THE DATA ENTRY IS FROM INFOREX. @[@@@@EJECT @D@@@@2PRE-DEV )@@G@@ETERMINED COSTS BY CATEGORY (*COST-CAT-RPT) @F@@@@ THIS REPORT IS CREW )@@G@@EATED IN H15513, PROGRAM H1551040. IT CONTAINS @G@@@@ PRE-DETERMINED COEX )@@G@@STS, NUMBER OF UNITS, AND TOTAL COSTS FOR SEVERAL @D@@@@ DATA PROCESEY )@@G@@SING FUNCTIONS. THIS REPORT IS OPTIONAL. @[@@@@EJECT @D@@@@2BUDGET ADJUEZ )@@G@@STMENT AND EXPENDITURE RPT (*BUD-EXP-RPT) @F@@@@ THESE REPORTS ARE CREATFA )@@G@@ED IN H15513, PROGRAM H1551050. THEY LIST @G@@@@ AMOUNTS IN COMPUTER, DAFB )@@G@@TA ENTRY, AND ANALYSIS AND PROGRAMMING BUD- @F@@@@ GETS BOTH BEFORE FC )@@G@@AND AFTER ADJUSTMENTS HAVE BEEN MADE. THEY ALSO @F@@@@ GIVE HOURLY RATESFD )@@G@@ FOR THESE AREAS, AND LIST AMOUNTS SPENT IN @E@@@@ VARIOUS AREAS FORFE )@@G@@ THESE THREE BUDGETS AND TOTALS FOR THESE @A@@@@ AMOUNTS. THIS REPORT ISFF )@@G@@ OPTIONAL. @[@@@@EJECT @ @@@@2COMPUTER UTILIZATION RECAP @F@@@@ THIS FG )@@G@@REPORT IS CREATED IN H15515, PROGRAM H1551060. IT LISTS @F@@@@ STATIFH )@@G@@STICS REGARDING THE NUMBER OF COMPUTER RUNS AND SUP HOURS @]@@@@ EACH FI )@@G@@MONTH.@[@@@@EJECT @B@@@@2DATA PROCESSING SERVICES SUMMARY LISTINGS@F@@@@FJ )@@G@@ THESE REPORTS ARE CREATED IN H15515, PROGRAM H1551070. ONE REPORT@F@@@@FK )@@G@@ IS PRINTED FOR EACH ACCOUNT, AND CONTAINS COSTS AND AMOUNTS FOR @#@@@@FL )@@G@@ BILLING PURPOSES.@[@@@@EJECT @B@@@@2DATA PROCESSING SERVICES BILLING MEFM )@@G@@MOS @F@@@@ THESE REPORTS ARE CREATED IN H15515, PROGRAM H1551070. ONE FN )@@G@@REPORT@F@@@@ IS PRINTED FOR EACH INDIVIDUAL TO RECEIVE A BILLING MEMO ANFO )@@G@@D CON-@ @@@@ TAINS THE COMPUTER COSTS. @[@@@@EJECT @D@@@@2DP ACTIVITYFP )@@G@@ SUMMARIES (*MTH-DP-RPT, *YTD-DP-RPT) @G@@@@ THESE REPORTS ARE CREATFQ )@@G@@ED IN H15515, PROGRAM H1551080 FOR BOTH THE @F@@@@ CURRENT MONTH ANDFR )@@G@@ YEAR-TO-DATE, EACH REPORT CONTAINS HOURS AND @F@@@@ COSTS OF DATA ENTFS )@@G@@RY, ANALYSIS AND PROGRAMMING, AND COMPUTER FOR @F@@@@ VARIOUS DIVISIONSFT )@@G@@ OF THE TEXAS DEPARTMENT OF HEALTH. THEY ARE @C@@@@ CREATED FOR BOTH FU )@@G@@MONTHLY AND YEAR-TO-DATE. @[@@@@EJECT @]@@@@2DP-LCH-LIST@F@@@@ THIS FV )@@G@@REPORT IS CREATED IN H15515 BY PROGRAM H1551090, AND IS A @F@@@@ LIST FW )@@G@@OF 'NON-PAYING ACCOUNTS' ALONG WITH THE ACCOUNT-NO TO WHICH @D@@@@ THEIRFX )@@G@@ INCURRED COSTS ARE REFERRED TO FOR PAYMENT. @^@@@@1RUNSTREAM INFORMAFY )@@G@@TION @[@@@@EJECT @]@@@@2PREP00 @^@@@@3RUNSTREAM NARRATIVE @]@@@@FZ )@@G@@ PURPOSE: @]@@@@SPACE 1 @F@@@@ PREP00 IS A SHORT,SPECIAL PURPOSE RGA )@@G@@UNSTREAM USED IN CONJUNCTION @E@@@@ WITH RUNSTREAM H15500 AND DESIGNED GB )@@G@@TO 'PREPARE' H15500 FOR @^@@@@ EXECUTION LATER ON. @]@@@@SPACE 2 GC )@@G@@@]@@@@ METHOD: @]@@@@SPACE 1 @G@@@@ PREP00 CREATES AN SGS ELEMENTGD )@@G@@ (SPECIFIED AS PER THE H15500 REQUEST @F@@@@ SHEET) FOR LATER RETRIEGE )@@G@@VAL AND USE BY RUNSTREAM H15500. IF H15500@F@@@@ 'FINDS' THE 'PREP00' SGGF )@@G@@S ELEMENT, THEN THE ELEMENT WILL BE USED, @E@@@@ ELSE H15500 WILL USE A GG )@@G@@DEFAULT SGS ELEMENT. AFTERWARDS, THE@D@@@@ 'PREP00' SGS ELEMENT IS DELETGH )@@G@@ED (IF IT WAS PRESENT). @]@@@@SPACE 2 @]@@@@ FREQUENCY: @]@@@@SPACE GI )@@G@@1 @F@@@@ RANDOM. 'PREP00' IS TO BE USED ONLY ON THOSE SPECIAL OCCASSGJ )@@G@@IONS @G@@@@ WHEN THE RUN REQUEST SHEET FOR H15500 SPECIFIES REQUESTS WHGK )@@G@@ICH ARE @F@@@@ DIFFERENT THAN THE 'DEFAULT' SGS ELEMENT. IT IS ANTICGL )@@G@@IPATED THAT @G@@@@ 'PREP00' WILL RARELY BE REQUIRED, HOWEVER ON THOSE OCGM )@@G@@CASSIONS WHEN @F@@@@ IT IS REQUIRED, IT SHOULD BE SUBMITTED WITHIN AGN )@@G@@ PERIOD OF TIME @F@@@@ PRIOR TO THE STARTING OF H15500 NOT TO EXCEED TGO )@@G@@HE CURRENT FXPURG @G@@@@ CRITERIA FOR MASS STORAGE FILES, IN ORDER TO INGP )@@G@@SURE RETENTIVITY OF @ @@@@ THE DESIRED SGS ELEMENT. @]@@@@SPACE GQ )@@G@@2 @^@@@@ RESTART PROCEDURE: @]@@@@SPACE 1 @F@@@@ RESTART FROGR )@@G@@M THE BEGINNING. DUE TO THE SINGLE FUNCTION 'PREP00' @F@@@@ PERFORMS ANGS )@@G@@D IT'S SHORTNESS, THE RESTART PROCEDURE IS TO SIMPLY @^@@@@ RESUBMIT THGT )@@G@@E JCL DECK. @[@@@@EJECT @]@@@@2H15500 @^@@@@3RUNSTREAM NARRATIVE GU )@@G@@@]@@@@ PURPOSE: @]@@@@SPACE 1 @E@@@@ THIS RUNSTREAM CREATES THE OPGV )@@G@@TIONAL DAILY ACCOUNTING FILE, @E@@@@ SYMBIONT USE BY DEVICE AND ACCOUNT GW )@@G@@FILE, AND FOUR REPORTS. @]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE GX )@@G@@1 @]@@@@COLUMN 5 @F@@@@ 1. H1550020 THE TAPE SYSTEM LOG AND VALIDGY )@@G@@ ACCOUNT FILE ARE INPUT @G@@@@ TO THIS PROGRAM. THE INTERIM DAILY ACCGZ )@@G@@OUNTING FILE IS CREATED, @F@@@@ ALONG WITH TWO REPORTS: ACCOUNT HA )@@G@@FILE REFERENCE AND LIST OF @F@@@@ OPERATOR ALLOWED RUNS IF AND ONLHB )@@G@@Y IF REPORT DATA HAS BEEN @B@@@@ DETECTED IN THE INCOMING LOG FILHC )@@G@@E. @]@@@@SPACE 1 @F@@@@ 2. GSM GSM USES THE INTERIM DAILY ACCOUNTHD )@@G@@ING FILE TO PRODUCE A @A@@@@ SORTED VERSION, INT-ACCT-SRT. @]@@@@HE )@@G@@SPACE 1 @E@@@@ 3. H1550030 THIS PROGRAM IS CONTROLED BY SGS PARAM P3HF )@@G@@. THE@F@@@@ INT-ACCT-SRT FILE IS USED TO CREATE THE SYMBIONT USE BY HG )@@G@@DEVICE@F@@@@ AND ACCOUNT FILE AND THE DAILY ACCOUNTING FILE, BOTH OF HH )@@G@@WHICH @F@@@@ ARE WRITTEN TO TAPE, AND TWO OPTIONAL REPORTS: SYMBIONT HI )@@G@@USE BY@F@@@@ DEVICE AND ACCOUNT GROUP AND LIST OF ALL RUNS WITHIN ACCHJ )@@G@@NT NO.@G@@@@ PARAMETER CARDS P3A, P3B SELECT WHICH REPORTS ARE GENERAHK )@@G@@TED. AN @B@@@@ ERROR REPORT IS ALWAYS GENERATED. @]@@@@SPACE HL )@@G@@2 @]@@@@ FREQUENCY: @]@@@@COLUMN 2 @]@@@@SPACE 1 @F@@@@ THIS HM )@@G@@RUNSTREAM IS RUN ON A DAILY BASIS AND IT IS ANTICIPATED THAT@B@@@@ IT'S HN )@@G@@SGS CONFIGURATION WILL BE CONSTANT. @]@@@@SPACE 2 @^@@@@ RESTART PROHO )@@G@@CEDURE: @]@@@@SPACE 1 @F@@@@ AT EACH CKECKPOINT REACHED WHILE PRHP )@@G@@OCESSING, H15500 AUTOMATICALLY@G@@@@ 'CONDITIONS' IT'S SGS ELEMENT FOR CHQ )@@G@@ORRECT RESTART SHOULD IT ERROR. @F@@@@ THEREFORE, ALL THAT IS NORMALHR )@@G@@LY NECESSARY TO RESTART IS TO KEYIN @G@@@@ 'ST H15500' FROM OPERATOR'S CHS )@@G@@ONSOLE. THIS METHOD CAN BE OVERRIDEN @A@@@@ BY EITHER OF TWO OTHER HT )@@G@@METHODS: @]@@@@COLUMN 8 @G@@@@ 1) KEYIN 'ST H15500,000X' FROM OHU )@@G@@PERATOR'S CONSOLE,WHERE X = THE @D@@@@ LAST CHECKPOINT REACHEDHV )@@G@@ BY THE ABORTED RUN. @E@@@@ 2) SUBMIT PREPOO RUN DECK WITH SGS PARHW )@@G@@AMETERS P1, P1A @F@@@@ REFLECTING THE CORRECT RESTART CRITERIA AHX )@@G@@ND SGS PARAMS P2 -@F@@@@ P3B1 REFLECTING THE SAME CONFIGURATION ASHY )@@G@@ THE SGS OF THE @F@@@@ ABORTED RUN DID. THEN KEYIN 'ST H15500' HZ )@@G@@FROM OPERATOR'S @C@@@@ CONSOLE AFTER PREP00 HAS FINNED NORMALLY.IA )@@G@@@]@@@@COLUMN 2 @[@@@@EJECT @^@@@@3RUNSTREAM FLOWCHART @[@@@@EJECT IB )@@G@@@]@@@@3RUNSHEET @B@@@@SUBHDG,C TDH DATA PROCESSING RUNSHEET @[@@@@IC )@@G@@EJECT @E@@@@ RUNID: H15500 SCHEDULER:....... DATE: ....... ID )@@G@@@]@@@@SPACE 1 @C@@@@ RUN TITLE: DAILY JOB ACCOUNTING, PART 1 IE )@@G@@@^@@@@ FREQUENCY: DAILY @ @@@@ PRIOR RUNID: RECERR/JA @ @@@@IF )@@G@@ FOLLOWING RUNID: H15501 @ @@@@ PROCESS PERIOD: ....... @]@@@@IG )@@G@@SPACE 2 @ @@@@ SPECIAL RUN INSTRUCTIONS: @]@@@@SPACE 6 @]@@@@IH )@@G@@ INPUTS: @]@@@@SPACE 2 @ @@@@ SGS CARD DESCRIPTIONS: @]@@@@II )@@G@@SPACE 1 @A@@@@ P1) RECOVERY RESTART? XXX @]@@@@SPACE 1 IJ )@@G@@@F@@@@ XXX = 'YES' RUNSTREAM WILL BEGIN EXECUTING AT CHECK-IK )@@G@@@G@@@@ POINT INDICATED ON P1A CARD. IF THIS CARIL )@@G@@D @F@@@@ IS 'YES', THE P1A CARD IS MANDATORIM )@@G@@Y. @]@@@@SPACE 1 @F@@@@ XXX = 'NO' RUNSTREAM WILL RIN )@@G@@UN FROM THE BEGINNING. @B@@@@ (NORMALLY NO) IO )@@G@@@]@@@@SPACE 2 @A@@@@ P1A) RESTART POINT: CPY @]@@@@SPACE IP )@@G@@1 @E@@@@ Y = NUMBER OF CHECKPOINT RUNSTREAM WILL BEGIN IQ )@@G@@@F@@@@ EXECUTION AT, WHERE Y = 1 THROUGH 6. THIS CARD ISIR )@@G@@@E@@@@ FILLED IN ONLY WHEN THE P1 CARD = 'YES'. @]@@@@IS )@@G@@SPACE 2 @C@@@@ P2) SELECT OPTIONAL INPUT LOG TAPE? XXX@]@@@@IT )@@G@@SPACE 1 @F@@@@ XXX = 'YES' RUNSTREAM WILL USE A LOG TAPIU )@@G@@E OTHER THAN@F@@@@ THE CURRENT ONE FOR INPUT. IIV )@@G@@F THE 'YES' @E@@@@ OPTION IS USED, THE P2A CARDIW )@@G@@ IS @A@@@@ MANDATORY.@]@@@@SPACE 1 @F@@@@IX )@@G@@ XXX = 'NO ' THE LATEST CATALOGUED VERSION OF THE LOG@E@@@@IY )@@G@@ TAPE WILL BE INPUT. (NORMALLY NO).@]@@@@SPACE IZ )@@G@@2 @G@@@@ P2A) LOG TAPE FILENAME: QUALIFIER*FILENAME REEL-NO:JA )@@G@@ XXXXXX @]@@@@SPACE 1 @E@@@@ QUALIFIER*FILENAME = ONJB )@@G@@E FOR THE INPUT LOG TAPE@B@@@@ DESIRED.JC )@@G@@@]@@@@SPACE 1 @E@@@@ XXXXXX = 6-DIGIT REEL NUMBER OF INPJD )@@G@@UT LOG TAPE @D@@@@ DESIRED. SEPARATE MULTIPLE REEL JE )@@G@@@B@@@@ NUMBERS BY COMMAS. @]@@@@SPACE 1 @D@@@@JF )@@G@@ FILL IN THIS CARD ONLY IF P2 = 'YES'. @]@@@@SPACE 2 JG )@@G@@@C@@@@ P3) CREATE DAILY ACCOUNT FILE? XXX @]@@@@SPACE 1 JH )@@G@@@F@@@@ XXX = 'YES' THE DAILY ACCOUNTING AND SYMBIONT USE BYJI )@@G@@@G@@@@ DEVICE AND ACCOUNT FILES WILL BE CREATEDJJ )@@G@@. @B@@@@ (NORMALLY YES) @]@@@@SPACE 1 JK )@@G@@@F@@@@ XXX = 'NO ' THE DAILY ACCOUNTING AND SYMBIONT USE BYJL )@@G@@@F@@@@ DEVICE AND ACCOUNT FILES WILL NOT BE JM )@@G@@@A@@@@ CREATED. @]@@@@SPACE 2 @E@@@@ JN )@@G@@P3A) SYMBIONT DEVICE USAGE REPORT? XXX COPIES Y @]@@@@SPACE 1 JO )@@G@@@F@@@@ XXX = 'YES' THE SYMBIONT DEVICE USAGE REPORT WILL BEJP )@@G@@@G@@@@ CREATED. IF THE 'YES' OPTION IS USED, THJQ )@@G@@E @G@@@@ P3 CARD MUST ALSO BE 'YES'. COPIESJR )@@G@@ = 1-9. @]@@@@SPACE 1 @G@@@@ XXX = 'NO ' THE SYMBIOJS )@@G@@NT DEVICE USAGE REPORT WILL NOT @B@@@@ BE CJT )@@G@@REATED. @]@@@@SPACE 2 @D@@@@ P3B) LIST OF ALL RUNS REPORTJU )@@G@@? XXX COPIES Y @]@@@@SPACE 1 @F@@@@ XXX = 'YES' THE JV )@@G@@LIST OF ALL RUNS WITHIN ACCNT NO @F@@@@ REPOJW )@@G@@RT WILL BE CREATED. IF THE 'YES' @F@@@@ OPTIJX )@@G@@ON IS USED, THE P3 CARD MUST ALSO BE@B@@@@ 'YESJY )@@G@@'. Y = 1-9. @]@@@@SPACE 1 @F@@@@ XXX = 'NO ' THE LIST OJZ )@@G@@F ALL RUNS WITHIN ACCNT NO @D@@@@ REPORT WILKA )@@G@@L NOT BE CREATED. @]@@@@SPACE 2 @C@@@@ P3B1) SUMMARIZE TIP TRAKB )@@G@@NSACTIONS? XXX @]@@@@SPACE 1 @G@@@@ XXX WILL BE 'NO 'KC )@@G@@ FOR THE TIME BEING. THE 'YES' OPTION @B@@@@ IS RESERVEDKD )@@G@@ FOR LATER USE. @]@@@@SPACE 2 @^@@@@ TAPE INPUT FILES: @]@@@@KE )@@G@@SPACE 1 @E@@@@ QUALIFIER*FILENAME: H150*DAILY (NAME OPTIONKF )@@G@@AL) @B@@@@ LABELED/UNLABELED: LABELED @B@@@@ KG )@@G@@ CATALOGUED YES/NO: EITHER @ @@@@ F-CYCLE: ...... @A@@@@KH )@@G@@ REEL NUMBER (S): ......@ @@@@ VOLUME: ...... KI )@@G@@@]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE 2 @^@@@@ TAPE OKJ )@@G@@UTPUT FILES:@]@@@@SPACE 1 @E@@@@ QUALIFIER*FILENAME: H150*KK )@@G@@DAILY-SYM-BU (OPTIONAL) @B@@@@ LABELED/UNLABELED: LABELED KL )@@G@@@B@@@@ CATALOGUED YES/NO: EITHER @ @@@@ F-CYCKM )@@G@@LE: ...... @ @@@@ RETENTION: 7 DAYS@A@@@@ REEL KN )@@G@@NUMBER(S): ...... @ @@@@ VOLUME: ...... @]@@@@SPACE 1 KO )@@G@@@E@@@@ QUALIFIER*FILENAME: H150*DAILY-ACT-BU (OPTIONAL) @B@@@@KP )@@G@@ LABELED/UNLABELED: LABELED @B@@@@ CATALOGUED KQ )@@G@@YES/NO: EITHER @ @@@@ F-CYCLE: ...... @ @@@@ KR )@@G@@ RETENTION: 7 DAYS@A@@@@ REEL NUMBER(S): ...... @ @@@@ KS )@@G@@ VOLUME: ...... @]@@@@SPACE 2 @^@@@@ PRINTED OUTPUT: KT )@@G@@@]@@@@SPACE 1 @B@@@@ TITLE: ACCOUNT FILE REFERENCE @B@@@@KU )@@G@@ PROGRAM NUMBER: H1550020 @A@@@@ TYPE FORMS:KV )@@G@@ 1PARTW @B@@@@ # OF READABLE COPIES: 0-1 @C@@@@ KW )@@G@@ PREPARATION INSTRUCTIONS: NONE @ @@@@ DISPOSITIONKX )@@G@@: TONY@B@@@@ ESTIMATED # OF PAGES: 10 @]@@@@SPACE 1 KY )@@G@@@C@@@@ TITLE: LIST OF OPERATOR ALLOWED RUNS @B@@@@ KZ )@@G@@ PROGRAM NUMBER: H1550020 @A@@@@ TYPE FORMS: 1PARTW LA )@@G@@@B@@@@ # OF READABLE COPIES: 0-1 @C@@@@ PREPALB )@@G@@RATION INSTRUCTIONS: NONE @ @@@@ DISPOSITION: TONY@B@@@@LC )@@G@@ ESTIMATED # OF PAGES: 0-1 @]@@@@SPACE 1 @F@@@@ LD )@@G@@ TITLE: LIST OF ALL RUNS WITHIN ACCNT NO (OPTIONAL) @B@@@@ LE )@@G@@ PROGRAM NUMBER: H1550030 @A@@@@ TYPE FORMS: 1PARTLF )@@G@@W @B@@@@ # OF READABLE COPIES: 0-9 @C@@@@ LG )@@G@@ PREPARATION INSTRUCTIONS: NONE @ @@@@ DISPOSITION: TONYLH )@@G@@@B@@@@ ESTIMATED # OF PAGES: 250 @]@@@@SPACE 1 @E@@@@LI )@@G@@ TITLE: SYMBIONT DEVICE USAGE REPORT (OPTIONAL) @B@@@@ LJ )@@G@@ PROGRAM NUMBER: H1550030 @A@@@@ TYPE FORMS: 1PARTLK )@@G@@W @B@@@@ # OF READABLE COPIES: 0-9 @C@@@@ LL )@@G@@ PREPARATION INSTRUCTIONS: NONE @ @@@@ DISPOSITION: TONYLM )@@G@@@B@@@@ ESTIMATED # OF PAGES: 30 @]@@@@SPACE 1 @ @@@@LN )@@G@@ TITLE: ERROR REPORT@B@@@@ PROGRAM NUMBER: H155003LO )@@G@@0 @A@@@@ TYPE FORMS: 1PARTW @A@@@@ # OF LP )@@G@@READABLE COPIES: 1@F@@@@ PREPARATION INSTRUCTIONS: SEPARATE LQ )@@G@@FROM PRIMARY PRINT@ @@@@ DISPOSITION: TONY@A@@@@ LR )@@G@@ ESTIMATED # OF PAGES: 1@]@@@@SUBHDG,N @[@@@@EJECT @]@@@@2PREP01 LS )@@G@@@^@@@@3RUNSTREAM NARRATIVE @]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@LT )@@G@@ PREP01 IS A SHORT,SPECIAL PURPOSE RUNSTREAM USED IN CONJUNCTION @E@@@@LU )@@G@@ WITH RUNSTREAM H15501 AND DESIGNED TO 'PREPARE' H15501 FOR @^@@@@ EXECULV )@@G@@TION LATER ON. @]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 LW )@@G@@@G@@@@ PREP01 CREATES AN SGS ELEMENT (SPECIFIED AS PER THE H15501 REQUESLX )@@G@@T @F@@@@ SHEET) FOR LATER RETRIEVAL AND USE BY RUNSTREAM H15501. IF LY )@@G@@H15501@F@@@@ 'FINDS' THE 'PREP01' SGS ELEMENT, THEN THE ELEMENT WILL BE LZ )@@G@@USED, @E@@@@ ELSE H15501 WILL USE A DEFAULT SGS ELEMENT. AFTERWARDS, THEMA )@@G@@@D@@@@ 'PREP01' SGS ELEMENT IS DELETED (IF IT WAS PRESENT). @]@@@@SPACE MB )@@G@@2 @]@@@@ FREQUENCY: @]@@@@SPACE 1 @F@@@@ RANDOM. 'PREP01' IS TO MC )@@G@@BE USED ONLY ON THOSE SPECIAL OCCASSIONS @G@@@@ WHEN THE RUN REQUEST SHMD )@@G@@EET FOR H15501 SPECIFIES REQUESTS WHICH ARE @F@@@@ DIFFERENT THAN THME )@@G@@E 'DEFAULT' SGS ELEMENT. IT IS ANTICIPATED THAT @G@@@@ 'PREP01' WILL RARMF )@@G@@ELY BE REQUIRED, HOWEVER ON THOSE OCCASSIONS WHEN @F@@@@ IT IS REQUIMG )@@G@@RED, IT SHOULD BE SUBMITTED WITHIN A PERIOD OF TIME @F@@@@ PRIOR TO THMH )@@G@@E STARTING OF H15501 NOT TO EXCEED THE CURRENT FXPURG @G@@@@ CRITERIA FOMI )@@G@@R MASS STORAGE FILES, IN ORDER TO INSURE RETENTIVITY OF @ @@@@ THE DMJ )@@G@@ESIRED SGS ELEMENT. @]@@@@SPACE 2 @^@@@@ RESTART PROCEDURE: MK )@@G@@@]@@@@SPACE 1 @F@@@@ RESTART FROM THE BEGINNING. DUE TO THE SINGLE FML )@@G@@UNCTION 'PREP01' @F@@@@ PERFORMS AND IT'S SHORTNESS, THE RESTART PROCEDMM )@@G@@URE IS TO SIMPLY @^@@@@ RESUBMIT THE JCL DECK. @[@@@@EJECT @]@@@@2H1550MN )@@G@@1 @^@@@@3RUNSTREAM NARRATIVE @]@@@@ PURPOSE: @]@@@@SPACE 1 MO )@@G@@@F@@@@ THIS RUNSTREAM USES THE DAILY ACCNT FILE FROM H15500 TO CREATE MP )@@G@@@F@@@@ DAILY, DAILY-CUMULATIVE, AND MONTHLY ACCOUNTING FILES. ALL FILES MQ )@@G@@@F@@@@ (INPUT AND OUTPUT) AND REPORTS ARE OPTIONAL. IN ADDITION, THE MR )@@G@@@G@@@@ DAILY ACCNT FILE CAN BE UPDATED BY THE MASTER FILE DIRECTORY (MFDMS )@@G@@) @^@@@@ AND TAPE LIBRARIES. @]@@@@SPACE 2 @]@@@@ METHOD: MT )@@G@@@]@@@@COLUMN 5 @]@@@@SPACE 1 @F@@@@ 1. H1550040 THIS PROGRAM SCANMU )@@G@@S THE MASTER FILE DIRECTORY FOR @F@@@@ INFORMATION CONCERNING THEMV )@@G@@ NUMBER OF TAPE AND DISC FILES AND @F@@@@ THE NUMBER OF GRANULES EACMW )@@G@@H ACCOUNT HAS ACQUIRED, THEN CREATES@F@@@@ THE MFD DETAIL FILE REFLECMX )@@G@@TING THIS INFORMATION AND A SINGLE @F@@@@ RECORD VOLUME CARD FILE WIMY )@@G@@TH THE NUMBER OF RECORDS ON THE MFD @E@@@@ DETAIL FILE. THIS PROGRAMMZ )@@G@@ IS SELECTED BY SGS PARAM P4. @]@@@@SPACE 1 @F@@@@ 2. H1550050 THIS NA )@@G@@PROGRAM INPUTS THE MFD DETAIL FILE, VOLUME CARD,@F@@@@ AND THE VALID NB )@@G@@ACCOUNT FILE (QUIP-CARDS), THEN CHECKS FOR VALID@F@@@@ ACCNTS AND CRENC )@@G@@ATES THE MFD SUMMARY FILE. THE INVALID MATCHES @F@@@@ ARE OUTPUT ON ND )@@G@@AN SDF FILE (MFD-TRANS) TO BE USED AS UPDATE @F@@@@ TRANSACTIONS LNE )@@G@@ATER IN AN MFD UPDATE PROGRAM WHICH IS NOT PART @G@@@@ OF THIS SYSTEMNF )@@G@@. THE MFD SUMMARY REPORT FOR VALID ACCNT NOS WILL @F@@@@ OPTIONALNG )@@G@@LY BE PRINTED DEPENDING ON SGS PARAM P4A. HOWEVER, THE@F@@@@ INVALID NH )@@G@@ACCOUNT NOS WILL BE PRINTED ANYWAY ASSUMING SGS PARAM @]@@@@ P4 =YES.NI )@@G@@@]@@@@SPACE 1 @F@@@@ 3. H1550060 THIS PROGRAM SCANS THE LABELED AND NJ )@@G@@UNLABELED TAPE @F@@@@ LIBRARY FILES FOR INFORMATION CONCERNING THENK )@@G@@ NUMBER OF TAPE @F@@@@ REELS EACH ACCOUNT HAS ACQUIRED, THEN COMPARNL )@@G@@ES THE ACCOUNT @E@@@@ NUMBERS WITH THE ONES ON THE VALID ACCOUNT FNM )@@G@@ILE TO CHECK@E@@@@ VALIDITY. THE INVALID MATCHES ARE OUTPUT ON AN SDFNN )@@G@@ FILE,@F@@@@ LIB-TRANS, TO BE USED AS UPDATE TRANSACTIONS LATER IN THNO )@@G@@E TAPE@E@@@@ LIBRARY UPDATE PROGRAMS. THE LIB-SUMMARY FILE IS OUTPUT NP )@@G@@@F@@@@ SUMMARIZING LIB INFO FOR INVALID ACCNT NOS, AND ANOTHER LIB NQ )@@G@@@F@@@@ SUMMARY REPORT IS OPTIONALLY PRINTED DEPENDING ON SGS PARAM NR )@@G@@@F@@@@ P5A, SUMMARIZING LIB INFO FOR VALID ACCNT NOS. THIS PROGRAM ISNS )@@G@@@ @@@@ SELECTED BY SGS PARAM P5. @]@@@@SPACE 1 @E@@@@ 4. H1550070NT )@@G@@ THIS PROGRAM INPUTS THE MFD SUMMARY FILE, THE @G@@@@ LIB-SUMMARY FINU )@@G@@LE, AND THE DAILY ACCOUNTING FILE, AND OUTPUTS AN @F@@@@ UPDATED NV )@@G@@DAILY ACCOUNTING FILE. THIS PROGRAM IS SELECTED IF SGS@A@@@@ PARAM P4NW )@@G@@ AND/OR P5 = 'YES'. @]@@@@SPACE 1 @F@@@@ 5. H1550080 THIS PROGRANX )@@G@@M INPUTS THE UPDATED DAILY ACCOUNTING FILE@F@@@@ AND THE CUMULATIVE DNY )@@G@@AILY ACCOUNTING FILE, THEN OUTPUTS AN @F@@@@ UPDATED CUMULATIVE DNZ )@@G@@AILY ACCOUNTING FILE AND THE RUNSTREAM @F@@@@ SUMMARY BY DAY REPOROA )@@G@@T AS PER SGS PARAMS P6 - P7A. H1550080 IS @F@@@@ FUNCTIONALLY A SUBSEOB )@@G@@T OF H1550081 AND INTENDED TO BE USED IN @F@@@@ PLACE OF H1550081 ONOC )@@G@@ THOSE DAYS OF THE MONTH WHEN MONTHLY @E@@@@ OUTPUT IS NOT REQUIROD )@@G@@ED. SGS PARAMS P6 - P7A CONTROL THIS@]@@@@ PROGRAM.@]@@@@SPACE 1 OE )@@G@@@F@@@@ 6. H1550081 THIS PROGRAM CONSISTS OF THE H1550080 FUNCTIONS AND OF )@@G@@@F@@@@ ALSO CREATES A MONTHLY ACCOUNTING FILE WHICH IS BACKED UP TO OG )@@G@@@F@@@@ TAPE AND THE RUNSTREAM SUMMARY BY ACCOUNT REPORT. THIS PROGRAMOH )@@G@@@F@@@@ IS CONTROLLED BY SGS PARAMS P6 - P9 AND IS INVOKED ONLY IF P8 OI )@@G@@@E@@@@ AND/OR P9 = YES, ELSE H1550080 IS INVOKED INSTEAD. IT IS@G@@@@OJ )@@G@@ ANTICIPATED THAT H1550081 WILL BE REQUIRED ONLY ON THE LAST DAY OK )@@G@@@ @@@@ OF AN ACCOUNTING MONTH. @]@@@@SPACE 2 @]@@@@ FREQUENCY: OL )@@G@@@]@@@@SPACE 1 @]@@@@COLUMN 2 @B@@@@ THIS RUNSTREAM IS RUN ON A DAOM )@@G@@ILY BASIS. @]@@@@SPACE 2 @^@@@@ RESTART PROCEDURE: @]@@@@SPACE ON )@@G@@1 @F@@@@ AT EACH CKECKPOINT REACHED WHILE PROCESSING, H15500 AUTOMATOO )@@G@@ICALLY@G@@@@ 'CONDITIONS' IT'S SGS ELEMENT FOR CORRECT RESTART SHOULD ITOP )@@G@@ ERROR. @F@@@@ THEREFORE, ALL THAT IS NORMALLY NECESSARY TO RESTART OQ )@@G@@IS TO KEYIN @G@@@@ 'ST H15500' FROM OPERATOR'S CONSOLE. THIS METHOD CAN OR )@@G@@BE OVERRIDDEN @A@@@@ BY EITHER OF TWO OTHER METHODS: @]@@@@COLUMNOS )@@G@@ 9 @F@@@@ 1) KEYIN 'ST H15500,000X' FROM OPERATOR'S CONSOLE, WHEROT )@@G@@E X = @E@@@@ THE LAST CHECKPOINT REACHED BY THE ABORTED RUN. OU )@@G@@@E@@@@ 2) SUBMIT PREP00 RUN DECK WITH SGS PARAMETERS P1, P1A @G@@@@OV )@@G@@ REFLECTING THE CORRECT RESTART CRITERIA AND SGS PARAMS P2 - OW )@@G@@@F@@@@ P3B1 REFLECTING THE SAME CONFIGURATION AS THE SGS OF THE OX )@@G@@@F@@@@ ABORTED RUN DID. THEN KEYIN 'ST H15500' FROM OPERATOR'S OY )@@G@@@D@@@@ CONSOLE AFTER PREP00 HAS FINNED NORMALLY. @]@@@@COLUMNOZ )@@G@@ 2 @[@@@@EJECT @^@@@@3RUNSTREAM FLOWCHART @[@@@@EJECT @]@@@@3RUNSHPA )@@G@@EET @B@@@@SUBHDG,C TDH DATA PROCESSING RUNSHEET @[@@@@EJECT @E@@@@PB )@@G@@ RUNID: H15501 SCHEDULER: ....... DATE: ....... @]@@@@SPACE PC )@@G@@1 @C@@@@ RUN TITLE: DAILY JOB ACCOUNTING, PART 2 @^@@@@ PD )@@G@@FREQUENCY: DAILY @ @@@@ PRIOR RUNID: H15500 @ @@@@ FOLLOWPE )@@G@@ING RUNID: NONE @ @@@@ PROCESS PERIOD: ....... @]@@@@SPACE 2 PF )@@G@@@ @@@@ SPECIAL RUN INSTRUCTIONS: @]@@@@SPACE 6 @]@@@@ INPUTS: PG )@@G@@@]@@@@SPACE 2 @ @@@@ SGS CARD DESCRIPTIONS: @]@@@@SPACE 1 PH )@@G@@@A@@@@ P1) RECOVERY RESTART: XXX @]@@@@SPACE 1 @F@@@@ PI )@@G@@ XXX = 'YES' RUNSTREAM WILL BEGIN EXECUTING AT THE @F@@@@ PJ )@@G@@ CHECKPOINT INDICATED ON THE P1A CARD. IF @F@@@@ PK )@@G@@ THIS OPTION IS USED, THE P1A CARD IS @A@@@@ PL )@@G@@ MANDATORY. @]@@@@SPACE 1 @F@@@@ XXX = PM )@@G@@'NO ' RUNSTREAM WILL RUN FROM THE BEGINNING. @B@@@@ PN )@@G@@ (NORMALLY NO) @]@@@@SPACE 2 @ @@@@ P1A) RESTART POINPO )@@G@@T: CPY@]@@@@SPACE 1 @G@@@@ Y = NUMBER OF CHECKPOINT RUNSTPP )@@G@@REAM WILL BEGIN EXECUTION @F@@@@ AT, WHERE Y = 1 THROPQ )@@G@@UGH 6. THIS CARD IS USED ONLY @A@@@@ WHEN P1 = 'YES'. PR )@@G@@@]@@@@SPACE 2 @B@@@@ P2) SELECT DAILY ACCNT FILE? XXX @]@@@@PS )@@G@@SPACE 1 @F@@@@ XXX = 'YES' A DAILY ACCOUNTING FILE WILL PT )@@G@@BE INPUT. IF@F@@@@ A NON-CURRENT ONE IS DESIRED,PU )@@G@@ ALSO USE @E@@@@ CARD P2A. IF A REEL NUMBER ISPV )@@G@@ NOT @F@@@@ SPECIFIED IN P2A, THE LATEST CATALOPW )@@G@@GUED @F@@@@ REEL WILL BE USED. IF P2 AND P3 AREPX )@@G@@ BOTH @F@@@@ 'YES', THEN EITHER P2A AND P3A MUSTPY )@@G@@ BE @F@@@@ RESPONDED TO, OR P2A AND P3A MUST NPZ )@@G@@OT BE @F@@@@ RESPONDED TO. DO NOT RESPOND TO ONLQA )@@G@@Y ONE.@B@@@@ (NORMALLY YES) @]@@@@SPACE 1 QB )@@G@@@G@@@@ XXX = 'NO ' A DAILY ACCOUNTING FILE WILL NOT BE INPUTQC )@@G@@. @]@@@@SPACE 1 @F@@@@ THERE MUST BE A 'YES' IN AT LEQD )@@G@@AST ONE OF THE CARDS IN @ @@@@ THE SET P2,P3. @]@@@@SPACE QE )@@G@@2 @G@@@@ P2A) IF DAILY ACCNT FILE NON-CURRENT SPECIFY REEL-NO:QF )@@G@@ XXXXXX @]@@@@SPACE 1 @F@@@@ XXXXXX = 6-DIGIT REEL NUQG )@@G@@MBER OF INPUT DAILY ACCOUNTING@E@@@@ FILE DESIRED, IQH )@@G@@F OTHER THAN THE LATEST @F@@@@ CATALOGUED ONE. IF THQI )@@G@@E LATEST CATALOGUED ONE @E@@@@ IS DESIRED, LEAVE THIQJ )@@G@@S FIELD BLANK. @B@@@@ (NORMALLY BLANK). @]@@@@QK )@@G@@SPACE 1 @F@@@@ IF A NON-CURRENT DAILY ACCOUNTING FILE IS QL )@@G@@SPECIFIED @F@@@@ (CARD P2A NON-BLANK), P4 AND P5 MAY NOT BEQM )@@G@@ 'YES'. @F@@@@ THIS RESULTS IN ALL TAPE OUTPUT FROM THIS QN )@@G@@RUNSTREAM @B@@@@ BEING TEMPORARY FILES ONLY. @]@@@@SPACE QO )@@G@@2 @E@@@@ P3) SELECT OLD CUMULATIVE DAILY ACCNT FILE? XXX QP )@@G@@@]@@@@SPACE 1 @F@@@@ XXX = 'YES' AN OLD CUMULATIVE DAILYQQ )@@G@@ ACCOUNTING FILE @F@@@@ WILL BE INPUT. IF A NONQR )@@G@@CURRENT ONE IS @G@@@@ DESIRED, ALSO USE P3A. QS )@@G@@IF A REEL NUMBER IS @G@@@@ NOT SPECIFIED IN QT )@@G@@P3A, THE CURRENT ONE WILL @F@@@@ BE USED. IFQU )@@G@@ P2 AND P3 ARE BOTH 'YES',THEN@E@@@@ EITHER P2A QV )@@G@@AND P3A MUST BE BLANK, @E@@@@ OR P2A AND P3A MUQW )@@G@@ST NOT BE BLANK. @]@@@@SPACE 1 @F@@@@ XXX = 'NO ' AN OLQX )@@G@@D CUMULATIVE DAILY ACCOUNTING FILE @C@@@@ WILL QY )@@G@@NOT BE INPUT. @D@@@@ (NORMALLY NO ON FIRST DQZ )@@G@@AY OF @E@@@@ ACCOUNTING MONTH, YES THEREAFTER). RA )@@G@@@]@@@@SPACE 1 @F@@@@ AT LEAST ONE CARD OF THE SET P2,P3 MRB )@@G@@UST CONTAIN A @F@@@@ 'YES'. IF EITHER P8 OR P9 = 'YES', PRC )@@G@@3 MUST ALSO = @#@@@@ 'YES'.@]@@@@SPACE 2 @E@@@@ RD )@@G@@P3A) IF OLD CUM DAILY ACCNT FILE NON-CURRENT SPECIFY @ @@@@ RE )@@G@@REEL-NO: XXXXXX @]@@@@SPACE 1 @F@@@@ XXXXXX = 6-DIGIT RRF )@@G@@EEL NUMBER OF INPUT OLD CUMULATIVE @F@@@@ DAILY ACCRG )@@G@@OUNTING FILE DESIRED, IF OTHER THAN @F@@@@ THE LATESRH )@@G@@T CATALOGUED ONE. IF THE CURRENT ONE@E@@@@ IS DESIRERI )@@G@@D, LEAVE THIS FIELD BLANK. @D@@@@ (NORMALLY BLANKRJ )@@G@@). P3A NON-BLANK @E@@@@ RESULTS IN ALL TAPE OUTPUT RK )@@G@@FOR THIS @D@@@@ RUNSTREAM BRING TEMPORARY FILES RL )@@G@@@ @@@@ ONLY. @]@@@@SPACE 2 @F@@@@ P4) RM )@@G@@UPDATE DAILY ACCNT FILE WITH MFD SUMMARY INFO? XXX @]@@@@SPACE 1 RN )@@G@@@F@@@@ XXX = 'YES' THE DAILY ACCOUNTING FILE WILL BE UPDATEDRO )@@G@@@D@@@@ WITH THE MFD DETAIL FILE. @]@@@@SPACE RP )@@G@@1 @F@@@@ XXX = 'NO ' THE DAILY ACCOUNTING FILE WILL NOT RQ )@@G@@BE @E@@@@ UPDATED WITH THE MFD DETAIL FILE. RR )@@G@@@D@@@@SPACE 1 IF P4A IS 'YES', P4 MUST ALSO BE 'YES'. @G@@@@ RS )@@G@@ IF P2A HAS A REEL NUMBER SPECIFIED, P4 CANNOT BE 'YES'. @]@@@@RT )@@G@@SPACE 2 @F@@@@ P4A) GENERATE LISTING OF SUMMARY INFO BY ACCNT-RU )@@G@@NO? XXX @^@@@@ COPIES Y @]@@@@SPACE 1 @G@@@@ RV )@@G@@ XXX = 'YES' THE MFD SUMMARY LISTING WILL BE GENERATED. @F@@@@RW )@@G@@ IF P4A = 'YES', THEN P4 MUST ALSO BE @E@@@@RX )@@G@@ 'YES'. Y = 1-9. (NORMALLY YES) @]@@@@SPACE RY )@@G@@1 @E@@@@ XXX = 'NO ' THE MFD SUMMARY LISTING WILL NOT BERZ )@@G@@@A@@@@ GENERATED. @]@@@@SPACE 2 @G@@@@ SA )@@G@@P5) UPDATE DAILY ACCNT FILE WITH TAPE LIB SUMMARY INFO? XXX @]@@@@SB )@@G@@SPACE 1 @F@@@@ XXX = 'YES' THE DAILY ACCOUNTING FILE WILSC )@@G@@L BE UPDATED@F@@@@ WITH THE LIB-SUMMARY FILE. (NSD )@@G@@ORMALLY YES)@]@@@@SPACE 1 @F@@@@ XXX = 'NO ' THE DAILY ASE )@@G@@CCOUNTING FILE WILL NOT BE @E@@@@ UPDATED WITSF )@@G@@H THE LIB-SUMMARY FILE. @]@@@@SPACE 1 @G@@@@ IF P2A HAS ASG )@@G@@ REEL NUMBER SPECIFIED, P5 CANNOT BE 'YES'. @]@@@@SPACE 2 @F@@@@SH )@@G@@ P5A) GENERATE LISTING OF SUMMARY INFO BY ACCNT-NO? XXX @^@@@@SI )@@G@@ COPIES Y @]@@@@SPACE 1 @G@@@@ XXX = 'YES' SJ )@@G@@ THE LIB-SUMMARY LISTING WILL BE GENERATED. @F@@@@ SK )@@G@@ IF P5A = 'YES', THEN P5 MUST ALSO BE @B@@@@ SL )@@G@@ 'YES'. Y = 1-9. @]@@@@SPACE 1 @E@@@@ XXX = 'NO ' SM )@@G@@ THE LIB-SUMMARY LISTING WILL NOT BE@A@@@@ GENERSN )@@G@@ATED. @]@@@@SPACE 1 @D@@@@ IF P5A IS 'YES', P5 MUST ALSO SO )@@G@@BE 'YES'. @]@@@@SPACE 2 @E@@@@ P6) CREATE NEW CUMULATIVE DASP )@@G@@ILY ACCNT FILE? XXX @]@@@@SPACE 1 @F@@@@ XXX = 'YES' SQ )@@G@@ A NEW CUMULATIVE DAILY ACCOUNTING FILE @E@@@@ SR )@@G@@ WILL BE CREATED. (NORMALLY YES) @]@@@@SPACE 1 @F@@@@ SS )@@G@@XXX = 'NO ' A NEW CUMULATIVE DAILY ACCOUNTING FILE @C@@@@ ST )@@G@@ WILL NOT BE CREATED. @]@@@@SPACE 1 @F@@@@ SU )@@G@@AT LEAST ONE OF THE SET P6,P7,P8,P9 MUST BE 'YES'. @]@@@@SPACE 2 SV )@@G@@@E@@@@ P7) GENERATE DAILY SUMMARY REPORT? XXX COPIES Y @]@@@@SW )@@G@@SPACE 1 @F@@@@ XXX = 'YES' THE RUNSTREAM SUMMARY BY DAY SX )@@G@@REPORT IS @F@@@@ GENERATED. IF THE REPORT IS DSY )@@G@@ESIRED FOR A@F@@@@ PERIOD OTHER THAN THE DAY OF SZ )@@G@@THE DAILY @G@@@@ ACCOUNTING FILE, P7A SHOULD ATA )@@G@@LSO BE FILLED @D@@@@ IN. Y = 1-9. (NORMALLY TB )@@G@@YES) @]@@@@SPACE 1 @G@@@@ XXX = 'NO ' THE RUNSTREAM SUMTC )@@G@@MARY BY DAY REPORT IS NOT @A@@@@ GENERATED. TD )@@G@@@]@@@@SPACE 1 @F@@@@ AT LEAST ONE OF THE SET P6,P7,P8,P9 TE )@@G@@MUST BE 'YES'. @]@@@@SPACE 2 @E@@@@ P7A) RANGE OF DAILY SUMTF )@@G@@MARY REPORT: START XX STOP YY @]@@@@SPACE 1 @E@@@@ XX = DTG )@@G@@ESIRED BEGINNING DAY OF REPORT (01-31). @]@@@@SPACE 1 @D@@@@ TH )@@G@@ YY = DESIRED ENDING DAY OF REPORT (01-31).@]@@@@SPACE 1 @F@@@@TI )@@G@@ IF THESE DAYS ARE NOT SPECIFIED, THE REPORT WILL BE @F@@@@TJ )@@G@@ GENERATED FOR ONLY THE DATE(S) ON THE DAILY ACCOUNTING@#@@@@TK )@@G@@ FILE. @]@@@@SPACE 1 @F@@@@ THE STARTING AND ETL )@@G@@NDING DAYS MUST BE WITHIN THE SAME @#@@@@ MONTH.@]@@@@SPACE TM )@@G@@1 @E@@@@ (XX,YY NORMALLY BLANK; EXCEPT ON LAST DAY OF TN )@@G@@@E@@@@ ACCOUNTING MONTH, XX SHOULD BE = 01, YY SHOULD @^@@@@TO )@@G@@ BE = 31.) @]@@@@SPACE 2 @D@@@@ P8) CREATE MONTHTP )@@G@@LY ACCNT SUMMARY FILE? XXX @]@@@@SPACE 1 @E@@@@ XXX = TQ )@@G@@'YES' THE MONTHLY ACCOUNTING FILE WILL BE@F@@@@ TR )@@G@@ CREATED. IF P8 = 'YES', THEN P3 MUST ALSO@F@@@@ TS )@@G@@ BE 'YES'. IF P8 = 'YES', THEN P8A MUST BE@B@@@@ TT )@@G@@ RESPONDED TO. @]@@@@SPACE 1 @F@@@@ XXX = 'NO ' THE MTU )@@G@@ONTHLY ACCOUNTING FILE WILL NOT BE @A@@@@ CREATTV )@@G@@ED. @E@@@@ (NORMALLY 'NO' EXCEPT LAST DAY OF TW )@@G@@@B@@@@ ACCOUNTING MONTH)@]@@@@SPACE 1 @F@@@@TX )@@G@@ AT LEAST ONE CARD OF THE SET P6,P7,P8,P9 MUST = 'YES'.@]@@@@TY )@@G@@SPACE 2 @E@@@@ P8A) DATE FOR MONTHLY ACCNT SUMMARY: MONTH XX YETZ )@@G@@AR YY @]@@@@SPACE 1 @E@@@@ XX = MONTH OF DESIRED MONTHLY UA )@@G@@ACCOUNTING FILE @]@@@@SPACE 1 @E@@@@ YY = YEAR OF DESIRUB )@@G@@ED MONTHLY ACCOUNTING FILE @]@@@@SPACE 1 @E@@@@ THIS CUC )@@G@@ARD MUST BE RESPONDED TO IF P8 = YES. @]@@@@SPACE 2 @E@@@@ UD )@@G@@P9) GENERATE MONTHLY SUMMARY REPORT? XXX COPIES Y @]@@@@SPACE 1 UE )@@G@@@F@@@@ XXX = 'YES' THE RUNSTREAM SUMMARY BY ACCOUNT REPORT UF )@@G@@@F@@@@ WILL BE GENERATED. IF P9 = 'YES', THEN P3UG )@@G@@@D@@@@ MUST ALSO BE 'YES'. Y = 1-9. @]@@@@SPACE UH )@@G@@1 @F@@@@ XXX = 'NO' THE RUNSTREAM SUMMARY BY ACCOUNT REPUI )@@G@@ORT @C@@@@ WILL NOT BE GENERATED. @E@@@@ UJ )@@G@@ (NORMALLY 'NO' EXCEPT LAST DAY OF @B@@@@ UK )@@G@@ ACCOUNTING MONTH)@]@@@@SPACE 1 @G@@@@ AT LEAUL )@@G@@ST ONE CARD OF THE SET P6,P7,P8,P9 MUST BE 'YES'. @]@@@@SPACE 2 UM )@@G@@@^@@@@ TAPE INPUT FILES: @]@@@@SPACE 1 @F@@@@ QUALIFIUN )@@G@@ER*FILENAME: HEALTH*TAPE-LIBRARY (OPTIONAL) @B@@@@ LABELUO )@@G@@ED/UNLABELED: LABELED @A@@@@ CATALOGUED YES/NO: YES @ @@@@UP )@@G@@ F-CYCLE: ...... @A@@@@ REEL NUMBER(S): ...... UQ )@@G@@@ @@@@ VOLUME: ...... @]@@@@SPACE 1 @E@@@@ QUR )@@G@@UALIFIER*FILENAME: H151*TAPE-LIB-LAB (OPTIONAL) @B@@@@ LABELUS )@@G@@ED/UNLABELED: LABELED @A@@@@ CATALOGUED YES/NO: YES @ @@@@UT )@@G@@ F-CYCLE: ...... @B@@@@ REEL NUMBER(S): .......UU )@@G@@. @ @@@@ VOLUME: ...... @]@@@@SPACE 1 @E@@@@ UV )@@G@@ QUALIFIER*FILENAME: H150*DAILY-ACT-BU (OPTIONAL) @B@@@@ UW )@@G@@ LABELED/UNLABELED: LABELED @B@@@@ CATALOGUED YES/NO: EITHUX )@@G@@ER @ @@@@ F-CYCLE: ...... @A@@@@ REEL NUMBERUY )@@G@@(S): ...... @ @@@@ VOLUME: ...... @]@@@@SPACE 1 @E@@@@UZ )@@G@@ QUALIFIER*FILENAME: H155*CUM-DLY-ACNT (OPTIONAL) @B@@@@ VA )@@G@@ LABELED/UNLABELED: LABELED @B@@@@ CATALOGUED YES/NOVB )@@G@@: EITHER @ @@@@ F-CYCLE: ...... @A@@@@ REEL VC )@@G@@NUMBER(S): ...... @ @@@@ VOLUME: ...... @]@@@@SPACE 2 VD )@@G@@@]@@@@ OUTPUTS: @]@@@@SPACE 2 @^@@@@ TAPE OUTPUT FILES:@]@@@@VE )@@G@@SPACE 1 @F@@@@ QUALIFIER*FILENAME: H155*CUM-DLY-ACNT(+1) (VF )@@G@@OPTIONAL) @B@@@@ LABELED/UNLABELED: LABELED @B@@@@ VG )@@G@@ CATALOGUED YES/NO: EITHER @ @@@@ F-CYCLE: ...... VH )@@G@@@ @@@@ RETENTION: 7 DAYS@A@@@@ REEL NUMBER(S): .VI )@@G@@..... @ @@@@ VOLUME: ...... @]@@@@SPACE 1 @F@@@@ VJ )@@G@@ QUALIFIER*FILENAME: H155-BU*MTH-ACNT-SUM (OPTIONAL) @B@@@@ VK )@@G@@ LABELED/UNLABELED: LABELED @B@@@@ CATALOGUED YES/NOVL )@@G@@: EITHER @ @@@@ F-CYCLE: ...... @A@@@@ RETENVM )@@G@@TION: 400 DAYS @A@@@@ REEL NUMBER(S): ...... @ @@@@ VN )@@G@@ VOLUME: ...... @]@@@@SPACE 2 @^@@@@ PRINTED OUTPUT: VO )@@G@@@]@@@@SPACE 1 @E@@@@ TITLE: SUMMARY BY ACCNT NO OF CATALOGVP )@@G@@UED FILES @D@@@@ (OPTIONAL) VQ )@@G@@@B@@@@ PROGRAM NUMBER: H1550050 @A@@@@ TYPE VR )@@G@@FORMS: 1PARTW @B@@@@ # OF READABLE COPIES: 0-9 @C@@@@VS )@@G@@ PREPARATION INSTRUCTIONS: NONE @ @@@@ DISPOVT )@@G@@SITION: TONY@B@@@@ ESTIMATED # OF PAGES: 10 @]@@@@SPACE VU )@@G@@1 @F@@@@ TITLE: TAPE LIBRARY SUMMARY BY ACCNT NO (OPTIONALVV )@@G@@) @B@@@@ PROGRAM NUMBER: H1550060 @A@@@@ VW )@@G@@ TYPE FORMS: 1PARTW @B@@@@ # OF READABLE COPIES: 0-9 VX )@@G@@@C@@@@ PREPARATION INSTRUCTIONS: NONE @ @@@@ VY )@@G@@ DISPOSITION: TONY@B@@@@ ESTIMATED # OF PAGES: 10 @]@@@@VZ )@@G@@SPACE 1 @D@@@@ TITLE: RUNSTREAM SUMMARY BY DAY (OPTIONAL) WA )@@G@@@D@@@@ PROGRAM NUMBER: H1550080 OR H1550081 @A@@@@ WB )@@G@@ TYPE FORMS: 1PARTW @B@@@@ # OF READABLE COPIES: 0WC )@@G@@-9 @C@@@@ PREPARATION INSTRUCTIONS: NONE @ @@@@ WD )@@G@@ DISPOSITION: TONY@F@@@@ ESTIMATED # OF PAGES: 3 ON DAWE )@@G@@ILY; UP TO 30 ON MONTHLY@]@@@@SPACE 1 @D@@@@ TITLE: MONTHLWF )@@G@@Y ACCOUNT SUMMARY (OPTIONAL) @B@@@@ PROGRAM NUMBER: H155008WG )@@G@@1 @A@@@@ TYPE FORMS: 1PARTW @B@@@@ # OF WH )@@G@@READABLE COPIES: 0-9 @C@@@@ PREPARATION INSTRUCTIONS: NONWI )@@G@@E @ @@@@ DISPOSITION: TONY@E@@@@ ESTIMATED #WJ )@@G@@ OF PAGES: 150 (END OF MONTH ONLY) @]@@@@SUBHDG,N @[@@@@EJECT @]@@@@WK )@@G@@2PREP11 @^@@@@3RUNSTREAM NARRATIVE @]@@@@ PURPOSE: @]@@@@SPACE WL )@@G@@1 @F@@@@ THIS RUNSTREAM TRANSFORMS THE FOLLOWING ACTUAL CARD FILES TWM )@@G@@O CARD@D@@@@ IMAGE FILES ON MASS STORAGE FOR INPUT TO H15511: @]@@@@WN )@@G@@SPACE 1 @ @@@@ BILLING ADUSTMENT CARDS @^@@@@ KEYPUNCH TIMEWO )@@G@@ CARDS@A@@@@ KEYPUNCH RECORD COUNT CARDS. @]@@@@SPACE 2 @]@@@@WP )@@G@@ METHOD: @]@@@@SPACE 1 @ @@@@ THE @DATA PROCESSOR IS USED. @]@@@@WQ )@@G@@SPACE 2 @]@@@@ FREQUENCY: @]@@@@SPACE 1 @B@@@@ THIS RUNSTREAM ISWR )@@G@@ RUN ON A MONTHLY BASIS.@]@@@@SPACE 2 @^@@@@ RESTART PROCEDURE: WS )@@G@@@]@@@@SPACE 1 @ @@@@ RESTART FROM THE BEGINNING. @[@@@@EJECT @]@@@@WT )@@G@@3RUNSHEET @B@@@@SUBHDG,C TDH DATA PROCESSING RUNSHEET @[@@@@EJECT WU )@@G@@@E@@@@ RUNID: PREP11 SCHEDULER:.......... DATE:........ @]@@@@WV )@@G@@SPACE 1 @C@@@@ RUN TITLE: MONTHLY JOB ACCOUNTING, PART 1 @^@@@@WW )@@G@@ FREQUENCY: MONTHLY@D@@@@ PRIOR RUNID: H15501 (END OF MONTH COWX )@@G@@NFIGURATION)@ @@@@ FOLLOWING RUNID: H15511 @A@@@@ PROCESS PERIWY )@@G@@OD:.......... @]@@@@SPACE 2 @ @@@@ SPECIAL RUN INSTRUCTIONS: WZ )@@G@@@]@@@@SPACE 1 @F@@@@ ACQUIRE THE FOLLOWING CARD FILES AND INSERXA )@@G@@T THEM IN THE @B@@@@ PREP11 JCL AT THE INDICATED POINTS: @]@@@@XB )@@G@@SPACE 1 @C@@@@ 1. BILLING ADJUSTMENT CARDS (FROM ANALYST)@D@@@@XC )@@G@@ 2. KEYPUNCH TIME CARDS (FROM DATA ENTRY SECTION)@F@@@@ 3. KEYXD )@@G@@PUNCH RECORD COUNT CARDS (FROM DATA ENTRY SECTION) @]@@@@SPACE 2 XE )@@G@@@]@@@@ INPUTS: @]@@@@SPACE 2 @^@@@@ INPUT DATA CARDS: @]@@@@XF )@@G@@SPACE 1 @E@@@@ CARD IDENTIFICATION: BILLING ADJUSTMENT CARXG )@@G@@DS @C@@@@ PREPARATION INSTRUCTIONS: NONE @A@@@@ XH )@@G@@ PROGRAM NUMBER: NONE @ @@@@ VOLUME: VARIABLE @]@@@@XI )@@G@@SPACE 1 @D@@@@ CARD IDENTIFICATION: KEYPUNCH TIME CARDS XJ )@@G@@@C@@@@ PREPARATION INSTRUCTIONS: NONE @A@@@@ XK )@@G@@ PROGRAM NUMBER: NONE @ @@@@ VOLUME: VARIABLE @]@@@@SPACE XL )@@G@@1 @E@@@@ CARD IDENTIFICATION: KEYPUNCH RECORD COUNT CARDS XM )@@G@@@C@@@@ PREPARATION INSTRUCTIONS: NONE @A@@@@ XN )@@G@@ PROGRAM NUMBER: NONE @ @@@@ VOLUME: VARIABLE @]@@@@SPACE XO )@@G@@2 @]@@@@ OUTPUTS: @]@@@@SPACE 2 @C@@@@ MASS STORAGE OUTPUXP )@@G@@T FILES (CARD IMAGE): @]@@@@SPACE 1 @E@@@@ QUALIFIER*FILXQ )@@G@@ENAME: H155-JOBACTT*BILLING-CDS @ @@@@ F-CYCLE:........ XR )@@G@@@ @@@@ VOLUME:........ @]@@@@SPACE 1 @D@@@@ QXS )@@G@@UALIFIER*FILENAME: H155-JOBACTT*TIME-CDS @ @@@@ F-CYCLE:...XT )@@G@@..... @ @@@@ VOLUME:........ @]@@@@SPACE 1 @D@@@@ XU )@@G@@ QUALIFIER*FILENAME: H155-JOBACTT*COUNT-CDS @ @@@@ F-CYCXV )@@G@@LE:........ @ @@@@ VOLUME:........ @]@@@@SPACE 2 @^@@@@XW )@@G@@ PRINTED OUTPUT: @]@@@@SPACE 1 @#@@@@ NONE @]@@@@XX )@@G@@SUBHDG,N @[@@@@EJECT @]@@@@2H15511 @^@@@@3RUNSTREAM NARRATIVE XY )@@G@@@]@@@@ PURPOSE: @]@@@@SPACE 1 @C@@@@ THIS RUNSTREAM CREATES THE FOXZ )@@G@@LLOWING FILES: @]@@@@SPACE 1 @^@@@@ 1. *SALRY-EQUIP @^@@@@YA )@@G@@ 2. *BILL-ADJ-CDS @#@@@@ 3. *KP-TIME @#@@@@ 4. *KP-CARDS.YB )@@G@@@]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 @F@@@@ ALL INPUTS YC )@@G@@ARE CARD IMAGE. THE @DATA PROCESSOR IS USED TO CREATE @F@@@@ FILES 1 ANDYD )@@G@@ 2 ABOVE, WHILE H1551000 IS USED TO CREATE *KP-TIME, @F@@@@ *KP-CARDS, YE )@@G@@AND VALIDATES THE ACCOUNT-NOS FIELDS OF EACH AGAINST @]@@@@ QUIP-CARDS.YF )@@G@@@]@@@@SPACE 2 @]@@@@ FREQUENCY: @]@@@@SPACE 1 @B@@@@ THIS RUNSTRYG )@@G@@EAM IS RUN ON A MONTHLY BASIS.@]@@@@SPACE 2 @^@@@@ RESTART PROCEDUREYH )@@G@@: @]@@@@SPACE 1 @ @@@@ RESTART FROM THE BEGINNING. @[@@@@EJECT YI )@@G@@@^@@@@3RUNSTREAM FLOWCHART @[@@@@EJECT @]@@@@3RUNSHEET @B@@@@SUBHDGYJ )@@G@@,C TDH DATA PROCESSING RUNSHEET @[@@@@EJECT @E@@@@ RUNID: H15511 YK )@@G@@ SCHEDULER:.......... DATE:........ @]@@@@SPACE 1 @C@@@@ YL )@@G@@RUN TITLE: MONTHLY JOB ACCOUNTING, PART 2 @^@@@@ FREQUENCY: MONTHLYYM )@@G@@@ @@@@ PRIOR RUNID: PREP11 @ @@@@ FOLLOWING RUNID: H15512 YN )@@G@@@A@@@@ PROCESS PERIOD:.......... @]@@@@SPACE 2 @ @@@@ SPECIYO )@@G@@AL RUN INSTRUCTIONS: @]@@@@SPACE 6 @]@@@@ INPUTS: @]@@@@SPACE YP )@@G@@2 @ @@@@ SGS CARD DESCRIPTIONS: @]@@@@SPACE 1 @B@@@@ YQ )@@G@@P1) PROCESSING FOR: MONTH MM YEAR YY@]@@@@SPACE 1 @G@@@@ MMYR )@@G@@ = MONTH FOR WHICH ACCOUNTING INPUT APPLIES. MM = '01'- @^@@@@ YS )@@G@@ '12' @]@@@@SPACE 1 @F@@@@ YY = YEAR TO WHICH MYT )@@G@@ONTH MM APPLIES. YY = '77'-'98'. @]@@@@SPACE 2 @D@@@@ P2) DPYU )@@G@@ ADMIN SALARIES: DOLLARS DDDDD CENTS CC @]@@@@SPACE 1 @A@@@@ YV )@@G@@ DDDDD = 00000 - 99999 @]@@@@SPACE 1 @ @@@@ CC = YW )@@G@@00 - 99 @]@@@@SPACE 2 @E@@@@ P3) DP DATA ENTRY SLARIES: DOLYX )@@G@@LARS DDDDD CENTS CC @]@@@@SPACE 1 @A@@@@ DDDDD = 00000 YY )@@G@@- 99999 @]@@@@SPACE 1 @ @@@@ CC = 00 - 99 @]@@@@YZ )@@G@@SPACE 2 @F@@@@ P4) DP ANAL-PROGRAMMER SALARIES: DOLLARS DDDDD CZA )@@G@@ENTS CC @]@@@@SPACE 1 @A@@@@ DDDDD = 00000 - 99999 ZB )@@G@@@]@@@@SPACE 1 @ @@@@ CC = 00 - 99 @]@@@@SPACE 2 ZC )@@G@@@F@@@@ P5) DP COMPUTER OPERATIONS SALARIES: DOLLARS DDDDD CENTS CC ZD )@@G@@@]@@@@SPACE 1 @A@@@@ DDDDD = 00000 - 99999 @]@@@@SPACE ZE )@@G@@1 @ @@@@ CC = 00 - 99 @]@@@@SPACE 2 @E@@@@ ZF )@@G@@P6) DATA ENTRY EQUIPMENT COSTS: DOLLARS DDDDD CENTS CC@]@@@@SPACE 1 ZG )@@G@@@A@@@@ DDDDD = 00000 - 99999 @]@@@@SPACE 1 @ @@@@ ZH )@@G@@ CC = 00 - 99 @]@@@@SPACE 2 @E@@@@ P7) COMPUTER EQUIPZI )@@G@@MENT COSTS: DOLLARS DDDDDD CENTS CC @]@@@@SPACE 1 @A@@@@ DDZJ )@@G@@DDDD = 000000 - 999999 @]@@@@SPACE 1 @ @@@@ CC = 00 - 9ZK )@@G@@9 @]@@@@SPACE 2 @D@@@@ P8) DP AFTER 5PM MAINT: DOLLARS DDDDZL )@@G@@D CENTS CC @]@@@@SPACE 1 @A@@@@ DDDDD = 00000 - 99999 ZM )@@G@@@]@@@@SPACE 1 @ @@@@ CC = 00 - 99 @]@@@@SPACE 2 ZN )@@G@@@A@@@@ MASS STORAGE INPUT FILES: @]@@@@SPACE 1 @E@@@@ ZO )@@G@@ QUALIFIER*FILENAME: H155-JOBACTT*BILLING-CDS @ @@@@ ZP )@@G@@ F-CYCLE:........ @ @@@@ VOLUME:........ @]@@@@SPACE 1 ZQ )@@G@@@D@@@@ QUALIFIER*FILENAME: H155-JOBACTT*TIME-CDS @ @@@@ ZR )@@G@@ F-CYCLE:........ @ @@@@ VOLUME:........ @]@@@@SPACE ZS )@@G@@1 @D@@@@ QUALIFIER*FILENAME: H155-JOBACTT*COUNT-CDS @ @@@@ZT )@@G@@ F-CYCLE:........ @ @@@@ VOLUME:........ @]@@@@ZU )@@G@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE 2 @C@@@@ MASS STORAGEZV )@@G@@ OUTPUT FILES (CARD IMAGE): @]@@@@SPACE 1 @E@@@@ QUALIFIZW )@@G@@ER*FILENAME: H155-JA-YYMM*SALRY-EQUIP @ @@@@ F-CYCLE:...ZX )@@G@@..... @ @@@@ VOLUME:........ @]@@@@SPACE 1 @E@@@@ ZY )@@G@@ QUALIFIER*FILENAME: H155-JA-YYMM*BILL-ADJ-CDS @ @@@@ ZZ )@@G@@ F-CYCLE:........ @ @@@@ VOLUME:........ @]@@@@SPACE 1 AA )@@G@@@D@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*KP-TIME @ @@@@ AB )@@G@@ F-CYCLE:........ @ @@@@ VOLUME:........ @]@@@@SPACE AC )@@G@@1 @D@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*KP-CDS @ @@@@AD )@@G@@ F-CYCLE:........ @ @@@@ VOLUME:........ @]@@@@AE )@@G@@SPACE 2 @^@@@@ PRINTED OUTPUT: @]@@@@SPACE 1 @#@@@@ AF )@@G@@ NONE @]@@@@SUBHDG,N @[@@@@EJECT @]@@@@2H15512 @^@@@@3RUNSTAG )@@G@@REAM NARRATIVE @]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@ THIS RUNSTRAH )@@G@@EAM USES THE MONTHLY ACCOUNTING FILE, TABLE-DISC-JA. @F@@@@ AND STATISTAI )@@G@@ICS FILES FOR ANALYSIS, PROGRAMMING, KEYPUNCH, AND @D@@@@ INFOREX TO AJ )@@G@@PRODUCE THE COST TOTALS BY CATEGORY FILE. @]@@@@SPACE 2 @]@@@@ METHOAK )@@G@@D: @]@@@@SPACE 1 @]@@@@COLUMN 5 @E@@@@ 1. H1551010 THIS PROGRAAL )@@G@@M READS THE DATA ENTRY STAT TAPE, @F@@@@ CONTAINING 2 RECORDS FOR EAM )@@G@@ACH JOB/OPERATOR, AND EDITS AND @F@@@@ COMBINES THEM INTO A SINGLAN )@@G@@E RECORD. THE OUTPUT FILE IS A DISC @F@@@@ FILE. H1551011 IS EXACTLYAO )@@G@@ AS H1551010 EXCEPT IT INPUTS THE @#@@@@ CADE TAPE. @]@@@@SPACE AP )@@G@@1 @G@@@@ 2. H1551020 THIS PROGRAM READS THE DATA ENTRY STAT FILE CREAQ )@@G@@ATED IN @G@@@@ H1551010 AND SORTS IT ACCORDING TO THE TYPE OF REPAR )@@G@@ORT REQUESTED @F@@@@ IN THE SGS PARAMETER CARDS, BY OPERATOR OR BAS )@@G@@Y JOB. IF BOTH ARE@F@@@@ REQUESTED, H1551020 AND H1551030 ARE EXECUTEAT )@@G@@D FOR 1 REPORT, @F@@@@ THEN AGAIN FOR THE OTHER. H1551021 IS EXACTAU )@@G@@LY AS H1551020 @B@@@@ EXCEPT IT IS FOR THE CADE VERSION. @]@@@@AV )@@G@@SPACE 1 @F@@@@ 3. H1551030 THIS PROGRAM READS THE SORTED DATA ENTRY AW )@@G@@STAT FILE @G@@@@ PRODUCED BY H1551020 AND CREATES EITHER THE OPERATAX )@@G@@OR STATISTICS @G@@@@ OR JOB STATISTICS REPORT, DEPENDING ON THE SAY )@@G@@GS PARAMETER CARDS. @F@@@@ IF BOTH ARE REQUESTED, H1551020 AND H1AZ )@@G@@551030 ARE EXECUTED FOR @F@@@@ ONE REPORT, THEN EXECUTED AGAIN FOR THBA )@@G@@E OTHER. H1551031 IS @E@@@@ EXACTLY AS H1551030 EXCEPT IT IS FOR TBB )@@G@@HE CADE VERSION. @]@@@@SPACE 1 @F@@@@ 4. H1551035 THIS PROGRAM INPUBC )@@G@@TS RAW DATA-ENTRY STATISTICS ORDERED@G@@@@ BY ACCOUNT-NO. FROM H15510BD )@@G@@20 AND OUTPUTS THE ESSENTIAL INFORMA- @E@@@@ TION ON A MORE EFFICBE )@@G@@IENTLY FORMATTED RECORD, AFTER FIRST@F@@@@ VALIDATING EACH ACCOUNT-NOBF )@@G@@. AND ADJUSTING THE ACCUMULATED @F@@@@ MAN-MINUTES FOR EACH ACCOUBG )@@G@@NT BY A CALCULATED FACTOR SUCH THAT @E@@@@ THE TOTAL ADJUSTED MAN-MINBH )@@G@@UTES ON THE OUTPUT DE-FILE IS @F@@@@ EQUIVALENT TO THE ACTUAL DE MAN-BI )@@G@@HOURS WORKED DURING THE MONTH @F@@@@ BEING PROCESSED AS PER THE PROGRBJ )@@G@@AM CONTROL CARD. A SUMMARY OF@F@@@@ EACH TRANSACTION BY ACCOUNT-NO.,BK )@@G@@ AS WELL AS OVERALL SUMMARY @B@@@@ INFORMATION IS PROVIDED BY DE-ADBL )@@G@@J-RPT.@]@@@@SPACE 1 @F@@@@ 5. H1551036 THIS PROGRAM IS EXACTLY AS H1BM )@@G@@551035 EXCEPT THAT IT IS@B@@@@ INTENDED TO BE FOR CADE DE INPUT ONLY.BN )@@G@@@]@@@@SPACE 2 @]@@@@ FREQUENCY: @]@@@@SPACE 1 @]@@@@COLUMN 2 BO )@@G@@@B@@@@ THIS RUNSTREAM IS RUN ON A MONTHLY BASIS.@]@@@@SPACE 2 @^@@@@BP )@@G@@ RESTART PROCEDURE: @]@@@@SPACE 1 @B@@@@ SPECIFY THE CHECKPOINT BQ )@@G@@(IN SSG) AND RUN. @[@@@@EJECT @^@@@@3RUNSTREAM FLOWCHART @[@@@@EJECT BR )@@G@@@]@@@@3RUNSHEET @B@@@@SUBHDG,C TDH DATA PROCESSING RUNSHEET @[@@@@BS )@@G@@EJECT @E@@@@ RUNID: H15512 SCHEDULER:....... DATE: ....... BT )@@G@@@]@@@@SPACE 1 @C@@@@ RUN TITLE: MONTHLY JOB ACCOUNTING, PART 3 BU )@@G@@@^@@@@ FREQUENCY: MONTHLY@D@@@@ PRIOR RUNID: H15511 IF ACCOUNTBV )@@G@@ING IS CURRENT, @B@@@@ H15514 IF NON-CURRENT @ @@@@BW )@@G@@ FOLLOWING RUNID: H15513 @ @@@@ PROCESS PERIOD:........ @]@@@@BX )@@G@@SPACE 2 @ @@@@ SPECIAL RUN INSTRUCTIONS: @]@@@@SPACE 6 @]@@@@BY )@@G@@ INPUTS: @]@@@@SPACE 2 @ @@@@ SGS CARD DESCRIPTIONS: @]@@@@BZ )@@G@@SPACE 1 @D@@@@ P1) RECOVERY RESTART? XXX CHECKPOINT CPN CA )@@G@@@]@@@@SPACE 1 @F@@@@ XXX = 'YES' RUNSTREAM WILL BEGIN ECB )@@G@@XECUTING AT CHECK-@A@@@@ POINT CPN.@]@@@@SPACE CC )@@G@@1 @F@@@@ XXX = 'NO ' RUNSTREAM WILL BEGIN EXECUTING FROCD )@@G@@M @D@@@@ INITIAL STARTING POINT. @]@@@@CE )@@G@@SPACE 1 @F@@@@ CPN N = '1' - '5'. (FIELD REQUIRED IF XXCF )@@G@@X = 'YES'). @]@@@@SPACE 2 @B@@@@ P2) ACCOUNTING INPUT IS: XXCG )@@G@@X @]@@@@SPACE 1 @E@@@@ XXXX = 'CURRENT' LATEST CATACH )@@G@@LOGUED (CURRENT) @D@@@@ FILES WILL BE USECI )@@G@@D. @]@@@@SPACE 1 @F@@@@ XXXX = 'NONCURRENT' NON-CURRCJ )@@G@@ENT FILES WILL BE USED @A@@@@ (NORMALLY 'CURRENT'). @]@@@@CK )@@G@@SPACE 2 @D@@@@ P2A) PROCESSING FOR: MONTH MM DAY DD YEAR YY CL )@@G@@@]@@@@SPACE 1 @D@@@@ MM = MONTH FOR WHICH ACCOUNTING APPCM )@@G@@LIES @A@@@@ MM = '01' - '12'. @]@@@@SPACE 1 @E@@@@CN )@@G@@ DD = LAST DAY OF MONTH MM. DD = '01' - '31'. @]@@@@SPACE CO )@@G@@1 @F@@@@ YY = YEAR FOR WHICH MONTH MM APPLIES. YY = '77'CP )@@G@@-'98'.@]@@@@SPACE 2 @D@@@@ P3) DATA ENTRY STAT FILE IS: XXX CQ )@@G@@TYPE: YYY @]@@@@SPACE 1 @F@@@@ XXX = 'INFOREX' SPECICR )@@G@@FIES DATA-ENTRY STATISTICS ARE@B@@@@ INFORCS )@@G@@EX @]@@@@SPACE 1 @F@@@@ XXX = 'CADE' SPECIFIES DCT )@@G@@ATA-ENTRY STATISTICS ARE@A@@@@ CADE @]@@@@CU )@@G@@SPACE 1 @F@@@@ YYY = 'TAPE' SPECIFIES DATA-ENTRY FICV )@@G@@LE IS TAPE @]@@@@SPACE 1 @F@@@@ YYY = 'MASS' SPECICW )@@G@@FIES DATA-ENTRY FILE IS MASS- @B@@@@ STORACX )@@G@@GE @]@@@@SPACE 1 @A@@@@ (XXX NORMALLY 'CADE'). @A@@@@CY )@@G@@ (YYY NORMALLY 'TAPE'). @]@@@@SPACE 2 @F@@@@ P3A) CZ )@@G@@ DATA-ENTRY STAT TAPE REEL NO(S): DXXXXX,DXXXXX,... @]@@@@SPACE 1 DA )@@G@@@D@@@@ XXXXX = '00000' - '99999'. MULTIPLE REELS@C@@@@ DB )@@G@@ SEPARATED WITH COMMAS. @]@@@@SPACE 1 @D@@@@ DC )@@G@@ REQUIRED ONLY IF P3 SPECIFIES 'TAPE'. @]@@@@SPACE 2 @E@@@@DD )@@G@@ P3B) DATA ENTRY STAT RPT SELECTION: XXX COPIES N @]@@@@SPACE DE )@@G@@1 @E@@@@ XXX = 'BOTH' SPECIFIES STAT REPORTS BY DF )@@G@@@C@@@@ OPERATOR AND JOB @]@@@@SPACE 1 DG )@@G@@@E@@@@ XXX = 'OPERATORS' SPECIFIES STAT REPORT BY @C@@@@DH )@@G@@ OPERATOR CODE. @]@@@@SPACE 1 @E@@@@DI )@@G@@ XXX = 'JOB' SPECIFIES STAT REPORT BY @D@@@@ DJ )@@G@@ ACCOUNT (JOB) CODE. @]@@@@SPACE 1 @E@@@@DK )@@G@@ XXX = NONE' SPECIFIES NO STAT REPORTS @C@@@@ DL )@@G@@ TO BE CREATED. @]@@@@SPACE 1 @F@@@@ DM )@@G@@ N = COPIES DESIRED, FROM 1-9. THIS IS REQUIRED IF THE@B@@@@ DN )@@G@@ STAT REPORT IS REQUESTED.@]@@@@SPACE 2 @E@@@@ P3B1) DO )@@G@@ DATA-ENTRY COST FACTOR: DOLLARS XX CENTS YY @]@@@@SPACE 1 @ @@@@DP )@@G@@ XX = '00' - '99' @]@@@@SPACE 1 @ @@@@ YY = DQ )@@G@@'00' - '99' @]@@@@SPACE 1 @E@@@@ XX.YY IS THE HOURLY RATDR )@@G@@E FOR DATA-ENTRY WORK. @]@@@@SPACE 1 @E@@@@ (REQUIRED ODS )@@G@@NLY IF P3B SPECIFIES A REPORT TO BE @C@@@@ CREATED AND P3 SPDT )@@G@@ECIFIES INFOREX). @]@@@@SPACE 2 @F@@@@ P4) ACTUAL DATA-ENTRYDU )@@G@@ MANHOURS IN PROCESSING MONTH: HOURS@ @@@@ XXXX TENTHS Y DV )@@G@@@]@@@@SPACE 1 @G@@@@ XXXX = (BLANK) SPECIFIES THAT THE DW )@@G@@RAW DATA ENTRY TIME @F@@@@ AND FROM THE STATDX )@@G@@ TAPE IS NOT TO BE CORR-@A@@@@ Y = (BLANK) ECTED. @]@@@@DY )@@G@@SPACE 1 @F@@@@ XXXX = '0000' - '9999' SPECIFIES THAT THDZ )@@G@@E RAW DATA @F@@@@ AND ENTRY TIME FROM TEA )@@G@@HE STAT TAPE@F@@@@ Y = '1' - '9' IS TO BE CORRECTEEB )@@G@@D TO EQUAL @D@@@@ XXXX.Y HOURS. EC )@@G@@@]@@@@SPACE 2 @C@@@@ P4A) NO OF COPIES OF ADJUSTMENT-RPT: N ED )@@G@@@]@@@@SPACE 1 @ @@@@ N = '1' - '9' @]@@@@SPACE 2 EE )@@G@@@^@@@@ TAPE INPUT FILES: @]@@@@SPACE 1 @E@@@@ QUALIFIEF )@@G@@ER*FILENAME: H155-JA-YYMM*DE-STAT-TAPE @D@@@@ LABELED/UNLEG )@@G@@ABELED: UNLABELED (INFOREX) @A@@@@ CATALOGUED YES/NO: NO EH )@@G@@@ @@@@ F-CYCLE:...... @A@@@@ REEL NUMBER(S):..EI )@@G@@.... @ @@@@ VOLUME:...... @]@@@@SPACE 1 @D@@@@ EJ )@@G@@ QUALIFIER*FILENAME: HEALTH*TABLEDISC-JA @B@@@@ LABELEK )@@G@@ED/UNLABELED: LABELED @A@@@@ CATALOGUED YES/NO: YES @ @@@@EL )@@G@@ F-CYCLE:...... @A@@@@ REEL NUMBER(S):...... EM )@@G@@@ @@@@ VOLUME: ...... @]@@@@SPACE 2 @A@@@@ MASS SEN )@@G@@TORAGE INPUT FILES: @]@@@@SPACE 1 @D@@@@ QUALIFIER*FILEO )@@G@@ENAME: HEALTH*TABLE-TAPE60 @ @@@@ F-CYCLE:...... @ @@@@EP )@@G@@ VOLUME:...... @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@EQ )@@G@@SPACE 1 @A@@@@ MASS STORAGE OUTPUT FILES: @]@@@@SPACE 1 ER )@@G@@@D@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*DE-FILE @ @@@@ ES )@@G@@ F-CYCLE:...... @ @@@@ VOLUME:...... @]@@@@SPACE ET )@@G@@2 @^@@@@ PRINTED OUTPUT: @]@@@@SPACE 1 @C@@@@ TEU )@@G@@ITLE: DATA ENTRY ADJUSTMENT REPORT @B@@@@ PROGRAM NUMBER: HEV )@@G@@1551035/36 @A@@@@ TYPE FORMS: 1PARTW @A@@@@ EW )@@G@@ # OF READABLE COPIES: 1@C@@@@ PREPARATION INSTRUCTIONS: NONEX )@@G@@E @B@@@@ DISPOSITION: TONY SCHNEIDER @A@@@@ EY )@@G@@ ESTIMATED # OF PAGES: 5@]@@@@SPACE 1 @B@@@@ TITLE: DATA EEZ )@@G@@NTRY STAT REPORT @B@@@@ PROGRAM NUMBER: H1551030/31 @A@@@@FA )@@G@@ TYPE FORMS: 1PARTW @C@@@@ # OF READABLE COPFB )@@G@@IES: AS REQUESTED @C@@@@ PREPARATION INSTRUCTIONS: NONE FC )@@G@@@B@@@@ DISPOSITION: TONY SCHNEIDER @A@@@@ ESTIMFD )@@G@@ATED # OF PAGES: 5@]@@@@SUBHDG,N @[@@@@EJECT @]@@@@2H15513 @^@@@@FE )@@G@@3RUNSTREAM NARRATIVE @]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@ THIS FF )@@G@@RUNSTREAM USES THE MONTHLY ACCOUNTING FILE FROM H15501, @F@@@@ TABLEFG )@@G@@-DISC-JA, AND STATISTICS FILES FROM ANALYSIS, PROGRAMMING, @F@@@@ KEYPUFH )@@G@@NCH, AND DATA ENTRY TO PRODUCE THE COST-TOTAL-BY-CATEGORY @ @@@@ FILE FI )@@G@@AND ASSOCIATED REPORTS. @]@@@@SPACE 2 @]@@@@COLUMN 5 @]@@@@ METHOFJ )@@G@@D: @]@@@@SPACE 1 @F@@@@ 1. H1551040 THIS PROGRAM INPUTS THE MONTHFK )@@G@@LY ACCOUNTING FILE AND @D@@@@ TABLE-DISCJA AND PRODUCES PART OF THE FL )@@G@@DATA FOR THE@G@@@@ COST-TOTALS-BY-CATEGORY FILE AND A REPORT, PRE-DETFM )@@G@@ERMINED COSTS @#@@@@ BY CATEGORY. @]@@@@SPACE 1 @F@@@@ 2. H1FN )@@G@@551050 THE INFOREX TIME FILE, TABLE-DISC-JA, SCS FILE, AND @F@@@@ KEFO )@@G@@YPUNCH TIME FILE, ALONG WITH A CONTROL CARD, SALARY AND @F@@@@ EQFP )@@G@@UIPMENT COST FIGURES, ARE INPUT TO THIS PROGRAM AND USED TO @F@@@@ COFQ )@@G@@MPLETE THE COST TOTALS BY CATEGORY FILE, WHICH IS WRITTEN TO@F@@@@ TAFR )@@G@@PE, AND CREATES TWO REPORT: BUDGET ADJUSTMENT REPORT AND @ @@@@ EXFS )@@G@@PENDITURE WORKSHEET. @]@@@@SPACE 2 @]@@@@ FREQUENCY: @]@@@@SPACE FT )@@G@@1 @]@@@@COLUMN 2 @B@@@@ THIS RUNSTREAM IS RUN ON A MONTHLY BASIS.FU )@@G@@@[@@@@EJECT @^@@@@3RUNSTREAM FLOWCHART @[@@@@EJECT @]@@@@3RUNSHEET FV )@@G@@@B@@@@SUBHDG,C TDH DATA PROCESSING RUNSHEET @[@@@@EJECT @F@@@@ RUNIDFW )@@G@@: H15513 SCHEDULER:.......... DATE:.......... @]@@@@SPACE FX )@@G@@1 @C@@@@ RUN TITLE: MONTHLY JOB ACCOUNTING, PART 4 @^@@@@ FY )@@G@@FREQUENCY: MONTHLY@ @@@@ PRIOR RUNID: H15512 @ @@@@ FOLLOWFZ )@@G@@ING RUNID: H15515 @ @@@@ PROCESS PERIOD:........ @]@@@@SPACE 2 GA )@@G@@@ @@@@ SPECIAL RUN INSTRUCTIONS: @]@@@@SPACE 6 @]@@@@ INPUTS: GB )@@G@@@]@@@@SPACE 2 @ @@@@ SGS CARD DESCRIPTIONS: @]@@@@SPACE 1 GC )@@G@@@C@@@@ P1) RECOVERY RESTART? XXX CHECKPOINT CPN @]@@@@SPACE 1 GD )@@G@@@F@@@@ XXX = 'YES' RUNSTREAM WILL BEGIN EXECUTION AT CHECKPOINTGE )@@G@@@ @@@@ CPN @]@@@@SPACE 1 @F@@@@ XXGF )@@G@@X = 'NO' RUNSTREAM WILL BEGIN EXECUTION AT INITIAL @B@@@@ GG )@@G@@ STARTING POINT. @]@@@@SPACE 1 @D@@@@ CPN N = GH )@@G@@'1' (FIELD REQUIRED IF XXX = 'YES').@]@@@@SPACE 2 @D@@@@ P2) PRGI )@@G@@OCESSING FOR: MONTH MM DAY DD YEAR YY @]@@@@SPACE 1 @F@@@@ GJ )@@G@@ MM = MONTH FOR WHICH ACCOUNTING APPLIES. MM = '01' - @^@@@@ GK )@@G@@ '12'. @]@@@@SPACE 1 @A@@@@ DD = LAST DAY OF MONGL )@@G@@TH MM.@]@@@@SPACE 1 @F@@@@ YY = YEAR FOR WHICH MONTH MM APPGM )@@G@@LIES. YY = '77' - '98'. @]@@@@SPACE 2 @A@@@@ P3) ACCOUNTING INPGN )@@G@@UT IS: XXX @]@@@@SPACE 1 @E@@@@ XXX = 'CURRENT' SPECIFIESGO )@@G@@ THAT LATEST CATALOGUED @E@@@@ (CURRENT) FILESGP )@@G@@ WILL BE USED. @]@@@@SPACE 1 @G@@@@ XXX = 'NONCURRENT' GQ )@@G@@SPECIFIES THAT NON-CURRENT FILES WILL @B@@@@ GR )@@G@@ BE USED. @]@@@@SPACE 2 @B@@@@ P4) NO OF COPIES OF COSTGS )@@G@@-CAT-RPT: N @]@@@@SPACE 1 @^@@@@ N = '1' - '9'.@]@@@@SPACE GT )@@G@@2 @B@@@@ P5) NO OF COPIES OF EXP-BUD-RPT: N @]@@@@SPACE 1 GU )@@G@@@^@@@@ N = '1' - '9'.@]@@@@SPACE 2 @^@@@@ TAPE INPUT FGV )@@G@@ILES: @]@@@@SPACE 1 @D@@@@ QUALIFIER*FILENAME: H155-BU*MTHGW )@@G@@-ACNT-SUM @B@@@@ LABELED/UNLABELED: LABELED @A@@@@ GX )@@G@@ CATALOGUED YES/NO: YES @B@@@@ PROGRAM NUMBER: H155104GY )@@G@@0 @ @@@@ F-CYCLE:...... @A@@@@ REEL NUMBERGZ )@@G@@(S):........@ @@@@ VOLUME:....... @]@@@@SPACE 1 @D@@@@HA )@@G@@ QUALIFIER*FILENAME: HEALTH*TABLEDISC-JA @B@@@@ HB )@@G@@ LABELED/UNLABELED: LABELED @A@@@@ CATALOGUED YES/NO: YES HC )@@G@@@B@@@@ PROGRAM NUMBER: H1551040 @ @@@@ F-CYCHD )@@G@@LE:...... @A@@@@ REEL NUMBER(S):........@ @@@@ HE )@@G@@ VOLUME:........ @]@@@@SPACE 2 @A@@@@ MASS STORAGE INPUT FILESHF )@@G@@: @]@@@@SPACE 1 @C@@@@ QUALIFIER*FILENAME: H150*SCS-SUHG )@@G@@MMARY @ @@@@ F-CYCLE:...... @ @@@@ VOLUME:....HH )@@G@@.... @]@@@@SPACE 1 @D@@@@ QUALIFIER*FILENAME: H155-JA-YYMHI )@@G@@M*DE-FILE @ @@@@ F-CYCLE:...... @ @@@@ VOLUMHJ )@@G@@E:........ @]@@@@SPACE 2 @C@@@@ MASS STORAGE INPUT FILES (CARDHK )@@G@@-IMAGE): @]@@@@SPACE 1 @E@@@@ QUALIFIER*FILENAME: H155-HL )@@G@@JA-YYMM*SALRY-EQUIP @ @@@@ F-CYCLE:...... @ @@@@ HM )@@G@@ VOLUME:....... @]@@@@SPACE 1 @D@@@@ QUALIFIER*FILHN )@@G@@ENAME: H155-JA-YYMM*KP-TIME @ @@@@ F-CYCLE:...... @ @@@@HO )@@G@@ VOLUME:....... @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@HP )@@G@@SPACE 2 @A@@@@ MASS STORAGE OUTPUT FILES: @]@@@@SPACE 1 HQ )@@G@@@C@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*CTCF@ @@@@ HR )@@G@@ F-CYCLE:...... @ @@@@ VOLUME:........ @]@@@@SPACE 2 HS )@@G@@@^@@@@ PRINTED OUTPUT: @]@@@@SPACE 1 @A@@@@ TITLE: HT )@@G@@*COST-CAT-RPT @B@@@@ PROGRAM NUMBER: H1551040 @A@@@@HU )@@G@@ TYPE FORMS: 1PARTW @ @@@@ # OF COPIES: 1 HV )@@G@@@C@@@@ PREPARATION INSTRUCTIONS: NONE @B@@@@ HW )@@G@@ DISPOSITION: TONY SCHNEIDER @A@@@@ ESTIMATED # OF PAGES: 1HX )@@G@@@]@@@@SPACE 1 @ @@@@ TITLE: *EXP-BUD-RPT@B@@@@ HY )@@G@@ PROGRAM NUMBER: H1551050 @A@@@@ TYPE FORMS: 1PARTW HZ )@@G@@@ @@@@ # OF COPIES: 1 @C@@@@ PREPARATION INSTRIA )@@G@@UCTIONS: NONE @B@@@@ DISPOSITION: TONY SCHNEIDER @A@@@@IB )@@G@@ ESTIMATED # OF PAGES: 2@]@@@@SUBHDG,N @[@@@@EJECT @]@@@@IC )@@G@@2H15514 @^@@@@3RUNSTREAM NARRATIVE @]@@@@ PURPOSE: @]@@@@SPACE ID )@@G@@1 @F@@@@ THIS RUNSTREAM RESTORES ALL THE MONTHLY ACCOUNTING FILES FOIE )@@G@@R @E@@@@ MONTH/YEAR MMYY, WHICH WERE PREVIOUSLY SAVED BY H15516. IF )@@G@@@]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 @F@@@@ THE @SECUREIG )@@G@@ PROCESSOR IS DIRECTED TO DO A 'LOAD QUALIFIER H155-JA@^@@@@ YYMM FROM IIH )@@G@@BACKUP'. @]@@@@SPACE 2 @]@@@@ FREQUENCY: @]@@@@SPACE 1 @]@@@@II )@@G@@ AS NEEDED. @]@@@@SPACE 2 @^@@@@ RESTART PROCEDURE: @]@@@@SPACE IJ )@@G@@1 @ @@@@ RESTART FROM THE BEGINNING. @[@@@@EJECT @^@@@@3RUNSTREAM FIK )@@G@@LOWCHART @[@@@@EJECT @]@@@@3RUNSHEET @B@@@@SUBHDG,C TDH DATA PROCESIL )@@G@@SING RUNSHEET @[@@@@EJECT @F@@@@ RUNID: H15514 SCHEDULER:....IM )@@G@@....... DATE:..........@]@@@@SPACE 1 @E@@@@ RUN TITLE: RIN )@@G@@ESTORE NON-CURENT JOB ACCOUNTING FILES @ @@@@ FREQUENCY: AS REQUIO )@@G@@IRED @^@@@@ PRIOR RUNID: NONE @B@@@@ FOLLOWING RUNID: AS PER IP )@@G@@ANALYST @A@@@@ PROCESS PERIOD:.......... @]@@@@SPACE 2 IQ )@@G@@@ @@@@ SPECIAL RUN INSTRUCTIONS: @]@@@@SPACE 6 @]@@@@ INPUTS: IR )@@G@@@]@@@@SPACE 2 @ @@@@ SGS CARD DESCRIPTIONS: @]@@@@SPACE 1 IS )@@G@@@G@@@@ P1) ACCOUNTING FILES TO BE RESTORED ARE FOR: MONTH MM YEAR YIT )@@G@@Y @]@@@@SPACE 1 @F@@@@ MM = MONTH TO WHICH ACCOUNTING DIU )@@G@@ATA APPLIES. MM = '01' -@^@@@@ '12'. @]@@@@SPACE 1 IV )@@G@@@F@@@@ YY = YEAR TO WHICH MONTH MM APPLIES. YY = '77' - '98' IW )@@G@@@]@@@@SPACE 2 @^@@@@ TAPE INPUT FILES: @]@@@@SPACE 1 @D@@@@IX )@@G@@ QUALIFIER*FILENAME: H155-JA-YYMM*IBACKUP @B@@@@ IY )@@G@@ LABELED/UNLABELED: LABELED @A@@@@ CATALOGUED YES/NO: NO IZ )@@G@@@ @@@@ F-CYCLE:...... @A@@@@ REEL NUMBER(S):..JA )@@G@@......@ @@@@ VOLUME:........ @]@@@@SPACE 2 @C@@@@ JB )@@G@@MASS STORAGE INPUT FILES (CARD IMAGE): @]@@@@SPACE 1 @D@@@@ JC )@@G@@ QUALIFIER*FILENAME: H155*ABS.JA-BU-TABLE @ @@@@ F-CYCJD )@@G@@LE:...... @ @@@@ VOLUME:........ @]@@@@SPACE 2 @]@@@@JE )@@G@@ OUTPUTS: @]@@@@SPACE 2 @F@@@@ MASS STORAGE OUTPUT FILES (FILJF )@@G@@ES RESTORED TO CATALOGUED @#@@@@ STATUS): @]@@@@SPACE 1 JG )@@G@@@E@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*DE-STAT-SRTD @ @@@@JH )@@G@@ F-CYCLE:........ @ @@@@ VOLUME:........ @]@@@@JI )@@G@@SPACE 1 @D@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*DE-FILE JJ )@@G@@@ @@@@ F-CYCLE:........ @ @@@@ VOLUME:......... JK )@@G@@@]@@@@SPACE 1 @E@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*MTH-JL )@@G@@ACNT-SUM @ @@@@ F-CYCLE:........ @ @@@@ VOLUMJM )@@G@@E:......... @]@@@@SPACE 1 @D@@@@ QUALIFIER*FILENAME: H155-JN )@@G@@JA-YYMM*TABLE-JA @ @@@@ F-CYCLE:........ @ @@@@ JO )@@G@@ VOLUME:......... @]@@@@SPACE 1 @C@@@@ QUALIFIER*FILENAME:JP )@@G@@ H155-JA-YYMM*CTCF@ @@@@ F-CYCLE:........ @ @@@@ JQ )@@G@@ VOLUME:........ @]@@@@SPACE 1 @E@@@@ QUALIFIER*FILENAME:JR )@@G@@ H155-JA-YYMM*SALRY-EQUIP @ @@@@ F-CYCLE:........ @ @@@@JS )@@G@@ VOLUME:........ @]@@@@SPACE 1 @E@@@@ QUALIFIJT )@@G@@ER*FILENAME: H155-JA-YYMM*BILL-ADJ-CDS @ @@@@ F-CYCLE:...JU )@@G@@..... @ @@@@ VOLUME:........ @]@@@@SPACE 1 @D@@@@ JV )@@G@@ QUALIFIER*FILENAME: H155-JA-YYMM*KP-TIME @ @@@@ F-CYCJW )@@G@@LE:........ @ @@@@ VOLUME:........ @]@@@@SPACE 1 @D@@@@JX )@@G@@ QUALIFIER*FILENAME: H155-JA-YYMM*KP-CARDS @ @@@@ JY )@@G@@ F-CYCLE:........ @ @@@@ VOLUME:........ @]@@@@SPACE 1 JZ )@@G@@@E@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*SCS-SUMMARY @ @@@@KA )@@G@@ F-CYCLE:........ @ @@@@ VOLUME:........ @]@@@@KB )@@G@@SPACE 1 @D@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*YTD-ACNT KC )@@G@@@ @@@@ F-CYCLE:........ @ @@@@ VOLUME:........ KD )@@G@@@]@@@@SPACE 1 @E@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*YTD-KE )@@G@@ACNT-SUM @ @@@@ F-CYCLE:........ @ @@@@ VOLUMKF )@@G@@E:........ @]@@@@SPACE 1 @E@@@@ QUALIFIER*FILENAME: H155-KG )@@G@@JA-YYMM*MTH-ACNT-SUM @ @@@@ F-CYCLE:........ @ @@@@ KH )@@G@@ VOLUME:........ @]@@@@SPACE 2 @^@@@@ PRINTED OUTPUT: KI )@@G@@@]@@@@SPACE 1 @#@@@@ NONE @]@@@@SUBHDG,N @[@@@@EJECT KJ )@@G@@@]@@@@2H15515 @^@@@@3RUNSTREAM NARRATIVE @]@@@@ PURPOSE: @]@@@@KK )@@G@@SPACE 1 @E@@@@ THIS RUNSTREAM UPDATES THE YEAR-TO-DATE ACCOUNTING FIKL )@@G@@LE AND@F@@@@ PRODUCES COST SUMMARY REPORTS FOR THE MONTH AND YEAR-TO-DATKM )@@G@@E, AS @F@@@@ WELL AS PRODUCING DATA PROCESSING SERVICES AND ACTIVITY REPKN )@@G@@ORTS. @]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 @]@@@@COLUMNKO )@@G@@ 5 @F@@@@ 1. H1551060 THIS PROGRAM USES THE COST TOTALS BY CATEGORY FKP )@@G@@ILE, @F@@@@ KEYPUNCH AND INFOREX TIME FILES, KEYPUNCH CARD COUNT FILKQ )@@G@@E, @F@@@@ ANALYSIS AND PROGRAMMING TIME FILES (SCS), AND THE MONTHKR )@@G@@LY @F@@@@ ACCOUNTING FILE TO UPDATE THE YEAR-TO-DATE ACCOUNTING TAKS )@@G@@PE @F@@@@ FILE, CREATE A MONTHLY COST SUMMARY BY ACCOUNT FILE, WHIKT )@@G@@CH IS @F@@@@ BACKED UP TO TAPE AND PRODUCE A COMPUTER UTILIZATION RECKU )@@G@@AP @]@@@@ REPORT. @]@@@@SPACE 1 @D@@@@ 2. H1551070 THE MONTHLYKV )@@G@@ COST SUMMARY BY ACCOUNT FILE,@G@@@@ TABLE-DISC-JA, AND THE BILLING AKW )@@G@@DJUSTMENT CARD FILE ARE USED BY @G@@@@ THIS PROGRAM TO UPDATE THEKX )@@G@@ YEAR-TO-DATE COST SUMMARY BY ACCOUNT @G@@@@ FILE, WHICH IS BACKEKY )@@G@@D UP TO TAPE, AND PRODUCE TWO REPORTS: DATA @E@@@@ PROCESSING SERKZ )@@G@@VICES SUMMARY LISTING AND DATA PROCESSING @D@@@@ SERVICES BILLING MEMLA )@@G@@OS FOR APPROPRIATE ACCOUNTS. @]@@@@SPACE 1 @F@@@@ 3. H1551080 THE YLB )@@G@@EAR-TO-DATE COST SUMMARY BY ACCOUNT FILE, THE @F@@@@ COST TOTALS BYLC )@@G@@ CATEGORY FILE, AND TABLE-DISC-JA ARE USED BY @F@@@@ THIS PROGRAM TLD )@@G@@O PRODUCE TWO REPORTS: DATA PROCESSING ACTIVITY @B@@@@ SUMMARY, MONTHLE )@@G@@LY AND YEAR-TO-DATE. @]@@@@SPACE 2 @]@@@@ FREQUENCY: @]@@@@SPACE LF )@@G@@1 @]@@@@COLUMN 2 @B@@@@ THIS RUNSTREAM IS RUN ON A MONTHLY BASIS.LG )@@G@@@]@@@@SPACE 2 @^@@@@ RESTART PROCEDURE: @]@@@@SPACE 1 @B@@@@LH )@@G@@ SPECIFY THE CHECKPOINT (TO SSG) AND RUN. @[@@@@EJECT @^@@@@3RUNSTREAM FLI )@@G@@LOWCHART @[@@@@EJECT @]@@@@3RUNSHEET @B@@@@SUBHDG,C TDH DATA PROCESLJ )@@G@@SING RUNSHEET @[@@@@EJECT @F@@@@ RUNID: H15515 SCHEDULER:...LK )@@G@@....... DATE:.......... @]@@@@SPACE 1 @C@@@@ RUN TITLE: MLL )@@G@@ONTHLY JOB ACCOUNTING, PART 5 @^@@@@ FREQUENCY: MONTHLY@ @@@@ LM )@@G@@PRIOR RUNID: H15513 @ @@@@ FOLLOWING RUNID: H15516 @A@@@@ LN )@@G@@PROCESS PERIOD:.......... @]@@@@SPACE 2 @ @@@@ SPECIAL RUN INSTRLO )@@G@@UCTIONS: @]@@@@SPACE 6 @]@@@@ INPUTS: @]@@@@SPACE 2 @ @@@@LP )@@G@@ SGS CARD DESCRIPTIONS: @]@@@@SPACE 1 @C@@@@ P1) RECOVERLQ )@@G@@Y RESTART? XXX CHECKPOINT CPN @]@@@@SPACE 1 @E@@@@ XXX = 'LR )@@G@@YES' RUNSTREAM WILL BEGIN EXECUTION AT CPN@]@@@@SPACE 1 @F@@@@ LS )@@G@@ XXX = 'NO' RUNSTREAM WILL BEGIN EXECUTION AT INITIAL @B@@@@ LT )@@G@@ STARTING POINT @]@@@@SPACE 1 @F@@@@ CLU )@@G@@PN N = '1' - '2' (FIELD REQUIRED IF XXX = 'YES'). @]@@@@SPACE 2 LV )@@G@@@C@@@@ P2) PROCESSING FOR: MONTH MM YEAR YY @]@@@@SPACE 1 LW )@@G@@@F@@@@ MM = MONTH FOR WHICH ACCOUNTING APPLIES. MM = '01' - LX )@@G@@@^@@@@ '12'. @]@@@@SPACE 1 @ @@@@ YY = '7LY )@@G@@7' - '98' @]@@@@SPACE 2 @A@@@@ P3) ACCOUNTING INPUT IS: XXX LZ )@@G@@@]@@@@SPACE 1 @F@@@@ XXX = 'CURRENT' SPECIFIES THAT LATMA )@@G@@EST CATALOGUED @E@@@@ (CURRENT) FILES WIMB )@@G@@LL BE USED. @]@@@@SPACE 1 @F@@@@ XXX = 'NONCURRENT' SPECIFMC )@@G@@IES THAT NON-CURRENT FILES @C@@@@ WILL BMD )@@G@@E USED. @]@@@@SPACE 1 @A@@@@ (NORMALLY 'CURRENT'). ME )@@G@@@]@@@@SPACE 2 @B@@@@ P4) SELECT OLD-YTD-ACNT FILE? XXX @]@@@@MF )@@G@@SPACE 1 @F@@@@ XXX = 'YES' SPECIFIES *YTD-ACNT FILE WILL MG )@@G@@BE INPUT. @]@@@@SPACE 1 @E@@@@ XXX = 'NO' *YTD-ACNT FIMH )@@G@@LE WILL NOT BE INPUT. @]@@@@SPACE 1 @ @@@@ (NORMALLY 'YEMI )@@G@@S'). @]@@@@SPACE 2 @E@@@@ P4A) OLD-YTD-ACNT FILE IS DATED: MONMJ )@@G@@TH MM YEAR YY @]@@@@SPACE 1 @F@@@@ MM = MONTH FOR WHICMK )@@G@@H FILE APPLIES. MM = '01' - '12'. @]@@@@SPACE 1 @F@@@@ YML )@@G@@Y = YEAR FOR WHICH MONTH MM APPLIES. YY = '77' - '98'.@]@@@@SPACE 1 MM )@@G@@@A@@@@ (REQUIRED IF P4 = 'YES').@]@@@@SPACE 2 @B@@@@ MN )@@G@@P5) NO OF COPIES OF UTILIZ-RPT: N @]@@@@SPACE 1 @ @@@@ NMO )@@G@@ = '1' - '9'. @]@@@@SPACE 2 @C@@@@ P6) SELECT OLD-YTD-SUM MP )@@G@@BY ACCNT FILE? XXX@]@@@@SPACE 1 @G@@@@ XXX = 'YES' SPECIFMQ )@@G@@IES *YTD-ACNT-SUM FILE WILL BE INPUT. @]@@@@SPACE 1 @F@@@@ MR )@@G@@ XXX = 'NO' SPECIFIES *YTD-ACNT-SUM WILL NOT BE INPUT.@]@@@@SPACE MS )@@G@@1 @ @@@@ (NORMALLY 'YES'). @]@@@@SPACE 2 @E@@@@ MT )@@G@@P6A) OLD-YTD-SUM BY ACCNT IS DATED: MONTH MM YEAR YY @]@@@@SPACE 1 MU )@@G@@@F@@@@ MM = MONTH FOR WHICH FILE APPLIES. MM = '01' - '12'. MV )@@G@@@]@@@@SPACE 1 @F@@@@ YY = YEAR FOR WHICH MONTH MM APPLIES.MW )@@G@@ YY = '77' - '98'.@]@@@@SPACE 1 @A@@@@ (REQUIRED IF P6 = 'MX )@@G@@YES').@]@@@@SPACE 2 @C@@@@ P7) NO OF COPIES OF DP-SRVS-SUM RPTMY )@@G@@: N @]@@@@SPACE 1 @ @@@@ N = '1' - '9'. @]@@@@SPACE MZ )@@G@@2 @C@@@@ P8) NO OF COPIES OF DP-SRVS-BILL RPT: N @]@@@@SPACE NA )@@G@@1 @ @@@@ N = '1' - '9'. @]@@@@SPACE 2 @B@@@@ NB )@@G@@P9) NO OF COPIES OF MTH-DP-RPT: N @]@@@@SPACE 1 @ @@@@ NNC )@@G@@ = '1' - '9'. @]@@@@SPACE 2 @B@@@@ P10) NO OF COPIES OF YTDND )@@G@@-DP-RPT: N @]@@@@SPACE 1 @ @@@@ N = '1' - '9'. @]@@@@NE )@@G@@SPACE 2 @B@@@@ P11) NO OF COPIES OF DP-LCH-LIST: N @]@@@@SPACE NF )@@G@@1 @ @@@@ N = '1' - '9'. @]@@@@SPACE 2 @^@@@@ NG )@@G@@TAPE INPUT FILES: @]@@@@SPACE 1 @D@@@@ QUALIFIER*FILENAME:NH )@@G@@ HEALTH*TABLEDISC-JA @B@@@@ LABELED/UNLABELED: LABELED NI )@@G@@@B@@@@ PROGRAM NUMBER: H1551060 @A@@@@ CATALNJ )@@G@@OGUED YES/NO: YES @ @@@@ F-CYCLE:...... @B@@@@ NK )@@G@@ REEL NUMBER(S):.......... @ @@@@ VOLUME:........ @]@@@@NL )@@G@@SPACE 2 @A@@@@ MASS STORAGE INPUT FILES: @]@@@@SPACE 1 NM )@@G@@@C@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*CTCF@ @@@@ NN )@@G@@ F-CYCLE:...... @ @@@@ VOLUME:........ @]@@@@SPACE 1 NO )@@G@@@D@@@@ QUALIFIER*FILENAME: H155-JA-YYM*DE-FILE @ @@@@ NP )@@G@@ F-CYCLE:...... @ @@@@ VOLUME:........ @]@@@@SPACE NQ )@@G@@1 @E@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*MTH-ACNT-SUM NR )@@G@@@ @@@@ F-CYCLE:...... @ @@@@ VOLUME:........ NS )@@G@@@]@@@@SPACE 1 @D@@@@ QUALIFER*FILENAME: H155-JA-YYM*YTD-ACNT )@@G@@NT @ @@@@ F-CYCLE:...... @ @@@@ VOLUME:....NU )@@G@@.... @]@@@@SPACE 1 @C@@@@ QUALIFIER*FILENAME: H150*SCS-SUNV )@@G@@MMARY @]@@@@SPACE 1 @D@@@@ QUALIFER*FILENAME: H155-JA-YYM*NW )@@G@@YTD-ACNT-SUM@ @@@@ F-CYCLE:...... @ @@@@ VOLUMNX )@@G@@E:........ @]@@@@SPACE 1 @D@@@@ QUALIFER*FILENAME: H155-JNY )@@G@@A-YYM*KP-CARDS @ @@@@ F-CYCLE:...... @ @@@@ NZ )@@G@@ VOLUME:........ @]@@@@SPACE 1 @E@@@@ QUALIFER*FILENAME: OA )@@G@@H155-JA-YYMM*BILL-ADJ-CDS @ @@@@ F-CYCLE:...... @ @@@@OB )@@G@@ VOLUME:........ @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@OC )@@G@@SPACE 2 @A@@@@ MASS STORAGE OUTPUT FILES: @]@@@@SPACE 1 OD )@@G@@@D@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*YTD-ACNT @ @@@@ OE )@@G@@ F-CYCLE:...... @ @@@@ VOLUME:........ @]@@@@SPACE OF )@@G@@1 @E@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*MTH-COST-SUM OG )@@G@@@ @@@@ F-CYCLE:...... @ @@@@ VOLUME:........ OH )@@G@@@]@@@@SPACE 1 @E@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*YTD-OI )@@G@@ACNT-SUM @ @@@@ F-CYCLE:...... @ @@@@ VOLUMOJ )@@G@@E:........ @]@@@@SPACE 2 @^@@@@ PRINTED OUTPUT: @]@@@@SPACE OK )@@G@@1 @ @@@@ TITLE: *UTILIZ-RPT @B@@@@ PROGRAM NUMOL )@@G@@BER: H1551060 @A@@@@ TYPE FORMS: 1PARTW @ @@@@ OM )@@G@@ # OF COPIES: 1 @C@@@@ PREPARATION INSTRUCTIONS: NONON )@@G@@E @B@@@@ DISPOSITION: TONY SCHNEIDER @A@@@@ OO )@@G@@ ESTIMATED # OF PAGES: 2@]@@@@SPACE 1 @ @@@@ TITLE: *DP-SROP )@@G@@VS-SUM@B@@@@ PROGRAM NUMBER: H1551070 @A@@@@ OQ )@@G@@ TYPE FORMS: 1PARTW @ @@@@ # OF COPIES: 1 @C@@@@ OR )@@G@@ PREPARATION INSTRUCTIONS: NONE @B@@@@ DISPOSITIONOS )@@G@@: TONY SCHNEIDER @B@@@@ ESTIMATED # OF PAGES: 800 @]@@@@OT )@@G@@SPACE 1 @A@@@@ TITLE: *DP-SRVS-BILL @B@@@@ OU )@@G@@ PROGRAM NUMBER: H1551070 @A@@@@ TYPE FORMS: 1PARTW OV )@@G@@@ @@@@ # OF COPIES: 1 @C@@@@ PREPARATIONS INSTOW )@@G@@RUCTIONS: NONE @B@@@@ DISPOSITION: TONY SCHNEIDER @B@@@@OX )@@G@@ ESTIMATED # OF PAGES: 50 @]@@@@SPACE 1 @ @@@@ OY )@@G@@ TITLE: *MTH-DP-RPT @B@@@@ PROGRAM NUMBER: H1551080 OZ )@@G@@@A@@@@ TYPE FORMS: 1PARTW @ @@@@ # OF COPIESPA )@@G@@: 1 @C@@@@ PREPARATION INSTRUCTIONS: NONE @B@@@@ PB )@@G@@ DISPOSITION: TONY SCHNEIDER @B@@@@ ESTIMATED # OF PAPC )@@G@@GES: 20 @]@@@@SPACE 1 @ @@@@ TITLE: *YTD-DP-RPT @B@@@@PD )@@G@@ PROGRAM NUMBER: H1551080 @A@@@@ TYPE FORMS:PE )@@G@@ 1PARTW @ @@@@ # OF COPIES: 1 @C@@@@ PREPAPF )@@G@@RATION INSTRUCTIONS: NONE @B@@@@ DISPOSITION: TONY SCHNEPG )@@G@@IDER @B@@@@ ESTIMATED # OF PAGES: 20 @]@@@@SPACE 1 PH )@@G@@@ @@@@ TITLE* *DP-LCH-LIST@B@@@@ PROGRAM NUMBER: HPI )@@G@@1551090 @A@@@@ TYPE FORMS: 1PARTW @ @@@@ PJ )@@G@@ # OF COPIES: 1 @C@@@@ PREPARATION INSTRUCTIONS: NONE PK )@@G@@@B@@@@ DISPOSITION: TONY SCHNEIDER @A@@@@ ESTIMPL )@@G@@ATED # OF PAGES: 5@]@@@@SUBHDG,N @[@@@@EJECT @]@@@@2H15516 @^@@@@PM )@@G@@3RUNSTREAM NARRATIVE @]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@ THIS PN )@@G@@RUNSTREAM SAVES ALL THE MONTHLY ACCOUNTING FILES FOR THE @#@@@@ MONTHPO )@@G@@/YEAR: MMYY.@]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 @F@@@@PP )@@G@@ THE @SECURE PROCESSOR IS DIRECTED TO DO A 'SAVE ALL QUALIFIER @#@@@@PQ )@@G@@ H155-JA-YYMM'. @]@@@@SPACE 2 @]@@@@ FREQUENCY: @]@@@@SPACE 1 PR )@@G@@@F@@@@ H15516 IS TO BE RUN ON A MONTHLY BASIS, AFTER H15512, H15513, ANDPS )@@G@@@B@@@@ H15515 HAVE BEEN SUCCESSFULLY COMPLETED. @]@@@@SPACE 2 @^@@@@PT )@@G@@ RESTART PROCEDURE: @]@@@@SPACE 1 @ @@@@ RESTART FROM THE BEGINNPU )@@G@@ING. @[@@@@EJECT @^@@@@3RUNSTREAM FLOWCHART @[@@@@EJECT @]@@@@3RUNSHPV )@@G@@EET @B@@@@SUBHDG,C TDH DATA PROCESSING RUNSHEET @[@@@@EJECT @F@@@@PW )@@G@@ RUNID: H15516 SCHEDULER:......... DATE:........@]@@@@PX )@@G@@SPACE 1 @C@@@@ RUN TITLE: MONTHLY JOB ACCOUNTING, PART 6 @^@@@@PY )@@G@@ FREQUENCY: MONTHLY@ @@@@ PRIOR RUNID: H15515 @ @@@@ PZ )@@G@@FOLLOWING RUNID: NONE @ @@@@ PROCESS PERIOD:........ @]@@@@SPACE QA )@@G@@2 @ @@@@ SPECIAL RUN INSTRUCTIONS: @]@@@@SPACE 1 @D@@@@ QB )@@G@@INFORM ANALYST OF OBACKUP TAPE REEL NUMBER(S). @]@@@@SPACE 2 @]@@@@QC )@@G@@ INPUTS: @]@@@@SPACE 2 @ @@@@ SGS CARD DESCRIPTIONS: @]@@@@QD )@@G@@SPACE 1 @F@@@@ P1) ACCOUNTING FILES TO BE BACKED UP ARE FOR: MOQE )@@G@@NTH MM YEAR @]@@@@ YY@]@@@@SPACE 1 @F@@@@ MM = MONQF )@@G@@TH FOR WHICH ACCOUNTING APPLIES. MM = '01' - @^@@@@ '12QG )@@G@@'. @]@@@@SPACE 1 @G@@@@ YY = YEAR FOR WHICH ACCOUNTING AQH )@@G@@PPLIES. YY = '77' - '98'. @]@@@@SPACE 2 @F@@@@ MASS STORAGEQI )@@G@@ INPUT FILES (FILES TO BE BACKED UP TO TAPE): @]@@@@SPACE 1 @E@@@@QJ )@@G@@ QUALIFER*FILENAME: H155-JA--YYM*DE-STAT-SRTD @ @@@@ QK )@@G@@ F-CYCLE:...... @ @@@@ VOLUME:........ @]@@@@SPACE QL )@@G@@1 @D@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*DE-FILE @ @@@@QM )@@G@@ F-CYCLE:...... @ @@@@ VOLUME:........ @]@@@@QN )@@G@@SPACE 1 @E@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*MTH-ACNT-SQO )@@G@@UM @ @@@@ F-CYCLE:...... @ @@@@ VOLUME:....QP )@@G@@.... @]@@@@SPACE 1 @D@@@@ QUALIFIER*FILENAME: H155-JA-YYMQQ )@@G@@M*TABLE-JA @ @@@@ F-CYCLE:...... @ @@@@ VOLUMQR )@@G@@E:........ @]@@@@SPACE 1 @C@@@@ QUALIFIER*FILENAME: H155-QS )@@G@@JA-YYMM*CTCF@ @@@@ F-CYCLE:...... @ @@@@ VOLUMQT )@@G@@E:........ @]@@@@SPACE 1 @E@@@@ QUALIFIER*FILENAME: H155-QU )@@G@@JA-YYMM*SALRY-EQUIP @ @@@@ F-CYCLE:...... @ @@@@ QV )@@G@@ VOLUME:........ @]@@@@SPACE 1 @E@@@@ QUALIFIER*FILQW )@@G@@ENAME: H155-JA-YYMM*BILL-ADJ-CDS @ @@@@ F-CYCLE:...... QX )@@G@@@ @@@@ VOLUME:........ @]@@@@SPACE 1 @D@@@@ QQY )@@G@@UALIFIER*FILENAME: H155-JA-YYMM*KP-TIME @ @@@@ F-CYCLE:...QZ )@@G@@... @ @@@@ VOLUME:........ @]@@@@SPACE 1 @D@@@@ RA )@@G@@ QUALIFIER*FILENAME: H155-JA-YYMM*KP-CARDS @ @@@@ F-CYCRB )@@G@@LE:...... @ @@@@ VOLUME:........ @]@@@@SPACE 1 @E@@@@RC )@@G@@ QUALIFIER*FILENAME: H155-JA-YYMM*SCS-SUMMARY @ @@@@ RD )@@G@@ F-CYCLE:...... @ @@@@ VOLUME:........ @]@@@@SPACE RE )@@G@@1 @D@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*YTD-ACNT @ @@@@RF )@@G@@ F-CYCLE:...... @ @@@@ VOLUME:........ @]@@@@RG )@@G@@SPACE 1 @E@@@@ QUALIFIER*FILENAME: H155-JA-YYMM*YTD-ACNT-SRH )@@G@@UM @ @@@@ F-CYCLE:...... @ @@@@ VOLUME:....RI )@@G@@.... @]@@@@SPACE 1 @E@@@@ QUALIFER*FILENAME: H155-JA-YYMMRJ )@@G@@*MTH-COST-SUM @ @@@@ F-CYCLE:...... @ @@@@ RK )@@G@@ VOLUME:........ @]@@@@SPACE 2 @#@@@@ TAPE INPUTS:@F@@@@ RL )@@G@@ QUALIFER*FILENAME: H155-JOBACTT*IBACKUP (OPTIONAL) @B@@@@ RM )@@G@@ LABELED/UNLABELED: LABELED @A@@@@ PROGRAM NUMBER: @RN )@@G@@SECURE@A@@@@ CATALOGUED YES/NO: NO @ @@@@ F-CYCRO )@@G@@LE:...... @B@@@@ REEL NUMBER(S):.......... @ @@@@ RP )@@G@@ VOLUME:........ @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE RQ )@@G@@2 @ @@@@ TAPE OUTPUT FILES: @]@@@@SPACE 1 @D@@@@ RR )@@G@@ QUALIFIER*FILENAME: H155-JOBACTT*OBACKUP @B@@@@ LABELRS )@@G@@ED/UNLABELED: LABELED @A@@@@ PROGRAM NUMBER: @SECURE@A@@@@RT )@@G@@ CATALOGUED YES/NO: NO @ @@@@ F-CYCLE:...... RU )@@G@@@A@@@@ RETENTION: 400 DAYS @ @@@@ DISPOSITIONRV )@@G@@: SAVE@B@@@@ REEL NUMBER(S):.......... @ @@@@ RW )@@G@@ VOLUME:...... @]@@@@SPACE 2 @^@@@@ PRINTED OUTPUT: @]@@@@RX )@@G@@SPACE 1 @#@@@@ NONE @]@@@@SUBHDG,N @^@@@@1PROGRAM INFRY )@@G@@ORMATION @]@@@@2H1550020 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: RZ )@@G@@@]@@@@SPACE 1 @F@@@@ THIS PROGRAM SELECTS THE SYSTEM LOG RECORDS NEESA )@@G@@DED FOR ACCOUNTING@G@@@@ AND SYSTEM STATUS FILE CREATION, AND SELECTS, RSB )@@G@@EFORMATS, AND SORTS @F@@@@ INTO ACCOUNT-NO, RUN-ID, DATE/TIME ORDER SC )@@G@@THE LOG RECORDS USED TO @D@@@@ GENERATE THE ACCOUNTING FILE RECORDS IN HSD )@@G@@1550030. @]@@@@SPACE 1 @F@@@@ TWO PROGRAMS ARE OPTIONALLY PRINTEDSE )@@G@@: A LISTING OF THE OPERATOR @F@@@@ ALLOWED RUNS, AND THE ACCOUNT-FILE SF )@@G@@REFERENCE REPORT WHICH DETAILS@D@@@@ ANY ACCESSES OF ONE ACCOUNT GROUP BSG )@@G@@Y ANOTHER GROUP. @]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 SH )@@G@@@F@@@@ THIS PROGRAM SELECTS THE LOG RECORDS NEEDED FOR ACCOUNTING AND SI )@@G@@@F@@@@ SYSTEM STATUS FILE CREATION USING THE DAILY LOG TAPE CREATED BY SJ )@@G@@@F@@@@ RECERR. THE SYSTEM STATUS FILE IS CREATED USING THE UNSOLICITED SK )@@G@@@F@@@@ KEYIN LOG ENTRY (TYPE 12) AND THE EXECUTIVE REQUEST LOG ENTRY SL )@@G@@@F@@@@ (TYPE 32). A SYNTAX CHECK IS PERFORMED ON THESE LOG ENTRIES TO SM )@@G@@@F@@@@ DETECT SUBSYSTEM/UNIT STATUS OR TO DETECT A MACHINE BOOT CON- SN )@@G@@@F@@@@ DITION. IN ADDITION, THE TIME STAMP OF EACH EXEC 8 LOG ENTRY IS SO )@@G@@@G@@@@ COMPARED WITH THE PREVIOUS EXEC 8 LOG ENTRY IN ORDER TO DETECT ANSP )@@G@@Y @F@@@@ TIME LAPSES THAT MIGHT OCCUR. WHEN A TIME LAPSE IS DETECTEDSQ )@@G@@, ALL @F@@@@ SUBSYSTEMS AND UNITS ARE FLAGGED DOWN FOR THE PERIOD OF TIMSR )@@G@@E OF @F@@@@ THE LAPSE, BUT THE RESULTING STATUS OF EACH SUBSYSTEM/UNIT SS )@@G@@IS UN-@F@@@@ CHANGED. WHEN A BOOT CONDITION IS DETECTED, THE SUBSYSTEM/UST )@@G@@NIT @F@@@@ STATUS CHANGES WILL BE MADE ACCORDING TO WHETHER THE BOOT ISU )@@G@@S FROM@#@@@@ TAPE OR DISC. @]@@@@SPACE 1 @G@@@@ EACH DAY THE PROGSV )@@G@@RAM WILL ALSO READ A COPY OF THE MASTER CONFIGUR- @F@@@@ ATION TABLESW )@@G@@ (MCT) FROM THE TYPE 32 LOG ENTRY. THIS TABLE WILL BE @F@@@@ WRITTEN INTSX )@@G@@O THE EQUIPMENT STATUS FILE EACH TIME H1550020 READS @G@@@@ THE APPROPRSY )@@G@@IATE TYPE 32 LOG SO THAT A PERMANENT RECORD OF THE SYS- @F@@@@ TEM CSZ )@@G@@ONFIGURATION FOR EACH BOOT WILL BE AVAILABLE FOR REPORT @^@@@@ GENERTA )@@G@@ATION PURPOSES. @]@@@@SPACE 1 @G@@@@ IMMEDIATELY FOLLOWING H155002TB )@@G@@0, GSM SELECTS, REFORMATS, SORTS INTO @F@@@@ ACCOUNT, RUNID, TIME-STTC )@@G@@AMP ORDER AND WRITES TO A SORTED INTERIM @E@@@@ FILE ALL LOG RECORDS WHTD )@@G@@ICH ARE TO BE USED TO GENERATE THE @F@@@@ ACCOUNTING FILE RECORDS. THE TE )@@G@@LIST OF SYSTEM LOG RECORD TYPES USED@ @@@@ FOR THIS PURPOSE FOLLOWS: TF )@@G@@@]@@@@SPACE 0 @F@@@@ LOG TYPE LOG DESCRIPTION TG )@@G@@ RUNID ASSOCIATION@E@@@@ 1 CONTROL STATEMENT LOG ENTRIES TH )@@G@@ USER @E@@@@ 2 FACILITY USAGE USTI )@@G@@ER @F@@@@ 3 CATALOGUED MASS STORAGE USER EXETJ )@@G@@C 8 @E@@@@ 4 PROGRAM TERMINATION USER TK )@@G@@@E@@@@ 5 RUN TERMINATION USER @F@@@@TL )@@G@@ 7 CONSOLE LOG ENTRY USER EXEC 8 @E@@@@TM )@@G@@ 9 RUN INITIATION USER @E@@@@ 10 TN )@@G@@ CONSOLE REPLY USER @E@@@@ 12 TO )@@G@@ UNSOLICITED CONSOLE KEYIN EXEC 8 @E@@@@ 14 SYTP )@@G@@MBIONT END OF PROCESS EXEC 8 @E@@@@ 15 SYMBIONTTQ )@@G@@ START OF PROCESS EXEC 8 @E@@@@ 17 RUN SUPPLEMENTTR )@@G@@ USER @E@@@@ 18 SYSTEM RECOVERY CLOSTS )@@G@@E OUT USER @]@@@@SPACE 0 @F@@@@ EACH LOG RECORD TO BE WTT )@@G@@RITTEN TO THE INTERIM ACCOUNTING FILE WILL@F@@@@ HAVE TWO ADDITIONAL FIETU )@@G@@LDS ADDED TO IT. ONE FIELD IS SIX CHARAC- @F@@@@ TERS IN LENGTH AND WILLTV )@@G@@ CONTAIN EITHER THE RUNID ASSOCIATED WITH @F@@@@ THE LOG ENTRY OR WILL HTW )@@G@@AVE A SYMBIONT DEVICE NAME ENTERED IN THAT@F@@@@ FIELD. THE OTHER FIELD TX )@@G@@IS 12 CHARACTERS LONG AND WILL HAVE EITHER@F@@@@ THE ACCOUNT NUMBER ASSOTY )@@G@@CIATED WITH THE LOG OR A BINARY VALUE @F@@@@ ENTERED. ANY EXEC 8-CHATZ )@@G@@INED LOG USED TO BUILD THE INTERIM ACCOUNT@G@@@@ FILE WILL BE SYNTAX CHEUA )@@G@@CKED TO DETECT AND SAVE THE ASSOCIATED RUN- @G@@@@ ID AND ACCOUNT IFUB )@@G@@ POSSIBLE. ALL TYPE 9,5,17,18, AND 14 LOG RECORDS @F@@@@ WILL BE RELUC )@@G@@EASED TO THE SORT TWICE; ONCE WITH THE ASSOCIATED @F@@@@ SYMBIONT DEUD )@@G@@VICE IN THE SPECIAL RUNID FIELD AND BINARY ZEROES IN @G@@@@ THE ACCOUNTUE )@@G@@ FIELD, AND ONCE WITH THE REAL RUNID AND ACCOUNT NUMBER @F@@@@ IN THUF )@@G@@E SPECIAL RUNID AND ACCOUNT FIELDS RESPECTIVELY. THE TYPE 1 @G@@@@ LOG RUG )@@G@@ECORDS MUST BE SYNTAX CHECKED FOR A CHANGE OF THE ACCOUNTABLE @G@@@@UH )@@G@@ ACCOUNT NUMBER WITHIN A RUN STREAM. WHEN IT OCCURS A NEW TYPE 9,5, UI )@@G@@@F@@@@ 17, OR 18 MUST BE CREATED TO REFLECT THE NEW ACCOUNT NUMBER. UJ )@@G@@@]@@@@SPACE 1 @C@@@@ THE CONSOLE ENTRIES WHICH MUST BE DETECTED ARE:UK )@@G@@@A@@@@ 1. ANY DISC PACK LOAD MESSAGES @^@@@@ 2. ANY X OR E KEYINSUL )@@G@@@B@@@@ 3. ANY SPECIAL FORMS MSG FOR PR1, PR3 @]@@@@SPACE 0 @F@@@@UM )@@G@@ THE ASSOCIATED RUNID FOR THE PACK LOAD MSG'S AND THE X AND E KEY-@F@@@@UN )@@G@@ INS CAN BE DETERMINED BY SYNTAX CHECKING THE LOG RECORD ITSELF, @F@@@@UO )@@G@@ BUT, TO PROPERLY PROCESS THE SPECIAL FORMS MESSAGE, THE PREVIOUS @F@@@@UP )@@G@@ TYPE 15 LOG RECORD FOR THE SYMBIONT DEVICE IN QUESTION MUST BE @F@@@@UQ )@@G@@ SAVED TO STORE IN THE SPECIAL FORMS RUNID AND ACCOUNT FIELDS. THE@G@@@@UR )@@G@@ TYPE 15 AND 14 ARE MATCHED AND THE DATA FROM THE 15 IS COMBINED IN US )@@G@@@F@@@@ THE 14 FOR RELEASE TO THE SORT. TYPE 14 AND SPECIAL FORMS LOG UT )@@G@@@F@@@@ ENTRIES FOR ALL SYMBIONT DEVICES WILL HAVE HAD BINARY ZERO STOREDUU )@@G@@@F@@@@ IN THE ACCOUNT FIELD. THE LOAD PACK MESSAGES WILL HAVE BINARY 1 UV )@@G@@@F@@@@ STORED IN THE ACCOUNT FIELD. THE X AND E KEYINS WILL HAVE BINARY UW )@@G@@@F@@@@ 10 STORED IN THE ACCOUNT FIELD. THIS MEANS THAT ALL SYMBIONT UX )@@G@@@F@@@@ DEVICE USE INFORMATION IS AT THE FIRST OF THE FILE IN DEVICE UY )@@G@@@G@@@@ ORDER; FOLLOWED BY ALL PACK LOAD MESSAGES IN RUNID ORDER; FOLLOWEUZ )@@G@@D @F@@@@ BY ALL X AND E KEYINS IN RUNID ORDER; FOLLOWED BY THE ACCOUVA )@@G@@NT/ @^@@@@ RUNID INFORMATION. @]@@@@SPACE 1 @F@@@@ H1550020 OPVB )@@G@@TIONALLY PRINTS TWO REPORTS. THE FIRST IS A LIST OF @F@@@@ OPERATOR ALVC )@@G@@LOWED RUNS. TYPE 7 OR 10 CONSOLE MSG'S MUST BE SCANNED@G@@@@ TO FIND STAVD )@@G@@NDARD ACCOUNT OR OTHER UNDEFINED ACCOUNT MESSAGES. NOTE @F@@@@ THE OVE )@@G@@PERATORS' MANUAL FOR THE EXACT FORMAT OF THE MESSAGE, THE @F@@@@ OTHERVF )@@G@@ OPTIONAL REPORT IS THE ACCOUNT-FILE REFERENCE REPORT WHICH @F@@@@ WILL VG )@@G@@DETAIL ANY ACCESSES BY ONE-ACCOUNT-GROUP RUNS OF OTHER- @^@@@@ ACCOUVH )@@G@@NT-GROUP'S FILES. @]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@SPACE 1 VI )@@G@@@ @@@@ 1. DAILY LOG TAPE - IO FORMAT@]@@@@SPACE 1 @A@@@@ 2. PARAMETEVJ )@@G@@R CARD FILE - SDF FORMAT@]@@@@SPACE 1 @ @@@@ 3. QUIP-CARDS - SDF FORVK )@@G@@MAT @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE 1 @C@@@@ 1. INVL )@@G@@TERIM DAILY ACCOUNT FILE - SDF FORMAT @]@@@@SPACE 1 @ @@@@ 2. UPVM )@@G@@TIME FILE - SDF FORMAT @]@@@@SPACE 1 @A@@@@ 3. LIST OF OPERATOR ALLVN )@@G@@OWED RUNS @]@@@@SPACE 1 @A@@@@ 4. ACCOUNT FILE REFERENCE REPORT VO )@@G@@@]@@@@SPACE 1 @A@@@@ 5. INTERIM ACCOUNT VOLUME FILE @[@@@@EJECT VP )@@G@@@#@@@@3PROGRAM FLOWCHART@[@@@@EJECT @]@@@@2H1550030 @#@@@@3PROGRAM NARVQ )@@G@@RATIVE@]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@ THIS PROGRAM USES THE SVR )@@G@@ORTED INTERIM ACCOUNTING FILE TO BUILD THE@F@@@@ DAILY ACCOUNT FILE AND VS )@@G@@THE SYMBIONT USE BY DEVICE AND ACCOUNT @E@@@@ FILE. THE LIST OF LOG TVT )@@G@@YPES NEEDED FOR THIS PROGRAM IS: @]@@@@SPACE 0 @F@@@@ LOG TYPE VU )@@G@@ LOG DESCRIPTION RUNID ASSOCIATION@E@@@@ 2 VV )@@G@@ FACILITY USAGE USER @F@@@@ 3 CAVW )@@G@@TALOGUED MASS STORAGE USER EXEC 8 @E@@@@ 4 PRVX )@@G@@OGRAM TERMINATION USER @E@@@@ 5 RUN TERMVY )@@G@@INATION USER @F@@@@ 7 CONSOLE LOG ENVZ )@@G@@TRY USER EXEC 8 @E@@@@ 9 RUN INITIATIONWA )@@G@@ USER @E@@@@ 10 CONSOLE REPLY WB )@@G@@ USER @E@@@@ 12 UNSOLICITED CONSOLE KEYIN WC )@@G@@ EXEC 8 @E@@@@ 14 SYMBIONT END OF PROCESS WD )@@G@@ EXEC 8 @E@@@@ 17 RUN SUPPLEMENT USEWE )@@G@@R @E@@@@ 18 SYSTEM RECOVERY CLOSE OUT USER WF )@@G@@@]@@@@SPACE 0 @E@@@@ THE INTERIM ACCOUNT IS SORTED BY THE ACCOUNT, RWG )@@G@@UNID, AND @G@@@@ TIME-STAMP FIELDS BEFORE IT IS ACCESSED BY THIS PROGRWH )@@G@@AM. ALL TYPE @F@@@@ 9,5,17,18, AND 14 LOG RECORDS WILL BE RELEASED WI )@@G@@TO THE SORT TWICE;@F@@@@ ONCE WITH THE ASSOCIATED SYMBIONT DEVICE IN THEWJ )@@G@@ SPECIAL RUNID @F@@@@ FIELD AND BINARY ZEROES IN THE ACCOUNT FIELD ANWK )@@G@@D ONCE WITH THE @F@@@@ REAL RUNID AND ACCOUNT NUMBER IN THE SPECIAL RUWL )@@G@@NID AND ACCOUNT @F@@@@ FIELDS RESPECTIVELY. TYPE 15,14 AND SPECIAL FORWM )@@G@@MS LOG ENTRIES FOR@F@@@@ ALL SYMBIONT DEVICES WILL HAVE HAD BINARY ZERO WN )@@G@@STORED IN THE @G@@@@ ACCOUNT FIELD. THE LOAD PACK MESSAGES WILL HAVEWO )@@G@@ BINARY 1 STORED IN @F@@@@ THE ACCOUNT FIELD. THE X AND E KEYINS WILWP )@@G@@L HAVE BINARY 10 STORED @F@@@@ IN THE ACCOUNT FIELD. THIS MEANS THAT ALLWQ )@@G@@ SYMBIONT DEVICE USE @F@@@@ INFORMATION IS AT THE FIRST OF THE FILE IWR )@@G@@N DEVICE ORDER; FOLLOWED@F@@@@ BY ALL PACK LOAD MESSAGES IN RUNID ORDER;WS )@@G@@ FOLLOWED BY ALL X AND E@F@@@@ KEYINS IN RUNID ORDER; FOLLOWED BY THE ACWT )@@G@@COUNT/RUNID INFORMATION.@]@@@@SPACE 1 @F@@@@ THE SYMBIONT USE BY DEVWU )@@G@@ICE AND ACCOUNT REPORT IS BUILT USING THE @F@@@@ SYMBIONT END (TYPE 14),WV )@@G@@ RUN INITIATION (TYPE 9), RUN TERMINATION @G@@@@ (TYPE 5), RUN TERMINATIWW )@@G@@ON (TYPE 17), AND SYSTEM RECOVERY CLOSE-OUT @F@@@@ ENTRIES (TYPE 18)WX )@@G@@. A LIST OF THE DIFFERENT FIELDS, THEIR SIZE, @F@@@@ USE, AND THE LOG WY )@@G@@ENTRIES USED TO RETRIEVE INFORMATION FOLLOWS: @]@@@@SPACE 0 @E@@@@WZ )@@G@@ REC.-POS. FIELD FIELD DESCRIPTION SIZE LOG-TYPES @E@@@@ 1-XA )@@G@@6 DEVICE SYMBIONT DEVICE 6 9,14 @D@@@@ 7-18 AXB )@@G@@CCOUNT ACCOUNT RANGE 12 9@E@@@@ 19-24 DATE YXC )@@G@@YMMDD 6 ALL @D@@@@ 25-28 # DL BATCH NO. OF XD )@@G@@DEADLINE 4 9@D@@@@ 29-32 # BATCH NO. OF BATCH XE )@@G@@ 4 9@D@@@@ 33-36 # DEMAND NO. OF DEMAND 4 9XF )@@G@@@E@@@@ 37-40 INPUT DEVICE READ CRD 4 14 @D@@@@XG )@@G@@ 41-44 PR-GEN LINES PRINT GEN 4 5@D@@@@ 45-48 AXH )@@G@@VG-PRT AVERAGE PRIORITY 4 9@E@@@@ 49-56 CLOCK TIME SXI )@@G@@TART TO FIN TIME 8 9,5 @D@@@@ 57-64 TOTAL-SUPS TOT COMXJ )@@G@@PUTER TIME 8 5@E@@@@ 65-72 CPU-SUPS PROCESSOR TIME XK )@@G@@ 8 17 @D@@@@ 73-80 CB-SUPS CORE BLOCK SUPS 8 XL )@@G@@ 5@E@@@@ 81-84 PU-OUT PUNCHED CARDS 4 14 XM )@@G@@@E@@@@ 85-88 PR-PRINTED PRINTED LINES 4 14 @D@@@@XN )@@G@@ 89-92 PU-GEN GENERATED PU CARDS 4 5@D@@@@ 93-96 CXO )@@G@@ARD-READ CARDS READ BY RUN 4 5@]@@@@SPACE 1 @E@@@@ THE DXP )@@G@@AILY ACCOUNT FILE IS KEPT IN ACCOUNT NUMBER ORDER. THE@E@@@@ INDIVIDUAL XQ )@@G@@RECORDS CONTAIN ESTABLISHED FACILITY REQUIREMENT@F@@@@ TOTALS, RUN ERRORXR )@@G@@ INFORMATION, AND DAILY RUN ACCUMULATION OF @ @@@@ CHARGES BROKEN DOXS )@@G@@WN BY SHIFT.@]@@@@SPACE 1 @G@@@@ H1550030 OPTIONALLY WILL CREATE TWOXT )@@G@@ REPORTS, 'THE LIST OF ALL RUNS @F@@@@ WITHIN ACCNT NO' AND 'THE SYMXU )@@G@@BIONT USE BY DEVICE AND ACCOUNT'. @F@@@@ THESE REPORTS CAN BE REQUESTEXV )@@G@@D BY THE DIRECTOR, THE ASSISTANT @C@@@@ DIRECTOR, OR THE SYSTEMS PROGXW )@@G@@RAMMING MANAGER. @]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@SPACE 1 XX )@@G@@@A@@@@ 1. SORTED INTERIM ACCOUNT FILE @]@@@@SPACE 1 @D@@@@ 2. CAXY )@@G@@RD FILE INPUT (PARAMETER CARD) *INT-ACCNT-VOL @]@@@@SPACE 2 @]@@@@XZ )@@G@@ OUTPUTS: @]@@@@SPACE 1 @^@@@@ 1. DAILY ACCOUNT FILE @]@@@@SPACE YA )@@G@@1 @ @@@@ 2. SYMBIONT DEVICE USE FILE @]@@@@SPACE 1 @A@@@@ 3. LIYB )@@G@@ST OF ALL RUNS WITHIN ACCNT NO@]@@@@SPACE 1 @C@@@@ 4. SYMBIONT USE BYC )@@G@@Y DEVICE AND ACCOUNT REPORT @[@@@@EJECT @#@@@@3PROGRAM FLOWCHART@[@@@@YD )@@G@@EJECT @]@@@@2H1550040 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: @]@@@@YE )@@G@@SPACE 1 @E@@@@ H1550040 SCANS THE MASTER FILE DIRECTORY TO OBTAIN SUYF )@@G@@MMARY @F@@@@ INFORMATION ABOUT THE NUMBER OF FILES, TAPE AND DISC, AND TYG )@@G@@HE @C@@@@ NUMBER OF GRANULES CATALOGUED FOR EACH ACCOUNT.@]@@@@SPACE YH )@@G@@2 @E@@@@ METHOD: H1550040 BUILDS A DETAIL FILE CONTAINING RELEVANT YI )@@G@@@F@@@@ INFORMATION ABOUT EACH CATALOGUED DISC OR TAPE FILE IN THE MASTERYJ )@@G@@@A@@@@ FILE DIRECTORY FOR THE UNIVAC 1106.@]@@@@SPACE 1 @F@@@@ TWO PYK )@@G@@UNCH IMAGES ARE CREATED FOR EACH CATALOGUED FILE. THE IMAGES@F@@@@ HOLD YL )@@G@@INFORMATION ABOUT THE FILE SUCH AS (1) THE ACCOUNT THE FILE @F@@@@ WAS CYM )@@G@@ATALOGUED UNDER, AND (2) THE SIZE OF THE FILE, WHEN THE FILE@D@@@@ WAS CYN )@@G@@REATED, AND OTHER INFORMATION ABOUT THE FILE. @]@@@@SPACE 1 @F@@@@YO )@@G@@ IN ADDITION, A ONE-RECORD VOLUME FILE IS CREATED CONTAINING THE @C@@@@YP )@@G@@ NUMBER OF PUNCH IMAGES CREATED BY THIS PROGRAM.@]@@@@SPACE 1 @F@@@@YQ )@@G@@ THESE TWO FILES ARE USED BY THE NEXT PROGRAM IN THE RUNSTREAM @B@@@@YR )@@G@@ H1550045 TO CREATE AN MFD SUMMARY FILE. @]@@@@SPACE 2 @]@@@@ INPUTYS )@@G@@S: @]@@@@SPACE 1 @ @@@@ 1. MASTER FILE DIRECTORY @]@@@@SPACE YT )@@G@@2 @]@@@@ OUTPUTS: @]@@@@SPACE 1 @^@@@@ 1. MFD DETAIL FILE YU )@@G@@@]@@@@SPACE 1 @^@@@@ 2. VOLUME CARD FILE @[@@@@EJECT @#@@@@3PROGRYV )@@G@@AM FLOWCHART@[@@@@EJECT @]@@@@2H1550050 @#@@@@3PROGRAM NARRATIVE@]@@@@YW )@@G@@ PURPOSE: @]@@@@SPACE 1 @G@@@@ PROGRAM H1550050 WILL READ CARDS COYX )@@G@@NTAINING INFORMATION CONCERNING @F@@@@ THE AMOUNT OF DISC SPACE EACHYY )@@G@@ ACCOUNT IS USING. TOTALS WILL BE @ @@@@ CALCULATED BY ACCOUNT NUMBER.YZ )@@G@@@]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 @F@@@@ PROGRAM H15ZA )@@G@@50050 WILL BUILD A TABLE OF VALID ACCOUNT NUMBERS FROM@E@@@@ THE VALID AZB )@@G@@CCOUNT FILE (QUIP CARDS). A CARD FILE CONTAINING@F@@@@ INFORMATION AS TOZC )@@G@@ THE NUMBER OF TRACKS, IF DISC, OR THE NUMBER OF@F@@@@ REELS, IF TAPE, TZD )@@G@@HAT EACH FILE IS USING WILL BE READ AND TOTALED @F@@@@ IN THE VALID ACCOZE )@@G@@UNT TABLE. AFTER THE WHOLE CARD FILE IS READ, A @G@@@@ MFD SUMMARY FILE ZF )@@G@@WILL BE WRITTEN FROM THE TABLE, WITH A RECORD FOR @F@@@@ EACH ACCOUNZG )@@G@@T NUMBER. THIS RECORD WILL CONTAIN THE TOTAL NUMBER OF@F@@@@ TRACKS AND/ZH )@@G@@OR REELS ASSIGNED FOR THAT ACCOUNT. ACCOUNT NUMBERS @F@@@@ SUCH AS 'UNZI )@@G@@IVAC', 'INSTALLATION', OR 'TIP$' WILL BE CONVERTED AND@G@@@@ CHARGED TO ZJ )@@G@@THE APPROPRIATE ACCOUNT NUMBER. THE INVALID MATCHES ARE @E@@@@ OUTPUZK )@@G@@T ON AN SDF FILE, MFD-TRANS, TO BE USED AS UPDATE @F@@@@ TRANSACTIONZL )@@G@@S LATER IN AN MFD UPDATE PROGRAM WHICH IS NOT PART OF @#@@@@ THIS SYSTEMZM )@@G@@. @]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@SPACE 1 @^@@@@ 1. MFZN )@@G@@D DETAIL FILE @]@@@@SPACE 1 @#@@@@ 2. VOLUME CARD @]@@@@SPACE ZO )@@G@@1 @^@@@@ 3. VALID ACCOUNT FILE @]@@@@SPACE 2 @]@@@@ OUTPUTS: ZP )@@G@@@]@@@@SPACE 1 @^@@@@ 1. MFD SUMMARY FILE @]@@@@SPACE 1 @#@@@@ZQ )@@G@@ 2. MFD-TRANS FILE@]@@@@SPACE 1 @C@@@@ 3. SUMMARY BY ACCNT NO OF CATZR )@@G@@ALOGUED FILES @[@@@@EJECT @#@@@@3PROGRAM FLOWCHART@[@@@@EJECT @]@@@@ZS )@@G@@2H1550060 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: @]@@@@SPACE 1 ZT )@@G@@@F@@@@ PROGRAM H1550060 WILL READ THE TAPE LIBRARY FILES AND ACCUMULATE ZU )@@G@@@F@@@@ INFORMATION CONCERNING THE NUMBER OF TAPES EACH ACCOUNT IS USING.ZV )@@G@@@C@@@@ TOTALS WILL BE CALCULATED BY ACCOUNT NUMBER. @]@@@@SPACE 2 ZW )@@G@@@]@@@@ METHOD: @]@@@@SPACE 1 @F@@@@ PROGRAM H1550060 WILL BUILD AZX )@@G@@ TABLE OF VALID ACCOUNT NUMBERS FROM@E@@@@ THE VALID ACCOUNT FILE (QUIP ZY )@@G@@CARDS). BOTH THE LABELED AND @G@@@@ UNLABELED TAPE LIBRARIES WILL BE REZZ )@@G@@AD. AS EACH RECORD IS READ FROM @G@@@@ THE TAPE LIBRARY, A RUNNING TAA )@@G@@OTAL WILL BE KEPT FOR EACH ACCOUNT IN @G@@@@ THE TABLE. AFTER BOTH LAB )@@G@@IBRARIES HAVE BEEN READ, A LIB-SUMMARY FILE @F@@@@ WILL BE WRITTEN FAC )@@G@@ROM THE TABLE, WITH A RECORD FOR EACH ACCOUNT @E@@@@ NUMBER. THIS RECOAD )@@G@@RD WILL CONTAIN THE NUMBER OF LABELED AND @F@@@@ UNLABELED REELS ASSIGNEAE )@@G@@D TO THE ACCOUNT NUMBER. ACCOUNT NUMBERS @F@@@@ SUCH AS 'UNIVAC', 'INSTAF )@@G@@ALLATION', OR 'TIP$' WILL BE CONVERTED AND@G@@@@ CHARGED TO THE APPROPRIAG )@@G@@ATE ACCOUNT NUMBER. THE INVALID MATCHES ARE @E@@@@ OUTPUT ON AN SDF AH )@@G@@FILE, LIB-TRANS, TO BE USED AS UPDATE @E@@@@ TRANSACTIONS LATER IN TAI )@@G@@HE TAPE LIBRARY UPDATE PROGRAMS. @]@@@@SPACE 2 @]@@@@ INPUTS: AJ )@@G@@@]@@@@SPACE 1 @^@@@@ 1. LABELED TAPE LIBRARY@]@@@@SPACE 1 @ @@@@AK )@@G@@ 2. UNLABELED TAPE LIBRARY @]@@@@SPACE 1 @^@@@@ 3. VALID ACCOUNT AL )@@G@@FILE @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE 1 @^@@@@ 1. LIAM )@@G@@B-SUMMARY FILE @]@@@@SPACE 1 @#@@@@ 2. LIB-TRANS FILE@]@@@@SPACE AN )@@G@@1 @A@@@@ 3. TAPE LIBRARY SUMMARY BY ACCNT NO@[@@@@EJECT @#@@@@3PROGRAO )@@G@@AM FLOWCHART@[@@@@EJECT @]@@@@2H1550070 @#@@@@3PROGRAM NARRATIVE@]@@@@AP )@@G@@ PURPOSE: @]@@@@SPACE 1 @F@@@@ H1550070 WILL READ CARDS CONTAININGAQ )@@G@@ INFORMATION CONCERNING THE @F@@@@ NUMBER OF TAPES AND THE AMOUNT OF DAR )@@G@@ISC SPACE THAT EACH FILE IS @D@@@@ USING. TOTALS WILL BE CALCULATED BYAS )@@G@@ ACCOUNT NUMBER. @]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 AT )@@G@@@E@@@@ H1550070 UPDATES THE DAILY ACCOUNTING FILE FOR EACH DAY AND@G@@@@AU )@@G@@ ACCOUNT WITH THE INFORMATION CONTAINED IN THE MFD SUMMARY AND TAPE AV )@@G@@@F@@@@ LIBRARY SUMMARY FILES. ALL THREE FILES ARE IN DAY/ACCOUNT ORDER. AW )@@G@@@]@@@@SPACE 1 @F@@@@ IN THE EVENT THAT NO DAILY ACCOUNT FILE RECORD AX )@@G@@EXISTS FOR A DAY @F@@@@ AND ACCOUNT AND A MFD-SUMMARY AND/OR TAPE LIB-SAY )@@G@@UMMARY RECORD DOES@F@@@@ EXIST FOR THAT ACCOUNT, A DAILY ACCOUNT RECORD AZ )@@G@@FOR THAT DAY AND @F@@@@ ACCOUNT IS CREATED AND THE APPROPRIATE INFORMATBA )@@G@@ION FROM THE MFD- @D@@@@ SUMMARY AND/OR TAPE LIBRARY-SUMMARY FILE IS INSBB )@@G@@ERTED.@]@@@@SPACE 1 @F@@@@ IF NO INFORMATION FOR A PARTICULAR DAY ANBC )@@G@@D ACCOUNT EXISTS IN @F@@@@ EITHER THE MFD SUMMARY OR TAPE LIBRARY SUBD )@@G@@MMARY FILE WHILE A DAILY@G@@@@ ACCOUNT FILE RECORD DOES EXIST, THEN ZEROBE )@@G@@ IS INSERTED IN THE DAILY @A@@@@ FILE AT THE APPROPRIATE PLACES. BF )@@G@@@]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@SPACE 1 @^@@@@ 1. MFD SUMBG )@@G@@MARY FILE @]@@@@SPACE 1 @ @@@@ 2. DAILY ACCOUNTING FILE @]@@@@BH )@@G@@SPACE 1 @ @@@@ 3. TAPE LIBRARY SUMMARY FILE@]@@@@SPACE 2 @]@@@@BI )@@G@@ OUTPUTS: @]@@@@SPACE 1 @ @@@@ 1. DAILY ACCOUNTING FILE @[@@@@BJ )@@G@@EJECT @#@@@@3PROGRAM FLOWCHART@[@@@@EJECT @]@@@@2H1550080 @#@@@@3PROGRBK )@@G@@AM NARRATIVE@]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@ PROGRAM H1550080 BL )@@G@@WILL PRODUCE EITHER OR BOTH THE CUMULATIVE DAILY@G@@@@ ACCOUNTING FIE ORBM )@@G@@ THE RUNSTREAM SUMMARY BY DAY REPORT USING EITHER @F@@@@ OR BOTH THEBN )@@G@@ CUMULATIVE DAILY ACCOUNTING FILE AND/OR THE DAILY @ @@@@ ACCOUNTING BO )@@G@@FILE AS INPUT. @]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 BP )@@G@@@]@@@@COLUMN 5 @F@@@@ 1. READ THE PARAMETER CARD TO DETERMINE WHAT INBQ )@@G@@PUTS ARE AVAILABLE@A@@@@ AND WHAT OUTPUTS ARE DESIRED. @]@@@@SPACE BR )@@G@@1 @F@@@@ 2. IF THE DAILY SUMMARY REPORT IS DESIRED, READ CUMULATIVE BS )@@G@@AND/OR@F@@@@ DAILY ACCOUNTING FILE, IF AVAILABLE, COMBINING THE TWO OBT )@@G@@N ANY @E@@@@ OVERLAPPING DAYS. CREATE A DAILY REPORT FOR ANY DAY THATBU )@@G@@@E@@@@ MATCHES THE CONTROL DATE RANGE FROM THE PARAMETER CARD. @]@@@@BV )@@G@@SPACE 1 @F@@@@ 3. IF A NEW CUMULATIVE DAILY ACCOUNTING FILE IS DESIRBW )@@G@@ED, A NEW @E@@@@ DAILY ACCOUNTING FILE MUST EXIST AND IS MERGED WITBX )@@G@@H THE @F@@@@ CUMULATIVE DAILY ACCOUNTING FILE, IF IT EXISTS. OTHERWISBY )@@G@@E, THE@E@@@@ DAILY ACCOUNTING FILE BECOMES THE NEW CUMULATIVE FILE. BZ )@@G@@@]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@SPACE 1 @]@@@@COLUMN 2 CA )@@G@@@B@@@@ 1. DAILY ACCOUNTING FILE (OPTIONAL) @]@@@@SPACE 1 @C@@@@CB )@@G@@ 2. CUMULATIVE DAILY ACCOUNTING FILE (OPTIONAL)@]@@@@SPACE 1 @^@@@@CC )@@G@@ 3. PARAMETER CARD @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE CD )@@G@@1 @C@@@@ 1. CUMULATIVE DAILY ACCOUNTING (OPTIONAL) @]@@@@SPACE CE )@@G@@1 @C@@@@ 2. RUNSTREAM SUMMARY BY DAY REPORT (OPTIONAL) @[@@@@EJECT CF )@@G@@@#@@@@3PROGRAM FLOWCHART@[@@@@EJECT @]@@@@2H1550081 @#@@@@3PROGRAM NARCG )@@G@@RATIVE@]@@@@ PURPOSE: @]@@@@SPACE 1 @G@@@@ PROGRAM H1550080 WILL PCH )@@G@@RODUCE EITHER OR BOTH THE RUNSTREAM SUMMARY @F@@@@ BY ACCOUNT REPORTCI )@@G@@ AND MONTHLY ACCOUNT SUMMARY FILE. IT CAN ALSO @F@@@@ PRODUCE THE CUMULCJ )@@G@@ATIVE DAILY ACCOUNTING FILE AND/OR THE RUNSTREAM@G@@@@ SUMMARY BY DAY RECK )@@G@@PORT. H1550081 USES EITHER OR BOTH THE CUMULATIVE @F@@@@ DAILY ACCOUCL )@@G@@NTING FILE AND THE DAILY ACCOUNTING FILE AS INPUT. A @D@@@@ PARAMETER CCM )@@G@@ARD IS INPUT SPECIFYING THE REQUIRED I/O. @]@@@@SPACE 2 @]@@@@ METHOCN )@@G@@D: @]@@@@SPACE 1 @]@@@@COLUMN 5 @F@@@@ 1. READ THE PARAMETER CCO )@@G@@ARD TO DETERMINE WHAT INPUTS ARE AVAILABLE@A@@@@ AND WHAT OUTPUTS ARECP )@@G@@ DESIRED. @]@@@@SPACE 1 @F@@@@ 2. IF THE DAILY SUMMARY REPORT IS DCQ )@@G@@ESIRED, READ CUMULATIVE AND/OR@F@@@@ DAILY ACCOUNTING FILE, IF AVAILACR )@@G@@BLE, COMBINING THE TWO ON ANY @E@@@@ OVERLAPPING DAYS. CREATE A DAILYCS )@@G@@ REPORT FOR ANY DAY THAT@E@@@@ MATCHES THE CONTROL DATE RANGE FROM THCT )@@G@@E PARAMETER CARD. @]@@@@SPACE 1 @F@@@@ 3. IF A NEW CUMULATIVE DAILY CU )@@G@@ACCOUNTING FILE IS DESIRED, A NEW @E@@@@ DAILY ACCOUNTING FILE MUSTCV )@@G@@ EXIST AND IS MERGED WITH THE @F@@@@ CUMULATIVE DAILY ACCOUNTING FILECW )@@G@@, IF IT EXISTS. OTHERWISE, THE@E@@@@ DAILY ACCOUNTING FILE BECOMES THCX )@@G@@E NEW CUMULATIVE FILE. @]@@@@SPACE 1 @E@@@@ 4. IF EITHER A MONTHLY CY )@@G@@REPORT OR A MONTHLY SUMMARY FILE IS @E@@@@ REQUESTED, A SORT IS DONE CZ )@@G@@ON THE CUMULATIVE AND/OR DAILY@F@@@@ ACCOUNTING FILES TO CREATE A FILDA )@@G@@E SORTED BY 12-DIGIT ACCOUNT @]@@@@ NUMBER. @]@@@@SPACE 1 @F@@@@DB )@@G@@ 5. THE MONTHLY SUMMARY, IF REQUESTED, IS GENERATED BY SUMMING THE@F@@@@DC )@@G@@ WEEK-DAY AND WEEKEND DAILY RECORDS INTO TWO SEPARATE RECORDS, @E@@@@DD )@@G@@ ONE FOR WEEK-DAYS AND ONE FOR WEEKENDS (WEEKDAY FIRST). @]@@@@SPACE DE )@@G@@1 @F@@@@ 6. THE MONTHLY REPORT IS GENERATED AT A RATE OF ONE PAGE PEDF )@@G@@R 12- @ @@@@ DIGIT ACCOUNT NUMBER. @]@@@@SPACE 2 @]@@@@ INPUTDG )@@G@@S: @]@@@@SPACE 1 @]@@@@COLUMN 2 @A@@@@ 1. DAILY ACCOUNTING FILDH )@@G@@E (OPTIONAL)@]@@@@SPACE 1 @C@@@@ 2. CUMULATIVE DAILY ACCOUNTING FILEDI )@@G@@ (OPTIONAL) @]@@@@SPACE 1 @#@@@@ 3. PARAMETER CARD@]@@@@SPACE 2 DJ )@@G@@@]@@@@ OUTPUTS: @]@@@@SPACE 1 @C@@@@ 1. CUMULATIVE DAILY ACCOUNTINDK )@@G@@G FILE (OPTIONAL) @]@@@@SPACE 1 @C@@@@ 2. RUNSTREAM SUMMARY BY DAY RDL )@@G@@EPORT (OPTIONAL) @]@@@@SPACE 1 @B@@@@ 3. MONTHLY ACCOUNTING FILE (ODM )@@G@@PTIONAL) @]@@@@SPACE 1 @E@@@@ 4. RUNSTREAM SUMMARY BY ACCOUNT REPDN )@@G@@ORT - MONTHLY (OPTIONAL)@[@@@@EJECT @#@@@@3PROGRAM FLOWCHART@[@@@@EJECT DO )@@G@@@]@@@@2H1551000 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: @]@@@@SPACE DP )@@G@@1 @E@@@@ THIS PROGRAM PRODUCES AN ACCOUNT VALIDATED KP-TIME FILE ANDDQ )@@G@@@D@@@@ KP-CARDS FILE, AND SORTS KP-CARDS ON ACCOUNT-NO. @]@@@@SPACE DR )@@G@@2 @]@@@@ METHOD: @]@@@@SPACE 1 @F@@@@ READS QUIP-CARDS AND CODS )@@G@@NSTRUCTS A TABLE OF VALID ACCOUNT-NOS. @F@@@@ THEN TIME-CDS IS READ IDT )@@G@@N AND VALIDATED AGAINST THE TABLE AND THE @F@@@@ ACCEPTED CARDS ARE OUTPDU )@@G@@UT TO *KP-TIME. COUNT-CDS ARE HANDLED @G@@@@ SIMILARLY EXCEPT THEY ADV )@@G@@RE RELEASED TO A SORT (BY ACCOUNT-NO) AFTER @D@@@@ THE VALIDATION PHDW )@@G@@ASE AND THEN OUTPUT TO *KP-CARDS. @[@@@@EJECT @#@@@@3PROGRAM FLOWCHARTDX )@@G@@@[@@@@EJECT @]@@@@2H1551010 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: DY )@@G@@@]@@@@SPACE 1 @F@@@@ THIS PROGRAM READS THE INFOREX TRANSFER FILE ANDZ )@@G@@D EDITS THE ENTRY @E@@@@ AND VERIFY STATISTICS, THEN COMBINES THEM INTO EA )@@G@@A DISC FILE.@]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 @F@@@@EB )@@G@@ THE INFOREX TRANSFER FILE, A SEQUENTIAL TAPE FILE CONTAINING 2 @G@@@@EC )@@G@@ 128-CHARACTER RECORDS PER JOB/OPERATOR, IS READ, EDITED, AND THE 2 ED )@@G@@@F@@@@ RECORDS ARE COMBINED INTO A SINGLE. THE FILE IS OUTPUT TO DISC. EE )@@G@@@]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@SPACE 1 @ @@@@ 1. DATA ENEF )@@G@@TRY STAT TAPE @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE 1 EG )@@G@@@ @@@@ 1. DATA ENTRY STAT FILE @[@@@@EJECT @#@@@@3PROGRAM FLOWCHARTEH )@@G@@@[@@@@EJECT @]@@@@2H1551020 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: EI )@@G@@@]@@@@SPACE 1 @F@@@@ THIS PROGRAM READS THE DATA ENTRY STAT FILE CREEJ )@@G@@ATED IN H1551010 @B@@@@ AND SORTS IT FOR REPORTS TO BE GENERATED.@]@@@@EK )@@G@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 @F@@@@ THE DATA ENTRY STEL )@@G@@AT FILE, A SEQUENTIAL DISC FILE, IS READ AND @E@@@@ SORTED ACCORDING EM )@@G@@TO THE TYPE OF REPORT REQUESTED IN THE SGS@F@@@@ PARAMETER CARDS. THE FIEN )@@G@@LE CAN BE SORTED BY OPERATOR OR BY JOB. IF@G@@@@ BOTH REPORTS ARE REQUESEO )@@G@@TED, H1551020 AND H1551030 ARE EXECUTED FOR @F@@@@ 1 REPORT, THEN BOEP )@@G@@TH ARE EXECUTED AGAIN FOR THE OTHER REPORT. @]@@@@SPACE 2. @]@@@@EQ )@@G@@ INPUTS: @]@@@@SPACE 1 @ @@@@ 1. DATA ENTRY STAT FILE @]@@@@ER )@@G@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE 1 @A@@@@ 1. SORTED DATA EES )@@G@@NTRY STAT FILE @[@@@@EJECT @#@@@@3PROGRAM FLOWCHART@[@@@@EJECT @]@@@@ET )@@G@@2H1551030 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: @]@@@@SPACE 1 EU )@@G@@@F@@@@ THIS PROGRAM READS THE SORTED DATA ENTRY STAT FILE AND PRINTS EV )@@G@@@F@@@@ EITHER THE JOB OR OPERATOR REPORT LISTING, DEPENDING ON WHICH IS EW )@@G@@@B@@@@ REQUESTED IN THE SGS PARAMETER CARDS. @]@@@@SPACE 2 @]@@@@EX )@@G@@ METHOD: @]@@@@SPACE 1 @F@@@@ THIS PROGRAM READS THE SORTED DATA EY )@@G@@ENTRY STAT FILE AND PRODUCES @G@@@@ EITHER THE OPERATOR STATISTICS OR JEZ )@@G@@OB STATISTICS REPORT, DEPENDING @F@@@@ ON THE SGS PARAMETER CARDS. TFA )@@G@@ABLE-TAPE 60 IS USED TO INTERPRET @F@@@@ JOB, COMPANY, AND OPERATOR COFB )@@G@@DES ON THE STAT FILE AND PRODUCE @F@@@@ NAMES ON THE REPORT FOR THESEFC )@@G@@ CODES. IF BOTH THE REPORTS ARE @G@@@@ REQUESTED, BOTH H1551020 AND FD )@@G@@H1551030 ARE EXECUTED FOR ONE REPORT, @D@@@@ THEN BOTH ARE EXECUTED FE )@@G@@AGAIN FOR THE SECOND REPORT. @]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@FF )@@G@@SPACE 1 @A@@@@ 1. SORTED DATA ENTRY STAT FILE @]@@@@SPACE 1 FG )@@G@@@#@@@@ 2. TABLE-TAPE 60@]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE FH )@@G@@1 @ @@@@ 1. DATA ENTRY STAT REPORT @[@@@@EJECT @#@@@@3PROGRAM FLOFI )@@G@@WCHART@[@@@@EJECT @]@@@@2H1551035 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOFJ )@@G@@SE: @]@@@@SPACE 1 @F@@@@ THIS PROGRAM FORMATS RAW INFOREX DATA-ENTFK )@@G@@RY STATISTICS SORTED BY @F@@@@ ACCOUNT-NO. INTO A MORE COMPACT RECORD, TFL )@@G@@O VALIDATE ACCOUNTS, AND@E@@@@ TO ADJUST THE MAN-MINUTES ACCUMULATED BY FM )@@G@@EACH ACCOUNT. @]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 FN )@@G@@@F@@@@ H1551035 BUILDS A TABLE OF ALL VALID ACCOUNT-NO.S, AND COLLECTS FO )@@G@@@F@@@@ THE APPROPRIATE DATE-ENTRY STATISTICS FROM *DE-STAT-SRTD FOR EACHFP )@@G@@@F@@@@ VALID ACCOUNT-NO. THEN AN ADJUSTMENT FACTOR (COMPUTED FROM TOTAL FQ )@@G@@@F@@@@ RAW MINUTES IN AND THE DATA-ENTRY ADJUSTMENT CARD) IS APPLIED TO FR )@@G@@@F@@@@ THE ACCUMULATED MAN-MINUTES FOR EACH ACCOUNT IN THE TABLE, THEN FS )@@G@@@F@@@@ THE TABLE IS WRITTEN TO DE-FILE. DE-ADJ-RPT IS GENERATED IN THE FT )@@G@@@]@@@@ PROCESS. @]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@SPACE 1 FU )@@G@@@#@@@@ 1. *DE-STAT-SRTD @]@@@@SPACE 1 @#@@@@ 2. *QUIP-CARDS @]@@@@FV )@@G@@SPACE 1 @^@@@@ 3. DE-ADJUSTMENT CARD @]@@@@SPACE 2 @]@@@@ OUTPUFW )@@G@@TS: @]@@@@SPACE 1 @]@@@@ 1. *DE-FILE@]@@@@SPACE 1 @#@@@@ 2. *DFX )@@G@@E-ADJ-RPT @[@@@@EJECT @#@@@@3PROGRAM FLOWCHART@[@@@@EJECT @]@@@@2H1551FY )@@G@@036 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@FZ )@@G@@ THIS PROGRAM FORMATS RAW CADE DATA-ENTRY STATISTICS SORTED BY @F@@@@GA )@@G@@ ACCOUNT-NO. INTO A COMPACT RECORD, TO VALIDATE ACCOUNTS AND TO @D@@@@GB )@@G@@ ADJUST THE MAN-MINUTES ACCUMULATED BY EACH ACCOUNT. @]@@@@SPACE 2 GC )@@G@@@]@@@@ METHOD: @]@@@@SPACE 1 @F@@@@ THE METHOD OF PROCESSING FOR GD )@@G@@H1551036 IS THE SAME AS THAT FOR @]@@@@ H1551035. @]@@@@SPACE 2 GE )@@G@@@]@@@@ INPUTS: @]@@@@SPACE 1 @#@@@@ 1. *DE-STAT-SRTD @]@@@@SPACE GF )@@G@@1 @#@@@@ 2. *QUIP-CARDS @]@@@@SPACE 1 @^@@@@ 3. DE-ADJUSTMENT GG )@@G@@CARD @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE 1 @]@@@@ 1. *DGH )@@G@@E-FILE@]@@@@SPACE 1 @#@@@@ 2. *DE-ADJ-RPT @[@@@@EJECT @#@@@@3PROGRGI )@@G@@AM FLOWCHART@[@@@@EJECT @]@@@@2H1551040 @#@@@@3PROGRAM NARRATIVE@]@@@@GJ )@@G@@ PURPOSE: @]@@@@SPACE 1 @F@@@@ TO DERIVE TOTALS BY CATEGORY ON PREGK )@@G@@DETERMINED COST CATEGORIES (# @F@@@@ OF TAPE MOUNTS, # OF PAGES PRINTED,GL )@@G@@ ETC.), AND TO ACCUMULATE @E@@@@ NUMBER OF SUP HOURS FOR THE MONTH BGM )@@G@@Y SHIFT AND IN TOTAL. @]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE GN )@@G@@1 @]@@@@COLUMN 6 @E@@@@ 1. READ THE CUMULATIVE DAILY ACCOUNTING GO )@@G@@LOG FILE DOING THE@#@@@@ FOLLOWING: @F@@@@ A. ACCUMULATE TOGP )@@G@@TALS BY CATEGORY ON PRE-DETERMINED ITEMS. @D@@@@ B. ACCUMULATE SUGQ )@@G@@P HOURS BY SHIFT AND IN TOTAL.@G@@@@ C. ACCUMULATE TOTAL # OF COMGR )@@G@@MUNICATIONS TRANSACTIONS (FOUND @E@@@@ IN 'TOT-RUNS REAL-TGS )@@G@@IME-BATCH' FIELD OF MONTHLY @E@@@@ ACCOUNTING FILE), BY APPRGT )@@G@@OPRIATE ACCT. CODE. @]@@@@SPACE 1 @F@@@@ 2. MULTIPLY PRE-DETERMGU )@@G@@INED COSTS BY CATEGORY TOTALS TO DERIVE @F@@@@ COST TOTALS BY CATEGV )@@G@@GORY, AND CREATE TOTALS-BY-CATEGORY FILE. @]@@@@SPACE 1 @F@@@@ 3. CGW )@@G@@REATE PRINTOUT SHOWING PRE-DETERMINED COSTS BY CATEGORY WITH@C@@@@ TGX )@@G@@OTAL COST BY CATEGORY AND SUP HOUR TOTALS.@]@@@@SPACE 1 @G@@@@ 4. FGY )@@G@@IND MATCHING '0' RECORD FOR ACCT. CODES ACCUMULATED BY IN 'C' @F@@@@GZ )@@G@@ ABOVE (TABLE-DISC-JA DECODE 01) AND MULTIPLY AMOUNT FOUND IN @F@@@@HA )@@G@@ POS. 20-22 (COST PER TRANSACTION OF TABLE-DISC-JA, DECODE 01)@G@@@@HB )@@G@@ BY AMOUNT ACCUMULATED ABOVE. ADD THESE TOTAL(S) TO POS.279-285 HC )@@G@@@F@@@@ (COMMUNICATION TRANSACTIONS) OF THE COST-TOTALSBY-CATEGORY HD )@@G@@@]@@@@ FILE. @]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@SPACE 1 HE )@@G@@@A@@@@ 1. MONTHLY ACCOUNTING LOG FILE. @]@@@@SPACE 1 @F@@@@ 2. DHF )@@G@@ECODE TABLE # 03 OF THE TABLE-DISC-JA FILE (PRE-DETERMINED @#@@@@ CHG )@@G@@OST FILE). @]@@@@SPACE 1 @F@@@@ 3. DECODE TABLE #01 OF THE TABLE-DHH )@@G@@ISC-JA FILE (BILLING INFO). @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@HI )@@G@@SPACE 1 @F@@@@ 1. TOTALS-BY-CATEGORY FILE (INCLUDING SUP HOUR INFORHJ )@@G@@MATION). @]@@@@SPACE 1 @]@@@@COLUMN 2 @F@@@@ 2. PRINTOUT SHOWHK )@@G@@ING PRE-DETERMINED COSTS USED BY CATEGORY, TOTAL@C@@@@ COSTS BY CATEHL )@@G@@GORY AND SUP HOUR INFORMATION.@[@@@@EJECT @#@@@@3PROGRAM FLOWCHART@[@@@@HM )@@G@@EJECT @]@@@@2H1551050 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: @]@@@@HN )@@G@@SPACE 1 @F@@@@ TO DERIVE HOURLY RATES FOR DATA PROCESSING SERVICES; HO )@@G@@DATA ENTRY, @C@@@@ ANALYSIS/PROGRAMMING AND COMPUTER (SUP HOURS). @]@@@@HP )@@G@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 @G@@@@ THE FOLLOWING STEHQ )@@G@@PS ARE NUMBERED TO COINCIDE WITH THE LINE NUMBERS @F@@@@ ON THE PRINHR )@@G@@TER FORMAT CHART AND WILL ALLOW COMPLETION OF THE @B@@@@ PRINTOUT ANHS )@@G@@D UPDATING OF THE OUTPUT FILE.@]@@@@SPACE 1 @]@@@@COLUMN 6 @F@@@@HT )@@G@@ 1. SALARIES - THIS LINE SIMPLY REPRESENTS THE TOTAL OF LINES 1-A@#@@@@HU )@@G@@ AND 1-B. @]@@@@SPACE 1 @]@@@@COLUMN 12 @F@@@@ 1-A. AHV )@@G@@DMINISTRATIVE PERSONNEL - THIS LINE REPRESENTS THE @E@@@@ THW )@@G@@OTAL SALARIES OF ADMINISTRATIVE TYPE PERSONNEL @E@@@@ (DIRECTHX )@@G@@OR, ASSISTANT DIRECTOR, CLERICAL) WITH THE@F@@@@ APPROPRIATE PHY )@@G@@ERCENTAGES BEING APPLIED TO DATA ENTRY, @F@@@@ ANALYSIS/PROGHZ )@@G@@RAMMING AND COMPUTER OPERATIONS. DATA @C@@@@ SOURCE = CC 1IA )@@G@@0-16 OF CONTROL CARD. @]@@@@SPACE 1 @F@@@@ 1-B. NON-ADMINISTRIB )@@G@@ATIVE PERSONNEL - THIS LINE REPRESENTS THE@F@@@@ SALARIES OF AIC )@@G@@LL OTHER DATA PROCESSING PERSONNEL WITH @E@@@@ BREAKDOWN BY ID )@@G@@DATA ENTRY, ANALYSIS/PROGRAMMING AND@F@@@@ COMPUTER OPERATIONSIE )@@G@@. DATA SOURCE = CC 17-37 OF CONTROL @#@@@@ CARD. @]@@@@SPACE IF )@@G@@1 @]@@@@COLUMN 6 @G@@@@ 2. DERIVED BY APPLYING THE DEPARTMENTAL IG )@@G@@OVERHEAD PERCENTAGE (DATA @F@@@@ SOURCE = POS. 14-17 OF DECODE RIH )@@G@@ECORD #02 OF TABLE-DISC-JA) TO@A@@@@ TOTALS CONTAINED IN LINE #1. II )@@G@@@]@@@@SPACE 1 @E@@@@ 3. DERIVED BY APPLYING THE DEPARTMENTAL EMPLOYIJ )@@G@@EE BENEFITS @F@@@@ PERCENTAGE (DATA SOURCE = POS. 18-21 OF DECODE REIK )@@G@@CORD #02 OF @D@@@@ TABLE-DISC-JA) TO TOTALS CONTAINED IN LINE #1. IL )@@G@@@]@@@@SPACE 1 @F@@@@ 4. COST OF SUPPLIES - DATA SOURCE = POS. 22-38IM )@@G@@ OF DECODE RECORD @ @@@@ #02 OF TABLE-DISC-JA. @]@@@@SPACE 1 IN )@@G@@@F@@@@ 5. RENTAL/MAINTENANCE OF EQUIPMENT - DATA SOURCE = CC 38-52 OF IO )@@G@@@#@@@@ CONTROL CARD.@]@@@@SPACE 1 @F@@@@ 6. AFTER HOURS MAINTENIP )@@G@@ANCE - DATA SOURCE = CC 53-59 OF CONTROL @]@@@@ CARD. @]@@@@SPACE IQ )@@G@@1 @F@@@@ 7. ADD AMOUNTS CONTAINED IN LINES 1-6 (1-A AND 1-B EXCLUDEIR )@@G@@D). @]@@@@SPACE 1 @F@@@@ 8. PERCENTAGE OF TOTAL = OVERHEAD - THE IS )@@G@@AMOUNTS ON THIS LINE ARE@F@@@@ DERIVED BY DIVIDING THE ONES IN LINE IT )@@G@@#8 INTO THE ONES IN LINE@F@@@@ #2 TO DETERMINE WHAT PERCENTAGE OF THIU )@@G@@E OVERALL TOTAL(S) IS @F@@@@ OVERHEAD. MOVE RESULTING AMOUNTS TO AIV )@@G@@PPROPRIATE AREAS IN POS.@C@@@@ 55-69 OF COST-TOTALS-BY-CATEGORY FILEIW )@@G@@. @]@@@@SPACE 1 @F@@@@ 9. PERCENTAGE OF TOTAL = EMPLOYEE BENEFIIX )@@G@@TS - THE AMOUNTS ON THIS@G@@@@ LINE ARE DERIVED BY DIVIDING THE ONESIY )@@G@@ IN LINE #8 INTO THE ONES @E@@@@ IN LINE #3 TO DETERMINE WHAT PEIZ )@@G@@RCENTAGE OF THE OVERALL @F@@@@ TOTAL(S) IS EMPLOYEE BENEFITS. MOVE RJA )@@G@@ESULTING AMOUNTS TO @F@@@@ APPROPRIATE AREAS IN POS. 220-234 OF JB )@@G@@COST-TOTALS-BY-CATEGORY @]@@@@ FILE. @]@@@@SPACE 1 @F@@@@ 10. BJC )@@G@@UDGET ADJUSTMENT REPORT: MOVE THE APPROPRIATE TOTALS FROM @E@@@@ LJD )@@G@@INE #8 TO 'INITIAL KP/VER BUDGET', 'INITIAL PROGRAMMER@E@@@@ BUDGET'JE )@@G@@ AND 'INITIAL COMPUTER BUDGET' RESPECTIVELY. @]@@@@SPACE 1 @F@@@@JF )@@G@@ READ THE INFOREX STATISTICS FILE AND THE KEYPUNCH TIME CARD @D@@@@JG )@@G@@ FILE (IF NECESSARY) AND ACCUMULATE THE FOLLOWING:@D@@@@ 1. JH )@@G@@ TOTAL-DATA-ENTRY-HOURS (ALL RECORDS) @F@@@@ 2. OVHD-DATA-EJI )@@G@@NTRY-HOURS (ACCT. NOS. 151-190, 900 AND @^@@@@ ABOVE) JJ )@@G@@@G@@@@ 3. BYPS-DATA-ENTRY-HOURS (ACCT. NO. 150 & 865) DIVIDE THJK )@@G@@E @F@@@@ DATA ENTRY TOTAL IN LINE8 BY TOTAL-DATA-ENTRY-HOURS GIVJL )@@G@@ING AN@D@@@@ INITIAL-HRLY-RATE FOR DATA ENTRY. MULTIPLY THIS @G@@@@JM )@@G@@ INITIAL-HRLY-RATE BY OVHD-DATA-ENTRY-HOURS GIVING AN AMOUNT TO JN )@@G@@@G@@@@ BE ADDED TO THE COMPUTER BUDGET, GIVING AN ADJUSTED-COMP-BUDGJO )@@G@@, @F@@@@ AND SUBTRACTED FROM THE KP/VER BUDGET, GIVING AN ADJUSTJP )@@G@@ED- @#@@@@ DE-BUDG. @]@@@@SPACE 1 @F@@@@ READ THE ANALJQ )@@G@@YSIS/PROGRAMMING TIME FILE (SCS) AND ACCUMULATE @^@@@@ THE FOLLOWINGJR )@@G@@: @B@@@@ 1. TOTAL-AP-HRS (ALL RECORDS) @E@@@@ 2. JS )@@G@@ OVHD-AP-HRS (ACCT. NOS. 151-190, 900 AND ABOVE)@E@@@@ 3. BYPS-JT )@@G@@AP-HRS (ACCT. NO. 150 & 865) DIVIDE THE @G@@@@ ANALYSIS/PROGRAMMINJU )@@G@@G TOTAL IN LINE 8 BY TOTAL-AP-HRS GIVING AN @F@@@@ INITIAL-HRLY-JV )@@G@@RATE FOR ANALYSIS/PROGRAMMING. MULTIPLY THIS @F@@@@ INITIAL-HRLY-JW )@@G@@RATE BY OVHD-AP-HRS GIVING AN AMOUNT TO BE ADDED@D@@@@ TO ADJUSTED-CJX )@@G@@OMP-BUDG, AND SUBTRACTED FROM THE @F@@@@ ANALYSIS/PROGRAMMING BUDGJY )@@G@@ET, GIVING AN ADJUSTED-PROG-BUDG. @]@@@@SPACE 1 @D@@@@ 11. HOURLY JZ )@@G@@RATES - DERIVED BY THE FOLLOWING STEPS: @]@@@@SPACE 1 @D@@@@ DKA )@@G@@ATA ENTRY - SUBTRACT OVHD-DATA-ENTRY-HOURS AND @F@@@@ BYPS-DATA-ENTKB )@@G@@RY-HOURS FROM TOTAL-DATA-ENTRY HOURS. DIVIDE THE@F@@@@ ADJUSTED-DE-BKC )@@G@@UDG (SEE #11) BY TOTAL-DATA-ENTRY-HOURS GIVING @F@@@@ THE HOURLY RAKD )@@G@@TE FOR DATA ENTRY. MOVE THIS RATE TO POS. 35-39@B@@@@ OF THE COST-TKE )@@G@@OTALS-BY-CATEGORY FILE. @]@@@@SPACE 1 @F@@@@ ANALYSIS/PROGRAMMINKF )@@G@@G - SUBTRACT OVHD-AP-HRS AND BYPS-AP-HRS @F@@@@ FROM TOTAL-AP-HRS. KG )@@G@@DIVIDE THE ADJUSTED-PROG-BUDG (SEE #11) BY@F@@@@ TOTAL-AP-HRS GIVINGKH )@@G@@ HOURLY RATE FOR ANALYSIS/PROGRAMMING. @F@@@@ MOVE THIS RATE TO PKI )@@G@@OS. 30-34 OF COST-TOTALS-BY-CATEGORY FILE.@]@@@@SPACE 1 @G@@@@ CKJ )@@G@@OMPUTER - DIVIDE ADJUSTED-COMP-BUDG (SEE #11) BY THE SUP HOUR @F@@@@KK )@@G@@ FIGURE IN POS. 267-274 OF THE COST-TOTALS-BY-CATEGORY FILE TO@F@@@@KL )@@G@@ GET A BASE HOURLY RATE FOR COMPUTER SUP HOUR. MOVE THIS RATE @E@@@@KM )@@G@@ TO POS. 262-266 OF THE COST-TOTALS-BY-CATEGORY FILE. @]@@@@SPACE KN )@@G@@1 @G@@@@ 12. ADJUSTED COMPUTER SUP HOUR RATE - SUBTRACT THE AMOUNTS KO )@@G@@PRESENT @F@@@@ IN POS. 279-285 (CTBC) FROM THE ADJUSTED-COMP-BUDKP )@@G@@G GIVING A @F@@@@ NET-EXPENDITURE-TOTAL. THEN DIVIDE SUP HOURS (DATKQ )@@G@@A SOURCE = @D@@@@ POS. 267-274 COST-TOTALS-BY-CATEGORY FILE) INTO KR )@@G@@@F@@@@ NET-EXPENDITURE-TOTAL GIVING AN ADJUSTED-SUP-HOUR-RATE. THENKS )@@G@@@^@@@@ DO THE FOLLOWING: @]@@@@SPACE 1 @]@@@@COLUMN 13 @E@@@@KT )@@G@@ 12-A. ADJUSTED SUP HOUR RATE SHIFT-1 - MULTIPLY THE @F@@@@ KU )@@G@@ ADJUSTED-SUP-HOUR-RATE (STEP 11) BY SHIFT-DIFF-SHIFT1 @F@@@@ KV )@@G@@ (DATA SOURCE = POS 210-214 OF COST-TOTALS-BY-CATEGORY @F@@@@ KW )@@G@@ FILE) TO GET THE ADJUSTED-RATE-SHIFT1. THEN MULTIPLY @F@@@@ KX )@@G@@ ADJUSTED-RATE-SHIFT1 BY SHIFT-1 SUP HOURS (DATA SOURCE@E@@@@ KY )@@G@@ = POS. 9-15 OF COST-TOTALS-BY-CATEGORY FILE) AND@F@@@@ KZ )@@G@@SUBTRACT THE RESULT FROM THE NET-EXPENDITURE-TOTAL @F@@@@ LA )@@G@@(STEP 13). MOVE ADJUSTED-RATE-SHIFT1 TO POS. 40-44 OF @B@@@@ LB )@@G@@COST-TOTALS-BY-CATEGORY FILE. @]@@@@SPACE 1 @E@@@@ 12-B. ADJUSTLC )@@G@@ED SUP HOUR RATE SHIFT-3 - MULTIPLY THE @F@@@@ ADJUSTED-SUPLD )@@G@@-HOUR-RATE (STEP 11) BY SHIFT-DIFF-SHIFT3 @F@@@@ (DATA SOURCELE )@@G@@ = POS. 215-219 OF COST-TOTALS-BY-CATEGORY@F@@@@ FILE) TO GETLF )@@G@@ THE ADJUSTED-RATE-SHIFT3. THEN MULTIPLY @F@@@@ ADJUSTED-RATLG )@@G@@E-SHIFT3 BY SHIFT-3 SUP HOURS (DATA SOURCE@F@@@@ = POS. 23-29LH )@@G@@ OF COST-TOTALS-BY-CATEGORY FILE) AND @F@@@@ SUBTRACT THELI )@@G@@ RESULT FROM THE NET-EXPENDITURE-TOTAL @F@@@@ (STEP 13). MLJ )@@G@@OVE ADJUSTED-RATE-SHIFT3 TO POS. 50-54 OF @B@@@@ COST-TOTALS-LK )@@G@@BY-CATEGORY FILE. @]@@@@SPACE 1 @F@@@@ 12-C. ADJUSTED SUP HOUR LL )@@G@@RATE SHIFT-2 - DIVIDE SHIFT-2 SUP @G@@@@ HOURS (DATA SOURCELM )@@G@@ = POS. 16-22 COST-TOTALS-BY-CATEGORY @F@@@@ FILE) INTO NLN )@@G@@ET-EXPENDITURE-TOTAL (STEP 13) TO GET @G@@@@ ADJUSTED-RATLO )@@G@@E-SHIFT2. MOVE ADJUSTED-RATE-SHIFT2 TO POS. @D@@@@ 45-49 LP )@@G@@OF COST-TOTALS-BY-CATEGORY FILE. @]@@@@SPACE 2 @]@@@@COLUMN 6 LQ )@@G@@@]@@@@ INPUTS: @]@@@@SPACE 1 @#@@@@ 1. DATA ENTRY: @]@@@@SPACE LR )@@G@@0 @C@@@@ A. INFOREX - OPERATOR STATISTICS FILE. @]@@@@SPACE LS )@@G@@0 @D@@@@ B. KEY PUNCH - OPERATOR TIME CARDS (TEMPORARY). @]@@@@LT )@@G@@SPACE 1 @D@@@@ 2. SALARY AND EQUIPMENT COST FIGURES - CONTROL CARD.LU )@@G@@@]@@@@SPACE 1 @A@@@@ 3. COST-TOTALS-BY-CATEGORY FILE. @]@@@@SPACE LV )@@G@@1 @B@@@@ 4. ANALYSIS/PROGRAMMING TIME FILE (SCS).@]@@@@SPACE 1 LW )@@G@@@C@@@@ 5. DECODE TABLE #02 OF THE TABLE-DISC-JA FILE.@]@@@@SPACE 2 LX )@@G@@@]@@@@ OUTPUTS: @]@@@@SPACE 1 @G@@@@ 1. COST-TOTALS-BY-CATEGORY FLY )@@G@@ILE, UPDATED TO INCLUDE HOURLY RATES, @F@@@@ PERCENTAGE OF OVERHLZ )@@G@@EAD AND PERCENTAGE OF EMPLOYEE BENEFITS @F@@@@ INFORMATION ON DATAMA )@@G@@ ENTRY, ANALYSIS/PROGRAMMING AND COMPUTER,@B@@@@ AND COST OF C.T.M.CMB )@@G@@. AND C.T.M.'S. @]@@@@SPACE 1 @G@@@@ 2. PRINTOUT OF BUDGET ADJUSTMC )@@G@@MENT REPORT AND EXPENDITURE WORKSHEET @F@@@@ AND HOURLY RATES FOMD )@@G@@R DATA ENTRY, ANALYSIS/PROGRAMMING AND @#@@@@ COMPUTER. @[@@@@ME )@@G@@EJECT @]@@@@COLUMN 2 @#@@@@3PROGRAM FLOWCHART@[@@@@EJECT @]@@@@2H1551MF )@@G@@060 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@MG )@@G@@ TO CREATE A COST SUMMARY FILE BY ACCOUNT NUMBER, BUDGET NUMBER, @F@@@@MH )@@G@@ BUREAU AND DEPUTYSHIP. TO CREATE A COMPUTER UTILIZATION RECAP @F@@@@MI )@@G@@ REPORT. TO UPDATE THE YEAR-TO-DATE ACCOUNTING LOG FILE WITH THE @^@@@@MJ )@@G@@ CURRENT MONTHS DATA. @]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE MK )@@G@@1 @]@@@@COLUMN 6 @E@@@@ 1. READ THE COST-TOTALS-BY-CATEGORY FILEML )@@G@@ (ONE RECORD). @]@@@@SPACE 1 @F@@@@ 2. READ THE MONTHLY ACCOUNTIMM )@@G@@NG LOG FILE, ANALYSIS/PROGRAMMING @E@@@@ TIME FILE AND THE DATA ENMN )@@G@@TRY FILE(S), AND CREATE A COST@F@@@@ SUMMARY RECORD FOR EACH UNIQUE MO )@@G@@ACCOUNT NUMBER ENCOUNTERED. @D@@@@ (NOTE: ALL FILES MUST BE IN ACCMP )@@G@@T.NO. SEQUENCE) @]@@@@SPACE 1 @F@@@@ THE FOLLOWING FIELDS IN TMQ )@@G@@HE COST-SUMMARY-BY-ACCT FILE WILL BE@ @@@@ CREATED IN THIS PROGRAM: MR )@@G@@@]@@@@SPACE 1 @]@@@@COLUMN 2 @]@@@@ FIELD @E@@@@ POS. MS )@@G@@FIELD NAME COMMENTS/SOURCE@]@@@@SPACE 1 @^@@@@MT )@@G@@ 6-17 ACCOUNT CODE@F@@@@ 18-21 PERIOD (MO-YR) MU )@@G@@ SAME FOR EACH RECORD @G@@@@ 25-28 TOTAL RUNS (COMPUTER) MV )@@G@@ MONTHLY ACCOUNTING LOG @G@@@@ 29-32 SUP HOURS - SHIFT1 MW )@@G@@ MONTHLY ACCOUNTING LOG @G@@@@ 37-40 SUP HOURS - SHIFT2MX )@@G@@ MONTHLY ACCOUNTING LOG @G@@@@ 45-48 SUP HOURS - MY )@@G@@SHIFT3 MONTHLY ACCOUNTING LOG @G@@@@ 53-56 CARDS-MZ )@@G@@IN MONTHLY ACCOUNTING LOG @G@@@@ 61-64 NA )@@G@@CARDS-OUT MONTHLY ACCOUNTING LOG @G@@@@ 6NB )@@G@@9-72 PAGES-CREATED MONTHLY ACCOUNTING LOG @G@@@@NC )@@G@@ 77-80 FORMS-MOUNTED MONTHLY ACCOUNTING LOG ND )@@G@@@G@@@@ 85-88 REELS-MOUNTED MONTHLY ACCOUNTING LONE )@@G@@G @G@@@@ 93-100 TAPE-DATA-TRANSFERS MONTHLY ACCOUNTNF )@@G@@ING LOG @G@@@@ 105-108 REELS-IN-LIBRARY MONTHLY ANG )@@G@@CCOUNTING LOG @G@@@@ 113-116 PACKS-MOUNTED - NBR. MONNH )@@G@@THLY ACCOUNTING LOG @G@@@@ 121-128 CATALOGUED-DISC-TRACKS NI )@@G@@ MONTHLY ACCOUNTING LOG @G@@@@ 133-140 MASS-STOR-DATA-TRANSFERSNJ )@@G@@ MONTHLY ACCOUNTING LOG @G@@@@ 145-148 PACKS-MOUNTED - DUNK )@@G@@RATION MONTHLY ACCOUNTING LOG @F@@@@ 153-156 DATA ENTRY -NL )@@G@@ RECORDS ENTERED DATA ENTRY FILE(S) @F@@@@ 157-160 DATA ENTRY -NM )@@G@@ RECORDS VERIFIED DATA ENTRY FILE(S) @F@@@@ 161-164 DATA ENTRY -NN )@@G@@ STROKES ENTERED DATA ENTRY FILE(S) @F@@@@ 165-168 DATA ENTRY -NO )@@G@@ STROKES VERIFIED DATA ENTRY FILE(S) @F@@@@ 169-172 DATA ENTRY -NP )@@G@@ HOURS ENTERED DATA ENTRY FILE(S) @F@@@@ 177-180 DATA ENTRY -NQ )@@G@@ HOURS VERIFIED DATA ENTRY FILE(S) @F@@@@ 185-188 ANALYSIS/PRONR )@@G@@GRAMMING - HOURS ANAL/PROG TIME (SCS) @G@@@@ 205-208 OVERHEAD PCTNS )@@G@@ - COMPUTER COST-TOTAL-BY-CATEGORY @G@@@@ 209-212 OVERHENT )@@G@@AD PCT - DATA ENTRY COST-TOTAL-BY-CATEGORY @G@@@@ 213-216 NU )@@G@@OVERHEAD PCT - ANAL/PROG COST-TOTAL-BY-CATEGORY @G@@@@ 21NV )@@G@@7-220 EMPL BENEFIT PCT - COMPUTER COST-TOTAL-BY-CATEGORY @G@@@@NW )@@G@@ 221-224 EMPL BENEFIT PCT - DATA ENTRY COST-TOTAL-BY-CATEGORY NX )@@G@@@G@@@@ 225-228 EMPL BENEFIT PCT - ANAL/PROG COST-TOTAL-BY-CATEGORNY )@@G@@Y @G@@@@ 233-236 NBR. OF TRANSACTIONS MONTHLY ACCOUNTNZ )@@G@@ING LOG @]@@@@SPACE 1 @G@@@@ MULTIPLY POS. 29-32 COST-SUMMARY-BYOA )@@G@@-ACCT (CSBA) FILE BY POS. 40-44 @F@@@@ COST-TOTALS-BY-CATEGORY (CTBCOB )@@G@@) FILE GIVING POS. 33-36 CSBA FILE. @]@@@@SPACE 1 @F@@@@ MULTIPLY POOC )@@G@@S. 37-40 CSBA FILE BY POS. 45-49 CTBC FILE GIVING POS.@#@@@@ 41-44 CSBA OD )@@G@@FILE. @]@@@@SPACE 1 @F@@@@ MULTIPLY POS. 45-48 CSBA FILE BY POS. 50-OE )@@G@@54 CTBC FILE GIVING POS.@#@@@@ 49-52 CSBA FILE. @]@@@@SPACE 1 @F@@@@OF )@@G@@ MULTIPLY POS. 169-172 CSBA FILE BY POS. 35-39 CTBC FILE GIVING @^@@@@OG )@@G@@ POS. 173-176 CSBA FILE.@]@@@@SPACE 1 @F@@@@ MULTIPLY POS. 177-180 COH )@@G@@SBA FILE BY POS. 35-39 CTBC FILE GIVING @^@@@@ POS. 181-184 CSBA FILE.OI )@@G@@@]@@@@SPACE 1 @F@@@@ MULTIPLY POS. 185-188 CSBA FILE BY POS. 30-34 COJ )@@G@@TBC FILE GIVING @^@@@@ POS. 189-192 CSBA FILE.@]@@@@SPACE 1 @F@@@@OK )@@G@@ 3. READ THE YEAR-TO-DATE ACCOUNTING LOG FILE AND ADD THE MONTHLY @F@@@@OL )@@G@@ ACCOUNTING LOG RECORDS TO IT. AT THE SAME TIME ACCUMULATE THE @G@@@@OM )@@G@@ DATA NECESSARY TO CREATE THE COMPUTER UTILIZATION RECAP REPORT. ON )@@G@@@]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@SPACE 1 @#@@@@ 1. DATA ENOO )@@G@@TRY: @C@@@@ A. INFOREX - OPERATOR STATISTICS FILE. @D@@@@ BOP )@@G@@. KEY PUNCH - OPERATOR TIME CARDS (TEMPORARY). @B@@@@ OQ )@@G@@ RECORD CARD COUNTS. @]@@@@SPACE 1 @A@@@@ 2. COST-TOTALS-BY-CATEOR )@@G@@GORY FILE. @]@@@@SPACE 1 @B@@@@ 3. ANALYSIS/PROGRAMMING TIME FILE OS )@@G@@(SCS).@]@@@@SPACE 1 @A@@@@ 4. MONTHLY ACCOUNTING LOG FILE. @]@@@@OT )@@G@@SPACE 1 @C@@@@ 5. YEAR-TO-DATE ACCOUNTING LOG FILE (SEP-AUG).@]@@@@OU )@@G@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE 1 @A@@@@ 1. COST-SUMMARY-OV )@@G@@BY-ACCT FILE. @]@@@@SPACE 1 @B@@@@ 2. YEAR-TO-DATE ACCOUNTING LOW )@@G@@OG FILE. @]@@@@SPACE 1 @B@@@@ 3. COMPUTER UTILIZATION RECAP LISTOX )@@G@@ING. @[@@@@EJECT @#@@@@3PROGRAM FLOWCHART@[@@@@EJECT @]@@@@2H1551070 OY )@@G@@@#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@ TO CROZ )@@G@@EATE A DATA PROCESSING SERVICES SUMMARY LISTING BY THE FULL @F@@@@ ACCOUPA )@@G@@NT CODE WITH TOTAL PAGES BY THE MAJOR 3 DIGIT ACCOUNT CODES,@F@@@@ BY BUPB )@@G@@DGET, BY BUREAU AND BY DEPUTYSHIP, WITH AN OVERALL TOTAL FOR@F@@@@ THE DPC )@@G@@EPARTMENT. (ALSO, ACCUMULATE & PRINT A YEAR-TO-DATE TOTAL @F@@@@ UPON PD )@@G@@EACH OF THE ABOVE CONTROL BREAKS). TO CREATE BILLING MEMOS @F@@@@ FOR APE )@@G@@PPROPRIATE ACCOUNTS. TO UPDATE THE YEAR-TO-DATE COST SUMMARY@[@@@@ FILE.PF )@@G@@@]@@@@SPACE 2 @]@@@@ METHOD: @]@@@@SPACE 1 @]@@@@COLUMN 6 PG )@@G@@@F@@@@ 1. READ AND SAVE THE DATA FOUND IN DECODE #02 TABLE-DISC-JA (1 PH )@@G@@@#@@@@ RECORD). @]@@@@SPACE 1 @F@@@@ 2. READ AND SAVE THE DPI )@@G@@ATA FOUND IN DECODE #03 TABLE-DISC-JA @ @@@@ (CURRENTLY 11 RECORPJ )@@G@@DS). @]@@@@SPACE 1 @F@@@@ 3. READ AND UPDATE THE MONTHLY COST-SUMMPK )@@G@@ARY-BY-ACCT (CSBA) FILE @F@@@@ BY THE FOLLOWING STEPS; AT THE SAME TPL )@@G@@IME SORTING THE MONTHLY @G@@@@ FILE WITH THE YEAR-TO-DATE FILE (POS.PM )@@G@@ 1-21) AND CREATING A NEW @^@@@@ YEAR-TO-DATE FILE. @]@@@@SPACE PN )@@G@@1 @F@@@@ STEP1 - MATCH THE MONTHLY COST-SUMMARY-BY-ACCT FILE PO )@@G@@TO @F@@@@ DECODE #01 TABLE-DISC-JA, BY 3 DIGIT ACCOUNT CODE, APP )@@G@@ND @F@@@@ COMPLETE THE FOLLOWING FIELDS: (RECORD '0' WILL BE UPQ )@@G@@SED) @]@@@@SPACE 1 @G@@@@ POS. ----------------------METHOPR )@@G@@D------------------------ @D@@@@ 1-5 MOVE FROM POS. 14-18 PS )@@G@@TABLE-DISC-JA. @F@@@@ 53-152 'COST' FIELDS - PASSING THE FILE PT )@@G@@SAVED IN #1 ABOVE @F@@@@ SEQUENTIALLY, DIVIDE THE 'UNITS' PU )@@G@@FIELD (POS. 29) @F@@@@ INTO THE APPROPRIATE (OR NEXT) 'NPV )@@G@@O.' FIELD IN THE @E@@@@ CSBA RECORD AND MULTIPLY THE RESUPW )@@G@@LT BY THE @G@@@@ 'COST-PER-UNIT' FIELD (POS. 30-36) GIVIPX )@@G@@NG THE 'COST' @B@@@@ FIELD IN THE CSBA RECORD. @E@@@@PY )@@G@@ 193-196 MULTIPLY POS. 233-236 (CSBA) BY POS. 20-22 OF@ @@@@ PZ )@@G@@ TABLE-DISC-JA. @F@@@@ 197-200 USING THE RECORD SAVED IN #QA )@@G@@1 ABOVE, MULTIPLY THE @F@@@@ FIELDS INDICATED FROM DECODQB )@@G@@E #01 TABLE-DISC-JA BY @F@@@@ THE FIELDS INDICATED IN THEQC )@@G@@ 'SAVED' RECORD AND @F@@@@ ADD THE RESULTING AMOUNTS TQD )@@G@@O OBTAIN THIS FIGURE: @F@@@@ POS. 23-26 (RECORD '0') BQE )@@G@@Y POS. 39-45 (SAVED) @F@@@@ POS. 27-30 (RECORD '0') BQF )@@G@@Y POS. 46-50 (SAVED) @F@@@@ POS. 31-34 (RECORD '0') BQG )@@G@@Y POS. 51-55 (SAVED) @F@@@@ POS. 35-38 (RECORD '0') BQH )@@G@@Y POS. 56-60 (SAVED) @F@@@@ POS. 39-42 (RECORD '0') BQI )@@G@@Y POS. 61-65 (SAVED) @F@@@@ 201-204 READ AND SAVE THE BILLING AQJ )@@G@@DJUSTMENT CARDS FOR @F@@@@ FUTURE USE. AT THE SAME TIMQK )@@G@@E ACCUMULATE THE AMOUNTS@E@@@@ FOUND IN POS. 72-80 TO PROVQL )@@G@@IDE THIS FIGURE. @D@@@@ 229-232 MOVE FROM POS. 43-50 TABLE-DISC-JQM )@@G@@A. @]@@@@SPACE 1 @F@@@@ 4. AFTER THE SORTING OF THE MONTHLY FILEQN )@@G@@S HAS BEEN ACCOMPLISHED,@F@@@@ READ THE YEAR-TO-DATE FILE SEQUENTIALQO )@@G@@LY, AND CREATE THE DATA @F@@@@ PROCESSING SERVICES SUMMARY LISTING UQP )@@G@@SING ONLY THE MONTHLY @G@@@@ DATA FOR THE DETAIL LINES. HOWEVER, AQQ )@@G@@LL DATA SHOULD BE USED TO @G@@@@ PROVIDE THE 'TOTAL COST OF DATAQR )@@G@@ PROCESSING SERVICES - YEAR-TO- @#@@@@ DATE' FIGURE.@]@@@@SPACE QS )@@G@@1 @F@@@@ SUMMARY LISTINGS WILL BE CREATED FOR THE SIX MAJOR BREAQT )@@G@@KS; IE@F@@@@ BY 12-DIGIT ACCOUNT CODE, BY 3-DIGIT ACCOUNT CODE, BY BQU )@@G@@UDGET,@G@@@@ BY BUREAU, BY DEPUTYSHIP, AND AN OVERALL DEPARTMENT TOTQV )@@G@@AL. THE @F@@@@ ABILITY TO REPLACE/RERUN THE MONTHLY SUMMARY AND QW )@@G@@BILLING IS @#@@@@ REQUIRED. @]@@@@SPACE 1 @F@@@@ 5. DURING QX )@@G@@THE CREATION OF THE DATA PROCESSING SERVICES SUMMARY @E@@@@ LISTINGQY )@@G@@, EACH TIME A NEW 3DIGIT CODE IS ENCOUNTERED THE@G@@@@ MATCHING TABLQZ )@@G@@E-DISC-JA (DECODE #01) RECORD SHOULD BE FOUND AND @G@@@@ IF THE RA )@@G@@'BILLING SWITCH' POS. 19 IS SET THE MONTHLY RECORD ONLY @F@@@@ SRB )@@G@@HOULD BE WRITTEN TO A TABLE (40 ENTRIES MAX.). SOME OF THE @F@@@@ 3RC )@@G@@-DIGIT CODES HAVE A PERCENTAGE OF THE COSTS PAID BY OTHER @F@@@@ CRD )@@G@@ODES, AS FOUND IN DECODE 01, TABLE-DISC-JA, RECORD 5 AND @G@@@@ ARE )@@G@@BOVE. THESE COSTS MUST BE ADDED TO THE APPROPRIATE ACCOUNT IN @#@@@@RF )@@G@@ THE TABLE. @]@@@@SPACE 1 @F@@@@ 6. BILLING MEMOS WILL BE CRERG )@@G@@ATED FOR ACCOUNTS REPRESENTED IN THE@F@@@@ ABOVE CREATED TABLE, USINRH )@@G@@G THE DATA FOUND IN SAID TABLE AND @E@@@@ THE BILLING ADJUSTMENT CARI )@@G@@RDS (SEE #3). FOR SOME OF THE @F@@@@ CONTRACT ACCOUNTS THERE ARE MAXRJ )@@G@@IMUM FEES THAT CAN BE CHARGED,@G@@@@ AS FOUND IN DECODE 01, TABLE-DIRK )@@G@@SC-JA, RECORD 4. IF FEES EXCEED @F@@@@ THE MAXIMUM, THEN THEY MURL )@@G@@ST BE READJUSTED TO THE MAXIMUM. @]@@@@SPACE 2 @]@@@@ INPUTS: RM )@@G@@@]@@@@SPACE 1 @F@@@@ 1. BILLING ADJUSTMENT CARDS (SUBMITTED BY ASSIRN )@@G@@STANT DIRECTOR) @]@@@@SPACE 1 @B@@@@ 2. COST-SUMMARY-BY-ACCT FILERO )@@G@@ - MONTHLY @]@@@@SPACE 1 @F@@@@ 3. COST-SUMMARY-BY-ACCT FILE - YEARP )@@G@@R-TO-DATE (NOT PRESENT WHEN @A@@@@ PROCESSING SEPTEMBER DATA) RQ )@@G@@@]@@@@SPACE 1 @D@@@@ 4. DECODE #01, 02 & 03 OF THE TABLE-DISC-JA FIRR )@@G@@LE @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SPACE 1 @F@@@@ 1. CRS )@@G@@OST-SUMMARY-BY-ACCT FILE - YEAR-TO-DATE (INITIATED WHEN @A@@@@ PRT )@@G@@ROCESSING SEPTEMBER DATA) @]@@@@SPACE 1 @C@@@@ 2. DATA PROCESSIRU )@@G@@NG SERVICES SUMMARY LISTING @]@@@@SPACE 1 @F@@@@ 3. DATA PROCESSIRV )@@G@@NG SERVICES BILLING MEMOS (APPROPRIATE ACCOUNTS @]@@@@ ONLY) @[@@@@RW )@@G@@EJECT @]@@@@COLUMN 2 @#@@@@3PROGRAM FLOWCHART@[@@@@EJECT @]@@@@2H1551RX )@@G@@080 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@RY )@@G@@ TO CREATE A DATA PROCESSING ACTIVITY SUMMARY LISTING BY 3 DIGIT @G@@@@RZ )@@G@@ ACCOUNT CODE, WITH TOTALS BY BUDGET, BUREAU AND DEPUTYSHIP WITH AN SA )@@G@@@A@@@@ OVERALL TOTAL FOR THE DEPARTMENT. @]@@@@SPACE 2 @]@@@@ METHOSB )@@G@@D: @]@@@@SPACE 1 @]@@@@COLUMN 6 @F@@@@ 1. READ THE COST-TOTALSC )@@G@@S-BY-CATEGORY FILE (1 RECORD) AND PICK-UP @F@@@@ HOURLY RATES FOR HESD )@@G@@ADING ON MONTHLY REPORT (NOT APPLICABLE ON@ @@@@ YEAR-TO-DATE REPORTSE )@@G@@). @]@@@@SPACE 1 @F@@@@ 2. READ AND MATCH (ON 3 DIGIT ACCOUNT COSF )@@G@@DE) TABLE-DISC-JA DECODE@F@@@@ #01 AND THE COST-SUMMARY-BY-ACCT FILESG )@@G@@ AND CREATE THE MONTHLY @F@@@@ AND YEAR-TO-DATE DATA PROCESSING ACTISH )@@G@@VITY SUMMARY LISTING(S).@]@@@@SPACE 2 @]@@@@ INPUTS: @]@@@@SPACE SI )@@G@@1 @A@@@@ 1. COST-TOTALS-BY-CATEGORY FILE @]@@@@SPACE 1 @C@@@@SJ )@@G@@ 2. COST-SUMMARY-BY-ACCT FILE - YEAR-TO-DATE @]@@@@SPACE 1 @ @@@@SK )@@G@@ 3. DECODE #01 TABLE-DISC-JA @]@@@@SPACE 2 @]@@@@ OUTPUTS: @]@@@@SL )@@G@@SPACE 1 @C@@@@ 1. DATA PROCESSING ACTIVITY SUMMARY - MONTHLY @]@@@@SM )@@G@@SPACE 1 @F@@@@ 2. DATA PROCESSING ACTIVITY SUMMARY - YEAR-TO-DATE (SN )@@G@@NEED NOT BE @C@@@@ DONE IF ONLY ONE MONTH INCLUDED ON FILE) @[@@@@SO )@@G@@EJECT @]@@@@COLUMN 2 @#@@@@3PROGRAM FLOWCHART@[@@@@EJECT @]@@@@2H1551SP )@@G@@090 @#@@@@3PROGRAM NARRATIVE@]@@@@ PURPOSE: @]@@@@SPACE 1 @F@@@@SQ )@@G@@ CREATES A LISTING OF ACCOUNTS IN WHICH ALL, OR A PORTION OF, THE @B@@@@SR )@@G@@ COSTS ARE PAID BY A DIFFERENT ACCOUNT. @]@@@@SPACE 2 @]@@@@ METHOSS )@@G@@D: @]@@@@SPACE 1 @D@@@@ ACCOUNTS ARE OBTAINED FROM TABLE-DISC-JA ST )@@G@@AND LISTED. @[@@@@EJECT @#@@@@3PROGRAM FLOWCHART@^@@@[1SCHEDULING PROCEDSU )@@G@@URES @[@@@[2DAILY@F@@@[ H15500 IS RUN DAILY AND IS STARTED BY RECERR EASV )@@G@@CH NIGHT. H15501 @F@@@[ IS RUN DAILY, STARTED BY H15500. EACH MORNING,SW )@@G@@ MAKE SURE BOTH @^@@@[ HAVE RUN SUCCESSFULLY. @[@@@[SPACE @F@@@[ THERESX )@@G@@ ARE TWO DECKS (PREP01 [EOM] AND PREP01 [BOM]) TO BE RUN AT @E@@@[ THE ESY )@@G@@ND OF EACH MONTH TO MERGE DAILY INTO MONTHLY FILES. @[@@@[SPACE @]@@@[SZ )@@G@@2MONTHLY @F@@@[ YOU WILL RECEIVE TWO TAPES FROM DATA-ENTRY, A DECK OFTA )@@G@@ CARDS FROM @G@@@[ TONY, AND H15511, H15512, H15513, H15515 REQUEST SHEETB )@@G@@TS FROM TONY. @[@@@[SPACE @F@@@[ THE DECK OF CARDS IS TO BE PLACED ITC )@@G@@N THE PREP11 RUN DECK AND @]@@@[ SUBMITTED. @[@@@[SPACE @G@@@[ THE STD )@@G@@GS CHANGES IN FILE H155*JA-SGS NEED TO BE MADE TO EACH OF THE @F@@@[TE )@@G@@ SKELS H15511-SGS THRU H15516-SGS USING THE REQUEST SHEETS FROM @F@@@[TF )@@G@@ TONY, THE TAPE #'S FROM DATA ENTRY, AND THE DATES TO PROCESS. @C@@@[TG )@@G@@ (DATE CHANGES IN H15514-SGS AND H15516-SGS). @[@@@[SPACE @G@@@[ WHEN TH )@@G@@ALL FILES ARE READY, START H155*ABS/*/*.H15511, IT WILL START @F@@@[TI )@@G@@ H15512. IF THEY COME OUT ALL RIGHT, THEN START H15513. IT WILL @B@@@[TJ )@@G@@ START H15514, H15515, H15516 IN ORDER. @[@@@[SPACE @F@@@[ AFTER H1551TK )@@G@@6 HAS FINISHED, THE NUMBER OF THE TAPE CREATED IN @E@@@[ H15516 HAS TL )@@G@@TO BE ADDED TO THE SKEL IN H155*ABS.JA-BU-TABLE.@[@@@[SPACE @G@@@[ ALL RTM )@@G@@UNSTREAM INFORMATION NEED BE PLACED IN THE JOB-ACCOUNTING BOX @D@@@[TN )@@G@@ IN SYSTEMS PROGRAMMING. ALL REPORTS GO TO TONY. @[@@@[EJECT @^@@@[TO )@@G@@2H15500 REQUEST SHEET @D@@@[ FROM:................. TO: STP )@@G@@CHEDULING @E@@@[ DATA PROCESSITQ )@@G@@NG @]@@@[SPACE 2 @E@@@[ P2) USE OPTIONAL (NON-CURRENT) INPUT LOG TR )@@G@@TAPE? YES ...... @E@@@[ TS )@@G@@NO ...... @]@@@[SPACE 1 @F@@@[ P2A) NON-CUR LOG TAPE FILENAME ....TT )@@G@@........... REEL-NO ........ @]@@@[SPACE 2 @E@@@[ P3) CREATE DAILY TU )@@G@@ACCOUNT FILE (H150*DAILY-ACCT)? YES...... @E@@@[ TV )@@G@@ NO ...... @]@@@[SPACE 1 @F@@@[ P3A) GENERATW )@@G@@TE SYMBIONT DEVICE USAGE REPORT? YES ... # COPIES.... @D@@@[ TX )@@G@@ NO ... @]@@@[SPACE 1 @F@@@[ P3B) TY )@@G@@GENERATE LIST OF ALL RUNS REPORT? YES ... # COPIES ... @C@@@[ TZ )@@G@@ NO ... @]@@@[SPACE 2 @E@@@[ UA )@@G@@ SIGNATURE:.............@E@@@[ UB )@@G@@ DATE:................. @[@@@[EJECT @^@@@[2H1550UC )@@G@@1 REQUEST SHEET @D@@@[ FROM:................. TO: SCHEDULUD )@@G@@ING @E@@@[ DATA PROCESSING UE )@@G@@@]@@@[SPACE 2 @F@@@[ P2) INPUT DAILY ACCOUNT FILE (H150*DAILY-ACCT)?UF )@@G@@ YES ... NO ... @]@@@[SPACE 1 @C@@@[ P2A) IF NON-CURRENT SPECIFY RUG )@@G@@EEL-NO: ........ @]@@@[SPACE 2 @F@@@[ P3) INPUT OLD CUMULATIVE DAILUH )@@G@@Y ACCOUNT FILE (H155*CUM-DLY-ACNT)? @^@@@[ YES ... NO ... @]@@@[UI )@@G@@SPACE 1 @C@@@[ P3A) IF NON-CURRENT SPECIFY REEL-NO: ........ @]@@@[UJ )@@G@@SPACE 2 @E@@@[ P4) SELECT MFD SUMMARY INFO BY ACCNT-NO? YES ... NO .UK )@@G@@.. @]@@@[SPACE 1 @D@@@[ P4A) GENERATE MFD SUMMARY REPORT? YES ...UL )@@G@@ NO ... @]@@@[SPACE 2 @F@@@[ P5) SELECT TAPE LIBRARY SUMMARY INFUM )@@G@@O BY ACCNT-NO? YES ... NO ... @]@@@[SPACE 1 @E@@@[ P5A) GENERATE TAPUN )@@G@@E LIBRARY SUMMARY REPORT? YES ... NO ... @]@@@[SPACE 2 @F@@@[ P6) OUO )@@G@@UTPUT NEW CUMULATIVE DAILY ACCOUNT FILE (H155*CUM-DLY-ACNT)?@^@@@[ YUP )@@G@@ES ... NO ... @]@@@[SPACE 2 @F@@@[ P7) GENERATE DAILY ACCOUNT SUUQ )@@G@@MMARY REPORT? YES ... # COPIES ... @D@@@[ UR )@@G@@ NO ... @]@@@[SPACE 1 @G@@@[ P7A) RANGE OF DAILY SUMUS )@@G@@MARY REPORT: FIRST DAY ..... LAST DAY ..... @]@@@[SPACE 2 @E@@@[UT )@@G@@ P8) OUTPUT MONTHLY ACCNT SUMMARY FIE (H155*MTH-ACNT-SUM)? @^@@@[ YUU )@@G@@ES ... NO ... @]@@@[SPACE 1 @F@@@[ P8A) DATE FOR MONTHLY ACCNT SUV )@@G@@UMMARY? MONTH ..... YEAR ...... @]@@@[SPACE 2 @F@@@[ P9) GENERATUW )@@G@@E MONTHLY ACCNT SUMMARY REPORT? YES ... # COPIES ... @D@@@[ UX )@@G@@ NO ... @]@@@[SPACE 2 @F@@@[ UY )@@G@@ SIGNATURE:.................. @E@@@[ UZ )@@G@@ DATE:..................@[@@@[EJECT @^@@@[VA )@@G@@2H15511 REQUEST SHEET @D@@@[ FROM:.................. TO: SVB )@@G@@CHEDULING @E@@@[ DATA PROCESSIVC )@@G@@NG @]@@@[SPACE 2 @C@@@[ P1) PROCESSING FOR: MONTH ...... YEAR ...VD )@@G@@... @C@@@[ XX XX @]@@@[SPACE VE )@@G@@2 @D@@@[ P2) DP ADMIN SALARIES: DOLLARS ....... CENTS .... @D@@@[VF )@@G@@ XXXXX XX @]@@@[SPACE 2 VG )@@G@@@E@@@[ P3) DP DATA ENTRY SALARIES: DOLLARS ....... CENTS .... @D@@@[VH )@@G@@ XXXXX XX@]@@@[SPACE 2 VI )@@G@@@E@@@[ P4) DP ANAL-PROGRAMMER SALARIES: DOLLARS ....... CENTS ....@E@@@[VJ )@@G@@ XXXXX XX @]@@@[SPACE VK )@@G@@2 @F@@@[ P5) DP COMPUTER OPERATIONS SALARIES: DOLLARS ....... CENTS VL )@@G@@.... @F@@@[ XXXXX VM )@@G@@ XX @]@@@[SPACE 2 @E@@@[ P6) DATA ENTRY EQUIPMENT COSTS: DOLLARS .VN )@@G@@...... CENTS .... @E@@@[ XXXXX VO )@@G@@ XX @]@@@[SPACE 2 @E@@@[ P7) COMPUTER EQUIPMENT COSTS: DOLLAVP )@@G@@RS ....... CENTS .... @E@@@[ XXXVQ )@@G@@XXX XX @]@@@[SPACE 2 @D@@@[ P8) DP AFTER 5PM MAINT: DOLLAVR )@@G@@RS ....... CENTS .... @D@@@[ XXXXX VS )@@G@@ XX @]@@@[SPACE 2 @F@@@[ VT )@@G@@ SIGNATURE:.................. @E@@@[ VU )@@G@@ DATE:..................@[@@@[EJECT @^@@@[2H15512 REQUEST SHEET @D@@@[VV )@@G@@ FROM:.................. TO: SCHEDULING @E@@@[ VW )@@G@@ DATA PROCESSING @]@@@[SPACE 2 @E@@@[VX )@@G@@ P2) ACCOUNTING INPUT IS: CURRENT .... NON-CURRENT .... @]@@@[SPACE VY )@@G@@1 @D@@@[ P2A) PROCESSING FOR: MONTH .... DAY .... YEAR .... @]@@@[VZ )@@G@@SPACE 2 @B@@@[ P3) DATA-ENTRY STATISTICS FILE IS: @]@@@[SPACE WA )@@G@@1 @A@@@[ INFOREX .... CADE .... @]@@@[SPACE 1 @B@@@[WB )@@G@@ TAPE .... MASS-STORAGE .... @]@@@[SPACE 1 @C@@@[ P3A) WC )@@G@@ REEL-NOS IF TAPE: ......,......,...... @]@@@[SPACE 1 @A@@@[ P3B) WD )@@G@@ STATISTICS RPT SELECTION: @]@@@[SPACE 1 @A@@@[ WE )@@G@@ NONE: ...... @]@@@[SPACE 1 @B@@@[ JOB-NO:WF )@@G@@ ...... @]@@@[SPACE 1 @B@@@[ OPERATOR-NO: WG )@@G@@......@]@@@[SPACE 1 @A@@@[ BOTH: ...... @]@@@[WH )@@G@@SPACE 1 @ @@@[ NO. COPIES: ...... @]@@@[SPACE 1 @C@@@[WI )@@G@@ P3B1) DATA-ENTRY COST FACTOR (IF INFOREX): @]@@@[SPACE 1 @C@@@[WJ )@@G@@ DOLLARS: ...... CENTS: ...... @]@@@[SPACE 2 @D@@@[WK )@@G@@ P4) ACTUAL DATA-ENTRY MANHOURS IN PROCESSING MONTH:@]@@@[SPACE 1 WL )@@G@@@D@@@[ HOURS: ...... TENTHS: ......@]@@@[SPACE WM )@@G@@1 @C@@@[ P4A) NO. COPIES OF DE-ADJUSTMENT RPT: ...... @]@@@[SPACE WN )@@G@@2 @F@@@[ SIGNATURE:.............WO )@@G@@..... @E@@@[ DATE:..................WP )@@G@@@[@@@[EJECT @^@@@[2H15513 REQUEST SHEET @]@@@[SPACE 1 @D@@@[ FROM:WQ )@@G@@.................. TO: SCHEDULING @E@@@[ WR )@@G@@ DATA PROCESSING @]@@@[SPACE 2 @E@@@[ P2) PWS )@@G@@ROCESSING FOR: MONTH ...... DAY ...... YEAR ...... @]@@@[SPACE 2 WT )@@G@@@E@@@[ P3) ACCOUNTING INPUT IS: CURRENT .... NON-CURRENT .... @]@@@[WU )@@G@@SPACE 2 @B@@@[ P4) NO. OF COPIES OF COST-CAT-RPT: .... @]@@@[SPACE WV )@@G@@2 @B@@@[ P5) NO. OF COPIES OF EXP-BUD-RPT: .... @]@@@[SPACE 2 WW )@@G@@@F@@@[ SIGNATURE:.................. WX )@@G@@@E@@@[ DATE:..................@[@@@[WY )@@G@@EJECT @^@@@[2H15514 REQUEST SHEET @D@@@[ FROM:.................. WZ )@@G@@ TO: SCHEDULING @E@@@[ DXA )@@G@@ATA PROCESSING @]@@@[SPACE 1 @]@@@[SPACE 2 @F@@@[ P1) ACCOUNTXB )@@G@@ING FILES TO BE RESTORED ARE FOR: MONTH .... YEAR ....@]@@@[SPACE 2 XC )@@G@@@F@@@[ SIGNATURE:.................. XD )@@G@@@E@@@[ DATE:..................@[@@@[XE )@@G@@EJECT @^@@@[2H15515 REQUEST SHEET @D@@@[ FROM:.................. XF )@@G@@ TO: SCHEDULING @E@@@[ DXG )@@G@@ATA PROCESSING @]@@@[SPACE 1 @]@@@[SPACE 2 @C@@@[ P2) PROCESXH )@@G@@SING FOR: MONTH ...... YEAR ...... @]@@@[SPACE 2 @E@@@[ P3) ACCOUNXI )@@G@@TING INPUT IS: CURRENT .... NON-CURRENT .... @]@@@[SPACE 2 @C@@@[XJ )@@G@@ P4) SELECT OLD-YTD-ACNT FILE? YES .... NO ....@]@@@[SPACE 1 @E@@@[XK )@@G@@ P4A) OLD-YTD-ACNT FILE IS DATED: MONTH ...... YEAR ...... @]@@@[SPACE XL )@@G@@2 @C@@@[ P5) NO. OF COPIES OF UTILIZATION RPT: ...... @]@@@[SPACE XM )@@G@@2 @E@@@[ P6) SELECT OLD-YTD-SUM BY ACCNT FILE? YES .... NO .... XN )@@G@@@]@@@[SPACE 1 @F@@@[ P6A) OLD-YTD-SUM BY ACCNT FILE IS DATED: MONTH XO )@@G@@...... YEAR ......@]@@@[SPACE 2 @C@@@[ P7) NO. OF COPIES OF DP-SRVSXP )@@G@@-SUM RPT: .... @]@@@[SPACE 2 @C@@@[ P8) NO. OF COPIES OF DP-SRVSXQ )@@G@@-BILL RPT: .... @]@@@[SPACE 2 @B@@@[ P9) NO. OF COPIES OF MTH-DP-XR )@@G@@RPT: .... @]@@@[SPACE 2 @B@@@[ P10) NO. OF COPIES OF YTD-DP-RPT: .XS )@@G@@... @]@@@[SPACE 2 @B@@@[ P11) NO. OF COPIES OF DP-LCH-LIST: .... XT )@@G@@@]@@@[SPACE 2 @F@@@[ SIGNATURE:.XU )@@G@@................. @F@@@[ DATE:......XV )@@G@@............. @[@@@[EJECT @^@@@[2H15516 REQUEST SHEET @D@@@[ FROM:XW )@@G@@.................. TO: SCHEDULING @E@@@[ XX )@@G@@ DATA PROCESSING @]@@@[SPACE 2 @G@@@[ P1) AXY )@@G@@CCOUNTING FILES TO BE BACKED-UP ARE FOR: MONTH .... YEAR .... @]@@@[XZ )@@G@@SPACE 2 @F@@@[ SIGNATURE:.......YA )@@G@@........... @E@@@[ DATE:............YB )@@G@@......@^@[@@1SCHEDULING PROCEDURES @F@[@@ THE FIRST TWO RUNS OF THIS SYYC )@@G@@STEM, H15500 AND H15501, WILL BE RUN@F@[@@ ON A DAILY BASIS. H15500 SHOUYD )@@G@@LD BE RUN AFTER RECERR, AND H15501 @F@[@@ SEQUENCED AFTER H15500. H1551YE )@@G@@2, H15513, H15515, AND H15516, ARE @F@[@@ MONTHLY RUNS. THEY WILL BE RUYF )@@G@@N AFTER THE LAST WORKING DAY OF THE @]@[@@ MONTH. @[@[@@EJECT @^@[@@YG )@@G@@2H15500 REQUEST SHEET @D@[@@ FROM:................. TO: SYH )@@G@@CHEDULING @E@[@@ DATA PROCESSIYI )@@G@@NG @]@[@@SPACE 2 @E@[@@ P2) USE OPTIONAL (NON-CURRENT) INPUT LOG YJ )@@G@@TAPE? YES ...... @E@[@@ YK )@@G@@NO ...... @]@[@@SPACE 1 @F@[@@ P2A) NON-CUR LOG TAPE FILENAME ....YL )@@G@@........... REEL-NO ........ @]@[@@SPACE 2 @E@[@@ P3) CREATE DAILY YM )@@G@@ACCOUNT FILE (H150*DAILY-ACCT)? YES...... @E@[@@ YN )@@G@@ NO ...... @]@[@@SPACE 1 @F@[@@ P3A) GENERAYO )@@G@@TE SYMBIONT DEVICE USAGE REPORT? YES ... # COPIES.... @D@[@@ YP )@@G@@ NO ... @]@[@@SPACE 1 @F@[@@ P3B) YQ )@@G@@GENERATE LIST OF ALL RUNS REPORT? YES ... # COPIES ... @C@[@@ YR )@@G@@ NO ... @]@[@@SPACE 2 @E@[@@ YS )@@G@@ SIGNATURE:.............@E@[@@ YT )@@G@@ DATE:................. @[@[@@EJECT @^@[@@2H1550YU )@@G@@1 REQUEST SHEET @D@[@@ FROM:................. TO: SCHEDULYV )@@G@@ING @E@[@@ DATA PROCESSING YW )@@G@@@]@[@@SPACE 2 @F@[@@ P2) INPUT DAILY ACCOUNT FILE (H150*DAILY-ACCT)?YX )@@G@@ YES ... NO ... @]@[@@SPACE 1 @C@[@@ P2A) IF NON-CURRENT SPECIFY RYY )@@G@@EEL-NO: ........ @]@[@@SPACE 2 @F@[@@ P3) INPUT OLD CUMULATIVE DAILYZ )@@G@@Y ACCOUNT FILE (H155*CUM-DLY-ACNT)? @^@[@@ YES ... NO ... @]@[@@ZA )@@G@@SPACE 1 @C@[@@ P3A) IF NON-CURRENT SPECIFY REEL-NO: ........ @]@[@@ZB )@@G@@SPACE 2 @E@[@@ P4) SELECT MFD SUMMARY INFO BY ACCNT-NO? YES ... NO .ZC )@@G@@.. @]@[@@SPACE 1 @D@[@@ P4A) GENERATE MFD SUMMARY REPORT? YES ...ZD )@@G@@ NO ... @]@[@@SPACE 2 @F@[@@ P5) SELECT TAPE LIBRARY SUMMARY INFZE )@@G@@O BY ACCNT-NO? YES ... NO ... @]@[@@SPACE 1 @E@[@@ P5A) GENERATE TAPZF )@@G@@E LIBRARY SUMMARY REPORT? YES ... NO ... @]@[@@SPACE 2 @F@[@@ P6) OZG )@@G@@UTPUT NEW CUMULATIVE DAILY ACCOUNT FILE (H155*CUM-DLY-ACNT)?@^@[@@ YZH )@@G@@ES ... NO ... @]@[@@SPACE 2 @F@[@@ P7) GENERATE DAILY ACCOUNT SUZI )@@G@@MMARY REPORT? YES ... # COPIES ... @D@[@@ ZJ )@@G@@ NO ... @]@[@@SPACE 1 @G@[@@ P7A) RANGE OF DAILY SUMZK )@@G@@MARY REPORT: FIRST DAY ..... LAST DAY ..... @]@[@@SPACE 2 @E@[@@ZL )@@G@@ P8) OUTPUT MONTHLY ACCNT SUMMARY FIE (H155*MTH-ACNT-SUM)? @^@[@@ YZM )@@G@@ES ... NO ... @]@[@@SPACE 1 @F@[@@ P8A) DATE FOR MONTHLY ACCNT SZN )@@G@@UMMARY? MONTH ..... YEAR ...... @]@[@@SPACE 2 @F@[@@ P9) GENERATZO )@@G@@E MONTHLY ACCNT SUMMARY REPORT? YES ... # COPIES ... @D@[@@ ZP )@@G@@ NO ... @]@[@@SPACE 2 @F@[@@ ZQ )@@G@@ SIGNATURE:.................. @E@[@@ ZR )@@G@@ DATE:..................@[@[@@EJECT @^@[@@ZS )@@G@@2H15511 REQUEST SHEET @D@[@@ FROM:.................. TO: SZT )@@G@@CHEDULING @E@[@@ DATA PROCESSIZU )@@G@@NG @]@[@@SPACE 2 @C@[@@ P1) PROCESSING FOR: MONTH ...... YEAR ...ZV )@@G@@... @C@[@@ XX XX @]@[@@SPACE ZW )@@G@@2 @D@[@@ P2) DP ADMIN SALARIES: DOLLARS ....... CENTS .... @D@[@@ZX )@@G@@ XXXXX XX @]@[@@SPACE 2 ZY )@@G@@@E@[@@ P3) DP DATA ENTRY SALARIES: DOLLARS ....... CENTS .... @D@[@@ZZ )@@G@@ XXXXX XX@]@[@@SPACE 2 AA )@@G@@@E@[@@ P4) DP ANAL-PROGRAMMER SALARIES: DOLLARS ....... CENTS ....@E@[@@AB )@@G@@ XXXXX XX @]@[@@SPACE AC )@@G@@2 @F@[@@ P5) DP COMPUTER OPERATIONS SALARIES: DOLLARS ....... CENTS AD )@@G@@.... @F@[@@ XXXXX AE )@@G@@ XX @]@[@@SPACE 2 @E@[@@ P6) DATA ENTRY EQUIPMENT COSTS: DOLLARS .AF )@@G@@...... CENTS .... @E@[@@ XXXXX AG )@@G@@ XX @]@[@@SPACE 2 @E@[@@ P7) COMPUTER EQUIPMENT COSTS: DOLLAAH )@@G@@RS ....... CENTS .... @E@[@@ XXXAI )@@G@@XXX XX @]@[@@SPACE 2 @D@[@@ P8) DP AFTER 5PM MAINT: DOLLAAJ )@@G@@RS ....... CENTS .... @D@[@@ XXXXX AK )@@G@@ XX @]@[@@SPACE 2 @F@[@@ AL )@@G@@ SIGNATURE:.................. @E@[@@ AM )@@G@@ DATE:..................@[@[@@EJECT @^@[@@2H15512 REQUEST SHEET @D@[@@AN )@@G@@ FROM:.................. TO: SCHEDULING @E@[@@ AO )@@G@@ DATA PROCESSING @]@[@@SPACE 2 @E@[@@AP )@@G@@ P2) ACCOUNTING INPUT IS: CURRENT .... NON-CURRENT .... @]@[@@SPACE AQ )@@G@@1 @D@[@@ P2A) PROCESSING FOR: MONTH .... DAY .... YEAR .... @]@[@@AR )@@G@@SPACE 2 @B@[@@ P3) DATA-ENTRY STATISTICS FILE IS: @]@[@@SPACE AS )@@G@@1 @A@[@@ INFOREX .... CADE .... @]@[@@SPACE 1 @B@[@@AT )@@G@@ TAPE .... MASS-STORAGE .... @]@[@@SPACE 1 @C@[@@ P3A) AU )@@G@@ REEL-NOS IF TAPE: ......,......,...... @]@[@@SPACE 1 @A@[@@ P3B) AV )@@G@@ STATISTICS RPT SELECTION: @]@[@@SPACE 1 @A@[@@ AW )@@G@@ NONE: ...... @]@[@@SPACE 1 @B@[@@ JOB-NO:AX )@@G@@ ...... @]@[@@SPACE 1 @B@[@@ OPERATOR-NO: AY )@@G@@......@]@[@@SPACE 1 @A@[@@ BOTH: ...... @]@[@@AZ )@@G@@SPACE 1 @ @[@@ NO. COPIES: ...... @]@[@@SPACE 1 @C@[@@BA )@@G@@ P3B1) DATA-ENTRY COST FACTOR (IF INFOREX): @]@[@@SPACE 1 @C@[@@BB )@@G@@ DOLLARS: ...... CENTS: ...... @]@[@@SPACE 2 @D@[@@BC )@@G@@ P4) ACTUAL DATA-ENTRY MANHOURS IN PROCESSING MONTH:@]@[@@SPACE 1 BD )@@G@@@D@[@@ HOURS: ...... TENTHS: ......@]@[@@SPACE BE )@@G@@1 @C@[@@ P4A) NO. COPIES OF DE-ADJUSTMENT RPT: ...... @]@[@@SPACE BF )@@G@@2 @F@[@@ SIGNATURE:.............BG )@@G@@..... @E@[@@ DATE:..................BH )@@G@@@[@[@@EJECT @^@[@@2H15513 REQUEST SHEET @]@[@@SPACE 1 @D@[@@ FROM:BI )@@G@@.................. TO: SCHEDULING @E@[@@ BJ )@@G@@ DATA PROCESSING @]@[@@SPACE 2 @E@[@@ P2) PBK )@@G@@ROCESSING FOR: MONTH ...... DAY ...... YEAR ...... @]@[@@SPACE 2 BL )@@G@@@E@[@@ P3) ACCOUNTING INPUT IS: CURRENT .... NON-CURRENT .... @]@[@@BM )@@G@@SPACE 2 @B@[@@ P4) NO. OF COPIES OF COST-CAT-RPT: .... @]@[@@SPACE BN )@@G@@2 @B@[@@ P5) NO. OF COPIES OF EXP-BUD-RPT: .... @]@[@@SPACE 2 BO )@@G@@@F@[@@ SIGNATURE:.................. BP )@@G@@@E@[@@ DATE:..................@[@[@@BQ )@@G@@EJECT @^@[@@2H15514 REQUEST SHEET @D@[@@ FROM:.................. BR )@@G@@ TO: SCHEDULING @E@[@@ DBS )@@G@@ATA PROCESSING @]@[@@SPACE 1 @]@[@@SPACE 2 @F@[@@ P1) ACCOUNTBT )@@G@@ING FILES TO BE RESTORED ARE FOR: MONTH .... YEAR ....@]@[@@SPACE 2 BU )@@G@@@F@[@@ SIGNATURE:.................. BV )@@G@@@E@[@@ DATE:..................@[@[@@BW )@@G@@EJECT @^@[@@2H15515 REQUEST SHEET @D@[@@ FROM:.................. BX )@@G@@ TO: SCHEDULING @E@[@@ DBY )@@G@@ATA PROCESSING @]@[@@SPACE 1 @]@[@@SPACE 2 @C@[@@ P2) PROCESBZ )@@G@@SING FOR: MONTH ...... YEAR ...... @]@[@@SPACE 2 @E@[@@ P3) ACCOUNCA )@@G@@TING INPUT IS: CURRENT .... NON-CURRENT .... @]@[@@SPACE 2 @C@[@@CB )@@G@@ P4) SELECT OLD-YTD-ACNT FILE? YES .... NO ....@]@[@@SPACE 1 @E@[@@CC )@@G@@ P4A) OLD-YTD-ACNT FILE IS DATED: MONTH ...... YEAR ...... @]@[@@SPACE CD )@@G@@2 @C@[@@ P5) NO. OF COPIES OF UTILIZATION RPT: ...... @]@[@@SPACE CE )@@G@@2 @E@[@@ P6) SELECT OLD-YTD-SUM BY ACCNT FILE? YES .... NO .... CF )@@G@@@]@[@@SPACE 1 @F@[@@ P6A) OLD-YTD-SUM BY ACCNT FILE IS DATED: MONTH CG )@@G@@...... YEAR ......@]@[@@SPACE 2 @C@[@@ P7) NO. OF COPIES OF DP-SRVSCH )@@G@@-SUM RPT: .... @]@[@@SPACE 2 @C@[@@ P8) NO. OF COPIES OF DP-SRVSCI )@@G@@-BILL RPT: .... @]@[@@SPACE 2 @B@[@@ P9) NO. OF COPIES OF MTH-DP-CJ )@@G@@RPT: .... @]@[@@SPACE 2 @B@[@@ P10) NO. OF COPIES OF YTD-DP-RPT: .CK )@@G@@... @]@[@@SPACE 2 @B@[@@ P11) NO. OF COPIES OF DP-LCH-LIST: .... CL )@@G@@@]@[@@SPACE 2 @F@[@@ SIGNATURE:.CM )@@G@@................. @F@[@@ DATE:......CN )@@G@@............. @[@[@@EJECT @^@[@@2H15516 REQUEST SHEET @D@[@@ FROM:CO )@@G@@.................. TO: SCHEDULING @E@[@@ CP )@@G@@ DATA PROCESSING @]@[@@SPACE 2 @G@[@@ P1) ACQ )@@G@@CCOUNTING FILES TO BE BACKED-UP ARE FOR: MONTH .... YEAR .... @]@[@@CR )@@G@@SPACE 2 @F@[@@ SIGNATURE:.......CS )@@G@@........... @E@[@@ DATE:............CT )@@G@@......@#@@@@1USER PROCEDURES @]@@@@SPACE 2 @F@@@@ THE FOLLOWING STECU )@@G@@PS NEED TO BE ACCOMPLISHED MONTHLY IN ORDER TO @F@@@@ PREPARE FOR, INITCV )@@G@@IATE, AND VERIFY THE JOB ACCOUNTING PROCEDURES, @ @@@@ REPORTS AND BILLICW )@@G@@NG MEMOS: @]@@@@SPACE 1 @A@@@@ STEP 1 - UPDATING TABLE-DISC-JA CX )@@G@@@]@@@@SPACE 1 @F@@@@ THIS IS ACCOMPLISHED BY SUBMITTING DESIRED ADDICY )@@G@@TIONS, CHANGES AND@G@@@@ DELETIONS ON THE PROPER REQUEST SHEET(S) TO THECZ )@@G@@ SCHEDULING SECTION @F@@@@ FOR DATA ENTRY AND THE EXECUTION OF RUNSTDA )@@G@@REAM 'H-156-JA'. THIS @F@@@@ STEP SHOULD BE DONE ON THE LAST WORKING DDB )@@G@@AY OF THE MONTH, AND THE@F@@@@ OUTPUT OF THE EXECUTION SHOULD BE THOROUGDC )@@G@@HLY CHECKED TO ASSURE @A@@@@ PROPER UPDATING. (SEE ATTACHMENT 1)@]@@@@DD )@@G@@SPACE 1 @B@@@@ STEP 2 - INITIATING MONTHLY RUNSTREAMS @]@@@@SPACE DE )@@G@@1 @G@@@@ THIS IS ACCOMPLISHED BY SUBMITTING THE FOLLOWING DESCRIBED DF )@@G@@REQUEST @F@@@@ SHEETS TO THE SCHEDULING SECTION FOR DATA ENTRY AND RDG )@@G@@UNSTREAM @G@@@@ EXECUTION. THIS STEP SHOULD BE DONE ON THE FIRST OR SDH )@@G@@ECOND WORKING @C@@@@ DAY OF THE SUBSEQUENT MONTH. (SEE ATTACHMENT 2)DI )@@G@@@]@@@@SPACE 1 @ @@@@ H15511 REQUEST SHEET: @]@@@@SPACE 1 DJ )@@G@@@ @@@@ P1 - SELF EXPLANATORY@]@@@@SPACE 1 @]@@@@COLUMN 10 DK )@@G@@@F@@@@ P2 - TOTAL MONTHLY SALARY OF ALL PERSONNEL DESIGNATED AS DL )@@G@@@F@@@@ 'ADMINISTRATIVE' (DIRECTOR, ASST. DIRECTOR & CLERICAL). DM )@@G@@@]@@@@SPACE 1 @F@@@@ P3 - TOTAL MONTHLY SALARY OF ALL PERSONDN )@@G@@NEL DESIGNATED AS @C@@@@ 'DATA ENTRY' (INCLUDING THE CLERK). DO )@@G@@@]@@@@SPACE 1 @F@@@@ P4 - TOTAL MONTHLY SALARY OF ALL PERSONDP )@@G@@NEL DESIGNATED AS @C@@@@ 'SYSTEMS ANALYSTS' AND 'PROGRAMMERS'. DQ )@@G@@@]@@@@SPACE 1 @F@@@@ P5 - TOTAL MONTHLY SALARY OF ALL PERSONDR )@@G@@NEL DESIGNATED @G@@@@ 'COMPUTER OPERATORS' (INCLUDES OPERATORDS )@@G@@S, SCHEDULERS, TAPE @E@@@@ LIBRARIANS, REPORT PREPARATION CLDT )@@G@@ERK AND SYSTEMS @^@@@@ PROGRAMMERS). @]@@@@SPACE 1 @F@@@@DU )@@G@@ NOTE: THE DATA NECESSARY TO COMPLETE ITEMS P2-P5 CAN BE @F@@@@DV )@@G@@ OBTAINED FROM REGULAR, HOURLY AND SUPPLEMENTAL PAYROLL @F@@@@DW )@@G@@ LISTINGS, ALL OF WHICH SHOULD COMPLETED BY NOON OF THE @D@@@@DX )@@G@@ FIRST WORKING DAY OF THE SUBSEQUENT MONTH. @]@@@@SPACE 1 DY )@@G@@@F@@@@ P6 - TOTAL MONTHLY RENTAL AND MAINTENANCE CHARGES FOR ALLDZ )@@G@@@B@@@@ CURRENT DATA ENTRY EQUIPMENT. @]@@@@SPACE 1 @F@@@@EA )@@G@@ P7 - TOTAL MONTHLY RENTAL AND MAINTENANCE CHARGES FOR @F@@@@EB )@@G@@ COMPUTER EQUIPMENT; EXCLUDING THE C.T.M.C., C.T.M.'S AND @B@@@@EC )@@G@@ DATA COMMUNICATIONS DEVICES. @]@@@@SPACE 1 @F@@@@ ED )@@G@@ P8 - AMOUNT OF THE LATEST BILL FROM SPERRY UNIVAC FOR @F@@@@ EE )@@G@@ AFTER-HOURS MAINTENANCE, NOT NECESSARILY FOR MONTH BEING @^@@@@ EF )@@G@@ PROCESSED. @]@@@@SPACE 1 @ @@@@ H15512 REQUEST SHEET: EG )@@G@@@]@@@@SPACE 1 @G@@@@ P2 - UNDER NORMAL CIRCUMSTANCES 'CURRENEH )@@G@@T' WILL BE FLAGGED. @]@@@@SPACE 1 @E@@@@ P2A - SELFEI )@@G@@-EXPLANATORY (MONTH AND YEAR ONLY @^@@@@ REQUIRED) @]@@@@EJ )@@G@@SPACE 1 @F@@@@ P3 - UNDER NORMAL CIRCUMSTANCES 'CADE' AND 'TEK )@@G@@APE' WILL BE@#@@@@ FLAGGED. @]@@@@SPACE 1 @A@@@@ EL )@@G@@ P3A - SELF-EXPLANATORY@]@@@@SPACE 1 @F@@@@ P3B - UNDEEM )@@G@@R NORMAL CIRCUMSTANCES 'BOTH' WILL BE @D@@@@ FLAGGED, AEN )@@G@@ND 'NO. COPIES' WILL = 2. @]@@@@SPACE 1 @E@@@@ PEO )@@G@@3B1 - NOT USED AT PRESENT; LEAVE BLANK. @]@@@@SPACE 1 @F@@@@ EP )@@G@@ P4 - CALCULATED FROM PAYROLL(S) USING 8 HOURS PER WORKING@F@@@@ EQ )@@G@@ DAY FOR FULL-TIME EMPLOYEES AND 4 HOURS PER WORKING DAY @F@@@@ ER )@@G@@ FOR HALF-TIME EMPLOYEES, AS DETERMINED FROM THE REGULAR @G@@@@ ES )@@G@@ PAYROLL LISTING, AND THE ACTUAL NUMBER OF HOURS WORKED FOR @F@@@@ET )@@G@@ EMPLOYEES INCLUDED ON THE HOURLY AND SUPPLEMENTAL PAYROLL@#@@@@EU )@@G@@ LISTINGS.@]@@@@SPACE 1 @F@@@@ P4A - UNDER NORMEV )@@G@@AL CIRCUMSTANCES THIS WILL = 1. @]@@@@SPACE 1 @ @@@@ H15513 EW )@@G@@REQUEST SHEET: @]@@@@SPACE 1 @F@@@@ P2 - SELF-EXPLANATORYEX )@@G@@ (MONTH AND YEAR ONLY REQUIRED) @]@@@@SPACE 1 @G@@@@ P3 EY )@@G@@- UNDER NORMAL CIRCUMSTANCES 'CURRENT' WILL BE FLAGGED. @]@@@@SPACE EZ )@@G@@1 @E@@@@ P4 - UNDER NORMAL CIRCUMSTANCES THIS WILL = 2. FA )@@G@@@]@@@@SPACE 1 @E@@@@ P5 - UNDER NORMAL CIRCUMSTANCES THIS WIFB )@@G@@LL = 2. @]@@@@SPACE 1 @ @@@@ H15514 REQUEST SHEET: @]@@@@FC )@@G@@SPACE 1 @F@@@@ P1 - MONTH AND YEAR PREVIOUS TO THE ONE BEINGFD )@@G@@ PROCESSED. @]@@@@SPACE 1 @ @@@@ H15515 REQUEST SHEET: @]@@@@FE )@@G@@SPACE 1 @ @@@@ P2 - SELF-EXPLANATORY@]@@@@SPACE 1 @G@@@@FF )@@G@@ P3 - UNDER NORMAL CIRCUMSTANCES 'CURRENT' WILL BE FLAGGED. FG )@@G@@@]@@@@SPACE 1 @F@@@@ P4 - UNDER NORMAL CIRCUMSTANCES 'YES' WFH )@@G@@ILL BE FLAGGED. @]@@@@SPACE 1 @F@@@@ P4A - UNDER NORMFI )@@G@@AL CIRCUMSTANCES THIS WILL BE THE @C@@@@ MONTH PRIOR TO THE ONFJ )@@G@@E BEING PROCESSED.@]@@@@SPACE 1 @E@@@@ P5 - UNDER NORMAL CIRFK )@@G@@CUMSTANCES THIS WILL = 3. @]@@@@SPACE 1 @F@@@@ P6 - UNDEFL )@@G@@R NORMAL CIRCUMSTANCES 'YES' WILL BE FLAGGED. @]@@@@SPACE 1 @E@@@@FM )@@G@@ P6A - UNDER NORMAL CIRCUMSTANCES THIS WILL BE @E@@@@ FN )@@G@@ THE MONTH PRIOR TO THE ONE BEING PROCESSED. @]@@@@SPACE 1 FO )@@G@@@E@@@@ P7 - UNDER NORMAL CIRCUMSTANCES THIS WILL = 2. @]@@@@FP )@@G@@SPACE 1 @E@@@@ P8 - UNDER NORMAL CIRCUMSTANCES THIS WILL = 2FQ )@@G@@. @]@@@@SPACE 1 @E@@@@ P9 - UNDER NORMAL CIRCUMSTANCES TFR )@@G@@HIS WILL = 3. @]@@@@SPACE 1 @E@@@@ P10 - UNDER NORMAL CIFS )@@G@@RCUMSTANCES THIS WILL = 3. @]@@@@SPACE 1 @E@@@@ P11 - UNDFT )@@G@@ER NORMAL CIRCUMSTANCES THIS WILL = 2. @]@@@@SPACE 1 @ @@@@ HFU )@@G@@15516 REQUEST SHEET: @]@@@@SPACE 1 @C@@@@ P1 - MONTH AND FV )@@G@@YEAR BEING PROCESSED. @]@@@@SPACE 1 @]@@@@COLUMN 2 @F@@@@ NOTE:FW )@@G@@ UNDER CIRCUMSTANCES OTHER THAN 'NORMAL', ASSISTANCE SHOULD @F@@@@ BE OBFX )@@G@@TAINED FROM R.B. RUDY, DOUG RAGSDALE OR TONY SCHNEIDER, WHEN@A@@@@ COMPLFY )@@G@@ETING THESE REQUEST SHEETS. @]@@@@SPACE 1 @F@@@@ IN ADDITION TO THFZ )@@G@@E COMPLETION OF THE ABOVE-DESCRIBED REQUEST @F@@@@ SHEETS, WHICH BECGA )@@G@@OME CONTROL CARDS, THE SUBMISSION OF 'BUDGET @G@@@@ ADJUSTMENT CARDS'GB )@@G@@ IS ALSO NORMALLY NECESSARY. THESE CARDS ARE USED @E@@@@ TO ENTER DIGC )@@G@@RECT CHARGES SUCH AS: DATA ENTRY PERFORMED AT @E@@@@ HUNTSVILLE, TELEPGD )@@G@@HONE LINE AND MODEM COSTS, COMMUNICATIONS @B@@@@ EQUIPMENT COSTS, ETC. (GE )@@G@@SEE ATTACHMENT 3).@]@@@@SPACE 1 @D@@@@ STEP 3 - VERIFICATION OF REPOGF )@@G@@RTS AND BILLING MEMOS: @]@@@@SPACE 1 @F@@@@ IT IS IMPERATIVE THAT SGG )@@G@@OMEONE VERIFY THE VALIDITY OF THE REPORTS @F@@@@ AND BILLING MEMOS CREATGH )@@G@@ED BY THE ABOVE-REQUESTED RUNSTREAMS. @F@@@@ FOLLOWING YOU WILL FINDGI )@@G@@ SEVERAL CHECKS THAT CAN BE MADE TO TELL @F@@@@ YOU IF THERE IS A PROBLGJ )@@G@@EM IN DATA OR EXECUTION. IF THERE IS A @F@@@@ PROBLEM, IT MAY BE NECEGK )@@G@@SSARY TO OBTAIN ASSISTANCE FROM R.B. RUDY,@C@@@@ DOUG RAGSDALE OR TONY SGL )@@G@@CHNEIDER TO SOLVE IT. @]@@@@SPACE 1 @#@@@@ RUNSTREAM H15512:@]@@@@GM )@@G@@COLUMN 7 @]@@@@SPACE 1 @^@@@@ PROGRAM H1551036 @]@@@@SPACE GN )@@G@@1 @G@@@@ VERIFY THE NUMBER OF ACTUAL MAN-HOURS WORKED ON THE LAGO )@@G@@ST PAGE @F@@@@ OF THE REPORT AGAINST THE FIGURE SUBMITTED IN THGP )@@G@@E H15512 @ @@@@ REQUEST SHEET (ITEM P4).@]@@@@SPACE 1 @#@@@@GQ )@@G@@ RUNSTREAM H15513 @]@@@@SPACE 1 @^@@@@ PROGRAM H1551040: @]@@@@GR )@@G@@SPACE 1 @F@@@@ VERIFY THE TOTAL OF THE PRE-DETERMINED COSTS BY GS )@@G@@CATEGORY @F@@@@ AGAINST THE SAME REPORT FOR PREVIOUS MONTH(S). TGT )@@G@@HOUGH NOT @E@@@@ EQUAL, THEY SHOULD AT LEAST BE CLOSE (WITHIN 25%GU )@@G@@). @]@@@@SPACE 1 @^@@@@ PROGRAM H1551050: @]@@@@SPACE 1 GV )@@G@@@F@@@@ VERIFY THE SALARIES, SUPPLY COSTS AND EQUIPMENT RENTAL AND GW )@@G@@@F@@@@ MAINTENANCE COSTS IN THE EXPENDITURE WORKSHEET AGAINST THOSEGX )@@G@@@C@@@@ SUBMITTED IN THE H15511 REQUEST SHEET. @]@@@@SPACE 1 GY )@@G@@@D@@@@ VERIFY THAT THE HOURLY RATES FOR DATA ENTRY, @F@@@@ GZ )@@G@@ANALYSIS/PROGRAMMERS AND SUP HOURS IN THE BUDGET ADJUSTMENT @F@@@@ HA )@@G@@REPORT LOOK REASONABLE (WITHIN 20%) AS COMPARED TO PREVIOUS @#@@@@ HB )@@G@@MONTHS. @]@@@@SPACE 1 @#@@@@ RUNSTREAM H15515:@]@@@@SPACE 1 HC )@@G@@@^@@@@ PROGRAM H1551070: @]@@@@SPACE 1 @E@@@@ VERIFY THE DHD )@@G@@EPARTMENTAL TOTALS IN THE DATA PROCESSING @F@@@@ SERVICES SUMMARY RHE )@@G@@EPORT FOR DATA ENTRY, ANALYSIS/PROGRAMMING@F@@@@ AND SUP HOURS AGAIHF )@@G@@NST THEIR RESPECTIVE TOTALS IN THE BUDGET @F@@@@ ADJUSTMENT REPORT HG )@@G@@CREATED BY H1551050. THESE TOTALS WILL NOT@C@@@@ BE EXACT, BUT THEYHH )@@G@@ SHOULD BE VERY CLOSE. @]@@@@SPACE 1 @F@@@@ YOU CAN PRETTY MUCHI )@@G@@H VERIFY THE ACCURACY OF THE BILLING MEMOS@F@@@@ BY MAKING SURE THAHJ )@@G@@T THE DATA OUTPUT IN THE 'DATA PROCESSING @G@@@@ SERVICES - ADJUSTMHK )@@G@@ENT REPORT' (H1551090) AGREES WITH THE SAME @G@@@@ REPORT FOR THL )@@G@@HE PREVIOUS MONTH PLUS ANY ADDITIONS, CHANGES AND @F@@@@ DELETIHM )@@G@@ONS APPLIED IN STEP 1 (THIS VERIFIES THE ACCURACY OF @G@@@@ TABLE-HN )@@G@@DISC-JA WHICH IS THE CONTROLLING FACTOR FOR BILLING). A @F@@@@ HO )@@G@@CHECK SHOULD ALSO BE MADE HERE TO VERIFY THAT THE BUDGET @E@@@@ HP )@@G@@ADJUSTMENT CARDS (SEE STEP 2) WERE ENTERED AND APPLIED@#@@@@ PROPERHQ )@@G@@LY. @]@@@@SPACE 1 @F@@@@ IF ANY ONE OF THE ABOVE ITEMS DO NOTHR )@@G@@ CHECKOUT, THERE IS A @#@@@@ PROBLEM. ___CE 1 @]@[@@SPACE HS )@@G@@2 @C@[@@ P2) PROCES*[S@@@*SDFF*@ @@@[@RUN,A PREP11,H155,H155,5,500 HT )@@G@@@^@@@@@BL CONNIE,BOX010@ @@@@@CYCLE,C BILLING-CDS.,0 @[@@@@HU )@@G@@@END @ @@@@@ASG,CP BILLING-CDS.,F @[@@@@@END @G@@@@@DATA,LI BHV )@@G@@ILLING-CDS. . INSERT BILLING ADJUSTMENT CARDS HERE@I@@@@3D3203HW )@@G@@00 PROPORTIONATE SCANNER MAINTENANCE CHARGES (11/80) 71HX )@@G@@50 @I@@@@3F330337 PROPORTIONATE SCANNER MAINTENANCE CHARGES (HY )@@G@@9/80) 57629 @I@@@@3F330337 PROPORTIONATE SCANNER MAIHZ )@@G@@NTENANCE CHARGES (10/80) 42543 @I@@@@3F330337 PROPORTIA )@@G@@IONATE SCANNER MAINTENANCE CHARGES (11/80) 33247 @I@@@@3G3353IB )@@G@@52 DATA ENTRY PERFORMED AT HUNTSVILLE (10/80) 587IC )@@G@@86 @I@@@@3I343360 DATA ENTRY PERFORMED AT HUNTSVILLE (10/80) ID )@@G@@ 91474 @I@@@@3P383041 TELEPHONE LINE AND MODEM IE )@@G@@COSTS 5829 @I@@@@3P386021 DATA ENIF )@@G@@TRY PERFORMED AT HUNTSVILLE (10/80) 216425 @I@@@@4C4214IG )@@G@@90 PROPORTIONATE SCANNER MAINTENANCE CHARGES (9/80) 138IH )@@G@@71 @I@@@@4C421490 PROPORTIONATE SCANNER MAINTENANCE CHARGES (II )@@G@@10/80) 28957 @I@@@@4C421490 PROPORTIONATE SCANNER MAIIJ )@@G@@NTENANCE CHARGES (11/80) 31103 @I@@@@4D430732 TELEPHOIK )@@G@@NE LINE AND MODEM COSTS 200 @I@@@@4D4307IL )@@G@@71 TELEPHONE LINE AND MODEM COSTS 30IM )@@G@@75 @I@@@@4D430773 TELEPHONE LINE AND MODEM COSTS IN )@@G@@ 3075 @I@@@@5D530113 TELEPHONE LINE AND MODEM IO )@@G@@COSTS 8466 @I@@@@6C640181 TELEPHOIP )@@G@@NE LINE AND MODEM COSTS 200 @I@@@@7B7115IQ )@@G@@75 TELEPHONE LINE AND MODEM COSTS 21IR )@@G@@20 @I@@@@7C716524 TELEPHONE LINE AND MODEM COSTS IS )@@G@@ 2120 @I@@@@7C716525 DATA ENTRY PERFORMED AT HIT )@@G@@UNTSVILLE (10/80) 39409 @[@@@@@EOF @[@@@@@END @^@@@@IU )@@G@@@FREE BILLING-CDS. @^@@@@@CYCLE,C COUNT-CDS.,0 @[@@@@@END @^@@@@IV )@@G@@@ASG,CP COUNT-CDS.,F @[@@@@@END @H@@@@@DATA,IL COUNT-CDS. IW )@@G@@ . INSERT KEYPUNCH RECORD COUNT CARDS HERE @#@@@@X 150 IX )@@G@@@[@@@@@EOF @[@@@@@END @^@@@@@FREE COUNT-CDS. @^@@@@@CYCLE,C TIY )@@G@@IME-CDS.,0 @[@@@@@END @^@@@@@ASG,CP TIME-CDS.,F @[@@@@@END @G@@@@IZ )@@G@@@DATA,IL TIME-CDS. . INSERT KEYPUNCH TIME CARDS HERE JA )@@G@@@#@@@@X 150 @[@@@@@EOF @[@@@@@END @[@@@[@FIN ___@@@@@@@@@JB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@B@@@I AXR$. JC )@@G@@ . @B@@@I$(1). . @B@@@ILOG32*JD )@@G@@. . @E@@@I S X10,XREGBFJE )@@G@@ . SAVE REGISTERS @C@@@I S X11,X11SV JF )@@G@@ . SAVE X11@D@@@I DS A0,XREGBF+1 . SAVE REGISTERSJG )@@G@@@D@@@I DS A2,XREGBF+3 . SAVE REGISTERS@D@@@I JH )@@G@@ DS A4,XREGBF+5 . SAVE REGISTERS@A@@@I. X$ON JI )@@G@@ . TURN IT ON @ @@@I. X$CREG X0,44,'O' @E@@@I ERJJ )@@G@@ OPT$ . RETRIEVE OPTIONS @ @@@I S JK )@@G@@ A0,OPTHLD @D@@@I L X11,XREGBF+1 . SET UP X11 JL )@@G@@@E@@@I L,H2 A1,0,X11 . HOW MANY PARAMETERS@D@@@IJM )@@G@@ TE,U A1,3 . IF NOT 3 @C@@@I ERJN )@@G@@ EABT$ . BLOW OFF@F@@@I L A1,3,X11 JO )@@G@@ . LOGRECORD BUFFER ADD @E@@@I S,H2 A1,IOPR+4 JP )@@G@@ . IN CALLING PROG @ @@@I L X10,IOPR+4 @^@@@JJQ )@@G@@ SZ A5 @ @@@J LXI,U X10,28 @ @@@I JR )@@G@@ L,U X5,063 @E@@@I L A1,1,X11 . EJS )@@G@@QUIP TABLE ADD @E@@@I S A1,EQPADD . IN CALLJT )@@G@@ING PROG @E@@@I L A0,('@@@@@@') . SET UP TO REJU )@@G@@AD PSR@C@@@I ER PSR$ . DO IT @D@@@I JV )@@G@@ L,U A0,1 . SET A0 NONZERO@D@@@I TEP JW )@@G@@ A1,(1*/17) IS QTRWRD SET OR NO @C@@@I S A0,QTRFLG JX )@@G@@ . YES @D@@@I. L A0,(CRUSELG,CRUSE) . USE ALTJY )@@G@@ERNATE@F@@@I. ER CSF$ . CARD PARAMETER FILJZ )@@G@@E @E@@@I. JNZ A0,ASGERR . BAD STAT - GET OUTKA )@@G@@@E@@@I. L A0,(CRASGLG,CRASG) . ASG CARD FILE @C@@@IKB )@@G@@. ER CSF$ . DO IT @D@@@I. JN KC )@@G@@ A0,ASGERR . BAD STAT @E@@@I. CRLOP. KD )@@G@@ . CARD READ LOOP @E@@@I. L,U A0,CRREAD KE )@@G@@ . SET UP ALTERNATE @D@@@I. ER READA$ . CKF )@@G@@ARD READ @D@@@I. L A0,BUF . IS PARAMETER KG )@@G@@@D@@@I. TNE A0,('CYCLE ') . CYCLE ? @E@@@I. KH )@@G@@ J LOOKAT . YES PASS INFO @F@@@I. TEKI )@@G@@ A0,('COMBEG') . COMMUNICATIONS SS INFO? @D@@@I. J KJ )@@G@@ CRLOP . NO TRY AGAIN @E@@@I. L,U R1,1KK )@@G@@2 . NO. OF WRDS TO MOVE @E@@@I. L A0,(1,1) KL )@@G@@ . OFF SET OF 1 WORD @D@@@I. L A1,(1,COMBUF-BUFKM )@@G@@) . DESTINATION @C@@@I. BT A1,BUF,*A0 . MOVE ITKN )@@G@@@E@@@I. J CRLOP . GO BACK FOR MORE @]@@@IKO )@@G@@. LOOKAT. @E@@@I. L A0,BUF+6 . RECORD VOLUMKP )@@G@@E @ @@@I. S X11,PADDR @C@@@I. LMJ X11,FDKQ )@@G@@TB . NOP @D@@@I. L X11,PADDR . KR )@@G@@CALLING PROG@E@@@I. S A0,*2,X11 . VOLUME TO PRKS )@@G@@OG @E@@@I. J CRLOP . GO BACK FOR MORE KT )@@G@@@]@@@I. CEOF. @D@@@I. L A0,(CRBKTLG,CRBKT) . BREAKPOKU )@@G@@INT @D@@@I. ER CSF$ . CARD FILE @E@@@IKV )@@G@@. JNZ A0,ASGERR . BAD STAT - GET OUT@C@@@I. KW )@@G@@ L A0,(CRFRELG,CRFRE) . FREE @D@@@I. ER CSF$ KX )@@G@@ . CARD FILE @E@@@I. JNZ A0,ASGERR KY )@@G@@ . BAD STAT - GET OUT@B@@@I. L,U A0,1 . KZ )@@G@@@F@K@I. S A0,FRSTIM . SET FIRST CALL FLG LA )@@G@@@F@L@K S A0,FRSTIM . SET FIRST CALL FLG LB )@@G@@@F@M@L SZ A0,FRSTIM . SET FIRST CALL FLG LC )@@G@@@F@@@M SZ FRSTIM . SET FIRST CALL FLG LD )@@G@@@E@@@I L A0,(10,FITEM) . DETERMINE @D@@@ILE )@@G@@ ER FITEM$ . FILE TYPE @E@@@I JNLF )@@G@@ A0,FITERR . BAD RETURN OUT @E@@@I L,U LG )@@G@@ A0,TINTL . REWIND PACKET @D@@@I L,S1 A2,BULH )@@G@@F+6 . DEVICE TYPE @D@@@I TG,U A2,17 LI )@@G@@ . IS IT TAPE @D@@@I ER TINTL$ . YES RELJ )@@G@@WIND @D@@@I J LASTOT1 . SETUP IO @]@@@ILK )@@G@@LOGREC*. @A@@@I. X$ON . TURN IT ON @ @@@I. X$LL )@@G@@CREG X0,44,'O' @E@@@I S X10,XREGBF . SAVE RELM )@@G@@GISTERS @C@@@I S X11,X11SV . SAVE X11@D@@@ILN )@@G@@ DS A0,XREGBF+1 . SAVE REGISTERS@D@@@I DSLO )@@G@@ A2,XREGBF+3 . SAVE REGISTERS@D@@@I DS A4,XLP )@@G@@REGBF+5 . SAVE REGISTERS@E@@@I L X10,LPRGRG LQ )@@G@@ . LOAD NECESSARY PTRS @E@@@I L A5,LPRGRG+1 . LOLR )@@G@@AD NECESSARY PTRS @D@@@I L X11,XREGBF+1 . SET UP XLS )@@G@@11 @E@@@I L,H2 A1,0,X11 . HOW MANY PARAMETERSLT )@@G@@@D@@@I TE,U A1,3 . IF NOT 3 @C@@@I LU )@@G@@ ER EABT$ . BLOW OFF@F@@@I SZ *3,XLV )@@G@@11 . INITIALIZE STATUS WRD @E@@@I L,H2 A0,1LW )@@G@@,X11 . LOGRECORD BUFFER ADD@F@@@I AN,H2 X10,IOPR+4LX )@@G@@ . GET RID OF OLD BUFFER @D@@@I S,H2 A0,IOPR+4.LY )@@G@@ STORE THE NEW ONE IN @G@@@I A,H2 X10,IOPR+4 . OLZ )@@G@@FF SET FOR THE NEW BUFFER @D@@@I JN A5,SETUP MA )@@G@@ . GO LOOK AT IO @E@@@I JGD A5,SEARCH . GO LOOK MB )@@G@@AT CURR BUF @B@@@ISETUP. . @B@@@IIOLOOPMC )@@G@@. . @C@@@I L,U A0,IOPR MD )@@G@@ . DO IO@C@@@I ER IOW$ . ROG ME )@@G@@@D@@@I TZ,S1 IOPR+3 . BAD STAT @C@@@I MF )@@G@@ LMJ X10,BADIO . GO CHECK@E@@@I L,H2 X10,IMG )@@G@@OPR+4 . BUF ADD- INDEX @E@@@I LXI,U X10,28 MH )@@G@@ . SECTOR INCREM. @F@@@I L,U A5,63 MI )@@G@@ . # OF SECTORS TO SEARCH @E@@@I L A0,('SYSLOG') MJ )@@G@@ . IS IT THE @E@@@I TE A0,0,X10 . MK )@@G@@ FIRST BLOCK ? @C@@@I J SEARCH . NO ML )@@G@@@C@@@I L A4,2,X10 . YES @G@@@I TGMM )@@G@@,U A4,64 . IS HEADER MORE THAN A TRK @E@@@I MN )@@G@@ J $+2 . YES MUST ADJUST @E@@@I J MO )@@G@@ ADDADJ . NO ADDJUST PTRS @C@@@I SZ MP )@@G@@ A3 . SET UP@D@@@I DI,U A3,64 MQ )@@G@@ . MORE IO'S @B@@@I AN,U A3,1 . @B@@@IMR )@@G@@SRIOLP. . @D@@@I L,U A0,IOMS )@@G@@PR . IO LOOP @C@@@I ER IOW$ MT )@@G@@ . YEA @D@@@I TNZ,S1 IOPR+3 . BAD STAT ? MU )@@G@@@C@@@I LMJ X10,BADIO . YES @D@@@I JGMV )@@G@@D A3,SRIOLP . NO GO AGAIN @B@@@IADDADJ. MW )@@G@@ . @D@@@I AN A5,A4 . BLOCK MX )@@G@@PTR @B@@@I MSI,U A4,28 . @C@@@I A MY )@@G@@ X10,A4 . OK @B@@@ISEARCH. MZ )@@G@@ . @D@@@I TNZ,S1 0,X10 . GOOD LOG TYPENA )@@G@@@D@@@I J SERCHN . NO TRY AGAIN @E@@@I. NB )@@G@@ L,U A0,03 . SYSTEM LOG INDICATOR@E@@@I. TENC )@@G@@,S3 A0,0,X10 . IS IT THERE? @E@@@I. J ND )@@G@@ SERCHN . NO TRY AGAIN . @F@@@I L,U A0,32NE )@@G@@ . SEARCH FOR LOG RECS @D@@@I TE,S1 A0,0,NF )@@G@@X10 . TYPE 32! @C@@@I J RECOUT NG )@@G@@ . NO @D@@@I L,U A1,+'JAC' . JAC 32? NH )@@G@@@C@@@I TNE,H2 A1,1,X10 . !?! @C@@@I J NI )@@G@@ MOV32 . YES @]@@@ISERCHN. @C@@@I A,NJ )@@G@@U X10,28 . NO @ @@@I J RECOUTA NK )@@G@@@B@@@IRECOUT. . @D@@@I TNZ NL )@@G@@ FRSTIM . FIRST PASS @C@@@I J RECOUT1 NM )@@G@@ . NO @D@@@I A,U X10,28 . SET INDNN )@@G@@EX UP @]@@@IRECOUTA. @E@@@I JGD A5,SEARCH . NO )@@G@@YES LOOP SEARCH @D@@@I J IOLOOP . MORE INP )@@G@@O @B@@@IRECOUT1 . @C@@@I L,NQ )@@G@@H1 A1,25,X10 . READY@C@@@I DSC A0,6 NR )@@G@@ . FOR @D@@@I SSL A0,30 . CONSUMNS )@@G@@PTION @D@@@I LSSL A1,24 . REARRANGE @C@@@INT )@@G@@ LDSL A0,12 . DATE @#@@@I. X$ON NU )@@G@@@A@@@I. X$CORE 0,28,'A',X10 @D@@@I S,H1 A0,25NV )@@G@@,*X10 . YYMMDD @E@@@I SZ A2 NW )@@G@@ . ZERO UPPER HALF @B@@@I LXM A2,X10 . NX )@@G@@@ @@@I AN,H2 A2,IOPR+4 @B@@@I DI,U A1,28 NY )@@G@@ . @B@@@I S A1,*2,X11 . @[@@@IOUT. NZ )@@G@@@ @@@I S X10,LPRGRG@A@@@I S A5,LPRGRG+OA )@@G@@1 @E@@@I L X10,XREGBF . LOAD REGISTERS OB )@@G@@@D@@@I DL A0,XREGBF+1 . LOAD REGISTERS@D@@@I OC )@@G@@ DL A2,XREGBF+3 . LOAD REGISTERS@D@@@I DL OD )@@G@@ A4,XREGBF+5 . LOAD REGISTERS@ @@@I. X$CREG X0,44,'O' OE )@@G@@@#@@@I. X$OFF @D@@@I L X11,X11SV . REOF )@@G@@STORE X11 @C@@@I J 0,X11 . RETURN @B@@@IOG )@@G@@MOV32. . @D@@@I L,S2 A1,1OH )@@G@@,X10 . SEQ OF 32 BLK@D@@@I L A0,25,X10 OI )@@G@@ . DATETIME @E@@@I TNE A0,X32DT . EQUAL TOJ )@@G@@O HOLD VALUE@C@@@I J DATEQ . YES @]@@@IOK )@@G@@DATENE. @F@@@I TE,U A1,1 . IS IT THE FIRSOL )@@G@@T BLOCK @C@@@I J BAD32 . NO BAD 32 @E@@@IOM )@@G@@ L A1,25,X10 . DATE TIME TO X32DT @C@@@I ON )@@G@@ S A1,X32DT . ROG @D@@@I L,U A0,XOO )@@G@@32BUF . REINIT X32PTR @E@@@I S A0,X32PTR OP )@@G@@ . WITH X32BUF ADDR @D@@@I J GOODBF . GOOQ )@@G@@ MOVE IT @[@@@IDATEQ.@G@@@I L,S2 A0,X32MOV . HOOR )@@G@@LD VALUE WRD 1 +1 EQ TO CUR @B@@@I A,U A0,1 OS )@@G@@ . @B@@@I TNE A0,A1 . @D@@@I J OT )@@G@@ GOODBF . YES GO MOVE IT@[@@@IBAD32 @ @@@I ANOU )@@G@@ A0,X32DT @ @@@I JN A0,BAD321 @E@@@I TLOV )@@G@@E,U A0,6 . IS IT LESS THAN 6 @B@@@I J OW )@@G@@ DATENE+2 . @]@@@IBAD321. @E@@@I SZ X32MOX )@@G@@OV . NO INITIALIZE HOLD @D@@@I L,U A0,X32BUF OY )@@G@@ . RESET X32PTR @F@@@I S A0,X32PTR . POOZ )@@G@@INTER FOR TYPE 32'S @D@@@I A,U X10,28 . SPA )@@G@@ET INDEX UP @ @@@I J RECOUTA @]@@@IGOODBF. @F@@@IPB )@@G@@ L A1,1,X10 . GOOD REC UPDATE HOLD @B@@@IPC )@@G@@ S A1,X32MOV . @ @@@I L,U R1,2PD )@@G@@4 @^@@@I LXM A1,X10@^@@@I LXI,U A1,1@ @@@IPE )@@G@@ LXM A3,X32PTR @^@@@I AN,U A3,2@^@@@I PF )@@G@@ LXI,U A3,1@ @@@I BT A3,2,*A1 @C@@@I S PG )@@G@@ A3,X32PTR . SAVE PTR@ @@@I L,S2 A0,1,X10 PH )@@G@@@ @@@I TE,S3 A0,1,*X10 @ @@@I J RECOUTA PI )@@G@@@B@@@IBULD32. . @E@@@I SLJ PJ )@@G@@ CALSAV . SAVE EXTENDED REGS @F@@@I TNZ QTRPK )@@G@@FLG . ARE WE TRD OR QTR WRD? @C@@@I J BLD3PL )@@G@@2P . TRD WORD@F@@@I L A0,TRDWRD . SEPM )@@G@@T PSR TO THIRD WORD MODE@C@@@I ER PSR$ . DOPN )@@G@@ IT @ @@@I. S A1,ASGPR+3@A@@@I. L A0,(01PO )@@G@@01,ASGPR+3) @ @@@I. ER PRINT$ @D@@@I. L PP )@@G@@ A0,('@@@@@@') . LOOK AGAIN @^@@@I. ER PSR$@ @@@IPQ )@@G@@. S A1,ASGPR+3@B@@@I. L A0,(0101,ASGPR+3PR )@@G@@) @ @@@I. ER PRINT$ @]@@@IBLD32P. @C@@@I PS )@@G@@ L A0,('SYMMCT') . MCT ID@D@@@I TE A0,X3PT )@@G@@2BUF . EQUAL ? @E@@@I J BADMCT PU )@@G@@ . BAD MCT-HANDLE IT @D@@@I L,T2 A0,X32BUF+6 . PV )@@G@@ SET UP @E@@@I A,U A0,X32BUF . SUBSYSTEM SPW )@@G@@TATUS @D@@@I S A0,SSINDX . INDEX ADDR. @C@@@IPX )@@G@@ L,H2 A0,X32BUF+027 . EQUIP@C@@@I A,U PY )@@G@@ A0,X32BUF . TABLE@^@@@I AN,U A0,1@C@@@I PZ )@@G@@ S A0,EQUIP . PTR @D@@@I L,H2 A0,X3QA )@@G@@2BUF+030 . DEVICE @C@@@I A,U A0,X32BUF QB )@@G@@ . TABLE@C@@@I S A0,DEVICE . PTR @E@@@IQC )@@G@@ LXI,U X9,1 . INDEX TABLE INDEX @D@@@I QD )@@G@@ LXM X9,SSINDX . SSINDX ADDR @C@@@I L,T1 QE )@@G@@ A8,X32BUF+6 . BEGIN@E@@@I L X7,EQPADD QF )@@G@@ . EQUIP TABLE BUFFER@D@@@I LXI,U X7,12 . QG )@@G@@BY 12 WORDS @B@@@I JGD A8,$+1 . @D@@@ISSBLP.QH )@@G@@ . BIG! LOOP! @D@@@I L QI )@@G@@ A0,0,X9 . POINT TO SUB STAT @D@@@I JN A0,SSBND1 QJ )@@G@@ . NOT CONFIG @D@@@I L A1,X9 . COMPUTE SUBSYQK )@@G@@STEM NUM @F@@@I AN A1,SSINDX . BY NEGATING SSQL )@@G@@INDX ADD @C@@@I S,T1 A1,0,X7 . SUBS # @D@@@IQM )@@G@@ SZ A1 . SET FOR UP @C@@@I TEQN )@@G@@P A0,(1*/34) . DOWN @C@@@I L,U A1,1 QO )@@G@@ . YES @D@@@I S,S3 A1,3,X7 . TELL EQP )@@G@@M @B@@@ISSSHFT . @B@@@I DSQQ )@@G@@L A0,12 . @D@@@I SSL A1,24 QR )@@G@@ . SS/U RANGE @C@@@I L,T1 A2,X32BUF,A1 . QS )@@G@@@D@@@I SZ,T2 0,X7 . IN THIS @B@@@I QT )@@G@@ DSL A2,6 . @C@@@I SSL A3,30 QU )@@G@@ . AREA @B@@@I AN,U A3,1 . @C@@@IQV )@@G@@ S,T3 A3,0,X7 . ETC @E@@@I L QW )@@G@@ A0,EQUIP . ADDR OF EQUIP TABLE @F@@@I A A0,AQX )@@G@@2 . OFF SET FOR EQUIP TYPE @E@@@I L A0,0,QY )@@G@@A0 . EQUIP TABLE VALUE FOR@C@@@I TNE A0,COMBUF+QZ )@@G@@1 . COMM SS?@C@@@I J COMINF . YES RA )@@G@@@E@@@I S A0,1,X7 . SS - STORE IT @B@@@IRB )@@G@@ L X8,(2,1) . @E@@@I A X8,DRC )@@G@@EVICE . OFFSET TO DEVICE @D@@@I DL A3,0,*X8 RD )@@G@@ . START LOOPING @B@@@I TE A3,('DEVICE') . RE )@@G@@@E@@@I J BADMCT . BAD MCT-HANDLE IT @C@@@IRF )@@G@@ SSL A3,36 . CLEAR A3@B@@@I LDSL RG )@@G@@ A3,24 . @E@@@I LSSC A4,12 . RH )@@G@@ DEVICE TABLE @D@@@I S A4,A9 . LOOKIRI )@@G@@NG FOR@D@@@I TE A2,A3 . IS IT EQUAL @D@@@IRJ )@@G@@ TNW A3,A2 . IN RANGE? @B@@@I JGRK )@@G@@D A9,$+2 . @E@@@I J BADMCT RL )@@G@@ . BAD MCT-HANDLE IT @B@@@IEQRLOP. . RM )@@G@@@D@@@I DL A3,0,*X8 . DEVICE RANGE @B@@@I RN )@@G@@ DSL A4,12 . @E@@@I SSL A5,24 RO )@@G@@ . ASSOCIATED WITH @B@@@I TE A2,A4 RP )@@G@@ . @B@@@I TNW A4,A2 . @E@@@I J RQ )@@G@@ EQREND . EQUIPMENT TYPE. @B@@@I JGD RR )@@G@@ A9,EQRLOP . @E@@@I J STDVC . PURS )@@G@@T THE LAST ONE IN @B@@@IEQREND. . @B@@@IRT )@@G@@ TNZ A9 . @F@@@I J STDVCRU )@@G@@ . MAKE SURE EQUIP TYPE @A@@@I DL A4,0,RV )@@G@@*X8 . @D@@@I DSL A5,12 . IS MOST RW )@@G@@@B@@@I SSL A6,24 . @D@@@I TNE RX )@@G@@ A2,A5 . ACCURATE @C@@@I J STDVC1 RY )@@G@@ . @C@@@I TW A5,A2 . RANGE RZ )@@G@@@B@@@ISTDVC. . @B@@@I DSL SA )@@G@@ A3,36 . @B@@@ISTDVC1. . SB )@@G@@@B@@@I S A4,2,X7 . @C@@@I L SC )@@G@@ A2,X32BUF+1,A1 . @F@@@I DSL A2,4 SD )@@G@@ . DUAL CONTROLLER FLAG @B@@@I SSL A3,32 SE )@@G@@ . @B@@@I S,S1 A3,3,X7 . @B@@@I SSSF )@@G@@L A2,36 . @B@@@I LXI,U A1,1 SG )@@G@@ . @B@@@I L X8,X7 . @B@@@I LXSH )@@G@@I,U X8,1 . @E@@@I AX,U X8,3 SI )@@G@@ . OFF SET FOR HEADER @F@@@I L A0,(1,3) . SJ )@@G@@BEGIN TO SET UP UNIT @C@@@I L,S2 A10,X32BUF,A1 SK )@@G@@ . @F@@@I SSL A9,36 . STATUS TABLES IN CSL )@@G@@ALLER @G@@@I DI,U A9,16 . MORE THAN ONE WRD SM )@@G@@OF UNIT STAT@C@@@I JZ A9,UNITFN . NO @ @@@ISN )@@G@@ JGD A9,$+1 @B@@@ISTRINGLP. SO )@@G@@ . @E@@@I L,U A6,15 . 16 UNITS / WORD SP )@@G@@@C@@@I L A5,X32BUF+1,*A1 . @B@@@IUNITLP. SQ )@@G@@ . @B@@@I SSL A4,36 SR )@@G@@ . @E@@@I LDSL A4,2 . PSUEDO BINARY TO SS )@@G@@@B@@@I S A4,A2 . @D@@@I OR,U ST )@@G@@ A2,060 . FD SPREAD OF@B@@@I EX EXECUT,*A0 SU )@@G@@ . @C@@@I TNE A0,(1,6) . STATUS@B@@@ISV )@@G@@ L A0,(1,0) . @B@@@I JGD A6,UNSW )@@G@@ITLP . @B@@@I JGD A9,STRINGLP . @B@@@ISX )@@G@@UNITFN . @F@@@I JZ A10,SSY )@@G@@SBEND . LESS THAN ONE WORD @B@@@I AN,U A10,1SZ )@@G@@ . @C@@@I L A5,X32BUF+1,*A1 . TA )@@G@@@B@@@IUFNLOP. . @B@@@I SSL TB )@@G@@ A4,36 . @D@@@I LDSL A4,2 . TC )@@G@@FINISH UP @B@@@I S A4,A2 . @D@@@I TD )@@G@@ OR,U A2,060 . BUILDING @B@@@I EX TE )@@G@@ EXECUT,*A0 . @D@@@I TNE A0,(1,6) . TF )@@G@@BUFFER AND @B@@@I L A0,(1,0) . @C@@@I TG )@@G@@ JGD A10,UFNLOP . RUN @B@@@ISSBEND. TH )@@G@@ . @E@@@I NOP A0,0,*X7 . RETURNTI )@@G@@ BIG! LOOP!@]@@@ISSBND1. @F@@@I NOP A0,0,*X9 TJ )@@G@@ . INCREMENT X1,X7 INDICES @B@@@I JGD A8,SSBLP TK )@@G@@ . @D@@@I L A0,25,X10 . MMDDYYSSSSSS @E@@@ITL )@@G@@ S A0,2,X7 . DATE TIME STAMP @#@@@I. TM )@@G@@ X$ON @ @@@I L X6,EQPADD @ @@@I. X$CORE 0TN )@@G@@,200,'A',X6 @ @@@I L,S2 A1,X32MOV @E@@@I A,U TO )@@G@@ A1,1 . SET BEYOND POSS BUF @ @@@I S,S2 A1,XTP )@@G@@32MOV @E@@@I L,U A0,X32BUF . RESTORE X32PTR ADD TQ )@@G@@@C@@@I S A0,X32PTR . OK! @E@@@I L,TR )@@G@@U A0,1 . STAT FOR 32 REC @E@@@I TNZ TS )@@G@@ FRSTIM . IS IT FIRST TIME @E@@@I S A0,*TT )@@G@@3,X11 . NO STORE STATUS @ @@@I TNZ QTRFLG TU )@@G@@@ @@@I J SSBENP @E@@@I L A0,QTRWRD TV )@@G@@ . RESTORE QTRWRD MODE @C@@@I ER PSR$ TW )@@G@@ . DO IT @]@@@ISSBENP. @F@@@I SLJ CALLOD TX )@@G@@ . RESTORE EXTENDED REGS @ @@@I TNZ FRSTIM @ @@@ITY )@@G@@ J RECOUTA @ @@@I SZ FRSTIM @E@@@ITZ )@@G@@ SZ A5 . RESET BUFFER COUNTER@C@@@I UA )@@G@@ L,U A0,TINTL . REWIND @C@@@I ER TINTUB )@@G@@L$ . DO IT @^@@@I J OUT @]@@@ICOMINF. UC )@@G@@@D@@@I L,T1 A4,0,X7 . SUBSYSTEM @D@@@I UD )@@G@@ S,T1 A4,COMBUF . SUBSYSTEM @D@@@I L UE )@@G@@ A2,X7 . DESTINATION @C@@@I LXI,U A2,1 UF )@@G@@ . INCRE @C@@@I L A0,(1,COMBUF) . ORIGIN UG )@@G@@@E@@@I L,U R1,12 . NO. OF WRDS TO MV @C@@@IUH )@@G@@ BT A2,0,*A0 . DO IT @C@@@I J UI )@@G@@ SSBEND . NEXT SS @B@@@IEXECUT. UJ )@@G@@ . @E@@@I S,S1 A3,0,X8 . SIXTH WORD STORES UK )@@G@@@B@@@I S,S2 A3,0,X8 . @B@@@I S,S3 UL )@@G@@ A3,0,X8 . @B@@@I S,S4 A3,0,X8 . UM )@@G@@@B@@@I S,S5 A3,0,X8 . @B@@@I S,S6 UN )@@G@@ A3,0,*X8 . @]@@@IBADMCT. @ @@@I L,S2 A1,XUO )@@G@@32MOV @E@@@I A,U A1,1 . SET BEYOND POSS BUF UP )@@G@@@ @@@I S,S2 A1,X32MOV @E@@@I L,U A0,X32BUF UQ )@@G@@ . RESTORE X32PTR ADD @C@@@I S A0,X32PTR UR )@@G@@ . OK! @E@@@I L A0,25,X10 . GET DATE TIME US )@@G@@STAMP @F@@@I S A0,BMCTMG . PUT IN 1ST WRD OF MSUT )@@G@@G @E@@@I L,U A0,BMCTPK . TALK TO CONSOLE UU )@@G@@@C@@@I ER COM$ . DO IT @K@@@I L UV )@@G@@ A0,(LBMCTMG,BMCTMG) . TELL PRINTUW )@@G@@ER ALSO @C@@@I ER PRINT$ . DO IT @F@@@IUX )@@G@@ L A0,QTRWRD . RESTORE QTR WRD IF NECES @F@@@IUY )@@G@@ TZ QTRFLG . $A-YES,NO- SET QTR MODE @D@@@IUZ )@@G@@ ER PSR$ . SET QTR MODE @E@@@I SLVA )@@G@@J CALLOD . RESTORE REGISTERS @E@@@I J VB )@@G@@ RECOUTA . GO SEARCH AGAIN @]@@@ICALSAV. @#@@@I VC )@@G@@ NOP @#@@@I. X$ON @A@@@I. X$CREG X9,44,'OVD )@@G@@' @B@@@I S R1,CPRGRG+2 . @B@@@I S VE )@@G@@ X6,CPRGRG . @ @@@I S X5,CPRGRG+1@B@@@IVF )@@G@@ L X6,(1,0) . @C@@@I L X5,(VG )@@G@@1,CPRGRG) . @ @@@I L,U R1,16 @B@@@I VH )@@G@@ BT X5,7,*X6 . @E@@@I J *CALSAV VI )@@G@@ . RETURN TO SENDER @]@@@ICALLOD. @#@@@I NOP VJ )@@G@@@#@@@I. X$ON @A@@@I. X$CORE CPRGRG,44,'O' @C@@@IVK )@@G@@ L X6,(1,CPRGRG) . @ @@@I L VL )@@G@@ X5,(1,0) @ @@@I L,U R1,16 @B@@@I BT VM )@@G@@ X5,7,*X6 . @B@@@I L R1,CPRGRG+2 . VN )@@G@@@B@@@I L X6,CPRGRG .@A@@@I L VO )@@G@@ X5,CPRGRG+1 @A@@@I. X$CREG X9,44,'O' @ @@@I VP )@@G@@ J *CALLOD @[@@@IBADIO.@B@@@I L,S1 A0,IOPR+3 VQ )@@G@@ . @^@@@I TNE,U A0,1@ @@@I J LASTVR )@@G@@OT @D@@@I ER EABT$ . SAY GOOD BYE @]@@@IVS )@@G@@LASTOT. @E@@@I L A0,(12,FITEM) . LOOK AT TAPE FVT )@@G@@ILE @C@@@I ER FITEM$ . DO IT @A@@@I VU )@@G@@ L,S3 A0,FITEM+10 @F@@@I TG,S1 A0,FITEM+8 VV )@@G@@ . IS THIS THE LAST ONE? @D@@@I J LASTOT1 VW )@@G@@ . YES GET OUT! @E@@@I L A0,(00,TSWAPKT) . NO GO TOVX )@@G@@ NEW REEL @C@@@I ER TSWAP$ . DO IT @D@@@IVY )@@G@@ J IOLOOP . GO DO THE IO @]@@@ILASTOT1. VZ )@@G@@@ @@@I TZ FRSTIM @E@@@I J LASTOT2 WA )@@G@@ . CHECK XQT OPTIONS @^@@@I A,U A0,1@ @@@I WB )@@G@@ S A0,*3,X11 @^@@@I J OUT @]@@@ILASTOT2. WC )@@G@@@D@@@I L A0,OPTHLD . GET OPTIONS @C@@@I. WD )@@G@@ TOP A0,(1*/7) . S OPTION@B@@@I ER ERR$WE )@@G@@ . NO@ @@@I L,U A0,MCTPKT @E@@@I ERWF )@@G@@ MCT$ . GET CURRENT MCT @E@@@I J WG )@@G@@ BULD32 . GO BUILD TYPE 32 @]@@@IASGERR. @ @@@I WH )@@G@@ L,U A9,11 @F@@@I DSL A0,3 . SHWI )@@G@@IFT OFF FOR DISPLAY @F@@@I DSL A1,3 . SHWJ )@@G@@IFT OFF FOR DISPLAY @C@@@I JGD A9,$-2 . DOWK )@@G@@ AGAIN@B@@@I OR A2,DZERO . @B@@@I ORWL )@@G@@ A1,DZERO . @ @@@I DS A2,ASGPR+3@]@@@IWM )@@G@@FITERR. @D@@@I L A0,(0105,ASGPR) . PRINT ASGERR WN )@@G@@@C@@@I ER PRINT$ . DO IT @[@@@IPERR .@B@@@IWO )@@G@@ ER ERR$ . @[@@@I$(0). @]@@@IC$BLOG32*. WP )@@G@@@]@@@IC$BLOGREC*. @^@@@IOPTHLD + 0 @^@@@IMCTPKT +0,XWQ )@@G@@32BUF @]@@@I +0@]@@@IBMCTPK. @#@@@I + 0 @^@@@IWR )@@G@@ +30,BMCTMG @]@@@I +0@]@@@IBMCTMG. @B@@@I WS )@@G@@ ' BAD CONFIG TABLE FOUND '@ @@@ILBMCTMG EQU $-BMCTMG WT )@@G@@@^@@@IQTRFLG + 0 @A@@@ITRDWRD + 000000000001 WU )@@G@@@A@@@IQTRWRD + 000000400001 @#@@@IDZERO '000000'@ @@@IWV )@@G@@ASGPR 'FILE ASG STATUS ' @^@@@I RES 2 @^@@@IX32MOVWW )@@G@@ + 0 @^@@@IX32DT + 0 @^@@@ICPRGRG RES WX )@@G@@ 28 @^@@@ILPRGRG RES 2 @E@@@IX11SV RES 1 WY )@@G@@ . SAVE AREA FOR X11 @^@@@IXREGBF RES 8 @ @@@I. CRBKWZ )@@G@@T '@BRKPT $$P' @ @@@I. CRBKTLG EQU $-CRBKT @^@@@I. CRFRXA )@@G@@E '@FREE $$P.'@ @@@I. CRFRELG EQU $-CRFRE @^@@@IFRSTIM + XB )@@G@@ 0 @]@@@IPADDR +0@^@@@IEQPADD + 0 @^@@@ISSINDXXC )@@G@@ + 0 @^@@@IDEVICE + 0 @^@@@IEQUIP + XD )@@G@@ 0 @^@@@IBUF RES 14 @^@@@ICOMBUF RES 14 @^@@@IXE )@@G@@X32BUF RES 500@[@@@IIOPR .@^@@@I 'DAILY-LOG '@#@@@IXF )@@G@@ + 0 @A@@@I + 0,020,0,0,0,0 @#@@@I XG )@@G@@ +1792,0 @]@@@I +0@[@@@IFITEM.@^@@@I 'DAILY-LOG 'XH )@@G@@@ @@@ITSWAPKT EQU FITEM @^@@@I RES 13 @^@@@IXI )@@G@@TINTL EQU IOPR@#@@@IX32PTR +X32BUF @C@@@I. CRUSE '@USE XJ )@@G@@ $$P.,SYS*CRMARF/ZIP/ZAP.' @ @@@I. CRUSELG EQU $-CRUSE @ @@@IXK )@@G@@. CRASG '@ASG,A $$P. ' @ @@@I. CRASGLG EQU $-CRASG @]@@@IXL )@@G@@. CRREAD. @^@@@I. +CEOF,BUF @ @@@I. '$$P XM )@@G@@ ' @#@@@I END _@@@@@Z A9 . @F@@@IXN )@@G@@@D@@@I DS A2,XREGBF+3 . SAVE REGISTERS@D@@@I XO )@@G@@ DS A4,XREGBF+5 . SAVE REGISTERS@A@@@I. X$ON XP )@@G@@ . TURN IT ON @ @@@I. X$CREG X0,44,'O' @E@@@I ERXQ )@@G@@ OPT$ . RETRIEVE OPTIONS @ @@@I S XR )@@G@@ A0,OPTHLD @D@@@I L X11,XREGBF+1 . SET UP X11 XS )@@G@@@E@@@I L,H2 A1,0,X11 . HOW MANY PARAMETERS@D@@@IXT )@@G@@ TE,U A1,3 . IF NOT 3 @C@@@I ERXU )@@G@@ EABT$ . BLOW OFF@F@@@I L A1,3,X11 XV )@@G@@ . LOGRECORD BUFFER ADD @E@@@I S,H2 A1,IOPR+4 XW )@@G@@ . IN CALLING PROG @ @@@I L X10,IOPR+4 @^@@@JXX )@@G@@ SZ A5 @ @@@J LXI,U X10,28 @ @@@I XY )@@G@@ L,U X5,063 @E@@@I L A1,1,X11 . EXZ )@@G@@QUIP TABLE ADD @E@@@I S A1,EQPADD . IN CALLYA )@@G@@ING PROG @E@@@I L A0,('@@@@@@') . SET UP TO REYB )@@G@@AD PSR@C@@@I ER PSR$ . DO IT @D@@@I YC )@@G@@ L,U A0,1 . SET A0 NONZERO@D@@@I TEP YD )@@G@@ A1,(1*/17) IS QTRWRD SET OR NO @C@@@I S A0,QTRFLG YE )@@G@@ . YES @D@@@I. L A0,(CRUSELG,CRUSE) . USE ALTYF )@@G@@ERNATE@F@@@I. ER CSF$ . CARD PARAMETER FILYG )@@G@@E @E@@@I. JNZ A0,ASGERR . BAD STAT - GET OUTYH )@@G@@@E@@@I. L A0,(CRASGLG,CRASG) . ASG CARD FILE @C@@@IYI )@@G@@. ER CSF$ . DO IT @D@@@I. JN YJ )@@G@@ A0,ASGERR . BAD STAT @E@@@I. CRLOP. YK )@@G@@ . CARD READ LOOP @E@@@I. L,U A0,CRREAD YL )@@G@@ . SET UP ALTERNATE @D@@@I. ER READA$ . CYM )@@G@@ARD READ @D@@@I. L A0,BUF . IS PARAMETER YN )@@G@@@D@@@I. TNE A0,('CYCLE ') . CYCLE ? @E@@@I. YO )@@G@@ J LOOKAT . YES PASS INFO @F@@@I. TEYP )@@G@@ A0,('COMBEG') . COMMUNICATIONS SS INFO? @D@@@I. J YQ )@@G@@ CRLOP . NO TRY AGAIN @E@@@I. L,U R1,1YR )@@G@@2 . NO. OF WRDS TO MOVE @E@@@I. L A0,(1,1) YS )@@G@@ . OFF SET OF 1 WORD @D@@@I. L A1,(1,COMBUF-BUFYT )@@G@@) . DESTINATION @C@@@I. BT A1,BUF,*A0 . MOVE ITYU )@@G@@@E@@@I. J CRLOP . GO BACK FOR MORE @]@@@IYV )@@G@@. LOOKAT. @E@@@I. L A0,BUF+6 . RECORD VOLUMYW )@@G@@E @ @@@I. S X11,PADDR @C@@@I. LMJ X11,FDYX )@@G@@TB . NOP @D@@@I. L X11,PADDR . YY )@@G@@CALLING PROG@E@@@I. S A0,*2,X11 . VOLUME TO PRYZ )@@G@@OG @E@@@I. J CRLOP . GO BACK FOR MORE ZA )@@G@@@]@@@I. CEOF. @D@@@I. L A0,(CRBKTLG,CRBKT) . BREAKPOZB )@@G@@INT @D@@@I. ER CSF$ . CARD FILE @E@@@IZC )@@G@@. JNZ A0,ASGERR . BAD STAT - GET OUT@C@@@I. ZD )@@G@@ L A0,(CRFRELG,CRFRE) . FREE @D@@@I. ER CSF$ ZE )@@G@@ . CARD FILE @E@@@I. JNZ A0,ASGERR ZF )@@G@@ . BAD STAT - GET OUT@B@@@I. L,U A0,1 . ZG )@@G@@@F@K@I. S A0,FRSTIM . SET FIRST CALL FLG ZH )@@G@@@F@L@K S A0,FRSTIM . SET FIRST CALL FLG ZI )@@G@@@F@M@L SZ A0,FRSTIM . SET FIRST CALL FLG ZJ )@@G@@@F@@@M SZ FRSTIM . SET FIRST CALL FLG ZK )@@G@@@E@@@I L A0,(10,FITEM) . DETERMINE @D@@@IZL )@@G@@ ER FITEM$ . FILE TYPE @E@@@I JNZM )@@G@@ A0,FITERR . BAD RETURN OUT @E@@@I L,U ZN )@@G@@ A0,TINTL . REWIND PACKET @D@@@I L,S1 A2,BUZO )@@G@@F+6 . DEVICE TYPE @D@@@I TG,U A2,17 ZP )@@G@@ . IS IT TAPE @D@@@I ER TINTL$ . YES REZQ )@@G@@WIND @D@@@I J LASTOT1 . SETUP IO @]@@@IZR )@@G@@LOGREC*. @A@@@I. X$ON . TURN IT ON @ @@@I. X$ZS )@@G@@CREG X0,44,'O' @E@@@I S X10,XREGBF . SAVE REZT )@@G@@GISTERS @C@@@I S X11,X11SV . SAVE X11@D@@@IZU )@@G@@ DS A0,XREGBF+1 . SAVE REGISTERS@D@@@I DSZV )@@G@@ A2,XREGBF+3 . SAVE REGISTERS@D@@@I DS A4,XZW )@@G@@REGBF+5 . SAVE REGISTERS@E@@@I L X10,LPRGRG ZX )@@G@@ . LOAD NECESSARY PTRS @E@@@I L A5,LPRGRG+1 . LOZY )@@G@@AD NECESSARY PTRS @D@@@I L X11,XREGBF+1 . SET UP XZZ )@@G@@11 @E@@@I L,H2 A1,0,X11 . HOW MANY PARAMETERSAA )@@G@@@D@@@I TE,U A1,3 . IF NOT 3 @C@@@I AB )@@G@@ ER EABT$ . BLOW OFF@F@@@I SZ *3,XAC )@@G@@11 . INITIALIZE STATUS WRD @E@@@I L,H2 A0,1AD )@@G@@,X11 . LOGRECORD BUFFER ADD@F@@@I AN,H2 X10,IOPR+4AE )@@G@@ . GET RID OF OLD BUFFER @D@@@I S,H2 A0,IOPR+4.AF )@@G@@ STORE THE NEW ONE IN @G@@@I A,H2 X10,IOPR+4 . OAG )@@G@@FF SET FOR THE NEW BUFFER @D@@@I JN A5,SETUP AH )@@G@@ . GO LOOK AT IO @E@@@I JGD A5,SEARCH . GO LOOK AI )@@G@@AT CURR BUF @B@@@ISETUP. . @B@@@IIOLOOPAJ )@@G@@. . @C@@@I L,U A0,IOPR AK )@@G@@ . DO IO@C@@@I ER IOW$ . ROG AL )@@G@@@D@@@I TZ,S1 IOPR+3 . BAD STAT @C@@@I AM )@@G@@ LMJ X10,BADIO . GO CHECK@E@@@I L,H2 X10,IAN )@@G@@OPR+4 . BUF ADD- INDEX @E@@@I LXI,U X10,28 AO )@@G@@ . SECTOR INCREM. @F@@@I L,U A5,63 AP )@@G@@ . # OF SECTORS TO SEARCH @E@@@I L A0,('SYSLOG') AQ )@@G@@ . IS IT THE @E@@@I TE A0,0,X10 . AR )@@G@@ FIRST BLOCK ? @C@@@I J SEARCH . NO AS )@@G@@@C@@@I L A4,2,X10 . YES @G@@@I TGAT )@@G@@,U A4,64 . IS HEADER MORE THAN A TRK @E@@@I AU )@@G@@ J $+2 . YES MUST ADJUST @E@@@I J AV )@@G@@ ADDADJ . NO ADDJUST PTRS @C@@@I SZ AW )@@G@@ A3 . SET UP@D@@@I DI,U A3,64 AX )@@G@@ . MORE IO'S @B@@@I AN,U A3,1 . @B@@@IAY )@@G@@SRIOLP. . @D@@@I L,U A0,IOAZ )@@G@@PR . IO LOOP @C@@@I ER IOW$ BA )@@G@@ . YEA @D@@@I TNZ,S1 IOPR+3 . BAD STAT ? BB )@@G@@@C@@@I LMJ X10,BADIO . YES @D@@@I JGBC )@@G@@D A3,SRIOLP . NO GO AGAIN @B@@@IADDADJ. BD )@@G@@ . @D@@@I AN A5,A4 . BLOCK BE )@@G@@PTR @B@@@I MSI,U A4,28 . @C@@@I A BF )@@G@@ X10,A4 . OK @B@@@ISEARCH. BG )@@G@@ . @D@@@I TNZ,S1 0,X10 . GOOD LOG TYPEBH )@@G@@@D@@@I J SERCHN . NO TRY AGAIN @E@@@I. BI )@@G@@ L,U A0,03 . SYSTEM LOG INDICATOR@E@@@I. TEBJ )@@G@@,S3 A0,0,X10 . IS IT THERE? @E@@@I. J BK )@@G@@ SERCHN . NO TRY AGAIN . @F@@@I L,U A0,32BL )@@G@@ . SEARCH FOR LOG RECS @D@@@I TE,S1 A0,0,BM )@@G@@X10 . TYPE 32! @C@@@I J RECOUT BN )@@G@@ . NO @D@@@I L,U A1,+'JAC' . JAC 32? BO )@@G@@@C@@@I TNE,H2 A1,1,X10 . !?! @C@@@I J BP )@@G@@ MOV32 . YES @]@@@ISERCHN. @C@@@I A,BQ )@@G@@U X10,28 . NO @ @@@I J RECOUTA BR )@@G@@@B@@@IRECOUT. . @D@@@I TNZ BS )@@G@@ FRSTIM . FIRST PASS @C@@@I J RECOUT1 BT )@@G@@ . NO @D@@@I A,U X10,28 . SET INDBU )@@G@@EX UP @]@@@IRECOUTA. @E@@@I JGD A5,SEARCH . BV )@@G@@YES LOOP SEARCH @D@@@I J IOLOOP . MORE IBW )@@G@@O @B@@@IRECOUT1 . @C@@@I L,BX )@@G@@H1 A1,25,X10 . READY@C@@@I DSC A0,6 BY )@@G@@ . FOR @D@@@I SSL A0,30 . CONSUMBZ )@@G@@PTION @D@@@I LSSL A1,24 . REARRANGE @C@@@ICA )@@G@@ LDSL A0,12 . DATE @#@@@I. X$ON CB )@@G@@@A@@@I. X$CORE 0,28,'A',X10 @D@@@I S,H1 A0,25CC )@@G@@,*X10 . YYMMDD @E@@@I SZ A2 CD )@@G@@ . ZERO UPPER HALF @B@@@I LXM A2,X10 . CE )@@G@@@ @@@I AN,H2 A2,IOPR+4 @B@@@I DI,U A1,28 CF )@@G@@ . @B@@@I S A1,*2,X11 . @[@@@IOUT. CG )@@G@@@ @@@I S X10,LPRGRG@A@@@I S A5,LPRGRG+CH )@@G@@1 @E@@@I L X10,XREGBF . LOAD REGISTERS CI )@@G@@@D@@@I DL A0,XREGBF+1 . LOAD REGISTERS@D@@@I CJ )@@G@@ DL A2,XREGBF+3 . LOAD REGISTERS@D@@@I DL CK )@@G@@ A4,XREGBF+5 . LOAD REGISTERS@ @@@I. X$CREG X0,44,'O' CL )@@G@@@#@@@I. X$OFF @D@@@I L X11,X11SV . RECM )@@G@@STORE X11 @C@@@I J 0,X11 . RETURN @B@@@ICN )@@G@@MOV32. . @D@@@I L,S2 A1,1CO )@@G@@,X10 . SEQ OF 32 BLK@D@@@I L A0,25,X10 CP )@@G@@ . DATETIME @E@@@I TNE A0,X32DT . EQUAL TCQ )@@G@@O HOLD VALUE@C@@@I J DATEQ . YES @]@@@ICR )@@G@@DATENE. @F@@@I TE,U A1,1 . IS IT THE FIRSCS )@@G@@T BLOCK @C@@@I J BAD32 . NO BAD 32 @E@@@ICT )@@G@@ L A1,25,X10 . DATE TIME TO X32DT @C@@@I CU )@@G@@ S A1,X32DT . ROG @D@@@I L,U A0,XCV )@@G@@32BUF . REINIT X32PTR @E@@@I S A0,X32PTR CW )@@G@@ . WITH X32BUF ADDR @D@@@I J GOODBF . GOCX @EOF @COPY,IO TEMP.1044-001-001,1044-001-001. @FREE TEMP.