MVSFORUMS.com

[wolves]

I have a field defined as --------9.99, followed by a filler of '-', but some of my output fields print as such ".............-". I was thinking of moving the field to an alphanumeric field and using low-values and moving spaces to it. But not exactly sure how to go about this.

Thanks in advance.

[kolusu]

Wolves,

Post detailed information on what you're trying to accomplish. Do not make people guess what you mean. This will give you a much better chance of getting a good answer to your question.

This is what I have grasped from your post

[wolves]

Sorry for not putting more info out there.
I will post the field definitions tomorrow.
Thanks in advance.

[wolves]

Here is the info: As you can see, even though this is not lined up correctly, but if you would paste it to word or notepad, you will see that THIS-FIELD4 comes out a little messed up, cannot figure out why. The input file is sometimes 0, or spaces, either way, it is messed up.

Thx
[code:1:4d3a63ff84]
WORKING-STORAGE SECTION.
01 PROGRAM-NAME PIC X(08 ).

01 WS-WORK-AREA.
05 Field-x PIC 9(6).
05 Field-xx PIC 9(5).
05 Field-xxx PIC S9(15)V9(02).
05 EOF PIC X VALUE 'N'.


COPY INPUT-STRUC.
(01 INPUT-REC.
05 THIS-FIELD PIC X(6).
05 IN-MONETARY-FIELDS.
10 THIS-FIELD2 PIC S9(9)V99 COMP-3.
10 THIS-FIELD3 PIC S9(9)V99 COMP-3.
10 THIS-FIELD4 PIC S9(9)V99 COMP-3.
10 THIS-FIELD5 PIC S9(9)V99 COMP-3.)

COPY OUTPUT-STRUC.
(01 OUTPUT-REC.
05 THAT-FIELD PIC X(6).
05 OUT-MONETARY-FIELDS
10 THAT-FIELD2 PIC --------9.99.
10 FILLER PIC X(01) VALUE '~'.
10 THAT-FIELD3 PIC --------9.99.
10 FILLER PIC X(01) VALUE '~'.
10 THAT-FIELD4 PIC --------9.99.
10 FILLER PIC X(01) VALUE '~'.
10 THAT-FIELD5 PIC --------9.99.
10 FILLER PIC X(01) VALUE '~'.)

MAINLINE

PERFORM 1000-FIRST
PERFORM 2000-FILE UNTIL EOF=

[kolusu]