D2M1_MSSQL.TPW

#!---------------------------------------------------------------------
#!---------------------------------------------------------------------
#!---------------------------------------------------------------------
#!---------------------------------------------------------------------
#! File Name:   D2M1_MSSQL.tpw
#! Purpose:     METABASE: DCT to MSSQL creation script
#! Author:      Copyright © 1999-2999 by Roberto Artigas Jr
#!              All rights reserved world wide.
#! Changes:
#! 2019.09.11:        Roberto Artigas (for Mr. Arnold Young)
#!  *   Create single file combined MYSQL SQL generation for a backend by changing the %Basename.
#! 2019.08.14:        Roberto Artigas
#!  *   Create single file combined POSTGRESQL SQL generation for a backend.
#! 2019.07.04:        Roberto Artigas
#!  *   Added option to select files to do SQL generation.
#! 2018.06.03         Roberto Artigas
#!  *   POSTGRESQL template creation.
#!---------------------------------------------------------------------
#!---------------------------------------------------------------------
#!GROUP(%MITLicenseD2M2POSTGRESQL)
#!TAB('MIT'),PROP(PROP:FontStyle,700)
#!INSERT(%MITLicense)
#!ENDTAB
#!---------------------------------------------------------------------
#!---------------------------------------------------------------------
#!
#UTILITY(D2M1_MSSQL, '2019.10.11: [COMBINED] MSSQL script')
#!-----------------------------------------------------------------------------
#! RA.2017.12.17 - The %BaseName determines what backend you are processing.
#! All the specific items related to a backend can be coded with a case statement.
#! This will make the code easier to maintain accross all the backends.
#PREPARE
#DECLARE(%BaseName)                                                             #! Define the BACKEND here
#SET(%BaseName, 'MSSQL')                                                        #! SPECIFIC
#ENDPREPARE
#!---------------------------------------------------------------------
#INSERT(%VariablesCommon)                                                       #! Need a few simple variables
#INSERT(%GetDictionaryPath)                                                     #! Get dictionary path and names
#INSERT(%VariablesDeclare)                                                      #! Option checks and output file names
#INSERT(%VariablesSetup)                                                        #! Setup output file names
#INSERT(%FileNamesAreOne)                                                       #! RA.2019.08.14: Combined file names
#INSERT(%VariablesOptions)                                                      #! All option variables setup here
#INSERT(%DefineAreasOptions)                                                    #! File,Field,Keys,Relations
#INSERT(%ReserveWordDefines)                                                    #! Reserved Words Defines
#INSERT(%PreambleCombined)                                                      #! Basic copyright message
#!---------------------------------------------------------------------
#!SHEET,HSCROLL,AT(,,288)
#SHEET,HSCROLL,AT(,,464)
  #INSERT(%ShowVariables)
  #INSERT(%MITLicenseD2M2MSSQL)                                                 #! RA.2019.10.11: Changed
  #INSERT(%MetabaseTabSelection)                                                #! RA.2019.07.04: Added FILE selection
  #INSERT(%MetabaseTabNames)
  #INSERT(%MetabaseTabCreateDropOther)
  #INSERT(%MetabaseTabCreateDropScripting)                                      #! RA.2019.07.28: Added
  #INSERT(%MetabaseTabOptions)
  #INSERT(%MetabaseTabStrings)
  #INSERT(%MetabaseTabArrays)
#ENDSHEET
#!---------------------------------------------------------------------
#! START EXECUTION HERE
#!---------------------------------------------------------------------
#!#DECLARE(%DebugSet,LONG)
#!#SET(%DebugSet,1)
#!#DEBUG(%DebugSet)
#!
#CALL(%CombinedGenerate,%BaseName)                                              #! DDL scripts for backend
#!
#!#SET(%DebugSet,0)
#!#DEBUG(%DebugSet)
#!---------------------------------------------------------------------
#! END EXECUTION HERE
#!---------------------------------------------------------------------
#!---------------------------------------------------------------------
#!---------------------------------------------------------------------
#!---------------------------------------------------------------------