Sample easytrieve program to generate a report:
FILE PERSNL
EMPNAME 1 8 A
EMP 9 5 N
DEPT 14 3 N
GROSS 17 4 P 2
DEDUCTION W 4 P 2
NET-PAY W 4 P 2
JOB INPUT PERSNL
IF GROSS GE 500
DEDUCTION = 0.28 * GROSS
NET-PAY = GROSS – DEDUCTION
ELSE
NET-PAY = GROSS
DEDUCTION = 0
END-IF
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 80
TITLE 01 ‘PERSONNEL REPORT EXAMPLE-1’
LINE 01 DEPT EMPNAME EMP GROSS
Output
01/31/24 PERSONNEL REPORT EXAMPLE-1 PAGE 1
DEPT EMPNAME EMP GROSS
903 AAA 12345 373.60
904 BBB 22456 759.20
901 CCC 32345 375.00
904 DDD 42456 295.00
Adding new columns to the output report
FILE PERSNL
EMPNAME 1 8 A
EMP 9 5 N
DEPT 14 3 N
GROSS 17 4 P 2
DEDUCTION W 4 P 2
NET-PAY W 4 P 2
JOB INPUT PERSNL
IF GROSS GE 500
DEDUCTION = 0.28 * GROSS
NET-PAY = GROSS – DEDUCTION
ELSE
NET-PAY = GROSS
DEDUCTION = 0
END-IF
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 80
TITLE 01 ‘PERSONNEL REPORT EXAMPLE-1’
LINE 01 DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
Output
01/31/24 PERSONNEL REPORT EXAMPLE-1 PAGE 1
DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
903 AAA 12345 373.60 373.60 0.00
904 BBB 22456 759.20 546.63 212.57
901 CCC 32345 375.00 375.00 0.00
904 DDD 42456 295.00 295.00
Edit Mask
FILE PERSNL
EMPNAME 1 8 A
EMP 9 5 N
DEPT 14 3 N
GROSS 17 4 P 2 MASK (A ‘$$,$$9.99)
DEDUCTION W 4 P 2 MASK (A BWZ)
NET-PAY W 4 P 2 MASK A
JOB INPUT PERSNL
IF GROSS GE 500
DEDUCTION = 0.28 * GROSS
NET-PAY = GROSS – DEDUCTION
ELSE
NET-PAY = GROSS
DEDUCTION = 0
END-IF
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 80
TITLE 01 ‘PERSONNEL REPORT EXAMPLE-1’
LINE 01 DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
Output
01/31/24 PERSONNEL REPORT EXAMPLE-1 PAGE 1
DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
903 AAA 12345 $373.60 $373.60
904 BBB 22456 $759.20 $546.63 $212.57
901 CCC 32345 $375.00 $375.00
904 DDD 42456 $295.00 $295.00
Heading
FILE PERSNL
EMPNAME 1 8 A
EMP 9 5 N HEADING (‘EMPLOYEE’ ‘NUMBER’)
DEPT 14 3 N
GROSS 17 4 P 2 MASK (A ‘$$,$$9.99)
DEDUCTION W 4 P 2 MASK (A BWZ)
NET-PAY W 4 P 2 MASK A
JOB INPUT PERSNL
IF GROSS GE 500
DEDUCTION = 0.28 * GROSS
NET-PAY = GROSS – DEDUCTION
ELSE
NET-PAY = GROSS
DEDUCTION = 0
END-IF
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 80
TITLE 01 ‘PERSONNEL REPORT EXAMPLE-1’
LINE 01 DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
Output
01/31/24 PERSONNEL REPORT EXAMPLE-1 PAGE 1
EMPLOYEE
DEPT EMPNAME NUMBER GROSS NET-PAY DEDUCTION
903 AAA 12345 $373.60 $373.60
904 BBB 22456 $759.20 $546.63 $212.57
901 CCC 32345 $375.00 $375.00
904 DDD 42456 $295.00 $295.00
Sequence
FILE PERSNL
EMPNAME 1 8 A
EMP 9 5 N HEADING (‘EMPLOYEE’ ‘NUMBER’)
DEPT 14 3 N
GROSS 17 4 P 2 MASK (A ‘$$,$$9.99)
DEDUCTION W 4 P 2 MASK (A BWZ)
NET-PAY W 4 P 2 MASK A
JOB INPUT PERSNL
IF GROSS GE 500
DEDUCTION = 0.28 * GROSS
NET-PAY = GROSS – DEDUCTION
ELSE
NET-PAY = GROSS
DEDUCTION = 0
END-IF
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 80
SEQUENCE DEPT
TITLE 01 ‘PERSONNEL REPORT EXAMPLE-1’
LINE 01 DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
Ascending order is default
For descending order SEQUENCE DEPT D
01/31/24 PERSONNEL REPORT EXAMPLE-1 PAGE 1
EMPLOYEE
DEPT EMPNAME NUMBER GROSS NET-PAY DEDUCTION
901 CCC 32345 $375.00 $375.00
903 AAA 12345 $373.60 $373.60
904 BBB 22456 $759.20 $546.63 $212.57
904 DDD 42456 $295.00 $295.00
Control:
CONTROL statement defines a control break on a specified field that is called the control field.
CONTROL statement causes all the quantitative fields (that is fields with decimal position) o be totaled at
the time of the control break and for a grand total to appear at the end of the report.
FILE PERSNL
EMPNAME 1 8 A
EMP 9 5 N HEADING (‘EMPLOYEE’ ‘NUMBER’)
DEPT 14 3 N
GROSS 17 4 P 2 MASK (A ‘$$,$$9.99)
DEDUCTION W 4 P 2 MASK (A BWZ)
NET-PAY W 4 P 2 MASK A
JOB INPUT PERSNL
IF GROSS GE 500
DEDUCTION = 0.28 * GROSS
NET-PAY = GROSS – DEDUCTION
ELSE
NET-PAY = GROSS
DEDUCTION = 0
END-IF
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 80
SEQUENCE DEPT
CONTROL DEPT
TITLE 01 ‘PERSONNEL REPORT EXAMPLE-1’
LINE 01 DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
Ascending order is default
For descending order SEQUENCE DEPT D
Output:
01/31/24 PERSONNEL REPORT EXAMPLE-1 PAGE 1
EMPLOYEE
DEPT EMPNAME NUMBER GROSS NET-PAY DEDUCTION
901 CCC 32345 $375.00 $375.00
$375.00 $375.00
903 AAA 12345 $373.60 $373.60
$373.60 $373.60
904 BBB 22456 $759.20 $546.63 $212.57
DDD 42456 $295.00 $295.00
904 $1054.20 $791.63 $212.57
$1802.80 $1540.23 $212.57
SUM:
SUM statement specifies the quantitative fields that you want to add on a control break
FILE PERSNL
EMPNAME 1 8 A
EMP 9 5 N HEADING (‘EMPLOYEE’ ‘NUMBER’)
DEPT 14 3 N
GROSS 17 4 P 2 MASK (A ‘$$,$$9.99)
DEDUCTION W 4 P 2 MASK (A BWZ)
NET-PAY W 4 P 2 MASK A
JOB INPUT PERSNL
IF GROSS GE 500
DEDUCTION = 0.28 * GROSS
NET-PAY = GROSS – DEDUCTION
ELSE
NET-PAY = GROSS
DEDUCTION = 0
END-IF
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 80
SEQUENCE DEPT
CONTROL DEPT
SUM GROSS
TITLE 01 ‘PERSONNEL REPORT EXAMPLE-1’
LINE 01 DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
Output:
01/31/24 PERSONNEL REPORT EXAMPLE-1 PAGE 1
EMPLOYEE
DEPT EMPNAME NUMBER GROSS NET-PAY DEDUCTION
901 CCC 32345 $375.00 $375.00
$375.00
903 AAA 12345 $373.60 $373.60
$373.60
904 BBB 22456 $759.20 $546.63 $212.57
DDD 42456 $295.00 $295.00
904 $1054.20
$1802.80
TITLE:
When you want more than one title, you must number all TITLE statements in ascending order
FILE PERSNL
EMPNAME 1 8 A
EMP 9 5 N HEADING (‘EMPLOYEE’ ‘NUMBER’)
DEPT 14 3 N
GROSS 17 4 P 2 MASK (A ‘$$,$$9.99)
DEDUCTION W 4 P 2 MASK (A BWZ)
NET-PAY W 4 P 2 MASK A
JOB INPUT PERSNL
IF GROSS GE 500
DEDUCTION = 0.28 * GROSS
NET-PAY = GROSS – DEDUCTION
ELSE
NET-PAY = GROSS
DEDUCTION = 0
END-IF
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 80
SEQUENCE DEPT
CONTROL DEPT
SUM GROSS
TITLE 01 ‘PERSONNEL REPORT EXAMPLE-1’
TITLE 02 ‘THIS IS TITLE 2’
LINE 01 DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
Output:
01/31/24 PERSONNEL REPORT EXAMPLE-1 PAGE 1
THIS IS TITLE 2
EMPLOYEE
DEPT EMPNAME NUMBER GROSS NET-PAY DEDUCTION
901 CCC 32345 $375.00 $375.00
$375.00
903 AAA 12345 $373.60 $373.60
$373.60
904 BBB 22456 $759.20 $546.63 $212.57
DDD 42456 $295.00 $295.00
904 $1054.20
$1802.80
You can override the automatic (default) functions associated with title contents and spacing to produce
any required report title. This may be necessary to produce reports that use preprinted forms as the
output medium. You can use the following parameters to produce nonstandard title content and
spacing:
NOADJUST -- Causes each title line to be left-justified on the page.
NODATE and NOPAGE -- Inhibit current date and page count information from being placed on
the first title line.
COL -- Use the COL positioning parameter to position items in specific print columns. COL can be
used with ADJUST or NODADJUST.
FILE PERSNL
EMPNAME 1 8 A
EMP 9 5 N HEADING (‘EMPLOYEE’ ‘NUMBER’)
DEPT 14 3 N
GROSS 17 4 P 2 MASK (A ‘$$,$$9.99)
DEDUCTION W 4 P 2 MASK (A BWZ)
NET-PAY W 4 P 2 MASK A
JOB INPUT PERSNL
IF GROSS GE 500
DEDUCTION = 0.28 * GROSS
NET-PAY = GROSS – DEDUCTION
ELSE
NET-PAY = GROSS
DEDUCTION = 0
END-IF
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 80 NOADJUST NODATE NOPAGE
SEQUENCE DEPT
CONTROL DEPT
SUM GROSS
TITLE 01 ‘PERSONNEL REPORT EXAMPLE-1’
TITLE 02 COL 20 ‘THIS IS TITLE 2’
LINE 01 DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
Output:
PERSONNEL REPORT EXAMPLE-1
THIS IS TITLE 2
EMPLOYEE
DEPT EMPNAME NUMBER GROSS NET-PAY DEDUCTION
901 CCC 32345 $375.00 $375.00
$375.00
903 AAA 12345 $373.60 $373.60
$373.60
904 BBB 22456 $759.20 $546.63 $212.57
DDD 42456 $295.00 $295.00
904 $1054.20
$1802.80
HEADING:
Prints user defined column heading for specified field
It overrides the HEADING parameter of the DEINFE statement if one already exists for the field
that you are describing.
FILE PERSNL
EMPNAME 1 8 A
EMP 9 5 N HEADING (‘EMPLOYEE’ ‘NUMBER’)
DEPT 14 3 N
GROSS 17 4 P 2 MASK (A ‘$$,$$9.99)
DEDUCTION W 4 P 2 MASK (A BWZ)
NET-PAY W 4 P 2 MASK A
JOB INPUT PERSNL
IF GROSS GE 500
DEDUCTION = 0.28 * GROSS
NET-PAY = GROSS – DEDUCTION
ELSE
NET-PAY = GROSS
DEDUCTION = 0
END-IF
PRINT PAY-RPT
REPORT PAY-RPT LINESIZE 80
SEQUENCE DEPT
CONTROL DEPT
SUM GROSS
TITLE 01 ‘PERSONNEL REPORT EXAMPLE-1’
TITLE 02 ‘THIS IS TITLE 2’
HEADING EMPNAME (‘EMPLOYEE’ ‘NAME’)
LINE 01 DEPT EMPNAME EMP GROSS NET-PAY DEDUCTION
Output:
01/31/24 PERSONNEL REPORT EXAMPLE-1 PAGE 1
THIS IS TITLE 2
EMPLOYEE EMPLOYEE
DEPT NAME NUMBER GROSS NET-PAY DEDUCTION
901 CCC 32345 $375.00 $375.00
$375.00
903 AAA 12345 $373.60 $373.60
$373.60
904 BBB 22456 $759.20 $546.63 $212.57
DDD 42456 $295.00 $295.00
904 $1054.20
$1802.80
LINE:
Defines the contents of a printed line (detail line) in the report.
CONTROL
Before break
After break
DTLCTL
LEVEL
