|
midrange.com
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 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.
