× 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

Sweet, that works like a champ. Many Thanks!

-Jimmy

-----Original Message-----
From: mapics-l-bounces@xxxxxxxxxxxx
[mailto:mapics-l-bounces@xxxxxxxxxxxx] On Behalf Of
pennylancor@xxxxxxxxxxx
Sent: Wednesday, October 06, 2004 8:33 AM
To: MAPICS ERP System Discussion
Subject: 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. 
> 
_______________________________________________
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 On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.