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
Release : 11.6
Component : EASYTRIEVE REPORT GEN
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: