zOs/SQL/KEL1

SELECT                                                                  00000127
       RE506050 , (SELECT COUNT(*) -- C.RT06002                         00000227
                   FROM   OA1A.TRT061 C,                                00000327
                          OA1A.TRE513A1 B                               00000427
                   WHERE  B.RE513010  = C.RT06001                       00000527
                   AND    B.RE513020 <= CURRENT TIMESTAMP               00000627
                   AND    B.RE513030 >= CURRENT TIMESTAMP               00000727
                   AND    B.RE513050  = A.RE506010                      00000827
                   AND    A.RE506020  = 'D'                             00000927
                   AND    A.RE506030 <= CURRENT TIMESTAMP               00001027
                   AND    A.RE506040 >= CURRENT TIMESTAMP)              00001127
FROM   OA1A.TRE506A1 A                                                  00001227
WHERE  RE506020  = 'D'                                                  00001327
AND    RE506030 <= CURRENT TIMESTAMP                                    00001427
AND    RE506040 >= CURRENT TIMESTAMP                                    00001527
;                                                                       00001627
XPDATE OA1A.TRE506A1                                                    00002027
       SET RE506050 =                                                   00003019
       (  SELECT MAX(C.RE513010)                                        00004019
              FROM OA1A.TRE513A1 B,                                     00005019
                   OA1A.TRE513A1 C                                      00006019
              WHERE   RE506010 = B.RE513050                             00007022
                  AND B.RE513010 = C.RE513010                           00008019
                  AND B.RE513020 = C.RE513020                           00009019
                  AND B.RE513010 = 'FRW'                                00009119
       )                                                                00009220
    WHERE EXISTS                                                        00009419
       (  SELECT     C.RE513010                                         00009519
              FROM OA1A.TRE513A1 B,                                     00009619
                   OA1A.TRE513A1 C                                      00009719
              WHERE   RE506010 = B.RE513050                             00009823
                  AND B.RE513010 = C.RE513010                           00009919
                  AND B.RE513020 = C.RE513020                           00010019
                  AND B.RE513010 = 'FRW'                                00010119
       )                                                                00010219
;                                                                       00010319
XELECT RE506010,                                                        00010627
       RE506020,                                                        00011003
       RE506050,                                                        00012004
       (  SELECT MAX(C.RE513010)                                        00013010
              FROM OA1A.TRE513A1 B,                                     00014111
                   OA1A.TRE513A1 C                                      00014210
              WHERE A.RE506010 = B.RE513050                             00015008
                  AND B.RE513010 = C.RE513010                           00015113
                  AND B.RE513020 = C.RE513020                           00015213
                  AND B.RE513010 = 'FRW'                                00015317
       ) KAS                                                            00017007
    FROM OA1A.TRE506A1 A                                                00020016
    WHERE EXISTS                                                        00020118
       (  SELECT     C.RE513010                                         00021018
              FROM OA1A.TRE513A1 B,                                     00022018
                   OA1A.TRE513A1 C                                      00023018
              WHERE A.RE506010 = B.RE513050                             00024018
                  AND B.RE513010 = C.RE513010                           00025018
                  AND B.RE513020 = C.RE513020                           00026018
                  AND B.RE513010 = 'FRW'                                00027018
       )                                                                00028018
;                                                                       00030025
ROLLBACK                                                                00031026
;                                                                       00032026
SELECT RE506010,                                                        00040024
       RE506020,                                                        00050024
       RE506050,                                                        00060024
       (  SELECT MAX(C.RE513010)                                        00070024
              FROM OA1A.TRE513A1 B,                                     00080024
                   OA1A.TRE513A1 C                                      00090024
              WHERE A.RE506010 = B.RE513050                             00100024
                  AND B.RE513010 = C.RE513010                           00110024
                  AND B.RE513020 = C.RE513020                           00120024
                  AND B.RE513010 = 'FRW'                                00130024
       ) KAS                                                            00140024
    FROM OA1A.TRE506A1 A                                                00150024
    WHERE EXISTS                                                        00160024
       (  SELECT     C.RE513010                                         00170024
              FROM OA1A.TRE513A1 B,                                     00180024
                   OA1A.TRE513A1 C                                      00190024
              WHERE A.RE506010 = B.RE513050                             00200024
                  AND B.RE513010 = C.RE513010                           00210024
                  AND B.RE513020 = C.RE513020                           00220024
                  AND B.RE513010 = 'FRW'                                00230024
       )                                                                00240024
                                                                        00250024