帳票資源を以下の手順で配置します。
文字コード系を統一します。
アプリケーションサーバがWindowsの場合
シフトJIS
アプリケーションサーバがLinuxの場合
Unicode(UTF-8)
初期化ファイルをアプリケーションサーバに配置します。
アプリケーションサーバに、定義体格納ディレクトリを作成します。
操作手順3.で作成した定義体格納ディレクトリに帳票定義情報を配置します。
定義体格納ディレクトリには、以下の資源を配置します。
帳票定義体の場合
帳票名.pmd
帳票名.psf
画面帳票定義体の場合
帳票名.smd
以下の帳票資源を使用する場合は、帳票出力サーバに配置します。
フォントファイル
COBOLアプリケーションをアプリケーションサーバに配置します。
この例では、COBOLアプリケーションとして、以下のように記述したCOBOLアプリケーションを使用します。
000010***************************************************** 000020*サンプル * 000030***************************************************** 000040 IDENTIFICATION DIVISION. 000050 PROGRAM-ID. SAMPLE. 000060 000070 ENVIRONMENT DIVISION. 000080 INPUT-OUTPUT SECTION. 000090 FILE-CONTROL. 000100 SELECT PRINT-FILE ASSIGN TO PRTFILE (＊1） 000110 ORGANIZATION IS SEQUENTIAL 000120 ACCESS MODE IS SEQUENTIAL 000130 FORMAT IS PRT-FORMAT 000140 GROUP IS PRT-GROUP 000150 FILE STATUS IS PRT-STATUS PRT-STATUS2. 000160 000170 DATA DIVISION. 000180 FILE SECTION. 000190 FD PRINT-FILE. 000200 COPY format1 OF XMDLIB. (＊2） 000210 000220 WORKING-STORAGE SECTION. 000230 01 PRT-PARAM. 000240 03 PRT-FORMAT PIC X(08) VALUE "format1". 000250 03 PRT-GROUP PIC X(08) VALUE "GRP001". 000260 03 PRT-STATUS PIC X(02). 000270 03 PRT-STATUS2 PIC X(04). 000280 000290 PROCEDURE DIVISION. 000300**（1）印刷ファイルをオープンします。 000310 OPEN OUTPUT PRINT-FILE 000320 DISPLAY PRT-STATUS2. 000330 000330 MOVE "文字列" TO Mix0001 OF format1. 000340 000350**（2）印刷データを書き込みます。 000360 WRITE format1 AFTER ADVANCING PAGE. 000370 DISPLAY PRT-STATUS2. 000380**（3）印刷ファイルをクローズします。 000390 CLOSE PRINT-FILE. 000400 DISPLAY PRT-STATUS2. 000410 000420 STOP RUN. 000430 000440 END PROGRAM SAMPLE.
*1：
行番号000100の「PRTFILE」が、環境変数「ファイル識別名」の環境変数名になります。
このCOBOLアプリケーションを使用する場合、環境変数PRTFILEでプリンタ情報ファイル名を指定します。
*2：
行番号000200の「format1」は、帳票出力時に使用する帳票定義体、または画面帳票定義体の定義体名を指定しています。
