プログラム学習室 http://studyhallweb.com/

AS/400 CLに関するメモ

日付の取得


DCL        VAR(&@DATE)  TYPE(*CHAR) LEN(6)
   RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&@DATE)
   

時間の取得


DCL        VAR(&@TIME)  TYPE(*CHAR) LEN(6)
   RTVSYSVAL  SYSVAL(QTIME) RTNVAR(&@TIME)