Pic s9 08 binário opções

S9 9 COMP e S9 8 COMP. S9 9 COMP e S9 8 COMP. Hi All, Qual é o número máximo que pode ser espremido nos dois diferentes campos PIC acima e como é que a opção do compilador TRUNC BIN OPT STD o afeta. Razão que eu pergunto é que eu estou trabalhando com um produto chamado HPS que define s campos inteiros como S9 8 COMP e, em seguida, move-lo para um campo DB2 Integer, que é S9 9 COMP Há uma preocupação de que os dois são incompatíveis. RE S9 9 COMP e S9 8 COMP. k5tm Programador 23 Jul 02 11 46.Primeira revisão Thread209-205700 onde eu respondi à pergunta de quantos dígitos decimais podem ser representados por 31 dígitos binários Naturalmente, o truncamento padrão é feito em limites decimais independentemente Da representação de dados subjacente. Minha suposição é que você não terá problemas movendo S9 8 para S9 9 sob qualquer uma das opções TRUNC Se o movimento fosse a outra direção, haveria diferenças Em qualquer caso, parece que TRUNC BIN seria Ser mais seguro para o seu problema, assumindo que não causa sid indesejado E S9 9 COMP e S9 8 COMP. Tom, eu li o fio E então eu li de novo Depois de tomar um par de comprimidos e ter uma mentira para baixo, eu tinha outro ir e eu ainda não tenho certeza que eu entendo. Sei que comp S9 8 e comp S9 9 ocupam a mesma palavra de armazenamento completo e eu estou ciente de que com a opção TRUNC BIN do compilador, truncamento não deve ocorrer como faria com TRUNC STD. I estou sob a impressão de que com um comp S9 4 campo existe um número máximo que o campo pode conter, que por seu exemplo no segmento, é 32043 É este o mesmo para comp S9 8 9 e são esses valores diferentes. Eu acho que a pergunta que eu estou perguntando é que se eu Preenchido o campo comp 9 S9 com o maior valor que poderia tomar, e movido para um campo S9 8, seria permanecer o mesmo valor. Espero que isso faz sentido, e por favor, perdoe a minha ignorância no front. RE Matemática S9 9 COMP E S9 8 COMP. Dimandja Programmer 23 Jul 02 19 50.Ma compreensão de S9 9 COMP e S9 8 COMP é COBOL irá manipular qualquer número até -999,999,999 e -99,999,999 respectivamente. Quanto à comparação de números inteiros com COBOL PIC 9. COBOL PIC 9 4 COMP máx. 9,999 COBOL PIC 9 5 COMP máx. 99,999 COBOL NATIVE-2 máx. 65,535 16 bit Integer max 65,535.COBOL PIC 9 8 COMP max 99,999,999 COBOL PIC 9 9 COMP 999,999,999 COBOL NATIVE-4 max 4 294 967 295 32 bit Integer max 4,294,967,295.RE S9 9 COMP e S9 8 COMP. Dimandja Programmer 24 Jul 02 06 20.COBOL PIC 9 4 COMP max 9,999 COBOL PIC 9 5 COMP max 99,999 COBOL NATIVE-2 max 32,767 16 bit Número inteiro máximo 32,767.COBOL PIC 9 8 COMP max 99,999,999 COBOL PIC 9 9 COMP max 999,999,999 COBOL NATIVE-4 máximo 2,147,483,647 32 bit Número inteiro máximo 2,147,483,647.RE S9 9 COMP e S9 8 COMP. k5tm Programador 24 Jul 02 10 05.Eu espero que eu não confundiu muito Para reiterate. You afirmou que o seu problema estava se movendo PIC S9 8 para PIC S9 9 Sob regras de truncamento decimal, isso não deve causar problemas Semelhantemente, em truncamento binário, eu não Acho que há um problema. Se você tiver dados indo para o outro lado, de 9 9 para 9 8, t Hen você definitivamente tem truncamento decimal possível Truncamento binário não deve ser um problema, embora eu não sou um especialista em seu compilador particular. RE S9 9 COMP e S9 8 Programador COMP. Crox 24 Jul 02 12 03.Try para usar COMP-5 vez De COMP Funcionará o mesmo para a mesma atribuição de armazenamento Leia o seu manual sobre ele COMP-5 é quase sempre melhor do que COMP. RE S9 9 COMP e S9 8 COMP. All, eu não posso usar Comp-5 como em um tinha eu ve Tenho uma tabela de DB2 e é definição de dclgen, e por outro, a definição de HPS, que não são 100 o mesmo eu em um manframe e estou usando um xpediter compilar deck que eu acho que está usando cobol370, embora eu não sou positivo sobre Isto. Obviamente, não há um problema indo de 9 8 comp para 9 9 e estou começando a formar a impressão de que o valor máximo para o 9 9 comp é o mesmo que 9 8 comp usando um TRUNC BIN compilar option. I pensar que Dimandja tem razão em dizer que o máximo de meia palavra é 32767 eo máximo para uma palavra cheia é 2,147,483,647 eu acho Que tanto 9 8 e 9 9 comp manterá este máximo, embora eu estou aberto a ser persuadido caso contrário, se alguém pode me mostrar a matemática Eu acho que eu poderia ter que knock up um programa que move os valores para os campos relevantes e ver O que acontece Eu tenho certeza que eu fiz isso com o 32767 há muitos anos, e você começa um abend Vai tentar amanhã e relatar, a menos que alguém sabe o contrário Marc. RE S9 9 COMP e S9 8 COMP. slade Programmer 24 Jul 02 21 44.I ve apresentado o seguinte como fato, porque parece mais claro, sem todos os ifs maybes e perhapes, mas eu não tenho certeza se é verdade que eu gostaria de ouvir o que todos vocês think. I don t saber se este ponto foi abordado, Mas calcular a capacidade de uma meia palavra, palavra ou palavra dupla depende se o campo é descrito como assinado ou não assinado ea opção TRUNC selecionada em tempo de compilação. Como eu me lembro o sinal usa o bit de alta ordem do campo, Reduzindo a capacidade Assumindo TRUNC BIN, uma meia palavra COMP campo definido como PIC 9 tem a Capacidade para manter um valor até 65,535 decimal X FFFF o mesmo campo, definido como PIC S9, pode conter um valor até 32,767 decimal XFFFF. RE S9 9 COMP e S9 8 COMP. Dimandja Programmer 25 Jul 02 15 53.This é Do meu manual COBOL85 Tandem Compaq HP. As gamas de valores para os tipos NATIVE-2 16 bits, NATIVE-4 32 bits e NATIVE-8 64 bits são. Tipo Limite superior vinculado superior NATIVE-2 -32768 32767 NATIVE-4 -2147483648 2147483647 NATIVE-8 -9223372036854775808 9223372036854775807. As gamas de valores para o tipo COMPUTATIONAL-5 são. PIC S9 1 - PIC S9 4 equivalente é NATIVE-2 -32.768 a 32.767 assinado ou 0 a 65.535 unsigned. PIC S9 5 - PIC S9 9 NATIVO-4 -2 147 473 647 assinado ou 0 a 4 294 967 295 sem assinatura. PIC S9 10 - PIC S9 18 NATIVE-8 -9,223,372,036,854,775,808 a 9,223,372,036,854,775,807 assinado ou 0 a 18,446,744,073,709,551,615 unsigned. That deve esclarecer as coisas um bit. RE S9 9 COMP e S9 8 COMP. Hi tudo, primeiro fora muito obrigado a todos porque você ve todos ajudaram De uma forma ou de outra, mas eu sinto que os posts de Dimandja s foram os mais úteis, então eu vou dar D uma estrela Espero que esteja bem com o resto de vocês. A coisa que eu amo sobre este jogo é que não importa quanto tempo você Tenho feito isso, há sempre algo novo para descobrir, mesmo se você pode ter tocado em anos atrás. Eu tenho o bug sobre esta questão quando alguém propôs como um problema na segunda-feira O sistema definir um valor em um Pic S9 8 Comp campo e moveu-o para um db2 S9 9 comp campo em uma tabela ea tabela foi atualizada O cenário que foi apresentado com foi que ele estava causando um problema na produção como grandes valores foram ficando na tabela que não poderia ser posteriormente ler usando O campo S9 8 como a chave I foi dito que TRUNC BIN estava sendo used. My primeiro argumento foi que, se ele sempre foi proveniente do S9 8 comp campo não deve ser um problema que me foi dito que este didn t parece ser o caso . Eu ainda tinha a sensação de que isso não deveria ter sido um problema, pois eu tinha certeza que o número de dígitos sp Ecified no tamanho do campo foi irrelevante quando TRUNC BIN como havia um valor máximo em meia palavra, palavra etc As postagens aqui tipo de confirmou o meu pensamento, especificamente Dimandja hoje também, eu escrevi um programa para mover vários valores para vários campos The Resultados tipo de me surpreendeu me mudei 32768 para um S9 4 COMP campo e olhou para o valor que continha -32768 Diversos valores mais elevados movidos para o campo produziu vários números negativos mais baixos. I relatou as minhas conclusões, ou seja, que S9 8 COMP e S9 9 COMP Quando usado com a opção TRUNC BIN iria conter exatamente o mesmo valor máximo, apenas para ser dito Oh não, a plataforma de compilação é TRUNC STD - O que causa um problema. Para resumir todo este TRUNC STD seguirá o PIC que você definir, então S9 4 COMP permitirá um máximo de 9999 e um mínimo de -9999.TRUNC BIN dará S9 para S9 4 COMP -32768 para 32767 S9 5 para S9 9 COMP -2147483648 para 2147483647.removing o sinal a partir desta opção altera o intervalo para 9 A 9 4 COMP 0 a 65535 9 5 a 9 9 COMP 0 a 4 294 , 967,295.Once novamente, obrigado por toda a sua ajuda Marc. Stock Exchange Market Iraq. Null var div Texto criar HTMLNode, 5 80000000, 0 1700 if div Texto null var div Texto criar HTMLNode, 0 49000000, 4 2600 if div Mercado de Valores Mercado Iraque Pic S9 08 Opções Binárias ISX Notícias da Bolsa de Valores do Iraque seguindo os EUA 1 3 000.000000000000000000000000000000000000000000000000000000000003 divisao de Bagdá de Asiacell, o operador móvel parcialmente propriedade de Ooredo do Qatar, Zain null var div Texto criar HTMLNode, 0 34000000, 3 0300 se div Texto var preço Ticker Parar false var preço Ticker Idioma 0 var tickercopyspeed 1 var maximum Companys No 15 Var atrasada Etiqueta Largura 115 var delta 8 var visable Largura 800px var marqueeheight 19px var marquee Container var crossmarquee, nsmarquee var realwidth var ticker Largura do letreiro pre Carga do preço Ticker onload função null var div Texto criar HTMLNode, 0 55000000, 1 8500 if div Text. Document Element Por Id iemarquee iemarquee set Intervalo scrollmarquee, 1 Elemento Por HTML load Preço Ticker Função load Preço Ticker else Element Por Id Última Atualização Div Ultimate HTML Última Atualização Messag E var div Texto criar HTMLNode, 0 95000000, 0 0000 se div Texto null var div Texto criar HTMLNode, 0 44000000, 0 0000 se div Mercado de Valores do Mercado Mercado Iraque Online Trading Academia Locais Franchising For Dummies Por que existem estoques em todos os Quotidiana no Notícias que ouvimos sobre a bolsa de valores, ações e dinheiro em movimento em todo o mundo Ainda assim, muitas pessoas don t As últimas notícias e informações sobre o Iraque Dinar, Dinar iraquiano, Dinar Revalorização, especulação Dinar, Iraque Stock Exchange ISX null HTMLNode, 1 45000000, 0 0000 if div Texto ISX Notícias da Bolsa de Valores do Iraque por Após os EU 1 3 bilhões Bagdá listagem de Asiacell, o operador móvel parcialmente propriedade de Ooredo do Qatar, Zain null var div Texto criar HTMLNode, 0 30000000, 7 1400 Se div Text. Gtis Premium Forex Signals. Is Nós Regulamentos sobre opções binárias Trading Profitable. Tools links. Copyright 2017.Note 1 Um campo binário que é definido como Unsigned, ou seja, PIC 999 é um valor positivo implícito A dois 2 byte sem sinal, campo binário pode conter um intervalo de valores positivos implícitos de 0 a 65.535.Note 2 Um campo binário que é definido Como Significado, ou seja, PIC S999 usará o bit de alta ordem, mais à esquerda como o sinal A zero 0 é um sinal positivo e um 1 é um sinal negativo A dois 2 bytes assinados, campo binário pode conter um intervalo de valores de -32,767 para 32.767.O formato BINARY para um campo Numérico. Fizemos um esforço significativo para garantir que os documentos e tecnologias de software estão corretos e precisos Reservamo-nos o direito de fazer alterações sem aviso prévio a qualquer momento A função fornecida nesta versão é baseada no aprimoramento Solicitações de um grupo específico de usuários A intenção é fornecer mudanças conforme a necessidade surgir e em um período de tempo que depende da disponibilidade de recursos. Copyright 1987-2017 SimoTime Technologies Todos os direitos reservados. A Idiosyncrasies de COMP Fiel Ds. A criação eo processamento de dados COMP ou BINARY em uma plataforma Windows ou UNIX deve ser feito da mesma maneira que o mainframe Nos campos mainframe COMP ou BINARY deve ter 2, 4 ou 8 bytes de comprimento o mainframe era originalmente um Meia palavra, palavra cheia e sistema centrado de duas palavras No Linux, UNIX ou Windows usando o Micro Focus COBOL com Net Express ou Server Express, os campos COMP ou BINARY podem ter de 1 a 8 bytes de comprimento. Nota A sintaxe para COBOL é USAGE No entanto, isso geralmente é abreviado para COMP ou pode ser codificado como BINARY. Notice o seguinte, o layout de registro para o arquivo mestre de item contém dois campos 2 COMP ou BINARY Estes campos são definidos como PIC 9 7 e podem conter valores de zero 0 a 9,999,999 ou os valores binários de x 000000 a x 98967F que podem estar contidos em um campo binário de 3 bytes três. Aqui está o problema, na EBCDIC-codificado, meia palavra, palavra completa, palavra dupla, mainframe ambiente Os campos seriam alocados com um L comprimento de quatro 4 bytes para um campo binário Para o Micro Focus, ambiente ASCII-codificado, byte-oriented os campos seriam alocados com um comprimento real de três 3 bytes para um campo binário. A solução para este problema para o Micro Focus Ambiente é usar as diretivas IBMCOMP e NOTRUNC ao compilar os programas Isso fará com que as regras do mainframe para COMP ou campos BINARY e os comprimentos de campo será o mesmo que o mainframe. Uma solução alternativa é modificar o arquivo de cópia e alterar o PIC 9 7 a PIC 9 9 No entanto, esta solução requer uma alteração de código fonte e não é recomendada durante a primeira fase de uma migração de dados. Comprimento de Definições de Campo Numérico. A tabela a seguir mostra a cláusula de imagem COBOL, o número de dígitos, o comprimento de um O comprimento de um campo COMP binário para um IBM Mainframe e o comprimento de um campo binário para os ambientes LUW do Linux, UNIX e Windows que executam o Micro Focus COBOL. As diferenças no tamanho da seqüência de campo ou de dados São alto-iluminado em RED. It é importante notar que Micro Focus Mainframe Express suporta o formato de mainframe para binário ou COMP campos Isso é feito por predefinir as diretivas do compilador para forçar este comportamento As diretivas do compilador são IBMCOMP e NOTRUNC Essas diretivas podem Também pode ser usado com Net Express e deve ser configurado manualmente, uma vez que o padrão para Net Express é permitir que os campos binários para ser qualquer length. Big Endian Little Endian. Information é geralmente processo, executando programas que foram criados usando uma linguagem de programa que separa o usuário Programador a partir da estrutura de hardware subjacente No entanto, esta separação não é cem por cento Portanto, algum nível de consciência ou compreensão do hardware pode ser necessária As técnicas de hardware utilizadas para definir, processar, salvar e recuperar valores numéricos é tipicamente uma área onde alguns Nível de compreensão é necessário. Primeiro, vamos rever como as unidades de informação são estruturadas em um sistema de computador típico. Bit é uma unidade de informação Um bit pode estar em uma condição OFF ou ON que é tradicionalmente referida como 0 ou 1 Quatro 4 bits fazem um nybble e oito bits ou 2 nybbles fazem um byte. Nota O termo nibble é comumente usado, mas o A ortografia original era nybble. Next, deixa a revisão como as unidades da informação são armazenadas na memória e processadas pelo system. In a fim compreender o conceito de grande e pouco Endian nós necessitamos compreender a memória consultada tipicamente como RAM ou memória aleatória do acesso nós podemos Pense em RAM como uma grande matriz com muitos elementos de um byte Um índice é normalmente usado para acessar um elemento específico dentro de uma matriz Um endereço é normalmente usado para acessar um local específico dentro de RAM ou memory. Note Para esta discussão, estamos usando uma RAM Arquitetura que armazena um byte em cada local de RAM Existem algumas arquiteturas de RAM onde cada local de memória armazena algo além de um byte No entanto, estes são raros por isso vamos limitar esta discussão para arquiteturas RAM que são byte oriented. An IBM Mainframe System tem a capacidade de hardware de executar tarefas aritméticas usando uma variedade de diferentes formatos Uma vez que atualmente estamos focados em uma discussão de Big e Little Endian formatos vamos limitar esta discussão para 32 bits ou 4 byte inteiros Para COBOL programadores isso seria USAGE A pergunta, Como esses 4 bytes são colocados na RAM para processar. A resposta, Depende, O Sistema Mainframe IBM usa o Big Endian eo hardware que é usado para executar o Linux, UNIX e Windows normalmente usa o Little Endian. Importante observar que Micro Focus COBOL tem um IBMCOMP de diretrizes de compilador que fornece suporte para o suporte Big Endian para campos COMP. A seguir, mostra como os 4 bytes de um inteiro de 32 bits estão dispostos em RAM começando em um local de endereço de 100.Note Observação Os bytes do pequeno endian estão na ordem inversa quando comparados ao formato grande endian Com pouco endian o byte menos significativo é armazenado primeiro Com o endian grande o mais significativo Ant byte é armazenado first. Next, vamos rever como os arquivos de dados são usados ​​para salvar e recuperar unidades de information. To entender a importância de endianness permite dar uma olhada no seguinte exemplo. A seqüência de dados de x 1A2B3C4D é gravado em um arquivo em Um sistema que usa endian grande. Esta é a notação hexadecimal de quatro bytes 1A, 2B, 3C e 4D ou 32 bits 0001 1010 0010 1011 0011 1100 0100 1101.On um Little Endian System isso representaria um valor numérico decimal de 1,295,788,826.Attention Este Resultaria em uma diferença de 856.747.725 entre o valor esperado eo valor real. O objetivo deste documento é fornecer uma visão geral dos formatos binários para seqüências de dados numéricos ou campos Este documento pode ser usado como um tutorial para novos programadores ou como um rápido Referência para programadores experientes. Em mundo da programação, existem muitas maneiras de resolver um problema Este documento e os links para outros documentos destinam-se a proporcionar uma maior consciência da Gestão de Dados e Aplicação Alternativas de processamento. A documentação e o software foram desenvolvidos e testados em sistemas configurados para um ambiente SimoTime com base no hardware, nos sistemas operacionais, nos requisitos do usuário e nos requisitos de segurança. Portanto, podem ser necessários ajustes para executar tarefas e programas quando transferidos para um sistema De uma arquitetura ou configuração diferente. SimoTime Services tem experiência em mover ou compartilhar dados ou processamento de aplicativos em uma variedade de sistemas Para obter informações adicionais sobre SimoTime Serviços ou Tecnologias por favor envie um e-mail para ou ligue 415 883-6565 Nós agradecemos ouvir de você A licença para usar, copiar, modificar e distribuir este software, documentação ou material de treinamento para qualquer finalidade requer uma taxa a ser paga à SimoTime Technologies Uma vez que a taxa é recebida pela SimoTime a última versão do software, documentação ou Material de treinamento será entregue e uma licença será concedida para uso dentro de um Desde que o aviso de direitos autorais do SimoTime apareça em todas as cópias do software. O nome ou logotipo do SimoTime não pode ser usado em qualquer publicidade ou publicidade relativa ao uso do software sem a permissão por escrito da SimoTime Technologies. SimoTime Technologies não faz nenhuma garantia ou representações Sobre a adequação do software, documentação ou material de aprendizagem para qualquer finalidade. É fornecido COMO ESTÁ, sem qualquer garantia expressa ou implícita, incluindo as garantias implícitas de comercialização, adequação a um fim específico e não violação SimoTime Technologies não será responsável por qualquer Diretos, indiretos, especiais ou conseqüentes resultantes da perda de uso, dados ou projetos, seja em uma ação contratual ou ilícita, decorrente ou em conexão com o uso ou desempenho deste software, documentação ou material de treinamento. . Esta seção inclui links para documentos com informações adicionais que estão além do escopo e Se deste documento A primeira sub-seção requer uma conexão com a Internet, a segunda sub-seção faz referência a documentos disponíveis localmente. Observação Uma licença SimoTime é necessária para que os itens sejam disponibilizados em um servidor local. Servidor atual ou acesso à Internet. As ligações podem ser para o servidor actual ou para a Internet. Nota As versões mais recentes dos Documentos SimoTime e Suites de Programas estão disponíveis na Internet e podem ser acedidas utilizando o ícone Se um utilizador tiver uma Licença SimoTime Enterprise, os Documentos e as Suites de Programas poderão ser Disponível em um servidor local e acessado usando o icon. Explore O formato binário ou COMP para cadeias de dados numéricos Essa estrutura numérica é suportada pelo COBOL e pode ser explicitamente definida com a cláusula USAGE IS COMP ou USAGE IS BINARY. Explore O formato editado para exibição Para cadeias de dados numéricos Esta estrutura numérica é suportada pelo COBOL e pode ser usada com uma máscara de edição para preparar a apresentação para a legibilidade por seres humanos. Packed-Decimal ou COMP-3 para cadeias de dados numéricas Esta estrutura numérica é suportada pelo COBOL e pode ser explicitamente definida com a cláusula USAGE IS COMP-3.Explore O formato Zoned-Decimal para cadeias de dados numéricos Esta estrutura numérica é o padrão numérico Para COBOL e pode ser explicitamente definido com a cláusula USAGE IS DISPLAY. Explore formatos e técnicas de processamento comumente usados ​​para gerenciar vários formatos numéricos disponíveis no mainframe. Explore a Conexão de Números para obter informações adicionais sobre a estrutura eo processamento de itens de dados numéricos ou campos numéricos. Explore Como gerar um arquivo de dados Converter programa usando instruções de especificação simples em um arquivo de controle de processo PCF Este link para o guia do usuário inclui as informações necessárias para criar um arquivo de controle de processo e gerar os programas COBOL que fará a conversão de arquivo de dados real O Guia do Usuário contém uma lista das instruções PCF que são usadas para o processo de conversão do arquivo de dados. Pical processo de conversão de arquivos que podem ser necessários quando se trabalha em um ambiente multi-sistema Este conjunto de documentos descreve um modelo para gerenciamento de estruturas de dados não relacionais Sequential Files e VSAM Data Sets que contêm ASCII ou EBCDIC cadeias de texto e vários formatos numéricos, BINARY, PACKED-Decimal e ZONED-Decimal Este modelo tem a capacidade de criar um arquivo de teste para um ambiente codificado ASCII ou EBCDIC Este conjunto de documentos abordará muitos dos desafios de fazer uma conversão de conteúdo recorde de um arquivo que será transferido entre Um Sistema de Mainframe codificado por EBCDIC e um sistema Linux, UNIX ou Windows ASCII codificado. As Tabelas de Tradução ASCII e EBCDIC Estas tabelas são fornecidas para indivíduos que precisam entender melhor as estruturas de bit e as diferenças dos formatos de codificação. Explore The File Status Códigos de Retorno para interpretar os resultados do acesso a conjuntos de dados VSAM e / ou arquivos QSAM. Acesso à Internet Necessário. Requerem uma ligação à Internet. Um bom lugar para começar é a página inicial do SimoTime para obter acesso a white papers, exemplos de programas e informações sobre produtos. Este link requer uma Conexão à Internet. Explore O site da Micro Focus para obter mais informações sobre produtos e serviços disponíveis da Micro Focus Este link requer uma Conexão à Internet. Glossário de Termos. Explore o Glossário de Termos para uma lista de termos e definições usados ​​neste conjunto de documentos e documentos brancos ou Feedback. This documento foi criado e é protegido por direitos autorais e mantidos pela SimoTime Technologies. Se você Tem todas as perguntas, sugestões, comentários ou comentários por favor ligue ou envie um e-mail to. We apreciam ouvir de youpany Overview. SimoTime Technologies foi fundada em 1987 e é uma empresa privada Somos especializados na criação e implantação de aplicações de negócios usando novos Ou tecnologias e serviços existentes Temos uma equipe de pessoas que entendem a ampla gama de tecnologias que estão sendo usadas em tod Os nossos clientes incluem pequenas empresas que utilizam tecnologias de Internet para corporações que utilizam sistemas mainframe muito grandes. Frequentemente, para chegar a mercados maiores ou fornecer um nível de serviço mais elevado aos clientes existentes, é necessário que as novas tecnologias da Internet funcionem de forma complementar às existentes Sistemas corporativos mainframe Especializamo-nos na preparação de aplicações e os dados associados que estão atualmente residindo em uma única plataforma para ser distribuído através de uma variedade de plataformas. Pré-requisitos os programas de aplicação exigirá a transferência de membros de origem que serão compilados e implantados na plataforma de destino Os dados terão que ser transferidos entre os sistemas e podem precisar ser convertidos e validados em vários estágios dentro do processo SimoTime tem a tecnologia, serviços e experiência para auxiliar na aplicação e tarefas de gerenciamento de dados envolvidas com fazer negócios em um sistema multi Se você quiser usar a Internet para expandir Em novos segmentos de mercado ou como um veículo de entrega para as funções de negócios existentes simplesmente dar-nos uma chamada ou verificar o site na Web. Binary ou formato COMP, uma descrição e discussão. Eu estou tendo um problema estranho com os campos comp-3 eu estou abrindo Um arquivo mainframe com registrador e todos os dados parece bem com a exceção dos campos comp-3 O que eu estou vendo em recordingitor para os campos comp-3 é um hex que não combina com o hex que s no mainframe Por exemplo . Eu tenho um campo declarado como PIC S9 07 COMP-3 no meu arquivo copybook Em recordingit ele exibe as.3c125 com meu layout copybook selecionado. No mainframe usando file-aid ele exibe as.3656 sem hex Este é com o humano Legível. O hex de duas linhas no monitor gravado exibe o seguinte. Observe que a coluna de texto é preenchida com uma estranha procurando letra A quando o registro é visto na única janela de registro eu achei que estranho, uma vez que este é suposto ser um campo numérico. O hex duas linhas no mainframe exibe como follows. Any idéias O que está errado here. Below é alguma informação que poderia ser useful. cobol layout de registro layout. copybook formato de linha uso muito longo linha divisão livro não dividir nome de fonte não nome de fonte é em branco formato binário intel estrutura de arquivo linha baseada sistema binário ams. IBM Z série mainframe IBM Enterprise COBOL para z OS 4 2 0.Se você gostaria de se referir a este comentário em outro lugar neste projeto, copie e cole o seguinte link. In resposta a tradução para EBCDIC ASCII tradução foi feita quando o arquivo foi Movido do Mainframe para Unix PC. All programas que transferem arquivos entre o Mainframe e Unix Windows por padrão também fazer um Ebcdic para Ascii tradução Estes programas terão uma opção para fazer uma transferência binária onde os dados são até Uched. So você precisa pedir uma transferência binária ou seja, não EBCDIC para ASCII tradução Também se o arquivo é VB no Mainframe, pedir para ser convertido em FB antes de ser transferido. Mainframe Background. The mainframe sistema operacional ZOS é um Muito diferente do Windows nix, em primeiro lugar há o conjunto de caracteres EBCDIC em vez de ASCII No Windows nix um arquivo é um arquivo é um arquivo e ele upto programas individuais como eles interpretam os dados Ont o mainframe um arquivo também tem uma organização Atributo The 2 Os atributos de arquivo seqüenciais são. FB bloco fixo neste formato todas as linhas ou registros têm o mesmo comprimento Não há nenhum caractere de fim de linha, por exemplo, para o comprimento de registro 20 os primeiros 20 bytes no arquivo são a primeira linha ou gravar o 2o 20 Bytes são a segunda variável line. VB bloqueado neste formato há um Line Record - Length antes de cada linha Record. FB pode ser transferido para a partir do Windows nix sem qualquer problema VB é um problema diferente - não há nenhuma estrutura de arquivo equivalente no Windows nix Alguns trans Fer programas lidar com arquivos binários VB melhor do que others. If você gostaria de se referir a este comentário em algum outro lugar neste projeto, copiar e colar o seguinte link. Thank muito por sua ajuda até agora. Assim, eu era capaz de fazer um binário Copiar a partir do mainframe para a minha máquina e eu estou um pouco preso novamente Aqui está o que eu estou vendo. Eu solicitei duas cópias do mesmo arquivo de dados Um no FB e outro em VB Quando eu executar um comando diff em dois arquivos, diff Diz que eles são os mesmos Deve haver alguma diferença here. When eu tento ver o arquivo VB com mainframe rdw baseado em binário, ou mainframe VB dump, recebo o seguinte. Error Lendo o Arquivo Inválido Record Descriptor palavra na linha 1.Quando Eu tento ver o arquivo FB com a opção Fixed Length Binário, o primeiro registro mostra-se lindamente incluindo os campos comp, mas o resto dos registros não estão alinhando up. Plese ver minhas screenshots para mais detalhes. Eu devo estar faltando alguma coisa você pode Por favor help. I estou confuso com o arredondado no compu A função em cobol. Will o resultado de VAR-A ser 18 27 ou 18 26 O que cobol fazer sobre a computação Seria rodada VAR-B primeiro para as casas decimais especificadas em VAR-A ou cobol adicionar as 2 variáveis ​​em torno deles Até as casas decimais especificadas em VAR-A. Any ajuda será apreciated. How sobre este exemplo. Supposing VAR-A é uma matriz, e os seguintes são os seus valores. Por que eu recebo 597 87 para VAR-B como resultado Após o cálculo. Depende do arredondamento intermediário e do conjunto de arredondamento final. Veja isso para mais info. COBOL fornece a capacidade de especificar o arredondamento em declarações aritméticas e expressões em vários pontos no processo de avaliação e como os valores são preparados para armazenar na recepção Existem oito formas diferentes de arredondamento suportadas por esta norma. AWAY-FROM-ZERO O arredondamento é para o valor mais próximo de maior magnitude. NEAREST-AWAY-FROM-ZERO Arredondamento para o valor mais próximo Se dois valores estiverem igualmente próximos, o valor com maior magnitude é selecionado. Esse modo tem sido historicamente associado à cláusula ROUNDED nas versões anteriores do padrão COBOL. NEAREST-EVEN O arredondamento é para o valor mais próximo Se dois valores estão igualmente próximos, o valor cujo dígito mais à direita é uniforme é selecionado Esse modo às vezes é chamado de arredondamento de Banker. NEAREST-TOWARD-ZERO Arredondamento para o valor mais próximo Se dois valores estiverem igualmente próximos, o valor com menor magnitude é selecionado. PROIBIDO Como o valor não pode ser representado exatamente no formato desejado, a condição EC-SIZE-TRUNCATION é definida para existir e os resultados da operação são indefinidos. TOWARD-GREATER O arredondamento é para o valor mais próximo cujo valor algébrico é maior. TOWARD-LESSER Arredondamento é para o valor mais próximo cujo valor algébrico é menor. TRUNCAMENTO O arredondamento é para o valor mais próximo cuja magnitude é menor. Este modo historicamente tem sido associado com a ausência da cláusula ROUNDED bem como para a formação de resultados intermediários no padrão COBOL anterior. O programador pode especificar como os valores intermediários individuais são arredondados quando Eles são armazenados em itens de dados de recebimento através da cláusula ROUNDED pode selecionar um modo padrão de arredondamento para ser usado quando a cláusula redondeada aparece sem qualificação adicional em um item de dados de recebimento através da cláusula MODO REDONDO PADRÃO do parágrafo OPÇÕES da DIVISÃO DE IDENTIFICAÇÃO e Pode especificar como as operações aritméticas e as conversões de e para os formulários intermediários são arredondadas através da cláusula INTERMEDIATE ROUNDING. D 13a 1 Arredondamento intermediário. O arredondamento intermediário se aplica quando os itens de dados são recuperados para inclusão em uma operação aritmética ou expressão aritmética e durante a execução de aritmética Para produzir um resultado intermediário. O padrão anterior para a multiplicação e divisão em Aritmética Padrão, o modo padrão de arredondamento para resultados inexatos foi truncamento para 32 dígitos significativos Esse padrão é inalterado neste padrão e também é o padrão para a aritmética Padrão-Binário e Padrão-Décimal. the intermediate value can be represented exactly in the appropriate intermediate format, the exact value is used. In the event the value cannot be exactly represented, the user may also now specify other modes of rounding for arithmetic operations and for the conversions to and from intermediate forms used in the arithmetic operations through the optional INTERMEDIATE ROUNDING clause of the OPTIONS paragraph of the IDENTIFICATION DIVISION. Specifically, the following options are available. INTERMEDIATE ROUNDING IS NEAREST-AWAY-FROM-ZERO INTERMEDIATE ROUNDING IS NEAREST-EVEN INTERMEDIATE ROUNDING IS PROHIBITED INTERMEDIATE ROUNDING IS TRUNCATION. for which the subclause descriptions are found in D 13a, Rounding. If the INTERMEDIATE ROUNDING clause is not specified, INTERMEDIATE ROUNDING IS TRUNCATION is presumed This is unchanged from previous standards. D 13a 2 Final rounding the ROUNDED clause. Final rounding applies to the formation of the final result of the expression or statement, at the completion of evaluation of the statement or expression, immediately before the result is placed in the destination This form of rounding is that which is associated with the ROUNDED clause. In previous COBOL standards, only two methods of final rounding were provided rounding toward the smaller magnitude truncation, signaled by the absence of the ROUNDED clause and rounding to the nearest values, and if two values were equally near, choose the value with the larger magnitude signaled b y the presence of the ROUNDED clause. The ROUNDED clause has been enhanced to allow explicit selection of any of eight modes of rounding including the two previously available. ROUNDED MODE IS AWAY-FROM-ZERO ROUNDED MODE IS NEAREST-AWAY-FROM-ZERO ROUNDED MODE IS NEAREST-EVEN ROUNDED MODE IS NEAREST-TOWARD-ZERO ROUNDED MODE IS PROHIBITED ROUNDED-MODE IS TOWARD-GREATER ROUNDED MODE IS TOWARD-LESSER ROUNDED MODE IS TRUNCATION. If the ROUNDED clause is not present for a given result, the rules for ROUNDED MODE IS TRUNCATION apply. The optional DEFAULT ROUNDED MODE clause in the OPTIONS paragraph of the IDENTIFICATION DIVISION is provided to allow the user to specify the mode of rounding to any operation for which the ROUNDED clause appears without the MODE IS subclause The DEFAULT ROUNDED MODE clause may take any of these forms. DEFAULT ROUNDED MODE IS AWAY-FROM-ZERO DEFAULT ROUNDED MODE IS NEAREST-AWAY-FROM-ZERO DEFAULT ROUNDED MODE IS NEAREST-EVEN DEFAULT ROUNDED MODE IS NEAREST-TOWARD-ZERO DEFAULT ROUNDED MODE IS PROHIBITED DEFAULT ROUNDED MODE IS TOWARD-GREATER DEFAULT ROUNDED MODE IS TOWARD-LESSER DEFAULT ROUNDED MODE IS TRUNCATION. for which the subclauses of the DEFAULT ROUNDED MODE is clause are described in D 13a, Rounding. If the DEFAULT ROUNDED MODE clause does not appear in the program, the effect of the ROUNDED clause without the MODE IS subclause is as if ROUNDED MODE IS NEAREST AWAY FROM ZERO had been specified This provides the same functionality available in prior COBOL standards. If the DEFAULT ROUNDED MODE clause appears, ROUNDED clauses without the MODE IS subclause are treated as if they had been specified with the rounding mode specified in the DEFAULT ROUNDED MODE clause. Thanks Patrick for the super fast reply Correct me if I m wrong, the sample I mentioned above is using the final rounding And since I didn t specify DEFAULT ROUNDED MODE, the rounding mode is ROUNDED MODE IS NEAREST AWAY FROM ZERO What cobol did is that it added the variables and rounded off the value before placing it to the destination variable Which also means that the value of VAR-A would be 18 26 Grekoz Sep 27 11 at 16 56.The above looks like it was lifted from the next draft standard for COBOL I don t think many commercial COBOL compilers fully support this yet Until then I believe the default rounding mode employed by most is Nearest Away From Zero NealB Sep 27 11 at 19 12.