Objective
The next sample report uses user-supplied patterns to format employee identification numbers with asterisks (*) and consecutive data fields with dashes.
Parameters
FM specifies that a user-supplied pattern formats the data.
'9*999' is the format pattern.
FM specifies that a user-supplied pattern formats the data.
99/99/99-99/99/99' is the format pattern.
Complete Code
col. 2 ▼ IN 200 F 400 PS(TAPE) REC ID 1 4 2 REC EMPLOYEE 5 25 REC SOC-SEC 84 9 2 REC DATES 93 12 2 REC SALARY 160 7 3 DP=2 013 PERSONNEL LISTING REPORT 0151*010 EMPLOYEE SZ=20 HH 'EMPLOYEE' 0151*020 ID FM '9*999' HH 'ID' 0151*030 SOC-SEC FS HH 'SOCIAL SECURITY' 'NUMBER' 0151*040 DATES FM '99/99/99-99/99/99' HH 'EMPLOYMENT DATES' 0151*050 SALARY F$ HH 'SALARY'
Result
REPORT NO. 01 PERSONNEL LISTING REPORT mm/dd/yy PAGE 1 SOCIAL SECURITY EMPLOYEE ID NUMBER EMPLOYMENT DATES SALARY JUNE BLOOMER 0*069 039-55-7818 80/05/05-00/00/00 $.00 EDWARD HUTTON 0*100 011-22-3333 77/09/07-00/00/00 $.00 RUPERT JENSON 0*011 022-34-7891 80/09/29-00/00/00 $.00 MARIANNE KIMBALL 0*067 022-77-8878 78/09/19-00/00/00 $.00 DORIS KING 0*106 067-84-5516 80/08/16-00/00/00 $.00 BRIAN NICEMAN 0*101 033-45-6110 80/05/06-00/00/00 $.00 HERBERT CRANE 0*004 016-77-7451 77/05/14-00/00/00 $.00 JANE FERNDALE 0*032 034-56-7891 79/09/09-00/00/00 $.00 GEORGE FONRAD 0*045 092-34-8763 80/04/14-00/00/00 $.00 ROBIN GARDNER 0*053 022-33-4444 81/06/15-00/00/00 $.00 DOUGLAS KAHALLY 0*049 029-66-1234 79/09/29-00/00/00 $.00 TERENCE KLWELLEN 0*016 010-20-1239 78/01/06-00/00/00 $.00
|
Copyright © 2014 CA.
All rights reserved.
|
|