@dariodr, cuestión de gustos, pero a mi e gusta hacerlo así:
Código COBOL:
string hoy(1:2) '/' hoy(3:2) '/' hoy(5:2) delimited by size into fecha-hoy
y si quieres ponerla en formato dd/mm/aa
Código COBOL:
string hoy(5:2) '/' hoy(3:2) '/' hoy(1:2) delimited by size into fecha-hoy