000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. COPY1REC.
000300 AUTHOR. RIGHT.
000400 ENVIRONMENT DIVISION.
000500*CONFIGURATION SECTION.
000600*SOURCE-COMPUTER. VAX-8800.
000700*OBJECT-COMPUTER. VAX-8800.
000800 INPUT-OUTPUT SECTION.
000900 FILE-CONTROL.
001000     SELECT F1 ASSIGN TO DISK 'TST.DAT'
001100            ORGANIZATION IS LINE SEQUENTIAL.
001200     SELECT F2 ASSIGN TO DISK 'TST.RES'
001300            ORGANIZATION IS LINE SEQUENTIAL.
001500 DATA DIVISION.
001600 FILE SECTION.
001700 FD F1 RECORD CONTAINS 35 CHARACTERS.
001800 01 INPUT-REC.
001900     03 NAME.
002000        05 LAST-NAME      PIC X(10).
002100        05 FIRST-NAME     PIC X(10).
002200     03 SSN                 PIC X(9).
002300     03 DOB-YYMMDD          PIC X(6).
002400 FD F2 RECORD CONTAINS 35 CHARACTERS.
002500 01 OUTPUT-REC           PIC X(35).
002700 PROCEDURE DIVISION.
002800 MAIN-PARA.
002900     OPEN INPUT F1 OUTPUT F2.
003000     DISPLAY 'Now just the first record of F1.DAT file'.
003100     DISPLAY 'will be copy into TST.RES file'.
003200     READ F1 AT END DISPLAY 'F1 is Empty!'.
003300     MOVE INPUT-REC TO OUTPUT-REC.
003400     WRITE OUTPUT-REC.
003500     CLOSE F1 F2.
003600     STOP RUN.