Hi Regarding Printing values in same window in case of Scripts

Question

Hi Smart Guys ,
                      Really this could be a challenging for all smart guys who were experts in scripts and smart-forms .
i am using 3 windows 1.Mainwindow and other 2 are secondary-windows
i am printing line items through external-subroutines
my secondary-windows can hold each one 15.
but the problem is i am printing 15 values in one secondary window
from 16 on wards i need to print in another secondary window
i am not getting values in my another secondary window from 16 on wards
i am using two individual sub-routines for each secondary window
pleas solve this one .
definitely 100% points awarded.
This is sub-routine what iam using ..................
*& Subroutine Pool   ZCHQ
PROGRAM  zchq.
TABLES: payr,reguh,regup,bsik,bsak,bkpf.
DATA:v_date TYPE bsik-budat,
       str2(10) TYPE c,
       v_vblnr LIKE reguh-vblnr,
       v_rebzg LIKE bsik-rebzg,
       v_belnr LIKE bsik-belnr,
      v_augbl LIKE bsak-augbl,
       v_zuonr LIKE bsik-zuonr,
        v_amt LIKE bsik-dmbtr,
        v_temp(20),
        v_temp1(20),
        v_str(20),
        v_total(20),
        str TYPE string,
        v_amnt TYPE bsik-wrbtr,
        v_shkzg TYPE bsik-shkzg,
        v_amt1(20),
        v_amt2(20),
        str1 TYPE string,
        str5 TYPE string,
        v_dat(10),
        v_dat1(10),
        wrk_index LIKE sy-tabix    VALUE  '0',
        wrk_index1 TYPE sy-tabix VALUE 0.
TYPES:BEGIN OF st_tab,
      name(130),
      value(255),
      dmbtr TYPE pc207-betrg,
      END OF st_tab.
DATA:it_tab TYPE TABLE OF st_tab,
       wa_tab LIKE LINE OF it_tab.
*&      Form  get_data
      text
     -->INTAB      text
     -->OUTTAB     text
FORM get_data TABLES intab STRUCTURE itcsy
                     outtab STRUCTURE itcsy.
  DATA : v_vblnr LIKE reguh-vblnr,
         v_text LIKE regup-sgtxt,
         wv_rwbtr TYPE payr-rwbtr,
         str TYPE p DECIMALS 2,
         v_rwbtr(20),
         v_qbshb(20),
          c_qbshb TYPE p DECIMALS 2.
  DATA: BEGIN OF wa_bsak ,
        belnr LIKE bsak-belnr,
        shkzg LIKE bsak-shkzg,
        budat LIKE bsak-budat,
        dmbtr LIKE bsak-dmbtr,
        qbshb LIKE bsak-qbshb,
        augbl LIKE bsak-augbl,
        END OF wa_bsak.
  READ TABLE intab INDEX 1.
  v_vblnr = intab-value.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = v_vblnr
    IMPORTING
      output = v_vblnr.
  SELECT SINGLE sgtxt
                INTO v_text
                FROM regup
                WHERE vblnr = v_vblnr.
  CLEAR wv_rwbtr.
  SELECT SINGLE rwbtr
                INTO wv_rwbtr
                FROM payr
                WHERE vblnr = v_vblnr.
  CLEAR v_rwbtr.
  IF wv_rwbtr < 0.
    str = ( wv_rwbtr * -1 ).
    v_rwbtr = str.
  ELSE.
    str = wv_rwbtr.
    v_rwbtr = str.
  ENDIF.
  READ TABLE outtab INDEX 1.
  IF sy-subrc = 0.
    outtab-value = v_text.
    MODIFY outtab INDEX 1.
    CLEAR outtab.
  ENDIF.
  READ TABLE outtab INDEX 2.
  IF sy-subrc = 0.
    outtab-value = v_rwbtr.
    MODIFY outtab INDEX 2.
    CLEAR outtab.
  ENDIF.
  CLEAR v_qbshb.
  CLEAR c_qbshb.  "*"
  CLEAR wa_bsak.
  SELECT belnr shkzg dmbtr qbshb augbl
  FROM bsak
  INTO CORRESPONDING FIELDS OF wa_bsak
  WHERE augbl = v_vblnr.
    IF wa_bsak-shkzg = 'H'.
     v_qbshb = v_qbshb + wa_bsak-qbshb.
      c_qbshb = c_qbshb + wa_bsak-qbshb.
      v_qbshb = c_qbshb.
    ELSE.
      IF wa_bsak-augbl NE wa_bsak-belnr.
       v_qbshb = v_qbshb + wa_bsak-dmbtr.
        c_qbshb = c_qbshb + wa_bsak-dmbtr.
        v_qbshb = c_qbshb.
      ENDIF.
    ENDIF.
    CLEAR wa_bsak.
  ENDSELECT.
  READ TABLE outtab INDEX 3.
  IF sy-subrc = 0.
    IF NOT v_qbshb IS INITIAL.
      outtab-value = v_qbshb.
    ENDIF.
    MODIFY outtab INDEX 3.
    CLEAR outtab.
  ENDIF.
  CLEAR : outtab.
  DATA: BEGIN OF wa_bsak1 ,
        belnr LIKE bsak-belnr,
        gjahr LIKE bsak-gjahr,
        budat LIKE bsak-budat,
        rebzg LIKE bsak-rebzg,
        rebzj LIKE bsak-rebzj,
        shkzg LIKE bsak-shkzg,
        dmbtr LIKE bsak-dmbtr,
        qbshb LIKE bsak-qbshb,
        str4  TYPE string,
        str5 TYPE string,
        v_amt3(20),
        augbl LIKE bsak-augbl,
        v_total LIKE bsak-dmbtr,
        END OF wa_bsak1.
  DATA: it_bsak LIKE  TABLE OF wa_bsak1 WITH HEADER LINE.
  DATA: BEGIN OF wa_bsik,
        belnr LIKE bsik-belnr,
        budat LIKE bsik-budat,
        shkzg LIKE bsik-shkzg,
        dmbtr LIKE bsik-dmbtr,
        zuonr LIKE bsik-zuonr,
        str1 TYPE string,
        str2 TYPE string,
        str3 TYPE string,
        v_amt1(20),
        v_amt2(20),
        v_dat(10),
         END OF wa_bsik.
  DATA: wrk_str1 TYPE string,
        wrk_str2 TYPE string,
        wrk_str3 TYPE string,
        strtmp(20),
        v_sumamt(20),
        c_sumamt TYPE p DECIMALS 2.
  DATA: v_dmbtr LIKE bsik-dmbtr,
        dmbtr LIKE bsik-dmbtr.
  DATA: it_bsik LIKE TABLE OF wa_bsik WITH HEADER LINE.
read table intab
with key name = 'REGUH-VBLNR'
transporting value.
if sy-subrc = 0.
   v_vblnr = intab-value.
endif.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
   EXPORTING
     input  = v_vblnr
   IMPORTING
     output = v_vblnr.
CLEAR v_shkzg.
SELECT SINGLE shkzg
INTO v_shkzg
FROM bsik
WHERE belnr = v_vblnr
AND shkzg = 'S'.
IF v_shkzg = 'S'.
   SELECT belnr rebzg rebzj dmbtr
   INTO (wa_bsak1-belnr,wa_bsak1-rebzg,wa_bsak1-rebzj,wa_bsak1-dmbtr)
   FROM bsik
   WHERE belnr = v_vblnr.
     SELECT SINGLE budat
     INTO wa_bsak1-budat
     FROM bkpf
     WHERE belnr = wa_bsak1-rebzg
     AND gjahr = wa_bsak1-rebzj.
     CLEAR str5.
     MOVE wa_bsak1-dmbtr TO str5.
     str5 = str5 + wa_bsak-dmbtr.
     MOVE str5 TO wa_bsak1-v_amt3.
     CLEAR v_dat1.
     APPEND wa_bsak1 TO it_bsak.
     CLEAR wa_bsak1.
   ENDSELECT.
ENDIF.
  SELECT belnr gjahr shkzg dmbtr qbshb augbl
  FROM bsak
  INTO CORRESPONDING FIELDS OF wa_bsak1
  WHERE augbl = v_vblnr
  AND shkzg = 'H'.
    IF sy-subrc = 0.
      SELECT SINGLE budat
      INTO wa_bsak1-budat
      FROM bkpf
      WHERE belnr = wa_bsak1-belnr
      AND gjahr =  wa_bsak1-gjahr.
      CLEAR str5.
      str5 = wa_bsak1-dmbtr + wa_bsak1-qbshb.
      wa_bsak1-v_amt3 = str5.
      APPEND wa_bsak1 TO it_bsak.
      CLEAR wa_bsak1.
    ENDIF.
  ENDSELECT.
  LOOP AT it_bsak.
    strtmp = it_bsak-v_amt3.
   v_sumamt = v_sumamt + strtmp.
    c_sumamt = c_sumamt + strtmp.
    v_sumamt = c_sumamt.
  ENDLOOP.
  READ TABLE outtab INDEX 4.
  outtab-value = v_sumamt.
  MODIFY outtab INDEX 4.
  CLEAR outtab.
  CLEAR: intab,
         outtab.
ENDFORM.                    "get_data
*&      Form  GET_AMT
      text
     -->INTAB      text
     -->OUTTAB     text
FORM get_amt TABLES intab STRUCTURE itcsy
                    outtab STRUCTURE itcsy.
  CLEAR : outtab.
  DATA: BEGIN OF wa_bsak ,
        belnr LIKE bsak-belnr,
        gjahr LIKE bsak-gjahr,
        budat LIKE bsak-budat,
        rebzg LIKE bsak-rebzg,
        rebzj LIKE bsak-rebzj,
        shkzg LIKE bsak-shkzg,
        dmbtr LIKE bsak-dmbtr,
        qbshb LIKE bsak-qbshb,
        str4  TYPE string,
        str5 TYPE string,
        v_amt3(20),
        augbl LIKE bsak-augbl,
        v_total LIKE bsak-dmbtr,
        END OF wa_bsak.
  DATA: it_bsak LIKE  TABLE OF wa_bsak WITH HEADER LINE.
  DATA: BEGIN OF wa_bsik,
        belnr LIKE bsik-belnr,
        budat LIKE bsik-budat,
        shkzg LIKE bsik-shkzg,
        dmbtr LIKE bsik-dmbtr,
        zuonr LIKE bsik-zuonr,
        str1 TYPE string,
        str2 TYPE string,
        str3 TYPE string,
        v_amt1(20),
        v_amt2(20),
        v_dat(10),
         END OF wa_bsik.
  DATA: wrk_str1 TYPE string,
        wrk_str2 TYPE string,
        wrk_str3(20).
  DATA: v_dmbtr LIKE bsik-dmbtr,
        dmbtr LIKE bsik-dmbtr.
  DATA: it_bsik LIKE TABLE OF wa_bsik WITH HEADER LINE.
  READ TABLE intab
  WITH KEY name = 'REGUH-VBLNR'
  TRANSPORTING value.
  IF sy-subrc = 0.
    v_vblnr = intab-value.
  ENDIF.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = v_vblnr
    IMPORTING
      output = v_vblnr.
  CLEAR v_shkzg.
  SELECT SINGLE shkzg
  INTO v_shkzg
  FROM bsik
  WHERE belnr = v_vblnr
  AND shkzg = 'S'.
  IF v_shkzg = 'S'.
    SELECT belnr rebzg rebzj dmbtr
    INTO (wa_bsak-belnr, wa_bsak-rebzg, wa_bsak-rebzj, wa_bsak-dmbtr)
    FROM bsik
    WHERE belnr = v_vblnr.
      SELECT SINGLE budat
      INTO wa_bsak-budat
      FROM bkpf
      WHERE belnr = wa_bsak-rebzg
      AND gjahr = wa_bsak-rebzj.
      CLEAR str5.
      MOVE wa_bsak-dmbtr TO str5.
      MOVE str5 TO wa_bsak-v_amt3.
     MOVE wa_bsak-dmbtr TO str5.
     str5 = str5 + wa_bsak-dmbtr.
     MOVE str5 TO wa_bsak-v_amt3.
      CLEAR v_dat1.
      CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
        EXPORTING
          date_internal            = wa_bsak-budat
        IMPORTING
          date_external            = v_dat1
        EXCEPTIONS
          date_internal_is_invalid = 1
          OTHERS                   = 2.
      IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      wa_bsak-str4 = v_dat1.
      APPEND wa_bsak TO it_bsak.
      CLEAR wa_bsak.
    ENDSELECT.
    ADD 1 TO wrk_index.
    READ TABLE it_bsak
    INDEX wrk_index.
    MOVE it_bsak-belnr TO wrk_str1.
    CONDENSE wrk_str1.
    MOVE it_bsak-str4 TO wrk_str2.
    CONDENSE wrk_str2.
    MOVE it_bsak-v_amt3 TO wrk_str3.
   CONDENSE wrk_str3.
    CLEAR it_bsak.
    IF wrk_index LE 15.
      MOVE wrk_str1 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT1'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT2'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT3'.
      CLEAR outtab.
    ELSE.
      MOVE wrk_str1 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT4'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT5'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
     SHIFT outtab-value LEFT.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT6'.
      CLEAR outtab.
    ENDIF.
    CLEAR: intab,
           outtab.
    CLEAR it_bsak.
    REFRESH it_bsak.
  ENDIF.
  CLEAR it_bsak.
  CLEAR wa_bsak.
  SELECT belnr gjahr shkzg dmbtr qbshb augbl
  FROM bsak
  INTO CORRESPONDING FIELDS OF wa_bsak
  WHERE augbl = v_vblnr
  AND shkzg = 'H'.
    IF sy-subrc = 0.
      SELECT SINGLE budat
      INTO wa_bsak-budat
      FROM bkpf
      WHERE belnr = wa_bsak-belnr
      AND gjahr =  wa_bsak-gjahr.
      CLEAR str5.
      str5 = wa_bsak-dmbtr + wa_bsak-qbshb.
      wa_bsak-v_amt3 = str5.
      CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
       EXPORTING
         date_internal                  = wa_bsak-budat
       IMPORTING
         date_external                  = v_dat1
EXCEPTIONS
  DATE_INTERNAL_IS_INVALID       = 1
  OTHERS                         = 2
     IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.
      wa_bsak-str4 = v_dat1.
      APPEND wa_bsak TO it_bsak.
      CLEAR wa_bsak.
    ENDIF.
  ENDSELECT.
  CLEAR: it_bsak.
  IF it_bsak[] IS NOT INITIAL.
    ADD 1 TO wrk_index.
    READ TABLE it_bsak
    INDEX wrk_index .
    MOVE it_bsak-belnr TO wrk_str1.
    CONDENSE wrk_str1.
    MOVE it_bsak-str4 TO wrk_str2.
    CONDENSE wrk_str2.
    MOVE it_bsak-v_amt3 TO wrk_str3.
   CONDENSE wrk_str3.
    CLEAR it_bsak.
    IF wrk_index LE 15.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT1'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT2'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT3'.
      CLEAR outtab.
    ELSE.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT4'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT5'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'STEXT6'.
      CLEAR outtab.
    ENDIF.
    CLEAR: intab,
           outtab.
  ENDIF.
ENDFORM.                    "GET_AMT
*&      Form  GET_AMT2
      text
     -->INTAB      text
     -->OUTTAB     text
FORM get_amt2 TABLES intab STRUCTURE itcsy
                    outtab STRUCTURE itcsy.
  CLEAR : outtab.
  DATA: BEGIN OF wa_bsak ,
        belnr LIKE bsak-belnr,
        gjahr LIKE bsak-gjahr,
        budat LIKE bsak-budat,
        rebzg LIKE bsak-rebzg,
        rebzj LIKE bsak-rebzj,
        shkzg LIKE bsak-shkzg,
        dmbtr LIKE bsak-dmbtr,
        qbshb LIKE bsak-qbshb,
        str4  TYPE string,
        str5 TYPE string,
        v_amt3(20),
        augbl LIKE bsak-augbl,
        v_total LIKE bsak-dmbtr,
        END OF wa_bsak.
  DATA: it_bsak LIKE  TABLE OF wa_bsak WITH HEADER LINE.
  DATA: BEGIN OF wa_bsik,
        belnr LIKE bsik-belnr,
        budat LIKE bsik-budat,
        shkzg LIKE bsik-shkzg,
        dmbtr LIKE bsik-dmbtr,
        zuonr LIKE bsik-zuonr,
        str1 TYPE string,
        str2 TYPE string,
        str3 TYPE string,
        v_amt1(20),
        v_amt2(20),
        v_dat(10),
         END OF wa_bsik.
  DATA: wrk_str1 TYPE string,
        wrk_str2 TYPE string,
        wrk_str3(15),
        v_tmp(15),
        v_sumamt(20),
        wv_strlen TYPE i.
  DATA: v_dmbtr LIKE bsik-dmbtr,
        dmbtr LIKE bsik-dmbtr.
  DATA: it_bsik LIKE TABLE OF wa_bsik WITH HEADER LINE.
  READ TABLE intab
  WITH KEY name = 'REGUH-VBLNR'
  TRANSPORTING value.
  IF sy-subrc = 0.
    v_vblnr = intab-value.
  ENDIF.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = v_vblnr
    IMPORTING
      output = v_vblnr.
  CLEAR v_shkzg.
  SELECT SINGLE shkzg
  INTO v_shkzg
  FROM bsik
  WHERE belnr = v_vblnr
  AND shkzg = 'S'.
  IF v_shkzg = 'S'.
    SELECT belnr rebzg rebzj dmbtr
    INTO (wa_bsak-belnr,wa_bsak-rebzg,wa_bsak-rebzj,wa_bsak-dmbtr)
    FROM bsik
    WHERE belnr = v_vblnr.
      SELECT SINGLE budat
      INTO wa_bsak-budat
      FROM bkpf
      WHERE belnr = wa_bsak-rebzg
      AND gjahr = wa_bsak-rebzj.
      CLEAR str5.
      MOVE wa_bsak-dmbtr TO str5.
      MOVE str5 TO wa_bsak-v_amt3.
      CLEAR v_dat1.
      CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
        EXPORTING
          date_internal            = wa_bsak-budat
        IMPORTING
          date_external            = v_dat1
        EXCEPTIONS
          date_internal_is_invalid = 1
          OTHERS                   = 2.
      IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      wa_bsak-str4 = v_dat1.
      APPEND wa_bsak TO it_bsak.
      CLEAR wa_bsak.
    ENDSELECT.
    ADD 1 TO wrk_index1.
    READ TABLE it_bsak
    INDEX wrk_index1 .
    MOVE it_bsak-belnr TO wrk_str1.
    CONDENSE wrk_str1.
    MOVE it_bsak-str4 TO wrk_str2.
    CONDENSE wrk_str2.
    MOVE it_bsak-v_amt3 TO wrk_str3.
   CONDENSE wrk_str3.
    CLEAR it_bsak.
    IF wrk_index1 LE 15.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT1'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT2'.
      CLEAR outtab.
     MOVE wrk_str3 TO outtab-value.
     SHIFT outtab-value RIGHT DELETING TRAILING space.
     MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT3'.
     CLEAR outtab.
      READ TABLE outtab INDEX 3.
      outtab-value = wrk_str3.
      MODIFY outtab INDEX 3.
      CLEAR outtab.
    ELSE.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT4'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT5'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
     SHIFT outtab-value RIGHT  DELETING TRAILING space.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT6'.
      CLEAR outtab.
    ENDIF.
    CLEAR: intab,
           outtab.
    CLEAR it_bsak.
    REFRESH it_bsak.
  ENDIF.
  CLEAR it_bsak.
  CLEAR wa_bsak.
  SELECT belnr gjahr shkzg dmbtr qbshb augbl
  FROM bsak
  INTO CORRESPONDING FIELDS OF wa_bsak
  WHERE augbl = v_vblnr
  AND shkzg = 'H'.
    IF sy-subrc = 0.
      SELECT SINGLE budat
      INTO wa_bsak-budat
      FROM bkpf
      WHERE belnr = wa_bsak-belnr
      AND gjahr =  wa_bsak-gjahr.
      CLEAR str5.
      str5 = wa_bsak-dmbtr + wa_bsak-qbshb.
      wa_bsak-v_amt3 = str5.
      CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
        EXPORTING
          date_internal = wa_bsak-budat
        IMPORTING
          date_external = v_dat1.
EXCEPTIONS
  DATE_INTERNAL_IS_INVALID       = 1
  OTHERS                         = 2
     IF sy-subrc <> 0.    "#EC
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.
      wa_bsak-str4 = v_dat1.
      APPEND wa_bsak TO it_bsak.
      CLEAR wa_bsak.
    ENDIF.
  ENDSELECT.
  CLEAR: it_bsak.
  IF it_bsak[] IS NOT INITIAL.
    ADD 1 TO wrk_index1.
    READ TABLE it_bsak
    INDEX wrk_index1 .
    MOVE it_bsak-belnr TO wrk_str1.
    CONDENSE wrk_str1.
    MOVE it_bsak-str4 TO wrk_str2.
    CONDENSE wrk_str2.
    MOVE it_bsak-v_amt3 TO wrk_str3.
   CONDENSE wrk_str3.
    CLEAR it_bsak.
    IF wrk_index1 LE 15.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT1'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT2'.
      CLEAR outtab.
     write wrk_str3 to outtab-value right-justified.
     MOVE wrk_str3 TO outtab-value.
     MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT3'.
     CLEAR : outtab, v_tmp.
     CLEAR wv_strlen.
     wv_strlen = STRLEN( wrk_str3 ).
     wv_strlen = 15 - wv_strlen.
     DO wv_strlen TIMES.
       CONCATENATE '0' wrk_str3
       INTO wrk_str3.
     ENDDO.
     IF wrk_str3 IS NOT INITIAL.
       WRITE wrk_str3+0(wv_strlen) TO v_tmp RIGHT-JUSTIFIED.
     ENDIF.
      MOVE wrk_str3 TO outtab-value.
      CONDENSE outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT3'.
      CLEAR outtab.
     READ TABLE outtab INDEX 3.
     outtab-value = wrk_str3.
     MODIFY outtab INDEX 3.
     CLEAR outtab.
    ELSE.
      MOVE wrk_str1 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT4'.
      CLEAR outtab.
      MOVE wrk_str2 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT5'.
      CLEAR outtab.
      MOVE wrk_str3 TO outtab-value.
      MODIFY outtab TRANSPORTING value WHERE name = 'S_TEXT6'.
      CLEAR: outtab, v_tmp.
    ENDIF.
    CLEAR: intab,
           outtab.
  ENDIF.
ENDFORM.                    "GET_AMT
*&      Form  GET_ACNAME
      text
FORM get_acname TABLES intab STRUCTURE itcsy
                      outtab STRUCTURE itcsy.
  DATA: v_lifnr TYPE reguh-lifnr,
        v_lnrza TYPE lfa1-lnrza,
        v_name1 TYPE lfa1-name1,
        v_name2 TYPE reguh-zanre,
        v_name  TYPE string .
  READ TABLE intab INDEX 1.
  v_lifnr = intab-value.
  READ TABLE intab INDEX 2.
  v_name2 = intab-value.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = v_lifnr
    IMPORTING
      output = v_lifnr.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = v_name2
    IMPORTING
      output = v_name2.
  SELECT SINGLE lnrza
                INTO v_lnrza
                FROM lfa1
                WHERE lifnr = v_lifnr.
  SELECT SINGLE name1
                INTO v_name1
                FROM lfa1
                WHERE lifnr = v_lnrza.
CONCATENATE v_name1 v_name2 INTO v_name.
  IF sy-subrc = 0.
    READ TABLE outtab INDEX 1.
    outtab-value = v_name1.
    MODIFY outtab INDEX 1.
    CLEAR outtab.
  ENDIF.
ENDFORM.                    "GET_ACNAME
**&      Form  GET_AMT1
      text
     -->INTAB      text
     -->OUTTAB     text
*FORM get_amt1 TABLES intab STRUCTURE itcsy
                   outtab STRUCTURE itcsy.
CLEAR : outtab.
DATA: BEGIN OF wa_bsak ,
       belnr LIKE bsak-belnr,
       budat LIKE bsak-budat,
       shkzg LIKE bsak-shkzg,
       dmbtr LIKE bsak-dmbtr,
       str4  TYPE string,
       str5 TYPE string,
       v_amt3(20),
       augbl LIKE bsak-augbl,
       v_total LIKE bsak-dmbtr,
       END OF wa_bsak.
DATA: it_bsak LIKE  TABLE OF wa_bsak WITH HEADER LINE.
DATA: BEGIN OF wa_bsik,
       belnr LIKE bsik-belnr,
       budat LIKE bsik-budat,
       shkzg LIKE bsik-shkzg,
       dmbtr LIKE bsik-dmbtr,
       zuonr LIKE bsik-zuonr,
       str1 TYPE string,
       str2 TYPE string,
       str3 TYPE string,
       v_amt1(20),
       v_amt2(20),
       v_dat(10),
        END OF wa_bsik.
DATA: wrk_str1 TYPE string,
       wrk_str2 TYPE string,
       wrk_str3 TYPE string.
DATA: v_dmbtr LIKE bsik-dmbtr,
       dmbtr LIKE bsik-dmbtr.
DATA: it_bsik LIKE TABLE OF wa_bsik WITH HEADER LINE.
READ TABLE intab WITH KEY name = 'REGUH-VBLNR' TRANSPORTING value.
IF sy-subrc = 0.
   v_vblnr = intab-value.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
   EXPORTING
     input  = v_vblnr
   IMPORTING
     output = v_vblnr.
SELECT shkzg INTO v_shkzg FROM bsik WHERE belnr = v_vblnr.
ENDSELECT.
IF v_shkzg = 'S'.
   SELECT belnr budat dmbtr
               INTO (wa_bsak-belnr, wa_bsak-budat, wa_bsak-dmbtr )
               FROM bsik
               WHERE belnr = v_vblnr.
     MOVE wa_bsak-dmbtr TO str5.
     MOVE str5 TO wa_bsak-v_amt3.
     CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
       EXPORTING
         date_internal            = wa_bsak-budat
       IMPORTING
         date_external            = v_dat1
       EXCEPTIONS
         date_internal_is_invalid = 1
         OTHERS                   = 2.
     IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
     ENDIF.
     wa_bsak-str4 = v_dat1.
     APPEND wa_bsak TO it_bsak.
     CLEAR wa_bsak.
   ENDSELECT.
   ADD 1 TO wrk_index.
   READ TABLE it_bsak INDEX wrk_index .
   MOVE it_bsak-belnr TO wrk_str1.
   CONDENSE wrk_str1.
   CLEAR it_bsak.
   READ TABLE it_bsak INDEX wrk_index.
   MOVE it_bsak-str4 TO wrk_str2.
   CONDENSE wrk_str2.
   CLEAR it_bsak.
   READ TABLE it_bsak INDEX wrk_index.
   MOVE it_bsak-v_amt3 TO wrk_str3.
   CONDENSE wrk_str3.
   CLEAR it_bsak.
   MOVE wrk_str1 TO outtab-value.
   MODIFY outtab TRANSPORTING value WHERE name = 'STEXT1'.
   CLEAR outtab.
   MOVE wrk_str2 TO outtab-value.
   MODIFY outtab TRANSPORTING value WHERE name = 'STEXT2'.
   CLEAR outtab.
   MOVE wrk_str3 TO outtab-value.
   MODIFY outtab TRANSPORTING value WHERE name = 'STEXT3'.
   CLEAR outtab.
   CLEAR: intab,
          outtab.
   CLEAR it_bsak.
   REFRESH it_bsak.
ELSE .
   SELECT dmbtr FROM bsik
         INTO  dmbtr
         WHERE belnr = v_vblnr.
   ENDSELECT.
   v_temp = dmbtr.
ENDIF.
CLEAR it_bsak.
SELECT belnr
        budat
        shkzg
        dmbtr
        augbl
        FROM bsak
        INTO  it_bsak
        WHERE augbl = v_vblnr AND shkzg = 'H'.
   it_bsak-str5 = it_bsak-dmbtr.
   it_bsak-v_amt3 = it_bsak-str5.
   MODIFY TABLE it_bsak TRANSPORTING v_amt3.
   CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
    EXPORTING
      date_internal                  = it_bsak-budat
    IMPORTING
      date_external                  = v_dat1
EXCEPTIONS
  DATE_INTERNAL_IS_INVALID       = 1
  OTHERS                         = 2
   IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.
   it_bsak-str4 = v_dat1.
   MODIFY TABLE it_bsak TRANSPORTING str4.
   SELECT SINGLE * FROM
             bsik
             WHERE zuonr = it_bsak-belnr.
   IF sy-subrc = 0.
     v_temp1 = it_bsak-dmbtr .
     it_bsak-v_amt3 = v_temp1 - v_temp.
     it_bsak-str5 = it_bsak-dmbtr - v_temp.
     it_bsak-v_amt3 = it_bsak-str5.
     MODIFY TABLE it_bsak TRANSPORTING v_amt3.
     APPEND it_bsak.
   ELSE.
     v_total = it_bsak-dmbtr.
     APPEND  it_bsak.
     CLEAR it_bsak.
   ENDIF.
ENDSELECT.
CLEAR: it_bsak.
LOOP AT it_bsak.
IF it_bsak[] IS NOT INITIAL.
   ADD 1 TO wrk_index.
IF wrk_index GE 11 AND wrk_index LE 20.
   IF wrk_index LT 15.
     READ TABLE it_bsak INDEX wrk_index .
     MOVE it_bsak-belnr TO wrk_str1.
     CONDENSE wrk_str1.
     CLEAR it_bsak.
     READ TABLE it_bsak INDEX wrk_index.
     MOVE it_bsak-str4 TO wrk_str2.
     CONDENSE wrk_str2.
     CLEAR it_bsak.
     READ TABLE it_bsak INDEX wrk_index.
     MOVE it_bsak-v_amt3 TO wrk_str3.
     CONDENSE wrk_str3.
     CLEAR it_bsak.
     MOVE wrk_str1 TO outtab-value.
     MODIFY outtab TRANSPORTING value WHERE name = 'STEXT4'.
     CLEAR outtab.
     MOVE wrk_str2 TO outtab-value.
     MODIFY outtab TRANSPORTING value WHERE name = 'STEXT5'.
     CLEAR outtab.
     MOVE wrk_str3 TO outtab-value.
     MODIFY outtab TRANSPORTING value WHERE name = 'STEXT6'.
     CLEAR outtab.
   append outtab.
   ENDLOOP.
     CLEAR: intab,
            outtab.

Answer 1

I'm assuming there is ENDSELECT statement somewhere further in the program, otherwise you would have gotten a syntax error.
It seems that function 'Z_GROSS_WEIGHT2' contains COMMIT WORK. Therefore, it cannot be called inside SELECT FROM LIPS ... ENDSELECT loop. You need to change SELECT ... ENDSELECT to SELECT INTO TABLE and then call the FM inside LOOP AT <table> ... ENDLOOP.
Actually in the future try to stay away from SELECT ... ENDSELECT altogether. Most of the time they are bad for performance.
Hope this helps.