标题在固定格式报表上打印数据

　　IDEVTIFICATION DIVISION.
　　PROGRAM_ID.DYBG.
　　ENVIRONMENT DIVISION.
　　INPUT_OUT SECTION.
　　FILE_CONTROL.
　　SELECT PRINT_F ASSIGN TO “LPT：”
　　DATA DIVISION.
　　FD PRINT_FLABEL RECORD IS OMITTED.
　　01 P_PEC.
　　02 KZF.
　　04 K_A PIC XX.
　　04 K_B PIC 999.
　　***
　　04 KC PIC X
　　02 P_RECA PIC X(150).
　　WORKING_STORAGE SECTION.
　　：
　　PROCEDURE DIVISION.
　　START_A.
　　OREN OUTPUT PRITN_F.
　　：数据处理
　　START_B.
　　MONE“\&016\”TO KZF MOVE S1 TO P_RECA
　　WRITE P_REC.
　　MOVE 25 TO K_B MOVE S2 TO P_RECA
　　WRITE P_REC.
　　MOVE 20 TO K_B MOVE S3 TO P_RECA
　　WRITE P_REC.
　　：结束处理
　　注：S1、S2、S3、分别代表第一、二、三行数据；行距单位是1/120英寸；本方法是在LC0520A型机上实现的，使用的是LEVEL II COBOL。