41 lines
3.2 KiB
COBOL
41 lines
3.2 KiB
COBOL
00001 ***** 08/14/02
|
|
00002 * DTSIR732
|
|
00003 * MACIR732 PURGE BUSINESS NAMES REPORT RECORDS. LV001
|
|
00004 * DTSIR732
|
|
00005 * NOTE: MULTIPLE REPORT RECORDS WILL USUALLY EXIST DTSIR732
|
|
00006 * FOR ONE EMPLOYER SINCE R732-OPO-NAME CAN BE DTSIR732
|
|
00007 * ANY ONE OF THREE DIFFERENT TYPES OF NAMES DTSIR732
|
|
00008 * THAT GO WITH THE EMPLOYER. DTSIR732
|
|
00009 * DTSIR732
|
|
00010 * R732-LIAB-DATE MAY BE EQUAL TO ZERO DTSIR732
|
|
00011 * (EMPLOYER NEVER LIABLE). DTSIR732
|
|
00012 * DTSIR732
|
|
00013 * R732-INACT-DATE MAY BE EQUAL TO ZERO DTSIR732
|
|
00014 * (EMPLOYER NEVER LIABLE). DTSIR732
|
|
00015 * DTSIR732
|
|
00016 * IF ARCHIVE LOGIC IS MODIFIED, THEN DTSIR732
|
|
00017 * R732-INACT-DATE MAY BE EQUAL TO ALL NINES DTSIR732
|
|
00018 * (EMPLOYER IS ACTIVE). DTSIR732
|
|
00019 * DTSIR732
|
|
00020 ***** DTSIR732
|
|
00021 SKIP1 DTSIR732
|
|
00022 10 R732-LENGTH PIC S9(04) COMP VALUE +097. DTSIR732
|
|
00023 SKIP1 DTSIR732
|
|
00024 10 R732-SORT-AREA. DTSIR732
|
|
00025 15 R732-REC-TYPE PIC X(03) VALUE '732'. DTSIR732
|
|
00026 15 R732-OPO-NAME PIC X(40). DTSIR732
|
|
00027 15 R732-EMP-NO PIC S9(07) COMP-3. DTSIR732
|
|
00028 SKIP1 DTSIR732
|
|
00029 10 R732-DATA-AREA. DTSIR732
|
|
00030 15 R732-EMP-CLASS PIC X(01). DTSIR732
|
|
00031 88 R732-CLASS-REG-88 VALUE 'R'. DTSIR732
|
|
00032 88 R732-CLASS-GOV-88 VALUE 'G'. DTSIR732
|
|
00033 88 R732-CLASS-REIMB-88 VALUE 'S'. DTSIR732
|
|
00034 88 R732-CLASS-NEVER-SUB-88 VALUE 'N'. DTSIR732
|
|
00035 15 R732-CITY PIC X(25). DTSIR732
|
|
00036 15 R732-ST PIC X(02). DTSIR732
|
|
00037 15 R732-ZIP-FIRST5 PIC X(05). DTSIR732
|
|
00038 15 R732-LIAB-DATE PIC S9(09) COMP-3. DTSIR732
|
|
00039 15 R732-INACT-DATE PIC S9(09) COMP-3. DTSIR732
|
|
00040 15 R732-PURGE-DATE PIC S9(09) COMP-3. DTSIR732
|