COBOLの改行

質問

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

＜１＞
AAAAAAAAAA
BBBBBBBBBB
CCCCCCCCCC

＜２＞
AAAAAAAAAA

BBBBBBBBBB

CCCCCCCCCC

＜３＞
AAAAAAAAAABBBBBBBBBBCCCCCCCCCC

回答No.2

chukenkenkou · ベストアンサー

どんな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

#2の方の答えのように、ホストの場合、ラインプリンタの改行は行頭の文字で制御されます。ホスト用のレーザープリンターであればこれをエミュレートするはずです。

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

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

回答No.1

bin-chan

レーザですか？インパクトですか？
プリント領域の定義が、プリンタの最大幅を越えているため、と思います。

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