* define length for character variables if over 8; length EQ5NAMES $ 9 BINTNAME DINTNAME EQ4NAMES EQ4SENSI EQ5TITER $ 10 AQ11 AQ15 DQ5 GQ21E4TX $ 12 BQ21E5TX GINTNAME HINTNAME $ 14 EQ2NAMES FINTNAME GQ9TX $ 15 GQ21E3TX $ 16 BQ21E2TX DQ21E4TX $ 17 AQ5 DQ21E5TX GQ21E2TX $ 18 AQ14B AQ8B DQ21E3TX $ 19 AQ12A DQ21E1TX GQ34TX $ 20 AQ16 GLANGTX $ 21 BQ21E3TX BQ21E4TX $ 22 DQ21E2TX DQ9TX $ 23 GQ21E1TX $ 24 GQ4ATX $ 25 DQ4ATX $ 27 GQ14CTX $ 36 GQ23TX $ 38 DQ51TX $ 41 BQ1TX $ 43 DQ14CTX DQ21U3TX $ 44 BQ23TX $ 47 AQ9 GQ21U1TX $ 48 BQ27BTX BQ5TX DQ21U2TX DQ27BTX $ 49 BQ14C6TX BQ21E1TX BQ2TX BQ34TX BQ4ATX DQ21U1TX DQ23TX DQ34TX DQ50TX FQ4TX GQ27BTX $ 50 HQ4TX $ 97 ; * input statement; input site $ id ADATE $ AGE AINTNAME $ AQ1 $ AQ10A AQ10B $ AQ11 $ AQ12A $ AQ12B AQ13 AQ14A AQ14B $ AQ15 $ AQ16 $ AQ4 $ AQ5 $ AQ6 $ AQ7 AQ8A AQ8B $ AQ9 $ BDATE $ BEINTC BEINTNP BEINTP BENRLPRM BENRLREL $ BENRLSEX BENRLUNP BEUPIC BEUPINP BEUPIP BINTNAME $ BLANG $ BNINTC BNINTNP BNINTP BNNRLSEX BNNRLUNP BNPARTC BNPARTNP BNPARTP BNUPC BNUPIC BNUPINP BNUPIP BNUPNP BNUPP BQ10A BQ10B BQ11 BQ12 BQ13A1 BQ13A2 BQ13A3 BQ13A4 BQ13B BQ14A1 BQ14A2 BQ14A3 BQ14A4 BQ14A5 BQ14B BQ14C1 BQ14C2 BQ14C3 BQ14C4 BQ14C5 BQ14C6 BQ14C6TX $ BQ15A BQ15B BQ15C BQ15D BQ15E BQ15F BQ15G BQ15H BQ15I BQ15J BQ15K BQ15L BQ16A BQ16B BQ16C BQ16D BQ16E BQ17A BQ17B BQ17C BQ17D BQ17E BQ17F BQ17G BQ17H BQ17I BQ18A BQ18B BQ18C BQ19A BQ19B BQ19C BQ19D BQ19E BQ19F BQ19G BQ19H BQ1TX $ BQ1_1 BQ1_2 BQ1_3 BQ1_4 BQ1_5 BQ1_6 BQ1_7 BQ1_8 BQ1_99 BQ20 BQ21A1 $ BQ21A2 $ BQ21A3 $ BQ21A4 $ BQ21A5 $ BQ21B1 BQ21B2 BQ21B3 BQ21B4 BQ21B5 BQ21C1 $ BQ21C2 $ BQ21C3 $ BQ21C4 $ BQ21C5 $ BQ21D1 BQ21D2 BQ21D3 BQ21D4 BQ21D5 BQ21E1 BQ21E1TX $ BQ21E2 BQ21E2TX $ BQ21E3 BQ21E3TX $ BQ21E4 BQ21E4TX $ BQ21E5 BQ21E5TX $ BQ21F1 BQ21F199 BQ21F2 BQ21F299 BQ21F3 BQ21F399 BQ21F4 BQ21F499 BQ21F5 BQ21F599 BQ21G1 BQ21G2 BQ21G3 BQ21G4 BQ21G5 BQ21H1 BQ21H2 BQ21H3 BQ21H4 BQ21H5 BQ21I1 BQ21I2 BQ21I3 BQ21I4 BQ21I5 BQ21J1 BQ21J2 BQ21J3 BQ21J4 BQ21J5 BQ21K1 BQ21K2 BQ21K3 BQ21K4 BQ21K5 BQ21L1 BQ21L2 BQ21L3 BQ21L4 BQ21L5 BQ21M1 BQ21M2 BQ21M3 BQ21M4 BQ21M5 BQ21N1 BQ21N2 BQ21N3 BQ21N4 BQ21N5 BQ21O1 BQ21O2 BQ21O3 BQ21O4 BQ21O5 BQ21P1 BQ21P2 BQ21P3 BQ21P4 BQ21P5 BQ21Q1 BQ21Q2 BQ21Q3 BQ21Q4 BQ21Q5 BQ21R1 BQ21R2 BQ21R3 BQ21R4 BQ21R5 BQ21S1 BQ21S1A BQ21S1B BQ21S2 BQ21S2A BQ21S2B BQ21S3 BQ21S3A BQ21S3B BQ21S4 BQ21S4A BQ21S4B BQ21S5 BQ21S5A BQ21S5B BQ21T1 BQ21T2 BQ21T3 BQ21T4 BQ21T5 BQ22A BQ22B BQ22C BQ22D BQ22E BQ22F BQ22G BQ22H BQ22I BQ23TX $ BQ23_1 BQ23_2 BQ23_3 BQ23_4 BQ23_5 BQ23_6 BQ23_7 BQ23_8 BQ23_88 BQ23_9 BQ23_99 BQ24A BQ24B BQ24C BQ24D BQ24E BQ24F BQ24G BQ24H BQ24I BQ25 BQ26A BQ26B BQ26C BQ26D BQ26E BQ26F BQ26G BQ26H BQ26I BQ26J BQ26K BQ26L BQ26M BQ26N BQ26O BQ27A BQ27B1 BQ27B2 BQ27B3 BQ27B4 BQ27B5 BQ27B6 BQ27B7 BQ27B8 BQ27B9 BQ27B99 BQ27BTX $ BQ27C1 BQ27C2 BQ28A BQ28B BQ28C BQ28D BQ28E BQ28F BQ28G BQ29A BQ29B BQ29C BQ29D BQ29E BQ29F BQ29G BQ29H BQ2TX $ BQ2_1 BQ2_10 BQ2_11 BQ2_12 BQ2_13 BQ2_14 BQ2_15 BQ2_2 BQ2_3 BQ2_4 BQ2_5 BQ2_6 BQ2_7 BQ2_8 BQ2_9 BQ2_99 BQ3 BQ30A BQ30B BQ30C BQ30D BQ30E BQ30F BQ30G BQ30H BQ31A BQ31B BQ31C BQ31D BQ31E BQ31F BQ31G BQ31H BQ31I BQ31J BQ31K BQ31L BQ31M BQ32A BQ32B BQ32C BQ32D BQ32E BQ32F BQ32G BQ32H BQ32I BQ32J BQ32K BQ32L BQ32M BQ33A BQ33B BQ33C BQ33D BQ33E BQ33F BQ33G BQ33H BQ33I BQ33J BQ33K BQ33L BQ33M BQ34TX $ BQ34_1 BQ34_2 BQ34_3 BQ34_4 BQ34_5 BQ34_6 BQ34_7 BQ34_8 BQ34_9 BQ34_99 BQ4A BQ4ATX $ BQ4B BQ4C1 BQ4C2 BQ4C3 BQ4C4 BQ4C5 BQ4D BQ5 BQ5TX $ BQ6A BQ6B BQ6B99 BQ7 BQ8 BQ9A BQ9B BQ9C BQ9D BQ9E BQ9F BQ9G BQ9H BQ9I BRELSTAT $ BSTD_SYM CDATE $ COUPLE COUPLENU CQ1 CQ2 CQ3A CQ3B CQ3C CQ3D CQ4A CQ4B CQ4C CQ5 CQ6 DATE00 $ DATE06 $ DATE12 $ DCYCLE $ DDATE $ DEINTC DEINTNP DEINTP DENRLREL $ DENRLSEX DENRLUNP DEUPIC DEUPINP DEUPIP DHEAR DINTNAME $ DLANG $ DNINTC DNINTNP DNINTP DNNRLSEX DNNRLUNP DNPARTC DNPARTNP DNPARTP DNUPC DNUPIC DNUPINP DNUPIP DNUPNP DNUPP DQ10A DQ10B DQ11 DQ12 DQ13A1 DQ13A2 DQ13A3 DQ13A4 DQ13B DQ14A1 DQ14A2 DQ14A3 DQ14A4 DQ14A5 DQ14B DQ14C1 DQ14C2 DQ14C3 DQ14C4 DQ14C5 DQ14C6 DQ14CTX $ DQ15A DQ15B DQ15C DQ15D DQ15E DQ15F DQ15G DQ15H DQ15I DQ15J DQ15K DQ15L DQ16A DQ16B DQ16C DQ16D DQ16E DQ17C DQ17D DQ17E DQ17F DQ17G DQ17H DQ17I DQ18C DQ19A DQ19B DQ19C DQ19D DQ19E DQ19F DQ19G DQ19H DQ20 DQ21A1 $ DQ21A2 $ DQ21A3 $ DQ21A4 $ DQ21A5 $ DQ21B1 DQ21B2 DQ21B3 DQ21B4 DQ21B5 DQ21C1 $ DQ21C2 $ DQ21C3 $ DQ21C4 $ DQ21C5 $ DQ21D1 DQ21D2 DQ21D3 DQ21D4 DQ21D5 DQ21E1 DQ21E1TX $ DQ21E2 DQ21E2TX $ DQ21E3 DQ21E3TX $ DQ21E4 DQ21E4TX $ DQ21E5 DQ21E5TX $ DQ21F1 DQ21F199 DQ21F2 DQ21F299 DQ21F3 DQ21F399 DQ21F4 DQ21F499 DQ21F5 DQ21F599 DQ21G1 DQ21G2 DQ21G3 DQ21G4 DQ21G5 DQ21H1 DQ21H2 DQ21H3 DQ21H4 DQ21H5 DQ21I1 DQ21I2 DQ21I3 DQ21I4 DQ21I5 DQ21J1 DQ21J2 DQ21J3 DQ21J4 DQ21J5 DQ21K1 DQ21K2 DQ21K3 DQ21K4 DQ21K5 DQ21L1 DQ21L2 DQ21L3 DQ21L4 DQ21L5 DQ21M1 DQ21M2 DQ21M3 DQ21M4 DQ21M5 DQ21N1 DQ21N2 DQ21N3 DQ21N4 DQ21N5 DQ21O1 DQ21O2 DQ21O3 DQ21O4 DQ21O5 DQ21P1 DQ21P2 DQ21P3 DQ21P4 DQ21P5 DQ21Q1 DQ21Q2 DQ21Q3 DQ21Q4 DQ21Q5 DQ21R1 DQ21R2 DQ21R3 DQ21R4 DQ21R5 DQ21S1 DQ21S1A DQ21S1B DQ21S2 DQ21S2A DQ21S2B DQ21S3 DQ21S3A DQ21S3B DQ21S4 DQ21S4A DQ21S4B DQ21S5 DQ21S5A DQ21S5B DQ21T1 DQ21T2 DQ21T3 DQ21T4 DQ21T5 DQ21U1A DQ21U1B DQ21U1C DQ21U1D DQ21U1E DQ21U1TX $ DQ21U2A DQ21U2B DQ21U2C DQ21U2D DQ21U2E DQ21U2TX $ DQ21U3A DQ21U3B DQ21U3C DQ21U3D DQ21U3E DQ21U3TX $ DQ21U4A DQ21U4B DQ21U4C DQ21U4D DQ21U4E DQ21U4TX $ DQ21U5A DQ21U5B DQ21U5C DQ21U5D DQ21U5E DQ21U5TX $ DQ21V1 DQ21V2 DQ21V3 DQ21V4 DQ21V5 DQ21W1 DQ21W2 DQ21W3 DQ21W4 DQ21W5 DQ21X1 DQ21X2 DQ21X3 DQ21X4 DQ21X5 DQ22A1 DQ22A2 DQ22A3 DQ22A4 DQ22A5 DQ22A6 DQ22A7 DQ22A8 DQ22A9 DQ22B1 DQ22B2 DQ22B3 DQ22B4 DQ22B5 DQ22B6 DQ22B7 DQ22B8 DQ22B9 DQ23TX $ DQ23_1 DQ23_2 DQ23_3 DQ23_4 DQ23_5 DQ23_6 DQ23_7 DQ23_8 DQ23_88 DQ23_9 DQ23_99 DQ24A DQ24B DQ24C DQ24D DQ24E DQ24F DQ24G DQ24H DQ24I DQ25 DQ26A DQ26B DQ26C DQ26D DQ26E DQ26F DQ26G DQ26H DQ26I DQ26J DQ26K DQ26L DQ26M DQ26N DQ26O DQ27A DQ27BTX $ DQ27B_1 DQ27B_2 DQ27B_3 DQ27B_4 DQ27B_5 DQ27B_6 DQ27B_7 DQ27B_8 DQ27B_9 DQ27B_99 DQ27C1 DQ27C2 DQ28A DQ28B DQ28C DQ28D DQ28E DQ28F DQ28G DQ28H DQ28I DQ28J DQ28K DQ28L DQ28M DQ28N DQ28O DQ28P DQ28Q DQ29A DQ29B DQ29C DQ29D DQ29E DQ29F DQ29G DQ29H DQ29I DQ29J DQ29K DQ3 DQ30A DQ30B DQ30C DQ30D DQ30E DQ30F DQ30G DQ30H DQ34TX $ DQ34_1 DQ34_2 DQ34_3 DQ34_4 DQ34_5 DQ34_6 DQ34_7 DQ34_8 DQ34_9 DQ34_99 DQ35H DQ35M DQ35_99 DQ36 DQ36_88 DQ36_99 DQ37 DQ37_88 DQ37_99 DQ38 DQ38_88 DQ38_99 DQ39 DQ39_88 DQ39_99 DQ40 DQ41 DQ41_99 DQ42 DQ43 DQ43_99 DQ44 DQ45 DQ46 DQ47 DQ48 DQ49 DQ49_99 DQ4A DQ4ATX $ DQ4B DQ4C1 DQ4C2 DQ4C3 DQ4C4 DQ4C5 DQ4D DQ5 $ DQ50 DQ50TX $ DQ51 DQ51TX $ DQ52H DQ52M DQ52_99 DQ53 DQ53_99 DQ54A DQ54B DQ54C DQ54D DQ54E DQ54F DQ54G DQ54H DQ54I DQ54J DQ54K DQ54L DQ54M DQ55 DQ6A DQ6B1 DQ6B199 DQ6B2 DQ6B288 DQ6B299 DQ6B3 DQ6B388 DQ6B399 DQ7 DQ8 DQ9A DQ9B DQ9C DQ9D DQ9E DQ9F DQ9G DQ9H DQ9I DQ9J DQ9K DQ9L DQ9M DQ9TX $ DRELSTAT $ DSTD_SYM DWHERE $ DWHO_1 DWHO_2 DWHO_3 DWHO_4 EDATE $ EQ1 EQ2 EQ2NAMES $ EQ3 EQ4 EQ4NAMES $ EQ4SENSI $ EQ5NAMES $ EQ5RPR EQ5TITER $ EQ5TPHA FDATE $ FINTNAME $ FQ1 FQ10A FQ10B FQ10C FQ10D FQ10E FQ10F FQ10G FQ10H FQ10I FQ10J FQ10K FQ10L FQ10M FQ11A FQ11B FQ11C FQ11D FQ11E FQ11F FQ11G FQ11H FQ11I FQ11J FQ11K FQ11L FQ11M FQ2 FQ3 FQ4TX $ FQ4_1 FQ4_2 FQ4_3 FQ4_4 FQ4_5 FQ4_6 FQ4_99 FQ5 FQ6 FQ7A FQ7B FQ7C FQ7D FQ7E FQ7F FQ7G FQ7H FQ7I FQ7J FQ7K FQ7L FQ7M FQ7N FQ7O FQ8A FQ8B FQ8C FQ8D FQ8E FQ8F FQ8G FQ8H FQ8I FQ8J FQ8K FQ8L FQ8M FQ8N FQ8O FQ9A FQ9B FQ9C FQ9D FQ9E FQ9F FQ9G FQ9H FQ9I FQ9J FQ9K FQ9L FQ9M GCYCLE $ GDATE $ GEINTC GEINTNP GEINTP GENDER $ GENRLSEX GENRLUNP GEUPIC GEUPINP GEUPIP GHEAR GINTNAME $ GLANG $ GLANGTX $ GNINTC GNINTNP GNINTP GNNRLSEX GNNRLUNP GNPARTC GNPARTNP GNPARTP GNUPC GNUPIC GNUPINP GNUPIP GNUPNP GNUPP GQ10A GQ10B GQ11 GQ12 GQ13A1 GQ13A2 GQ13A3 GQ13A4 GQ13B GQ14A1 GQ14A2 GQ14A3 GQ14A4 GQ14A5 GQ14B GQ14C1 GQ14C2 GQ14C3 GQ14C4 GQ14C5 GQ14C6 GQ14CTX $ GQ15A GQ15B GQ15C GQ15D GQ15E GQ15F GQ15G GQ15H GQ15I GQ15J GQ15K GQ15L GQ16A GQ16B GQ16C GQ16D GQ16E GQ17C GQ17D GQ17E GQ17F GQ17G GQ17H GQ17I GQ18C GQ19A GQ19B GQ19C GQ19D GQ19E GQ19F GQ19G GQ19H GQ1_99 GQ20 GQ20_99 GQ21A1 $ GQ21A2 $ GQ21A3 $ GQ21A4 $ GQ21A5 $ GQ21B1 GQ21B2 GQ21B3 GQ21B4 GQ21B5 GQ21C1 $ GQ21C2 $ GQ21C3 $ GQ21C4 $ GQ21C5 $ GQ21D1 GQ21D2 GQ21D3 GQ21D4 GQ21D5 GQ21E1 GQ21E1TX $ GQ21E2 GQ21E2TX $ GQ21E3 GQ21E3TX $ GQ21E4 GQ21E4TX $ GQ21E5 GQ21E5TX $ GQ21F1 GQ21F199 GQ21F2 GQ21F299 GQ21F3 GQ21F399 GQ21F4 GQ21F499 GQ21F5 GQ21F599 GQ21G1 GQ21G2 GQ21G3 GQ21G4 GQ21G5 GQ21H1 GQ21H2 GQ21H3 GQ21H4 GQ21H5 GQ21I1 GQ21I199 GQ21I2 GQ21I299 GQ21I3 GQ21I399 GQ21I4 GQ21I499 GQ21I5 GQ21I599 GQ21J1 GQ21J199 GQ21J2 GQ21J299 GQ21J3 GQ21J399 GQ21J4 GQ21J499 GQ21J5 GQ21J599 GQ21K1 GQ21K199 GQ21K2 GQ21K299 GQ21K3 GQ21K399 GQ21K4 GQ21K499 GQ21K5 GQ21K599 GQ21L1 GQ21L199 GQ21L2 GQ21L299 GQ21L3 GQ21L399 GQ21L4 GQ21L499 GQ21L5 GQ21L599 GQ21M1 GQ21M199 GQ21M2 GQ21M299 GQ21M3 GQ21M399 GQ21M4 GQ21M499 GQ21M5 GQ21M599 GQ21N1 GQ21N2 GQ21N3 GQ21N4 GQ21N5 GQ21O1 GQ21O2 GQ21O3 GQ21O4 GQ21O5 GQ21P1 GQ21P2 GQ21P3 GQ21P4 GQ21P5 GQ21Q1 GQ21Q2 GQ21Q3 GQ21Q4 GQ21Q5 GQ21R1 GQ21R2 GQ21R3 GQ21R4 GQ21R5 GQ21S1 GQ21S1A GQ21S1B GQ21S2 GQ21S2A GQ21S2B GQ21S3 GQ21S3A GQ21S3B GQ21S4 GQ21S4A GQ21S4B GQ21S5 GQ21S5A GQ21S5B GQ21T1 GQ21T2 GQ21T3 GQ21T4 GQ21T5 GQ21U1A GQ21U1B GQ21U1C GQ21U1D GQ21U1E GQ21U1TX $ GQ21U2A GQ21U2B GQ21U2C GQ21U2D GQ21U2E GQ21U2TX $ GQ21U3A GQ21U3B GQ21U3C GQ21U3D GQ21U3E GQ21U3TX $ GQ21U4A GQ21U4B GQ21U4C GQ21U4D GQ21U4E GQ21U4TX $ GQ21U5A GQ21U5B GQ21U5C GQ21U5D GQ21U5E GQ21U5TX $ GQ21V1 GQ21V2 GQ21V3 GQ21V4 GQ21V5 GQ21W1 GQ21W2 GQ21W3 GQ21W4 GQ21W5 GQ21X1 GQ21X2 GQ21X3 GQ21X4 GQ21X5 GQ22A1 GQ22A2 GQ22A3 GQ22A4 GQ22A5 GQ22A6 GQ22A7 GQ22A8 GQ22A9 GQ22B1 GQ22B2 GQ22B3 GQ22B4 GQ22B5 GQ22B6 GQ22B7 GQ22B8 GQ22B9 GQ23 GQ23TX $ GQ24A GQ24B GQ24C GQ24D GQ24E GQ24F GQ24G GQ24H GQ24I GQ25 GQ25_99 GQ26A GQ26B GQ26C GQ26D GQ26E GQ26F GQ26G GQ26H GQ26I GQ26J GQ26K GQ26L GQ26M GQ26N GQ26O GQ27A GQ27B1 GQ27B2 GQ27B3 GQ27B4 GQ27B5 GQ27B6 GQ27B7 GQ27B8 GQ27B9 GQ27B99 GQ27BTX $ GQ27C1 GQ27C2 GQ28A GQ28B GQ28C GQ28D GQ28E GQ28F GQ28G GQ28H GQ28I GQ28J GQ28K GQ28L GQ28M GQ28N GQ28O GQ28P GQ28Q GQ29A GQ29B GQ29C GQ29D GQ29E GQ29F GQ29G GQ29H GQ29I GQ29J GQ29K GQ3 GQ30A GQ30B GQ30C GQ30D GQ30E GQ30F GQ30G GQ30H GQ34TX $ GQ34_1 GQ34_2 GQ34_3 GQ34_4 GQ34_5 GQ34_6 GQ34_7 GQ34_8 GQ34_9 GQ34_99 GQ35 GQ36 GQ37 GQ38 GQ39 GQ40 GQ40_99 GQ41 GQ42 GQ43 GQ44 GQ45 GQ46 GQ46_99 GQ47A GQ47B GQ47C GQ47D GQ47E GQ47F GQ47G GQ47H GQ47I GQ47J GQ47K GQ47L GQ47M GQ48 GQ4A GQ4ATX $ GQ4B GQ4C1 GQ4C2 GQ4C3 GQ4C4 GQ4C5 GQ4D GQ6A GQ6B1 GQ6B199 GQ6B2 GQ6B299 GQ6B3 GQ6B399 GQ7 GQ7_99 GQ8 GQ8_99 GQ9A GQ9B GQ9C GQ9D GQ9E GQ9F GQ9G GQ9H GQ9I GQ9J GQ9K GQ9L GQ9M GQ9TX $ GRELSTAT $ GROUP $ GSTD_SYM GWHERE $ GWHO HDATE $ HINTNAME $ HQ1 HQ10A HQ10B HQ10C HQ10D HQ10E HQ10F HQ10G HQ10H HQ10I HQ10J HQ10K HQ10L HQ10M HQ11A HQ11B HQ11C HQ11D HQ11E HQ11F HQ11G HQ11H HQ11I HQ11J HQ11K HQ11L HQ11M HQ2 HQ3 HQ4TX $ HQ4_1 HQ4_2 HQ4_3 HQ4_4 HQ4_5 HQ4_6 HQ4_99 HQ5 HQ6 HQ7A HQ7B HQ7C HQ7D HQ7E HQ7F HQ7G HQ7H HQ7I HQ7J HQ7K HQ7L HQ7M HQ7N HQ7O HQ8A HQ8B HQ8C HQ8D HQ8E HQ8F HQ8G HQ8H HQ8I HQ8J HQ8K HQ8L HQ8M HQ8N HQ8O HQ9A HQ9B HQ9C HQ9D HQ9E HQ9F HQ9G HQ9H HQ9I HQ9J HQ9K HQ9L HQ9M X1BLDGVE $ X1HIVCHK $ X1HIVRES X1HIVTST X1HIVVIS X1NUMCC X1NUMCCA X1NUMCCB X1NUMVIS X1NUMVSA X1NUMVSB X1URNGVE $ X2BLDGVE $ X2HIVCHK $ X2HIVRES X2HIVTST X2HIVVIS X2NUMCC X2NUMCCA X2NUMCCB X2NUMVIS X2NUMVSA X2NUMVSB X2URNCT X2URNGC X2URNGVE $ X3BLDGVE $ X3HIVCHK $ X3HIVRES X3HIVTST X3HIVVIS X3NUMCC X3NUMCCA X3NUMCCB X3NUMVIS X3NUMVSA X3NUMVSB X3URNGVE $ XHIVDATE $ XURNCT XURNGC XURNSTD _12 _6 _B ; * convert date variables from character format to date format; array vars {21} ADATE BDATE CDATE DATE00 DATE06 DATE12 DDATE EDATE FDATE GDATE HDATE xHIVDATE X1BLDGVE X1URNGVE X2BLDGVE X2URNGVE X3BLDGVE X3URNGVE x1hivchk x2hivchk x3hivchk; array vars2 {21} vars2_1-vars2_21; do x=1 to 21; day=substr(vars{x},1,2)+0; mon=upcase(substr(vars{x},3,3)); yr =substr(vars{x},6,2)+0; if mon='JAN' then monnum=1; else if mon='FEB' then monnum=2; else if mon='MAR' then monnum=3; else if mon='APR' then monnum=4; else if mon='MAY' then monnum=5; else if mon='JUN' then monnum=6; else if mon='JUL' then monnum=7; else if mon='AUG' then monnum=8; else if mon='SEP' then monnum=9; else if mon='OCT' then monnum=10; else if mon='NOV' then monnum=11; else if mon='DEC' then monnum=12; vars2{x}=mdy(monnum,day,yr); end; drop x day mon yr monnum; drop ADATE BDATE CDATE DATE00 DATE06 DATE12 DDATE EDATE FDATE GDATE HDATE xHIVDATE X1BLDGVE X1URNGVE X2BLDGVE X2URNGVE X3BLDGVE X3URNGVE x1hivchk x2hivchk x3hivchk; rename vars2_1=ADATE vars2_2=BDATE vars2_3=CDATE vars2_4=DATE00 vars2_5=DATE06 vars2_6=DATE12 vars2_7=DDATE vars2_8=EDATE vars2_9=FDATE vars2_10=GDATE vars2_11=HDATE vars2_12=xHIVDATE vars2_13=X1BLDGVE vars2_14=X1URNGVE vars2_15=X2BLDGVE vars2_16=X2URNGVE vars2_17=X3BLDGVE vars2_18=X3URNGVE vars2_19=x1hivchk vars2_20=x2hivchk vars2_21=x3hivchk; format vars2_1-vars2_21 date7.; * (end of document);