1AUTHOR input.cbl /^ AUTHOR. TSH.$/;" p 2D-EMP-NAME input.cbl /^ 05 D-EMP-NAME PIC X(20).$/;" d group:D-EMP-REC 3D-EMP-NO input.cbl /^ 05 D-EMP-NO PIC 9(04).$/;" d group:D-EMP-REC 4D-EMP-REC input.cbl /^ 01 D-EMP-REC.$/;" g 5D-EMP-SALARY input.cbl /^ 05 D-EMP-SALARY PIC --,--9.$/;" d group:D-EMP-REC 6DATA input.cbl /^ DATA DIVISION.$/;" D 7DATE-WRITTEN input.cbl /^ DATE-WRITTEN. 2013-06-28.$/;" p 8DBNAME input.cbl /^ 01 DBNAME PIC X(30) VALUE SPACE.$/;" d 9EMP-CNT input.cbl /^ 01 EMP-CNT PIC 9(04).$/;" d 10EMP-NAME input.cbl /^ 05 EMP-NAME PIC X(20) .$/;" d group:EMP-REC-VARS 11EMP-NO input.cbl /^ 05 EMP-NO PIC S9(04).$/;" d group:EMP-REC-VARS 12EMP-REC-VARS input.cbl /^ 01 EMP-REC-VARS.$/;" g 13EMP-SALARY input.cbl /^ 05 EMP-SALARY PIC S9(04).$/;" d group:EMP-REC-VARS 14END-EVALUATE input.cbl /^ END-EVALUATE.$/;" p 15END-PERFORM input.cbl /^ END-PERFORM.$/;" p 16ERROR-RTN input.cbl /^ ERROR-RTN.$/;" p 17FETCHTBL input.cbl /^ PROGRAM-ID. FETCHTBL.$/;" P 18IDENTIFICATION input.cbl /^ IDENTIFICATION DIVISION.$/;" D 19MAIN-RTN input.cbl /^ MAIN-RTN.$/;" p 20PASSWD input.cbl /^ 01 PASSWD PIC X(10) VALUE SPACE.$/;" d 21PROCEDURE input.cbl /^ PROCEDURE DIVISION.$/;" D 22USERNAME input.cbl /^ 01 USERNAME PIC X(30) VALUE SPACE.$/;" d 23WORKING-STORAGE input.cbl /^ WORKING-STORAGE SECTION.$/;" s 24