OIU_PPN_MAIN SAP Function module - Main call function for the ppn routine

DATA:
it_ppn_data_val  
 
 TYPE STANDARD TABLE OF OIU_PR_PPNH,"TABLES PARAM
wa_ppn_data_val
 
 LIKE LINE OF it_ppn_data_val
,
it_ppn_dtl_cnt  
 
 TYPE STANDARD TABLE OF OIU_PR_PPND,"TABLES PARAM
wa_ppn_dtl_cnt
 
 LIKE LINE OF it_ppn_dtl_cnt
.

 

SELECT single SUB_SYS_CD 
  FROM OIU_PR_PPNH 
  INTO @DATA(ld_ppn_subsystem_cd).

 

SELECT single DN_NO 
  FROM OIU_PR_PPNH 
  INTO @DATA(ld_ppn_dn_no).

 

SELECT single MAJPD_CD 
  FROM OIU_PR_PPNH 
  INTO @DATA(ld_ppn_majpd_cd).

 

SELECT single PRD_DT 
  FROM OIU_PR_PPNH 
  INTO @DATA(ld_ppn_e_from_dt).

 

SELECT single PRD_DT 
  FROM OIU_PR_PPNH 
  INTO @DATA(ld_ppn_eff_to_dt).

 

SELECT single FREQ_CD 
  FROM OIU_PR_PPNH 
  INTO @DATA(ld_ppn_freq_cd).

 

SELECT single MP_NO 
  FROM OIU_PR_MP 
  INTO @DATA(ld_ppn_mp_no).

 

SELECT single WL_NO 
  FROM OIU_PR_WC 
  INTO @DATA(ld_ppn_wl_no).

 

SELECT single WC_NO 
  FROM OIU_PR_WC 
  INTO @DATA(ld_ppn_wc_no).

 

SELECT single CT_NO 
  FROM OIU_RV_CT 
  INTO @DATA(ld_ppn_ct_no).

 

SELECT single BUKRS 
  FROM OIU_DO_DI 
  INTO @DATA(ld_ppn_co).

 

SELECT single VNAME 
  FROM OIU_DO_DI 
  INTO @DATA(ld_ppn_venture).

 

SELECT single DOI_NO 
  FROM OIU_DO_DI 
  INTO @DATA(ld_ppn_doi_no).

 

SELECT single PGM_ID 
  FROM OIU_PR_PPNH 
  INTO @DATA(ld_ppn_pgm_id).

 

SELECT single OIU_CRUSER 
  FROM OIU_PR_PPNH 
  INTO @DATA(ld_ppn_user_id).

 

SELECT single MCODE 
  FROM OIU_CM_TXN_CTL 
  INTO @DATA(ld_ppn_activity).

 

SELECT single AL_FL 
  FROM OIU_PR_DNVD 
  INTO @DATA(ld_ppn_pop_up).

 

SELECT single AL_FL 
  FROM OIU_PR_DNVD 
  INTO @DATA(ld_ppn_bapi_flag).

 

SELECT single SUB_SYS_CD 
  FROM OIU_PR_PPNH 
  INTO @DATA(ld_ppn_current_subsys).

 

"populate fields of struture and append to itab
append wa_ppn_data_val to it_ppn_data_val.
 

"populate fields of struture and append to itab
append wa_ppn_dtl_cnt to it_ppn_dtl_cnt.
.

CALL FUNCTION 'OIU_PPN_MAIN'
  EXPORTING
*   ppn_subsystem_cd =           ld_ppn_subsystem_cd
*   ppn_dn_no =                  ld_ppn_dn_no
*   ppn_majpd_cd =               ld_ppn_majpd_cd
*   ppn_e_from_dt =              ld_ppn_e_from_dt
*   ppn_eff_to_dt =              ld_ppn_eff_to_dt
*   ppn_freq_cd =                ld_ppn_freq_cd
*   ppn_mp_no =                  ld_ppn_mp_no
*   ppn_wl_no =                  ld_ppn_wl_no
*   ppn_wc_no =                  ld_ppn_wc_no
*   ppn_ct_no =                  ld_ppn_ct_no
*   ppn_co =                     ld_ppn_co
*   ppn_venture =                ld_ppn_venture
*   ppn_doi_no =                 ld_ppn_doi_no
    ppn_pgm_id =                 ld_ppn_pgm_id
    ppn_user_id =                ld_ppn_user_id
*   ppn_activity =               ld_ppn_activity
*   ppn_pop_up =                 ld_ppn_pop_up
*   ppn_bapi_flag =              ld_ppn_bapi_flag
*   ppn_current_subsys =         ld_ppn_current_subsys
  TABLES
*   ppn_data_val =               it_ppn_data_val
    ppn_dtl_cnt =                it_ppn_dtl_cnt
  EXCEPTIONS
    INVALID_DATA =               1
    VOLUME_ALLOCATION_RUNNING =    2
    CONTRACT_ALLOCATION_RUNNING =    3
    REVENUE_BATCH_RUNNING =      4
    NUMBER_RANGE_ERROR =         5
    CANCEL_PPN_GENERATION =      6
    VL_ALLOCATION_RUNNING =      7
    .  "  OIU_PPN_MAIN

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 2. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 3. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 4. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 5. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 6. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 7. "Exception
  "Add code for exception here
ENDIF.