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