Useful functions of T24
Slide 1
OBJECTIVE
After completing this lesson, you should
be able to:
Useful functions in infobasic.
T24 file handling.
Subroutine debugging.
S
Functions in Infobasic
Functions in Infobasic
INPUT
To Accept a Value for a Variable From User
SYNTAX
INPUT VARIABLE
EXAMPLE
INPUT NAME
LEN
Returns the number of Characters in a string
SYNTAX LEN(string)
Example
CRT LEN(‘FDSLTD’)
Output : 6
CALL
The CALL statement executes another program
(optionally passing in arguments to it) and then
resumes execution of the current program.
SYNTAX
CALL name [ ( arg1 [, arg2...)] [RETURNS variable]
EXAMPLE IN TAFJ
CALL TEST.SUB()
LOCATE
Used to search a string in a dynamic array and get it’s position .
Returns the field Position only.
SYNAX
LOCATE <string> IN <array> {<field pos,multivalue pos>} SETTING <var>
THEN/ELSE <statements>
EXAMPLE
DAYS =
SAT’:@FM:’SUN’:@FM:’MON’:@FM:’TU’:@FM:’WED’:@FM:’THU’:@F
M:’FR’
LOCATE "SUN" IN DAYS SETTING FOUND ELSE FOUND = 0
Output: FOUND = 2
FINDSTR
Used to search a string in a dynamic array and get it’s position .
Returns the field Position only.
SYNAX
FINDSTR expression1 IN Var1 {, expression2} SETTING Var2 {,Var3 {,
Var4}} THEN | ELSE statement(s)
EXAMPLE
V.ARRAY = 'ABC' :@FM: 'DEF' :@VM: 'XYZ'
FINDSTR 'XY' IN V.ARRAY SETTING V.FLD, V.VAL THEN
CRT "FIELD: " : V.FLD, "POSITION: ": V.VAL
END
ELSE
CRT "NOT FOUND"
END
Output: FIELD: 2 POSITION: 2
MOD
The MOD function returns the arithmetic modulo of
two numeric expressions.
SYNTAX
MOD(expr1, expr2)
Both expr1 and expre2 should evaluate to numeric
expressions or a runtime error will occur.
EXAMPLE
MOD ( 120, 90 )
OUTPUT 30
SUM
The SUM function sums numeric elements in a
dynamic array.
SYNTAX:
SUM(expr)
EXAMPLE
Y.DATA = 2:@FM:4:@FM:6:@FM:8
CRT SUM(Y.DATA)
Output: 20
SORT
The SORT function sorts all elements of a dynamic array in
ascending left-justified order.
SYNTAX
SORT(expression)
expression may evaluate to any data type but will only be useful if it
evaluates to a dynamic array.
EXAMPLE
MYARRAY ='GEORGE':@VM:'FRED':@VM:'JOHN':@SVM:'ANDY'
CRT SORT (MYARRAY )
OUTPUT ANDY^FRED^GEORGE^JOHN
WHY NEED LOCAL FIELD
Not all fields required by a bank are
available in a T24 application
User defined, totally customisation
Once created, can be reused in various
applications
LOCAL TABLE APPLICATION IMPOTENT FIELD
ID is numeric Description
Holds a description of the field Short Name
Name that is displayed for that field Maximum Char
Maximum number of characters that the field can
hold Minimum Char
If entered, the field becomes a mandatory field in the
application Char Type
Type of data that can be input in this field Vetting
Table
List of predefined values the field can hold Remark
Enrichment for items in the vetting table
LOCAL TABLE APPLICATION IMPOTENT FIELD
ID is the T24 application that the local reference field
is going to be attached to. Local Table No.
The ID of the LOCAL.TABLE Sub Associate Code
Must be used if the local reference field is a multi
value or an associated multi value
XX. Multi Value
XX< Start of an associated multi value set
XX- Part of an associated multi value set
XX> End of the associated multi value set
CREATE LOCAL FIELD
STEP 1. Go to Local table by using this command
“ LOCAL.TABLE I LOCAL_FIELD_NAME”
STEP 2.
STEP 3. Then Commit this page.
ADD LOCAL FIELD TO LOCAL.REF.TABLE
STEP 4. Add this field in a application
STEP 5. Go to Local Ref Table by using this command
“LOCAL.REF.TABLE I”
STEP 6.
STEP 7. Then Commit this page.
After adding local field to CUSTOMER
GetLocRef & MapLocalFields
EB.LocalReferences and EB.Foundation packages are used to
get the local field position for local field.
Return the local reference position
SYNTAX
EB.LocalReferences.GetLocRef(FILE.NAME,LOCAL.FIELD.NAM
,FIELD.POSITN) –This function for single field
EB.Foundation.MapLocalFields(APPLICATION.NAMES,
LOCAL.FIELDS, FLD.POS) –this function for multi field at a time
FIELD.POSITION return the local reference position of an file
according to the respective local field name.
LOCAL FIELD SEARCH
EXAMPLE IN TAFJ
SUBROUTINE LT.EXAMPLE
$INSERT I_COMMON
$INSERT I_EQUATE
$USING EB.DataAccess
$USING EB.Updates
$USING EB.LocalReferences
FN.CUS = 'F.CUSTOMER'
F.CUS = '‘; Y.FLD.POS = '‘
APPLICATION.NAMES = 'CUSTOMER'
LOCAL.FIELDS = 'FATHER.NAME':VM:'MOTHER.NAME'
EB.Foundation.MapLocalFields(APPLICATION.NAMES, LOCAL.FIELDS, FLD.POS)
EB.LocalReferences.GetLocRef(APPLICATION.NAMES, LOCAL.FIELDS, FLD.POS)
/for single field
Y.FATHER.NAME.POS = FLD.POS<1,1>
Y.MOTHER.NAME.POS = FLD.POS<1,2>
LOCAL FIELD SEARCH
EB.DataAccess.Opf(FN.CUSTOMER, F.CUSTOMER)
EB.DataAccess.FRead(FN.CUSTOMER, CUSTOMER.ID, R.CUS, F.CUSTOMER, ERR)
FATHER.NAME = R.CUS<ST.Customer.Customer.EbCusLocalRef,Y.FATHER.NAME.POS>
MOTHER.NAME = R.CUS<ST.Customer.Customer.EbCusLocalRef,Y.MOTHER.NAME.POS>
RETURN
END
LEFT & RIGHT
The LEFT function extracts a sub-string of a specified
length from the beginning of a string.
The RIGHT function extracts a sub-string of a
specified length from the ending of a string.
SYNTAX :
LEFT(expr, length)
RIGHT(expr, length)
EXAMPLE
PRINT LEFT("ABCDEFGH",3)
PRINT RIGHT("ABCDEFGH",3)
Output : ABC Output : FGH
FIELD
Extracts a sub-string from a Character string using
delimiters.
SYNTAX
FIELD(string,delimiter,occur,fields )
EXAMPLE
X = “A/B/C/D”
Y = FIELD(X,”/”,2,2)
RESULT : Y has a value of B/C
INDEX
Returns the starting column position of a specific occurrence
of a specified sub string within a character string.
SYNTAX:
INDEX(string,sub string,occur)
EXAMPLE
A = ‘IPDC LTD’
B = INDEX(A,”LT”,2)
B returns the value 5
ALPHA
Used to determine whether the expression is Alphabet or Not. If
the expression contains any special characters or numeric value
it evaluates false else true.
SYNTAX: OUTPUT
CRT ALPHA(‘ABCDEF’) 1
CRT ALPHA(‘10ABCDEF’) 0
CRT ALPHA(‘ABC DEF’) 0
SEQ
This function returns the ASCII value for a given character.
SYNTAX
SEQ(expr)
Example
SEQ(“A”) returns 65
ABS
Returns the mathematical absolute of the
()expression
expression can be of any form that should evaluate to
a numeric.
SYNTAX:
ABS (expression)
EXAMPLE
CRT ABS (10-15)
Output: 5
COUNT
This function returns the number of times a sub-string occurred
in a string.
SYNTAX
COUNT(expr)
EXAMPLE
A=‘FDSLTD’
CRT COUNT(D,’A’)
Output : 2
DCOUNT
Returns the number of sub-strings delimited by a specified
delimiter in a string value.
Used to find number of values in field.
SYMTAX
DCOUNT(DYNAMIC.ARRAY,DELIMETER)
EXAMPLE
REC=34:@VM:55:@VM:88
R=DCOUNT(REC,@VM)
Result : R has a Value of 3
MAXIMUM & MINIMUM
MAXIMUM Returns the element with the highest numeric Value in a
given Dynamic array.
MINUMUM Returns the element with the lowest numeric value in a
given Dynamic array
SYNTAX:
MAXIMUM(dynamic.array.name)
MINIMUM(dynamic.array.name)
EXAMPLE
Y.DATA = 2:@FM:4:@FM:6:@FM:8
CRT MAXIMUM(Y.DATA)
CRT MINIMUM(Y.DATA)
Output: 8 2
Cdd()
Defined in EB.API package
Calculates the difference, in days, between two supplied date
SYNTAX
EB.API.Cdd(REGION, DATE1, DATE2, DAYS)
REGION Region code
DATE1 Start date, YYYYMMDD
DATE2 End date, YYYYMMDD
DAYS 'W' to indicate working days
'C' to indicate calendar days
DAYS Return the number of days difference
EXAMPLE
=================
EXAMPLE(TAFJ):
$INSERT I_COMMON
$INSERT I_EQUATE
$USING EB.API
Y.START.DATE = '20171001‘
Y.END.DATE = '20171030‘
Y.DAYS = 'C‘
EB.API.Cdd('', Y.START.DATE, Y.END.DATE, Y.DAYS)
OUPTPUT : 29
Cdt()
Defined in EB.API package
Calculates forward or previous date from a start date using the
number of days.
SYNTAX
EB.API.Cdt(REGION, DATE, DAYS)
REGION Region code
DATE1 Start date, YYYYMMDD
DATE2 End date, YYYYMMDD
DAYS 'W' to indicate working days
'C' to indicate calendar days
DAYS The number of days difference, + or -
EXAMPLE
EXAMPLE(TAFJ):
Y.DATE = '20171114‘
Y.DAYS = '+1W‘
EB.API.Cdt('', Y.DATE, '+1W')
PRINT "DATE: ":Y.DATE
OUTPUT: Date: 20171115
ICONV
Converts entered data into internal format onto the disk.
SYNTAX:
ICONV(string,conversion code)
EXAMPLE
CALL ICONV('20150616', 'D')
Output: 17334
ICONV
OCONV
Converts internal format data into format specified.
SYNTAX:
OCONV(string,conversion code)
EXAMPLE
Y.DATE = ‘17334’
CRT OCONV(Y.DATE, 'D')
OUTPUT: 16 JUN 2015
OCONV
Juldate()
Defined in EB.API package
Convert from Julian to Gregorian date format and vice versa
SYNTAX
EB.API.Juldate (GREGORIAN.DATE,JULIAN.DATE)
GREGORIAN.DATE Standard T24 Date in the format yyyymmdd
JULIAN.DATE Julian Date in the format yyyyjjj
EXAMPLE
Gregorian to Julian
Y.GD = ‘’
Y.JD = ‘2014001’
CALL JULDATE(Y.GD,Y.JD)
OUTPUT Y.GD = 20140101
EXAMPLE
Julian to Gregorian
Y.GD = ‘20140101’
Y.JD = ‘’
EB.API.Juldate(Y.GD,Y.JD) OUTPUT Y.JD =
2014001
UPCASE & DOWNCASE
UPCASE converts all lowercase characters in an
expression to uppercase characters.
DOWNCASE converts all uppercase characters in an
expression to lowercase characters.
SYNTAX
UPCASE(exp)
DOWNCASE(exp)
EXAMPLE
UPCASE(‘aaaaaa’) RETURN AAAAAA
DOWNCASE(‘AAAAAA’) RETURN aaaaaa
DROUND
The DROUND function performs double-precision rounding on a
value. Double-precision rounding uses two words to store a number,
accommodating a larger number than in single-precision rounding,
which stores each number in a single word.
SYNTAX
DROUND(val.expr [,precision.expr])
- val.expr Specifies the value to round.
- precision.expr Specifies the precision for the rounding. The valid
range is 0 to 14. Default precision is four places.
EXAMPLE:
A= DROUND(3.14223,2)
OUTPUT A = 3.14
CHANGE
The CHANGE statement operates on a variable and
replaces all occurrences of one string with another.
SYNTAX
CHANGE expression1 TO expression2 IN variable
expression1 - may evaluate to any result and is the
string of characters that will be replaced.
expression2 - may also evaluate to any result and is the
string of characters that will replace expression1 - The
variable may be any previously assigned variable in the
program
EXAMPLE
EXAMPLE
String1 = "Jim“ String2 = "James"
Variable = "Pick up the tab Jim"
CHANGE String1 TO String2 IN Variable
OUTPUT Variable = Pick up the tab James
SUMMARY
- You should now understand about T24 useful functions.
We have explain some command that helps the
programmer to write program frequently.
Thank You!
Questions / Discussion
Slide 45
