JCL - IEBIMAGE Example 7: Build a 4248 Forms Control Buffer Module

JCL - IEBIMAGE Example 7: Build a 4248 Forms Control Buffer Module

In this example, a new 4248 default FCB module is built using an existing FCB module as a model.
The new module, NEW1, is added to SYS1.IMAGELIB as a new member.
The existing module, OLD1, remains unchanged.
OLD1 may be a 4248 FCB called FCB4OLD1, or it may be a 3211 FCB called FCB2OLD1.
(If both modules existed, FCB4OLD1 would be used.)

Neste exemplo, um novo módulo FCB padrão 4248 é construído usando um módulo FCB existente como modelo.
O novo módulo, NEW1, é adicionado a SYS1.IMAGELIB como um novo membro.
O módulo existente, OLD1, permanece inalterado.
OLD1 pode ser um FCB 4248 denominado FCB4OLD1 ou pode ser um FCB 3211 denominado FCB2OLD1.
(Se ambos os módulos existissem, FCB4OLD1 seria usado.)

  //FCBMOD7  JOB   ...
  //STEP1    EXEC  PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      OPTION  DEVICE=4248
      INCLUDE OLD1
      FCB     COPYP=67,PSPEED=M,DEFAULT=YES
      NAME    NEW1
  /*

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=4248 on the OPTION statement specifies that this module is to be created for the 4248 printer.
The INCLUDE statement specifies that a copy of the existing module OLD1 is to be used as a basis for the new module, NEW1.
COPYP=67 indicates that the horizontal copy feature should be activated, and that horizontal copies should begin printing in the 67th print position from the beginning (left) margin. Note that the value 67 divides a 132-hammer printer into two equal copy areas for two equally-sized horizontal copies.
With COPYP=67, a maximum of 66 bytes can be sent to the printer.
PSPEED=M indicates that the printer speed should be set to medium (3000 LPM).
This setting overrides any PSPEED value previously set in module OLD1; it applies to module NEW1, but does not change the value set in OLD1.
DEFAULT=YES indicates that this module, NEW1, should become a default FCB module for this installation.
Because these parameters are not specified, the values of LINES, SIZE, LPI, and CHx default to the values which already exist in module OLD1.
The NAME statement indicates that this module should be called NEW1.

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 = 4248 na instrução OPTION especifica que este módulo deve ser criado para a impressora 4248.
A instrução INCLUDE especifica que uma cópia do módulo existente OLD1 deve ser usada como base para o novo módulo, NEW1.
COPYP = 67 indica que o recurso de cópia horizontal deve ser ativado e que as cópias horizontais devem começar a ser impressas na 67ª posição de impressão a partir da margem inicial (esquerda).
Observe que o valor 67 divide uma impressora de martelo 132 em duas áreas de cópia iguais para duas cópias horizontais de tamanhos iguais.
Com COPYP = 67, no máximo 66 bytes podem ser enviados para a impressora.
PSPEED = M indica que a velocidade da impressora deve ser definida como média (3000 LPM).
Esta configuração substitui qualquer valor PSPEED previamente definido no módulo OLD1; aplica-se ao módulo NEW1, mas não altera o valor definido em OLD1.
DEFAULT = YES indica que este módulo, NEW1, deve se tornar um módulo FCB padrão para esta instalação.
Como esses parâmetros não são especificados, os valores de LINES, SIZE, LPI e CHx são padronizados para os valores que já existem no módulo OLD1.
A instrução NAME indica que este módulo deve ser chamado de NEW1.

Parent topic: IEBIMAGE Examples