diff --git a/docs/sysutex/Makefile b/docs/sysutex/Makefile
index f92df73064..6d28c34171 100644
--- a/docs/sysutex/Makefile
+++ b/docs/sysutex/Makefile
@@ -32,7 +32,7 @@ endif
 
 .PHONY: all tex clean
 
-OBJECTS=ex1 ex2 ex3 ex4 ex5
+OBJECTS=ex1 ex2 ex3 ex4 ex5 ex6 ex7 ex8 ex9 ex10 ex11 ex12
 
 TEXOBJECTS=$(addsuffix .tex, $(OBJECTS))
 
diff --git a/docs/sysutex/README b/docs/sysutex/README
index 51d9156120..efa91b3ccc 100644
--- a/docs/sysutex/README
+++ b/docs/sysutex/README
@@ -6,3 +6,9 @@ ex3.pp contains an example of the DateTimeToStr function.
 ex4.pp contains an example of the DateTimeToString function.
 ex5.pp contains an example of the DateTimeToSystemTime function.
 ex6.pp contains an example of the DateTimeToTimeStamp function.
+ex7.pp contains an example of the DateToStr function.
+exex8.pp contains an example of the DayOfWeek function.
+ex9.pp contains an example of the DecodeDate function.
+ex10.pp contains an example of the DecodeTime function.
+ex11.pp contains an example of the EncodeDate function.
+ex12.pp contains an example of the EncodeTime function.
diff --git a/docs/sysutex/ex10.pp b/docs/sysutex/ex10.pp
new file mode 100644
index 0000000000..48c03b09d2
--- /dev/null
+++ b/docs/sysutex/ex10.pp
@@ -0,0 +1,12 @@
+Program Example10;
+
+{ This program demonstrates the DecodeTime function }
+
+Uses sysutils;
+
+Var HH,MM,SS,MS: Word;
+
+Begin
+  DecodeTime(Time,HH,MM,SS,MS);
+  Writeln (format('The time is %d:%d:%d.%d',[hh,mm,ss,ms]));
+End.
\ No newline at end of file
diff --git a/docs/sysutex/ex11.pp b/docs/sysutex/ex11.pp
new file mode 100644
index 0000000000..f75ccb18c5
--- /dev/null
+++ b/docs/sysutex/ex11.pp
@@ -0,0 +1,12 @@
+Program Example11;
+
+{ This program demonstrates the EncodeDate function }
+
+Uses sysutils;
+
+Var YY,MM,DD : Word;
+
+Begin
+  DecodeDate (Date,YY,MM,DD);
+  WriteLn ('Today is : ',FormatDateTime ('dd mmmm yyyy',EnCodeDate(YY,Mm,Dd)));
+End.
\ No newline at end of file
diff --git a/docs/sysutex/ex12.pp b/docs/sysutex/ex12.pp
new file mode 100644
index 0000000000..0b37a66afe
--- /dev/null
+++ b/docs/sysutex/ex12.pp
@@ -0,0 +1,12 @@
+Program Example12;
+
+{ This program demonstrates the EncodeTime function }
+
+Uses sysutils;
+
+Var Hh,MM,SS,MS : Word;
+
+Begin
+  DeCodeTime (Time,Hh,MM,SS,MS);
+  Writeln ('Present Time is : ',FormatDateTime('hh:mm:ss',EnCodeTime (HH,MM,SS,MS)));
+End.
\ No newline at end of file
diff --git a/docs/sysutex/ex7.pp b/docs/sysutex/ex7.pp
new file mode 100644
index 0000000000..474af8bdd4
--- /dev/null
+++ b/docs/sysutex/ex7.pp
@@ -0,0 +1,9 @@
+Program Example7;
+
+{ This program demonstrates the DateToStr function }
+
+Uses sysutils;
+
+Begin
+  Writeln(Format ('Today is: %s',[DateToStr(Date)]));
+End.
\ No newline at end of file
diff --git a/docs/sysutex/ex8.pp b/docs/sysutex/ex8.pp
new file mode 100644
index 0000000000..e727626726
--- /dev/null
+++ b/docs/sysutex/ex8.pp
@@ -0,0 +1,9 @@
+Program Example8;
+
+{ This program demonstrates the DayOfWeek function }
+
+Uses sysutils;
+
+Begin
+  Writeln ('Today''s day is ',LongDayNames[DayOfWeek(Date)]);
+End.
\ No newline at end of file
diff --git a/docs/sysutex/ex9.pp b/docs/sysutex/ex9.pp
new file mode 100644
index 0000000000..f0e9815d38
--- /dev/null
+++ b/docs/sysutex/ex9.pp
@@ -0,0 +1,12 @@
+Program Example9;
+
+{ This program demonstrates the DecodeDate function }
+
+Uses sysutils;
+
+Var YY,MM,DD : Word;
+
+Begin
+  DecodeDate(Date,YY,MM,DD);
+  Writeln (Format ('Today is %d/%d/%d',[dd,mm,yy]));
+End.
\ No newline at end of file