proc calis cov data=work.sas tech=nr pall;
Lineqs
T_Q_21 = l211 F1 + l212 F2 + l213 F3 + E1,
T_Q_22 = l221 F1 + l222 F2 + l223 F3 + E2,
T_Q_23 = l231 F1 + l232 F2 + l233 F3 + E3,
T_Q_24 = l241 F1 + l242 F2 + l243 F3 + E4,
T_Q_25 = 1 f1 + 1 f2 + l253 F3 + e5,
T_Q_26 = l261 F1 + l262 f2 + l263 F3 + E6,
T_Q_27 = l271 F1 + l272 f2 + l273 F3 + E7,
T_Q_28 = l281 f1 + 1 F2 + 1 F3 + E8,
T_Q_29 = 1 f1 + 1 F2 + l293 F3 + E9,
T_Q_30 = l301 F1 + l302 f2 + l303 F3 + E10,
T_Q_31 = l311 f1 + l312 F2 + l313 F3 + E11,
T_Q_32 = l321 f1 + l322 F2 + l323 F3 + E12,
T_Q_33 = l331 F1 + l332 f2 + l333 F3 + E13,
T_Q_34 = l341 f1 + l352 F2 + l343 F3 + E14,
T_Q_35 = l351 f1 + l352 F2 + l353 F3 + E15,
T_Q_36 = l361 F1 + l362 f2 + l363 F3 + E16,
T_Q_37 = l371 f1 + l372 F2 + l373 F3 + E17,
T_Q_38 = l381 f1 + l382 F2 + l383 F3 + E18,
T_Q_39 = l391 F1 + l392 f2 + l393 F3 + E19,
T_Q_40 = l401 f1 + l402 F2 + l403 F3 + E20
;
Std
f1= v1,
f2= v2,
f3= v3,
E1-E20 = rs1-rs20;
ODS output InCov=S RawRes=Res;
RUN; 