Erstelle ein SQLCBL-Programm.
Das Datum muss in ISO-Format (JJJJ-MM-TT) oder EUR-Format (TT.MM.JJJJ)
übergeben werden


77 MYDATE PIC X(10).
PROCEDURE DIVISION USING MYDATE.

EXEC SQL
SET OPTION COMMIT=*NONE
END-EXEC

EXEC SQL
SET :MYDATE = DATE(:MYDATE) - (DAYOFWEEK(DATE(:MYDATE)) - 1) DAYS
END-EXEC

GOBACK

Wenn du nun z.B. den 31.03.2011 übergibst erhältst du den 27.03.2011 zurück.