JCL - IEBIMAGE - Example 2: Replace a 3800 Forms Control Buffer Module

JCL - IEBIMAGE Example 2: Replace a 3800 Forms Control Buffer Module

3800 Model 1

In this example, the size and channel codes for a 5-1/2 inch form are specified, and the module is added to the SYS1.IMAGELIB data set as a replacement for an existing member.
The new module is added to the end of the data set; the name in the data set's directory is updated so that it points to the new module; the old module can no longer be accessed through the data set's directory.

Neste exemplo, o tamanho e os códigos de canal para um formulário de 5-1 / 2 polegadas são especificados e o módulo é adicionado ao conjunto de dados SYS1.IMAGELIB como uma substituição para um membro existente.
O novo módulo é adicionado ao final do conjunto de dados; o nome no diretório do conjunto de dados é atualizado para que aponte para o novo módulo; o módulo antigo não pode mais ser acessado por meio do diretório do conjunto de dados.

  //FCBMOD2  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      FCB  CH1=(1,7,13,20),CH12=26,SIZE=55
      NAME S55(R)
  /*

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.
CH1=(1,7,13,20) specifies channel 1 code for printable line 1, line 7, line 13, and line 20.
CH12=26 specifies channel 12 code for printable line 26.
SIZE=55 specifies the length of the form as 55 tenths of an inch, or 5-1/2 inches.
Because the LPI parameter is omitted, the vertical spacing defaults to 6 lines per inch.
Because there are 4-1/2 inches of printable lines in a 5-1/2 inch form, there are 27 print lines on this form.
The name of the FCB module is S55, and it replaces an existing FCB module of the same name.
The new FCB module is stored as a member of 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.
CH1 = (1,7,13,20) especifica o código do canal 1 para a linha 1, linha 7, linha 13 e linha 20 imprimíveis.
CH12 = 26 especifica o código do canal 12 para a linha imprimível 26.
SIZE = 55 especifica o comprimento do formulário como 55 décimos de polegada ou 5-1 / 2 polegadas.
Como o parâmetro LPI é omitido, o padrão de espaçamento vertical é de 6 linhas por polegada.
Como existem 4-1 / 2 polegadas de linhas imprimíveis em um formulário de 5-1 / 2 polegadas, há 27 linhas de impressão neste formulário.
O nome do módulo FCB é S55 e substitui um módulo FCB existente com o mesmo nome.
O novo módulo FCB é armazenado como um membro do conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples