REXX 清晰明了的程序结构模版

REXX 格式自由，大小写不敏感，写起来很简单，但是维护起来却很困难，尤其是对于哪些

没有注释，且几乎不分段的rexx。最近，工作原因维护了别人写的一些REXX，真是有种痛不欲生的

感觉。特搜集了一个比较好的REXX 程序结构，推荐给大家，也用来规范自己书写REXX。

/*******************REXX***************************************/

/**  MAIN STREAM   **/

      PARSE ARG EXEC_PARAMETER

      CALL  INIT

      CALL GET_PARM  EXEC_PARAMETER

      CALL WRITE_FILE

      EXIT 0

/**  MAIN STREAM END **/

/****************************************************************/

/* INIT         : INIT THE PARAMETER                                     */

/****************************************************************/

INIT:PROCEDURE,

EXPOSE DBNAME OWNER TBNAME

              DBNAME      = ''

              OWNER         =''

              TBNAME       = ''

RETURN 0

/***************************************************************/

/*   GET_PARM:  GET THE PARM                                         */

/**************************************************************/

GET_PARM:PROCEDURE,

EXPOSE DBNAME OWNER TBNAME

       PARSE  ARG EXEC_PARMETER

       DBNAME=SUBWORD(EXEC_PARAMETER,1,1)

       OWNER   =SUBWORD(EXEC_PARAMETER,2,1)

       TBNAME =SUBWORD(EXEC_PARAMETER,3,1)

RETURN 0

/**************************************************************/

/*  WRITE THE OUTPUT FILE                                               */

/**************************************************************/

WRITE_FILE:PROCEDURE,

EXPOSE DBNAME OWNER TBNAME

QUEUE "  UNLOAD TABLESPACE"  DBNAME||'.'||TBNAME

QUEUE "  FROM TABLE"  OWNER||'.'||TBNAME  "HEADER NONE"

"EXECIO * DISKW SYSIN(FINIS"

IF  RC /== 0 THEN

    EXIT 16

RETUREN 0