RE: Write statement

["Dwayne Allison" <Dwayne.Allison@xxxxxxxxx>]

Sorry, I am not coding just trying to understand what's going on.  It critical 
to get understanding.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of rob@xxxxxxxxx
Sent: Wednesday, October 06, 2004 10:51 AM
To: Midrange Systems Technical Discussion
Subject: Re: Write statement


If you have to ask, then you're better off to convert this to 
write(e) arrec;
if %error;
  Select;
  When %status(arrfile) = ....;  // Replace status code with valid status 
codes like file full or some such thing
    // this error
  When %status(arrfile) = x.x.x.x; 
    // that error
  Other;
    // catch all
  EndSl;
EndIf;

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Dwayne Allison" <Dwayne.Allison@xxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
10/06/2004 10:42 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
cc

Fax to

Subject
Write statement






Hello All,

What condition will cause '50' to equal '1'?


Operation    Factor 2                             LO
WRITE        ARREC                                50 

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
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@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.