|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
库什库什
新的用户
已加入：2005年6月30日
帖子：36
地点：德国
|
|
|
|
我找不到从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
所在地：马里兰
|
|
|
|
| 码： |
// 执行 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
地点：德国班贝格
|
|
|
|
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
所在地：马里兰
|
|
|
|
| 乔格·芬代森写道： |
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
所在地：马里兰
|
|
|
|
在实际情况下，最好使用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/)))
|
|
|
| 回到顶部 |
|
|
|
|
