AS/400 не будет компилировать файл принтера в RDP 8
В настоящее время я учусь в колледже на AS400 (IBM I), и до главы 11 у меня все было в порядке, посвященной RDP 8.0. В любом случае, мне удалось выполнить задание вплоть до того момента, когда я должен был скопировать ранее созданный физический файл с именем "EMPPFLP" в библиотеке "INTROCLASS".
Я скопировал файл в свою личную библиотеку под источником "QDDSSRC", затем щелкнул правой кнопкой мыши по нему (EMPPFLP) и выбрал "Компилировать", затем "CRTPRTF", и я получил это.
Задание 942098/DDELAP01/QDFTJOBD передано в очередь заданий QBATCH в библиотеке QGPL.
CRTPRTF SRCFILE (DDELAP01 / QDDSSRC) SRCMBR (EMPPFLP) REPLACE (* YES) OPTION (* EVENTF) FILE (DDELAP01 / EMPPFLP) Ошибки в DDS не допускаются с указанным GENLVL. Причина,,,,: Либо уровень серьезности ошибок, обнаруженных в DDS, был больше или равен уровню генерации ошибок (параметр GENLVL), либо было указано значение GENLVL(0). Восстановление,,: См. Список источников DDS для значения GENLVL и сообщений об ошибках. Либо исправьте ошибки, либо измените значение GENLVL в команде, а затем повторите запрос. Файл EMPPFLP не создан в библиотеке DDELAP01. Причина,,,,: Файл не был создан из-за ошибок. Восстановление,,: См. Сообщения об ошибках, перечисленные ранее. Исправьте ошибки и повторите запрос.
Я буду признателен за любую помощь, ребята, не уверен, что здесь происходит, я уже отправил вопросы для профессора, но я не получил ответа, и мне нужно отправить это задание к 12:00.
3 ответа
CPD5248: файл, указанный для ключевого слова REF или REFFLD, не найден.
Библиотека, содержащая файл EMPPFL используется в вашем заявлении REFFLD нет в списке вашей библиотеки.
Либо заменить *LIBL с реальным именем библиотеки, содержащей файл, или добавьте его в список библиотек с помощью ADDLIBLE команда (или другой метод, подходящий для вашей среды разработки).
CPD7528: Количество десятичных позиций замены недействительно
Это вызвано тем, что определение поля не может быть найдено из-за предыдущей ошибки.
REFFLD Ключевое слово позволяет вам извлекать атрибуты поля из файла (таблицы) вместо жесткого кодирования каждого из них.
Ошибка указывает на то, что указанный файл EMPPFL не может быть найден в списке вашей библиотеки. Список библиотек похож на PATH в Windows/Linux/ и т. Д.
Чтобы устранить ошибку, вы должны помочь системе найти файл EMPPFL. Это можно сделать, явно указав на библиотеку, содержащую файл, или включив файл в библиотеку в список вашей библиотеки.
Если вы можете предоставить вывод следующих команд, это поможет решить проблему:
DSPLIBL OUTPUT(*PRINT)
DSPOBJD *LIBL/EMPPFL *FILE OUTPUT(*PRINT)
DSPOBJD *ALLUSR/EMPPFL *FILE OUTPUT(*PRINT)
Обратите внимание, что вторая команда должна вернуть сообщение "Объект EMPPFL в *LIBL тип *FILE не найден".
Кажется, ошибка GENLVL. Вы должны взглянуть на SPLF, какой продукт после компиляции. Там должно быть какое-то полезное сообщение там
Я почти ничего не знаю об AS400, но нашел статью, которая описывает сообщение об ошибке, показанное на вашем изображении:
Сообщение Номер десятичной позиции замены недействителен.
Причина Число десятичных позиций замены для ключевого слова EDTWRD или EDTCDE должно равняться длине поля. Число десятичных позиций замены представляет собой сумму количества пробелов и первого символа подавления стоп-ноля. Если первый символ в EDTWRD является символом подавления остановки нуля, может быть указан один дополнительный пробел.
Восстановление Измените либо длину поля, либо значение в ключевом слове EDTWRD или EDTCDE, чтобы длина поля соответствовала количеству десятичных позиций замены. Затем попробуйте запрос еще раз.
http://www.iseriesworld.net/?messages=cl&prefix=cpd&code=7528
Надеюсь, это поможет. Удачи в вашем классе и добро пожаловать в Stack Overflow!