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
阅读(780) | 评论(0) | 转发(0) |
