Help with Upgrade report in FI

Question

Hey All Gurus,
Im in a thick soup here. I am trying to do something like this -
if you see the selection screen i have rep and super rep, when a user enters a rep value --- it should use the same value to pull all open items for the super rep as well, since they are essentially the same. please help! this one needs to be done fast. i am pasting the code so that it will be easier ...
thanks a million!
*& Report  ZFDOFW04_NEW
REPORT ZFDOFW04_NEW MESSAGE-ID FR
                     LINE-SIZE 132
                     LINE-COUNT 60.
*==================================================================
Program: ZFDOFW03 -      Aged Trial Balance Report
         This produces an Accounts Receivable Past Due Aging Report
         in a more simplified/condensed format than the
         SAP supplied aging report program - RFDOPR10.
         This program is a modified copy of RFDOFW00, - a SAP
         Future-Due Report.
         This was a 'rush' job - program probably should be
         rewritten someday not using logical databases as that
         maybe why this runs so slowly!
Original:  Feb 1997.
MAINTENANCE HISTORY:
NES071797   Copied from ZFDOFW03.  Adding parameter for saeles rep.
JDEDERER - changed header text so it is differnet from ZFDORW03. 9/23
*TEXT SYMBOLS :
001 Open items per
002 O p e n
003 D u e  o n
004    cc   ba     in total
005  until
006 Days until
007 Days over
008 Days
009 over
011 valid until........
012 Insurance limit.....
016 F u t u r e
017 + days
018 D u e
020 Last dunn.notice...
021 Dunning level....
030   S U M M A R Y  S H E E T
031  =====================
050 Name           Page
051 Burton Snowboard
SELECTION TEXTS:
SUMMEN   Output totals only
TAGE1    Due date I until
TAGE2    Due date II until
TAGE3    Due date III until
TAGE4    Due date IV until
TABLES: T001, KNA1, KNB1, KNB5, BSID, BSEGA, RFPDO1, KNVP,
         T014,                     "credit control areas              JAM
         KNVK,                     "cust master - contact partner     JAM
         T014T,  "Credit control areas names
         BKPF,   "TONY ISSUE 4743
         TVKO,   "TONY ISSUE 4743
         KNKK.                     "cust master - credit mgmt         JAM
TYPES: BEGIN OF TOT_TYPE,                                  "DEVK939546
          BUKRS LIKE LFB1-BUKRS,                            "DEVK939546
          GSBER LIKE BSIK-GSBER,                            "DEVK939546
          KKBER LIKE BSID-KKBER,
          RAST1 TYPE P,                                     "DEVK939546
          RAST2 TYPE P,                                     "DEVK939546
          RAST3 TYPE P,                                     "DEVK939546
          RAST4 TYPE P,                                     "DEVK939546
          RAST5 TYPE P,                                     "DEVK939546
          RAST6 TYPE P,                                     "DEVK939546
          RAST7 TYPE P,                                     "DEVK939546
        END OF TOT_TYPE,                                    "DEVK939546
        TOT_TAB TYPE TOT_TYPE OCCURS 0.                     "DEVK939546
CONSTANTS:
         C_FALSE    TYPE I VALUE 0,                                  "JAM
         C_TRUE     TYPE I VALUE 1.
DATA: BEGIN OF GTAB OCCURS 1000,
          SUPER(10) TYPE C,                                         "TONYC
          REP(10) TYPE C,                                           "TONYC
          FILKD(10),        "tonyc show buying groups
          LAND1 LIKE KNA1-LAND1,
          GSBER LIKE BSIK-GSBER,
          REGIO LIKE KNA1-REGIO,
          NAME1 LIKE KNA1-NAME1,
          NAME2 LIKE KNA1-NAME2,
          ORT01  LIKE KNA1-ORT01,
          TELF1      LIKE KNVK-TELF1,       "telephone number         JAM
          CONT_NAME1 LIKE KNVK-NAME1,       "contact name             JAM
          NAMEV      LIKE KNVK-NAMEV,       "contact name             JAM
          KUNNR LIKE KNA1-KUNNR,                                   "TONYC
          BUKRS LIKE LFB1-BUKRS,                                   "TONYC
          KKBER LIKE BSID-KKBER,     "tonyc issue #2500
          ZTERM LIKE KNB1-ZTERM,     "tonyc issue #2500
          KLIMK_TXT(22)   TYPE C,           "credit limit             JAM
          WAERS      LIKE T014-WAERS,       "currency                 JAM
          SORT_GSB,                                               "TONYC
          RAST1 TYPE P,
          RAST2 TYPE P,
          RAST3 TYPE P,
          RAST4 TYPE P,
          RAST5 TYPE P,
          RAST6 TYPE P,
          RAST7 TYPE P,
          T_IND,
       END OF GTAB.
DATA HOLD_NAME(40).
DATA  HOLD_BUKRS LIKE T001-BUKRS.                                 "tonyc
DATA  GOOD_SUPER_REP.                                             "tonyc
DATA: HOLD_REP LIKE KNA1-KUNNR,                                   "tonyc
       SUPER_NAME LIKE KNA1-NAME1,                                 "tonyc
       REP_NAME LIKE KNA1-NAME1.                                   "tonyc
DATA  NAME_LENGTH(2) TYPE C.                                      "tonyc
DATA  BACKSLASH(3) VALUE ' / '.                                   "tonyc
DATA  REPS_INFO(70) TYPE C.                                       "tonyc
DATA  REPORT_TYPE(12) TYPE C.
DATA:   C_CREDIT_ABTNR LIKE KNVK-ABTNR.    "dept 003 = credit
DATA  Z_HOLD_LIMIT(22) TYPE N.  "tonyc issue#2216
DATA  Z_DESCRIPTION(18).   "tonyc issue#2216
DATA  WRITE_TOTAL.
DATA  HOLD_KLIMK LIKE KNKK-KLIMK.
DATA  HOLD_KLIMK2(22) TYPE C.
DATA  HOLD-CTLPC LIKE KNKK-CTLPC.
DATA  HOLD-CTLPC-TEXT LIKE T691T-RTEXT.
DATA  HOLD_ZTERM LIKE KNVV-ZTERM.
DATA  TOTAL_RAST7 TYPE P.
DATA  TOTAL_RAST2 TYPE P.
DATA  TOTAL_RAST3 TYPE P.
DATA  TOTAL_RAST4 TYPE P.
DATA  TOTAL_RAST5 TYPE P.
DATA  TOTAL_RAST6 TYPE P.
DATA  TOTAL_RAST1 TYPE P.
DATA  HOLD_BUKRS2 LIKE T001-BUKRS.
DATA  HOLD_KKBER LIKE BSID-KKBER.
DATA  HOLD_KKBER_DESC LIKE T014T-KKBTX.
DATA  HOLD_KKBER_DESC2 LIKE T014T-KKBTX.
DATA  HOLD_KUNNR2 LIKE KNA1-KUNNR.
DATA  L_FIRST_DAY_OF_FISCAL LIKE SY-DATUM. "tonyc issue #3047
DATA: STAB TYPE TOT_TAB WITH HEADER LINE,                  "DEVK939546
       RTOT TYPE TOT_TAB WITH HEADER LINE,                  "DEVK939546
       STOT TYPE TOT_TAB WITH HEADER LINE,                  "DEVK939546
       OP,
       MAXMANDT LIKE DD_STIDA,
       MAXMANST TYPE P,
    SUMKLIMB TYPE P,
       SUMVLIBB TYPE P,
       VERZUG TYPE P,
       OBAD TYPE P,
       BLOCK_CNT TYPE P,
       INTENS,
       ONEBYTE(1) TYPE C,
       TAGE1A LIKE RFPDO1-ALLGFAEL,
       TAGE2A LIKE RFPDO1-ALLGFAEL,
       TAGE3A LIKE RFPDO1-ALLGFAEL,
        HOLD_KUNNR  LIKE KNA1-KUNNR,                          "tonyc
        HOLD_SUPER  LIKE KNA1-KUNNR,                          "tonyc
        HOLD_REP2  LIKE KNA1-KUNNR,                          "tonyc
        SUPER_REP   LIKE KNA1-KUNNR,                          "tonyc
       TEMP_TELF1      LIKE KNA1-TELF1,                              "JAM
       IT_T014         LIKE T014 OCCURS 0 WITH HEADER LINE,          "JAM
       G_KLIMK_TXT     LIKE GTAB-KLIMK_TXT,                          "JAM
       G_WAERS         LIKE GTAB-WAERS,                              "JAM
       G_CONT_NAME(50) TYPE C.                                       "JA
DATA  FILL_REP_INFO.
   BC     SUNILP      05/14/2007
DATA: BEGIN OF ITAB_VBRP OCCURS 0.
         INCLUDE STRUCTURE VBRP.
DATA:  END OF ITAB_VBRP.
DATA: T_PERC TYPE F,
       SUM_NETWR LIKE VBRP-NETWR.
*DATA: GTAB_LINES LIKE GTAB OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF GTAB_LINES OCCURS 0.
         INCLUDE STRUCTURE GTAB.
DATA:  IND(1),
        OBAD TYPE P.
DATA:  END OF GTAB_LINES.
DATA: BEGIN OF ITAB_VBRP1 OCCURS 0,
       VBELN LIKE VBRP-VBELN,
       NETWR LIKE VBRP-NETWR,
       ZZMREP LIKE VBRP-ZZMREP,       "Super Rep
       ZZLREP LIKE VBRP-ZZLREP,       "Rep
       PERC TYPE F,
       END OF ITAB_VBRP1.
   EC     SUNILP      05/14/2007
BEGIN_OF_BLOCK 2.
PARAMETERS: REGIO  LIKE KNA1-REGIO.
PARAMETERS: CONSOL AS CHECKBOX.                      "TONYC
PARAMETERS: P_KKBER AS CHECKBOX,                      "TONYC
             P_CONV AS CHECKBOX.  "tonyc issue #3047
PARAMETERS: SUMMEN LIKE RFPDO1-ALLGSUMM,
             TAGE1 LIKE RFPDO1-ALLGFAEL DEFAULT '30',
             TAGE2 LIKE RFPDO1-ALLGFAEL DEFAULT '60',
             TAGE3 LIKE RFPDO1-ALLGFAEL DEFAULT '90',
             TAGE4 LIKE RFPDO1-ALLGFAEL DEFAULT '120'.
END_OF_BLOCK 2.
BEGIN_OF_BLOCK 3.
SELECT-OPTIONS:   P_SUPREP FOR KNVP-KUNNR,   "Super REP      "DEVK939546
                   P_REP FOR KNVP-KUNNR,   "SALES REP         "DEVK939546
                   P_VKORG FOR TVKO-VKORG,  "TONYC ISSUE 4743
                   P_LOTKZ FOR BKPF-LOTKZ.  "TONYC ISSUE 4743
END_OF_BLOCK 3.
INITIALIZATION.                                                     "JAM
   PERFORM LOAD_T014.                                                "JAM
     refresh dd_augdt.
     clear dd_augdt.
     dd_augdt-option = 'EQ'.
     dd_augdt-sign   = 'I'.
     dd_augdt-low    = ' '.
    append dd_augdt.
AT SELECTION-SCREEN.
   IF CONSOL = 'X'.
     IF NOT P_SUPREP[] IS INITIAL.                          "DEVK939546
       MESSAGE E999 WITH 'Consolidated report not allowed w/ Super Rep'.
     ENDIF.
   ENDIF.
CHECK IF THE REP INFO IS ADDED OR NOT - VS
   IF NOT P_SUPREP IS INITIAL OR"TONY ISSUE 4743
      NOT P_REP IS INITIAL."TONY ISSUE 4743
     FILL_REP_INFO = 'X'."TONY ISSUE 4743
   ENDIF."TONY ISSUE 4743
START-OF-SELECTION.
get_frame_title 2.
add function module to track usage   JD  10/13/98 *****
   CALL FUNCTION 'Z_RUN_LOG'
     EXCEPTIONS
       OTHERS = 1.
*IF NOT P_SUPREP IS INITIAL AND NOT P_REP IS INITIAL.
   P_SUPREP = ' '.
*ENDIF.
GET KNA1 FIELDS LAND1 REGIO KUNNR NAME1 NAME2 ORT01 TELF1.          "JAM
new-page.
skip.
   TEMP_TELF1 = KNA1-TELF1.
   MAXMANDT = '19000101'.
   MAXMANST = 0.
   SUMVLIBB = 0.
   PERFORM GET_CUST_CONTACT.                                         "JAM
Check sales rep-                           NES071797
Get any valid record and exit.
IF NOT p_suprep[] IS INITIAL. "DEVK939546  "TONY ISSUE 4743 start
   good_super_rep = ' '.
   SELECT kunn2 INTO super_rep FROM knvp UP TO 1 ROWS
     WHERE
       kunnr = kna1-kunnr AND
       parvw = 'ZS' AND
       kunn2 IN p_suprep.
     EXIT.
   ENDSELECT.
   IF sy-subrc = 0.
     good_super_rep = 'X'.
     gtab-super = super_rep.
     super_rep = ' '.
   ENDIF.
   CHECK good_super_rep = 'X'.
   SELECT kunn2 INTO gtab-rep FROM knvp UP TO 1 ROWS
   WHERE
     kunnr = kna1-kunnr AND
     parvw = 'ZR' AND
     kunn2 IN p_rep.
     EXIT.
   ENDSELECT.
   CHECK sy-subrc = 0.
ELSEIF NOT p_rep[] IS INITIAL.  "DEVK939546
   SELECT kunn2 INTO gtab-rep FROM knvp UP TO 1 ROWS
     WHERE
       kunnr = kna1-kunnr AND
       parvw = 'ZR' AND
       kunn2 IN p_rep.
     EXIT.
   ENDSELECT.
   CHECK sy-subrc = 0.
ENDIF.                      "TONY ISSUE 4743 end
GET KNB1 FIELDS BUKRS VLIBB ZTERM.  "tonyc #2500
   GTAB-BUKRS = KNB1-BUKRS.
GTAB-ZTERM = KNB1-ZTERM.
   SUMVLIBB = SUMVLIBB + KNB1-VLIBB.
GET KNB5.
   IF KNB5-MADAT > MAXMANDT.
     MAXMANDT = KNB5-MADAT.
   ENDIF.
   IF KNB5-MAHNS > MAXMANST.
     MAXMANST = KNB5-MAHNS.
   ENDIF.
SUMKLIMB = SUMKLIMB + KLIMB.
GET BSID.
   CHECK BSID-BSTAT = SPACE.
field was intended for Business Area, changed to use Currency
   GTAB-GSBER = BSID-WAERS.
   IF P_KKBER = 'X'.                 "TONYC ISSUE #2500
     IF BSID-KKBER = ' '.
       GTAB-KKBER = BSID-BUKRS.
     ELSE.
       GTAB-KKBER       = BSID-KKBER.  "TONYC ISSUE #2500
     ENDIF.
   ENDIF.                            "TONYC ISSUE #2500
   SELECT SINGLE * FROM BKPF  "TONY ISSUE 4743
      WHERE BUKRS =  BSID-BUKRS "TONY ISSUE 4743
        AND BELNR = BSID-BELNR "TONY ISSUE 4743
        AND GJAHR = BSID-GJAHR. "TONY ISSUE 4743
  BC      SUNILP      05/14/2007
   IF BKPF-XREF2_HD IS NOT INITIAL.
     CHECK BKPF-XREF2_HD IN P_SUPREP. "TONY ISSUE 4743
   ELSE.
     IF P_REP[] IS INITIAL.
       REFRESH: ITAB_VBRP, ITAB_VBRP1.
       IF NOT BKPF-XBLNR IS INITIAL.
         SELECT * FROM VBRP INTO ITAB_VBRP WHERE VBELN = BKPF-XBLNR.
           APPEND ITAB_VBRP. CLEAR ITAB_VBRP.
         ENDSELECT.
        CHECK ITAB_VBRP[] IS NOT INITIAL.
         CLEAR: SUM_NETWR.
         LOOP AT ITAB_VBRP.
           CHECK ITAB_VBRP-ZZMREP IN P_SUPREP.
           CHECK ITAB_VBRP-ZZLREP IN P_REP.
           MOVE-CORRESPONDING ITAB_VBRP TO ITAB_VBRP1.
           COLLECT: ITAB_VBRP1.
           SUM_NETWR = SUM_NETWR + ITAB_VBRP-NETWR.
           CLEAR ITAB_VBRP.
         ENDLOOP.
        CHECK ITAB_VBRP1[] IS NOT INITIAL.
         LOOP AT ITAB_VBRP1.
           CLEAR: T_PERC.
           T_PERC = ( ITAB_VBRP1-NETWR / SUM_NETWR ).
           ITAB_VBRP1-PERC = T_PERC.
           MODIFY ITAB_VBRP1 INDEX SY-TABIX TRANSPORTING PERC.
         ENDLOOP.
       ENDIF.
     ENDIF.
   ENDIF.
  EC      SUNILP      05/14/2007
   IF FILL_REP_INFO = 'X'.
     GTAB-SUPER = BKPF-XREF2_HD. "TONY ISSUE 4743   "MOVE THE CONTENTS OF XREF2_HD TO GTAB INTERNAL TABLE - VS
   ENDIF.
  BC      SUNILP      05/14/2007
   IF BKPF-XREF1_HD IS NOT INITIAL.
     CHECK BKPF-XREF1_HD IN P_REP. "TONY ISSUE 4743  " ELSE MOVE THE CONTENTS OF - VS
   ELSE.
     REFRESH: ITAB_VBRP, ITAB_VBRP1.
     IF NOT BKPF-XBLNR IS INITIAL.
       SELECT * FROM VBRP INTO ITAB_VBRP WHERE VBELN = BKPF-XBLNR.
         APPEND ITAB_VBRP. CLEAR ITAB_VBRP.
       ENDSELECT.
        CHECK ITAB_VBRP[] IS NOT INITIAL.
       CLEAR: SUM_NETWR.
       LOOP AT ITAB_VBRP.
         CHECK ITAB_VBRP-ZZMREP IN P_SUPREP.
         CHECK ITAB_VBRP-ZZLREP IN P_REP.
         MOVE-CORRESPONDING ITAB_VBRP TO ITAB_VBRP1.
         COLLECT: ITAB_VBRP1.
         SUM_NETWR = SUM_NETWR + ITAB_VBRP-NETWR.
         CLEAR ITAB_VBRP.
       ENDLOOP.
        CHECK ITAB_VBRP1[] IS NOT INITIAL.
       LOOP AT ITAB_VBRP1.
         CLEAR: T_PERC.
         T_PERC = ( ITAB_VBRP1-NETWR / SUM_NETWR ).
         ITAB_VBRP1-PERC = T_PERC.
         MODIFY ITAB_VBRP1 INDEX SY-TABIX TRANSPORTING PERC.
       ENDLOOP.
     ENDIF.
   ENDIF.
  EC      SUNILP      05/14/2007
   IF FILL_REP_INFO = 'X'.
     GTAB-REP = BKPF-XREF1_HD. "TONY ISSUE 4743
   ENDIF.
   CHECK BKPF-LOTKZ    IN P_LOTKZ. "TONY ISSUE 4743
   CHECK BKPF-BRNCH    IN P_VKORG. "TONY ISSUE 4743
   SELECT SINGLE FILKD INTO GTAB-FILKD FROM BSEG
      WHERE BUKRS =  BSID-BUKRS
        AND BELNR = BSID-BELNR
        AND GJAHR = BSID-GJAHR
        AND BUZEI = BSID-BUZEI.
gtab-gsber = bsid-gsber.
get rep info for each bsid record
IF NOT P_SUPREP IS INITIAL.                                  "tonyc
    SELECT KUNNR FROM VBPA INTO HOLD_REP UP TO 1 ROWS         "tonyc
          WHERE VBELN = BSID-VBELN                            "tonyc
          AND PARVW = 'ZR'.                                   "tonyc
    ENDSELECT.                                                "tonyc
    IF NOT P_REP IS INITIAL.                                  "tonyc
      CHECK HOLD_REP = P_REP.                                 "tonyc
    ENDIF.                                                    "tonyc
    GTAB-REP = HOLD_REP.                                      "tonyc
    HOLD_REP = ' '.                                           "tonyc
ENDIF.                                                       "tonyc
   PERFORM GET_KNKK_INFO.                                            "JAM
   GTAB-KLIMK_TXT = G_KLIMK_TXT.
   GTAB-WAERS     = G_WAERS.
   GTAB-LAND1 = KNA1-LAND1.
   GTAB-REGIO = KNA1-REGIO.
   GTAB-KUNNR = KNA1-KUNNR.
   GTAB-NAME1 = KNA1-NAME1.
   GTAB-NAME2 = KNA1-NAME2.
   GTAB-ORT01 = KNA1-ORT01.
*if there is no phone number for the contact, pull the phone
*number from the sold-to
   IF KNVK-TELF1 = ' '.
     GTAB-TELF1      = TEMP_TELF1.
   ELSE.
     GTAB-TELF1      = KNVK-TELF1.                                 "JAM
   ENDIF.
   GTAB-CONT_NAME1 = KNVK-NAME1.
   GTAB-NAMEV      = KNVK-NAMEV.
verzug = bsega-netdt - dd_stida.
   VERZUG = DD_STIDA - BSEGA-NETDT.     "days past due calculation
   OP = 'X'.
   GTAB-RAST2 = GTAB-RAST3 = GTAB-RAST4 = 0.
   GTAB-RAST5 = GTAB-RAST6 = OBAD = GTAB-RAST7 = 0.
   IF VERZUG LE 0.                      "future due
     GTAB-RAST1 = BSEGA-WRSHB.
   ELSE.
     IF VERZUG LE TAGE1.                "past due 1 to tage1 days
       GTAB-RAST1 = BSEGA-WRSHB.
       GTAB-RAST2 = BSEGA-WRSHB.
       OBAD       = BSEGA-WRSHB.
     ELSE.
       IF VERZUG LE TAGE2.              "past due tage1 to tage2 days
         GTAB-RAST1 = BSEGA-WRSHB.
         GTAB-RAST3 = BSEGA-WRSHB.
         OBAD       = BSEGA-WRSHB.
       ELSE.
         IF VERZUG LE TAGE3.            "past due tage2 to tage3 days
           GTAB-RAST1 = BSEGA-WRSHB.
           GTAB-RAST4 = BSEGA-WRSHB.
           OBAD       = BSEGA-WRSHB.
         ELSE.
           IF VERZUG LE TAGE4.          "past due tage3 to tage4 days
             GTAB-RAST1 = BSEGA-WRSHB.
             GTAB-RAST5 = BSEGA-WRSHB.
             OBAD       = BSEGA-WRSHB.
           ELSE.
             IF VERZUG GT TAGE4.        "past due > tage4 days
               GTAB-RAST1 = BSEGA-WRSHB.
               GTAB-RAST6 = BSEGA-WRSHB.
               OBAD       = BSEGA-WRSHB.
             ENDIF.
           ENDIF.
         ENDIF.
       ENDIF.
     ENDIF.
   ENDIF.
   GTAB-RAST7 = GTAB-RAST1 - OBAD.
stab = gtab.
   MOVE-CORRESPONDING GTAB TO STAB.
  BC     SUNILP       05/15/2007
   IF ITAB_VBRP1[] IS NOT INITIAL.
     GTAB-T_IND = 'X'.
     LOOP AT ITAB_VBRP1.
       MOVE-CORRESPONDING GTAB TO GTAB_LINES.
       GTAB_LINES-SORT_GSB =  '1'.
       GTAB_LINES-SUPER = ITAB_VBRP1-ZZMREP.
       GTAB_LINES-REP = ITAB_VBRP1-ZZLREP.
       GTAB_LINES-RAST1 = GTAB_LINES-RAST1 * ITAB_VBRP1-PERC.
       GTAB_LINES-RAST2 = GTAB_LINES-RAST2 * ITAB_VBRP1-PERC.
       GTAB_LINES-RAST3 = GTAB_LINES-RAST3 * ITAB_VBRP1-PERC.
       GTAB_LINES-RAST4 = GTAB_LINES-RAST4 * ITAB_VBRP1-PERC.
       GTAB_LINES-RAST5 = GTAB_LINES-RAST5 * ITAB_VBRP1-PERC.
       GTAB_LINES-RAST6 = GTAB_LINES-RAST6 * ITAB_VBRP1-PERC.
       GTAB_LINES-RAST7 = GTAB_LINES-RAST7 * ITAB_VBRP1-PERC.
  GTAB_LINES-OBAD  = GTAB_LINES-OBAD  * ITAB_VBRP1-PERC.
       COLLECT: GTAB_LINES.
     ENDLOOP.
   ELSE.
     MOVE-CORRESPONDING GTAB TO GTAB_LINES.
     GTAB_LINES-T_IND =  'X'.
     GTAB_LINES-SORT_GSB =  '1'.
     IF GTAB_LINES-SUPER IN P_SUPREP OR GTAB_LINES-REP IN P_REP.
       COLLECT: GTAB_LINES.
     ENDIF.
   ENDIF.
  EC     SUNILP       05/15/2007
gtab-sort_gsb = stab-sort_gsb = '0'.
collect: gtab, stab.
gtab-gsber = stab-gsber = '****'.
   GTAB-SORT_GSB =  '1'.
   IF REGIO = SPACE OR REGIO = GTAB-REGIO.
     IF GTAB_LINES-SUPER IN P_SUPREP OR GTAB_LINES-REP IN P_REP.
       COLLECT: GTAB, STAB.
     ENDIF.
   ENDIF.
END-OF-SELECTION.
   TAGE1A = TAGE1 + 1.
   TAGE2A = TAGE2 + 1.
   TAGE3A = TAGE3 + 1.
   IF  SUMMEN = ' '.
   sort gtab by bukrs land1 regio kunnr gsber sort_gsb.
  sort gtab by bukrs land1 regio name1 kunnr gsber sort_gsb.      "JAM
     IF CONSOL = 'X'.
       SORT GTAB BY LAND1 REGIO NAME1 KUNNR BUKRS KKBER GSBER SORT_GSB.
       "TONYC
       REPORT_TYPE = 'consolidated'.
     ELSEIF NOT P_SUPREP[] IS INITIAL.                      "DEVK939546
       SORT GTAB
         BY SUPER REP NAME1 BUKRS KKBER LAND1 REGIO NAME1 GSBER SORT_GSB.
  BC   SUNILP   05/15/2007
       SORT GTAB_LINES
         BY SUPER REP NAME1 BUKRS KKBER LAND1 REGIO NAME1 GSBER SORT_GSB.
  EC   SUNILP   05/15/2007
       REPORT_TYPE = 'super rep'.
       CLEAR STAB.   "tonyc 03/06/2004
       REFRESH STAB. "tonyc 03/06/2004
     ELSEIF NOT P_REP[] IS INITIAL.                         "DEVK939546
       SORT GTAB                                            "DEVK939546
         BY REP NAME1 BUKRS KKBER LAND1 REGIO NAME1 GSBER SORT_GSB.
                                                            "DEVK939546
  BC   SUNILP   05/15/2007
       SORT GTAB_LINES
         BY REP NAME1 BUKRS KKBER LAND1 REGIO NAME1 GSBER SORT_GSB.
  EC   SUNILP   05/15/2007
       REPORT_TYPE = 'rep'.                                 "DEVK939546
       CLEAR STAB.   "tonyc 03/06/2004
       REFRESH STAB. "tonyc 03/06/2004
     ELSE.
       SORT GTAB BY BUKRS KKBER LAND1 REGIO NAME1 KUNNR GSBER SORT_GSB.
  BC   SUNILP   05/15/2007
       SORT GTAB_LINES BY BUKRS KKBER LAND1 REGIO NAME1 KUNNR GSBER SORT_GSB.
  EC   SUNILP   05/15/2007
       REPORT_TYPE = 'regular'.
     ENDIF.
  BC   SUNILP   05/15/2007
     DELETE ADJACENT DUPLICATES FROM GTAB COMPARING BUKRS NAME1.
     LOOP AT GTAB_LINES.
       IF P_REP[] IS INITIAL.
         IF GTAB_LINES-SUPER NOT IN P_SUPREP.
           DELETE GTAB_LINES.
         ENDIF.
       ELSE.
         IF GTAB_LINES-SUPER NOT IN P_SUPREP OR GTAB_LINES-REP NOT IN P_REP.
           DELETE GTAB_LINES.
         ENDIF.
       ENDIF.
     ENDLOOP.
     LOOP AT GTAB.
       READ TABLE GTAB_LINES WITH KEY BUKRS = GTAB-BUKRS
                                      NAME1 = GTAB-NAME1.
       IF SY-SUBRC NE '0'.
         DELETE GTAB.
       ENDIF.
     ENDLOOP.
  EC   SUNILP   05/15/2007
     LOOP AT GTAB.
       MOVE GTAB-BUKRS TO T001-BUKRS. READ TABLE T001.
       RESERVE 5 LINES.
       CASE REPORT_TYPE.
         WHEN 'regular'.
           IF HOLD_BUKRS <> GTAB-BUKRS.
             IF SY-TABIX > 1.                                   "TONYC
               NEW-PAGE. SKIP.                                 "TONYC
             ENDIF.                                             "TONYC
           ENDIF.
           PERFORM WRITE_CUST_INFO.                               "TONYC
           PERFORM WRITE_DETAIL.
         hold_bukrs = gtab-bukrs.                               "tonyc
         WHEN 'consolidated'.
           IF HOLD_KUNNR <> GTAB-KUNNR.                           "TONYC
             PERFORM WRITE_CUST_INFO.                           "TONYC
           ENDIF.                                                 "TONYC
           HOLD_KUNNR = GTAB-KUNNR.                               "TONYC
           PERFORM WRITE_DETAIL.
         WHEN 'super rep'.
          IF GTAB-T_IND NE 'X'.
   BC     SUNILP     05/22/2007
            READ TABLE GTAB_LINES WITH KEY BUKRS = GTAB-BUKRS
                                           NAME1 = GTAB-NAME1.
   EC     SUNILP     05/22/2007
            IF ( HOLD_SUPER <> GTAB_LINES-SUPER ) OR
               ( HOLD_REP2 <> GTAB_LINES-REP ).
              NEW-PAGE.
              PERFORM GET_AND_WRITE_SUPERINFO.
            ENDIF.
            HOLD_REP2 = GTAB_LINES-REP.
            HOLD_SUPER = GTAB_LINES-SUPER.
            IF HOLD_KUNNR <> GTAB-KUNNR.                           "TONYC
              WRITE :/.                                           "TONYC
              ULINE.                                              "TONYC
              PERFORM WRITE_CUST_INFO.                            "TONYC
            ENDIF.                                                 "TONYC
            HOLD_KUNNR = GTAB-KUNNR.                               "TONYC
            PERFORM WRITE_DETAIL.                                  "TONYC
            AT END OF REP.                                 "DEVK939546
              SKIP.                                        "DEVK939546
              RESERVE 7 LINES.                             "DEVK939546
              FORMAT COLOR COL_TOTAL INTENSIFIED.          "DEVK939546
              WRITE: / 'Summary for Rep:',                 "DEVK939546
                        GTAB-REP, '/', REP_NAME, 132 ONEBYTE."DEVK939546
              PERFORM WRITE_TOTS TABLES RTOT.              "DEVK939546
              REFRESH RTOT.                                "DEVK939546
            ENDAT.                                         "DEVK939546
            AT END OF SUPER.                               "DEVK939546
              CLEAR STAB.   "tonyc 03/06/2004
              REFRESH STAB. "tonyc 03/06/2004
              NEW-PAGE. SKIP.                              "DEVK939546
              FORMAT COLOR COL_TOTAL INTENSIFIED.          "DEVK939546
              WRITE: / 'Summary for Super Rep:',           "DEVK939546
                     GTAB-SUPER, '/', SUPER_NAME, 132 ONEBYTE."DEVK939546
              PERFORM WRITE_TOTS TABLES STOT.              "DEVK939546
              REFRESH STOT.                                "DEVK939546
            ENDAT.                                         "DEVK939546
          ELSE.
           LOOP AT GTAB_LINES WHERE BUKRS = GTAB-BUKRS
                                AND NAME1 = GTAB-NAME1.
             IF ( HOLD_SUPER <> GTAB_LINES-SUPER ) OR
                ( HOLD_REP2 <> GTAB_LINES-REP ).
               NEW-PAGE.
               PERFORM GET_AND_WRITE_SUPERINFO.
             ENDIF.
             HOLD_REP2 = GTAB_LINES-REP.
             HOLD_SUPER = GTAB_LINES-SUPER.
             IF HOLD_KUNNR <> GTAB_LINES-KUNNR.
               WRITE :/.
               ULINE.
               PERFORM WRITE_CUST_INFO.
             ENDIF.
             HOLD_KUNNR = GTAB_LINES-KUNNR.
             PERFORM WRITE_DETAIL.
             AT END OF REP.
               SKIP.
               RESERVE 7 LINES.
               FORMAT COLOR COL_TOTAL INTENSIFIED.
               WRITE: / 'Summary for Rep:',
                         GTAB_LINES-REP, '/', REP_NAME, 132 ONEBYTE.
               PERFORM WRITE_TOTS TABLES RTOT.
               REFRESH RTOT.
             ENDAT.
             AT END OF SUPER.
               CLEAR STAB.   "tonyc 03/06/2004
               REFRESH STAB. "tonyc 03/06/2004
               NEW-PAGE. SKIP.
               FORMAT COLOR COL_TOTAL INTENSIFIED.
               WRITE: / 'Summary for Super Rep:',
                      GTAB_LINES-SUPER, '/', SUPER_NAME, 132 ONEBYTE.
               PERFORM WRITE_TOTS TABLES STOT.
               REFRESH STOT.
             ENDAT.
           ENDLOOP.
          ENDIF.
         WHEN 'rep'.                                        "DEVK939546
           LOOP AT GTAB_LINES WHERE BUKRS = GTAB-BUKRS
                                AND NAME1 = GTAB-NAME1.
             IF HOLD_REP2 <> GTAB_LINES-REP.                "DEVK939546
               NEW-PAGE.                                    "DEVK939546
               PERFORM GET_AND_WRITE_REPINFO.               "DEVK939546
             ENDIF.                                         "DEVK939546
             HOLD_REP2 = GTAB_LINES-REP.                    "DEVK939546
             IF HOLD_KUNNR <> GTAB_LINES-KUNNR.             "DEVK939546
               WRITE :/.                                    "DEVK939546
               ULINE.                                       "DEVK939546
               PERFORM WRITE_CUST_INFO.                     "DEVK939546
             ENDIF.                                         "DEVK939546
             HOLD_KUNNR = GTAB_LINES-KUNNR.                 "DEVK939546
             PERFORM WRITE_DETAIL.                          "DEVK939546
             AT END OF REP.                                 "DEVK939546
               SKIP.                                        "DEVK939546
               RESERVE 7 LINES.                             "DEVK939546
               FORMAT COLOR COL_TOTAL INTENSIFIED.          "DEVK939546
               WRITE: / 'Summary for Rep:',                 "DEVK939546
                         GTAB_LINES-REP, '/', REP_NAME, 132 ONEBYTE."DEVK939546
               PERFORM WRITE_TOTS TABLES RTOT.              "DEVK939546
               REFRESH RTOT.                                "DEVK939546
             ENDAT.                                         "DEVK939546
           ENDLOOP.
       ENDCASE.
     ENDLOOP.
   ENDIF.
   OP = ' '.
   REFRESH GTAB.
   IF NOT REPORT_TYPE = 'super rep'.
     ULINE.
   ENDIF.
   SKIP 1.
   IF  SUMMEN = ' '.  "if 'output totals only' bypass new-page
     NEW-PAGE. SKIP.
   ENDIF.
   WRITE: /25 TEXT-030, 132 ONEBYTE, /25 TEXT-031, 132 ONEBYTE.
   PERFORM WRITE_TOTS TABLES STAB.                          "DEVK939546
TOP-OF-PAGE.
   INTENS = SPACE.
   FORMAT COLOR COL_HEADING INTENSIFIED ON.
   WRITE: / SY-VLINE, 1 TEXT-001, DD_STIDA, 75 TEXT-051, 132 SY-VLINE.
   ULINE.
   WRITE: / SY-VLINE, 13 SY-VLINE, 30 SY-VLINE,
                47 SY-VLINE, 58 TEXT-003, 81 SY-VLINE,
          92 TEXT-003, 115 SY-VLINE, 118  TEXT-003, 132 SY-VLINE,
          / SY-VLINE, 02 TEXT-004, 13 SY-VLINE, TEXT-002,
                30 SY-VLINE, 32 TEXT-018, 47 SY-VLINE,
              50 '1', 54 TEXT-040, 57 TAGE1, 64 SY-VLINE,   " 65 tage2,
              67 TAGE1A, 72 TEXT-040, 75 TAGE2,
            81 SY-VLINE, 83 TAGE2A, 89 TEXT-040, 91 TAGE3, 98 SY-VLINE,
           101 TAGE3A, 107 TEXT-040, 110 TAGE4, 115 SY-VLINE,
                               117 TAGE4, 123  TEXT-017, 132 SY-VLINE.
   ULINE.
   SKIP 1.
   SUMMARY.
   FORMAT COLOR COL_HEADING INTENSIFIED OFF.
      FORM write_tots                                               *
-->  PTAB                                                          *
FORM WRITE_TOTS TABLES PTAB TYPE TOT_TAB.                  "DEVK939546
   CLEAR INTENS.                                            "DEVK939546
   FORMAT COLOR COL_HEADING INTENSIFIED OFF.                "DEVK939546
   IF P_CONV = 'X'. "tonyc issue #3047 begin
     WRITE /4 TEXT-101.
     WRITE: /4 TEXT-102,
            50 TEXT-100.
   ENDIF.           "tonyc issue #3047 end
   ULINE.                                                   "DEVK939546
   SORT PTAB BY BUKRS GSBER.                                "DEVK939546
   LOOP AT PTAB.                                            "DEVK939546
     IF SY-TABIX > 1.
       WRITE_TOTAL = 'X'.
     ENDIF.
     MOVE PTAB-BUKRS TO T001-BUKRS. READ TABLE T001.        "DEVK939546
     MOVE PTAB-GSBER TO T001-WAERS.                         "DEVK939546
     IF P_CONV = 'X'. "tonyc issue #3047 begin
       PERFORM CONVERT_VALUES USING STAB-RAST1
                                    STAB-GSBER.
       PERFORM CONVERT_VALUES USING STAB-RAST2
                                    STAB-GSBER.
       PERFORM CONVERT_VALUES USING STAB-RAST3
                                    STAB-GSBER.
       PERFORM CONVERT_VALUES USING STAB-RAST4
                                    STAB-GSBER.
       PERFORM CONVERT_VALUES USING STAB-RAST5
                                    STAB-GSBER.
       PERFORM CONVERT_VALUES USING STAB-RAST6
                                    STAB-GSBER.
       PERFORM CONVERT_VALUES USING STAB-RAST7
                                    STAB-GSBER.
     ENDIF.  "TOnyc issue #3047 end
     MOVE-CORRESPONDING PTAB TO STAB.
     COLLECT STAB.
     IF P_KKBER = 'X'.        "TONYC ISSUE #2500
       CLEAR HOLD_KKBER_DESC2.
       SELECT SINGLE KKBTX INTO HOLD_KKBER_DESC2 FROM T014T
          WHERE KKBER = STAB-KKBER AND
                SPRAS = 'E'.
       IF SY-SUBRC <> '0'.
         HOLD_KKBER_DESC2 = 'Undetermined'.
       ENDIF.
       FORMAT COLOR OFF.
       WRITE: / SY-VLINE.
       FORMAT COLOR COL_HEADING INTENSIFIED OFF.
       WRITE: 6 STAB-GSBER, HOLD_KKBER_DESC2, SY-VLINE.
       ULINE.
       FORMAT COLOR OFF.
       WRITE: / SY-VLINE.
       FORMAT COLOR COL_HEADING INTENSIFIED OFF.
       IF P_CONV = 'X'. "tonyc issue #3047 begin
         T001-WAERS = 'USD'.
       ENDIF.           "tonyc issue #3047 end
       WRITE: 13 STAB-RAST1 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) STAB-RAST7 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) STAB-RAST2 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) STAB-RAST3 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) STAB-RAST4 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) STAB-RAST5 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) STAB-RAST6 NO-ZERO CURRENCY T001-WAERS, SY-VLINE.
       HOLD_BUKRS2 = STAB-BUKRS.      "TONYC ISSUE #2500
       ULINE.
       FORMAT COLOR OFF.
       TOTAL_RAST1 = STAB-RAST1 + TOTAL_RAST1.
       TOTAL_RAST2 = STAB-RAST2 + TOTAL_RAST2.
       TOTAL_RAST3 = STAB-RAST3 + TOTAL_RAST3.
       TOTAL_RAST4 = STAB-RAST4 + TOTAL_RAST4.
       TOTAL_RAST5 = STAB-RAST5 + TOTAL_RAST5.
       TOTAL_RAST6 = STAB-RAST6 + TOTAL_RAST6.
       TOTAL_RAST7 = STAB-RAST7 + TOTAL_RAST7.
     ELSE.
       FORMAT COLOR COL_NORMAL INTENSIFIED OFF.             "DEVK939546
       IF INTENS = SPACE.                                   "DEVK939546
         FORMAT COLOR COL_NORMAL INTENSIFIED OFF.           "DEVK939546
         INTENS = 'X'.                                      "DEVK939546
       ELSE.                                                "DEVK939546
         FORMAT COLOR COL_NORMAL INTENSIFIED ON.            "DEVK939546
         INTENS = SPACE.                                    "DEVK939546
       ENDIF.                                               "DEVK939546
       WRITE: / SY-VLINE, PTAB-BUKRS, PTAB-GSBER, SY-VLINE, "DEVK939546
        (14) PTAB-RAST1 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,"DEVK939546
        (14) PTAB-RAST7 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,"DEVK939546
        (14) PTAB-RAST2 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,"DEVK939546
        (14) PTAB-RAST3 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,"DEVK939546
        (14) PTAB-RAST4 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,"DEVK939546
        (14) PTAB-RAST5 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,"DEVK939546
        (14) PTAB-RAST6 NO-ZERO CURRENCY T001-WAERS, SY-VLINE."DEVK939546
       TOTAL_RAST1 = STAB-RAST1 + TOTAL_RAST1.
       TOTAL_RAST2 = STAB-RAST2 + TOTAL_RAST2.
       TOTAL_RAST3 = STAB-RAST3 + TOTAL_RAST3.
       TOTAL_RAST4 = STAB-RAST4 + TOTAL_RAST4.
       TOTAL_RAST5 = STAB-RAST5 + TOTAL_RAST5.
       TOTAL_RAST6 = STAB-RAST6 + TOTAL_RAST6.
       TOTAL_RAST7 = STAB-RAST7 + TOTAL_RAST7.
     ENDIF.
   ENDLOOP.                                                 "DEVK939546
   ULINE.                                                   "DEVK939546
   IF P_KKBER = 'X'.        "TONYC ISSUE #2500
     IF P_CONV = 'X'.  "tonyc issue #3047 begin
       FORMAT COLOR OFF.
       FORMAT COLOR COL_HEADING INTENSIFIED OFF.
       WRITE: SY-VLINE,
            6 'TOTAL                                   ', SY-VLINE.
       ULINE.
       FORMAT COLOR OFF.
       WRITE: / SY-VLINE.
       FORMAT COLOR COL_HEADING INTENSIFIED OFF.
       WRITE: 13 TOTAL_RAST1 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST7 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST2 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST3 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST4 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST5 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST6 NO-ZERO CURRENCY T001-WAERS, SY-VLINE.
       ULINE.
     ENDIF. "tonyc issue #3047 end
   ELSE.
     IF P_CONV = 'X'.
       FORMAT COLOR OFF.
       FORMAT COLOR COL_HEADING INTENSIFIED OFF.
       WRITE: SY-VLINE,
            6 'TOTAL                                   ', SY-VLINE.
       ULINE.
       FORMAT COLOR OFF.
       WRITE: / SY-VLINE.
       FORMAT COLOR COL_HEADING INTENSIFIED OFF.
       WRITE: 13 TOTAL_RAST1 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST7 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST2 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST3 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST4 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST5 NO-ZERO CURRENCY T001-WAERS, SY-VLINE,
       (14) TOTAL_RAST6 NO-ZERO CURRENCY T001-WAERS, SY-VLINE.
       ULINE.
     ENDIF.
   ENDIF.
   SKIP 1.                                                  "DEVK939546
ENDFORM.                                                   "DEVK939546
*&      Form  GET_KNKK_INFO
      text
-->  p1        text
<--  p2        text
FORM GET_KNKK_INFO.
   CLEAR: G_WAERS,
          G_KLIMK_TXT,
          KNKK-KLIMK.
get credit control area (KKBER) for comp code (BUKRS)
   SELECT SINGLE KLIMK
          INTO   KNKK-KLIMK
          FROM   KNKK
          WHERE  KUNNR = KNA1-KUNNR  AND
                 KKBER = T001-KKBER.
   IF SY-SUBRC = 0.
  get currency for cred ctrl area
     CLEAR IT_T014.
     READ TABLE IT_T014 WITH KEY KKBER = T001-KKBER BINARY SEARCH.
     G_WAERS = IT_T014-WAERS.
     WRITE KNKK-KLIMK TO G_KLIMK_TXT CURRENCY G_WAERS.
   ENDIF.
ENDFORM.                    " GET_KNKK_INFO
*&      Form  SELECT_KNKK
      text
     -->P_KKBER       Credit Limit Controlling Area

Answer 1

This is a FI Aging report.