Re: Assign a Value

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Bill,

I take it you are sending the file to the client?  Then what you do is
create the file without the commas.  And...  Wait, let me detail it more.
Suppose I have the following file:
Field        Start     End  Attrib  Text
LOC              1      15  A15     LOCATION
COMP            16      17  P3.0    COMPANY #
CONAME          18      57  A40     COMPANY NAME
SYSTEM          58      65  A8      NAME OF AS/400
DBLIB           66      75  A10     NAME OF LIBRARY
DUH             76      76  A1

DSPPFM FILE(ROB/AAAKEY)
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+.

81.001           Hoosier Wire                            HOOSIER HWIFILE

FF4FFF44444444401C99A8894E8984444444444444444444444444444CDDECCD4CECCCDC4444

81B0010000000008F86629590699500000000000000000000000000008662959086969350000


81.002           Wire Tech                               HWIOEM  OEMFILE

FF4FFF44444444401E8984E8884444444444444444444444444444444CECDCD44DCDCCDC4444

81B0020000000008F69950353800000000000000000000000000000008696540065469350000


Then I create a file that is not externally defined:
CRTPF FILE(ROB/AAAKEYDLM) RCDLEN(512)
CPYTOIMPF FROMFILE(ROB/AAAKEY) TOFILE(ROB/AAAKEYDLM)
DSPPFM ROB/AAAKEYDLM
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9...
"81.001         ",81   ,"Hoosier Wire ","HOOSIER ","HWIFILE   ",,
7FF4FFF44444444476FF44467C99A8894E8984444444444444444444444444444767CDDECCD4767CECCCDC4447660
F81B001000000000FB81000BF8662959069950000000000000000000000000000FBF86629590FBF8696935000FBB0

"81.002         ",81   ,"Wire Tech                               ","HWIOEM
 ","OEMFILE   ",,
7FF4FFF44444444476FF44467E8984E8884444444444444444444444444444444767CECDCD44767DCDCCDC4447660
F81B002000000000FB81000BF6995035380000000000000000000000000000000FBF86965400FBF6546935000FBB0

Or, if you are not IFS phobic:
MD DIR('/BILL')
CPYTOIMPF FROMFILE(ROB/AAAKEY) TOSTMF('/BILL/AAAKEY.TXT') RCDDLM(*CRLF)
DSPF '/BILL/AAAKEY.TXT'
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+
 ************Beginning of data**************
"81.001         ",81   ,"Hoosier Wire ","HOOSIER ","HWIFILE   ",,
"81.002         ",81   ,"Wire Tech                               ","HWIOEM
 ","OEMFILE   ",,
 ************End of Data********************

Study carefully the parameters to CPYTOIMPF.

Will this work?

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




"bill totz" <robsurge@hotmail.com>
Sent by: rpg400-l-admin@midrange.com
11/21/2002 02:11 PM
Please respond to rpg400-l

        To:     RPG400-L@midrange.com
        cc:
        Fax to:
        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.