RE: Assign a Value -- RPG400-L

--
--
[ Picked text/plain from multipart/alternative ]
An RPGIV program with a reaaally long Eval statement works, and is easy to
maintain once it's done.

 I know that 120 fields is a lot to string together but it works and isn't
all that much effort after you decide to sit down and make the Eval.

---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: rpg400-l@midrange.com
Date: Friday, November 22, 2002 12:00:21 PM
To: rpg400-l@midrange.com
Subject: RE: Assign a Value

I finally figured out how to do both, however, that extra spaces are not
eliminated. Is there a way to get it to look like a true CSV format?

-Tracy
Ext. 3107


-----Original Message-----
From: meovino@estes-express.com [mailto:meovino@estes-express.com]
Sent: Friday, November 22, 2002 9:05 AM
To: rpg400-l@midrange.com
Subject: RE: Assign a Value



Tracy,

Are you trying to create/fill a database file or a PC stream file? If it's
a database file, it doesn't have to be externally described. Rob's method
is probably the easiest way to go. But if your desired end result is a CSV
file for a PC (which seems likely, but may not be the case), just go
straight for the stream file option and cut out a step.

Mike E.





rob@dekko.com
Sent by: To: rpg400-l@midrange.com
rpg400-l-admin@mi cc:
drange.com Subject: RE: Assign a Value


11/21/02 04:39 PM
Please respond to
rpg400-l






This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Existing externally defined file is bad.

I just did it with CRTPF ... RCDLEN(...) and no DDS.

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




"Tracy Ball" <tball@totalresponse.com>
Sent by: rpg400-l-admin@midrange.com
11/21/2002 03:51 PM
Please respond to rpg400-l

To: <rpg400-l@midrange.com>
cc:
Fax to:
Subject: RE: Assign a Value


I am just now learning of the CPYTOIMPF, and I have seen this command
referenced a few times so far. However, in just trying to do the command
for a temporary file, I get an error saying my TOFILE is not the right
file type. Doesn't this defeat the purpose of a temporary file, if the
file has to be an existing externally described file?

And yes, this may seem like a basic question, and no doubt I could become
an expert if I take more time to research this, however, I can think of
immediate uses for this, and I was wanting to test this right away!

-Tracy
Ext. 3107


-----Original Message-----
From: Haas, Matt [mailto:Matt.Haas@thomsonlearning.com]
Sent: Thursday, November 21, 2002 2:23 PM
To: rpg400-l@midrange.com
Subject: RE: Assign a Value


Bill,

An easier way to get a file with comma separated values to create a
temporary file with the data and use the CPYTOIMPF command.

Matt

-----Original Message-----
From: bill totz [mailto:robsurge@hotmail.com]
Sent: Thursday, November 21, 2002 2:11 PM
To: RPG400-L@midrange.com
Subject: Assign a Value




Is there a way to assign a value to a field in DDS. For example I have a
client which requires us to seperate our fields by commas. I would like to
code this in the DDS rather than in my pgm-there are over 120 fields. I
would use the values keyword but I think this just allows certain
values-not
assign.


Thanks



_________________________________________________________________
MSN 8 helps eliminate e-mail viruses. Get 2 months FREE*.
http://join.msn.com/?page=features/virus

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.





_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

.
--
[ IMSTP.gif of type image/gif deleted ]
--