4.5 - Manipulação de Strings e Funções Intrínsecas

Trabalhar com strings em PL/I é tranquilo, a linguagem traz um conjunto de funções intrínsecas que permitem extrair, pesquisar, validar e transformar substrings sem esforço. Nesta seção, vamos mostrar os operadores e funções mais usados e, ao final, um exemplo prático que recebe um mapa de bits no padrão ISO 8583 e converte em zeros e uns para indicar quais campos estão presentes na mensagem.

SUBSTR, INDEX, SEARCH, VERIFY, TRIM

• SUBSTR(string, posição, comprimento) Retorna parte de string, começando em posição (1-based), de tamanho comprimento.

• INDEX(string, padrão) Retorna a posição da primeira ocorrência de padrão em string, ou 0 se não encontrar.

• SEARCH(string, conjunto, início) Busca qualquer caractere de conjunto dentro de string, a partir de início. Retorna posição ou 0.

• VERIFY(string, conjunto) Verifica se todos os caracteres de string pertencem a conjunto. Retorna zero se todos pertencem, caso contrário a posição do primeiro inválido.

• TRIM(string) Remove espaços à direita de string variável.

Operações comuns (COMPARE, LENGTH, REPEAT)

• COMPARE(a,b) Compara a com b, retorna –1, 0 ou +1.

• LENGTH(string) Retorna o tamanho atual de string variável.

• REPEAT(caractere, vezes) Gera uma string repetindo caractere o número especificado de vezes.

/* bitmap_converter.pl1 */ BITMAP_CONV: PROCEDURE OPTIONS(MAIN);

/* Recebe bitmap hex (16 caracteres) / DCL hexmap CHARACTER(16) VARYING; / Resultado em 64 bits como caracteres '0' ou '1' */ DCL binmap CHARACTER(64) VARYING INIT(''); DCL i, value FIXED BINARY(31); DCL hexchar CHARACTER(1); DCL nibble CHARACTER(4); DCL pos, bitpos FIXED BINARY(31);

/* Ler o hexmap da entrada padrão */ PUT SKIP LIST('Informe bitmap ISO8583 (16 hex):'); GET LIST(hexmap);

/* Validar entrada */ IF VERIFY(UPCASE(hexmap), '0123456789ABCDEF') ^= 0 THEN DO; PUT SKIP LIST('Entrada inválida: use somente dígitos hex.'); STOP; END;

/* Converter cada caractere hex para 4 bits / pos = 1; DO i = 1 TO LENGTH(hexmap); hexchar = SUBSTR(hexmap, i, 1); / Converter hex para valor numérico */ IF hexchar INLIST('A','B','C','D','E','F') THEN value = DIGITS(HEXTOBIN(CHARACTER(hexchar))) ; ELSE value = DECIMAL(DIGITS(hexchar), 16);

/* bitmap_n1.pl1 */
BITMAP_CONV: PROCEDURE OPTIONS(MAIN);

  /* Recebe bitmap hex (16 caracteres) */
  DCL hexmap      CHARACTER(16) VARYING;
  /* Resultado em 64 bits como caracteres '0' ou '1' */
  DCL binmap      CHARACTER(64) VARYING INIT('');
  DCL i, value    FIXED BINARY(31);
  DCL hexchar     CHARACTER(1);
  DCL nibble      CHARACTER(4);
  DCL pos, bitpos FIXED BINARY(31);

  /* Ler o hexmap da entrada padrão */
  PUT SKIP LIST('Informe bitmap ISO8583 (16 hex):');
  GET LIST(hexmap);

  /* Validar entrada */
  IF VERIFY(UPCASE(hexmap),
            '0123456789ABCDEF') ^= 0 THEN
    DO;
      PUT SKIP LIST('Entrada inválida: use somente dígitos hex.');
      STOP;
    END;

  /* Converter cada caractere hex para 4 bits */
  pos = 1;
  DO i = 1 TO LENGTH(hexmap);
    hexchar = SUBSTR(hexmap, i, 1);
    /* Converter hex para valor numérico */
    IF hexchar INLIST('A','B','C','D','E','F') THEN
      value = DIGITS(HEXTOBIN(CHARACTER(hexchar))) ;
    ELSE
      value = DECIMAL(DIGITS(hexchar), 16);

    /* Criar nibble de 4 bits */
    nibble = '';
    DO bitpos = 4 TO 1 BY -1;
      /* Mask: 2**(bitpos-1) */
      IF (value / (2**(bitpos-1))) = INT(value / (2**(bitpos-1))) * 1
         THEN nibble = nibble || '1';
      ELSE nibble = nibble || '0';
      /* Remover bit já processado */
      value = value - INT(value / (2**(bitpos-1))) * (2**(bitpos-1));
    END;

    /* Acumular na saída */
    binmap = binmap || nibble;
    pos = pos + 4;
  END;

  /* Exibir resultado de 64 bits */
  PUT SKIP LIST('Bitmap binário (64 bits):');
  PUT SKIP LIST(binmap);

  /* Indicar campos presentes */
  PUT SKIP LIST('Campos presentes:');
  DO i = 1 TO 64;
    IF SUBSTR(binmap, i, 1) = '1' THEN
      PUT SKIP LIST('Campo ' || CHAR(i));
  END;

END BITMAP_CONV;