      * TEST01M.CPY
      * Copyright (C) 1991-2007 Micro Focus (IP) Limited.
      * All rights reserved.
      ***************  DEMO INSPECTION SERVICES DATA ENTRY MENU ********
       01  DEMO01-SCREEN.
           02  S01-CONSTANT-DATA.
             05  S01-ERRORMSG                       PIC X(79).
             05  S01-REQUESTORC                     PIC X(01).
             05  S01-REQUESTORA                     PIC X(01).
             05  S01-REQUESTOR.
                 07  S01-STOP                       PIC X(04).
                 07  FILLER                         PIC X(16).
             05  S01-PHONEC                         PIC X(01).
             05  S01-PHONEA                         PIC X(01).
             05  S01-PHONE                          PIC X(04).
             05  S01-ENTRY-DATE                     PIC X(08).
             05  S01-KEYC                           PIC X(01).
             05  S01-KEYA                           PIC X(01).
             05  S01-KEY                            PIC 9(07).
             05  S01-KEYZ REDEFINES S01-KEY         PIC Z(07).
             05  S01-REQUEST-DEPTC                  PIC X(01).
             05  S01-REQUEST-DEPTA                  PIC X(01).
             05  S01-REQUEST-DEPT                   PIC X(05).
             05  S01-LOCATIONC                      PIC X(01).
             05  S01-LOCATIONA                      PIC X(01).
             05  S01-LOCATION                       PIC X(05).
             05  S01-PRODUCTC                       PIC X(01).
             05  S01-PRODUCTA                       PIC X(01).
             05  S01-PRODUCT                        PIC X(07).
           02  S01-MATRIX.
             05  S01-LINE-DATA OCCURS 12 TIMES.
                 07  S01-PROBLEMC                   PIC X(01).
                 07  S01-PROBLEMA                   PIC X(01).
                 07  S01-PROBLEM                    PIC X(70).
           02  S01-RESIDUAL-DATA.
             05  S01-PRIORITYC                      PIC X(01).
             05  S01-PRIORITYA                      PIC X(01).
             05  S01-PRIORITY                       PIC X(01).
             05  S01-TESTERC                        PIC X(01).
             05  S01-TESTERA                        PIC X(01).
             05  S01-TESTER.
                 07  S01-TESTER5                    PIC X(05).
                 07  S01-TESTER15                   PIC X(15).
             05  S01-STATUSC                        PIC X(01).
             05  S01-STATUSA                        PIC X(01).
             05  S01-STATUS.
                 07  S01-STATUS1                    PIC X(01).
                 07  S01-STATUS14                   PIC X(14).
             05  S01-PRIMARYC                       PIC X(01).
             05  S01-PRIMARYA                       PIC X(01).
             05  S01-PRIMARY                        PIC X(01).
             05  S01-REVIEWC                        PIC X(01).
             05  S01-REVIEWA                        PIC X(01).
             05  S01-REVIEW                         PIC X(07).
             05  S01-EXITC                          PIC X(01).
             05  S01-EXITA                          PIC X(01).
             05  S01-EXIT                           PIC X(01).
