zOs/TX/WK925UPD

//A540769V  JOB (CP00,KE50),TIME=99                                     00010001
//*MAIN CLASS=CMNA
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//            PARM='%WSH s'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//ISPPLIB  DD  DSN=TSO.ISPF.ISPPLIB,DISP=SHR
//ISPMLIB  DD  DSN=TSO.ISPF.ISPMLIB,DISP=SHR
//         DD  DSN=ISP.SISPMENU,DISP=SHR
//ISPSLIB  DD  DSN=TSO.ISPF.ISPSLIB,DISP=SHR
//ISPTLIB  DD  DSN=TSO.ISPF.ISPTLIB,DISP=SHR
//ISPPROF   DD DISP=(,PASS),UNIT=VIO,
//             SPACE=(CYL,(1,1,30)),RECFM=FB,LRECL=80
//ISPLOG    DD SYSOUT=*,RECFM=VA,LRECL=125
//ISPLIST   DD SYSOUT=*,RECFM=FBA,LRECL=121
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD *
call sqlConnect dp2g
call sqlPreOpen 1, 'select  part,KS835010,KS835020, KS835030',
                        'from a540769.vwk925a1' ,
                        "where ks835030 like '9%'",
                        'skip locked data'
do c=1 to 6000 while sqlFetchInto(1, ':part, :ks10, :ks20, :ks30')
    say time() c part ks10 ks20 ks30
    nv = left(ks30,10) right(c,5)
    call sqlExec "update a540769.twk925a1 set KS835030=" quote(nv,"'"),
                     'where part =' part ,
                         'and KS835010 =' quote(ks10, "'") ,
                         'and KS835020 =' quote(ks20, "'") ,
                         'and KS835030 =' quote(ks30, "'")
    call sleep 1, 0
    end
call sqlClose 1
call sqlDisconnect