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

日期格式转换


IBM大型机论坛 -> DFSORT / ICETOOL
发表新话题   回复主题
查看上一个主题 :: 查看下一个主题  
作者 信息
库什库什

新的用户


已加入:2005年6月30日
帖子:36
地点:德国

发布发表:2020年10月28日星期三晚上8:34
引用回复

我找不到从ccyy / mm / dd到dd / mm / ccyy的确切格式缩写。以下转换有效。这里的专家有什么帮助吗?
码:

// S1       EXEC  PGM=SORT             
// SYSOUT   DD  SYSOUT=*               
// SORTIN   DD  *                       
2020/10/21                             
2020/01/31                             
//整理  DD  SYSOUT=*               
// SYSIN    DD  *                       
  OPTION COPY                         
  OUTREC BUILD =(9,2,C'/',6,2,C'/',1,4)

结果:
2020年10月21日
2020年1月31日
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


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

发布发表于:2020年10月28日,星期三10:18 pm
引用回复

码:
// 执行 PGM = SORT,PARM ='CENTWIN = 99'
。 。 。 。 。 。 。
// SYSIN    DD *
 INREC BUILD=(1,10,UFF,TO = ZD,LENGTH = 8)
 SORT FIELDS=COPY
 OUTREC BUILD=(3,6,Y2T,DT=(DM4/))
 END
// *
回到顶部
查看用户资料 发送私信
乔格·芬代森

活跃用户


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

发布发表:2020年10月28日星期三晚上11:25
引用回复

Y4T会更合适吗?

码:
// SYSIN    DD *                           
  OPTION COPY                             
  INREC BUILD =(1,10,UFF,TO = ZD,LENGTH = 8)   
  OUTREC BUILD =(1,8,Y4T,DT=(DM4/))       
/ *
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


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

发布发表于:2020年10月29日,星期四4:16 am
引用回复

乔格·芬代森写道:
Y4T会更合适吗?

码:
// SYSIN    DD *                           
  OPTION COPY                             
  INREC BUILD =(1,10,UFF,TO = ZD,LENGTH = 8)   
  OUTREC BUILD =(1,8,Y4T,DT=(DM4/))       
/ *

是的,那也很好。

Y4T的推出要比Y2T晚得多,并且很少使用。
这就是为什么它在第一刻没想到的原因。
在所有需要的日期转换中,大约90-95%实际上需要从2位数字年份转换为4位数字。

我同意,在这种特殊情况下,Y4T更有意义。
回到顶部
查看用户资料 发送私信
谢尔盖肯

活跃的成员


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

发布发表于:2020年10月29日,星期四6:26 pm
引用回复

在实际情况下,最好使用INREC,OUTREC,OUTFIL语句之一就地覆盖输入日期值,并且一口气:
码:
 INREC IFTHEN =(WHEN=INIT,OVERLAY=(1:1,10,UFF,TO = ZD,LENGTH = 10)),
       IFTHEN=(WHEN=INIT,OVERLAY=(1:3,8,Y4T,DT=(DM4/)))
回到顶部
查看用户资料 发送私信
查看上一个主题 :: :: 查看下一个主题  
发表新话题   回复主题 查看书签
所有时间均为格林尼治标准时间+ 6小时
论坛索引 -> DFSORT / ICETOOL

 


类似主题
话题 论坛 回覆
没有新帖 使用SORT进行日期转换 同步排序 4
没有新帖 将文件从PD转换为显示... 同步排序 4
该主题已锁定:您无法编辑帖子或回复。 写字符到十六进制文件中... COBOL程式设计 8
没有新帖 日期转换Y2T到Y2W 同步排序 8
没有新帖 十六进制值-VB文件替换旧日期... DFSORT / ICETOOL 14
搜索我们的论坛:


回到顶部