The compiler summary immediately follows the END command, whether you code it or it is generated automatically by the system.
A summary of all errors or warnings issued during the course of the compilation is printed. This includes the start and end times of the compilation phase. Length of the compilation phase is determined by subtracting the start time from the stop time.
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 │ 2│ USER 'XYZ INC.' │ 3│ CALL CARDFILE │ │ │ 4│ NOTE CUSTOMER/SALESMAN DATA FILE │ 5│ INPT: FILE CARD │ 6│ DEFINE NAME 1 TO 2 X │ 7│ DEFINE CUSTOMER-NUMBER 3 TO 5 X 'CUSTOMER' 'NUMBER' │ 8│ DEFINE CITY 6 X │ 9│ DEFINE STATE 7 TO 8 X │10│ DEFINE ZIP-CODE 9 TO 13 X 'ZIP' 'CODE' │11│ DEFINE CUSTOMER-SALE-ID 14 TO 15 X 'SALESMAN' 'ID' │12│ DEFINE CREDIT-LIMIT 16 TO 23 N2 'CREDIT' 'LIMIT' │13│ PIC '$$$,$$9.99' │14│ DEFINE CURRENT-BALANCE 24 TO 30 N2 'CURRENT' 'BALANCE' │15│ PIC '$$,$$9.99' Source Listing │16│ DEFINE SALESMAN-NAME 32 TO 39 X 'SALESMAN' 'NAME' │17│ DEFINE SALESMAN-ID 40 TO 41 X 'SALESMAN' ' ID ' │18│ DEFINE YTD-SALES 42 TO 49 N2 'YEAR-TO-DATE' 'SALES' │19│ PIC '$$$,$$9.99' │20│ DEFINE BRANCH-ID 50 TO 52 X 'BRANCH' ' ID ' │22│ DEF UNUSED-CREDIT(6.2)=0 'UNUSED' 'CREDIT' │23│ PIC '***,**9.99-' │24│ CALL DECODE2 USING STATE ST │25│ NOTE STATE CODE TRANSLATION TABLE │26│ DECODE :01 INTO :02 │27│ 'TX' EQ 'TEXAS' │28│ 'TN' EQ 'TENNESSEE' │29│ 'NC' EQ 'NORTH CAROLINA' │30│ 'GA' EQ 'GEORGIA' │31│ 'OK' EQ 'OKLAHOMA' │32│ 'NY' EQ 'NEW YORK' │33│ 'OH' EQ 'OHIO' │34│ 'NJ' EQ 'NEW JERSEY' │35│ 'CT' EQ 'CONNETICUT' │36│ 'IL' EQ 'ILLINOIS' │37│ 'PN' EQ 'PENNSYLVANIA' │38│ 'MI' EQ 'MICHIGAN' │39│ 'CO' EQ 'COLORADO' │40│ 'WA' EQ 'WASHINGTON' │41│ 'CA' EQ 'CALIFORNIA' │42│ ELSE 'UNKNOWN' 'STATE' 'NAME' └──┘ ▲ Internally assigned sequence numbers
Following is a sample of the second page of the report.
44 CALL DECODE3 USING NAME CUSTOMER-NAME 44 45 NOTE CUSTOMER NAME TRANSLATION TABLE 46 DECODE :01 INTO :02 47 '01' EQ 'HIGH-ROLLING INVESTMENT ' 48 '02' EQ 'SOUTHERN FRIED FOODS ' 49 '03' EQ 'LEGAL TOBACCO CO. ' 50 '04' EQ 'SOUTHERN PINE INDUSTRIES' 51 '05' EQ 'BARONIAL OIL CO. ' 52 '06' EQ 'COSMOPOLITAN FASHIONS ' 53 '07' EQ 'HEAVY METAL MACHINERY ' 54 '08' EQ 'AIRPORT SERVICES CORP. ' 55 '09' EQ 'STOLID INSURANCE CORP. ' 56 '10' EQ 'INLAND GRAIN TERMINALS ' 57 '11' EQ 'STEEL CURTAIN STEEL INC.' 58 '12' EQ 'PERFECT BEARING CORP. ' 59 '13' EQ 'MOUNTAIN STATES MINING ' 60 '14' EQ 'NORTHWEST PLYWOOD MILLS ' 61 '15' EQ 'ORIENTAL TRADING CO. ' 62 '16' EQ 'WEST COAST LIFESTYLES ' 63 OTHERWISE ' ' 'NAME' 64 CALL DECODE4 USING CITY CUSTOMER-CITY 64 65 NOTE CITY TRANSLATION TABLE 66 DECODE :01 INTO :02 67 'A' EQ 'DALLAS' 68 'B' EQ 'MEMPHIS' 69 'C' EQ 'CHARLOTTE' 70 'D' EQ 'ATLANTA' 71 'E' EQ 'OKLAHOMA CITY' 72 'F' EQ 'NEW YORK' 73 'G' EQ 'CLEVELAND' 74 'H' EQ 'NEWARK' 75 'I' EQ 'HARTFORD' 76 'J' EQ 'CHICAGO' 77 'K' EQ 'PITTSBURGH' 78 'L' EQ 'DETROIT' 79 'M' EQ 'DENVER' 80 'N' EQ 'SEATTLE' 81 'O' EQ 'SAN FRANCISCO' 82 'P' EQ 'LOS ANGELES' ELSE ' ' 'CITY'
Following is a sample of the third page of the report.
84 SUBTRACT CURRENT-BALANCE FROM CREDIT-LIMIT 85 GIVING UNUSED-CREDIT 87 REPORT 'XYZ SAMPLE REPORT 01' 88 SELECT ALL 89 CONTROL QSEQ 90 PRINT CUSTOMER-NAME CUSTOMER-SALE-ID CUSTOMER-CITY STATE 91 ZIP-CODE CREDIT-LIMIT SALESMAN-ID CURRENT-BALANCE 93 REPORT 'XYZ SAMPLE REPORT 02' 94 SELECT ALL 95 CONTROL NAME 96 PRINT DOUBLE SPACING CUSTOMER-NAME CUSTOMER-NUMBER 97 CUSTOMER-CITY ST ZIP-CODE 98 CUSTOMER-SALE-ID CREDIT-LIMIT 100 REPORT 'XYZ SAMPLE REPORT 03' 101 SELECT 'A' (UNUSED-CREDIT GT 0) 102 SELECT ALL 103 CONTROL ST CITY 104 PRINT @20 CUSTOMER-NAME 20 CUSTOMER-NUMBER 3 CREDIT-LIMIT 105 3 (CURRENT-BALANCE) 3 (A;UNUSED-CREDIT) 106 PRINT @CUSTOMER-NAME CUSTOMER-CITY 3 ST 3 ZIP-CODE 108 REPORT 'XYZ SAMPLE REPORT 04' 109 SELECT ALL 110 CONTROL NAME 111 PRINT CUSTOMER-NAME CUSTOMER-NUMBER CUSTOMER-CITY 112 ST ZIP-CODE CUSTOMER-SALE-ID CREDIT-LIMIT ┌───┐ 113 │END│ └───┘ ▲ Automatically generated when necessary ┌──────────────────┐ COMPILE PHASE COMPLETED -│NO ERRORS FOUND │ ◄ Error/warning summary │NO WARNINGS ISSUED│ └──────────────────┘ ┌──────────────────────────────┐ │START 16:54:54 - STOP 16:54:57│ ◄ Compiler start/stop time: Elapsed time: 3 seconds └──────────────────────────────┘
|
Copyright © 2014 CA.
All rights reserved.
|
|