Ich habe das Problem das innerhalb eines Programmes eine Dataarea auf Fehler geht sobald ich diese ein zweites mal schreiben will.
Die Dataarea ist wie folgt definiert:

D dsLast UDS DTAARA('LASTUMS272')
D vDate 1 8A
D vLJJ 1 4A
D vLMM 5 6A
D vLTT 7 8A
D vLastName 9 32A

Gelesen wird sie mit:

in dsLast;

if dsLast.vDate <> *blanks;
LDATE = dsLast.vLTT + '.' + dsLast.vLMM + '.' +dsLast.vLJJ;
LASTNAME = dsLast.vLastName;
endif;

und geschrieben mit:

dsLast.vDate = GetJobDate('JJJJMMTT');
dsLast.vLastName = %trim(pUSER);

out dsLast;

Mein Problem dabei ist wenn die Dataara das zweite mal geschrieben werden soll kommt folgende Fehlermeldung:

Datenbereich *LIBL/LASTUMS272 ist nicht für die Ausgabe zugeordnet.
Funktionsprüfung. RNX0412 nicht überwacht durch UMS272A bei Anweisung
0000008875, Instruktion X'0000'.

Ich habe schon probiert mit lock und unlock das Problem zu lösen. Hatte damit aber keinen Erfolg.

Was mache ich falsch?