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。
爱牛网络公司拥有十三年网络营销推广经验的北京网络营销公司,专业的网络营销团队为您提供网络营销策划,网络推广,网络优化,网络营销外包,网站推广,网络营销推广公司。服务电话13552895708
|
