GLFBAT1 
.PROC,GLFBAT1*I,\ 
GN      ' 3 CHARACTER CCP LOAD FILE NAME       '=(*N=,,*A3),
BL      ' 3 CHARACTER BASE LEVEL               '=(*N=,,*A3),
CL      ' 3 CHARACTER CODE LEVEL               '=(*N=,,*A3),
FSL     ' 3 CHARACTER FIRMWARE AND SAM LEVEL   '=(*N=,,*A3),
UNP     ' USER NAME/PACK NAME FOR CCP FILES    '=(*N=,,*A), 
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.****   GLFBAT1 
.*
.*      PROCEDURE TO GENERATE CCP LOAD FILE 
.*
  
BEGIN(SETAJTL,INSTALL)
BEGIN(CCPGNPL,INSTALL,#BL=BL,#CL=CL,
#UNP=$UNP$) 
.*
.*  GET EXPAND TEXT 
.*
NOTE(GLFDIR1)/*ID GLFEXPTXT/*C EXPTEXT
UPDATE(Q,P=NEWPL,I=GLFDIR1,K=EXPTEXT,D,8,L=1) 
RETURN(GLFDIR1) 
ATTACH(EXPAND=AEXP_BL_UNP)
GET(USERBPS)
BEGIN(GETULIB,INSTALL,BAMLIB) 
IFE($CL$,NOCL)
NOTE(LDFLDEF)*LFD=GN,LEV=CL.
ELSE(NOCL)
NOTE(LDFLDEF)*LFD=GN. 
ENDIF(NOCL) 
.*
.*  CONVERT LOAD FILE DEFINITION TO LFG DIRECTIVES
.*
NOTE(OUTPUT,NR)/1 
EXPAND(LDFLDEF,USERBPS,EXPTEXT,OUTPUT,HELPER,LFGDIR)
RETURN(EXPAND,LDFLDEF,USERBPS,EXPTEXT)
BEGIN(,HELPER)
RETURN(HELPER)
.*
.*  PICK UP DEFAULT LOAD MODULES
.*
IFE($BL$.NE.$CL$,NOTLOCL) 
IFE($CL$.EQ.$FSL$,NOTLOCL)
ATTACH(ZMUX=ZMUX_FSL) 
ATTACH(ZSAM=ZSAM_FSL) 
ELSE(NOTLOCL) 
ATTACH(ZMUX=ZMUX_FSL_UNP) 
ATTACH(ZSAM=ZSAM_FSL_UNP) 
ENDIF(NOTLOCL)
NOTE(LFGDIR,NR)/ZMUX,ZSAM 
*IF,DEF,CCPDEV
*ENDIF
.*
.*  DO THE LFG
.*
PACK(LFGDIR)
PURGE(G_GN_CL/NA) 
DEFINE(NLF=G_GN_CL) 
LFG(I=LFGDIR) 
BEGIN(PERMIT,INSTALL,REALFN=G_GN_CL,SYMFN=NLFFILE)
.IF,(R1G.NE.0),T1.
REWIND(NLF,SMDPFG)
COPYEI(NLF,SMDPFG)
.ENDIF(T1)
RETURN(ZMUX,ZSAM,LFGDIR,NLF)
REVERT.  GLFBAT1. 
.*
EXIT. 
REVERT(ABORT)  GLFBAT1. 
*WEOR 
