So I am having trouble with why I am getting this error. the dbu field i am trying to grab is a char 20 field. the code is supposed to fetch the user area into an array where a specific line sequence is greater than 1. i have also tried multiple ways to try to get this to work(see below) but it is consistently giving me the same error.
attempt 1;
dcl-ds userarea dim(*Auto:1000)
userar char(20);
END-DS;
dcl-ds ind_Array dim(*auto:1000);
inds zoned(5) dim(1);
END-DS;
mod24 dcl-s wocdt_userX like(WOCDT_USER) inz(' ');
dcl-s segmentx zoned(1);
dcl-s index zoned(5);
mod24 MONITOR;
mod24 exec sql declare usera cursor for
mod24 select dgus20 from wocdt
mod24 where dgorid = rderid and dglnsq > 1;
mod24 exec sql open usera;
mod24 dou sqlcode <> 0;
mod24 exec sql fetch from usera for 10 rows into :userarea:ind_Array;
enddo;
attempt 2;
dcl-s userarea char(20) dim(*Auto:1000);
mod24 dcl-s wocdt_userX like(WOCDT_USER) inz(' ');
dcl-s segmentx zoned(1);
dcl-s index zoned(5);
mod24 MONITOR;
mod24 exec sql declare usera cursor for
mod24 select dgus20 from wocdt
mod24 where dgorid = rderid and dglnsq > 1;
mod24 exec sql open usera;
mod24 dou sqlcode <> 0;
mod24 exec sql fetch from usera into :userarea;
enddo;
attempt 3;
dcl-s userarea char(20) dim(1000);
mod24 dcl-s wocdt_userX like(WOCDT_USER) inz(' ');
dcl-s segmentx zoned(1);
dcl-s index zoned(5);
mod24 MONITOR;
mod24 exec sql declare usera cursor for
mod24 select dgus20 from wocdt
mod24 where dgorid = rderid and dglnsq > 1;
mod24 exec sql open usera;
mod24 dou sqlcode <> 0;
mod24 exec sql fetch from usera into :userarea;
enddo;
attempt 4;
dcl-ds userarea dim(1000) qualified;
userarea char(20);
end-ds;
mod24 dcl-s wocdt_userX like(WOCDT_USER) inz(' ');
dcl-s segmentx zoned(1);
dcl-s index zoned(5);
mod24 MONITOR;
mod24 exec sql declare usera cursor for
mod24 select dgus20 from wocdt
mod24 where dgorid = rderid and dglnsq > 1;
mod24 exec sql open usera;
mod24 dou sqlcode <> 0;
mod24 exec sql fetch from usera into :userarea;
enddo;
attempt 5;
dcl-s userarea char(20) dim(1000);
mod24 dcl-s wocdt_userX like(WOCDT_USER) inz(' ');
dcl-s segmentx zoned(1);
dcl-s index zoned(5);
mod24 MONITOR;
mod24 exec sql declare usera cursor for
mod24 select dgus20 from wocdt
mod24 where dgorid = rderid and dglnsq > 1;
mod24 exec sql open usera;
mod24 dou sqlcode <> 0;
mod24 exec sql fetch from usera for 100 rows into :userarea;
enddo;
and so on.
attempt 1;
dcl-ds userarea dim(*Auto:1000)
userar char(20);
END-DS;
dcl-ds ind_Array dim(*auto:1000);
inds zoned(5) dim(1);
END-DS;
mod24 dcl-s wocdt_userX like(WOCDT_USER) inz(' ');
dcl-s segmentx zoned(1);
dcl-s index zoned(5);
mod24 MONITOR;
mod24 exec sql declare usera cursor for
mod24 select dgus20 from wocdt
mod24 where dgorid = rderid and dglnsq > 1;
mod24 exec sql open usera;
mod24 dou sqlcode <> 0;
mod24 exec sql fetch from usera for 10 rows into :userarea:ind_Array;
enddo;
attempt 2;
dcl-s userarea char(20) dim(*Auto:1000);
mod24 dcl-s wocdt_userX like(WOCDT_USER) inz(' ');
dcl-s segmentx zoned(1);
dcl-s index zoned(5);
mod24 MONITOR;
mod24 exec sql declare usera cursor for
mod24 select dgus20 from wocdt
mod24 where dgorid = rderid and dglnsq > 1;
mod24 exec sql open usera;
mod24 dou sqlcode <> 0;
mod24 exec sql fetch from usera into :userarea;
enddo;
attempt 3;
dcl-s userarea char(20) dim(1000);
mod24 dcl-s wocdt_userX like(WOCDT_USER) inz(' ');
dcl-s segmentx zoned(1);
dcl-s index zoned(5);
mod24 MONITOR;
mod24 exec sql declare usera cursor for
mod24 select dgus20 from wocdt
mod24 where dgorid = rderid and dglnsq > 1;
mod24 exec sql open usera;
mod24 dou sqlcode <> 0;
mod24 exec sql fetch from usera into :userarea;
enddo;
attempt 4;
dcl-ds userarea dim(1000) qualified;
userarea char(20);
end-ds;
mod24 dcl-s wocdt_userX like(WOCDT_USER) inz(' ');
dcl-s segmentx zoned(1);
dcl-s index zoned(5);
mod24 MONITOR;
mod24 exec sql declare usera cursor for
mod24 select dgus20 from wocdt
mod24 where dgorid = rderid and dglnsq > 1;
mod24 exec sql open usera;
mod24 dou sqlcode <> 0;
mod24 exec sql fetch from usera into :userarea;
enddo;
attempt 5;
dcl-s userarea char(20) dim(1000);
mod24 dcl-s wocdt_userX like(WOCDT_USER) inz(' ');
dcl-s segmentx zoned(1);
dcl-s index zoned(5);
mod24 MONITOR;
mod24 exec sql declare usera cursor for
mod24 select dgus20 from wocdt
mod24 where dgorid = rderid and dglnsq > 1;
mod24 exec sql open usera;
mod24 dou sqlcode <> 0;
mod24 exec sql fetch from usera for 100 rows into :userarea;
enddo;
and so on.
Comment