EZTC0124E when using HEADING statement

Products

• Easytrieve Report Generator

Issue/Introduction

Running the following job receives an EZTCO124E on the Heading, why?

Release 11.6

        13     DEFINE COUNTER1    W    3  P   VALUE 0
           14     DEFINE COUNTER2    W    3  P   VALUE 0
           15       CLOSE-TRAN    W    5  N   VALUE 0
           16       RECEIVE-TRAN  W    5  N   VALUE 0
           17  *
           18  JOB INPUT (INFILE1 KEY(LEDGER1, ACCOUNT1) +
           19             INFILE2 KEY(LEDGER2, ACCOUNT2))
           20    IF MATCHED
           21      CLOSE-TRAN = TRANSIT1
           22      RECEIVE-TRAN = TRANSIT2
           23
           24      IF RECTYPE2 NE 098
           25        COUNTER1 = COUNTER1 + 1
           26      ELSE
           27        COUNTER2 = COUNTER2 + 1
           28      END-IF
           29    END-IF
           30    GOTO JOB
           31  JOB INPUT NULL
           32      PRINT REPORT1
           33  STOP
           34  REPORT REPORT1
           35     TITLE 1 '   AMALGMATION DUPLICATED ACCOUNTS REPORT'
           36     TITLE 2 'FOR CLOSING BRANCH ' CLOSE-TRAN +
           37             ' AND RECEIVING BRANCH ' RECEIVE-TRAN
           38     HEADING  (COUNTER1 'DUPLICATED' ' ACCOUNTS')
EZTC0124E >>>              $ fieldname expected
EZTC0100E >>>               $ end of statement expected
           39     HEADING  (COUNTER2 'DUPLICATED' 'ACCOUNTS DUE TO REC. 98')
EZTC0124E >>>              $ fieldname expected
EZTC0100E >>>               $ end of statement expected
           40    LINE COUNTER1 COUNTER2

Environment

Release : 11.6

Component : EASYTRIEVE REPORT GEN

Resolution

The Heading syntax is: HEADING field-name ([#font-number] 'heading-literal'...)

The issue is the field-name is within the parenthesis and should be outside as follows:

    HEADING  COUNTER1 ( 'DUPLICATED' ' ACCOUNTS')

Documentation: 

Heading Statement