REX文件未获取参数

Question

我正在尝试将以下参数从批处理文件传递给Rex。文件。问题是GetYN.REX没有获得参数。知道如何解决吗？

批次：

C:GetYN.rex" Cleanup SADoc directory? '<Y|N>' "
GOTO CLEANUP%ERRORLEVEL%

GetYN.rex

parse arg '"' Prompt '"'

say Prompt

do forever

  Call CharOut, Prompt

  pull Answer

  select

    when Answer = 'Y' | Answer = 'y' then exit 1
    when Answer = 'N' | Answer = 'n' then exit 0
    otherwise
       nop
    end
end

谢谢

Answer 1

这有效：-

/* Rexx */
Parse Arg prompt
prompt = prompt ': '
return_code = 99

    Do Forever

        Call CharOut, prompt

        Pull answer

        Select

            When answer = 'Y'
            Then return_code = 1

            When answer = 'N'
            Then return_code = 0

            Otherwise
                NOP
        End

    End

Exit return_code

注释

1. PULL自动将响应大写

2. 您不需要在提示两边加引号

3. 必须设置文件关联，以便Rexx解释器将被调用执行程序