確かに行数は増えますが、FOR〜NEXT文でSPSETなどを繰り返せば大幅に短縮できます。管理番号0のままだと1つのままなので、SPSET I,1347 のように改変するといいと思います。