calcul.prg

System "somaj" for city Beius

@19,2 say 'Contabil statistician: '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'CONTABIL STATISTICIAN'  and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'CONTABIL STATISTICIAN'  and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'CONTABIL STATISTICIAN'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@19,30 say ''+ LTRIM(STR(mcount)) 
**********************************************
COUNT TO mcount1 FOR calific_1 = 'AJUTOR ANALIST PROGRAMATOR'  and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'AJUTOR ANALIST PROGRAMATOR'  and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'AJUTOR ANALIST PROGRAMATOR'  and sexul='M'
mcount=mcount1+mcount2+mcount3
@20,2 say 'Ajutor analist progr.: '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'AJUTOR ANALIST PROGRAMATOR'  and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'AJUTOR ANALIST PROGRAMATOR'  and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'AJUTOR ANALIST PROGRAMATOR'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@20,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
****************************************
DEFINE WINDOW tot FROM 1,42 TO 23,75  ;
Title ' TOTAL calificare ! ';
DOUBLE COLOR w+/rb shadow
ACTIVATE WINDOW tot

@0,24 say'M'
@0,30 say'F'

COUNT TO mcount1 FOR calific_1 = 'MINER'  and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'MINER'  and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'MINER'  and sexul='M'
mcount=mcount1+mcount2+mcount3
@1,2 say 'Miner:                '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'MINER'  and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'MINER'  and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'MINER'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@1,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 = 'STRUNGAR'  and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'STRUNGAR'  and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'STRUNGAR'   and sexul='M'
mcount=mcount1+mcount2+mcount3
@2,2 say 'Strungar:             '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'STRUNGAR'   and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'STRUNGAR'   and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'STRUNGAR'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@2,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 = 'MERCEOLOG' and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'MERCEOLOG' and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'MERCEOLOG' and sexul='M'
mcount=mcount1+mcount2+mcount3
@3,2 say 'Merceolog:            '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'MERCEOLOG' and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'MERCEOLOG' and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'MERCEOLOG' and sexul='F'
mcount=mcount1+mcount2+mcount3
@3,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 ='COFETAR'   and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'COFETAR'   and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'COFETAR'  and sexul='M'
mcount=mcount1+mcount2+mcount3
@5,2 say 'Cofetar:              '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'COFETAR'   and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'COFETAR'   and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'COFETAR'   and sexul='F'
mcount=mcount1+mcount2+mcount3
@5,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 ='BUCATAR'    and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'BUCATAR'    and sexul='M'
COUNT TO mcount3 FOR calific_3 ='BUCATAR'   and sexul='M'
mcount=mcount1+mcount2+mcount3
@6,2 say 'Bucatar:              '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'BUCATAR'    and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'BUCATAR'   and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'BUCATAR'    and sexul='F'
mcount=mcount1+mcount2+mcount3
@6,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 = 'ZUGRAV'     and sexul='M'
COUNT TO mcount2 FOR calific_2 =  'ZUGRAV'     and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'ZUGRAV'    and sexul='M'
mcount=mcount1+mcount2+mcount3
@9,2 say 'Zugrav:               '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 =  'ZUGRAV'       and sexul='F'
COUNT TO mcount2 FOR calific_2 =  'ZUGRAV'    and sexul='F'
COUNT TO mcount3 FOR calific_3 =  'ZUGRAV'    and sexul='F'
mcount=mcount1+mcount2+mcount3
@9,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'MUZICIAN'     and sexul='M'
COUNT TO mcount2 FOR calific_2 =   'MUZICIAN'     and sexul='M'
COUNT TO mcount3 FOR calific_3 =  'MUZICIAN'     and sexul='M'
mcount=mcount1+mcount2+mcount3
@10,2 say 'Muzician:            '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 =  'MUZICIAN'        and sexul='F'
COUNT TO mcount2 FOR calific_2 =   'MUZICIAN'    and sexul='F'
COUNT TO mcount3 FOR calific_3 =  'MUZICIAN'     and sexul='F'
mcount=mcount1+mcount2+mcount3
@10,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'MUZICANT'     and sexul='M'
COUNT TO mcount2 FOR calific_2 =   'MUZICANT'     and sexul='M'
COUNT TO mcount3 FOR calific_3 =  'MUZICANT'     and sexul='M'
mcount=mcount1+mcount2+mcount3
@10,2 say 'Muzicant:             '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 =  'MUZICANT'        and sexul='F'
COUNT TO mcount2 FOR calific_2 =   'MUZICANT'    and sexul='F'
COUNT TO mcount3 FOR calific_3 =  'MUZICANT'     and sexul='F'
mcount=mcount1+mcount2+mcount3
@10,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'SCULPTOR'    and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'SCULPTOR'      and sexul='M'
COUNT TO mcount3 FOR calific_3 =  'SCULPTOR'     and sexul='M'
mcount=mcount1+mcount2+mcount3
@11,2 say 'Sculptor:             '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 =  'SCULPTOR'        and sexul='F'
COUNT TO mcount2 FOR calific_2 =  'SCULPTOR'    and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'SCULPTOR'      and sexul='F'
mcount=mcount1+mcount2+mcount3
@11,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'PREPARATOR'    and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'PREPARATOR'     and sexul='M'
COUNT TO mcount3 FOR calific_3 =  'PREPARATOR'     and sexul='M'
mcount=mcount1+mcount2+mcount3
@12,2 say 'Preparator:           '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'PREPARATOR'     and sexul='F'
COUNT TO mcount2 FOR calific_2 =  'PREPARATOR'   and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'PREPARATOR'      and sexul='F'
mcount=mcount1+mcount2+mcount3
@12,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'ECONOMIST-CONTABIL'    and sexul='M'
COUNT TO mcount2 FOR calific_2 = 'ECONOMIST-CONTABIL'     and sexul='M'
COUNT TO mcount3 FOR calific_3 = 'ECONOMIST-CONTABIL'     and sexul='M'
mcount=mcount1+mcount2+mcount3
@13,2 say 'Economist-contabil:    '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'ECONOMIST-CONTABIL'     and sexul='F'
COUNT TO mcount2 FOR calific_2 =  'ECONOMIST-CONTABIL'  and sexul='F'
COUNT TO mcount3 FOR calific_3 ='ECONOMIST-CONTABIL'      and sexul='F'
mcount=mcount1+mcount2+mcount3
@13,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'MECANIZATOR EXPLOAT'  and sexul='M'
COUNT TO mcount2 FOR calific_2 =  'MECANIZATOR EXPLOAT'     and sexul='M'
COUNT TO mcount3 FOR calific_3 =  'MECANIZATOR EXPLOAT'     and sexul='M'
mcount=mcount1+mcount2+mcount3
@14,2 say 'Mecanizator expl.forest:'+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 =  'MECANIZATOR EXPLOAT'  and sexul='F'
COUNT TO mcount2 FOR calific_2 =   'MECANIZATOR EXPLOAT' and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'MECANIZATOR EXPLOAT'   and sexul='F'
mcount=mcount1+mcount2+mcount3
@14,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'PRELUCRATOR PRIN ASCHIERE'  and sexul='M'
COUNT TO mcount2 FOR calific_2 =  'PRELUCRATOR PRIN ASCHIERE'     and sexul='M'
COUNT TO mcount3 FOR calific_3 =  'PRELUCRATOR PRIN ASCHIERE'     and sexul='M'
mcount=mcount1+mcount2+mcount3
@15,1 say 'Prelucrator prin aschiere:'+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'PRELUCRATOR PRIN ASCHIERE' and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'PRELUCRATOR PRIN ASCHIERE' and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'PRELUCRATOR PRIN ASCHIERE'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@15,30 say ''+ LTRIM(STR(mcount)) 

**********************************************
COUNT TO mcount1 FOR calific_1 =  'SORA MEDICALA'  and sexul='M'
COUNT TO mcount2 FOR calific_2 =  'SORA MEDICALA'     and sexul='M'
COUNT TO mcount3 FOR calific_3 =  'SORA MEDICALA'     and sexul='M'
mcount=mcount1+mcount2+mcount3
@16,1 say 'Sora medicala:      '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'SORA MEDICALA' and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'SORA MEDICALA' and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'SORA MEDICALA'  and sexul='F'
mcount=mcount1+mcount2+mcount3
@16,30 say ''+ LTRIM(STR(mcount)) 
******************************************************
COUNT TO mcount1 FOR calific_1 =  'POMPIER'  and sexul='M'
COUNT TO mcount2 FOR calific_2 =  'POMPIER'  and sexul='M'
COUNT TO mcount3 FOR calific_3 =  'POMPIER'  and sexul='M'
mcount=mcount1+mcount2+mcount3
@17,1 say 'Pompier:          '+ LTRIM(STR(mcount)) 

COUNT TO mcount1 FOR calific_1 = 'POMPIER' and sexul='F'
COUNT TO mcount2 FOR calific_2 = 'POMPIER' and sexul='F'
COUNT TO mcount3 FOR calific_3 = 'POMPIER' and sexul='F'
mcount=mcount1+mcount2+mcount3
@17,30 say ''+ LTRIM(STR(mcount)) 
*************************************************





wait '' timeout 0
DEACTIVATE WINDOW term
DEACT WIND tot

close databases
set mouse on
return