كيفية سرد خصائص قاعدة GDG من خلال Rexx

Question

كيفية معرفة قاعدة GDG الخصائص من خلال رمز Rexx ؛ بالطبع يمكننا عرض حد GDG من خلال File-Aid 3.2 الخيار ولكن بحاجة إلى سرد الخصائص أثناء الطيران ويمكن استخدامها في برنامج/وحدة متتالية. أتمنى أن يوضحك وانتظر الرد! (هل اسمحوا لي أن أعرف ما إذا كانت أي معلومات أخرى مطلوبة؟)

Answer 1

واحد تعاني من الاقتراح أعلاه ... إذا كنت تريد فقط إدخالات GDG ، فقد تحتاج إلى التفكير في إزالة الكلمة الرئيسية كلها في إدخال ListCat ('xxx') في جميع الخط. أعتقد أن كل الكلمات ستسرد مجموعات بيانات GDG وغير GDG التي تحدث لتطابق اسم إدخال الكتالوج.

Answer 2

من Rexx ، يمكنك استهداف TSO ثم استخدام listcat أمر:

ADDRESS TSO
"LISTCAT ENTRY('XXX') ALL"

حيث xxx هي قاعدة GDG.

لالتقاط إخراج TSO ، انظر إلى OutTrap الذي يمكنه التقاط الإخراج من معظم أوامر TSO - لم أختبر على وجه التحديد listcat بما أنني لا أملك Z900 أسفل مكتبي في المنزل :-) سأعطيه لقطة في العمل غدًا.

Call OutTrap "xyzzy."

يجب أن يعطيك الإخراج في xyzzy متغير ساق ويمكنك إيقاف الالتقاط مع:

Call OutTrap "off"

Answer 3

شيء من هذا القبيل يجب أن تفعل ذلك.

/* REXX */                                     

arg entry .                                    

call outtrap "listc."                          

"LISTCAT ENT("entry") GDG ALL"                 
if rc > 0 then exit 12                         

do i = 1 to listc.0                            
  if pos("LIMIT", listc.i) > 0 then do         
    limit = word(translate(listc.i,' ','-'),2) 
    say 'GDG limit is' limit                   
    leave                                      
  end                                          
end