Bob wrote: > > I'm glad that your general experience has been positive. Your concern > regarding the print services is one that you can't fix without a > requirement being addressed by IPCS. IPCS always puts title lines at the > top of a print file page, using a hierarchy of sources for title text. > Note that the expanded print service is available under both IPCS and SNAP > hosts. It uses the host-supplied print API to get all lines of output sent > out. There are reasons to look at its use, but circumventing host > restrictions isn't one of them. > > It also inherited a compatibility requirement from PRDMP/SNAP. The > original, common API defined by those two hosts did not originally have an > ADPLEJEC bit. Applications were simply expected to put out around 60 blank > lines to ensure that a current page had overflowed and that the next > non-blank line would appear at the top of the succeeding page. IPCS came > along late enough in the evolution of technology that it was obvious that > line width and page depth both needed to be specified by the used, so > ADPLEJEC needed to be used and was, of course, a better solution. > > Bob Wright - MVS Service Aids >
Bob, thanks for your reply. The first 5 lines that come out in my print file are empty (all blank). I've read further after your reply but it's not apparent which service I can use to cause ANY title lines (mine - not that I've defined any, or IPCS's title lines) to come out. I did find one sentence in IPCS Customization that referenced being able to use the Table of Contents Service to supply title lines in a verbexit routine (my routine is a verbexit routine), but nothing is jumping out at me for how to do this. When using REXX to build a print file with the NOTE facility, my output lines start on line 1, just like I expect. So, I figure there's a way to do this from assembler. I've even tried setting ADPLLNRM (lines remaining on page) to the value in ADPLLCNT (line count per page) and that didn't do it either. On entry to my routine, ADPLLCNT is X'3C' and ADPLLNRM is X'39'; a difference of 3, ... I think I must be printing a blank line or two myself (thus the 5 blank lines at the top) on entry. Thanks, Todd ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
