Parameter rechtsbündig im Command

[B.Hauser]

Hallo Jutta,

die folgende kleine RPG-Funktion richtet einen Feldwert rechtsbündig aus. Mit CALLPRC kannst Du sie dann aus Deinem CL aufrufen:

H NoMain
 *************************************                        
D RightAdj        PR            10A                        
D   PPParm1                     10A   Const Options(*RIGHTADJ)
 *************************************
P RightAdj        B                   Export                      
D RightAdj        PI            10A                               
D   PPParm1                     10A   Options(*RightAdj) const    
C                   Return    PPPARM1                             
P RightAdj        E

[Pikachu]

Hallo Jutta !

Probier mal folgendes in deinem CL-Programm:

            DCL        VAR(&ADR) TYPE(*CHAR) LEN(5)

            IF         COND(&ADR *EQ ' ') THEN(GOTO CMDLBL(OK))
LOOP:       IF         COND(%SST(&ADR 5 1) *EQ ' ') THEN(DO)
            CHGVAR     VAR(&ADR) VALUE(' ' *CAT &ADR)
            GOTO       CMDLBL(LOOP)
            ENDDO
OK:

Gruß
Jürgen

[Jutta]

Vielen Dank für all die super Tipps hier. Ich werde alles ausprobieren und mich dann u.U. noch mal melden. Auch an ILERPG werde ich mich ranwagen.

Danke noch mal euch allen.

Jutta