jcsj.prg

来自「这是我给某个单位上编制的」· PRG 代码 · 共 44 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: JCSJ.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-



PROCEDURE jcsj
 PARAMETER CHNSTR
 LOCAL PYTABLE , PY
 PY = '0'
 N = LEN(LTRIM(RTRIM(CHNSTR)))
 M = 1
 DO WHILE M <= N
    DO CASE 
    CASE SUBSTR(LTRIM(RTRIM(CHNSTR)),M,1) = 0
       PY = '1'
    CASE SUBSTR(LTRIM(RTRIM(CHNSTR)),M,1) = 1
       PY = '1'
    CASE SUBSTR(LTRIM(RTRIM(CHNSTR)),M,1) = 2
       PY = '1'
    CASE SUBSTR(LTRIM(RTRIM(CHNSTR)),M,1) = 3
       PY = '1'
    CASE SUBSTR(LTRIM(RTRIM(CHNSTR)),M,1) = 4
       PY = '1'
    CASE SUBSTR(LTRIM(RTRIM(CHNSTR)),M,1) = 5
       PY = '1'
    CASE SUBSTR(LTRIM(RTRIM(CHNSTR)),M,1) = 6
       PY = '1'
    CASE SUBSTR(LTRIM(RTRIM(CHNSTR)),M,1) = 7
       PY = '1'
    CASE SUBSTR(LTRIM(RTRIM(CHNSTR)),M,1) = 8
       PY = '1'
    CASE SUBSTR(LTRIM(RTRIM(CHNSTR)),M,1) = 9
       PY = '1'
    OTHERWISE 
       PY = '0'
       EXIT 
    ENDCASE 
    M = M + 1
 ENDDO 
 RETURN (PY)
ENDPROC
*------*