*COMDECK FLDWORK
00001  01  SAVE-SEG-STC-TYPES.                                          09/19/78
00002      03  SAVE-FLD-TYPES.                                          FLDWORK 
00003          05  SAVE-IMS-FLD-NAME   PICTURE X(32).                      LV002
00004          05  SAVE-IMS-KEY        PICTURE X.                       FLDWORK 
00005          05  SAVE-IMS-SYSREL     PICTURE X(32).                   FLDWORK 
00006          05 SAVE-IMS-BYTES      PICTURE 9(5).                        CL**2
00007          05  SAVE-IMS-START      PICTURE X(5).                    FLDWORK 
00008          05  SAVE-IMS-FORMAT     PICTURE X.                       FLDWORK 
00009          05  FILLER              PICTURE X(70).                   FLDWORK 
00010      03  SAVE-LCHILD-TYPES REDEFINES SAVE-FLD-TYPES.              FLDWORK 
00011          05  SAVE-IMS-LCHILD     PICTURE X(32).                   FLDWORK 
00012          05  SAVE-IMS-DBNAME     PICTURE X(32).                   FLDWORK 
00013          05  SAVE-IMS-PTR        PICTURE X(4).                    FLDWORK 
00014          05  SAVE-IMS-PAIR       PICTURE X(32).                   FLDWORK 
00015          05  SAVE-IMS-IDX        PICTURE X(32).                   FLDWORK 
00016          05  SAVE-IMS-RULE       PICTURE X.                          CL**2
00017          05  FILLER              PICTURE X(13).                   FLDWORK 
00018      03  SAVE-XDFLD-TYPES REDEFINES SAVE-LCHILD-TYPES.            FLDWORK 
00019          05  SAVE-IMS-XDFLD      PICTURE X(32).                   FLDWORK 
00020          05  SAVE-IMS-SOURC      PICTURE X(32).                   FLDWORK 
00021          05  SAVE-IMS-CONST      PICTURE XX.                      FLDWORK 
00022          05  SAVE-IMS-CFORM      PICTURE X.                       FLDWORK 
00023          05  SAVE-IMS-NULL       PICTURE XX.                      FLDWORK 
00024          05  SAVE-IMS-NFORM       PICTURE X.                         CL**2
00025          05  SAVE-IMS-XITRT      PICTURE X(32).                   FLDWORK 
00026          05  FILLER              PICTURE X(44).                   FLDWORK 
00027      03  IMS-LINTYPE             PICTURE X.                       FLDWORK 
00028  01  FLD-WORK-AREAS.                                                 CL**2
00029      03  START-COUNT             PICTURE 9(5).                       CL**2
00030      03  SAVE-FLD-STC            PICTURE X(147).                     CL**2
00031      03  FIELD-LENGTH            PICTURE 9(3).                    FLDWORK 
00032      03  SAVE-ELE-ATTRIBUTES.                                     FLDWORK 
00033          05  SAVE-LENGTH         PICTURE X(4).                    FLDWORK 
00034          05  SAVE-FORMAT         PICTURE X.                       FLDWORK 
00035          05  FILLER              PICTURE X(69).                   FLDWORK 
00036      03  LEN-COUNTER           PICTURE 9(4).                         CL**2
00037      03  LEN-NUM                   PICTURE 9(4).                     CL**2
00038      03  SYSREL-SWITCH           PICTURE X.                       FLDWORK 
00039      03  NAME-HOLD               PICTURE X(32).                   FLDWORK 
00040      03  BYTES-HOLD              PICTURE X(5).                    FLDWORK 
00041      03  HOLD-TYPE               PICTURE X.                          CL**2
00042      03  HOLD-NULLVAL.                                            FLDWORK 
00043          05  HOLD-NVAL           PICTURE X OCCURS 2 TIMES.        FLDWORK 
00044      03  NULLVAL-TYPE1.                                           FLDWORK 
00045          05  NFORM1              PICTURE X.                       FLDWORK 
00046          05  FILLER              PICTURE X VALUE QUOTE.           FLDWORK 
00047          05  NULLVAL1            PICTURE X.                       FLDWORK 
00048          05  FILLER              PICTURE X VALUE QUOTE.           FLDWORK 
00049      03  NULLVAL-TYPE2.                                              CL**2
00050          05  NFORM2              PICTURE X.                       FLDWORK 
00051          05  FILLER              PICTURE X VALUE QUOTE.           FLDWORK 
00052          05  NULLVAL2            PICTURE XX.                      FLDWORK 
00053          05  FILLER              PICTURE X VALUE QUOTE.           FLDWORK 
00054      03  CHECK-NAME.                                              FLDWORK 
00055          05  1ST-3               PICTURE XXX.                     FLDWORK 
00056          05  FILLER              PICTURE X(5).                    FLDWORK 
00057      03  HOLD-VALUE-7            PICTURE X(7).                    FLDWORK 
00058      03  HOLD-VALUE-8            PICTURE X(8).                    FLDWORK 
00059      03  1ST-SRCH-SWITCH         PICTURE X VALUE "Y".             FLDWORK 
00060      03  1ST-SUBSEQ-SWITCH       PICTURE X VALUE "Y".             FLDWORK 
00061      03  1ST-DDATA-SWITCH        PICTURE X VALUE "Y".             FLDWORK 
00062      03  1ST-NAME-SWITCH         PICTURE X VALUE "Y".             FLDWORK 
00063      03  END-SWITCH          PICTURE X VALUE "Y".                    CL**2
00064      03  FLD-SWITCHES.                                            FLDWORK 
00065          05  FLD-NAME-ERROR-SWITCH   PICTURE X VALUE "N".         FLDWORK 
00066          05  BYTES-ERROR-SWITCH      PICTURE X VALUE "N".         FLDWORK 
00067          05  START-ERROR-SWITCH      PICTURE X VALUE "N".         FLDWORK 
00068          05  START-LIMIT-SWITCH      PICTURE X VALUE "N".         FLDWORK 
00069          05  TYPE-ERROR-SWITCH       PICTURE X VALUE "N".         FLDWORK 
00070          05  FILLER-BYTES-ERROR-SWITCH  PICTURE X VALUE "N".      FLDWORK 
00071          05  LCHILD-NAME-ERROR-SWITCH PICTURE X VALUE "N".        FLDWORK 
00072          05  LCHILD-DBNAME-ERROR-SWITCH  PICTURE X VALUE "N".     FLDWORK 
00073          05  IDX-ERROR-SWITCH        PICTURE X VALUE "N".         FLDWORK 
00074          05  XDFLD-NAME-ERROR-SWITCH PICTURE X VALUE "N".         FLDWORK 
00075          05  SOURC-ERROR-SWITCH      PICTURE X VALUE "N".         FLDWORK 
00076          05  SRCH-ERROR-SWITCH       PICTURE X VALUE "N".         FLDWORK 
00077          05  SUBSEQ-ERROR-SWITCH     PICTURE X VALUE "N".         FLDWORK 
00078          05  DDATA-ERROR-SWITCH      PICTURE X VALUE "N".         FLDWORK 
