Builder Solutions inc. http://www.buildersolutions.com We specialize in LANSA (Green Screen, Web and Visual LANSA) Thu, 13 Oct 2011 16:49:02 +0000 en hourly 1 http://wordpress.org/?v=3.2.1 LANSA Speed of Data I/Os http://www.buildersolutions.com/2011/10/lansa-speed-of-data-ios/ http://www.buildersolutions.com/2011/10/lansa-speed-of-data-ios/#comments Thu, 13 Oct 2011 16:49:02 +0000 admin http://www.buildersolutions.com/?p=91 ↓ Read the rest of this entry...]]>

per dingo

(1) select continue() endselect
(2) select where() endselect
(3) select_sql
(4) select_sql using()

(1) is the slowest method if LANSA is generating SQL statements based on the select command because the dataset must be generated first and then the code will traverse the entire dataset . (2) is faster than (1) when the fields in the where statement belong to the file and will not cause an Access Path to be built at runtime.

(3) and (4) are the fastest because they do not call the OAM after each record is read.

(4) is faster then (3) when you can utilize TOP(1) instead of FETCH (get 1 record), or using TOP(n) to minimize the dataset. Also (4) can be used to do very complex joins utilizing all the power of SQL (Group By, count , etc)

It is still horses for courses. Factors: existing access paths, complexity of where clause, call server function or just access from client, how many records are being read, is the OAM required when reading records .

Cost v Benefit = Code Complexity v Improved Performance .

For batch processing, reports and server functions (retrieving Instance lists ) we tend to use select_sql and select_sql using() .
For client side we just use standard select and fetch statements.

Its amazing how much faster a cleverly constructed SQL statement with Joins will perform versus using Selects and Fetches to collect the data.

]]> http://www.buildersolutions.com/2011/10/lansa-speed-of-data-ios/feed/ 0 LANSA Group on Yahoo http://www.buildersolutions.com/2011/03/lansa-group-on-yahoo/ http://www.buildersolutions.com/2011/03/lansa-group-on-yahoo/#comments Tue, 08 Mar 2011 17:19:05 +0000 admin http://www.buildersolutions.com/?p=87 ↓ Read the rest of this entry...]]>

The lansa group on Yahoo is run by Mark Mason of Builder Solutions inc. It is not affiliated with the LANSA Software Company in the United states and worldwide.

This group was created on Yahoo as a club and was migrated to yahoo groups when clubs dissolved.

If your posts are slow to be acknowledge, please contact me and I will resolve any issues.

Cheers,

Mark Mason
877-LANSA20

]]> http://www.buildersolutions.com/2011/03/lansa-group-on-yahoo/feed/ 0 String Parsing http://www.buildersolutions.com/2011/02/string-parsing/ http://www.buildersolutions.com/2011/02/string-parsing/#comments Sat, 26 Feb 2011 01:34:57 +0000 admin http://www.buildersolutions.com/?p=79 ↓ Read the rest of this entry...]]>


********** Created by ..: MMASON
********** Created on ..: 01/03/06 at 10:26:48
********** Description .: String Parser returns List
********** Fields In ...: XXA256I Input String
********** XXDELIM Delimiter used ','
********** Out ..: W256_LST Working List
********** =====================================================
********** FUNCTION, OPEN and EXCHANGE(*ALWAYS) statments
********** =====================================================
FUNCTION OPTIONS(*DEFERWRITE *DIRECT) RCV_LIST(#W256_LST)
**********
********** =======================================================
********** Working fields(DEFINE statments)
********** =======================================================
DEFINE FIELD(#W_LENGTH) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_FLDCNT) TYPE(*DEC) LENGTH(3) DECIMALS(0)
**********
DEF_ARRAY NAME(#ZST) INDEXES(#II) OVERLAYING(#XXA256I) TYPE(*CHAR
) TOT_ENTRY(256) ENTRY_LEN(1)
DEF_ARRAY NAME(#ZFL) INDEXES(#JJ) OVERLAYING(#XXA256J) TYPE(*CHAR
) TOT_ENTRY(256) ENTRY_LEN(1)
DEF_LIST NAME(#W256_LST) FIELDS((#XXA256F)) COUNTER(#W_FLDCNT) T
YPE(*WORKING) ENTRYS(256)
********** =======================================================
********** Screen Panel Groups(GROUP_BY statments)
********** =======================================================
********** =======================================================
********** Initalization(CHANGE and CLR_LIST statments)
********** =======================================================
CLR_LIST NAMED(#W256_LST)
**********
USE BUILTIN(TCONCAT) WITH_ARGS(#XXA256I #BLANKS) TO_GET(#XX
A256I #W_LENGTH)
********** do not allow blanks as delimeter
IF_NULL #XXDELIM
CHANGE #XXDELIM ''','''
ENDIF
BEGIN_LOOP USING(#II) FROM(1) TO(256) STEP(1)
**********
IF COND('(#ZST#II *EQ #XXDELIM) *OR (#JJ *EQ #W_LENGTH)')
CHANGE FIELD(#XXA256F) TO(#XXA256J)
ADD_ENTRY TO_LIST(#W256_LST)
CHANGE #XXA256J *BLANKS
LEAVE IF('#JJ *EQ #W_LENGTH')
CHANGE FIELD(#JJ) TO(*ZERO)
ELSE
CHANGE FIELD(#JJ) TO('#JJ + 1')
CHANGE FIELD(#ZFL#JJ) TO(#ZST#II)
ENDIF
END_LOOP

]]> http://www.buildersolutions.com/2011/02/string-parsing/feed/ 0 Find & Replace String http://www.buildersolutions.com/2011/02/find-replace-string/ http://www.buildersolutions.com/2011/02/find-replace-string/#comments Sat, 26 Feb 2011 01:33:17 +0000 admin http://www.buildersolutions.com/?p=77 ↓ Read the rest of this entry...]]>

DEFINE FIELD(#W_LEN_A) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_LEN_F) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_LEN_R) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_LEN_T) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_STR_A) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_STR_B) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_STR_C) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_STR_D) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_STR_T1) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_STR_T2) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_FIND) TYPE(*CHAR) LENGTH(035)
DEFINE FIELD(#W_REPL) TYPE(*CHAR) LENGTH(035)
DEFINE FIELD(#W_STRING) TYPE(*CHAR) LENGTH(075)
DEFINE FIELD(#W_STRINGX) TYPE(*CHAR) LENGTH(075)
/* */
DEF_LIST NAME(#L_FINDRPL) FIELDS((#W_FIND) (#W_REPL))
/* */
INZ_LIST NAMED(#L_FINDRPL) NUM_ENTRYS(50) WITH_MODE(*ADD)
REQUEST FIELDS((#W_STRING)) BROWSELIST(#L_FINDRPL)
SELECTLIST #L_FINDRPL
IF_NULL FIELD(#W_FIND #W_REPL)
ELSE
EXECUTE SUBROUTINE(FINDREPLAC) WITH_PARMS(#W_FIND #W_REPL #W_S+
TRING)
ENDIF
ENDSELECT
DISPLAY FIELDS((#W_STRING))
SUBROUTINE NAME(FINDREPLAC) PARMS((#W_FIND) (#W_REPL) (#W_STRING))
USE BUILTIN(TCONCAT) WITH_ARGS(#W_FIND #BLANK) TO_GET(#W_F+
IND #W_LEN_F)
USE BUILTIN(TCONCAT) WITH_ARGS(#W_REPL #BLANK) TO_GET(#W_R+
EPL #W_LEN_R)
USE BUILTIN(TCONCAT) WITH_ARGS(#W_STRING #BLANK) TO_GET(#W+
_STRING #W_LEN_T)
CHANGE #W_STR_T1 1
BEGIN_LOOP
USE BUILTIN(SCANSTRING) WITH_ARGS(#W_STRING #W_FIND #W_STR+
_T1) TO_GET(#W_STR_T2)
CASE #W_STR_T2
WHEN '*EQ *ZERO'
LEAVE
WHEN '*GT *ZERO'
/* do something */
CHANGE #W_LEN_A '#W_STR_T2 - 1'
CHANGE #W_STR_A 1
CHANGE #W_STR_B #W_STR_T2
CHANGE #W_STR_C '#W_STR_T2 + #W_LEN_F'
CHANGE #W_STR_D '#W_STR_T2 + #W_LEN_R'
IF_NULL #W_LEN_A
ELSE
SUBSTRING FIELD(#W_STRING #W_STR_A #W_LEN_A) INTO_FIELD(#W_STRIN+
GX #W_STR_A #W_LEN_A)
ENDIF
SUBSTRING FIELD(#W_REPL #W_STR_A #W_LEN_R) INTO_FIELD(#W_STRING+
X #W_STR_B #W_LEN_R)
SUBSTRING FIELD(#W_STRING #W_STR_C) INTO_FIELD(#W_STRINGX #W_STR+
_D)
CHANGE FIELD(#W_STRING) TO(#W_STRINGX)
CHANGE #W_STR_T1 '#W_STR_T2 + 1'
WHEN '*LT *ZERO'
LEAVE
ENDCASE
END_LOOP
ENDROUTINE


]]> http://www.buildersolutions.com/2011/02/find-replace-string/feed/ 0 Create $0,000,000.00 amounts http://www.buildersolutions.com/2011/02/create-0000000-00-amounts/ http://www.buildersolutions.com/2011/02/create-0000000-00-amounts/#comments Sat, 26 Feb 2011 01:31:37 +0000 admin http://www.buildersolutions.com/?p=75 ↓ Read the rest of this entry...]]>

This may be real old way

 


SUBROUTINE NAME(AMT2TEXT) PARMS((#W_NUMBER1) (#W_TEXTOUT))
**********
DEFINE FIELD(#W_NUMBER1) TYPE(*DEC) LENGTH(11) DECIMALS(2)
DEFINE FIELD(#W_POS_X ) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_POS_Y ) TYPE(*DEC) LENGTH(3) DECIMALS(0)
DEFINE FIELD(#W_TEXTOUT) TYPE(*CHAR) LENGTH(20)
DEFINE FIELD(#W_TEXTDFT) TYPE(*CHAR) LENGTH(20)
DEFINE FIELD(#W_CHAR1 ) TYPE(*CHAR) LENGTH(1)
DEFINE FIELD(#W_CHAR2 ) TYPE(*CHAR) LENGTH(1)
DEFINE FIELD(#W_CHAR3) TYPE(*CHAR) LENGTH(3) DEFAULT('.00')
DEFINE FIELD(#W_FIRST) TYPE(*DEC) LENGTH(3) DECIMALS(0)
**********
CHANGE #W_TEXTOUT *BLANKS
CHANGE #W_TEXTDFT '''000,000,000.00'''
CHANGE #W_POS_Y *ZERO
CHANGE #W_FIRST *ZERO
BEGIN_LOOP USING(#W_POS_X) FROM(1) TO(11)
CHANGE #W_POS_Y '#W_POS_Y + 1'
SUBSTRING (#W_NUMBER1 #W_POS_X 1) INTO_FIELD(#W_CHAR1 1 1)
**********
IF '(#W_FIRST *EQ 0) *AND (#W_CHAR1 *EQ ''0'')'
CHANGE #W_CHAR1 *BLANKS
ELSE
CHANGE #W_FIRST '#W_FIRST + 1'
ENDIF
**********
SUBSTRING (#W_TEXTDFT #W_POS_Y 1) INTO_FIELD(#W_CHAR2 1 1)
**********
IF '(#W_CHAR2 *EQ '','')'
IF '(#W_TEXTOUT *NE *BLANKS)'
SUBSTRING FIELD(#W_CHAR2 1 1) INTO_FIELD(#W_TEXTOUT #W_POS_Y 1)
ENDIF
CHANGE #W_POS_Y '#W_POS_Y + 1'
ENDIF
**********
IF '(#W_CHAR2 *EQ ''.'')'
CHANGE #W_FIRST '#W_FIRST + 1'
SUBSTRING FIELD(#W_CHAR3 1 3) INTO_FIELD(#W_TEXTOUT #W_POS_Y 3)
CHANGE #W_POS_Y '#W_POS_Y + 1'
IF_NULL #W_CHAR1
CHANGE #W_CHAR1 '''0'''
ENDIF
ENDIF
SUBSTRING FIELD(#W_CHAR1 1 1) INTO_FIELD(#W_TEXTOUT #W_POS_Y 1)
END_LOOP
**********
USE BUILTIN(LEFT) WITH_ARGS(#W_TEXTOUT) TO_GET(#W_TEXTOUT)
USE BUILTIN(TCONCAT) WITH_ARGS('''$''' #W_TEXTOUT) TO_GET(#
W_TEXTOUT)
IF '#W_NUMBER1 *LT *ZERO'
USE BUILTIN(TCONCAT) WITH_ARGS('''(''' #W_TEXTOUT ''')''')
TO_GET(#W_TEXTOUT)
ENDIF
USE BUILTIN(LEFT) WITH_ARGS(#W_TEXTOUT) TO_GET(#W_TEXTOUT)
**********
ENDROUTINE

]]> http://www.buildersolutions.com/2011/02/create-0000000-00-amounts/feed/ 0 SYSVAR Function for Alpha PIN & Random Numbers http://www.buildersolutions.com/2011/02/sysvar-function-for-alpha-pin-random-numbers/ http://www.buildersolutions.com/2011/02/sysvar-function-for-alpha-pin-random-numbers/#comments Sat, 26 Feb 2011 01:28:51 +0000 admin http://www.buildersolutions.com/?p=73 ↓ Read the rest of this entry...]]>


LANSA Version : 10.0 PROCESS DEFINITION LIST Page : 1
Produced : 6/26/07 19:46:01
Partition : DEM - Demonstration and Training Partition WELCOMEWEB
==================
Process Definition -----------> WELCOMEWEB - Welcome Web Process
==================
Anticipated usage . . . . . LIGHT
Menu selection style . . . SAA/CUA
Optimise remote comms . . . N
Enabled for the WEB . . . . Y
Enable XML generation . . . N
Last Action Details : ----------------------------------------------------------------------------------------------------
Created by QSECOFR on 12/13/2005 at 20:23:48.
Modified by QSECOFR on 12/13/2005 at 20:24:05.
Checked out by QOTHPRDOWN on 02/24/2006 at 00:21:17.
Locked to Task ID TDEM0001 by QOTHPRDOWN on 01/22/2006 at 09:46:29.
====================== Function Displayed Default Compile Menu
Function Control Table -------> Name on Menu Next Function Allowable Next Functions Rel PC Seq
====================== ---- ------- ------------- ------------------------ --- -- ---
MYAS400 YES MENU *ANY 100 I2
RIDSVAR NO MENU *ANY 100 I2
RID1010 YES MENU *ANY 100 I2
RID1020 YES MENU *ANY 100 I2
WELCOME YES MENU *ANY 100 I2
LANSA Version : 10.0 FUNCTION DEFINITION LIST Page : 2
Produced : 6/26/07 19:46:01
Partition : DEM - Demonstration and Training Partition WELCOMEWEB RIDSVAR
===================
Process Definition -----------> WELCOMEWEB - Welcome Web Process
Function Definition ----------> RIDSVAR - System variables
===================
Currently usable . . . . . YES
Actual RPG program . . . . @RIDSVAR in library DC@DEMOLIB
Actual display file . . . . @RIDSVAR in library DC@DEMOLIB
Last Action Details : ----------------------------------------------------------------------------------------------------
**** No Last Action Details available for this object ****
=====================
RDML Function Listing
=====================
********** Beginning of RDML commands **********
1 ********** =======================================================
2 ********** Process .......: WELCOMEWEB
3 ********** Function ......: RIDSVAR
4 ********** Created by ....: QSECOFR
5 ********** Created on ....: 06/26/07 at 15:59:54
6 ********** Description ...: System variables
7 ********** =======================================================
8 FUNCTION OPTIONS(*DIRECT *NOMESSAGES *LIGHTUSAGE *ALP_SYSTEM_VAR
IABLE)
9 **********
10 DEFINE FIELD(#W_PINSTR) TYPE(*CHAR) LENGTH(20)
11 DEFINE FIELD(#W_PINVAL) TYPE(*CHAR) LENGTH(03)
12 DEFINE FIELD(#W_CHAR1) TYPE(*CHAR) LENGTH(01)
13 DEFINE FIELD(#W_LAST1) TYPE(*CHAR) LENGTH(01)
14 DEFINE FIELD(#W_LASTLTR) TYPE(*CHAR) LENGTH(01)
15 DEFINE FIELD(#W_LENGTH) TYPE(*DEC) LENGTH(03) DECIMALS(0)
16 DEFINE FIELD(#W_POS1) TYPE(*DEC) LENGTH(03) DECIMALS(0)
17 DEFINE FIELD(#W_POS2) TYPE(*DEC) LENGTH(03) DECIMALS(0)
18 DEFINE FIELD(#VARWRK0) TYPE(*DEC) LENGTH(009) DECIMALS(0)
19 DEFINE FIELD(#VARWRK1) TYPE(*DEC) LENGTH(009) DECIMALS(0)
20 DEFINE FIELD(#VARWRK2) TYPE(*DEC) LENGTH(009) DECIMALS(0)
21 DEFINE FIELD(#VARWRK3) TYPE(*DEC) LENGTH(009) DECIMALS(0)
22 DEFINE FIELD(#VARWRK4) TYPE(*DEC) LENGTH(009) DECIMALS(0)
23 DEFINE FIELD(#VARWRK5) TYPE(*DEC) LENGTH(009) DECIMALS(0)
24 DEFINE FIELD(#VARWRK6) TYPE(*DEC) LENGTH(009) DECIMALS(0)
25 DEFINE FIELD(#VARWRK7) TYPE(*DEC) LENGTH(009) DECIMALS(0)
26 DEFINE FIELD(#VARWRK8) TYPE(*DEC) LENGTH(009) DECIMALS(0)
27 DEFINE FIELD(#VARWRK9) TYPE(*DEC) LENGTH(009) DECIMALS(0)
28 DEFINE FIELD(#VARCHR0) TYPE(*CHAR) LENGTH(009)
29 ********** Special Cases
30 **********
31 --CASE OF_FIELD(#SYSVAR$NM)
32 ¦--WHEN VALUE_IS('= ''*RIDPIN3''')
33 ¦ USE BUILTIN(GET_CHAR_AREA) WITH_ARGS('''RIDPINSTR''' *PARTD
¦ TALIB) TO_GET(#W_PINSTR)
34 ¦ USE BUILTIN(GET_CHAR_AREA) WITH_ARGS('''RIDPINVAL''' *PARTD
¦ TALIB) TO_GET(#W_PINVAL)
35 ¦ **********
36 ¦ USE BUILTIN(TCONCAT) WITH_ARGS(#W_PINSTR *BLANKS) TO_GET(#W
¦ _PINSTR #W_LENGTH)
37 ¦ SUBSTRING FIELD(#W_PINSTR #W_LENGTH 1) INTO_FIELD(#W_LASTLTR)
LANSA Version : 10.0 FUNCTION DEFINITION LIST Page : 3
Produced : 6/26/07 19:46:01
Partition : DEM - Demonstration and Training Partition WELCOMEWEB RIDSVAR
38 ¦ --BEGIN_LOOP USING(#W_POS2) FROM(3) TO(1) STEP(-1)
39 ¦ ¦ SUBSTRING FIELD(#W_PINVAL #W_POS2 1) INTO_FIELD(#W_CHAR1 1 1)
40 ¦ ¦ USE BUILTIN(SCANSTRING) WITH_ARGS(#W_PINSTR #W_CHAR1) TO_GE
¦ ¦ T(#W_POS1)
41 ¦ ¦ CHANGE #W_POS1 '#W_POS1 + 1'
42 ¦ ¦ --IF '(#W_POS1 > #W_LENGTH) *OR (#W_POS1 < 1)'
43 ¦ ¦ ¦ CHANGE #W_POS1 1
44 ¦ ¦ --ENDIF
45 ¦ ¦ SUBSTRING (#W_PINSTR #W_POS1 1) INTO_FIELD(#W_PINVAL #W_POS2 1)
46 ¦ ¦ SUBSTRING FIELD(#W_PINSTR #W_POS1 1) INTO_FIELD(#W_LAST1)
47 ¦ V--LEAVE IF('#W_LAST1 *NE #W_LASTLTR')
48 ¦ --END_LOOP
49 ¦ CHANGE FIELD(#SYSVAR$AV) TO(#W_PINVAL)
50 ¦ USE BUILTIN(PUT_CHAR_AREA) WITH_ARGS(#W_PINVAL '''RIDPINVAL
¦ ''' *PARTDTALIB)
51 ¦--WHEN VALUE_IS('= ''*RIDRANDOM''')
52 ¦ **********
53 ¦ CHANGE FIELD(#VARWRK1) TO(214748367)
54 ¦ CHANGE FIELD(#VARWRK2) TO(127773)
55 ¦ CHANGE FIELD(#VARWRK3) TO(16807)
56 ¦ CHANGE FIELD(#VARWRK4) TO(2836)
57 ¦ USE BUILTIN(GET_NUM_AREA) WITH_ARGS('''RANDOMNUM7''' *PARTD
¦ TALIB) TO_GET(#VARWRK0)
58 ¦ CHANGE FIELD(#VARWRK5) TO('#varwrk0 / #varwrk2')
59 ¦ CHANGE FIELD(#VARWRK6) TO('#varwrk0 - (#varwrk2 * #varwrk5)')
60 ¦ CHANGE FIELD(#VARWRK7) TO('(#varwrk3 * #varwrk6) - (#varwrk4
¦ * #varwrk5)')
61 ¦ CHANGE FIELD(#VARWRK0) TO(#VARWRK7)
62 ¦ --IF COND('#varwrk7 *le 0')
63 ¦ ¦ CHANGE FIELD(#VARWRK0) TO('#varwrk0 + #varwrk1')
64 ¦ --ENDIF
65 ¦ CHANGE FIELD(#VARWRK0) TO('#VARWRK0 / 1000')
66 ¦ USE BUILTIN(NUMERIC_STRING) WITH_ARGS(#VARWRK0) TO_GET(#VAR
¦ CHR0)
67 ¦ CHANGE FIELD(#SYSVAR$AV) TO(#VARCHR0)
68 ¦ USE BUILTIN(PUT_NUM_AREA) WITH_ARGS(#VARWRK0 '''RANDOMNUM7'
¦ '' *PARTDTALIB)
69 --ENDCASE
70 RETURN
************* End of RDML commands ************

]]> http://www.buildersolutions.com/2011/02/sysvar-function-for-alpha-pin-random-numbers/feed/ 0 What I forgot when copying a LANSA Partiton to a new AS400 http://www.buildersolutions.com/2011/02/what-i-forgot-when-copying-a-lansa-partiton-to-a-new-as400/ http://www.buildersolutions.com/2011/02/what-i-forgot-when-copying-a-lansa-partiton-to-a-new-as400/#comments Thu, 17 Feb 2011 18:43:03 +0000 admin http://www.buildersolutions.com/?p=58

3. April 2008 by admin.

Export all objects (check)

Copy Data in Files (check)

Data Areas for OLD System variables (duh)

]]> http://www.buildersolutions.com/2011/02/what-i-forgot-when-copying-a-lansa-partiton-to-a-new-as400/feed/ 0 LANSA Date Formats http://www.buildersolutions.com/2011/02/lansa-date-formats/ http://www.buildersolutions.com/2011/02/lansa-date-formats/#comments Thu, 17 Feb 2011 18:41:48 +0000 admin http://www.buildersolutions.com/?p=56 ↓ Read the rest of this entry...]]>

30. April 2008 by admin.

Date Formats

Date Built-In Functions may use one or more of the following formats as arguments and/or return values. The relevant Built-In Function’s description tells you which format is used as arguments and/or return values.

Code Format of Date
A System date format
B DDMMYY
C DD/MM/YY
D YYMMDD
E YY/MM/DD
F MMDDYY
G MM/DD/YY
H DDMMYYYY
I DD/MM/YYYY
J YYYYMMDD
K YYYY/MM/DD
L MMDDYYYY
M MM/DD/YYYY
N DDMMMYY (e.g. 03JUL87)
O DDMMMYYYY (e.g. 03JUL1987)
P DDxx MMMMMMMMM YY (e.g. 16TH SEPTEMBER 87)
Q DDxx MMMMMMMMM YYYY (e.g. 16TH SEPTEMBER 1987)
R DDD (e.g. MON, TUE, WED, etc).
S DDDDDDDDD (e.g. MONDAY, TUESDAY, WEDNESDAY, etc).
T DDDDDDDDDD (in selected language e.g. LLLLLLLLLL).
U MMMMMMMMMM (in selected language e.g. LLLLLLLLLL).
V 8 digit system date format
W YYMM
X MMYY
Y YYYYMM
Z MMYYYY
1 CYYMMDD
]]> http://www.buildersolutions.com/2011/02/lansa-date-formats/feed/ 0 The only reference to *NOBCIPT on the web, courtesy of Mark Mason http://www.buildersolutions.com/2011/02/the-only-reference-to-nobcipt-on-the-web-courtesy-of-mark-mason/ http://www.buildersolutions.com/2011/02/the-only-reference-to-nobcipt-on-the-web-courtesy-of-mark-mason/#comments Thu, 17 Feb 2011 18:40:30 +0000 admin http://www.buildersolutions.com/?p=54 ↓ Read the rest of this entry...]]>

19. May 2008 by admin.

*Noxxxxx

The contents of this variable allows you to disable:

· Borders around the browse list.

· Column headings.

· Selection image.

· Borders around empty cells in the browse list.

To turn off any of the above features, you will need to define the variable as a Text variable. The content of the variable is then set to be:

*Noxxxxx

where xxxxx can be up to five characters, identifying the feature to disable.

If you want to disable the border around the browse list, specify a ‘B’ character.

If you want to disable the column heading in the browse list, specify a ‘C’ character.

If you want to disable the selection image, specify an ‘I’ character.

If you do not want a
HTML tag around your browse list, specify a ‘T’ character.

If you do not want borders displayed around empty cells in your browse list, specify a ‘P’ character.

Note that if you disable the selection image, none of the columns in the browse list will be hyperlinked, even though you have enabled LANSA for the Web to allow selection from any column in a browse list. For example, *NOB would switch borders off.

]]>http://www.buildersolutions.com/2011/02/the-only-reference-to-nobcipt-on-the-web-courtesy-of-mark-mason/feed/0 Visual LANSA Editor Short Cuts http://www.buildersolutions.com/2011/02/visual-lansa-editor-short-cuts/ http://www.buildersolutions.com/2011/02/visual-lansa-editor-short-cuts/#comments Thu, 17 Feb 2011 18:36:58 +0000 admin http://www.buildersolutions.com/?p=50 ↓ Read the rest of this entry...]]>

28. May 2008 by admin.

Position the current line on the top of the window Ctrl + T

Position the current line in the middle of the window Ctrl + M

Position the current line on the bottom of the window Ctrl + B

Toggle a tag on a line Ctrl + F2

Remove all tags Alt + F2

Jump to the previous tagged line Ctrl + Up Arrow

Jump to the next tagged line Ctrl + Down Arrow

Comment selected text Ctrl + W

Uncomment selected text Ctrl + Shift + W

Collapse blocks. This command blocks a level at a time.
If you keep collapsing the blocks, the entire code will
be collapsed, except for lines that are not in blocks. Ctrl + F9

Expand blocks. This command expands a level at the time Ctrl +F10

Collapse the block containing the line that has the focus Ctrl + Shift + F9

Expand the collapsed block that has the editor focus Ctrl + Shift + F10

Makes selection/next character upper case Alt + UpArrow

Makes selection/next character lower case Alt + DownArrow

Delete word right Ctrl + Delete

Delete word left Ctrl + BackSpace

Delete from current position to end of line Alt + Shift + L

Cut line and place it on clipboard Ctrl + L

Copy line and place it on clipboard Alt + Q

Copy selection or line Plus key in number pad

Copy selected text to the clipboard Ctrl + Insert

Paste text from the clipboard Shift + Insert

Copy selected text to the clipboard Ctrl + C

Cut selected text to the clipboard Ctrl + X

Paste text from the clipboard Ctrl + V

Extend/reduce selection to next part of statement Ctrl + Shift + RightArrow

Extend/reduce selection to start of previous part of statement Ctrl + Shift + LeftArrow

Block select to end of line Shift + End

Block select to start of line Shift + Home

Block select to start of file Ctrl + Shift + Home

Block select to end of file Ctrl + Shift + End

Block select to page down Shift + PageDown

Block select to page up Shift + PageUp

Block select part of statement Left Button double-click

Line selection Shift + UpArrow

Line selection Shift + DownArrow

Select all text Ctrl + A

Find text Ctrl + F

Replace text Ctrl + H

Find next F3

Find previous Shift + F3

Go to line Ctrl + G

]]> http://www.buildersolutions.com/2011/02/visual-lansa-editor-short-cuts/feed/ 0