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