Perguntas CNAB e Boleto Caixa Econômica

Pessoal, boa Tarde.

Alguém teria arquivo de remessa e rdmake do boleto para caixa econômica federal que pudesse compartilhar?

Caro amigo, segue CNAB 400 Posições (Remessa) que desenvolví aqui na empresa.
Não conseguí anexar o arquivo. Segue abaixo:

Codigo Registro00100100
Codigo Remessa 00200201
Literal Remessa0030090SubStr(SEE->EE_OPER,1,7)
Codigo Servico 010011001
Literal Servico0120260'COBRANCA'
Cod. Empresa 0270420"4211870000000027"
Brancos 0430460Space(4)
Nome da Empresa0470760"SUA EMPRESA "
Codigo do Banco0770790'104'
Nome do Banco 0800940"C ECON FEDERAL"
Dta de Gravacao0951000GravaData(Date(),.F.,1)
Brancos 1013890Space(289)
No.Seq.Arquivo 3903940Right(SEE->EE_ULTDSK,5)
No.Seq.Registro3954000'000001'
Codigo Registro00100101
Codigo Inscr 002003002
Numero Inscr 0040170"99999999999999"
Cod. Empresa 0180330"4211870000000027"
Brancos 0340350SPACE(02)
Tx. Permanencia0360370"00"
Uso Empresa 0380470SE1->E1_IDCNAB
Brancos 0480620Space(15)
Nosso Numero 0630730Replicate("0",11)
Brancos 0740760Space(03)
Mensagem 0771060
Tipo Carteira 1071080"11"
Ocorr.Remessa 1091100IF(EMPTY(SE1->E1_OCORREN),"01",SE1->E1_OCORREN)
Meu Numero 1111200SE1->E1_NUM+SE1->E1_PARCELA
Data Vencimento1211260GravaData(SE1->E1_VENCREA,.F.,1)
Valor Titulo 1271390STRZERO(SE1->E1_SALDO*100,13)
Codigo Banco 1401420'104'
Brancos 1431470'00000'
Esp.Titulo 1481490'01'
Aceite 1501500"A"
Dt.Emissao Tit.1511560GravaData(SE1->E1_EMISSAO,.F.,1)
Cod.Instrucao 1571580if(right(SE1->E1_INSTR1,1)=' ',01,02)
Nro.Dias Intru 1591600IF(EMPTY(SE1->E1_INSTR2),'00',SE1->E1_INSTR2)
Juro Mora 1611730STRZERO(((SE1->E1_SALDO*0.038)/30)*100,13)
Data Desconto 1741790'000000'
Valor Desconto 1801920Replicate('0',13)
Valor Iof 1932050Replicate('0',13)
Vlr.Abatimento 2062180StrZero(SE1->E1_DECRESC*100,13)
Cod.Inscr.Sacad2192200if(right(SA1->A1_CGC,2)= ' ',01,02)
Nro.Inscr.Sacad2212340StrZero(Val(SA1->A1_CGC),14)
Nome do Sacado 2352740SubStr(SA1->A1_NOME,1,35)
End.Sacado 2753140SA1->A1_END
Bairro 3153260SubStr(SA1->A1_BAIRRO,1,12)
Cep do Sacado 3273340SubStr(SA1->A1_CEP,1,
Cidade Sacado 3353490SubStr(SA1->A1_MUN,1,15)
Estado Sacado 3503510SA1->A1_EST
Dta da Multa 3523570'000000'
Valor da Multa 3583670Replicate("0",13)
Avalista 3683890Space(22)
Instrucao 3 3903910'00'
Prazo 3923930if(right(SE1->E1_INSTR1,1)=' ',05,SE1->E1_INSTR1)
Moeda 3943940'1'
Sequencial 3954000INCREMENTA()
Codigo Registro00100109
Brancos 0023940Space(393)
Numero Sequenci3954000Incrementa()



FRED