74 lines
5.8 KiB
COBOL
74 lines
5.8 KiB
COBOL
00001 ***** 07/12/04
|
|
00002 * UINIRNWH
|
|
00003 * DTSIXFNH NEW HIRE FILE DATA RECORD LV001
|
|
00004 * UINIRNWH
|
|
00005 ***** UINIRNWH
|
|
00006 UINIRNWH
|
|
00007 01 WS-NEWHIRE-RECORD. UINIRNWH
|
|
00008 05 NH-RECORD-ID PIC X(2). UINIRNWH
|
|
00009 05 NH-EMPLOYEE-SSN PIC X(9). UINIRNWH
|
|
00010 05 NH-EMPLOYEE-FIRST-NAME PIC X(16). UINIRNWH
|
|
00011 05 NH-EMPLOYEE-MIDDLE-NAME PIC X(16). UINIRNWH
|
|
00012 05 NH-EMPLOYEE-LAST-NAME PIC X(30). UINIRNWH
|
|
00013 05 NH-EMPLOYEE-ADDRESS. UINIRNWH
|
|
00014 10 NH-EMPLOYEE-ADDRESS-1 PIC X(40). UINIRNWH
|
|
00015 10 NH-EMPLOYEE-ADDRESS-2 PIC X(40). UINIRNWH
|
|
00016 10 NH-EMPLOYEE-ADDRESS-3 PIC X(40). UINIRNWH
|
|
00017 10 NH-EMPLOYEE-CITY. UINIRNWH
|
|
00018 15 NH-EMPLOYEE-CITY1 PIC X(1). UINIRNWH
|
|
00019 15 NH-EMPLOYEE-CITY2 PIC X(1). UINIRNWH
|
|
00020 15 NH-EMPLOYEE-CITY23 PIC X(23). UINIRNWH
|
|
00021 10 NH-EMPLOYEE-STATE PIC X(2). UINIRNWH
|
|
00022 10 NH-EMPLOYEE-ZIP-CODE-1 PIC X(5). UINIRNWH
|
|
00023 10 NH-EMPLOYEE-ZIP-CODE-2 PIC X(4). UINIRNWH
|
|
00024 05 NH-EMPLOYEE-FOREIGN. UINIRNWH
|
|
00025 10 NH-FOREIGN-COUNTRY-CODE PIC X(2). UINIRNWH
|
|
00026 10 NH-FOREIGN-COUNTRY-NAME PIC X(25). UINIRNWH
|
|
00027 10 NH-FOREIGN-COUNTRY-ZIP PIC X(15). UINIRNWH
|
|
00028 05 NH-EMPLOYEE-DATE-OF-BIRTH. UINIRNWH
|
|
00029 10 NH-EMPLOYEE-DOB-CC PIC X(2). UINIRNWH
|
|
00030 10 NH-EMPLOYEE-DOB-YY PIC X(2). UINIRNWH
|
|
00031 10 NH-EMPLOYEE-DOB-MM PIC X(2). UINIRNWH
|
|
00032 10 NH-EMPLOYEE-DOB-DD PIC X(2). UINIRNWH
|
|
00033 05 NH-EMPLOYEE-DATE-OF-HIRE. UINIRNWH
|
|
00034 10 NH-EMPLOYEE-DOH-CCYY. UINIRNWH
|
|
00035 12 NH-EMPLOYEE-DOH-CC PIC X(2). UINIRNWH
|
|
00036 12 NH-EMPLOYEE-DOH-YY PIC X(2). UINIRNWH
|
|
00037 10 NH-EMPLOYEE-DOH-MM PIC X(2). UINIRNWH
|
|
00038 10 NH-EMPLOYEE-DOH-DD PIC X(2). UINIRNWH
|
|
00039 05 NH-EMPLOYEE-STATE-OF-HIRE PIC X(2). UINIRNWH
|
|
00040 05 NH-FEDERAL-EIN PIC X(9). UINIRNWH
|
|
00041 05 NH-STATE-EIN PIC X(12). UINIRNWH
|
|
00042 05 NH-EMPLOYER-NAME PIC X(45). UINIRNWH
|
|
00043 05 NH-EMPLOYER-ADDRESS. UINIRNWH
|
|
00044 10 NH-EMPLOYER-ADDRESS-1 PIC X(40). UINIRNWH
|
|
00045 10 NH-EMPLOYER-ADDRESS-2 PIC X(40). UINIRNWH
|
|
00046 10 NH-EMPLOYER-ADDRESS-3 PIC X(40). UINIRNWH
|
|
00047 10 NH-EMPLOYER-CITY. UINIRNWH
|
|
00048 15 NH-EMPLOYER-CITY1 PIC X(1). UINIRNWH
|
|
00049 15 NH-EMPLOYER-CITY2 PIC X(1). UINIRNWH
|
|
00050 15 NH-EMPLOYER-CITY23 PIC X(23). UINIRNWH
|
|
00051 10 NH-EMPLOYER-STATE PIC X(2). UINIRNWH
|
|
00052 10 NH-EMPLOYER-ZIP-CODE-1 PIC X(5). UINIRNWH
|
|
00053 10 NH-EMPLOYER-ZIP-CODE-2 PIC X(4). UINIRNWH
|
|
00054 05 NH-EMPLOYER-FOREIGN. UINIRNWH
|
|
00055 10 NH-FORGN-EMPLR-COUNTRY PIC X(2). UINIRNWH
|
|
00056 10 NH-FORGN-EMPLR-NAME PIC X(25). UINIRNWH
|
|
00057 10 NH-FORGN-EMPLR-ZIP-CODE PIC X(15). UINIRNWH
|
|
00058 05 NH-EMP-OPTN-ADDRESS. UINIRNWH
|
|
00059 10 NH-EMP-OPTN-ADDRESS-1 PIC X(40). UINIRNWH
|
|
00060 10 NH-EMP-OPTN-ADDRESS-2 PIC X(40). UINIRNWH
|
|
00061 10 NH-EMP-OPTN-ADDRESS-3 PIC X(40). UINIRNWH
|
|
00062 10 NH-EMP-OPTN-CITY. UINIRNWH
|
|
00063 15 NH-EMP-OPTN-CITY1 PIC X(1). UINIRNWH
|
|
00064 15 NH-EMP-OPTN-CITY2 PIC X(1). UINIRNWH
|
|
00065 15 NH-EMP-OPTN-CITY23 PIC X(23). UINIRNWH
|
|
00066 10 NH-EMP-OPTN-STATE PIC X(2). UINIRNWH
|
|
00067 10 NH-EMP-OPTN-ZIP-CODE-1 PIC X(5). UINIRNWH
|
|
00068 10 NH-EMP-OPTN-ZIP-CODE-2 PIC X(4). UINIRNWH
|
|
00069 05 NH-EMP-OPTN-FOREIGN. UINIRNWH
|
|
00070 10 NH-FOR-EMP-OPT-COUNTRY PIC X(2). UINIRNWH
|
|
00071 10 NH-FOR-EMP-OPT-NAME PIC X(25). UINIRNWH
|
|
00072 10 NH-FOR-EMP-OPT-ZIP-CODE PIC X(15). UINIRNWH
|
|
00073 05 FILLER PIC X(50). UINIRNWH
|