zOs/TX/WK933DDL

  SET CURRENT SQLID='S100447';
  SET CURRENT SCHEMA='$creator';
$@[
IF $phase = 2 THEN  $@=[
  SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC","OA1A" ;
$] ELSE $@=[
  SET CURRENT PATH = "SYSIBM","SYSFUN","SYSPROC", "DIFF" ;
$]
$]
  drop   VIEW $creator.VWK933;
$*+  RENAME OF VIEW OA1A.VMF202A0
CREATE VIEW $creator.VWK933    (KSEGM) AS
  SELECT SUBSTR(OA1A.TMF202A1.SELCD, 18, 3)
    FROM OA1A.TMF202A1,
         OA1A.VMF202A1
    WHERE OA1A.TMF202A1.BUID = '0000'
      AND SUBSTR(OA1A.TMF202A1.SELCD, 1, 17) = 'TA-NTA-REL-KSEGM '
      AND SUBSTR(OA1A.TMF202A1.STEUERUNG, 18, 1) = 'J'
      AND OA1A.TMF202A1.GUELTIGAB <= TIMESTAMP(OA1A.VMF202A1.
      TEV_DAT_ISO || '-00.00.00.000000')
      AND OA1A.TMF202A1.GUELTIGBIS >= TIMESTAMP(OA1A.VMF202A1.
      TEV_DAT_ISO || '-24.00.00.000000') ;
COMMIT;