*COMDECK  DCDWA35 
00001 ************************************************************      06/22/77
00002 *                                                                 DCDWA35 
00003 *     FORM ENTRY                                                     LV001
00004 *                                                                 DCDWA35 
00005 ************************************************************      DCDWA35 
00006 *     FORM ENTRY - RESPONSIBILITY CAT                             DCDWA35 
00007      02  RESP-F-CAT REDEFINES CAT-DETAIL.                         DCDWA35 
               03 RESP-F-LINETYPE           PICTURE X.
00008          03  RESP-F-STATUS            PICTURE X.                  DCDWA35 
00009          03  RESP-F-FUNC              PICTURE X.                  DCDWA35 
00010          03  RESP-F-DEPT              PICTURE X(32).              DCDWA35 
00011          03  RESP-F-PERSON            PICTURE X(32).                 CL**2
00012          03  RESP-F-PHONE             PICTURE X(10).              DCDWA35 
00013          03  RESP-F-TITLE             PICTURE X(15).              DCDWA35 
00014          03  RESP-F-MAIL              PICTURE X(5).               DCDWA35 
00015          03  RESP-F-DATE              PICTURE X(6).               DCDWA35 
00016 *     FORM ENTRY -NAME CAT                                        DCDWA35 
00017      02  NAME-F-CAT REDEFINES CAT-DETAIL.                         DCDWA35 
               03  NAME-F-LINETYPE          PICTURE X.
00018          03  NAME-F-FORM-NAME         PICTURE X(32).                 CL**2
00019          03  NAME-F-FORMNO            PICTURE X(10).              DCDWA35 
00020 *     FORM ENTRY - ATTRIBUTE CAT                                  DCDWA35 
00021      02  ATTR-F-CAT REDEFINES CAT-DETAIL.                         DCDWA35 
               03  ATTR-F-LINETYPE          PICTURE X.
00022          03  ATTR-F-PARTS             PICTURE XX.                 DCDWA35 
00023          03  ATTR-F-COLOR             PICTURE X(10).              DCDWA35 
00024 *     FORM ENTRY - SUPPLIER CAT                                   DCDWA35 
00025      02  SUPLY-CAT REDEFINES CAT-DETAIL.                          DCDWA35 
               03  SUPPLIER-F-LINETYPE      PICTURE X.
00026          03  SUPLY-NAME               PICTURE X(32).                 CL**2
00027          03  SUPLY-NO                 PICTURE X(10).              DCDWA35 
00028          03  SUPLY-REORDER-QTY        PICTURE X(5).               DCDWA35 
00029          03  SUPLY-REORDER-UNIT       PICTURE X.                  DCDWA35 
00030          03  SUPLY-ONHAND-QTY         PICTURE X(5).               DCDWA35 
00031          03  SUPLY-ONHAND-UNIT        PICTURE X.                  DCDWA35 
00032          03  SUPLY-EOQ-QTY            PICTURE X(5).               DCDWA35 
00033          03  SUPLY-EOQ-UNIT           PICTURE X.                  DCDWA35 
00034          03  SUPLY-MIN-ORDER-QTY      PICTURE X(5).                  CL**2
00035          03  SUPLY-MIN-ORDER-UNIT     PICTURE X.                  DCDWA35 
00036          03  SUPLY-LEAD-TIME          PICTURE X(3).               DCDWA35 
00037          03  SUPLY-LEAD-UNIT          PICTURE X.                  DCDWA35 
00038 *     FORM ENTRY - FLOW CAT                                       DCDWA35 
00039      02  FLOW-CAT REDEFINES CAT-DETAIL.                           DCDWA35 
               03  FLOW-LINETYPE            PICTURE X.
00040          03  FLOW-CODE                PICTURE X.                  DCDWA35 
00041          03  FLOW-DEPT                PICTURE X(32).              DCDWA35 
00042          03  FLOW-PERSON              PICTURE X(32).                 CL**2
00043          03  FLOW-PHONE               PICTURE X(10).              DCDWA35 
00044          03  FLOW-PARTS               PICTURE XX.                 DCDWA35 
00045          03  FLOW-SUBMIT-DAY          PICTURE X(10).                 CL**2
00046 *     FORM ENTRY - RELATION CAT                                   DCDWA35 
00047      02  REL-F-CAT REDEFINES CAT-DETAIL.                          DCDWA35 
               03  REL-F-LINETYPE           PICTURE X.
00048          03  REL-F-CNAME              PICTURE X(32).              DCDWA35 
00049          03  REL-F-PUSE               PICTURE X.                  DCDWA35 
