MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » January 2006

Re: CL program



fixed

The type needs to CLLE.


On 1/31/06, John Candidi <jacandidi@xxxxxxxxxxxxxxxxxxxx> wrote:
> When I enter the cource in QCLSRC, it doesn't like the CALLPRC lines
>
> -----Original Message-----
> From: midrange-l-bounces+jacandidi=rutgersinsurance.com@xxxxxxxxxxxx
> [mailto:midrange-l-bounces+jacandidi=rutgersinsurance.com@xxxxxxxxxxxx] On
> Behalf Of michael@xxxxxxxxxxxxxxxxxx
> Sent: Tuesday, January 31, 2006 8:33 AM
> To: Midrange Systems Technical Discussion
> Subject: RE: CL program
>
> That is an ILE CL program. Create it with CRTBNDCL, or option 14 from
> PDM with a CLLE source type.
>
> > -------- Original Message --------
> > Subject: RE: CL program
> > From: "John Candidi" <jacandidi@xxxxxxxxxxxxxxxxxxxx>
> > Date: Tue, January 31, 2006 8:18 am
> > To: "'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
> >
> > Is this an ILE C program. Do it compile it that way?
> >
> > -----Original Message-----
> > From: midrange-l-bounces@xxxxxxxxxxxx
> > [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
> > Sent: Monday, January 30, 2006 5:44 PM
> > To: Midrange Systems Technical Discussion
> > Subject: Re: CL program
> >
> >
> > Why use RTVSYSVAL instead of CEELOCT?  Seems like CEELOCT would be shorter
>
> > than RTVSYSVAL followed by CEEDAYS -- plus, the way you're doing it
> > assumes that the system value is in MMDDYY format, which it may not be. So
>
> > your code would be shorter and more correct using CEELOCT.
> >
> > Also, if you supply a feedback code (&FC) you should check it to see if
> > the API failed.  If you don't want to do any checking, pass *OMIT so that
> > the operating system's default error handling mechanish can kick in.
> >
> > (I just posted an example very similar to yours, but uses CEELOCT)
> >
> > > pgm
> > > DCL &DATE *CHAR 6
> > > DCL &LILDATE *CHAR 4
> > > DCL &FC *CHAR 12
> > > dcl &monthyear *char 7
> > > /* get system date */
> > > rtvsysval qdate &date
> > > /* change to first of month */
> > > CHGVAR &DATE (%SST(&DATE 1 2) *CAT '01' *CAT %SST(&DATE 5 2))
> > > /* get "lillian" date number */
> > > CALLprc CEEDAYS (&DATE 'MMDDYY' &lildate &fc)
> > > /* subtract 1 day to get last day of previous month */
> > > CHGVAR (%BIN(&LILDATE)) ((%BIN(&LILDATE) - 1))
> > > /* get 3-char month name + 4-digit year */
> > > CALLprc CEEDATE (&lildate  'MMMYYYY'  &monthyear  &fc)
> > > endpgm
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact