include sub_errcal smpl 2000q2 2015q3 for %A final real %tab="tabcom_" + %A delete(noerr) {%tab} table(20,10) {%tab} genr combo1{%A}_c1=({%A}_fh1_ip_mr3+{%A}_fh1_ord_mr3)/2 genr combo1{%A}_c2=({%A}_fh1_ip_mr3+{%A}_fh1_ord_mr3)/2 genr combo1{%A}_c3=({%A}_fh1_ip_mr2+{%A}_fh1_ord_mr2)/2 genr combo1{%A}_c4=({%A}_fh1_ip_mr2+{%A}_fh1_ord_mr2)/2 genr combo1{%A}_c5=({%A}_fh1_ip_mr1+{%A}_fh1_ord_mr1)/2 genr ar_{%A}_c1={%A}_fh1_ar_mr3 genr ar_{%A}_c2={%A}_fh1_ar_mr1 genr ar_{%A}_c3={%A}_fh1_ar_mr1 genr ar_{%A}_c4={%A}_fh1_ar_mr1 genr ar_{%A}_c5={%A}_fh1_ar_mr1 genr ip_{%A}_c1={%A}_fh1_ip_mr3 genr ip_{%A}_c2={%A}_fh1_ip_mr3 genr ip_{%A}_c3={%A}_fh1_ip_mr2 genr ip_{%A}_c4={%A}_fh1_ip_mr2 genr ip_{%A}_c5={%A}_fh1_ip_mr1 for !ix=1 to 5 genr e_{%A}_com1_c{!ix}=combo1{%A}_c{!ix}-bip_final genr e_{%A}_ar_c{!ix}=ar_{%A}_c{!ix}-bip_final genr e_{%A}_ip_c{!ix}=ip_{%A}_c{!ix}-bip_final vector(15) verrtab=NA call sub_errcal(e_{%A}_ip_c{!ix},e_{%A}_com1_c{!ix}, verrtab) {%tab}(3,!ix*2)=verrtab(3) {%tab}(3,!ix*2+1)=verrtab(11) next '----------------------------------------------------------- '----------------------------------------------------------- !ic=2 for %B ifoc esi pmi genr combo{!ic}{%A}_c1=({%A}_fh1_ip_mr3+{%A}_fh1_{%B}_mr2)/2 genr combo{!ic}{%A}_c2=({%A}_fh1_ip_mr3+{%A}_fh1_{%B}_mr1)/2 genr combo{!ic}{%A}_c3=({%A}_fh1_ip_mr2+{%A}_fh1_{%B}_mr1)/2 genr combo{!ic}{%A}_c4=({%A}_fh1_ip_mr2+{%A}_fh1_{%B}_mr0)/2 genr combo{!ic}{%A}_c5=({%A}_fh1_ip_mr1+{%A}_fh1_{%B}_mr0)/2 '----------------------------------------------------------- for !ix=1 to 5 genr e_{%A}_com{!ic}_c{!ix}=combo{!ic}{%A}_c{!ix}-bip_final vector(15) verrtab=NA call sub_errcal(e_{%A}_ip_c{!ix},e_{%A}_com{!ic}_c{!ix}, verrtab) {%tab}(2+!ic,!ix*2)=verrtab(3) {%tab}(2+!ic,!ix*2+1)=verrtab(11) next '----------------------------------------------------------- !ic=!ic+1 next '----------------------------------------------------------- '----------------------------------------------------------- next %A