*COMDECK  WKPRINT2
00001 ******************************************************************03/06/78
00002 ******************************************************************WKPRINT2
00003 *  PRINTER WORK AREA                                                 LV001
00004 ******************************************************************   CL**2
00005 *****************************************************************    CL**2
00006      03  WKPRINT.                                                 WKPRINT2
00007          10  CATEGORY-DETAIL-811.                                    CL**2
00008              15  LINE-811        PICTURE X(5).                       CL**2
00009              15  FILLER          PICTURE X(4).                       CL**2
00010              15  DETAIL-811      PICTURE X(70).                      CL**2
00011              15  FILLER          PICTURE X.                          CL**2
00012          10  PRT-DATE1-CON.                                       WKPRINT2
00013              15  PRT-DATE1-HCON  PICTURE X(24).                      CL**2
                   15  PRT-CURRENT-DATE PIC X(8). 
00015          10  PRT-DATE2-CON.                                       WKPRINT2
00016              15  PRT-DATE2-HCON  PICTURE X(23).                      CL**2
00017              15  DATE-LAST-REVISION PICTURE X(8).                 WKPRINT2
00018          10  PRT-PAGE-CON.                                        WKPRINT2
00019              15  PRT-PAGE-HCON   PICTURE X(5).                       CL**2
00020              15  PRT-PAGE-NO     PICTURE ZZZZ9.                      CL**2
00021          10  PAGE-NO             PICTURE 9(5).                       CL**2
00022          10  CON-DC              PICTURE X(31).                      CL**2
00023          10  CON-TITLE             PICTURE X(73).                    CL**2
00024          10  CON-USER              PICTURE X(27).                    CL**2
00025          10  PRT-REV-NO-CON.                                      WKPRINT2
00026              15  PRT-REV-NO-HCON  PICTURE X(25).                     CL**2
00027              15  REVISION-NUMBER  PICTURE ZZZZ9.                  WKPRINT2
00028          10  REPORT-TITLE-LONG   PICTURE X(50).                   WKPRINT2
00029          10  USER-TITLE          PICTURE X(50).                      CL**2
00030          10  EOP-MSG             PICTURE X(54).                   WKPRINT2
00031          10  MAX-LINES           PICTURE S99.                     WKPRINT2
00032          10  LINE-CT             PICTURE S99.                     WKPRINT2
00033          10  8BY11-FLAG          PICTURE X.                          CL**2
00034          10  PRT-CTL        PICTURE 9.                               CL**2
00035          10  SAVE-PRT-CTL        PICTURE 9.                       WKPRINT2
00036          10  HOF-IND             PICTURE 9.                          CL**2
00037          10  SPACE-1             PICTURE 9.                          CL**2
00038          10  STD-REPORT-REC      PICTURE X(132).                  WKPRINT2
00039          10  STD-RPT-HDG  REDEFINES STD-REPORT-REC.                  CL**2
00040              15  FILLER              PICTURE X(40).                  CL**2
00041              15  STDRPT-TITLE        PICTURE X(31).                  CL**2
00042              15  FILLER              PICTURE X(30).                  CL**2
00043              15  STDRPT-DATE         PICTURE X(31).                  CL**2
00044          10  STD-RPT-DETAIL  REDEFINES  STD-RPT-HDG.                 CL**2
00045              15  FILLER              PICTURE X(20).                  CL**2
00046              15  STDRPT-REVNO        PICTURE ZZZZ9.                  CL**2
00047              15  FILLER              PICTURE X.                      CL**2
00048              15  STDRPT-LINE         PICTURE ZZZZ9.                  CL**2
00049              15  FILLER          PICTURE X.                          CL**2
00050              15  STDRPT-70CHR    PICTURE X(70).                      CL**2
00051              15  FILLER          PICTURE X(30).                      CL**2
00052          10  STD-RPT-MSG REDEFINES STD-RPT-DETAIL.                   CL**2
00053              15  STD-RPT-MESSAGE   PICTURE X(56).                    CL**2
00054              15  FILLER          PICTURE X(76).                      CL**2
00055          10  STD-RPT-CATHDG REDEFINES STD-RPT-MSG.                   CL**2
00056              15  FILLER          PICTURE X(39).                      CL**2
00057              15  CATEGORY-HEADER  PICTURE X(30).                     CL**2
00058              15  FILLER          PICTURE X(63).                      CL**2
