JCL - IEBIMAGE Example 6: Build a New 3800 Forms Control Buffer Module for Additional ISO Paper Sizes

JCL - IEBIMAGE Example 6: Build a New 3800 Forms Control Buffer Module for Additional ISO Paper Sizes

3800 Model 1

In this example, an FCB module is defined that uses ISO paper sizes and has the ISO Paper Sizes Additional Feature installed.
Neste exemplo, é definido um módulo FCB que usa tamanhos de papel ISO e tem o recurso adicional de tamanhos de papel ISO instalado.

     //FCBMOD    JOB   ...                                          72
     //STEP1     EXEC  PGM=IEBIMAGE
     //SYSUT1    DD    DSNAME=SYS1.IMAGELIB,DISP=OLD
     //SYSPRINT  DD    SYSOUT=A
     //SYSIN     DD    *
         FCB  CH1=1,CH12=75,SIZE=85,
              LPI=((10,35),(12,4),(10,35),(6,1)                      X
         NAME ARU
     /*

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=75 specifies channel 12 code for line 75, allowing for positioning at line 75 and a unit exception indication at 75 (the last printable line on the page.)
LPI=((10,35),(12,4),(10,35),(6,1)) specifies vertical spacing for the entire printable area on the form.
The last printable line on the form must have vertical spacing of 6 lines per inch.
The sum of the lines allocated must be a multiple of 1/2.
```
EXAMPLE
 
     (10,35)=3 1/2"          (12,4)=2/6"           (6,1)=1/6"
 
and  3 1/2 + 2/6 + 3 1/2 + 1/6 = 7 1/2 which is a multiple of 1/2
```
SIZE=85 specifies the length of the form as 85 tenths of an inch, or 8-1/2 inches, although the printable area is 7-1/2 inches.
The name of the new FCB module is ARU; it is stored as a member of the SYS1.IMAGELIB data set.

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 = 75 especifica o código do canal 12 para a linha 75, permitindo o posicionamento na linha 75 e uma indicação de exceção de unidade em 75 (a última linha imprimível na página).
LPI = ((10,35), (12,4), (10,35), (6,1)) especifica o espaçamento vertical para toda a área imprimível no formulário.
A última linha imprimível no formulário deve ter espaçamento vertical de 6 linhas por polegada.
A soma das linhas alocadas deve ser um múltiplo de 1/2.

EXEMPLO
 
     (10,35) = 3 1/2 "(12,4) = 2/6" (6,1) = 1/6 "
 
e 3 1/2 + 2/6 + 3 1/2 + 1/6 = 7 1/2, que é um múltiplo de 1/2

TAMANHO = 85 especifica o comprimento do formulário como 85 décimos de polegada ou 8-1 / 2 polegadas, embora a área imprimível seja de 7-1 / 2 polegadas.
O nome do novo módulo FCB é ARU; ele é armazenado como um membro do conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples