DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
18
Copybook/LPAM008C.cpy
Normal file
18
Copybook/LPAM008C.cpy
Normal file
@ -0,0 +1,18 @@
|
||||
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
|
||||
Reference in New Issue
Block a user