Si vous avez besoin de récupérer le libellé du mois ou du jour en clp, voici une méthode à base de SQL :

vous devez d'abord créer un module rpgile

h nomain                                                       

d Datdujou       pr            25                             

 *                                                             

pDatdujou        b                   export                   

d                 pi            25                             

 *                                                             

Dwdatjou          s             25                             

 /free                                                         

   // extraction de libellé de la date                        

   exec sql                                                  

     set :wdatjou =                                          

       trim(cast(dayname(curdate())as char(10)))    !! '/' !!

       trim(cast(dayofmonth(curdate()) as char(2))) !! '/' !!

       trim(cast(monthname(curdate()) as char(9)))  !! '/' !!

       trim(cast(year(curdate()) as char(4))) ;              

       return wdatjou ;                                      

 /end-free                                                   

pDatdujou        e                                          

compiler le module rpg datdujour

créer un module clle 

PGM                                                     

                              DCL &WDATJOU *CHAR 25                                                                         

             CALLPRC    PRC(DATDUJOUr) RTNVAL(&WDATJOU)  

ENDPGM 

Compiler le module clp datdujour

Créer le programme datdujour en assemblant les 2 modules, lancer le programme par call et récupérer les informations du jour.