|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
jrlsage
新的用户
已加入：2012年10月11日
帖子：5
地点：美国
|
|
|
|
| 码： |
/ * REXX * /
/ *追踪我 */
/*
TICKETNUMBER = 票号()
说TICKETNUMBER
出口
票号:
TICKET_LENGTH_CHECK = 0
说"What is the ticket 麻木的er?"
PICK TICKET_ENTRY_NUMBER
TICKET_NUMBER_CHECK =数据类型(TICKET_ENTRY_NUMBER，“ N”)
如果TICKET_NUMBER_CHECK == 1，则执行
if WORDLENGTH(TICKET_ENTRY_NUMBER，1) = 1
然后TICKET_LENGTH_CHECK = 1
如果TICKET_NUMBER_CHECK =¬1&&TICKET_LENGTH_CHECK =¬1，
then
do
TICKETNUMBER = 票号(TICKET_ENTRY_NUMBER)
返回TICKET_ENTRY_NUMBER
结束
else
do
返回TICKET_ENTRY_NUMBER
结束
结束
否则RETURN DATACHECK_ERROR(NUMBERS 票号())
退出:
say "CRITICAL ERROR ->按Q立即退出或"
say "按任意键重新启动功能"
pull ERR_SEL
如果ERR_SEL = Q，则退出
else return 0
DATACHECK_ERROR:
PARSE ARG DATATYPE FUNCTION_NAME
SAY "您使用了错误的DATATYPE，请输入" DATATYPE
RETURN FUNCTION_NAME
ERROR_CHECK:
PARSE ARG myarg部分部分
if section = 1 然后
do
CALL 退出
end
如果part = 1则说"You entered in a non 麻木的er "
SAY "ERROR in" myarg "功能。返回到该功能"
RETURN 票号()
|
我正在构建此代码以自动化一些我必须做的事情。
我的问题是，当用户发出错误的数据类型时，代码进入了DATACHECK ERROR函数。我没有输出，因为它返回到main函数。一旦用户输入正确的数据类型并且代码完成，所有“说”就会在程序末尾出现。
即
| 引用： |
What is the ticket 麻木的er? e
What is the ticket 麻木的er? e
What is the ticket 麻木的er? e
What is the ticket 麻木的er? e
What is the ticket 麻木的er? 2
您使用了错误的DATATYPE，请输入 NUMBERS
您使用了错误的DATATYPE，请输入 NUMBERS
您使用了错误的DATATYPE，请输入 NUMBERS
您使用了错误的DATATYPE，请输入 NUMBERS
2 |
我想在用户进入该功能后立即发表意见。
任何想法？ |
|
| 回到顶部 |
|
 |
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
您不觉得事情变得太复杂了吗？
为什么递归地调用ticket_number ?
这就是消息延迟的原因
描述需求，看起来可以使代码更简单
这是一个片段，要求<ticket 麻木的er>
让用户尝试五次
| 码： |
TICKETNUMBER = 票号()
说TICKETNUMBER
出口
票号: procedure
text = "What is the ticket 麻木的er?"
say text
text = "wrong input - What is the ticket 麻木的er?"
pull 麻木的
do i = 1 to 5 while ( length(numb) \= 1 | datatype(numb) \= "NUM" )
say text
PULL 麻木的
结束
if i > 5 然后 do
say "too many attempts"
出口
结束
return 麻木的
|
|
|
| 回到顶部 |
|
|
jrlsage
新的用户
已加入：2012年10月11日
帖子：5
地点：美国
|
|
|
|
感谢您的快速回复：
我正在使用该EXEC为我们的审核员建立票务信息，这使我们的程序员工作更快。
该程序的要求（最终）将是为这些票证构建所有信息，组织信息，然后使用JCL将结果通过电子邮件发送给程序员以进行简单的复制和粘贴。
---------------------
我想看看是否可以在函数外部进行错误检测，以在此EXEC中创建的任何其他函数中使用，就像一站式服务。 |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
有人认为使用线路模式输入和输出不是用户友好的吗
并已经过时的接口？
是否有人考虑使用ISPF面板进行数据输入和导航？
使用ISPF面板时，可以在面板本身中进行简单的验证
该脚本将仅使用有效数据来获得控制权
此外，所有需要的数据都可以通过一个面板和一次用户交互来收集 |
|
| 回到顶部 |
|
|
jrlsage
新的用户
已加入：2012年10月11日
帖子：5
地点：美国
|
|
|
|
因此，ISPF专家组是解决问题的方法吗？
另外，从REXX的角度来看。推拉输出有效吗？
只是好奇。 |
|
| 回到顶部 |
|
|
佩德罗
全球主持人
已加入：2006年9月1日
帖子：2214
地点：硅谷
|
|
|
|
是
您的意思不清楚。
尝试时发生了什么？ |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
为什么要推/拉
ISPF / REXX接口负责所有变量的处理
假设您有一个名为VAR1的REXX变量
显示面板时，如果它包含名为VAR1的输出字段，则将显示变量内容
如果面板包含名为VAR2的输入字段
当Rexx将重新控制时，REXX变量VAR2将包含用户键入的数据 |
|
| 回到顶部 |
|
|
jrlsage
新的用户
已加入：2012年10月11日
帖子：5
地点：美国
|
|
|
|
谢谢 -
我看到了一个有关如何构建面板的论坛帖子。
虐待继续。
我感谢为使我走上正确道路所做的努力。  |
|
| 回到顶部 |
|
|
尼克·克劳斯顿
全球主持人
加入时间：2007年5月10日
帖子：2455
地点：英国汉普郡
|
|
|
|
| 不要使用论坛帖子来教育自己编写ISPF面板-请使用Dialog开发人员指南和参考（SC34-4821-09） |
|
| 回到顶部 |
|
|
jrlsage
新的用户
已加入：2012年10月11日
帖子：5
地点：美国
|
|
|
|
哦，是的，该帖子向我指出了这一点，并提供了一堆手册来帮助我完成任务。
谢谢  |
|
| 回到顶部 |
|
|
|
|
