If it is still supported, check out the DECLARATIVES. If it isn't supported, some COBOL migration manual should explain how to migrate those. And I think that is the kind of thing you are looking to handle in COMEing FROM PL/1 (as opposed to a GO TO -- but that is a compiler writer's "joke").
Later, Steve Thompson -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Johnny Luo Sent: Wednesday, August 16, 2006 12:14 AM To: [email protected] Subject: 'ON ERROR' equivalent in COBOL Hi, Recently we're helping a customer to rewrite their PL/I programs using Enterprise Z/OS COBOL. In PL/I programs, such statements were used to handle unidentified errors: ON ERROR BEGIN; ON ERROR SYSTEM; CALL PLIRETC(12); PUT SKIP LIST(' *****UNEXPECTED ERROR******'); STOP; END; As far as I know(Maybe I'm wrong), there is no equivalent in cobol for such processing. So i try to use LE service 'ceehdlr' to register a user-written cobol sub-program for error handling. Whenever an error occurs, control will be transferred to that sub-progam but the problem is : I want to terminate the execution of mainprogram in that sub-program which is exactly what these pl/i programs do. But I find out I can only 'resume', or 'percolate', or 'promote' . So, does anyone know how to do this in cobol? -- Best Regards, Johnny Luo ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
