CLでのジョブ日付の取得
CLで８桁のジョブ日付を取得する方法をお伝えします。
RPG上では UDATEで６桁、*DATEで８桁のジョブ日付を取得する事ができます。
CL上ではRTVJOBA で６桁のジョブ日付を取得し、CVTDATで８桁へ変換します。
RPG:
-
DCL VAR(&DATE6) TYPE(*CHAR) LEN(06) /* 日付６桁 */
-
DCL VAR(&DATE8) TYPE(*CHAR) LEN(08) /* 日付８桁 */
-
-
RTVJOBA DATE(&DATE6)
-
CVTDAT DATE(&DATE6) TOVAR(&DATE8) TOFMT(*YYMD)
-
TOSEP(*NONE)
トラックバック URL :