JCL - IEBIMAGE Example 10: Add a New Character to a Character Arrangement Table Module

JCL - IEBIMAGE Example 10: Add a New Character to a Character Arrangement Table Module

3800 Model 1

In this example, an IBM-supplied character arrangement table module is modified to include another character, and then added to the SYS1.IMAGELIB data set as a replacement for the IBM-supplied module.
Neste exemplo, um módulo de tabela de organização de caracteres fornecido pela IBM é modificado para incluir outro caractere e, em seguida, adicionado ao conjunto de dados SYS1.IMAGELIB como um substituto para o módulo fornecido pela IBM.

  //CHARMOD1 JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
       INCLUDE  GF10
       OPTION   DEVICE=3800M3
       TABLE    LOC=((2A,2A),(6A,2A),(AA,2A),(EA,2A))
       NAME     GF10(R)
  /*

The control statements are discussed as follows:
As declarações de controle são discutidas a seguir:

The SYSUT1 DD statement includes DISP=OLD to ensure that no other job can modify the data set while this job is executing.
The INCLUDE statement specifies that a copy of the character arrangement table named GF10 is to be used as a basis for the new module.
The OPTION statement with the DEVICE parameter specifies 3800 Model 3 compatibility mode processing.
The TABLE statement specifies updated information for four translation table entries: X'2A', X'6A', X'AA', and X'EA'.
(These four locations are unused in the IBM-supplied GF10 table.)
Each of the four translation table entries is to point to the '2A' (43rd character) position in the first WCGM, which contains the scan pattern for a lozenge.
The name of the character arrangement table is GF10, and it is stored as a new module in the SYS1.IMAGELIB data set.
The data set's directory is updated so that the name GF10 points to the new module; the old GF10 module can no longer be accessed through the data set's directory.

A instrução SYSUT1 DD inclui DISP = OLD para garantir que nenhum outro trabalho possa modificar o conjunto de dados durante a execução deste trabalho.
A instrução INCLUDE especifica que uma cópia da tabela de organização de caracteres chamada GF10 deve ser usada como base para o novo módulo.
A instrução OPTION com o parâmetro DEVICE especifica o processamento do modo de compatibilidade do Modelo 3 de 3800.
A instrução TABLE especifica informações atualizadas para quatro entradas da tabela de conversão: X'2A ', X'6A', X'AA 'e X'EA'.
(Esses quatro locais não são usados na tabela GF10 fornecida pela IBM.)
Cada uma das quatro entradas da tabela de conversão deve apontar para a posição '2A' (43º caractere) no primeiro WCGM, que contém o padrão de varredura para um losango.
O nome da tabela de organização de caracteres é GF10 e é armazenado como um novo módulo no conjunto de dados SYS1.IMAGELIB.
O diretório do conjunto de dados é atualizado para que o nome GF10 aponte para o novo módulo; o antigo módulo GF10 não pode mais ser acessado através do diretório do conjunto de dados.

Parent topic: IEBIMAGE Examples