Re: fgets() invalid descriptor

["Carsten Flensburg" <flensburg@xxxxxxxxxx>]

Hello Richard,

The error message points to the third parameter - the file descriptor -
which should be passed by value, not by reference as your fgets prototype
suggests. Try changing the const keyword to value and see what happens.

Best regards,
Carsten Flensburg

----- Original Message ----- 
From: "Richard B Baird" <rbaird@xxxxxxxxxxxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, June 27, 2003 7:48 PM
Subject: fgets() invalid descriptor


> hey all,
>
> here is a very simple program, stripped down to just the basics:
>
> H DFTACTGRP(*NO) ACTGRP(*NEW)
> H BNDDIR('QC2LE')
> H OPTION(*SRCSTMT: *NODEBUGIO: *SHOWCPY)
>
> D waFileName      S            100A
> D count           S             10i 0
> D mode            S              5a
> D errmsg          S            256A
> D wiHandle        S               *
>
> D Buffer          DS
> D   saBuffer                   512A
>
> D fOpen           PR              *   ExtProc('_C_IFS_fopen')
> D  fileName                       *   Value Options(*STRING)
> D  fmode                          *   Value Options(*STRING)
>
> D fgets           PR              *   ExtProc('_C_IFS_fgets')
> D  text                           *   Value options(*string)
> D  length                       10I 0 Value
> D  fd                             *   Const
>
> D geterror        PR            10I 0
> D   peErrMsg                   256A   options(*nopass)
>
> c                   eval      waFileName =
> c                             '/http/aloha/pmix/PMIX2003060401.txt'
>
> c                   eval      mode = 'r' + x'00'
> C                   eval      wiHandle = fOpen(%trim(waFileName):
> c                                             %addr(mode))
>