00001 *****                                                             02/22/16
00002 *                                                                 DTSIWBAT
00003 *    DTSIWBAT  BATCH NO HISTORY FILE 'FROM SERVER'                   LV006
00004 *              RECORD DEFINITION.                                 DTSIWBAT
00005 *                                                                 DTSIWBAT
00006 *                                                                 DTSIWBAT
00007 *              12/18/2015  INITIAL DEVELOPMENT.           ZL1        CL**2
00008 *                                                                 DTSIWBAT
00009 *              KEY = 5     LENGTH = 10                               CL**6
00010 *                                                                 DTSIWBAT
00011 *****                                                             DTSIWBAT
00012                                                                   DTSIWBAT
00013          10  WBAT-KEY-AREA.                                          CL**2
00014              15  WBAT-BATCH-NO               PIC  9(05).             CL**4
00015                                                                   DTSIWBAT
00016          10  WBAT-DATA-AREA.                                         CL**2
00017              15  WBAT-BALANCED-IND           PIC X(01).              CL**3
00018              15  WBAT-HELD-IND               PIC X(01).              CL**3
00019              15  WBAT-CNTL-TRAN-CNT          PIC 9(03).              CL**3