koj-t001のプロフィール

新人研修でAS/400のRPG3を習ってます。 現在、AMFILEとCMFILEと言うファイルをAMCUSTと言うKEYで繋ぎ、WPO001と言うファイルにアウトプットする演習問題に取り組んでいるのですが、LOOPが止まらなく、WPO001がオーバーフローしてしまいます。何方か、もしよろしければ助けてください。わたしが書いたMAIN ROUTINE のプログラムは以下です。 C READ AMFILE 70* C *IN,70 DOWEQ*ZERO * C AMCUST CHAINCMFILE 60 * C N60 GOTO FND * C FND TAG * C WRITEWPO001R * C ENDDO * C SETON LR *