Description:
I would like to know if there is an easy way to move the command line from the bottom to the top of the ISPF menu interface and remove the footer lines.
Solution:
You can easily modify the panel library member to move the command line to the top and remove the footer lines.
Member EHCPAN11 is located in the r11.CAIISPP. Any changes should be done via SMP/E through a USERMOD.
//IQB0UREC EXEC PGM=GIMSMP,REGION=0M,// PARM='CSI=R11.SMPCSI.CSI,PROCESS=END'//*//SMPPTFIN DD DATA,DLM=$$++USERMOD(SCB0001) REWORK(2009167). /* SYSMOD ID */++VER(Z038) FMID(CIQB000). /* BASE FUNCTION */++MAC(EHCPAN11). /* USER VERSION OF SOURCE */)ATTR 01 TYPE(DATAOUT) INTENS(LOW) COLOR(BLUE) 02 TYPE(DATAOUT) INTENS(LOW) COLOR(RED) 03 TYPE(DATAOUT) INTENS(LOW) COLOR(PINK) 04 TYPE(DATAOUT) INTENS(LOW) COLOR(GREEN) 05 TYPE(DATAOUT) INTENS(LOW) COLOR(TURQUOISE) 06 TYPE(DATAOUT) INTENS(LOW) COLOR(YELLOW) 07 TYPE(DATAOUT) INTENS(LOW) COLOR(WHITE) 09 TYPE(DATAOUT) INTENS(NON) COLOR(BLUE) 0A TYPE(DATAOUT) INTENS(NON) COLOR(RED) 0B TYPE(DATAOUT) INTENS(NON) COLOR(PINK) 0C TYPE(DATAOUT) INTENS(NON) COLOR(GREEN) 0D TYPE(DATAOUT) INTENS(NON) COLOR(TURQUOISE) 0E TYPE(DATAOUT) INTENS(NON) COLOR(YELLOW) 0F TYPE(DATAOUT) INTENS(NON) COLOR(WHITE) 11 TYPE(DATAOUT) INTENS(HIGH) COLOR(BLUE) 12 TYPE(DATAOUT) INTENS(HIGH) COLOR(RED) 13 TYPE(DATAOUT) INTENS(HIGH) COLOR(PINK) 14 TYPE(DATAOUT) INTENS(HIGH) COLOR(GREEN) 15 TYPE(DATAOUT) INTENS(HIGH) COLOR(TURQUOISE) 16 TYPE(DATAOUT) INTENS(HIGH) COLOR(YELLOW) 17 TYPE(DATAOUT) INTENS(HIGH) COLOR(WHITE) 19 TYPE(DATAOUT) INTENS(NON) COLOR(BLUE) 1A TYPE(DATAOUT) INTENS(NON) COLOR(RED) 1B TYPE(DATAOUT) INTENS(NON) COLOR(PINK) 1C TYPE(DATAOUT) INTENS(NON) COLOR(GREEN) 1D TYPE(DATAOUT) INTENS(NON) COLOR(TURQUOISE) 1E TYPE(DATAOUT) INTENS(NON) COLOR(YELLOW) 1F TYPE(DATAOUT) INTENS(NON) COLOR(WHITE) 21 TYPE(DATAIN) INTENS(LOW) COLOR(BLUE) CAPS(&EHCCAPS) 22 TYPE(DATAIN) INTENS(LOW) COLOR(RED) CAPS(&EHCCAPS) 23 TYPE(DATAIN) INTENS(LOW) COLOR(PINK) CAPS(&EHCCAPS) 24 TYPE(DATAIN) INTENS(LOW) COLOR(GREEN) CAPS(&EHCCAPS) 25 TYPE(DATAIN) INTENS(LOW) COLOR(TURQUOISE) CAPS(&EHCCAPS) 26 TYPE(DATAIN) INTENS(LOW) COLOR(YELLOW) CAPS(&EHCCAPS) 27 TYPE(DATAIN) INTENS(LOW) COLOR(WHITE) CAPS(&EHCCAPS) 29 TYPE(DATAIN) INTENS(NON) COLOR(BLUE) CAPS(&EHCCAPS) 2A TYPE(DATAIN) INTENS(NON) COLOR(RED) CAPS(&EHCCAPS) 2B TYPE(DATAIN) INTENS(NON) COLOR(PINK) CAPS(&EHCCAPS) 2C TYPE(DATAIN) INTENS(NON) COLOR(GREEN) CAPS(&EHCCAPS) 2D TYPE(DATAIN) INTENS(NON) COLOR(TURQUOISE) CAPS(&EHCCAPS) 2E TYPE(DATAIN) INTENS(NON) COLOR(YELLOW) CAPS(&EHCCAPS) 2F TYPE(DATAIN) INTENS(NON) COLOR(WHITE) CAPS(&EHCCAPS) 31 TYPE(DATAIN) INTENS(HIGH) COLOR(BLUE) CAPS(&EHCCAPS) 32 TYPE(DATAIN) INTENS(HIGH) COLOR(RED) CAPS(&EHCCAPS) 33 TYPE(DATAIN) INTENS(HIGH) COLOR(PINK) CAPS(&EHCCAPS) 34 TYPE(DATAIN) INTENS(HIGH) COLOR(GREEN) CAPS(&EHCCAPS) 35 TYPE(DATAIN) INTENS(HIGH) COLOR(TURQUOISE) CAPS(&EHCCAPS) 36 TYPE(DATAIN) INTENS(HIGH) COLOR(YELLOW) CAPS(&EHCCAPS) 37 TYPE(DATAIN) INTENS(HIGH) COLOR(WHITE) CAPS(&EHCCAPS) 39 TYPE(DATAIN) INTENS(HIGH) COLOR(BLUE) CAPS(OFF) 3A TYPE(DATAIN) INTENS(HIGH) COLOR(RED) CAPS(OFF) 3B TYPE(DATAIN) INTENS(HIGH) COLOR(PINK) CAPS(OFF) 3C TYPE(DATAIN) INTENS(HIGH) COLOR(GREEN) CAPS(OFF) 3D TYPE(DATAIN) INTENS(HIGH) COLOR(TURQUOISE) CAPS(OFF) 3E TYPE(DATAIN) INTENS(HIGH) COLOR(YELLOW) CAPS(OFF) 3F TYPE(DATAIN) INTENS(HIGH) COLOR(WHITE) CAPS(OFF) % TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) + TYPE(TEXT) INTENS(LOW) COLOR(BLUE) _ TYPE(INPUT) INTENS(HIGH) COLOR(RED) CAPS(OFF) $ TYPE(OUTPUT) INTENS(LOW) COLOR(BLUE) # AREA(DYNAMIC) EXTEND(ON) SCROLL(ON) USERMOD(D1) @ AREA(DYNAMIC) EXTEND(OFF) SCROLL(OFF) USERMOD(D1))BODY WIDTH(&ZSCREENW) EXPAND(//)@EHCHD1 -----------------------/-/--------------------------------------@EHCHD2 -----------------------/-/--------------------------------------@EHCHD3 -----------------------/-/--------------------------------------%Command ===>_EHCCMD@EHCHD4 -----------------------/-/--------------------------------------@EHCHD5 -----------------------/-/--------------------------------------#EHCBUF -----------------------/-/--------------------------------------@EHCFT2 -----------------------/-/--------------------------------------)INIT.CURSOR = &EHCCSRN.CSRPOS = &EHCCSRP.HELP = &EHCHELP)PROC&EHCCSRN = .CURSOR&EHCCSRP = .CSRPOS&EHCLVL = LVLINE(EHCBUF))END$$//*//* ========> DEFINE SMP SELECT CONTROL STATEMENTS//*//SMPCNTL DD * SET BDY(GLOBAL) . RECEIVE S(SCB0001) SYSMODS./*//
//IQB0UAPC EXEC PGM=GIMSMP,REGION=0M,// PARM='CSI=R11.SMPCSI.CSI,PROCESS=END'//SMPCNTL DD * SET BDY(CAIT0). APPLY SELECT(SCB0001) CHECK REDO./*//
//IQB0UAP EXEC PGM=GIMSMP,REGION=0M,// PARM='CSI=R11.SMPCSI.CSI,PROCESS=END'//SMPCNTL DD * SET BDY(CAIT0). APPLY SELECT(SCB0001) REDO./*//