У меня есть копировальная книга, например:
01 MY-STRUCTURE.
05 STRUCTURE-NAME PIC X(20).
05 STRUCTURE-DATE PIC X(8).
05 STRUCTURE-LIB PIC 9(3).
Как я могу получить название своих полей?
Я хочу иметь программу, которая может получить любую тетрадь и динамически записывать ее поля и значения.
Я хочу записать его в выходной файл следующим образом:
"STRUCTURE-NAME-> TOTO"
"STRUCTURE-DATE-> 19780301"
"STRUCTURE-LIB -> 123"
В мире z/OS, в зависимости от вашего уровня компилятора, вы можете использовать отладочную информацию, сгенерированную компилятором, для самоанализа ваших имен. Для этого вам нужно будет сохранить ADATA во время компиляции.
У меня есть два возможных решения:
Вы сохраняете имена полей копии во внутренней таблице. И последовательный читает таблицу для записи вашего вывода.
Динамическое размещение сложнее, но возможно. Вы размещаете копию в своей программе, используя bpxwdyn (подпрограмма IBM).
Вы создаете подпрограмму, с именем копии, фиксированной длиной (80), именем библиотеки копий, и размещаете эту копию в подпрограмме. Затем вы можете заполнить внутреннюю таблицу его данными.
Eg:
http://mainframe-tips-and-tricks.blogspot.com.es/2011/12/cobol-sample-program-for-dynamic-file.html
