How to call a subroutine from inside another ?

Hello ,

How can I call a subroutine from inside another subroutine? Should $INCLUDE be used to imoirt it. Where should the subroutine exist ?

Thanks .

Create PGM.FILE of subroutine which you want to call another routine with TYPE.............. S

and call this subroutine to another routine with function CALL
Like,

CALL SUBROUTINE.NAME

Yeah I know that. But should you use like $INCLUDE SOME.ROUTINE.NAME .
Because I call it but it gives error when compile .

Ok solved it. misspelling in the called routine name ! My bad !

Thanks anyway .

Hi there,
a bit late reply but I signed up to this forum only couple of days ago.

INSERT won't call your subroutine, it will only include its code at the place where you issue the INSERT (like you copy and paste it there).

Use CALL to call your subroutine, e.g.:

A subroutine:

SUBROUTINE INCR.NUM(P.NUMBER)
* increase the parameter
P.NUMBER ++
RETURN
END

Program that calls it:

a_number = 1
CALL INCR.NUM(a_number)
CRT a_number ;* output: 2

You can also use a variable with subroutine name to call it:

a_subr = 'INCR.NUM'
CALL @a_subr(a_number)

Last but not least - you don't need PGM.FILE record to do that.