Following is a sample of the first page of the report.
1 OPTION LIST ON MAP 2 USER CA 3 4 NOTE ********************************************** 5 NOTE * * 6 NOTE * A C T I V I T Y R E G I S T E R * 7 NOTE * BY MONTH * 8 NOTE * * 9 NOTE * THIS REPORTING FACILITY PROGRAM PRODUCES * 10 NOTE * A SINGLE REPORT, SHOWING A DETAIL LIST OF * 11 NOTE * ALL ACTIVITY, WITH CONTROL TOTALS TAKEN * 12 NOTE * BY MONTH. * 13 NOTE * * 14 NOTE ********************************************** 16 TRANS: INPUT CARD 17 DEF TRANSACTION-CODE 1-2 X 18 DEF ID-NUMBER 3-6 X 19 DEF AMOUNT 7-13 N2 20 DEF ACTIVITY-DATE 14-21 X 'DATE OF' 'ACTIVITY' 21 DEF CLEARED 22 X 22 DEF PAYEE 23-42 X 23 DEF REASON 44-75 X 24 DEF ACTMONTH(2.0) = 0 N 25 DEF ALPHAMONTH(9)=' ' N 26 DEF ACTDAY=ACTIVITY-DATE 4-5 N 27 DEF ACTYEAR=ACTIVITY-DATE 7-8 N 28 DEF PRINTTYPE(9)=' ' ' TYPE /' ' STATUS' 29 DEF PRTCODE=PRINTTYPE 1-2 X 30 DEF PRTIDNUMBER=PRINTTYPE 4-7 X 31 DEF PRTSTAT=PRINTTYPE 9 X 32 DEFINE RUNNING-BALANCE(9.2)=0 'RUNNING ' 'BALANCE ' 33 PIC '$$$,$$$,$$9.99-' 34 DEFINE NEGATIVE(5.2) EQ 0 ' ' '-(MINUS)' PIC '$$,$$9.99-' 35 DEFINE POSITIVE(5.2) EQ 0 ' ' '+(PLUS)' PIC '$$,$$9.99-' 37 DECODE ACTMONTH INTO ALPHAMONTH 38 01 = 'JANUARY' 39 02 = 'FEBRUARY' 40 03 = 'MARCH' 41 04 = 'APRIL' 42 05 = 'MAY' 43 06 = 'JUNE' 44 07 = 'JULY' 45 08 = 'AUGUST' 46 09 = 'SEPTEMBER' 47 10 = 'OCTOBER' 48 11 = 'NOVEMBER' 49 ELSE 'DECEMBER'
Following is a sample of the second page of the report.
51 SET PRTCODE EQUAL TO TRANSACTION-CODE 52 SET PRTIDNUMBER EQUAL TO ID-NUMBER 53 MOVE CLEARED TO PRTSTAT 54 GO TO PLUS WHEN TRANSACTION-CODE EQ 'BF' 55 OR WHEN TRANSACTION-CODE EQ 'DP' 56 MOVE AMOUNT TO NEGATIVE 57 SUBTRACT AMOUNT FROM RUNNING-BALANCE 58 GOTO TEST 59 PLUS: CONT 60 MOVE AMOUNT TO POSITIVE 61 INCREMENT RUNNING-BALANCE BY AMOUNT 63 REPORT 'ACTIVITY REGISTER BY MONTH' 64 'TOTALS FOR MONTH OF' ALPHAMONTH '19' 0 ACTYEAR 65 SELECT 'A' WHERE TRANSACTION-CODE EQ 'BF' 66 OR WHEN TRANSACTION-CODE EQ 'DP' 67 SELECT 'B' ALL ┌──────────────────────────────────────────────────────────────┐ │ 68 CONTROL ACTYEAR (ACTMONTH) SKIP ACTDAY QSEQ │ ◄ Sort required └──────────────────────────────────────────────────────────────┘ 69 PRINT ACTIVITY-DATE PRINTTYPE PAYEE REASON 70 (A;POSITIVE) (B;NEGATIVE) RUNNING-BALANCE 71 END COMPILE PHASE COMPLETED - NO ERRORS FOUND NO WARNINGS ISSUED START 14:01:16 - STOP 14:01:17
Following is a sample of the third page of the report.
I/P 00001 X 00080 = 00080 TRANS O/P 00035 X 00132 = 04620 HITFILE SRT 00005 - 00042 = 00037 .SORT KEY INFO. GSA 00000001249 (00000000117 ENTRIES) GSA 1 = 00000000012 NUMERIC CONSTANT ...... CON GSA 2 = 00000000039 QUOTED LITERAL ........ LIT GSA 3 = 00000000001 INTERMEDIATE RESULT ... RES GSA 4 = 00000000056 UNQUOTED LITERAL ...... INT GSA 5 = 00000000004 ACCUMULATOR ........... ACC GSA 6 = 00000000004 VALUE ................. VAL GSA 7 = 00000000000 STRING ................ STR GSA 8 = 00000000001 HEX LITERAL ........... HEX FNT 00000000853 (00000000049 ENTRIES) FNT 0 = 00000000006 LABELS ................ 01 FNT 1 = 00000000042 SCALAR VARIABLES ...... 01 FNT 2 = 00000000001 FILE DESC. BLOCKS ..... 02 FNT 3 = 00000000000 ARRAYS ................ 03 FST 00000005348 (00000000191 ENTRIES) FST 0 = 00000000004 INTERNAL ONLY ......... -02 FST 1 = 00000000002 USER/REPORT ........... 01 FST 2 = 00000000010 INPUT AREA VARIABLE ... 02 FST 3 = 00000000119 GSA VARIABLE .......... 03 FST 4 = 00000000009 DATA MOVEMENT ......... 04 FST 5 = 00000000012 DECODE ................ 05 FST 6 = 00000000004 SEQUENCE AND CONTROL .. 06 FST 7 = 00000000006 CONDITION TEST ........ 07 FST 8 = 00000000003 SELECTION ............. 08 FST 9 = 00000000012 PRINT LAYOUT .......... 09 FST A = 00000000009 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. 008K
Following is a sample of the fourth page of the report.
------ FIELD NAME ------ ORIGIN QUAL HIT ARY ----------------------------------- REPORTS ------------------------------ ABORT: *LABEL* ACTDAY TRANS (01) ACTIVITY-DATE TRANS (01) X 1 ACTMONTH TRANS (01) ACTYEAR TRANS (01) X 1 ALPHAMONTH * GSA * (00) 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)
Following is a sample of the fifth page of the report.
(3350 ) ......H I T F I L E L A Y O U T...... FD DROUT DROUT: FILE DISK SEQUENTIAL VARIABLE RECORD= 136 BLOCK= 4624 BLOCK CONTAINS 4624 CHARACTERS RECORD CONTAINS 136 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(36) DEFINE USER-SORT-KEY 7 - 42 X 02 REPORT-01. ACTIVITY REGISTER BY MONTH 03 00.ALPHAMONTH PICTURE X(9). DEFINE 00.ALPHAMONTH 43 - 51 X 03 01.ACTYEAR PICTURE 99 DEFINE 01.ACTYEAR 52 - 53 N 03 01.ACTIVITY-DATE PICTURE X(8) DEFINE 01.ACTIVITY-DATE 54 - 61 X 03 00.PRINTTYPE PICTURE X(9) DEFINE 00.PRINTTYPE 62 - 70 X 03 01.PAYEE PICTURE X(20) DEFINE 01.PAYEE 71 - 90 X 03 01.REASON PICTURE X(32) DEFINE 01.REASON 91 - 122 X 03 00.POSITIVE PICTURE S9(5)V99 COMP-3 DEFINE 00.POSITIVE 123 - 126 P2 03 00.NEGATIVE PICTURE S9(5)V99 COMP-3 DEFINE 00.NEGATIVE 127 - 130 P2 03 00.RUNNING-BALANCE PICTURE S9(9)V99 COMP-3 DEFINE 00.RUNNING-BALANCE 131 - 136 P2
Following is a sample of the sixth page of the report.
REPORT 01 FIELD NAME HDR1 HDR2 DTL ACC TOTAL PICTURE TAG FROM TO HEADING 00.* LITERAL * 19 19 1 19 00.ALPHAMONTH 9 9 21 29 00.* LITERAL * 2 2 31 32 01.ACTYEAR 3 3 99- 33 35 LINE 01 01.ACTIVITY-DATE 8 8 8 8 1 8 00.PRINTTYPE 8 8 9 9 12 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
RUN DIAGNOSTICS INDEX VIOLATIONS 00000000000 PROGRAM CHECKS 00000000000 PRIMARY I/P RECORDS 00000000093 HITS FOR REPORT 1 - 00000000093 TOTAL RECORDS SELECTED 00000000093
CA 24 JUN 2010 ACTIVITY REGISTER BY MONTH PAGE 1 TOTALS FOR MONTH OF JANUARY 2010 ------------------------------------------------------------------------------------------------------------------------------ DATE OF TYPE / PAYEE REASON RUNNING ACTIVITY STATUS +(PLUS) -(MINUS) BALANCE ------------------------------------------------------------------------------------------------------------------------------ 01/01/10 BF BALANCE BROUGHT FORWARD 000 $109.12 $109.12 01/01/10 DP 000 $500.00 $609.12 01/01/10 CK 1200 X ABC NATIONAL BANK CASH 000 $50.00 $559.12 01/01/10 CK 1201 X ACME NATIONAL LIFE JANUARY INS. PREMIUM 000 $37.02 $522.10 01/01/10 CK 1202 X SOUTHWEST TITLE CO. JANUARY MORTGAGE PAYMNT 000 $433.00 $89.10 01/03/10 CK 1203 X TEXAS POWER & LIGHT UTILITY BILL FOR DEC'00 000 $62.15 $26.95 01/10/10 CK 1204 X FOOD MART GROCERIES 000 $22.87 $4.08 01/15/10 DP 000 $824.07 $828.15 01/15/10 CK 1205 X RICHBURG INS. AGENCY CAR INSURANCE 000 $412.89 $415.26 01/22/10 CK 1206 X ABC NATIONAL BANK CASH 000 $100.00 $315.26 01/22/10 CK 1207 X SOUTHWESTERN BELL PHONE BILL 000 $22.03 $293.23 01/23/10 CK 1208 X ACME HAIR DESIGN HAIRCUT 000 $17.00 $276.23 01/25/10 CK 1209 X SEARS ROEBUCK DRYER 000 $213.56 $62.67 01/27/10 CK 1210 X ALL-NITE BOWLING BOWLING BAG 000 $16.75 $45.92 01/30/10 CK 1211 X ACME FINANCE LOAN PAYMENT 1 000 $89.98 $44.06- 01/31/10 NS 000 $6.00 $50.06- 01/31/10 SC 000 $4.00 $54.06- ------------ ------------ $1,433.19 $1,487.25 ------------ ------------ Page skip at control break
CA 24 JUN 2010 ACTIVITY REGISTER BY MONTH PAGE 2 2 TOTALS FOR MONTH OF FEBRUARY 2010 ------------------------------------------------------------------------------------------------------------------------------- DATE OF TYPE / PAYEE REASON RUNNING ACTIVITY STATUS +(PLUS) -(MINUS) BALANCE ------------------------------------------------------------------------------------------------------------------------------- 02/01/10 DP 000 $922.00 $867.94 02/01/10 CK 1212 X JOHN DOE RETURN OF CASH ADVANCE 000 $150.00 $717.94 02/03/10 CK 1213 X SOUTHWEST TITLE CO. FEBRUARY MORTGAGE PAYMENT 000 $433.00 $284.94 02/05/10 CK 1214 X TEXAS POWER & LIGHT UTILITY BILL FOR JAN'01 000 $59.11 $225.83 02/09/10 CK 1215 X ACME NATIONAL LIFE FEBRUARY INS. PREMIUM 000 $37.02 $188.81 02/11/10 CK 1216 X FOOD MART GROCERIES 000 $68.29 $120.52 02/11/10 CK 1217 X ABC NATIONAL BANK CASH 000 $25.00 $95.52 02/17/10 DP 1992 INCOME TAX REFUND 000 $1,538.00 $1,633.52 02/20/10 CK 1218 X ABC NATIONAL BANK CASH 000 $50.00 $1,583.52 02/21/10 CK 1219 X ACME FINANCE LOAN PAYMENTS 2 AND 3 000 $179.96 $1,403.56 02/27/10 CK 1220 X SOUTHWEST TITLE CO. MARCH/APRIL MORTGAGE PAYMENT 000 $866.00 $537.56 02/28/10 CK 1221 X COMPANY XYZ SUIT 000 $120.42 $417.14
CA 24 JUN 2010 ACTIVITY REGISTER BY MONTH PAGE 3 TOTALS FOR MONTH OF MARCH 2010 ------------------------------------------------------------------------------------------------------------------------------- DATE OF TYPE / PAYEE REASON RUNNING ACTIVITY STATUS +(PLUS) -(MINUS) BALANCE ------------------------------------------------------------------------------------------------------------------------------- 03/02/10 CK 1222 X TEXAS POWER & LIGHT UTILITY BILL FOR FEB'01 000 $62.11 $355.03 03/02/10 CK 1223 X ABC NATIONAL BANK CASH 000 $25.00 $330.03 03/03/10 SC 000 $4.00 $326.03 03/09/10 CK 1224 X FOOD MART GROCERIES 000 $72.80 $253.23 03/12/10 CK 1225 X SOUTHERN AIRWAYS TICKET TO LUBBOCK 000 $227.89 $25.34 03/15/10 DP 000 $922.00 $947.34 03/16/10 CK 1226 X ABC NATIONAL BANK CASH 000 $250.00 $697.34 03/27/10 CK 1227 X ACME NATIONAL LIFE MARCH/APRIL INS. PREMIUMS 000 $74.04 $623.30 03/30/10 CK 1228 X DISCOUNT AUTO STORE BATTERY 000 $35.70 $587.60
CA 24 JUN 2010 ACTIVITY REGISTER BY MONTH PAGE 4 TOTALS FOR MONTH OF APRIL 2010 ------------------------------------------------------------------------------------------------------------------------------- DATE OF TYPE / PAYEE REASON RUNNING ACTIVITY STATUS +(PLUS) -(MINUS) BALANCE ------------------------------------------------------------------------------------------------------------------------------- 04/01/10 DP 000 $922.00 $1,509.60 04/02/10 CK 1229 X V.O.I.D. 000 $0.00 $1,509.60 04/02/10 CK 1230 X TEXAS POWER & LIGHT UTILITY BILL FOR MAR'01 000 $47.18 $1,462.42 04/02/10 CK 1231 X FOOD MART GROCERIES 000 $25.90 $1,436.52 04/02/10 CK 1232 X ABC NATIONAL BANK CASH 000 $100.00 $1,336.52 04/10/10 CK 1233 X ACME FINANCE LOAN PAYMENT 4 000 $89.98 $1,246.54 04/10/10 CK 1234 X SOUTHWESTERN BELL PHONE BILLS 000 $79.82 $1,166.72 04/10/10 SC 000 $4.00 $1,162.72 04/10/10 CK 1235 X ABC NATIONAL BANK CASH 000 $50.00 $1,112.72 04/11/10 CK 1236 X DISCOUNT AUTO STORE TUNE-UP KIT 000 $21.60 $1,091.12 04/15/10 CK 1237 X BERNY'S CHEVROLET DOWN PAYMENT ON CORVETTE 000 $1,000.00 $91.12 04/15/10 DP PARTIAL SAVINGS WITHDRAWAL 000 $2,922.00 $3,013.12 04/15/10 CK 1238 X ABC NATIONAL BANK CASH 000 $75.00 $2,938.12 04/20/10 CK 1239 X CITY OF DALLAS PARKING TICKET 000 $5.00 $2,933.12 04/20/10 CK 1240 X ALL-NITE BOWLING ENTERTAINMENT 000 $11.55 $2,921.57 04/22/10 CK 1241 X MODERNAGE TV REPAIRS 000 $75.22 $2,846.35 04/25/10 CK 1242 X BERNY'S CHEVROLET CAR PAYMENT 1 000 $179.00 $2,667.35 04/26/10 CK 1243 X ABC NATIONAL BANK CASH 000 $25.00 $2,642.35 04/26/10 CK 1244 X ACME FINANCE LOAN PAYMENT 5 000 $89.98 $2,552.37 04/29/10 CK 1245 X SOUTHWEST TITLE CO. MAY MORTGAGE PAYMENT 000 $433.00 $2,119.37
CA 24 JUN 2010 ACTIVITY REGISTER BY MONTH PAGE 5 TOTALS FOR MONTH OF MAY 2010 ------------------------------------------------------------------------------------------------------------------------------- DATE OF TYPE / PAYEE REASON RUNNING ACTIVITY STATUS +(PLUS) -(MINUS) BALANCE ------------------------------------------------------------------------------------------------------------------------------- 05/01/10 DP 000 $922.00 $3,041.37 05/01/10 CK 1246 X ABC NATIONAL BANK CASH 000 $50.00 $2,991.37 05/01/10 CK 1247 X ACME NATIONAL LIFE MAY INS. PREMIUM 000 $37.02 $2,954.35 05/01/10 CK 1248 X TEXAS POWER & LIGHT UTILITY BILL FOR APR'01 000 $55.98 $2,898.37 05/01/10 CK 1249 X BERNY'S CHEVROLET CAR PAYMENT 2 000 $179.00 $2,719.37 05/02/10 CK 1250 X COMPANY XYZ BRIEFCASE 000 $47.56 $2,671.81 05/02/10 SC 000 $4.00 $2,667.81 05/05/10 CK 1251 X ALL-NITE BOWLING ENTERTAINMENT 000 $21.60 $2,646.21 05/06/10 CK 1252 X ABC NATIONAL BANK CASH 000 $50.00 $2,596.21 05/10/10 CK 1253 X SEARS ROEBUCK WASHER 000 $256.75 $2,339.46 05/11/10 CK 1254 X FOOD MART GROCERIES 000 $53.89 $2,285.57 05/15/10 CK 1255 X DISCOUNT AUTO STORE MISC. AUTO PARTS 000 $42.04 $2,243.53 05/15/10 DP 000 $962.00 $3,205.53 05/15/10 CK 1256 X BERNY'S CHEVROLET CAR PAYMENT 3 000 $179.00 $3,026.53 05/15/10 CK 1257 X H & L FLORISTS ROSES 000 $44.95 $2,981.58 05/15/10 CK 1258 X COMPANY XYZ MISC. 000 $27.89 $2,953.69 05/16/10 CK 1259 X ABC NATIONAL BANK CASH 000 $50.00 $2,903.69 05/17/10 CK 1260 X MODERNAGE TV TV 000 $272.50 $2,631.19 05/17/10 CK 1261 X RX DRUGS PRESCRIPTION 000 $14.80 $2,616.39 05/17/10 CK 1262 X ACME HAIR DESIGN HAIRCUT 000 $17.00 $2,599.39 05/18/10 CK 1263 X SOUTHWESTERN BELL PHONE BILL 000 $55.39 $2,544.00 05/18/10 CK 1264 X ALL-NITE BOWLING ENTERTAINMENT 000 $22.50 $2,521.50 05/18/10 CK 1265 X JOHN DOE RETURN CASH ADVANCE 000 $95.00 $2,426.50 05/18/10 CK 1266 X ABC NATIONAL BANK CASH 000 $25.00 $2,401.50 05/20/10 CK 1267 ACME NATIONAL LIFE JUNE INS. PREMIUM 000 $37.02 $2,364.48 05/21/10 CK 1268 SOUTHWEST TITLE CO. JUNE MORTGAGE PAYMENT 000 $433.00 $1,931.48 05/21/10 CK 1269 ABC NATIONAL BANK CASH 000 $25.00 $1,906.48
CA 24 JUN 2010 ACTIVITY REGISTER BY MONTH PAGE 6 TOTALS FOR MONTH OF JUNE 2010 ------------------------------------------------------------------------------------------------------------------------------- DATE OF TYPE / PAYEE REASON RUNNING ACTIVITY STATUS +(PLUS) -(MINUS) BALANCE ------------------------------------------------------------------------------------------------------------------------------- 06/01/10 DP 000 $962.00 $2,868.48 06/01/10 CK 1270 TEXAS POWER & LIGHT UTILITY BILL FOR MAY'01 000 $53.21 $2,815.27 06/02/10 CK 1271 ABC NATIONAL BANK CASH 000 $50.00 $2,765.27 06/02/10 CK 1272 FOOD MART GROCERIES 000 $82.40 $2,682.87 06/02/10 CK 1273 ALL-NITE BOWLING ENTERTAINMENT 000 $11.00 $2,671.87 06/05/10 CK 1274 X V.O.I.D. 000 $0.00 $2,671.87 06/05/10 CK 1275 ABC NATIONAL BANK CASH 000 $150.00 $2,521.87 06/15/10 DP 000 $962.00 $3,483.87 ------------- ------------- $1,924.00 $346.61 ------------- ------------- ------------- ------------- GRAND TOTAL $12,467.19 $8,983.32
|
Copyright © 2014 CA.
All rights reserved.
|
|