hmm.....

ich hab das jetzt mal mit putenv probiert....

Code:
D putenv          PR            10i 0 ExtProc('putenv')           
D envvar                          *   VALUE OPTIONS(*STRING:*TRIM)
D cp              s           1024a


// set LANG                                    
  cp = %trim(var) + '=' + %trim(value);        
                                               
   if (putenv(cp) < 0);                        
    err = errno;                               
   endif;
Er scheint auch was zu machen, weil wenn ich mit STRQSH echo $LANG die Variable anschaue, zeigt er mit das richtig an.... aber die Regex-Funktionen gehen irgendwie nicht richtig....



mach ich vorher einen ADDENVVAR ENVVAR(LANG) VALUE('/QSYS.LIB/DE_DE.LOCALE') REPLACE(*YES)

klappt alles.....