Vorbelegung bringt leider nichts, weitere Optionen nutze ich nicht:

Hier mal ein CL und DSPF als Beispiel (funktioniert so nicht):

CLP:
PGM
DCLF FILE(TESTD)
CHGVAR VAR(&EINGABE) VALUE('XXX')
SNDRCVF RCDFMT(SCREEN)
ENDPGM

DSPF:
A R SCREEN
A EINGABE 10A I 07 20