FILENAME SUPLIDEN "D:\Questionnaire\DAT\SUPLIDEN.DAT" LRECL=663;
    *** LRECL includes 2 positions for CRLF, assuming use of PC SAS;

    DATA WORK;
      INFILE SUPLIDEN MISSOVER;

      LENGTH
        HQVMCODE  5
        HQKX3A   $120
        SRCPINFO  3
        CHANGFLG  3
        CHANGNOT $125
        HQKX3D    3
        DOSAGE    3
        HQKX7A1   3
        PRODNOTE $200
        DOSENOTE $200
      ;

      FORMAT
      ;

     INPUT
        HQVMCODE 1-6
        HQKX3A   7-126
        SRCPINFO 127-128
        CHANGFLG 129-130
        CHANGNOT 131-255
        HQKX3D   256-257
        DOSAGE   258-259
        HQKX7A1  260-261
        PRODNOTE 262-461
        DOSENOTE 462-661
     ;

      LABEL
        HQVMCODE = "Dietary Supplement Product Code"
        HQKX3A   = "Dietary supplement name"
        SRCPINFO = "Source of Product Information"
        CHANGFLG = "Flg for Chg in Nutr/Ingr Vals Since 1988"
        CHANGNOT = "Information about Nutr/Ingr Changes"
        HQKX3D   = "Product Type"
        DOSAGE   = "Product Dosage"
        HQKX7A1  = "Form of Dosage"
        PRODNOTE = "Product Information Note"
        DOSENOTE = "Dosage Note"
      ;