CROSS 
.PROC,CROSS*I,\ 
*CALL COMCCPL 
*CALL COMIA 
*CALL COMTOB
*CALL COMNOPG 
*CALL COMPC 
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.*****  CROSS - CYBER CROSS SYSTEM BUILD. 
  
.***    PARAMETERS
.*
.*      CCPLIST  LIST OPTION: 
.*               NO  - NO ASSEMBLY/COMPILER LISTING.
.*               YES - WRITE ASSEMBLY/COMPILER LISTING TO FILE *OUTPUT*.
.*               PF  - WRITE ASSEMBLY/COMPILER LISTING TO PERMANENT FILE
.*                     *LCRS* AND TO RELEASE TAPE.
.*      PC       PERMANENT CORRECTIONS OPTION:  
.*               NO  - DO NOT APPLY PERMANENT CORRECTIONS.
.*               YES - APPLY PERMANENT CORRECTIONS FROM FILE *CPRD* 
.*      NOPURGE  INCLUDE KEYWORD TO PREVENT DRTBAT1 FROM PURGING FILES. 
.*
  
.*
.*  START JOB VIA CCPPROC.
.*
BEGIN(SUBPROC,INSTALL,CROSS,,,,IA,TOBLD,NONE,JOBTYPE=CCP) 
REVERT.  CROSS. 
EXIT. 
REVERT(ABORT)  CROSS. 
.DATA,ZZZPROC.
.PROC,CROSS.
.*
.*  LOAD CROSS PL TO DISK.  V3.6
.*
BEGIN(RTDBAT1,INSTALL,PRDNAME=CRSS,NOBIN) 
RETURN(CRSS)
.*
.*  BUILD AND INSTALL CROSS PROGRAMS. 
.*
BEGIN(GETULIB,INSTALL,FORTRAN,SYSLIB) 
BEGIN(CRBBAT1,INSTALL,#CCPLIST=CCPLIST,#CC=CC,#PC=PC) 
.*
.*  CREATE CROSS RELEASE TAPE.
.*
BEGIN(DRTBAT1,INSTALL,PRDNAME=CRSS,PURGE=NOPURGE) 
RETURN(CRSSNEW) 
REVERT.  CROSS COMPLETE.
EXIT. 
REVERT(ABORT)  CROSS ERRORS.
*WEOR 
