Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1298619
  • 博文数量: 287
  • 博客积分: 11000
  • 博客等级: 上将
  • 技术积分: 3833
  • 用 户 组: 普通用户
  • 注册时间: 2007-08-16 08:43
文章分类
文章存档

2013年(15)

2012年(17)

2011年(17)

2010年(135)

2009年(85)

2008年(18)

分类: 系统运维

2010-06-05 08:52:01

Convert Date and Time Format **--Specifications H Option( *SrcStmt ) **-- Globalariables: D DTS s 8a D LongJul s 17a D YYMD s 17a **-- API error datatructure: D ApiError Ds D AeBytPro 10i 0 Inz( %Size( ApiError )) D AeBytAvl 10i 0 D AeExcpId 7a D 1a D AaExcpDta 256a **-- Convert date & time: D CvtDtf Pr ExtPgm( 'QWCCVTDT' ) D CdInpFmt 10a Const D CdInpVar 17a Const Options( *VarSize ) D CdOutFmt 10a Const Options( *VarSize ) D CdOutVar 17a Options( *VarSize ) D CdError 32767a Options( *VarSize ) ** C CallP CvtDtf( '*YYMD' C : '20010919180055000' C : '*DTS' C : DTS C : ApiError C ) ** C CallP CvtDtf( '*DTS' C : DTS C : '*LONGJUL' C : LongJul C : ApiError C ) ** C Return Thanks to Carsten Flensburg
阅读(784) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~