Figure 2 .DEFVAR

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

DCL        VAR(&File) TYPE(*CHAR) STG(*DEFINED) LEN(10) DEFVAR(&FileLib 1)

DCL        VAR(&Lib) TYPE(*CHAR) STG(*DEFINED) LEN(10)  DEFVAR(&FileLib 11)

ENDPGM