Hab es gefunden.

so :
Code:
   /* CMD PWD Umwandlung mit ALLOW(*IPGM *BPGM) notwendig. ALL geht nicht! */     
                                                                          
             CMD        PROMPT('BITTE PASSWORT EINGEBEN')                 
             PARM       KWD(PWD) TYPE(*CHAR) LEN(10)  +                   
                          MIN(1) CASE(*MIXED) DSPINPUT(*NO) +             
                          CHOICE('Groß klein Beachten') +                 
                          PROMPT('Passwort')                              
             PARM       KWD(PWDR) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +      
                          MIN(0) CASE(*MIXED) DSPINPUT(*NO)
und so: PWDCL

Code:
PGM (&PWD &PWD2)           
         DCL &PWD *CHAR 10 
         DCL &PWD2 *CHAR 10
         CHGVAR &PWD2 &PWD 
ENDPGM

damit kan ich im CL mit

pwd ??pwd(&pwd) pwdr(&pwdr)

das Passwort verdeckt eingeben lassen und bekomme es zurück

Gruß
Robi