Filters

 2 Replies
 0 Subscribed to this topic
 17 Subscribed to this forum
Sort:
Author
Messages
Chesca
Veteran Member
Posts: 490
Veteran Member
    I have been trying to figure out why my code wouldn't filter transactions with date > given date. It's reading all the transactions, am I misssing something?  Here is the code:

                  MOVE "FTFLOAT80"       TO WS-ETT-PLAN-NAME
                  MOVE WR-TEM-COMPANY        TO DB-COMPANY.
                  MOVE WR-TEM-EMPLOYEE       TO DB-EMPLOYEE.
                  MOVE WS-ETT-PLAN-NAME      TO DB-PLAN-NAME.
                  INITIALIZE                                          DB-SEQ-NBR
                                                                              DB-DATE.
                MOVE ETTSET1-PLAN-NAME     TO WS-DB-BEG-RNG.

               MOVE "((ETT-DATE >= ?) AND (ETT-TYPE = ?))" TO FILTER-STRING.

               PERFORM 890-CREATE-FILTER.
               MOVE WS-PRIOR-DATE         TO DATETIME-FILTER-VALUE.
               PERFORM 890-SET-DATETIME-FILTER-VALUE.
               MOVE "ME"                  TO ALPHANUM-FILTER-VALUE.
               PERFORM 890-SET-ALPHANUM-FILTER-VALUE.
               PERFORM 850-FIND-BEGRNG-ETTSET1.

    Woozy
    Veteran Member
    Posts: 709
    Veteran Member
      On your last line, try "850-FILTER-BEGRNG-ETTSET1"
      Kelly Meade
      J. R. Simplot Company
      Boise, ID
      Chesca
      Veteran Member
      Posts: 490
      Veteran Member
        Oh Wow, that did it! Thank you, Woozy.