如何在cobol中实现fetch的数据保存到数组中

corelengine

感谢指导！

corelengine

这里管理员在吗，办我看看问题。谢谢。

jxylh111018

我也是用COLBE 的   楼上说详细点  看看能不能帮助

tme45

01  tmp-ctl-table.                                      
      10 tmp-ctl-table-group            occurs 100 times
                                                      indexed by idx.
         15 tmp-5digits                 pic x(05).      
         15 tmp-last-digits             pic x(01).      

.......

         add 1                  to ws-x
         move tmpa          to tmp-5digits(ws-x)     
         move tmpb          to tmp-last-digits(ws-x)

corelengine

tme45   
谢谢您！
  
indexed by idx.  如何理解

我使用
        perform  varying  ind-x  from  1  by  1
                         until   ind-x  >  6
          perform  231-sc0101mast-select
          perform  232-sc0101mast-fetch
            end-perform
双循环解决了问题，这样和您那样的操作区别大吗，这样感觉无法指定数组的下标。
我直接创建一数组，
01   wk-ouccrs-1   occurs 100 times.
      03  wk-ouccrs-id   s9(002).
      03  wk-ouccrs-name   pic(01).

210 add-ouccrs section.
          exec sql  fetch  curor into
              ..................
              ...................
          end-sql
               
               perform  system-sql-check
               move    tb-colum-1               to             wk-ouccrs-1
  
       exit section.
                这个如何知道  wk-ouccrs-1    下标

pantierui

EXEC SQL INCLUDE SQLCA
      END-EXEC.

...

      01 TABLE-1.
          02 DEPT  OCCURS 10 TIMES.
             05  EMPNO   PIC   X(6).
             05 LASTNAME.
                49 LASTNAME-LEN  PIC S9(4) BINARY.
                49 LASTNAME-TEXT PIC X(15).
             05  WORKDEPT PIC  X(3).
             05  JOB      PIC  X(.
      01 TABLE-2.
         02 IND-ARRAY   OCCURS 10 TIMES.
            05 INDS PIC  S9(4) BINARY OCCURS 4 TIMES.

...
      EXEC SQL
      DECLARE D11 CURSOR FOR
      SELECT EMPNO, LASTNAME, WORKDEPT, JOB
       FROM CORPDATA.EMPLOYEE
        WHERE WORKDEPT = "D11"
      END-EXEC.

...

      EXEC SQL
       OPEN D11
      END-EXEC.
      PERFORM FETCH-PARA UNTIL SQLCODE NOT EQUAL TO ZERO.
  ALL-DONE.
        EXEC SQL CLOSE D11 END-EXEC.

...

      FETCH-PARA.
         EXEC SQL WHENEVER NOT FOUND GO TO ALL-DONE END-EXEC.
      EXEC SQL FETCH D11 FOR 10 ROWS INTO EPT :IND-ARRAY
      END-EXEC.

...


不知道是不是你要的。

[ 本帖最后由 pantierui 于 2007-11-7 15:23 编辑 ]