Re: COBOL 101

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

> From: Jon Paris
>
>  >> I note though that there's really no good way to pass a parameter to a
> PERFORMed paragraph.
>
> You don't do it that way Joe - you either simply use the Global variable
> represented in Linkage and test in the performed paragraph (which you'd
> have
> to do anyway even if you passed it as a parm). Moving it to WS doesn't
> really help other than in cases where an optional parm simply means to use
> a
> default value in the calc instead.
>
> The alternative is to do it the ANSI '85 way and use a nested program
> instead of a performed paragraph.  Nested programs are as close as COBOL
> gets to RPG subprocedures.  They support local and global storage and if I
> recall correctly you can tier the variables so that a variable is local to
> the nested program but can be seen by programs nested within it.

What I want to do is pass up to three parameters of the same type, and call
the same paragraph for each one.  The paragraph to perform is quite short,
so I guess the idea of moving each one into a common working storage
variable and then performing the paragraph is probably the right way to go.

Joe