RE: Creating Fixed Lenth PC format (.txt) file

Thank you.  It worked like a charm

Joe Giusto II
Programmer/Analyst
Ritz Camera
Beltsville, MD
301-419-3209 x347
410-813-2812 x347

 -----Original Message-----
From:   midrange-l-admin@midrange.com [mailto:midrange-l-admin@midrange.com]
On Behalf Of Ken.Slaugh@cm-inc.com
Sent:   Tuesday, January 08, 2002 2:39 PM
To:     midrange-l@midrange.com
Subject:        Re: Creating Fixed Lenth PC format (.txt) file


Put the CR/LF at the end of the record yourself in the pgm that creates the
data. Then use *NOTEXT within the CPYTOPCD command.

BTW... The EBCDIC CR/LF hex values are x'0D' and x'25'

Ken Slaugh  (707) 795-1512 x118
Chouinard & Myhre, Inc.
AS/400 Professional Administrator/MSE
Client Access Specialist
http://www.cm-inc.com/



                    "Joe Giusto II
                    \(E-mail\)"                To:     "Midrange-L
\(E-mail\)"
                    <juicenetdps@crossw        <MIDRANGE-L@midrange.com>
                    inds.net>                  cc:
                    Sent by:                   Subject:     Creating Fixed
Lenth PC format
                    midrange-l-admin@mi        (.txt) file
                    drange.com


                    01/08/2002 11:18 AM
                    Please respond to
                    midrange-l






I have been asked to create an ASCII file with a fixed length format
containing CR/LF.
I created the physical file and extracted the records needed, then used
CPYTOPCD to get the file to a folder in QDLS.
The CR/LF is being created by the CPYTOPCD command, however, when the last
field is not filled, the CR/LF is put after the last non-blank character in
the field instead of after the end of the field length.  (i.e. 30 byte
field
is only being filled with 15 or less bytes, but the target system is
expecting the extra spaces before the CR/LF).

My question is how can I force the extra spaces at the end of the ASCII
record when the field is not full.

Joe Giusto II
Programmer/Analyst
Ritz Camera
Beltsville, MD
301-419-3209 x347
410-813-2812 x347


_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.





_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.