This script is called immediately after the main import program finishes. It creates a first-cut import protocol that is suited for printout in DIN A4 landscape or in DIN A3 portrait format. You can change the formatting options, or include additional columns from the protocol table, but you should not change the script parameters, because the B.40.01 screen and the OMI scripts rely on being able to pass these parameters to the script.
REM ---------------------------------------------------
REM Smart Materials
REM ---------------------------------------------------
REM
REM File: B40R01.SQL
REM OMI Import Protocol for last JCS import,
REM will be called immediately after main
REM import program finished in JCS
REM Author: PSchneider
REM
REM
REM Modifications, changes, enhancements, fixes:
REM
REM When Who What
REM ----------- ---------- ---------------------------------------------------
REM 10-Oct-1997 PSchneider Created
REM 23-Mar-1998 PSchneider Added additional info for BOM node creation
REM 18-Feb-1999 PSchneider Merged changes for OMI 5.1: new script parameters
REM
REM ----------------------------------------------------------------------------
REM
REM
REM Parameters for script call are:
REM
REM &1: omij_id NUMBER(12)
REM &2: omij_code VARCHAR2(10)
REM &3: proj_id VARCHAR2(10)
REM &4: Fully qualified name for spoolfile
REM
WHENEVER SQLERROR EXIT FAILURE
WHENEVER OSERROR EXIT FAILURE
SET TIMING OFF
SET FEEDBACK OFF
SET LINESIZE 1600
SET TRIMSPOOL ON
SET PAGESIZE 66
SET ARRAYSIZE 1
SET VERIFY OFF
SPOOL &4
PROMPT
PROMPT
SELECT '******************' FROM dual;
SELECT '* *' FROM dual;
SELECT '* SMat ' || m_pck_install_infos.marian_version || ' *' FROM dual;
SELECT '* *' FROM dual;
SELECT '******************' FROM dual;
PROMPT
SELECT m_pck_install_infos.copyright_1 FROM dual;
PROMPT
PROMPT
PROMPT Report script: B.40.R.01 - OMI Import Protocol
PROMPT
PROMPT Call parameters:
PROMPT
PROMPT OMI-Job (ID) : &1
PROMPT OMI-Job (Code) : &2
PROMPT Project : &3
PROMPT Spoolfile : &4
PROMPT
PROMPT
COLUMN line HEADING Line# FORMAT 9999999
COLUMN kind HEADING Kind FORMAT a12
COLUMN text HEADING Text FORMAT a50 WORD_WRAPPED
COLUMN path HEADING BOM-Path FORMAT a60
COLUMN pos HEADING Pos# FORMAT a10
COLUMN one HEADING F-1 FORMAT a20
COLUMN two HEADING F-2 FORMAT a20
COLUMN three HEADING F-3 FORMAT a20
COLUMN four HEADING F-4 FORMAT a20
SET TERMOUT OFF
SELECT iil.err_line line,
iil.kind kind,
iil.state st,
iil.text text,
DECODE(iil.err_ln_id,
NULL, NULL,
list_path_to_root(iil.err_ln_id, '/')) path,
DECODE(iil.state,
'E', err_lp_pos,
NULL) pos,
iie.one one,
iie.two two,
iie.three three,
iie.four four
FROM m_import_interface_errs iie,
m_import_interface_logs iil
WHERE iil.omij_id = &1
AND iil.proj_id = UPPER('&3')
AND iil.seq_id = iie.seq_id (+)
AND iil.kind <> 'COMMIT'
ORDER BY iil.log_id;
SET TERMOUT ON
PROMPT
PROMPT
PROMPT OMI Import protocol done.
PROMPT
SPOOL OFF
EXIT