SUBROUTINE FORMAL.DATE (CONV.TYPE, IN.VALUE, SUBR.BRANCH, RETURN.VALUE)
*
* SUBROUTINE TO CONVERT INTERNAL DATES TO A FORMAL (SPELLED OUT) FORMAT
*
MONTHS = "January":@VM:"February":@VM:"March":@VM:"April":@VM:"May":@VM
MONTHS:= "June":@VM:"July":@VM:"August":@VM:"September":@VM:"October":@VM
MONTHS:= "November":@VM:"December"

BEGIN CASE
  CASE CONV.TYPE = 'ICONV'
      RETURN.VALUE = ICONV(IN.VALUE,"D2/")
      STATUS() = 0
  CASE CONV.TYPE = 'OCONV'
      DATE  = OCONV(IN.VALUE,"D4/")
      MONTH = DATE[1,2]
      DAY   = DATE[4,2] + 0
      RETURN.VALUE = FIELD(MONTHS,@VM,MONTH):" ":DAY:", ":DATE[7,4]
      STATUS() = 0
END CASE
RETURN