RE: Error code 3021

[Tim McCarthy <timm@xxxxxxxxxxxx>]

Don't know what the code is but...pass the parms by VALUE not reference.

TrailBlazer Systems, Inc.
http://www.as400ftp.com
AS/400 Communications & E-Commerce Solutions

Errors have been made. Others will be blamed.

> -----Original Message-----
> From: York, Albert [SMTP:albert.york@nissan-usa.com]
> Sent: Thursday, March 16, 2000 11:46 AM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      Error code 3021
> 
> When I attempt to execute the code below I get an error code of 3021,
> which
> I can't find anywhere. Does anybody know what this error code means?
> 
> Thanks,
> 
> Albert
> 
>  D F_SETFL         s             10i 0 inz(4) 
>  D Non_Block        s             10i 0 inz(4) 
> D SocketID           s              10i 0
> 
>  D fcntl           PR            10i 0 ExtProc('fcntl')  
>  D  fcntl_skt                    10i 0                   
>  D  fnctl_cmd                   10i 0                   
>  D  fcntl_opt                    10i 0   
> 
>  C                   eval      rc = fcntl(SocketID:F_SETFL:Non_Block)
> 
>                                                          
> +---
> | 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
> +---
+---
| 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
+---