数组是逻辑上连续的一系列元素

数组是逻辑上连续的一系列元素第1页，课件共14页，创作于2023年2月TABLE（数组）数组是逻辑上连续的一系列元素，在DATADIVISION里由OCCURS子句定义。每个元素具有同样的格式。第2页，课件共14页，创作于2023年2月

声明TABLE（数组）语法:level-numberdata-item-1OCCURSinterger-1TIMES| interger-1TOinterger-2TIMESDEPENDINGONdata-item-2[ASCEDING|DESCENDINGKEYISdata-item-3][INDEXEDBYdata-item-4]otherdata-descriptionentries第3页，课件共14页，创作于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页，创作于2023年2月

例子:77 IX PIC99.77 IX-MAX PIC99.01 GROUP-ITEM. 03 ITEM-A PICX(3)OCCURS1TO12TIMESDEPENDINGONIX-MAX.第5页，课件共14页，创作于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页，创作于2023年2月

引用数组下标例子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页，创作于2023年2月用VALUE子句初始化数组例子01TABLE-ONEVALUE‘ABCD'. 05TABLE-TWOOCCURS4TIMESPICX.01T2. 05T-OBJPIC9VALUE3. 05TOCCURS5TIMES DEPENDINGONT-OBJ. 10XPICXXVALUE'AA'. 10YPIC99VALUE19. 10ZPICXXVALUE'BB'.第8页，课件共14页，创作于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页，创作于2023年2月SET语句语法1:保存和恢复索引值。SETidentifier-1|index-name-1TO identifier-2|index-name-2语法2:将索引递增或递减一个整数值。

index-name-1.SETindex-name-1UP|DOWNBYidentifier-1例子:SETDATA2TOINDX.SETINDXTODATA2. SETINDXTO1. SETINDXUPBY1.注:一些普通语句中，不能使用索引.第10页，课件共14页，创作于2023年2月SEARCH语句语法:线性查找，按查找索引从头往下查找SEARCHidentifier-1[VARYING{identifier-2|index-name-1}][ATENDstatement-1]{WHENcondition statement-2}[END-SEARCH]第11页，课件共14页，创作于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页，创作于2023年2月SEARCHALL语句查找排序过的数组语法:SEARCHALLidentifier-1[ATENDstatement-1]{WHENcondition statement-2}[END-SEARCH]采用二分查找效率更高数组必须事先按关键字排序，也就是要有indexby和key短语第13页，课件共14页，创作于2023年2月

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