COBOLの改行

COBOLでWRITEを使って＜１＞のように出力したいのですがAFTER（もしくはBEFORE） 1 LINE と指定すると＜２＞のように一行空いて出力されてしまうのはなぜなのでしょう。
ちなみにAFTERを指定しないと＜３＞のように改行が入らず出力されます。

＜１＞
AAAAAAAAAA
BBBBBBBBBB
CCCCCCCCCC

＜２＞
AAAAAAAAAA

BBBBBBBBBB

CCCCCCCCCC

＜３＞
AAAAAAAAAABBBBBBBBBBCCCCCCCCCC

No.2 ベストアンサー 回答者： chukenkenkou 回答日時： 2006/02/09 10:57

どんなOSのどんなCOBOLでしょうか？

ファイル出力のレコード記述は、どのようになっていますか？

私は長年、汎用機のCOBOL85を経験していますが、プリンタ制御文字に「空白」を指定する方法で、こういったトラブルには無縁でした。

FD LIST-FILE.
01 LIST-REC.
03 FILLER PIC X.
03 LIST=FLD PIC X(132).


MOVE SPACE TO LIST-REC.
→先頭1文字に空白を入れることで、出力毎に1行改行

No.3 回答者： ultraCS 回答日時： 2006/02/09 22:56

#2の方の答えのように、ホストの場合、ラインプリンタの改行は行頭の文字で制御されます。

ホスト用のレーザープリンターであればこれをエミュレートするはずです。

'1'で改ページ、' '(スペース)で改行、'0'で一行空け、'+'で重ね打ちだったと思います(数字でその行数改行という拡張機能もあったような)。ですから、行頭にこれらの文字があれば制御されるはずです。

PCのCOBOLだと、このあたりがはっきりしませんが、その場合、改行文字(OSで違うので、CRかCR/LF)を直接出力してみてはいかがでしょう。

No.1 回答者： bin-chan 回答日時： 2006/02/08 22:36

レーザですか？インパクトですか？

プリント領域の定義が、プリンタの最大幅を越えているため、と思います。

ＣＯＢＯＬ離れてずいぶん経つので自信なし。