Учитывая шестнадцатеричный код символа, как его преобразовать в соответствующий символ в программе CL?

Question

Теперь мне нужно найти конкретную запись в журнале с помощью программы CL. Способ, которым я использую его, - это DSPJRNE, чтобы помещать записи журнала в выходной файл, а затем использовать OPNQRYF для фильтрации желаемого. Файл уникален, поэтому мой план состоит в том, чтобы сравнить данные записи журнала с ключом. Проблема в том, что один из ключей - упакованный десятичный знак, поэтому в записи журнала он рассматривается как шестнадцатеричный код символов и отображается как некоторые странные символы. Поэтому, чтобы сравнить строки, мне нужно преобразовать упакованный десятичный ключ в соответствующие символы. Как достичь этого в CL? Если использование CL невозможно, а как насчет RPG?

Answer 1

Чтобы ответить на ваш немедленный вопрос, инструкция CVTCH MI преобразует шестигранник но я не пошел бы по этому пути; ни в CL, ни в RPG. Скорее, я бы посоветовал Джеймсу несколько дополнительных шагов.

DSPJRNE OUTFILE(QTEMP/DSPJRNE) 
QRY input file DSPJRNE, output file QRYJRNE, select only JOESD 
CRTDUPOBJ PRODUCTION_FILE QTEMP/JRNF DATA(*NO) 
CPYF QRYJRNE JRNF FMTOPT(*NOCHK) 

Это даст вам внешний файл с тем же самым расположением, что и ваш производственный файл. Вы можете запросить это и т. Д.

Answer 2

Если вы тянете записи журнала для конкретного файла вы можете сбросить их в описанном извне файл с умным использованием SQL:

CREATE TABLE QTEMP/QADSPJRN LIKE QSYS/QADSPJRN 

ALTER TABLE QTEMP/QADSPJRN DROP COLUMN JOESD 

CREATE TABLE QTEMP/DSPJRNE AS (SELECT * FROM QTEMP/QADSPJRN, FILE-LIB/FILE) 
WITH NO DATA 

DSPJRNE ... OUTPUT(*OUTFILE) OUTFILFMT(*TYPE1) OUTFILE(QTEMP/DSPJRNE) 
ENDDTALEN(*CALC)