|
Why not use ENDSR to prematurely leave a subroutine?
Something like this:
C VLDDAT BEGSR
C*
C DATE IFGT EXPDAT
C MOVE 'E' RTNCOD
C ENDSR
C ENDIF
C*
C DATE IFLT BEGDAT
C MOVE 'B' RTNCOD
C ENDSR
C ENDIF
C*
C ENDSR
Buck Calabro
Commsoft, Rennselaer, NY
mcalabro@commsoft.net
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List! To submit a new message, *
* send your mail to "MIDRANGE-L@midrange.com". To unsubscribe from *
* this list send email to MAJORDOMO@midrange.com and specify *
* 'unsubscribe MIDRANGE-L' in the body of your message. Questions *
* should be directed to the list owner / operator: david@midrange.com *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.