|
3800 Model 1
-
In this example, the vertical spacing, channel codes, and size for a 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 espaçamento vertical, os códigos de canal e o tamanho de um formulário 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.
|
//FCBMOD3 JOB ...
//STEP1 EXEC PGM=IEBIMAGE
//SYSUT1 DD DSNAME=SYS1.IMAGELIB,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
FCB CH1=1,CH2=4,CH5=11,SIZE=35,LPI=((6,2),(8,3),(6,4),(8,9))
NAME HL(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 specifies channel 1 code for printable line 1.
- CH2=4 specifies channel 2 code for line 4.
- CH5=11 specifies channel 5 code for line 11.
- LPI=((6,2),(8,3),(6,4),(8,9)) specifies vertical spacing for the first 18 printable lines in the form:
(6,2) specifies lines 1 through 2 are at a vertical spacing of 6 lines per inch, and take up 2/6 inch.
(8,3) specifies lines 3 through 5 are at a vertical spacing of 8 lines per inch, and take up 3/8 inch.
(6,4) specifies lines 6 through 9 are at a vertical spacing of 6 lines per inch, and take up 4/6 inch.
(8,9) specifies lines 10 through 18 are at a vertical spacing of 8 lines per inch, and take up 1-1/8 inch.
- SIZE=35 specifies the length of the form as 35 tenths of an inch, or 3-1/2 inches.
Because there are 2-1/2 inches of printable space on a 3-1/2 inch form, and because the LPI parameter specifies vertical spacing for 2-1/2 inches of lines,
the vertical spacing of all lines in the form is accounted for.
- The name of the FCB module is HL; it replaces an existing 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 especifica o código do canal 1 para a linha 1 imprimível.
- CH2 = 4 especifica o código do canal 2 para a linha 4.
- CH5 = 11 especifica o código do canal 5 para a linha 11.
- LPI = ((6,2), (8,3), (6,4), (8,9)) especifica o espaçamento vertical para as primeiras 18 linhas imprimíveis na forma:
(6,2) especifica as linhas 1 a 2 estão a um espaçamento vertical de 6 linhas por polegada e ocupam 2/6 de polegada.
(8,3) especifica que as linhas de 3 a 5 têm um espaçamento vertical de 8 linhas por polegada e ocupam 3/8 de polegada.
(6,4) especifica que as linhas de 6 a 9 têm um espaçamento vertical de 6 linhas por polegada e ocupam 4/6 de polegada.
(8,9) especifica que as linhas 10 a 18 têm um espaçamento vertical de 8 linhas por polegada e ocupam 1-1 / 8 polegada.
- SIZE = 35 especifica o comprimento do formulário como 35 décimos de polegada ou 3-1 / 2 polegadas.
Como há 2-1 / 2 polegadas de espaço para impressão em um formulário de 3-1 / 2 polegadas e como o parâmetro LPI especifica o espaçamento vertical para 2-1 / 2
polegadas de linhas, o espaçamento vertical de todas as linhas no formulário é contabilizado.
- O nome do módulo FCB é HL; ele substitui um módulo existente com o mesmo nome.
O novo módulo FCB é armazenado como um membro do conjunto de dados SYS1.IMAGELIB.
Parent topic: IEBIMAGE Examples
© Copyright IBM Corp.
|
