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

通过今天双色球开奖结果显示消息


IBM大型机论坛 -> TSO / ISPF
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
奇奇特拉

新的用户


已加入:2005年6月8日
帖子:36
地点:马里兰州伯顿斯维尔

发布发表:2009年1月26日星期一11:45 pm
引用回复

我有一个用于CLIST的今天双色球开奖结果,如下所示:

)在里面
.ZVARS ='(OPT)'
PROC
VER(&OPT NB RANGE,1,99,MSG = CNXXX001)
VPUT SSNIN分享
VPUT SKLIN共享
)结束
模型行(扫描)

我必须对其进行修改,以便当两个字段A&B均为空,将显示一条特定消息。谁能让我知道怎么做?

谢谢,
奇特拉
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2009年1月26日星期一11:51 pm
引用回复

使用类似的东西
ibmmainframes.com/viewtopic.php?t=36330&高亮=空+今天双色球开奖结果+字段
回到顶部
查看用户资料 发送私信
奇奇特拉

新的用户


已加入:2005年6月8日
帖子:36
地点:马里兰州伯顿斯维尔

发布发表:2009年1月27日,星期二,12:40 am
引用回复

感谢Enrico-sorichetti。

我对此并不陌生,因此可能需要更多帮助。请多多包涵。以下陈述正确吗?

如果&FIELD1 EQ ' ')
VER( &FIELD2,空白,MSG = MESSAGE1)

MESSAGE1在哪里
消息1'不能盲目'.ALARM =是
“ FIELD1和FIELD2都不能空白”
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2009年1月27日,星期二,上午12:50
引用回复

当您尝试时会发生什么?
回到顶部
查看用户资料 发送私信
奇奇特拉

新的用户


已加入:2005年6月8日
帖子:36
地点:马里兰州伯顿斯维尔

发布发表:2009年1月27日,星期二,12:59 am
引用回复

我还没有尝试。在尝试之前,我只想知道关键字和语句是否正确。

您能否让我知道它们是否正确?

谢谢,
奇特拉
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


已加入:2007年3月14日
帖子:8794
地点:威尔士威尔士

发布发表:2009年1月27日,星期二,12:22 pm
引用回复

正如Enrico所问,尝试时会发生什么。反复试验是最好的老师!

一个简单的ISPF今天双色球开奖结果不太可能导致系统崩溃。 是吗 icon_eek.gif
回到顶部
查看用户资料 发送私信
奇奇特拉

新的用户


已加入:2005年6月8日
帖子:36
地点:马里兰州伯顿斯维尔

发布发表:2009年1月27日,星期二,11:52 pm
引用回复

我不应该在大型机上进行任何更改。相反,我必须先对硬拷贝进行更改,然后将其显示给客户端,然后再测试这些更改。这就是我反复要求澄清的原因。请不要误会我。

谢谢,
奇特拉
回到顶部
查看用户资料 发送私信
ofer71

全球主持人


已加入:2005年12月27日
帖子:2359
地点:以色列

发布发表:2009年1月28日星期三上午11:19
引用回复

您可以复制今天双色球开奖结果&给您自己的ISPPLIB的消息&ISPMLIB并在那里尝试。

回到顶部
查看用户资料 发送私信
奇奇特拉

新的用户


已加入:2005年6月8日
帖子:36
地点:马里兰州伯顿斯维尔

发布发表:2009年1月28日,星期三,9:15 pm
引用回复

谢谢O。感谢所有为此提供帮助的人。我会试试看。
回到顶部
查看用户资料 发送私信
佩德罗

全球主持人


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

发布发表:2009年1月29日,星期四,凌晨1:56
引用回复

引用:
我不应该在大型机上进行任何更改。

您可能有一个管理良好的生产系统,但是您应该能够在生产之前使用测试环境来尝试更改。

引用:
相反,我必须先对硬拷贝进行更改,然后将其显示给客户端,然后再测试这些更改。

我怀疑您的客户会知道语法是否正确。
回到顶部
查看用户资料 发送私信
奇奇特拉

新的用户


已加入:2005年6月8日
帖子:36
地点:马里兰州伯顿斯维尔

发布发表:2009年2月2日星期一10:06 pm
引用回复

我尝试了前面提到的代码,并收到以下错误消息:

ISPP180

今天双色球开奖结果“ RXRPRINT”错误
Verification 类型 unrecognized.

检测到错误的今天双色球开奖结果行:
VER(&UTIIN,BLANK,MSG = CNXXX003)


以下是我正在使用的今天双色球开奖结果:
码:
)ATTR                                                                   
/ ************  THE  +  %  AND  _ 是默认值  **********/   
+类型(TEXT)  INTENS(LOW)  COLOR(BLUE)                                 
类型%(TEXT)  INTENS(HIGH) COLOR(WHITE)                                 
〜类型(INPUT) INTENS(HIGH) COLOR(RED) CAPS(ON)                         
_ 类型(INPUT) INTENS(HIGH) COLOR(RED) CAPS(ON) HILITE(USCORE)           
/ ***************************************************** ***********
¢类型(TEXT) INTENS(LOW) COLOR(BLUE) SKIP(ON)                           
!类型(TEXT) INTENS(LOW) COLOR(GREEN)                                   
¬类型(TEXT) INTENS(LOW) COLOR(YELLOW)                                 
@ 类型(OUTPUT) INTENS(LOW) COLOR(YELLOW)                               
\类型(OUTPUT) INTENS(LOW) COLOR(RED)                                   
#TYPE(OUTPUT) INTENS(LOW) COLOR(WHITE)                                 
?类型(OUTPUT) INTENS(LOW) COLOR(BLUE)                                 
/ ***************************************************** ****************** /   
)BODY                                                                   
@标题                                                                 
+命令===>~ZCMD                                            +SCROLL ==
¬   通知重新打印选择屏幕-#Z +的文件名             
+                                                                       
¬  CNNUM   APPL ID   TYPE     DESCRIPTION                               
%================================================= ====================
)MODEL  ROWS(ALL)                                                       
  ?CNNUM  ?APPLID   ?CNTYPE  ?DESC                                     
+                                                                       
¬用于复制的包含SSN的数据集的类型名称                   
!                            OR                                         
¬输入UTI(6-CHARS)和发生的次数(2-CHARS) OF THE 
¬  UTI (EX: MPD09310)                                                   
+                                                                       
+%DATASET   %===>_SSNIN                                               
+                                                                       
+%UTI PARM  %===>_UTIIN                                               
+                                                                       
¬类型 NAME OF SKELCOMP FILE                                           
+                                                                       
+%SKELCOMP  %===>_SKLIN                                               
+                                                           
)INIT                                                       
  .ZVARS = '(OPT)'                                         
)PROC                                                       
  VER(&OPT NB RANGE,1,99,MSG = CNXXX001)                   
  IF (&SSNIN EQ '')                                         
     VER (&UTIIN,BLANK,MSG = CNXXX003)                     
  VPUT SSNIN分享                                         
  VPUT UTIIN SHARED                                         
  VPUT SKLIN共享                                         
)END                                                       
)MODEL  ROWS(SCAN)     


我对该今天双色球开奖结果进行了其他一些更改,它们正在起作用,但是IF子句无效。有人可以帮我吗?

谢谢,
奇特拉

[/ img] [/ url]
回到顶部
查看用户资料 发送私信
ofer71

全球主持人


已加入:2005年12月27日
帖子:2359
地点:以色列

发布发表:2009年2月3日,星期二,上午12:03
引用回复

据我所知,BLANK不是VER选项。

回到顶部
查看用户资料 发送私信
奇奇特拉

新的用户


已加入:2005年6月8日
帖子:36
地点:马里兰州伯顿斯维尔

发布发表:2009年2月3日(星期二)上午12:46
引用回复

谢谢O。

谁能让我知道在该位置使用正确的关键字是什么?

如果都SSNIN&UTIIN为空白,我希望在今天双色球开奖结果中显示一条消息。

谢谢,
奇特拉
回到顶部
查看用户资料 发送私信
ofer71

全球主持人


已加入:2005年12月27日
帖子:2359
地点:以色列

发布发表:2009年2月3日,星期二,上午1:11
引用回复

您可以尝试类似(未经测试!)的方法:
码:
IF (&SSNIN EQ '' AND &UTIIN EQ ' ')
    .MSG = CNXXX003


回到顶部
查看用户资料 发送私信
奇奇特拉

新的用户


已加入:2005年6月8日
帖子:36
地点:马里兰州伯顿斯维尔

发布发表:2009年2月3日,星期二,凌晨1:20
引用回复

谢谢你,O。

有效。谢谢所有帮助我的人。

谢谢,
奇特拉
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> TSO / ISPF

 


类似主题
话题 论坛 回覆
没有新帖 将文件从PD转换为显示... 同步排序 4
没有新帖 无法显示补偿变量 COBOL程式设计 4
没有新帖 阅读4MB消息并拆分成多个... COBOL程式设计 9
没有新帖 如何设置MQ今天双色球开奖结果 TSO / ISPF 3
没有新帖 ISPF今天双色球开奖结果命令DDLIST / LISTBOX TSO / ISPF 11
搜索我们的论坛:

回到顶部