JCL - IEBIMAGE Example 11: Build a New Character Arrangement Table Module from an Existing Copy

JCL - IEBIMAGE Example 11: Build a New Character Arrangement Table Module from an Existing Copy

3800 Model 1

In this example, an existing character arrangement table module is copied and used as a basis for a new module.
The new character arrangement table is identical to the old one, except that it uses the Gothic 15-pitch character set instead of Gothic 10-pitch.
Neste exemplo, um módulo de tabela de organização de caracteres existente é copiado e usado como base para um novo módulo.
A nova tabela de arranjo de caracteres é idêntica à anterior, exceto que usa o conjunto de caracteres gótico de 15 pitches em vez do gótico 10 pitch.

  //CHARMOD2 JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      INCLUDE  A11
      OPTION   DEVICE=3800M3
      TABLE    CGMID=87
      NAME     A115
  /*

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 A11 is to be used as a basis for the new module.
The A11 character arrangement table translates 8-bit data codes to printable characters in the Gothic 10-pitch character set.
The OPTION statement with the DEVICE parameter specifies 3800 Model 3 compatibility mode processing.
The TABLE statement specifies a new character set identifier, X'87', which is the identifier for the Gothic 15-pitch character set.
No other changes are made to the character arrangement table.
The new table calls for characters in the Gothic 15-pitch character set.
The name of the new character arrangement table is A115; 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 A11 deve ser usada como base para o novo módulo.
A tabela de arranjo de caracteres A11 traduz códigos de dados de 8 bits em caracteres imprimíveis no conjunto de caracteres Gothic de 10 pitch.
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 um novo identificador de conjunto de caracteres, X'87 ', que é o identificador para o conjunto de caracteres gótico de 15 tons.
Nenhuma outra alteração é feita na tabela de organização de personagens.
A nova mesa chama para personagens no conjunto de caracteres gótico de 15 pitches.
O nome da nova tabela de organização de caracteres é A115; ele é armazenado como um membro do conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples