> -----Ursprungligt meddelande----- > Från: IBM Mainframe Discussion List [mailto:IBM-MAIN@bama.ua.edu] För > Shmuel Metz (Seymour J.) > Skickat: den 18 april 2012 01:26 > Till: IBM-MAIN@bama.ua.edu > Ämne: Re: SV: GO TO "cobol" > > In > <a90e503c23f97441b05ee302853b0e626402a60...@fspas01ev010.fspa.myntet.se> > , > on 04/16/2012 > at 03:42 PM, Thomas Berg <thomas.b...@swedbank.se> said: > > >(BTW, How do You imagine the behavior if the Signal DID NOT trash > >the DO nesting? > > The Devil is in the details. Contrast Rexx with PL/I. In PL/I a SIGNAL > invokes an ON-unit as a subroutine. The On=unit can return to the code > following the SIGNAL, can SIGNAL another condition, or can include a > GOTO, which will pop the stack as appropriate. Note that in PL/I you > cannot do a GOTO into a DO loop from outside. >
This somewhat reminds me of how I use Signal in error situations. I do a "CALL ERROR_AND_EXIT" with propriate msg etc. and in that procedure, after some tidying and logging, do a Signal to the exit routine. But the idea with the interprocedure enhanced Leave is interesting. Regards, Thomas Berg ______________________________________________________ Thomas Berg Specialist AM/DQS SWEDBANK AB (publ) ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN