gtps1m1hSystem Macros

BBWRT-Recoup Logging Item Setup

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

Return Conditions

Programming Considerations

Examples

BBWRT
 
BBWRT ITEM=CURR
 
BBWRT ITEM=EBW000,NBR=2,SAVM03=NO,EOJ=YES