call "PC_PRINTER_SET_PEN" using by value Printer-Handle by value Pen-Width by value Pen-Style by value Pen-red by value Pen-blue by value Pen-green end-call
.NET COBOL でページの寸法に使用される単位は、ネイティブ COBOL プログラムで使用される単位とは異なります。そのため、.NET 環境で古いソース コードを使用すると、線のサイズなどの要素に関するハードコーディングされた設定により、予期しない結果が生じることがあります。古いソース コードの互換性を維持するためには、条件付きコンパイルを使用することをお勧めします。それ以外の方法としては、.NET 用にコードを適宜修正してください。
call "PC_PRINTER_SET_PEN" using by reference handle $if ILGEN set *> ILGEN directive indicates .NET COBOL by value 1 $else by value 5 $end by value PS-SOLID by value 255 by value 0 by value 0 end-call