95 lines
7.4 KiB
COBOL
95 lines
7.4 KiB
COBOL
00001 ***** 10/15/98
|
|
00002 * DTSIR127
|
|
00003 * DTSIR127 EMPLOYER REGISTRATION FORM GENERATION. LV003
|
|
00004 * DTSIR127
|
|
00005 * CL**2
|
|
00006 * 10/15/1998 CREATED FOR DC. EHH CL**2
|
|
00007 * CL**2
|
|
00008 ***** DTSIR127
|
|
00009 DTSIR127
|
|
00010 10 R127-LENGTH PIC S9(04) COMP. DTSIR127
|
|
00011 DTSIR127
|
|
00012 10 R127-SORT-AREA. DTSIR127
|
|
00013 15 R127-REC-TYPE PIC X(03) VALUE '127'. DTSIR127
|
|
00014 15 R127-GENED-WITH-CD PIC X(01). CL**2
|
|
00015 88 R127-GENED-WITH-LETTER-ONE-88 VALUE '1'. CL**2
|
|
00016 88 R127-GENED-WITH-LETTER-TWO-88 VALUE '2'. CL**2
|
|
00017 88 R127-GENED-WITH-COOP-LETTER-88 VALUE '3'. CL**2
|
|
00018 15 R127-OP-ID PIC X(08). CL**2
|
|
00019 15 R127-LETTER-ONE-TYPE PIC X(02). CL**2
|
|
00020 15 R127-EMP-NO PIC S9(07) COMP-3. CL**2
|
|
00021 DTSIR127
|
|
00022 10 R127-DATA-AREA. DTSIR127
|
|
00023 15 R127-FEIN PIC S9(09) COMP-3. CL**2
|
|
00024 15 R127-POT-PRED-EMP-NO PIC S9(07) COMP-3. CL**3
|
|
00025 15 R127-PRIMARY-NAME PIC X(40). CL**2
|
|
00026 15 R127-ENTITY-NAME PIC X(40). CL**2
|
|
00027 15 R127-STREET-ADDRESS. CL**2
|
|
00028 20 R127-STREET-ATTN-LINE CL**2
|
|
00029 PIC X(40). CL**2
|
|
00030 20 R127-STREET-DELIV-LINE-1 CL**2
|
|
00031 PIC X(40). CL**2
|
|
00032 20 R127-STREET-DELIV-LINE-2 CL**2
|
|
00033 PIC X(40). CL**2
|
|
00034 20 R127-STREET-CITY CL**2
|
|
00035 PIC X(25). CL**2
|
|
00036 20 R127-STREET-ST CL**2
|
|
00037 PIC X(02). CL**2
|
|
00038 20 R127-STREET-ZIP CL**2
|
|
00039 PIC X(10). CL**2
|
|
00040 20 R127-STREET-ADVANCED-BARCODE CL**2
|
|
00041 PIC X(14). CL**2
|
|
00042 15 R127-MAILING-ADDRESS. CL**2
|
|
00043 20 R127-MAILING-ATTN-LINE CL**2
|
|
00044 PIC X(40). CL**2
|
|
00045 20 R127-MAILING-DELIV-LINE-1 CL**2
|
|
00046 PIC X(40). CL**2
|
|
00047 20 R127-MAILING-DELIV-LINE-2 CL**2
|
|
00048 PIC X(40). CL**2
|
|
00049 20 R127-MAILING-CITY CL**2
|
|
00050 PIC X(25). CL**2
|
|
00051 20 R127-MAILING-ST CL**2
|
|
00052 PIC X(02). CL**2
|
|
00053 20 R127-MAILING-ZIP CL**2
|
|
00054 PIC X(10). CL**2
|
|
00055 20 R127-MAILING-ADVANCED-BARCODE CL**2
|
|
00056 PIC X(14). CL**2
|
|
00057 15 R127-STREET-VOICE-1. CL**2
|
|
00058 20 R127-STREET-VOICE-1-AREA-CD CL**2
|
|
00059 PIC X(03). CL**2
|
|
00060 20 R127-STREET-VOICE-1-PREFIX CL**2
|
|
00061 PIC X(03). CL**2
|
|
00062 20 R127-STREET-VOICE-1-SUFFIX CL**2
|
|
00063 PIC X(04). CL**2
|
|
00064 20 R127-STREET-VOICE-1-EXT CL**2
|
|
00065 PIC X(05). CL**2
|
|
00066 15 R127-STREET-FAX. CL**2
|
|
00067 20 R127-STREET-FAX-AREA-CD CL**2
|
|
00068 PIC X(03). CL**2
|
|
00069 20 R127-STREET-FAX-PREFIX CL**2
|
|
00070 PIC X(03). CL**2
|
|
00071 20 R127-STREET-FAX-SUFFIX CL**2
|
|
00072 PIC X(04). CL**2
|
|
00073 20 R127-STREET-FAX-EXT CL**2
|
|
00074 PIC X(05). CL**2
|
|
00075 15 R127-MAILING-VOICE-1. CL**2
|
|
00076 20 R127-MAILING-VOICE-1-AREA-CD CL**2
|
|
00077 PIC X(03). CL**2
|
|
00078 20 R127-MAILING-VOICE-1-PREFIX CL**2
|
|
00079 PIC X(03). CL**2
|
|
00080 20 R127-MAILING-VOICE-1-SUFFIX CL**2
|
|
00081 PIC X(04). CL**2
|
|
00082 20 R127-MAILING-VOICE-1-EXT CL**2
|
|
00083 PIC X(05). CL**2
|
|
00084 15 R127-MAILING-FAX. CL**2
|
|
00085 20 R127-MAILING-FAX-AREA-CD CL**2
|
|
00086 PIC X(03). CL**2
|
|
00087 20 R127-MAILING-FAX-PREFIX CL**2
|
|
00088 PIC X(03). CL**2
|
|
00089 20 R127-MAILING-FAX-SUFFIX CL**2
|
|
00090 PIC X(04). CL**2
|
|
00091 20 R127-MAILING-FAX-EXT CL**2
|
|
00092 PIC X(05). CL**2
|
|
00093 15 R127-MAILING-EMAIL-ADDRESS CL**2
|
|
00094 PIC X(40). CL**2
|