Re: CRTCMD

Posted ByALEX on February 18, 19100 at 14:04:40:

In Reply to: CRTCMD posted byMatthias Suttner on February 17, 19100 at 08:59:34:

Geht mit der Anweisung QUAL in der CMD Source : probier mal folgendes

PARM KWD(OBjekt) TYPE(QUAL1) Prompt('Objekt Name')

QUAL1: QUAL Type(*name) LEN(10) EXPR(*yes)
QUAL Type(*name) LEN(10) SPCVAL(*libl) +
EXPR(*yes) Prompt('Bibliothek')

Wenn du das umwandelst, sollte "Bibliothek" etwas eingerückt sein.
Wichtig: der Parm aus dem CMD kommt als einzelne Variable mit Länge 20(Obj + LIB) dein CL-PGM müßte dann etwa so aussehen:

PGM PARM(&FULLOBJ)

DCL VAR(&FULLOBJ) TYPE(*char) LEN(20) ->
DCL VAR(&OBJ) TYPE(*char) LEN(10)
DCL VAR(&LIB) TYPE(*char) LEN(10)

/*Fullobj in OBJ und LIB auflösen */

CHGVAR VAR(&OBJ) VALUE(%SST(&FULLOBJ 1 10))
CHGVAR VAR(&LIB) VALUE(%SST(&FULLOBJ 11 10))

CPYF Fromfile(&LIB/&OBJ) TOFILE(testlib/testobj) /* oder so */

u.s.w.

ENDPGM

Hoffe es funktioniert

Viel Spaß noch!
endPGM

Follow Ups

• Re: CRTCMD Matthias Suttner 10:26:36 2/21/100 (0)

Neuen Beitrag verfassen!