PPｘのScript Module R9のドキュメントに記載されていたスクリプト(↓)をためしてみたところ
望みどおりの動作をするようになりました。>>320に書いた問題も起こりません。
大変感謝いたします。ありがとうございました。

PPx.Execute("*customize XC_alst=1,1,1,1,1");
PPx.EntryFirstMark;
do {
if ( PPx.Execute("%K\"@R") != 0 ) break;
PPx.EntryMark = 0;
}while( PPx.EntryFirstMark != 0 );
PPx.Execute("*customize XC_alst=4,4,4,4,4")