Fehlerhafte Anweisung ist 8799:

8795 C EXSR #GetAdm
8796 C*
8797 C IF PFunct = 'ADD' OR
8798 C PFunct = 'CHG'
8799 C EXFMT FORMAT2
8800 C ELSE
8801 C WRITE FORMAT2
8802 C ENDIF