890                             tmpdsc = {6,DSC$K_DTYPE_T,DSC$K_CLASS_S,0};  in Perl_vmstrnenv()  local
955       else if ((tmpdsc.dsc$a_pointer = tabvec[curtab]->dsc$a_pointer) &&  in Perl_vmstrnenv()
956                !str$case_blind_compare(&tmpdsc,&clisym)) {  in Perl_vmstrnenv()
1285   struct dsc$descriptor_s tmpdsc = {6,DSC$K_DTYPE_T,DSC$K_CLASS_S,0};  in prime_env_iter()  local
1325      if (!have_sym && (tmpdsc.dsc$a_pointer = env_tables[i]->dsc$a_pointer) &&  in prime_env_iter()
1326          !str$case_blind_compare(&tmpdsc,&clisym)) have_sym = 1;  in prime_env_iter()
1356     else if ((tmpdsc.dsc$a_pointer = env_tables[i]->dsc$a_pointer) &&  in prime_env_iter()
1357              !str$case_blind_compare(&tmpdsc,&clisym)) {  in prime_env_iter()
1361           (tmpdsc.dsc$a_pointer = env_tables[i]->dsc$a_pointer + 6) &&  in prime_env_iter()
1362           !str$case_blind_compare(&tmpdsc,&local)) my_strlcpy(cmd+12, "Local  *", sizeof(cmd)-12);  in prime_env_iter()
1501                             tmpdsc = {6,DSC$K_DTYPE_T,DSC$K_CLASS_S,0};  in Perl_vmssetenv()  local
1534         else if ((tmpdsc.dsc$a_pointer = tabvec[curtab]->dsc$a_pointer) &&  in Perl_vmssetenv()
1535                  !str$case_blind_compare(&tmpdsc,&clisym)) {  in Perl_vmssetenv()
1538               (tmpdsc.dsc$a_pointer = tabvec[curtab]->dsc$a_pointer + 6) &&  in Perl_vmssetenv()
1539               !str$case_blind_compare(&tmpdsc,&local))   in Perl_vmssetenv()
1563         if ((tmpdsc.dsc$a_pointer = tabvec[0]->dsc$a_pointer) &&  in Perl_vmssetenv()
1564             !str$case_blind_compare(&tmpdsc,&clisym)) {  in Perl_vmssetenv()
1567               (tmpdsc.dsc$a_pointer = tabvec[0]->dsc$a_pointer + 6) &&  in Perl_vmssetenv()
1568                !str$case_blind_compare(&tmpdsc,&local))   in Perl_vmssetenv()