zOs/TX/WK923DDM
SET CURRENT SQLID = 'S100447' ;
SET CURRENT PATH = "SYSIBM","SYSFUN", SYSPROC , $creator ;
DROP VIEW $creator.VWK923 ;
CREATE VIEW $creator.VWK923
(DG0301, DG0301Y, DG0301J, DG0301I,
DG0301B, DG0301S, DG0301P, DG0301G, DG0301L, DG0302, DG0303,
DG0304, DG0305, DG0306I, DG0306B, DG0306N, DG0306P, DG0307,
DG0308A, DG0308B, DG0308C, DG0309, DG0310, DG0311, DG0312,
DG0313, DG0314, DG0315A, DG0315B, DG0315C, DG0315D, DG0316,
DG0317, DG0318, DG0319, DG0320, DG0321, DG0322, DG0323A,
DG0323B, DG0324A, DG0324B, DG0325A, DG0325B, DG0326A, DG0326B,
DG0327, DG0328, DG0329, DG0330, DG0331, DG0332, DG0333, DG0334,
DG0335, DG0336, DG0337, DG0338, DG0339, DG0340, DG0341C,
DG0341X, DG0342, DG0343, DG0344, DG0345, DG0346, DG0347, DG0348,
DG0349, DG0350, DG0351, DG0352, DG0353, DG0354, DG0355, DG0356,
DG0357, DG0358, DG0359, DG0360, DG0361, DG0362, DG0363, DG0364,
DG0365, DG0366, DG0367, DG0368, DG0369, DG0370, DG0371, DG0372,
DG0373, DG0374, DG0375, DG0376, DG0377) AS
SELECT $cr2.TDG127A1.DG127001, SMALLINT($cr2.TDG127A1.DG127002),
$cr2.TDG127A1.DG127002,
SUBSTR($cr2.TDG127A1.DG127003, 1, 1),
SUBSTR($cr2.TDG127A1.DG127003, 2, 3),
SUBSTR($cr2.TDG127A1.DG127003, 5, 7),
SUBSTR($cr2.TDG127A1.DG127003, 12, 1),
SUBSTR($cr2.TDG127A1.DG127003, 13, 1),
SUBSTR($cr2.TDG127A1.DG127003, 14, 3),
$cr2.TDG127A1.DG127139,
SUBSTR(CHAR($cr2.TDG127A1.DG127007), 1, 4) || SUBSTR(CHAR(
$cr2.TDG127A1.DG127007), 6, 2) || SUBSTR(CHAR($cr2.
TDG127A1.DG127007), 9, 2),
SUBSTR(CHAR($cr2.TDG127A1.DG127004), 7, 4) || SUBSTR(CHAR(
$cr2.TDG127A1.DG127004), 4, 2) || SUBSTR(CHAR($cr2.
TDG127A1.DG127004), 1, 2),
SUBSTR($cr2.TDG127A1.DG127010, 1, 7),
SUBSTR($cr2.TDG127A1.DG127011, 1, 1),
SUBSTR($cr2.TDG127A1.DG127011, 2, 3),
SUBSTR($cr2.TDG127A1.DG127011, 5, 7),
SUBSTR($cr2.TDG127A1.DG127011, 12, 1),
$cr2.TDG127A1.DG127114,
DECIMAL($cr2.TDG127A1.DG127129, 15, 0),
DECIMAL($cr2.TDG127A1.DG127130, 15, 0),
DECIMAL($cr2.TDG127A1.DG127131, 15, 0),
DECIMAL($cr2.TDG127A1.DG127072, 15, 3),
DECIMAL($cr2.TDG127A1.DG127145, 15, 3),
DECIMAL($cr2.TDG127A1.DG127146, 15, 3),
DECIMAL($cr2.TDG127A1.DG127036, 15, 3),
DECIMAL($cr2.TDG127A1.DG127048, 15, 3),
DECIMAL($cr2.TDG127A1.DG127076, 15, 3),
DECIMAL($cr2.TDG127A1.DG127080, 15, 3),
DECIMAL($cr2.TDG127A1.DG127056, 15, 3),
DECIMAL($cr2.TDG127A1.DG127147, 15, 3),
DECIMAL($cr2.TDG127A1.DG127132, 15, 3),
DECIMAL($cr2.TDG127A1.DG127060, 15, 3),
DECIMAL($cr2.TDG127A1.DG127133, 15, 3),
DECIMAL($cr2.TDG127A1.DG127064, 15, 3),
DECIMAL($cr2.TDG127A1.DG127068, 15, 3),
$cr2.TDG127A1.DG127134, $cr2.TDG127A1.DG127102,
SUBSTR(CHAR($cr2.TDG127A1.DG127123), 7, 4) || SUBSTR(CHAR(
$cr2.TDG127A1.DG127123), 4, 2) || SUBSTR(CHAR($cr2.
TDG127A1.DG127123), 1, 2),
SUBSTR($cr2.TDG127A1.DG127117, 1, 7),
SUBSTR(CHAR($cr2.TDG127A1.DG127135), 7, 4) || SUBSTR(CHAR(
$cr2.TDG127A1.DG127135), 4, 2) || SUBSTR(CHAR($cr2.
TDG127A1.DG127135), 1, 2),
SUBSTR($cr2.TDG127A1.DG127165, 1, 7),
SUBSTR(CHAR($cr2.TDG127A1.DG127103), 7, 4) || SUBSTR(CHAR(
$cr2.TDG127A1.DG127103), 4, 2) || SUBSTR(CHAR($cr2.
TDG127A1.DG127103), 1, 2),
SUBSTR($cr2.TDG127A1.DG127166, 1, 7),
SUBSTR(CHAR($cr2.TDG127A1.DG127104), 7, 4) || SUBSTR(CHAR(
$cr2.TDG127A1.DG127104), 4, 2) || SUBSTR(CHAR($cr2.
TDG127A1.DG127104), 1, 2),
CHAR($cr2.TDG127A1.DG127106 || ' '),
CHAR($cr2.TDG127A1.DG127008 || ' '),
CASE($cr2.TDG127A1.DG127100) WHEN '01.01.0001' THEN
'00000000' ELSE SUBSTR(CHAR($cr2.TDG127A1.DG127100), 7, 4)
|| SUBSTR(CHAR($cr2.TDG127A1.DG127100), 4, 2) || SUBSTR(
CHAR($cr2.TDG127A1.DG127100), 1, 2) END,
DECIMAL($cr2.TDG127A1.DG127140, 15, 3),
$cr2.TDG127A1.DG127115,
DECIMAL($cr2.TDG127A1.DG127173, 15, 3),
DECIMAL($cr2.TDG127A1.DG127174, 15, 3),
DECIMAL($cr2.TDG127A1.DG127175, 15, 3),
DECIMAL($cr2.TDG127A1.DG127176, 15, 3),
DECIMAL($cr2.TDG127A1.DG127177, 15, 3),
DECIMAL($cr2.TDG127A1.DG127178, 15, 3),
DECIMAL($cr2.TDG127A1.DG127179, 15, 3),
DECIMAL($cr2.TDG127A1.DG127018, 5, 3),
CHAR($cr2.TDG127A1.DG127150 || ' '),
DECIMAL($cr2.TDG127A1.DG127097, 15, 3),
SUBSTR($cr2.TDG127A1.DG127012, 1, 16),
$cr2.TDG127A1.DG127136, $cr2.TDG127A1.DG127013,
$cr2.TDG127A1.DG127014, $cr2.TDG127A1.DG127151,
$cr2.TDG127A1.DG127127, $cr2.TDG127A1.DG127128,
$cr2.TDG127A1.DG127098,
DECIMAL($cr2.TDG127A1.DG127026, 5, 3),
SUBSTR($cr2.TDG127A1.DG127009, 1, 7),
$cr2.TDG127A1.DG127167, $cr2.TDG127A1.DG127101,
CASE($cr2.TDG127A1.DG127137) WHEN '01.01.0001' THEN ''
ELSE SUBSTR(CHAR($cr2.TDG127A1.DG127137), 7, 4) || SUBSTR(
CHAR($cr2.TDG127A1.DG127137), 4, 2) || SUBSTR(CHAR($cr2.
TDG127A1.DG127137), 1, 2) END, $cr2.TDG127A1.DG127105,
SUBSTR($cr2.TDG127A1.DG127160, 1, 5),
DECIMAL($cr2.TDG127A1.DG127132, 15, 0),
DECIMAL($cr2.TDG127A1.DG127133, 15, 0),
$cr2.TDG127A1.DG127106, $cr2.TDG127A1.DG127107,
$cr2.TDG127A1.DG127008,
DECIMAL($cr2.TDG127A1.DG127018, 15, 7),
DECIMAL($cr2.TDG127A1.DG127026, 15, 7),
DECIMAL($cr2.TDG127A1.DG127022, 15, 7),
SUBSTR($cr2.TDG127A1.DG127009, 1, 4),
$cr2.TDG127A1.DG127108, $cr2.TDG127A1.DG127109,
$cr2.TDG127A1.DG127110, $cr2.TDG127A1.DG127111,
$cr2.TDG127A1.DG127112, $cr2.TDG127A1.DG127113,
$cr2.TDG127A1.DG127115,
DECIMAL($cr2.TDG127A1.DG127032, 15, 0),
DECIMAL($cr2.TDG127A1.DG127027, 15, 3),
$cr2.TDG127A1.DG127116,
DECIMAL($cr2.TDG127A1.DG127084, 15, 3),
DECIMAL($cr2.TDG127A1.DG127088, 15, 3),
DECIMAL($cr2.TDG127A1.DG127092, 15, 3),
DECIMAL($cr2.TDG127A1.DG127096, 15, 3),
DECIMAL($cr2.TDG127A1.DG127028, 15, 3)
FROM $cr2.TDG127A1 ;