3800 Model 1

In this example, each segment of a library character set is printed.
The scan pattern of each of the characters in the module is printed.

Neste exemplo, cada segmento de um conjunto de caracteres da biblioteca é impresso.
O padrão de digitalização de cada um dos caracteres no módulo é impresso.

  //LIBMOD1  JOB  ...
  //STEP1    EXEC PGM=IEBIMAGE
  //SYSUT1   DD  DSNAME=SYS1.IMAGELIB,DISP=SHR
  //SYSPRINT DD  SYSOUT=A
  //SYSIN    DD  *
      CHARSET
      NAME    83
  /*

The control statements are discussed as follows:
As declarações de controle são discutidas a seguir:

• NAME specifies the name of the library character set (83).
• NAME especifica o nome do conjunto de caracteres da biblioteca (83).

Parent topic: IEBIMAGE Examples