Описание локальной подпрограммы:

 routine name

  name        - Имя подпрограммы.

 

Оператор ROUTINE объявляет начало локальной подпрограммы. Она локальна по отношению к процедуре, в которой написана, и должна находиться в конце ее программной секции. Все переменные, доступные в процедуре доступны локальной подпрограмме.

 

Обращение к локальной подпрограмме производится оператором DO, за которым следует метка локальной подпрограммы. После выполнения локальной подпрограммы, управление передается оператору, следующему за оператором DO. Локальная подпрограмма заканчивается с концом исходного файла или с началом другой подпрограммы. Для того, чтобы завершить выполнение локальной подпрограммы, может использоваться оператор EXIT (подобно оператору RETURN).

 

Подпрограмма может возвращать значение в переменную указанную в операторе DO

 

см. также: RETURN, EXIT, DO