CDS Table Function and AMDP framework Part 16 ABAP on HANA Course




@EndUserText.label: 'ZDdls_sample_08_cds_tab_fun'
define table function Zddls_Sample_08_Cds_Tab_Fun
with parameters 
   @Environment.systemField: #CLIENT
   client : abap.clnt
returns {
  client : abap.clnt;
  id      :char10;
  name       : char50;
  age        : zage_r;
  salary     : abap.curr(10,2);
  curky      : abap.cuky;
}
implemented by method Zddls_smple_08_tab_fun=>emp_detail;


//@AbapCatalog.viewEnhancementCategory: [#NONE]
//@AccessControl.authorizationCheck: #NOT_REQUIRED
//@EndUserText.label: 'ZDdls_sample_08_cds_tab_fun'
//@Metadata.ignorePropagatedAnnotations: true
//@ObjectModel.usageType:{
//    serviceQuality: #X,
//    sizeCategory: #S,
//    dataClass: #MIXED
//}
//define view entity ZDdls_sample_08_cds_tab_fun
//  as select from zemployee_salary as sal 
//  association [1] to zemployee_ram as emp 
//  on emp.id = $projection.sal_id
//{
//  key cast( sal.id  as abap.char(20) ) as sal_id,
//    @semantics.amount.currencyCode: 'Curky'
//      sal.salary as Salary,
//      sal.curky as Curky,
//      emp
//  
//
//
//}






















//define view entity ZDdls_sample_08_cds_tab_fun
//  as select from  zemployee_salary as sal
//  association [1] to  zemployee_ram as emp
//         on emp.id =  $projection.sal_id
//{
// key cast ( sal.id as abap.char( 20 ) ) as sal_id,
//     sal.id as Id,
//     @Semantics.amount.currencyCode: 'Curky'
//     sal.salary as Salary,
//     sal.curky as Curky,
//     emp
//
//
//}

//define view entity ZDdls_sample_08_cds_tab_fun
//  as select from zemployee_ram as emp
//  association [1] to zemployee_salary as _sal
//         on emp.id =  $projection.sal_id
//{
// key emp.id as Id,
// emp.name as Name,
// emp.age as Age,
// _sal
//
//}

**********************************************************
CLASS zcl_my_first_tab_fun DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.
    INTERFACES if_amdp_marker_hdb.

    CLASS-METHODS: get_so_header
           FOR table FUNCTION Zddls_My_First_Cds_Table_Fun.

  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS zcl_my_first_tab_fun IMPLEMENTATION.
  METHOD get_so_header BY DATABASE FUNCTION
                        FOR HDB
                        LANGUAGE SQLSCRIPT
                        OPTIONS READ-ONLY
                        USING vbak.
   it_vbak = SELECT
       mandt as client,
                 vbeln
                 FROM vbak
                 WHERE mandt = :client1;

    RETURN :it_vbak;
  ENDMETHOD.

ENDCLASS.
**********************************************************************
*&---------------------------------------------------------------------*
*& Report y_cds_table_function
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT y_cds_table_function.

CLASS demo DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS main.
ENDCLASS.

CLASS demo IMPLEMENTATION.

  METHOD main.
    DATA(lv_support_amadp) =  cl_abap_dbfeatures=>use_features(
                     EXPORTING
                      requested_features = VALUE #( ( cl_abap_dbfeatures=>amdp_table_function ) )
      ).
*   CATCH cx_abap_invalid_param_value.
    IF lv_support_amadp = 'X'.
      SELECT *
       FROM Zddls_My_First_Cds_Table_Fun
       USING CLIENT '800'
*       CLIENT SPECIFIED  yddls_table_function_01~client_element_name
       INTO TABLE @DATA(it_tab).
      IF sy-subrc IS INITIAL.
        DATA(lv_lines) = lines( it_tab ).
        cl_demo_output=>write( lv_lines ).
        cl_demo_output=>display( it_tab ).
      ENDIF.
    ELSE.
      RETURN.
    ENDIF.


  ENDMETHOD.

ENDCLASS.

START-OF-SELECTION.
  demo=>main( ).

Comments

Post a Comment

Popular posts from this blog

AMDP ( ABAP Managed Database Procedure ) Part - 1

Image
CLASS zcl_amdp_class DEFINITION PUBLIC FINAL CREATE PUBLIC . PUBLIC SECTION. INTERFACES if_amdp_marker_hdb . TYPES: BEGIN OF ty_cust , cust_name TYPE kna1 - name1 , netwr TYPE vbak - netwr , END OF ty_cust , tt_cust TYPE TABLE OF ty_cust . TYPES: BEGIN OF session_variables , client TYPE sy - mandt , cds_client TYPE sy - mandt , uname TYPE sy - uname , langu TYPE sy - langu , datum TYPE sy - datum , END OF session_variables . CLASS-METHODS get_session_variables_amdp AMDP OPTIONS READ-ONLY CDS SESSION CLIENT iv_clnt IMPORTING VALUE( iv_clnt ) TYPE sy - mandt EXPORTING VALUE( clnt ) TYPE session_variables - client VALUE( cds_clnt ) TYPE session_variables - cds_client VALUE( unam ) TYPE session_variables - uname VALUE( lang ) TYPE session_variables - langu ...
Read more

Backup all ADT Objects & Other queries RAP Part 10.1

CLASS zcl_DATA_GENERATOR DEFINITION PUBLIC FINAL CREATE PUBLIC . PUBLIC SECTION. INTERFACES: if_oo_adt_classrun . PROTECTED SECTION. PRIVATE SECTION. ENDCLASS . CLASS zcl_DATA_GENERATOR IMPLEMENTATION. METHOD if_oo_adt_classrun ~ main . " delete existing entries in the database table DELETE FROM ztravel_tech_m . DELETE FROM zBOOKING_tech_m . DELETE FROM zbooksupp_tech_m . COMMIT WORK. " insert travel demo data INSERT ztravel_tech_m FROM ( SELECT * FROM /dmo/travel_m ). COMMIT WORK. " insert booking demo data INSERT zbooking_tech_m FROM ( SELECT * FROM /dmo/booking_m * JOIN ztravel_tech_m AS z * ON booking~travel_id = z~travel_id ). COMMIT WORK. INSERT zbooksupp_tech_m FROM ( SELECT * FROM /dmo/booksuppl_m * JOIN ztravel_tech_m AS z * ON booking~travel_id = z~travel_id ). ...
Read more

SAP CDS Introduction Part 2 - ABAP on HANA Course

Image
Code :- @AbapCatalog.sqlViewName: 'ZVSQL_SAMPLE_01' @EndUserText.label: 'This is my fist DDIC based CDS' @AbapCatalog.preserveKey: true @AbapCatalog: {     buffering: {         status:#SWITCHED_OFF,         type: #NONE,         numberOfKeyFields: 000     },     viewEnhancementCategory: [#PROJECTION_LIST,#UNION],     compiler: {         compareFilter: true     },     dataMaintenance: #RESTRICTED } @AccessControl.authorizationCheck: #CHECK @ClientHandling: {     type: #INHERITED,     algorithm:#SESSION_VARIABLE } define view zcds_sample_01 --( SO, Kunnr, curr,netwr,clnt,sydate,syslang)   as select from vbak   association [1..*] to vbap as _item on vbak.vbeln = _item.vbeln {   key   vbeln                    as so,         kunnr  ...
Read more