因为昨天公司放假,在家里学习了4gl的基础语法,但是没有测试环境,今天在公司把代码都测试了一边
GLOBALS
DEFINE lin varchar(10)
END GLOBALS
MAIN
-- DEFINE c2 CHAR(10)
-- DEFINE c3,c4 varchar(10)
-- DEFINE rec RECORD
-- id INTEGER,
-- aname varchar(100),
-- birth Date
-- END RECORD
-- DEFINE company1 varchar(100)
-- DEFINE company2 varchar(100)
-- LET company1 = "lin","jian"
-- LET company1 = "lin","jian"
-- DISPLAY company1||company2
-- DEFINE i,j CHAR(20)
-- LET i = "askjdhkajd"
-- LET j = i[2,4]
-- DISPLAY j
-- DEFINE i,j string
-- LET i = "tiptop asd asd ff sd"
-- LET j = i.subString(1,5)
-- DISPLAY j
-- ??????
-- DEFINE salary int
-- LET salary = 10022
-- DISPLAY salary USING "$##,###"
-- DISPLAY "yyyy-mm-dd:",TODAY USING "yyyy-mm-dd"
-- -- ???????