Usando OUREC em SORT JCL - Exemplo. OUTREC em SORT JCL - Exemplo 1 Se você quiser adicionar o número de seqüência aos dados de saída depois de classificar os dados de entrada Aqui está o cartão OUTREC SORT Arquivo de entrada para SORT JCL 10 suresh 20000 01 20170203 34 20 NARENDRA 40000 06 20170925 AB 30 jacob A 25000 07 20171018 1A 40 RAMESH 34000 03 20170610 2C 50 Kishore 50000 02 20170408 45 INREC em SORT JCL SYSIN DD SORT FIELDS COPIAR CAMPOS OUTREC 1 1,35,60 SEQNUM, 6, ZD copyright Explicação - Primeiros 35 bytes Ser copiado para o número de sequência do arquivo de saída será adicionado na 60ª posição no arquivo de saída Outputfile de SORT JCL - 10 suresh 20000 01 20170203 34 000001 20 NARENDRA 40000 06 20170925 AB 000002 30 jacob A 25000 07 20171018 1A 000003 40 RAMESH 34000 03 20170610 2C 000004 50 Kishore 50000 02 20170408 45 000005 Parte inferior dos dados OUTREC OVERLAY em SORT JCL - Exemplo 2.OVERLAY é usado para alterar certas colunas no registro sem afetar outras colunas Entrada Arquivo - 10 suresh 20000 01 20170203 34 20 NARENDRA 40000 06 20170925 AB 30 jacob A 25000 07 20171018 1A 40 RAMESH 34000 03 20170610 2C 50 Kishore 50000 02 20170408 45 OUTREC OVERLAY SORT CARD - SYSIN DD CAMPOS DE SORTE COPIAR OUTREC SUPERFÍCIE 1 1,35,36 13,5, ZD, DIV, 100, TO FS, LENGTH 4 Arquivo de Saída - 10 suresh 20000 01 20170203 34 200 20 NARENDRA 40000 06 20170925 AB 400 30 jacob A 25000 07 20171018 1A 250 40 RAMESH 34000 03 20170610 2C 340 50 Kishore 50000 02 20170408 45 500 Fundo de Dados O valor em 13º Posição no arquivo de entrada será dividido por 100 e resultante vlaue será convertido para o valor de FS com comprimento 4 O resultado será movido para a 36a posição no arquivo de saída OUTREC Referência do nosso fórum de discussão Para complexo OUTREC e INREC SORT JCLs Em mainframegurukul SORT fóruns Hexadecimal para conversão decimal - CLASSIFICAR JCL INREC OUTREC SORT JCL - SORTING A VB ARQUIVO - INREC OUTREC PARSE BUILD Classificar jcl - relatório escritor consultas usando OUTREC. NEXT TEMA CAPÍTULO CONSTRUIR em SORT JCL. Let me apenas flash antes de você a entrada Conjunto de dados , Que eu escolhi para este exemplo Estes são os dados a partir do ano de 2008. ---- ---- ---- ---- ---- 2 ---- ---- 3 ---- - --- 4 ---- ---- 5 ---- ---- 6 ---- AG10001 RAMESH CHANDRA GUHA INDIA MAHARASHT MUMBAI 01000 AG10002 QUASAR SHABBIR CHUN INDIA MAHARASHT PUNE 02000 AG10003 VEERAMANI DIAGANJ INDIA MAHARASHT NAGPUR 03000 AG10004 DELPHAN FERANDAZ Índia Tamil NAD CHENNAI 04000 AG10005 PADMAVATHI SUNDARAM Índia Tamil NAD SALÉM 05000 AG10006 NEELESHWARI Iyer Índia Tamil NAD ERNAKULAM 06000 AG10007 AJAY NANUBHAI PARSA índias Ocidentais BENG KOLKATA 07000 AG10008 mehul POPATLAL SUTA índias Ocidentais BENG Kharagpur 08000 AG10009 KRITHIKA RAMANUJAM índias Ocidentais BENG SUNDARBAN 09000 AG10010 ANKUR CHOUDHARY ÍNDIA PUNJAB AMRITSAR 10000 AG10011 HIREN NITIN SHETH ÍNDIA PUNJAB JALANDHAR 11000 AG10012 DARSHAN SHAH ÍNDIA HARYANA CHANDIGAR 12000.No ano de 2009, devido a um bônus de desempenho dado aos Agentes de Seguros, todos eles fizeram mais esforços e no próximo trimestre foi Observado, que suas vendas cresceram por 10 por cento Escreva um Batc H JOB JCL que aumenta as Vendas de Agentes de Seguros em 10 por cento Então, você precisa gerar um relatório para as vendas para o ano fiscal que termina em 2009, mostrando um 10 aumento na figura de vendas para todos os agentes. Para executar a aritmética como aumentar a adição em Campos numéricos, podemos usar vários operadores como ADD, SUB, MUL, DIV, MOD dentro da instrução de controle OUTREC FIELDS Para tratar um campo como numérico, e para ser capaz de realizar operações numéricas nele, nós código ZD Zoned Decimal specifier. To Aumentamos o valor de vendas em 10%, precisamos multiplicar as vendas x 1 1 Mas, como os valores de flutuação decimais não são permitidos, multiplicaremos SALES x 11 e descreveremos o formato do campo Editado resultante O formato do campo Editado Pode ser especificado usando EDIT Subparameter. If temos entrada de vendas 1000, nós multiplicamos por 11, 1000 x 11 11000 Para exibir resultado correto, ponto decimal precisa ser deslocado um lugar deixado Então, o formato é TTTT T onde T significa qualquer dígito significativo Para ser exibido Nós podemos anúncio Da vírgula como T, TTT T Alguns números de vendas são acima de 10.000 dígitos 5 Assim, precisamos garantir que eles também são exibidos corretamente Assim, precisamos adicionar um dígito Insignificant I. Nós especificamos o formato para o campo de saída usando EDIT Parâmetro Nós Irá codificar o parâmetro EDIT para o exemplo acima como. Isto é como o Batch JOB JCL para aumentar as vendas em 10 por cento olha. ---- ---- 1 ---- ---- 2 ---- - --- 3 ---- ---- 4 ---- ---- 5 ---- ---- 6 ---- ---- 7-- CAA0176K JOB A123, QUASAR, CLASS G , MSGCLASS Y, AVISAR SYSUID STEP01 EXEC PGM SORT, REGIÃO 1024K SORTIN DD SYSPRINT DD SYSOUT SYSOUT DD SYSOUT SORTXSUM DD SORTOUT DD SYSIN DD Campos de classificação 30,5, CH, A - OUTREC CAMPOS 30,5,2X, 60,5, ZD , MUL, 11, EDIT IT, TTT T, 80 X. Upon submeter o Fluxo de Trabalho acima, o Relatório de Saída final para o Vendas de 2009, que mostra um aumento de 10 em Vendas de Cada Agente de Seguros, olha algo como isto .--- - ---- 1 ---- ÍNDIA 1,100 0 ÍNDIA 2,200 0 ÍNDIA 3,300 0 ÍNDIA 4,400 0 ÍNDIA 5,500 0 ÍNDIA 6,600 0 ÍNDIA 7,700 0 ÍNDIA 8,800 0 ÍNDIA 9,90 0 0 ÍNDIA 11,000 0 ÍNDIA 12,100 0 INDIA 13,200 0.Q Como você reformata registros com OUTREC OVERLAY Control Statement. When usamos OUTREC FIELDS para reformatar os registros de saída, você precisa especificar todos os campos itens, que você deseja Aparecem no registro de saída Você deve informar a ferramenta DFSORT através da declaração de controle OUTREC FIELDS, cada item que você gostaria que o registro Assim, você tem que construir o registro re-formatado, um item em um campo de tempo por campo Entre, Você pode adicionar alguns caracteres especiais como vírgula ou símbolo de moeda Isto pode ser muito tedioso e pesado, se o registro tem um comprimento grande e contém muitos campos colunas. Se você pretende alterar modificar apenas um punhado de colunas, um mais fácil e mais conveniente É usar a instrução de controle OVERLAY Observe que a instrução OVERLAY pode ser usada para fazer as mesmas tarefas que você pode realizar com OUTREC Statement. Let me mostrar um exemplo simples que ilustra como aumentar a figura de vendas dos agentes de seguros Como no exemplo acima, mas usando a instrução OUTREC OVERLAY Este exemplo prova, como é fácil usar a instrução OVERLAY em oposição à declaração de controle OUTREC FIELDS meticulosa e incômoda. ---- ---- 1 ---- ---- 2 ---- ---- 3 ---- ---- 4 ---- ---- 5 ---- ---- 6 ---- ---- 7 - CAA0176A TRABALHO A123, QUASAR, CLASSE G, MSGCLASS Y, PRTY 15, NOTIFICAR SYSUID STEP01 EXEC PGM SORT, REGIÃO 1024K SORTIN DD SYSPRINT DD SYSOUT SYSOUT DD SYSOUT SORTXSUM DD SORTOUT DD SYSIN DD OPÇÃO COPIAR - OUTREC OVERLAY 60 60,5, ZD, ADD, 60,5, ZD, DIV, 10, A ZD, LENGTH 5.Q Como funciona o OUTREC IFTHEN Control Statement Você pode elaborar mostrando um JCL Job simples stream. OUTREC FIELDS e OUTREC Overlay permite que você aplique o mesmo Reformatando para todos os registros de saída No entanto, se você gostaria de aplicar diferentes re-formatação para diferentes registros de saída, então deve-se usar a opção IFTHEN Usando a opção IFTHEN, pode-se aplicar diferentes OUTREC FIELDS ou OUTREC OVERLAY formulários declarações para saída diferente Records. Suppo Se, o Relatório de Saída deve ser gerado da seguinte forma - 1 Se VENDAS do Agente 06000, então Aumentar 10 2 Se VENDAS do Agente 06000, então Aumentar 20.So, para todos os registros com vendas 06000, multiplicamos MUL por 1 1 Para todos os registros com vendas 06000, multiplicamos MUL por 1 2 Assim, podemos multiplicar registros por 11 e 12, respectivamente, em JCL, e exibir o campo de saída usando o formato EDIT, EDIT IT, TTT T .---- - - 1 ---- ---- 2 ---- ---- 3 ---- ---- 4 ---- ---- 5 ---- ---- 6-- - ---- 7-- ----------------------------------------- --------------------------- OUTREC IFTHEN Declaração de Controle Reformatando registros de forma diferente ---------------- -------------------------------------------------- - CAA0176Q TRABALHO A123, QUASAR, CLASSE G, MSGCLASS Y, PRTY 15, NOTIFICAR SYSUID STEP01 EXEC PGM SORT, REGIÃO 1024K SORTIN DD INPUT FICHEIRO SYSPRINT DD SYSOUT SYSOUT DD SYSOUT SORTOF01 DD RELATÓRIO SORTOUT DD SAÍDA SYSIN DD INSTREAM DECLARAÇÕES DE CONTROLE OPÇÃO COPY OUTREC IFTHEN QUANDO 60,5, ZD, LT, 06000, - CONSTRUIR 1 1,9,10 10,20, X, 60,5, ZD, MUL , 11, EDITAR IT, TTT T, IFTHEN QUANDO 60,5, ZD, GE, 06000, - CONSTRUIR 1 1,9,10 10,20, X, 60,5, ZD, MUL, 12, EDIT IT, TTT T. O Relatório de Saída para o JCL de Trabalho em Lote acima parece o seguinte AG10004. ---- ---- 1 ---- - AG10001 1,100 0 AG10002 2,200 0 AG10003 3,300 0 AG10004 4,400 0 AG10005 5,500 0 AG10006 7,200 0 AG10007 8,400 0 AG10008 9,600 0 AG10009 10,800 0 AG10010 12,000 0 AG10011 13,200 0 AG10012 14,400 0.SORT CONVERT PD para ZD e BI para ZD. SORT CONVERT PD para ZD e BI para ZD. Na maioria dos cenários, o seu ficheiro de entrada tem dados quer em Formato decimal compacto COMP-3 ou formato Binary COMP que não está no formato legível Para alterar este formato legível, você precisará converter esses números em formato ZONED Decimal ZD Isso pode ser feito usando SORT. Suppose seu arquivo de entrada tem primeiro 4 bytes em O formato binário e você deseja que ele em displayable format. p, m, BI, TO ZD converte os valores de BI para valores ZD Por padrão, um valor de BI de 4 bytes produz um valor ZD de 10 bytes, mas LENGTH 6 substituir o comprimento padrão para produzir Um valor ZD de 6 bytes. Isso não substitui o comprimento do valor produzido ZD produzido. Suponha que seu arquivo de entrada tem primeiro 4 bytes no formato compactado e você quer que ele seja exibido format. p, m, PD, TO ZD converte os valores PD Para valores ZD Por padrão, um valor de BI de 4 bytes produz um valor ZD de 7 bytes, mas LENGTH 6 substitui o comprimento padrão para produzir um valor ZD de 6 bytes. Isso não substitui o comprimento do valor ZD produzido. Você pode Também gostaria de olhar para. Post navegação. VSAM para PS Conversão Abaixo JCL Converte VSAM para PS FILE Field-7 de 44 a 50 é PACKED Decimal Como devo usar acima para converter PD para ZD, copiando dados para PS arquivo Obrigado antecipadamente. G62XXXXJ TRABALHO NOTIFY SYSUID, CLASSE D, MSGLEVEL 1,1, MSGCLASS X STEP1 EXEC PGM IEFBR14 ETAPA DD UNIDADE SYSDA, SPACE TRK, 100,10, RLSE, DCB LRECL 1000, BLKSIZE 10000000, RECFM FB ETAPA DD UNIDADE SYSDA, 100,10, RLSE, DCB LRECL 1000, BLKSIZE 10000000, RECFM FB, DSORG PS SYSPRINT DD SYSOUT STEP2 EXEC PGM IDCAMS SYSPRINT DD SYSOUT SYSOUT DD SYSOUT SYSÍN DD REPRO ODS IDS. STEP0100 EXEC PGM SORT SYSOUT DD SYSOUT SORTINO DD DISP SHR SORTOUT DD DISP NOVO, CATLG, DELETE, UNIDADE SYSDA, SPACE TRK, 100,10, RLSE, DCB LRECL 1000, BLKSIZE 0, RECFM FB SYSIN DD TRABALHOS DE CÓPIA CAMPOS OUTREC 1, 43,44,7, PD, para ZD, 51,950. Os seguintes são os parâmetros padrão SyncSort, que você pode alterar conforme descrito acima. O BMSG lista parâmetros alternativos especificados através de ORTPARM no conjunto de dados de mensagem de saída. Esse padrão causa validação limitada dos dados Contidos em campos designados como empacotado ou zonado decimal Para que o tipo termine se dados nos campos PD ou ZD forem inválidos, especifique CMP CPD. Para os tipos invocados pelo programa com rotinas de saída, você deve determinar a quantidade de memória necessária pelas saídas e, em seguida, Especifique CORE MAXnnn K. NOSNAP irá suprimir o despejo SNAP SyncSort, que é produzido no caso de um erro crítico Se você tiver uma declaração SYSUDUMP DD, você receberá o dump OS normal Se você precisar de um despejo SNAP, especifique o DEBUG. Para uma classificação mais eficiente, a ordem F os registros não são preservados Se a ordem precisa ser retida, use a palavra-chave EQUALS. Mensagens de erro são emitidas quando ocorre um erro de IO Se IOERR ABE for especificado, um USER 999 ABEND ocorrerá. As instruções de controle serão listadas nos dados SYSOUT O conjunto NOLIST irá desativar isto. O nome DD padrão do conjunto de dados de mensagem é SYSOUT Qualquer outro nome DD válido pode ser substituído. Para ser compatível com as opções de exibição de rotinas de saída COBOL, as características definidas do conjunto de dados de mensagem são DCB LRECL 121, BLKSIZE 121, RECFM FA. Uma ordem mal-sucedida emitirá um código de retorno de 16 Se RC16 ABE for especificado, ocorrerá um USER 16 ABEND. O espaço não utilizado em conjuntos de dados de sortwork será liberado durante o tempo de execução a menos que o tipo seja iniciado pelo programa. Para liberar espaço excedente no conjunto de dados SORTOUT, pode ser especificado RLSOUT. RESET deve ser dado como um parâmetro se o conjunto de dados SORTOUT é um arquivo VSAM que foi criado com a opção REUSE para impedir SyncSort de tratar SORTOUT como um conjunto de dados MOD Um seco A atribuição ndary é dada aos conjuntos de dados sortwork, se necessário. No teste de validade de registros de comprimento variável será done. Documentation para o utilitário SyncSort está no SyncSort Release 3 4 Guia do Programador do SyncSort, Inc Você pode encomendar manuais do fornecedor Neste endereço. SyncSort Incorporated 50 Tice Boulevard Woodcliff Lake, NJ 07675 Telefone 201 930-9700.e-mail Fax 201 930-8284 Attn Syncsort Product Services. Se você precisar de ajuda usando SyncSort em EI O, entre em contato com o EI O Support Desk por Telefone para 352 392-2061 ou e-mail to. Your comentários são bem-vindos. Nós damos boas-vindas a seus comentários e sugestões sobre este e todos os documentos UFIT Por favor, envie seus comentários para. UF Tecnologia da Informação 2046 NE Waldo Rd, Suite 2100 Gainesville, Flórida 32609- 8942. Deixe-me apenas flash antes de você o Input Dataset, que eu escolhi para este exemplo Este é os dados a partir do ano de 2008. ---- ---- 1 ---- ---- 2 --- - ---- 3 ---- ---- 4 ---- ---- 5 ---- ---- 6 ---- AG10001 RAMESH CHANDRA GUHA INDIA MAHARASHT MUMBAI 01000 AG1 0002 QUASAR SHABBIR CHUN ÍNDIA MAHARASHT PUNE 02000 AG10003 Veeramani Daryaganj ÍNDIA MAHARASHT NAGPUR 03000 AG10004 DELPHAN FERANDAZ Índia Tamil NAD CHENNAI 04000 AG10005 PADMAVATHI SUNDARAM Índia Tamil NAD SALÉM 05000 AG10006 NEELESHWARI Iyer Índia Tamil NAD ERNAKULAM 06000 AG10007 AJAY NANUBHAI PARSA índias Ocidentais BENG KOLKATA 07000 AG10008 mehul POPATLAL SUTA ÍNDIA WEST BENG Kharagpur 08000 AG10009 KRITHIKA RAMANUJAM ÍNDIA WEST BENG SUNDARBAN 09000 AG10010 ANKUR CHOUDHARY Ásia Índia Punjab AMRITSAR 10000 AG10011 Hiren NITIN SHETH Ásia Índia Punjab Jalandhar 11000 AG10012 DARSHAN SHAH Índia Haryana Chandigar 12000.In o ano de 2009, devido a um prémio de desempenho dado a Agentes de Seguros, todos eles colocaram em mais esforços e no próximo trimestre foi observado que as suas vendas cresceram 10 por cento Escrever um lote JOB JCL que aumenta as vendas de agentes de seguros em 10 por cento Então, você precisa gerar um relatório para as vendas Para o exercício findo em 2009, evidenciando um aumento de 10% na Para executar a aritmética como aumentar a adição em campos numéricos, podemos usar vários operadores como ADD, SUB, MUL, DIV, MOD dentro da OUTREC FIELDS Control Statement Para tratar um campo como numérico e ser capaz de executar operações numéricas nele , Nós codificamos ZD Zoned Decimal specifier. To elevar a figura de vendas por 10 por cento, precisamos multiplicar as vendas x 1 1 Mas, uma vez que valores de flutuação decimal não são permitidos, vamos multiplicar SALES x 11 e, em seguida, descrever o formato do Resultant Edited field O formato do campo Edited pode ser especificado usando EDIT Subparameter. If temos entrada de vendas 1000, nós multiplicamos por 11, 1000 x 11 11000 Para exibir resultado correto, ponto decimal precisa ser deslocado um lugar deixado Então, o formato é TTTT T onde T significa qualquer dígito significativo a ser exibido Podemos adicionar uma vírgula como T, TTT T Alguns números de vendas são acima de 10.000 5 dígitos Assim, precisamos garantir que eles também são exibidos corretamente Assim, precisamos adicionar um I Insignificant digit. We especificar o formato f Ou o campo de saída usando EDIT Parâmetro Vamos codificar o parâmetro EDIT para o exemplo acima como. Este é o modo como o Batch JOB JCL para aumentar as vendas de 10 por cento olha. ---- ---- 1 ---- - - 2 ---- ---- 3 ---- ---- 4 ---- ---- 5 ---- ---- 6 ---- ---- 7-- CAA0176K TRABALHO A123, QUASAR, da classe G, MSGCLASS Y, AVISAR SYSUID Step01 EXEC PGM SORT, REGIÃO 1024K SORTIN DD DD SYSPRINT SYSOUT SYSOUT DD DD SYSOUT SORTXSUM SORTOUT DD DD SYSIN Classificar campos 30,5, CH, A - outrec CAMPOS 30,5 , 2X, 60,5, ZD, MUL, 11, EDITAR IT, TTT T, 80 X. Upon submeter o Fluxo de Trabalho acima, o Relatório de Saída final para o Vendas de 2009, que mostra um aumento de 10 em Vendas de Cada Agente de Seguros, Tem algo assim. ---- ---- ---- INDIA 1,100 0 ÍNDIA 2,200 0 ÍNDIA 3,300 0 ÍNDIA 4,400 0 ÍNDIA 5,500 0 ÍNDIA 6,600 0 ÍNDIA 7,700 0 ÍNDIA 8,800 0 ÍNDIA 9,900 0 ÍNDIA 11,000 0 ÍNDIA 12,100 0 INDIA 13,200 0.Q Como você reformata registros com OUTREC OVERLAY Control Statement. When usamos OUTREC FIELDS para reformatar os registros de saída, você precisa especificar al L os itens de campos que você deseja que apareçam no Registro de Saída Você deve informar a ferramenta DFSORT através da Declaração de Controle OUTREC FIELDS, cada item que você gostaria que o registro Assim, você tem que construir o registro re-formatado, um item em Um campo de tempo por campo Entre, você pode adicionar alguns caracteres especiais como vírgula, ou símbolo de moeda Isso pode ser muito tedioso e pesado, se o registro tem um comprimento grande e contém muitos campos colunas. Se você pretende alterar modificar apenas um Um punhado de colunas, uma opção mais fácil e mais conveniente é usar a instrução de controle OVERLAY Note que a instrução OVERLAY pode ser usada para fazer as mesmas tarefas que você pode realizar com OUTREC Statement. Let me mostrar um exemplo simples que ilustra como aumentar a Figura de vendas dos Agentes de Seguros como no exemplo acima, mas usando a declaração OUTREC OVERLAY Este exemplo prova, quão fácil é usar a declaração OVERLAY em oposição ao meticuloso e incômodo OUTREC FIELDS Control Declaração. ---- ---- 1 ---- ---- 2 ---- ---- 3 ---- ---- 4 ---- ---- 5 --- - ---- ---- ---- 6 7-- CAA0176A TRABALHO A123, QUASAR, da classe G, MSGCLASS Y, prty 15, AVISAR SORT SYSUID Step01 EXEC PGM, REGIÃO 1024K SORTIN DD DD SYSPRINT SYSOUT SYSOUT DD SYSOUT SORTXSUM DD SORTOUT DD SYSIN DD opção de cópia - OVERLAY outrec 60 60,5, ZD, ADD, 60,5, ZD, DIV, 10, para ZD, 5.Q COMPRIMENTO Como o trabalho Declaração outrec IfThen Controle você pode elaborar, mostrando uma simples JCL Job stream. OUTREC FIELDS e OUTREC Overlay permite que você aplique o mesmo reformatando a todos os registros de saída No entanto, se você gostaria de aplicar diferentes re-formatação para diferentes registros de saída, então deve-se usar a opção IFTHEN usando a opção IFTHEN , Pode-se aplicar diferentes OUTREC FIELDS ou OUTREC OVERLAY formatos declarações para diferentes registros de saída. Suponha, gostaríamos que o Relatório de Saída a ser gerado da seguinte forma - 1 Se VENDAS do Agente 06000, então Aumentar 10 2 Se VENDAS do Agente 06000, 20.So, para todos os registros com vendas 06000, nós mu Ltiply MUL por 1 1 Para todos os registros com vendas 06000, multiplicamos MUL por 1 2 Assim, podemos multiplicar registros por 11 e 12, respectivamente, em JCL, e exibir o campo de saída usando o formato EDIT, EDIT IT, TTT T.- --- ---- 1 ---- ---- 2 ---- ---- 3 ---- ---- 4 ---- ---- 5 ---- - -6 ---- ---- 7 ------------------------------------ -------------------------------- OUTREC IFTHEN Declaração de controle Reformatar registros de forma diferente ----------- -------------------------------------------------- ------- CAA0176Q TRABALHO A123, QUASAR, da classe G, MSGCLASS Y, prty 15, AVISAR SYSUID Step01 EXEC PGM SORT, REGIÃO 1024K SORTIN DD ARQUIVO DE ENTRADA SYSPRINT DD DD SYSOUT SYSOUT SYSOUT SORTOF01 DD DD SORTOUT RELATÓRIO DE SAÍDA SYSIN DD ECOLÓGICA DECLARAÇÕES DE CONTROLE OPÇÃO COPIAR OUTREC IFTHEN QUANDO 60,5, ZD, LT, 06000, - CONSTRUIR 1 1,9,10 10,20, X, 60,5, ZD, MUL, 11, EDITAR IT, TTT T, IFTHEN WHEN 60 , 5, ZD, GE, 06000, - CONSTRUIR 1 1,9,10 10,20, X, 60,5, ZD, MUL, 12, EDITAR IT, TTT T. Segue AG10004. ---- ---- 1 ---- - AG10001 1,100 0 AG10002 2,200 0 AG10003 3,300 0 AG10004 4,400 0 AG10005 5 500 0 AG10006 7,200 0 AG10007 8,400 0 AG10008 9,600 0 AG10009 10,800 0 AG10010 12,000 0 AG10011 13,200 0 AG10012 14,400 0.
No comments:
Post a Comment