| View previous topic :: View next topic |
| Author |
Message |
wolves
Beginner
Joined: 11 Jun 2004
Posts: 17
Topics: 8
|
 Posted: Wed Jun 23, 2004 9:24 am Post subject: Problem delimiting output file |
 |
|
I am trying to put a delimiter on a output file. My FILLER '~' will not print. Looks like low values or an nonprint character on my output file. It prints a '.' instead.
Any ideas?
thx in advance
| Code: |
FD INFILE
RECORDING MODE IS F
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 100 CHARACTERS
BLOCK CONTAINS 0 RECORDS
DATA RECORD IS INREC.
01 INREC.
05 FILLER PIC X(26).
FD OUTFILE
RECORDING MODE IS F
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 27 CHARACTERS
BLOCK CONTAINS 0 RECORDS
DATA RECORD IS OUTREC.
01 OUTREC.
05 FIELDA PIC X(20).
05 FILLER PIC X(01) VALUE '~'.
05 FIELDB PIC X(06).
01 WS-IN-REC.
05 IN-FIELDA PIC X(20).
05 IN-FIELDB PIC X(6).
READ INFILE INTO WS-IN-REC
MOVE IN-FIELDA TO FIELDA
MOVE IN-FIELDB TO FIELDB
WRITE OUTREC
|
Here is the output: (first one with column and second one with HEX on)
| Code: |
----+----1----+----2----+----3--
********************************
AA A AAAAAA .BBBBBB
AA A AAAAAA .BBBBBB
5C44444C444FFFFFF4440FFFFFF
E20000040001300240000199403
--------------------------
|
|
|
| Back to top |
|
 |
wolves
Beginner
Joined: 11 Jun 2004
Posts: 17
Topics: 8
|
| Posted: Wed Jun 23, 2004 9:43 am Post subject: |
|
|
| Found the problem. I have values in my FD, which I should have known better. I will have my outrec in a copybook instead and that should work. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
