RE: MIDRANGE-L Digest, Vol 7, Issue 138

Heh. When I saw the word Boneyard, I thought "This fellow works for either a
construction company or a trucking related company."

Then I looked at your signature. :-))

I will remember this for the few clients I have who haven't bought SEQUEL.

Paul Nelson
Office 512-392-2577
Cell 708-670-6978
nelsonp@xxxxxxxxxxxxx


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
DaleGindlesperger@xxxxxxxxxxx
Sent: Thursday, January 17, 2008 9:25 AM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: MIDRANGE-L Digest, Vol 7, Issue 138

"I am working on a project where we will be sending data to a banking
institution (which shall remain unnamed). The bank's systems apparently
require that the first record in the file they receive must contain column
headings!

Anybody know of a way to accomplish this without having to do RPG
programming? The client wants to avoid using programs wherever possible."

I do this a lot, you have to create a text file with the headings in it
with a text editor, and copy the file over. Here's the CL to do it.

RMVLNK OBJLNK('/BONEYARD.CSV')
MONMSG MSGID(CPFA0A9)
CPY OBJ('/BONEYARDHDG.CSV') TOOBJ('/BONEYARD.CSV')

CPYTOIMPF FROMFILE(BONEYARD) TOSTMF('/BONEYARD.CSV') +
MBROPT(*ADD) RCDDLM(*CR)


The BONEYARDHDG.CSB looks like:

************Beginning of data**************
BONEYARD,Units currently in the Boneyard
Item#,Item Description,Qty
************End of Data********************

This is a very basic example, and provides a two line header for a
spreadsheet with 3 columns. Use the EDTF command to create the heading
file.


Dale Gindlesperger
IT Manager/Special Projects Leader
Fleetwood Folding Trailers, Inc.
258 Beacon Street
Somerset, PA 15501