デバッグすると　SFLレコードは存在しているということなので
考えられる原因は

1.　SFL　があるが表示されているページが正しくない。
2.　SFL　があるが表示が指示されていない。
3.　上記の　1でも　2でもない場合

のどれかが想定されます。


実行キーを押してSFLが表示されなくなった時点でロール・ダウンー・キー(PageUp)を
押してみてください。
これで　SFLが表示されれば
　「1.　SFL　があるが表示されているページが正しくない。」
であると予想されます。
表示されなければ
　　「2.　SFL　があるが表示が指示されていない。」
であると予想されます。

【解決方法】
1.　の場合
====>　A　　　　　　　　　　　　DSPREC　　　　　　　　　4S　0H　　　　　　SFLRCDNBR(CURSOR)

　　　　　　を　DDSに追加してつねに　DSPREC　=　1　を更新してみてください。

2.　の場合

　　EXFMT　CTL01

　　　　の直前で　SFLDSP　の標識がオンになっていない。

　　　　なお参考までに　SFLINZ　の意味はおわかりでしょうか　?
　　　　これは　SFLINZ　を実行すると　SFL　の中を空の　SFLレコードで埋め尽くすという意味で
　　　　通常の　SFL処理プログラムではほとんど必要ありません。
　　　　むしろパフォーマンス低下の原因となってしまいますので　SFL　の処理にまだ
　　　　慣れていない頃は　SFLINZ　は使わないほうがいいです。
　　　　(　SFLINZ　の誤解が多いのは確かです。)

　　　　SFLINZ　を使わなくてSFLの一般の処理に不都合を生じることはありません。
　　　　SFLINZ　による誤動作の可能性も考えてみてください。
　　　　　　　　　　　　　

SETOFF　　　　　　　　　　　　　　21　

というのが気になりますが　折角、サブ・ファイル・レコードを出力しているのに
その後でSFLINZ　を実行していたのでは、すべてのサブ・ファイルがブランク・レコードで
埋め尽くされてしまうのでご指摘の症状のように

　　・サブ・ファイル・レコードは存在する
　　・しかし画面上はすべて空白である。

のような状態になります。

そこで、デバッグで

　　・サブ・ファイルの出力後に　SFLINZ　が実行されていないか　?
　　・どこか別の場所で　SFLINZ　の標識がオンになっていないか　?
　　　　　(この可能性が高いです。)

を調べてみてください。どこか他で標識　21がオンになってはいないでしょうか　?

[参考]
サブ・ファイルを正しく理解されていないと　...

　　SFLINZ　でサブ・ファイルをブランク・レコードで
　　埋め尽くしたもののを　UPDATE　命令でレコードを更新する、

という手法で書かれているようなプログラムがあります。(過去に見て、大変驚きましたが)
サブ・ファイルの正しい手法はやはり学習されることをお勧めします。

　http://www.as400-net.com/tips/rpg/101.html