XRFBAT1 
.PROC,XRFBAT1*I\
CRL     ' 3 CHARACTER CROSS LEVEL              '=(*N=,,*A3),
TYPE    ' TYPE OF CROSS REFERENCE              '=(*N=XRF,PASCAL=XRF,
                                                  MPEDIT=EXR),
UNC     ' USER NAME/PACK NAME FOR CROSS FILES  '=(*N=,,*A), 
*IF,DEF,63CSET
CSET    ' CHARACTER SET                        '=(*N=63,63,64), 
*ELSE 
CSET    ' CHARACTER SET                        '=(*N=64,63,64), 
*ENDIF
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.****   XRFBAT1 
.*
.*      PROCEDURE TO GENERATE CCP PASCAL CROSS-REFERENCE LISTING
.*
  
IFE(.NOT.FILE(LISTING,DT(NE)),NOXREF) 
REWIND(PASLIST) 
COPYBR(PASLIST,XRFINPL) 
REWIND(XRFINPL) 
ATTACH(PASCAL=ACYP_CRL_UNC) 
ATTACH(XREF=A_TYPE_CRL_UNC) 
RFL(77000)
PASCAL(LOAD=XREF,D=XRFINPL,R=LISTING,LL=99999,#CSET=CSET) 
RFL(0)
RETURN(PASCAL,XREF,XRFINPL) 
COPYBR(PASLIST,LISTING) 
ENDIF(NOXREF) 
RETURN(PASLIST) 
REVERT.  XRFBAT1. 
.*
EXIT. 
RFL(0)
REVERT(ABORT)  XRFBAT1. 
*WEOR 
