admin管理员组

文章数量:1022843

This has always bugged me. My system has about 150 panels and all of them have the same header. What I want to do is insert a few lines of code from a standardized header member at the top of all these panels. This is too much duplicated code for my liking.

I thought )IM would do it but either it doesn't or i'm doing it wrong.

The main panel is this...

)ATTR
  + TYPE(TEXT) COLOR(WHITE)
  _ TYPE(INPUT) COLOR(RED)
  % TYPE(OUTPUT) COLOR(BLUE)
)BODY
)IM STDHEAD
+
+ ENTER SUB-SYSTEM CODE _SUBSYSCD+
+
)INIT
)PROC
)END

The member STDHEAD would contain something like this...

+
+You are in system %SYSCD+
+

Fot to mention that I had the STDHEAD member in the same library as the calling member and in a library in the concatenation for the LIBDEF ISPPLIB.

This has always bugged me. My system has about 150 panels and all of them have the same header. What I want to do is insert a few lines of code from a standardized header member at the top of all these panels. This is too much duplicated code for my liking.

I thought )IM would do it but either it doesn't or i'm doing it wrong.

The main panel is this...

)ATTR
  + TYPE(TEXT) COLOR(WHITE)
  _ TYPE(INPUT) COLOR(RED)
  % TYPE(OUTPUT) COLOR(BLUE)
)BODY
)IM STDHEAD
+
+ ENTER SUB-SYSTEM CODE _SUBSYSCD+
+
)INIT
)PROC
)END

The member STDHEAD would contain something like this...

+
+You are in system %SYSCD+
+

Fot to mention that I had the STDHEAD member in the same library as the calling member and in a library in the concatenation for the LIBDEF ISPPLIB.

本文标签： zosHow to create a standardized header in zOS ISPF panel definitionStack Overflow

版权声明：本文标题：zos - How to create a standardized header in zOS ISPF panel definition - Stack Overflow 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://it.en369.cn/questions/1745575430a2156988.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。