Bibliothek im CLP ermitteln

[B.Hauser]

noch eine Quick und Dirty-Methode:

1. versuche die Bibliothek, nach der Du suchst mit ADDLIBLE in die Bibliotheksliste hinzuzufügen und anschliessend über MONMSG CPF2103 (Bibliothek &1 in Bibliotheksliste bereits vorhanden.) abfangen.
2. Konnte die Bibliothek problemlos in die Bibliotheksliste eingefügt werden, einfach mit RMVLIBLE wieder entfernen.

  ADDLIBLE LIB(&MyLib) POSITION(*LAST)
          MONMSG MSGID(CPF2103)  EXEC(DO)
              /* Bibliothek in Bibliotheksliste vorhanden */
             GOTO CMDLBL(WEITER)   
          ENDDO
     
          RMVLIBLE LIB(&MYLIB)
          MONMSG MSGID(CPF0000)
 
WEITER: 

Birgitta