QUALITYSTEEL Online
Jump to the bottom
The Company phenomenon began in 1954 due to the clear
vision and spirit of our founders. From the start, we
have focused on developing long lasting relationship
with our employees, our suppliers, and customers.
We remain confident today that no one is more dedicated
to providing you with personal service and consistent
quality than the Company.
Locations
BFX700:
Defines SWAP as:
It reads two records from FXTCTRDH extract (sorted by trade-date, currency,
account - HIST-KEY). First one goes to PREV.
IF WS-TRADE-HIST-KEY = WS-PREV-HIST-KEY
IF (TR-BUY-SELL-IND NOT = PREV-BUY-SELL-IND
AND TR-SETTLEMENT-DATE NOT = PREV-SETTLEMENT-DATE)
AND (TR-QUANTITY = PREV-QUANTITY OR
TR-NET = PREV-NET)
MOVE '1' TO SORT-REC-ID (this is SWAP)
END-IF.
Defines SPOT as: It reads two records from FXTCTRDH extract (sorted by trade-date,
currency, account - HIST-KEY). First one goes to PREV.
EVALUATE PREV-CURRENCY
WHEN 'CAD'
MOVE NEXT-SETTLE-DATE(from date card - the same for both trades,
because call to BTS024 with trade-date)
TO WS-SETTLE-DATE
IF PREV-SETTLEMENT-DATE (from prev record) NOT > WS-SETTLE-DATE
MOVE '2' TO SORT-REC-ID - This is SPOT
ELSE
MOVE '3' TO SORT-REC-ID - This is FORWARD
END-IF
WHEN OTHER
MOVE SETTLE-DATE-2-DAY(from date card) TO WS-SETTLE-YYMMDD
IF PREV-SETTLEMENT-DATE(from prev record) NOT > WS-SETTLE-DATE
MOVE '2' TO SORT-REC-ID This is SPOT
ELSE
MOVE '3' TO SORT-REC-ID This is FORWARD
END-IF
END-EVALUATE
Jump to the top