面白い課題だと思います。

ある別のサイト(米国誌の記事を写しただけのサイト)では
これと同じ質問があり、それに対する回答は「方法はない」というものでしたが、
やはり米国サイトを丸写ししているようではダメで
これはダブル・バイトを正しく理解していないし経験もあまりない米国人での発想です。

プログラムでシフト文字をLOOPしながら検査するよりも
シフト文字が正常に揃っていないと不都合になりエラーとなるAPI　や
既存のプログラムやコマンドにやらせてみてはどうでしょう　?

例えば　API　:　QDCXLATE　に検査するフィールドを与えて実行してみると

　　CPF2669:　２バイト文字セット・ソースが正しくない　

というエラーがたちまち出ることが実験によってわかりました。
IBM　提供のプログラムが検査してくれるのですから
これほど確かなことはありません。
ご自分でされるのであれば、シフト文字が正しく揃っていないと
エラーを起こすプログラムは何か?　と探してみるのも面白いでしょう。

これをユーティリティのコマンドにでもまとめても有益かも知れません。

昔、S/36　の移行でパック形式が壊れているのをチェックするプログラムを
作りましたがシフト文字の検査プログラムも検討してみるのも
よいかと思います。

参考までに　35.　漢字の0E，0Fを補正するサブルーチン　(　http://www.as400-net.com/tips
/rpg/35.html　)
があります。

ＡＰＩは、用意されてない。

自分で、インターフェース　ロジックを考えて　ください。

仕様は、絞りこまないと、難しい。

インターフェイスの例　
　　CALL　'SUBRXX'
　　　PARM　　　　　　　　　　FLD1
　　　PARM　　　　　　　　　　FLD2