proc main
   integer iEntries                    ;Number of entries in dialing class
   integer iCount                      ;Loop variable
   string sName                        ;Name of Connection Directory entry
   string sAreaCode
   string sCompany
   string sPhoneNumber
   string sUserID
   string sPassword
   string sMisc

   dialcount DATA iEntries             ;Get number of data entries
   for iCount = 0 upto (iEntries - 1)
      dialname DATA iCount sName       ;Get name of entry based on index
      set dialentry access DATA sName  ;Turn on dialentry for the current entry
      fetch dialentry areacode sAreaCode
      fetch dialentry phonenumber sPhoneNumber
      fetch dialentry company sCompany
      fetch userid sUserID
      fetch password sPassword
      fetch misc sMisc
   endfor
endproc