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

Author: 窦伟 Date: 1992-06-19

        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 KC 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。