The PRINTING MODE clause is specified when assigning names to printing attributes when printing. The defined printing mode names are specified in the CHARACTER TYPE clause of the data description entry.
000010 @OPTIONS MAIN 000020*---------------------------------------------------------------------- 000030* The PRINTING MODE clause is used to define the printing mode name. 000040*---------------------------------------------------------------------- 000050 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. SAMPLE. 000070 ENVIRONMENT DIVISION. 000080 CONFIGURATION SECTION. 000090*---------------------------------------------------------------------- 000100* The printing attributes are defined. 000110* SIZE 12 POINT: The character size is 12 point. 000120* PITCH 2 CPI: The character pitch is 2 CPI. 000130* FONT GOTHIC: Gothic font is used. 000140* ANGLE 90: Characters are rotated 90 degrees 000145* (that is, vertical printing). 000150* FORM F0201: Wide body is used. 000160*---------------------------------------------------------------------- 000170 SPECIAL-NAMES. 000180 PRINTING MODE PRT-ATR FOR ALL 000190 IN SIZE 12 POINT 000200 AT PITCH 2 CPI 000210 WITH FONT GOTHIC 000220 AT ANGLE 90 DEGREES 000230 BY FORM F0201. 000240*---------------------------------------------------------------------- 000250 INPUT-OUTPUT SECTION. 000260 FILE-CONTROL. 000270 SELECT PRT-FILE ASSIGN TO PRINTER. 000280 DATA DIVISION. 000290 FILE SECTION. 000300 FD PRT-FILE. 000310 01 PRT-REC PIC X(80). 000320 WORKING-STORAGE SECTION. 000330*---------------------------------------------------------------------- 000340* The defined printing attributes are specified in the CHARACTER TYPE 000345* clause. 000350*---------------------------------------------------------------------- 000360 01 PRT-DATA PIC X(20) CHARACTER TYPE IS PRT-ATR. 000370*---------------------------------------------------------------------- 000380 PROCEDURE DIVISION. 000390 DISPLAY "Now printing .....". 000400 OPEN OUTPUT PRT-FILE 000410 MOVE "NetCOBOL" TO PRT-DATA 000420 WRITE PRT-REC FROM PRT-DATA AFTER ADVANCING PAGE. 000430 CLOSE PRT-FILE. 000440 END PROGRAM SAMPLE.
