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