JCL z/OS DFSMS - IEBGENER Edit Double-Byte Character Set Data



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

JCL z/OS DFSMS - IEBGENER Example 8: Edit Double-Byte Character Set Data

DFSMS (Data Facility Storage Management Subsystem) - 2.4.0

In this example, an edited data set containing double-byte character set data is created.
Shift-out/shift-in characters (< and >) are inserted to enclose the DBCS strings.

Neste exemplo, um conjunto de dados editado contendo dados do conjunto de caracteres de byte duplo é criado.
Os caracteres Shift-out / shift-in () são inseridos para incluir as strings DBCS.

  //DBLBYTE  JOB  ...
  //STEP1    EXEC PGM=IEBGENER
  //SYSPRINT DD SYSOUT=A
  //SYSUT1   DD DSN=INPUT,DISP=(OLD,KEEP),UNIT=disk
  //SYSUT2   DD DSN=OUTPUT,UNIT=disk,DISP=(NEW,CATLG),
  //            DCB=(LRECL=80,BLKSIZE=3200,RECFM=FB),SPACE=(TRK,(1,1))
  //SYSIN    DD *
       GENERATE MAXFLDS=4,MAXLITS=9,DBCS=YES
       RECORD FIELD=(20,1,,1),FIELD=(16,33,VC,21),
              FIELD=(30,50,VC,39),FIELD=(9,'*********',,72)
  /*

The control statements are as follows.
As instruções de controle são as seguintes.

  • SYSUT1 DD defines the input data set, INPUT, which resides on a disk volume.
  • SYSUT2 DD defines the output data set, OUTPUT, which will reside on a disk volume.
  • SYSIN DD defines the control data set, which follows in the input stream.
  • GENERATE indicates that a maximum of four FIELD parameters and nine literal characters will appear on subsequent RECORD statements, and that the input data set contains DBCS data.
  • RECORD specifies how input records will be edited before being placed in the output data set.
    The first FIELD parameter indicates that the first 20 positions (bytes) of the input records are to be placed in the first 20 positions of the output records.
  • The second FIELD parameter indicates that data in positions 33 through 48 are to be checked to ensure that they are valid DBCS data, and that shift-out/shift-in
    characters are to be inserted around this field.
    For DBCS data to be valid, each byte of the 2-byte characters must have a hexadecimal value between X'41' and X'FE', or the 2-byte character must be a DBCS space (X'4040').
    Once the checking and inserting are completed, this field is to be copied to the output records beginning at position 21.
  • The third FIELD parameter operates on the 30-byte field beginning at position 50 in the input records.
    This field is checked for valid DBCS data, and shift-out/shift-in characters are inserted around the field.
    The resulting field is copied to the output records beginning at position 39.

  • SYSUT1 DD define o conjunto de dados de entrada, INPUT, que reside em um volume de disco.
  • SYSUT2 DD define o conjunto de dados de saída, OUTPUT, que residirá em um volume de disco.
  • SYSIN DD define o conjunto de dados de controle, que segue no fluxo de entrada.
  • GENERATE indica que no máximo quatro parâmetros FIELD e nove caracteres literais aparecerão nas instruções RECORD subsequentes e que o conjunto de dados de entrada contém dados DBCS.
  • RECORD especifica como os registros de entrada serão editados antes de serem colocados no conjunto de dados de saída.
    O primeiro parâmetro FIELD indica que as primeiras 20 posições (bytes) dos registros de entrada devem ser colocadas nas primeiras 20 posições dos registros de saída.
  • O segundo parâmetro FIELD indica que os dados nas posições 33 a 48 devem ser verificados para garantir que são dados DBCS válidos e que os caracteres shift-out / shift-in devem ser inseridos ao redor deste campo.
    Para que os dados DBCS sejam válidos, cada byte dos caracteres de 2 bytes deve ter um valor hexadecimal entre X'41 'e X'FE', ou o caractere de 2 bytes deve ser um espaço DBCS (X'4040 ').
    Assim que a verificação e a inserção forem concluídas, este campo deve ser copiado para os registros de saída começando na posição 21.
  • O terceiro parâmetro FIELD opera no campo de 30 bytes começando na posição 50 nos registros de entrada.
    Este campo é verificado para dados DBCS válidos e caracteres shift-out / shift-in são inseridos ao redor do campo.
    O campo resultante é copiado para os registros de saída começando na posição 39.

Notice that in specifying the output locations in the FIELD parameter, you have to account for the additional positions that the SO/SI characters will use.
For instance, the eight-character (16-byte) DBCS string beginning at position 21 does not end at position 36, but at 38.
The SO/SI characters are single-byte characters, so the pair will take up two positions.

Observe que, ao especificar os locais de saída no parâmetro FIELD, você deve levar em conta as posições adicionais que os caracteres SO/SI usarão.
Por exemplo, a string DBCS de oito caracteres (16 bytes) começando na posição 21 não termina na posição 36, mas na 38.
Os caracteres SO / SI são caracteres de um byte, então o par ocupará duas posições.

The final FIELD parameter clears out the final positions of the output records with asterisks.
O parâmetro FIELD final limpa as posições finais dos registros de saída com asteriscos.

Parent topic: IEBGENER Examples


© Copyright IBM Corp.