Hallo Jobra,

mit CL ist das nicht so ganz einfach!
Aber kannst Du nicht eine kleine RPG-Funktion oder -Programm schreiben, das den Monatsletzen ermittelt?
Was willst Du? Das Datum oder den Tag?

Hier ist ein Beispiel, wie aus einem numerischen Datum (JJJJMMTT) der Monatsletzte im gleichen Format ermittelt wird.
Code:
D DateNum         S              8P 0 inz(20040525)                      
D DateNxtMon      S               D                                      
D MonthEnd        S               D                                      
D MonthEndNum     S              8P 0 
*****************************************************
C                   Monitor                                               
C                   Eval      DateNxtMon = %Date(DateNum) + %Months(1)   
C                   Eval      DateNew    =   DateNxtMon                  
C                                          - %Days(%SubDt(DateNxtMon:*D))
C                   Move      DateNew       MonthEndNum                  
C     MonthEndNum   dsply                                                
C                   on-Error                                             
C     'Ungült.Dat.' dsply                                                
C                   EndMon                                               
C                   eval      *InLR       = *on