お待たせしました。 まず、出てるエラーはイリーガル・ファンクション・コールで最後のカッコのところをみるとSPCHKでのエラーだとわかります。 そこで49行を見ると、SPCHK(9)とあります。いやしかし、これは全く元の行の通りですね。 これはどうやら、SPCHKする前にSPSETが必要になった、3.1の仕様変更による不具合のようです。 というわけで、51行にあるSPSET文をWHILEループより前に置くのが良さそうです。