Debug_Record

Prints a record.

PROCEDURE Debug_Record (   
   record_ IN type_record_,  
   level_  IN NUMBER DEFAULT Log_SYS.debug_ )

Parameters

record_
Foundation1 record.

level_
    Logging level; default Debug.

Example

SQL> SET SERVEROUT ON SIZE 100000  
SQL>   
DECLARE  
   AM  Plsqlap_Record_API.type_record_;  
BEGIN  
   ...  
   Plsqlap_Record_API.Debug_Record(AM);  
   ...  
END;

Example:

main: Fnd_View APPLICATION_MESSAGE New_Record  
main:    Text_Key APPLICATION_MESSAGE_ID '100^*'  
main:    Alpha SENDER Ti22  
main:    Alpha MESSAGE_TYPE Mail  
main:    Text SUBJECT Test of Connectivity to Ti22 integration  
main:    Alpha LOCALE Null  
main:    Array ADDRESS_LABEL_LIST (1 elements):  
main:       1:Fnd_View ADDRESS_LABEL New_Record element of APPLICATION_MESSAGE.ADDRESS_LABEL_LIST  
main           Alpha TRANSPORT_CONNECTOR Mail  
main:          Text  ADDRESS_DATA        jan.h.malmberg@ifsab.se  
main:          Date  SENT                2001-06-18-17.09.31  
main:          Date  EXPIRED             2099-12-31              
main:    Array TEXT_BODY (1 elements):  
main:       1:Fnd_View TEXT_BODY New_Record element of APPLICATION_MESSAGE.TEXT_BODY  
main:          Enum      TEXT_BODY_TYPE Str  
main:          Long_Text TEXT_VALUE     'This is the text body in ...' (79 characters)