View previous topic :: View next topic
|
Author |
Message |
syed-sameer-ahmed Warnings : 2 New User
Joined: 22 Feb 2007 Posts: 45 Location: Bangalore
|
|
|
|
Code: |
01 WS-TABLE.
05 WS-TAB OCCURS 2000 TIMES INDEXED BY WS-SUB.
10 WS-TABLE-1.
15 FILLER PIC X(005) VALUE SPACES.
15 WS-NAME-HOLD
PIC X(005).
15 FILLER PIC X(015) VALUE SPACES.
15 WS-ACC-HOLD PIC 9(003).
15 FILLER PIC X(015) VALUE SPACES.
15 WS-ACC-CD-HOLD
PIC X(001). |
and the output is defined as
Code: |
OUTPUT-RECORDS PIC X(200) VALUE SPACES
|
When I move WS-TABLE to OUTPUT RECORDS and write to the file.
Ia m getting low values in the place of FILLERS.
ex :
A1234<Lowvalues>S12<Low VAlues>1
I dont know why I am getting low values here. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Quote: |
I dont know why I am getting low values here. |
Because you did not specify a value for them. Initialize does not place a value in FILLER fields. Look here:
publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/handheld/Connected/BOOKS/igy3lr40/5.3.4
One way to do what i believe you want is to move SPACES to the entire area, then INITIALIZE. . .
At the top of the page is a link to "IBM Manuals". You want to become both familiar and comfortable with the manuals. . . |
|
Back to top |
|
|
|