在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.
如以下程式
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.
全站熱搜
留言列表
