This is a redo of the earlier message.
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
! ----------------------------------------------------------
! 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))
!
! ------------------------------------
! Drug Database Master DataSet -
Buf5
! ------------------------------------
INTEGER*2 buf5
(182)
!
! --------------------------------------------------------------
----
! Abbrev Data Set -
Buf16
! --------------------------------------------------------------
----
INTEGER*2 buf16
(24)
CHARACTER*10
abbrev16,nursta16
CHARACTER*26
trade16
EQUIVALENCE (abbrev16,buf16(1)),(trade16,buf16
(6))
EQUIVALENCE (nursta16,buf16
(19))
!
COMMON /dinf/
buf3,buf5
!
418 684 END
0 685 ! ------------------ End of EditDrug --------------
-----
0 686 !
0 687 ! ==============================
**** ERROR # 1 ILLEGAL OR INCONSISTENT EQUIVALENCE STATEMENT (138)
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
|