My first and only recursive program was written in PL1. To avoid a GOTO. Wrong! S80A abend. Would probably work today with copious amounts of memory.
On Thu, Apr 9, 2020, 02:40 Frank Swarbrick <frank.swarbr...@outlook.com> wrote: > Yes, very verbose. > And yes, recursion is possible, but you must specify "IS RECURSIVE" on the > PROGRAM-ID. Not sure what having nested programs has to do with that, > though. > > ________________________________ > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf > of David Crayford <dcrayf...@gmail.com> > Sent: Tuesday, April 7, 2020 7:44 PM > To: IBM-MAIN@LISTSERV.UA.EDU <IBM-MAIN@LISTSERV.UA.EDU> > Subject: Re: Why rip out COBOL when you can modernize key applications? - > Weirdware > > Wow, and some people criticize Java for being verbose! > > So using nested programs one can implement recursion in COBOL which you > couldn't do before without using a table stack. > > On 2020-04-08 5:14 AM, Frank Swarbrick wrote: > > Nested subroutines. > > > > Small example: > > > > ID DIVISION. > > PROGRAM-NAME. MAINPROG. > > [...] > > PROCEDURE DIVISION. > > CALL 'NESTED-PROGRAM-1' > > GOBACK. > > > > ID DIVISION. > > PROGRAM-ID. NESTED-PROGRAM-1. > > DATA DIVISION. > > WORKING-STORAGE SECTION. > > 01 LOCAL-VAR-1 PIC X. > > [...] > > PROCEDURE DIVISION. > > DISPLAY 'IN NESTED-PROGRAM-1' > > GOBACK. > > > > END PROGRAM NESTED-PROGRAM-1. > > > > END PROGRAM MAINPROG. > > > > ________________________________ > > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on > behalf of David Spiegel <dspiegel...@hotmail.com> > > Sent: Tuesday, April 7, 2020 2:58 PM > > To: IBM-MAIN@LISTSERV.UA.EDU <IBM-MAIN@LISTSERV.UA.EDU> > > Subject: Re: Why rip out COBOL when you can modernize key applications? > - Weirdware > > > > Hi Frank, > > Thank you for that information. > > (All the COBOL I support(ed) didn't contain these and neither did my > > university courses in the '70s.) > > > > If I wanted to look them up, which keyword(s) would I use? > > > > Thanks and regards, > > David > > > > On 2020-04-07 15:49, Frank Swarbrick wrote: > >> Internal subroutines and local variables have been supported since > COBOL 1985 (VS COBOL II era). > >> They're not ideal, but they do exist. > >> > >> ________________________________ > >> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on > behalf of David Spiegel <dspiegel...@hotmail.com> > >> Sent: Tuesday, April 7, 2020 12:58 PM > >> To: IBM-MAIN@LISTSERV.UA.EDU <IBM-MAIN@LISTSERV.UA.EDU> > >> Subject: Re: Why rip out COBOL when you can modernize key applications? > - Weirdware > >> > >> How about no internal subroutines with local variables? > >> > >> On 2020-04-07 14:47, Bob Bridges wrote: > >>> I used to bad-mouth COBOL, and I still prefer languages that are less > wordy. But I came somewhat reluctantly to see that it has its strengths. > The one I think most important is that it encourages even novice > programmers to organize their logic in what we used to call a "top-down" > manner: This paragraph accomplish a certain task by executing paragraphs > one through three, then two more, and this subparagraph executes > subsubparagraphs, and so on. Forms good habits, I think. > >>> > >>> --- > >>> Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313 > >>> > >>> /* My life is in the hands of any fool who can make me lose my > temper. -driving motto */ > >>> > >>> -----Original Message----- > >>> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of scott Ford > >>> Sent: Tuesday, April 7, 2020 12:55 > >>> > >>> I learned Assembler first and then Cobol and then some PL/1. I always > felt each language had its strengths and weaknesses and all were like tools > in a toolbox. > >>> > >>> ---------------------------------------------------------------------- > >>> For IBM-MAIN subscribe / signoff / archive access instructions, > >>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > >>> . > >> ---------------------------------------------------------------------- > >> For IBM-MAIN subscribe / signoff / archive access instructions, > >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > >> > >> ---------------------------------------------------------------------- > >> For IBM-MAIN subscribe / signoff / archive access instructions, > >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > >> . > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, > > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN