Hallo Forum

Ich übergebe Bibliotheksnamen an ein CL zur Sicherung auf NAS.
Da einige Bibliotheken einen Punkt im Namen haben, soll dieser durch Unterstrich '_' ersetzt werden, um nach der Sicherung in SAVF anschliessend per FTP zu übertragen.
Call aus DSPOBJD:

CALL PGM(PGM) PARM(&ODOBNM &ODOBNM &TYPE &TAGTXT)

&LIB = 'YLBFIB.V3'
&SAVF = 'YLBFIB.V3'

PGM PARM(&LIB &SAVF &TYPE &TAGTXT)
DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
DCL VAR(&SAVF) TYPE(*CHAR) LEN(10)
DCL VAR(&TYPE) TYPE(*CHAR) LEN(4)
DCL VAR(&TAGTXT) TYPE(*CHAR) LEN(10)
DCL VAR(&STELLE) TYPE(*DEC) LEN(2 0)
REPLACE:
CHGVAR VAR(&STELLE) VALUE(&STELLE + 1)
IF COND(&STELLE *LE 10) THEN(DO)
IF COND(%SST(&SAVF &STELLE 1) *EQ '.') THEN(DO)
CHGVAR VAR(%SST(&SAVF &STELLE 1)) VALUE('_')
ENDDO
GOTO REPLACE
ENDDO
&SAVF wird korrekt geändert, jedoch steht der geänderte Name anschliessend (nicht immer) auch in &LIB.
&LIB = 'YLBFIB_V3'
&SAVF = 'YLBFIB_V3'

Gibt es dafür eine Erklärung?

Gruß Joe