20 lines
1.5 KiB
COBOL
20 lines
1.5 KiB
COBOL
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
|