JCL - IEBIMAGE Example 8: Build a New Copy Modification Module

JCL - IEBIMAGE Example 8: Build a New Copy Modification Module

3800 Model 1

In this example, a copy modification module that contains four modification segments is built.
The module is added to the SYS1.IMAGELIB data set as a new member.
Neste exemplo, um módulo de modificação de cópia que contém quatro segmentos de modificação é construído.
O módulo é adicionado ao conjunto de dados SYS1.IMAGELIB como um novo membro.

                                                                         72
  //COPMOD1  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
  COPY1  COPYMOD COPIES=(1,1),LINES=(1,1),POS=50,                        X
                 TEXT=(C,'CONTROLLER'S COPY')
  COPY2A COPYMOD COPIES=(2,1),LINES=(1,1),POS=50,                        X
                 TEXT=(C,'SHIPPING MANAGER'S COPY')
  COPY2B COPYMOD COPIES=(2,1),LINES=(34,3),POS=75,                       X
                 TEXT=(10C,' ')
  COPYALL COPYMOD COPIES=(1,4),LINES=(58,1),POS=35,                      X
              TEXT=((C,'***'),(C,'CONFIDENTIAL'),(3X,'5C'))
           NAME  RTO1
  /*

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.
The COPY1 COPYMOD statement specifies text that applies to each page of the first copy of the output data set: LINES=(1,1) and POS=50 specify that the text is to be on the first printable line of each page, starting at the 50th print position from the beginning (left).
The TEXT parameter identifies each page of the copy as being the Controller's Copy.
The COPY2A COPYMOD statement specifies text that applies to each page of the second copy of the output data set.
The text is to be on the first line of each page, at the 50th print position from the left, with each page of the copy being the Shipping Manager's Copy.
The COPY2B COPYMOD statement specifies that part of the second copy's output data set text is to be blanked out, so that the first, third, and subsequent copies contain information that is not printed on the second copy.
The blank area is to be on lines 34, 35, and 36, beginning at the 75th print position from the left.
The text on lines 34, 35, and 36, between print positions 75 and 84, is to be blank (that is, the character specified between the TEXT parameter's single quotation marks is a blank).
The COPYALL COPYMOD statement specifies text that applies to the first four copies of the output data set.
This example assumes that no more than four copies are printed each time the job that produces the output data set is processed.
The text is to be on the 58th line on each page, at the 35th print position from the left.
The legend ***CONFIDENTIAL*** is to be on each page of the copy.
Note that the text can be coded in both character and hexadecimal format.
The name of the copy modification module is RTO1; 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.
A instrução COPY1 COPYMOD especifica o texto que se aplica a cada página da primeira cópia do conjunto de dados de saída: LINES = (1,1) e POS = 50 especificam que o texto deve estar na primeira linha imprimível de cada página, começando em a 50ª posição de impressão desde o início (esquerda).
O parâmetro TEXT identifica cada página da cópia como sendo a Cópia do Controlador.
A instrução COPY2A COPYMOD especifica o texto que se aplica a cada página da segunda cópia do conjunto de dados de saída.
O texto deve estar na primeira linha de cada página, na 50ª posição de impressão a partir da esquerda, sendo cada página da cópia a Cópia do Gerente de Expedição.
A instrução COPY2B COPYMOD especifica que parte do texto do conjunto de dados de saída da segunda cópia deve ser apagado, de modo que a primeira, a terceira e as cópias subsequentes contenham informações que não são impressas na segunda cópia.
A área em branco deve estar nas linhas 34, 35 e 36, começando na 75ª posição de impressão a partir da esquerda.
O texto nas linhas 34, 35 e 36, entre as posições de impressão 75 e 84, deve ficar em branco (ou seja, o caractere especificado entre as aspas simples do parâmetro TEXT é um espaço em branco).
A instrução COPYALL COPYMOD especifica o texto que se aplica às primeiras quatro cópias do conjunto de dados de saída.
Este exemplo assume que não mais do que quatro cópias são impressas cada vez que o trabalho que produz o conjunto de dados de saída é processado.
O texto deve estar na 58ª linha de cada página, na 35ª posição de impressão a partir da esquerda.
A legenda *** CONFIDENCIAL *** deve estar em cada página da cópia.
Observe que o texto pode ser codificado no formato de caracteres e hexadecimal.
O nome do módulo de modificação de cópia é RTO1; ele é armazenado como um membro do conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples