Ibm midrange DDS-TIMFMT。有可能得到hh:mm吗？

我在显示记录中有一个时间输入字段，我希望它的格式为hh:mm。可用的格式有秒或AM/PM。下面是我想做的，但它不起作用，因为该格式不存在

A            SRTTIME         T  B  5 43TIMSEP(':') TIMFMT(*HM)

---

有没有一种简单的方法可以在不将字段更改为简单字符字段的情况下实现我想要的内容？我在v7.1上运行。

我建议使用带有EDTWRD的4位数字字段。您也可以考虑EDTCDE（Y）DATSEP（':'）。或者使用DSPEDTD或WRKEDTD命令查看系统上名为QEDIT5-QEDIT9的“用户定义”编辑代码。或者在第31栏中考虑其他键盘移位代码。< /P>

....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
     A        TM1            4S 0B      3  4EDTWRD('0 :  ')
     A                                      EDTMSK('  &  ')
     A        TM2            4S 0B      4  4EDTCDE(Y) 
     A                                      DATSEP(':') 
     A 

---

请参见

要求输入4位数字的好建议@然后Lundis必须在他的RPG程序中创建一个实际的时间变量，可能会将秒数设置为零。