Hi all,
I have searched this site for solutions in getting last month date in Dialogue Manager in month-yyyy (i.e. October-2011) format. I tried many of these solutions, but haven't been able to get them to work. Your input is greatly appreciated.


Seyed

This message has been edited. Last edited by: SeyedG,

Does this work for you?

-SET &LASTMONTH=AYM(EDIT(EDIT(&YYMD,'999999$$')),-1,'I6YYM');
-SET &LASTMONTH_DESC=CHGDAT('I8YYMD','MYYX',&LASTMONTH,'A17');

I just tried your solution, the result is blank.

Thank you,

Seyed

Works for me! You evaluated the resulting value of &LASTMONTH_DESC and it was blank?

In my environment, &LASTMONTH_DESC was assigned a value of "OCTOBER 2011".

The result is blank? Is this because the code worked as expected?

Add

-TYPE &LASTMONTH_DESC
-TYPE &LASTMONTH

to see that it works.

quote:

-TYPE &LASTMONTH_DESC
-TYPE &LASTMONTH

The following code results

-SET &LASTMONTH=AYM(EDIT(EDIT(&YYMD,'999999$$')),-1,'I6YYM');
-SET &LASTMONTH_DESC=CHGDAT('I8YYMD','MYYX',&LASTMONTH,'A17');

-TYPE &LASTMONTH_DESC
-TYPE &LASTMONTH

in

0

It looked like the '&YYMD' does not have a value to process, but when I type &YYMD, I get '20111115' which is correct.

Thanks,


Seyed

Try this:

-SET &THIS_MONTH     = EDIT(&YYMD,'999999$$');
-SET &LAST_MONTH     = AYM(&THIS_MONTH,-1,'I6YYM');
-SET &LASTMONTH_DESC = CHGDAT('I8YYMD','MYYX',&LAST_MONTH,'A17');

-TYPE &LAST_MONTH
-TYPE &LASTMONTH_DESC

Hi all,
Thank you very much for your inputs. Dan’s solution worked for me. There is one more tweak that I must do. I now how to figure out a way to convert the result from ‘OCTOBER 2011’ to ‘October-2011’ with a dash in between and month name being as Microsoft Word calls it “title case”d.

Thanks again to Dan and everyone who contributed.

Seyed

This gets it all:

 
-SET &DATE1 = CHGDAT('YYMD', 'MXYY', DATECVT(DATEADD(DATECVT(&YYMD, 'I8YYMD', 'YYMD'), 'M', -1),'YYMD','A8YYMD'), 'A17');
-SET &DATE2 = EDIT(&DATE1,'9')|LOCASE(17,EDIT(&DATE1,'$9999999999999999'),'A17');
-SET &DATE3 = STRREP(&DATE2.LENGTH,&DATE2,2,' 2''',2,'-2''',&DATE2.LENGTH,'A&DATE2.LENGTH');

-TYPE &DATE1 &DATE2 &DATE3

 

Hi Microfich,
Thank you very much. Your solution worked nicely. Again, thanks everyone.

Seyed

Here's yet another way:

-SET &LASTMONTH      = DATECVT(DATECVT(DATEADD(DATECVT(&YYMD,'I8YYMD','YYMD'),'M',-1),'YYMD','A8YYMD'),'A8YYMD','MYY');
-SET &LASTMONTH_DESC = DATETRAN(&LASTMONTH, '(MYY)', '(tr-)', 'EN', 20, 'A20');
-TYPE &LASTMONTH_DESC

quote:

-SET &LASTMONTH = DATECVT(DATECVT(DATEADD(DATECVT(&YYMD,'I8YYMD','YYMD'),'M',-1),'YYMD','A8YYMD'),'A8YYMD','MYY');
-SET &LASTMONTH_DESC = DATETRAN(&LASTMONTH, '(MYY)', '(tr-)', 'EN', 20, 'A20');
-TYPE &LASTMONTH_DESC

Hi njsden,
I appreciate your input.

Seyed