github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-04 23:54:37 +00:00
Code Issues Releases Wiki Activity

Avoid errors when overwriting last year's report by deleting it first

Browse Source
This commit is contained in:
Björn Victor
2021-08-23 18:08:56 +02:00
committed by Lars Brinkhoff
parent ddc1a804ec
commit 98ff61e00e
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/syseng/pft.149 → src/syseng/pft.150
View File

@@ -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