<verbatim> ************************************************************************** * DBG015PF: Display Documement Text - Printout * Copyright (C) 2000 Martin Rowe <martin@dbg400.net> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software Foundation, * Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ************************************************************************** * CRTPRTF PAGESIZE(70 100) OVRFLW(69) LPI(6) CPI(12) HOLD(*YES) * SCHEDULE(*FILEEND) RPLUNPRT(*YES ' ') ************************************************************************** A R DDHEADER TEXT('Heading') A SKIPB(5) SPACEA(1) A COMPNY 40 8 HIGHLIGHT A R#USER 10 50 HIGHLIGHT A R#DATE 6 0 61EDTCDE(Y) HIGHLIGHT A 70'Page:' A PAGE1 4 0 75EDTCDE(Z) HIGHLIGHT A 80'of' A TOTPAG 4 0 82EDTCDE(Z) HIGHLIGHT A 8'Document:' A SPACEB(1) A R#DOCD 10 18 HIGHLIGHT A 29'Title:' A R#TITL 50 36 HIGHLIGHT A 8'----------------------------------- A ------------------------------------ A ----------' A SPACEB(1) ************************************************************************** A R DDUSRHED TEXT('Heading') A SKIPB(4) SPACEA(1) A 8' ' ************************************************************************** A R DDDETAIL TEXT('Details') A SPACEB(1) A R#TEXT 79 8 ************************************************************************** A R DDATTRIB TEXT('Details - attributes') A R#TEXT 79 8HIGHLIGHT ************************************************************************** A R DDUSREND TEXT('User Footer') A R#TEXT 79 64 8 ************************************************************************** A R DDCONTIN TEXT('Continued') A SPACEB(2) A 8'----------------------------------- A Continued--------------------------- A ----------' ************************************************************************** A R DDENDREP TEXT('End of report') A SPACEB(2) A 8'----------------------------------- A ------------------------------------ A ----------' ************************************************************************** </verbatim> -- Main.MartinRowe - 18 Jun 2005
This topic: DBG400
>
SourceCodeList
>
DdsSource
>
PrtfDBG015PF0
Topic revision: r1 - 18 Jun 2005 - 20:37:32 -
MartinRowe
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400?
Send feedback