× 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.



You can CRTDUPOBJ of as many files as you like, you just can't declare more
than one file with DCLF (in V5R3, you can declare up to 5).

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 



-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of John Candidi
Sent: Tuesday, January 31, 2006 9:22 AM
To: 'Midrange Systems Technical Discussion'
Subject: RE: CL program

Can you crtdupobj of more than one file in a CL job? Is there any secret or
just a straight list of crtdupobj commands?


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Peter.Colpaert@xxxxxxxxx
Sent: Tuesday, January 31, 2006 8:48 AM
To: Midrange Systems Technical Discussion
Subject: RE: CL program

Make sure the source type is CLLE and not CLP.

HTH,

Peter Colpaert
Application Developer
PLI - IT - Kontich, Belgium
-----
Yoda of Borg are we.  Futile is resistance, assimilated will you be.
-----



"John Candidi" <jacandidi@xxxxxxxxxxxxxxxxxxxx> Sent by:
midrange-l-bounces@xxxxxxxxxxxx
31/01/2006 14:41
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
cc

Subject
RE: CL program






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
> 





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.