的倍数(因为3个一组同格式地读入),而且这个倍数还必须大于或等于事 件发生次数,即本例中变量 NUMSPELL在样本中的最大值。在变量之前加# 符号表示此变量是运行中的暂用变量,当运行结束后自行消失。定义这些变 量为暂用变量的目的是为了运行结果更加简洁、清楚。 第7行的命令LEAⅤE是指示将原记录从ID至 NUMSPELL的所有固定变量 的值赋予要产生的新工作数据的案例。换句话说,这一命令是强制固定变量 附加到每个新建案例中去,即表示事件每次发生的新案例都保留原始记录中 的背景资料数据。 x第9行命令 VECTOR定义向量v由24个同组格式的变量值构成。 第10行命令LOOP制定循环语句,从1至24以步长为3执行循环的工作 即逢1、4、7、10、13、16、19、22时完成同样的工作。这一语句实际上是 与第5行中定义的同组格式是一致的,即前面定义三个变量一组地读入,这 里定义三个变量一组地完成数据转换。 第11行命令( OMPUTE要求计算前一个日期Dl的值,通过日期函数YR MODA将日期换算为天数(即该日期距离格里历启用的第一天1582年10月 14日之间的天数)。 第12行要求计算后一个日期D2的值。注意此处所用的数处于向量V中的位 置都分别比第11行中所用数在向量中的位置差3位 *第13行通过后一个日期值减去前一个日期值得到两次事件发生之间的间隔天 κ第14行命令 END CASE是根据每个输入记录(即样本案例)制作多个事件 发生的工作数据案例时,用来表示一个新案例结束。 第15行命令 END LOOP IF MISSING使在循环中分组读入向量值时如遇到缺 失值即结束该循环操作。这是为了在原输入记录中的事件变量已转换完毕时 停止计算口期之间的间隔。这时对应每个ID序号的新案例数应当与其NUM SPELL的值相同。 第17行命令 END INPUT PROGRAM对应前面第一行 INPUT PROGRAM命 令,表示该输入程序结束。 第19行命令( OMPUTE定义每个案例给新变量 EVENT赋值1。1表示未删 截的状况。 第20行命令指示如果当变量DURA为缺失值时要将新案例的变量 EVENT赋 值0,没有计算间隔的新案例是因为没有再发生新的事件,因此这个新案例是 删截案例。用EⅤENT=0表示被删截状况 430