Neeraj Changes
This commit is contained in:
@ -12,7 +12,8 @@
|
||||
00012 10 T040-LENGTH PIC S9(04) COMP. DTSIT040
|
||||
00013 DTSIT040
|
||||
00014 10 T040-COMMON-AREA. DTSIT040
|
||||
00015 15 T040-REC-TYPE PIC X(03) VALUE '040'. DTSIT040
|
||||
00015 * 15 T040-REC-TYPE PIC X(03) VALUE '040'. DTSIT040
|
||||
RCODE 15 T040-REC-TYPE PIC X(03). DTSIT040
|
||||
00016 15 T040-EMP-NO PIC S9(07) COMP-3. DTSIT040
|
||||
00017 15 T040-ORIGIN PIC X(10). DTSIT040
|
||||
00018 15 FILLER REDEFINES T040-ORIGIN. DTSIT040
|
||||
|
||||
Reference in New Issue
Block a user