|
3800 Model 1
In this example, an FCB module is defined that uses ISO paper sizes, replacing the IBM-supplied module named STD3.
This must be done before the dump-formatting routines that print high-density dumps can print them at 8 lines per inch on that printer.
Neste exemplo, é definido um módulo FCB que usa tamanhos de papel ISO, substituindo o módulo fornecido pela IBM denominado STD3.
Isso deve ser feito antes que as rotinas de formatação de despejo que imprimem despejos de alta densidade possam imprimi-los a 8 linhas por polegada nessa
impressora.
//FCBMOD5 JOB ...
//STEP1 EXEC PGM=IEBIMAGE
//SYSUT1 DD DSNAME=SYS1.IMAGELIB,DISP=OLD
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
FCB CH1=1,CH12=88,LPI=(8,88),SIZE=120
NAME STD3(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; CH12=88 specifies channel 12 code for line 88.
- LPI=(8,88) specifies that all 88 printable lines of the form are to be at a vertical spacing of 8 lines per inch.
- SIZE=120 specifies that the length of the form is 120 tenths of an inch, or 12 inches, which is the longest ISO paper size.
- The name of the new FCB module is STD3; it is to replace the existing module of that same name on SYS1.IMAGELIB.
- 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; CH12 = 88 especifica o código do canal 12 para a linha 88.
- LPI = (8,88) especifica que todas as 88 linhas imprimíveis do formulário devem ter um espaçamento vertical de 8 linhas por polegada.
- TAMANHO = 120 especifica que o comprimento do formulário é 120 décimos de polegada, ou 12 polegadas, que é o tamanho de papel ISO mais
longo.
- O nome do novo módulo FCB é STD3; é para substituir o módulo existente com o mesmo nome em SYS1.IMAGELIB.
Parent topic: IEBIMAGE Examples
© Copyright IBM Corp.
|
