*COMDECK  RPTDEF35
00001  01  ENTRYTYPE-35-RPTDATA.                                        08/02/78
00002 ****************************************************************  RPTDEF35
00003 *                                                                    LV001
00004 *    THE DEFINITIONS BELOW DEFINE ALL CATEGORY HDGS,              RPTDEF35
00005 *    FIELD HDGS , CODES AND VALUES AND 70 CHR LINE FORMATS FOR    RPTDEF35
00006 *        FORM ENTRIES                                             RPTDEF35
00007 *                                                                 RPTDEF35
00008 ***************************************************************   RPTDEF35
00009      03  ENTRY-TYPE-CONSTANT        PICTURE XX  VALUE "35".          CL**2
00010 ******************************************************************   CL**2
00011 *                                                                    CL**2
00012 *    CATEGORY HEADING CONSTANTS FOR TYPE 35- FORM                    CL**2
00013 *                                                                    CL**2
00014 ******************************************************************   CL**2
00015      03  35-CAT-HEADERS.                                             CL**2
00016          05  ENT35-CN            PICTURE X(30)   VALUE               CL**2
00017         "010020030140200210230240800900".                            CL**2
00018          05  ENT35-CN2   REDEFINES ENT35-CN.                         CL**2
00019              07  ENT35-CATNUMS PICTURE XXX OCCURS 10.                CL**2
00020          05  ENT35-CH.                                               CL**2
00021              07  FILLER          PICTURE X(30)   VALUE               CL**2
00022             "    ---CONTROL CATEGORY---    ".                        CL**2
00023              07  FILLER          PICTURE X(30)   VALUE               CL**2
00024             "---CLASSIFICATION CATEGORY--- ".                        CL**2
00025              07  FILLER          PICTURE X(30)   VALUE               CL**2
00026             "  ---DESCRIPTION CATEGORY---  ".                        CL**2
00027              07  FILLER          PICTURE X(30)   VALUE               CL**2
00028             " ---RESPONSIBILITY CATEGORY---".                        CL**2
00029              07  FILLER          PICTURE X(30)   VALUE               CL**2
00030             "     ---NAMES CATEGORY---     ".                        CL**2
00031              07  FILLER          PICTURE X(30)   VALUE               CL**2
00032             "   ---ATTRIBUTE CATEGORY---   ".                        CL**2
00033              07  FILLER          PICTURE X(30)   VALUE               CL**2
00034             "   ---SUPPLIER CATEGORY---    ".                        CL**2
00035              07  FILLER          PICTURE X(30)   VALUE               CL**2
00036             "     ---FLOW CATEGORY---      ".                        CL**2
00037              07  FILLER              PICTURE X(30)   VALUE           CL**2
00038             "  ---RELATIONAL CATEGORY---   ".                        CL**2
00039              07  FILLER          PICTURE X(30)   VALUE               CL**2
00040             "     ---OTHER CATEGORY---     ".                        CL**2
00041          05  ENT35-CATH  REDEFINES ENT35-CH.                         CL**2
00042              07  ENT35-CATHDRS   PICTURE X(30)  OCCURS 10.           CL**2
00043 ********************************************************             CL**2
00044 *                                                                    CL**2
00045 *    FIELD HEADING CONSTANTS                                         CL**2
00046 *                                                                    CL**2
00047 ********************************************************             CL**2
00048          05  FLD3514005-HCON     PICTURE X(7)    VALUE               CL**2
00049             "STATUS=".                                               CL**2
00050          05  FLD3514010-HCON     PICTURE X(9)    VALUE               CL**2
00051             "FUNCTION=".                                             CL**2
00052          05  FLD3514025-HCON     PICTURE X(6)    VALUE               CL**2
00053             "PHONE=".                                                CL**2
00054          05  FLD3514035-HCON     PICTURE X(5)    VALUE               CL**2
00055             "MAIL=".                                                 CL**2
00056          05  FLD3514020-HCON     PICTURE X(7)    VALUE               CL**2
00057             "PERSON=".                                               CL**2
00058          05  FLD3514030-HCON     PICTURE X(6)    VALUE               CL**2
00059             "TITLE=".                                                CL**2
00060          05  FLD3514015-HCON     PICTURE X(11)   VALUE               CL**2
00061             "DEPARTMENT=".                                           CL**2
00062          05  FLD3514040-HCON     PICTURE X(5)    VALUE               CL**2
00063             "DATE=".                                                 CL**2
00064          05  FLD3520005-HCON     PICTURE X(10)   VALUE            RPTDEF35
00065             "FORM NAME=".                                         RPTDEF35
00066          05  FLD3520010-HCON     PICTURE X(12)   VALUE            RPTDEF35
00067             "FORM NUMBER=".                                       RPTDEF35
00068          05  FLD3521005-HCON     PICTURE X(6)    VALUE            RPTDEF35
00069             "PARTS=".                                             RPTDEF35
00070          05  FLD3521010-HCON     PICTURE X(6)    VALUE            RPTDEF35
00071             "COLOR=".                                             RPTDEF35
00072          05  FLD35230SP-HCON     PICTURE X(9)    VALUE               CL**2
00073             "SUPPLIER:".                                             CL**2
00074          05  FLD3523005-HCON     PICTURE X(5)    VALUE               CL**2
00075             "NAME=".                                                 CL**2
00076          05  FLD3523010-HCON     PICTURE X(7)    VALUE               CL**2
00077             "NUMBER=".                                               CL**2
00078          05  FLD3523015-HCON     PICTURE X(14)   VALUE            RPTDEF35
00079             "REORDER POINT=".                                     RPTDEF35
00080          05  FLD3523025-HCON     PICTURE X(12)   VALUE            RPTDEF35
00081             "ON HAND QTY=".                                       RPTDEF35
00082          05  FLD3523035-HCON     PICTURE X(4)    VALUE            RPTDEF35
00083             "EOQ=".                                                  CL**2
00084          05  FLD3523045-HCON     PICTURE X(18)   VALUE            RPTDEF35
00085             "MINIMUM ORDER QTY=".                                 RPTDEF35
00086          05  FLD3523055-HCON     PICTURE X(10)   VALUE            RPTDEF35
00087             "LEAD TIME=".                                         RPTDEF35
00088          05  FLD3524005-HCON     PICTURE X(5)    VALUE            RPTDEF35
00089             "FLOW=".                                              RPTDEF35
00090          05  FLD3524010-HCON     PICTURE X(11)   VALUE               CL**2
00091             "DEPARTMENT=".                                        RPTDEF35
00092          05  FLD3524015-HCON     PICTURE X(7)    VALUE               CL**2
00093             "PERSON=".                                               CL**2
00094          05  FLD3524020-HCON     PICTURE X(6)    VALUE            RPTDEF35
00095             "PHONE=".                                             RPTDEF35
00096          05  FLD3524025-HCON     PICTURE X(6)    VALUE            RPTDEF35
00097             "PARTS=".                                             RPTDEF35
00098          05  FLD3524030-HCON     PICTURE X(4)    VALUE               CL**2
00099             "DAY=".                                               RPTDEF35
00100          05  FLD3580005-HCON     PICTURE X(14)   VALUE               CL**2
00101             "CATALOGUE NAME".                                        CL**2
00102          05  FLD35800US-HCON     PICTURE X(7)    VALUE               CL**2
00103             "PARTIAL".                                               CL**2
00104 ********************************************************             CL**2
00105 *                                                                    CL**2
00106 *    FIELD CODES AND THEIR MEANINGS                                  CL**2
00107 *                                                                    CL**2
00108 **********************************************************           CL**2
00109 *                                                                    CL**2
00110 *    RESP-STATUS                                                     CL**2
00111 *                                                                    CL**2
00112          05  FLD3514005-CV       PICTURE X(3)    VALUE               CL**2
00113         "CP9".                                                       CL**2
00114          05  FLD3514005-CD  REDEFINES FLD3514005-CV.                 CL**2
00115              07  FLD3514005-CODES PICTURE X OCCURS 3.                CL**2
00116          05  FLD3514005-MV       PICTURE X(21)   VALUE               CL**2
00117         "CURRENTPAST   XXXXXXX".                                     CL**2
00118          05  FLD3514005-MD  REDEFINES FLD3514005-MV.                 CL**2
00119              07  FLD3514005-MNG  PICTURE X(7) OCCURS 3.              CL**2
00120 *                                                                    CL**2
00121 *    RESP-FUNCTION                                                   CL**2
00122 *                                                                    CL**2
00123          05  FLD3514010-CV       PICTURE X(4)    VALUE               CL**2
00124         "DCT9".                                                      CL**2
00125          05  FLD3514010-CD  REDEFINES FLD3514010-CV.                 CL**2
00126              07  FLD3514010-CODES PICTURE X OCCURS 4.                CL**2
00127          05  FLD3514010-MV       PICTURE X(36)   VALUE               CL**2
00128         "DEVELOPEDCHANGED  TESTED   XXXXXXXXX".                      CL**2
00129          05  FLD3514010-MD  REDEFINES FLD3514010-MV.                 CL**2
00130              07  FLD3514010-MNG  PICTURE X(9) OCCURS 4.              CL**2
00131 *                                                                 RPTDEF35
00132 *    SUPLY-REORDER-UNIT                                           RPTDEF35
00133 *                                                                 RPTDEF35
00134          05  FLD3523020-CV       PICTURE X(6)   VALUE             RPTDEF35
00135         "BCHTR9".                                                    CL**2
00136          05  FLD3523020-CD   REDEFINES FLD3523020-CV.             RPTDEF35
00137              07  FLD3523020-CODES    PICTURE X OCCURS 6.             CL**2
00138          05  FLD3523020-MV       PICTURE X(48)   VALUE               CL**2
00139         "BOX     CARTON  HUNDRED THOUSANDREAM    XXXXXXXX".          CL**2
00140          05  FLD3523020-MD  REDEFINES  FLD3523020-MV.                CL**2
00141              07  FLD3523020-MNG      PICTURE X(8) OCCURS 6.          CL**2
00142 *                                                                    CL**2
00143 *    SUPLY-ONHAND-UNITS                                              CL**2
00144 *                                                                    CL**2
00145                                                                      CL**2
00146          05  FLD3523030-CV       PICTURE X(6)    VALUE               CL**2
00147         "BCHTR9".                                                    CL**2
00148          05  FLD3523030-CD  REDEFINES  FLD3523030-CV.                CL**2
00149              07  FLD3523030-CODES PICTURE X OCCURS 6.                CL**2
00150          05  FLD3523030-MV       PICTURE X(48)   VALUE               CL**2
00151         "BOX     CARTON  HUNDRED THOUSANDREAM    XXXXXXXX".          CL**2
00152          05  FLD3523030-MD  REDEFINES  FLD3523030-MV.                CL**2
00153              07  FLD3523030-MNG  PICTURE X(8) OCCURS 6.              CL**2
00154 *                                                                    CL**2
00155 *    SUPLY-EOQ-UNIT                                                  CL**2
00156 *                                                                    CL**2
00157          05  FLD3523040-CV       PICTURE X(6)    VALUE               CL**2
00158         "BCHTR9".                                                    CL**2
00159          05  FLD3523040-CD  REDEFINES  FLD3523040-CV.                CL**2
00160              07  FLD3523040-CODES PICTURE X OCCURS 6.                CL**2
00161          05  FLD3523040-MV       PICTURE X(48)   VALUE               CL**2
00162         "BOX     CARTON  HUNDRED THOUSANDREAM    XXXXXXXX".          CL**2
00163          05  FLD3523040-MD  REDEFINES  FLD3523040-MV.                CL**2
00164              07  FLD3523040-MNG  PICTURE X(8) OCCURS 6.              CL**2
00165 *                                                                    CL**2
00166 *    SUPLY-MIN-ORDER-QTY                                             CL**2
00167 *                                                                    CL**2
00168          05  FLD3523050-CV       PICTURE X(6)    VALUE               CL**2
00169         "BCHTR9".                                                    CL**2
00170          05  FLD3523050-CD  REDEFINES  FLD3523050-CV.                CL**2
00171              07  FLD3523050-CODES PICTURE X OCCURS 6.                CL**2
00172          05  FLD3523050-MV       PICTURE X(48)   VALUE               CL**2
00173         "BOX     CARTON  HUNDRED THOUSANDREAM    XXXXXXXX".          CL**2
00174          05  FLD3523050-MD  REDEFINES  FLD3523050-MV.                CL**2
00175              07  FLD3523050-MNG  PICTURE X(8) OCCURS 6.              CL**2
00176 *                                                                 RPTDEF35
00177 *    SUPLY-LEAD-UNIT                                              RPTDEF35
00178 *                                                                 RPTDEF35
00179          05  FLD3523060-CV       PICTURE X(7)   VALUE             RPTDEF35
00180         "DMQSWA9".                                                   CL**2
00181          05  FLD3523060-CD   REDEFINES FLD3523060-CV.             RPTDEF35
00182              07  FLD3523060-CODES PICTURE X OCCURS 7.             RPTDEF35
00183          05  FLD3523060-MV.                                          CL**2
00184              07  FIRST-HALF      PICTURE X(76)   VALUE               CL**2
00185             "DAYS               MONTHS             QUARTERS          CL**2
00186 -           "    SEMI-ANNUAL PERIODS".                               CL**2
00187              07  SECOND-HALF     PICTURE X(57)   VALUE               CL**2
00188             "WEEKS              YEARS              XXXXXXXXXXXXXXX   CL**2
00189 -           "XXXX".                                                  CL**2
00190          05  FLD3523060-MD   REDEFINES FLD3523060-MV.             RPTDEF35
00191              07  FLD3523060-MNG  PICTURE X(19) OCCURS 7.          RPTDEF35
00192 *                                                                 RPTDEF35
00193 *    FLOW-CODE                                                    RPTDEF35
00194 *                                                                 RPTDEF35
00195          05  FLD3524005-CV       PICTURE X(4)   VALUE             RPTDEF35
00196         "OPU9".                                                   RPTDEF35
00197          05  FLD3524005-CD   REDEFINES FLD3524005-CV.             RPTDEF35
00198              07  FLD3524005-CODES PICTURE X OCCURS 4.             RPTDEF35
00199          05  FLD3524005-MV       PICTURE X(40)  VALUE             RPTDEF35
00200         "ORIGINATEDPROCESSED USED      XXXXXXXXXX".                  CL**2
00201          05  FLD3524005-MD   REDEFINES FLD3524005-MV.             RPTDEF35
00202              07  FLD3524005-MNG  PICTURE X(10) OCCURS 4.          RPTDEF35
00203 *                                                                 RPTDEF35
00204 *    REL-F-PUSE                                                   RPTDEF35
00205 *                                                                 RPTDEF35
00206          05  FLD3580010-CV           PICTURE X(3)    VALUE           CL**2
00207         "YN9".                                                       CL**2
00208          05  FLD3580010-CD   REDEFINES FLD3580010-CV.             RPTDEF35
00209              07  FLD3580010-CODES    PICTURE X OCCURS 3.             CL**2
00210          05  FLD3580010-MV           PICTURE X(9)    VALUE           CL**2
00211         "YESNO XXX".                                                 CL**2
00212          05  FLD3580010-MD   REDEFINES FLD3580010-MV.             RPTDEF35
00213              07  FLD3580010-MNG      PICTURE X(3) OCCURS 3.          CL**2
00214 ******************************************************************   CL**2
00215 *    STANDARD CATEGORY REPORT DETAIL LINES FOR ENTRY TYPE 35 -FORM   CL**2
00216 ******************************************************************   CL**2
00217      03  35-CAT-DETAIL-LINES.                                        CL**2
00218 *    RESPONSIBILITY LINES                                            CL**2
00219          05  CAT35140-LINE1.                                         CL**2
00220              07  FLD3514005-HDG  PICTURE X(7).                       CL**2
00221              07  FLD3514005-VAL.                                     CL**2
00222                  09  FLD3514005-POS1 PICTURE X.                      CL**2
00223                  09  FILLER      PICTURE X(6).                       CL**2
00224              07  FILLER          PICTURE XX.                         CL**2
00225              07  FLD3514010-HDG  PICTURE X(9).                       CL**2
00226              07  FLD3514010-VAL.                                     CL**2
00227                  09  FLD3514010-POS1 PICTURE X.                      CL**2
00228                  09  FILLER      PICTURE X(8).                       CL**2
00229              07  FILLER          PICTURE XX.                         CL**2
00230              07  FLD3514025-HDG  PICTURE X(6).                       CL**2
00231              07  FLD3514025-VAL  PICTURE X(10).                      CL**2
00232              07  FILLER          PICTURE XX.                         CL**2
00233              07  FLD3514035-HDG  PICTURE X(5).                       CL**2
00234              07  FLD3514035-VAL  PICTURE X(5).                       CL**2
00235              07  FILLER          PICTURE X(6).                       CL**2
00236          05  CAT35140-LINE2  REDEFINES CAT35140-LINE1.               CL**2
00237              07  FLD3514015-HDG  PICTURE X(11).                      CL**2
00238              07  FLD3514015-VAL  PICTURE X(32).                      CL**2
00239              07  FILLER          PICTURE XX.                         CL**2
00240              07  FLD3514040-HDG  PICTURE X(5).                       CL**2
00241              07  FLD3514040-VAL  PICTURE X(8).                       CL**2
00242              07  FILLER          PICTURE X(12).                      CL**2
00243          05  CAT35140-LINE3  REDEFINES CAT35140-LINE2.               CL**2
00244              07  FLD3514020-HDG  PICTURE X(7).                       CL**2
00245              07  FLD3514020-VAL  PICTURE X(32).                      CL**2
00246              07  FILLER          PICTURE XX.                         CL**2
00247              07  FLD3514030-HDG  PICTURE X(6).                       CL**2
00248              07  FLD3514030-VAL  PICTURE X(15).                      CL**2
00249              07  FILLER          PICTURE X(8).                       CL**2
00250 *    NAME LINE                                                       CL**2
00251          05  CAT35200-LINE1  REDEFINES  CAT35140-LINE3.              CL**2
00252              07  FLD3520005-HDG  PICTURE  X(10).                     CL**2
00253              07  FLD3520005-VAL  PICTURE  X(32).                     CL**2
00254              07  FILLER          PICTURE XX.                         CL**2
00255              07  FLD3520010-HDG  PICTURE X(12).                      CL**2
00256              07  FLD3520010-VAL  PICTURE X(10).                      CL**2
00257              07  FILLER          PICTURE XXXX.                       CL**2
00258 *    ATTRIBUTES LINE                                                 CL**2
00259          05  CAT35210-LINE1 REDEFINES CAT35200-LINE1.                CL**2
00260              07  FLD3521005-HDG  PICTURE  X(6).                      CL**2
00261              07  FLD3521005-VAL  PICTURE  XX.                        CL**2
00262              07  FILLER          PICTURE  XXX.                       CL**2
00263              07  FLD3521010-HDG  PICTURE  X(6).                      CL**2
00264              07  FLD3521010-VAL  PICTURE  X(10).                     CL**2
00265              07  FILLER          PICTURE X(43).                      CL**2
00266 *    SUPPLIER LINES                                                  CL**2
00267          05  CAT35230-LINE1 REDEFINES CAT35210-LINE1.                CL**2
00268              07  FLD35230SP-HDG      PICTURE X(9).                   CL**2
00269              07  FILLER              PICTURE X.                      CL**2
00270              07  FLD3523005-HDG      PICTURE X(5).                   CL**2
00271              07  FLD3523005-VAL      PICTURE X(32).                  CL**2
00272              07  FILLER              PICTURE XX.                     CL**2
00273              07  FLD3523010-HDG      PICTURE X(7).                   CL**2
00274              07  FLD3523010-VAL      PICTURE X(10).                  CL**2
00275              07  FILLER              PICTURE X(4).                   CL**2
00276          05  CAT35230-LINE2  REDEFINES CAT35230-LINE1.               CL**2
00277              07  FLD3523045-HDG      PICTURE X(18).                  CL**2
00278              07  FLD3523045-VAL      PICTURE ZZZZ9.                  CL**2
00279              07  FILLER              PICTURE X.                      CL**2
00280              07  FLD3523050-VAL.                                     CL**2
00281                  09  FLD3523050-POS1 PICTURE X.                      CL**2
00282                  09  FILLER          PICTURE X(7).                   CL**2
00283              07  FILLER              PICTURE X.                      CL**2
00284              07  FLD3523055-HDG      PICTURE X(10).                  CL**2
00285              07  FLD3523055-VAL      PICTURE ZZ9.                    CL**2
00286              07  FILLER              PICTURE X.                      CL**2
00287              07  FLD3523060-VAL.                                     CL**2
00288                  09  FLD3523060-POS1 PICTURE X.                      CL**2
00289                  09  FILLER          PICTURE X(18).                  CL**2
00290              07  FILLER              PICTURE X(4).                   CL**2
00291          05  CAT35230-LINE3  REDEFINES  CAT35230-LINE2.              CL**2
00292              07  FLD3523015-HDG      PICTURE X(14).                  CL**2
00293              07  FLD3523015-VAL      PICTURE ZZZZ9.                  CL**2
00294              07  FILLER              PICTURE X.                      CL**2
00295              07  FLD3523020-VAL.                                     CL**2
00296                  09  FLD3523020-POS1 PICTURE X.                      CL**2
00297                  09  FILLER          PICTURE X(7).                   CL**2
00298              07  FILLER              PICTURE XX.                     CL**2
00299              07  FLD3523035-HDG      PICTURE X(4).                   CL**2
00300              07  FLD3523035-VAL      PICTURE ZZZZ9.                  CL**2
00301              07  FILLER              PICTURE X.                      CL**2
00302              07  FLD3523040-VAL.                                     CL**2
00303                  09  FLD3523040-POS1 PICTURE X.                      CL**2
00304                  09  FILLER          PICTURE X(7).                   CL**2
00305              07  FILLER              PICTURE X(22).                  CL**2
00306          05  CAT35230-LINE4 REDEFINES  CAT35230-LINE3.               CL**2
00307              07  FLD3523025-HDG      PICTURE X(12).                  CL**2
00308              07  FLD3523025-VAL      PICTURE ZZZZ9.                  CL**2
00309              07  FILLER              PICTURE X.                      CL**2
00310              07  FLD3523030-VAL.                                     CL**2
00311                  09  FLD3523030-POS1 PICTURE X.                      CL**2
00312                  09  FILLER          PICTURE X(7).                   CL**2
00313              07  FILLER              PICTURE X(44).                  CL**2
00314 *    FLOW LINES                                                      CL**2
00315          05  CAT35240-LINE1  REDEFINES CAT35230-LINE4.               CL**2
00316              07  FLD3524005-HDG      PICTURE X(5).                   CL**2
00317              07  FLD3524005-VAL.                                     CL**2
00318                  09 FLD3524005-POS1  PICTURE X.                      CL**2
00319                  09 FILLER           PICTURE X(9).                   CL**2
00320              07  FILLER              PICTURE XX.                     CL**2
00321              07  FLD3524010-HDG      PICTURE X(11).                  CL**2
00322              07  FLD3524010-VAL      PICTURE X(32).                  CL**2
00323              07  FILLER              PICTURE XX.                     CL**2
00324              07  FLD3524025-HDG      PICTURE X(6).                   CL**2
00325              07  FLD3524025-VAL      PICTURE XX.                     CL**2
00326          05  CAT35240-LINE2 REDEFINES CAT35240-LINE1.                CL**2
00327              07  FLD3524030-HDG      PICTURE X(4).                   CL**2
00328              07  FLD3524030-VAL      PICTURE X(10).                  CL**2
00329              07  FILLER              PICTURE XX.                     CL**2
00330              07  FLD3524015-HDG      PICTURE X(7).                   CL**2
00331              07  FLD3524015-VAL      PICTURE X(32).                  CL**2
00332              07  FILLER              PICTURE X(15).                  CL**2
00333          05  CAT35240-LINE3  REDEFINES CAT35240-LINE2.               CL**2
00334              07  FLD3524020-HDG      PICTURE X(6).                   CL**2
00335              07  FLD3524020-VAL      PICTURE X(10).                  CL**2
00336              07  FILLER              PICTURE X(54).                  CL**2
00337 *    RELATIONAL LINE                                                 CL**2
00338          05  CAT35800-LINE1  REDEFINES CAT35240-LINE3.               CL**2
00339              07  FLD3580005-HDG      PICTURE X(14).                  CL**2
00340              07  FILLER              PICTURE X(19).                  CL**2
00341              07  FLD35800US-HDG      PICTURE X(7).                   CL**2
00342              07  FILLER              PICTURE X(30).                  CL**2
00343          05  CAT35800-LINE2  REDEFINES  CAT35800-LINE1.              CL**2
00344              07  FLD3580005-VAL      PICTURE X(32).                  CL**2
00345              07  FILLER              PICTURE X(3).                   CL**2
00346              07  FLD3580010-VAL.                                     CL**2
00347                  09  FLD3580010-POS1 PICTURE X.                      CL**2
00348                  09  FILLER          PICTURE XX.                     CL**2
00349              07  FILLER              PICTURE X(32).                  CL**2
