東軟cobol培訓(xùn)2160(6)-資料下載頁
2025-08-01 14:41本頁面
【正文】 TALLYING BB FOR LEADING ?E? AFTER ?C?. – 從 AA中 C后面開始查找有多少個(gè) E，如果沒有就結(jié)束操作， – 有就將個(gè)數(shù)寫入 BB，直至沒有。 INSPECT TALLYING Neusoft Group Ltd. 2022年 3月 5日 ISS ? 77 AA PIC X(9) VALUE REELWHEEL. ? 77 COUNT0. ? 77 COUNT1. ? 77 COUNT2. … .. ? MOVE 0 TO COUNT0,COUNT1,COUNT2. INSPECT AA TALLYING COUNT0 FOR ALL E, COUNT1 FOR LEADING W AFTER L, COUNT2 FOR CHARACTERS. 程序首先判斷的是字符 R,執(zhí) 行 COUNT0 FOR ALL E，因 為 第一個(gè)字符不是 E，所以程序 轉(zhuǎn) 而 執(zhí) 行 COUNT1 FOR LEADING W AFTER L，也不符合要求， 于是程序 執(zhí) 行 COUNT2 FOR CHARACTERS，COUNT2 =1。然后字符串往下一位，判斷 E,執(zhí) 行 COUNT0 FOR ALL E，符合要求， 則 COUNT0=1。 有了 滿 足條件的判斷， 則 余下的判斷不再 執(zhí) 行，字符串再往下一位，判斷 E，則COUNT0=2。接著判斷 L,則 COUNT2 =2。以此 類 推，最后 結(jié) 果 為 COUNT0=4， COUNT1=1，COUNT2=4。 Neusoft Group Ltd. 2022年 3月 5日 ISS INSPECT REPLACING ? 用另一個(gè)字符串替 換這 個(gè)字符串。 還 用上面的例子。 ( 77 AA PIC X(9) VALUE REELWHEEL. ) INSPECT AA REPLACING ALL E BY Y. 結(jié) 果 RYYLWHYYL INSPECT AA REPLACING CHARACTERS BY Z AFTER L. 結(jié)果 REELZZZZZ INSPECT AA REPLACING LEADING E BY Y. 結(jié) 果不 變 INSPECT AA REPLACING LEADING E BY Z AFTER H. 結(jié)果 REELWHZZL INSPECT AA REPLACING FIRST E BY I. 結(jié) 果 RIELWHEEL INSPECT AA REPLACING FIRST EE BY 00,ALL WH BY TH,CHARACTERS BY SPACE. 結(jié) 果 00 TH Neusoft Group Ltd. 2022年 3月 5日 ISS STRING 將幾個(gè)字符串合并成一個(gè)字符串。 STRING A DELIMITED BY SPACE， ！ DELIMITED BY SIZE INTO C. 假 設(shè) A中的內(nèi)容是 HELLO,則結(jié) 果是 HELLO !. DELIMITED BY SPACE意思是碰到空格，或到 A的 結(jié) 尾或 C的 結(jié) 尾， 則 合并 A字符串 結(jié) 束。 DELIMITED BY SIZE意思是到 ? ！ ? 的 結(jié) 尾或 C的 結(jié) 尾， 則 合并 ? ！ ? 字符串結(jié) 束。 STRING A INTO B POINTER C ON OVERFLOW PROC1 NOT ON OVERFLOW PROC2. 將 A字符串復(fù)制到 B中由 C開始的地址 處 。如果 C小于 1或大于 B的 長 度， 或 A的 長 度大于 B中 C到 結(jié) 尾 處 的 長 度， 則發(fā) 生 OVERFLOW溢出， 執(zhí) 行 PROC1。 ? 簡單的： STRING A ,B INTO C. Neusoft Group Ltd. 2022年 3月 5日 ISS UNSTRING 將一個(gè)字符串中的字符按照要求放入多個(gè)變量中 UNSTRING AAA [DELIMITED BY [ALL] B [OR [ALL] C] ...] INTO { C [DELIMITER IN D] [COUNT IN E] } ...[WITH POINTER F] [TALLYING IN G] [ON OVERFLOW PROC1] [NOT ON OVERFLOW PROC2] [ENDUNSTRING] 將 AAA中的字符放入 C，如果還有其他變量，如 C2，則等 C放滿后放入 C2。 DELIMITED BY和 STRING中的作用一樣。表示將 AAA中到 B為止的字符取出。如果有 OR，則表示到B或 C字符為止的字符取出。如果有 ALL，則如果幾個(gè)相同的 B在一起，則認(rèn)為是一個(gè) B。 DELIMITER IN 將 B放入 D，知道是哪個(gè)字符為分隔符。 COUNT IN 實(shí)際復(fù)制到 C中的字符數(shù)放入 E中。 WITH POINTER 和 STRIGN中一樣。 TALLYING IN 計(jì)算有幾個(gè)接受項(xiàng)。訪問一個(gè)新的接受項(xiàng)， G值加 1。 Neusoft Group Ltd. 2022年 3月 5日 ISS 例子： 03 CITY PIC X(10). O3 ZIP PIC X(10). 77 TEST PIC X(20). MOVE NEW YORK,NY 10017 TO TEST. UNSTRING TEST DELIMITED BY , INTO CITY,ZIP. 執(zhí)行結(jié)果 CITY值是 NEW YORK. ZIP的值是 NY 10017。 Neusoft Group Ltd. 2022年 3月 5日 ISS
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1