论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 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 编辑 ]