Setting Up Your System › Passing Auditing Information to CA IDMS › Using Accounting Information › Example

Example

The following is sample code for locating accounting information:

USING TCE,R9                                             

L    R5,TCELTEA              Get the LTE             

USING LTE,R5                                             

CLI  LTETYP,LTEBULK          Is this a BULK type      
BNE  RETURN                  No....Return             
L    R6,LTEPTEA              Get the PTE address     

USING PTE,R6                                             

L    R7,PTELACCT             R7 points to 32-byte area