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

独特的数据集创建


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

新的用户


已加入:2007年2月5日
帖子:61
地点:钦奈

发布发表:2010年10月12日,星期二,下午1:19
引用回复

你好

我正在编码REXX实用程序/宏,它创建了一个输出文件。

什么是确保每次运行该实用程序时都创建唯一数据集的最佳方法。

问候,
哈里克里那。
回到顶部
查看用户资料 发送私信
哈里卜姆

新的用户


已加入:2007年2月5日
帖子:61
地点:钦奈

发布发表:2010年10月12日,星期二,下午1:23
引用回复

请注意,该实用程序一天可以运行多次。
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2010年10月12日,星期二2:01 pm
引用回复

当您尝试将文件分配为新文件时(如果该文件已经存在),您的ALLOCAT命令将返回错误。
因此,代码可以重新输入您的名称生成算法。

但是话又说回来,我假设您的意思是“唯一数据集名称”。
如果没有,我为此线程的删除表示歉意。
回到顶部
查看用户资料 发送私信
kacks7

新的用户


已加入:2010年9月22日
帖子:33
地点:钦奈(印度)

发布发表:2010年10月12日,星期二2:05 pm
引用回复

嗨,哈里卜姆,
将日期和时间组合用于数据集的限定词。
回到顶部
查看用户资料 发送私信
哈里卜姆

新的用户


已加入:2007年2月5日
帖子:61
地点:钦奈

发布发表:2010年10月12日,星期二2:10 pm
引用回复

你好迪克·布伦霍尔茨,
对,就是这样。当我尝试第二次运行时,宏失败。
我正在创建如下的数据集:
userid.mon + days.xxx
即,如果userid = YAF8,Mon =十月,天= 285,则数据集将为YAF8.OCT285.XXX

我希望该实用程序在下次运行时创建一个不同的数据集,并且不应给出任何错误。因此,请让我知道如何创建唯一的数据集。

如果可以使用现有数据集就可以了。但是ALLOCAT命令尝试创建新的。请指导如何进行。

问候,
哈里
回到顶部
查看用户资料 发送私信
notonly4u

新的用户


已加入:2005年4月26日
帖子:87
地点:海得拉巴

发布发表:2010年10月12日,星期二2:14 pm
引用回复

无法使用GDG吗?
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2010年10月12日,星期二,下午2:30
引用回复

一秒钟,您说独特-Kacks7的建议适当
接下来,您说您可以重用现有的DS,这意味着您可以使用MOD的处置。

DS的实际用途是什么?而且不要说REXX的输出。

USERID as HLQ将DS隔离到每个用户。
如果需要多个DS,请注明日期&时间是命名文件的简便方法。
如果不需要为每个用户维护多个DS,请使其成为标准名称(固定名称),然后使用MOD。

或者您可以执行许多第三方工具的工作:

create a 温度orary dataset,
调用浏览或查看
如果需要保存文件,则将其留给用户进行复制。

notonly4U,
尽管可以使用GDG
每个用户都需要一个gdg基础
回到顶部
查看用户资料 发送私信
哈里卜姆

新的用户


已加入:2007年2月5日
帖子:61
地点:钦奈

发布发表:2010年10月12日,星期二2:32 pm
引用回复

不能。不能使用GDG。
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

发布发表:2010年10月12日,星期二,下午2点57分
引用回复

GDS不适当的任何特殊原因?
回到顶部
查看用户资料 发送私信
dbzTHEdinosauer

全球主持人


已加入:2006年10月20日
帖子:6967
位置:瓷宝座

发布发表:2010年10月12日,星期二,下午3:56
引用回复

我喜欢这个论坛的一件事是它确实反映了世界的缩影。

TS提出了87个问题,
他提供了什么作为回应?
哈里木姆写道:
不能。不能使用GDG。


TS只需要授权的建议 他的解决方案 上班。
照常,
不要把我与事实混淆,
告诉我我想听的
回到顶部
查看用户资料 发送私信
超级

全球主持人


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

发布发表:2010年10月12日,星期二,下午4:52
引用回复

好吧,如果我必须这样做,并且想确保唯一的数据集名称,我会考虑在节点内使用以下某些或全部:

-当前日期(MMDDYY或YYYYDDD或基准日期)。
-当前时间(HHMMSS或自午夜以来的秒数)。
-系统ID(如果它可以在不同的LPAR上运行)。
-如果该进程以批处理作业的形式运行,则可能还会包含作业名称,作业ID,帐户。
回到顶部
查看用户资料 发送私信
迪克·谢勒

主持人荣誉


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

发布发表:2010年10月13日,星期三2:05上午
引用回复

您好,

如果在生成唯一的数据集名称时真的变得很有创意,那么以后很难引用该数据集。 。 。
回到顶部
查看用户资料 发送私信
库尔特·迪宁格

新的用户


已加入:2010年7月13日
帖子:19
地点:德国法兰克福

发布发表:2010年10月13日,星期三3:00 pm
引用回复

嗨,哈里卜姆,

一个简单的解决方案是创建一个具有每次更新的计数器的文件(创建后将其设置为零):

码:

/ * REXX * /                                                             
   trace r                                                             
   address tso "alloc fi(temp) da(version) shr reuse"                   
   address tso "execio 1 diskr 温度 (开放茎版本。菲尼斯)"           
   address tso "free fi(temp)"                                         
   vers.1=vers.1+1                                                     
   version=vers.1                                                       
   address tso "alloc fi(temp) da(version) shr reuse"                   
   address tso "execio 1 diskw 温度 (开放茎版本。菲尼斯)"           
   address tso "free fi(temp)"                                         
   uniqnam="whatever"right(version,4,0)                                 
出口                                                                   


哪个:

码:

  3 *-* 地址左"alloc fi(temp) da(version) shr reuse"       
    >>>   "alloc fi(temp) da(version) shr reuse"                 
  4 *-* 地址左"execio 1 diskr 温度 (开放茎版本。菲尼斯)"
    >>>   "execio 1 diskr 温度 (开放茎版本。菲尼斯)"           
  5 *-* 地址左"free fi(temp)"                               
    >>>   "free fi(temp)"                                         
 6 *-* vers.1 = vers.1 + 1                                           
    >>>   "1"                                                     
  7 *-* 版=vers.1                                           
    >>>   "1"                                                     
  8 *-* 地址左"alloc fi(temp) da(version) shr reuse"       
    >>>   "alloc fi(temp) da(version) shr reuse"                 
  9 *-* 地址左"execio 1 diskw 温度 (开放茎版本。菲尼斯)"
    >>>   "execio 1 diskw 温度 (开放茎版本。菲尼斯)"           
 10 *-* 地址左"free fi(temp)"                               
    >>>   "free fi(temp)"                                         
 11 *-* uniqnam ="whatever"right(version,4,0)                     
    >>>   "whatever0001"                                         
 12 *-* 出口                                                     


等等
回到顶部
查看用户资料 发送私信
外籍人士

全球主持人


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

发布发表:2010年10月13日,星期三,下午4:12
引用回复

我再次问...............................
外籍人士写道:
GDS不适当的任何特殊原因?
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> 清单& REXX

 


类似主题
话题 论坛 回覆
没有新帖 捕获GDG数据集名称 JCL和VSAM 10
没有新帖 我们可以在主U中插入重复项吗? DB2 2
没有新帖 SEP中的独立唯一性和非唯一性... 同步排序 6
没有新帖 从内部获取数据集名称... TSO / ISPF 18
没有新帖 什么是DSORG(Datset组织)... JCL和VSAM 8
搜索我们的论坛:


回到顶部