26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
00001 ***** 08/17/04
|
|
00002 * DTSIR204
|
|
00003 * DTSIR204 ACCOUNT NUMBER CHANGE REPORT RECORD. LV005
|
|
00004 * DTSIR204
|
|
00005 * SCREEN 24 GENERATES AN R204 REPORT RECORD DTSIR204
|
|
00006 * WHENEVER THE ACCOUNT NUMBER IS MODIFIED. DTSIR204
|
|
00007 * THE REPORT IS USED TO MOVE WAGE ITEMS FROM DTSIR204
|
|
00008 * THE OLD ACCOUNT NUMBER TO THE NEW ACCOUNT. DTSIR204
|
|
00009 ***** DTSIR204
|
|
00010 SKIP1 DTSIR204
|
|
00011 10 R204-LENGTH PIC S9(04) COMP. DTSIR204
|
|
00012 SKIP1 DTSIR204
|
|
00013 10 R204-SORT-AREA. DTSIR204
|
|
00014 15 R204-REC-TYPE PIC X(03) VALUE '204'. DTSIR204
|
|
00015 15 R204-NEW-EMP-NO PIC S9(07) COMP-3. DTSIR204
|
|
00016 15 R204-CHANGE-DATE PIC S9(09) COMP-3. DTSIR204
|
|
00017 SKIP1 DTSIR204
|
|
00018 10 R204-DATA-AREA. DTSIR204
|
|
00019 15 R204-YRQ PIC S9(05) COMP-3. DTSIR204
|
|
00020 15 R204-BATCH-NO PIC S9(05) COMP-3. DTSIR204
|
|
00021 15 R204-ITEM-NO PIC S9(03) COMP-3. DTSIR204
|
|
00022 15 R204-ORIG-EMP-NO PIC S9(07) COMP-3. DTSIR204
|
|
00023 15 R204-TOT-WAGE PIC S9(11)V99 COMP-3. DTSIR204
|
|
00024 15 R204-OP-ID PIC X(08). DTSIR204
|
|
00025 DTSIR204
|