Here is perhaps the smallest verb exit I've ever written to demonstrate the
blank lines at the top of the IPCS print dataset. There are three blank
lines at the top. How do I access these? When I write a REXX routine that
call the "NOTE" command, these blank lines do not exist in the print
dataset.
Assemble, linkedit, place in a library in your available TSO load libs, and
issue "verbx miniverb" from IPCS option 6.
Thanks, Todd
MINIVERB CSECT
MINIVERB AMODE 31
MINIVERB RMODE ANY
BAKR R14,0
LR R12,R15
USING MINIVERB,R12
LR R11,R1 ABDPL POINTER
USING ABDPL,R11 IPCS PARM LIST
LA R13,SAVEAREA MY SAVE AREA
***********************************************************************
* PRINT A MESSAGE *
***********************************************************************
L R15,ADPLBUF OUTPUT BUFFER
MVC 0(L'TESTMSG,R15),TESTMSG
L R15,ADPLSERV ADDRESS OF EXIT SERVICES
CALL (15),((R11),PRNTCODE) CALL THE PRINT SERVICE
***********************************************************************
* EXIT THE MODULE *
***********************************************************************
SR R15,R15
PR
*
PRNTCODE DC A(ADPLSPRT) PRINT SERVICE CODE
TESTMSG DC C'WHY DOES THIS SHOW UP ON LINE 4?'
*
SAVEAREA DS 18F SAVE AREA
*
***********************************************************************
* DSECTS *
***********************************************************************
BLSABDPL DSECT=YES,AMDEXIT=YES,AMDOSEL=NO, X
AMDPACC=NO,AMDPFMT=NO,AMDPECT=NO,AMDPSEL=NO
YREGS
END
> 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
>
----------------------------------------------------------------------
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
