Re: CRTCMD

Posted ByMatthias Suttner on February 21, 19100 at 10:26:36:

In Reply to: Re: CRTCMD posted byALEX on February 18, 19100 at 14:04:40:

Vielen Dank Alex,

genau das war's, was ich wollte.

Matthias

: 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

Neuen Beitrag verfassen!