DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
23
Copybook/CHGIL030.cpy
Normal file
23
Copybook/CHGIL030.cpy
Normal file
@ -0,0 +1,23 @@
|
||||
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
|
||||
Reference in New Issue
Block a user