IDENTIFICATION DIVISION.
      *****************************************************************
      * This program is provided for demonstration
      * and educational purposes
      * only by Ryan McFarland Corporation (a division
      * of Liant Software).
      * It is neither supported nor warranted by Ryan
      * McFarland Corporation.
      * (c) 1992, 1995 Ryan McFarland Corporation.  All
      * rights reserved.
      *****************************************************************
       PROGRAM-ID.  EBCASC.
      *CONVERTING AN ASCII DATA FILE TO EBCDIC
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           ALPHABET EBCDIC IS EBCDIC.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IN-FILE ASSIGN TO DISK
               ORGANIZATION IS BINARY SEQUENTIAL
               FILE STATUS IS IN-FILE-STATUS.
           SELECT OUT-FILE ASSIGN TO DISK
               ORGANIZATION IS BINARY SEQUENTIAL
               CODE-SET IS EBCDIC
               FILE STATUS IS OUT-FILE-STATUS.
       DATA DIVISION.
       FILE SECTION.
       FD IN-FILE.
       01  IN-REC      PIC X(256).
       FD OUT-FILE
           CODE-SET IS EBCDIC.
       01  OUT-REC      PiC X(256).
       WORKING-STORAGE SECTION.
       01 IN-FILE-STATUS   PIC XX.
       01 OUT-FILE-STATUS  PIC XX.
       01 FILE-STATUS-CODES PIC XX.
           88 AT-END   VALUE "10".
       PROCEDURE DIVISION.
       BEGINNING.
           OPEN INPUT IN-FILE.
           OPEN OUTPUT OUT-FILE.
           PERFORM READ-IN-FILE UNTIL AT-END.
           CLOSE IN-FILE.
           CLOSE OUT-FILE.
           STOP RUN.

       READ-IN-FILE.
           READ IN-FILE NEXT RECORD.
           MOVE IN-REC TO OUT-REC.
           WRITE OUT-REC.