Figure 4: Creating HSSF cell-style object

D Timestamp       s                   like(HSSFCellStyle)

D df              s                   like(HSSFDataFormat)

D TempStr         s                   like(jString)

D DateFmt         s              5I 0

 .

 .

    Timestamp = HSSFWorkbook_createCellStyle(book);

    df        = HSSFWorkbook_createDataFormat(book);

    TempStr = new_String('m/d/yyyy h:mm:ss');

    DateFmt   = HSSFDataFormat_getFormat( df : TempStr );

    HSSFCellStyle_setDataFormat(Timestamp: DateFmt);