19 lines
1.4 KiB
COBOL
19 lines
1.4 KiB
COBOL
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
|