JCL - IEBIMAGE Example 20: Build a Library Character Set Module

JCL - IEBIMAGE Example 20: Build a Library Character Set Module

3800 Model 3

In this example, a library character set module is built.
Its characters are segments copied from the World Trade National Use Graphics graphic character modification module.
For the listing of all the segments of that module, see IBM 3800 Printing Subsystem Programmer's Guide.
The EBCDIC assignments for the characters are replaced by WCGM-location codes.
The new module is stored in the SYS1.IMAGELIB system data set.

Neste exemplo, um módulo de conjunto de caracteres de biblioteca é construído.
Seus caracteres são segmentos copiados do módulo de modificação de caracteres gráficos da World Trade National Use Graphics.
Para obter a lista de todos os segmentos desse módulo, consulte o IBM 3800 Printing Subsystem Programmer's Guide.
As atribuições EBCDIC para os caracteres são substituídas por códigos de localização WCGM.
O novo módulo é armazenado no conjunto de dados do sistema SYS1.IMAGELIB.

                                                                         72
  //LIBMOD2  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      OPTION   DEVICE=3800M3
      CHARSET  REF=((24,01),(25,02),(26,03),(27,04),(28,05),             X
                 (31,06),(33,07),(35,08),(38,09),(40,0A))
      NAME     73
  /*

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.
DEVICE=3800M3 in the OPTION statement specifies 3800 Model 3 compatibility mode module format.
By not specifying the GCM keyword or a library character set ID, the CHARSET statement identifies the World Trade National Use Graphics graphic character modification module.
Ten of its segments are to be copied and used with the new module.
For example, the 24th segment is to be copied and assigned the WCGM location 01.
See the REF parameter (24,01).
The name of the library character set module is 73, and 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.
DEVICE = 3800M3 na instrução OPTION especifica o formato do módulo do modo de compatibilidade do Modelo 3 de 3800.
Ao não especificar a palavra-chave GCM ou um ID de conjunto de caracteres de biblioteca, a instrução CHARSET identifica o módulo de modificação de caractere gráfico do World Trade National Use Graphics.
Dez de seus segmentos devem ser copiados e usados ??com o novo módulo.
Por exemplo, o 24º segmento deve ser copiado e atribuído à localização WCGM 01.
Consulte o parâmetro REF (24,01).
O nome do módulo do conjunto de caracteres da biblioteca é 73 e é armazenado como um novo módulo no conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples