发个RPGLE程序：日期格式转换

ux400

1. 
   
2.       *BBB********************************************************************
   
3.       *
   
4.       * 程序名称: CVTDate713(RPGLE)
   
5.       * 功能描述: 转换7/13位日期/时间为8/14位日期/时间
   
6.       *   7位日期格式：CYYMMDD
   
7.       *   where C = Century (0 = 1940 through 1999 and 1 = 2000
   
8.       *   through 2039), Y = Year, M = Month, and D = Day.
   
9.       *
   
10.       *   13位日期时间格式：CYYMMDDHHMMSS
    
11.       *   where C = Century (0 = 1940 through 1999 and
    
12.       *   1 = 2000 through 2039), Y = Year, M = Month, D = Day, H =
    
13.       *   Hour, M = Minutes, and S = Seconds.
    
14.       *
    
15.       *   本程序把C(0/1)改为CC(19/20)从而转换为8/14位日期/时间
    
16.       *
    
17.       * 编程日期: 2006.10.20  程序开发: M.L.Y
    
18.       * 修改记录:
    
19.       *   YYYY.MM.DD  Modifier    Description
    
20.       *   ----------  ----------  -------------------------------------
    
21.       *
    
22.       *----------------------------------------------------------------
    
23.       * 输入输出文件(Input/Output,Read/Write/Update):
    
24.       * Filename    I/O,R/W/U   Description
    
25.       * ----------  ----------  ---------------------------------------
    
26.       *
    
27.       *
    
28.       *EEE********************************************************************
    
29.      C***程序入口参数定义:
    
30.      C                   EXSR      RDPARM
    
31.      C***调用子程序进行具体处理:
    
32.      C                   EXSR      SUB001
    
33.      C     ENDPGM        TAG
    
34.      C                   MOVE      '1'           *INLR
    
35.      C*                                          Indicator
    
36.      C* *INLR='1'---set on
    
37.      C                   RETURN
    
38.      C************************************************************************
    
39.      C*    SUB001
    
40.      C************************************************************************
    
41.      C     SUB001        BEGSR
    
42. 1{   C                   IF        %SUBST(iDate7or13:1:1) = '0'
    
43. 
    
44. 2{  C                   IF        iDateLen7 = '7'
    
45.      C                   EVAL      oDate8or14 = '19' + %SUBST(iDate7or13:2:6)
    
46. 2-  C                   ELSE
    
47.      C                   EVAL      oDate8or14 = '19' + %SUBST(iDate7or13:2:12)
    
48. 2}  C                   ENDIF
    
49. 
    
50. 1-   C                   ELSE
    
51. 
    
52. 2{  C                   IF        %SUBST(iDate7or13:1:1) = '1'
    
53. 
    
54.   3{ C                   IF        iDateLen7 = '7'
    
55.      C                   EVAL      oDate8or14 = '20' + %SUBST(iDate7or13:2:6)
    
56.   3- C                   ELSE
    
57.      C                   EVAL      oDate8or14 = '20' + %SUBST(iDate7or13:2:12)
    
58.   3} C                   ENDIF
    
59. 
    
60. 2-  C                   ELSE
    
61. 
    
62.      C*                  EVAL      oDate8or14 = iDate7or13
    
63.   3{ C                   IF        iDateLen7 = '7'
    
64.      C                   EVAL      oDate8or14 = %SUBST(iDate7or13:1:7) + ' '
    
65.   3- C                   ELSE
    
66.      C                   EVAL      oDate8or14 = %SUBST(iDate7or13:1:13) + ' '
    
67.   3} C                   ENDIF
    
68. 
    
69. 2}  C                   ENDIF
    
70. 
    
71. 1}   C                   ENDIF
    
72.      C                   ENDSR
    
73.      C************************************************************************
    
74.      C*    SUBROUTINE    RDPARM   程序入口参数定义
    
75.      C************************************************************************
    
76.      C     RDPARM        BEGSR
    
77.      C     *ENTRY        PLIST
    
78.      C*输入接口:
    
79.      C                   PARM                    iDate7or13       13
    
80.      C                   PARM                    oDate8or14       14
    
81.      C                   PARM                    iDateLen7         1
    
82.      C                   ENDSR
    
83.      C************************************************************************
    
84.      C* RPG 程序结束
    
85.      C************************************************************************
    
86. 
    

复制代码

[ 本帖最后由 ux400 于 2008-8-26 18:02 编辑 ]

ux400

呵呵，论坛直接发程序不能保持原有格式。
不方便人家 ^C、^V
各位有何好办法？

用了 CODE 标签，但是发现 Copy to clipboard 还是与原文有差异。那些“2{” 、“2}”开头的行，左边的空格都没保留，还是不能对齐。看来论坛程序还有待改进。

[ 本帖最后由 ux400 于 2008-8-26 18:06 编辑 ]

uglyneo

原帖由 ux400 于 2008-8-26 17:07 发表
呵呵，论坛直接发程序不能保持原有格式。
不方便人家 ^C、^V
各位有何好办法？

直接传txt的附件。
:wink:

wangyang6614

直接贴代码没问题啊，其他帖子还是有很多的，直接帖上文本就可以了。

帮楼主顶一下。

ux400

各位牛人的 RPG 代码风格是如何的？
你觉得这种 1{ 1} 2{ 2} 等标记方便读者看我的程序吗？