Kbase P9878: How to use page-size
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
31/01/2003 |
|
Status: Unverified
GOAL:
How to use page-size Option
FIX:
Page-size option should be use on the OUTPUT TO statement.
Example:
def var fecha as date initial "05/12/99".
def var p-folio as char initial "hola".
def var p-exped as char initial "exp1".
def var p-importe as char initial "2345".
def var p-estado as char initial "Morelos".
def var p-nombre as char initial "CARLOS".
def var res as char.
OUTPUT TO d:\ticket.txt Page-Size 22.
PUT "DATE:" AT 20
fecha AT 27 SKIP(1)
" PAYMENT EXAMPLE " AT 10 SKIP
"_____________________________________" AT 1 SKIP
"TRACK NUMBER:" AT 1
p-folio AT 9 SKIP
"NAME: " AT 1
p-nombre AT 9 /*SKIP*/
"AMOUNT: " AT 1
p-importe AT 8 SKIP
"PAYMENT:" AT 1
p-estado AT 16 SKIP(1).
PUT p-importe AT 1
fecha AT 12
time AT 23
USERID("xxxx") AT 12
p-nombre AT 23. /*SKIP.*/
PUT "*************************************" AT 1 SKIP
"Not valid without Seal " AT 1 skip
"and Signature from the Teller" AT 1 skip(1)
"THANKS FOR YOUR PAYMENT..." AT 8.
OUTPUT CLOSE.
RUN adecomm/_osprint.p(INPUT ?,INPUT "d:\ticket.txt",INPUT 15, INPUT 1,INPUT 0,INPUT 0,OUTPUT res).