Objective
This example uses codes for automatically formatting the employee identification, social security numbers, salaries, and employment dates.
Parameters
FN prints leading zeros and omits commas.
0251*030 SS-NUMBER FS HH 'SOCIAL SECURITY' 'NUMBER'
FS inserts dashes into the social security number and suppresses automatic totaling.
0251*040 START-DATE FD HH 0251*050 END-DATE FD HH
FD inserts slashes into the start and end date and suppresses automatic totaling.
0251*060 SALARY F$ HH
F$ suppresses leading zeros and inserts a floating dollar sign.
Complete Code
col. 2 ▼ IN 200 F 400 PS(TAPE) REC ID 1 4 2 REC EMPLOYEE 5 25 REC SS-NUMBER 84 9 2 REC START-DATE 93 6 2 REC END-DATE 99 6 2 REC SALARY 160 5 3 DP=2 023 PERSONNEL LISTING 0251*010 EMPLOYEE SZ=20 HH 'EMPLOYEE' 0251*020 ID FN HH 'ID' 0251*030 SS-NUMBER FS HH 'SOCIAL SECURITY' 'NUMBER' 0251*040 START-DATE FD HH 'START' 'DATE' 0251*050 END-DATE FD HH 'END' 'DATE' 0251*060 SALARY SZ=11 F$ HH 'SALARY'
Result
REPORT NO. 02 PERSONNEL LISTING mm/dd/yy PAGE 1 SOCIAL SECURITY START END EMPLOYEE ID NUMBER DATE DATE SALARY JUNE BLOOMER 0069 039-55-7818 80/05/05 00/00/00 $15,000.00 EDWARD HUTTON 0100 011-22-3333 77/09/07 00/00/00 $44,000.00 RUPERT JENSON 0011 022-34-7891 80/09/29 00/00/00 $82,000.00 MARIANNE KIMBALL 0067 022-77-8878 78/09/19 00/00/00 $45,000.00 DORIS KING 0106 067-84-5516 80/08/16 00/00/00 $14,500.00 BRIAN NICEMAN 0101 033-45-6110 80/05/06 00/00/00 $14,000.00 HERBERT CRANE 0004 016-77-7451 77/05/14 00/00/00 $75,000.00 JANE FERNDALE 0032 034-56-7891 79/09/09 00/00/00 $22,500.00 GEORGE FONRAD 0045 092-34-8763 80/04/14 00/00/00 $14,750.00 ROBIN GARDNER 0053 022-33-4444 81/06/15 00/00/00 $14,000.00 DOUGLAS KAHALLY 0049 029-66-1234 79/09/29 00/00/00 $20,000.00 TERENCE KLWELLEN 0016 010-20-1239 78/01/06 00/00/00 $43,000.00
|
Copyright © 2014 CA.
All rights reserved.
|
|