|
midrange.com
List Hi,
I am trying to read an IFS file using the C function "read". I am getting the
error message MCH1210. (Receiver value too small to hold result).
Sample of the code:
* Read - Read an IFS file
D read PR 10I 0 ExtProc('read')
D filedescI 10I 0 Value
D bufferI@ * Value
D nbyte 10U 0 Value
0143.00
0144.00 * Read PC File in IFS directory
0145.00 D Pr_ReadFile PR 10240A
0228.00 D OutRec S 10240A
0229.00 D FileDescI S 10I 0
0230.00 D BufferI S 10240A Inz(*Blank)
0231.00 D BufferI@ S * Inz(%Addr(BufferI))
0232.00 D NBytes S 10U 0
0233.00 D NBytesSet S 10U 0 Inz(10240)
0234.00 D RecIn S 10240A
0235.00 D CLRFPos S 10I 0 Inz(0)
0236.00 D CLRF S 2A Inz(x'0d25')
0426.00
0427.00 // Read PC file in IFS directory
0428.00 Monitor;
0429.00 outrec = Pr_ReadFile ();
0430.00 On-Error;
0431.00 ExSr *Pssr;
0432.00 EndMon;
859.00 P Pr_ReadFile B
0860.00
0861.00 D Pr_ReadFile PI 10240A
0862.00
0863.00
0864.00 /free
0865.00
0866.00 NBytes = Read(FileDescI:BufferI@:NBytesSet);
0867.00
0868.00 If NBytes > 0 And
0869.00
0870.00 FileDescI >= 0;
0871.00
0872.00 ClRfPos =%Scan(CLRF:BufferI);
0873.00
0874.00 If ClRfPos > 0;
0875.00 RecIn = %SubSt(BufferI:1:ClRfPos + 1);
0876.00 EndIf;
0877.00
0878.00 EndIf;
0879.00
0880.00
0881.00 Return RecIn;
0882.00
0883.00 /end-free
0884.00
0885.00 P Pr_ReadFile E
Before I attempt to read the file I set the IFS file details and open the file
in the IFS directory. I set the file record length to 10240 in the hope that
it will be sufficient to hold the stream.
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-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.
