QWCCVTDT - Convert Date and Time Format

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