Re: Writing to IFS & CPDB625

I have the following code writing a string of text to the IFS:

C Eval FD = open(%TrimR(IFS_Filename):
C O_CREAT+O_TRUNC+O_WRONLY+O_Codepage:
C (6*64)+(6*8)+(6):819)

However when I view the data via wrklnk I get an Information message
stating "1 records folded."

The extended help says:

Message ID . . . . . . : CPDB625 Severity . . . . . . . : 20
Message type . . . . . : Information
Date sent . . . . . . : 08/02/07 Time sent . . . . . . : 10:28:06


Message . . . . : 1 records folded.
Cause . . . . . : 1 records exceeded 4K bytes. These records have been
split
to display them on multiple lines. If you do not make any changes, the

records in the file will remain the original length. If you proceed to
edit
this file, the record lengths will be changed in the file to the length

currently on the display.

"1 records exceed 4K bytes?"

The total string length I wrote is less than 2000 bytes. And when viewing
the file via wrklnk it appears as one long string that 'wraps' and appears
as three lines on the display. The CCSID is 819.

Within the string there are multiple x'0D' where the data segments end
within the string. I thought those would serve to enable displaying each
segment as a separate line in the wrklnk view.

I have files of a similar nature (text data in the IFS with ccsid 819 and
multiple x'0D') from a different application and these appear to not
exhibit this behavior. Each segment terminated with an x'0D' displays as
one line on the display in wrklnk and I can use F20 to window to the right
to see the data within each segment.

I also googled (and midranged) CPDB625 and didn't get anything.

Anyone with any ideas why or how I can correct this behavior?

Regards, Jerry

Gerald Kern - MIS Project Leader
Lotus Notes/Domino Administrator
IBM Certified RPG IV Developer
The Toledo Clinic, Inc.
4235 Secor Road
Toledo, OH 43623-4299
Phone 419-479-5535
gkern@xxxxxxxxxxxxxxxx


This e-mail message, including any attachments, is for the sole use of the
intended recipient(s) and may contain confidential and privileged
information. Any unauthorized use, disclosure or distribution is
prohibited. If you are not the intended recipient, please inform the
sender by reply e-mail and destroy this and all copies of this message.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.