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.