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