*COMDECK  MAST1WS 
00001 ******************************************************************07/29/77
00002 ******************************************************************MAST1WS 
00003 *    DATA FILE WORK AREA                                             LV001
00004 *****************************************************************    CL**2
00005 *****************************************************************    CL**2
       01  HOLD-DATA-RECORD  PICTURE X(1265).                           000120
00013  01  DATA-ARG-LIST.                                               MAST1WS 
00014      03  DATA-SEARCH.                                             MAST1WS 
00015          05  DATA-ENTRY-TYPE          PICTURE XX.                 MAST1WS 
00016          05  DATA-ENTRY-CAT          PICTURE XXX.                    CL**2
00017          05  DATA-ENTRY-LINE         PICTURE XXXX.                   CL**2
00018          05  DATA-ENTRY-NAME          PICTURE X(32).              MAST1WS 
00019          05  DATA-ENTRY-FUNCTION     PICTURE X.                   MAST1WS 
               05  DATA-ENTRY-LINETYPE     PICTURE X. 
00020      03  DATA-ANSWER.                                             MAST1WS 
00021          05  DATA-RETURN-CODE        PICTURE X.                   MAST1WS 
00022          05  DATA-LINE          PICTURE X(147).                      CL**2
00023  01  DATA-WORK.                                                   MAST1WS 
00024      03  DATA-LAST-ENTRY-NAME         PICTURE X(32).              MAST1WS 
               03 DATA-LIMIT   PICTURE 9999   VALUE 1197. 
00026      03  DATA-SUB      PICTURE S9999 VALUE ZERO.                     CL**2
00027      03  DATA-CREATE-SW               PICTURE X VALUE ZERO.       MAST1WS 
00028      03  DATA-NEXT-REC            PICTURE S9(4) VALUE ZERO.        MAST1WS
00036  01  MAST1-IO-WK.                                                    CL**2
00037      03  WORK-LENGTH             PICTURE 999.                        CL**2
00038      03  WORK-HEADER.                                                CL**2
00039          05  WH-PASS1.                                               CL**2
00040              07  CAT-STORE       PICTURE XXX.                        CL**2
00041              07  LENGTH-STORE    PICTURE S9(3) .                   MAST1WS
00042              07  FILLER PICTURE X(142).                              CL**2
00043          05  WH-PASS2 REDEFINES WH-PASS1.                            CL**2
00044              07  REV-STORE       PICTURE S9(5) .                   MAST1WS
00045              07  LINE-STORE      PICTURE 9(4).                       CL**2
00046              07  FILLER PICTURE X(140).                              CL**2
00047          05  WH-PASS3 REDEFINES WH-PASS2.                            CL**2
00048              07  HEADER-DETAIL.                                      CL**2
00049                  09  CAT-STORE2      PICTURE XXX.                    CL**2
00050                  09  LENGTH-STORE2   PICTURE S9(3) .               MAST1WS
00051                  09  REV-STORE2      PICTURE S9(5) .               MAST1WS
00052                  09  LINE-STORE2     PICTURE 9(4).                   CL**2
00053              07  FILLER              PICTURE X(135).                 CL**2
00054      03  WORK-LINE REDEFINES WORK-HEADER.                            CL**2
00055          05  LINE-DETAIL         PICTURE X OCCURS 147.               CL**2
           03  WORK-LINE2 REDEFINES WORK-HEADER.
               05  WORK-LINE-TYPE       PICTURE X.
               05  REST-OF-WORK         PICTURE X(146). 
00056      03  EXTRACT-SW              PICTURE X.                          CL**2
00057      03  WORK-SUB                PICTURE 999.                        CL**2
