ADDGLOB 
.PROC,ADDGLOB*I,\ 
GLOBLGO ' LFN OF FILE FOR GLOBLIB              '=(*N=,*F),
*CALL COMPROC 
. 
*CALL     PSRLEV
* ADDGLOB - ADD RECORDS TO GLOBAL LIBRARY.
  
.****   ADDGLOB 
.*
.*        GLOBLIB MODIFICATION - GLOBLOC IS ATTACHED IN WRITE MODE, 
.*        THEN GLOBTMP IS CREATED FROM GLOBLIB AND GLOBLGO, FINALLY 
.*        GLOBLIB IS PURGED AND GLOBTMP IS RENAMED GLOBLIB. 
.*        THE PERMAMENT FILE SPACE FOR THE PURGED COPY OF GLOBLIB 
.*        IS NOT RELEASED UNTILL ALL JOBS USEING IT, TERMINATE. 
  
  
*************** A D D G L O B ********************
UNLOAD(GLIBIN,GTLGO,TEMPLIB,GLOBTMP)
IFE($GLOBLGO$.NE.$$,L00001) 
  IFE(FILE(GLOBLGO,AS),L00001)
    GTR(GLOBLGO,GTLGO)ABS/*,REL/*,OVL/*,PROC/*
    BEGIN(ACCESS,INSTALL,GLOBLIB,M=W) 
    LIBEDIT(P=GLOBOLD,B=GTLGO,U,N=GLOBTMP,Z)+*BUILD,GLOBLIB 
    BEGIN(ACCESS,INSTALL,GLOBLIB,M=RETURN)
    RETURN(GTLGO,GLOBLGO) 
ENDIF(L00001) 
.*
REVERT. ADDGLOB **********************************
EXIT. ADDGLOB 
REVERT(ABORT) ADDGLOB ****************************
*WEOR 
