A*%%*********************************************************************** A*%%TS RD 20011205 113028 PDEV01DD REL-V4R4M0 5769-PW1 A*%%FI+10660100000000000000000000000000000000000000000000000000 A*%%FI 0000000000000000000000000000000000000000000000000 A*%%*********************************************************************** A R RGBOLE A*%%*********************************************************************** A*%%RI 00000 A*%%FS 012 A*%%*********************************************************************** A SKIPB(013) A LPI(6) A SPACEB(000) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A CODBAR 25A 7 A BARCODE(CODE3OF9 1 *HRZ *NOHRI (*WI- A DTH 0,007)) A PRNBOL 8S 0O 70 A EDTCDE(4) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A PRIMPO 12A O 28 A FECHAVTO 8 0O 90 A EDTWRD(' / / ') A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A PRTITU 40A O 8 A PRAGEN 8A O 88 A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 67 PRLINA 24A O 13 A 1 A ' ' A SPACEB(001) A 68 PRLINB 24A O 13 A 1 A ' ' A SPACEB(001) A 69 PRLINC 24A O 13 A SPACEA(001) A 1 A ' ' A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A*%%*********************************************************************** A*%%SS A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%*********************************************************************** A R RGBOL1 A*%%*********************************************************************** A*%%RI 00000 A*%%*********************************************************************** A LPI(6) A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A PRNPO4$C 10A O 15 A PRNPO4$Z 10A O 57 A PRNPO4$B 10A O 96 A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 67 PRLIND$C 13A O 11 A 67 PRLIND$Z 13A O 52 A 67 PRLIND$B 13A O 91 A 1 A ' ' A SPACEB(001) A 68 PRLINF$C 13A O 11 A 68 PRLINF$Z 13A O 52 A 68 PRLINF$B 13A O 91 A 1 A ' ' A SPACEB(001) A 69 PRLINH$C 13A O 11 A 69 PRLINH$Z 13A O 52 A 69 PRLINH$B 13A O 91 A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A*%%*********************************************************************** A*%%SS A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%*********************************************************************** A R RGBOL1P A*%%*********************************************************************** A*%%RI 00000 A*%%*********************************************************************** A CODBAR$ 30S A BARCODE(INTERL2OF5 1 *HRZ *NOHRI (- A *WIDTH 0,007)) A POSITION(8,360 6,067) A BARCOD$ 30A O A POSITION(8,620 5,940) A R RGBOL2 A*%%*********************************************************************** A*%%RI 00000 A*%%*********************************************************************** A 1 A ' ' A SPACEB(001) ** A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A PRNPO4UC 10A O 15 A PRNPO4UZ 10A O 57 A PRNPO4UB 10A O 96 A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 1 A ' ' A SPACEB(001) A 67 PRLINDUC 13A O 11 A 67 PRLINDUZ 13A O 52 A 67 PRLINDUB 13A O 91 A 1 A ' ' A SPACEB(001) A 68 PRLINFUC 13A O 11 A 68 PRLINFUZ 13A O 52 A 68 PRLINFUB 13A O 91 A 1 A ' ' A SPACEB(001) A 69 PRLINHUC 13A O 11 A 69 PRLINHUZ 13A O 52 A 69 PRLINHUB 13A O 91 A 1 A ' ' A SPACEB(001) A*%%*********************************************************************** A*%%SS A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%CL 001 A*%%*********************************************************************** A R RGBOL2P A*%%*********************************************************************** A*%%RI 00000 A*%%*********************************************************************** A CODBARU 30S A BARCODE(INTERL2OF5 1 *HRZ *NOHRI (- A *WIDTH 0,007)) A POSITION(10,981 6,067) A BARCODU 30A O A POSITION(11,231 5,940) A R RGFILL A*%%*********************************************************************** A*%%RI 00000 A*%%*********************************************************************** A SKIPB(001) A PRFILL 6A O 2 A SPACEA(063) A 2 A ' ' A*%%*********************************************************************** A*%%SS A*%%CL 063 A*%%CP+999CRTPRTF A*%%CP+ FILE(USER1DEVO/PMT530R1) A*%%CP+ DEVTYPE(*SCS) A*%%CP PAGESIZE(*N 120 *N ) A*%%***********************************************************************