JCL - IEBIMAGE Example 22: Build a Library Character Set Module from Multiple Sources

JCL - IEBIMAGE Example 22: Build a Library Character Set Module from Multiple Sources

3800 Model 3

In this example, a library character set module is created. Its contents come from three different sources:
- 62 segments are copied from an existing module with the INCLUDE statement;
- the CHARSET statement is used to select another segment to be copied;
- a second CHARSET statement is used to establish characteristics for a user-designed character.
The new library character set module, when built, is added to the SYS1.IMAGELIB.

Neste exemplo, um módulo de conjunto de caracteres de biblioteca é criado.
Seu conteúdo vem de três fontes diferentes: - 62 segmentos são copiados de um módulo existente com a instrução INCLUDE; - a instrução CHARSET é usada para selecionar outro segmento a ser copiado; - uma segunda instrução CHARSET é usada para estabelecer características para um personagem projetado pelo usuário. O novo módulo do conjunto de caracteres da biblioteca, quando construído, é adicionado ao SYS1.IMAGELIB.

  //LIBMOD4  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      INCLUDE  33,DELSEG=(3,4)
      CHARSET  REF=(1,02),GCM=BODE,ASSIGN=03
       ********           SEQ=06
      **********          SEQ=07
     ****    ****         SEQ=08
     ***      ***         SEQ=09
     ***     ****         SEQ=10
     ***  ******          SEQ=11
     ***  ******          SEQ=12
     ***     ****         SEQ=13
     ***      ****        SEQ=14
     ***       ***        SEQ=15
     ***       ***        SEQ=16
     *** **** ****        SEQ=17
     ***  *******         SEQ=18
     ***   *****          SEQ=19
      NAME  53
  /*

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 library character set module named 33 is to be included with the new module.
All segments of 33, except the third and fourth segments (as a result of DELSEG=3,4), are to be copied into the new module and become the basis for the new module.
The CHARSET statement specifies the module's third and fourth segments:
REF=(1,02) and GCM=BODE specify that the third segment of the new module is to be obtained by copying the first segment from the graphic character modification module named BODE.
The segment's 6-bit WCGM-location code is to be set so that its character is identified with the code X'02'.
ASSIGN=03 specifies that the new module's fourth segment is a user-designed character whose 6-bit WCGM-location code is X'03' and whose width is 10-pitch (the default when no pitch value is specified).
The CHARSET statement is followed by data statements that specify the character's scan pattern.
The name of the library character set module is 53, it is stored as a new module in 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 do módulo do conjunto de caracteres da biblioteca denominado 33 deve ser incluída com o novo módulo.
Todos os segmentos de 33, exceto o terceiro e o quarto segmentos (como resultado de DELSEG = 3,4), devem ser copiados para o novo módulo e se tornar a base para o novo módulo.
A instrução CHARSET especifica o terceiro e o quarto segmentos do módulo: REF = (1,02) e GCM = BODE especificam que o terceiro segmento do novo módulo deve ser obtido copiando o primeiro segmento do módulo de modificação de caractere gráfico denominado BODE.
O código de localização WCGM de 6 bits do segmento deve ser definido de forma que seu caractere seja identificado com o código X'02 '.
ASSIGN = 03 especifica que o quarto segmento do novo módulo é um caractere projetado pelo usuário cujo código de localização WCGM de 6 bits é X'03 'e cuja largura é 10-pitch (o padrão quando nenhum valor de pitch é especificado).
A instrução CHARSET é seguida por instruções de dados que especificam o padrão de varredura do personagem.
O nome do módulo do conjunto de caracteres da biblioteca é 53, ele é armazenado como um novo módulo no conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples