constantstring (11) basefile = "KSSBASE"
externalintegerfunctionspec  dsfi(string (6) user,integer  fsys,type,
                                  set,adr)
externalroutine  tb(string (255) dummy)
integer  flag
!
flag = dsfi("CUR022",6,35,1,addr(basefile))
write(flag,1)
end 
endoffile