      * ---------------------------------------------------------------------------------------- */
      * Copyright [2009] [System & Method Technologies]                                          */
      *                                                                                          */
      * Licensed under the Apache License, Version 2.0 (the "License");                          */
      * you may not use this file except in compliance with the License.                         */
      * You may obtain a copy of the License at                                                  */
      *                                                                                          */
      *     http://www.apache.org/licenses/LICENSE-2.0                                           */
      *                                                                                          */
      * Unless required by applicable law or agreed to in writing, software                      */
      * distributed under the License is distributed on an "AS IS" BASIS,                        */
      * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.                 */
      * See the License for the specific language governing permissions and                      */
      * limitations under the License.                                                           */
      * ---------------------------------------------------------------------------------------- */
      *                                                                                          */
      * Project . . . : IceBreak                                                                 */
      * Design  . . . : Niels Liisberg                                                           */
      * Function  . . : 5250 "script" sample. Default navigation                                 */
      *                                                                                          */
      * Feature of this program are described in following books:                                */
      *                                                                                          */
      *    http://www.rfc-editor.org/rfc/rfc1205.txt                                             */
      *       the RFC-1205 spec                                                                  */
      *    http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm?info/apis/dsm1.htm        */
      *       SA21-9247                                                                          */
      *    http://publib.boulder.ibm.com/cgi-bin/bookmgr/BOOKS/CO2E2001/15.0?DT=19950629163252   */
      *       Functions Reference: SC30-3533-04  - topic 15                                      */
      * By       Date       Task    Description                                                  */
      * -------- ---------- ------- ------------------------------------------------------------ */
      * NLI      05.09.2009 0000000 New program - Subproject IceCap                              */
      * ---------------------------------------------------------------------------------------- */
     h debug(*yes)
     h actgrp(*caller)
     h dftactgrp(*no)
     h bnddir('ICEBREAK')
     h bnddir('ICECAPEML')
     h BndDir('EXTUTILITY')
      /Include qAspHdr,ICECAP
      /Include qAspHdr,ICECAPEML
      /Include qAspHdr,ICEBREAK
      /Include qAspHdr,ExtUtility
     d pVts            s               *
     d vts             ds                  likeds(vtsDS)
     d loc             ds                  likeds(vtLocationDS)
     d field           ds                  likeds(vtFieldDS)
     d wrkactjob       s           1024    varying
     d wrksyssts       s           1024    varying
     d src             s            128    varying

     c     *entry        plist
     c                   parm                    vts
      * ---------------------------------------------------------------------------------------- */
      /free

       pVts = %addr(vts);

       if (vtGetScreen(pVts:1:2:14) = 'SYSTEMOVERVIEW');
         // remove header
         vtWinPatch(pVts:1:2:'              ');

         // setup wrkactjob
         src = '/menu/icecap.aspx?func=wrkactjob&config=examples';
         wrkActJob = '{ +
           xtype:"panel",+
           html:"<iframe src=''' + src + ''' +
                  width=100% height=100% frameborder=0 />"+
         }';

         // setup wrksyssts
         src = '/menu/icecap.aspx?func=wrksyssts&config=examples';
         wrkSysSts = '{ +
           xtype:"panel",+
           html:"<iframe src=''' + src + ''' +
                  width=100% height=100% frameborder=0 />"+
         }';

         // Create tabpanel
         emlAddMetaField ('{+
           xtype:"tabpanel",+
           width:1000,+
           height:800,+
           deferredRender: true,+
           layoutOnTabChange:true,+
           activeTab: 0,+
           defaults: {autoHeight:true, bodyStyle:"padding:10px"},+
           items: [{ +
             title:"WrkActJob",+
             layout:"form",+
             items:[' + wrkactjob + ']+
           },{+
             title:"WrkSysSts",+
             layout:"form",+
             items:[' + wrksyssts + ']+
           }]+
         }');

       endif;
       return;
