Re: get errno was VIRUS ALERT!

**-- Get runtime error number:  ------------------------------------**
P Errno           B
D                 Pi            10i 0
D sys_errno       Pr              *    ExtProc( '__errno' )
**
D Error           s             10i 0  Based( pError )  NoOpt
**
C                   Eval      pError     =  sys_errno
C                   Return    Error
**
P Errno           E
**-- Get runtime error text:  --------------------------------------**
P Strerror        B
D                 Pi           128a    Varying
D sys_strerror    Pr              *    ExtProc( 'strerror' )
D                               10i 0  Value
**
C                   Return    %Str( sys_strerror( Errno ))
**
P Strerror        E

---------------------------
Dipl.Inf.(FH) Rolf P Mittag
IBM Partner in Development
Leipziger Str. 50
D-69214 Eppelheim
Fon: +49 (6221) 76 78 60
Fax: +49 (6221) 76 80 26
eMl: rm@r-m-e-d-v.de

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---