*COMDECK UPDCS
       COMMON-STORAGE SECTION.
       77  RETURN-CODE PICTURE 99.
*CALL DCUPDLNK
      ******************************************************* 
      *  ENTRY TABLE
      ******************************************************* 
       01  ENTRY-TABLE. 
           03  ENT-TAB OCCURS 18 TIMES. 
               05  ENTRY-NAME            PICTURE X(15). 
               05  ENTRY-ID              PICTURE 99.
               05  ENT-DIR-START         PICTURE XXX. 
       01  CATG-TABLE.
           03  CATG-TAB  PICTURE X(108) OCCURS 35 TIMES.
      ******************************************************* 
      *  OPTION  EDIT LINKAGE AREA                          * 
      ********************************************************
       01  LINK-AREA-OPT. 
           03  RUN-OPTION.
             05  HOLD-REV PICTURE 9(5). 
             05  EDIT-OPT PICTURE X.
             05  ON-LINE-SW PICTURE X.
             05  PASS-WORD PICTURE X(5).
             05  USER-OPT PICTURE X(3). 
             05  QUOTE-OPT PICTURE X. 
           03  HOLD-DBMS PICTURE X. 
           03  HOLD-NAME PICTURE X(27). 
           03  HOLD-ADDR PICTURE X(27). 
           03  CUR-DATE PICTURE X(6). 
           03  TOT-TX-READ PICTURE 9(5).
           03  HOLD-PRIME-D PICTURE 9(5). 
           03  HOLD-PRIME-R PICTURE 9(5). 
           03  TOT-ENT-PROC PICTURE 9(5). 
           03  TOT-ENT-ADD PICTURE 9(5).
           03  TOT-ENT-CHG PICTURE 9(5).
           03  TOT-ENT-DEL PICTURE 9(5).
           03  TOT-S PICTURE 9(5).
           03  TOT-W PICTURE 9(5).
           03  TOT-03 PICTURE 9(5). 
           03  TOT-05 PICTURE 9(5). 
           03  TOT-10 PICTURE 9(5). 
           03  TOT-13 PICTURE 9(5). 
           03  TOT-19 PICTURE 9(5). 
           03  TOT-20 PICTURE 9(5). 
           03  TOT-22 PICTURE 9(5). 
           03  TOT-24 PICTURE 9(5). 
           03  TOT-26 PICTURE 9(5). 
           03  TOT-32 PICTURE 9(5). 
           03  TOT-35 PICTURE 9(5). 
           03  TOT-40 PICTURE 9(5). 
           03  TOT-45 PICTURE 9(5). 
           03  TOT-50 PICTURE 9(5). 
           03  TOT-55 PICTURE 9(5). 
           03  TOT-60 PICTURE 9(5). 
           03  TOT-65 PICTURE 9(5). 
*CALL WKPRINT 
*CALL TESTWACOM 
