Skip to content

Creating and Maintaining Online Forms

Accessing the Online Forms Options Menu

To access the Online Forms Options menu:

  1. Select Option A (Admin) from the Primary Option menu. Press Enter.

  2. Select Option G (Global) from the Administration Options menu. Press Enter.

  3. Select Option O (Options) from the Global Administration Options menu. Press Enter.

  4. Select Option 4 (OFM) from the Global Selectable Options menu. Press Enter. The Online Forms Options menu (CMNGOOFM) appears:

    CMNGOOFM -------------------- ONLINE FORMS OPTION -------------------------------
OPTION ===>

  1. Maintain - Create or update Online Forms
  2. Library - Specify panel library dataset name

Press ENTER to process: Enter END command to exit.

...

Maintaining Online Forms

When you select Option 1 (Maintain) from the Online Forms Options Menu and press Enter, the Online Forms Maintenance panel (CMNZFRM) appears.

CMNZFRM -------------------- ONLINE FORMS MAINTENANCE ---------------- Row 1 to 10 of 10
COMMAND ===>                                                            SCROLL ===> CSR
Line commands: I  - Insert,  R - Repeat,    U - Update,          D - Delete
               Pn - Panels,  V - Variables, N - Notificiations,  S - Sample

Press ENTER to process: Enter END command to exit.

    FORM                                        LEAD    ALLOW   ALLOW
      ID    FORM DESCRIPTION                    TIME    ACCESS  SUBMIT
.... 010    Build GDG Request                      0    YES     YES
.... 030    DASD Dataset Space Request             7    YES     NO
.... 070    Problem Summary                        7    YES     NO
.... 100    Report Distribution Information        7    YES     NO
.... 110    Standards & Guidelines Revision        7    YES     NO
.... 120    Tape Retention Register                7    YES     NO
.... 130    Standards Exemption Request            7    YES     NO
.... 140    Security Information                   7    YES     NO
.... 160    Scheduler JCL Update                   7    YES     NO
.... 170    Scheduler Update                       7    YES     NO
****************************** Bottom of data ******************************************

...

The Online Forms Maintenance panel displays a table of all existing form definition rows and provides access to all the functions that are necessary for creation, modification, or deletion.

Note

Notifications specified at this panel are used to notify users of a pending form approval.

The following table describes the fields on the Online Forms Maintenance panel (CMNZFRM).

Field Explanation
Line Commands I - Insert Displays the Online Forms Creation panel for creating a new form definition.
R - Repeat Displays the Online Forms Creation panel for cloning an existing form definition.
D - Delete Displays the Online Forms Deletion panel for deleting an existing form together with all associated panels, variables, and notifications.
U - Update Displays the Online Forms Update panel for updating an existing form definition.
P - Panels Invokes Panel Editor, allowing you to select a panel.
Pn - Panels Invokes the Panel Editor, allowing you to select a specific panel member name for editing.
V -Variables Displays the Define Form Variables panel, allowing you to define the form variables.
N - Notifications Displays the Define Form Notifications panel, allowing you to define the form notifications for pending forms approval.
S - Sample Displays the form panels in the end-user mode.
Form ID Type a three-digit numeric number to be associated with the form used both for identification of forms by users and internally for the creation of panel member names, form entity names for security purposes, and as part of the key of all package master file records relating to the form.
Form Description Type a free-format description or name for the form.
Lead Time Type the number of days the approver requires to process the form to enable ChangeMan ZMF to display the days remaining before the form must be submitted for approval in relation to the change package install date.
Allow Access Type an indicator to allow or prevent display of the form in the Online Forms Selection panel to control end user access to the form.
Allow Submit Type an indicator to allow job submission at the time of form approval. The skeleton must be manually maintained in a library in the ISPSLIB concatenation. Refer to the skeletons provided with the sample forms for examples of use. The creation and maintenance of approve job skeletons is not a function of the OFM and it is recommended that the ChangeMan ZMF File Tailoring Assistance function be used for this purpose. If the form is in use by another user, a message displays and the command is aborted. Approve job skeleton naming conventions. Skeleton member name: CMNZnnnA, where nnn is the form ID. Skeleton table name: OFMTABLE (applies only to forms for which table variables are defined)

Creating Forms

To access the Create Form panel, do the following from the Online Forms Maintenance panel.

  1. Type I (to Insert a new form) or R (to Repeat an existing form) in the line command field of the selected form, and press Enter. The Create Form panel (CMNFRMC) displays.

    CMNZFRMC -------------------- CREATE FORM -------------------------------
COMMAND ===>

Press ENTER to process; Enter END command to exit.

FORM ID         ===> ____
DESCRIPTION     ===> ____________________________________
LEAD TIME       ===> ____   (in days)
ALLOW ACCESS    ===> ____   (Y/N)
ALLOW SUBMIT    ===> ____   (Y/N)

    The following table describes the fields on the Create Form panel.

    Field Explanation
    Form ID Type a unique, three-character form ID.
    Form Description Type the form description.
    Lead Time Type the minimum number of days before package installation date that the form can be submitted for approval. A lead time of zero suppresses checking of the install date when the form is accessed.
    Allow Access Type YES to allow access to the form from the Online Forms Selection panel; otherwise, type NO.
    Allow Submit Type YES to allow submission of the associated skeleton at the time of form approval; otherwise, type NO.

  2. Press Enter.

Updating Forms

To access the Update Form panel, follow these steps on the Online Forms Maintenance panel.

  1. Type U in the line command field of the selected form and press Enter. The Update Form panel (CMNFRMU) appears.

    CMNZFRMU -------------------- UPDATE FORM -------------------------------
COMMAND ===>

Press ENTER to process; Enter END command to exit.

FORM ID:
FORM DESCRIPTION ===> ____________________________________
LEAD TIME        ===> ____   (in days)
ALLOW ACCESS     ===> ____   (Y/N)
ALLOW SUBMIT     ===> ____   (Y/N)

    The following table describes the fields of the Update Form panel.

    Field Explanation
    Form Description Type the form description.
    Lead Time Type the minimum number of days before package installation date that the form can be submitted for approval. A lead time of zero suppresses checking of the install date when the form is accessed.
    Allow Access Type YES to allow access to the form from the Online Forms Selection panel; otherwise, type NO.
    Allow Submit Type YES to allow submission of the associated skeleton at the time of form approval; otherwise, type NO.

Deleting Forms

To access the Delete Form panel (CMNFRMD), follow the steps from the Online Forms Maintenance panel.

  1. Type D and press Enter. The Delete Form panel (CMNZFRMD) appears.

    CMNZFRMD -------------------- DELETE FORM -------------------------------
COMMAND ===>

Press ENTER to process; Enter END command to exit.

FORM ID:
DESCRIPTION:
LEAD TIME:      days
ALLOW ACCESS:
ALLOW SUBMIT:

  2. Inspect the form to make certain that you want to delete it, and press Enter.

    Your form definitions are removed permanently from the package master file on completion of the delete function.

Defining Form Panels

From the Online Forms Maintenance panel (CMNZFRM), take the following steps:

  1. Type Pn (where n is the panel suffix) or P in the line command field of the selected form, and press Enter. The editor member selection panel displays, if any panels currently exist.

  2. Type S in the line command field of the selected member and press Enter. The Panel Editor similar to the following appears:

    ISREDDE - PROD99.CMNZMF.CUSTPANL(CMNZ0101) - 01.00 ------------ COLUMNS 001 072
COMMAND ===>                                                  SCROLL ===> CSR
********************************* TOP OF DATA *********************************
000001 )ATTR
000002 # TYPE(OUTPUT)
000003 @ TYPE(&XATTR) CAPS(ON) PAD('''') JUST(LEFT) INTENS(HIGH)
000004 { TYPE(&XATTR) CAPS(ON) PAD('_') JUST(LEFT) INTENS(LOW)
000005 )BODY EXPAND(!!) 
000006 %!-! &XMODE BUILD GDG REQUEST !-!
000007 %COMMAND ===>_ZCMD ! ! %SCROLL ===>_AMT +
000008 +

    ...

    000009 +    PACKAGE ID:#XPKGNAME    +   STATUS:#Z   +     INSTALL DATE:#Z
000010 + 
000011 +Press%ENTER+to process; Enter%END+command to exit.
000012 +
000013 %    INDEX                                          ENTRIES  DELETE  EMP
000014 )MODEL
000015 @XCMD+{INDEX                                        +{Z +    {Z  +   {Z
000016 )INIT
000017  .ZVARS = '(XPKGSTAT,XPKGDATE,ENTRIES,DELETE,EMPTY)'
000018  IF (&XATTR = OUTPUT)
000019      .CURSOR = ZCMD
000020  &XCMD = \&Z 
000021 )REINIT
000022  IF (.MSG ¬= &Z)
000023     REFRESH(ZCMD,AMT,XCMD,INDEX,ENTRIES,DELETE,EMPTY)
000024     .AUTOSEL = YES
000025 )PROC
000026 &TCMD = TRUNC(&ZCMD,1)
000027 IF (&TCMD ¬= '+')
000028    &ZCMD = TRANS(TRUNC(&ZCMD,1) C,CANCEL R,REFRESH *,*)
000029    VER (&ZCMD,LIST,CANCEL,REFRESH,MSG=CMNZ001)
000030    IF (&ZCMD ¬= CANCEL,REFRESH)
000031       IF (&ZTDSELS ¬= 0000)
000032          &DELETE = TRANS(TRUNC(&DELETE,1) Y,YES N,NO *,*)
000033          &EMPTY = TRANS(TRUNC(&EMPTY,1) Y,YES N,NO *,*)
000034          &XCMD = TRUNC(&XCMD,1)
000035          &XCMDCNT = .TRAIL
000036          VER (&XCMD,LIST,I,R,D,MSG=CMNZ002)
000037          VER (&XCMDCNT,NUM,MSG=CMNZ003)
000038          IF (&XCMD ¬= D)
000039              VER (&INDEX,NB,DSNAME)
000040              VER (&ENTRIES,NB,NUM)
000041              VER (&DELETE,NB,LIST,YES,NO) 
000042              VER (&EMPTY,NB,LIST,YES,NO) 
000043 )END
****** ***************************** BOTTOM OF DATA ******************************

Panel Format Restrictions

The OFM imposes the following panel format restrictions:

  • The name of the command variable must be ZCMD.

  • The name of the scroll variable must be AMT.

  • Primary commands Cancel and Refresh must be validated and returned in the system variable ZCMD.

  • If the form contains table variable definitions, the name of the line command variable appearing in the model section must be XCMD and must be truncated to one character by the TRUNC command. The associated variable containing the line command iteration factor must be XCMDCNT and must be set to .TRAIL resulting from the TRUNC command.

Defining Form Variables

Create a form variable definition row for each symbolic variable referenced in the form panels for which user data is to be stored. The definition of one or more table variables results in the creation and display of an ISPF Dialog Manager table when the form is accessed from the Online Forms Selection panel. A table variable value is stored for each row created and saved by the user. Table variables can also be defined as key variables in order to prevent the form user from saving rows of data having duplicate values for those variables.

The variable definitions are used define the variables to Dialog Manager and map the variables to user data in package master records. Changes to variable definitions after a form has been put into use produce incorrect mapping of existing user data unless consideration is given to the position, length and type of the variables in the definition requiring change. As with conventional record definitions, it is possible to reserve space for future use with “filler” variables.

To access the Define Form Variables panel (CMNZVRB), take the following steps:

  1. Type V in the line command field of the selected form and press Enter. The Define Form Variables panel (CMNVRB) appears.

    CMNZVRB -------------------- DEFINE FORM VARIABLES ------------- ROW 1 TO 13 OF 15
COMMAND ===>                                                     SCROLL ===> CSR

        FORM ID: 010 DESCRIPTION: Build GDG Request

Press ENTER to process;
Enter END command to save changes and exit; 
Enter CANCEL command to cancel changes and exit.

        VARIABLE    VARIABLE    VARIABLE       TABLE       KEY
          NAME       FORMAT      LENGTH      VARIABLE    VARIABLE
''''    INDEX___    CHAR____        44__        YES         NO_
''''    ENTRIES_    CHAR____        3___        YES         NO_
''''    DELETE__    CHAR____        3___        YES         NO_
''''    EMPTY___    CHAR____        3___        YES         NO_
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___

    The following table describes the fields of the Define Form Variables panel.

    Field Explanation
    Line Commands I - Insert Inserts a new form variable row.
    R - Repeat Repeats an existing form variable row.
    D - Delete Deletes the form variable row.
    Variable Name Type a unique one- to eight-character symbolic variable name following Dialog Manager conventions. Names beginning with X, Y, or Z are reserved for internal use and as such may not be defined. Both ISPF and Online Forms pre-defined variables (see Appendix C, “,” on page 51) may also appear in panel definitions as required.
    Variable Format Type CHAR (Character string - data is left-justified and padded on the right with blanks) or FIXED (Fixed binary integer - variables with a length of 4 are signed allowing entry of a leading minus sign).
    Variable Length Type the variable length in the range 1-3072 for format CHAR or 14 for format FIXED.
    Table Variable Type Y if the variable is to be displayed in table format in a scrollable part of the associated panel; otherwise, type N.
    Key Variable Type Y if the variable is to be checked for a unique value within the table; otherwise, type N.

Defining Form Notifications

The Define Form Notifications panel (CMNNTF) allows you to access the notification function to send messages by the started task to notify approvers when a form is submitted that requires their approval.

To access the Define Form Notifications panel, take the following steps:

  1. Type N in the line command field of the selected form and press Enter. The Define Form Notifications panel (CMNZNTF) appears.

    CMNZVRB -------------------- DEFINE FORM NOTIFICATIONS-------- ROW 1 TO 10 OF 10
COMMAND ===>                                                     SCROLL ===> CSR

        FORM ID: 010 DESCRIPTION: Build GDG Request

Press ENTER to process;
Enter END command to save changes and exit; 
Enter CANCEL command to cancel changes and exit.

        VEHICLE    USERIDS  TO  NOTIFY  (separate with commas)
        MVSSEND_   CMNUSER8,CMNUSER9_____________________________
''''    ________   ______________________________________________
''''    ________   ______________________________________________
''''    ________   ______________________________________________
''''    ________   ______________________________________________
''''    ________   ______________________________________________
''''    ________   ______________________________________________    
''''    ________   ______________________________________________    
''''    ________   ______________________________________________
***************************** BOTTOM OF DATA ************************************

    ...

    Notifications specified at this panel notify users of a pending form approval.

    The following table provides a description of the Define Form Notification panel (CMNZNTF).

    Field Explanation
    Line Commands I - Insert Inserts a new form variable row.
    R - Repeat Repeats an existing form variable row.
    D - Delete Deletes the form variable row. A maximum of 10 rows are allowed.
    Vehicle Type a Notification Vehicle that is enabled in Global Administration Parameters.
    User IDs Type one or more TSO userids or e-mail addresses separated by commas.

  2. Complete a row for each notification you want to define for the form, then issue the End command.

Defining OFM Option Form Security Entity

Your security administrator must define security entities for each OFM Option form to grant authorization to approve and to reject the form. Use the following procedure for each form you create:

  1. In your security system under the resource class for ChangeMan ZMF, create the following profiles with no access (UACC NONE):

    CMNsZfff

    CMNsRfff

    where s is the subsystem ID of the ChangeMan instance that will use the OFM Option and fff is the 3-character form number. If you use a null subsystem ID, the profile names are CMNZfff and CMNRfff.

  2. Permit the TSO ID of the form approver (or a group) UPDATE access to profile CMNsZfff.

  3. Permit the TSO ID of the form rejecter (or a group) UPDATE access to profile CMNsRfff.
  4. Under the resource class for ChangeMan ZMF, permit the TSO ID of the form approver and rejecter (or groups) READ access to the security entity for the ChangeMan application where the form will be used in change packages.

If form reject entity CMNsRfff is not defined, behavior depends on how your security system is configured for undefined entities. With default configuration, where RACROUTE REQUEST=AUTH issues return code 4 for undefined entities (unprotected resources), ZMF then checks the CMNsZfff entity for authority to reject the form. Thus, CMNsZfff controls access to both approve and reject functions. If your security system is configured to deny access to undefined entities (E.G. using PROTECTALL), entity CMNsRfff MUST be defined to grant authorization to reject the form.

Example - Creating a New Form by Copying an Existing Form

This example shows how you can create a new form by using a similar existing form as a model. The new form will be 020 Dataset Allocation Request and the form to be used as a model is 010 Build GDG Request.

  1. Select Option A (Admin) from the Primary Option menu. Press Enter.

  2. Select Option G (Global) from the Administration Options menu. Press Enter.

  3. Select Option O (Options) from the Global Administration Options menu. Press Enter.

  4. Select Option 4 (OFM) from the Global Selectable Options menu. Press Enter.

  5. Select Option 1 (Maintain) from the Online Forms Options menu and press Enter. The Online Forms Maintenance panel (CMNZFRM) appears.

    CMNZFRM -------------------- ONLINE FORMS MAINTENANCE ---------------- Row 1 to 10 of 10
COMMAND ===>                                                            SCROLL ===> CSR

Line commands: I  - Insert,  R - Repeat,    U - Update,          D - Delete
               Pn - Panels,  V - Variables, N - Notificiations,  S - Sample

Press ENTER to process: Enter END command to exit.

    FORM                                        LEAD    ALLOW   ALLOW
      ID    FORM DESCRIPTION                    TIME    ACCESS  SUBMIT
.... 010    Build GDG Request                      0    YES     YES
.... 030    DASD Dataset Space Request             7    YES     NO
.... 070    Problem Summary                        7    YES     NO
.... 100    Report Distribution Information        7    YES     NO
.... 110    Standards & Guidelines Revision        7    YES     NO
.... 120    Tape Retention Register                7    YES     NO
.... 130    Standards Exemption Request            7    YES     NO
.... 140    Security Information                   7    YES     NO
.... 160    Scheduler JCL Update                   7    YES     NO
.... 170    Scheduler Update                       7    YES     NO
****************************** Bottom of data ******************************************

  6. Type R (Repeat) in the line command area of the form to be repeated and press Enter. The Create Form panel (CMNFRMC) appears.

    CMNZFRMC ------------------------ CREATE FORM -----------------------------------
COMMAND ===>
Press ENTER to process; Enter END command to exit.
FORM ID         ===> 010 
DESCRIPTION     ===> Build GDG Request_______________________
LEAD TIME       ===> 0__ (in days) 
ALLOW ACCESS    ===> YES    (Y/N) 
ALLOW SUBMIT    ===> YES    (Y/N)

  7. Modify Form ID to the new forms ID.

  8. Modify Form Description to the new description.

  9. Press Enter.

    The Online Forms Maintenance panel (CMNZFRM) displays with a message indicating that the new form has been created.

    CMNZFRM -------------------- ONLINE FORMS MAINTENANCE ---------------- Row 1 to 10 of 10
COMMAND ===>                                                            SCROLL ===> CSR

Line commands: I  - Insert,  R - Repeat,    U - Update,          D - Delete
               Pn - Panels,  V - Variables, N - Notificiations,  S - Sample

Press ENTER to process: Enter END command to exit.

    FORM                                        LEAD    ALLOW   ALLOW
      ID    FORM DESCRIPTION                    TIME    ACCESS  SUBMIT
.... 010    Build GDG Request                      0    YES     YES
.... 030    DASD Dataset Space Request             7    YES     NO
.... 070    Problem Summary                        7    YES     NO
.... 100    Report Distribution Information        7    YES     NO
.... 110    Standards & Guidelines Revision        7    YES     NO
.... 120    Tape Retention Register                7    YES     NO
.... 130    Standards Exemption Request            7    YES     NO
.... 140    Security Information                   7    YES     NO
.... 160    Scheduler JCL Update                   7    YES     NO
.... 170    Scheduler Update                       7    YES     NO
****************************** Bottom of data ******************************************

  10. Type P1 (Panel number 1) in the line command field of the new form.

  11. Press Enter to invoke the Panel Editor. 

    ISREDDE - PROD99.CMNZMF.CUSTPANL(CMNZ0201) - 01.00 ----------- COLUMNS 001 072
COMMAND ===>                                                  SCROLL ===> CSR
*********************************** TOP OF DATA *******************************
000001 )ATTR
000002 \# TYPE(OUTPUT)
000003 @ TYPE(&XATTR) CAPS(ON) PAD('''') JUST(LEFT) INTENS(HIGH)
000004 { TYPE(&XATTR) CAPS(ON) PAD('_') JUST(LEFT) INTENS(LOW)
000005 )BODY EXPAND(!!) 
000006 %!-! &XMODE BUILD GDG REQUEST !-!
000007 %COMMAND ===\>_ZCMD ! ! %SCROLL ===>_AMT +
000008 +
000009 +    PACKAGE ID:#XPKGNAME +      STATUS:#Z   +       INSTALL DATE:#Z
000010 + 
000011 +Press%ENTER+to process; Enter%END+command to exit.
000012 +
000013 %    INDEX                                   ENTRIES     DELETE      EMP
000014 )MODEL
000015 @XCMD+{INDEX                                 +{Z +       {Z  +       {Z
000016 )INIT
000017    .ZVARS = '(XPKGSTAT,XPKGDATE,ENTRIES,DELETE,EMPTY)'
000018    IF (&XATTR = OUTPUT)
000019        .CURSOR = ZCMD
000020    &XCMD = &Z
000021 )REINIT
000022    IF (.MSG ¬= \&Z)
000023          REFRESH(ZCMD,AMT,XCMD,INDEX,ENTRIES,DELETE,EMPTY)
000024          .AUTOSEL = YES

    ...

    000025 )PROC
000026  &TCMD = TRUNC(&ZCMD,1)
000027  IF (&TCMD ¬= '+')
000028     &ZCMD = TRANS(TRUNC(&ZCMD,1) C,CANCEL R,REFRESH *,*)
000029     VER (&ZCMD,LIST,CANCEL,REFRESH,MSG=CMNZ001)
000030     IF (&ZCMD ¬= CANCEL,REFRESH)
000031          IF (&ZTDSELS ¬= 0000)
000032             &DELETE = TRANS(TRUNC(&DELETE,1) Y,YES N,NO *,*)
000033             &EMPTY = TRANS(TRUNC(&EMPTY,1) Y,YES N,NO *,*)
000034             &XCMD = TRUNC(&XCMD,1)
000035             &XCMDCNT = .TRAIL
000036             VER (&XCMD,LIST,I,R,D,MSG=CMNZ002)
000037             VER (&XCMDCNT,NUM,MSG=CMNZ003)
000038             IF (&XCMD ¬= D)
000039                  VER (&INDEX,NB,DSNAME)
000040                  VER (&ENTRIES,NB,NUM)
000041                  VER (&DELETE,NB,LIST,YES,NO)
000042                  VER (&EMPTY,NB,LIST,YES,NO) 
000043 )END
*************************************** BOTTOM OF *******************************

  12. Modify the panel title to the new title.

  13. Remove references to variables INDEX, ENTRIES, DELETE, and EMPTY.

  14. Add references to variables DATA SET, VOLUME, and TRACKS.

    References to variables in the REINIT and PROC sections of the panel must be reviewed when removing or adding variables.

    ISREDDE - PROD99.CMNZMF.CUSTPANL(CMNZ0201) - 01.00 -------------- COLUMNS 001 072
COMMAND ===>                                                    SCROLL ===> CSR
************************************ TOP OF DATA ********************************
000001 )ATTR
000002     # TYPE(OUTPUT)   
000003     @ TYPE(&XATTR) CAPS(ON) PAD('''') JUST(LEFT) INTENS(HIGH)   
000004     { TYPE(&XATTR) CAPS(ON) PAD('_') JUST(LEFT) INTENS(LOW)   
000005 )BODY EXPAND(!!) 
000006 %!-! &XMODE DATASET ALLOCATION REQUEST !-!   
000007 %COMMAND ===>_ZCMD ! ! %SCROLL ===>_AMT +   
000008 +   
000009 +   PACKAGE ID:#XPKGNAME    +   STATUS:#Z   +       INSTALL DATE:#Z   
000010 + 
000011 +Press%ENTER+to process; Enter%END+command to exit.   
000012 +   
000013 % DATASET                                           VOLUME      TRACKS   
000014 )MODEL   
000015 @XCMD+{DATASET                                      +{Z     +   {Z +   
000016 )INIT   
000017     .ZVARS = '(XPKGSTAT,XPKGDATE,VOLUME,TRACKS)'   
000018     IF (&XATTR = OUTPUT)   
000019        .CURSOR = ZCMD   
000020     &XCMD = &Z   
000021 )REINIT   
000022     IF (.MSG ¬= \&Z)   
000023         REFRESH(ZCMD,AMT,XCMD,DATASET,VOLUME,TRACKS)   
000024         .AUTOSEL = YES

    ...

    000025 )PROC   
000026  &TCMD = TRUNC(&ZCMD,1)   
000027  IF (&TCMD ¬= '+')   
000028     &ZCMD = TRANS(TRUNC(&ZCMD,1) C,CANCEL R,REFRESH *,*)   
000029     VER (&ZCMD,LIST,CANCEL,REFRESH,MSG=CMNZ001)   
000030     IF (&ZCMD ¬= CANCEL,REFRESH)   
000031         IF (&ZTDSELS ¬= 0000)   
000032            &XCMD = TRUNC(&XCMD,1)   
000033            &XCMDCNT = .TRAIL   
000034            VER (&XCMD,LIST,I,R,D,MSG=CMNZ002)   
000035            VER (&XCMDCNT,NUM,MSG=CMNZ003)   
000036            IF (&XCMD ¬= D)   
000037                VER (&DATASET,NB,DSNAME)   
000038                VER (&VOLUME,NB)   
000039                VER (&TRACKS,NB,NUM)   
000040 )END   
************************************* BOTTOM OF DATA ***************************

  15. Enter the End command to save changes and exit. The Online Forms Maintenance panel (CMNZFRM) appears.

    CMNZFRM -------------------- ONLINE FORMS MAINTENANCE -------------------FORM CREATED 
COMMAND ===>                                                            SCROLL ===> CSR

Line commands: I  - Insert,  R - Repeat,    U - Update,          D - Delete
               Pn - Panels,  V - Variables, N - Notificiations,  S - Sample

Press ENTER to process: Enter END command to exit.

    FORM                                        LEAD    ALLOW   ALLOW
      ID    FORM DESCRIPTION                    TIME    ACCESS  SUBMIT
.... 010    Build GDG Request                      0    YES     YES
.... 030    DASD Dataset Space Request             0    YES     NO
.... 070    Problem Summary                        7    YES     NO
.... 100    Report Distribution Information        7    YES     NO
.... 110    Standards & Guidelines Revision        7    YES     NO
.... 120    Tape Retention Register                7    YES     NO
.... 130    Standards Exemption Request            7    YES     NO
.... 140    Security Information                   7    YES     NO
.... 160    Scheduler JCL Update                   7    YES     NO
.... 170    Scheduler Update                       7    YES     NO
****************************** Bottom of data ******************************************

  16. Type V in the line command field of the new form.

  17. Press Enter. The Define Form Variables panel (CMNZVRB) appears.

    CMNZVRB -------------------- DEFINE FORM VARIABLES ------------- ROW 1 TO 13 OF 15
COMMAND ===>                                                     SCROLL ===> CSR

FORM ID: 020 DESCRIPTION: Dataset Allocation Request

Press ENTER to process;
Enter END command to save changes and exit; 
Enter CANCEL command to cancel changes and exit.
        VARIABLE    VARIABLE    VARIABLE       TABLE       KEY
          NAME       FORMAT      LENGTH      VARIABLE    VARIABLE
''''    INDEX___    CHAR____        44__        YES         NO_
''''    ENTRIES_    CHAR____        3___        YES         NO_
''''    DELETE__    CHAR____        3___        YES         NO_
''''    EMPTY___    CHAR____        3___        YES         NO_
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___
''''    ________    ________        ____        ___         ___

  18. Modify the variable entries to suit the variables now defined in the form panel.

    CMNZVRB -------------------- DEFINE FORM VARIABLES -------- ROW 1 TO 13 OF 14
COMMAND ===>                                                SCROLL ===> CSR
     FORM ID: 020 DESCRIPTION: Dataset Allocation Request

Press ENTER to process;
Enter END command to save changes and exit;
Enter CANCEL command to cancel changes and exit.

     VARIABLE VARIABLE VARIABLE   TABLE      KEY
       NAME    FORMAT   LENGTH   VARIABLE  VARIABLE
'''' DATASET_ CHAR____  44__       YES       NO_
'''' VOLUME__ CHAR____  6___       YES       NO_
'''' TRACKS__ CHAR____  4___       YES       NO_
'''' ________ ________  ____       ___       ___
'''' ________ ________  ____       ___       ___
'''' ________ ________  ____       ___       ___
'''' ________ ________  ____       ___       ___
'''' ________ ________  ____       ___       ___
'''' ________ ________  ____       ___       ___
'''' ________ ________  ____       ___       ___
'''' ________ ________  ____       ___       ___
'''' ________ ________  ____       ___       ___
'''' ________ ________  ____       ___       ___

  19. Enter the End command to save changes and exit. This displays the Online Forms Maintenance panel. The new form is ready for use.