Existen dos formas de realizar la llamada a una rutina externa.
Ejemplo:
PERFORM nombre_rutina IN PROGRAM nombre_programa.
PERFORM nombre_rutina(nombre_programa).