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