Re: Passing Parms

One last thought, if this program is normally called from yet another 
program that supposedly has the date in a date field then you my want to 
create a third program for parm testing.  One that looks sort of like:
     D PALMER          PR                  EXTPGM('PALMER')
     D  InDate                             like(WorkDate)
     D PALMER          PI                        *ENTRY PLIST
     D  InDate                             like(WorkDate)

     D RealProgram     PR                  EXTPGM('MYPGM')
     D  ItsDate                            like(FinalDate)

     D WorkDate        s             10a
     D FinalDate       s               d   datfmt(*usa)
     D

      /free
       *inlr=*on;
       FinalDate=%date(InDate:*usa);
       callp realprogram(FinalDate);
       return;
      /end-free


Rob Berendt