From: Randy Ward To: All

I'm a little confused regarding the use of edit codes and edit words with screen fields that are both input and output. I'm writing a payroll entry program that has several numeric input/output fields. Ideally I would like to use an edit code when displaying these values. Here's my question regarding edit codes and edit words: Is there a way to edit a six-byte date field and still get the first leading zero to display? For example, "06/06/94" instead of "6/06/94"?

From: Sharon Cannon To: Randy Ward

To answer your question, you can do it with the following edit word instead of using edit code Y:

"0 / / "

Put a zero before the first leading zero to be displayed. This makes it look like a seven-byte field, but the zero is just there to show the last position where leading zeros should be displayed.

I learned this after working with social security numbers. Some people have social security numbers that begin with zero, so I had to use the following edit word:

"0 - - "

You'll need to define your screen field as one byte longer than your data file field. For example, if your date field is six bytes long in your file, you will need to define it on the screen as seven bytes. My social security number field was 9(0), so on the screen I had to define it as 10(0). The partial DDS source for that display file is shown in 1.

You'll need to define your screen field as one byte longer than your data file field. For example, if your date field is six bytes long in your file, you will need to define it on the screen as seven bytes. My social security number field was 9(0), so on the screen I had to define it as 10(0). The partial DDS source for that display file is shown in Figure 1.

Screen Edit Codes/Words

Figure 1 Display Lead Zeros

 *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+ A 7 2'Social Security Number. . . :' A SOSNO 10Y 0O 7 39EDTWRD('0 - - ')