From 98ff61e00e8356619c45db4f1639eb9d38cab8a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Victor?= <bjorn@victor.se>
Date: Mon, 23 Aug 2021 18:08:56 +0200
Subject: [PATCH] Avoid errors when overwriting last year's report by deleting
 it first

---
 src/syseng/{pft.149 => pft.150} | 8 ++++++++
 1 file changed, 8 insertions(+)
 rename src/syseng/{pft.149 => pft.150} (99%)

diff --git a/src/syseng/pft.149 b/src/syseng/pft.150
similarity index 99%
rename from src/syseng/pft.149
rename to src/syseng/pft.150
index fa212424..6bf275f0 100755
--- a/src/syseng/pft.149
+++ b/src/syseng/pft.150
@@ -1282,6 +1282,14 @@ MNTHL1:	SKIPE NERRS
 	CAIL T,1
 	 CAILE T,12.
 	  .VALUE			;random month
+	;; Avoid errors when overwriting last year's report by deleting it first
+	.CALL [	SETZ
+		'DELETE
+		[SIXBIT /DSK/]
+		MONTHS(T)
+		[SIXBIT /REPORT/]
+		SETZ SNAME ]
+	 TRN			;ignore this error
 	.CALL [	SETZ
 		'RENMWO
 		MOVEI INCH