RE: CL program

["John Candidi" <jacandidi@xxxxxxxxxxxxxxxxxxxx>]

ME=MONTHEND.I want to start the library name with that

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Tuesday, January 31, 2006 4:10 PM
To: Midrange Systems Technical Discussion
Subject: RE: CL program 


I'm not sure what "MEYYYYMM" represents? What's the "E" for?  Can you 
provide a sample of an MEYYYYMM date?

---
Scott Klement  http://www.scottklement.com



On Tue, 31 Jan 2006, John Candidi wrote:

> Is there a way to code this to get MEYYYYMM instead of MMMYYYY?
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Eric Graeb
> Sent: Tuesday, January 31, 2006 10:26 AM
> To: 'Midrange Systems Technical Discussion'
> Subject: RE: CL program
>
>       Exactly right.  Since the question was for CL I responded in CL.
> CLLE can do many things with less code but I'm still investigating it.
> Thanks for the example of how it should be done.  I was thinking of trying
> to follow through all the IF statements if you don't use procedure calls.
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
> Sent: Monday, January 30, 2006 4:41 PM
> To: Midrange Systems Technical Discussion
> Subject: RE: CL program
>
> On Mon, 30 Jan 2006, Eric Graeb wrote:
>>
>> Yes, you can do it programmatically in CL but it would be lengthy.
>>
>
> Ummm...  not counting comments, or DCL statements, it's 4 lines of code.
>
>
> /* NOTE:  This is ILE CL. Source type is CLLE (not CLP!)          +
>                                                                   +
>     To Compile:                                                   +
>            CRTBNDCL PGM(ENDOFMON) SRCFILE(xxx/xxx)                */
> PGM
>
>     DCL VAR(&LILIAN)   TYPE(*CHAR) LEN(4)
>     DCL VAR(&NOTUSED1) TYPE(*CHAR) LEN(8)
>     DCL VAR(&NOTUSED2) TYPE(*CHAR) LEN(23)
>     DCL VAR(&LIBNAME)  TYPE(*CHAR) LEN(7)
>
>     /* Get the Year & Month from 15 days ago.  For example, if    +
>        today is Jan 5, 2006 get DEC2005, if today is Feb 16 2006, +
>        get FEB2006 */
>
>     CALLPRC PRC(CEELOCT) PARM(&LILIAN &NOTUSED1 &NOTUSED2 *OMIT)
>     CHGVAR VAR(%BIN(&LILIAN)) VALUE(%BIN(&LILIAN) - 15)
>     CALLPRC PRC(CEEDATE) PARM(&LILIAN 'MMMYYYY' &LIBNAME *OMIT)
>
>     /* Create the "End of Month" library */
>
>     CRTLIB LIB(&LIBNAME)
>
> ENDPGM
>
>
> I don't know precisely how the OP was planning to do the logic for
> figuring out the month (which is why I didn't post anything earlier).
> In my sample code, I assume that if you run this during the first 15 days
> of the month that you're running it for the previous month...  but I don't
> know what the OP intended for that, I got lost trying to follow the logic
> in his text.
>
> But, surely this doesn't qualify as "lengthy code"?!
> -- 
> 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.
>