|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
超级
全球主持人
已加入：2004年4月26日
帖子：4650
地点：美国北卡罗来纳州罗利
|
|
|
|
有没有人有使用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
位置：矩阵内部
|
|
|
|
凯文，你好
如果您在两次迭代之间退出tso会怎样？
这不是解决方案，但可能有趣的是查看条件是否仍然存在。 |
|
| 回到顶部 |
|
|
超级
全球主持人
已加入：2004年4月26日
帖子：4650
地点：美国北卡罗来纳州罗利
|
|
|
|
| 您怀疑我做了同样的事情。运行之间注销可以使其正常运行。批处理也是如此。一个工作，两个叫同一个执行程序，是行不通的。两份工作，一个工作，没有问题。 |
|
| 回到顶部 |
|
|
外籍人士
全球主持人
已加入：2007年3月14日
帖子：8794
地点：威尔士威尔士
|
|
|
|
不要忘记，在该作业中+1直到它创建所在的作业结束时才变为0，在本例中为TSO会话。因此，是的，注销然后再登录将是将+1滑入0的工作的结束。
这是我较早准备的 
从来没有尝试过超过一个新一代。
| 码： |
今天双色球开奖结果 ="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
位置：矩阵内部
|
|
|
|
凯文，你好
无需调用BPXWDYN，尝试进行免费内联可能是值得的。 |
|
| 回到顶部 |
|
|
外籍人士
全球主持人
已加入：2007年3月14日
帖子：8794
地点：威尔士威尔士
|
|
|
|
迪克
我对此表示反对，因为这一代人在整个工作/ TSO会议期间将保持相对+1。
我想这只是今天双色球开奖结果的一些小怪癖之一。 |
|
| 回到顶部 |
|
|
迪克·谢勒
主持人荣誉
已加入：2006年11月23日
帖子：19245
位置：矩阵内部
|
|
|
|
是的，同意，我的大脑处于横摆状态。 。 。
为什么在线工作与批处理不同。 。 。  |
|
| 回到顶部 |
|
|
外籍人士
全球主持人
已加入：2007年3月14日
帖子：8794
地点：威尔士威尔士
|
|
|
|
没关系Dick，帽子似乎总是在正确的位置  |
|
| 回到顶部 |
|
|
ganeshanm2000
新的用户
已加入：2009年7月17日
帖子：1
地点：布莱顿
|
|
|
|
以下代码将有助于将相对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
地点：美国爱荷华州迪比克
|
|
|
|
| 甘尼山（Ganeshan），您有什么特殊的原因会使您觉得有必要添加超过两年没有活动的主题？特别是因为原始帖子与将相对的代转换为绝对代无关？ |
|
| 回到顶部 |
|
|
迪克·谢勒
主持人荣誉
已加入：2006年11月23日
帖子：19245
位置：矩阵内部
|
|
|
|
您好Ganeshan，欢迎来到论坛，
感谢您发布代码。经过测试，对不对？
如果可以的话，请使用您的代码（带有新标题）开始一个新主题，因为其他人可能会觉得这很有用。 |
|
| 回到顶部 |
|
|
姆巴布
活跃用户
已加入：2008年8月3日
帖子：401
地点：孟买
|
|
|
|
| 另外，您只需要将rtdsn（）参数添加到bpxwdyn，即可自动获得名称。一行代码。实际上更少。 |
|
| 回到顶部 |
|
|
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
在发布代码之前，您是否获得了适当的授权
我懂了 ...
| 引用： |
| 由Brian Olsen开发-开发人员服务 |
|
|
| 回到顶部 |
|
|
迪克·谢勒
主持人荣誉
已加入：2006年11月23日
帖子：19245
位置：矩阵内部
|
|
|
|
糟糕-我错过了
是的，获得许可会很好。 。 。
d |
|
| 回到顶部 |
|
|
尚巴拉塞
新的用户
已加入：2007年5月22日
帖子：19
地点：英国贝尔法斯特
|
|
|
|
外籍人士的解释今天对我帮助通过REXX分配今天双色球开奖结果很有帮助。
非常感谢，外籍人士。 |
|
| 回到顶部 |
|
|
唐·雷西
活跃成员
已加入：2010年7月6日
帖子：696
地点：加拿大安大略省惠特比
|
|
|
|
我知道这是一个老话题，但是我搜索了今天双色球开奖结果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
地点：美国北卡罗来纳州罗利
|
|
|
|
| 现在 那是 一个有用的提示！ |
|
| 回到顶部 |
|
|
唐·雷西
活跃成员
已加入：2010年7月6日
帖子：696
地点：加拿大安大略省惠特比
|
|
|
|
| 3年前（在我加入此论坛之前）试图解决此问题时，我仍然感到头疼。显然今天双色球开奖结果NT是在z / OS 1.6中引入的。 |
|
| 回到顶部 |
|
|
超级
全球主持人
已加入：2004年4月26日
帖子：4650
地点：美国北卡罗来纳州罗利
|
|
|
|
| 几年前，我在IBM z / OS论坛上发布了一个有关BPXWDYN程序使用的问题，他们是否可以确定对相对今天双色球开奖结果处理的支持将完全得到支持。他们从来没有对我做出回应，但看起来会如此。似乎他们应该考虑修改TSO ALLOCATE命令以执行相同的功能。 |
|
| 回到顶部 |
|
|
切灵顿
新的用户
加入时间：2011年5月10日
帖子：1
所在地：澳大利亚
|
|
|
|
| 抱歉，重复了以前的帖子 |
|
| 回到顶部 |
|
|
迪克·谢勒
主持人荣誉
已加入：2006年11月23日
帖子：19245
位置：矩阵内部
|
|
|
|
g'Day，欢迎来到论坛，
如果这是有史以来最糟糕的事情，那么您的时光将非常美好  |
|
| 回到顶部 |
|
|
|
|
