zOs/SQL/RID

select    rid(t), hex(rid(t)),                                          00000116
    t.*                                                                 00000216
    from oa1a.twm005a1 t                                                00000316
    where rid(t) in (19021840, 19021841                                 00000416
                    ,19021843, 19021844                                 00000516
                    ,19021846, 19021847                                 00000616
                    )                                                   00000716
;;;;                                                                    00000816
update oa1a.twm005a1 t  set d$gueb = '2345-06-07-08.09.00.000000'       00000916
    where rid(t) =   19021846                                           00001016
;                                                                       00001116
select    rid(t), hex(rid(t)),                                          00001216
    t.*                                                                 00001316
    from oa1a.twm005a1 t                                                00001416
    where rid(t) =   19021846                                           00001516
union all                                                               00001616
select    rid(t), hex(rid(t)),                                          00001716
    t.*                                                                 00001816
    from oa1a.twm005a1 t                                                00001916
    where rid(t) =   19021847                                           00002016
;                                                                       00002116
commit                                                                  00002216
;;;                                                                     00002316
                    )                                                   00002416
;                                                                       00002516
update oa1a.twm005a1 t  set d$gueb = '2345-06-07-08.09.00.000000'       00002616
    where rid(t) =   19021840                                           00002716
;                                                                       00003011
update oa1a.twm005a1 t  set d$gueb = '2345-06-07-08.09.00.000000'       00004012
    where rid(t) =   19021843                                           00005011
;                                                                       00006011