*COMDECK  WRKSTG01
00001                                                                    WRKSTG0
00002 ****************************************************************  WRKSTG01
00003 ****************************************************************     LV002
00004 ****************************************************************     CL**2
00005 *   RELATIONAL FILE WORK AREA                                        CL**2
00006 ****************************************************************     CL**2
00007  01  REL-ARG-LIST.                                                WRKSTG01
00008      03  REL-SEARCH.                                              WRKSTG01
00009          05  REL-ENTRY-NAME      PICTURE X(32).                   WRKSTG01
00010          05  REL-ENTRY-FUNCTION  PICTURE X.                       WRKSTG01
00011      03  REL-ANSWER.                                              WRKSTG01
               05 REL-RETURN-CODE PICTURE 9.
00013          05  REL-POINTER-NAME    PICTURE X(32).                   WRKSTG01
00014          05  REL-POINTER-TYPE    PICTURE XX.                      WRKSTG01
00015          05  REL-PUSE          PICTURE X.                            CL**2
00016          05  REL-ENTRY-TYPE          PICTURE XX.                     CL**2
00017          05  REL-ENTRY-ALIAS          PICTURE X.                     CL**2
00018          05  REL-POINTER-ALIAS        PICTURE X.                     CL**2
               05  REL-PTR-COUNT       PICTURE XXX. 
00026  01  REL-WORK.                                                       CL**2
00027      03  REL-LAST-ENTRY-NAME          PICTURE X(32) VALUE ZERO.      CL**2
00028      03  REL-SUB                 PICTURE S99 COMP SYNC VALUE ZERO.   CL**2
00029      03  CREATE-REL-SW          PICTURE X VALUE ZERO.                CL**2
00030      03  REL-NEXT-REC PICTURE 9999.                                  CL**2
00031      03  ALL-NAMES-LITERAL       PICTURE X(32) VALUE                 CL**2
00032         "DC2-ALL-NAMES-RECORD".                                      CL**2
00033      03  DC2-NEXT-REC      PICTURE 9999 VALUE ZERO.                  CL**2
00034                                                                    WRKSTG0
