GETULIB 
.PROC,GETULIB*I,
LIB1    ' NAME OF ULIB                         '=(*N=UUUNF,*F), 
LIB2    ' NAME OF ULIB                         '=(*N=UUUNF,*F), 
LIB3    ' NAME OF ULIB                         '=(*N=UUUNF,*F), 
LIB4    ' NAME OF ULIB                         '=(*N=UUUNF,*F), 
LIB5    ' NAME OF ULIB                         '=(*N=UUUNF,*F), 
LIB6    ' NAME OF ULIB                         '=(*N=UUUNF,*F), 
*CALL COMPROC 
. 
.HELP 
 GETS UP TO 6 ULIBS FROM FILE PRODUCT.  PROC TERMINATES WHEN
 FIRST NULL PARAMETER FOUND.
.ENDHELP
BEGIN(ACCESS,INSTALL,PRODUCT) 
RETURN(LIB1,LIB2,LIB3,LIB4,LIB5,LIB6) 
GTR(PRODUCT,LIB1,U)ULIB/LIB1
IFE($LIB2$.NE.$UUUNF$,GET)
GTR(PRODUCT,LIB2,U)ULIB/LIB2
IFE($LIB3$.NE.$UUUNF$,GET)
GTR(PRODUCT,LIB3,U)ULIB/LIB3
IFE($LIB4$.NE.$UUUNF$,GET)
GTR(PRODUCT,LIB4,U)ULIB/LIB4
IFE($LIB5$.NE.$UUUNF$,GET)
GTR(PRODUCT,LIB5,U)ULIB/LIB5
IFE($LIB6$.NE.$UUUNF$,GET)
GTR(PRODUCT,LIB6,U)ULIB/LIB6
ENDIF(GET)
UNLOAD(PRODUCT) 
REVERT.          GETULIB. 
EXIT. 
REVERT(ABORT)    GETULIB
*WEOR 
