/*  label Cobol = 100301
    Update tabella tipi card per interfaccia con Pms  04/04/19 A.B.
    Iserto operatore per money interface              15/04/19 A.B.
*/
connect to 'SYSMONEY' 'SYSADM' ''; 

ALTER TABLE DEFAULT_TIPCARD ADD (TPC_TIP_UTI CHAR(1));
ALTER TABLE DEFAULT_TIPCARD ADD (TPC_FL_GEST_PMS SMALLINT);
ALTER TABLE DEFAULT_TIPCARD ADD (TPC_LIM_MONTH_SPE DECIMAL(10,2));
ALTER TABLE DEFAULT_TIPCARD ADD (TPC_FL_SCO_ART SMALLINT);
ALTER TABLE DEFAULT_TIPCARD ADD (TPC_FL_SALDO_DEBITO SMALLINT);
UPDATE DEFAULT_TIPCARD SET TPC_TIP_UTI = 'C';
UPDATE DEFAULT_TIPCARD SET TPC_FL_GEST_PMS = 1;
UPDATE DEFAULT_TIPCARD SET TPC_LIM_MONTH_SPE = 0;
UPDATE DEFAULT_TIPCARD SET TPC_FL_SCO_ART = 0;
UPDATE DEFAULT_TIPCARD SET TPC_FL_SALDO_DEBITO = 0;
INSERT INTO MENUOP VALUES('MSCK', 'Money Interface', 'MSCKMSCK', 'DEFAULT', '', '', '', '', '', '', '', '', '', 'DEFAULT', '', '', '');
disconnect;
quit;