zOs/REXX/DEL

$#@
call sqlConnect dbaf
call sqlPreOpen 51, 'select i1, i2 from A540769.twk600a040'
do cx=1 while sqlFetchInto(51, ':i1, :i2')
    say i1 i2
    if cx // 2 = 0 then do
    call sqlExec 'delete from A540769.twk600a040 where current of c51'
    say 'deleted' sqlCode
    end
    if cx // 8 = 0 then do
    call sqlcommit
    say 'commited' sqlCode
    end
    end
$#out                                              20110927 15:37:45
*** run error ***
SQLCODE = -504: CURSOR NAME C51 IS NOT DECLARED
stmt =  execSql fetch c51 into :i1, :i2
with i1 = I1
     i2 = I2
$#out                                              20110927 15:30:02
*** run error ***
SQLCODE = -518: THE EXECUTE STATEMENT DOES NOT IDENTIFY A
    VALID PREPARED STATEMENT
stmt =  execSql fetch c1 into :i1, :i2
with i1 = 62
     i2 = -194297
$#out                                              20110927 15:29:02
*** run error ***
SQLCODE = -518: THE EXECUTE STATEMENT DOES NOT IDENTIFY A
    VALID PREPARED STATEMENT
stmt =  execSql fetch c1 into :i1, :i2
with i1 = 54
     i2 = 344185
$#out                                              20110927 15:24:50
*** run error ***
SQLCODE = -104: ILLEGAL SYMBOL "HOLD". SOME SYMBOLS THAT
    MIGHT BE LEGAL ARE: RR, RS, CS, UR
src select i1, i2 from A540769.twk600a040 with hold
  >                           >>>pos 44 of 47>>>
stmt =  execSql prepare s1  from :src
with src = select i1, i2 from A540769.twk600a040 with hold
$#out                                              20110927 15:23:53
*** run error ***
SQLCODE = -104: ILLEGAL SYMBOL "HOLD". SOME SYMBOLS THAT
    MIGHT BE LEGAL ARE: RR, RS, CS, UR
src select i1, i2 from A540769.twk600a040 with hold
  >                           >>>pos 44 of 47>>>
stmt =  execSql prepare s1  from :src
with src = select i1, i2 from A540769.twk600a040 with hold
$#out                                              20110927 15:22:30