DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
24
Copybook/CHGIL100.cpy
Normal file
24
Copybook/CHGIL100.cpy
Normal file
@ -0,0 +1,24 @@
|
||||
00001 ***** 07/05/02
|
||||
00002 * CHGIL100
|
||||
00003 * CHGIL100 EMPLOYER MASTER FILE EDIT LINKAGE LV005
|
||||
00004 * CHGIL100
|
||||
00005 * CHGIL100
|
||||
00006 * CHGIL100
|
||||
00007 ***** CHGIL100
|
||||
00008 10 L100-REQUEST-AREA. CHGIL100
|
||||
00009 15 L100-EMP-NO PIC S9(07) COMP-3. CHGIL100
|
||||
00010 15 L100-EXP-TRN-EFF-DATE PIC S9(09) COMP-3. CHGIL100
|
||||
00011 CHGIL100
|
||||
00012 10 L100-RETURN-AREA. CHGIL100
|
||||
00013 15 L100-RETURN-CODE PIC X(02). CHGIL100
|
||||
00014 88 L100-OK-88 VALUE '00'. CHGIL100
|
||||
00015 88 L100-NO-REC-FOUND-88 VALUE '01'. CHGIL100
|
||||
00016 88 L100-POOL-ACCT-88 VALUE '02'. CHGIL100
|
||||
00017 15 L100-EMP-TYPE PIC 9(02). CHGIL100
|
||||
00018 88 L100-EMP-TYPE-NULL-88 VALUE 99. CHGIL100
|
||||
00019 88 L100-NOT-LIABLE-88 VALUE 13. CHGIL100
|
||||
00020 15 L100-FISCAL-AGENT-CD PIC X(03). CHGIL100
|
||||
00021 15 L100-PRIMARY-NAME PIC X(40). CHGIL100
|
||||
00022 15 L100-SUCCESSOR PIC S9(07) COMP-3. CHGIL100
|
||||
00023 CHGIL100
|
||||
00024 10 L100-FILLER PIC X(60). CHGIL100
|
||||
Reference in New Issue
Block a user