HP3000-L Archives

March 1998, Week 1

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Recursion Supported?
From:
Dennis Handly <[log in to unmask]>
Reply To:
Dennis Handly <[log in to unmask]>
Date:
Fri, 6 Mar 1998 05:46:52 GMT
Content-Type:
text/plain
Parts/Attachments:
text/plain (16 lines) 
Dan Bundus ([log in to unmask]) wrote:
: As we know, truly recursive applications make use of unique
: local variable values in each recursive call; in COBOL this can
: only be accomplished with a subprogram.
: Dan Bundus

You probably need $CONTROL DYNAMIC before the subprogram.
But you don't really have any "local" variables defined in the
WORKING-STORAGE section, so it works.

: IDENTIFICATION DIVISION.
: PROGRAM-ID. SUBPROG.
: DATA DIVISION.
: WORKING-STORAGE SECTION.
: 01  GLOBAL-CTR     EXTERNAL  PIC 99.

ATOM RSS1 RSS2