CREATE PROCEDURE OTCHET_USER (
    IPCODSOTR INTEGER)
RETURNS (
    OPDATA_MONITOR TIMESTAMP,
    OPDATA_KEYBOARD TIMESTAMP,
    OPDATA_MOUSE TIMESTAMP,
    OPDATA_PRINTER TIMESTAMP,
    OPDATA_MODEM TIMESTAMP,
    OPDATA_SCANER TIMESTAMP,
    OPDATA_FILTRPITANIE TIMESTAMP,
    OPDATA_DOP TIMESTAMP,
    OPDATA_XEROX TIMESTAMP,
    OPDATA_FAX TIMESTAMP,
    OPPRICE_MONITOR FLOAT,
    OPPRICE_KEYBOARD FLOAT,
    OPPRICE_MOUSE FLOAT,
    OPPRICE_PRINTER FLOAT,
    OPPRICE_MODEM FLOAT,
    OPPRICE_SCANER FLOAT,
    OPPRICE_FILTRPITANIE FLOAT,
    OPPRICE_DOP FLOAT,
    OPPRICE_XEROX FLOAT,
    OPPRICE_FAX FLOAT,
    OPMONITOR VARCHAR( 50 ) CHARACTER SET NONE,
    OPKEYBOARD VARCHAR( 30 ) CHARACTER SET NONE,
    OPMOUSE VARCHAR( 30 ) CHARACTER SET NONE,
    OPPRINTER VARCHAR( 50 ) CHARACTER SET NONE,
    OPMODEM VARCHAR( 30 ) CHARACTER SET NONE,
    OPSCANER VARCHAR( 50 ) CHARACTER SET NONE,
    OPFILTRPITANIE VARCHAR( 50 ) CHARACTER SET NONE,
    OPDOP VARCHAR( 50 ) CHARACTER SET NONE,
    OPXEROX VARCHAR( 30 ) CHARACTER SET NONE,
    OPFAX VARCHAR( 30 ) CHARACTER SET NONE,
    OPSERIALMONITOR VARCHAR( 30 ) CHARACTER SET NONE,
    OPSERIALKEYBOARD VARCHAR( 30 ) CHARACTER SET NONE,
    OPSERIALMOUSE VARCHAR( 30 ) CHARACTER SET NONE,
    OPSERIALPRINTER VARCHAR( 30 ) CHARACTER SET NONE,
    OPSERIALMODEM VARCHAR( 30 ) CHARACTER SET NONE,
    OPSERIALSCANER VARCHAR( 30 ) CHARACTER SET NONE,
    OPSERIALFILTRPITANIE VARCHAR( 30 ) CHARACTER SET NONE,
    OPSERIALDOP VARCHAR( 30 ) CHARACTER SET NONE,
    OPSERIALXEROX VARCHAR( 30 ) CHARACTER SET NONE,
    OPSERIALFAX VARCHAR( 30 ) CHARACTER SET NONE,
    OPCODCOMPUTERS INTEGER,
    OPRAYON VARCHAR( 15 ) CHARACTER SET NONE,
    OPINVNUMMONITOR VARCHAR( 10 ) CHARACTER SET NONE,
    OPINVNUMPRINT VARCHAR( 10 ) CHARACTER SET NONE,
    OPINVMODEM VARCHAR( 10 ) CHARACTER SET NONE,
    OPINVSCAN VARCHAR( 10 ) CHARACTER SET NONE,
    OPINVXEROX VARCHAR( 10 ) CHARACTER SET NONE,
    OPINVFAX VARCHAR( 10 ) CHARACTER SET NONE,
    OPDATA_COMPUTERS TIMESTAMP,
    OPPRICE_COMPUTERS FLOAT,
    OPCORPUS VARCHAR( 50 ) CHARACTER SET NONE,
    OPMAINBOARD VARCHAR( 40 ) CHARACTER SET NONE,
    OPCPU VARCHAR( 50 ) CHARACTER SET NONE,
    OPOZU VARCHAR( 50 ) CHARACTER SET NONE,
    OPVIDEO VARCHAR( 50 ) CHARACTER SET NONE,
    OPMULTICARD VARCHAR( 50 ) CHARACTER SET NONE,
    OPNET VARCHAR( 50 ) CHARACTER SET NONE,
    OPSOUND VARCHAR( 50 ) CHARACTER SET NONE,
    OPHDD VARCHAR( 50 ) CHARACTER SET NONE,
    OPFDD VARCHAR( 50 ) CHARACTER SET NONE,
    OPCDDRIVE VARCHAR( 50 ) CHARACTER SET NONE,
    OPNAME_COMP VARCHAR( 60 ) CHARACTER SET NONE,
    OPINVNUM VARCHAR( 10 ) CHARACTER SET NONE,
    OPNUMKARTA VARCHAR( 7 ) CHARACTER SET NONE)
AS
BEGIN
  SELECT        /* 46  */ 
         C.MONITOR,B.SERIALMONITOR,B.PRICE_MONITOR,B.DATA_MONITOR,
         B.INVNUM, H.INVNUM,
         E.KEYBOARD,D.SERIALKEYBOARD,D.PRICE_KEYBOARD,D.DATA_KEYBOARD,
         G.MOUSE,F.SERIALMOUSE,F.PRICE_MOUSE,F.DATA_MOUSE,
         I.PRINTER,H.SERIALPRINTER,H.PRICE_PRINTER,H.DATA_PRINTER,
         K.MODEM,J.SERIALMODEM,J.PRICE_MODEM,J.DATA_MODEM,J.INVMODEM,
         M.SCANER,L.SERIALSCANER,L.PRICE_SCANER,L.DATA_SCANER,L.INVSCAN,
         O.FILTRPITANIE,N.SERIALFILTRPITANIE,N.PRICE_FILTRPITANIE,N.DATA_FILTRPITANIE,
         R.DOP,P.SERIALDOP,P.PRICE_DOP,P.DATA_DOP,
         S.XEROX,Q.SERIALXEROX,Q.PRICE_XEROX,Q.DATA_XEROX,Q.INVXEROX,
         U.FAX,T.SERIALFAX,T.PRICE_FAX,T.DATA_FAX,T.INVFAX
  FROM
         IBM_PRICE_MONITOR B, IBM_MONITOR C,
         IBM_PRICE_KEYBOARD D, IBM_KEYBOARD E,
         IBM_PRICE_MOUSE F, IBM_MOUSE G,
         IBM_PRICE_PRINTER H, IBM_PRINTER I,
         IBM_PRICE_MODEM J, IBM_MODEM K,
         IBM_PRICE_SCANER L, IBM_SCANER M,
         IBM_PRICE_FILTRPITANIE N, IBM_FILTRPITANIE O,
         IBM_PRICE_DOP P, IBM_DOP R,
         IBM_PRICE_XEROX Q, IBM_XEROX S,
         IBM_PRICE_FAX T, IBM_FAX U,
         IBM_USER V
   WHERE V.CODSOTR =:IPCODSOTR AND
         B.CODPRICE_MONITOR = V.CODPRICE_MONITOR AND
         C.CODMONITOR = B.CODMONITOR AND
         D.CODPRICE_KEYBOARD = V.CODPRICE_KEYBOARD AND
         E.CODKEYBOARD = D.CODKEYBOARD AND
         F.CODPRICE_MOUSE = V.CODPRICE_MOUSE AND
         G.CODMOUSE = F.CODMOUSE AND
         H.CODPRICE_PRINTER = V.CODPRICE_PRINTER AND
         I.CODPRINTER = H.CODPRINTER AND
         J.CODPRICE_MODEM = V.CODPRICE_MODEM AND
         K.CODMODEM = J.CODMODEM AND
         L.CODPRICE_SCANER = V.CODPRICE_SCANER AND
         M.CODSCANER = L.CODSCANER AND
         N.CODPRICE_FILTRPITANIE = V.CODPRICE_FILTRPITANIE AND
         O.CODFILTRPITANIE = N.CODFILTRPITANIE AND
         P.CODPRICE_DOP = V.CODPRICE_DOP AND
         R.CODDOP = P.CODDOP AND
         Q.CODPRICE_XEROX = V.CODPRICE_XEROX AND
         S.COD_XEROX = Q.COD_XEROX AND
         T.CODPRICE_FAX = V.CODPRICE_FAX AND
         U.COD_FAX = T.COD_FAX
 INTO    OPMONITOR,OPSERIALMONITOR,OPPRICE_MONITOR,OPDATA_MONITOR,
         OPINVNUMMONITOR, OPINVNUMPRINT,
         OPKEYBOARD,OPSERIALKEYBOARD,OPPRICE_KEYBOARD,OPDATA_KEYBOARD,
         OPMOUSE,OPSERIALMOUSE,OPPRICE_MOUSE,OPDATA_MOUSE,
         OPPRINTER,OPSERIALPRINTER,OPPRICE_PRINTER,OPDATA_PRINTER,
         OPMODEM,OPSERIALMODEM,OPPRICE_MODEM,OPDATA_MODEM,OPINVMODEM,
         OPSCANER,OPSERIALSCANER,OPPRICE_SCANER,OPDATA_SCANER,OPINVSCAN,
         OPFILTRPITANIE,OPSERIALFILTRPITANIE,OPPRICE_FILTRPITANIE,OPDATA_FILTRPITANIE,
         OPDOP,OPSERIALDOP,OPPRICE_DOP,OPDATA_DOP,
         OPXEROX,OPSERIALXEROX,OPPRICE_XEROX,OPDATA_XEROX,OPINVXEROX,
         OPFAX,OPSERIALFAX,OPPRICE_FAX,OPDATA_FAX,OPINVFAX;
 FOR
  SELECT A.CODCOMPUTERS,V.RAYON,        /* 15 */ 
         A.DATA_COMPUTERS,A.PRICE_COMPUTERS,ICS.CORPUS,IMB.MAIN_BOARD,
         ICP.CPU,IOZ.OZU,IV.VIDEO,IMC.MULTICARD,INET.NET,ISD.SOUND /*,
         IHD.HDD,IFD.FDD,ICD.cddrive*/ ,
         A.NAME_COMP,A.INVNUM,V.numkarta
  FROM   IBM_COMPUTERS A,
         IBM_USER V,
         IBM_CORPUS ICS, IBM_MAIN_BOARD IMB,
         IBM_CPU ICP, IBM_OZU IOZ, IBM_VIDEO IV, IBM_MULTICARD IMC,
         IBM_NET INET, IBM_SOUND ISD /*, IBM_HDD IHD, IBM_FDD IFD, IBM_CDDRIVE ICD*/ 
   WHERE V.CODSOTR =:IPCODSOTR AND
         A.CODCOMPUTERS = V.CODCOMPUTERS AND
         A.CODCORPUS =ICS.CODCORPUS and
         A.CODMAINBOARD =IMB.CODMAINBOARD and
         A.CODCPU =ICP.CODCPU and
         A.CODOZU =IOZ.CODOZU and
         A.CODVIDEO =IV.CODVIDEO and
         A.CODMULTICARD =IMC.CODMULTICARD and
         A.CODNET =INET.CODNET and
         A.CODSOUND =ISD.CODSOUND  /*and
         A.CODHDD =IHD.CODHDD and
         A.CODFDD =IFD.CODFDD /*and
         A.CODCDDRIVE =ICD.CODCDDRIVE     */ 
 INTO    OPCODCOMPUTERS,OPRAYON,
         OPDATA_COMPUTERS,OPPRICE_COMPUTERS,OPCORPUS,OPMAINBOARD,OPCPU,OPOZU,
         OPVIDEO,OPMULTICARD,OPNET,OPSOUND /*,OPHDD,OPFDD/*,OPCDDRIVE*/ ,
         OPNAME_COMP,OPINVNUM,OPNUMKARTA
 DO SUSPEND;
END