自由形式のプロシージャー開始ステートメントは、DCL-PROC で始まり、 その後にプロシージャー名が続き、さらにその後にキーワード が続き、最後はセミコロンで終わります。 プロシージャーのプロトタイプがなく、 EXTPROC キーワードのプロシージャー名パラメーターに *DCLCASE が 指定されている場合、 プロシージャーの外部名は、DCL-PROC ステートメントに指定された名前と 同じであり、大/小文字も同じです。
自由形式のプロシージャー終了ステートメントは、END-PROC で始まり、 その後に任意指定のプロシージャー名が続き、 最後はセミコロンで終わります。 名前が指定される場合は、プロシージャー開始ステートメントに指定された 名前と同じでなければなりません。
DCL-PROC getCustName
/IF DEFINED(EXPORT_ALL_PROCEDURES)
EXPORT
/ENDIF
;
DCL-PROC cleanup;
CLOSE *ALL;
UNLOCK *ALL;
deleteTempUsrspc();
END-PROC;
DCL-PROC getNextOrder; 1
DCL-PI *N IND
EXTPROC(*DCLCASE); 2
order LIKEDS(order_t);
END-PI;
DCL-F orders STATIC;
READ orders order;
RETURN %EOF(orders);
END-PROC getNextOrder;
