yep, as long as CKERROR is properly documented (that's from Cobol68,
right?), ksam-status "9{" really does equate to mpe error 123 - notice
that { is ascii(123).
Tracy Pierce
> -----Original Message-----
> From: HP-3000 Systems Discussion
> [mailto:[log in to unmask]] On Behalf Of Tony Summers
> Sent: Friday, March 31, 2006 1:45 AM
> To: [log in to unmask]
> Subject: Re: (Fwd) COBOL Help needed
>
> Let's double check that it's an error 123.
>
> I unpack the 9-series file status errors as follows (the code
> sample is
> taken from a macro definition)
>
> <clip>
>
> 77 MPE-ERROR PIC 9(4) USAGE DISPLAY.
>
> *
> * Extra bit of information displayed on 9-series errors.
> IF !1-FILE-STATUS (1:1) = "9"
> CALL INTRINSIC "CKERROR" USING
> !1-FILE-STATUS MPE-ERROR
> DISPLAY "MPE error is " MPE-ERROR.
> *
>
> -----Original Message-----
> From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
> Behalf Of Frank Kelly
> Sent: 31 March 2006 04:31
> To: [log in to unmask]
> Subject: [HP3000-L] (Fwd) COBOL Help needed
>
> I am forwarding this for Jeanette Nutsford.
>
> Any assistance is appreciated.
>
> Regards,
> Frank
>
>
> ------- Forwarded message follows -------
> Date sent: Fri, 31 Mar 2006 14:27:42 +1200
> Send reply to: Jeanette Nutsford <[log in to unmask]>
> From: Jeanette Nutsford <[log in to unmask]>
> Organization: CSL
> Subject: COBOL Help needed
> To:
>
> HP COBOL 85 program.
>
> I am opening a KSAM file using COBOL "OPEN I-O". When I write a record
> using
> "WRITE" I get file status "9{" which converts to error 9 (Implementer
> defined)
> and MPE Error 123. This MPE error 123 is "End of Tape Volume
> set" - I am
> not
> writing to a tape file.
>
> When I change the program to OPEN OUTPUT the record is
> written correctly
> (although it does not append as I need it to).
>
> Does anyone know of a problem with HP COBOL's OPEN I-O?
>
> Thanks,
>
> Jeanette Nutsford
> Computometric Systems Ltd
> NZ Home & Office: 64 9 427 0427
> NZ Mobile Phone: 64 25 213 2537 or 64 25 964 234
> UK Home: 44 1604 471 526 (Answerphone & Fax)
> UK Office: 44 1604 473 470
> US Mobile Phone: 1 410 533 5423
> <[log in to unmask]>
>
>
> ------- End of forwarded message -------Frank Kelly
> Certified HP 3000 Technical Consultant
> HP Channel Partner
> Kelly Consulting
> 319 Regiment Ct.
> Odenton, MD 21113
> Office: (301) 912-2345
> Fax: (410) 674-9778
> Cellular: (240) 447-6257
> [log in to unmask]
>
>
> (Opinions expressed are mine alone)
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
> ______________________________________________________________________
> This email has been scanned by the MessageLabs Email Security System.
> For more information please visit http://www.messagelabs.com/email
> ______________________________________________________________________
>
> For our in-depth analysis of the budget, visit our website at
> www.smith.williamson.co.uk
>
> The contents of this email are confidential to the intended recipient
> and may not be disclosed. Although it is believed that this email and
> any attachments are virus free, it is the responsibility of
> the recipient to confirm this.
>
> Smith & Williamson Corporate Finance Limited - A member of
> the London Stock Exchange.
> A member of M&A International Inc. http://www.mergers.net
> Registered in England No. 4533970. Authorised and regulated
> by the Financial Services Authority
> Smith & Williamson Investment Management Limited, Registered
> No. 976145. Authorised and regulated by the Financial
> Services Authority.
> Smith & Williamson Pension Consultancy Limited - Independent
> Intermediary. Registered No. 3133226. Authorised and
> regulated by the Financial Services Authority.
> Smith & Williamson Fund Administration Limited, Registered
> No. 1934644. Authorised and regulated by the Financial
> Services Authority.
> Smith & Williamson Limited - A member of Nexia International.
> Registered in England No. 4534022. Regulated by the
> Institute of Chartered Accountants in England & Wales for a
> range of investment business activities.
> NCL Investments Limited, Registered No. 1913794.
> Member of the London Stock Exchange authorised and regulated
> by the Financial Services Authority.
>
> Registered Office: 25 Moorgate, London EC2R 6AY
> Telephone: 020 7131 4000 http://www.smith.williamson.co.uk
>
> Nexia Audit Limited - A member of Nexia International. Registered in
> England No. 4469576. Registered to carry on audit work and
> regulated by the Institute of Chartered Accountants in
> England & Wales for a range of investment business activities.
>
> Registered Office: 25 Moorgate, London EC2R 6AY
> Telephone: 020 7131 4000 http://www.nexiaaudit.co.uk
>
>
> ______________________________________________________________________
> This email has been scanned by the MessageLabs Email Security System.
> For more information please visit http://www.messagelabs.com/email
> ______________________________________________________________________
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|