Message-ID:

<doogie> Thinking is dangerous. It leads to ideas. -- Seen on #Debian

computers / comp.sys.ibm.as400.misc / Re: PAGRTT Command on Print Files

Re: PAGRTT Command on Print Files

<131188a5-1faa-4260-be19-4012aa21b339n@googlegroups.com>

https://www.rocksolidbbs.com/computers/article-flat.php?id=52&group=comp.sys.ibm.as400.misc#52

copy link Newsgroups: comp.sys.ibm.as400.misc

X-Received: by 2002:ac8:58cd:0:b0:31b:f627:733f with SMTP id u13-20020ac858cd000000b0031bf627733fmr24290153qta.627.1658217640896;
Tue, 19 Jul 2022 01:00:40 -0700 (PDT)
X-Received: by 2002:a37:68a:0:b0:6b5:dba2:8f81 with SMTP id
132-20020a37068a000000b006b5dba28f81mr8817368qkg.332.1658217640686; Tue, 19
Jul 2022 01:00:40 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.sys.ibm.as400.misc
Date: Tue, 19 Jul 2022 01:00:40 -0700 (PDT)
In-Reply-To: <38B6E0E2.E2C80E83@rchland.ibm.com>#1/1>
Injection-Info: google-groups.googlegroups.com; posting-host=62.159.255.164; posting-account=zQIJRgoAAACLEEXgTDvNcd9_IvAhARSA
NNTP-Posting-Host: 62.159.255.164
References: <896lmf$q9c$1@grandprime.binc.net> <38B6E0E2.E2C80E83@rchland.ibm.com>#1/1>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <131188a5-1faa-4260-be19-4012aa21b339n@googlegroups.com>
Subject: Re: PAGRTT Command on Print Files
From: benedikt.kowatsch@t-online.de (Benedikt Kowatsch)
Injection-Date: Tue, 19 Jul 2022 08:00:40 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 3286

by: Benedikt Kowatsch - Tue, 19 Jul 2022 08:00 UTC

Kevin Vette schrieb am Freitag, 25. Februar 2000 um 09:00:00 UTC+1:
> John Egan wrote:
> > I am using COBOL on the AS/400. I have a report that prints several
> > different agent comission statements. I want the first page of each
> > statement to print portrait, the reset of the statement to print landscape.
> > I came across the PAGRTT parameter and have been trying to use this in the
> > DDS program, but it doesn't seem to work. I have check the IBM on line
> > documentation for the PAGRTT parameter. If you have any ideas please let me
> > know.
> >
> > Thanks,
> > John Egan
> > Programmer/Analyst
> > National Guardian Life
> > jte...@nglic.com
> John:
> You don't really state what the problem is but I can think of a couple of
> things to make sure of before you go too far. Make sure you have the PAGRTT for
> the printer file as a whole set the way you want it. Probably, you want it to
> be 90 since most of your document prints that way. If so, make sure the page
> size you specify for the file is given in terms of "after rotation". Thus, if
> you are printing on 81/2" x 11" paper, you would give the page size as 48 lines
> by 110 characters if specifying *rowcol (be sure to change the overflow line to
> 48 or less as well) assuming 6 LPI and 10CPI (adjust the lines and characters
> based on the LPI, CPI, and page size you really are using). Then you would need
> to specify the PAGRTT(0) dds keyword on the first record format for the
> document. After the first page prints, it should go back to the file level
> parameter for subsequent pages and give you landscape.
> If you want instead to start in 0 degrees rotation and change every subsequent
> page to 90, you need to make sure that the PAGRTT(90) keyword is specified on
> the first record of each page (at a page boundary) and you must specify it for
> each subsequent page printed. Otherwise, you will go back to the printer file
> parameter.
> --
> Kevin Vette
> AS/400 Spool/Print
> IBM Rochester, Minnesota
> Comments provided "as is" - no warranties provided
Thanks Kevin! that really helped me a lot :)

Subject	Author
Re: PAGRTT Command on Print Files	Benedikt Kowatsch