JCL - IEBIMAGE Example 13: Delete Graphic References From a Character Arrangement Table Module

JCL - IEBIMAGE Example 13: Delete Graphic References From a Character Arrangement Table Module

3800 Model 3

In this example, an existing character arrangement table module is copied and used as a basis for a new one.
The new character arrangement table deletes references to all graphic character modification modules and resets the translate table entries that were used to point to character positions for the segments of a graphic character modification module.

Neste exemplo, um módulo de tabela de organização de caracteres existente é copiado e usado como base para um novo. A nova tabela de organização de caracteres exclui referências a todos os módulos de modificação de caracteres gráficos e redefine as entradas da tabela de tradução que foram usadas para apontar para posições de caracteres para os segmentos de um módulo de modificação de caracteres gráficos.

  //CHARMOD4 JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      INCLUDE  ZYL
      OPTION   DEVICE=3800M3
      TABLE    GCMLIST=DELETE,LOC=((6A),(6B))
      NAME     ZYLA
  /*

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 ZYL 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 deletes references to graphic character modification modules and resets two translation table entries:
GCMLIST=DELETE specifies that all names of graphic character modification modules included with the module when the ZYL character arrangement table was copied are to be reset to blanks (X'40').
The LOC parameter identifies two locations in the translation table, X'6A' and X'6B', that are to be set to X'FF' (the default value when no character position or WCGM values are specified).
The name of the new character arrangement table is ZYLA; it is stored as a member of the SYS1.IMAGELIB data set.

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 ZYL 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 exclui referências a módulos de modificação de caracteres gráficos e redefine duas entradas da tabela de tradução:
GCMLIST = DELETE especifica que todos os nomes de módulos de modificação de caracteres gráficos incluídos com o módulo quando a tabela de arranjo de caracteres ZYL foi copiada devem ser redefinidos para espaços em branco (X ' 40 ').
O parâmetro LOC identifica dois locais na tabela de tradução, X'6A 'e X'6B', que devem ser definidos como X'FF '(o valor padrão quando nenhuma posição de caractere ou valores WCGM são especificados).
O nome da nova tabela de organização de caracteres é ZYLA; ele é armazenado como um membro do conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples