同じレコードが出力されているという症状からすると
CURSOR　が効いていないということですから

EXEC　SQL　DECLARE　CSR　CURSOR　FOR　WKSTATEMENT;
EXEC　SQL　PREPARE　WKSTATEMENT　FROM　:SORTSQL;

が怪しいのですが、ずいぶん間接的な表現になっていますので

EXEC　SQL　DECLARE　CSR　CURSOR　FOR　:SORTSQL;

にして実行してみてください。
コンパイル・エラー等があればご自分で修正してください。

EXEC　SQL　FETCH　CSR　INTO　:DSSQL;

の　A,　B　が　:DSSQL　の　DSで定義されているフィールドであると
予想していますが　:DSSQL　のフィールドには　SFLレコードのフィールド名を
そのまま使えば、

//DSから画面へセット
　　　P_SCD　=　A
　　　P_SCD　=　B

は不要となります。その他に大きな問題は見受けられませんので
公開されていないところにも単純な記述のミスがある可能性も含めて
チエックしてください。

CRTSQLRPG　で指定しているパラメータにも注意してください。