Re: QWCCVTDT API and *DTS format

["Peter Dow" <pcdow@xxxxxxxxx>]

Hi Carsten,

Could you give me an idea why the API is better than using MOVE to convert
dates? So far, any date conversion I've wanted to do has been possible with
MOVE. In a similar vein, should I use an API to edit a numeric field rather
than using %editc or %editw?

Curious,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

From: "Carsten Flensburg" <flensburg@novasol.dk>
> Here's a working example:
>
>      **--
> Specifications -----------------------------------------------------**
>      H Option( *SrcStmt )
>      **-- Global
> ariables:  -------------------------------------------------**
>      D DTS             s              8a
>      D LongJul         s             17a
>      D YYMD            s             17a
>      **-- API error data
> tructure:  -----------------------------------------**
>      D ApiError        Ds
>      D  AeBytPro                     10i 0 Inz( %Size( ApiError ))
>      D  AeBytAvl                     10i 0
>      D  AeExcpId                      7a
>      D                                1a
>      D  AaExcpDta                   256a
>      **-- Convert date &
> ime:  ----------------------------------------------**
>      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
>      **



_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com