Tab Delimited Line Sequentail File 1

[Kdelta]

Hi,

How can i create line sequential file with tab delimited fields?
My text file looks something like this:
FD TEXT-FILE
RECORD CONTAINS 116 CHARACTERS
LABEL RECORDS STANDARD.
01 TEXT-RECORD PIC X(116).
01 TEXT-TEMPLATE REDEFINES TEXT-RECORD.
03 TEXT-FIELD-1 PIC X(6).
03 FILLER-1 PIC X(5).
03 TEXT-FIELD-2 PIC X(20).
03 FILLER-2 PIC X(5).
03 TEXT-FIELD-3 PIC X(4).

I would like the FILLER-1 and 2 fields to be tab delimiters.

Any help would be highly appreciated.

Thanks in advance,

Kdelta




Platform MF NetExpress 3.1 on XP.

 

[TonHu]

You need to disable the default Tab-expansion on file-I/O, but I can't find the setting for that now, I think it was a CobSW parameter.

Another way could be to use a different separator like a comma or a semicolon.

 

[mrregan]

Move a H"09" to your filler fields.

 

[webrabbit]

One way to disable the tab expansion is as follows:

77 R-C PIC S9999 COMP-5.
.
.
.
CALL X"91" using R-C X"2F" TEXT-FILE

 

[webrabbit]

Oh, and FILLER-1 and FILLER-2 should be PIC X(1).

 

[webrabbit]

Also, move X"09", as H"09" is numeric, and will convert to display.

 

[fredericofonseca]

use configuration switch -N or +N , not sure which one now but it will be mentioned on the runtime configuration manuals.

and as webrabbit said, move X"09" to the filler field.



Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com

FAQ219-2884
FAQ181-2886

 

[webrabbit]

It's -N, and if used that way, it applies to all line-sequential files in the run-set at all times. The call applies the option only the the file specified, and only while it is currently open, which I forgot to mention (The file must be open when the call is made).

 

[Kdelta]

Hi,

Thanks for the help, it worked just fine.

Regards,

Kdelta