1IDENTIFICATION input.cbl /^ IDENTIFICATION DIVISION.$/;" D 2MAIN input.cbl /^ MAIN.$/;" p 3PROCEDURE input.cbl /^ PROCEDURE DIVISION.$/;" D 4Test program name input.cbl /^ PROGRAM-ID. 'Test program name'.$/;" P 5