IBM大型机论坛索引
 
登录
 
IBM大型机论坛索引 大型机:搜索 IBM Mainframe论坛:常见问题解答 寄存器
 

REXX功能:完成功能后输出。


IBM大型机论坛 -> 清单& REXX
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
jrlsage

新的用户


已加入:2012年10月11日
帖子:5
地点:美国

发布发表:2012年10月12日,星期五2:32上午
引用回复

码:

/ * 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
所在地:意大利

发布发表于:星期五十月12,2012 3:44上午
引用回复

您不觉得事情变得太复杂了吗?
为什么递归地调用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
地点:美国

发布发表:2012年10月12日,星期五8:35 pm
引用回复

感谢您的快速回复:


我正在使用该EXEC为我们的审核员建立票务信息,这使我们的程序员工作更快。

该程序的要求(最终)将是为这些票证构建所有信息,组织信息,然后使用JCL将结果通过电子邮件发送给程序员以进行简单的复制和粘贴。

---------------------

我想看看是否可以在函数外部进行错误检测,以在此EXEC中创建的任何其他函数中使用,就像一站式服务。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10715
所在地:意大利

发布发表:2012年10月12日,星期五,晚上9:21
引用回复

有人认为使用线路模式输入和输出不是用户友好的吗
并已经过时的接口?

是否有人考虑使用ISPF面板进行数据输入和导航?

使用ISPF面板时,可以在面板本身中进行简单的验证
该脚本将仅使用有效数据来获得控制权

此外,所有需要的数据都可以通过一个面板和一次用户交互来收集
回到顶部
查看用户资料 发送私信
jrlsage

新的用户


已加入:2012年10月11日
帖子:5
地点:美国

发布发表:2012年10月12日,星期五,晚上11:35
引用回复

因此,ISPF专家组是解决问题的方法吗?


另外,从REXX的角度来看。推拉输出有效吗?

只是好奇。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


已加入:2006年9月1日
帖子:2214
地点:硅谷

发布发表:2012年10月12日,星期五,晚上11:51
引用回复

引用:
因此,ISPF专家组是解决问题的方法吗?



引用:
推拉输出有效吗?

您的意思不清楚。

尝试时发生了什么?
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


已加入:2007年3月14日
帖子:10715
所在地:意大利

发布发表:2012年10月13日星期六12:01上午
引用回复

为什么要推/拉

ISPF / REXX接口负责所有变量的处理

假设您有一个名为VAR1的REXX变量

显示面板时,如果它包含名为VAR1的输出字段,则将显示变量内容

如果面板包含名为VAR2的输入字段
当Rexx将重新控制时,REXX变量VAR2将包含用户键入的数据
回到顶部
查看用户资料 发送私信
jrlsage

新的用户


已加入:2012年10月11日
帖子:5
地点:美国

发布发表于:星期五十月19,2012 1:42上午
引用回复

谢谢 -

我看到了一个有关如何构建面板的论坛帖子。

虐待继续。

我感谢为使我走上正确道路所做的努力。 icon_smile.gif
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入时间:2007年5月10日
帖子:2455
地点:英国汉普郡

发布发表于:星期五十月19,2012 2:58上午
引用回复

不要使用论坛帖子来教育自己编写ISPF面板-请使用Dialog开发人员指南和参考(SC34-4821-09)
回到顶部
查看用户资料 发送私信
jrlsage

新的用户


已加入:2012年10月11日
帖子:5
地点:美国

发布发表:2012年10月19日,星期五9:10 pm
引用回复

哦,是的,该帖子向我指出了这一点,并提供了一堆手册来帮助我完成任务。

谢谢 icon_cool.gif
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
该主题已锁定:您无法编辑帖子或回复。 将匹配的记录写入输出文件 DFSORT / ICETOOL 11
没有新帖 从REXX调用FTP的任何示例吗? 清单& REXX 1
没有新帖 SummeRx:REXX z / OS的新框架 清单& REXX 6
没有新帖 更改存在的LRECL的命令... JCL和VSAM 7
没有新帖 使用REXX访问SDSF;我是什么 ... 清单& REXX 38
搜索我们的论坛:


回到顶部