[NEWSboard IBMi Forum]
  1. #1
    Registriert seit
    Jan 2007
    Beiträge
    514

    Ach Datum, wie wäre das schön ...

    ... wenn ich doch beim BIF %date das Format dynamisch mitgeben könnte.

    Hat diese Idee schon mal irgendwer gehabt und es auch realisiert oder dreh ich mich mit meiner "verrückten" Idee im Kreis.

    Zum Verständnis: Ich will zb *DMY in einem Feld als Parameter mitgeben.
    kf

  2. #2
    Registriert seit
    Apr 2005
    Beiträge
    364
    Das geht leider nicht, da *DMY *ISO etc Sonderwerte sind vom Quasityp Datumsformat ...

    Das einzige was helfen würde wäre ein SELECT außenrum, mit dem du das Variable Format abfragst und das dann so umsetzt

    Code:
    SELECT 
    WHEN ZZDATFMT = '*ISO'
    var1 = %date(datvar:*ISO)
    WHEN ZZDATFMT = '*EUR'
    var1 = %date(datvar:*EUR)
    ...
    ENDSELECT

  3. #3
    Registriert seit
    Jan 2007
    Beiträge
    514
    Danke, wäre ja fast zu schön gewesen. Hab mir's schon gedacht - aber fragen darf man ja.

    Dann gibt es nur zwei Varianten:
    a) fix
    b) den Select in einem Serviceprogramm - geht auch.
    kf

  4. #4
    Registriert seit
    Feb 2001
    Beiträge
    17.978
    Dynamisches SQL geht auch:
    dcl-s MySQL varchar(100);
    dcl-s MyCharDate varchar(10);

    MySQL = 'values(char(current date, iso)) into ?';
    exec sql execute immediate : MySQL using : MyCharDate;

    Andererseits: wofür brauchst du das?
    Im Normalfall benötigt man das Datum statt in ISO in anderen Formaten doch nur für die Ausgabe.
    Dienstleistungen? Die gibt es hier: http://www.fuerchau.de
    Das Excel-AddIn: http://www.fuerchau.de/software/upload400.htm
    BI? Da war doch noch was: http://www.ftsolutions.de

  5. #5
    Registriert seit
    Jan 2007
    Beiträge
    188
    You could also write your own little service program to convert from one format and output in another format including specifying the output Trennzeichen and upper/lower case.
    This allows you to create any format you want. You can do this using CEEDAYS and CEEDATE :
    Code:
     
    // RtnIndPR Processing                                         
    Select;                                                        
      // Incoming format *CYMD                                     
      when InFormatPR = 1;                                         
           ISOdate = %date(InDatePR :*cymd);                       
    ENDsl;                                                         
                                                                   
    monitor;                                                       
      CEEDAYS(%char(ISOdate :*iso) :CEEinFmtTxt :lilian  :*OMIT);  
      on-error;                                                    
        RtnIndPR = 'EE';                                           
        OutDatePR = %char(ISOdate);                                
    endmon;                                                        
    
    if RtnIndPR <> 'EE';                                         
    Select;                                                 
          // Outgoing format 'DD-Mmm-YYYY'                      
          when OutFormatPR = 1;                                 
               CEEoutFmtTxt = 'DD-Mmm-YYYY';                    
        ENDsl;                                                  
                                                                
        monitor;                                                
        CEEDATE(lilian :CEEoutFmtTxt :OutDatePR :*OMIT);        
          on-error;                                             
            RtnIndPR = 'EE';                                    
            OutDatePR =  %char(ISOdate);                        
        endmon;                                                 
     ENDIF;
    mfg

    Kit
    www.ecofitonline.com
    DeskfIT - ChangefIT - XrefIT

Ähnliche Themen

  1. Wäre jemand so freundlich.....
    Von ManfredG im Forum System i Hauptforum
    Antworten: 3
    Letzter Beitrag: 15-01-19, 12:50
  2. Query Datum
    Von Zuther im Forum System i Hauptforum
    Antworten: 4
    Letzter Beitrag: 06-12-18, 12:51
  3. SQL BIF bei falschem Datum
    Von Peet im Forum NEWSboard programmierung
    Antworten: 3
    Letzter Beitrag: 06-10-17, 22:35
  4. SQL Datum
    Von dholtmann im Forum NEWSboard programmierung
    Antworten: 7
    Letzter Beitrag: 03-05-16, 09:35
  5. Eine Bitte und Danke schön aus gegebenem Anlaß
    Von Isabella Pridat-Zapp im Forum System i Hauptforum
    Antworten: 1
    Letzter Beitrag: 15-12-14, 17:10

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •