Scribd
Upload
7 views

Table Template

The document outlines the subroutines TSC.CUSTOMER and TSC.CUSTOMER.FIELDS, which define the structure and fields for a customer application. It includes metadata such as authorship, modification history, and field definitions for various customer attributes. The document also specifies the necessary inserts and control logic for the application.

Uploaded by

Raji Veera
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
7 views

Table Template

The document outlines the subroutines TSC.CUSTOMER and TSC.CUSTOMER.FIELDS, which define the structure and fields for a customer application. It includes metadata such as authorship, modification history, and field definitions for various customer attributes. The document also specifies the necessary inserts and control logic for the application.

Uploaded by

Raji Veera
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

*-----------------------------------------------------------------------------

* <Rating>-13</Rating>
*-----------------------------------------------------------------------------
SUBROUTINE TSC.CUSTOMER
*-----------------------------------------------------------------------------
*<doc>
* TODO add a description of the application here.
* @author [email protected]
* @stereotype Application
* @package TODO define the product group and product, e.g. infra.eb
* </doc>
*-----------------------------------------------------------------------------
* TODO - You MUST write a .FIELDS routine for the field definitions
*-----------------------------------------------------------------------------
* Modification History :
*-----------------------
* 19/10/07 - EN_10003543
* New Template changes
* ----------------------------------------------------------------------------
* <region name= Inserts>
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_Table
* </region>
*-----------------------------------------------------------------------------
Table.name = 'TSC.CUSTOMER' ;* Full application name including product
prefix
Table.title = 'TSC CUSTOMER' ;* Screen title
Table.stereotype = 'H' ;* H, U, L, W or T
Table.product = 'EB' ;* Must be on EB.PRODUCT
Table.subProduct = '' ;* Must be on EB.SUB.PRODUCT
Table.classification = 'INT' ;* As per FILE.CONTROL
Table.systemClearFile = 'Y' ;* As per FILE.CONTROL
Table.relatedFiles = '' ;* As per FILE.CONTROL
Table.isPostClosingFile = '' ;* As per FILE.CONTROL
Table.equatePrefix = 'TSC.CUS' ;* Use to create I_F.EB.LOG.PARAMETER
*-----------------------------------------------------------------------------
Table.idPrefix = '' ;* Used by EB.FORMAT.ID if set
Table.blockedFunctions = '' ;* Space delimeted list of blocked
functions
Table.trigger = '' ;* Trigger field used for OPERATION style fields
*-----------------------------------------------------------------------------

RETURN
END

*-----------------------------------------------------------------------------
* <Rating>-7</Rating>
*-----------------------------------------------------------------------------
SUBROUTINE TSC.CUSTOMER.FIELDS
*-----------------------------------------------------------------------------
*<doc>
* Template for field definitions routine TSC.CUSTOMER.FIELDS
*
* @author [email protected]
* @stereotype fields template
* @uses Table
* @public Table Creation
* @package infra.eb
* </doc>
*-----------------------------------------------------------------------------
* Modification History :
*
* 19/10/07 - EN_10003543
* New Template changes
*
* 14/11/07 - BG_100015736
* Exclude routines that are not released
*-----------------------------------------------------------------------------
*** <region name= Header>
*** <desc>Inserts and control logic</desc>
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_DataTypes
*** </region>
*-----------------------------------------------------------------------------
CALL Table.defineId("TSCNo", T24_String) ;* Define Table id
*-----------------------------------------------------------------------------

fieldName = 'Name'
fieldType = 'A'
fieldLength = '35'
neighbour = ''
CALL Table.addFieldDefinition(fieldName, fieldLength, fieldType, neighbour) ;*
Add a new field
*
fieldName = 'Phonenumber'
fieldType = ''
fieldLength = '35'
neighbour = ''
CALL Table.addFieldDefinition(fieldName, fieldLength, fieldType, neighbour) ;*
Add a new field

*
fieldName = 'EMCustomerID'
fieldType = ''
fieldLength = '10'
neighbour = ''
CALL Table.addFieldDefinition(fieldName, fieldLength, fieldType, neighbour) ;*
Add a new field
fileName = 'CUSTOMER'
CALL Field.setCheckFile(fileName)

CALL Table.addFieldWithEbLookup(fieldName,virtualTableName,neighbour) ; Specify


Lookup values
CALL Field.setDefault(defaultValue) ; Assign default value
*-----------------------------------------------------------------------------
CALL Table.setAuditPosition ;* Poputale audit information
*-----------------------------------------------------------------------------
RETURN
*-----------------------------------------------------------------------------
END

You might also like