× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MAPICS-L
  3. October 2004

RE: Getting Dates

Example used from CL:

/*  Date retrieval variables                                            */    
            DCL        VAR(&DTERR) TYPE(*CHAR) LEN(1)    /*Error Flag   */    
            DCL        VAR(&DTFIL) TYPE(*DEC)  LEN(7 0)  /*Date File    */    
            DCL        VAR(&DTFMT) TYPE(*DEC)  LEN(1 0)  /*Date Format  */    
            DCL        VAR(&DTUSR) TYPE(*DEC)  LEN(6 0)  /*Curr Date    */    
            DCL        VAR(&DTIME) TYPE(*DEC)  LEN(6 0)  /*Curr Time    */    
            DCL        VAR(&RQEST) TYPE(*CHAR) LEN(5)    /*Request      */    
             CHGVAR     VAR(&DTFMT) VALUE(0)                             
             CHGVAR     VAR(&DTUSR) VALUE(000000)                        
             CHGVAR     VAR(&DTIME) VALUE(000000)                        
             CALL       PGM(AXZPDR) PARM(&DTFMT &DTUSR &DTIME)           
             CHGVAR     VAR(&RQEST) VALUE('*FILE')                       
             CHGVAR     VAR(&DTFIL) VALUE(0000000)                       
             CHGVAR     VAR(&DTERR) VALUE(' ')                           
             CALL       PGM(AXZDT) PARM(&RQEST &DTFMT &DTUSR &DTFIL +    
                          &DTERR)                                        

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

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

> Having some issues (keep getting decimal data errors) getting it to work 
> from a CL program, I looked at the MAPICS support site and even more 
> confused as they mention passing parameters using the LDA. Would you 
> happen to have any example(s)? 
> 
> Thanks, 
> -Jimmy 
> 
> -----Original Message----- 
> From: mapics-l-bounces@xxxxxxxxxxxx 
> [mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of 
> 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. 
> > 
> _______________________________________________ 
> 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. 
>

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.