PROGRAM-ID.g.PROCEDURE DIVISION.DISPLAY"ERROR".