Provide and End Provide....

Question

Hi All,
I would like to know the Provide and End Provide usage and the syntax for the same.
Thanks in Advance,
Praveen

Answer 1

Hi Ashis,
Thanks for your reply here is my program
REPORT  ZIBP_UPDATE_TECH_QUALS3.
DATA: BEGIN OF I_TECHS OCCURS 0,
        TECID TYPE BU_PARTNER.
        INCLUDE STRUCTURE BAPIRET2.
DATA: END OF I_TECHS.
DATA: V_TECID TYPE BU_PARTNER.
TABLES : BUT001.
SELECT-OPTIONS: S_TECIDS FOR BUT001-PARTNER.
SELECT PARTNER FROM BUT000 INTO TABLE I_TECHS
   WHERE TYPE = '1'  AND
    PARTNER IN S_TECIDS.
DATA: V_ESADDRESS LIKE BAPIBUS1006_ADDRESS.
LOOP AT I_TECHS.
*first get country of technician
*the get conditions for the product for that country
*then validate the course,certificates requirement against possessed by technician.
  CLEAR: V_ESADDRESS.
  CALL FUNCTION 'BUPA_ADDRESS_GET_DETAIL'
   EXPORTING
     IV_PARTNER              = I_TECHS-TECID
  IV_PARTNER_GUID         =
  IV_ADDRNUMBER           =
  IV_ADDRGUID             =
  IV_VALDT                = SY-DATLO
   IMPORTING
     ES_ADDRESS              = V_ESADDRESS          .
  IF V_ESADDRESS-COUNTRY = SPACE.
    I_TECHS-NUMBER = 012.
    I_TECHS-ID = 'ZLEN'.
    I_TECHS-TYPE = 'E'.
    MESSAGE E012(ZLEN) INTO I_TECHS-MESSAGE.
    MODIFY I_TECHS.
  ENDIF.
  DATA: I_SRV_CONDS LIKE ZIBP_QUAL_CONDI OCCURS 0 WITH HEADER LINE.
Types: begin of I_TEC_COURSES.
       include structure ZBUT0000HCZ0SY.
Types: end of I_TEC_COURSES.
  DATA: I_TEC_COURSES LIKE ZBUT0000HCZ0SY OCCURS 0 WITH HEADER LINE.
  DATA: I_TEC_CERTS LIKE ZBUT0000FAZ1S7 OCCURS 0 WITH HEADER LINE.
  DATA: I_SRV_CONDS2 LIKE ZBUT0000F8FNVK OCCURS 0 WITH HEADER LINE.
  SELECT * FROM ZIBP_QUAL_CONDI INTO TABLE I_SRV_CONDS
      WHERE COUNTRY = V_ESADDRESS-COUNTRY.    "AND PRODUCTID = PRODUCT.
  SELECT * FROM ZBUT0000F8FNVK INTO TABLE I_SRV_CONDS2
      WHERE  ZZBRAND_GROUP = I_SRV_CONDS-PRODUCTID.
*get Training courses, certificates here
  SELECT * FROM ZBUT0000HCZ0SY INTO TABLE I_TEC_COURSES
      WHERE PARTNER = I_TECHS-TECID.
  SELECT * FROM ZBUT0000FAZ1S7 INTO TABLE I_TEC_CERTS
      WHERE PARTNER = I_TECHS-TECID.
DATA: SRVDT_NUMC(14) TYPE N.
SRVDT_NUMC(8) = SERVICEDT(8).
SRVDT_NUMC+8(6) = '000000'.
  DATA: THIS_COND_FAILED, THIS_COURSE_PASSED.
  DATA: CURRENT_PROD LIKE I_SRV_CONDS-PRODUCTID.
  DATA: THIS_PRODUCT_DONE.
  SORT I_SRV_CONDS BY PRODUCTID.
  LOOP AT I_SRV_CONDS.
    AT NEW PRODUCTID.
      CURRENT_PROD = I_SRV_CONDS-PRODUCTID.
      CLEAR: THIS_PRODUCT_DONE.
    ENDAT.
    CHECK THIS_PRODUCT_DONE = SPACE.
    CLEAR: THIS_COND_FAILED.
    DATA: TMSTMP_FROM LIKE I_TEC_COURSES-DATE_FROM,
          TMSTMP_TO  LIKE I_TEC_COURSES-DATE_FROM.
    DATA: DAT TYPE D,   "tim TYPE t,
          TZ  TYPE TTZZ-TZONE.
    TZ = 'UTC'.
    DAT = '00010101'.   "tim = '013000'.
    CONVERT DATE DAT INTO TIME STAMP TMSTMP_FROM TIME ZONE TZ.
    DAT = '99991231'.   "tim = '013000'.
    CONVERT DATE DAT INTO TIME STAMP TMSTMP_TO TIME ZONE TZ.
    DATA: WA1 LIKE I_TEC_COURSES.
    DATA: WA2 LIKE I_TEC_COURSES.
    DATA: WA3 LIKE I_TEC_COURSES.
    DATA: WA4 LIKE I_TEC_COURSES.
    DATA: WA5 LIKE I_TEC_COURSES.
    DATA: WA6 LIKE I_TEC_COURSES.
    DATA: WA7 LIKE I_TEC_CERTS.
    DATA: WA8 LIKE I_TEC_CERTS.
    DATA: WA9 LIKE I_TEC_CERTS.
    DATA: FLAG1(1) TYPE C,
          FLAG2(1) TYPE C,
          FLAG3(1) TYPE C,
          FLAG4(1) TYPE C,
          FLAG5(1) TYPE C,
          FLAG6(1) TYPE C,
          FLAG7(1) TYPE C,
          FLAG8(1) TYPE C,
          FLAG9(1) TYPE C.
    PROVIDE  * FROM I_TEC_COURSES INTO WA1
                                   VALID FLAG1
                                   BOUNDS DATE_FROM AND DATE_TO
                                   WHERE COURSEID = I_SRV_CONDS-COURSE1
                                   BETWEEN TMSTMP_FROM AND TMSTMP_TO.
      WRITE: / WA1-DATE_FROM, WA1-DATE_TO, WA1-COURSEID, FLAG1.
      SKIP.
    ENDPROVIDE.
  ENDLOOP.
ENDLOOP.