JCL - IEBIMAGE Build a New 3800 Forms Control Buffer Module



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

JCL - IEBIMAGE Example 4: Build a New 3800 Forms Control Buffer Module

3800 Model 1

In this example, the vertical spacing, channel codes, and length of a form are specified, and the module is added to the SYS1.IMAGELIB data set as a new member.
Neste exemplo, o espaçamento vertical, os códigos de canal e o comprimento de um formulário são especificados e o módulo é adicionado ao conjunto de dados SYS1.IMAGELIB como um novo membro.

  //FCBMOD4  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      FCB  CH1=1,CH6=33,SIZE=70,LPI=((8,32),(12,2))
      NAME TGT
  /*

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 specifies channel 1 code for printable line 1.
  • CH6=33 specifies channel 6 code for line 33.
  • LPI=((8,32),(12,2)) specifies that the first 32 printable lines of the form are to be at a vertical spacing of 8 lines per inch, and the next 2 printable lines are to be at a vertical spacing of 12 lines per inch.
  • SIZE=70 specifies that the length of the form is 70 tenths of an inch, or 7 inches.
    Because there are 6 inches of printable lines in a 7-inch form and the LPI parameter specifies 32 lines at 8 lines per inch, or 4 inches, and 2 lines at 12 lines per inch, or 1/6 inch, the vertical spacing for the remaining 1-5/6 inches defaults to 6 lines per inch.
    • Therefore, the form consists of lines 1 through 32 at 8 lines per inch, lines 33 through 34 at 12 lines per inch, and lines 35 through 45 at 6 lines per inch, with channel codes at line 1 and line 33.
  • The name of the new FCB module is TGT; it 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 especifica o código do canal 1 para a linha 1 imprimível.
  • CH6 = 33 especifica o código do canal 6 para a linha 33.
  • LPI = ((8,32), (12,2)) especifica que as primeiras 32 linhas imprimíveis do formulário devem estar em um espaçamento vertical de 8 linhas por polegada, e as próximas 2 linhas imprimíveis devem estar em uma vertical espaçamento de 12 linhas por polegada.
  • SIZE = 70 especifica que o comprimento do formulário é 70 décimos de polegada ou 7 polegadas.
    Como existem 6 polegadas de linhas imprimíveis em um formato de 7 polegadas e o parâmetro LPI especifica 32 linhas a 8 linhas por polegada, ou 4 polegadas e 2 linhas a 12 linhas por polegada, ou 1/6 polegada, o espaçamento vertical para os padrões de 1-5 / 6 polegadas restantes são 6 linhas por polegada.
    Portanto, a forma consiste nas linhas 1 a 32 a 8 linhas por polegada, linhas 33 a 34 a 12 linhas por polegada e linhas 35 a 45 a 6 linhas por polegada, com códigos de canal na linha 1 e linha 33.
  • O nome do novo módulo FCB é TGT; ele é armazenado como um membro do conjunto de dados SYS1.IMAGELIB.

© Copyright IBM Corp.