4gl程序参考

main
define m,n,k         smallint
define lc_database   char(1000)
define lv_base       char(18)
define lv_fgs        char(7)
define lc_name       char(20)

clear screen
display "data do"

let lc_database='90101009020100'
for k=1 to 2

    let m=k*7-6
    let n=k*7
    let lv_fgs=lc_database[m,n]
   
    let lv_base="data","_",lv_fgs clipped
   
    display "第",k,"个",lv_fgs clipped
   
    database lv_base
   
    set isolation to dirty read;
   
   
    --
    let lc_name="js_all_",lv_fgs,".csv" clipped
   

    sql语句
  
end for
end main
   

-----------------------------------------

编绎 ：

 linux下，选择2，4gl环境下.

 c4gl  -o XX XX.4gl