<!DOCTYPE DM SYSTEM ()>

<VARCLASS NAME=STR1  TYPE='CHAR 1'>
<VARCLASS NAME=STR5  TYPE='CHAR 5'>
<VARCLASS NAME=STR8  TYPE='CHAR 8'>
<VARCLASS NAME=STR30 TYPE='CHAR 30'>
<VARCLASS NAME=VCLASS TYPE='CHAR 1'>
  <CHECKL MSG=SSM020>
    <CHECKI TYPE=VALUES PARM1=EQ PARM2='1 2'>
  </CHECKL>

<VARLIST>
  <VARDCL NAME=CLASS     VARCLASS=VCLASS>
  <VARDCL NAME=DESC      VARCLASS=STR30>
  <VARDCL NAME=ETIME     VARCLASS=STR5>
  <VARDCL NAME=JOBNAME   VARCLASS=STR8>
  <VARDCL NAME=NAME      VARCLASS=STR8>
  <VARDCL NAME=SEL       VARCLASS=STR1>
  <VARDCL NAME=STIME     VARCLASS=STR5>
  <VARDCL NAME=TRIGJOB   VARCLASS=STR8>
</VARLIST>

<MSGMBR NAME=SSM02>
  <MSG SUFFIX=0 MSGTYPE=ACTION>Please enter valid Class value
</MSGMBR>

<PANEL NAME=SSM2 DEPTH=23 WIDTH=80 WINDOW=NO>SSM TABLE

<CMDAREA PAD=_ CMDLOC=ASIS SCROLLVAR=ZSCBR SCRCAPS=ON>
<REGION>
  <DTAFLD DATAVAR=CLASS AUTOTAB=YES ATTRCHANGE=YES INTENS=LOW
          FLDTYPE=ISPF HILITE=USCORE DESWIDTH=* USAGE=IN
          REQUIRED=YES><HP TYPE=TEXT>Class</HP>
    <DTAFLDD>1:STC   2:VTAM node   (required)
</REGION>
<DIVIDER>
<DIVIDER TYPE=TEXT FORMAT=START><HP TYPE=TEXT INTENS=LOW COLOR=GREEN>
  S -> S to select or D to delete  and ENTER to Process</HP>
</DIVIDER>
<DIVIDER>
<DIVIDER TYPE=TEXT FORMAT=START><HP TYPE=TEXT INTENS=LOW COLOR=GREEN>
  F1=Help  F3=Exit  F7=Up  F8=Down</HP>
</DIVIDER>

<DIVIDER TYPE=SOLID>
<LSTFLD DIV=* ATTRCHANGE=YES>
  <LSTCOL DATAVAR=SEL USAGE=IN COLWIDTH=1 AUTOTAB=YES ATTRCHANGE=YES>S
  <LSTCOL DATAVAR=NAME USAGE=OUT COLWIDTH=8 ATTRCHANGE=YES>Name
  <LSTCOL DATAVAR=JOBNAME USAGE=OUT COLWIDTH=8 ATTRCHANGE=YES>Jobname
  <LSTCOL DATAVAR=DESC USAGE=OUT COLWIDTH=30 ATTRCHANGE=YES>Description
  <LSTCOL DATAVAR=STIME USAGE=OUT COLWIDTH=5 ATTRCHANGE=YES>Stime
  <LSTCOL DATAVAR=ETIME USAGE=OUT COLWIDTH=5 ATTRCHANGE=YES>Etime
  <LSTCOL DATAVAR=TRIGJOB USAGE=OUT COLWIDTH=8 ATTRCHANGE=YES>Trig job
</LSTFLD>

</PANEL>
