/* BR  Browse/View Symbolic Library Part Text     10/29/1990-10/28/1998
/* --------------------------------------------------------------------

   PROC 1 P,     /* Partition with text to be browsed/viewed         */+
          I(X),  /* Symbolic library identification                  */+
          G(X),  /* Symbolic library group                           */+
          L(*),  /* Symbolic library name                            */+
          B      /* Execute BROWSE (default: VIEW)

   CONTROL NOCAPS
/* CONTROL SYMLIST,CONLIST,LIST,MSG

/* Form Symbolic Library Partition Selection Parameters ---------------

   GLOBAL   IDENT,GROUP,LIB,PART
   %FORMLIB &P,I(&I),G(&G),L(&L),S(BR)

/* Browse/View Specified Symbolic Library Partition Text --------------

   IF (&B=B) +
      THEN IF ((&STR(&PART)=8)|       +
               (&STR(&PART)=&STR(*))) +
              THEN ISPEXEC BROWSE DATASET('&IDENT..&GROUP..&LIB')
              ELSE ISPEXEC BROWSE +
                           DATASET('&IDENT..&GROUP..&LIB.(&PART)')
      ELSE IF ((&STR(&PART)=8)|       +
               (&STR(&PART)=&STR(*))) +
              THEN ISPEXEC VIEW DATASET('&IDENT..&GROUP..&LIB') +
                                MACRO  (EDITPRO)
              ELSE ISPEXEC VIEW DATASET('&IDENT..&GROUP..&LIB.(&PART)')-
                                MACRO  (EDITPRO)
