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

在JCL中使用日期和今天双色球开奖结果引用文件名


IBM大型机论坛 -> JCL& VSAM
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
skbk

新的用户


加入:2020年6月5日
帖子:2
地点:印度

发布发表:星期六六月06,2020 4:57下午
引用回复

我已经生成了一个包含日期和今天双色球开奖结果的文件。我们将收到多个文件
一天。每个文件都会以名称中的日期和今天双色球开奖结果创建,我想合并所有文件并将其复制到GDG中。如何在JCL中引用此文件
回到顶部
查看用户资料 发送私信
恩里科·索里切蒂

高级主持人


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

发布发表:星期六六月06,2020 5:20下午
引用回复

用相同的方式引用其他任何数据集 icon_cool.gif
回到顶部
查看用户资料 发送私信
尼克·克劳斯顿

全球主持人


加入今天双色球开奖结果:2007年5月10日
帖子:2455
地点:英国汉普郡

发布发表:星期六六月06,2020 6:06下午
引用回复

它们是数据集而不是文件(除非您使用的是USS)。

用您选择的语言编写程序,然后执行以下操作:

高级别指数的LISTC
提取今天创建的那些
generate the JCLto concatenate those datasets
提交JCL
Save the JCL(in the event of failure)
回到顶部
查看用户资料 发送私信
乔格·芬代森

活跃用户


已加入:2015年8月15日
帖子:389
地点:德国班贝格

发布发表:星期六六月06,2020 9:29下午
引用回复

一个人可以完成两项工作。必须确保所有带有今天双色球开奖结果戳的DSN都具有相同的DCB。

分配一个库DSORG = PO,LRECL = 80,RECFM = FB,BLKSIZE = 0&开始之前,请先使用SYSUID..MY.PROC。

第一份工作:
码:
//    SET PROC=&SYSUID..MY.PROC                                       
// LISTCAT  EXEC PGM=IDCAMS                                             
// SYSPRINT DD DISP =(NEW,PASS,DELETE),UNIT=SYSALLDA,                   
//            SPACE=(CYL,(2,1),RLSE),                 
//           DSORG = PS,RECFM = VBA,LRECL = 125,BLKSIZE = 0                   
// SYSIN    DD *                                                       
  LISTC LVL(<list_what's_to_be_copied>) NAMES CREATION(0)
/ *                                                                      
// GENERATE EXEC PGM = ICEMAN,PARM ='MSG = NO'                               
// SORTIN   DD DISP=(OLD,PASS),DSN = *。LISTCAT.SYSPRINT                   
// SYSOUT   DD SYSOUT=*                                                 
// SYSUT1   DD DSN=&PROC.(SYSUT1),                                     
//            DISP=(OLD),UNIT = SYSALLDA,DSNTYPE = LIBRARY,               
//            SPACE=(CYL,(2,1,1),RLSE),             
//           DSORG = PS,RECFM = FB,LRECL = 80,BLKSIZE = 0                     
// SYSIN    DD *                                                       
  OPTION COPY,VLSCMP                                                   
  INCLUDE COND=(6,16,CH,EQ,C'NONVSAM -------')                       
 INREC IFOUTLEN = 84,IFTHEN =(WHEN=INIT,BUILD=(1,4,22,44,SEQNUM,3,ZD)), 
    IFTHEN=(WHEN=(49,3,ZD,EQ,+1),                                     
      BUILD=(1,4,C'// SYSUT1',3X,C'DD DISP = SHR,DSN =',5,44)),           
    IFTHEN=(WHEN=NONE,BUILD=(1,4,C'//',9X,C'DD DISP = SHR,DSN =',5,44))   
  OUTFIL FNAMES(SYSUT1),                                               
    VTOF,REMOVECC,                                                     
    BUILD=(5,80)                                                       
  END                                                                 
/ *

第二个作业引用了最近构建的DD:SYSUT1
码:
//    SET PROC=&SYSUID..MY.PROC
//    JCLLIB ORDER=(&PROC.)     
// IEBGENER EXEC PGM = IEBGENER
// SYSPRINT DD SYSOUT = *
// SYSUT1   包含成员= SYSUT1
// SYSUT2   DD <you name it>..
// SYSIN    DD DUMMY
回到顶部
查看用户资料 发送私信
威利·詹森(Willy Jensen)

活跃用户


已加入:2015年9月1日
帖子:416
地点:丹麦

发布发表于:2020年6月7日,星期日1:48
引用回复

使用ISPF框架服务,样本
码:
)CM Demo在ISPF框架中使用TSO / REXX功能   
)CM Make DD串联                                 
                                                         
)CM制作数据集列表                                 
)REXX 堆栈                                             
 zz=outtrap('lst.')                                       
 "listcat lvl("userid()".test) nonvsam"                   
 zz=outtrap('off')                                       
 "delstack"                                               
 do n=1 to lst.0                                         
   if word(lst.n,1)<>然后“ NONVSAM”进行迭代               
   dsn=word(lst.n,3)                                     
   zz=Listdsi("'"dsn"'")                                 
   如果sysdsorg ='PO',则排队单词(lst.n,3)             
 end                                                     
 STACKN=queued()                                         
)ENDREXX                                                 
                                                         
)CM Make DD statement                                     
)SET DD = INPUT                                           
)DO N = 1 TO &STACKN                                     
)REXX DSN DD STMT                                         
 pull dsn                                                 
 stmt= '//'left(dd,8)'DD DISP = SHR,DSN ='dsn               
 dd=''                                                   
)ENDREXX                                                 
&STMT                                                     
)ENDDO                                                   
回到顶部
查看用户资料 发送私信
乔格·芬代森

活跃用户


已加入:2015年8月15日
帖子:389
地点:德国班贝格

发布发表于:2020年6月7日,星期日8:14
引用回复

@威利: As a JCLsolution was wanted, yours is good but doesn't qualify.
回到顶部
查看用户资料 发送私信
罗希特·乌马尔吉卡(Rohit Umarjikar)

全球主持人


已加入:2010年9月21日
帖子:2581
地点:美国纽约

发布发表于:2020年6月7日,星期日10:01
引用回复

skbk写道:
我已经生成了一个包含日期和今天双色球开奖结果的文件。我们将收到多个文件
一天。每个文件都会以名称中的日期和今天双色球开奖结果创建,我想合并所有文件并将其复制到GDG中。如何在JCL中引用此文件

为什么不与OPC /调度小组交谈?您如何获取数据集?NDM或SFTP?只需在获得数据集时执行+1 GDG,然后将(0)和(+1)串联即可获得(+2),它将完成任务,并且始终会产生数据翻转和最新数据而不是等待最后,使合并过程复杂化。
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


已加入:2008年4月29日
帖子:939
所在地:马里兰

发布发表于:2020年6月7日,星期日9:10 pm
引用回复

乔格·芬代森写道:
@威利: As a JCLsolution was wanted, yours is good but doesn't qualify.

JCLhas no ability to manipulate with date/time values, especially as part of DSNAME. Period.

作者必须找到(或要求)另一种方法,而不是重复他最初的“要求”作为口头禅。
回到顶部
查看用户资料 发送私信
菲尔比(Phrzby Phil)

高级会员


已加入:2006年10月31日
帖子:1015
地点:弗吉尼亚州里士满

发布发表于:2020年6月10日,星期三5:50 am
引用回复

这是您想要的吗?

1.将每天的数据集作为每日GDG的连续新一代
2.在一天结束时,将所有日常生成的串联复制到您的永久GDG的下一代
3.删除各代的每日GDG

无论是此答复还是上一个答复对您都有用,请告诉我们。作为新成员,您会发现人们非常感谢反馈。
回到顶部
查看用户资料 发送私信
skbk

新的用户


加入:2020年6月5日
帖子:2
地点:印度

发布发表:2020年6月19日,星期五7:19 pm
引用回复

感谢大家的投入和解决方案。
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有今天双色球开奖结果均为格林尼治标准今天双色球开奖结果+ 6小时
论坛索引 -> JCL& VSAM

 


类似主题
话题 论坛 回覆
没有新帖 使用SORT进行日期转换 同步排序 4
没有新帖 同时修改多个JCL JCL& VSAM 6
没有新帖 日期转换Y2T到Y2W 同步排序 8
没有新帖 日期格式转换 DFSORT / ICETOOL 4
没有新帖 十六进制值-VB文件替换旧日期... DFSORT / ICETOOL 14
搜索我们的论坛:


回到顶部