'To generate a series D70 that takes the value 1 for all observation from 1970:1
'series d70=0
'd70.fill(o=1970:1,l) 1

series d7306=0
d7306.fill(o=1973:06,l) 1
d7306.fill(o=1973:07,l) 0

series d7307=0
d7307.fill(o=1973:07,l) 1
d7307.fill(o=1973:08,l) 0

series d7308=0
d7308.fill(o=1973:08,l) 1
d7308.fill(o=1973:09,l) 0

series d7310=0
d7310.fill(o=1973:10,l) 1
d7310.fill(o=1973:11,l) 0

series d7311=0
d7311.fill(o=1973:11,l) 1
d7311.fill(o=1973:12,l) 0

series d7312=0
d7312.fill(o=1973:12,l) 1
d7312.fill(o=1974:01,l) 0

series d7402=0
d7402.fill(o=1974:02,l) 1
d7402.fill(o=1974:03,l) 0

series d7403=0
d7403.fill(o=1974:03,l) 1
d7403.fill(o=1974:04,l) 0

series d7407=0
d7407.fill(o=1974:07,l) 1
d7407.fill(o=1974:08,l) 0

series d7408=0
d7408.fill(o=1974:08,l) 1
d7408.fill(o=1974:09,l) 0

series d7409=0
d7409.fill(o=1974:09,l) 1
d7409.fill(o=1974:10,l) 0

series d7501=0
d7501.fill(o=1975:01,l) 1
d7501.fill(o=1975:02,l) 0

series d7505=0
d7505.fill(o=1975:05,l) 1
d7505.fill(o=1975:06,l) 0

series d7806=0
d7806.fill(o=1978:06,l) 1
d7806.fill(o=1978:07,l) 0

series d7808=0
d7808.fill(o=1978:08,l) 1
d7808.fill(o=1978:09,l) 0

series d7811=0
d7811.fill(o=1978:11,l) 1
d7811.fill(o=1978:12,l) 0

series d7904=0
d7904.fill(o=1979:04,l) 1
d7904.fill(o=1979:05,l) 0

'd7306 d7307 d7308 d7310 d7311 d7312 d7402 d7403 d7407 d7408 d7409 d7501 d7505 d7806 d7808 d7811 d7904