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
.
                                                                             

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


留言列表 (1)

發表留言
  • 初學者
  • WRITE LIST-REC FROM DETAIL2-O

    FORMAT IS "DETAIL2"

    INDICATORS ARE IND-AREA
    請問這一段是在做什麼?

您尚未登入,將以訪客身份留言。亦可以上方服務帳號登入留言

請輸入暱稱 ( 最多顯示 6 個中文字元 )

請輸入標題 ( 最多顯示 9 個中文字元 )

請輸入內容 ( 最多 140 個中文字元 )

請輸入左方認證碼:

看不懂,換張圖

請輸入驗證碼