[Info-vax] Error Messages in Basic - %BASIC-E-PARMODNOT, mode for parameter <n> of routine <procedure-name> not as declared

[Craig Dedo]

On Tuesday, June 4, 2019 at 6:25:21 PM UTC-5, Dave Froble wrote:
> On 6/4/2019 6:07 PM, Craig Dedo wrote:
> > When trying to use the OpenVMS Run Time Library procedures LIB$CONVERT_DATE_STRING() and LIB$DAY_OF_WEEK() with HP Basic for OpenVMS, I am getting  %BASIC-E-PARMODNOT error messages.  Here is a screenshot of the messages from the compiler.
> >
> > [Begin compiler error messages]
> >      VMS_Condition_Code_gl   = LIB$CONVERT_DATE_STRING ( End_of_Month_Date_gs, End_of_Month_Date_Time_gq, Date_Time_Context_gl )
> > ..............................................................................^
> > %BASIC-E-PARMODNOT, mode for parameter 2 of routine LIB$CONVERT_DATE_STRING not as declared
> > at line number 166 in file SMP_DEVELOP_DV:[YYY1V30.TOLAS.DEV.OLIVE.STARLET]Test_Days_in_Month.BAS;4
> >
> >      VMS_Condition_Code_gl   = LIB$DAY_OF_WEEK ( End_of_Month_Date_Time_gq, End_of_Month_Weekday_gl )
> > ................................................^
> > %BASIC-E-PARMODNOT, mode for parameter 1 of routine LIB$DAY_OF_WEEK not as declared
> > at line number 167 in file SMP_DEVELOP_DV:[YYY1V30.TOLAS.DEV.OLIVE.STARLET]Test_Days_in_Month.BAS;4
> > %BASIC-E-ENDNOOBJ, SMP_DEVELOP_DV:[YYY1V30.TOLAS.DEV.OLIVE.STARLET]Test_Days_in_Month.BAS;4 completed with 2 diagnostics - object deleted
> > [End of compiler error messages]
> >
> > Here are the relevant variable declarations at the top of my program:
> > Declare Long            Date_Time_Context_gl
> > Declare String          End_of_Month_Date_gs
> > Declare Quad            End_of_Month_Date_Time_gq
> > Declare Long            End_of_Month_Weekday_gl
> > Declare Long            VMS_Condition_Code_gl
> >
> > I also included all of the relevant definitions from several of the modules in SYS$LIBRARY:BASIC$STARLET.TLB.
> >
> > What is going wrong?  What can I do to fix this problem?
> >
> > Any help that anyone could give me would be most appreciated.
> >
> > Sincerely,
> > Craig T. Dedo, OpenVMS Software Development Consultant
> > Navistar, Inc.
> > 2701 Navistar Drive
> > Lisle, IL   60532-3637
> >
> 
> What version of Basic?
> 
> There was a problem with quadwords a while back.  I don't remember details.
> 
> -- 
> David Froble                       Tel: 724-529-0450
> Dave Froble Enterprises, Inc.      E-Mail: davef at tsoft-inc.com
> DFE Ultralights, Inc.
> 170 Grimplin Road
> Vanderbilt, PA  15486

The version of BASIC is:  VSI BASIC V1.8-005
The operating system is:  OpenVMS V8.4-2L2

Sincerely,
Craig T. Dedo, OpenVMS Software Development Consultant
Navistar, Inc.
2701 Navistar Drive
Lisle, IL   60532-3637
E-mail:  firstname.lastname at domain dot com
Domain:  navistar