PL1 初学总结.pdf

PL1 初学总结.pdf文件: C:\Documents and Settings\leo\My Documents\temp\PL1 初学总结- 神差的日
日志- 2013-08-10, 16:11:34
程序开始
----------------------------------------------
REI01: PROC OPTIONS (MAIN);
----------------------------------------------
变量定义
----------------------------------------------
DCL
SHOHIN_BANGO CHAR( 5),
SHOHIN_MEI CHAR(10),
TANKA FIXED DEC( 5),
SURYO FIXED DEC( 7),
URIAGE FIXED DEC(11);
----------------------------------------------
逻辑处理
----------------------------------------------
/*** GET INPUT DATA ****/
GET EDIT(SHOHIN_BANGO,SHOHIN_MEI,TANKA,SURYO)
(A(5),A(10),F(5),F(6));
/*** COMPUTE ****/
URIAGE = TANKA * SURYO;
/*** OUTPUT ****/
PUT EDIT(SHOHIN_BANGO,SHOHIN_MEI,URIAGE)
(A(5),X(3),A(10),X(2),F(11));
----------------------------------------------
程序结束
----------------------------------------------
END REI01;
----------------------------------------------
******************************************************
程序名字7个字符以内
程序区从第二列开始到第72列结束
以“;”分号作为一句的结束符
注释符: /* ......... */
****************************************************
变量的定义:
DCL 变量名(31个字符以内) 属性;
如果几个变量具有相同的属性,可以用类似下面的方式定义:
DCL (A,B,C,D) CHAR(5);
变量属性:
1) CHARACTER (文字) CHAR(n): n列的文字
2) FIXED DECIMAL (固定10进制数) FIXED DEC(p,q)
总长度为p的数字, q位小数
第 1 页
文件: D:\download\google\PL1 2009-11-12, 21:03:24
数值精度最小值最大值
(5,4) → FIXED DEC (5,4) →-
425 (