JCL - IEBIMAGE Example 21: Build a Library Character Set Module and Modify a Character Arrangement Table to Use It

JCL - IEBIMAGE Example 21: Build a Library Character Set Module and Modify a Character Arrangement Table to Use It

3800 Model 3

In this example, a library character set module is built.
The module contains one user-designed character, a reverse 'E', whose 6-bit WCGM-location code is designated as X'03', and whose pitch is 10.
An existing character arrangement table is then modified to include the reverse E.

Neste exemplo, um módulo de conjunto de caracteres de biblioteca é construído.
O módulo contém um caractere projetado pelo usuário, um 'E' reverso, cujo código de localização WCGM de 6 bits é designado como X'03 ', e cujo pitch é 10.
Uma tabela de arranjo de caracteres existente é então modificada para incluir o E reverso .

  //LIBMOD3  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      OPTION  DEVICE=3800M3
      CHARSET ASSIGN=(03,10)
      XXXXXXXXXXXXXXX     SEQ=10
      XXXXXXXXXXXXXXX     SEQ=11
      XXXXXXXXXXXXXXX     SEQ=12
                 XXXX     SEQ=13
                 XXXX     SEQ=14
                 XXXX     SEQ=15
                 XXXX     SEQ=16
                 XXXX     SEQ=17
                 XXXX     SEQ=18
                 XXXX     SEQ=19
        XXXXXXXXXXXXX     SEQ=20
        XXXXXXXXXXXXX     SEQ=21
        XXXXXXXXXXXXX     SEQ=22
                 XXXX     SEQ=23
                 XXXX     SEQ=24
                 XXXX     SEQ=25
                 XXXX     SEQ=26
                 XXXX     SEQ=27
                 XXXX     SEQ=28
                 XXXX     SEQ=29
      XXXXXXXXXXXXXXX     SEQ=30
      XXXXXXXXXXXXXXX     SEQ=31
      XXXXXXXXXXXXXXX     SEQ=32
      NAME     73
      INCLUDE  GS10
      OPTION   DEVICE=3800M3
      TABLE    CGMID=(83,73),LOC=(E0,03,1)
      NAME     RE10
  /*

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 and processing considerations.
The CHARSET statement's ASSIGN parameter establishes the 6-bit WCGM-location code, X'03', and the width, 10-pitch, for the user-designed character.
The data statements that follow the CHARSET statement describe the character's scan pattern.
The name of the library character set module is 73, and it is stored as a new module in the SYS1.IMAGELIB data set.
The INCLUDE statement specifies that a copy of the GS10 character arrangement table is to be used as the basis for the new table.
The TABLE statement specifies the addition of the library character set containing the reverse E to that copy of the GS10 table.
CGMID=(83,73) specifies the character set identifier X'83' for the Gothic-10 set (which is the set already used by the GS10 table) and specifies X'73' as a character set identifier to allow loading of the second WCGM with the library character set 73.
LOC=(E0,03,1) specifies that the reverse E, which has been assigned the WCGM location 03 in the second WCGM, is to be referenced by the EBCDIC code X'E0'.
The new character arrangement table is named RE10; 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 3800 e as considerações de processamento.
O parâmetro ASSIGN da instrução CHARSET estabelece o código de localização WCGM de 6 bits, X'03 ', e a largura, 10-pitch, para o caractere projetado pelo usuário.
As declarações de dados que seguem a declaração CHARSET descrevem o padrão de varredura do personagem.
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.
A instrução INCLUDE especifica que uma cópia da tabela de organização de caracteres GS10 deve ser usada como base para a nova tabela.
A instrução TABLE especifica a adição do conjunto de caracteres da biblioteca contendo o E reverso àquela cópia da tabela GS10.
CGMID = (83,73) especifica o identificador do conjunto de caracteres X'83 'para o conjunto Gothic-10 (que é o conjunto já usado pela tabela GS10) e especifica X'73' como um identificador do conjunto de caracteres para permitir o carregamento do segundo WCGM com o conjunto de caracteres de biblioteca 73.
LOC = (E0,03,1) especifica que o E reverso, que foi atribuído ao local WCGM 03 no segundo WCGM, deve ser referenciado pelo código EBCDIC X'E0 '.
A nova tabela de organização de caracteres é denominada RE10; ele é armazenado como um novo módulo no conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples