DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
13
Copybook/LPAM007C.cpy
Normal file
13
Copybook/LPAM007C.cpy
Normal file
@ -0,0 +1,13 @@
|
||||
00001 ***************************************************************** 05/15/02
|
||||
00002 ******** PBSS LPAM PRODUCT - LPAM GETZIP INPUT ********** LPAM007C
|
||||
00003 ***************************************************************** LV003
|
||||
00004 * 11-NEW----------------------------------------00000-JHC-060988* LPAM007C
|
||||
00005 * 06/22/01 RLS CHANGED ZIP FIELD DEFINITION FROM 9(5) TO X(5) * LPAM007C
|
||||
00006 * TO ALLOW WILDCARD (E.G. 605*) * LPAM007C
|
||||
00007 ******************** (C) PBSS 1988 ****************************** LPAM007C
|
||||
00008 * LPAM007C
|
||||
00009 01 LPAM-GETZIP-INPUT. LPAM007C
|
||||
00010 05 LPAM-GETZIP-TARGET-ZIP PIC X(05). LPAM007C
|
||||
00011 05 LPAM-GETZIP-TARGET-IND PIC X(05). LPAM007C
|
||||
00012 05 LPAM-GETZIP-REPLICATION PIC 9(03). LPAM007C
|
||||
00013 05 LPAM-GETZIP-RESERVED PIC X(30). LPAM007C
|
||||
Reference in New Issue
Block a user