CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 1 1 OPTION LIST ON MAP SORT=NONE 2 USER CA 4 NOTE ********************************************** 5 NOTE * * 6 NOTE * A C T I V I T Y R E G I S T E R * 7 NOTE * * 8 NOTE * THIS REPORTING FACILITY PROGRAM PRODUCES * 9 NOTE * A SINGLE REPORT, SHOWING A DETAIL LIST * 10 NOTE * OF ALL ACTIVITY. * 11 NOTE * * 12 NOTE ********************************************** ┌──────────────────────────────────────────────────────────────────────────────┐ │ 14 TRANS: FILE CARD │ │ 15 DEF TRANSACTION-CODE 1 TO 2 X │ │ 16 DEF ID-NUMBER 3 TO 6 X │ │ Alternate Headings │ │ 17 DEF AMOUNT 7 TO 13 N2 ▼ ▼ │ │ 18 DEF ACTIVITY-DATE 14 TO 21 X 'DATE OF' 'ACTIVITY' │ ◄ Input data file fields │ 19 DEF CLEARED 22 X │ │ 20 DEF PAYEE 23 TO 42 X │ │ 21 DEF REASON 44 TO 75 X │ └──────────────────────────────────────────────────────────────────────────────┘ ┌──────────────────────────────────────────────────────────────────────────────┐ │ ┌─────────────────────────────────────────────────────────┐ │ │ 23 │ DEF PRINTTYPE(9)=' ' ' TYPE /' ' STATUS' │ ◄ Field redefinition │ 24 │ DEF PRTCODE=PRINTTYPE 1-2 X │ │ │ 25 │ DEF PRTIDNUMBER=PRINTTYPE 4-7 X │ │ │ 26 │ DEF PRTSTAT=PRINTTYPE 9 X │ │ │ └─────────────────────────────────────────────────────────┘ │ ◄ GSA fields │ 27 DEFINE RUNNING-BALANCE(9.2)=0 'RUNNING ' 'BALANCE ' │ │ 28 PIC '$$$,$$$,$$9.99-' │ │ 29 DEFINE NEGATIVE(5.2) EQ 0 ' ' '-(MINUS)' PIC '$$,$$9.99-' │ │ 30 DEFINE POSITIVE(5.2) EQ 0 ' ' '┘(PLUS)' PIC '$$,$$9.99-' │ └──────────────────────────────────────────────────────────────────────────────┘ 32 SET PRTCODE EQUAL TO TRANSACTION-CODE Notice that automatic read 33 SET PRTIDNUMBER EQUAL TO ID-NUMBER of primary file is assumed. 34 MOVE CLEARED TO PRTSTAT 35 GO TO PLUS WHEN TRANSACTION-CODE EQ 'BF' 36 GO TO PLUS WHEN TRANSACTION-CODE EQ 'DP' 37 MOVE AMOUNT TO NEGATIVE 38 REDUCE RUNNING-BALANCE BY AMOUNT 39 GOTO TEST 40 PLUS: CONTINUE 41 MOVE AMOUNT TO POSITIVE 42 ADD AMOUNT TO RUNNING-BALANCE 44 REPORT 'ACTIVITY REGISTER' ┌──────────────────────────────────────────────────────────────────┐ │ 45 SELECT 'A' WHEN TRANSACTION-CODE EQ 'BF' │ │ 46 SELECT 'A' WHEN TRANSACTION-CODE EQ 'DP' │ ◄ Conditional record selection │ 47 SELECT 'B' ALL │ └──────────────────────────────────────────────────────────────────┘ ┌──────────────────────────────────────────────────────────────────┐ │ 48 PRINT PRINTTYPE ACTIVITY-DATE PAYEE REASON │ ◄ Conditional record printing │ 49 (A;POSITIVE) (B;NEGATIVE) RUNNING-BALANCE │ with field accumulation └──────────────────────────────────────────────────────────────────┘ 50 END COMPILE PHASE COMPLETED - NO ERRORS FOUND
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 2 NO WARNINGS ISSUED START 13:58:59 - STOP 13:59:00
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 3 COMPILE DIAGNOSTICS I/P 00001 X 00080 = 00080 TRANS GSA 00000001071 (00000000084 ENTRIES) GSA 1 = 00000000001 NUMERIC CONSTANT ...... CON GSA 2 = 00000000024 QUOTED LITERAL ........ LIT GSA 3 = 00000000001 INTERMEDIATE RESULT ... RES GSA 4 = 00000000051 UNQUOTED LITERAL ...... INT GSA 5 = 00000000002 ACCUMULATOR ........... ACC GSA 6 = 00000000004 VALUE ................. VAL GSA 7 = 00000000000 STRING ................ STR GSA 8 = 00000000001 HEX LITERAL ........... HEX FNT 00000000782 (00000000045 ENTRIES) FNT 0 = 00000000006 LABELS ................ 01 FNT 1 = 00000000038 SCALAR VARIABLES ...... 01 FNT 2 = 00000000001 FILE DESC. BLOCKS ..... 02 FNT 3 = 00000000000 ARRAYS ................ 03 FST 00000003892 (00000000139 ENTRIES) FST 0 = 00000000004 INTERNAL ONLY ......... -02 FST 1 = 00000000002 USER/REPORT ........... 01 FST 2 = 00000000007 INPUT AREA VARIABLE ... 02 FST 3 = 00000000090 GSA VARIABLE .......... 03 FST 4 = 00000000009 DATA MOVEMENT ......... 04 FST 5 = 00000000000 DECODE ................ 05 FST 6 = 00000000001 SEQUENCE AND CONTROL .. 06 FST 7 = 00000000006 CONDITION TEST ........ 07 FST 8 = 00000000004 SELECTION ............. 08 FST 9 = 00000000008 PRINT LAYOUT .......... 09 FST A = 00000000007 HIT RECORD EXTENSION .. 0A FST B = 00000000001 GET RECORD ............ 0B FST C = 00000000000 CONTROL BREAK CALC .... 0C FST D = 00000000000 UNDEFINED ............. 0D FST E = 00000000000 ARRAY DEF/REL. INDEX .. 0E FST F = 00000000000 DUMMY ................. 0F GETMAIN REQUIREMENT FOR GSA/FNT/FST ... APPROX. 006K
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 4 ------ FIELD NAME ------ ORIGIN QUAL HIT ARY ----------------------------------- REPORTS ------------------------------ ABORT: *LABEL* ACTIVITY-DATE TRANS (01) X 1 AMOUNT TRANS (01) BLANK * GSA * (00) CLEARED TRANS (01) CURRDATE * GSA * (00) CURRENT-DATE * GSA * (00) CURRENT-TIME * GSA * (00) CURRTIME * GSA * (00) DD * GSA * (00) END-OF-FILE * GSA * (00) EOJ: *LABEL* HR * GSA * (00) ID-NUMBER TRANS (01) MM * GSA * (00) MN * GSA * (00) NEGATIVE * GSA * (00) X 1 NO-RECORD-FOUND * GSA * (00) PAYEE TRANS (01) X 1 PLUS: *LABEL* POSITIVE * GSA * (00) X 1 PRINTTYPE * GSA * (00) X 1 PRTCODE * GSA * (00) PRTIDNUMBER * GSA * (00) PRTSTAT * GSA * (00) QSEQ * GSA * (00) REASON TRANS (01) X 1 RECORD-FOUND * GSA * (00) RUNNING-BALANCE * GSA * (00) X 1 SPACE * GSA * (00) SPACES * GSA * (00) SS * GSA * (00) START: *LABEL* TAG * GSA * (00) TEST: *LABEL* TRANS * GSA * (00) TRANS: *LABEL* TRANSACTION-CODE TRANS (01) XD * GSA * (00) XM * GSA * (00) XY * GSA * (00) YY * GSA * (00) ZERO * GSA * (00) ZEROS * GSA * (00)
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 5 (3350 ) ......H I T F I L E L A Y O U T...... FD DROUT DROUT: FILE DISK SEQUENTIAL VARIABLE RECORD= 98 BLOCK= 4610 BLOCK CONTAINS 4610 CHARACTERS RECORD CONTAINS 98 CHARACTERS RECORDING MODE V DATA RECORD IS HITFILE. 01 HITFILE. 02 RDW PICTURE X(4) DEFINE RDW 1 - 4 X 02 TAG-CHARACTER PICTURE X DEFINE TAG-CHARACTER 5 - 5 X 02 SORT-KEY. 03 REPORT-NUMBER PICTURE B DEFINE REPORT-NUMBER 6 - 6 B 03 USER-SORT-KEY PICTURE X(9) DEFINE USER-SORT-KEY 7 - 15 X ┌─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ 02 REPORT-01. ACTIVITY REGISTER │ │ 03 00.PRINTTYPE PICTURE X(9). DEFINE 00.PRINTTYPE 16 - 24 X │ │ 03 01.ACTIVITY-DATE PICTURE X(8) DEFINE 01.ACTIVITY-DATE 25 - 32 X │ │ 03 01.PAYEE PICTURE X(20) DEFINE 01.PAYEE 33 - 52 X │ │ 03 01.REASON PICTURE X(32) DEFINE 01.REASON 53 - 84 X │ │ 03 00.POSITIVE PICTURE S9(5)V99 COMP-3 DEFINE 00.POSITIVE 85 - 88 P2 │ │ 03 00.NEGATIVE PICTURE S9(5)V99 COMP-3 DEFINE 00.NEGATIVE 89 - 92 P2 │ │ 03 00.RUNNING-BALANCE PICTURE S9(9)V99 COMP-3 DEFINE 00.RUNNING-BALANCE 93 - 98 P2 │ └─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘ ▲ Single report
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 6 REPORT 01 FIELD NAME HDR1 HDR2 DTL ACC TOTAL PICTURE TAG FROM TO LINE 01 00.PRINTTYPE 8 8 9 9 1 9 01.ACTIVITY-DATE 8 8 8 8 13 20 01.PAYEE 5 20 20 24 43 01.REASON 6 32 32 47 78 ┌───┐ 00.POSITIVE 7 11 13 13 $$,$$9.99- │ A │ 83 95 00.NEGATIVE 8 11 13 13 $$,$$9.99- │ B │ 100 112 └───┘ 00.RUNNING-BALANCE 9 9 16 16 $$$,$$$,$$9.99- 117 132 ▲ Tag characters (see SELECT and PRINT commands)
24 JUN 2010 ACTIVITY REGISTER Conditional Printing PAGE ------------------------------------------------------------------------------------------------------------------------------- TYPE / DATE OF PAYEE REASON ▼ ▼ RUNNING STATUS ACTIVITY +(PLUS) -(MINUS) BALANCE ------------------------------------------------------------------------------------------------------------------------------- BF 01/01/10 BALANCE BROUGHT FORWARD 000 $109.12 $109.12 09.12 DP 01/01/10 000 $500.00 $609.12 09.12 CK 1200 X 01/01/10 ABC NATIONAL BANK CASH 000 $50.00 $559.12 59.12 CK 1201 X 01/01/10 ACME NATIONAL LIFE JANUARY INS. PREMIUM 000 $37.02 $522.10 22.10 CK 1202 X 01/01/10 SOUTHWEST TITLE CO. JANUARY MORTGAGE PAYMENT 000 $433.00 $89.10 89.10 CK 1203 X 01/03/10 TEXAS POWER & LIGHT UTILITY BILL FOR DEC'07 000 $62.15 $26.95 26.95 CK 1204 X 01/10/10 FOOD MART GROCERIES 000 $22.87 $4.08 $4.08 DP 01/15/10 000 $824.07 $828.15 28.15 CK 1205 X 01/15/10 RICHBURG INS. AGENCY CAR INSURANCE 000 $412.89 $415.26 15.26 CK 1206 X 01/22/10 ABC NATIONAL BANK CASH 000 $100.00 $315.26 15.26 CK 1207 X 01/22/10 SOUTHWESTERN BELL PHONE BILL 000 $22.03 $293.23 93.23 CK 1208 X 01/23/10 ACME HAIR DESIGN HAIRCUT 000 $17.00 $276.23 76.23 CK 1209 X 01/25/10 SEARS ROEBUCK DRYER 000 $213.56 $62.67 62.67 CK 1210 X 01/27/10 ALL-NITE BOWLING BOWLING BAG 000 $16.75 $45.92 45.92 CK 1211 X 01/30/10 ACME FINANCE LOAN PAYMENT 1 000 $89.98 $44.06- 44.06- NS 01/31/10 000 $6.00 $50.06- 50.06- SC 01/31/10 000 $4.00 $54.06- 54.06- DP 02/01/10 000 $922.00 $867.94 67.94 CK 1212 X 02/01/10 JOHN DOE RETURN OF CASH ADVANCE 000 $150.00 $717.94 17.94 CK 1213 X 02/03/10 SOUTHWEST TITLE CO. FEBRUARY MORTGAGE PAYMENT 000 $433.00 $284.94 84.94 CK 1214 X 02/05/10 TEXAS POWER & LIGHT UTILITY BILL FOR JAN'08 000 $59.11 $225.83 25.83 CK 1215 X 02/09/10 ACME NATIONAL LIFE FEBRUARY INS. PREMIUM 000 $37.02 $188.81 88.81 CK 1216 X 02/11/10 FOOD MART GROCERIES 000 $68.29 $120.52 20.52 CK 1217 X 02/11/10 ABC NATIONAL BANK CASH 000 $25.00 $95.52 95.52 DP 02/17/10 2007 INCOME TAX REFUND 000 $1,538.00 $1,633.52 33.52 CK 1218 X 02/20/10 ABC NATIONAL BANK CASH 000 $50.00 $1,583.52 83.52 CK 1219 X 02/21/10 ACME FINANCE LOAN PAYMENTS 2 AND 3 000 $179.96 $1,403.56 03.56 CK 1220 X 02/27/10 SOUTHWEST TITLE CO. MARCH/APRIL MORTGAGE PAYMENT 000 $866.00 $537.56 37.56 CK 1221 X 02/28/10 COMPANY XYZ SUIT 000 $120.42 $417.14 17.14 CK 1222 X 03/02/10 TEXAS POWER & LIGHT UTILITY BILL FOR FEB'08 000 $62.11 $355.56 55.03 CK 1223 X 03/02/10 ABC NATIONAL BANK CASH 000 $25.00 $330.03 30.03 SC 03/03/10 000 $4.00 $326.03 26.03 CK 1224 X 03/09/10 FOOD MART GROCERIES 000 $72.80 $253.23 53.23 CK 1225 X 03/12/10 SOUTHERN AIRWAYS TICKET TO LUBBOCK 000 $227.89 $25.34 25.34 DP 03/15/10 000 $922.00 $947.34 47.34 CK 1226 X 03/16/10 ABC NATIONAL BANK CASH 000 $250.00 $697.34 97.34 CK 1227 X 03/27/10 ACME NATIONAL LIFE MARCH/APRIL INS. PREMIUMS 000 $74.04 $623.30 23.30 CK 1228 X 03/30/10 DISCOUNT AUTO STORE BATTERY 000 $35.70 $587.60 87.60 DP 04/01/10 000 $922.00 $1,509.60 09.60 CK 1229 X 04/02/10 V.O.I.D. 000 $0.00 $1,509.60 09.60 CK 1230 X 04/02/10 TEXAS POWER & LIGHT UTILITY BILL FOR MAR'08 000 $47.18 $1,462.42 62.42 CK 1231 X 04/02/10 FOOD MART GROCERIES 000 $25.90 $1,436.52 36.52 CK 1232 X 04/02/10 ABC NATIONAL BANK CASH 000 $100.00 $1,336.52 36.52 CK 1233 X 04/10/10 ACME FINANCE LOAN PAYMENT 4 000 $89.98 $1,246.54 46.54 CK 1234 X 04/10/10 SOUTHWESTERN BELL PHONE BILLS 000 $79.82 $1,166.72 66.72 SC 04/10/10 000 $4.00 $1,162.72 62.72 CK 1235 X 04/10/10 ABC NATIONAL BANK CASH 000 $50.00 $1,112.72 12.72 CK 1236 X 04/11/10 DISCOUNT AUTO STORE TUNE-UP KIT 000 $21.60 $1,091.12 91.12 CK 1237 X 04/15/10 BERNY'S CHEVROLET DOWN PAYMENT ON CORVETTE 000 $1,000.00 $91.12 91.12 DP 04/15/10 PARTIAL SAVINGS WITHDRAWAL 000 $2,922.00 $3,013.12 13.12 CK 1238 X 04/15/10 ABC NATIONAL BANK CASH 000 $75.00 $2,938.12 38.12
CA 24 JUN 2010 ACTIVITY REGISTER PAGE 2 ------------------------------------------------------------------------------------------------------------------------------- TYPE / DATE OF PAYEE REASON RUNNING STATUS ACTIVITY +(PLUS) -(MINUS) BALANCE ------------------------------------------------------------------------------------------------------------------------------- CK 1239 X 04/20/10 CITY OF DALLAS PARKING TICKET 000 $5.00 $2,933.12 CK 1240 X 04/20/10 ALL-NITE BOWLING ENTERTAINMENT 000 $11.55 $2,921.57 CK 1241 X 04/22/10 MODERNAGE TV REPAIRS 000 $75.22 $2,846.35 CK 1242 X 04/25/10 BERNY'S CHEVROLET CAR PAYMENT 1 000 $179.00 $2,667.35 CK 1243 X 04/26/10 ABC NATIONAL BANK CASH 000 $25.00 $2,642.35 CK 1244 X 04/26/10 ACME FINANCE LOAN PAYMENT 5 000 $89.98 $2,552.37 CK 1245 X 04/29/10 SOUTHWEST TITLE CO. MAY MORTGAGE PAYMENT 000 $433.00 $2,119.37 DP 05/01/10 000 $922.00 $3,041.37 CK 1246 X 05/01/10 ABC NATIONAL BANK CASH 000 $50.00 $2,991.37 CK 1247 X 05/01/10 ACME NATIONAL LIFE MAY INS. PREMIUM 000 $37.02 $2,954.35 CK 1248 X 05/01/10 TEXAS POWER & LIGHT UTILITY BILL FOR APR'08 000 $55.98 $2,898.37 CK 1249 X 05/01/10 BERNY'S CHEVROLET CAR PAYMENT 2 000 $179.00 $2,719.37 CK 1250 X 05/02/10 COMPANY XYZ BRIEFCASE 000 $47.56 $2,671.81 SC 05/02/10 000 $4.00 $2,667.81 CK 1251 X 05/05/10 ALL-NITE BOWLING ENTERTAINMENT 000 $21.60 $2,646.21 CK 1252 X 05/06/10 ABC NATIONAL BANK CASH 000 $50.00 $2,596.21 CK 1253 X 05/10/10 SEARS ROEBUCK WASHER 000 $256.75 $2,339.46 CK 1254 X 05/11/10 FOOD MART GROCERIES 000 $53.89 $2,285.57 CK 1255 X 05/15/10 DISCOUNT AUTO STORE MISC. AUTO PARTS 000 $42.04 $2,243.53 DP 05/15/10 000 $962.00 $3,205.53 CK 1256 X 05/15/10 BERNY'S CHEVROLET CAR PAYMENT 3 000 $179.00 $3,026.53 CK 1257 X 05/15/10 H & L FLORISTS ROSES 000 $44.95 $2,981.58 CK 1258 X 05/15/10 COMPANY XYZ MISC. 000 $27.89 $2,953.69 CK 1259 X 05/16/10 ABC NATIONAL BANK CASH 000 $50.00 $2,903.69 CK 1260 X 05/17/10 MODERNAGE TV TV 000 $272.50 $2,631.19 CK 1261 X 05/17/10 RX DRUGS PRESCRIPTION 000 $14.80 $2,616.39 CK 1262 X 05/17/10 ACME HAIR DESIGN HAIRCUT 000 $17.00 $2,599.39 CK 1263 X 05/18/10 SOUTHWESTERN BELL PHONE BILL 000 $55.39 $2,544.00 CK 1264 X 05/18/10 ALL-NITE BOWLING ENTERTAINMENT 000 $22.50 $2,521.50 CK 1265 X 05/18/10 JOHN DOE RETURN CASH ADVANCE 000 $95.00 $2,426.50 CK 1266 X 05/18/10 ABC NATIONAL BANK CASH 000 $25.00 $2,401.50 CK 1267 05/20/10 ACME NATIONAL LIFE JUNE INS. PREMIUM 000 $37.02 $2,364.48 CK 1268 05/21/10 SOUTHWEST TITLE CO. JUNE MORTGAGE PAYMENT 000 $433.00 $1,931.48 CK 1269 05/21/10 ABC NATIONAL BANK CASH 000 $25.00 $1,906.48 DP 06/01/10 000 $962.00 $2,868.48 CK 1270 06/01/10 TEXAS POWER & LIGHT UTILITY BILL FOR MAY'08 000 $53.21 $2,815.27 CK 1271 06/02/10 ABC NATIONAL BANK CASH 000 $50.00 $2,765.27 CK 1272 06/02/10 FOOD MART GROCERIES 000 $82.40 $2,682.87 CK 1273 06/02/10 ALL-NITE BOWLING ENTERTAINMENT 000 $11.00 $2,671.87 CK 1274 X 06/05/10 V.O.I.D. 000 $0.00 $2,671.87 CK 1275 06/05/10 ABC NATIONAL BANK CASH 000 $150.00 $2,521.87 DP 06/15/10 000 $962.00 $3,483.87 ------------- ------------- GRAND TOTAL $12,467.19 $8,983.32
RUN DIAGNOSTICS INDEX VIOLATIONS 00000000000 PROGRAM CHECKS 00000000000 PRIMARY I/P RECORDS 00000000093 HITS FOR REPORT 1 - 00000000093 TOTAL RECORDS SELECTED 00000000093
|
Copyright © 2014 CA.
All rights reserved.
|
|