How to modify the r11 ISPF menu interface to move the command line to the top and remove the footer lines.

Document ID : KB000053998
Last Modified Date : 14/02/2018
Show Technical Document Details

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.

  • Instructions for ISPF Panel member modification

    • The panel is located in the r11.CAIISPP library as member EHCPAN11.

    • Setup and run a USERMOD to update a panel member. Sample USERMOD jobs are found in the r11.sampjcl library, prefixed with IQB0U*.

    • Below I created a new IQB0UREC job and copied in the full panel member after ++MAC(EHCPAN11).

    • I then updated after BODY WIDTH area, by removing the footer lines which are related to lines @EHCFT1, @EHCFT4, @EHCFT5 and moved the command line after @EHCHD3.
      //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./*//
    • Next setup and run the applycheck job to insure you have any pre reqs specified and that the job will apply ok.

    • I copied job IQB0UAPC from the r115.sampjcl library and updated it to applycheck my usermod called SCB0001.
      //IQB0UAPC EXEC PGM=GIMSMP,REGION=0M,//         PARM='CSI=R11.SMPCSI.CSI,PROCESS=END'//SMPCNTL  DD   *   SET BDY(CAIT0).     APPLY SELECT(SCB0001) CHECK REDO./*//
    • Next setup and run the apply job by coping job IQB0UAP from the r115.sampjcl library and updat it to the same usermod.
      //IQB0UAP EXEC PGM=GIMSMP,REGION=0M,//        PARM='CSI=R11.SMPCSI.CSI,PROCESS=END'//SMPCNTL  DD   *   SET BDY(CAIT0).    APPLY SELECT(SCB0001) REDO./*//
    • Last you need to add the R11.CAIISPP library to your TSO logon proc under the ISPPLIB DD so you can execute the newly changed panel library going forward.