GUI_DOWNLOAD : Extra Line

Question

Hi All,
I am downloading the the internal table into a flat file using GUI_DOWNLOAD.
I am getting an extra line at the end which is not required.
I have debugged and found the content is correct.
However in note pad a blank line apprers.
Any help would be great.
reagrds,

Answer 1

REPORT  ZPP_GROSS_REQUIREMENT_UPLOAD.
data : zwerks like BAPISITEMR-PLANT.
DATA : BEGIN OF ITAB_REQ OCCURS 0,
          RECTYPE(4),
          PLANT(3),
          MATERIAL(12),
          MAT_TYPE(1),
          START_DATE(8),
          END_DATE(8),
          QTY(14),
          SIGN(1),
          FILLER(9),
       END OF ITAB_REQ.
DATA : BEGIN OF ITAB_REQ2 OCCURS 0,
          RECTYPE(4),
          PLANT(3),
          MATERIAL(12),
          MAT_TYPE(1),
          START_DATE(8),
          END_DATE(8),
          QTY(14),
          SIGN(1),
          FILLER(9),
       END OF ITAB_REQ2.
DATA : BEGIN OF ITAB_PLAN OCCURS 0,
        MANDT TYPE SY-MANDT,
        PLANNO LIKE ZPP_PLAN_NUMBER-PLANNO,
        PLNTIME LIKE ZPP_PLAN_NUMBER-PLNTIME,
        PLNDATE LIKE ZPP_PLAN_NUMBER-PLNDATE,
        ACTIVE LIKE ZPP_PLAN_NUMBER-ACTIVE,
       END OF  ITAB_PLAN .
DATA : BEGIN OF ITAB_STATUS  OCCURS 0,
        MATERIAL LIKE MARA-MATNR,
        TYPE(1),
        DESC(200),
       END OF ITAB_STATUS  .
data : p1(14) type p decimals 5.
data : p2(13) type p decimals 3.
data : p(15) type C.
DATA : REQ_OUT LIKE BAPISITMEO OCCURS 0 WITH HEADER LINE,
       REQ_OUT1 LIKE BAPISITMEO OCCURS 0 WITH HEADER LINE,
       RET2 LIKE BAPIRETURN1 OCCURS 0 WITH HEADER LINE.
DATA : REQ_IN LIKE BAPISSHDIN OCCURS 0 WITH HEADER LINE,
       RET3  LIKE BAPIRETURN1 OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF T1 OCCURS 0 ,
        MATNR LIKE MARA-MATNR,
        DATE_TYPE TYPE BAPISSHDIN-DATE_TYPE,
        REQ_DATE TYPE BAPISSHDIN-REQ_DATE,
        REQ_QTY TYPE BAPISSHDIN-REQ_QTY,
        UNIT TYPE BAPISSHDIN-UNIT,
      END OF T1.
DATA: BEGIN OF ITAB_OLDPLAN OCCURS 0,
        MANDT TYPE ZPP_PLAN_NUMBER-MANDT,
        PLANNO TYPE ZPP_PLAN_NUMBER-PLANNO,
        PLNTIME TYPE ZPP_PLAN_NUMBER-PLNTIME,
        PLNDATE TYPE ZPP_PLAN_NUMBER-PLNDATE,
        ACTIVE TYPE ZPP_PLAN_NUMBER-ACTIVE,
       END OF ITAB_OLDPLAN.
DATA: BEGIN OF ITAB_OLDPLAN1 OCCURS 0,
        MANDT TYPE ZPP_PLAN_NUMBER-MANDT,
        PLANNO TYPE ZPP_PLAN_NUMBER-PLANNO,
        PLNTIME TYPE ZPP_PLAN_NUMBER-PLNTIME,
        PLNDATE TYPE ZPP_PLAN_NUMBER-PLNDATE,
        ACTIVE TYPE ZPP_PLAN_NUMBER-ACTIVE,
       END OF ITAB_OLDPLAN1.
DATA : PLNNO TYPE I.
DATA : PLNNO1(10) TYPE C.
DATA : PLNNO_NEW TYPE I.
DATA : PLNNO_NEW1(10) TYPE C.
DATA : RET LIKE BAPIRETURN1 OCCURS 0 WITH HEADER LINE.
DATA : SCHEDULE_IN LIKE BAPISSHDIN OCCURS 0 WITH HEADER LINE.
DATA : ITEMS LIKE BAPISITEMR OCCURS 0 WITH HEADER LINE .
DATA : BEGIN OF T OCCURS 0,
         MATERIAL(12),
         DATE_TYPE(1),
         REQ_DATE LIKE SY-DATUM,
         REQ_QTY(13),
       END OF T.
DATA : L_DATTIME(10) .
*DATA : D1 like VTBBEWE-DBERVON, D2 like VTBBEWE-DBERBIS, D3 like VTBBEWE-ATAGE.
DATA : D1 TYPE D, D2 TYPE D, D3 TYPE I.
DATA QN(9) TYPE C.
DATA DEC(9) TYPE C.
DATA : TMAT(12).
DATA : ACTIVE_REQ LIKE BAPISITEMR-REQ_NUMBER,
       DEACTIVE_REQ(10) TYPE C .
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
PARAMETER: P_FILE TYPE STRING DEFAULT
                                      'c:\data\gross_upload.txt'.
*PARAMETER: P_PLAN LIKE AM60X-PBDNR.
*PARAMETER: P_OLDPLN LIKE BAPISITEMR-REQ_NUMBER.
SELECTION-SCREEN END OF BLOCK BLK.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
  PERFORM GETFILE_NAME CHANGING P_FILE.
TOP-OF-PAGE.
  WRITE :/35  '** GROSS REQUIREMENT UPLOAD **'.
  WRITE :/35  '******************************'.
START-OF-SELECTION.
perform CHECK_PLAN_NUMBER USING P_OLDPLN.
  PERFORM READ_FILE.  "Reads the input file using GUI_UPLOAD.
  PERFORM GET_OLD_PLAN. " GETS THE OLD PLAN NUMBER.
  PERFORM CREATE_PLAN_NUMBER. " Creates a new plan number for this week.
  PERFORM CREATE_GROSS_REQUIREMENT. " Creates the gross requirement.
  PERFORM WRITE_STATUS.
*&      Form  READ_FILE
      Reads the input file using GUI_UPLOAD.
-->  p1        text
<--  p2        text
FORM READ_FILE .
  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      FILENAME                      = P_FILE
   FILETYPE                      = 'DAT'
  HAS_FIELD_SEPARATOR           = ' '
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
  VIRUS_SCAN_PROFILE            =
  NO_AUTH_CHECK                 = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
    TABLES
      DATA_TAB                      = ITAB_REQ
EXCEPTIONS
  FILE_OPEN_ERROR               = 1
  FILE_READ_ERROR               = 2
  NO_BATCH                      = 3
  GUI_REFUSE_FILETRANSFER       = 4
  INVALID_TYPE                  = 5
  NO_AUTHORITY                  = 6
  UNKNOWN_ERROR                 = 7
  BAD_DATA_FORMAT               = 8
  HEADER_NOT_ALLOWED            = 9
  SEPARATOR_NOT_ALLOWED         = 10
  HEADER_TOO_LONG               = 11
  UNKNOWN_DP_ERROR              = 12
  ACCESS_DENIED                 = 13
  DP_OUT_OF_MEMORY              = 14
  DISK_FULL                     = 15
  DP_TIMEOUT                    = 16
  OTHERS                        = 17
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
   DESCRIBE TABLE ITAB_REQ LINES LIN.
     IF SY-TABIX = '1' OR SY-TABIX = LIN.
       CONTINUE.
     ENDIF.
delete ITAB_REQ where MATERIAL+11(1) = 'I' and MAT_TYPE = 'P'.
ENDFORM.                    " READ_FILE
*&      Form  CREATE_GROSS_REQUIREMENT
      Creates the gross requirement
-->  p1        text
<--  p2        text
FORM CREATE_GROSS_REQUIREMENT .
*read table ITAB_REQ with  key RECTYPE = 'OP01'.
*zwerks =  ITAB_REQ-PLANT.
  DELETE ITAB_REQ WHERE  RECTYPE NE 'PFAI'.
  SORT ITAB_REQ  BY MATERIAL.
  ITAB_REQ2[] = ITAB_REQ[] .
  DELETE ADJACENT DUPLICATES FROM ITAB_REQ2 COMPARING MATERIAL.
  LOOP AT ITAB_REQ .
    T-MATERIAL = ITAB_REQ-MATERIAL.
    D1 = ITAB_REQ-START_DATE.
    D2 = ITAB_REQ-END_DATE.
    IF D2 EQ '        '.
      D2 = D1 .
    ENDIF.
   D3 = D2 - D1.
   CALL FUNCTION 'CONVERT_DATE_FORMAT'
     EXPORTING
       I_DATE      = D1
     IMPORTING
       E_CALC_DATE = D1.
   CALL FUNCTION 'CONVERT_DATE_FORMAT'
     EXPORTING
       I_DATE      = D2
     IMPORTING
       E_CALC_DATE = D2.
   D3 = D2 - D1.
    CALL FUNCTION 'HR_SGPBS_YRS_MTHS_DAYS'
      EXPORTING
        BEG_DA     = D1
        END_DA     = D2
      IMPORTING
        NO_CAL_DAY = D3.
*CALL FUNCTION 'FIMA_DAYS_AND_MONTHS_AND_YEARS'
EXPORTING
   I_DATE_FROM          = d1
  I_KEY_DAY_FROM       = '00'
   I_DATE_TO            = d2
  I_KEY_DAY_TO         = '00'
  I_FLG_SEPARATE       = ' '
IMPORTING
  E_DAYS               = d3
  E_MONTHS             =
  E_YEARS              =
    IF D3 < 7 AND D3 > 0.
      T-DATE_TYPE =  '2'. " Weekly
    ELSE.
      T-DATE_TYPE =  '3'. " Monthly
    ENDIF.
    IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    T-REQ_DATE = ITAB_REQ-START_DATE.
    QN = ITAB_REQ-QTY+0(9).
    DEC = ITAB_REQ-QTY+9(5).
    CONCATENATE QN '.' DEC INTO p.
    p1 = p.
   p2 = p1.
   T-REQ_QTY = p2.
T-REQ_QTY = p.
  T-REQ_QTY = ITAB_REQ-QTY+0(9).
    APPEND T.
    CLEAR : T, D1, D2, D3.
  ENDLOOP.
  DATA PNO LIKE BAPISITEMR-REQ_NUMBER.
  LOOP AT ITAB_REQ2.
    LOOP AT T WHERE MATERIAL = ITAB_REQ2-MATERIAL.
      SCHEDULE_IN-DATE_TYPE =  T-DATE_TYPE .
      SCHEDULE_IN-REQ_DATE = T-REQ_DATE .
      SCHEDULE_IN-REQ_QTY = T-REQ_QTY.
      APPEND SCHEDULE_IN.
    ENDLOOP.
    ITEMS-MATERIAL = ITAB_REQ2-MATERIAL .
    ITEMS-PLANT = zwerks .
    ITEMS-REQU_TYPE = ' ' .
    ITEMS-VERSION = '00' .
    ITEMS-VERS_ACTIV = 'X'.
    ITEMS-REQ_NUMBER = L_DATTIME.
    ACTIVE_REQ = L_DATTIME.
   APPEND ITEMS.
   D1 = ITAB_REQ-START_DATE.
   D2 = ITAB_REQ-END_DATE.
   D3 = D2 - D1.
   IF D3 > 7.
     SCHEDULE_IN-DATE_TYPE =  '3'. " MONTHLY
   ELSE.
     SCHEDULE_IN-DATE_TYPE =  '2'. " WEEKLY
   ENDIF.
   SCHEDULE_IN-REQ_DATE = ITAB_REQ-START_DATE .
   SCHEDULE_IN-REQ_QTY = ITAB_REQ-QTY.
   APPEND SCHEDULE_IN.
    CALL FUNCTION 'BAPI_REQUIREMENTS_CREATE'
      EXPORTING
        REQUIREMENTS_ITEM              = ITEMS
  REQUIREMENT_PARAM              =
       DO_COMMIT                      = 'X'
       UPDATE_MODE                    = 'X'
  REFER_TYPE                     = ' '
  PROFILID                       = ' '
IMPORTING
  MATERIAL                       =
  PLANT                          =
  REQUIREMENTSTYPE               =
  VERSION                        =
   REQMTSPLANNUMBER               =
  MRP_AREA                       =
  MATERIAL_EVG                   =
      TABLES
        REQUIREMENTS_SCHEDULE_IN       = SCHEDULE_IN
  REQUIREMENTS_CHAR_IN           =
        RETURN                         = RET
   if sy-subrc ne 0.
   loop at ret.
   write :/  ret.
   endloop.
   endif.
    ITAB_STATUS-MATERIAL = ITAB_REQ2-MATERIAL.
   ITAB_STATUS-TYPE = RET-TYPE.
    ITAB_STATUS-DESC = RET-MESSAGE.
    IF RET-MESSAGE IS INITIAL.
      ITAB_STATUS-DESC = 'Requirement Created '.
    ENDIF.
    APPEND ITAB_STATUS.
    CLEAR ITAB_STATUS.
    CLEAR SCHEDULE_IN.
    REFRESH SCHEDULE_IN.
    CLEAR ITAB_REQ2.
    CLEAR T.
  ENDLOOP.
  ITAB_PLAN-MANDT = SY-MANDT.
  ITAB_PLAN-PLANNO = L_DATTIME.
  ITAB_PLAN-PLNTIME = SY-UZEIT.
  ITAB_PLAN-PLNDATE = SY-DATUM.
  ITAB_PLAN-ACTIVE = 'X'.
  APPEND ITAB_PLAN.
  CLEAR ITAB_PLAN.
  INSERT ZPP_PLAN_NUMBER FROM TABLE ITAB_PLAN.
  IF SY-SUBRC = 0.
    COMMIT WORK.
  ENDIF.
ENDFORM.                    " CREATE_GROSS_REQUIREMENT
*&      Form  WRITE_STATUS
      text
-->  p1        text
<--  p2        text
FORM WRITE_STATUS .
  WRITE :/ ' REQUIREMENT PLAN NUMBER ACTIVATED   : ', ACTIVE_REQ.
  WRITE :/ ' REQUIREMENT PLAN NUMBER DEACTIVATED : ', DEACTIVE_REQ.
  ULINE.
  IF NOT ITAB_STATUS[] IS INITIAL. " WRITES ERROR MESSAGES
    WRITE SY-ULINE(110).
    WRITE :/1 SY-VLINE NO-GAP,
            6 'Material Number',
            24 SY-VLINE NO-GAP,
           25 'Return Code',
           38 SY-VLINE NO-GAP,
            39 'Return Message',
            110 SY-VLINE NO-GAP.
    WRITE SY-ULINE(110).
    LOOP AT ITAB_STATUS.
      WRITE :/1 SY-VLINE NO-GAP,
              6 ITAB_STATUS-MATERIAL,
              24 SY-VLINE NO-GAP,
             25 ITAB_STATUS-TYPE,
             38 SY-VLINE NO-GAP,
              39 ITAB_STATUS-DESC,
              110 SY-VLINE NO-GAP.
    ENDLOOP.
    WRITE SY-ULINE(110).
  ENDIF.
ENDFORM.                    " WRITE_STATUS
*&      Form  getfile_name
      text
     <--P_P_FILE  text
FORM GETFILE_NAME  CHANGING P_P_FILE.
  DATA : TMP_FILE LIKE RLGRAP-FILENAME.
  TMP_FILE = P_P_FILE.
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
   EXPORTING
  PROGRAM_NAME        = SYST-REPID
  DYNPRO_NUMBER       = SYST-DYNNR
  FIELD_NAME          = ' '
  STATIC              = ' '
     MASK                = ' .'
    CHANGING
      FILE_NAME           = TMP_FILE
   EXCEPTIONS
     MASK_TOO_LONG       = 1
     OTHERS              = 2.
  IF SY-SUBRC = 0.
    P_P_FILE = TMP_FILE.
  ENDIF.
ENDFORM.                    " getfile_name
*&      Form  DEACTIVATE_OLD_REQUIREMENT
      text
-->  p1        text
<--  p2        text
FORM DEACTIVATE_OLD_REQUIREMENT .
  CALL FUNCTION 'BAPI_REQUIREMENTS_GETDETAIL'
    EXPORTING
      MATERIAL               = ' '
      PLANT                  = zwerks
      REQUIREMENTSTYPE       = ' '
      VERSION                = '00'
      REQMTSPLANNUMBER       = ITAB_OLDPLAN-PLANNO
  MRP_AREA               =
  MATERIAL_EVG           =
    TABLES
     REQUIREMENTS_OUT        = REQ_OUT
      RETURN                 = RET2
  IF SY-SUBRC = 0.
    LOOP AT REQ_OUT.
      T1-MATNR = REQ_OUT-MATERIAL.
      T1-DATE_TYPE = REQ_OUT-DATE_TYPE.
      T1-REQ_DATE = REQ_OUT-REQ_DATE.
      T1-REQ_QTY = REQ_OUT-REQ_QTY.
      T1-UNIT = REQ_OUT-UNIT.
      APPEND T1.
      CLEAR T1.
    ENDLOOP.
    REQ_OUT1[] = REQ_OUT[].
    SORT REQ_OUT1 BY MATERIAL.
    DELETE ADJACENT DUPLICATES FROM REQ_OUT1 COMPARING MATERIAL.
    LOOP AT REQ_OUT1.
      LOOP AT T1 WHERE MATNR = REQ_OUT1-MATERIAL.
        REQ_IN-DATE_TYPE = T1-DATE_TYPE.
        REQ_IN-REQ_DATE  = T1-REQ_DATE.
        REQ_IN-REQ_QTY   = T1-REQ_QTY.
        REQ_IN-UNIT      = T1-UNIT.
        APPEND REQ_IN.
        CLEAR REQ_IN.
      ENDLOOP.
      CALL FUNCTION 'BAPI_REQUIREMENTS_CHANGE'
        EXPORTING
          MATERIAL                       = REQ_OUT1-MATERIAL
          PLANT                          = zwerks
          REQUIREMENTSTYPE               = ' '
          VERSION                        = '00'
          REQMTSPLANNUMBER               = ITAB_OLDPLAN-PLANNO
          VERS_ACTIV                     = ' '
    REQUIREMENT_PARAM              =
    MRP_AREA                       =
          DO_COMMIT                      = 'X'
          UPDATE_MODE                    = 'X'
          DELETE_OLD                     = 'X'
    NO_WITHDR                      = ' '
    MATERIAL_EVG                   =
  IMPORTING
    REQUIREMENT_ITEM_OUT           =
         TABLES
          REQUIREMENTS_SCHEDULE_IN       = REQ_IN
    REQUIREMENTS_CHAR_IN           =
          RETURN                         = RET3
    ENDLOOP.
  ENDIF.
ENDFORM.                    " DEACTIVATE_OLD_REQUIREMENT
*&      Form  CHECK_PLAN_NUMBER
      text
-->  p1        text
<--  p2        text
FORM CHECK_PLAN_NUMBER . "USING P_P_OLDPLN.
DATA : ITAB_PBIM TYPE PBIM .
DATA MSG TYPE STRING.
SELECT SINGLE * FROM PBIM INTO ITAB_PBIM WHERE PBDNR = P_PLAN.
IF SY-SUBRC = 0.
   CONCATENATE 'THE PLAN NUMBER :  ' P_PLAN ' ALREADY EXIST' INTO MSG.
   MESSAGE MSG TYPE 'E'.
ENDIF.
SELECT SINGLE * FROM PBIM INTO ITAB_PBIM WHERE PBDNR = P_OLDPLN.
IF SY-SUBRC NE 0.
   CONCATENATE 'THE PLAN NUMBER :  ' P_OLDPLN ' DOES NOT EXIST' INTO MSG.
   MESSAGE MSG TYPE 'E'.
ENDIF.
ENDFORM.                    " CHECK_PLAN_NUMBER
*&      Form  GENERATE_PLAN_NUMBER
      text
-->  p1        text
<--  p2        text
FORM CREATE_PLAN_NUMBER.
  PLNNO_NEW1 = PLNNO_NEW.
  CONDENSE PLNNO_NEW1.
  CONCATENATE SY-DATUM+2(6) PLNNO_NEW1 INTO L_DATTIME.
ENDFORM.                    " CREATE_PLAN_NUMBER
*&      Form  GET_OLD_PLAN
      text
-->  p1        text
<--  p2        text
FORM GET_OLD_PLAN .
  SELECT * FROM ZPP_PLAN_NUMBER INTO TABLE ITAB_OLDPLAN WHERE ACTIVE = 'X'.
  IF SY-SUBRC = 0.
    READ TABLE ITAB_OLDPLAN WITH KEY ACTIVE = 'X'.
    PLNNO1 = ITAB_OLDPLAN-PLANNO+6(4).
    CONDENSE PLNNO1.
    PLNNO = PLNNO1.
    read table ITAB_REQ with  key RECTYPE = 'OP01'.
    zwerks =  ITAB_REQ-PLANT.
    PERFORM DEACTIVATE_OLD_REQUIREMENT. " PREVIOUS PLAN IS DEACTIVATED.
    ITAB_OLDPLAN1[] = ITAB_OLDPLAN[].
    CLEAR ITAB_OLDPLAN.
    REFRESH ITAB_OLDPLAN.
    READ TABLE ITAB_OLDPLAN1 WITH KEY ACTIVE = 'X'.
    ITAB_OLDPLAN-PLANNO = ITAB_OLDPLAN1-PLANNO.
    ITAB_OLDPLAN-PLNTIME = ITAB_OLDPLAN1-PLNTIME.
    ITAB_OLDPLAN-PLNDATE = ITAB_OLDPLAN1-PLNDATE.
    ITAB_OLDPLAN-ACTIVE = ' '.
    APPEND ITAB_OLDPLAN.
    CLEAR ITAB_OLDPLAN.
    DEACTIVE_REQ = ITAB_OLDPLAN1-PLANNO.
    MODIFY ZPP_PLAN_NUMBER FROM TABLE ITAB_OLDPLAN.
    IF SY-SUBRC = 0.
      COMMIT WORK.
    ENDIF.
  ENDIF.
  PLNNO_NEW = PLNNO + 1.
ENDFORM.                    " GET_OLD_PLAN