01  ER-(FileName).
           05 FS-(FileName)                VALUE "00".
              88 END-(FileName)            VALUE "10".
              88 OK-(FileName)             VALUE "00"
                                            THRU "09".
              88 CREATED-(FileName)        VALUE "05".
              88 AFTER-END-(FileName)      VALUE "46".
              88 DUPLICATE-(FileName)      VALUE "22".
              88 NOT-FOUND-(FileName)      VALUE "23".
              88 EXCLUSIVE-(FileName)      VALUE "9A".
              88 LOCKED-(FileName)         VALUE "9D".
              88 NOT-EXIST-(FileName)      VALUE "30"
                                                 "35".
              6                 PIC 9(001).
              88 SYSTEMERR-(FileName)      VALUE 9.
              6  RT-(FileName)
                         COMP-X PIC 9(002).
           05 LB-(FileName)     PIC X(255) VALUE
              SPACES.
           05 COMP-5.
            6 FLAG-(FileName)   PIC 9(001) VALUE 0.
              88 OPENED-(FileName)         VALUE 1
                                           FALSE 0.
            6 LINE-(FileName)   PIC 9(001) VALUE 0.
            6 COLUMN-(FileName) PIC 9(001) VALUE 0.
            6 SIZE-(FileName)   PIC 9(001) VALUE 0.
            6 RD-(FileName)     PIC 9(018) VALUE 0.
            6 LS-(FileName)     PIC 9(018) VALUE 0.
            6 WR-(FileName)     PIC 9(018) VALUE 0.
            6 RW-(FileName)     PIC 9(018) VALUE 0.
            6 DL-(FileName)     PIC 9(018) VALUE 0.