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

    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
    385
    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
    904
    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
    20.207
    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: https://www.ftsolutions.de/index.php/downloads
    BI? Da war doch noch was: http://www.ftsolutions.de

  5. #5
    Registriert seit
    Jan 2007
    Beiträge
    189
    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

Similar Threads

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

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •