/* ED  Edit Symbolic Library Partition Text       10/26/1990-10/28/1998
/* --------------------------------------------------------------------

   PROC 1 P,     /* Partition with text to be edited                 */+
          I(X),  /* Symbolic library identification                  */+
          G(X),  /* Symbolic library group                           */+
          L(*)   /* Symbolic library name

   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(ED)

/* Specify Edit Recovery Handling and Process Suspended Ones ----------

   ISPEXEC EDREC INIT
   ISPEXEC CONTROL ERRORS RETURN
   DO UNTIL &Done=Yes
      ISPEXEC EDREC QUERY
      IF (&LASTCC>0) +
         THEN ISPEXEC EDREC PROCESS
         ELSE SET Done=Yes
   END

/* Edit Specified Symbolic Library Partition Text ---------------------

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