Unable to read 2 datasets at a time

Question

Hi all, This is the code i have written for reading the data from Two  Datasets at a time (RK.TXT is one dataset name and KP.TXT is another dataset name).But my program is reading the  RK.TXT Dataset but it is not reading KP.TXT  dataset. So, could you please guide me where iam doing the mistake......?
RK.TXT(ASC file) file  contains  :  1     P     RAMU
                                                 2     P      SIVA
                                                 3      c     DADA
KP.txt(ASC file) file contains :     8     C     GAN
                                                9      P      BUS
                                                10     p     puti
And the Code i have written is :
      PARAMETERS: P_FILE LIKE RLGRAP-FILENAME,
            P_TYPE LIKE RLGRAP-FILETYPE.
PARAMETERS: P1_FILE LIKE RLGRAP-FILENAME,
            P1_TYPE LIKE RLGRAP-FILETYPE.
DATA:BEGIN OF ITAB OCCURS 0,
     MATNR(18),
     WERKS(4),
     BUKRS(4),
     END OF ITAB.
DATA:BEGIN OF ITAB1 OCCURS 0,
     MATNR(18),
     WERKS(4),
     BUKRS(4),
     END OF ITAB1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  CALL FUNCTION 'F4_FILENAME'
   EXPORTING
     PROGRAM_NAME        = SYST-CPROG
     DYNPRO_NUMBER       = SYST-DYNNR
  FIELD_NAME          = ' '
IMPORTING
     FILE_NAME           = P_FILE.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P1_FILE.
  CALL FUNCTION 'F4_FILENAME'
   EXPORTING
     PROGRAM_NAME        = SYST-CPROG
     DYNPRO_NUMBER       = SYST-DYNNR
  FIELD_NAME          = ' '
IMPORTING
     FILE_NAME           = P1_FILE.
START-OF-SELECTION.
  DATA: P_FILE1 TYPE  STRING.
  DATA: P1_FILE1 TYPE  STRING.
  MOVE P_FILE TO P_FILE1.
  MOVE P1_FILE TO P1_FILE1.
    OPEN DATASET 'E:\USR\SAP\PRFCLOG\RK.TXT' FOR INPUT
    IN TEXT MODE ENCODING DEFAULT.
    IF SY-SUBRC  NE 0.
      WRITE:/10 'ERROR IN READING THE FILE'.
    ELSE.
      DO.
        READ DATASET 'E:\USR\SAP\PRFCLOG\RK.TXT'  INTO ITAB.
        IF SY-SUBRC EQ 0.
          APPEND ITAB.
        ELSE.
          EXIT.
        ENDIF.
      ENDDO.
    ENDIF.
  LOOP AT ITAB.
    WRITE:/4 ITAB-MATNR,30 ITAB-WERKS, 50 ITAB-BUKRS.
  ENDLOOP.
  CLOSE DATASET 'E:\USR\SAP\PRFCLOG\RK.TXT'.
*opening the Another File in read mode
  OPEN DATASET 'E:\USR\SAP\PRFCLOG\KP.TXT' FOR INPUT
    IN TEXT MODE ENCODING DEFAULT.
    IF SY-SUBRC  NE 0.
      WRITE:/10 'ERROR IN READING THE FILE'.
    ELSE.
      DO.
        READ DATASET 'E:\USR\SAP\PRFCLOG\KP.TXT'  INTO ITAB1.
        IF SY-SUBRC EQ 0.
          APPEND ITAB1.
        ELSE.
          EXIT.
        ENDIF.
      ENDDO.
    ENDIF.
  LOOP AT ITAB1.
    WRITE:/4 ITAB1-MATNR,30 ITAB1-WERKS, 50 ITAB1-BUKRS.
  ENDLOOP.
  CLOSE DATASET 'E:\USR\SAP\PRFCLOG\KP.TXT'.
Where Iam going Mistake......?
Tyanks in Advance
Krish...

Answer 1

Krish, try this:
REPORT  YROBTEST.
DATA: dataset_one LIKE rlgrap-filename VALUE '.prova1.txt',
      dataset_two LIKE rlgrap-filename VALUE '.prova2.txt'.
DATA: begin of itab occurs 10,
       line(100) TYPE C,
      end of itab.
TRY.
  OPEN DATASET dataset_one FOR INPUT IN TEXT MODE ENCODING DEFAULT.
  OPEN DATASET dataset_two FOR INPUT IN TEXT MODE ENCODING DEFAULT.
  DO.
    READ DATASET dataset_one INTO itab.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.
    APPEND itab.
  ENDDO.
  CLEAR itab. APPEND itab.   "Space-line to indicate that is another dset
  DO.
    READ DATASET dataset_two INTO itab.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.
    APPEND itab.
  ENDDO.
  CATCH: cx_sy_file_authority,
         cx_sy_too_many_files,
         cx_sy_file_open_mode.
endtry.
  CLOSE DATASET dataset_one.
  CLOSE DATASET dataset_two.
Hope this helps,
R.