ATIVO' 80:'DATA DE VENCIMENTO',//)) TRAILLER=(1,1,SKIP=2L, ENDAO FINAL DE CADA PAGINA (RODAPE'), SERA' MPRESSO O TOTAL DA PAGINAEXEMPLO 17 IMPRIMINDO RELATORIO COM TOTALIZACAO DA QUEBRAORDENAR POR SITUACAO DO CONTRATO, IMPRIMINDO RELATORIO COM CBECALHO, QUEBRA DE SITUACAO COMTOTAIS DO CAMPO SALDO DEVEDOR E TOTALIZACAO POR PAGINA E GERAL.SORT FIELDS=(13,2,ZD,A,1,11,ZD,A) OUTFIL HEADER1=(15/,50:'DEPARTAMENTO DE EMPRESTIMOS ESPECIALIZADOS', 4/,55:'POSICAO DA CARTEIRA', 4/,60:'2006', HEADER2=(1:'DATA...: ',&DATA, 55:'POSICAO DO ESTOQUE / 2006', 116:'PAGINA...: ',&PAGE,/, 1:132'-',//), OUTREC=(15:1,1, 40:2,5, 60:7,4,PD,MO, 90:11,6,ZD,M9, 132:1X), SECTIONS=(1,1,SKIP-2L, HEADER3=(10:1,1, 40:'NUMERO DO CONTRATO' 60:'SALDO DO ATIVO' 80:'DATA DE VENCIMENTO',//)) TRAILLER=(/,10:57'-',/, 10:'TOTAL-SITUACAO ', 58:TOT=(7,4,PD,EDIT=(I,III,IIT))), 5,1,SKIP=1L, TRAILLER=(/,10:57'-',/, 30:'TOTAL-SITUACAO ', 58:TOT=(7,4,PD,EDIT=(I,III,IIT))) TRAILLER=(/,10:57'-',/, 58:TOT=(7,4,PD,MO)) TRAILLER=(/,1:132'-',/, 30:'TOTAL-SITUACAO ', 58:TOT=(7,4,PD,EDIT=(I,III,IIT))) ENDEXEMPLO 18 IMPRIMINDO RELATORIO COM TOTALIZACAO GERAL DE REGISTROSORDENAR POR SITUACAO DO CONTRATO IMPRIMINDO RELATORIO COM CABECALHO, QUEBRA E TOTALIZACAO GERAL DO CAMPO QUANTIDADEE DA QUANTIDADE DE REGISTROSSORT FIELDS=(13,2,ZD,A,1,11,ZD,A) OUTFIL HEADER1=(15/,50:'DEPARTAMENTO DE EMPRESTIMOS ESPECIALIZADOS', 4/,55:'POSICAO DA CARTEIRA', 4/,60:'2006', HEADER2=(1:'DATA...: ',&DATA, 55:'POSICAO DO ESTOQUE / 2006', 116:'PAGINA...: ',&PAGE,/,- 1:132'-',//), OUTREC=(15:1,1, 40:2,5, 60:7,4,PD,MO, 90:11,6,ZD,M9, 132:1X), SECTIONS=(1,1,SKIP-2L, HEADER3=(10:1,1, 40:'NUMERO DO CONTRATO' 60:'SALDO DO ATIVO' 80:'DATA DE VENCIMENTO',//)) TRAILLER=(/,10:57'-',/, 10:'TOTAL-SITUACAO ', 58:TOT=(7,4,PD,EDIT=(I,III,IIT))), 5,1,SKIP=1L, TRAILLER=(/,10:57'-',/, 30:TOT=(7,4,PD,MD), 5/,40:'TOTAL DE REGISTROS.: ', 69:COUNT) TRAILLER=(/,10:57'-',/, 58:TOT=(7,4,PD,MO)) TRAILLER=(/,1:132'-',/, 30:'TOTAL-SITUACAO ', 58:TOT=(7,4,PD,EDIT=(I,III,IIT))) ENDEXEMPLO 19 IMPRIMINDO RELATORIO COM TOTALIZACAO DE REGISTROS A CADA QUEBRAORDENAR POR SITUACAO DE CONTRATO IMPRIMINDO RELATORIO COM CABECALHO, QUEBRA, TOTALIZACAO GERAL, POR PAGINA(RODAPE) E NA QUEBRA DO CAMPO QUANTIDADE E DO TOTAL DE REGISTROS, GERAL E PARCIALSORT FIELDS=(13,2,ZD,A,1,11,ZD,A) OUTFIL HEADER1=(15/,50:'DEPARTAMENTO DE EMPRESTIMOS ESPECIALIZADOS', 4/,55:'POSICAO DA CARTEIRA', 4/,60:'2006', HEADER2=(1:'DATA...: ',&DATA, 55:'POSICAO DO ESTOQUE / 2006', 116:'PAGINA...: ',&PAGE,/, 1:132'-',//), OUTREC=(15:1,1, 40:2,5, 60:7,4,PD,MO, 90:11,6,ZD,M9, 132:1X), SECTIONS=(1,1,SKIP-2L, HEADER3=(10:1,1, 40:'NUMERO DO CONTRATO' 60:'SALDO DO ATIVO' 80:'DATA DE VENCIMENTO',//)) TRAILLER3=(/,10:57'-',/, 10:'TOTAL-SITUACAO ', 58:TOT=(7,4,PD,EDIT=(I,III,IIT))), /40:'TOTAL DE REGISTROS DA QUEBRA.: ', COLUNT, /40:'TOTAL DE REGISTROS ATE A QUEBRA.: ', SUBCOUNT)), TRAILLER1=(5/,40:'TOTAL EM ESTOQUE...: ', 62:TOT=(7,4,PD,MD)), TRAILLER=(/,1:132'-',/, 30:'TOTAL-SITUACAO ', 58:TOT=(7,4,PD,EDIT=(I,III,IIT))) ENDEXEMPLO 20 GERANDO MULTIPLA SAIDAS COM SELECAO DE REGISTGROSORDENAR POR SITUACAO DE CONTRATOSELECIONANDO SOMENTE OS CONTYRATOS DE SITUACAO DO CONTRATO '00' E "02", GRAVANDO OS EM ARQUIVOS DISTINTOSSORT FIELDS=(13,2,ZD,A) OUTFIL FILES=1, INCLUDE=(13,2,CH,EQ.C'00')OUTFIL FILES=2, INCLUDE=(13,2,CH,EQ.C'02')OUTFIL FILES=3, INCLUDE=(13,2,CH,EQ.C'05')OBS: //SORTOF1 DD ...(FILE-1)//SORTOF2 DD ...(FILE-2)//SORTOF3 DD ...(FILE-3) EXEMPLO 21 COPIANDO REGISTROS DE TAMANHO VARIAVEL, GRERANDO 3 ARQUIVOS DE SAIDA- UM VARIAVEL, IMAGEM DA ENTRADA= OS OUTROS DOIS FIXOS, COM SELECAO DE REGISTROS E REFORMATACAO DE CAMPOSSUPONHA UM ARQUIVO ONDE CADA REGISTRO REPRESENTA UM BEM E SEUS RESPECTIVOS SALDO DEVEDOR EM CADA AGENCIA COM SEU O LAIAUTE ABAIXO EXEMPLOSSUPONHA UM ARQUIVO CONTENDO OS ITENS EM ESTOQUE EM CADA ALMOXARIFADOCOM O SEGUINTE LAYOUTINICIO FIM TAMANHO FORMATO SIGNIFICAO/CONTEUDO01 11 11 Z0 CODIGO DO CONTRATO12 12 01 CH ASTERISCO13 14 02 ZO SITUACAO DO CONTRATO15 15 01 CH ASTERISCO16 23 08 ZO DT VENCIMENTO DO CONTRATO24 24 01 CH ASTERISCO25 39 15 ZO SALDO DEVEDOR DO PRINCIPAL40 40 01 CH ASTERISCO41 55 15 ZO SALDO DEVEDOR DO PASSIVO56 56 01 CH ASTERISCO57 71 15 ZO SALDO DEVEDOR DO ATIVO72 72 01 CH ASTERISCO73 81 09 ZO NUMERO DO CGC / CPF82 82 01 CH ASTERISCO83 86 04 ZO FILIAL87 87 01 CH ASTERISCO88 89 02 ZO DV CONTROLE90 90 01 CH ASTERISCO91 130 40 CH NOME DA RAZAO SOCIAL131 200 70 CH FILLER CODIGO DA SITUACAO DESCRICAO 00 CONTRATO ATIVO --------------------------------------- 02 QUITADO NO ANO --------------------------------------- 03 LIQ ANTECIPADA