Liren Large Software Subsidy 5/05.iso/a/a523/43.ddi/TESTEXIT.SQL

Text File | 1990-06-26 | 5.1 KB | 308 lines

Rem
Rem Export of application TESTEXIT (generated on tue jun 26 19:06 1990)
Rem

Set termout off
Set verify off
Set heading off
Set echo off
Set scan off
Column x newline
Spool TESTEXIT.LIS

Select decode(count(*),0,'prompt Importing Application TESTEXIT',
 'prompt Application TESTEXIT already exists !'),decode(count(*),0,'', 'exit') x
From menu_b_appl Where application_name = 'TESTEXIT' ;
Spool off
Set termout on
@TESTEXIT.LIS
Set termout off
Set echo on
Spool TESTEXIT.LIS


Rem
Rem export of table MENU_B_APPL ( Application TESTEXIT)
Rem

Insert into MENU_B_APPL
(
APPLICATION_NAME,
SHORT_NAME,
FILE_NAME,
CREATION_DATE,
CREATOR,
VERSION_RELEASE_NR,
LAST_RELEASE_DATE,
MENU_DIRECTORY,
IDENTIFICATION
)
 values (
'TESTEXIT',
'TESTEXIT',
'TESTEXIT',
'26-JUN-90',
'SCOTT',
'                                       1',
'',
'',
'TESTEXIT' ) ;

Commit ;

Rem
Rem export of table MENU_B_APPL_GRP ( Application TESTEXIT)
Rem

Insert into MENU_B_APPL_GRP
(
APPLICATION_NAME,
GROUP_NAME
)
 values (
'TESTEXIT',
'CLERKS' ) ;
Insert into MENU_B_APPL_GRP
(
APPLICATION_NAME,
GROUP_NAME
)
 values (
'TESTEXIT',
'MANAGERS' ) ;

Commit ;

Rem
Rem export of table MENU_B_INFO ( Application TESTEXIT)
Rem

Insert into MENU_B_INFO
(
MENU_NAME,
APPLICATION_NAME,
TITLE,
SUB_TITLE,
BOTTOM_TITLE,
OBJECT_TEXT_ID
)
 values (
'TESTEXIT',
'TESTEXIT',
'Testexit Application',
'Used to run the form: TESTEXIT',
'',
'                                       1' ) ;

Commit ;

Rem
Rem export of table MENU_B_OPTION ( Application TESTEXIT)
Rem

Insert into MENU_B_OPTION
(
MENU_NAME,
APPLICATION_NAME,
OPTION_NUMBER,
SHORT_NAME,
DISPLAYED,
OPTION_TEXT,
OBJECT_TEXT_ID,
COMMAND_TYPE,
COMMAND_LINE
)
 values (
'TESTEXIT',
'TESTEXIT',
'                                       1',
'Run Testexit',
'Y',
'Run The Testexit Form',
'                                       2',
'                                       4',
'runform testexit' ) ;
Insert into MENU_B_OPTION
(
MENU_NAME,
APPLICATION_NAME,
OPTION_NUMBER,
SHORT_NAME,
DISPLAYED,
OPTION_TEXT,
OBJECT_TEXT_ID,
COMMAND_TYPE,
COMMAND_LINE
)
 values (
'TESTEXIT',
'TESTEXIT',
'                                       2',
'Exit',
'Y',
'Exit Application',
'                                       3',
'                                       6',
'exit;' ) ;

Commit ;

Rem
Rem export of table MENU_B_PARAM ( Application TESTEXIT)
Rem


Commit ;

Rem
Rem export of table MENU_B_PARM_XREF ( Application TESTEXIT)
Rem


Commit ;

Rem
Rem export of table MENU_B_PRIV ( Application TESTEXIT)
Rem

Insert into MENU_B_PRIV
(
PRIVILEGE_ID,
PRIVILEGE_TYPE,
APPLICATION_NAME,
MENU_NAME,
OPTION_NUMBER
)
 values (
'                                       1',
'MNU',
'TESTEXIT',
'TESTEXIT',
'                                       1' ) ;
Insert into MENU_B_PRIV
(
PRIVILEGE_ID,
PRIVILEGE_TYPE,
APPLICATION_NAME,
MENU_NAME,
OPTION_NUMBER
)
 values (
'                                       2',
'MNU',
'TESTEXIT',
'TESTEXIT',
'                                       2' ) ;

Commit ;

Rem
Rem export of table MENU_B_REF ( Application TESTEXIT)
Rem


Commit ;

Rem
Rem export of table MENU_B_PROCEDURE ( Application TESTEXIT)
Rem


Commit ;

Rem
Rem export of table MENU_B_OBJ_TEXT ( Application TESTEXIT)
Rem

Insert into MENU_B_OBJ_TEXT
(
APPLICATION_NAME,
OBJECT_TEXT_ID,
OBJECT_TEXT_ORDER,
OBJECT_TEXT
)
 values (
'TESTEXIT',
'                                       1',
'                                       1',
'This is the main menu of the userexit demnstration application.
' ) ;
Insert into MENU_B_OBJ_TEXT
(
APPLICATION_NAME,
OBJECT_TEXT_ID,
OBJECT_TEXT_ORDER,
OBJECT_TEXT
)
 values (
'TESTEXIT',
'                                       2',
'                                       1',
'This item calls runform to run the TESTEXIT form.' ) ;
Insert into MENU_B_OBJ_TEXT
(
APPLICATION_NAME,
OBJECT_TEXT_ID,
OBJECT_TEXT_ORDER,
OBJECT_TEXT
)
 values (
'TESTEXIT',
'                                       3',
'                                       1',
'This item exits the menu.' ) ;

Commit ;

Rem
Rem export of table MENU_B_GRP_PRIV ( Application TESTEXIT)
Rem

Insert into MENU_B_GRP_PRIV
(
APPLICATION_NAME,
GROUP_NAME,
PRIVILEGE_ID
)
 values (
'TESTEXIT',
'CLERKS',
'                                       1' ) ;
Insert into MENU_B_GRP_PRIV
(
APPLICATION_NAME,
GROUP_NAME,
PRIVILEGE_ID
)
 values (
'TESTEXIT',
'MANAGERS',
'                                       1' ) ;
Insert into MENU_B_GRP_PRIV
(
APPLICATION_NAME,
GROUP_NAME,
PRIVILEGE_ID
)
 values (
'TESTEXIT',
'CLERKS',
'                                       2' ) ;
Insert into MENU_B_GRP_PRIV
(
APPLICATION_NAME,
GROUP_NAME,
PRIVILEGE_ID
)
 values (
'TESTEXIT',
'MANAGERS',
'                                       2' ) ;

Commit ;
Set scan on
Set verify on
Set heading on
Spool off
Set termout on