zOs/TX/WK925REA

//A540769R  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 '0%' and part = 3",
                        'with rr skip locked data'
do c=1 to 600 while sqlFetchInto(1, ':part, :ks10, :ks20, :ks30')
    say time() c part ks10 ks20 ks30
    call sleep 1, 0
    end
call sqlClose 1
call sqlDisconnect