View Full Version : CHAR-CL-Variable nach DEC-CL-Variable
Hallo
Möchte aus einer Dataarea 2 Werte (Stellen 1-3 und 4-6) die IMMER numerisch sind in zwei DEC-CL-Variablen übertragen.
Kann mir jemand den einfachsten Weg erläutern (vielleicht mit Beispiel?)
Vielen Dank.
Roman
chgvar &decvar1 %sst(*lda 1 3)
chgvar &decvar2 %sst(*lda 4 3)
Besten Dank für die Antwort. - Es handelt sich aber nicht um eine LDA sondern um eine "normale" selbstdefinierte DA.
Bei den Werten handelt es sich um Firma- und Filialcode und da ich nicht ausschliessen kann, dass die Applikation ebenfalls mit LDA arbeitet und die Daten möglicherweise überschrieben werden, habe ich eine eigene erstellt.
Hallo Roman,
wie wäre es damit:
DCL VAR(&ALPHA1) TYPE(*CHAR)
DCL VAR(&ALPHA2) TYPE(*CHAR)
DCL VAR(&Numer1) TYPE(*DEC) LEN(3 0)
DCL VAR(&Numer2) TYPE(*DEC) LEN(3 0)
RTVDTAARA DTAARA(MYDTAARA (1 3)) RTNVAR(&ALPHA1)
CHGVAR VAR(&NUMER1) VALUE(&ALPHA1)
RTVDTAARA DTAARA(MYDTAARA (4 3)) RTNVAR(&ALPHA2)
CHGVAR VAR(&NUMER2) VALUE(&ALPHA2)
Birgitta
Dass es diesen Umweg braucht, mit zusätzlichen Variablen und dieser "Herummoverei" habe ich befürchtet...
Ich hoffte, dass jemand einen supereleganten einfachen Weg
kennt.
Trotzdem vielen Dank für die Antworten.
PS: Falls jemand eine einfachere Möglichkeit kennt - interessiert mich nach wie vor!
Grüsse
Roman
In CLP gibt es keine "elegantere" Möglichkeit, da CLP nicht als HLL betrachtet wird.
"Eleganter" geht es nur mit einem kleinen RPG/LE-Programm.