Software Reference Manual - NetEx
Software Reference Manual - NetEx
Software Reference Manual - NetEx
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
*<br />
* Routine for ejecting to top of page.<br />
*<br />
TOP 0I OUTAREA,X'Fl' Insert a '1' for carriage control<br />
B MOVEIT<br />
*<br />
* Routine for suppressing line spacing.<br />
*<br />
SUPPRESS 0I OUTAREA,X'4E' Insert a '+' for no spacing<br />
B MOVEIT<br />
*<br />
* Define the print DCB.<br />
*<br />
PRINT DCB BLKSIZW=133,DSORG=PS,LRECL=133,MACRF=PM,RECFM=FA<br />
*<br />
* Outarea and skip count.<br />
*<br />
DC C<br />
OUTAREA DS CL133<br />
*<br />
SCOUNT DS D Skip count (for blank records)<br />
*<br />
* Messages<br />
*<br />
OPMSG DC C'THE FILE WAS OPENED' CL19<br />
*<br />
EDMSG DC C'EOF WAS REACHED' CL15<br />
*<br />
ABMSG DC C'THE FILE X-FER ABORTED' CL22<br />
*<br />
* Equates<br />
*<br />
RO EQU 0<br />
R1 EQU 1<br />
R2 EQU 2<br />
R6 EQU 6<br />
R10 EQU 10<br />
R11 EQU 11<br />
R12 EQU 12<br />
R13 EQU 13<br />
R14 EQU 14<br />
R15 EQU 15<br />
*<br />
* Map of parameter pointers passed to the record module from<br />
* the standard BFX block module.<br />
*<br />
RNPARM DSECT<br />
RBUF DS A Logical record location<br />
RBUFLEN DS F Record length<br />
RBUFLEV DS F Delimiter level<br />
RMSG DS A -> 128 byte area for message<br />
RMSGLEN DS F Length of returned message<br />
RMSGLEV DS F Severity of returned message<br />
RMODE DS F File MODE<br />
MODEBIT EQU 0 0 => Bit mode<br />
MODECHAR EQU 1 1 => Character mode<br />
Page 70 Appendix A: User Modules MAN-REF-H211-05