JCL - IEBIMAGE Build a New Graphic Character Modification Module and Modify a Character Arrangement Table to Use It



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

JCL - IEBIMAGE Example 16: Build a New Graphic Character Modification Module and Modify a Character Arrangement Table to Use It

3800 Model 3

  • In this example, a graphic character modification module is built.
    The module contains one user-designed character, a reverse 'E', whose 8-bit data code is designated as X'E0' and whose pitch is 10.
    An existing character arrangement table is then modified to include the reverse E.
  • Neste exemplo, um módulo de modificação de caractere gráfico é construído.
    O módulo contém um caractere projetado pelo usuário, um reverso 'E', cujo código de dados de 8 bits é designado como X'E0 'e cujo pitch é 10.
    Uma tabela de arranjo de caracteres existente é então modificada para incluir o reverso E. 
  //GRAFMOD3 JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
          OPTION  DEVICE=3800M3
          GRAPHIC  ASSIGN=(E0,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     BODE
      INCLUDE  GS10
      OPTION   DEVICE=3800M3
      TABLE    CGMID=(83,FF),GCMLIST=BODE,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 preceding the GRAPHIC statement specifies 3800 Model 3 compatibility mode processing.
  • The GRAPHIC statement's ASSIGN parameter establishes the 8-bit data code, X'E0', and the width, 10-pitch, for the user-designed character.
    The data statements that follow the GRAPHIC statement describe the character's scan pattern.
  • The name of the graphic character modification module is BODE, 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 reverse E to that copy of the GS10 table.
    CGMID=(83,FF) 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'FF' as a character set identifier to allow accessing of the second WCGM without loading it.
    GCMLIST=BODE identifies the graphic character modification module containing the reverse E for inclusion in the table.
    LOC=(E0,03,1) specifies that the reverse E, which has been assigned the 8-bit data code X'E0', is to be loaded into position X'03' in the second WCGM.
    Because this second WCGM is otherwise unused, any position in it could have been used for the reverse E.
  • 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 que precede a instrução GRAPHIC especifica o processamento do modo de compatibilidade do Modelo 3 de 3800.
  • O parâmetro ASSIGN da instrução GRAPHIC estabelece o código de dados de 8 bits, X'E0 'e a largura, 10-pitch, para o caractere projetado pelo usuário.
    As declarações de dados que seguem a declaração GRAPHIC descrevem o padrão de varredura do personagem.
  • O nome do módulo de modificação de caractere gráfico é BODE 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 E reverso a essa cópia da tabela GS10. CGMID = (83, FF) 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'FF' como um identificador do conjunto de caracteres para permitir o acesso do segundo WCGM sem carregá-lo. GCMLIST = BODE identifica o módulo de modificação de caractere gráfico contendo o E reverso para inclusão na tabela. LOC = (E0,03,1) especifica que o E reverso, ao qual foi atribuído o código de dados de 8 bits X'E0 ', deve ser carregado na posição X'03' no segundo WCGM.
    Como este segundo WCGM não é usado de outra forma, qualquer posição nele poderia ter sido usada para o E reverso.
  • 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


© Copyright IBM Corp.