Software Reference Manual - NetEx

Example of Receiving Record Module (IBM Assembler)
*
* Example of receiving record module, hence the name ‘RCRECMOD’
* which, in this case, receives a Unisys print record and
* creates the equivalent IBM print record(s).
*
RCRECMOD CSECT
*
* General housekeeping
*
* Entry conditions:
* R1: Parm list (in RMPARM DSECT)
*
SAVE (14,12),,* Save caller’s regs
LR R12,RI5 Load entry address
USING RCRECMOD,R12 Establish addressability
LR R11,RL Copy address of parm list
USING RNPARM,R11 Base it with R11
LA R2,RMSAVE Load addr of savearea into R2
ST R13,4(,R2) Save addr of caller’s savearea at +4
ST R2,8(,R13) Store addr of my savearea in caller’s area
LR R13,R2 R13 now contains addr of savearea
*
* Check BUFLEV
*
ICM R1,B'1111',RBUFLEV Get BUFLEV
BNM NEXT 1st time (-1)? Skip if not
*
* BUFLEV = -1. First time entry.
*
* Insert the passed ddname into the DCB,
* open the file,
* send an ‘open’ message,
* and return.
*
LA R10,PRINT Set up R10
MVC 40(8,RIO),RDDNAME Insert the provided ddname
OPEN (PRINT,(OUTPUT)) Open the print file
MVC RBUFLEV,=F’134’ RETURN MAX LRECL IN BUFLEV
MVC RMSGLEN,=F’19’ Msg is 19 characters long
MVC RMSGLEV,=F’5’ Message level is ‘5’
MVC RMSG(15),OPMSG Give msg to caller as expected
B EXIT
*
* BUFLEV is not negative. Subsequent entries (or problem).
*
NEXT CLI RBUFLEV+3,15 Check for normal data Xfer
BL WRITREC Branch to write routine, if so
BE EOF Branch to EOF routine, if so
*
* Else, fall through to the abort routine.
*
ABORT MVC RBUFLEV,=F’16’ Indicate abort
Page 68 Appendix A: User Modules MAN-REF-H211-05