Filler Pic

IDENTIFICATION DIVISION. PROGRAM-ID. VALID. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-PC. OBJECT-COMPUTER. IBM-PC. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INFILE ASSIGN TO 'CHAVEZIN'. SELECT OUTFILE ASSIGN TO 'CHAVEZ'. DATA DIVISION. FILE SECTION. FD INFILE LABEL RECORD IS STANDARD DATA RECORD IS INREC. 01 INREC. 02 FILLER PIC X(80). 02 D-ENUM PIC 9(10). 02 D-ENAME PIC X(25). 02 D-DBIRTH PIC X(10). 02 D-UNAME PIC X(5). 02 D-CNAME PIC X(4). 02 D-SCORE PIC 9(3). 02 D-REM PIC X(6). FD OUTFILE LABEL RECORD IS OMITTED DATA RECORD IS OUTREC. 01 OUTREC. 02 FILLER PIC X(80). WORKING-STORAGE SECTION. 01 ENUM PIC 9(10). 01 ENAME PIC X(25). 01 DBIRTH PIC X(10). 01 UNAME PIC X(5). 01 CNAME PIC X(4). 01 REM PIC X(6). 01 UCODE PIC 9. 01 CCODE PIC 9. 01 ITEMS PIC 9(3). 01 SCORE PIC 99. 01 VALID-REC PIC X. 01 VALID PIC 9. 01 RATE PIC 99V99. 01 PASSED PIC 99. 01 FAILED PIC 99. 01 EOFSW PIC 9. 01 GETCH PIC X.

01 HEADING1. 02 FILLER PIC X(24) VALUE SPACES. 02 FILLER PIC X(34) VALUE 'PROFESSIONAL REGULATION COMISSION'. 01 HEADING2. 02 FILLER PIC X(24) VALUE SPACES. 02 FILLER PIC X(33) VALUE 'IT PROFESSIONAL BOARDEXAM RESULT'.

01 SUB1. 02 FILLER PIC X(2) VALUE SPACES. 02 FILLER PIC X(8) VALUE 'Examinee'. 02 FILLER PIC X(5) VALUE SPACES. 02 FILLER PIC X(8) VALUE 'Examinee'. 02 FILLER PIC X(4) VALUE SPACES. 02 FILLER PIC X(13) VALUE 'Date of Birth'. 02 FILLER PIC X(4) VALUE SPACES. 02 FILLER PIC X(10) VALUE 'University'. 02 FILLER PIC X(2) VALUE SPACES. 02 FILLER PIC X(8) VALUE ' Course '. 02 FILLER PIC X(4) VALUE SPACES. 02 FILLER PIC X(7) VALUE 'REMARKS'. 01 SUB2. 02 FILLER PIC X(2) VALUE SPACES. 02 FILLER PIC X(6) VALUE 'Number'. 02 FILLER PIC X(7) VALUE SPACES.