hi,
I'll plead dumb on this one, I cannot find HPFMTCALENDAR or HPCALENDAR on the cd. But I have this working.

SYSTEM DATES;
DEFINE(ITEM) HPCALDATE     I(4):
             FMTDATE       X(18);

DEFINE(INTRINSIC) CALENDAR:
                  FMTCALENDAR;

LIST HPCALDATE: FMTDATE;
PROC CALENDAR(&(HPCALDATE));
PROC FMTCALENDAR(#(HPCALDATE),%(FMTDATE));
DISPLAY FMTDATE;
EXIT;

/RUN DATESR

FMTDATE:
FMTDATE: MON, MAR  2, 1998
 MON, MAR  2, 1998
End Run

Hope this helps.
Gary Nolan
Sydney Steel Corporation
email [log in to unmask]




-----Original Message-----
From:   CECILE CHI [SMTP:[log in to unmask]]
Sent:   February 28, 1998 7:29 PM
To:     rapid
Subject:        Express 4 intrinsics

What is the secret to calling HPFMTCALENDAR in Transact?
I can call HPCALENDAR and use the date returned in the other
new data intrinsics, all except HPFMTCALENDAR.

My code:
SYSTEM DATES;
DEFINE(ITEM) HPCALDATE     I(9):
             FMTDATE       X(20);
LIST HPCALDATE: FMTDATE;
PROC HPCALENDAR(&(HPCALDATE));
PROC HPFMTCALENDAR(#(HPCALDATE),%(FMTDATE));
DISPLAY FMTDATE;
EXIT;

Compiled with PROCINTRINSIC, PROCALIGNED_32

I get:
**** INTERNAL TRAP
Data Memory Protection Trap
[VSM] Undecoded status info = -37
ABORT: $OLDPASS.PUB.HPA
NM SYS a.00214f5c $non_aligned_entry+$18
NM PROG 574.00005 bdc PROC_DATES+$1e0
run $oldpass
Program terminated in an error statoe (CIERR 976)

I can call HPFMTCALENDAR from a Fortran/77 program
and it works just fine.

I can call HPCALENDAR in Transact and use the date returned
in HPDATECONVERT, HPDATEFORMAT, HPDATEOFFSET,
and HPDATEDIFF, which all work as advertised.

Cecile Chi    ([log in to unmask])