       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  PASSWSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  SSCHMSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  AREASET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  NAMESET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  GROUPC.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  INDEXSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  GRPRET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  MEMBRSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  OWNERSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  DESCPSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  MODFYSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  SETLINK.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  CTRLSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  ALIASSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  INAMESET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  GNAMESET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-GRP.
           02  SNAMESET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  GSTATSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  SSTATSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  MKALTSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  ALNAMSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
           02  HDRSET.
               03  SET-OWNR.
               03  SET-PRIR.
               03  SET-CURR.
               03  SET-NEXT.
               03  SET-GRP.
       01  AREA-TABLE.
           02  SCHEBASE PIC X(4) VALUE SPACES.
       01  AREAGP.
           02  NAMESIZE PIC X.
           02  AREANAME PIC X(30).
           02  AREANO PIC X.
           02  INVPERCT PIC 99.
           02  NBROFLIN PIC 9.
           02  CHECKSUM PIC 9.
           02  FILPERCT PIC 99.
           02  JOURNAL PIC 9.
           02  ENCIPHER PIC 9.
           02  INDEXIND PIC 9.
           02  AOWNER PIC 9.
           02  AREAFIL1 COMP.
           02  DATAPGES COMP.
           02  PAGESIZE COMP.
           02  KEYSIZE COMP.
           02  RETUSERS COMP.
           02  UPDUSERS COMP.
           02  PAGEIO COMP.
           02  GRPSACSED COMP.
           02  GRPSINSD COMP.
           02  GRPSDLTD COMP.
           02  AREAFIL2 COMP.
           02  CURR-001 COMP.
       01  UNITT.
           02  GROUPNO PIC 9(4).
           02  LOCATMOD PIC 9.
           02  INVTITEM PIC 9.
           02  GRPRLOCK PIC 999.
           02  GRPULOCK PIC 999.
           02  STRGESET PIC 9.
           02  SECINDEX PIC 9.
           02  NUMKEYS PIC 9.
           02  DEFRGE PIC 9.
           02  GRPFLE1 COMP.
           02  GRPSIZE COMP.
           02  BEGPGRGE COMP.
           02  ENDPGRGE COMP.
           02  PRIMVALU COMP.
           02  GRPFIL2 COMP.
           02  CURR-002 COMP.
       01  ASOWNER.
           02  SETFILL1 COMP.
           02  SETNO PIC 9(4).
           02  OPSTNEXT COMP.
           02  OPSTNPRI COMP.
           02  SETFILL2 COMP.
           02  CURR-003 COMP.
       01  ASMEMBER.
           02  ORDER PIC 9.
           02  GRPNOKY PIC 9.
           02  DUPSIND PIC 9.
           02  OPTIONAL PIC 9.
           02  AUTOMANL PIC 9.
           02  PRIMARY PIC 9.
           02  STORAG PIC 9.
           02  SETOWNER PIC 9.
           02  OWNRNO PIC 9(4).
           02  MEMBFIL1 COMP.
           02  MPSTNEXT COMP.
           02  MPSTNPRI COMP.
           02  PSTNHEAD COMP.
           02  MEMBFIL2 COMP.
           02  CURR-004 COMP.
       01  ELEMENT.
           02  ITEMTYPE PIC 9.
           02  LEVELNBR PIC 999.
           02  OCCURCNT PIC 999.
           02  ITMRLOCK PIC 999.
           02  ITMULOCK PIC 999.
           02  INVTDNO PIC 999.
           02  DATAVLID PIC 9.
           02  CONTRL PIC 9.
           02  DEFPIC PIC 9.
           02  ITEMFIL1 COMP.
           02  ITEMPSTN COMP.
           02  ITEMSIZE COMP.
           02  ITEMFIL2 COMP.
           02  ITEMFIL3 COMP.
           02  ITEMFIL4 COMP.
           02  CURR-005 COMP.
       01  ASCNTROL.
           02  MATCHIND PIC 9.
           02  CTRLTYPE PIC 9.
           02  CTRLFIL1 PIC 99.
           02  CURR-006 COMP.
       01  SCHEMAHD.
           02  COPYSWD PIC X(8).
           02  ALTRSWD PIC X(8).
           02  PTRSIZE PIC 9.
           02  SCHFIL1 PIC XXX.
           02  SCHDATIM PIC X(20).
           02  SCHESIZE COMP.
           02  NUMPSWDS COMP.
           02  NUMOWNRS COMP.
           02  NUMMBRS COMP.
           02  CURR-007 COMP.
       01  PASWORD.
           02  PASSWRD PIC X(8).
           02  RKEYS COMP OCCURS 0008 TIMES.
           02  UKEYS COMP OCCURS 0008 TIMES.
           02  CURR-008 COMP.
       01  SSCHEM.
           02  SUBSNAME PIC X(30).
           02  ACCTNBR PIC X(8).
           02  SUBSDATE COMP.
           02  SUBSTIME COMP.
           02  CURR-009 COMP.
       01  INDX.
           02  BEGPGNBR COMP.
           02  ENDPGNBR COMP.
           02  DEFNTYPE PIC 9.
           02  INDXLEVL PIC 9.
           02  INDXFIL1 PIC 99.
           02  CURR-010 COMP.
       01  PICTUR.
           02  PICTCNT PIC X.
           02  ITEMPICT PIC X(30).
           02  SCALE PIC X.
           02  PICFILL1 COMP.
           02  CURR-011 COMP.
           02  LOWLIT1 COMP.
           02  HILIT1 COMP.
           02  CK1FIL1 COMP.
           02  CURR-012 COMP.
       01  CHECK2.
           02  LOWLIT2 PIC X(16).
           02  HILIT2 PIC X(16).
           02  CH2FIL1 COMP.
           02  CURR-013 COMP.
       01  ALIAS.
           02  CURR-014 COMP.
       01  GROUPRET.
           02  DATNAME PIC X(30).
           02  RTVLTYPE PIC 9.
           02  GRFILL1 PIC 9.
           02  CURR-015 COMP.
       01  NAMEGP.
           02  NAMEVALU PIC X(30).
           02  PRIMNAME PIC 9.
           02  NAMETYPE PIC 9.
           02  DUPNAME PIC 9.
           02  NAMFIL1 PIC 9(3).
           02  CURR-016 COMP.
       01  INAMLINK.
           02  CURR-017 COMP.
       01  GNAMLINK.
           02  CURR-018 COMP.
       01  SNAMLINK.
           02  CURR-019 COMP.
       01  GSTATS.
           02  NBRACDS COMP.
           02  NBRINSD COMP.
           02  NBRDLTD COMP.
           02  CURR-020 COMP.
       01  SSTATS.
           02  HEADACCS COMP.
           02  NEXTACCS COMP.
           02  PRIRACCS COMP.
           02  CURR-021 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.
