|
Michael Based on the examples (page 303-311,312) from "Who Knew You could do that with RPG IV?" Yes. Unless you see something that I missed. -----Original Message----- From: midrange-l-bounces+emmanuel.zannis=hrplc.co.uk@xxxxxxxxxxxx [mailto:midrange-l-bounces+emmanuel.zannis=hrplc.co.uk@xxxxxxxxxxxx]On Behalf Of michael@xxxxxxxxxxxxxxxxxx Sent: 09 November 2005 11:53 AM To: Midrange Systems Technical Discussion Subject: RE: Receiver value too small to hold result On this line? NBytes = Read(FileDescI:BufferI@:NBytesSet) If so, if FileDescl a valid handle number? > -------- Original Message -------- > Subject: RE: Receiver value too small to hold result > From: "Emmanuel Zannis" <emmanuel.zannis@xxxxxxxxxxx> > Date: Wed, November 09, 2005 6:50 am > To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx> > > Statement 866. When attempting to read the file. > > -----Original Message----- > From: midrange-l-bounces@xxxxxxxxxxxx > [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of > michael@xxxxxxxxxxxxxxxxxx > Sent: 09 November 2005 11:42 AM > To: Midrange Systems Technical Discussion > Cc: midrange-l@xxxxxxxxxxxx > Subject: RE: Receiver value too small to hold result > > > What statement is it blowing up on? > > > -------- Original Message -------- > > Subject: Receiver value too small to hold result > > From: "Emmanuel Zannis" <emmanuel.zannis@xxxxxxxxxxx> > > Date: Wed, November 09, 2005 6:38 am > > To: <midrange-l@xxxxxxxxxxxx> > > > > 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 > > > > -- > > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list > > To post a message email: MIDRANGE-L@xxxxxxxxxxxx > > To subscribe, unsubscribe, or change list options, > > visit: http://lists.midrange.com/mailman/listinfo/midrange-l > > or email: MIDRANGE-L-request@xxxxxxxxxxxx > > Before posting, please take a moment to review the archives > > at http://archive.midrange.com/midrange-l. > > -- > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list > To post a message email: MIDRANGE-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/midrange-l > or email: MIDRANGE-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/midrange-l. > > 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 > > > -- > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list > To post a message email: MIDRANGE-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/midrange-l > or email: MIDRANGE-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/midrange-l.
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.
midrange.com
