Use this system macro to place recoup items in the RCP tape logging
block.
Format
- label
- is a symbolic name that can be assigned to the macro statement.
- EOJ
- specifies the end-of-job (EOJ) indicator.
- NO
- specifies that the end of job has not been reached and the calling segment
is passing items to be written to the RCP tape.
- YES
- specifies that the end of job has been reached and there are no more items
to be written to the RCP tape.
- ITEM
- specifies one of the following:
- CURR
- specifies that the location of the recoup logging item is the current slot
in the recoup save area (BC0SA).
- logloc
- specifies the work location of a recoup logging item.
- NBR=itemnbr
- specifies the number of items starting at the location specified with the
ITEM parameter, where itemnbr is a number greater than 0.
- SAVM03
- specifies whether to save the previous EBCM03 value and restore this value
across this macro call.
- YES
- saves and restores the previous EBCM03 value across the macro call.
- NO
- does not save and restore the previous EBCM03 value across the macro
call.
- TPFCS
- specifies whether the recoup logging item is a TPF collection support
(TPFCS) item.
- YES
- specifies the recoup logging item is a TPFCS item.
- NO
- specifies the recoup logging item is not a TPFCS item.
- WRANY
- specifies whether the current RCP tape block is written if there are any
items in the block but no current item is passed.
- NO
- does not write the current RCP tape block if there are any items in the
block but no current item is passed.
- YES
- writes the current RCP tape block if there are any items in the block but
no current item is passed.
- WRFULL
- specifies whether the current RCP tape block is written if the block is
completely full.
- NO
- does not write the current RCP tape block if the block is completely
full.
- YES
- writes the current RCP tape block if the block is completely full.
Entry Requirements
- Register 9 (R9) must contain the address of the ECB being
processed.
- The recoup logging item must be formatted according to the BC0SA data
structure.
- The recoup logging item must be set up in the current slot in the recoup
stack save area unless the item is specified in another work location.
- Registers R14 and R15 must be available for use. Their contents are
not saved.
Return Conditions
- Control is returned to the next sequential instruction (NSI).
- The contents of R14 and R15 are unknown. The contents of registers
R0-R7 are preserved across this macro call.
Programming Considerations
- The BBWRT macro can be used only by recoup segments.
Examples
BBWRT
BBWRT ITEM=CURR
BBWRT ITEM=EBW000,NBR=2,SAVM03=NO,EOJ=YES