
Я немного подзабыл свой AS400-Fu... честно говоря, никогда им толком не пользовался.
У меня есть отчет (или 5) по системе, к которой у меня тоже есть доступ... как мне найти этот отчет(ы) и более подробную информацию о них?
Я не уверен, как генерируются отчеты (RPG, SQL и т. д.), но у меня есть название отчета и некоторая другая базовая информация.
Мне нужно найти отчет, чтобы я мог исследовать информацию и логику, которая его создает. От базы данных/таблицы, из которой он извлекает информацию. До критериев выбора.
В Windows и Linux я бы использовал такие вещи, как find, search, file extension, file explorer и т. д., чтобы найти файл и получить информацию о файле и связанных процессах, а затем перейти оттуда. Кажется, я не могу нажать на кнопку поиска для AS400.
Редактировать: Идеи ниже:
@ДжеймсА
wrkobj *ALL/PBRP581* *PGM
Object Type Library Attribute Text
PBRP581 *PGM FCSOLIB RPGLE Outsourcing - Acct Placement
DSPPGM FCSOLIBD/PBRP581
Program PBRP581 in library FCSOLIBD not found.
решение1
Чтобы найти программный объект для этого отчета, попробуйте команду WRKOBJ *ALL/PBRP581* *PGM
.
После того, как вы обнаружите программный объект, вы можете получить более подробную информацию, используя команду DSPPGM library/program
. Она определит тип программы, а также местоположение исходного кода для программы OPM (старая):
Program attribute . . : RPG
Type of program . . . . . . . . . . . . . . . . : OPM
Source file . . . . . . . . . . . . . . . . . . : QPGMSRC
Library . . . . . . . . . . . . . . . . . . . : TEST1
Source member . . . . . . . . . . . . . . . . . : BATITEM1
Для просмотра/редактирования исходного кода используйте STRSEU SRCFILE(TEST1/QPGMSRC) SRCMBR(BATITEM)
.
Если программа современная, вам ILE
придется поискать исходный код. Стандартные имена исходных файлов — QRPGSRC
, и т. д. Вы можете искать исходные файлы во всех библиотеках с помощью команды . QRPGLESRC
QCBLSRC
DSPOBJD *ALL/QRPGSRC *FILE
Используется WRKMBRPDM FILE(library/sourcefile)
для просмотра всех исходных элементов в исходном файле.
решение2
Если у вас есть напечатанный запрос, он, вероятно, был сгенерирован вызовом RUNQRY QRY(YOURLIB/YOURQRY)
куда-то.
Попробуйте зайти в WRKQRY
и затем вБиблиотекаполе, поставьте *LIBL
, затем вЗапросfield, put PBRP581*
и do F4. Это должно вывести список всех запросов, начинающихся с PBRP581.
Если это вернуло нужные вам запросы, выполните команду 5
по запросу, чтобы просмотреть определение запроса.