Skip to content

Sample REXX EXEC CMN010 Prologue

...

/* REXX */
/* ****************************************************************** */
/* Copyright 2003-2007 (C) SERENA Software, Inc.                      */
/* Licensed material. All rights reserved.                            */
/* ChangeMan is a registered trademark of SERENA (R) Software Inc.    */
/* ****************************************************************** */
/* USE OF THE SAMPLE CODE CONTAINED HEREIN IS SUBJECT TO THE TERMS    */
/* CONDITIONS OF THE LICENSE AGREEMENT LOCATED IN THE MEMBER LICENSE  */
/* ****************************************************************** */
/* Date       Author            Reason                                */
/* 2003-06-01 Serena            Original version                      */
/* ****************************************************************** */
/* REXX CMN010 Summary of Planned and Unplanned Packages              */
/*                                                                    */
/* This report makes use of two XML Services                          */
/*                                                                    */
/*   Service     Scope    Message   Description                       */
/*                                                                    */
/* 1 PARMS       APL      LIST      Obtain the list of Appl. names    */
/* 2 PACKAGE     SUMMARY  SERVICE   Obtain counts about Package types */
/*                                  and statuses                      */
/*                                                                    */
/* Parameters                                                         */
/*                                                                    */
/* Application name         1 to 4 character mnemonic which may       */
/*                          include the asterisk '*' character to     */
/*                          represent a wild card. If omitted '*'     */
/*                          is assumed. Omission is indicated by a '.'*/
/*                          in the parm list.                         */
/*                                                                    */
/* Subsystem letter         1 character indicative of the ChangeMan   */
/*                          system that is being reported upon. Must  */
/*                          be present. A '.' indicates the default   */
/*                          subsystem of ' ' (blank).                 */
/*                                                                    */
/* TSO userid               1 to 8 character TSO id used to perform   */
/*                          security checking. Required parameter.    */
/*                                                                    */
/* Test switch              An indicator with the value 'T' which     */
/*                          specifies that diagnostic trace           */
/*                          information is to be sent to the          */
/*                          SERPRINT DD. The default is no value      */
/*                          other words Tracing is Off.               */
/*                          Since this is the last parm a positional  */
/*                          placeholder is not required.              */
/*                                                                    */
/* ****************************************************************** */

...

Note

This sample consists of three stages: The initialization of variables, the calls to SERXMLRC and the presentation of the results.