14 lines
1.0 KiB
COBOL
14 lines
1.0 KiB
COBOL
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
|