下面是一个简单的 CL 例子，转换日期格式：从 Julian 到 MDY，或者反方向转换。
接受两个参数，日期值 IN，目标类型 TYP，将转换后的日期值存入 OUT 中。
PGM (&IN &TYP) DCL &IN *CHAR
DCL &OUT *CHAR
DCL &TYP *CHAR IF (&TYP = J) +
DO
CVTDAT DATE(&IN) TOVAR(&OUT) FROMFMT(*MDY) +
TOFMT(*JUL) TOSEP(*NONE)
ENDDO ELSE IF (&TYP = M) +
DO
CVTDAT DATE(&IN) TOVAR(&OUT) FROMFMT(*JUL) +
TOFMT(*MDY) TOSEP(*NONE)
ENDDO SNDPGMMSG MSG('IN=' || &IN || ' OUT=' || &OUT) +
MSGTYPE(*COMP) ENDPGM
学习资料