Create CHOICE17.CBL

PROGRAMA DEVE LER 1 ARQUIVO. INSERIR AO MENOS 50 REGISTROS NO ARQUIVO
        CHC17E01 - NOME      PIC X(030)
		 - IDADE     PIC 9(003)
		 - SEXO	     PIC X(010) MASCULINO OU FEMININO
                 - SALARIO   PIC 9(010) COMP-3
                 - DATANASC  PIC X(010) DD/MM/AAAA

	LER ARQUIVO DE ENTRADA, CASO IDADE MAIOR QUE 18, GRAVAR ARQUIVO:
        CHC17S01 - NOME      	PIC X(030)
		 - DIAS VIVIDOS PIC 9(007)
		 - SEXO	     	PIC X(001)
                 - DATANASC  	PIC 9(008) AAAAMMDD	

	LER ARQUIVO DE ENTRADA, CASO IDADE MENOR IGUAL A 18, GRAVAR ARQUIVO:
        CHC17S02 - NOME      	PIC X(030)
		 - DIAS VIVIDOS PIC 9(007)
		 - SEXO	     	PIC X(001)
                 - DATANASC  	PIC X(008) DD/MM/AA	

	LER ARQUIVO DE ENTRADA, CASO SALARIO MAIOR QUE 1000, GRAVAR ARQUIVO:
        CHC17S03 - NOME      	PIC X(030)
		 - SEXO	     	PIC X(001)
                 - SALARIO      PIC 9(009)	
                 - IDADE        PIC 9(002)	
	LER ARQUIVO DE ENTRADA, CASO SALARIO MENOR IGUAL QUE 1000, GRAVAR ARQUIVO:
        CHC17S04 - NOME      	PIC X(030)
		 - SEXO	     	PIC X(001)
                 - SALARIO      PIC 9(009)	
                 - IDADE        PIC 9(002)
	EXIBIR TOTAL DE LIDOS E GRAVADOS, HORA E DATA DE PROCESSAMENTO.