CMD und RTNVAL

[Robi]

Ja, schon
nur das da ein CL und ein dspf hinter steht. ich möchte eigendlich ein CMD machen

[kitvb1]

This following works so that you cannot see the password once you hit ENTER:

PARM       KWD(PASSWORD) TYPE(*CHAR) LEN(10) MIN(1) +  
             DSPINPUT(*PROMPT) PROMPT('Remote user +   
             password')

[KingofKning]

Ja, schon
nur das da ein CL und ein dspf hinter steht. ich möchte eigendlich ein CMD machen

Und was hätte Dich jetzt daran gehindert aus einem CL ein CMD zu machen?

Chapter 9. Defining Commands

Alternativ halt die Lösung vom Vorgänger.

Da waren sie wieder die vielen Wege nach Rom.

GG

[Robi]

irgend etwas mach ich falsch oder ich habe mit schlecht ausgedrückt.

NICHT das CL, das hinter dem CMD steht soll mit dem Passwort arbeiten, sondern das CL, das den CMD aufruft
Aber ich bekomme den Wert nicht zurück.

mit rtnval(*yes) kan ich da nix eingeben



@kitvb1
Ich verwende dspinp(*NO) damit man die eingabe nicht sieht

[Robi]

Hab es gefunden.

so :

   /* 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

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

[Fuerchau]

RTNVAL(*yes) erwartet eine Variable, in die das Ergebnis deines CLP's gestellt werden soll, eine Eingabe ist da nicht zulässig, desshalb sollten solche Kommandos mit CRTCMD ... ALLOW(*IPGM *BPGM) erstellt werden, wobei *BPGM, da du ja prompten willst ggf. nicht erlaubt werden sollte.

[Robi]

Ja danke, ist nun klar.
ich wollte das ganze nur mit einer Variablen lösen und dachte,
erst geb ich sie am BS ein, dann macht das CL etwas damit(oder auch nicht), dann wird sie zurück gegeben.
Läuft ja nun


*BPGM ist hier tatsächlich Blödsin

Gruß
Robi