數(shù)組是邏輯上連續(xù)的一系列元素

數(shù)組是邏輯上連續(xù)的一系列元素第1頁，課件共14頁，創(chuàng)作于2023年2月TABLE（數(shù)組）數(shù)組是邏輯上連續(xù)的一系列元素，在DATADIVISION里由OCCURS子句定義。每個元素具有同樣的格式。第2頁，課件共14頁，創(chuàng)作于2023年2月

聲明TABLE（數(shù)組）語法:level-numberdata-item-1OCCURSinterger-1TIMES| interger-1TOinterger-2TIMESDEPENDINGONdata-item-2[ASCEDING|DESCENDINGKEYISdata-item-3][INDEXEDBYdata-item-4]otherdata-descriptionentries第3頁，課件共14頁，創(chuàng)作于2023年2月

例子:01TAXTOTALS.03 CONTYTAX PIC9(4)V9(2) OCCURS20TIMES.01TAXTOTALS. 03 COUNTAX OCCURS20TIMES. 05DETAILTAX PIC9(4)V9(2). 05PAYER PIC9(6).01JEANSTABLE. 03 PROVINCE OCCURS4TIMES. 10GENDER OCCURS2TIMES. 15SALESVALUE PIC9(8)V99. 15NUMSOLD PIC9(7).第4頁，課件共14頁，創(chuàng)作于2023年2月

例子:77 IX PIC99.77 IX-MAX PIC99.01 GROUP-ITEM. 03 ITEM-A PICX(3)OCCURS1TO12TIMESDEPENDINGONIX-MAX.第5頁，課件共14頁，創(chuàng)作于2023年2月INDEXEDBY（索引）例子:01 GROUP-ITEM. 03 ITEM-A OCCURS7TIMESINDEXEDBYIX. 05NAME PICX(20). 05ADDRESS1 PICX(10).…. PERFORMVARYINGIXFROM1BY1UNTILIX>7 MOVESPACESTONAME(IX) MOVESPACESTOADDRESS1(IX) END-PERFORM.

第6頁，課件共14頁，創(chuàng)作于2023年2月

引用數(shù)組下標例子01ANY-TABLE. 05TABLE-ELEMENTPICX(10) OCCURS3TIMES VALUE'ABCDEFGHIJ'....MOVE'AA'TOTABLE-ELEMENT(1)(3:2).索引例子01SAMPLE-TABLE-FOUR. 05TABLE-DEPTHOCCURS3TIMESINDEXEDBYINX-A. 10TABLE-ROWOCCURS4TIMESINDEXEDBYINX-B. 15TABLE-COLUMNOCCURS8TIMESINDEXEDBYINX-CPICX(8).....MOVE'ABCDEFGH'TOTABLE-COLUMN(INX-A+1,INX-B+2,INX-C-1).MOVE'ABCDEFGH'TOTABLE-COLUMN(INX-C-1)ofTABLE-ROW(INX-B+2)ofTABLE-DEPTH(INX-A+1).第7頁，課件共14頁，創(chuàng)作于2023年2月用VALUE子句初始化數(shù)組例子01TABLE-ONEVALUE‘ABCD'. 05TABLE-TWOOCCURS4TIMESPICX.01T2. 05T-OBJPIC9VALUE3. 05TOCCURS5TIMES DEPENDINGONT-OBJ. 10XPICXXVALUE'AA'. 10YPIC99VALUE19. 10ZPICXXVALUE'BB'.第8頁，課件共14頁，創(chuàng)作于2023年2月KEY例子:01 GROUP-ITEM. 03 ITEM-A OCCURS7TIMES ASCENDINGKEYISNAME,CITY INDEXEDBYIX. 05NAME PICX(20). 05ADDRESS1 PICX(10). 05CITY PICX(5).…. PERFORMVARYINGIXFROM1BY1UNTILIX>7 DISPLAYNAME(IX),ADDRESS1(IX) END-PERFORM. 第9頁，課件共14頁，創(chuàng)作于2023年2月SET語句語法1:保存和恢復索引值。SETidentifier-1|index-name-1TO identifier-2|index-name-2語法2:將索引遞增或遞減一個整數(shù)值。

index-name-1.SETindex-name-1UP|DOWNBYidentifier-1例子:SETDATA2TOINDX.SETINDXTODATA2. SETINDXTO1. SETINDXUPBY1.注:一些普通語句中，不能使用索引.第10頁，課件共14頁，創(chuàng)作于2023年2月SEARCH語句語法:線性查找，按查找索引從頭往下查找SEARCHidentifier-1[VARYING{identifier-2|index-name-1}][ATENDstatement-1]{WHENcondition statement-2}[END-SEARCH]第11頁，課件共14頁，創(chuàng)作于2023年2月

例子:01LTABLE.05TVALUES.10FILLERPICX(13)VALUE'ABCDEFGHIJKLM'.10FILLERPICX(13)VALUE'NOPQRSTUVWXYZ'.05FILLERREDEFINESTVALUES.10LETTERPICX(1)OCCURS26TIMESASCENDINGKEYISLETTERINDEXEDBYLINDX.01INLETTERPICX(1).01IX2PIC9(2)....ACCEPTINLETTER.SETLINDXTO1.SEARCHLETTERATEND DISPLAY'NOTFOUND'WHENLETTER(LINDX)=INLETTERSETIX2TOLINDXDISPLAYINLETTER,'INTHE',IX2,'POSITION.'END-SEARCH.STOPRUN.第12頁，課件共14頁，創(chuàng)作于2023年2月SEARCHALL語句查找排序過的數(shù)組語法:SEARCHALLidentifier-1[ATENDstatement-1]{WHENcondition statement-2}[END-SEARCH]采用二分查找效率更高數(shù)組必須事先按關鍵字排序，也就是要有indexby和key短語第13頁，課件共14頁，創(chuàng)作于2023年2月

例子:01LTABLE.05TVALUES.10FILLERPICX(13)VALUE'ABCDEFGHIJKLM'.10FILLERPICX(13)VALUE'NOPQRSTUVWXYZ'.05FILLERREDEFINESTVALUES.10LETTERPICX(1)OCCURS26TIMESASCENDINGKEYISLETTERINDEXEDBYLINDX.01INLETTERPICX(1).01IX2PIC9(2)....ACCEPTINLETTER.SEARCHALLLETTERWHEN