|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
skbk
新的用户
加入：2020年6月5日
帖子：2
地点：印度
|
|
|
|
我已经生成了一个包含日期和今天双色球开奖结果的文件。我们将收到多个文件
一天。每个文件都会以名称中的日期和今天双色球开奖结果创建，我想合并所有文件并将其复制到GDG中。如何在JCL中引用此文件 |
|
| 回到顶部 |
|
 |
恩里科·索里切蒂
高级主持人
已加入：2007年3月14日
帖子：10715
所在地：意大利
|
|
|
|
用相同的方式引用其他任何数据集  |
|
| 回到顶部 |
|
|
尼克·克劳斯顿
全球主持人
加入今天双色球开奖结果：2007年5月10日
帖子：2455
地点：英国汉普郡
|
|
|
|
它们是数据集而不是文件（除非您使用的是USS）。
用您选择的语言编写程序，然后执行以下操作：
高级别指数的LISTC
提取今天创建的那些
generate the JCLto concatenate those datasets
提交JCL
Save the JCL(in the event of failure) |
|
| 回到顶部 |
|
|
乔格·芬代森
活跃用户
已加入：2015年8月15日
帖子：389
地点：德国班贝格
|
|
|
|
一个人可以完成两项工作。必须确保所有带有今天双色球开奖结果戳的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
地点：丹麦
|
|
|
|
使用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
地点：德国班贝格
|
|
|
|
| @威利: As a JCLsolution was wanted, yours is good but doesn't qualify. |
|
| 回到顶部 |
|
|
罗希特·乌马尔吉卡（Rohit Umarjikar）
全球主持人
已加入：2010年9月21日
帖子：2581
地点：美国纽约
|
|
|
|
| skbk写道： |
我已经生成了一个包含日期和今天双色球开奖结果的文件。我们将收到多个文件
一天。每个文件都会以名称中的日期和今天双色球开奖结果创建，我想合并所有文件并将其复制到GDG中。如何在JCL中引用此文件 |
为什么不与OPC /调度小组交谈？您如何获取数据集？NDM或SFTP？只需在获得数据集时执行+1 GDG，然后将（0）和（+1）串联即可获得（+2），它将完成任务，并且始终会产生数据翻转和最新数据而不是等待最后，使合并过程复杂化。 |
|
| 回到顶部 |
|
|
谢尔盖肯
活跃的成员
已加入：2008年4月29日
帖子：939
所在地：马里兰
|
|
|
|
| 乔格·芬代森写道： |
| @威利: 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
地点：弗吉尼亚州里士满
|
|
|
|
这是您想要的吗？
1.将每天的数据集作为每日GDG的连续新一代
2.在一天结束时，将所有日常生成的串联复制到您的永久GDG的下一代
3.删除各代的每日GDG
无论是此答复还是上一个答复对您都有用，请告诉我们。作为新成员，您会发现人们非常感谢反馈。 |
|
| 回到顶部 |
|
|
skbk
新的用户
加入：2020年6月5日
帖子：2
地点：印度
|
|
|
|
| 感谢大家的投入和解决方案。 |
|
| 回到顶部 |
|
|
|
|
