WikASi - Un peu de tout sur le i

Comment récupérer en lisible les paramètres CFT de transfert :

create or replace table QTEMP.P1 as ( SELECT 'CFTPART' as Flux,
SUBSTR(FLD001, 2, 8) as PART, SUBSTR(FLD002, 263, 2) as OS,
SUBSTR(FLD002, 330, 10) as RPART,
SUBSTR(FLD002, 438, 10) as SPART,
SUBSTR(FLD002, 546, 8) as PROT,
SUBSTR(FLD002, 674, 5) as SAP,
SUBSTR(FLD002, 1413, 30) as TXT
FROM CFTPROD1.PART1
WHERE SUBSTR(FLD001, 1, 1) = 'P'
order by SUBSTR(FLD001, 2, 8) )
with DATA on replace delete rows

create or replace table QTEMP.P2 as
( SELECT 'CFTPART' as Flux,
SUBSTR(FLD001, 2, 8) as PART,
SUBSTR(FLD002, 258, 15) as IP,
SUBSTR(FLD001, 1, 1) as RZO
FROM CFTPROD1.PART1
WHERE SUBSTR(FLD001, 1, 1) = 'X'
OR SUBSTR(FLD001, 1, 1) = 'T'
order by SUBSTR(FLD001, 2, 8) )
With DATA on replace delete rows

create or replace table QTEMP.CFT_PART1 as
( SELECT F1.FLUX, F1.PART, OS, RPART,
SPART, PROT, SAP,TXT, IP, RZO
FROM QTEMP.P1 F1 INNER JOIN QTEMP.P2 F2
ON F1.PART = F2.PART )
With DATA on replace delete rows

SELECT * FROM QTEMP.CFT_PART1

create or replace table QTEMP.CFT_SEND as
( SELECT 'CFTSEND' as Flux, SUBSTR(FLD001, 3, 8) as IDF,
SUBSTR(FLD002, 811, 21) as LIBFIL,
SUBSTR(FLD002, 724, 1) as EouB
FROM CFTPROD1.PARM1 WHERE SUBSTR(FLD001, 2, 1) = 'S' )
With DATA on replace delete rows

SELECT * FROM QTEMP.CFT_SEND

create or replace table QTEMP.CFT_RECV as
( SELECT 'CFTRECV' as Flux, SUBSTR(FLD001, 3, 8) as IDF,
SUBSTR(FLD002, 811, 21) as LIBFIL,
SUBSTR(FLD002, 724, 1) as EouB
FROM CFTPROD1.PARM1 WHERE SUBSTR(FLD001, 2, 1) = 'R' )
With DATA on replace delete rows

SELECT * FROM QTEMP.CFT_RECV