few newbie questions

Hi,first of all sorry for my english, im newbie user of t24 system and i have few questions, is there a way i can obtain a number of field in dict file? i will write an example app to explain what i want to do :

F.ITEM = ""

OPEN "F.CUSTOMER" TO F.CUST ELSE STOP 201,"F.CUSTOMER"
LOOP
013 PRINT "ENTER STAFF NUMBER TO DISPLAY OR 'QUIT' TO STOP" :
014 INPUT F.ID
015 UNTIL F.ID = "QUIT" DO
016 READ F.ITEM FROM F.CUST,F.ID THEN
017 PRINT
018 PRINT "NAME" "L#16" : F.ITEM<1>
019 PRINT "BDAY" "L#16" : F.ITEM<24>
020 PRINT
021 END ELSE
022 PRINT
023 PRINT "ITEM" : F.ID : "NOT FOUND."
024 END
025 REPEAT

to get a bday location first i had to list dictonary of fbnk.customer file and find a field that contain bday date (it was 24), i was wondering is there a way to get a number of that field in other way? i was trying to use INDEX and FIELD function but without any satisfying results. e.x:
bday = INDEX(F.CUS,"BDAY_FIELD",1).

Also i tried to create a file for practice.
But i have no idea how i can create property DICT and DATA file, f.x i was trying to :
CREATE-FILE MYFILE 37 37
JED MYFILE]D and input dict fields manualy (f.x ID), then JED MYFILE and input data fields manualy(f.x 10012).
I had hope , i could LIST it like :"LIST MYFILE WITH ID='10012' ,and i end up without any satisfying result.

One more time, sorry for my english
thank you for all help

There are some APIs provided by Temenos.

For your requirement following API will be useful to fetch the field number of a particular field in an application,

CALL FIELD.NAMES.TO.NUMBERS(IN.FIELD.NAME,R.STANDARD.SELECTION,FIELD.NO,YAF,YAV,YAS,DATA.TYPE,ERR.MSG)

IN.FIELD.NAME - field name to be converted to field number
R.STANDARD.SELECTION - standard selection record of the application

FIELD.NO - full field number
YAF - field number
YAV - value number
YAS - sub value number
DATA.TYPE - data type of field
ERR.MSG - Error message

Why don't you just use the I_F.CUSTOMER (located in T24.BP / GLOBUS.BP) and use clear names instead of numbers (also these can change with a release).

In your example

007 $INSERT I_F.CUSTOMER
008
009 F.ITEM = ""
010
011 OPEN "F.CUSTOMER" TO F.CUST ELSE STOP 201,"F.CUSTOMER"
012 LOOP
013 PRINT "ENTER STAFF NUMBER TO DISPLAY OR 'QUIT' TO STOP" :
014 INPUT F.ID
015 UNTIL F.ID = "QUIT" DO
016 READ F.ITEM FROM F.CUST,F.ID THEN
017 PRINT
018 PRINT "NAME" "L#16" : F.ITEM<EB.CUS.MNEMONIC>
019 PRINT "BDAY" "L#16" : F.ITEM<EB.CUS.ACCOUNT.OFFICER>


And I suppose you meant field EB.CUS.DATE.OF.BIRTH (which is 64).


If you want to create jBase files on your own and create DICT records refer to
www.jbase.com/r5/knowledgebase/manuals/3...FILE.DEFINITIONS.htm