Robert:
To the whole list was my intention: 2 heads are better than 1
8~))
John M Penney
Department of Licensing
State of Washington
Olympia, WA
(360)664-1392
(360)586-1919 (Fax)
[log in to unmask]
"Opinions expressed do not necessarily reflect those of my employer..."
> ----------
> From: Robert Peddicord[SMTP:[log in to unmask]]
> Sent: Monday, August 21, 2000 2:07 PM
> To: Penney, John
> Subject: RE: [HP3000-L] Fortran conversion
>
> Here is the common and the buffer setup plus the error. Sorry about that
> earlier.
>
> Common /DINF/ Buf3,Buf5
>
> ! ----------------------------------------------------------
> ! Drug Data Set - Buf3
> ! ----------------------------------------------------------
> INTEGER*2 buf3(229)
> INTEGER*4 cost3,schedule3,onhand3,reordpt3,compare3
> INTEGER*4 expirdt3,update3,yrtodt3,lstmonth3
> INTEGER*4 thsmonth3,spec3,cstupdate3,reordpt23
> INTEGER*4 lstordamt3
> CHARACTER*2 ordered3
> CHARACTER*4 units3,autostop3
> CHARACTER*10 abb13,abb23,dtype3,qtygroup3,vend13,vend23
> CHARACTER*10 location3,route3,pkgsize3,invest3,agrmnt3
> CHARACTER*16 ndc3,lastpo3
> CHARACTER*20 mfg3,class3
> CHARACTER*26 trade3,gen3
> CHARACTER*30 interact3
> CHARACTER*32 nurseinfo13,nurseinfo23
> CHARACTER*60 months123
> EQUIVALENCE (trade3,buf3(1)),(gen3,buf3(14))
> EQUIVALENCE (abb13,buf3(27)),(abb23,buf3(32))
> EQUIVALENCE (ndc3,buf3(37)),(mfg3,buf3(45))
> EQUIVALENCE (interact3,buf3(55)),(cost3,buf3(70))
> EQUIVALENCE (units3,buf3(72)),(schedule3,buf3(74))
> EQUIVALENCE (onhand3,buf3(76)),(reordpt3,buf3(78))
> EQUIVALENCE (compare3,buf3(80)),(expirdt3,buf3(82))
> EQUIVALENCE (dtype3,buf3(84)),(spec3,buf3(89))
> EQUIVALENCE (qtygroup3,buf3(91)),(class3,buf3(96))
> EQUIVALENCE (update3,buf3(106)),(autostop3,buf3(108))
> EQUIVALENCE (vend13,buf3(110)),(vend23,buf3(115))
> EQUIVALENCE (yrtodt3,buf3(120)),(months123,buf3(122))
> EQUIVALENCE (lstmonth3,buf3(152)),(thsmonth3,buf3(154))
> EQUIVALENCE (location3,buf3(156)),(nurseinfo13,buf3(161)
> EQUIVALENCE (nurseinfo23,buf3(177)),(reordpt23,buf3(193)
> EQUIVALENCE (lstordamt3,buf3(197))
> EQUIVALENCE (route3,buf3(199)),(pkgsize3,buf3(204))
> EQUIVALENCE (ordered3,buf3(209)),(lastpo3,buf3(210))
> EQUIVALENCE (invest3,buf3(218)),(agrmnt3,buf3(223))
> EQUIVALENCE (cstupdate3,buf3(228))
>
> FOR VARIABLE LSTORDAMT3
> **** ERROR # 2 ILLEGAL OR INCONSISTENT EQUIVALENCE STATEMENT (138)
> FOR VARIABLE REORDPT23
> **** ERROR # 3 ILLEGAL OR INCONSISTENT EQUIVALENCE STATEMENT (138)
> FOR VARIABLE SPEC3
> **** ERROR # 4 ILLEGAL OR INCONSISTENT EQUIVALENCE STATEMENT (138)
> FOR VARIABLE THSMONTH3
> **** ERROR # 5 ILLEGAL OR INCONSISTENT EQUIVALENCE STATEMENT (138)
> FOR VARIABLE LSTMONTH3
> **** ERROR # 6 ILLEGAL OR INCONSISTENT EQUIVALENCE STATEMENT (138)
> FOR VARIABLE YRTODT3
> **** ERROR # 7 ILLEGAL OR INCONSISTENT EQUIVALENCE STATEMENT (138)
> FOR VARIABLE UPDATE3
> **** ERROR # 8 ILLEGAL OR INCONSISTENT EQUIVALENCE STATEMENT (138)
> FOR VARIABLE EXPIRDT3
>
> At 01:58 PM 8/21/2000 -0700, you wrote:
> >A snippet of code and an error message, eh Robert?
> >
> >John M Penney
> >Department of Licensing
> >State of Washington
> >Olympia, WA
> >(360)664-1392
> >(360)586-1919 (Fax)
> >[log in to unmask]
> >"Opinions expressed do not necessarily reflect those of my employer..."
> >
> > > ----------
> > > From: Robert Peddicord[SMTP:[log in to unmask]]
> > > Reply To: Robert Peddicord
> > > Sent: Monday, August 21, 2000 1:45 PM
> > > To: [log in to unmask]
> > > Subject: [HP3000-L] fortran conversion
> > >
> > > I need some help with the conversion (at long last) from fortran 66 to
> 77
> > > version. I keep getting a compiler error No.138 on the common I have
> > > declared. It seem to wrap on 5 or 6 variables only with the same
> error. If
> > > anybody has any ideas, please let me know. Thanks Bob
> > >
>
> Robert Peddicord
> Pharmacy Computer Services Inc.
> (541) 471-7274
> [log in to unmask]
>
|