34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
00001 ***** 11/20/06
|
|
00002 * DTSIX212
|
|
00003 * DTSIX212 ELECTRONIC SUBMISSION EMPLOYER REPORT LV001
|
|
00004 * EXTRACT RECORD DTSIX212
|
|
00005 * DTSIX212
|
|
00006 * CONTAINS INFORMATION ABOUT EMPLOYER REPORTS DTSIX212
|
|
00007 * SUBMITTED ELECTRONICALLY. DTSIX212
|
|
00008 * DTSIX212
|
|
00009 * DTSIX212
|
|
00010 ***** DTSIX212
|
|
00011 15 X212-EMP-NBR PIC 9(06). DTSIX212
|
|
00012 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00013 15 X212-FEIN PIC 9(09). DTSIX212
|
|
00014 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00015 15 X212-ORIG-EMP-NBR PIC 9(06). DTSIX212
|
|
00016 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00017 15 X212-ORIG-FEIN PIC 9(09). DTSIX212
|
|
00018 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00019 15 X212-SUBMITTER-FEIN PIC 9(09). DTSIX212
|
|
00020 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00021 15 X212-QTR PIC X(06). DTSIX212
|
|
00022 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00023 15 X212-BATCH PIC 9(05). DTSIX212
|
|
00024 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00025 15 X212-ITEM PIC 9(03). DTSIX212
|
|
00026 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00027 15 X212-REMITTANCE PIC --------9.99. DTSIX212
|
|
00028 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00029 15 X212-PROCESS-DT PIC X(10). DTSIX212
|
|
00030 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00031 15 X212-RECEIVED-DT PIC X(10). DTSIX212
|
|
00032 15 FILLER PIC X(01) VALUE ','. DTSIX212
|
|
00033 15 X212-DEPOSIT-DT PIC X(10). DTSIX212
|