24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
00001 ***** 03/26/12
|
|
00002 * DTSIM715
|
|
00003 * DTSIM715 TPS STATUS RECORD LV001
|
|
00004 * DTSIM715
|
|
00005 * COMMON RECORD FOR TPS STATUS DATA GENERATED IN DTSBE770 DTSIM715
|
|
00006 * AND USED TO BUILD TPS STATUS REPORTS IN DTSBE715. DTSIM715
|
|
00007 * DTSIM715
|
|
00008 * DTSIM715
|
|
00009 ***** DTSIM715
|
|
00010 DTSIM715
|
|
00011 10 M715-SORT-KEY-AREA. DTSIM715
|
|
00012 15 M715-TYPE PIC X(01). DTSIM715
|
|
00013 88 M715-TYPE-STATUS-88 VALUE '3'. DTSIM715
|
|
00014 15 M715-EMP-NO PIC S9(07) COMP-3. DTSIM715
|
|
00015 DTSIM715
|
|
00016 10 M715-DATA-AREA. DTSIM715
|
|
00017 15 M715-EMP-NAME PIC X(40). DTSIM715
|
|
00018 10 M715-PROCESS-DT PIC S9(09) COMP-3. DTSIM715
|
|
00019 10 M715-EFF-DT PIC S9(09) COMP-3. DTSIM715
|
|
00020 10 M715-DETERM-TYPE PIC X(01). DTSIM715
|
|
00021 88 M715-DETERM-NEW-88 VALUE '1'. DTSIM715
|
|
00022 88 M715-DETERM-SUCC-88 VALUE '2'. DTSIM715
|
|
00023 88 M715-DETERM-INACT-88 VALUE '3'. DTSIM715
|