36環境のプロシージャで教えてください。

ABCと言うプロシージャからDEFと言うCLを呼び出し処理後にDEFで設定した
データアリアの情報をABCで取得し使用したいのです。

DEF内では
DCL　VAR(&CODE01)　TYPE(CHAR)　LEN(1)
DCL　VAR(&DATE01)　TYPE(CHAR)　LEN(8)
DCL　VAR(&DLIB01)　TYPE(CHAR)　LEN(10)
DCL　VAR(&DLIB02)　TYPE(CHAR)　LEN(10)

CALL　PGM(XXXXX)　PARM(&CODE01　&DATE01　&DLIB01　&DLIB02)
仮に順番に「A」「20210603」「DLIB01」「DLIB02」とします

CHGDTAARA　DTAARA(*LDA　(601　610))　VALUE(&CODE01)
CHGDTAARA　DTAARA(*LDA　(611　620))　VALUE(&DATE01)
CHGDTAARA　DTAARA(*LDA　(621　630))　VALUE(&DLIB01)
CHGDTAARA　DTAARA(*LDA　(631　640))　VALUE(&DLIB02)
変数を基に上記の様にDTAARAに格納します。

ABCプロシジャーではDEFで設定したDTAARAから情報を取得し変数として使用したいのです。
プロシジャーでDTAARAから情報を取得し変数として使用した経験のある方ご指導願います。