       01  DEMO92-SCREEN.
           03  DEMO92-DATA.
               05 DEMO92-TRANSCODE       PIC X(79).
               05 DEMO92-PROGRAM-NO      PIC X(08).
               05 DEMO92-TYPEC           PIC X(01).
               05 DEMO92-TYPEA           PIC X(01).
               05 DEMO92-TYPE            PIC X(07).
               05 DEMO92-TABLE-IDC       PIC X(01).
               05 DEMO92-TABLE-IDA       PIC X(01).
               05 DEMO92-TABLE-ID        PIC X(32).
               05 DEMO92-ERR-MSG         PIC X(35).
               05 DEMO92-LAST-KEYC       PIC X(01).
               05 DEMO92-LAST-KEYA       PIC X(01).
               05 DEMO92-LAST-KEY        PIC X(20).
               05 DEMO92-PROCESS-IND     PIC X(01).
               05 DEMO92-STATUS          PIC X(01).
               05 DEMO92-ISRT-ROOT       PIC X(01).
               05 DEMO92-EXPAND          PIC X(13).
               05 DEMO92-DESCC           PIC X(01).
               05 DEMO92-DESCA           PIC X(01).
               05 DEMO92-DESC            PIC X(50).
               05 DEMO92-ELE-KEY-CNTC    PIC X(01).
               05 DEMO92-ELE-KEY-CNTA    PIC X(01).
               05 DEMO92-ELE-KEY-CNTX    PIC X(02).
               05 DEMO92-ELE-KEY-CNT REDEFINES DEMO92-ELE-KEY-CNTX
                                         PIC 9(02).
               05 DEMO92-ELE-CHRC        PIC X(01).
               05 DEMO92-ELE-CHRA        PIC X(01).
               05 DEMO92-ELE-CHRX        PIC X(02).
               05 DEMO92-ELE-CHR REDEFINES DEMO92-ELE-CHRX
                                         PIC 9(02).
               05 DEMO92-ACT-DATEC       PIC X(01).
               05 DEMO92-ACT-DATEA       PIC X(01).
               05 DEMO92-ACT-DATE        PIC X(08).
               05 DEMO92-TBL-PROTC       PIC X(01).
               05 DEMO92-TBL-PROTA       PIC X(01).
               05 DEMO92-TBL-PROT        PIC X(01).
               05 DEMO92-TBL-PSWC        PIC X(01).
               05 DEMO92-TBL-PSWA        PIC X(01).
               05 DEMO92-TBL-PSW         PIC X(08).
               05 DEMO92-ELE-NUM-KEYC    PIC X(01).
               05 DEMO92-ELE-NUM-KEYA    PIC X(01).
               05 DEMO92-ELE-NUM-KEY     PIC X(01).
               05 DEMO92-ELE-NUM-VALC    PIC X(01).
               05 DEMO92-ELE-NUM-VALA    PIC X(01).
               05 DEMO92-ELE-NUM-VAL     PIC X(01).
           03  DEMO92-MATRIX.
               05  CRT-LINE OCCURS 14 TIMES.
                   07  DEMO92-FUNCC      PIC X(01).
                   07  DEMO92-FUNCA      PIC X(01).
                   07  DEMO92-FUNC       PIC X(01).
                   07  DEMO92-ELE-KEYC   PIC X(01).
                   07  DEMO92-ELE-KEYA   PIC X(01).
                   07  DEMO92-ELE-KEY    PIC X(20).
                   07  DEMO92-ELE-DATAC  PIC X(01).
                   07  DEMO92-ELE-DATAA  PIC X(01).
                   07  DEMO92-ELE-DATA   PIC X(50).
           03  DEMO92-NEXT-FUNC.
               05  DEMO92-RETURNC        PIC X(01).
               05  DEMO92-RETURNA        PIC X(01).
               05  DEMO92-RETURN         PIC X(01).
               05  DEMO92-CONTC          PIC X(01).
               05  DEMO92-CONTA          PIC X(01).
               05  DEMO92-CONT           PIC X(01).
               05  DEMO92-ABORTC         PIC X(01).
               05  DEMO92-ABORTA         PIC X(01).
               05  DEMO92-ABORT          PIC X(01).
               05  DEMO92-NEXT-KEYC      PIC X(01).
               05  DEMO92-NEXT-KEYA      PIC X(01).
               05  DEMO92-NEXT-KEY       PIC X(20).
