Chinaunix

标题: 显示程序的参考结构 [打印本页]
作者: 法郎士    时间: 2009-12-07 12:23
标题: 显示程序的参考结构
怎样写出一个可读性高，结构清楚的显示程序呢？我把我过去写的规范给初学者参考一下。欢迎砸砖。

每一个屏幕都有一个子程序。如果一个程序有三个屏幕，我们定义他们为三个子程序SCR001, SCR002和SCR003.

C*-------------------------------
C SCR_001 BEGSR

C         EXSR   CLR_MSG

C* INITIALIZE AND FILL THE SCREEN
C         EXSR  INZSCR

C         DOW    1 = 1
C         EXFMT MY_REC
C         IF        ERROR
C         EXSR  CLR_MSG
C         ENDIF
...
C         IF       *INKC
C         LEAVE
C         ENDIF

C         EXSR  FKY_PRC
...
C         EXSR  ENT_PRC
...
C         ENDDO

C         ENDSR
C*------------------------------
C* FUNCTION KEY SUBROUTINE       
C*-------------------------------
C  FKY_PRC BEGSR
C          EVAL   FNT_FLG = *OFF  
C          SELECT
C          WHEN   *INKX
C          ....
C          WHEN   *INKX
C          ....
C          OTHER
C          EVAL   ENT_FLG = *ON
C          ENDSL
C          ENDSR
C*------------------------------
C* POST-ENTER SUBROUTINE
C*------------------------------
C  ENT_PRC BEGSR
C          IF      ENT_FLG
C          EXSR    VALID
C          ...
C          IF      NOT ERROR
C          EXSR    POST_TRN
C          ENDIF
C          ENDIF       
C          ENDSR
C*------------------------------
C* CLEAR MESSAGE SUBROUTINE
C*------------------------------
C  CLR_MSG BEGSR
C* RESET ERROR INDICATORS       
C          MOVEA '000000' *INKX
C* CLEAR MSG IN PGM MESSAGE QUEUE       
C          CALL  'CLEAR'  PLIST1
C          EVAL   ERROR = *OFF
C          ENDSR
C*------------------------------

子程序SCR001被调用之后，先执行INZSCR子程序填充屏幕。

然后进入主循环，直到用户按F3=Exit退出。

显示屏幕后控制回到程序后先执行功能键子程序FKY_PRC

如果功能键没有被按到过，便执行回车键处理子程序ENT_PRC


ENT_PRC先调用VALID子程序对用户键入的内容进行合法性检验。

如果有错，把变量ERROR设置为*ON, 并且把出错信息送到PROGRAM MESSAGE QUEUE去。

如果没有错，就执行POST_TRN,进行相应的操作。

[ 本帖最后由 法郎士 于 2009-12-7 12:59 编辑 ]
作者: ux400    时间: 2009-12-07 13:02
看看我的程序是否可读性高，结构清楚？


  2. 1{   C                   IF        ...
  3. 2{  C                   IF        ...
  4.   3{ C                   IF        ...
  5.    4{C                   IF        ...
  6.      C* ...
  7.    4-C                   ELSE
  8.      C* ...
  9.    4}C                   ENDIF
  10.   3- C                   ELSE
  11.      C* ...
  12.   3} C                   ENDIF
  13. 2-  C                   ELSE
  14.      C* ...
  15. 2}  C                   ENDIF
  16. 1-   C                   ELSE
  17.      C* ...
  18. 1}   C                   ENDIF
复制代码
作者: ux400    时间: 2009-12-07 13:04
bbs 还是难看
作者: 法郎士    时间: 2009-12-07 13:57
标题: 回复 #3 ux400 的帖子
用自由格式，嵌套可以比较清楚。
作者: ux400    时间: 2009-12-07 18:27
原先的老程序都是固定格式。我这个是固定格式的规范。有更好的规范吗？欢迎砸砖和玉。
不可能全部一下子改成自由格式。



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2