38 lines
2.9 KiB
COBOL
38 lines
2.9 KiB
COBOL
00001 ***** 11/20/06
|
|
00002 * DTSIX210
|
|
00003 * DTSIX210 ELECTRONIC SUBMISSION EXTRACT RECORD. LV001
|
|
00004 * DTSIX210
|
|
00005 * CONTAINS INFORMATION ABOUT FISCAL AGENTS AND EMPLOYERS DTSIX210
|
|
00006 * SUBMITTING REPORTS ELECTRONICALLY. DTSIX210
|
|
00007 * DTSIX210
|
|
00008 * DTSIX210
|
|
00009 ***** DTSIX210
|
|
00010 DTSIX210
|
|
00011 15 X210-FEIN PIC 9(09). DTSIX210
|
|
00012 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00013 15 X210-NAME PIC X(50). DTSIX210
|
|
00014 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00015 15 X210-STREET PIC X(40). DTSIX210
|
|
00016 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00017 15 X210-CITY PIC X(25). DTSIX210
|
|
00018 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00019 15 X210-STATE PIC X(02). DTSIX210
|
|
00020 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00021 15 X210-ZIP PIC X(10). DTSIX210
|
|
00022 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00023 15 X210-START-BATCH PIC X(05). DTSIX210
|
|
00024 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00025 15 X210-END-BATCH PIC X(05). DTSIX210
|
|
00026 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00027 15 X210-CONTACT-NAME PIC X(30). DTSIX210
|
|
00028 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00029 15 X210-CONTACT-PHONE PIC X(10). DTSIX210
|
|
00030 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00031 15 X210-CONTACT-PHONE-EXT PIC X(04). DTSIX210
|
|
00032 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00033 15 X210-ESTB-DATE PIC X(10). DTSIX210
|
|
00034 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00035 15 X210-RUN-DATE PIC X(10). DTSIX210
|
|
00036 15 FILLER PIC X(01) VALUE ','. DTSIX210
|
|
00037 15 X210-RUN-TIME PIC X(08). DTSIX210
|