Help with FT reversal and authorisation

Hi, im currently trying to work on a piece of code that checks if an FT has been authorised and reversed on the same day. Currently there is an extract being populated with FTs and this criteria needs to be added to remove from extract. Im trying to read the latest history record and complete this. Please see below code snippet. Any help/guidance is appreciated.

        CALL EB.READ.HISTORY.REC(F.FUNDS.TRANSFER.HIS,Y.FT.ID,R.FT.hist.rec,YERROR)
        
        IF R.FT.hist.rec<FT.RECORD.STATUS> EQ 'REVE' AND R.FT.hist.rec<FT.AUTH.DATE> EQ TODAY THEN
            RETURN
        END ELSE

Hi
firstly, your code checks if a record was authorised today, so it won't work on earlier dates...

You have the AUTH.DATE but to learn when a record was reversed you only have DATE.TIME... and the date there can differ from the bank date.
 

Thanks for the reply VK.

So what would the correct way to do this then if the DATE.TIME field contains the actual date rather than the system date?
Im trying to test on a system which is dated at the 4th May, meaning when it will be authorized and reversed on the 4th may in t24, however DATE.TIME will be 31st may.
I was using TODAY variable as i thought it would give the t24 system date and if that was = AUTH.DATE then it would work.
This will also be used in a production environment going forward.

Im trying to check if the transaction was reversed and authorised on the same day and to not populate in extract.

Hi
you can use TODAY if you run this every day and save results somewhere.

An alternate way can be to attach a routine to VERSION.CONTROL for FT and on reverse save the bank date, say, to a local field or (if it's not possible to save it directly to FT record  - to a separate table).
 

Hi, yeah it runs everyday as part of COB. Currently ive created a service and batch to produce online so i can test easier in staging but even after i make the change and compile, the extract is still populating when it shouldnt be.

I tried using AUTH.DATE and also tried PROCESSING.DATE like below:

CALL EB.READ.HISTORY.REC(F.FUNDS.TRANSFER.HIS,Y.FT.ID,R.FT.hist.rec,YERROR)

IF R.FT.hist.rec<FT.RECORD.STATUS> EQ 'REVE' AND R.FT.hist.rec<FT.PROCESSING.DATE> EQ TODAY THEN
RETURN
END ELSE

Any idea why it wouldnt work? Assuming Today returns the t24 system date which is the 4th May, the FTs are also the 4th May for both Auth and Processing dates.

Thank you

hi
hard to guess..
Try to run your service in DEBUG mode and see what variables' contents from your IF are...
 

Thanks VK, yeah the variable Y.FT.ID was never assigned. Have fixed now.
Currently having a problem with the extract producing over and over again until I manually stop the service so something not right in the code.

Thanks again