gtpg2m5hGeneral Macros

VENDC-End a Request

Use this general macro to end a request and free the data level and the request parameter list (RPL).

Format




label
An optional label can be used with this macro.

addr
This parameter specifies the address of the request parameter list (RPL) to stop freeing the associated data level and RPL. You can specify the address in register notation (by using a register enclosed in parentheses) or by using an expression that generates an addressable data area.

Entry Requirements

Return Conditions

Programming Considerations

Examples

In the following example, the VENDC macro ends a request and frees both the data level and the RPL.

         VGENC BLK=ACB,                Generate an ACB
               DDNAME=DDNAME,          ..DDname
               MACRF=(KEY,DIR,IN)      ..Options
 
         BNZ   ERROR                   Process Errors
         LR    R6,R14                  Save ACB pointer in R6
 
         VOPNC ACB=(R6)                Open file
         BNZ   ERROR                   Process Errors
 
         VGENC BLK=RPL,                Generate an RPL
               AM=VSAM,                ..Access method is VSAM
               ACB=(R6),               ..ACB pointer in R6
               LEVEL=D1                ..Use data level D1
 
         VGETC RPL=(R7)                Retrieve a record
         BNZ   ERROR                   Process Errors
 
         VENDC RPL=(R7)                End this request
         BNZ   ERROR                   Process Errors
 
         VCLSC ACB=(R6)                Close the file
         BNZ   ERROR                   Process Errors
         .
         .
         .
DDNAME   DC    CL8'TRANSLOG'           Data Definition Name