"NEWSTACK"
   "TBLGEN CP DESCRIBE"                /* Get table description      */
   pull "KEYS(" keynames ")" "NAMES(" varnames ")"
   if Space( keynames varnames,1 ) = "" then,
      call Z_QUEUE                     /* Build a CP rom            -*/
   "DELSTACK"
/*
   Queue seven (7) lines containing the key datapoints for a new table
   that does not yet exist on AAMSTR.  The line for 'AALIBR' needs a
   fully-qualified unquoted DSN if this table is to reside on a known
   dataset, or '*' otherwise.  Invoke TBLMSTR with 'NEWROW' to establish
   the new table.
.  ----------------------------------------------------------------- */
Z_QUEUE:                               /*@                           */
   if branch then call BRANCH
   address TSO

   "NEWSTACK"
   queue "AATBLID CP "
   queue "AATBLNM COMPARM "
   queue "AAKEYS  CPROOT "
   queue "AANAMES CPCLASS CPTYPE CPLIB CPLIST CPCICS CPMLIB "
   queue "AADESC  COMPILE Parameters "
   queue "AASORT  CPROOT,C,D "
   queue "AALIBR  CBT.SISPTENU "
   "TBLMSTR (( NEWROW"  opts
   "DELSTACK"

return                                 /*@ Z_QUEUE                   */