Kent Wallace wrote:
> We are in the process of migrating to Micro focus COBOL and ORACLE on
> HP-UX.  Does someone know if the functions
> 
> INTERGER-OF-DATE
> 
> CURRENT-DATE
> 
> And others work in Micro Focus COBOL as they did in HP3000 COBOL?
> 

Sorry, I don't have access to an HPUX at the moment.

[linux] kevsrc/test$ ll datechk*
-rw-r--r--    1 xport    bitech        699 2006-06-22 16:40 datechk.cbl
[linux] kevsrc/test$ cat datechk.cbl
       ****************************************************************
        IDENTIFICATION DIVISION.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 STR                PIC X(30) VALUE SPACES.
        01 IDAT               PIC S9(9) VALUE 20060622.
        01 RTV                PIC S9(9) VALUE 0.
       *****************************************************************
        PROCEDURE DIVISION.
            MOVE FUNCTION CURRENT-DATE TO STR.
            DISPLAY "CD=", STR.
            MOVE FUNCTION INTEGER-OF-DATE ( IDAT ) TO RTV.
            DISPLAY "ID=", RTV.
            STOP RUN.
       ****************************************************************
[linux] kevsrc/test$ make datechk
  Cobol datechk
cob -xg -o datechk datechk.cbl 2> datechk.err -L/opt/lib/cobol/lib -lcobcrtn -lcobrts -lcobmisc 
-lcobscreen
[linux] kevsrc/test$ datechk
CD=2006062216442105-0600
ID=000148096+
[linux] kevsrc/test$

Keven

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *