ACQUIRE 
.PROC,ACQUIRE*I,\ 
LFN     ' LOCAL FILE NAME                      '=(*F),
PFN     ' PERMANENT FILE NAME                  '=(*F),
UNP     ' USER NAME/PACK NAME FOR CCP FILES    '=(*N=,,*A), 
. 
*CALL     PSRLEV
  
.****   ACQUIRE 
.*
.*      ACQUIRE A FILE
.*      USED WHEN FILE CAN BE EITHER INDIRECT OR DIRECT ACCESS
.*
  
GET(LFN=PFN/NA_UNP) 
IFE(.NOT.FILE(LFN,AS),DONE) 
ATTACH(LFN=PFN/NA_UNP)
ENDIF(DONE) 
REVERT.  ACQUIRE. 
.*
EXIT. 
REVERT(ABORT)  ACQUIRE. 
*WEOR 
