91 lines
7.1 KiB
COBOL
91 lines
7.1 KiB
COBOL
00001 ***** 02/08/00
|
|
00002 * DTSIJSDL
|
|
00003 * DTSIJSDL RECORD FORMAT FOR 1 TIME JOB SERVICE DOWNLOAD. LV007
|
|
00004 * DTSIJSDL
|
|
00005 ***** DTSIJSDL
|
|
00006 05 JS-DATA. CL**5
|
|
00007 10 JS-EMP-ACCT-NO PIC 9(06). CL**7
|
|
00008 10 JS-PRIMARY-NAME PIC X(40). CL**5
|
|
00009 10 JS-ENTITY-NAME PIC X(40). CL**5
|
|
00010 10 JS-FEIN PIC 9(09). CL**7
|
|
00011 10 JS-SIC-CD PIC X(04). CL**5
|
|
00012 10 JS-NAICS-CD PIC X(06). CL**5
|
|
00013 10 JS-REGISTRATION-DT PIC 9(08). CL**7
|
|
00014 10 JS-MOST-RECENT-SOL-START-DT PIC 9(08). CL**7
|
|
00015 10 JS-INACTIVATION-DT PIC 9(08). CL**7
|
|
00016 10 JS-NUMBER-OF-EMPLOYEES PIC 9(07). CL**7
|
|
00017 10 JS-ADDRESS-AREA. CL**6
|
|
00018 15 JS-MAILING-ADDRESS. CL**6
|
|
00019 20 JS-MAILING-ATTN-LINE-1 PIC X(40). CL**6
|
|
00020 20 JS-MAILING-DELIV-LINE-1 PIC X(40). CL**6
|
|
00021 20 JS-MAILING-DELIV-LINE-2 PIC X(40). CL**6
|
|
00022 20 JS-MAILING-CITY PIC X(25). CL**6
|
|
00023 20 JS-MAILING-ST PIC X(02). CL**6
|
|
00024 20 JS-MAILING-ZIP PIC X(10). CL**6
|
|
00025 20 JS-MAILING-ADV-BARCODE PIC X(14). CL**6
|
|
00026 15 JS-MAIL-VOICE-1. CL**6
|
|
00027 20 JS-MAIL-VOICE-1-AREA-CD PIC X(03). CL**6
|
|
00028 20 JS-MAIL-VOICE-1-PREFIX PIC X(03). CL**6
|
|
00029 20 JS-MAIL-VOICE-1-SUFFIX PIC X(04). CL**6
|
|
00030 20 JS-MAIL-VOICE-1-EXT PIC X(05). CL**6
|
|
00031 15 JS-MAIL-VOICE-2. CL**6
|
|
00032 20 JS-MAIL-VOICE-2-AREA-CD PIC X(03). CL**6
|
|
00033 20 JS-MAIL-VOICE-2-PREFIX PIC X(03). CL**6
|
|
00034 20 JS-MAIL-VOICE-2-SUFFIX PIC X(04). CL**6
|
|
00035 20 JS-MAIL-VOICE-2-EXT PIC X(05). CL**6
|
|
00036 15 JS-MAIL-FAX. CL**6
|
|
00037 20 JS-MAIL-FAX-AREA-CD PIC X(03). CL**6
|
|
00038 20 JS-MAIL-FAX-PREFIX PIC X(03). CL**6
|
|
00039 20 JS-MAIL-FAX-SUFFIX PIC X(04). CL**6
|
|
00040 20 JS-MAIL-FAX-EXT PIC X(05). CL**6
|
|
00041 15 JS-LOCAL-ADDRESS. CL**6
|
|
00042 20 JS-LOCAL-ATTN-LINE-1 PIC X(40). CL**6
|
|
00043 20 JS-LOCAL-DELIV-LINE-1 PIC X(40). CL**6
|
|
00044 20 JS-LOCAL-DELIV-LINE-2 PIC X(40). CL**6
|
|
00045 20 JS-LOCAL-CITY PIC X(25). CL**6
|
|
00046 20 JS-LOCAL-ST PIC X(02). CL**6
|
|
00047 20 JS-LOCAL-ZIP PIC X(10). CL**6
|
|
00048 20 JS-LOCAL-ADV-BARCODE PIC X(14). CL**7
|
|
00049 15 JS-LOCAL-VOICE-1. CL**6
|
|
00050 20 JS-LOCAL-VOICE-1-AREA-CD PIC X(03). CL**6
|
|
00051 20 JS-LOCAL-VOICE-1-PREFIX PIC X(03). CL**6
|
|
00052 20 JS-LOCAL-VOICE-1-SUFFIX PIC X(04). CL**6
|
|
00053 20 JS-LOCAL-VOICE-1-EXT PIC X(05). CL**6
|
|
00054 15 JS-LOCAL-VOICE-2. CL**6
|
|
00055 20 JS-LOCAL-VOICE-2-AREA-CD PIC X(03). CL**6
|
|
00056 20 JS-LOCAL-VOICE-2-PREFIX PIC X(03). CL**6
|
|
00057 20 JS-LOCAL-VOICE-2-SUFFIX PIC X(04). CL**6
|
|
00058 20 JS-LOCAL-VOICE-2-EXT PIC X(05). CL**6
|
|
00059 15 JS-LOCAL-FAX. CL**6
|
|
00060 20 JS-LOCAL-FAX-AREA-CD PIC X(03). CL**6
|
|
00061 20 JS-LOCAL-FAX-PREFIX PIC X(03). CL**6
|
|
00062 20 JS-LOCAL-FAX-SUFFIX PIC X(04). CL**6
|
|
00063 20 JS-LOCAL-FAX-EXT PIC X(05). CL**6
|
|
00064 10 JS-MOPO-DATA-AREA. CL**5
|
|
00065 15 JS-MOPO-NAME PIC X(32). CL**5
|
|
00066 15 JS-MOPO-TITLE PIC X(20). CL**5
|
|
00067 15 JS-MOPO-SSN PIC 9(09). CL**7
|
|
00068 15 JS-MOPO-ADDRESS. CL**5
|
|
00069 20 JS-MOPO-ATTN-LINE-1 PIC X(40). CL**5
|
|
00070 20 JS-MOPO-DELIV-LINE-1 PIC X(40). CL**5
|
|
00071 20 JS-MOPO-DELIV-LINE-2 PIC X(40). CL**5
|
|
00072 20 JS-MOPO-CITY PIC X(25). CL**5
|
|
00073 20 JS-MOPO-ST PIC X(02). CL**5
|
|
00074 20 JS-MOPO-ZIP PIC X(10). CL**5
|
|
00075 20 JS-MOPO-ADV-BARCODE PIC X(14). CL**5
|
|
00076 15 JS-MOPO-VOICE-1. CL**5
|
|
00077 20 JS-MOPO-VOICE-1-AREA-CD PIC X(03). CL**5
|
|
00078 20 JS-MOPO-VOICE-1-PREFIX PIC X(03). CL**5
|
|
00079 20 JS-MOPO-VOICE-1-SUFFIX PIC X(04). CL**5
|
|
00080 20 JS-MOPO-VOICE-1-EXT PIC X(05). CL**5
|
|
00081 15 JS-MOPO-VOICE-2. CL**5
|
|
00082 20 JS-MOPO-VOICE-2-AREA-CD PIC X(03). CL**5
|
|
00083 20 JS-MOPO-VOICE-2-PREFIX PIC X(03). CL**5
|
|
00084 20 JS-MOPO-VOICE-2-SUFFIX PIC X(04). CL**5
|
|
00085 20 JS-MOPO-VOICE-2-EXT PIC X(05). CL**5
|
|
00086 15 JS-MOPO-FAX. CL**5
|
|
00087 20 JS-MOPO-FAX-AREA-CD PIC X(03). CL**5
|
|
00088 20 JS-MOPO-FAX-PREFIX PIC X(03). CL**5
|
|
00089 20 JS-MOPO-FAX-SUFFIX PIC X(04). CL**5
|
|
00090 20 JS-MOPO-FAX-EXT PIC X(05). CL**5
|