שינוי מודול למסך

השתמש בפרוצדורה הבאה אשר מקבלת פרמטר אחד, EXE, שבנוי על EXEC.ENAME. הפרוצדורה תשנה כל ישות בעלת אותו שם, כך אם יש פרוצדורה שמפעילה דו"ח באותו שם, שניהם יקבלו עדכון.

LINK EXEC TO :$.EXE;
ERRMSG 1 WHERE :RETVAL <= 0;
DECLARE CUR CURSOR FOR
SELECT EXEC FROM EXEC
WHERE EXEC > 0;
OPEN CUR;
GOTO 300 WHERE :RETVAL <= 0
;
LABEL 100;
FETCH CUR INTO :EXEC;
GOTO 200 WHERE :RETVAL <= 0;
UPDATE EXEC ORIG
SET EDES = 'TEST'
WHERE EXEC = :EXEC;
UPDATE EXECMODULE
SET MODULE = 1
WHERE EXEC = :EXEC;
LOOP 100
;
LABEL 200;
CLOSE CUR;
LABEL 300;
UNLINK EXEC;