Function Module Syntactically errors

Question

Dear Experts, 
This is function module for Extracting the data from Payroll cluster, it is throwing an error.
can any one look into this..
Types : Begin of LS_STR,
     PERNR type P_PERNR,
     SEQNR Type  CDSEQ,
     MOLGA Type  MOLGA,
     LGART Type  LGART,
     ANZHL Type  PRANZ,
     BETRG Type  MAXBT,
     WAERS Type  WAERS,
    END OF LS_STR.
  Types : Begin of LS_STR1,
PERNR type P_PERNR,
SEQNR Type  CDSEQ,
FPPER Type  FAPER,
INPER Type  IPERI,
FPBEG Type  FPBEG,
FPEND Type  FPEND,
SRTZA Type  SRTZA,
ABKRS Type  ABKRS,
PAYTY Type  PAYTY,
RUNDT Type  RUNDT,
RUNTM Type  RUNTM,
PAYDT Type  PAY_DATE,
PAYID Type  PAYID,
BONDT Type  BONDT,
OCRSN Type  PAY_OCRSN,
INOCR Type  PAY_OCRSN,
IPEND Type  IPEND,
   END OF LS_STR1.
   types  :begin of ty_pernr,
           pernr type persno,
          end of ty_pernr.
  Data :IT_STR TYPE STANDARD TABLE OF LS_STR,
         WA_STR LIKE LINE OF IT_STR,
         IT_STR1 TYPE TABLE OF LS_STR1,
         WA_STR1 LIKE LINE OF IT_STR1,
         PCL_T TYPE TABLE OF ZPSSTR,
         pcl_w type zpsstr,
         LV_RT TYPE LINE OF HRPAY99_RT,
         PCL_T1 TYPE STANDARD TABLE OF PC261, " Output structure of FM CU_READ_RGDIR.
         PCLW_T1 type pc261,
          PCL_T2 TYPE STANDARD TABLE OF PC261,
         PY_RESULT TYPE  PAY99_RESULT,
         IT_HRPAY99_RT TYPE HRPAY99_RT, " output structure of FM PYXX_READ_PAYROLL_RESULT.
         WA_RESULT type LINE OF HRPAY99_RT,
         LT_PA0008 TYPE TABLE OF LS_STR,
         LS_PA0008 LIKE LINE OF  LT_PA0008,
         LS_E_T_DATA LIKE LINE OF E_T_DATA,
         RELID  TYPE  RELID_PCL,
         PI_PERNR TYPE STANDARD TABLE OF ty_pernr,
         PW_PERNR LIKE LINE OF PI_PERNR,
*         PW_PERNR TYPE PA0008,
         MOLGA_T TYPE c LENGTH 2.
* Example: DataSource for table SFLIGHT
  TABLES: PCL2.
* Auxiliary Selection criteria structure
  DATA: L_S_SELECT TYPE SRSC_S_SELECT.
* Maximum number of lines for DB table
  STATICS: S_S_IF TYPE SRSC_S_IF_SIMPLE,
* counter
          S_COUNTER_DATAPAKID LIKE SY-TABIX,
* cursor
          S_CURSOR TYPE CURSOR.
* Select ranges
  RANGES: L_R_PERNR FOR PA0008-PERNR.
* Initialization mode (first call by SAPI) or data transfer mode
* (following calls) ?
  IF I_INITFLAG = SBIWA_C_FLAG_ON.
* Initialization: check input parameters
*                 buffer input parameters
*                 prepare data selection
* Check DataSource validity
*    CASE I_DSOURCE.
*      WHEN '0SAPI_SFLIGHT_SIMPLE'.
*      WHEN OTHERS.
*        IF 1 = 2. MESSAGE E009(R3). ENDIF.
** this is a typical log call. Please write every error message like this
*        LOG_WRITE 'E'                  "message type
*                  'R3'                 "message class
*                  '009'                "message number
*                  I_DSOURCE   "message variable 1
*                  ' '.                 "message variable 2
*        RAISE ERROR_PASSED_TO_MESS_HANDLER.
*    ENDCASE.
    APPEND LINES OF I_T_SELECT TO S_S_IF-T_SELECT.
* Fill parameter buffer for data extraction calls
    S_S_IF-REQUNR    = I_REQUNR.
    S_S_IF-DSOURCE = I_DSOURCE.
    S_S_IF-MAXSIZE   = I_MAXSIZE.
* Fill field list table for an optimized select statement
* (in case that there is no 1:1 relation between InfoSource fields
* and database table fields this may be far from beeing trivial)
    APPEND LINES OF I_T_FIELDS TO S_S_IF-T_FIELDS.
  ELSE.                 "Initialization mode or data extraction ?
* Data transfer: First Call      OPEN CURSOR + FETCH
*                Following Calls FETCH only
* First data package -> OPEN CURSOR
    IF S_COUNTER_DATAPAKID = 0.
LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'PERNR'.
        MOVE-CORRESPONDING L_S_SELECT TO L_R_PERNR.
        APPEND L_R_PERNR.
      ENDLOOP.
IF L_R_PERNR IS INITIAL.
        OPEN CURSOR WITH HOLD S_CURSOR FOR
        SELECT DISTINCT PERNR  FROM PA0008.
ELSEIF L_R_PERNR IS NOT INITIAL.
        OPEN CURSOR WITH HOLD S_CURSOR FOR
        SELECT DISTINCT PERNR FROM PA0008 WHERE PERNR IN L_R_PERNR.
ENDIF.
FETCH NEXT CURSOR S_CURSOR
               APPENDING CORRESPONDING FIELDS
               OF TABLE PI_PERNR
               PACKAGE SIZE S_S_IF-MAXSIZE.
IF PI_PERNR IS NOT INITIAL.
**      LOOP AT PI_PERNR INTO PW_PERNR.
* Fill range tables BW will only pass down simple selection criteria
* of the type SIGN = 'I' and OPTION = 'EQ' or OPTION = 'BT'.
*SELECT PERNR from Pa0008 into TABLE PI_PERNR where PERNR <> 0.
*         SORT PI_PERNR BY PERNR.
*         DELETE ADJACENT DUPLICATES FROM PI_PERNR.
      loop at PI_PERNR into PW_PERNR.
        CALL FUNCTION 'CU_READ_RGDIR'
          EXPORTING
            PERSNR                   = PW_PERNR-PERNR
*   BUFFER                   =
*   NO_AUTHORITY_CHECK       = ' '
          IMPORTING
             MOLGA                    = MOLGA_T
          TABLES
            IN_RGDIR                 = PCL_T1
* EXCEPTIONS
*   NO_RECORD_FOUND          = 1
*   OTHERS                   = 2
        IF SY-SUBRC <> 0.
* Implement suitable error handling here
        ENDIF.
        CALL FUNCTION 'PYXX_GET_RELID_FROM_PERNR'
          EXPORTING
            EMPLOYEE                    = PW_PERNR-PERNR
          IMPORTING
            RELID                       = relid
*           MOLGA                       = MOLGA_T
          EXCEPTIONS
            ERROR_READING_INFOTYPE_0001 = 1
            ERROR_READING_MOLGA         = 2
            ERROR_READING_RELID         = 3
            OTHERS                      = 4.
        IF SY-SUBRC <> 0.
* Implement suitable error handling here
        ENDIF.
        LOOP AT PCL_T1 INTO PCLW_T1.
*  pcl_w-seqnr = pclw_t1-seqnr.
          CALL FUNCTION 'PYXX_READ_PAYROLL_RESULT'
            EXPORTING
              CLUSTERID                          = relid
              EMPLOYEENUMBER                     = PW_PERNR-PERNR
              SEQUENCENUMBER                     = PCLW_T1-SEQNR
*   READ_ONLY_BUFFER                   = ' '
              READ_ONLY_INTERNATIONAL            = 'X'
*   ARC_GROUP                          = ' '
*   CHECK_READ_AUTHORITY               = 'X'
*   FILTER_CUMULATIONS                 = 'X'
*   CLIENT                             =
* IMPORTING
*   VERSION_NUMBER_PAYVN               =
*   VERSION_NUMBER_PCL2                =
            CHANGING
              PAYROLL_RESULT                     =  PY_RESULT
           EXCEPTIONS
             ILLEGAL_ISOCODE_OR_CLUSTERID       = 1
             ERROR_GENERATING_IMPORT            = 2
             IMPORT_MISMATCH_ERROR              = 3
             SUBPOOL_DIR_FULL                   = 4
             NO_READ_AUTHORITY                  = 5
             NO_RECORD_FOUND                    = 6
             VERSIONS_DO_NOT_MATCH              = 7
             ERROR_READING_ARCHIVE              = 8
             ERROR_READING_RELID                = 9
             OTHERS                             = 10
          IF SY-SUBRC <> 0.
* Implement suitable error handling here
          ENDIF.
          loop at PY_RESULT-inter-rt into WA_RESULT.
            pcl_w-PERNR =   PW_PERNR-PERNR.              "PW_PERNR-PERNR.
            pcl_w-SEQNR =   PCLW_T1-SEQNR.
            pcl_w-LGART =   WA_RESULT-LGART.
            pcl_w-BETRG =   WA_RESULT-BETRG.
            pcl_w-ANZHL =   WA_RESULT-ANZHL.
            pcl_w-WAERS =   WA_RESULT-RTE_CURR.
            pcl_w-FPPER =   PCLW_T1-FPPER.
            pcl_w-INPER =   PCLW_T1-INPER.
            pcl_w-FPBEG =   PCLW_T1-FPBEG.
            pcl_w-FPEND =   PCLW_T1-FPEND.
            pcl_w-SRTZA =   PCLW_T1-SRTZA.
            pcl_w-ABKRS =   PCLW_T1-ABKRS.
            pcl_w-PAYTY =   PCLW_T1-PAYTY.
            pcl_w-RUNDT =   PCLW_T1-RUNDT.
            pcl_w-RUNTM =   PCLW_T1-RUNTM.
            pcl_w-PAYDT =   PCLW_T1-PAYDT.
            pcl_w-PAYID =   PCLW_T1-PAYID.
            pcl_w-BONDT =   PCLW_T1-BONDT.
            pcl_w-OCRSN =   PCLW_T1-OCRSN.
            pcl_w-INOCR =   PCLW_T1-INOCR.
            pcl_w-IPEND =   PCLW_T1-IPEND.
            pcl_w-MOLGA =  MOLGA_T.
          APPEND  PCL_W to E_T_DATA.
endloop.
endloop.
* READ TABLE pcl_t1 into pclw_t1 WITH Key SEQNR = wa_str-SEQNR.
*          APPEND  PCL_W to E_T_DATA.
*     APPEND pclw_t1 to pcl_t2.
*        ENDLOOP.
ENDLOOP.
*  MODIFY E_T_DATA
*      MOVE-CORRESPONDING  it_str to PCL_T.
*      MOVE-CORRESPONDING pcl_t1 to PCL_T.
*      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'CARRID'.
*        MOVE-CORRESPONDING L_S_SELECT TO L_R_CARRID.
*        APPEND L_R_CARRID.
*      ENDLOOP.
*      LOOP AT S_S_IF-T_SELECT INTO L_S_SELECT WHERE FIELDNM = 'CONNID'.
*        MOVE-CORRESPONDING L_S_SELECT TO L_R_CONNID.
*        APPEND L_R_CONNID.
*      ENDLOOP.
* Determine number of database records to be read per FETCH statement
* from input parameter I_MAXSIZE. If there is a one to one relation
* between DataSource table lines and database entries, this is trivial.
* In other cases, it may be impossible and some estimated value has to
* be determined.
*      OPEN CURSOR WITH HOLD S_CURSOR FOR
*      SELECT (S_S_IF-T_FIELDS) FROM SFLIGHT
*                               WHERE CARRID  IN L_R_CARRID AND
*                                     CONNID  IN L_R_CONNID.
*    ENDIF.                             "First data package ?
* Fetch records into interface table.
*   named E_T_'Name of extract structure'.
*    FETCH NEXT CURSOR S_CURSOR
*               APPENDING CORRESPONDING FIELDS
*               OF TABLE E_T_DATA
*               PACKAGE SIZE S_S_IF-MAXSIZE.
    IF SY-SUBRC <> 0.
*      CLOSE CURSOR S_CURSOR.
      RAISE NO_MORE_DATA.
    ENDIF.
    S_COUNTER_DATAPAKID = S_COUNTER_DATAPAKID + 1.
  ENDIF.              "Initialization mode or data extraction ?
ENDIF.
ENDIF.
ENDFUNCTION.
Regards
sree

Answer 1

There are so many threads and documentation available on the same..Please search the same.
Moreover if you share the error then it would be easy to know the exact problem
Regards,
AL