RE: Getting Dates

[<kdfox@xxxxxxxxxxxxx>]

Penny

Is this MAPICS copyrighted source code?

Kevin Fox
kdfox@xxxxxxxxxxxxx

-----Original Message-----
From: pennylancor@xxxxxxxxxxx [mailto:pennylancor@xxxxxxxxxxx] 
Sent: Tuesday, October 05, 2004 11:22 AM
To: MAPICS ERP System Discussion
Subject: RE: Getting Dates

The documentation in the MAPICS source for AXZDT lists all the functions
this program can do.  For simple date retrievals and conversions:



     D @dterr          s              1
Error Flag  
     D @dtfil          s              7  0
File Date   
     D @dtfmt          s              1  0
Date Format 
     D @dtusr          s              6  0
User Date   
     D @rqest          s              5
Request     
     D @ttdat          s              6  0
system date 
     D @ttime          s              6  0
system time      
     D #mdy            s                   like(@dtusr)
User Date 
     D #ymd            s                   like(@dtfil)
File Date 
      * Get date format, date and time from MAPICS

     C                   call      'AXZPDR'

     C                   parm      *zeros        @dtfmt
date format 
     C                   parm      *zeros        @ttdat
system date 
     C                   parm      *zeros        @ttime
system time 
      * Format a date from File format to User format

     C                   call      'AXZDT'

     C                   parm      '*USER'       @rqest
Request     
     C                   parm                    @dtfmt
Date Format 
     C     #mdy          parm      *zeros        @dtusr
User Date   
     C                   parm      #ymd          @dtfil
File Date   
     C                   parm      *blanks       @dterr
Error Flag  
      *   Format a date from user to File Format

     C                   call      'AXZDT'

     C                   parm      '*FILE'       @rqest
Request      
     C                   parm                    @dtfmt
Date Format  
     C                   parm      #mdy          @dtusr
User Date    
     C     #ymd          parm      *zeros        @dtfil
File Date    
     C                   parm      *blanks       @dterr
Error Flag   

--
Regards, 
Penny Lancor 
Technical Services 
TechKnowledge Partners, LLC 
224.715.3967

-------------- Original message -------------- 

> Perfect! Now where can I find documentation on the interface to use 
> them? 
> 
> -Jimmy 
> 
> -----Original Message----- 
> From: mapics-l-bounces@xxxxxxxxxxxx 
> [mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of 
> pennylancor@xxxxxxxxxxx 
> Sent: Monday, October 04, 2004 6:31 PM 
> To: MAPICS ERP System Discussion 
> Subject: Re: Getting Dates 
> 
> 
> MAPICS has two programs used to retrieve and format dates. 
> 
> AXZPDR is used to retrieve the current MAPICS date and time. It also 
> retrieves the tailored date format code. 
> 
> AXZDT is used to format dates between *USER (ie. MMDDYY) and *FILE (ie. 
> CYYMMDD) formats. It has parms for input date, output date, the date 
> format code retrieved from AXZPDR and the type of formatting you would 
> like to do. (This program also has other functions such as calculating 
> a date given a date and number of days) 
> 
> If you do not use these programs, be careful with job date for 
> unattached jobs. Unattached jobs will have a job date of the date the 
> job started - it's not necessarily the current date. 
> 
> -- 
> Regards, 
> Penny Lancor 
> Technical Services 
> TechKnowledge Partners, LLC 
> 224.715.3967 
> 
> -------------- Original message -------------- 
> 
> > Does anyone know where the current date is stored (data area, etc) or 
> > how to go about calculating the CYYMMD format MAPICS uses in files? 
> > 
> > Thanks, 
> > -Jimmy 
> > _______________________________________________ 
> > This is the MAPICS ERP System Discussion (MAPICS-L) mailing list 
> > To post a message email: MAPICS-L@xxxxxxxxxxxx 
> > To subscribe, unsubscribe, or change list options, 
> > visit: http://lists.midrange.com/mailman/listinfo/mapics-l 
> > or email: MAPICS-L-request@xxxxxxxxxxxx 
> > Before posting, please take a moment to review the archives 
> > at http://archive.midrange.com/mapics-l. 
> > 
> _______________________________________________ 
> This is the MAPICS ERP System Discussion (MAPICS-L) mailing list To post 
> a message email: MAPICS-L@xxxxxxxxxxxx To subscribe, unsubscribe, or 
> change list options, 
> visit: http://lists.midrange.com/mailman/listinfo/mapics-l 
> or email: MAPICS-L-request@xxxxxxxxxxxx 
> Before posting, please take a moment to review the archives 
> at http://archive.midrange.com/mapics-l. 
> 
> 
> _______________________________________________ 
> This is the MAPICS ERP System Discussion (MAPICS-L) mailing list 
> To post a message email: MAPICS-L@xxxxxxxxxxxx 
> To subscribe, unsubscribe, or change list options, 
> visit: http://lists.midrange.com/mailman/listinfo/mapics-l 
> or email: MAPICS-L-request@xxxxxxxxxxxx 
> Before posting, please take a moment to review the archives 
> at http://archive.midrange.com/mapics-l. 
>