Récupérer la date du au format AAAAMMJJ

Free RPG :
dcl-s dateDuJour char(8);
dateDuJour = %char(%date():*ISO0);