[AS/400] Control Language

下面是一个简单的 CL 例子，转换日期格式：从 Julian 到 MDY，或者反方向转换。

接受两个参数，日期值 IN，目标类型 TYP，将转换后的日期值存入 OUT 中。

PGM (&IN &TYP)

   DCL &IN  *CHAR 6
   DCL &OUT *CHAR 8
   DCL &TYP *CHAR 1

   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

 

学习资料

IBM i Control Language, wikipedia

Go 4 AS400