TIPTOP内置函数（共享）

TIPTOP是一个旧版的软件系统，其内部包含了一系列的内置函数，这些函数在T100版本中被广泛使用。下面将详细解释这些函数的功能和用法。 1. **cl_about**: 这个函数用于获取程序的信息，没有传入参数，也不返回任何值。通过调用`CALL cl_about()`，可以显示程序的基本信息。 2. **cl_anykey**: 此函数的作用是提示用户按任意键继续执行程序，同样没有传入参数。调用`CALL cl_anykey()`会在程序暂停时等待用户按键。 3. **cl_autotime**: 此函数用于自动累加时间，支持小时、分钟和秒的累加。传入参数包括初始时间、累加类型以及累加级别。例如，`CALL cl_autotime('09:30','H',1)`将累加一小时。 4. **cl_batch_proc**: 这个函数用于动态创建批次数据处理界面，传入参数是一个以逗号分隔的表头字符串。如`CALL cl_batch_proc("img01,img02,img03,img04,imk09")`将根据提供的表头创建界面。 5. **cl_cal**: 此函数接收当前日期、要增加的月份和天数，返回调整后的日期。如`LET l_date=cl_cal(p_date,p_mm,p_dd)`可以计算出新的日期。 6. **cl_chg_comp_att**: 用于更改已有对象的属性，包括字段名称、字段类型属性和字段类型属性值。例如，`CALL cl_chg_comp_att("ima01","NOENTRY|ITEMS","1|(1,2,3),(red,blue,green)")`将改变 ima01 字段的属性。 7. **cl_chg_win_title**: 这个函数用于改变程序窗口的标题，传入新的标题字符串。如`CALL cl_chg_win_title("用户参数设定作业")`将改变窗口标题。 8. **cl_chk_act_auth**: 该函数检查ACTION的权限，需要预先设置`g_action_choice`。返回值为1表示有权限，0表示无权限。如`IF cl_chk_act_auth() THEN`判断是否有插入操作的权限。 9. **cl_chk_data_continue**: 检查数据是否连续，传入源数据字符串，返回值为1表示连续，0表示不连续。如`IF NOT cl_chk_data_continue(g_pmw.pmw01[5,10]) THEN`判断数据是否中断。 10. **cl_chk_str_correct**: 检查字符串是否只包含0-9和a-z。传入源字符串和检查的字符数，返回值为1表示符合要求，0表示不符合。例如`IF NOT cl_chk_str_correct(g_pmw.pmw01[1,3]) THEN`检查字符串的前三个字符是否正确。 11. **cl_chkym**: 用于验证字符变量是否为有效的年月格式，输入6位字符，返回1表示年月格式正确，0表示错误。如`IF cl_chkym(p_str)`检查p_str是否为有效的年月。 12. **cl_cho...**: 函数名称不完整，可能是`cl_choicedlg`，通常用于打开一个选择对话框，但具体用法和参数因信息不全无法给出。 这些内置函数为TIPTOP提供了丰富的功能，涵盖了信息显示、用户交互、时间处理、数据验证和权限控制等多个方面，是TIPTOP系统中实现业务逻辑的关键部分。了解并熟练运用这些函数，能有效地提升在TIPTOP环境下编写程序的效率和质量。