× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Bob,

Sorry it just happened that I copied different already made codes and put them 
together to make this program. When I set and open the file I used the Err_Flag 
as my file descriptor. 

I have standardised Err_Flag as my file descriptor and tried the program again. 
The problem persist.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Bob Cozzi
Sent: 10 November 2005 2:18 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: 3440:Operation not supported when trying to read an IFS
file.


When you open the file, you get a handle to that file back. You seem to be
treating the handle only as an error code.
You need to check the return value for <=0.
Something like:

  Eval  FileDescI = open('/myflie'... )
  callp  read(FileDescI : buffer : %size(buffer)... )



-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Emmanuel Zannis
Sent: Thursday, November 10, 2005 7:55 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: 3440:Operation not supported when trying to read an IFS file.

Bob,

I am following the examples in "Who knew you could do that with RPG IV" page
303 and pages 310 - 313. 

They don't store the value of FileDescI anywhere. Maybe I missing the plot.
I have to say I am getting confused.

Regards,

Emmanuel

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Bob Cozzi
Sent: 10 November 2005 1:37 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: 3440:Operation not supported when trying to read an IFS
file.


Emmanuel,

Where are you storing the FileDescI value that you're sing on the read()
function?  I don't see you ever opening the file and saving the handle to
that file in FileDescI.  That is probably your problem.


-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Emmanuel Zannis
Sent: Thursday, November 10, 2005 7:03 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: 3440:Operation not supported when trying to read an IFS file.

List Hi,

I still I can read my IFS file. I get the error 3440 (ENOTSUP 3440 Operation
is not supported. EOPNOTSUPP 3440 Operation is not supported.).
I am attaching a list of the program. I run the program in debug where I
spotted the error.  The path is passed as parameter: (/DIR/SUBDIR/FILE).
The error occurs in line 123 attempting to read the file, nbytesread has a
value of -1. DspError shows the error.
Any help is welcomed.

0001.00 H BNDDIR('QC2LE')

0002.00 H DecEdit('0,') Debug DatFmt(*EUR) DatEdit(*YMD) TimFmt(*HMS)

0003.00 H ALWNULL(*USRCTL) Option(*SRCSTMT:*NODEBUGIO)

0004.00

0005.00  * Open - Open an IFS file

0006.00 D open            PR            10I 0 ExtProc('open')

0007.00 D  filename                       *   Value

0008.00 D  openflags                    10I 0 Value

0009.00 D  mode                         10U 0 Value options(*nopass)

0010.00 D  codepage                     10U 0 Value options(*nopass)

0011.00

0012.00

0013.00  * Access - Check for existence of an IFS file

0014.00 D access          PR            10I 0 ExtProc('access')

0015.00 D  filename                       *   Value

0016.00 D  modeI                        10U 0 Value

0017.00

0018.00  * Read - Read an IFS file

0019.00 D read            PR            10I 0 extproc('read')

0020.00 D  FileDescI                    10I 0 value

0021.00 D  bufI                           *   Value

0022.00 D  nbyte                        10U 0 value

0023.00

0024.00 D write           PR            10I 0 extproc('write')

0025.00 D  fd                           10I 0 value

0026.00 D  buf                            *   value

0027.00 D  size                         10I 0 value

0028.00

0029.00  * Close - Close Ifs file

0030.00 D close           PR            10I 0 ExtProc('close')

0031.00 D  filehandle                   10I 0 Value

0032.00

0033.00  * Unlink - Delete IFS file

0034.00 D unlink          PR            10I 0 ExtProc('unlink')

0035.00 D  filename                       *   Value

0036.00

0037.00  * Set file Details

0038.00 D Pr_SetFile      PR             1  0

0039.00

0040.00  * Open PC File in IFS directory

0041.00 D Pr_OpnFile      PR             1  0

0042.00

0043.00  * Open PC File in IFS directory

0044.00 D DspError        PR

0045.00

0046.00  * Get Error number

0047.00 D GetErrNo        PR              *   Extproc('__errno')

0048.00

0049.00 D StrError        PR              *   Extproc('strerror')

0050.00 D  errorNo                      10I 0 Value

0051.00

0052.00 D FileDescI       S             10I 0 Inz(0)

0053.00 D buf             S            512A   Inz(*Blank)

0054.00 D bufI            S               *   Inz(%Addr(BufI))

0055.00 D nbyteset        S             10U 0 Inz(512)

0056.00 D nbytesread      S             10I 0

0057.00 D Err_Flag        S             10I 0

0058.00 D Oflag           S             10I 0

0059.00 D rc              S             10I 0

0060.00 D Filename        S             80A   Inz

0061.00 D L               S              5P 0 Inz

0062.00

0063.00 D CodePage        S             10U 0 Inz(437)

0064.00 D Omode           S             10U 0

0065.00 D BufLen          S             10U 0

0066.00

0067.00  * Values for oflag parameter, used by open()

0068.00 D O_APPEND        S             10I 0 Inz(256)

0069.00 D O_CODEPAGE      S             10I 0 Inz(8388608)

0070.00 D O_CREAT         S             10I 0 Inz(8)

0071.00 D O_EXCL          S             10I 0 Inz(16)

0072.00 D O_RDONLY        S             10I 0 Inz(1)

0073.00 D O_RDWR          S             10I 0 Inz(4)

0074.00 D O_TEXTDATA      S             10I 0 Inz(16777216)

0075.00 D O_TRUNC         S             10I 0 Inz(64)

0076.00 D O_WRONLY        S             10I 0 Inz(2)

0077.00

0078.00  * User authorities for omode paramter, used by open()

0079.00  * from QSYSINC/SYS, member STAT

0080.00 D S_IRUSR         S             10I 0 Inz(256)

0081.00 D S_IWUSR         S             10I 0 Inz(128)

0082.00 D S_IXUSR         S             10I 0 Inz(64)

0083.00 D S_IRWXU         S             10I 0 Inz(448)

0084.00

0085.00  * Group authorities

0086.00 D S_IRGRP         S             10I 0 Inz(32)

0087.00 D S_IWGRP         S             10I 0 Inz(16)

0088.00 D S_IXGRP         S             10I 0 Inz(8)

0089.00 D S_IRWXG         S             10I 0 Inz(56)

0090.00

0091.00  * Other authorities

0092.00 D S_IROTH         S             10I 0 Inz(4)

0093.00 D S_IWOTH         S             10I 0 Inz(2)

0094.00 D S_IXOTH         S             10I 0 Inz(1)

0095.00 D S_IRWXO         S             10I 0 Inz(7)

0096.00

0097.00 D PrmPssrErr      S              1A

0098.00 D PrmFileName     S             80A

0099.00 D Wrk_1stErr      S                   Like(*In01)

0100.00 D Wrk_FrstTime    S              1A   Inz('Y')

0101.00 D Null            C                   Const(x'00')

0102.00

0103.00  /free

0104.00

0105.00    // Set Pc file details

0106.00   L = Pr_SetFile ();

0107.00   If L = -1;

0108.00

0109.00      ExSr *PSSR;

0110.00

0111.00   EndIf;

0112.00

0113.00     // Open PC file in IFS directory

0114.00   L = Pr_OpnFile ();

0115.00   If L = -1;

0116.00

0117.00      ExSr *PSSR;

0118.00

0119.00   EndIf;

0120.00

0121.00  /end-free

0122.00

0123.00 C                   eval      nbytesread =
read(FileDescI:%addr(bufI): 
0124.00 C                                           nbyteset)

0125.00

0126.00 C                   If        nbytesread > 0

0127.00 C                   Eval      *InLr = *On

0128.00 C                   Else

0129.00 C                   Callp     DspError

0130.00 C                   EndIf

0131.00  /Eject

0132.00
**********************************************************************
0133.00  * *Inzsr - Program level initialisation

0134.00
**********************************************************************
0135.00 C     *Inzsr        BegSr                   
0136.00

0137.00  * Received Parameters

0138.00 C     *Entry        Plist

0139.00 C                   Parm                    PrmFileName

0140.00 C                   Parm                    PrmPssrErr

0141.00

0142.00  /free

0143.00

0144.00   // Default path name

0145.00   Filename = %Trim(PrmFileName);                                
0146.00

0147.00  /end-free

0148.00

0149.00 C                   EndSr

0150.00

0151.00  /Eject

0152.00
**********************************************************************
0153.00  * *Pssr - Error Routine

0154.00
**********************************************************************
0155.00 C     *Pssr         BegSr

0156.00

0157.00  * Dump program and terminate process

0158.00  /free

0159.00   If Wrk_1stErr <> *On;

0160.00       Wrk_1stErr = *On;

0161.00       Dump;

0162.00       PrmPssrErr = 'Y';    // Force Exit now

0163.00       *InLr = *On;

0164.00   EndIf;

0165.00

0166.00  /end-free

0167.00

0168.00 C                   EndSr     '*CANCL'

0169.00
**********************************************************************
0170.00  /Eject

0171.00
**********************************************************************
0172.00  * Pr_SetFile - Set PC file details

0173.00
**********************************************************************
0174.00 P Pr_SetFile      B

0175.00

0176.00 D Pr_SetFile      PI             1  0

0177.00

0178.00  /free

0179.00

0180.00   Oflag = O_CREAT + O_CODEPAGE + O_RDWR + O_TRUNC;

0181.00

0182.00   Omode = S_IRWXU + S_IRWXG + S_IROTH + S_IXOTH;

0183.00

0184.00   Filename = %Trim(FileName) + Null;

0185.00

0186.00  /end-free

0187.00

0188.00 C                   Eval      Err_Flag = Open(%Addr(Filename) :
OFLAG :
0189.00 C                                        Omode: CodePage)

0190.00

0191.00  /free

0192.00

0193.00   If Err_Flag < 0;

0194.00      Return -1;

0195.00   Else;

0196.00      Return 0;

0197.00   EndIf;

0198.00

0199.00  /end-free

0200.00

0201.00 P Pr_SetFile      E

0202.00
**********************************************************************
0203.00

0204.00

0205.00
********************************************************************** 
0206.00  * Pr_OpnFile - Open PC File in IFS directory

0207.00
********************************************************************** 
0208.00 P Pr_OpnFile      B

0209.00

0210.00 D Pr_OpnFile      PI             1  0

0211.00

0212.00  /free

0213.00

0214.00   Oflag = O_WRONLY + O_TEXTDATA;

0215.00

0216.00  /end-free

0217.00

0218.00 C                   Eval      Err_Flag = Open(%Addr(Filename) :
Oflag)  
0219.00

0220.00  /free

0221.00

0222.00   If Err_Flag < 0;

0223.00      Return    -1;

0224.00   Else;

0225.00      Return 0;

0226.00   EndIf;

0227.00

0228.00  /end-free

0229.00

0230.00 P Pr_OpnFile      E

0231.00
**********************************************************************
0232.00

0233.00
**********************************************************************
0234.00  * DspError - Display c function error

0235.00
**********************************************************************
0236.00 P DspError        B

0237.00

0238.00 D DspError        PI

0239.00

0240.00 D text            S             10A

0241.00

0242.00 D errorNo@        S               *   Inz

0243.00 D  errorNo        S             10I 0 Based(Errorno@)

0244.00 D errorMsg@       S               *   Inz

0245.00 D  errorMsg       S            100A   Based(errorMsg@)

0246.00 D errortxt        S             52A   Inz(*Blanks)

0247.00

0248.00

0249.00  /free

0250.00

0251.00   errorNo@ = GetErrNo;

0252.00

0253.00   errormsg@ = StrError(errorNo);

0254.00

0255.00   errortxt  = %trim(text) + '->' +

0256.00                   %char(errorNo) +

0257.00                   ':' + %subSt(errormsg:1:37);

0258.00  /end-free

0259.00

0260.00

0261.00

0262.00 P DspError        E

0263.00
**********************************************************************
                           




Regards,

Emmanuel Zannis
(Tel:  01252 372000 x3262
 Fax: 01252 542261
 e-mail:emmanuel.zannis@xxxxxxxxxxx 


The above information is confidential to the addressee and may be
privileged.  Unauthorised access and use is prohibited. If you received this
message in error please tell us by reply (or telephone the sender) and
delete all copies from your system.

Internet communications are not secure and therefore this Company does not
accept legal responsibility for the contents of this message. This e-mail
message has been swept by Integralis e:)scan for the presence of detectable
computer viruses, but we cannot guarantee that it is virus-free and you
should scan this email for viruses prior to opening or saving any
attachments.

If you are not the intended recipient, any disclosure, copying, distribution
or any action taken or omitted to be taken in reliance on it, is prohibited
and may be unlawful.

Please note that communications sent by or to any person through our
computer systems may be viewed by other members of the Hogg Robinson group.

Hogg Robinson plc
Registered Office: Global House, Victoria Street, Basingstoke, Hampshire
RG21 3BT
Registered in England and Wales No 2107443



As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.