)attr default(˘+_)
 ` TYPE(TEXT) INTENS(HIGH) COLOR(white)
 ¬ TYPE(TEXT) INTENS(HIGH) COLOR(GREEN)
 ~ TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW)
 $ TYPE(TEXT) INTENS(HIGH) COLOR(TURQ)
 ¦ TYPE(TEXT)  COLOR(PINK) HILITE(BLINK)
)body expand(||)
~=|=|˘Interactive Sysplex/Parallel Commands~|=|=
˘COMMAND ===>_ZCMD | | ¬
` Number Option:_UserIn
¬     1 $D ETR,DATA          ¬ Display the External Timer Status
¬     2 $D CF                ¬ Display Couple Facility details
¬     3 $D XCF,SYSPLEX,ALL   ¬ Display all Systems in the Sysplex
¬     4 $D XCF,COUPLE        ¬ Display status of Couple Data Sets
¬     5 $D XCF,POLICY        ¬ Display the active Policy name(s)
¬     6 $D XCF,PI,DEV=ALL    ¬ Display status of CTC Pathin(s)
¬     7 $D XCF,PO,DEV=ALL    ¬ Display status of CTC Pathout(s)
¬     8 $D XCF,PI,STRNAM=IXC*¬ Display status of Structure Pathin(s)
¬     9 $D XCF,PO,STRNAM=IXC*¬ Display status of Structure Pathout(s)
¬    10 $D XCF,STR           ¬ Display active Structure names
¬    11 $D XCF,STR,STRNAME=* ¬ Display active Structures in detail
¬    12 $D XCF,CF,CFNAME=*   ¬ Display active Couple Facility detail
¬    13 $D XCF,LOCALMSG      ¬ Display Message buffers pool usage
¬    14 $D WLM,SYSTEMS       ¬ Display WLM Info about all systems in Sysplex
¬    15 $D XCF,GROUP         ¬ Display Sysplex Groups Information
¬    16 $LIST LOGR (SYSLOG)  ¬ Invoke IXCMIAPU utility
¬    17 $CFRM Report         ¬ Invoke IXCMIAPU utility
¬    18 $Structure Placement Check¬
¬    19 $Display Logger Infomation¬
~=|=|˘Press `PF3¬ to Exit~|=|=
)INIT
 &UserIn = ' '
 .CURSOR = &UserIn
)PROC
 VER (&UserIn,NB,LIST,+
     1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19)
 VPUT '(UserIn)' PROFILE
)END