I suppose the next thing to do is to remove the file status processing
from the program and see what raw Tombstone abort message you get from
MPE. (At the same time, check for file equates in the session/job).
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Tracy Pierce
Sent: 05 April 2006 15:22
To: [log in to unmask]
Subject: Re: [HP3000-L] (Fwd) COBOL Help needed
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 *
______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
______________________________________________________________________
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 *
|
