Saturday, September 3, 2011
Offset
OFFSET
DATA CH(10) VALUE '1234567890'.
WRITE / CH+7. "FIRST 7 VALUE SUPPESTED
WRITE / CH+5(4). "REMAINING VALUE REPRESENTED
Multiple Line - Interactive List
GP,
PT TYPE INT2,
END OF STR.
DATA ITAB TYPE STANDARD TABLE OF STR.
DATA WA TYPE STR.
WA-GP = 'A'.WA-PT = 10.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 30.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 50.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 70.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 90.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 20.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 40.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 60.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 80.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 100.APPEND WA TO ITAB.
SORT ITAB BY GP.
DATA CB.
DATA: WAS_USED.
LOOP AT ITAB INTO WA.
WRITE: / CB AS CHECKBOX,WAS_USED,WA-GP,WA-PT.
HIDE: WA-GP,WA-PT.
ENDLOOP.
AT PF6.
DO.
CLEAR CB.
READ LINE SY-INDEX FIELD VALUE CB.
IF SY-SUBRC <> 0.
EXIT.
ELSE.
CHECK CB = 'X'.
MODIFY CURRENT LINE:
FIELD VALUE WAS_USED FROM '*' CB FROM SPACE
FIELD FORMAT CB INPUT OFF.
WRITE: / WA-GP, WA-PT.
ENDIF.
ENDDO.
Atline Selection
GP,
PT TYPE INT2,
END OF STR.
DATA ITAB TYPE STANDARD TABLE OF STR.
DATA WA TYPE STR.
WA-GP = 'A'.WA-PT = 10.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 30.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 50.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 70.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 90.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 20.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 40.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 60.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 80.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 100.APPEND WA TO ITAB.
SORT ITAB BY GP.
LOOP AT ITAB INTO WA.
WRITE: / WA-GP, WA-PT.
HIDE: WA-GP,WA-PT.
ENDLOOP.
AT LINE-SELECTION.
LOOP AT ITAB INTO WA WHERE PT = WA-PT.
WRITE: / WA-GP, WA-PT.
ENDLOOP.
Loop at Control
TYPES: BEGIN OF STR,
GP,
PT TYPE INT2,
END OF STR.
DATA ITAB TYPE STANDARD TABLE OF STR.
DATA WA TYPE STR.
WA-GP = 'A'.WA-PT = 10.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 30.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 50.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 70.APPEND WA TO ITAB.
WA-GP = 'A'.WA-PT = 90.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 20.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 40.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 60.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 80.APPEND WA TO ITAB.
WA-GP = 'B'.WA-PT = 100.APPEND WA TO ITAB.
SORT ITAB BY GP.
LOOP AT ITAB INTO WA.
AT FIRST.
ULINE (15).
WRITE: / 'GROUPS','POINTS'.
ENDAT.
AT NEW GP.
ULINE /(15).
WRITE: / 'GROUP', WA-GP.
ENDAT.
WRITE: / WA-GP, WA-PT.
AT END OF GP.
SUM.
ULINE /(15).
WRITE: / 'GROUP',WA-GP,'SUB-TOTAL', WA-PT.
ENDAT.
AT LAST.
SUM.
ULINE /(15).
WRITE: / 'TOTAL',WA-PT.
ULINE /(15).
ENDAT.
ENDLOOP.
Friday, November 21, 2008
Common Regular Expressions
^[a-zA-Z''-'\s]{1,40}$
John Doe
O'Dell
Validates a name. Allows up to 40 uppercase and lowercase characters and a few special characters that are common to some names. You can modify this list.
Social Security Number
^\d{3}-\d{2}-\d{4}$
111-11-1111
Phone Number
^[01]?[- .]?(\([2-9]\d{2}\)|[2-9]\d{2})[- .]?\d{3}[- .]?\d{4}$
425-555-0123
425 555 0123
1-425-555-0123
^([0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$
Validates an e-mail address.
URL
^(ht|f)tp(s?)\:\/\/[0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*(:(0-9)*)*(\/?)([a-zA-Z0-9\-\.\?\,\'\/\\\+&%\$#_]*)?$
http://www.microsoft.com
ZIP Code
12345
Validates a U.S. ZIP Code. The code must consist of 5 or 9 numeric characters.
Password
(?!^[0-9]*$)(?!^[a-zA-Z]*$)^([a-zA-Z0-9]{8,10})$
Validates a strong password. It must be between 8 and 10 characters, contain at least one digit and one alphabetic character, and must not contain special characters.
Non- negative integer
^\d+$
986
Currency (non- negative)
^\d+(\.\d\d)?$
1.00
Validates a positive currency amount. If there is a decimal point, it requires 2 numeric characters after the decimal point. For example, 3.00 is valid but 3.1 is not.
Currency (positive or negative)
^(-)?\d+(\.\d\d)?$
1.20
Sunday, November 9, 2008
ColdFusion MX 7.0.1 and 7.0.2: Hot fix available for Apache 2.2 support
1. Backup the existing cf_root/runtime/lib/wsconfig.jar
2. Download the hot fix (2.3MB).
3. Extract the new wsconfig.jar file and place it incf_root/runtime/lib.
4. Stop all ColdFusion servers and Apache 2.2. Restart
Friday, August 8, 2008
Regular Expression
? = zero or one
+= one or more
"[dl]og" will match dog, or log, but it will not match dlog.
[^dl]og" now we will match any sequence ending in og that isn't preceded with a d or l, such as fog.
a range of characters using the - (dash) character
<cfform id="form1" name="form1" method="post" action="">
<cfinput type="text" name="reg" id="textfield" validate="regular_expression" pattern="([0-3]{3})([a-z]{5})*" /> </label>
<cfinput type="submit" name="button" id="button" value="Submit" />
</cfform>