JCL - IEBIMAGE Example 17: Build a Graphic Character Modification Module from Multiple Sources

JCL - IEBIMAGE Example 17: Build a Graphic Character Modification Module from Multiple Sources

3800 Model 1

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

Neste exemplo, um módulo de modificação de caractere gráfico é criado.
Seu conteúdo vem de três fontes diferentes:
nove segmentos são copiados de um módulo existente com a instrução INCLUDE;
a instrução GRAPHIC é usada para selecionar outro segmento a ser copiado;
a instrução GRAPHIC também é usada para estabelecer características para um personagem projetado pelo usuário.
O novo módulo de modificação de caracteres gráficos, quando construído, é adicionado ao SYS1.IMAGELIB.

  //GRAFMOD4 JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      INCLUDE CSTW,DELSEG=3
      GRAPHIC REF=(1,6A),GCM=BODE,ASSIGN=9A
       ********           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  JPCK
  /*

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 graphic character modification module named CSTW is to be included with the new module.
All segments of CSTW, except the third segment (as a result of DELSEG=3), are to be copied into the new module and become the module's first through ninth modification segments.
The GRAPHIC statement specifies the module's tenth and eleventh segments:
REF=(1,6A) and GCM=BODE specify that the 10th segment of the new module is to be obtained by copying the first segment from the graphic character modification module named BODE.
In addition, the segment's 8-bit data code is to be changed so that its character is identified with the code X'6A'.
ASSIGN=9A specifies that the new module's 11th segment is a user-designed character whose 8-bit data code is X'9A' and whose width is 10-pitch (the default when no pitch value is specified).
The GRAPHIC statement is followed by data statements that specify the character's scan pattern.
The name of the graphic character modification module is JPCK, 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 de modificação de caractere gráfico denominado CSTW deve ser incluída com o novo módulo.
Todos os segmentos do CSTW, exceto o terceiro segmento (como resultado de DELSEG = 3), devem ser copiados para o novo módulo e se tornar o primeiro ao nono segmento de modificação do módulo.
A instrução GRAPHIC especifica o décimo e o décimo primeiro segmentos do módulo:
REF = (1,6A) e GCM = BODE especificam que o décimo segmento do novo módulo deve ser obtido copiando o primeiro segmento do módulo de modificação de caractere gráfico denominado BODE.
Além disso, o código de dados de 8 bits do segmento deve ser alterado para que seu caractere seja identificado com o código X'6A '.
ASSIGN = 9A especifica que o 11º segmento do novo módulo é um caractere projetado pelo usuário cujo código de dados de 8 bits é X'9A 'e cuja largura é 10-pitch (o padrão quando nenhum valor de pitch é especificado).
A instrução GRAPHIC é seguida por instruções de dados que especificam o padrão de varredura do personagem.
O nome do módulo de modificação de caractere gráfico é JPCK, ele é armazenado como um novo módulo no conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples