摘要:
用数组
定义2个一元数组a ,b ,计数器c
a.len=字符串的长度
b.len的长度根据具体情况而定,如已知空格数,则len=a.len-空格数
如未知,则b.len设成a.len 的值
将char move 进 数组a
进行一个循环,
read 数组的每个元素
计数器 c+1
dowhile c <>a.len
判断
ifne *blank
move 数组值 到b中
e......
摘要:
1.shareodp:
在pf或者lf编译的时候,有个share(share open data path)的参数,控制该文件是否共享其打开路径。
如果指定share为*no的话,程序在每次打开一个文件的时候,都会为该文件建立一次访问路径;如果指定share为*yes的话,程序在第一次打开该文件的时候,系统建立该文件的访问路径,在同一个activegroup中再打开该文件时,就不再重新建......
Fun With Dates In RPGLE
rpgle提供了许多有关日期数据格式的用法,下面对这些日期的用法进行了一下汇总.
【程序编程相关:
win2000的硬盘总是被共享,怎么办?】 【推荐阅读:
Win2000的文件资源管理 】[b:2ffd804c3d]1.built in functions used with date processing[/b:2ffd804c3d]
【扩展信息:
装Win Me/2000免输序列号 】 %mseconds retrieve milliseconds from formatted date
%seconds retrieve seconds from formatted date
%minutes retrieve minutes from formatted date
%hours retrieve hours from formatted time
%days retrieve days from formatted date
%months retrieve months from formatted date
%years retrieve years from formatted date
%date retrieve the date
%time retrieve the time
%timestamp retrieve a time stamp
%subdt substring year, month or day from formatted date
%char use a decimal field in a substring function
2.[b:2ffd804c3d]define date variables all date formats[/b:2ffd804c3d]
without keyword datfmt will default to *iso. 2003-09-23
when you initialize a date field you must prefix the date with the letter "d" ,see below.
[code:1:2ffd804c3d]d*---------------------------------------------------------
d* field definitions.
d*---------------------------------------------------------
d isodate s d
d usadate s d datfmt(*usa)
...
下一页 摘要:
as/400开发经验点滴(四)
七.如何在程序中获取系统asp使用率等系统状态信息
as/400系统管理员都对系统asp空间增长情况很关心,当系统asp空间涨满了以后将会引起系统down机等安全问题。系统asp空间与硬盘空间并不完全等同,如果系统只配置了一个asp分区,那么系统asp空间与硬盘空间是等同的,如果系统配置了多个asp分区,则系统asp只是asp 1的分区。用wrksyss......