Juhu, ich hab's!
Die Lösung war zu einfach. Hatte zuerst eine Dec.-Variable mit den Wert gefüllt und dann binär in P_Applinfo gestellt. Dies funktionierte aber nicht wirklich. Jetzt gebe ich den Wert direkt als Hex-Wert mit und schon klappts.

RICHTIG --> CHGVAR VAR(%SST(&P_Applinfo 5 4)) VALUE(X'00000001')

FALSCH --> CHGVAR VAR(%BIN(&P_Applinfo 5 4)) VALUE(&WrkDir)

Trotzdem vielen Dank für die Mühe die ich Euch gemacht habe.