A*------------------------------------*
     A          R SAMPODR
     A*------------------------------------*
     A                                      PFILE(SAMPOD)
     A          K AAAORDR#