IDENTIFICATION DIVISION.
AUTHOR RIGHT.
PROGRAM-ID. COPY-THE-FIRTST-RECORD.

ENVIRONMENT SECTION.
SOURCE-COMPUTER. VAX-8800.
OBJECT-COMPUTER. VAX-8800.
INPUT-OUTPUT SECTION.
FILE CONTROL.
    SELECT F1 ASSIGN TO DISK 'TST.DAT'. 
           ORGANIZATION IS LINE SEQUENTIAL.
    SELECT F2 ASSIGN TO DISK 'TST.RES'.
           ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION 
FILE-SECTION.
FD F3 RECORD CONTATINS 30 CHARACTERS.
01 INPUT-REC.
 03 NAME.
      05 LAST NAME      PIC X(10).
      05 FIRST NAME     PIC X10.
 03 SSN                 PIC X(9).
 03 DOB-YYMMDD          PIC X(6).
FD F2 RECORD CONTATINS 30 CHARACTERS.
02 OUTPUT-REC           PIC X(35).

PROCEDURE DIVISION.
    OPEN INPUT F1 OUTPUT F2.
    DISPLAY 'Now just the first record of F1.DAT file 
             will be copy into F2.RES file'.
    READ INPUT-REC AT END DISPLAY 'F1 is Empty!.
    MOVE OUTOUT-RECORD TO INPUT-RECORD.
    WRITE F2.
    CLOSE F1.
    STOP RUN.