PL1初学指南.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * * 运行和调试 JCL/PRC/PRM PDSRXCB.COMMON.JCL(PLIC) PDSRXCB.COMMON.JCL(PLICL) PDSRXCB.COMMON.PRC(IEL1C) PDSRXCB.COMMON.PRC(IEL1CL) 运行和调试 编译错误LEVEL 运行和调试 编译返回代码 运行和调试 编译时的CHECK LIST 编译的选项是否正确,是否有足够的编译信息 程序是否写在2—72列之间 变量是否有重名 所有的保留字是否正确 有没有忘记分号 引号是否匹配 括号是否匹配 注释是否用了正确的范围 END的使用是否正确 对输入输出文件的READ/WRITE 是否正确 使用RECORD方式存取数据时,RECORD长度是否与物理长度一致 计算时使用的变量是否都是数字 变量等是否正确的初始化 没有明确定义的变量的属性是否满足处理的需要 运行和调试 PUT [SKIP] LIST(变量1,变量2….); PUT [SKIP] EDIT(变量1,变量2….)(格式1,格式2….); 以上是2种常用的output语句，主要运用于输出运行中的变量内容用于调试程序 DCL A FIXED BIN(15); DCL B FIXED BIN(15); DCL C FIXED BIN(31); A = 1; DO WHILE(A 11); B = A + 1; C = A*B; PUT SKIP LIST(A || * || B || = || C); PUT SKIP EDIT(A,’*’,B,’=‘,C)(F(4),A(1),F(4),A(1),P’Z,ZZZ’); A= A +！： END; 过程与函数 调用时的形式 [ DCL 过程名ENTRY ; ] - 内部过程时可省略 CALL 过程名[ ( 参数1, 参数2, ……) ]; 定义的形式 过程名: PROC [ ( 参数1, 参数2, ……) ]; ………… ………… END 过程名; 过程与函数（内联） PROG1A : PROC OPTIONS(MAIN); DCL ROUND BUILITIN, NAMAE CHAR(10), KOKUGO FIXED DEC( 3), SANSUH FIXED DEC( 3), SHAKAI FIXED DEC( 3), RIKA FIXED DEC( 3), EIGO FIXED DEC( 3), GOHKEI FIXED DEC( 3), HEIKIN FIXED DEC( 5,1), EOF FIXED DEC( 1) INIT(0); ON ENDFILE( SYSIN ) EOF = 1; GET SKIP EDIT ( NAMAE, KOKUGO, SANSUH, SHAKAI, RIKA, EIGO ) ( A(10), 5 F(5) ); DO WHILE ( EOF = 0 ); CALL KEISAN; PUT SKIP EDIT( NAMAE, GOHKEI, HEIKIN) ( A(10), X(2), F(3), F(5,1) ); GET SKIP EDIT ( NAMAE, KOKUGO, SANSUH, SHAKAI, RIKA, EIGO ) ( A(10), 5 F(5) ); END; KEISAN : PROC ; GOHKEI = KOKUGO + SANSUH + SHAKAI + RIKA + EIGO; HEIKIN = ROUND( GOHKEI/5, 1 ); END KEISAN; END PROG1A ; 过程与函数（外部） PROG2A : PROC OPTIONS(MAIN); DCL DEGCONV ENTRY, CONVKEY CHAR( 4), IN_DEG FIXED DEC( 5), OUT_DEG FIXED DEC( 5), EOF FIXED DEC( 1) INIT(0); ON ENDFILE( SYSIN ) EOF = 1; GET SKIP EDIT ( CONVKEY, IN_DEG ) ( A( 4), F(5) ); DO WHILE ( EOF = 0 ); CALL DEGCONV( CONVKEY, IN_DEG, OUT_DEG); PUT LIST( CONVKEY, IN_DEG, ‘??’, OUT_DEG); GET SKIP E