Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>As @cshneid, use an ISPF Panel (and place it in the ISPPLIB). Here is an example panel containing a password field (see $ attribute) taken from <a href="http://publib.boulder.ibm.com/infocenter/zos/v1r12/index.jsp?topic=%2Fcom.ibm.zos.r12.f54dg00%2Fhhlp.htm" rel="nofollow">ISPF Manual</a>.</p> <pre><code>)ATTR * TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) CAPS(OFF) # TYPE(TEXT) INTENS(HIGH) COLOR(BLUE) CAPS(OFF) @ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) HILITE(REVERSE) ? TYPE(TEXT) INTENS(LOW) COLOR(TURQ) CAPS(OFF) _ TYPE(INPUT) INTENS(HIGH) COLOR(YELLOW) $ TYPE(INPUT) INTENS(NON) ø TYPE(OUTPUT) INTENS(LOW) COLOR(TURQ) CAPS(OFF) )BODY * --------------------------@EMPLOYEE RECORD*-------------------------- # SERIAL NO.*===&gt;_SERNUM +&amp;rbl % # # # NAME:?&amp;LAST, &amp;FIRST # # ADDRESS:øADDR1 + # øADDR2 + # øADDR3 + # øADDR4 + # # POSITION:øPOSIT + # # YEARS EXPERIENCE:øYRS+ # # SALARY:øSALARY + # PASSWORD*===&gt;$PSW + # (Password is required for salary) # # * Enter#END*command to terminate application. # )PROC VER(&amp;SERNUM,NB,NUM) .ATTR(.CURSOR) = 'COLOR(RED) HILITE(BLINK)' )END </code></pre> <p>Please note I do not have a mainframe available to check so the following so there may be some syntax errors:</p> <p>Rexx command to display a panel:</p> <pre><code>Address ispexec display panel(panelName) </code></pre> <p>If you need to add a DSN to the ISPPLIB</p> <pre><code>"ispexec libdef ispplib dataset id(panel-dsn)" </code></pre> <hr> <h1>Background information</h1> <p>ISPF uses a series of files (ispplib, ispmlib, isptlib etc) to store the details it uses. You can add extra PDS (on a temporary basis) to ISPF using the <strong>LIBDEF</strong> function in a rexx/clist programs. Historically these PDS's where RECFM=FB and had a LRECL of 80. This has changed. You should check the attributes of the existing ispplib PDS's and use similar attributes.</p> <p>To display a <strong>panel</strong> it needs to be stored in the ISPPLIB (or a PDS allocated to ispplib using <strong>LIBDEF</strong>).</p> <p>if you store the panel in pds my.panels(test) and allocate my.panels to ISPPLIB, the rexx is:</p> <pre><code> /* rexx */ address ispexec 'display panel(test)' say rc /* show return code, will indicate possible errors */ </code></pre> <p>if you use <strong>LIBDEF</strong> then the rexx is</p> <pre><code> /* rexx */ address ispexec "libdef ispplib dataset id(panel-dsn)" say rc address ispexec 'display panel(test)' say rc /* show return code, will indicate possible errors */ </code></pre> <hr> <p>The <a href="http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ISPZRS40/CCONTENTS?DT=20050711210710" rel="nofollow">Edit Macro guide</a> has a list of services (and there return-codes)</p> <p>If you allocate the panel to the panel library, you can also us the ispf test mode (ispf 7.1 ??? its been a while since I used the Mainframe) to test it</p>
    singulars
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. This table or related slice is empty.
    2. VO
      singulars
      1. This table or related slice is empty.
    3. VO
      singulars
      1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload