00001 ***************************************************************** 05/15/02 00002 ******** PBSS LPAM PRODUCT - LPAM GETZIP OUTPUT ********** LPAM008C 00003 ***************************************************************** LV003 00004 * 11-NEW----------------------------------------00000-JHC-060988* LPAM008C 00005 ******************** (C) PBSS 1988 ****************************** LPAM008C 00006 * LPAM008C 00007 01 LPAM-GETZIP-OUTPUT. LPAM008C 00008 05 LPAM-GETZIP-RETURNED PIC X(03). LPAM008C 00009 05 LPAM-GETZIP-DATA. LPAM008C 00010 10 LPAM-GETZIP-RZIP PIC X(05). LPAM008C 00011 10 LPAM-GETZIP-MZIPI PIC X(01). LPAM008C 00012 10 LPAM-GETZIP-MZIP PIC X(05). LPAM008C 00013 10 LPAM-GETZIP-MZCIND PIC X(01). LPAM008C 00014 10 LPAM-GETZIP-MCZIND PIC X(01). LPAM008C 00015 10 LPAM-GETZIP-RCNTY PIC X(05). LPAM008C 00016 10 LPAM-GETZIP-RCITY PIC X(15). LPAM008C 00017 10 LPAM-GETZIP-RSTATE PIC X(02). LPAM008C 00018 10 FILLER PIC X(08). LPAM008C