08.11.2014 Views

Software Reference Manual - NetEx

Software Reference Manual - NetEx

Software Reference Manual - NetEx

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!