==== Paramètres de transfert ====

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

=== Partenaires ===

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


=== IDF Fichier SEND ===

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


=== IDF Fichier RECV ===
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