|
midrange.com
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 mailing list archive is Copyright 1997-2025 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.
