摘要：
用数组
定义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......
