CL Variable Leerzeichen entfernen / ersetzen

[linguin]

Moin,

stehe hier vor einem, für mich, größerem Problem

Ich habe eine Char Variable in einem CL

'XXX 45 77 99 GG TT'
diese brauche ich aber OHNE diese lästigen Leerzeichen

also als
'XXX457799GGTT'

Substr haut nicht hin da die Leerzeichen an verschiedenen Stellen stehen können

Habt Ihr nen CL Codeschnipsel für mich der das tut ?

Danke für Eure Mühe

Gruß aus dem sonnigen Frankenland

[S.Neinawaie]

Hallo!

Wenn es wirklich in CL sein muss dann gibt es (soweit ich weiß) nur eine Möglichkeit:

Scan for String Pattern (QCLSCAN) API

in Kombination mit SubString. (%sst)

Beispiel von QCLSCAN: How to scan a char?


LG,
Sam

Nachtrag:
Hab auf die schnelle (wenn mein Chef wüsste..) was kleines gebaut, es ist nicht schön, nicht gut überlegt, aber es funktioniert

             PGM                                                      
                                                                      
             DCL        VAR(&RESULT) TYPE(*CHAR) LEN(999)             
             DCL        VAR(&STRING) TYPE(*CHAR) LEN(999) VALUE('XXX +
                          45 77 99 GG TT')                            
             DCL        VAR(&STRLEN) TYPE(*DEC) LEN(3) VALUE(999)     
             DCL        VAR(&STRPOS) TYPE(*DEC) LEN(3) VALUE(1)       
             DCL        VAR(&PATTERN) TYPE(*CHAR) LEN(999) VALUE(' ') 
             DCL        VAR(&PATLEN) TYPE(*DEC) LEN(3) VALUE(1)       
             DCL        VAR(&TRANSLATE) TYPE(*LGL)                    
             DCL        VAR(&TRIM) TYPE(*LGL)                         
             DCL        VAR(&WILDCARD) TYPE(*CHAR) LEN(1)             
             DCL        VAR(&RETURN) TYPE(*DEC) LEN(3)                
             DCL        VAR(&LEN) TYPE(*DEC) LEN(3)                   

ANFANG:     CALL       PGM(QCLSCAN) PARM(&STRING &STRLEN &STRPOS +                 
                         &PATTERN &PATLEN &TRANSLATE &TRIM +                       
                         &WILDCARD &RETURN)                                        
            IF         COND(&RETURN *GT 0) THEN(DO)                                
            CHGVAR     VAR(&LEN) VALUE(&RETURN - &STRPOS)                          
            IF         COND(&LEN *EQ 0) THEN(GOTO ENDE)                            
            CHGVAR     VAR(&RESULT) VALUE(&RESULT *TCAT %SST(&STRING &STRPOS &LEN))
            CHGVAR     VAR(&STRPOS) VALUE(&STRPOS + &LEN +1)                       
            GOTO ANFANG                                                            
            ENDDO                                                                  
                                                                                   
ENDE:       ENDPGM

[Pikachu]

Probier mal so:

             PGM                                                       
             DCL        VAR(&POS)  TYPE(*DEC)  LEN(5) VALUE(1)         
             DCL        VAR(&POS2) TYPE(*DEC)  LEN(5) VALUE(1)         
             DCL        VAR(&LEN)  TYPE(*DEC)  LEN(5) VALUE(20)        
             DCL        VAR(&VAR)  TYPE(*CHAR) LEN(20)                 
             DCL        VAR(&VAR2) TYPE(*CHAR) LEN(20)                 
                                                                       
             CHGVAR     VAR(&VAR)  VALUE('XXX 45 77 99 GG TT')         
                                                                       
 LOOP:       IF         COND(%SST(&VAR  &POS  1) *NE ' ') THEN(DO)     
             CHGVAR      VAR(%SST(&VAR2 &POS2 1)) VALUE(+              
                             %SST(&VAR  &POS  1))                      
             CHGVAR     VAR(&POS2) VALUE(&POS2 + 1)                    
             ENDDO                                                     
             CHGVAR     VAR(&POS) VALUE(&POS + 1)                      
             IF         COND(&POS *LE &LEN) THEN(GOTO CMDLBL(LOOP))    
                                                                       
             CHGVAR     VAR(&VAR) VALUE(&VAR2)                         
 ENDPGM:     ENDPGM 

[Fuerchau]

Warum eignetlich so kompliziert?

In einer kleinen Schleife einfach per TCAT die Zeichen anhängen:

chgvar(&Neu) value(&neu *tcat %sst(&Alt &Pos 1))