More Internal Subroutines
$ CALL subroutine_name[ p1[ p2[ ...]]] . . .$subroutine_name: SUBROUTINE$ statement(s)$ EXIT$ ENDSUBROUTINE
Notes:
DCL provides internal SUBROUTINEs that act like external procedures. This allows for easier parameter passing than GOSUB, also.