東軟cobol培訓(xùn)2160(6)(編輯修改稿)
2025-08-28 14:41 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 ? IF A IS [NOT] ALPHABETICUPPER A~Z字符和空格 ? IF A IS [NOT] CLASSNAME SPECIALNAMES定義的字符集 例如： SPECIALNAMES. CLASS A IS 12345+ABCDE Neusoft Group Ltd. 2022年 3月 5日 ISS 條件名條件 ? 一個(gè)初等項(xiàng)只能根據(jù)某些條件取預(yù)定的幾個(gè)值，或只能在一個(gè)預(yù)定的范圍中取值，則這個(gè)變量稱為條件變量。用來(lái)表示條件變量當(dāng)前值的名字叫條件名 ? 條件名用層號(hào) 88，緊跟在條件變量之后說(shuō)明 77 X(條件變量 ) PIC 9(6). 88 X1 VALUE 0 THRU 99. 88 X2 VALUE 100 THRU 999. 88 X3 VALUE 1000 THRU 9999. … … IF X1 MOVE A TO B. (在 0 = X 100 時(shí) ) IF X2 MOVE A TO C. IF X3 MOVE A TO D. 其中： – X1,X2,X3為條件名 88 CON VALUES ARE A,B,C. ….. IF CON ... Neusoft Group Ltd. 2022年 3月 5日 ISS 開(kāi)關(guān)選擇語(yǔ)句 EVALUATE EVALUATE 標(biāo)識(shí)符 WHEN 標(biāo)識(shí)符值 1 WHEN 標(biāo)識(shí)符值 2 Neusoft Group Ltd. 2022年 3月 5日 ISS 循環(huán)結(jié)構(gòu)的實(shí)現(xiàn) ? 執(zhí)行語(yǔ)句最基本的形式 ： PERFORM 過(guò)程名 1 THROUGH|THRU 過(guò)程名 2 ? 其中 ： – 過(guò)程名為節(jié)名或段名 – PERFORM 語(yǔ)句從過(guò)程名 1開(kāi)始執(zhí)行到過(guò)程名 2結(jié)束 Neusoft Group Ltd. 2022年 3月 5日 ISS PERFORM語(yǔ)句的使用規(guī)則 ?PERFORM語(yǔ)句的嵌套不能交叉 或有共同的終點(diǎn)， ?在 PERFORM語(yǔ)句中所執(zhí)行的語(yǔ)句序列中可以含有轉(zhuǎn)移語(yǔ)句 ，但應(yīng)轉(zhuǎn)回到此語(yǔ)句序列，以便最后能執(zhí)行此語(yǔ)句序列的最后一個(gè)句子 Neusoft Group Ltd. 2022年 3月 5日 ISS 使用 PERFORM語(yǔ)句實(shí)現(xiàn)循環(huán)（一） ? PERFORM 過(guò)程名 1 THROUGH|THRU 過(guò)程名 2 整數(shù) |標(biāo)識(shí)符 TIMES ? 其中： – 標(biāo)識(shí)符應(yīng)為整數(shù)型數(shù)據(jù) – 如果此標(biāo)識(shí)符的值在執(zhí)行語(yǔ)句序列中有變化，不會(huì)影響 執(zhí)行的次數(shù)。即以它開(kāi)始時(shí)的值決定執(zhí)行的次數(shù) Neusoft Group Ltd. 2022年 3月 5日 ISS 使用 PERFORM語(yǔ)句實(shí)現(xiàn)循環(huán)（二） ? PERFORM 過(guò)程名 1 THROUGH|THRU 過(guò)程名 2 UNTIL 條件 其中： ?在執(zhí)行 PERFORM語(yǔ)句時(shí)，先判斷指定的?條件?是否滿足，滿足則一次也不執(zhí)行，如果一開(kāi)始?條件?不滿足，則執(zhí)行 Neusoft Group Ltd. 2022年 3月 5日 ISS 使用 PERFORM語(yǔ)句實(shí)現(xiàn)循環(huán)（三） ? PERFORM 過(guò)程名 1 THROUGH|THRU 過(guò)程名 2 VARYING 標(biāo)識(shí)符 1 FROM 常數(shù) 1|標(biāo)識(shí)符 2 BY 常數(shù) 2|標(biāo)識(shí)符 3 UNTIL 條件 ? 其中： – 循環(huán)變量初至可以為正值、負(fù)值或零，步長(zhǎng)也可以是正值、 負(fù)值但不能為零 – 循環(huán)變量的值在每次循環(huán)中是自動(dòng)按步長(zhǎng)增長(zhǎng)的 – 在最后的出口條件中，不一定要和循環(huán)變量有關(guān) Neusoft Group Ltd. 2022年 3月 5日 ISS 使用 PERFORM語(yǔ)句實(shí)現(xiàn)循環(huán)（四） ? PERFORM 過(guò)程名 1 THROUGH|THRU 過(guò)程名 2 [VARYING 參數(shù) 1 FROM 初值 1 BY 步長(zhǎng) 1 UNTIL 條件 1] [AFTER 參數(shù) 2 FROM 初值 2 BY 步長(zhǎng) 2 UNTIL 條件 2] [AFTER 參數(shù) 3 FROM 初值 3 BY 步長(zhǎng) 3 UNTIL 條件 3] 其中： ?COBOL允許最多用到三重循環(huán) Neusoft Group Ltd. 2022年 3月 5日 ISS 幾種循環(huán)小結(jié) ? PERFORM T1 THRU T2. 最簡(jiǎn)單的執(zhí)行語(yǔ)句 ? PERFORM T1 THRU T2 5 TIMES. 已知執(zhí)行次數(shù)的執(zhí)行語(yǔ)句 ? PERFORM T1 THRU T2 UNTIL N 10. 帶判斷條件的執(zhí)行語(yǔ)句 ? PERFORM T1 THRU T2 VARYING X FROM 1 BY 1 UNTIL X 5. 循環(huán)變量自動(dòng)變化，直到滿足出口條件 ? PERFORM T1 THRU T2 VARYING I FROM 1 BY 1 UNTIL I 5 AFTER J FROM 1 BY 1 UNTIL J 5 使用執(zhí)行語(yǔ)句實(shí)現(xiàn)二重循環(huán) (哪個(gè)是內(nèi)循環(huán) ) Neusoft Group Ltd. 2022年 3月 5日 ISS 出口語(yǔ)句 EXIT ? EXIT語(yǔ)句提供了一組過(guò)程的公共出口，或者說(shuō)它指出了被調(diào)用過(guò)程的邏輯終點(diǎn)。一般用來(lái)作 PERFORM語(yǔ)句調(diào)用的語(yǔ)句序列的出口 ? 其中： – EXIT必須是本段中唯一的語(yǔ)句 – EXIT語(yǔ)句前必須有一段名 – 事實(shí)上 EXIT語(yǔ)句并不進(jìn)行任何操作 Neusoft Group Ltd. 2022年 3月 5日 ISS 修改語(yǔ)句 ALTER ALTER 過(guò)程名 1 TO
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1