/* REXX */
trace o
address ispexec "control errors return"   /*                        */
address ispexec "vget zdate"
                                          /*                        */