JCL - IEBIMAGE Example 9: Build a New Copy Modification Module from an Existing Copy

JCL - IEBIMAGE Example 9: Build a New Copy Modification Module from an Existing Copy

3800 Model 1

In this example, a copy of an existing copy modification module, RTO1, is used as the basis for a new copy modification module.
The new module is added to the SYS1.IMAGELIB data set as a new member.

The existing module, RTO1, remains unchanged and available for use.

Neste exemplo, uma cópia de um módulo de modificação de cópia existente, RTO1, é usada como base para um novo módulo de modificação de cópia.
O novo módulo é adicionado ao conjunto de dados SYS1.IMAGELIB como um novo membro.
O módulo existente, RTO1, permanece inalterado e disponível para uso.

                                                                         72
  //COPMOD2  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=OLD
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      INCLUDE  RTO1,DELSEG=1
      OPTION   OVERRUN=8,DEVICE=3800M3
      COPYMOD  COPIES=(2,3),LINES=(52,6),POS=100,                        X
                 TEXT=(X,'40404040404040405C5C')
      NAME     AP
  /*

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 INCLUDE statement specifies that a copy of the copy modification module named RTO1 is used as a basis for the new module, and that the first modification segment of RTO1 is to be deleted from the copy.
OVERRUN=8 in the OPTION statement specifies that the IEBIMAGE program is to print a warning message if the copy modification could cause a line overrun condition when printing at 6 and 8 lines per inch.
The program is also to suppress any warning messages that apply to printing at 10 and 12 lines per inch.
DEVICE=3800M3 in the OPTION statement specifies 3800 Model 3 compatibility mode processing.
The COPYMOD statement specifies text that applies to each page of the second, third, and fourth copies of the output data set:
LINES=(52,6) and POS=100 specify that the text is to be on the 52nd line and repeated for the 53rd through 57th lines of each page, starting at the 100th print position from the left (beginning).
The TEXT statement specifies the text in hexadecimal form: eight blanks followed by two asterisks (in this example, the assumption is made that X'40' prints as a blank and that X'5C' prints as an asterisk; in actual practice, the character arrangement table used with the copy modification module might translate X'40' and X'5C' to other printable characters).
The name of the new copy modification module is AP; 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 INCLUDE especifica que uma cópia do módulo de modificação de cópia denominado RTO1 é usada como base para o novo módulo e que o primeiro segmento de modificação de RTO1 deve ser excluído da cópia.
OVERRUN = 8 na instrução OPTION especifica que o programa IEBIMAGE deve imprimir uma mensagem de aviso se a modificação da cópia puder causar uma condição de saturação de linha ao imprimir a 6 e 8 linhas por polegada.
O programa também suprime qualquer mensagem de aviso que se aplique à impressão de 10 e 12 linhas por polegada.
DEVICE = 3800M3 na instrução OPTION especifica o processamento do modo de compatibilidade do Modelo 3 de 3800.
A instrução COPYMOD especifica o texto que se aplica a cada página da segunda, terceira e quarta cópias do conjunto de dados de saída:
LINES = (52,6) e POS = 100 especificam que o texto deve estar na 52ª linha e ser repetido por da 53ª à 57ª linhas de cada página, começando na 100ª posição de impressão da esquerda (início).
A instrução TEXT especifica o texto na forma hexadecimal: oito espaços em branco seguidos por dois asteriscos (neste exemplo, assume-se que X'40 'é impresso como um espaço em branco e que X'5C' é impresso como um asterisco; na prática, o a tabela de organização de caracteres usada com o módulo de modificação de cópia pode traduzir X'40 'e X'5C' para outros caracteres imprimíveis).
O nome do novo módulo de modificação de cópia é AP; ele é armazenado como um membro do conjunto de dados SYS1.IMAGELIB.

Parent topic: IEBIMAGE Examples