running to NO.PAGE

17 views
Skip to first unread message

Steve Trimble

unread,
May 8, 2008, 5:39:18 PM5/8/08
to OpenQM
this works:

RUN BP TEST.RPC.TEXTBOOK.SUB NO.PAGE

this doesn't:

TEST.RPC.TEXTBOOK.SUB NO.PAGE

TEST.RPC.TEXTBOOK.SUB is privately catalogued

so what do i need to do to perform NO.PAGE if performing a catalogued
program?

Version number 2.6-12
Licence number 0197039571, System id DFKK-FTPJ
Maximum users 4, available 3

Licensed to Computerized Data Management

QM/WINDOWS

thanks

Doug Dumitru

unread,
May 8, 2008, 7:49:38 PM5/8/08
to Ope...@googlegroups.com
Steve Trimble wrote:
> this works:
>
> RUN BP TEST.RPC.TEXTBOOK.SUB NO.PAGE
>
> this doesn't:
>
> TEST.RPC.TEXTBOOK.SUB NO.PAGE
>
> TEST.RPC.TEXTBOOK.SUB is privately catalogued
>
> so what do i need to do to perform NO.PAGE if performing a catalogued
> program?

I think the idea here is that your programs are in control of their own
option parameters. I would actually be upset of NO.PAGE was parsed for
a user application.

The "hack" method of no.page in an application is to reference a cursor
position before the first print/display statement. Thus near the top of
the program include a ...

dummy = @(0,0)

... which will turn paging off.

Hopefully, there is a more formal fix to this, but this is the classic
U2 style.

Doug Dumitru
EasyCo LLC

Martin Phillips

unread,
May 9, 2008, 3:41:19 AM5/9/08
to Ope...@googlegroups.com
Hi Steve,

Doug is right. The NO.PAGE option is part of the RUN command. If you
catalogue the program for direct access, any command line processing is up
to you.

Note that there is a RUN.NO.PAGE setting of the OPTION command that would
affect RUN and catalogued programs.


Martin Phillips
Ladybridge Systems Ltd
17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB
+44-(0)1604-709200Martin Phillips
Ladybridge Systems Ltd
17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB
+44-(0)1604-709200

CDMI - Steve Trimble

unread,
May 9, 2008, 8:37:52 AM5/9/08
to Ope...@googlegroups.com
the hack works just fine
i guess coming from the Pick, Reality, Ultimate, Mentor, AP/Pro, D3, mvBASE world we had to create our own pagination. here, it's forced.
i like the pagination, but it seems it should be an option to have the pagination, not to stop the pagination.
i guess it'll take to some to rid myself of those 30 year old bad habits ;-)
 
thanks guys!
 
Steve Trimble
Computerized Data Mgmt Inc
PO Box 13403
Maumelle, AR 72113
(501) 803-0974 09:00am - 6:00pm CST
 
Home of self defense products: http://www.protecturself.com

Martin Phillips

unread,
May 9, 2008, 12:39:48 PM5/9/08
to Ope...@googlegroups.com
Hi Steve,
 
Not having to include line counting in programs always struck me as a really nice feature of the multivalue systems that I first encountered. I was amazed to find that it is not in Pick.
 
I cannot think of why I would ever want a program that output lots of data but did not paginate it. [That should trigger a log of replies!].

hom...@cox.net

unread,
May 9, 2008, 2:03:01 PM5/9/08
to Ope...@googlegroups.com, Martin Phillips
Greetings all.

I routinely make use of the pagination available in D3. I typically use the D3/NT flavor in case there are differences in the various other flavors I cannot speak to that.

Anyway, there is always pagination available in D3. When doing a report, it happens automatically. The only time I need to decide whether to force or allow a page break is when I have data that I want to maintain as one group.

Inside D3 BASIC program is a variable called SYSTEM(). Depending on which number of SYSTEM() you inquire into, different information is returned. One of these is the number of lines remaining on the page, and the number of lines on the page is specified on the TERM statement.

If I need to page early, I can issue a "PAGE" command and everything happens automatically.

When I want to run a program that does not page, I generally perform a TCL command of TERM ,0 to set the number of lines per page to 0. I don't know if D3 is counting down from a very large number of recognizes zero as being no pagination desired, but I have not see it put out the column headings more than once - at the top when I use this.

Larry Hazel

Ashley Chapman

unread,
May 9, 2008, 4:46:49 PM5/9/08
to Ope...@googlegroups.com
2008/5/9 Martin Phillips <martinp...@ladybridge.com>:

>
>
> Hi Steve,
>
> Not having to include line counting in programs always struck me as a really
> nice feature of the multivalue systems that I first encountered. I was
> amazed to find that it is not in Pick.
>
> I cannot think of why I would ever want a program that output lots of data
> but did not paginate it. [That should trigger a log of replies!].

How about when outputting to a device other than a fixed screen or
paper sheet. Things like Spreadsheets or web pages are the most
obvious examples.

>
>
>
> Martin Phillips
> Ladybridge Systems Ltd
> 17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB
> +44-(0)1604-709200
> >
>

--
Ashley Chapman

Dale

unread,
May 9, 2008, 5:27:48 PM5/9/08
to OpenQM


On May 9, 1:46 pm, "Ashley Chapman" <ashley.chap...@billabong-
services.co.uk> wrote:
> 2008/5/9 Martin Phillips <martinphill...@ladybridge.com>:
>
> > I cannot think of why I would ever want a program that output lots of data
> > but did not paginate it. [That should trigger a log of replies!].
>
> How about when outputting to a device other than a fixed screen or
> paper sheet.  Things like Spreadsheets or web pages are the most
> obvious examples.
>
>
>
> > Martin Phillips
> > Ladybridge Systems Ltd
> > 17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB
> > +44-(0)1604-709200
>
> --
> Ashley Chapman

For output to a paper device with no page breaks, where I work there
is a check list for pilots that gets rolled up like a scroll with a
thumb-wheel for moving the paper. As they move through the check list
they just move the scroll in the window for viewing. Page breaks in
such a thing is real annoying!

Yeah, I know it is a specialized example.

Other than that anything html/xml based.

Regards,

Dale

CDMI - Steve Trimble

unread,
May 9, 2008, 2:20:24 PM5/9/08
to Ope...@googlegroups.com
my use never really involves a 'customer supported' application.
it's very common, however, for me to 'debug' using the print / crt functionality. i use AccuTerm's feature of copy to clipboard which basically is a 'start copy' and a 'stop copy' scenario. this i can investigation with notepad or in my case with AccuTerm's wED (full page editor). previously i was supplying a 'customer supported' application that selected a program file (after downloading a flat file from an ftp server, parsing thru the flat file, updating dictionaries, procedures, VOC items, pgm items, etc) and then compiling all the programs. the default paging would actually provide the customer a way to break the update. (i know you've added a new option) of course, this option will not be used until i walk everyone through a QM update.
 
i don't really expect you to be able to imagine what everyone using QM would need or want to do. i appreciate your timeliness and attention to requests made by your customers.
 
thanks again!
 
Steve Trimble
Computerized Data Mgmt Inc
PO Box 13403
Maumelle, AR 72113
(501) 803-0974 09:00am - 6:00pm CST
 
Home of self defense products: http://www.protecturself.com
----- Original Message ----
From: Martin Phillips <martinp...@ladybridge.com>
To: Ope...@googlegroups.com
Sent: Friday, May 9, 2008 11:39:48 AM
Subject: Re: running to NO.PAGE

Hi Steve,
 
Not having to include line counting in programs always struck me as a really nice feature of the multivalue systems that I first encountered. I was amazed to find that it is not in Pick.
 
I cannot think of why I would ever want a program that output lots of data but did not paginate it. [That should trigger a log of replies!].
 
 

CDMI - Steve Trimble

unread,
May 9, 2008, 2:32:20 PM5/9/08
to Ope...@googlegroups.com
Larry:
 
that's a really great feature.
here's something i ran into with QM.
 
i'm printing a form (like a check, invoice, receipt) - get the picture?
here's a snippet of code:
 
LINE.CNT = 66
MAX.LNS = 42
 
loop thru detail
IF LINE.CNT > MAX.LNS THEN
 IF PAGE.NO > 0 THEN
  PRINT CHAR(12)
 END
 PAGE.NO+= 1
 PRINT \heading info if needed\
 LINE.CNT = 1
END
 
PRINT \detail line....\
LINE.CNT+= 1
 
repeat
 
what i ran into with QM/Windows was i got an extra form feed
now Martin has added another option to SETPTR
it is NOEJECT
 
of course, all users must get the upgrade to use this. so programming print jobs by counting lines and page numbers has been like this for me since 1978. it has worked on all multivalue flavors until QM. not that i don't mind learning something new and changing my way of thinking - this just seemed so BASIC (pun intended)
 
good luck and have fun!
 
Steve Trimble
Computerized Data Mgmt Inc
PO Box 13403
Maumelle, AR 72113
(501) 803-0974 09:00am - 6:00pm CST
 
Home of self defense products: http://www.protecturself.com
----- Original Message ----
From: "hom...@cox.net" <hom...@cox.net>
To: Ope...@googlegroups.com
Cc: Martin Phillips <martinp...@ladybridge.com>
Sent: Friday, May 9, 2008 1:03:01 PM
Subject: Re: running to NO.PAGE


Greetings all.

I routinely make use of the pagination available in D3.  I typically use the D3/NT flavor in case there are differences in the various other flavors I cannot speak to that.

Anyway, there is always pagination available in D3.  When doing a report, it happens automatically.  The only time I need to decide whether to force or allow a page break is when I have data that I want to maintain as one group. 

Inside D3 BASIC program is a variable called SYSTEM().  Depending on which number of SYSTEM() you inquire into, different information is returned.  One of these is the number of lines remaining on the page, and the number of lines on the page is specified on the TERM statement.

If I need to page early, I can issue a "PAGE" command and everything happens automatically.

When I want to run a program that does not page, I generally perform a TCL command of  TERM ,0 to set the number of lines per page to 0.  I don't know if D3 is counting down from a very large number of recognizes zero as being no pagination desired, but I have not see it put out the column headings more than once - at the top when I use this.

Larry Hazel
---- Martin Phillips <martinp...@ladybridge.com> wrote:

Martin Phillips

unread,
May 10, 2008, 3:15:16 AM5/10/08
to Ope...@googlegroups.com
Hi Ashley,

> How about when outputting to a device other than a fixed screen or
> paper sheet. Things like Spreadsheets or web pages are the most
> obvious examples.

As soon as I sent my email, I realised that I had not allowed for this type
of use. I was thinking of simple line by line
reports. Steve's example is much simpler in QM as it comes down to...

HEADING "This is my heading. Page 'P'"
loop thru detail
PRINT \detail line....\
repeat

Ashley Chapman

unread,
May 10, 2008, 4:11:17 AM5/10/08
to Ope...@googlegroups.com
2008/5/10 Martin Phillips <martinp...@ladybridge.com>:

>
> Hi Ashley,
>
>
> > How about when outputting to a device other than a fixed screen or
> > paper sheet. Things like Spreadsheets or web pages are the most
> > obvious examples.
>
> As soon as I sent my email, I realised that I had not allowed for this type
> of use.

It's age, my friend. I'll send you a bottle of my favourite memory
pills. Now, where did I put them? ;-)


I was thinking of simple line by line
> reports. Steve's example is much simpler in QM as it comes down to...
>
> HEADING "This is my heading. Page 'P'"
> loop thru detail
> PRINT \detail line....\
> repeat
>
>
>
>
> Martin Phillips
> Ladybridge Systems Ltd
> 17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB
> +44-(0)1604-709200
>
>
> >
>

--
Ashley Chapman

Reply all
Reply to author
Forward
0 new messages