*COMDECK  DCUPDLNK
00001 ** DCUPDLNK BEGIN **                                              07/11/78
00002 *****************************************************             DCUPDLNK
00003 *                                                                    LV001
00004 *     E D I T I N G   L I N K   A R E A                              CL**2
00005 *                                                                 DCUPDLNK
00006 *****************************************************             DCUPDLNK
00007  01  LINK-AREA.                                                   DCUPDLNK
00008    03  FUNC             PICTURE X.                                DCUPDLNK
00009    03  ADD-CHG          PICTURE X.                                DCUPDLNK
00010    03  INS-LINE-SW       PICTURE X.                                  CL**2
         03  LAST-QUOTE        PICTURE X. 
         03  NUM-EDIT          PICTURE X. 
00011    03  CATAL-NAME        PICTURE X(32).                              CL**2
00012      03  CK-CATAL-NAME            PICTURE X(32).                     CL**2
00013      03  OLD-CATAL-NAME   PICTURE X(32).                             CL**2
00014      03  NEW-CATAL-NAME   PICTURE X(32).                             CL**2
00015      03  TYPE-CATAL-NAME  PICTURE X.                                 CL**2
         03  TYPE-PUSE         PICTURE X. 
00016    03  STATUS-SW      PICTURE X.                                     CL**2
00017    03  QUOTE-TYPE     PICTURE X.                                     CL**2
00018    03  ENT-ID          PICTURE 99.                                DCUPDLNK
00019    03  CAT-ID          PICTURE 999.                               DCUPDLNK
00020    03  FIELD-ID               PICTURE 99.                            CL**2
         03  NUM-LINES         PICTURE 9. 
         03  NUM-ENTRIES       PICTURE 99.
         03  NUM-HOLD          PICTURE 9(10). 
         03  NUM-HOLD-X    REDEFINES NUM-HOLD  PICTURE X(10). 
00050 *                                                                 DCUPDLNK
00051 *     SUBSCRIPS                                                   DCUPDLNK
00052 *                                                                 DCUPDLNK
         03  COUNTER  PICTURE S99 COMP SYNC.
         03  SUB-NUM  PICTURE S99 COMP SYNC.
         03  LOOPER   PICTURE S99 COMP SYNC.
         03  SAVE-TAB PICTURE S99 COMP SYNC.
00053    03  TX               PICTURE S99 COMP SYNC.                    DCUPDLNK
00054    03  VA               PICTURE S99 COMP SYNC.                    DCUPDLNK
00055    03  FLD              PICTURE S999 COMP SYNC.                   DCUPDLNK
00056    03  MSG              PICTURE S99 COMP SYNC.                    DCUPDLNK
00057    03  REV              PICTURE S99 COMP SYNC.                    DCUPDLNK
00058 *                                                                 DCUPDLNK
00059 *     TRANSACTION FOUND HERE                                      DCUPDLNK
00060 *                                                                 DCUPDLNK
00061    03  TX-IMAGE.                                                  DCUPDLNK
00062        05  TX-POS OCCURS 72 TIMES PICTURE X.                      DCUPDLNK
00063        05  FILLER       PICTURE X(8).                             DCUPDLNK
00064      03  TX-IMAGE-4 REDEFINES TX-IMAGE.                              CL**2
00065          05  TX-4       PICTURE X(4).                                CL**2
00066          05  FILLER     PICTURE X(76).                               CL**2
00067      03  TX-IMAGE-8 REDEFINES TX-IMAGE.                              CL**2
00068          05  TX-8       PICTURE X(8).                                CL**2
00069          05  FILLER     PICTURE X(72).                               CL**2
00070 *                                                                 DCUPDLNK
00071 *     FIELD TABLE                                                 DCUPDLNK
00072 *                                                                 DCUPDLNK
00073    03  FIELD-TABLE.                                               DCUPDLNK
           05  FLD-TAB OCCURS 100 TIMES.
00075            07  FLD-NAME.                                          DCUPDLNK
00076                09  FLD-NAME3                 PICTURE XXX.         DCUPDLNK
00077                 09  FLD-ENT-TYPE PICTURE 99.                         CL**2
00078                 09  FLD-CAT-TYPE PICTURE 999.                        CL**2
00079              07  FLD-ID   PICTURE 99.                                CL**2
                 07  FLD-LEN    PICTURE 999.
00081            07  FLD-FORM PICTURE X.                                DCUPDLNK
00082              07  FLD-REV  PICTURE X.                                 CL**2
00083              07  FLD-STD  PICTURE X.                                 CL**2
00084 *                                                                 DCUPDLNK
00085 *     MESSAGE TABLE                                               DCUPDLNK
00086 *                                                                 DCUPDLNK
00087    03  MESSAGE-TABLE.                                             DCUPDLNK
00088        05  MSG-TAB OCCURS 20 TIMES.                               DCUPDLNK
00089            07  ERR-MSG.                                           DCUPDLNK
00090                09  MSG-POS1       PICTURE X(6).                   DCUPDLNK
00091                09  MSG-POS2       PICTURE X(5).                   DCUPDLNK
00092                09  FILLER         PICTURE X.                      DCUPDLNK
00093                09  MSG-POS3       PICTURE X(6).                   DCUPDLNK
00094                09  FILLER         PICTURE X.                      DCUPDLNK
00095                09  MSG-POS4       PICTURE X(8).                   DCUPDLNK
00096                  09  FILLER        PICTURE X.                        CL**2
00097                09  MSG-POS5       PICTURE X(36).                  DCUPDLNK
00098                09  MSG-POS6 REDEFINES MSG-POS5.                   DCUPDLNK
00099                    11  MSG-POS7   PICTURE X(11).                  DCUPDLNK
00100                    11  MSG-POS8   PICTURE X(25).                  DCUPDLNK
00101 *                                                                 DCUPDLNK
00102 *     REVISION TABLE                                              DCUPDLNK
00103 *                                                                 DCUPDLNK
00104      03  REVISION-TABLE.                                          DCUPDLNK
00105          05  REV-TAB   OCCURS 20 TIMES.                           DCUPDLNK
00106              07  REV-STD-NAME    PICTURE X(8).                    DCUPDLNK
00107              07  REV-REASON      PICTURE X.                       DCUPDLNK
00108              07  REV-REASON-TYPE PICTURE X.                       DCUPDLNK
      *    TABLE OF ELEMENTS TO BE ADDED TO RELATION FILE.
      *    THESE ELEMENTS WERE USED IN OCCURS CLAUSES FOR 
      *    GROUPS OR RECORDS OR IN ONE OF THE CLAUSES FOR 
      *    THE PROCESS CATEGORY.
      * 
      *    NUM-ENTRIES TELLS HOW MANY ENTRIES IN THE TABLE. 
      *    A TABLE ENTRY CONSISTS OF THE NAME REQUIRING A REL 
      *    ENTRY, THE NAME OF THE ENTITY TO BE USED AS A POINTER, 
      *    THE POINTER ENTITY TYPE AND THE LINE TYPE WHERE THE
      *    ELEMENT OCCURRED.  THE FUNCTION TELLS WHETHER TO 
      *    ADD OR DELETE THE POINTER. 
      * 
       01  SAVE-NAME         PICTURE X(32). 
       01  SAVE-ENT-TYPE     PICTURE 99.
       01  SAVE-FUNCTION     PICTURE X. 
       01  REL-TABLE. 
           03  BUILD-INFO OCCURS 20 TIMES.
               05  REL-NAME      PICTURE X(32). 
               05  PTR-NAME      PICTURE X(32). 
               05  PTR-ENT-TYPE  PICTURE XX.
               05  REL-FUNCTION   PICTURE X.
00109 ** DCUPDLNK END **                                                   CL**2
      *** HOLD AREA TO CORRECT COMMENT LINE PROCESSING
       01  HOLD-COMMENT.
           05  FILLER                 PIC X(15).
           05  HOLD-COM-LINE. 
               10  HOLD-COM           PIC X(01).
               10  FILLER             PIC X(146). 
