00001 *****                                                             04/17/09
00002 *                                                                 DTSIX220
00003 *    DTSIX220    ONLINE ACTIVITY                                     LV001
00004 *                                                                 DTSIX220
00005 *                                                                 DTSIX220
00006 *                                                                 DTSIX220
00007 *                                                                 DTSIX220
00008 *****                                                             DTSIX220
00009          15  X220-OPID                     PIC  X(08).            DTSIX220
00010          15  FILLER                        PIC  X(01) VALUE ','.  DTSIX220
00011          15  X220-EMP-NO                   PIC  9(06).            DTSIX220
00012          15  FILLER                        PIC  X(01) VALUE ','.  DTSIX220
00013          15  X220-BUSINESS-AREA            PIC  X(02).            DTSIX220
00014          15  FILLER                        PIC  X(01) VALUE ','.  DTSIX220
00015          15  X220-ACTIVITY                 PIC  X(03).            DTSIX220
00016          15  FILLER                        PIC  X(01) VALUE ','.  DTSIX220
00017          15  X220-DATE                     PIC  X(10).            DTSIX220
00018          15  FILLER                        PIC  X(01) VALUE ','.  DTSIX220
00019          15  X220-TIME                     PIC  X(08).            DTSIX220
00020          15  FILLER                        PIC  X(01) VALUE ','.  DTSIX220
00021          15  X220-BATCH                    PIC  9(05).            DTSIX220
00022          15  FILLER                        PIC  X(01) VALUE ','.  DTSIX220
00023          15  X220-ITEM                     PIC  9(03).            DTSIX220