      * TESTSPA.CPY
      * Copyright (C) 1991-2007 Micro Focus (IP) Limited.
      * All rights reserved.
       01  SPA-IO-AREA.
           03  SPA-REQUIRED-DATA.
               05  SPA-PREFIX               PIC X(06).
               05  SPA-DEST-TRANCODE        PIC X(08).
               05  SPA-ORIG-TRANCODE        PIC X(08).
               05  FILLER REDEFINES SPA-ORIG-TRANCODE.
                   07 SPA-REQUEST-DEPT      PIC X(05).
                   07 FILLER                PIC X(03).
               05  SPA-PHASE                PIC X(01).
               05  SPA-FUNCTION             PIC X(01).
               05  SPA-STATUS               PIC X(01).
               05  SPA-TEST-NO              PIC 9(08) COMP.
               05  SPA-DETS-CNT             PIC 9(04) COMP.
               05  SPA-PLTERM               PIC X(08).
      **
           03  SPA-MATRIX.
               05  FILLER OCCURS 12 TIMES.
                   07  SPA-PROBLEM          PIC X(70).
           03  SPA-PRINT                    PIC X(01).
           03  SPA-FILLER                   PIC X(120).
