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

["Paul Nelson" <nelsonp@xxxxxxxxxxxxx>]

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