|
3800 Model 1
-
In this example, an existing character arrangement table module is copied and used as the basis for a new module that will include user-designed characters
of a graphic character modification module.
The new module is then added to the SYS1.IMAGELIB data set.
|
-
Neste exemplo, um módulo de tabela de organização de caracteres existente é copiado e usado como base para um novo módulo que incluirá caracteres projetados
pelo usuário de um módulo de modificação de caracteres gráficos.
O novo módulo é então adicionado ao conjunto de dados SYS1.IMAGELIB.
|
//CHARMOD3 JOB ...
//STEP1 EXEC PGM=IEBIMAGE
//SYSUT1 DD DSNAME=SYS1.IMAGELIB,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
INCLUDE ONB
TABLE GCMLIST=ONB1,LOC=((6F,2F,1),(7C,3C,1),(6A,2A,0))
NAME ONBZ
/*
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 ONB is to be used as a basis for the new module.
ONB refers to two WCGMs.
- The TABLE statement identifies a graphic character modification module and stipulates the translation table entries for each of its segments:
GCMLIST=ONB1 identifies the graphic character modification module named ONB1.
The LOC parameter specifies the translate table entry location, character position, and WCGM number for each segment of the module:
The first segment corresponds to the 8-bit data code X'6F'.
The segments' scan pattern is to be loaded at character position X'2F' (that is, the 48th character position) in the second WCGM.
The second segment corresponds to the 8-bit data code X'7C'.
The segment's scan pattern is to be loaded at character position X'3C' (that is, the 61st character position) in the second WCGM.
The third segment corresponds to the 8-bit data code X'6A'.
The segment's scan pattern is to be loaded at character position X'2A' (that is, the 43rd character position) in the first WCGM.
The name of the new character arrangement table is ONBZ; 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 da tabela de organização de caracteres chamada ONB deve ser usada como base para o novo módulo.
ONB refere-se a dois WCGMs.
- A instrução TABLE identifica um módulo de modificação de caractere gráfico e estipula as entradas da tabela de tradução para cada um de
seus segmentos:
GCMLIST = ONB1 identifica o módulo de modificação de caractere gráfico denominado ONB1.
O parâmetro LOC especifica o local da entrada da tabela de tradução, a posição do caractere e o número WCGM para cada segmento do módulo:
O primeiro segmento corresponde ao código de dados de 8 bits X'6F '.
O padrão de varredura dos segmentos deve ser carregado na posição do caractere X'2F '(ou seja, a posição do 48º caractere) no segundo WCGM.
O segundo segmento corresponde ao código de dados de 8 bits X'7C '.
O padrão de varredura do segmento deve ser carregado na posição do caractere X'3C '(ou seja, a posição do 61º caractere) no segundo WCGM.
O terceiro segmento corresponde ao código de dados de 8 bits X'6A '.
O padrão de varredura do segmento deve ser carregado na posição do caractere X'2A '(ou seja, a posição do 43o caractere) no primeiro WCGM.
O nome da nova tabela de organização de caracteres é ONBZ; ele é armazenado como um novo módulo no conjunto de dados SYS1.IMAGELIB.
Parent topic: IEBIMAGE Examples
© Copyright IBM Corp.
|
