CHAR-CL-Variable nach DEC-CL-Variable

[roman]

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

[Fuerchau]

chgvar &decvar1 %sst(*lda 1 3)
chgvar &decvar2 %sst(*lda 4 3)

[roman]

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.

[B.Hauser]

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

[roman]

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

[Fuerchau]

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.