Software Reference Manual - NetEx

MVC RMSGLEN,=F’22’ Message is 22 characters in length
MVC RMSGLEV,=F’15’ Message level is ‘15’
MVC RMSG(22),ABMSG Give message to caller as expected
B CLOSE
*
* Process and write a record.
* Get Unisys record, strip off control information,
* and create IBM print record(s).
* (It is assumed that each Unisys record is prefixed
* with a 2-character header, which was inserted by the
* sending record module. This header contains line
* spacing-information as a signed, zoned number.
* By previously agreed-upon convention, any negative
* number means 'top of form'.)
*
WRITREC MVC SCOUNT(2),RBUF Get record header
PACK SCOUNT(8),SCOUNT(2) Pack it
CVB R6,SCOUNT Convert it to binary
C R6,=F'O' Compare it with '01
BL TOP If negative, branch to TOP
BE SUPPRESS If zero, branch to SUPPRESS space
*
* Move the record.
*
MOVEIT MVC OUTAREA+1(132),RBUF+2 Get the record
*
* Write routine.
*
WRITE PUT PRINT,OUTAREA Output the record
MVC OUTAREA,OUTAREA-1 Zero out OUTAREA
BCT R6,WRITE Decrement and branch to print blank
*
* Else, fall through to normal response.
*
MVC RBUFLEV,=F'1' Return normal response in BUFLEV
SR RO,RO Zero out RO
ST RO,RMSGLEN Return a '01 for MSGLEN
ST RO,RMSGLEV Return a '01 for MSGLEV
B EXIT
*
* EOF routine. Return the proper stuff, then fall through
* to the close routine.
*
EOF MVC RBUFLEV,=F'1' Return normal response in BUFLEV
MVC RMSGLEN,=F'15' Message is 15 characters in length
MVC RMSGLEV,=F'5' Message level is ‘5’
MVC RMSG(15),EDMSG Give message to caller as expected
*
* Close routine. Close the print file and then fall through
* to the exit routine.
*
CLOSE CLOSE (PRINT) Close the file
*
* Exit routine. Reverse housekeeping and return.
*
EXIT L R13,RMSAVE+4 Load R13 with addr of caller's savearea
RETURN (14,12),,RC=O
MAN-REF-H211-05 Appendix A: User Modules Page 69