cobol中每一個段落的結束都會加上. 

如以下程式

 IF       KEY3-PARM      =         "Y"        

 WRITE    LIST-REC       FROM      DETAIL2-O  

                         FORMAT    IS "DETAIL2"

          INDICATORS     ARE       IND-AREA.                                         

 ADD      1              TO        LINE-CNT.
    

 

在此例中因為.代表一個段落的結束,所以if的條件區域只到ind_area就結束了(也就是if判斷只會做到indicators are ind-area)

而add 1 to line-cnt則是if後的判斷



若要if的判斷要做到add 1 to line-cnt結束,用此方法是做不到的必須要改為

 IF       KEY3-PARM      =         "Y"        

 WRITE    LIST-REC       FROM      DETAIL2-O  

                         FORMAT    IS "DETAIL2"

          INDICATORS     ARE       IND-AREA   

 END-WRITE                                    

 ADD      1              TO        LINE-CNT   

 END-IF
.
                                                                             
創作者介紹
創作者 狼翔月影 的頭像
狼翔月影

狼翔天地

狼翔月影 發表在 痞客邦 留言(1) 人氣()