title: What does this return code mean? IGYPS0009-E
body: <p>I'm writing a COBOL code and cannot figure out why this error code which reads</p>
  
  <blockquote>
    <p>"OPEN" should not begin in area "A". It was processed as if found in area "B"</p>
  </blockquote>
  
  <p>Specifically it is referring to the line under <code>PROCEDURE DIVISION</code> of <code>OPEN INPUT CUST-PROF</code></p>
  
  <pre><code>      *-----------------------
         IDENTIFICATION DIVISION.
        *-----------------------
         PROGRAM-ID.    FSOC050
        *--------------------
         ENVIRONMENT DIVISION.
        *--------------------
         INPUT-OUTPUT SECTION.
        *
         FILE-CONTROL.
             SELECT CUST-PROF  ASSIGN TO CUSTPROF
                    ORGANIZATION IS SEQUENTIAL.
        *-------------
         DATA DIVISION.
        *-------------
         FILE SECTION.
         FD  CUST-PROF RECORDING MODE F.
         01  CUST-PROF-01.
             05  CUST-NO             PIC X(6).
             05  CUST-NAME           PIC X(35).
             05  CUST-STREET-ADDR    PIC X(25).
             05  CUST-CITY           PIC X(11).
             05  CUST-STATE          PIC X(2).
             05  CUST-CARD-TYPE      PIC X(4).
             05  CUST-CARD-EXP-MO    PIC X(2).
             05  CUST-CARD-EXP-YR    PIC X(2).
             05  CUST-CARD-NO        PIC X(19).
             05  FILLER              PIC X(21).
        *
         WORKING-STORAGE SECTION.
         01 CUST-NO-SRCH               PIC X(6).
         01 FLAGS.
             05 LASTREC                PIC X VALUE 'N'.
                88 LAST-REC                  VALUE 'Y'.
        *------------------
         PROCEDURE DIVISION.
        *------------------
         OPEN-FILES.
             ACCEPT CUST-NO-SRCH.
        *
             DISPLAY "SEARCH RECORDS FOR " CUST-NO-SRCH.
        *
          OPEN INPUT  CUST-PROF.
        *
             PERFORM UNTIL LAST-REC
                READ CUST-PROF
                   AT END SET LAST-REC TO TRUE
                   NOT AT END
                   IF CUST-NO-SRCH = CUST-NO
                     DISPLAY "CUSTOMER NAME = "
                      CUST-NAME
                   END-IF
                END-READ
             END-PERFORM.
        *
             CLOSE CUST-PROF.
             STOP RUN.
        *
  </code></pre>