数据库记录自动插入及排序的子程序

Author: 寿永斌 Date: 1997-01-01
　　在对数据库进行记录修改操作时，往往需要插入新的记录，同时需要将所有记录的序号字段重新设置。例如：当在原序号３与４的记录之间插入一个新的记录时，需要将新记录登记为４号，并将原４号记录及以后的所有记录的序号顺延加１，即改为５、６、７等。上述操作，当数据库记录量较大时，如果全部用手工修改的话，工作量是不小的。下面的子程序段利用ＳＯＲＴ和ＲＥＰＬＡＣＥ命令，可自动快速完成上述修改过程。
　　ＳＯＲＴ　ＯＮ　ＮＵＭＢ　ＴＯ　ＬＳＷＪ
　　＊“ＮＵＭＢ”——所需处理数据库序号的字段名，数值型，小数点１位
　　＊“ＬＳＷＪ”——存放数据的临时文件
　　ＺＡＰ
　　ＡＰＰＥＮＤ　ＦＲＯＭ　ＬＳＷＪ
　　ＤＯ　ＷＨＩＬＥ　．ＮＯＴ．　ＥＯＦ（）
　　Ｍ＿ＮＵＭＢ＝ＩＮＴ（ＮＵＭＢ＋０．９）
　　ＩＦ　Ｍ＿ＮＵＭＢ＞ＮＵＭＢ
　　ＲＥＰＬＡＣＥ　ＮＵＭＢ　ＷＩＴＨ　ＩＮＴ（ＮＵＭＢ）＋１
　　ＤＯ　ＷＨＩＬＥ　．ＮＯＴ．　ＥＯＦ（０）
　　ＳＫＩＰ
　　ＲＥＰＬＡＣＥ　ＮＵＭＢ　ＷＩＴＨ　ＮＵＭＢ＋１
　　ＬＯＯＰ
　　ＥＮＤＤＯ
　　ＥＮＤＩＦ
　　ＳＫＩＰ
　　ＬＯＯＰ
　　ＥＮＤＤＯ
　　程序运行时，当需要插入新的记录时，只要将序号登记为插入点前后序号之间的一个带小数的数字即可。例如：要在原记录４号和５号间插入一个新的记录，将新记录号登记为４．５，上述子程序运行后，新记录即改为５号，而原记录５号及以后各数据均顺延加１。如果要同时插入两个或以上记录的话，新记录序号顺次登记为４．１、４．２、４．３等即可。