Figure 1. %SST

PGM
DCL        VAR(&FileLib) TYPE(*CHAR) LEN(20) VALUE('A         B         ')
DCL        VAR(&File) TYPE(*CHAR) LEN(10)
DCL        VAR(&Lib)  TYPE(*CHAR) LEN(10)

CHGVAR     VAR(&File) VALUE(%SST(&FileLib 1 10))
CHGVAR     VAR(&Lib) VALUE(%SST(&FileLib 11 10))
                          
ENDPGM