Re: Printing data on last sheet and at bottom of page.

[Don Mellen <donm@ONTKO.COM>]

"Not to pick, but"...
(a) Nothing will prevent a group of lines from breaking across a page if
there are more lines then will fit on a page.
(b) To the best of my knowledge, there is no AT-END parameter for
next-listing, I believe you are thinking of next-column.

On Thu, 22 Mar 2001, Mark Risman wrote:

> Not to pick, but to my understanding, the NEXT-LISTING will only prevent a
> group of details from being broken across pages if (a) the number of lines
> in the group aren't more then the number of lines on a page, and (b) you
> have the AT-END=NEWPAGE parameter set for NEXT-LISTING.
>
> - Mark
>
>
> -----Original Message-----
> From:   McCown, Larry [mailto:MCCOWLA@MAIL.NORTHGRUM.COM]
> Sent:   Thursday, March 22, 2001 10:49 AM
> To:     SQR-USERS@list.iex.net
> Subject:        Re: Printing data on last sheet and at bottom of page.
>
> Sorry, my mistake.  I opened my mouth and let my inexperience show.  The
> book shows next-listing in a select statement and I totally underestimated
> the number of lines needed, so it didn't appear to be working.  It does
> prevent a group of details from being broken across two pages, even outside
> a select statement.
> Thanks also to Peter for helping me out that was the problem.  Again my
> inexperience.  Thank you for all the help.  It is doing somewhat what I
> need, I just now need to fine tune it.
>
> Thanks you so very much to all.
> Larry
>
> -----Original Message-----
> From: Ray Ontko [mailto:rayo@ONTKO.COM]
> Sent: Thursday, March 22, 2001 7:18 AM
> To: SQR-USERS@list.iex.net
> Subject: Re: Printing data on last sheet and at bottom of page.
>
>
> next-listing works just fine outside of begin-select.
>
> Ray
>
> [Charset iso-8859-1 unsupported, filtering to ASCII...]
> > Bob, the next-listing will not work because this is not being done in a
> > begin-select statement.  It is a separate procedure, designed to printed
> on
> > the bottom of the very last page.  There are other procedures that are
> > called during the program so it would be thought to put it in a select
> > statement.
> >
> > Franck,  I tried adding this(below) to the first line of my procedure but
> > got SQR 3701 invalid command.
> >
> > position=#sqr-max-lines -12
> > next-listing need 12
> > if position > #current-line
> >     new-page
> > end-if
> > next-listing
> > y-offset=position - #current-line
> > print  ' ' (y-offset,1)
> >
> > What I am trying to print on the bottom of the last page.
> >
> > BEGIN-PROCEDURE  signoff
> > graphic (+10,1,20) HORZ-LINE 15
> >     Print 'Work Order Completion Information' () center Bold
> > graphic (,22,37) box 1  15
> > graphic (,60,20)  HORZ-LINE 15
> >     print 'Problem ______________  Cause _________________ Remedy
> > ______________________' (+2,1)
> >     print 'Do any steps or instructions need to be added or deleted? Did
> you
> > find any  ' (+2,1)
> >     print 'deficiencies. If so, please check box and write the information
> > on the back ' (+1,1)
> >     print 'and return a copy to Plant Maintenance Engineering.
> > _______________________'  (+1,1)
> > graphic (,76,2) box 1 15
> >     print 'Did you generate a follow-up Work Order?  Number ___________
> Date
> > ___/___/___' (+2,1)
> >     print 'Employee Number   Date    Start Time  End  Time  S/O/D  Notes'
> > (+2,1)
> >     print '______________  __/__/__  _____:____  ____:____  _____
> > _____________________' (+1,1)
> >     print '______________  __/__/__  _____:____  ____:____  _____
> > _____________________' (+1,1)
> >     print '______________  __/__/__  _____:____  ____:____  _____
> > _____________________' (+1,1)
> >     print '______________  __/__/__  _____:____  ____:____  _____
> > _____________________' (+1,1)
> >     print 'Manager/Supervisor Review: ___________________________  Date:
> > ____/____/____' (+2,1)
> > END-PROCEDURE
> > Larry
> >
> > -----Original Message-----
> > From: Franck Masson [mailto:franck.masson@BRIO.COM]
> > Sent: Wednesday, March 21, 2001 5:28 PM
> > To: SQR-USERS@list.iex.net
> > Subject: Re: Printing data on last sheet and at bottom of page.
> >
> >
> > hi,
> >
> > you can try something like this. (if #current-line is what i think it
> > must work)
> >
> > you know the maximum line in your page (#sqr-max-lines)
> > you know the current-line (#current-line)
> > you need 12 lines
> >
> > position=#sqr-max-lines -12
> > next-listing need 12
> > if position > #current-line
> >         new page
> > endif
> > next-listing
> > y-offset=position - #current-line
> > print 'text ...' (y-offset,1)
> > print 'text1 ...' (+1,1)
> > ...
> >
> >
> > franck,
> >
> >
> > Bob Helm wrote:
> > >
> > > As for the first part, I have a very similar need and no answer yet.
> > > As for the second part, I would try "next-listing need=12" instead of
> > > on-break.
> > >
> > > Bob Helm
> >
>
> ----------------------------------------------------------------------
> Ray Ontko   rayo@ontko.com   Phone 1.765.935.4283   Fax 1.765.962.9788
> Ray Ontko & Co.   Software Consulting Services   http://www.ontko.com/
>

-----------------------------------------------------------------------
Donald Mellen  | Ray Ontko & Co. - Richmond, IN - http://www.ontko.com/
donm@ontko.com |  "In the beginning, there was nothing, which exploded"