24 lines
1.8 KiB
COBOL
24 lines
1.8 KiB
COBOL
00001 ***** 02/26/03
|
|
00002 * CHGIL030
|
|
00003 * CHGIL030 TOTAL BENEFITS PAID LINKAGE LV003
|
|
00004 * CHGIL030
|
|
00005 * CHGIL030
|
|
00006 * CHGIL030
|
|
00007 ***** CHGIL030
|
|
00008 10 CG-L030-COMMAND PIC X(01). CHGIL030
|
|
00009 88 CG-L030-CMND-INIT-88 VALUE '0'. CHGIL030
|
|
00010 88 CG-L030-CMND-PROCESS-88 VALUE '1'. CHGIL030
|
|
00011 88 CG-L030-CMND-TERM-88 VALUE '2'. CHGIL030
|
|
00012 CHGIL030
|
|
00013 10 CG-L030-INPUT. CHGIL030
|
|
00014 15 CG-L030-SSN PIC 9(09). CHGIL030
|
|
00015 15 CG-L030-START-DATE PIC S9(09) COMP-3. CHGIL030
|
|
00016 15 CG-L030-END-DATE PIC S9(09) COMP-3. CHGIL030
|
|
00017 15 CG-L030-BYE PIC S9(09) COMP-3. CHGIL030
|
|
00018 15 CG-L030-PROGRAM PIC X(01). CHGIL030
|
|
00019 CHGIL030
|
|
00020 10 CG-L030-RETURN. CHGIL030
|
|
00021 15 CG-L030-TOT-CHG PIC S9(11)V99 COMP-3. CHGIL030
|
|
00022 CHGIL030
|
|
00023 10 FILLER PIC X(66). CHGIL030
|