zOs/SQL/DODEXT

select 100 * month(tid150tst - 8 months)
            + dayOfMonth(tid150tst - 8 months) TID150MD,
       strip(char(tid150tst - 8 months)) tid150tst,
       tid150uui,
       tid150cha,
       tid150lnr,
       tid150vrs,
       tid150cre,
       tid150idt,
       tid150ide,
       tid150adt,
       tid150adr,
       tid150bu,
       tid150bks,
       tid150are,
       tid150cbe,
       tid150ins
    from oa1a.tid150a1 a
 -- where tid150tst < '2004-10-14-13.21.33.989033'
    order by tid150tst, tid150uui
;