parm p_mon=7,p_day=23,p_year=1997

#  ***************************************************************
#  * This command file packs a date into a 32 bit integer value. *
#  * The packed date is displayed as two integer data types -    *
#  * 2I1 and I2.                                                 *
#  *                                                             *
#  * The date is input to the command file as three PARMs in the *
#  * form mm,dd,yyyy.                                            *
#  *                                                             *
#  * Written by: Steven P. Barrett                               *
#  * Date:  7/23/1997                                            *
#  ***************************************************************

setvar p_mon hex(!p_mon)
setvar p_day hex(!p_day)
setvar p_year hex(!p_year)
if len("![p_mon]") = 2
      setvar p_mon rht("![p_mon]",1)
      setvar p_mon "0"+"![p_mon]"
else
      setvar p_mon rht("![p_mon]",2)
endif
if len("![p_day]") = 2
      setvar p_day rht("![p_day]",1)
      setvar p_day "0"+"![p_day]"
else
      setvar p_day rht("![p_day]",2)
endif
setvar p_yrmoda "![p_year]"+"![p_mon]"+"![p_day]"
setvar i_moday "$"+"![p_mon]"+"![p_day]"
setvar i_moday !i_moday
setvar i_moda !i_moday
setvar p_year !p_year
setvar i_moda "!p_year"+"!i_moda"
setvar p_yrmoda !p_yrmoda
echo
echo
echo
echo The 2I1 Date is !i_moda
echo     Half-Word 1 = !p_year
echo     Half-Word 2 = !i_moday
echo
echo The I2 Date is !p_yrmoda
echo
echo
deletevar p_day,p_mon,p_year,p_yrmoda,i_moda,i_moday