7.24.2 LANSA Repository Functions
Create a process to hold the following functions used by the repository viewer.
The following program example illustrates the JSMDirect service entries for these functions.
The partition and language values need to be changed to suit your environment.
JSMLR01 *DEFAULT JSMLANSA JSMLR01 JSM ENG
JSMLR02 *DEFAULT JSMLANSA JSMLR02 JSM ENG
JSMLR03 *DEFAULT JSMLANSA JSMLR03 JSM ENG
JSMLR04 *DEFAULT JSMLANSA JSMLR04 JSM ENG
JSMLR05 *DEFAULT JSMLANSA JSMLR05 JSM ENG
JSMLR06 *DEFAULT JSMLANSA JSMLR06 JSM ENG
JSMLR07 *DEFAULT JSMLANSA JSMLR07 JSM ENG
JSMLR08 *DEFAULT JSMLANSA JSMLR08 JSM ENG
JSMLR09 *DEFAULT JSMLANSA JSMLR09 JSM ENG
JSMLR10 *DEFAULT JSMLANSA JSMLR10 JSM ENG
JSMLR11 *DEFAULT JSMLANSA JSMLR11 JSM ENG
The following program example shows the LANSA repository defined fields for the Studio Type database files and functions.
BNDCARY Complex Array A 1
BNDCCDE Complex Code A 5
BNDCDSC Complex Desc A 80
BNDCETY Complex Entity A 40
BNDCTYP Complex Type A 50
BNDECDE Complex Code A 5
BNDEDSC Element Desc A 80
BNDEETY Element Entity A 40
BNDENME Element Name A 40
BNDESEQ Element Sequence P 3 0
BNDGCDE Group Code A 5
BNDGDSC Group Desc A 80
BNDSARY Simple Array A 1
BNDSCDE Simple Code A 5
BNDSDSC Simple Desc A 80
BNDSETY Element Entity A 40
BNDSNME Element Name A 40
BNDSTYP Simple Type A 20
The following program example shows the Studio Type database files.
BNDCTPS Bind Complex Types
10 BNDGCDE Group Code 1
20 BNDCCDE Complex Code 2
30 BNDCDSC Complex Desc
40 BNDCTYP Complex Type
50 BNDCETY Complex Entity
BNDETPS Binding Complex Type Elements
10 BNDGCDE Group Code 1
20 BNDECDE Complex Code 2
30 BNDESEQ Element Sequence 3
40 BNDEDSC Element Desc
50 BNDSCDE Simple Code
60 BNDCCDE Complex Code
70 BNDCARY Complex Array
80 BNDENME Element Name
90 BNDEETY Element Entity
BNDGTPS Binding Group Types
10 BNDGCDE Group Code 1
20 BNDGDSC Group Desc
BNDSTPS Binding Simple Types
10 BNDGCDE Group Code 1
20 BNDSCDE Simple Code 2
30 BNDSDSC Simple Desc
40 BNDSTYP Simple Type
50 BNDSARY Simple Array
60 BNDSNME Element Name
70 BNDSETY Element Entity