zOs/SQL/LOCKDROL

//A540769L JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M,                                    00030000
//         SCHENV=DB2,CLASS=M1                                          00040000
//JOBLIB   DD DISP=SHR,DSN=PCL.U0000.P0.RZ4AKT.PERM.@008.LLB
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//             PARM='%WSH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD *
call sqlConnect
$*(
say time() 'locking table qz92crt.TQZ91WK970A1 in exclusive mode'
call sqlExec 'lock table qz92crt.TQZ91WK970A1 in exclusive mode'
say time() 'locked  table qz92crt.TQZ91WK970A1 in exclusive mode'
$*)
call sqlExec "update qz92crt.TQZ91WK970A1 set WK970CHC = 'upd'", "*say"
say time() 'updated'
call sqlExec "drop table qz92crt.TQZ91WK970A1", "*say"
say time() 'dropped'
call sqlCommit
say time() 'committed'
call sleep  00