This is a multi-part message in MIME format.
--------------070908040207020206000407
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit
jeff a écrit :
> On May 13, 10:27 am, Howard Brazee <how...@[EMAIL PROTECTED]
> wrote:
>
>> On Tue, 13 May 2008 06:37:11 -0700 (PDT), jeff <jmoore...@[EMAIL PROTECTED]
>
>> wrote:
>>
>>
>>> I have a input rec coming from a customer that is defined as
>>>
>>> FD DISCFILE.
>>> 01 DISC-REC PIC X(129).
>>> 01 DISC-REC2 REDEFINES DISC-REC.
>>> 03 DISC-RECR OCCURS 129 PIC X.
>>>
>>> It is a comma-delimited file with 16 fields (15 commas). I need to
>>> check and make sure that each line is only 129 characters and I assume
>>> 1 LF. What would be the best way to accomplish this?
>>>
>> Are you reading an ASCII file from one Windows machine to another
>> Windows machine?
>>
>
> Unix ascii file
>
Jeff, if you use line sequential files, you should not have to care
about the LF. The records will be 129 chars long.
Then, use unstring :
1 my-record.
2 my-field pic(129) occurs 16.
.....
unstring DISC-REC
delimited by ";" or "," or x'09'
into
my-field(01),
my-field(02),
my-field(03),
my-field(04),
my-field(05),
my-field(06),
my-field(07),
my-field(08),
my-field(09),
my-field(10),
my-field(11),
my-field(12),
my-field(13),
my-field(14),
my-field(15),
my-field(16)
end-unstring
Regards.
Alain
--------------070908040207020206000407
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
<br>
<br>
jeff a écrit :
<blockquote
cite="mid:f0907ddf-24fd-48d4-b115-a223125e8ec6@[EMAIL PROTECTED]
"
type="cite">
<pre wrap="">On May 13, 10:27 am, Howard Brazee <a
class="moz-txt-link-rfc2396E"
href="mailto:how...@[EMAIL PROTECTED]
"><how...@[EMAIL PROTECTED]
> wrote:
</pre>
<blockquote type="cite">
<pre wrap="">On Tue, 13 May 2008 06:37:11 -0700 (PDT), jeff <a
class="moz-txt-link-rfc2396E"
href="mailto:jmoore...@[EMAIL PROTECTED]
"><jmoore...@[EMAIL PROTECTED]
>
wrote:
</pre>
<blockquote type="cite">
<pre wrap="">I have a input rec coming from a customer that is
defined as
</pre>
</blockquote>
<blockquote type="cite">
<pre wrap="">FD DISCFILE.
01 DISC-REC PIC
X(129).
01 DISC-REC2 REDEFINES DISC-REC.
03 DISC-RECR OCCURS 129 PIC X.
</pre>
</blockquote>
<blockquote type="cite">
<pre wrap="">It is a comma-delimited file with 16 fields (15
commas). I need to
check and make sure that each line is only 129 characters and I assume
1 LF. What would be the best way to accomplish this?
</pre>
</blockquote>
<pre wrap="">Are you reading an ASCII file from one Windows machine to
another
Windows machine?
</pre>
</blockquote>
<pre wrap=""><!---->
Unix ascii file
</pre>
</blockquote>
Jeff, if you use line sequential files, you should not have to care
about the LF. The records will be 129 chars long.<br>
Then, use unstring :<br>
1 my-record.<br>
2 my-field pic(129) occurs 16.<br>
.....<br>
<br>
unstring DISC-REC<br>
delimited by ";" or "," or x'09'<br>
into <br>
my-field(01),<br>
my-field(02),<br>
my-field(03),<br>
my-field(04),<br>
my-field(05),<br>
my-field(06),<br>
my-field(07),<br>
my-field(08),<br>
my-field(09),<br>
my-field(10),<br>
my-field(11),<br>
my-field(12),<br>
my-field(13),<br>
my-field(14),<br>
my-field(15),<br>
my-field(16)<br>
end-unstring<br>
<br>
<br>
Regards.<br>
<br>
Alain<br>
<br>
</body>
</html>
--------------070908040207020206000407--
|
