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

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

3800 Model 1

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

  //FCBMOD1  JOB   ...
  //STEP1    EXEC  PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      FCB  CH1=1,CH12=80,LPI=8
      NAME IJ
  /*

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 line 1, allowing for positioning at line 1.
CH12=80 specifies channel 12 code for line 80, allowing for positioning at line 80 and a unit exception indication at line 80 (the last printable line on the page.)
LPI=8 specifies that the entire form is to be at a vertical spacing of 8 lines per inch.
Because the SIZE parameter is omitted, the form length defaults to 11 inches.
Because there are 10 inches of printable space in an 11-inch form, 80 lines are printed at 8 lines per inch.
The name of the new FCB module is IJ; 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, permitindo o posicionamento na linha 1.
CH12 = 80 especifica o código do canal 12 para a linha 80, permitindo o posicionamento na linha 80 e uma indicação de exceção de unidade na linha 80 (a última linha imprimível na página).
LPI = 8 especifica que todo o formulário deve ter um espaçamento vertical de 8 linhas por polegada.
Como o parâmetro SIZE é omitido, o comprimento do formulário é padronizado para 11 polegadas.
Como há 10 polegadas de espaço para impressão em um formulário de 11 polegadas, 80 linhas são impressas em 8 linhas por polegada.
O nome do novo módulo FCB é IJ; ele é armazenado como um membro do conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples