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
