Kaillou, Forum AS400

Forum AS400 et de discussions


    fichier dates, à formater en vrai format date

    Partagez
    avatar
    Shewolf
    Admin

    Nombre de messages : 190
    Localisation : 91 idf
    Emploi : Analyste Réalisateur / Chef de Projets

    fichier dates, à formater en vrai format date

    Message par Shewolf le Mar 3 Juil - 18:47

    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:

      La date/heure actuelle est Lun 20 Nov - 1:49