Erstellung Command und Valuelist

[JonnyRico]

Hi,

ich habe einen Command mit einem Feld wo ich nur zwei Werte zulassen will. Der Compiler baut blöderweise einfach den Standardwert ' ' ein. Es MUSS!!! aber einer der beiden Werte eingegeben werden. Kann ich irgendwie einstellen das der Command IMMER! erst einmal gepromptet wird? oder besser noch das wenn man in der Commandline den Parameter nicht angibt auf jeden Fall der Prompt kommt?

Gruß

Sascha

[Fuerchau]

PARM ... RSTD(*YES) MIN(1)

[JonnyRico]

PARM ... RSTD(*YES) MIN(1)

So ist es ja eingestellt:

PARM      KWD(MYPARM) TYPE(*CHAR) LEN(4)  +
             RSTD(*YES) VALUES('*Val1' '*Val2') +
             MIN(1) ALWUNPRT(*NO) ALWVAR(*NO) +
             FULL(*NO) KEYPARM(*NO) PROMPT('myparm') 

Leider baut wie gesagt der Compiler DTF(' ') automatisch ein. Wenn ich dann "MYCMD" ohne Parameterangabe aufrufe. Gibt es ' ' an das Befehlsverarbeitungsprogramm. Da ich den Command aber wirklich nur interaktiv benutze (Bei Umwandlung *INTERACT) würde ich gern IMMER den Prompt sehen.

Gruß

Sascha

[Fuerchau]

Das liegt ggf. an der Reihenfolge der Parameter.
Min(x) muss immer vor Parametern mit Min(0) angegeben werden.
Allerdings kannst du auch einen der Value-Werte als DFT vorgeben.

[JonnyRico]

Das liegt ggf. an der Reihenfolge der Parameter.

That's it. Danke. Das ist das Problem gewesen. Danke für den Tip. Einen Grundsätzlichen Prompt kann man aber nicht einstellen oder?

Gruß

Sascha

[Frank Hildebrandt]

Wenn das nicht funktioniert, dann kann es nur noch daran liegen, dass vor dem Parameter MYPARM ein anderer Parameter definiert ist mit DFT(Ingendwas). In der Quelle müssen zuerst alle Parameter mit MIN() definiert werden und erst danach die Parameter mit DFT(). Dann wird der Befehl auch wirklich automatisch gepromptet, wenn bei einem Parameter mit MIN nichts eingegeben wurde. Ansonsten wird MIN ignoriert.

[JonnyRico]

Hi,

jo also das der Promt nicht gekommen ist lag an der falschen Reihenfolge. Es ging jetzt nur noch mal darum ob es möglich ist dem Command immer zu prompten wenn er ohne Parameter aufgerufen wird, auch wenn über Default alle Parameter einen Wert haben.

Gruß

Sascha

[Fuerchau]

Nein, das geht leider nicht, da ja Commands (unabhängig von der Erlaubnis) ggf. auch im CLP verwendet werden.
Mittels CHGCMD kann ALLOW ja jederzeit geändert werden.

Die einzige Chance ist, den 1. Parameter mit MIN(1) und ohne DFT zu definieren.

[Frank Hildebrandt]

Einen generellen Prompt bekommt man dann, wenn man dem Befehl ein ? voransetzt, also z.B. ?WRKSPLF. Aber ob Deine Benutzer das dann immer so machen?????. Ansonsten gibt es da irgendwo einen Exitpoint bei dem man ein eigenes Programm einfügen kann, welches immer dann aufgerufen wird, bevor ein Befehl ausgeführt wird. Vielleicht kann man ja da etwas einstellen. Nur welcher Exit das ist, das fällt mir gerade auch nicht ein. Da müsste ich selber in der Doku suchen.

[Fuerchau]

Über Exits (WRKREGINF) sollte man das nicht versuchen, da diese bei jedem Kommando aufgerufen würden.

Aber wenn der 1. Parameter tatsächlich MIN(1) enthält kommt der Prompt automatisch (aus der Kommandozeile) wenn keine Werte angegeben wurden.

Beim Aufruf aus CLP/QCMDEXC gibts nur CPF0001.

Aber wie Frank schon sagt:
Bindest du das Kommando z.B. in einem Menü/CLP ein, kannst du mit selektivem Prompten (?CMD / ??CMD ...) das Kommando genau steuern.

[JonnyRico]

Hi,

okay danke ihr beiden. Da der Command wohl überwiegend aus einem Menü aufgerufen wird, werde ich des dann wohl mit ?CMD machen. Danke.

Gruß

Sascha

[kuempi von stein]

mhh...

also ich bin mir ziemlich sicher, sowas mal vor Jahrzehnten gemacht zu haben.
Der Trick ging irgendwie über das Gültigkeitprüfprogramm.
Habe dann da an der Stelle ein zweites CMD einfach im Promptmodus (mit dem vorangestelltem?) aufgerufen, welches genauso aussah, nur eben ein anderes war.
War ne nette Frickelei wenn ich mich entsinne....

Hab das aber auf irgendnem Band in irgendnem Schrank.
Frag mich mal wie das war...

kuempi