Need to Verify Logic

Question

Dear Experts,
I am trying to get me the totals from CATSCO by Pernr and WORKDATE. I have created a pseudo code and i would appreciate if someone can validate it. The thing is that i need the logic to exit without it going in an endless loop. WORKDATE is basically my selection criteria where the user selects a from and to and i need this piece of validation in my code.
I am not a programmer so this might look very programmatically correct :).
I would appreciate any help.
Thanks,
R
Data: Total_Direct Type i VALUE 0,
      Total_Indirect Type i VALUE 0,
      Total_Percentage Type i VALUE 0,
      Counter Type i VALUE 0.
Counter = 1.
While Counter <> 0.
IF CATSCO-RPROJ EQ '' AND CATSCO-RAUFNR NE ''.
Total_Direct = CATSCO-CATSHOURS.
ENDIF.
IF CATSCO-RAUFNR EQ '' AND CATSCO-RPROJ NE ''.
Total_Indirect = CATSCO-CATSHOURS.
ENDIF.
Counter = counter + 1.

Answer 1

Hi,
Try this..
<b>* Declarations.</b>
  TYPES: BEGIN OF TYPE_CATSCO,
                  PERNR         TYPE CATSCO-PERNR,
                  WORKDATE  TYPE CATSCO-WORKDATE,
                  CATSHOURS TYPE CATSCO-CATSHOURS,
               END OF TYPE_CATSCO.
  DATA: LT_CATSCO          TYPE STANDARD TABLE OF TYPE_CATSCO.
  DATA: LT_CATSCO_SUM TYPE STANDARD TABLE OF TYPE_CATSCO.
  DATA: WA_CATSCO        TYPE TYPE_CATSCO.
<b>* Get the records from the table CATSCO.</b>
  SELECT PERNR WORKDATE CATSHOURS
               INTO TABLE LT_CATSCO
               WHERE WORKDATE IN SO_DATE.   <b>" Selection screen variable.</b>
<b>
Process the records and sum up based on the PERNR and WORKDATE.</b>
   LOOP AT LT_CATSCO INTO WA_CATSCO.
<b>* Sum</b>
      COLLECT WA_CATSCO INTO LT_CATSCO_SUM.
   ENDLOOP.
<b>* Display the records.</b>
   LOOP AT LT_CATSCO_SUM INTO WA_CATSCO.
      WRITE: / 'Personnel number - ', WA_CATSCO-PERNR.
      WRITE: / 'Work date            - ', WA_CATSCO-WORKDATE.
      WRITE: / 'Hours                  - ', WA_CATSCO-CATSHOURS.
   ENDLOOP.
Thanks,
Naren