Syntax of a (non-recursive) subroutine declaration:
SUBROUTINEprocname
[ (
dummy args
) ]
declaration of dummy args
![]()
declaration of local objects
![]()
...
executable stmts
![]()
[ CONTAINS
internal procedure definitions
]
END [ SUBROUTINE [
procname
] ]
For more information, click here