Following is a sample of the first page of the report. For an example of the report header (not shown here), see Sample Report Headers).
1 OPTION LIST ON MAP PRINTER=80 2 USER CA 4 NOTE ********************************************** 5 NOTE * * 6 NOTE * THIS REPORTING FACILITY PROGRAM PRODUCES * 7 NOTE * A SINGLE REPORT, SHOWING A SUMMARY OF ALL * 8 NOTE * CHECKS WRITTEN BY PAYEE. * 9 NOTE * * 10 NOTE ********************************************** 12 TRANS: INPUT CARD 13 DEF TRANSACTION-CODE 1-2 X 14 DEF ID-NUMBER 3-6 X 15 DEF AMOUNT 7-13 N2 'TRANSACTION' 'AMOUNT ' 16 DEF PAYEE 23-42 X 18 DEFINE TRANSACTION-COUNT=1 'NO. OF ' 'TRANSACTIONS' 20 GO TO START WHEN PAYEE EQ 'V.O.I.D.' 22 REPORT 'CHECKS WRITTEN BY PAYEE' 23 SELECT (TRANSACTION-CODE EQ 'CK') ┌───────────────────────────────────────────┐ │ 24 CONTROL (PAYEE) ID-NUMBER │ ◄ Enter Primary mode implicitly (sort required) └───────────────────────────────────────────┘ ┌──────────────────────────────────────────────────────────────────────┐ │ 25 PRINT TOTALS ONLY PAYEE (TRANSACTION-COUNT) (AMOUNT) │◄ Print summary report (no detail lines) └──────────────────────────────────────────────────────────────────────┘ 26 END COMPILE PHASE COMPLETED - NO ERRORS FOUND NO WARNINGS ISSUED START 14:00:26 - STOP 14:00:27
Following is a sample of the second page of the report.
I/P 00001 X 00080 = 00080 TRANS O/P 00085 X 00054 = 04590 HITFILE SRT 00005 - 00030 = 00025 .SORT KEY INFO. GSA 00000000919 (00000000060 ENTRIES) GSA 1 = 00000000001 NUMERIC CONSTANT ...... CON GSA 2 = 00000000010 QUOTED LITERAL ........ LIT GSA 3 = 00000000001 INTERMEDIATE RESULT ... RES GSA 4 = 00000000041 UNQUOTED LITERAL ...... INT GSA 5 = 00000000004 ACCUMULATOR ........... ACC GSA 6 = 00000000002 VALUE ................. VAL GSA 7 = 00000000000 STRING ................ STR GSA 8 = 00000000001 HEX LITERAL ........... HEX FNT 00000000603 (00000000035 ENTRIES) FNT 0 = 00000000005 LABELS ................ 01 FNT 1 = 00000000029 SCALAR VARIABLES ...... 01 FNT 2 = 00000000001 FILE DESC. BLOCKS ..... 02 FNT 3 = 00000000000 ARRAYS ................ 03 FST 00000002492 (00000000089 ENTRIES) FST 0 = 00000000004 INTERNAL ONLY ......... -02 FST 1 = 00000000002 USER/REPORT ........... 01 FST 2 = 00000000004 INPUT AREA VARIABLE ... 02 FST 3 = 00000000063 GSA VARIABLE .......... 03 FST 4 = 00000000001 DATA MOVEMENT ......... 04 FST 5 = 00000000000 DECODE ................ 05 FST 6 = 00000000002 SEQUENCE AND CONTROL .. 06 FST 7 = 00000000003 CONDITION TEST ........ 07 FST 8 = 00000000002 SELECTION ............. 08 FST 9 = 00000000004 PRINT LAYOUT .......... 09 FST A = 00000000003 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. 004K
Following is a sample of the third page of the report.
------ FIELD NAME ------ ORIGIN QUAL HIT ARY ----------------------------------- REPORTS ------------------------------ ABORT: *LABEL* AMOUNT TRANS (01) X 1 BLANK * GSA * (00) 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) NO-RECORD-FOUND * GSA * (00) PAYEE TRANS (01) X 1 QSEQ * GSA * (00) RECORD-FOUND * GSA * (00) 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) TRANSACTION-COUNT * GSA * (00) X 1 XD * GSA * (00) XM * GSA * (00) XY * GSA * (00) YY * GSA * (00) ZERO * GSA * (00) ZEROS * GSA * (00)
Following is a sample of the fourth 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= 58 BLOCK= 4594 BLOCK CONTAINS 4594 CHARACTERS RECORD CONTAINS 58 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(24) DEFINE USER-SORT-KEY 7 - 30 X 02 REPORT-01. CHECKS WRITTEN BY PAYEE 03 01.PAYEE PICTURE X(20). DEFINE 01.PAYEE 31 - 50 X 03 00.TRANSACTION-COUNT PICTURE S9 COMP-3 DEFINE 00.TRANSACTION-COUNT 51 - 51 P 03 01.AMOUNT PICTURE 9(5)V99 DEFINE 01.AMOUNT 52 - 58 N2
CA 16:28:10 24 JUN 2010 CA DATACOM/DB REPORTING FACILITY OS VERSION nn.n PAGE 5 REPORT 01 FIELD NAME HDR1 HDR2 DTL ACC TOTAL PICTURE TAG FROM TO LINE 01 01.PAYEE 5 20 20 1 20 00.TRANSACTION-COUNT 9 12 2 4 12 9- 37 48 01.AMOUNT 11 8 9 11 11 99999.99- 65 75
RUN DIAGNOSTICS INDEX VIOLATIONS 00000000000 PROGRAM CHECKS 00000000000 PRIMARY I/P RECORDS 00000000093 Run diagnostics appear before HITS FOR REPORT 1 - 00000000074 output records in Primary mode. TOTAL RECORDS SELECTED 00000000074 RECS DROPPED BY USER 00000000002
CA 24 JUN 2010 CHECKS WRITTEN BY PAYEE PAGE 1 -------------------------------------------------------------------------------- PAYEE NO. OF TRANSACTION TRANSACTIONS AMOUNT -------------------------------------------------------------------------------- ABC NATIONAL BANK 17 1150.00 ACME FINANCE 4 449.90 ACME HAIR DESIGN 2 34.00 ACME NATIONAL LIFE 5 222.12 ALL-NITE BOWLING 5 83.40 BERNY'S CHEVROLET 4 1537.00 CITY OF DALLAS 1 5.00 DISCOUNT AUTO STORE 3 99.34 FOOD MART 6 326.15 H & L FLORISTS 1 44.95 JOHN DOE 2 245.00 MODERNAGE TV 2 347.72 RICHBURG INS. AGENCY 1 412.89 RX DRUGS 1 14.80 COMPANY XYZ 3 195.87 SEARS ROEBUCK 2 470.31 SOUTHERN AIRWAYS 1 227.89 SOUTHWEST TITLE CO. 5 2598.00 SOUTHWESTERN BELL 3 157.24 TEXAS POWER & LIGHT 6 339.74 ---- ----------- GRAND TOTAL 74 8961.32 ---- -----------
|
Copyright © 2014 CA.
All rights reserved.
|
|