00001 *****                                                             07/11/19
00002 *                                                                 DTSIXTPH
00003 *    DTSIXTPH    TOPS HEADER EXTRACT RECORD                          LV007
00004 *                                                                 DTSIXTPH
00005 *    EXCHANGES TOPS HEADER DATA BETWEEN MAINFRAME AND                CL**4
00006 *    OTR/IRS FOR TOPS INTERFACE                                      CL**4
00007 *                                                                 DTSIXTPH
00008 *                                                                 DTSIXTPH
00009 *****                                                             DTSIXTPH
00010                                                                   DTSIXTPH
00011          15  TOP-HEADER                 PIC  X(05) VALUE SPACES.     CL**7
00012          15  TOP-HEADER-ID              PIC  X(04) VALUE '  T1'.     CL**5
00013          15  TOP-HEAD-BATCH-CONT        PIC  X(08).                  CL**5
00014          15  FILLER                     PIC  X(183) VALUE SPACES.    CL**7