1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
. debstep S010 tdz12_pl
sqlplus / @$A2_OUTILSORA/Connect $A2_BASE $$ >>$A2_LOG 2>&1 <<sysin
set linesize 5000
set colsep ';'
set term off
set feed off
set verify off
set echo off
set ver off
set heading off
set feedback off
set sqlprompt ""
set trims on
set pagesize 0
set feedback off
spool /$A2_IMP/TDZ12_PL.txt
select A0090, A1010, A6000, A0230, A9120, A9030,
A9020, A9200, A9040, A9060, A9490, A1330
from tdz12
where
A0090='03001' AND
A9000='$REPLY'
ORDER BY A0090, A1010, A6000, A0230, A9120;
sysin
. recRCU
. finstep S010 tdz12_pl
fi |
Partager