identification division. environment division. data division. working-storage section. 77 ant pic 9. 01 stat pic 9(5). procedure division. move 95002 to stat. call mbox using ant 110 'Fehler' 'Dieser Status ' stat ' ist fatal'.