Compruebe si hay caracteres de ancho medio o ilegales en la cadena de caracteres chinos

Cuando el sistema AS400 reconoce una cadena de caracteres chinos de doble byte, el byte anterior es X'0E' y el siguiente byte es X'0F'. Durante el funcionamiento del sistema empresarial, a menudo se mezclan caracteres no estándar en la cadena de caracteres chinos o el emparejamiento X'0E'-X'0F' se confunde por diversas razones, lo que hace que la cadena de caracteres chinos sea anormal. Los empresarios a menudo quieren que los programadores verifiquen automáticamente los registros que contienen cadenas de caracteres chinos inusuales en tablas que contienen grandes cantidades de datos.

I. Nombre del código fuente de la función CHECKCHNP, nombre de la función C_CHECK

II Reglas de verificación:

1. Si no hay X'0E' ni X. la cadena '0F', luego verifique si todas las cadenas son caracteres regulares de ancho medio. Si todos son caracteres regulares de ancho medio, la cadena es válida; de lo contrario, es una cadena ilegal.

2. Si X'0E' y X'0F' en la cadena no están emparejados, la cadena es una cadena ilegal.

3. Si el número de caracteres entre X'0E' y X'0F' es un número impar, la cadena es ilegal.

4. Si X'0F' está antes de X'0E', la cadena es ilegal.

5. Si hay X'00' en la cadena, la cadena es una cadena ilegal.

3. Método de llamada:

1: Método de llamada:

EvalWWSIGN=C_CHECK(CHNNAM)

Donde CHNNAM es el campo de verificación. , WWSIGN es el identificador de retorno. Si WWSIGN no es igual a cero, este campo es un campo ilegal.

Cuarto: llame al ejemplo de demostración

Compruebe si el archivo TESTA que contiene el campo de nombre de cliente (CHNNAM) es ilegal y envíe los registros con nombres ilegales al archivo TESTAQL.