DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
73
Copybook/UINIRNWH.cpy
Normal file
73
Copybook/UINIRNWH.cpy
Normal file
@ -0,0 +1,73 @@
|
||||
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
|
||||
Reference in New Issue
Block a user