USER 'XYZ COMPANY, INC.'
PERSONEL: INPUT DATACOM RECORD EQ 375 NAME EQ PMF DBID EQ 001
DEFINE PERSONEL-COMMAND 001-005 X
DEFINE PERSONEL-KEY 006-010 X
DEFINE PERSONEL-ELMLIST 191-201 X
DEFINE PERSONEL-NUMBER 301-305 X ' ID ' 'NUMBER'
DEFINE PERSONEL-NAME 306-329 X 'EMPLOYEE NAME'
DEFINE PERSONEL-CITY 354-368 X 'CITY'
DEFINE PERSONEL-STATE 369-370 X
DEFINE PERSONEL-ZIP-CODE 371-375 X 'ZIP' 'CODE'
MOVE 'GETIT' TO PERSONEL-COMMAND
MOVE 'EMPNO' TO PERSONEL-KEY
MOVE 'ADEMP' TO PERSONEL-ELMLIST
GET PERSONEL
GOTO EOJ WHEN PERSONEL EQ 'E'
REPORT 'EMPLOYEE SUMMARY - TEXAS'
SELECT PERSONEL-STATE EQ 'TX'
CONTROL PERSONEL-CITY
PRINT PERSONEL-NAME PERSONEL-NUMBER PERSONEL-CITY
PERSONEL-ZIP-CODE
END
The USER statement produces the first line of heading on every page of the report. This statement is required and is the first input statement in the program, unless the OPTION command is used.
The USER command has the following format:
►►─ USER ─ 'report-heading' ──────────────────────────────────────────────────►◄
In the sample program, the USER statement looks like this:
USER 'XYZ COMPANY, INC.'
The word USER is coded as shown, followed by the literal value designated as the first heading line on each page of the report. You must enclose the literal with apostrophes.
The sample USER statement tells the Reporting Facility that the first heading line on each page of the report will be XYZ COMPANY, INC.
|
Copyright © 2014 CA.
All rights reserved.
|
|