Char-Feld 4-stellig, per SQL nur 1. Stelle ändern

[LGALF]

Ich bin noch nicht so gut mit der AS-400-SQL-Syntax vertraut. Ich möchte bei einem Feld PERSN (4-stellig character) per UPDATE nur die erste Stelle z.B. auf '7' ändern. Kann mir jemand helfen?
PERSN ALT = '4123'
PERSN NEU = '7123'

[Robi]

update lib/file set feld = '7' concat substr(feld, 2, 3) where ...
mfg, robi

[LGALF]

Vielen Dank Robi,
ich habe dies gleich getestet, es funktioniert prima.
Ich spare mir durch SQL sehr viel Zeit.

m.f.G. Alf