/* ------------------------------------------------------------------------- */
/* REXX program to view a sample in the samples source library               */
/*                                                                           */
/* Usage:   SAMPVIEW  <heading_text>                                         */
/*                                                                           */
/* If the heading_text is omitted, a 'work with library' window will open    */
/*  showing the samples source library.                                      */
/*                                                                           */
/* If the heading_text is supplied, then a matching item in the source       */
/*  library will be opened for viewing.                                      */
/*                                                                           */
/* Simon Jones / Dave Clark   -   Visualizer Development for OS/2            */
/*                                Warwick Lab - IBM Software Solutions       */
/*                                                                           */
/* ------------------------------------------------------------------------- */

parse arg item

call RxFuncAdd 'SysSearchPath', 'RexxUtil', 'SysSearchPath'

libidentifier = SysSearchPath('FTB1PATH', 'EXAMPLES.LIB')
appidentifier = SysSearchPath('FTB1PATH', 'LIBVIEW.A97')

'start ftbas3 /cIBMAPPLICATN /n"' || appidentifier || '"' libidentifier item

exit 0

