Чтение плоского файла с динамическим именем в CICS

Я сделал это с файлами Unix Systems Services через вызовы подпрограмм времени выполнения C из COBOL. FOPEN, эт. др. доступны для вас.

Очень важно, чтобы ваша программа выполнялась на открытом TCB и чтобы она была потокобезопасной.

Если вы используете CICS TS 4.2 или более позднюю версию, вы должны определить свою программу как CONCURRENCY(REQUIRED), чтобы вы знали, что она находится в открытом TCB, а не в QR TCB. Выполнение операций ввода-вывода на QR TCB плохо сказывается на производительности и пропускной способности и, возможно, на вашей дальнейшей занятости. Если ваша программа, выполняющая ввод-вывод, не является первой программой в транзакции, вы должны LINK к ней, а не динамически CALL, чтобы переключение TCB произошло автоматически.

Если вы используете CICS TS 4.1 или более раннюю версию, вам придется пройти через некоторые препятствия, чтобы заставить вашу транзакцию попасть в открытый TCB. Надеюсь, у вас более свежая версия.

Объясните своему системному программисту CICS, что вы собираетесь выполнять ввод-вывод QSAM, но вы должны убедиться, что вы используете открытый TCB, чтобы избежать проблем с производительностью.

Если вы не знаете, что представляют собой различные TCB, обратитесь к документации. Существует красная книга по теме безопасности потоков, посвященная TCB. Это стоит вашего времени.

Другой способ сделать это — загрузить данные в таблицу DB2 (если в вашем магазине есть DB2) в конце пакетного задания.

Вы можете использовать CICS SPI для динамического определения ресурсов для файла, но это не очень хорошая идея, на самом деле это скорее заноза в заднице, слишком много соображений — высокая доступность, регион, которому принадлежит файл, головные боли изобилуют.

Все МОЖНО сделать, в конце концов, это всего лишь компьютер, но вы нарушите все допущения, которые использовались при построении структуры CICS/TS за последние полвека или около того. Он управляет ресурсами для обеспечения максимального параллелизма всех запущенных задач для максимальной эффективности всех машинных ресурсов. Выполнение того, что вы предлагаете, может перевести весь регион в состояние ожидания ОС и заблокировать все, если вы не сделаете все правильно.

Если это просто простой файл, скопируйте его в предопределенный ESDS в конце задания, которое его создает, и запустите задачу CICS, прочитайте его оттуда, ваша жизнь отладки будет намного проще, и ваши CICS SysProgs не будут ненавидеть вас и прокляни свое имя навсегда. Или вы можете использовать ключ KSDS с уникальным именем файла и порядковым номером записи и обрабатывать с помощью STARTBROWSE/READNEXT/ENDBROWSE только эти записи.

Поскольку файл представляет собой плоский файл, а не какой-то кластер VSAM, я бы посоветовал вам прочитать его как ввод Дополнительная очередь временных данных раздела (Extra TDQ).

Имя набора данных можно включить в определение ресурса, но поскольку имя набора данных нельзя изменить с помощью интерфейса системного программирования, переход на новый набор данных можно было бы выполнить с помощью инструмента CICS ADYN, но я бы рекомендуется закрыть и отключить очередь с помощью SET TDQUEUE, а затем заменив ее на CREATE из вашей программы.

В качестве альтернативы вы можете создать новую очередь для каждого запроса, используя какой-либо механизм, обеспечивающий уникальность имени в регионе CICS, прочитать очередь, а затем снова отбросить ее.