0001.00 c************************************************************
0002.00 c* you can browse the ILE RPG/400 at page 467.
0003.00 c* you can call tobey/te205 program to test this program .
0004.00 c* this program test by tobey on 25 December 1998 .
0005.00 c************************************************************
0006.00 HDATFMT(*ISO)
0007.00 DDAT1 S D DATFMT(*ISO)
0008.00 DDAT2 S D DATFMT(*ISO)
0009.00 D DS
0010.00 D ymdfr 1 10
0011.00 D yfr 1 4s 0
0012.00 D c1 5 5
0013.00 D mfr 6 7s 0
0014.00 D c2 8 8
0015.00 D dfr 9 10s 0
0016.00 D DS
0017.00 D ymdto 1 10
0018.00 D yto 1 4s 0
0019.00 D c3 5 5
0020.00 D mto 6 7s 0
(C) COPYRIGHT IBM CORP. 1981, 1996.
0021.00 D c4 8 8
0022.00 D dto 9 10s 0
0023.00 D DS
0024.00 D #ymd 1 8s 0
0025.00 D y5 1 4s 0
0026.00 D m5 5 6s 0
0027.00 D d5 7 8s 0
0028.00 C *ENTRY PLIST
0029.00 C PARM #FR 8 0
0030.00 C PARM #TO 8 0
0031.00 C PARM #daya 5 0
0032.00 c************************************************************
0033.00 c* the from date format
0034.00 c z-add #fr #ymd
0035.00 c z-add y5 yfr
0036.00 c z-add m5 mfr
0037.00 c z-add d5 dfr
0038.00 c move '-' c1
0039.00 c move '-' c2
0040.00 c movel ymdfr dat1
0041.00 c************************************************************
0042.00 c* the to date format
0043.00 c z-add #to #ymd
0044.00 c z-add y5 yto
0045.00 c z-add m5 mto
0046.00 c z-add d5 dto
0047.00 c move '-' c3
0048.00 c move '-' c4
0049.00 c movel ymdto dat2
0050.00 c************************************************************
0051.00 c z-add 0 #daya
0052.00 C dat1 SubDUR DAT2 #daya:*d
0053.00 c #daya iflt 0
0054.00 c #daya mult -1 #daya
0055.00 c endif
0056.00 c add 1 #daya
0057.00 C SETON lR
0058.00 c return
****************** End of data ****************************************
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/