gtpg2m5nGeneral Macros

VSHOC-Display a Control Block

Use this general macro to display the address of the first access method control block (ACB) or request parameter list (RPL) for an entry control block (ECB). The ACB chain field (ACBCHAIN) points to the next ACB in the chain; the RPL chain field (RPLCHAIN) points to the next RPL in the chain. All other ACBs must be accessed by using the ACBCHAIN field; all other RPLs must be accessed by using the RPLCHAIN field.

Format




label
An optional label can be used with this macro.

ACB=addr
This parameter specifies a 4-byte area in which to receive the address of the ACB. Use the ACBCHAIN field to access subsequent ACBs.

RPL=addr
This parameter specifies a 4-byte area in which to receive the address of the first RPL. Use the RPLCHAIN field to access subsequent RPLs.

Entry Requirements

Return Conditions

Programming Considerations

Examples

The following example displays the address of the first ACB and RPL for an ECB.

         .
         .
         .
         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
 
         VSHOC ACB=0(R6)               Show ACB block chain
         BNZ   ERROR                   Process Errors
 
         VSHOC RPL=0(R7)               Show RPL block chain
         BNZ   ERROR                   Process Errors
         .
         .
         .
DDNAME   DC    CL8'TRANSLOG'           Data Definition Name