I uploaded a rexx to keep application variables between execution of a program. For the mainframers, pretty much as ISPF application pool.
You can keep for example settings, (window position, usual TCP addresses) and re-read them in one go when you run the program again.
Hopefully the test script MyENV shows what it does.
Functions:
createobject('MyENVOBJ',obj,,'FRED')
Intialise the object and creates a variable pool with the name Fred. If there are already variables stored in the pool FRED (registry) they are loaded.
obj~define('LUNCH','Chicken') defines a variable lunch (within fred) and sets it TO chicken
obj~define('BEVERAGES','FOSTERS') defines beverages ...
At this point the variables/contents are only temporarily kept in core. To eventually save them to registry you can use:
obj~save()
obj~load() re-loads the pool
obj~delete() removes the pool from registry
obj~variables(variable_stem., content_stem.) returns the defined variables and their contents.
Have fun and happy new year!
Peter
| 
搜索
论坛
Home
回顶部
1. Application variables
g.yi.org Hits:0
