45 lines
3.5 KiB
COBOL
45 lines
3.5 KiB
COBOL
00001 ***** 11/15/12
|
|
00002 * DTSIL424
|
|
00003 * DTSIL424 DETERMINE TOTAL AND TAXABLE WAGES FOR LV013
|
|
00004 * AMENDED REPORTS: LINKAGE. CL**3
|
|
00005 * DTSIL424
|
|
00006 * DTSIL424
|
|
00007 * 11/07/2012 INITIAL DEVELOPMENT. GD CL**3
|
|
00008 * CL**2
|
|
00009 ***** DTSIL424
|
|
00010 DTSIL424
|
|
00011 10 L424-REQUEST-AREA. CL**3
|
|
00012 15 L424-CMND PIC X(01). CL*11
|
|
00013 88 L424-CMND-CHK-WG-88 VALUE '0'. CL*12
|
|
00014 88 L424-CMND-PROCESS-88 VALUE '1'. CL*12
|
|
00015 15 L424-EMP-NO PIC S9(07) COMP-3. CL*10
|
|
00016 15 L424-BATCH-NO PIC S9(05) COMP-3. CL**7
|
|
00017 15 L424-ITEM-NO PIC S9(03) COMP-3. CL**5
|
|
00018 15 L424-YRQ PIC S9(05) COMP-3. CL**5
|
|
00019 DTSIL424
|
|
00020 10 L424-RETURN-AREA. CL**4
|
|
00021 15 L424-TOTAL-WAGES PIC S9(11)V99 COMP-3. CL**5
|
|
00022 15 L424-TAX-WAGES PIC S9(11)V99 COMP-3. CL**8
|
|
00023 DTSIL424
|
|
00024 10 L424-RESULT-AREA. CL*11
|
|
00025 15 L424-WGH-WAGES-IND PIC X(01). CL*11
|
|
00026 88 L424-WGH-WAGES-YES-88 VALUE 'Y'. CL*13
|
|
00027 88 L424-WGH-WAGES-NO-88 VALUE 'N'. CL*13
|
|
00028 15 L424-WTC-WAGES-IND PIC X(01). CL*11
|
|
00029 88 L424-WTC-WAGES-YES-88 VALUE 'Y'. CL*13
|
|
00030 88 L424-WTC-WAGES-NO-88 VALUE 'N'. CL*13
|
|
00031 15 L424-PROCESS-IND PIC X(01). CL*11
|
|
00032 88 L424-PROCESS-OK-88 VALUE '0'. CL*13
|
|
00033 88 L424-WGH-NOT-FOUND-88 VALUE '1'. CL*13
|
|
00034 88 L424-WTC-NOT-FOUND-88 VALUE '2'. CL*13
|
|
00035 88 L424-FILE-CLOSED-88 VALUE '9'. CL*13
|
|
00036 88 L424-RESULT-NOT-OK-88 VALUE '1' THRU '9'. CL*13
|
|
00037 DTSIL424
|
|
00038 DTSIL424
|
|
00039 10 L424-MSG-AREA. CL**3
|
|
00040 15 L424-MSG-ID PIC X(04). CL**5
|
|
00041 15 L424-MSG-TEXT PIC X(60). CL**5
|
|
00042 DTSIL424
|
|
00043 DTSIL424
|
|
00044 10 FILLER PIC X(28). CL**5
|