fichier dates, à formater en vrai format date

Pour info
pour les dates, à formater en vrai format date à partir d'un fichier avec ses zones en numériques
Calendrier
Création du fichier BCALD_BO

_________________________________________________________________
BCALD_BO PF Calendrier Pour correspondance
_________________________________________________________________
R BCALD
BODTNU 8S 0 TEXT('Date Numérique SAMJ')
COLHDG('Date' +
'Num' 'SAMJ')
EDTWRD(' / / ')
BODTDT L TEXT('Date format Date SAMJ')
COLHDG('Date' 'Format' 'Date')
BOSSAA 4S 0 TEXT('Siècle et année')
COLHDG('Siècle' 'et' 'Année')
BOMOIS 2S 0 TEXT('Mois')
COLHDG('Mois')
BOJOUR 2S 0 TEXT('Jour')
COLHDG('Jour')
_________________________________________________________________
Copie du calendier de chez nous dans le new fichier :
INSERT INTO BCALD_BO (BODTNU
) SELECT CAICMD FROM TCALD_CA WITH NC
UPDATE BCALD_BO SET BOSSAA = int(BODTNU/10000)
UPDATE BCALD_BO SET BOMOIS = int(BODTNU/100)-(BOSSAA*100)
UPDATE BCALD_BO SET BOJOUR = BODTNU-(BOSSAA*10000)-(BOMOIS*100)
UPDATE BCALD_BO SET BOdtdt =
date(substr(digits(BOSSAA), 1, 4) !! '-' !!
substr(digits(BOMOIS), 1, 2)
!! '-' !! substr(digits(BOJOUR), 1, 2))
:mrgreen: