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

使用BPXWDYN按相对代分配今天双色球开奖结果


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

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

发布发表:2007年9月14日,星期五12:07上午
引用回复

有没有人有使用BPXWDYN程序使用相对世代号动态分配今天双色球开奖结果数据集的经验?

我一直在尝试这种可能性,但遇到了不确定的解决方法。测试是在本地TSO中进行的。

这是我正在使用的代码:

码:

/ * REXX * /                                                       
分配 ="ALLOC DD(SYSUT2) DSN('THE.今天双色球开奖结果(+1)')",             
  "新的目录重用发布",                                   
  "RECFM(F,B) UNIT(SYSDA) DSORG(PS) RTDDN(THEDDN) RTDSN(THEDSN)" 
致电BPXWDYN(allocstr)                           
我= 1到10                                         
  Queue "Record"Right(i,3)" of 10"                     
结束                                                     
"EXECIO "Queued()" DISKW SYSUT1 (FINIS"                 
"CALL *(ICEGENER)"                                     
x = LISTDSI(SYSUT2 FILE)                               
Say 泰迪 塞德斯                                       
说SYSDSNAME                                           
对S99MSG.0做n = 1                                   
  Say S99MSG.n                                         
结束                                                     
分配 ="FREE DD(SYSUT2)"                           
致电BPXWDYN(allocstr)                 
出口0                         


该代码正在运行,因为我正在对新一代产品进行分类。问题是我必须将值从+1更改为+2,再更改为+3,以此类推,以使代码继续正常工作。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2007年9月14日星期五,上午12:48
引用回复

凯文,你好

如果您在两次迭代之间退出tso会怎样?

这不是解决方案,但可能有趣的是查看条件是否仍然存在。
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

发布发表:2007年9月14日,星期五,上午1:12
引用回复

您怀疑我做了同样的事情。运行之间注销可以使其正常运行。批处理也是如此。一个工作,两个叫同一个执行程序,是行不通的。两份工作,一个工作,没有问题。
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

发布发表:2007年9月14日,星期五,上午1:19
引用回复

不要忘记,在该作业中+1直到它创建所在的作业结束时才变为0,在本例中为TSO会话。因此,是的,注销然后再登录将是将+1滑入0的工作的结束。

这是我较早准备的 icon_confused.gif

从来没有尝试过超过一个新一代。
码:

今天双色球开奖结果 ="gdg base name"
DSN =条带(今天双色球开奖结果!!".G0000V00")               / *如果不存在则默认  */
X =出界(LST.)                             /* LISTCAT 今天双色球开奖结果 BASE      */
" LISTC ENT('"今天双色球开奖结果"')"
X =出界(OFF)
DO A = LST。0至1 BY -1                     / *第一查找= 0 今天双色球开奖结果    */
  IF POS('NONVSAM',LST.A) > 0 THEN DO
    DSN = SUBSTR(LST.A,POS('NONVSAM',LST.A)+13,44)
    A = 0
  结束
结束
VX =长度(STRIP(DSN)) - 6
NG =条带(OVERLAY(RIGHT(1+SUBSTR(DSN,VX,4),4,'0'),DSN,VX,4))
"ALLOC FI(MST) NEW TRACKS SPACE(5 3) 录音机(F B) LRECL(80)
     DA('"NG"')"
"FREE FI(MST)"
DROP LST。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2007年9月14日,星期五,凌晨1:28
引用回复

凯文,你好

无需调用BPXWDYN,尝试进行免费内联可能是值得的。
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

发布发表:2007年9月14日,星期五,凌晨1:34
引用回复

迪克

我对此表示反对,因为这一代人在整个工作/ TSO会议期间将保持相对+1。

我想这只是今天双色球开奖结果的一些小怪癖之一。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2007年9月14日,星期五,凌晨1:37
引用回复

是的,同意,我的大脑处于横摆状态。 。 。 icon_confused.gif

为什么在线工作与批处理不同。 。 。 icon_redface.gif
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

发布发表:2007年9月14日,星期五,上午1:57
引用回复

没关系Dick,帽子似乎总是在正确的位置 icon_biggrin.gif
回到顶部
查看用户资料 发送私信
ganeshanm2000

新的用户


已加入:2009年7月17日
帖子:1
地点:布莱顿

发布发表:2009年11月18日,星期三,下午3:51
引用回复

以下代码将有助于将相对gdg转换为绝对今天双色球开奖结果。

码:
**************************************数据顶部************** *******************
/ * REXX * /                                                             
/ *该执行人将接受今天双色球开奖结果GEN并确定实际的dsn       */
/ *与世代相关。 今天双色球开奖结果DSN变量是VPUT  */
/ *共享池,以使其可用于调用例程。     */
/ * 今天双色球开奖结果ERR是VPUT到共享池以指示以下错误。          */
/*                                                                  */
/ *示例代码以调用此例程                                 */
/ * --------------------------------                                 */
/* "SELECT CMD(%今天双色球开奖结果DSN BCOW.今天双色球开奖结果(-1))"                               */
/ * gdgdsn_rc = rc                                                   */
/* "VGET (今天双色球开奖结果DSN 今天双色球开奖结果ERR) SHARED"                                    */
/ *如果gdgdsn_rc = 0然后                                            */
/*    说"今天双色球开奖结果 DSN =" gdgdsn                                        */
/ *其他                                                             */
/*    说"今天双色球开奖结果DSN error -" gdgerr                                   */
/*                                                                  */
/*         由Brian Olsen开发-开发人员服务           */
/ ***************************************************** ******************* /
PARSE UPPER ARG 今天双色球开奖结果GEN 调试                                           
如果调试="DEBUG" THEN                                                 
   TRACE I                                                             
其他                                                                   
   ADDRESS ISPEXEC "控制错误返回"                             
                                                                       
致电A0000_INIT                                                         
拨打电话B0000_GET_今天双色球开奖结果_DSN_LIST                                             
                                                                       
选择                                                                 
  WHEN listc_rc > 0           然后exit_code = 20 / *错误的今天双色球开奖结果 * /       
  WHEN gdg_count = 0 & POS("+1",gdggen) > 0 THEN                       
       DO                                                               
         gdgdsn = gdg_base ||".G0001V00"                               
       END                                                             
  WHEN gdg_count = 0           然后exit_code = 4 / *无代* / 
  WHEN POS("+1",gdggen) > 0   然后拨打C0000_DETERMINE_今天双色球开奖结果_DSN       
  WHEN gdg_gen_num >gdg_count-1 THEN exit_code = 8  /* not found */ 
  OTHERWISE                                                             
     致电C0000_DETERMINE_今天双色球开奖结果_DSN                                       
结束                                                                     
                                                                         
  信号端点                                                           
                                                                         
/ * ------------------------------------------------ -------------------- * /
/ *初始化并验证输入参数                                  */
/ * ------------------------------------------------ -------------------- * /
A0000_INIT:                                                             
                                                                         
  exit_code = 0                                                         
  gdgdsn = ""                                                           
  gdg_count = 0                                                         
                                                                         
  gdggen = 跳闸(gdggen,"B","'")    /* remove quotes */                 
                                                                         
 PARSE VAR 今天双色球开奖结果GEN 今天双色球开奖结果_BASE"(" 今天双色球开奖结果_GEN_NUM ")" rest                     
                                                                         
  IF gdg_base = "" | gdg_gen_num = "" THEN                               
     DO                                                                 
       SAY "今天双色球开奖结果DSN工具要求传递今天双色球开奖结果GEN。  For example:",
           "YOUR.今天双色球开奖结果(-1)"                                               
       exit_code = 8                                           
       SIGNAL 结束它                                             
     END                                                       
                                                               
  IF LEFT(gdg_gen_num,1) = "+" | LEFT(gdg_gen_num,1) = "-" THEN
     DO                                                         
       gdg_sign = SUBSTR(gdg_gen_num,1,1)                       
       gdg_gen_num = SUBSTR(gdg_gen_num,2)                     
     END                                                       
  其他                                                         
     gdg_sign = ""                                             
                                                               
  IF gdg_sign ="+" & gdg_gen_num /= "1" THEN                   
     DO                                                         
       SAY "今天双色球开奖结果DSN工具要求生成为+ 1、0,-n"   
       exit_code = 12                                           
       SIGNAL 结束它                                             
     END                                                       
                                                               
  IF gdg_sign ="" & gdg_gen_num /= "0" THEN                   
     DO                                                                 
       SAY "今天双色球开奖结果DSN工具要求生成为+ 1、0,-n"             
       exit_code = 12                                                   
       SIGNAL 结束它                                                     
     END                                                                 
                                                                         
  IF DATATYPE(gdg_gen_num) /= "NUM" THEN                                 
     DO                                                                 
       SAY "今天双色球开奖结果DSN工具要求生成为+ 1、0,-n"             
       exit_code = 12                                                   
       SIGNAL 结束它                                                     
     END                                                                 
                                                                         
返回                                                                   
                                                                         
/ * ------------------------------------------------ -------------------- * /
/ *在gdg_base上调用LISTC命令以获得dsname列表* /
/ * ------------------------------------------------ -------------------- * /
B0000_GET_今天双色球开奖结果_DSN_LIST:                                                 
                                                                           x = OUTTRAP("LISTC.","*")                                             
  ADDRESS TSO "LISTC ENTRIES('"gdg_base"') 今天双色球开奖结果 ALL"                     
  listc_rc = rc                                                         
  x =外出("OFF")                                                   
                                                                       
 如果listc_rc = 0,则                                                 
     DO ctr = 1至listc.0                                             
        IF POS("NONVSAM--",listc.ctr) > 0 THEN                         
           DO                                                           
             gdg_line = TRANSLATE(listc.ctr," ","-")                   
             gdg_count = gdg_count + 1                                 
             PARSE var gdg_line文字gdg_dsn.gdg_count               
           END                                                         
     END                                                               
                                                                       
返回                                                                 
                                                                       
/ * ------------------------------------------------ -------------------- * /
/ *根据在今天双色球开奖结果GEN parm中传递的生成来确定dsname     */
/ * ------------------------------------------------ -------------------- * /
C0000_DETERMINE_今天双色球开奖结果_DSN:                                                     
                                                                             
  选择                                                                     
   当gdg_gen_num = 0时                                               
      DO                                                                     
       gdgdsn = gdg_dsn.gdg_count   / * 0代在列表中排在最后* /       
      结束                                                                   
    WHEN gdg_sign ="+" &gdg_gen_num = 1然后                               
      DO                                                                     
       gdgdsn = gdg_dsn.gdg_count   / * 0代在列表中排在最后* /       
       nxtgen = ABS(SUBSTR(gdgdsn,LASTPOS(".",gdgdsn)+2,4))+1               
       nxtgen = 对(nxtgen,4,"0")                                         
       gdgdsn = 覆盖(nxtgen,gdgdsn,LENGTH(gdgdsn)-6,4)                   
      结束                                                                   
    OTHERWISE                                                               
      DO                                                                     
       gdg_pos = gdg_count-gdg_gen_num / *计算相对代数* /     
       gdgdsn = gdg_dsn.gdg_pos                                             
      结束                                                                   
  结束                                                                       
                                                                               
  gdgdsn = SPACE(gdgdsn,0)  /* remove spaces */                                 
                                                                               
返回                                                                         
                                                                               
/ * ------------------------------------------------ -------------------- * /       
/ *退出此例程                                                  */       
/ * ------------------------------------------------ -------------------- * /       
结束它:                                                                         
  选择                                                                       
    WHEN exit_code = 0  THEN gdgerr = ""                                       
    WHEN exit_code = 4  THEN gdgerr = "没有世代存在" gdggen         
    WHEN exit_code = 8  THEN gdgerr = "找不到代" gdggen         
   当exit_code = 12然后gdgerr ="错误的Parms传递给今天双色球开奖结果DSN "             
   当exit_code = 20 THEN gdgerr ="找不到今天双色球开奖结果基础" gdggen           
    OTHERWISE                gdgerr = "今天双色球开奖结果DSN中的未知错误"               
  结束                                                                           
地址ISPEXEC"VPUT (今天双色球开奖结果DSN 今天双色球开奖结果ERR) SHARED"                                   
出口(exit_code)                                                                 
**********************************数据底部*************** *****************
回到顶部
查看用户资料 发送私信
罗伯特·桑普

全球主持人


已加入:2008年6月6日
帖子:8569
地点:美国爱荷华州迪比克

发布发表:2009年11月18日,星期三,下午6:10
引用回复

甘尼山(Ganeshan),您有什么特殊的原因会使您觉得有必要添加超过两年没有活动的主题?特别是因为原始帖子与将相对的代转换为绝对代无关?
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2009年11月18日,星期三10:32 pm
引用回复

您好Ganeshan,欢迎来到论坛,

感谢您发布代码。经过测试,对不对?

如果可以的话,请使用您的代码(带有新标题)开始一个新主题,因为其他人可能会觉得这很有用。
回到顶部
查看用户资料 发送私信
姆巴布

活跃用户


已加入:2008年8月3日
帖子:401
地点:孟买

发布发表:2009年11月18日,星期三10:55 pm
引用回复

另外,您只需要将rtdsn()参数添加到bpxwdyn,即可自动获得名称。一行代码。实际上更少。
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:2009年11月18日,星期三,11:03 pm
引用回复

在发布代码之前,您是否获得了适当的授权

我懂了 ...
引用:
由Brian Olsen开发-开发人员服务
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2009年11月19日星期四上午12:01
引用回复

糟糕-我错过了 icon_redface.gif

是的,获得许可会很好。 。 。

d
回到顶部
查看用户资料 发送私信
尚巴拉塞

新的用户


已加入:2007年5月22日
帖子:19
地点:英国贝尔法斯特

发布发表:2011年8月11日,星期四10:48 pm
引用回复

外籍人士的解释今天对我帮助通过REXX分配今天双色球开奖结果很有帮助。

非常感谢,外籍人士。
回到顶部
查看用户资料 发送私信
唐·雷西

活跃成员


已加入:2010年7月6日
帖子:696
地点:加拿大安大略省惠特比

发布发表:2011年8月12日,星期五3:14上午
引用回复

我知道这是一个老话题,但是我搜索了今天双色球开奖结果NT关键字,但没有找到任何东西。因此,这是我的2美分:

解决此问题的一种简单方法是将“ DG”参数添加到ALLOC语句。这将导致BPXWYDN在确定与(+1)关联的世代之前扫描最新一代的数据集。

码:
 do 5                                                                 
  x = BPXWDYN("ALLOC DD(XXX) DA('xxxx.aaaaaa.test今天双色球开奖结果(+1)') " ,       
      "NEW SPACE(1,1)  录音机(F,B) LRECL(80) DSORG(PS) CATALOG REUSE" ,
      "今天双色球开奖结果NT")
 end                                                         
该片段将创建5代XXXX.AAAAAA.TEST今天双色球开奖结果
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

发布发表于:星期五八月12,2011 4:05上午
引用回复

现在 那是 一个有用的提示!
回到顶部
查看用户资料 发送私信
唐·雷西

活跃成员


已加入:2010年7月6日
帖子:696
地点:加拿大安大略省惠特比

发布发表:2011年8月12日,星期五,上午4:12
引用回复

3年前(在我加入此论坛之前)试图解决此问题时,我仍然感到头疼。显然今天双色球开奖结果NT是在z / OS 1.6中引入的。
回到顶部
查看用户资料 发送私信
超级

全球主持人


已加入:2004年4月26日
帖子:4650
地点:美国北卡罗来纳州罗利

发布发表:2011年8月12日,星期五,上午6:19
引用回复

几年前,我在IBM z / OS论坛上发布了一个有关BPXWDYN程序使用的问题,他们是否可以确定对相对今天双色球开奖结果处理的支持将完全得到支持。他们从来没有对我做出回应,但看起来会如此。似乎他们应该考虑修改TSO ALLOCATE命令以执行相同的功能。
回到顶部
查看用户资料 发送私信
切灵顿

新的用户


加入时间:2011年5月10日
帖子:1
所在地:澳大利亚

发布发表:2011年10月28日星期五上午8:29
引用回复

抱歉,重复了以前的帖子
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


已加入:2006年11月23日
帖子:19245
位置:矩阵内部

发布发表:2011年10月28日星期五上午9:47
引用回复

g'Day,欢迎来到论坛,

如果这是有史以来最糟糕的事情,那么您的时光将非常美好 icon_smile.gif
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
没有新帖 使用BP动态读取输入文件... COBOL程式设计 20
没有新帖 调用CEE3DMP后使用BPXWDYN ... COBOL程式设计 1
没有新帖 从Zeke调度程序生成报告 Compuware和其他工具 2
没有新帖 使用TRAILER3生成报告 DFSORT / ICETOOL 2
没有新帖 如何强制ISPF分配ISPF技术... TSO / ISPF 9
搜索我们的论坛:

回到顶部