MVSFORUMS.com

[arvibala]

Hi all,

I have a series of Fields that needs to be filled in and sent(FTP) to a system. That system will be loading this data in Oracle apps.

My problem is that they want each field to end with a delimiter (~).

For example, if these are the fields.

INDICATOR (3)
VENDOR_ID (7)
VENDOR_NAME (25)
VENDOR_ADD (50)

If the values are

VEN
V223
XXXXYYYY
23 AAAAAA

the output should be

VEN~V223~XXXXYYYY~23 AAAAAA

To make this simple, irrespective of the data length, we need to add the delimiter at the end of each data. So I cant use filler to have this delimiter defined in my Working Storage.

How can this be acheived? Pls advice

Thanks
_________________
Arvind
"You can make a difference with your smile. Have that with you always"

[jsharon1248]

You can do this in a number of ways. The COBOL string verb can be used. If your data has no embedded spaces, just add a DELIMITED BY SPACE clause for each field. If there's any chance of embedded spaces, you need to code something to determine the actual length of the data in a field. If you're selecting VARCHAR fields from a DB2 table, you already have the length in the 49 level length field. You can also use REXX which is a little friendlier with string manipulations. I've also coded this type of routine using VBS on the Windows platform.

[kolusu]

arvibala,

Where are you getting the data from? Is it from a DB2 table ? If so there are many utilities which unload the data with delimiters.

[arvibala]

No Kolusu,

I am getting this from 2 FLAT Files. I can use STRING verb, but it has some Numeric manupulation too before forming the Final Output file. I want something similar to STRING, but should work for both CHARACTER as well as NUMERIC.

Thanks
Arvind B
_________________
Arvind
"You can make a difference with your smile. Have that with you always"

[dbzTHEdinosauer]

as mentioned in the other board where you posted this question, move the numerics to numeric edited and then string that.
_________________
Dick Brenholtz
American living in Varel, Germany

[arvibala]

Thanks Brenholtz,

But the problem is since Numeric Edited variable is Right aligned we will still get spaces.

[kolusu]

arvibala,