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

通过REXX将行今天双色球开奖结果pgm


IBM大型机论坛 -> 清单& REXX
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
主框架
目前被禁止

新的用户


已加入:2006年2月7日
帖子:4

 发布 发表:2006年2月9日,星期四,下午3:04
引用回复

你好
我的要求是在某些要求下向cobol pgm中今天双色球开奖结果一行
例如,
我将通过REXX代码提供输入变量,该代码在workkingstorage部门中声明为变量。

1)该变量只能今天双色球开奖结果到过程分区中
2)然后,如果该变量在不同位置的过程分区中出现了10次,我想在找到该变量的任何地方今天双色球开奖结果10行

例如)工作存储区。
ws-eof pic x(10)
procedure division.
ws-eof
------ <=我想在这里今天双色球开奖结果DISPLAY“ WS-EOF”
ws-eof
回到顶部
查看用户资料 发送私信
稻田

新的用户


已加入:2005年9月12日
帖子:46
地点:法国巴黎

 发布 发表:2006年2月10日,星期五12:00 pm
引用回复

嗨,mainfrae

您可以尝试使用此代码,它应该可以正常工作。





码:
/ * rexx                                                                */
/*                                                                    */
/*                                                               Paddy*/
追踪o
拉var1 // *键盘输入  */
DSNIN ='您的来源cobol'
DSNOU ='您的输出dsn'
INSER ='输入您想今天双色球开奖结果的文字'
/ *分配和词干来源* /
'ALLOC FI($FIL1) DA('DSNIN') SHR REUSE'
 地址MVS'EXECIO * DISKR $ FIL1(STEM PRO. FINIS'
'免费FI($FIL1)'
/ *读取词干并搜索var1 * /
   do i = 1 to pro.0
      search = find(pro.i,var1)
          If search = 0
                    then
                       队列pro.i / *仅限于var1队列源行* /
                    else
                        do
                         队列pro.I / * var1 OK队列源行    */
                         队列今天双色球开奖结果器/ *和yr注释         */
                        end
   end
 / *用您的评论写一个新来源* /
'ALLOC FI($FIL2) DA('DSNOU') SHR REUSE'
地址MVS'EXECIO * DISKW $ FIL2( FINIS'
'免费FI($FIL2)'

出口



最好的祝福

稻田 icon_smile.gif
回到顶部
查看用户资料 发送私信
主框架
目前被禁止

新的用户


已加入:2006年2月7日
帖子:4

 发布 发表:2006年2月10日星期五7:03 pm
引用回复

谢谢稻田
但是当我测试该程序时,它是在第一次找到变量时今天双色球开奖结果的。但是我有10次该变量,我也想今天双色球开奖结果10个单独的行中。

有没有使用任何方法 line_after和寻求 命令
回到顶部
查看用户资料 发送私信
稻田

新的用户


已加入:2005年9月12日
帖子:46
地点:法国巴黎

 发布 发表:2006年2月10日,星期五,晚上8:09
引用回复

嗨Mainfrae,

此过程每次到达变量时都会今天双色球开奖结果一行。如果一行包含指定变量的多次出现,则该过程将无法正常运行。通常,它必须读取源文件的每一行,并将其读入变量。对于我的测试文件,该过程每次到达变量时都今天双色球开奖结果一行。也许我不太了解您的问题。

之前 icon_smile.gif

码:

******,*****************************数据顶部*********** *******************
000001,AAAAAAAAAAAAAAAAAAAAAAAAAA
000002,BBBBBBBBBBBBBBBBBBBBBBBBB
000003,WEOF
000004,EEEEEEEEEEEEEEEEE
000005,AAAAAAAAAAAAAAAAAAAAAAAAAA
000006,BBBBBBBBBBBBBBBBBBBBBBBBB
000007,WEOF
000008,EEEEEEEEEEEEEEEEE
000009,AAAAAAAAAAAAAAAAAAAAAAAAAA
000010,WEOF
000011,程序结束
******,********************************数据底部************ ****************


icon_surprised.gif

码:

******,*****************************数据顶部*********** *******************
000001,AAAAAAAAAAAAAAAAAAAAAAAAAA
000002,BBBBBBBBBBBBBBBBBBBBBBBBB
000003,WEOF
000004,显示屏
000005,EEEEEEEEEEEEEEEEE
000006,AAAAAAAAAAAAAAAAAAAAAAAAAA
000007,BBBBBBBBBBBBBBBBBBBBBBBBB
000008,WEOF
000009,显示屏
000010,EEEEEEEEEEEEEEEEE
000011,AAAAAAAAAAAAAAAAAAAAAAAAAA
000012,WEOF
000013,显示画面
000014,程序结束
******,********************************数据底部************ ****************




问候。

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

 


类似主题
话题 论坛 回覆
没有新帖 DB2I面板中的命令行放置 TSO / ISPF 2
没有新帖 从REXX调用FTP的任何示例吗? 清单& REXX 1
没有新帖 SummeRx:REXX z / OS的新框架 清单& REXX 6
没有新帖 文件辅助批处理如何重复一行... Compuware和其他工具 2
没有新帖 更改存在的LRECL的命令... JCL和VSAM 7
搜索我们的论坛:


回到顶部