       01  CCB.
           02  REF-CODE COMP VALUE ZERO.
           02  PAGE-NO  PIC 9(8).
           02  LINE-NO  PIC 9(3).
           02  FRST-REF COMP.
           02  LAST-REF COMP.
           02  GRP-NO   COMP.
           02  ERR-CODE COMP.
           02  ERR-NO   COMP.
           02  ERR-REF  COMP.
           02  PASSWORD PIC X(8) VALUE SPACES.
           02  AREA-NO  PIC 99.
       01  SET-TABLES COMP.
           02  WSISET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  NAMESSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
       01  AREA-TABLE.
           02  QSP-AREA PIC X(4) VALUE SPACES.
       01  HEADER.
           02  AREANUMB COMP.
           02  CURR-001 COMP.
       01  WSI.
           02  POINTER COMP.
           02  WORKING COMP.
           02  TYPES COMP.
           02  CURR-002 COMP.
       01  ITEMNAME.
           02  ITEMS PIC X(32).
           02  POINTER1 COMP.
           02  WORKING1 COMP.
           02  TYPES1 COMP.
           02  CURR-003 COMP.
       01  AREA-MASTERS-01 COMP.
           02  CURR-1000.
           02  CALCSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
