IDENTIFICATION DIVISION.
       PROGRAM-ID. PRTDEMO.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT SALIDA ASSIGN SALID
      *      ORGANIZATION IS LINE SEQUENTIAL
             FILE STATUS IS WS-FS-SALI.
       DATA DIVISION.
       FILE SECTION.
       FD SALIDA
      *      LABEL RECORDS ARE OMITTED.
            BLOCK CONTAINS 0 RECORDS
            RECORDING MODE IS F.
       01 REG-SALIDA PIC X(79).
       WORKING-STORAGE SECTION.
       77  WS-FS-SALI      PIC XX   VALUE SPACES.

       01 WS-REG-SALIDA.
           03 WS-A      PIC X(30) VALUE SPACES.
           03 FILLER    PIC X VALUE SPACE.
           03 WS-B      PIC X(30) VALUE SPACES.

           03 FILLER    PIC X(01)     VALUE SPACES.
           03 WS-C      PIC X(18)     VALUE SPACES.

       PROCEDURE DIVISION.
           OPEN OUTPUT SALIDA.
           IF WS-FS-SALI IS NOT EQUAL '00'
              DISPLAY '* ERROR EN OPEN  = ' WS-FS-SALI
              GOBACK
           END-IF.
           MOVE "HOLA MUNDO IMPRESO" TO REG-SALIDA.
           WRITE REG-SALIDA AFTER PAGE.
           WRITE REG-SALIDA AFTER 1
           DISPLAY WS-FS-SALI.
           CLOSE SALIDA.
           GOBACK.