home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / cobol600 / upcase.cob < prev   
Encoding:
Text File  |  1991-03-08  |  1.8 KB  |  53 lines
  1.        IDENTIFICATION DIVISION .
  2.        PROGRAM-ID . UPCASE .
  3.        ENVIRONMENT DIVISION .
  4.        INPUT-OUTPUT SECTION .
  5.        FILE-CONTROL .
  6.            SELECT EINGABE ASSIGN TO EXTERNAL EINGABE
  7.                          ORGANIZATION LINE SEQUENTIAL
  8.                          ACCESS SEQUENTIAL .
  9.            SELECT AUSGABE ASSIGN TO EXTERNAL AUSGABE
  10.                          ORGANIZATION LINE SEQUENTIAL
  11.                          ACCESS SEQUENTIAL .
  12.        DATA DIVISION .
  13.        FD EINGABE RECORD IS VARYING FROM 0 TO 80  .
  14.        01 EINGABE-RC .
  15.           05 FILLER PIC X(80) .
  16.        FD AUSGABE .
  17.        01 AUSGABE-RC .
  18.           05 FILLER PIC X(80) .
  19.        WORKING-STORAGE SECTION .
  20.        01 DATEINAME-AUSGABE PIC X(14) VALUE SPACE .
  21.        01 DATEINAME-EINGABE PIC X(14) VALUE SPACE .
  22.        01 EINGABE-NAME PIC X(8) VALUE SPACE .
  23.        01 AUSGABE-NAME PIC X(8) VALUE SPACE .
  24.        01 DATEIENDE-EINGABE PIC 9 VALUE 0 .
  25.        01 JA PIC 9 VALUE 1 .
  26.        01 NEIN PIC 9 VALUE 0 .
  27.        PROCEDURE DIVISION .
  28.        ACTION SECTION .
  29.        HAUPT .
  30.            OPEN INPUT EINGABE
  31.            OPEN OUTPUT AUSGABE
  32.            READ EINGABE
  33.               AT END
  34.                  MOVE JA TO DATEIENDE-EINGABE
  35.            END-READ
  36.            PERFORM DATEIUMSETZEN UNTIL DATEIENDE-EINGABE = JA
  37.            CLOSE EINGABE
  38.            CLOSE AUSGABE
  39.            STOP RUN .
  40.        DATEIUMSETZEN .
  41.            MOVE EINGABE-RC TO AUSGABE-RC
  42.            INSPECT AUSGABE-RC CONVERTING
  43.                               "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  44.                               TO
  45.                               "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  46.            DISPLAY EINGABE-RC
  47.            DISPLAY AUSGABE-RC
  48.            WRITE AUSGABE-RC
  49.            READ EINGABE
  50.               AT END
  51.                  MOVE JA TO DATEIENDE-EINGABE
  52.            END-READ .
  53.