"Progress Dynamics 2.1"

"2.1A01" 1 2 0 0 ? ? 40 4 "portrait"

"seq_obj1"

999999999

YES

"seq_obj2"

999999999

YES

"seq_site_reverse"

999999999

YES

"seq_site_division"

999999999

YES

"seq_session_id"

999999999

YES

"seq_ICFDB_DBVersion"

20023

YES

"Primary Recovery Area"

8192

".\"

"Schema Area"

4096

".\"

"gsc_custom_procedure"

"gsccp"

"Schema Area"

NO "This table is contained in Dynamics for backward compatibility and will likely be dropped at a later stage. It will be replaced with flows and events when these are fully implemented. The purpose of this table is to provide a mechanism to define alternate procedures for custom specific business logic. This table contains a list of all the system supported procedures that satisfy these business rules, categorised by entity and procedure type. A number of variations for each process may exist - the procedure to use in each case must be selected from this list. The programs that these procedures exist in will run persistently when required."

NO ? ""

6 no 2 4 10 11

"CREATE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR CREATE OF gsc_custom_procedure . /* Created automatically using ERwin ICF Trigger template db/af/erw/afercustrg.i Do not change manually. Customisations to triggers should be placed in separate include files pulled into the trigger. ICF auto generates write trigger custom include files. Delete or create customisation include files need to be created manually. Be sure to put the hook in ERwin directly so as not to have you changes overwritten. User defined Macro (UDP) Summary (case sensitive) gsc_custom_procedure Expands to full table name, e.g. gsm_user %TableFLA Expands to table unique code, e.g. gsmus %TableObj If blank or not defined expands to table_obj with no prefix (framework standard) If defined, uses this field as the object field If set to "none" then indicates table does not have an object field XYZ Do not define so we can compare against an empty string See docs for explanation of replication macros */ &SCOPED-DEFINE TRIGGER_TABLE gsc_custom_procedure &SCOPED-DEFINE TRIGGER_FLA gsccp &SCOPED-DEFINE TRIGGER_OBJ custom_procedure_obj DEFINE BUFFER lb_table FOR gsc_custom_procedure. /* Used for recursive relationships */ DEFINE BUFFER lb1_table FOR gsc_custom_procedure. /* Used for lock upgrades */ DEFINE BUFFER o_gsc_custom_procedure FOR gsc_custom_procedure. /* Standard top of CREATE trigger code */ {af/sup/aftrigtopc.i} /* Generated by ICF ERwin Template */ /* gsm_category of gsc_custom_procedure ON CHILD INSERT RESTRICT */ IF ( gsc_custom_procedure.category_obj <> 0 ) THEN DO: IF NOT(CAN-FIND(FIRST gsm_category WHERE gsc_custom_procedure.category_obj = gsm_category.category_obj)) THEN DO: /* Cannot create child because parent does not exist ! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 102 lv-include = "gsc_custom_procedure|gsm_category":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. END. ASSIGN gsc_custom_procedure.{&TRIGGER_OBJ} = getNextObj() NO-ERROR. IF ERROR-STATUS:ERROR THEN DO: ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 31 lv-include = "gsc_custom_procedure|the specified object number. Please ensure your database sequences have been set correctly":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. /* Update Audit Log */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gsccp':U AND gsc_entity_mnemonic.auditing_enabled = YES) THEN RUN af/app/afauditlgp.p (INPUT "CREATE":U, INPUT "gsccp":U, INPUT BUFFER gsc_custom_procedure:HANDLE, INPUT BUFFER o_gsc_custom_procedure:HANDLE). /* Standard bottom of CREATE trigger code */ {af/sup/aftrigendc.i} /* Place any specific CREATE trigger customisations here */ " YES

"icf/trg/gsccptrigc.p"

"DELETE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR DELETE OF gsc_custom_procedure . /* Created automatically using ERwin ICF Trigger template db/af/erw/afercustrg.i Do not change manually. Customisations to triggers should be placed in separate include files pulled into the trigger. ICF auto generates write trigger custom include files. Delete or create customisation include files need to be created manually. Be sure to put the hook in ERwin directly so as not to have you changes overwritten. User defined Macro (UDP) Summary (case sensitive) gsc_custom_procedure Expands to full table name, e.g. gsm_user %TableFLA Expands to table unique code, e.g. gsmus %TableObj If blank or not defined expands to table_obj with no prefix (framework standard) If defined, uses this field as the object field If set to "none" then indicates table does not have an object field XYZ Do not define so we can compare against an empty string See docs for explanation of replication macros */ &SCOPED-DEFINE TRIGGER_TABLE gsc_custom_procedure &SCOPED-DEFINE TRIGGER_FLA gsccp &SCOPED-DEFINE TRIGGER_OBJ custom_procedure_obj DEFINE BUFFER lb_table FOR gsc_custom_procedure. /* Used for recursive relationships */ DEFINE BUFFER lb1_table FOR gsc_custom_procedure. /* Used for lock upgrades */ DEFINE BUFFER o_gsc_custom_procedure FOR gsc_custom_procedure. /* Standard top of DELETE trigger code */ {af/sup/aftrigtopd.i} /* Generated by ICF ERwin Template */ /* gsc_custom_procedure is used by gsc_entity_mnemonic_procedure ON PARENT DELETE RESTRICT */ IF CAN-FIND(FIRST gsc_entity_mnemonic_procedure WHERE gsc_entity_mnemonic_procedure.custom_procedure_obj = gsc_custom_procedure.custom_procedure_obj) THEN DO: /* Cannot delete parent because child exists! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 101 lv-include = "gsc_custom_procedure|gsc_entity_mnemonic_procedure":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. /* Generic comments deletion */ DEFINE BUFFER lbx_gsm_comment FOR gsm_comment. DEFINE BUFFER lby_gsm_comment FOR gsm_comment. IF CAN-FIND(FIRST lbx_gsm_comment WHERE lbx_gsm_comment.owning_obj = gsc_custom_procedure.{&TRIGGER_OBJ}) THEN FOR EACH lbx_gsm_comment NO-LOCK WHERE lbx_gsm_comment.owning_obj = gsc_custom_procedure.{&TRIGGER_OBJ} ON STOP UNDO, RETURN ERROR "AF^104^gsccptrigd.p^delete gsm_comment":U: FIND FIRST lby_gsm_comment EXCLUSIVE-LOCK WHERE ROWID(lby_gsm_comment) = ROWID(lbx_gsm_comment) NO-ERROR. IF AVAILABLE lby_gsm_comment THEN DO: {af/sup/afvalidtrg.i &action = "DELETE" &table = "lby_gsm_comment"} END. END. /* Generic security allocation deletion */ DEFINE BUFFER lbx_gsm_user_allocation FOR gsm_user_allocation. DEFINE BUFFER lby_gsm_user_allocation FOR gsm_user_allocation. IF CAN-FIND(FIRST lbx_gsm_user_allocation WHERE lbx_gsm_user_allocation.owning_obj = gsc_custom_procedure.{&TRIGGER_OBJ}) THEN FOR EACH lbx_gsm_user_allocation NO-LOCK WHERE lbx_gsm_user_allocation.owning_obj = gsc_custom_procedure.{&TRIGGER_OBJ} ON STOP UNDO, RETURN ERROR "AF^104^gsccptrigd.p^delete gsm_user_allocation":U: FIND FIRST lby_gsm_user_allocation EXCLUSIVE-LOCK WHERE ROWID(lby_gsm_user_allocation) = ROWID(lbx_gsm_user_allocation) NO-ERROR. IF AVAILABLE lby_gsm_user_allocation THEN DO: {af/sup/afvalidtrg.i &action = "DELETE" &table = "lby_gsm_user_allocation"} END. END. /* Generic multi-media deletion */ DEFINE BUFFER lbx_gsm_multi_media FOR gsm_multi_media. DEFINE BUFFER lby_gsm_multi_media FOR gsm_multi_media. IF CAN-FIND(FIRST lbx_gsm_multi_media WHERE lbx_gsm_multi_media.owning_obj = gsc_custom_procedure.{&TRIGGER_OBJ}) THEN FOR EACH lbx_gsm_multi_media NO-LOCK WHERE lbx_gsm_multi_media.owning_obj = gsc_custom_procedure.{&TRIGGER_OBJ} ON STOP UNDO, RETURN ERROR "AF^104^gsccptrigd.p^delete gsm_multi_media":U: FIND FIRST lby_gsm_multi_media EXCLUSIVE-LOCK WHERE ROWID(lby_gsm_multi_media) = ROWID(lbx_gsm_multi_media) NO-ERROR. IF AVAILABLE lby_gsm_multi_media THEN DO: {af/sup/afvalidtrg.i &action = "DELETE" &table = "lby_gsm_multi_media"} END. END. /* Update Audit Log */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gsccp':U AND gsc_entity_mnemonic.auditing_enabled = YES) THEN RUN af/app/afauditlgp.p (INPUT "DELETE":U, INPUT "gsccp":U, INPUT BUFFER gsc_custom_procedure:HANDLE, INPUT BUFFER o_gsc_custom_procedure:HANDLE). /* Standard bottom of DELETE trigger code */ {af/sup/aftrigendd.i} /* Place any specific DELETE trigger customisations here */ " YES

"icf/trg/gsccptrigd.p"

"REPLICATION-CREATE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR REPLICATION-CREATE OF gsc_custom_procedure. {af/sup/afreplicat.i &TABLE-NAME = "gsc_custom_procedure" &TABLE-FLA = "gsccp" &TABLE-PK = "custom_procedure_obj" &ACTION = "CREATE" &VERSION-DATA = "YES" } " YES

"icf/trg/gsccpreplc.p"

"REPLICATION-DELETE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR REPLICATION-DELETE OF gsc_custom_procedure. {af/sup/afreplicat.i &TABLE-NAME = "gsc_custom_procedure" &TABLE-FLA = "gsccp" &TABLE-PK = "custom_procedure_obj" &ACTION = "DELETE" &VERSION-DATA = "YES" } " YES

"icf/trg/gsccprepld.p"

"REPLICATION-WRITE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR REPLICATION-WRITE OF gsc_custom_procedure OLD BUFFER lb_old. {af/sup/afreplicat.i &TABLE-NAME = "gsc_custom_procedure" &TABLE-FLA = "gsccp" &TABLE-PK = "custom_procedure_obj" &OLD-BUFFER = "lb_old" &ACTION = "WRITE" &VERSION-DATA = "YES" } " YES

"icf/trg/gsccpreplw.p"

"WRITE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR WRITE OF gsc_custom_procedure OLD BUFFER o_gsc_custom_procedure. /* Created automatically using ERwin ICF Trigger template db/af/erw/afercustrg.i Do not change manually. Customisations to triggers should be placed in separate include files pulled into the trigger. ICF auto generates write trigger custom include files. Delete or create customisation include files need to be created manually. Be sure to put the hook in ERwin directly so as not to have you changes overwritten. User defined Macro (UDP) Summary (case sensitive) gsc_custom_procedure Expands to full table name, e.g. gsm_user %TableFLA Expands to table unique code, e.g. gsmus %TableObj If blank or not defined expands to table_obj with no prefix (framework standard) If defined, uses this field as the object field If set to "none" then indicates table does not have an object field XYZ Do not define so we can compare against an empty string See docs for explanation of replication macros */ &SCOPED-DEFINE TRIGGER_TABLE gsc_custom_procedure &SCOPED-DEFINE TRIGGER_FLA gsccp &SCOPED-DEFINE TRIGGER_OBJ custom_procedure_obj DEFINE BUFFER lb_table FOR gsc_custom_procedure. /* Used for recursive relationships */ DEFINE BUFFER lb1_table FOR gsc_custom_procedure. /* Used for lock upgrades */ /* Standard top of WRITE trigger code */ {af/sup/aftrigtopw.i} /* properform fields if enabled for table */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gsccp':U AND gsc_entity_mnemonic.auto_properform_strings = YES) THEN RUN af/app/afpropfrmp.p (INPUT BUFFER gsc_custom_procedure:HANDLE). /* Generated by ICF ERwin Template */ /* gsm_category of gsc_custom_procedure ON CHILD UPDATE RESTRICT */ IF NEW gsc_custom_procedure OR gsc_custom_procedure.category_obj <> o_gsc_custom_procedure.category_obj THEN DO: IF NOT(CAN-FIND(FIRST gsm_category WHERE gsc_custom_procedure.category_obj = gsm_category.category_obj)) THEN DO: /* Cannot update child because parent does not exist ! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 103 lv-include = "gsc_custom_procedure|gsm_category":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. END. IF NOT NEW gsc_custom_procedure AND gsc_custom_procedure.{&TRIGGER_OBJ} <> o_gsc_custom_procedure.{&TRIGGER_OBJ} THEN DO: ASSIGN lv-error = YES lv-errgrp = "AF":U lv-errnum = 13 lv-include = "table object number":U. RUN error-message (lv-errgrp,lv-errnum,lv-include). END. /* Customisations to WRITE trigger */ {icf/trg/gsccptrigw.i} /* Update Audit Log */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gsccp':U AND gsc_entity_mnemonic.auditing_enabled = YES) THEN RUN af/app/afauditlgp.p (INPUT "WRITE":U, INPUT "gsccp":U, INPUT BUFFER gsc_custom_procedure:HANDLE, INPUT BUFFER o_gsc_custom_procedure:HANDLE). /* Standard bottom of WRITE trigger code */ {af/sup/aftrigendw.i} " YES

"icf/trg/gsccptrigw.p"

"category_obj"

"decimal"

"->>>>>>>>>>>>>>>>>9.999999999" "Category obj"

"0" 20 9 "" "Category obj" NO

? "o_obj"

"custom_procedure_description"

"character"

"X(70)" "Custom procedure description"

"" 40 ? "A description of the customised business process procedure. This will be presented to the user and so should be adequately described." "Custom procedure description" NO

? "s_big_description"

140

"custom_procedure_notes"

"character"

"X(3000)" "Custom procedure notes"

"" 50 ? "Notes on how to use the custom procedure, details of the API, etc." "Custom procedure notes" NO

"VIEW-AS EDITOR SIZE 70 BY 8 SCROLLBAR-VERTICAL LARGE MAX-CHARS 3000"

? "s_big_text_block"

6000

"custom_procedure_obj"

"decimal"

"->>>>>>>>>>>>>>>>>9.999999999" "Custom procedure obj"

"0" 10 9 "" "Custom procedure obj" NO

? "o_obj"

"custom_procedure_short_desc"

"character"

"X(15)" "Custom procedure short desc."

"" 30 ? "A brief description of the customised business process procedure - to display in browsers, etc." "Custom procedure short description" NO

? "s_short_desc"

"procedure_name"

"character"

"X(35)" "Procedure name"

"" 60 ? "The actual internal procedure name as used in the program." "Procedure name" NO

? "s_program_procedure"

"run_this_procedure"

"logical"

"YES/NO" "Run this procedure"

"YES" 70 ? "If set to NO, the running of this procedure will be disabled." "Run this procedure" NO

"VIEW-AS TOGGLE-BOX"

? "l_yesno"

"XPKgsc_custom_procedure"

"Schema Area"

? YES YES YES ? 6

"custom_procedure_obj"

YES NO

"XAK1gsc_custom_procedure"

"Schema Area"

? NO YES YES ? 6

"procedure_name"

YES NO

"XIE1gsc_custom_procedure"

"Schema Area"

? NO YES NO ? 6

"category_obj"

YES NO

"custom_procedure_description"

YES NO

"XIE2gsc_custom_procedure"

"Schema Area"

? NO YES NO ? 6

"category_obj"

YES NO

"custom_procedure_short_desc"

YES NO

32813

"is used by"

NO 1 2 ?

"custom_procedure_obj"

32814

YES 1 2 ?

"category_obj"

"gsc_dataset_entity"

"gscde"

"Schema Area"

NO "This table contains a complete list of tables that need to be deployed with the dataset. One of the tables in the dataset must be marked as primary, i.e. the main table in the dataset. The join information between the tables must also be specified. The data in this table can be filtered using the filter where clause."

NO ? ""

6 no 8 4 10 20

"CREATE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR CREATE OF gsc_dataset_entity . /* Created automatically using ERwin ICF Trigger template db/af/erw/afercustrg.i Do not change manually. Customisations to triggers should be placed in separate include files pulled into the trigger. ICF auto generates write trigger custom include files. Delete or create customisation include files need to be created manually. Be sure to put the hook in ERwin directly so as not to have you changes overwritten. User defined Macro (UDP) Summary (case sensitive) gsc_dataset_entity Expands to full table name, e.g. gsm_user %TableFLA Expands to table unique code, e.g. gsmus %TableObj If blank or not defined expands to table_obj with no prefix (framework standard) If defined, uses this field as the object field If set to "none" then indicates table does not have an object field XYZ Do not define so we can compare against an empty string See docs for explanation of replication macros */ &SCOPED-DEFINE TRIGGER_TABLE gsc_dataset_entity &SCOPED-DEFINE TRIGGER_FLA gscde &SCOPED-DEFINE TRIGGER_OBJ dataset_entity_obj DEFINE BUFFER lb_table FOR gsc_dataset_entity. /* Used for recursive relationships */ DEFINE BUFFER lb1_table FOR gsc_dataset_entity. /* Used for lock upgrades */ DEFINE BUFFER o_gsc_dataset_entity FOR gsc_dataset_entity. /* Standard top of CREATE trigger code */ {af/sup/aftrigtopc.i} /* Generated by ICF ERwin Template */ /* ryc_relationship is the join for gsc_dataset_entity ON CHILD INSERT SET NULL */ IF NOT(CAN-FIND(FIRST ryc_relationship WHERE gsc_dataset_entity.relationship_obj = ryc_relationship.relationship_obj)) THEN DO: ASSIGN gsc_dataset_entity.relationship_obj = 0 . END. /* Generated by ICF ERwin Template */ /* gsc_entity_mnemonic is the join partner for gsc_dataset_entity ON CHILD INSERT SET NULL */ IF NOT(CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_dataset_entity.join_entity_mnemonic = gsc_entity_mnemonic.entity_mnemonic)) THEN DO: ASSIGN gsc_dataset_entity.join_entity_mnemonic = "":U . END. /* Generated by ICF ERwin Template */ /* gsc_entity_mnemonic is included in gsc_dataset_entity ON CHILD INSERT RESTRICT */ IF ( gsc_dataset_entity.entity_mnemonic <> "":U ) THEN DO: IF NOT(CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_dataset_entity.entity_mnemonic = gsc_entity_mnemonic.entity_mnemonic)) THEN DO: /* Cannot create child because parent does not exist ! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 102 lv-include = "gsc_dataset_entity|gsc_entity_mnemonic":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. END. /* Generated by ICF ERwin Template */ /* gsc_deploy_dataset includes gsc_dataset_entity ON CHILD INSERT RESTRICT */ IF ( gsc_dataset_entity.deploy_dataset_obj <> 0 ) THEN DO: IF NOT(CAN-FIND(FIRST gsc_deploy_dataset WHERE gsc_dataset_entity.deploy_dataset_obj = gsc_deploy_dataset.deploy_dataset_obj)) THEN DO: /* Cannot create child because parent does not exist ! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 102 lv-include = "gsc_dataset_entity|gsc_deploy_dataset":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. END. ASSIGN gsc_dataset_entity.{&TRIGGER_OBJ} = getNextObj() NO-ERROR. IF ERROR-STATUS:ERROR THEN DO: ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 31 lv-include = "gsc_dataset_entity|the specified object number. Please ensure your database sequences have been set correctly":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. /* Update Audit Log */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gscde':U AND gsc_entity_mnemonic.auditing_enabled = YES) THEN RUN af/app/afauditlgp.p (INPUT "CREATE":U, INPUT "gscde":U, INPUT BUFFER gsc_dataset_entity:HANDLE, INPUT BUFFER o_gsc_dataset_entity:HANDLE). /* Standard bottom of CREATE trigger code */ {af/sup/aftrigendc.i} /* Place any specific CREATE trigger customisations here */ " YES

"icf/trg/gscdetrigc.p"

"DELETE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR DELETE OF gsc_dataset_entity . /* Created automatically using ERwin ICF Trigger template db/af/erw/afercustrg.i Do not change manually. Customisations to triggers should be placed in separate include files pulled into the trigger. ICF auto generates write trigger custom include files. Delete or create customisation include files need to be created manually. Be sure to put the hook in ERwin directly so as not to have you changes overwritten. User defined Macro (UDP) Summary (case sensitive) gsc_dataset_entity Expands to full table name, e.g. gsm_user %TableFLA Expands to table unique code, e.g. gsmus %TableObj If blank or not defined expands to table_obj with no prefix (framework standard) If defined, uses this field as the object field If set to "none" then indicates table does not have an object field XYZ Do not define so we can compare against an empty string See docs for explanation of replication macros */ &SCOPED-DEFINE TRIGGER_TABLE gsc_dataset_entity &SCOPED-DEFINE TRIGGER_FLA gscde &SCOPED-DEFINE TRIGGER_OBJ dataset_entity_obj DEFINE BUFFER lb_table FOR gsc_dataset_entity. /* Used for recursive relationships */ DEFINE BUFFER lb1_table FOR gsc_dataset_entity. /* Used for lock upgrades */ DEFINE BUFFER o_gsc_dataset_entity FOR gsc_dataset_entity. /* Standard top of DELETE trigger code */ {af/sup/aftrigtopd.i} /* Generic comments deletion */ DEFINE BUFFER lbx_gsm_comment FOR gsm_comment. DEFINE BUFFER lby_gsm_comment FOR gsm_comment. IF CAN-FIND(FIRST lbx_gsm_comment WHERE lbx_gsm_comment.owning_obj = gsc_dataset_entity.{&TRIGGER_OBJ}) THEN FOR EACH lbx_gsm_comment NO-LOCK WHERE lbx_gsm_comment.owning_obj = gsc_dataset_entity.{&TRIGGER_OBJ} ON STOP UNDO, RETURN ERROR "AF^104^gscdetrigd.p^delete gsm_comment":U: FIND FIRST lby_gsm_comment EXCLUSIVE-LOCK WHERE ROWID(lby_gsm_comment) = ROWID(lbx_gsm_comment) NO-ERROR. IF AVAILABLE lby_gsm_comment THEN DO: {af/sup/afvalidtrg.i &action = "DELETE" &table = "lby_gsm_comment"} END. END. /* Generic security allocation deletion */ DEFINE BUFFER lbx_gsm_user_allocation FOR gsm_user_allocation. DEFINE BUFFER lby_gsm_user_allocation FOR gsm_user_allocation. IF CAN-FIND(FIRST lbx_gsm_user_allocation WHERE lbx_gsm_user_allocation.owning_obj = gsc_dataset_entity.{&TRIGGER_OBJ}) THEN FOR EACH lbx_gsm_user_allocation NO-LOCK WHERE lbx_gsm_user_allocation.owning_obj = gsc_dataset_entity.{&TRIGGER_OBJ} ON STOP UNDO, RETURN ERROR "AF^104^gscdetrigd.p^delete gsm_user_allocation":U: FIND FIRST lby_gsm_user_allocation EXCLUSIVE-LOCK WHERE ROWID(lby_gsm_user_allocation) = ROWID(lbx_gsm_user_allocation) NO-ERROR. IF AVAILABLE lby_gsm_user_allocation THEN DO: {af/sup/afvalidtrg.i &action = "DELETE" &table = "lby_gsm_user_allocation"} END. END. /* Generic multi-media deletion */ DEFINE BUFFER lbx_gsm_multi_media FOR gsm_multi_media. DEFINE BUFFER lby_gsm_multi_media FOR gsm_multi_media. IF CAN-FIND(FIRST lbx_gsm_multi_media WHERE lbx_gsm_multi_media.owning_obj = gsc_dataset_entity.{&TRIGGER_OBJ}) THEN FOR EACH lbx_gsm_multi_media NO-LOCK WHERE lbx_gsm_multi_media.owning_obj = gsc_dataset_entity.{&TRIGGER_OBJ} ON STOP UNDO, RETURN ERROR "AF^104^gscdetrigd.p^delete gsm_multi_media":U: FIND FIRST lby_gsm_multi_media EXCLUSIVE-LOCK WHERE ROWID(lby_gsm_multi_media) = ROWID(lbx_gsm_multi_media) NO-ERROR. IF AVAILABLE lby_gsm_multi_media THEN DO: {af/sup/afvalidtrg.i &action = "DELETE" &table = "lby_gsm_multi_media"} END. END. /* Update Audit Log */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gscde':U AND gsc_entity_mnemonic.auditing_enabled = YES) THEN RUN af/app/afauditlgp.p (INPUT "DELETE":U, INPUT "gscde":U, INPUT BUFFER gsc_dataset_entity:HANDLE, INPUT BUFFER o_gsc_dataset_entity:HANDLE). /* Standard bottom of DELETE trigger code */ {af/sup/aftrigendd.i} /* Place any specific DELETE trigger customisations here */ " YES

"icf/trg/gscdetrigd.p"

"REPLICATION-CREATE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR REPLICATION-CREATE OF gsc_dataset_entity. {af/sup/afreplicat.i &TABLE-NAME = "gsc_dataset_entity" &TABLE-FLA = "gscde" &TABLE-PK = "dataset_entity_obj" &ACTION = "CREATE" &VERSION-DATA = "YES" } " YES

"icf/trg/gscdereplc.p"

"REPLICATION-DELETE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR REPLICATION-DELETE OF gsc_dataset_entity. {af/sup/afreplicat.i &TABLE-NAME = "gsc_dataset_entity" &TABLE-FLA = "gscde" &TABLE-PK = "dataset_entity_obj" &ACTION = "DELETE" &VERSION-DATA = "YES" } " YES

"icf/trg/gscderepld.p"

"REPLICATION-WRITE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR REPLICATION-WRITE OF gsc_dataset_entity OLD BUFFER lb_old. {af/sup/afreplicat.i &TABLE-NAME = "gsc_dataset_entity" &TABLE-FLA = "gscde" &TABLE-PK = "dataset_entity_obj" &OLD-BUFFER = "lb_old" &ACTION = "WRITE" &VERSION-DATA = "YES" } " YES

"icf/trg/gscdereplw.p"

"WRITE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR WRITE OF gsc_dataset_entity OLD BUFFER o_gsc_dataset_entity. /* Created automatically using ERwin ICF Trigger template db/af/erw/afercustrg.i Do not change manually. Customisations to triggers should be placed in separate include files pulled into the trigger. ICF auto generates write trigger custom include files. Delete or create customisation include files need to be created manually. Be sure to put the hook in ERwin directly so as not to have you changes overwritten. User defined Macro (UDP) Summary (case sensitive) gsc_dataset_entity Expands to full table name, e.g. gsm_user %TableFLA Expands to table unique code, e.g. gsmus %TableObj If blank or not defined expands to table_obj with no prefix (framework standard) If defined, uses this field as the object field If set to "none" then indicates table does not have an object field XYZ Do not define so we can compare against an empty string See docs for explanation of replication macros */ &SCOPED-DEFINE TRIGGER_TABLE gsc_dataset_entity &SCOPED-DEFINE TRIGGER_FLA gscde &SCOPED-DEFINE TRIGGER_OBJ dataset_entity_obj DEFINE BUFFER lb_table FOR gsc_dataset_entity. /* Used for recursive relationships */ DEFINE BUFFER lb1_table FOR gsc_dataset_entity. /* Used for lock upgrades */ /* Standard top of WRITE trigger code */ {af/sup/aftrigtopw.i} /* properform fields if enabled for table */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gscde':U AND gsc_entity_mnemonic.auto_properform_strings = YES) THEN RUN af/app/afpropfrmp.p (INPUT BUFFER gsc_dataset_entity:HANDLE). /* Generated by ICF ERwin Template */ /* ryc_relationship is the join for gsc_dataset_entity ON CHILD UPDATE SET NULL */ IF NEW gsc_dataset_entity OR gsc_dataset_entity.relationship_obj <> o_gsc_dataset_entity.relationship_obj THEN DO: IF NOT(CAN-FIND(FIRST ryc_relationship WHERE gsc_dataset_entity.relationship_obj = ryc_relationship.relationship_obj)) THEN DO: ASSIGN gsc_dataset_entity.relationship_obj = 0 . END. END. /* Generated by ICF ERwin Template */ /* gsc_entity_mnemonic is the join partner for gsc_dataset_entity ON CHILD UPDATE SET NULL */ IF NEW gsc_dataset_entity OR gsc_dataset_entity.join_entity_mnemonic <> o_gsc_dataset_entity.join_entity_mnemonic THEN DO: IF NOT(CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_dataset_entity.join_entity_mnemonic = gsc_entity_mnemonic.entity_mnemonic)) THEN DO: ASSIGN gsc_dataset_entity.join_entity_mnemonic = "":U . END. END. /* Generated by ICF ERwin Template */ /* gsc_entity_mnemonic is included in gsc_dataset_entity ON CHILD UPDATE RESTRICT */ IF NEW gsc_dataset_entity OR gsc_dataset_entity.entity_mnemonic <> o_gsc_dataset_entity.entity_mnemonic THEN DO: IF NOT(CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_dataset_entity.entity_mnemonic = gsc_entity_mnemonic.entity_mnemonic)) THEN DO: /* Cannot update child because parent does not exist ! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 103 lv-include = "gsc_dataset_entity|gsc_entity_mnemonic":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. END. /* Generated by ICF ERwin Template */ /* gsc_deploy_dataset includes gsc_dataset_entity ON CHILD UPDATE RESTRICT */ IF NEW gsc_dataset_entity OR gsc_dataset_entity.deploy_dataset_obj <> o_gsc_dataset_entity.deploy_dataset_obj THEN DO: IF NOT(CAN-FIND(FIRST gsc_deploy_dataset WHERE gsc_dataset_entity.deploy_dataset_obj = gsc_deploy_dataset.deploy_dataset_obj)) THEN DO: /* Cannot update child because parent does not exist ! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 103 lv-include = "gsc_dataset_entity|gsc_deploy_dataset":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. END. IF NOT NEW gsc_dataset_entity AND gsc_dataset_entity.{&TRIGGER_OBJ} <> o_gsc_dataset_entity.{&TRIGGER_OBJ} THEN DO: ASSIGN lv-error = YES lv-errgrp = "AF":U lv-errnum = 13 lv-include = "table object number":U. RUN error-message (lv-errgrp,lv-errnum,lv-include). END. /* Customisations to WRITE trigger */ {icf/trg/gscdetrigw.i} /* Update Audit Log */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gscde':U AND gsc_entity_mnemonic.auditing_enabled = YES) THEN RUN af/app/afauditlgp.p (INPUT "WRITE":U, INPUT "gscde":U, INPUT BUFFER gsc_dataset_entity:HANDLE, INPUT BUFFER o_gsc_dataset_entity:HANDLE). /* Standard bottom of WRITE trigger code */ {af/sup/aftrigendw.i} " YES

"icf/trg/gscdetrigw.p"

"dataset_entity_obj"

"decimal"

"->>>>>>>>>>>>>>>>>9.999999999" "Dataset entity obj"

"0" 10 9 "" "Dataset entity obj" NO

? "o_obj"

"delete_related_records"

"logical"

"YES/NO" "Delete related records"

"YES" 90 ? "If set to YES, any records for this dataset entity related to the parent entity will be deleted. If set to NO, records in this entity will not be deleted before applying the new dataset records. For example, a dataset linking objects and menu items would typically not want to first delete the menu item records so that user defined menu items are preserved, whereas a dataset relating entity mnemonics to entity display fields would require the deletion of existing data first before applying the new set. If delete_related_records is YES then overwrite_records must also be YES. This flag is specifically related to data updates, when new information is coming in from an ADO. When deploying out a deletion, the deletion_action field is used to determine what and how to delete the related data. What to delete could be different between deployments of updates and deployments of deletions. " "Delete related records" NO

"VIEW-AS TOGGLE-BOX"

? "l_yesno"

"deletion_action"

"character"

"X(1)" "Deletion action"

"" 140 ? "The deletion action decides the action to be taken when a record is deleted as a result of a deployed deletion. Valid values are: C - CASCADE When a record in the parent entity is deleted, each related record in the child entity is also deleted. S - SET NULL When a record in the parent entity is deleted, the foreign key attributes or columns in each related record of the child entity are set to Null. N = NONE No deletion action is required. This flag is specifically related to deployment of data deletion - and is different in meaning to the delete_related_records flag which is used when doing updates of new information coming in from an ADO. When deploying out an update the delete_related_records flag is used to determine what to delete before bringing in the new data. What to delete could be different between deployments of updates and deployments of deletions. " "Deletion action" NO

? "s_string_1"

"deploy_dataset_obj"

"decimal"

"->>>>>>>>>>>>>>>>>9.999999999" "Deploy dataset obj"

"0" 20 9 "" "Deploy dataset obj" NO

? "o_obj"

"entity_mnemonic"

"character"

"X(8)" "Entity"

"" 40 ? "The code allocated to every table in the database that uniquely identifies the database table. This code is used when generically joining to tables, as the basis for naming conventions (e.g. a prefix to all objects that maintain this table), etc. This code is usually stored in the dump name of the table. " "Entity" NO

? "s_entity_mnemonic"

"entity_sequence"

"integer"

"->>9" "Entity sequence"

"0" 30 ? "This field specifies the order in which the tables are dumped/loaded to or from the XML file." "Entity sequence" NO

? "n_integer_3"

"exclude_field_list"

"character"

"X(500)" "Exclude field list"

"" 150 ? "This is a comma delimited list of fields for the entity that should not be updated during a deployment so as to not use customizations. An example of where this is relevant is for the extends_object_type_obj on gsc_object_type. Customers may modify this to point at a different object type so that they can customize in the middle of the class hierarchy. For example, they may change the SDO class to extend mySDO to that the custom behavior applies to all existing SDOs without changing the object type. With the extends_object_type_obj field in the exclude field list, this would not be overwritten at deployment, thus preserving the customizations. If this is a new record, then fields in the exclude field list will be ignored. This just applies to updates. " "Exclude field list" NO

"VIEW-AS EDITOR SIZE 70 BY 8 SCROLLBAR-VERTICAL MAX-CHARS 500"

? "s_small_text_block"

1000

"filter_where_clause"

"character"

"X(500)" "Filter where clause"

"" 80 ? "This field contains a WHERE clause that can be applied to a QUERY-PREPARE method that filters the data in this table. eg: Only deploying data specific to a site, product, or product module." "Filter where clause" NO

"VIEW-AS EDITOR SIZE 70 BY 8 SCROLLBAR-VERTICAL MAX-CHARS 500"

? "s_small_text_block"

1000

"join_entity_mnemonic"

"character"

"X(8)" "Join entity"

"" 60 ? "The code allocated to every table in the database that uniquely identifies the database table. This code is used when generically joining to tables, as the basis for naming conventions (e.g. a prefix to all objects that maintain this table), etc. This code is usually stored in the dump name of the table. " "Join entity" NO

? "s_entity_mnemonic"

"join_field_list"

"character"

"X(70)" "Join field list"

"" 70 ? "If this record has the primary_entity flag switched on, this field contains a list of fields on the table whose values will be provided as an input parameter to the procedure that writes out the XML file. For example, if the primary table name were gsc_entity_mnemonic and the intention was to deploy datasets for specific entity_mnemonics only, this field would contain the entity_mnemonic field and the input parameter would be the value of the entity_mnemonic field. If this record is not the primary entity, this field contains a comma-separated list of field name pairs made as follows: The first entry in each pair contains the name of the field on this table with no prefix. The second entry in each pair contains a field on the join partner specified by the join_entity_mnemonic with no table prefix. " "Join field list" NO

? "s_big_description"

140

"keep_own_site_data"

"logical"

"YES/NO" "Keep own site data"

"NO" 110 ? "This is used in conjunction with the delete_related_records flag and is only applicable if this is set to YES. If set to YES, then any data for the current site number will not be deleted, e.g. to preserve own menu items. " "Keep own site data" NO

"VIEW-AS TOGGLE-BOX"

? "l_noyes"

"overwrite_records"

"logical"

"YES/NO" "Overwrite records"

"YES" 100 ? "If set to YES and a record corresponding to a record in the dataset is found in the target repository, then the contents of the record will be overwritten with the contents of the dataset. If set to NO, the repository record will be left intact if it already exists. Typically this flag would be set to YES, but in the case of sequences for example, it would be set to NO so as not to overwrite sequence current values in the target repository. If delete_related_records is YES then overwrite_records must also be YES. " "Overwrite records" NO

"VIEW-AS TOGGLE-BOX"

? "l_yesno"

"primary_entity"

"logical"

"YES/NO" "Primary entity"

"NO" 50 ? "If set to YES this is the primary entity in the dataset. Each dataset must have at least 1 primary entity." "Primary entity" NO

"VIEW-AS TOGGLE-BOX"

? "l_noyes"

"relationship_obj"

"decimal"

"->>>>>>>>>>>>>>>>>9.999999999" "Relationship obj"

"0" 130 9 "" "Relationship obj" NO

? "o_obj"

"use_relationship"

"logical"

"YES/NO" "Use relationship"

"NO" 120 ? "IF this is set to YES, then the relationship information between the entity_mnemonmic and join_entity_mnemonic fields is derived from the ryc_relationship record specified by the relationship_obj. If this is set to NO, the relationship information is derived from a combination of join_field_list and filter_where_clause." "Use relationship" NO

"VIEW-AS TOGGLE-BOX"

? "l_noyes"

"XPKgsc_dataset_entity"

"Schema Area"

? YES YES YES ? 6

"dataset_entity_obj"

YES NO

"XAK1gsc_dataset_entity"

"Schema Area"

? NO YES YES ? 6

"deploy_dataset_obj"

YES NO

"entity_sequence"

YES NO

"XIE1gsc_dataset_entity"

"Schema Area"

? NO YES NO ? 6

"entity_mnemonic"

YES NO

"XIE3gsc_dataset_entity"

"Schema Area"

? NO YES NO ? 6

"deploy_dataset_obj"

YES NO

"primary_entity"

YES NO

"entity_mnemonic"

YES NO

"XIE4gsc_dataset_entity"

"Schema Area"

? NO YES NO ? 6

"join_entity_mnemonic"

YES NO

"dataset_entity_obj"

YES NO

"XIE5gsc_dataset_entity"

"Schema Area"

? NO YES NO ? 6

"relationship_obj"

YES NO

32837

YES 1 2 ?

"relationship_obj"

32838

YES 1 2 ?

"join_entity_mnemonic"

32839

YES 1 2 ?

"entity_mnemonic"

32840

YES 1 2 ?

"deploy_dataset_obj"

"gsc_default_code"

"gscdc"

"Schema Area"

NO "This table makes provision for any number of parameters or system defaults that need be specified to the system, without neccessitating structural database changes. How these parameters / defaults are used needs to be hard coded into the application. These records can be grouped into sets under gsc_default_set, to facilitate different parameter / defaults sets. Again, the selection of a default set would be coded into the application. An example would be different parameter sets for warehouse control, different controls per administration group etc."

NO ? ""

6 no 14 4 10 11

"CREATE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR CREATE OF gsc_default_code . /* Created automatically using ERwin ICF Trigger template db/af/erw/afercustrg.i Do not change manually. Customisations to triggers should be placed in separate include files pulled into the trigger. ICF auto generates write trigger custom include files. Delete or create customisation include files need to be created manually. Be sure to put the hook in ERwin directly so as not to have you changes overwritten. User defined Macro (UDP) Summary (case sensitive) gsc_default_code Expands to full table name, e.g. gsm_user %TableFLA Expands to table unique code, e.g. gsmus %TableObj If blank or not defined expands to table_obj with no prefix (framework standard) If defined, uses this field as the object field If set to "none" then indicates table does not have an object field XYZ Do not define so we can compare against an empty string See docs for explanation of replication macros */ &SCOPED-DEFINE TRIGGER_TABLE gsc_default_code &SCOPED-DEFINE TRIGGER_FLA gscdc &SCOPED-DEFINE TRIGGER_OBJ default_code_obj DEFINE BUFFER lb_table FOR gsc_default_code. /* Used for recursive relationships */ DEFINE BUFFER lb1_table FOR gsc_default_code. /* Used for lock upgrades */ DEFINE BUFFER o_gsc_default_code FOR gsc_default_code. /* Standard top of CREATE trigger code */ {af/sup/aftrigtopc.i} /* Generated by ICF ERwin Template */ /* gsc_entity_mnemonic gsc_default_code ON CHILD INSERT RESTRICT */ IF ( gsc_default_code.owning_entity_mnemonic <> "":U ) THEN DO: IF NOT(CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_default_code.owning_entity_mnemonic = gsc_entity_mnemonic.entity_mnemonic)) THEN DO: /* Cannot create child because parent does not exist ! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 102 lv-include = "gsc_default_code|gsc_entity_mnemonic":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. END. /* Generated by ICF ERwin Template */ /* gsc_default_set has gsc_default_code ON CHILD INSERT RESTRICT */ IF ( gsc_default_code.default_set_code <> "":U ) THEN DO: IF NOT(CAN-FIND(FIRST gsc_default_set WHERE gsc_default_code.default_set_code = gsc_default_set.default_set_code)) THEN DO: /* Cannot create child because parent does not exist ! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 102 lv-include = "gsc_default_code|gsc_default_set":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. END. ASSIGN gsc_default_code.{&TRIGGER_OBJ} = getNextObj() NO-ERROR. IF ERROR-STATUS:ERROR THEN DO: ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 31 lv-include = "gsc_default_code|the specified object number. Please ensure your database sequences have been set correctly":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. /* Update Audit Log */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gscdc':U AND gsc_entity_mnemonic.auditing_enabled = YES) THEN RUN af/app/afauditlgp.p (INPUT "CREATE":U, INPUT "gscdc":U, INPUT BUFFER gsc_default_code:HANDLE, INPUT BUFFER o_gsc_default_code:HANDLE). /* Standard bottom of CREATE trigger code */ {af/sup/aftrigendc.i} /* Place any specific CREATE trigger customisations here */ " YES

"icf/trg/gscdctrigc.p"

"DELETE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR DELETE OF gsc_default_code . /* Created automatically using ERwin ICF Trigger template db/af/erw/afercustrg.i Do not change manually. Customisations to triggers should be placed in separate include files pulled into the trigger. ICF auto generates write trigger custom include files. Delete or create customisation include files need to be created manually. Be sure to put the hook in ERwin directly so as not to have you changes overwritten. User defined Macro (UDP) Summary (case sensitive) gsc_default_code Expands to full table name, e.g. gsm_user %TableFLA Expands to table unique code, e.g. gsmus %TableObj If blank or not defined expands to table_obj with no prefix (framework standard) If defined, uses this field as the object field If set to "none" then indicates table does not have an object field XYZ Do not define so we can compare against an empty string See docs for explanation of replication macros */ &SCOPED-DEFINE TRIGGER_TABLE gsc_default_code &SCOPED-DEFINE TRIGGER_FLA gscdc &SCOPED-DEFINE TRIGGER_OBJ default_code_obj DEFINE BUFFER lb_table FOR gsc_default_code. /* Used for recursive relationships */ DEFINE BUFFER lb1_table FOR gsc_default_code. /* Used for lock upgrades */ DEFINE BUFFER o_gsc_default_code FOR gsc_default_code. /* Standard top of DELETE trigger code */ {af/sup/aftrigtopd.i} /* Generic comments deletion */ DEFINE BUFFER lbx_gsm_comment FOR gsm_comment. DEFINE BUFFER lby_gsm_comment FOR gsm_comment. IF CAN-FIND(FIRST lbx_gsm_comment WHERE lbx_gsm_comment.owning_obj = gsc_default_code.{&TRIGGER_OBJ}) THEN FOR EACH lbx_gsm_comment NO-LOCK WHERE lbx_gsm_comment.owning_obj = gsc_default_code.{&TRIGGER_OBJ} ON STOP UNDO, RETURN ERROR "AF^104^gscdctrigd.p^delete gsm_comment":U: FIND FIRST lby_gsm_comment EXCLUSIVE-LOCK WHERE ROWID(lby_gsm_comment) = ROWID(lbx_gsm_comment) NO-ERROR. IF AVAILABLE lby_gsm_comment THEN DO: {af/sup/afvalidtrg.i &action = "DELETE" &table = "lby_gsm_comment"} END. END. /* Generic security allocation deletion */ DEFINE BUFFER lbx_gsm_user_allocation FOR gsm_user_allocation. DEFINE BUFFER lby_gsm_user_allocation FOR gsm_user_allocation. IF CAN-FIND(FIRST lbx_gsm_user_allocation WHERE lbx_gsm_user_allocation.owning_obj = gsc_default_code.{&TRIGGER_OBJ}) THEN FOR EACH lbx_gsm_user_allocation NO-LOCK WHERE lbx_gsm_user_allocation.owning_obj = gsc_default_code.{&TRIGGER_OBJ} ON STOP UNDO, RETURN ERROR "AF^104^gscdctrigd.p^delete gsm_user_allocation":U: FIND FIRST lby_gsm_user_allocation EXCLUSIVE-LOCK WHERE ROWID(lby_gsm_user_allocation) = ROWID(lbx_gsm_user_allocation) NO-ERROR. IF AVAILABLE lby_gsm_user_allocation THEN DO: {af/sup/afvalidtrg.i &action = "DELETE" &table = "lby_gsm_user_allocation"} END. END. /* Generic multi-media deletion */ DEFINE BUFFER lbx_gsm_multi_media FOR gsm_multi_media. DEFINE BUFFER lby_gsm_multi_media FOR gsm_multi_media. IF CAN-FIND(FIRST lbx_gsm_multi_media WHERE lbx_gsm_multi_media.owning_obj = gsc_default_code.{&TRIGGER_OBJ}) THEN FOR EACH lbx_gsm_multi_media NO-LOCK WHERE lbx_gsm_multi_media.owning_obj = gsc_default_code.{&TRIGGER_OBJ} ON STOP UNDO, RETURN ERROR "AF^104^gscdctrigd.p^delete gsm_multi_media":U: FIND FIRST lby_gsm_multi_media EXCLUSIVE-LOCK WHERE ROWID(lby_gsm_multi_media) = ROWID(lbx_gsm_multi_media) NO-ERROR. IF AVAILABLE lby_gsm_multi_media THEN DO: {af/sup/afvalidtrg.i &action = "DELETE" &table = "lby_gsm_multi_media"} END. END. /* Update Audit Log */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gscdc':U AND gsc_entity_mnemonic.auditing_enabled = YES) THEN RUN af/app/afauditlgp.p (INPUT "DELETE":U, INPUT "gscdc":U, INPUT BUFFER gsc_default_code:HANDLE, INPUT BUFFER o_gsc_default_code:HANDLE). /* Standard bottom of DELETE trigger code */ {af/sup/aftrigendd.i} /* Place any specific DELETE trigger customisations here */ " YES

"icf/trg/gscdctrigd.p"

"REPLICATION-CREATE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR REPLICATION-CREATE OF gsc_default_code. {af/sup/afreplicat.i &TABLE-NAME = "gsc_default_code" &TABLE-FLA = "gscdc" &TABLE-PK = "default_set_code, owning_entity_mnemonic, field_name, effective_date" &ACTION = "CREATE" &VERSION-DATA = "YES" } " YES

"icf/trg/gscdcreplc.p"

"REPLICATION-DELETE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR REPLICATION-DELETE OF gsc_default_code. {af/sup/afreplicat.i &TABLE-NAME = "gsc_default_code" &TABLE-FLA = "gscdc" &TABLE-PK = "default_set_code, owning_entity_mnemonic, field_name, effective_date" &ACTION = "DELETE" &VERSION-DATA = "YES" } " YES

"icf/trg/gscdcrepld.p"

"REPLICATION-WRITE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR REPLICATION-WRITE OF gsc_default_code OLD BUFFER lb_old. {af/sup/afreplicat.i &TABLE-NAME = "gsc_default_code" &TABLE-FLA = "gscdc" &TABLE-PK = "default_set_code, owning_entity_mnemonic, field_name, effective_date" &OLD-BUFFER = "lb_old" &ACTION = "WRITE" &VERSION-DATA = "YES" } " YES

"icf/trg/gscdcreplw.p"

"WRITE" "/********************************************************************* * Copyright (C) 2000 by Progress Software Corporation ("PSC"), * * 14 Oak Park, Bedford, MA 01730, and other contributors as listed * * below. All Rights Reserved. * * * * The Initial Developer of the Original Code is PSC. The Original * * Code is Progress IDE code released to open source December 1, 2000.* * * * The contents of this file are subject to the Possenet Public * * License Version 1.0 (the "License"); you may not use this file * * except in compliance with the License. A copy of the License is * * available as of the date of this notice at * * http://www.possenet.org/license.html * * * * Software distributed under the License is distributed on an "AS IS"* * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. You* * should refer to the License for the specific language governing * * rights and limitations under the License. * * * * Contributors: MIP Holdings (Pty) Ltd ("MIP") * * PSC * * * *********************************************************************/ TRIGGER PROCEDURE FOR WRITE OF gsc_default_code OLD BUFFER o_gsc_default_code. /* Created automatically using ERwin ICF Trigger template db/af/erw/afercustrg.i Do not change manually. Customisations to triggers should be placed in separate include files pulled into the trigger. ICF auto generates write trigger custom include files. Delete or create customisation include files need to be created manually. Be sure to put the hook in ERwin directly so as not to have you changes overwritten. User defined Macro (UDP) Summary (case sensitive) gsc_default_code Expands to full table name, e.g. gsm_user %TableFLA Expands to table unique code, e.g. gsmus %TableObj If blank or not defined expands to table_obj with no prefix (framework standard) If defined, uses this field as the object field If set to "none" then indicates table does not have an object field XYZ Do not define so we can compare against an empty string See docs for explanation of replication macros */ &SCOPED-DEFINE TRIGGER_TABLE gsc_default_code &SCOPED-DEFINE TRIGGER_FLA gscdc &SCOPED-DEFINE TRIGGER_OBJ default_code_obj DEFINE BUFFER lb_table FOR gsc_default_code. /* Used for recursive relationships */ DEFINE BUFFER lb1_table FOR gsc_default_code. /* Used for lock upgrades */ /* Standard top of WRITE trigger code */ {af/sup/aftrigtopw.i} /* properform fields if enabled for table */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gscdc':U AND gsc_entity_mnemonic.auto_properform_strings = YES) THEN RUN af/app/afpropfrmp.p (INPUT BUFFER gsc_default_code:HANDLE). /* Generated by ICF ERwin Template */ /* gsc_entity_mnemonic gsc_default_code ON CHILD UPDATE RESTRICT */ IF NEW gsc_default_code OR gsc_default_code.owning_entity_mnemonic <> o_gsc_default_code.owning_entity_mnemonic THEN DO: IF NOT(CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_default_code.owning_entity_mnemonic = gsc_entity_mnemonic.entity_mnemonic)) THEN DO: /* Cannot update child because parent does not exist ! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 103 lv-include = "gsc_default_code|gsc_entity_mnemonic":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. END. /* Generated by ICF ERwin Template */ /* gsc_default_set has gsc_default_code ON CHILD UPDATE RESTRICT */ IF NEW gsc_default_code OR gsc_default_code.default_set_code <> o_gsc_default_code.default_set_code THEN DO: IF NOT(CAN-FIND(FIRST gsc_default_set WHERE gsc_default_code.default_set_code = gsc_default_set.default_set_code)) THEN DO: /* Cannot update child because parent does not exist ! */ ASSIGN lv-error = YES lv-errgrp = "AF ":U lv-errnum = 103 lv-include = "gsc_default_code|gsc_default_set":U. RUN error-message (lv-errgrp, lv-errnum, lv-include). END. END. IF NOT NEW gsc_default_code AND gsc_default_code.{&TRIGGER_OBJ} <> o_gsc_default_code.{&TRIGGER_OBJ} THEN DO: ASSIGN lv-error = YES lv-errgrp = "AF":U lv-errnum = 13 lv-include = "table object number":U. RUN error-message (lv-errgrp,lv-errnum,lv-include). END. /* Customisations to WRITE trigger */ {icf/trg/gscdctrigw.i} /* Update Audit Log */ IF CAN-FIND(FIRST gsc_entity_mnemonic WHERE gsc_entity_mnemonic.entity_mnemonic = 'gscdc':U AND gsc_entity_mnemonic.auditing_enabled = YES) THEN RUN af/app/afauditlgp.p (INPUT "WRITE":U, INPUT "gscdc":U, INPUT BUFFER gsc_default_code:HANDLE, INPUT BUFFER o_gsc_default_code:HANDLE). /* Standard bottom of WRITE trigger code */ {af/sup/aftrigendw.i} " YES

"icf/trg/gscdctrigw.p"

"data_type"

"character"

"X(10)" "Data type"

"" 50 ? "The PROGRESS data type of this profile code as follows: CHR = CHARACTER INT = INTEGER DEC = DECIMAL DAT = DATE" "Data type" NO

? "s_data_type"

"default_code_obj"

"decimal"

"->>>>>>>>>>>>>>>>>9.999999999" "Default code obj"

"0" 70 9 "" "Default code obj" NO

? "o_obj"

"default_set_code"

"character"

"X(10)" "Default set code"

"" 10 ? "A code to uniquely identify this default set code." "Default set code" NO

? "s_code"

"effective_date"

"date"

"99/99/9999" "Effective date"

? 40 ? "The date this default code became effective. This rate is effective until a new effective date is entered." "Effective date" NO

? "d_start_date"

"field_name"

"character"

"X(70)" "Field name"

"" 30 ? "The field name used to uniquely identify the default code within the default set." "Field name" NO

? "s_big_name"

140

"field_value"

"character"

"X(70)" "Field value"

"" 60 ? "The value for the default, always in character format. Where this is not character, it would need to be converted to the appropriate data_type before being used by the application. The update program should set this value using a field type of the data_type to force a level of input validation, and then convert this to character to store in this field." "Field value" NO

? "s_big_description"

140

"owning_entity_mnemonic"

"character"

"X(8)" "Owning entity"

"" 20 ? "The code allocated to every table in the database that uniquely identifies the database table. This code is used when generically joining to tables, as the basis for naming conventions (e.g. a prefix to all objects that maintain this table), etc. This code is usually stored in the dump name of the table. " "Owning entity" NO

? "s_entity_mnemonic"

"XPKgsc_default_code"

"Schema Area"

? YES YES YES ? 6

"default_set_code"

YES NO

"owning_entity_mnemonic"

YES NO

"field_name"

YES NO

"effective_date"

YES NO

"XAK1gsc_default_code"

"Schema Area"

? NO YES YES ? 6

"default_code_obj"

YES NO

32851

"Is for"

YES 1 2 ?

"owning_entity_mnemonic"

32852

YES 1 2 ?

"default_set_code"

"gsc_default_set"

"gscds"

"Schema Area"

NO "This table is used to associate a set of parameters / defaults i.e. a set of gsc_default_code records. For example, there could be a general set of defaults applicable to the system in general, and other sets of defaults to be used in certain circumstances e.g. for a specific department. The way these sets are used must be hard coded into the application."

NO ? ""

6 no 20 4 10 7