Power Builder - Como a la fecha actual agregarle un mes mas

Hola buenas tardes a todos, necesito agregar un mes mas a la fecha que se debe desplegar en pantalla y que el dia sea igual a 1, ej hoy estamos a 23/11/2007, y necesito que quede de esta manera : 01/12/2007, si es posible validar que si el mes es igual a 12 al agregar el mes siguiente cambie el año

de ante manos muchas gracias

Ignacio

// Tenemos una variable con la fecha de hoy

Date ld_hoy

ld_hoy = Today()

// Primero le extraes el año y mes. Luego le agregas un mes:

Integer li_anio, li_mes

li_anio = Year(ld_hoy)
li_mes = Month(ld_hoy)

If li_mes = 12 Then
li_mes = 0
li_anio += 1
End if

li_mes += 1

// Obtienes la nueva fecha

Date ld_new_fecha

ld_new_fecha = Date(li_anio, li_mes, 1 )

///////////////////

Espero te sirva de ayuda

Saludos!

Gracias Jancarlos por tu ayuda, resulto a la perfección lo solicitado