Hi Geir,
My linkage looks as follows;
LINKAGE SECTION.
01 LK01-CBL-MESSAGE-ID PIC X(07).
01 LK01-RESPONSES PIC X(06).
01 LK01-PGM-IN-ERROR.
05 LK01-PGM-NAME PIC X(10).
05 LK01-LIB-NAME PIC X(10).
01 LK01-SYS-MESSAGE-ID PIC X(7).
01 LK01-MESSAGE-TEXT PIC X(1).
01 LK01-MESSAGE-LENGTH PIC S9(9) BINARY.
01 LK01-SYS-OPTION PIC X(1).
Best regards,
Mark Austin
IT Consultant
Universal Music Publishing Group
Bond House, 347-353 Chiswick High Road, London W4 4HS
Tel: +44 (0)208 742 5520 / Fax: +44 (0)208 742 5699
mark.austin@xxxxxxxxxx
Universal Music Publishing International Limited
Registered in England. Number 02050403
Registered Office: 347-353 Chiswick High Road, London W4 4HS
-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of geir.kildal@xxxxxxxxxx
Sent: 18 February 2010 09:44
To: cobol400-l@xxxxxxxxxxxx
Subject: Re: [COBOL400-L] Errors when calling programs
Mark.
I'm almoust getting this to work now, but I need to know how many parameters does the error handler use when it calls the error-handling program(e.g. how many 01-levels does your MP08003 have in LINKAGE SECTION?)
I have tried 1 and 5, but I still get ' Total parameters passed does not match number required.'
Mvh.
Geir.
"Keep it simple!"
-----Opprinnelig melding-----
Fra: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] På vegne av Austin, Mark
Sendt: 12. februar 2010 11:28
Til: COBOL Programming on the iSeries/AS400
Emne: Re: [COBOL400-L] Errors when calling programs
You can set the cobol error handler so that any unmonitored error will call a specified program. See example below where MP08003 is our standard error handler;
WORKING-STORAGE SECTION.
COPY QUSEC OF QSYSINC-QLBLSRC.
01 WS01-ERROR-HANDLER-API.
05 WS01-EH-Y PIC S9(9) VALUE ZERO.
05 WS01-EH-PROGRAM PIC X(20) VALUE 'MP08003 *LIBL '.
05 WS01-EH-SCOPE PIC X VALUE 'C'.
05 WS01-EH-LIBRARY PIC X(10).
05 WS01-EH-PREVIOUS PIC X(20).
COPY C4PYWS90.
PROCEDURE DIVISION.
CM00-CONTROL SECTION.
****************************************************************
* MAIN PROGRAM CONTROL *
****************************************************************
CM000-START.
* Set the error handler
MOVE 16 TO BYTES-PROVIDED OF QUS-EC.
* Call the API to register the exit program.
CALL 'QLRSETCE' USING WS01-EH-PROGRAM
WS01-EH-SCOPE
WS01-EH-LIBRARY
WS01-EH-PREVIOUS
QUS-EC.
* Check for an error
IF BYTES-AVAILABLE OF QUS-EC > ZERO
MOVE 'CBL-ErrHlr' TO WS99-FILE-NAME
MOVE 'Failed to set the Cobol error handler'
TO WS99-FILE-KEY
PERFORM 9990-IO-ERROR.
GOBACK.
CM999-EXIT.
EXIT.
Best regards,
Mark Austin
IT Consultant
Universal Music Publishing Group
Bond House, 347-353 Chiswick High Road, London W4 4HS
Tel: +44 (0)208 742 5520 / Fax: +44 (0)208 742 5699 mark.austin@xxxxxxxxxx
Universal Music Publishing International Limited Registered in England. Number 02050403 Registered Office: 347-353 Chiswick High Road, London W4 4HS -----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of geir.kildal@xxxxxxxxxx
Sent: 12 February 2010 07:48
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] Errors when calling programs
Hi.
In a COBOL-program, I'm calling a Pascal-program(no source avalible!).
Now and again this Pascal-pgm returns a PSE-message which, of course, makes my COBOL-pgm stop.
I want to take control over this in my COBOL-pgm, and issue a programmed error message instead.
I can slightly remember someting about coding an 'on-error'-routine in COBOL?
Or other ways to come around this, please?
Mvh.
Geir Kildal
"Keep it simple!"
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/cobol400-l.
"**Confidentiality**
The information contained in this e-mail is confidential, may be privileged and is intended solely for the use of the named addressee. Access to this e-mail by any other person is not authorised. If you are not the intended recipient, you should not disclose, copy, distribute, take any action or rely on it and you should please notify the sender by reply. Any opinions expressed are not necessarily those of the company.
We may monitor all incoming and outgoing emails in line with current legislation. We have taken steps to ensure that this email and attachments are free from any virus, but it remains your responsibility to ensure that viruses do not adversely affect you.
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/cobol400-l.
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
http://archive.midrange.com/cobol400-l.
"**Confidentiality**
The information contained in this e-mail is confidential, may be privileged and is intended solely for the use of the named addressee. Access to this e-mail by any other person is not authorised. If you are not the intended recipient, you should not disclose, copy, distribute, take any action or rely on it and you should please notify the sender by reply. Any opinions expressed are not necessarily those of the company.
We may monitor all incoming and outgoing emails in line with current legislation. We have taken steps to ensure that this email and attachments are free from any virus, but it remains your responsibility to ensure that viruses do not adversely affect you.
midrange.com
