$DEFM FORT52NH SRTL52NH SRTD52NH NOPRINT NOSCR                                  
$JOB BLDUTIL SYSTEM                                                             
$NOTE   *****************************************************                   
$NOTE   *                                                   *                   
$NOTE   *         M P X  -  3 2   U T I L I T I E S         *                   
$NOTE   *                                                   *                   
$NOTE   *          RELEASE 3.4.0  SOURCE PACKAGE            *                   
$NOTE   *                                                   *                   
$NOTE   *  MODEL NUMBER: 1407-03   REVISION DATE: 05/08/92  *                   
$NOTE   *                                                   *                   
$NOTE   *****************************************************                   
$NOTE   *                                                   *                   
$NOTE   *             RESTRICTED RIGHTS LEGEND              *                   
$NOTE   *             ------------------------              *                   
$NOTE   *                                                   *                   
$NOTE   *  INFORMATION CONTAINED HEREIN IS PROPRIETARY TO   *                   
$NOTE   *  ENCORE COMPUTER CORPORATION AND/OR ITS           *                   
$NOTE   *  SUPPLIERS, AND ITS USE, DISCLOSURE, OR           *                   
$NOTE   *  DUPLICATION IS SUBJECT TO THE RESTRICTIONS       *                   
$NOTE   *  STATED IN THE ENCORE COMPUTER CORPORATION        *                   
$NOTE   *  LICENSE AGREEMENT OR THE APPROPRIATE THIRD-PARTY *                   
$NOTE   *  SUBLICENSE AGREEMENT. INFORMATION IS PROVIDED TO *                   
$NOTE   *  GOVERNMENT CUSTOMERS WITH RESTRICTED RIGHTS AS   *                   
$NOTE   *  DESCRIBED IN DAR 7-104.9A.                       *                   
$NOTE   *                                                   *                   
$NOTE   *****************************************************                   
$NOTE   *                                                   *                   
$NOTE   *         SOURCE  PROCESSING  INSTRUCTIONS          *                   
$NOTE   *                                                   *                   
$NOTE   *  THIS JCL FILE WILL ASSEMBLE OR COMPILE ALL OF    *                   
$NOTE   *  THE UTILITIES SOURCE MODULES, CATALOGS THE       *                   
$NOTE   *  BINARY OUTPUT AND CREATES EACH UTILITY LOAD      *                   
$NOTE   *  MODULE. THERE ARE FIVE PARAMETERS FOR THIS FILE: *                   
$NOTE   *                                                   *                   
$NOTE   *    1 - THE LOAD MODULE NAME OF REVISION 5.2 OR    *                   
$NOTE   *        LATER OF FORTRAN 77+ COMPILER. THE DEFAULT *                   
$NOTE   *        NAME IS FORT52NH.                          *                   
$NOTE   *                                                   *                   
$NOTE   *    2,3 - THE SECOND AND THIRD PARAMETERS ARE USED *                   
$NOTE   *          TO SPECIFY THE NAMES OF REVISION 5.2 OR  *                   
$NOTE   *          LATER OF THE SCIENTIFIC RUN-TIME LIBRARY *                   
$NOTE   *          AND DIRECTORY RESPECTIVELY. THE DEFAULT  *                   
$NOTE   *          NAMES ARE SRTL52NH AND SRTD52NH.         *                   
$NOTE   *                                                   *                   
$NOTE   *    4 - THE FOURTH PARAMETER SPECIFIES WEATHER OR  *                   
$NOTE   *        NOT LISTED OUTPUT WILL BE GENERATED. THE   *                   
$NOTE   *        DEFAULT IS TO NOT GENERATE LISTED OUTPUT.  *                   
$NOTE   *        IF LISTED OUTPUT IS TO BE GENERATED, THE   *                   
$NOTE   *        $JOB COMMAND LINE MUST HAVE SLO=5000       *                   
$NOTE   *        APPENDED TO IT TO ALLOW ENOUGH DISC SPACE  *                   
$NOTE   *        FOR THE GENERATED OUTPUT. USE PRINT OR     *                   
$NOTE   *        NOPRINT TO SPECIFY YOUR CHOICE.            *                   
$NOTE   *                                                   *                   
$NOTE   *    5 - THIS PARAMETER ALLOWS FOR RETENTION OF THE *                   
$NOTE   *        SOURCE AND OBJECT FILES. THE DEFAULT IS TO *                   
$NOTE   *        SCRATCH THE SOURCE AND OBJECT FILES FROM   *                   
$NOTE   *        THE SYSTEM. USE SCR OR NOSCR TO SPECIFY    *                   
$NOTE   *        YOUR CHOICE.                               *                   
$NOTE   *                                                   *                   
$NOTE   *****************************************************                   
$PAGE 0                                                                         
$CHANGE DIRECTORY=@SYSTEM^SYSTEM                                                
$NOTE                                                                           
$NOTE  THE CATALOGER (CATALOG) IS NOW BEING BUILT.                              
$NOTE                                                                           
$VOLMGR CREATE F @SYSTEM(OBJECT)OJ.CATL SIZE=70 REPL=Y                          
$IFT %NOPRINT EQ PRINT YPRINT                                                   
$OPTION 1 4                                                                     
$DEFNAME YPRINT                                                                 
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.CATL BLOC=Y                                    
$AS BO TO @SYSTEM(OBJECT)OJ.CATL BLOC=Y                                         
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                       
$AS PRE TO DEV=NU                                                               
$ASSEMBLE                                                                       
$IFT ABORT NOCAT                                                                
$ALLOCATE 20000                                                                 
$AS SGO TO @SYSTEM(OBJECT)OJ.CATL BLOC=Y                                        
$OPTI 15                                                                        
$CATALOG                                                                        
ALLOCATE 8000                                                                   
AS LIS TO @SYSTEM(SYSTEM)MPXLIB BLOC=N                                          
AS LID TO @SYSTEM(SYSTEM)MPXDIR BLOC=N                                          
AS SYC TO SYC                                                                   
AS SLO TO SLO                                                                   
AS SGO TO SGO                                                                   
AS AID TO TEMP SIZE=500 BLOC=N                                                  
ENVIRONMENT MULTICOPY,NOMAPOUT                                                  
EXTDMPX MAXADDR,NOTSA                                                           
OPTION PROMPT                                                                   
FILES 220                                                                       
BUFFERS 3                                                                       
CATALOG CATALOG                                                                 
$IFF ABORT END                                                                  
$DEFN NOCAT                                                                     
$NOTE  SOURCE MODULE SJ.CATL ABORTED                                            
$GOTO EOJ                                                                       
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  THE MACRO ASSEMBLER (ASSEMBLE) IS NOW BEING BUILT.                       
$NOTE                                                                           
$VOLMGR CREATE F @SYSTEM(OBJECT)OJ.ASSM SIZE=68 REPL=Y                          
$IFT %NOPRINT EQ PRINT YPRINT                                                   
$OPTION 1 4                                                                     
$DEFNAME YPRINT                                                                 
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.ASSM BLOC=Y                                    
$AS BO TO @SYSTEM(OBJECT)OJ.ASSM BLOC=Y                                         
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                       
$AS PRE TO DEV=NU                                                               
$ASSEMBLE                                                                       
$IFT ABORT NOCAT                                                                
$ALLOCATE 34000                                                                 
$AS SGO TO @SYSTEM(OBJECT)OJ.ASSM BLOC=Y                                        
$OPTI 15                                                                        
$CATALOG                                                                        
AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                        
AS BO TO SBO                                                                    
AS LO TO SLO                                                                    
AS SI TO SYC                                                                    
AS GO TO SGO                                                                    
AS UT1 TO TEMP BLOC=Y SIZE=800                                                  
AS UT2 TO TEMP BLOC=N SIZE=400                                                  
BUFFERS 6                                                                       
FILES 10                                                                        
OPTION 5 PROMPT                                                                 
ENVIRONMENT MULTICOPY,NOMAPOUT                                                  
EXTDMPX MAXADDR,NOTSA                                                           
ALLOCATE A000                                                                   
CATALOG ASSEMBLE                                                                
$IFF ABORT END                                                                  
$DEFN NOCAT                                                                     
$NOTE  SOURCE MODULE SJ.ASSM ABORTED                                            
$GOTO EOJ                                                                       
$DEFN END                                                                       
$NOTE  THE CATALOGER (CATALOG) IS NOW BEING REBUILT WITH                        
$NOTE  THE UPDATED VERSIONS OF THE CATALOGER AND ASSEMBLER.                     
$NOTE                                                                           
$VOLMGR CREATE F @SYSTEM(OBJECT)OJ.CATL SIZE=70 REPL=Y                          
$IFT %NOPRINT EQ PRINT YPRINT                                                   
$OPTION 1 4                                                                     
$DEFNAME YPRINT                                                                 
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.CATL BLOC=Y                                    
$AS BO TO @SYSTEM(OBJECT)OJ.CATL BLOC=Y                                         
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                       
$ASSEMBLE                                                                       
$IFT ABORT NOCAT                                                                
$ALLOCATE 20000                                                                 
$AS SGO TO @SYSTEM(OBJECT)OJ.CATL BLOC=Y                                        
$OPTI 15                                                                        
$CATALOG                                                                        
ALLOCATE 8000                                                                   
AS LIS TO @SYSTEM(SYSTEM)MPXLIB BLOC=N                                          
AS LID TO @SYSTEM(SYSTEM)MPXDIR BLOC=N                                          
AS SYC TO SYC                                                                   
AS SLO TO SLO                                                                   
AS SGO TO SGO                                                                   
AS AID TO TEMP SIZE=500 BLOC=N                                                  
ENVIRONMENT MULTICOPY,NOMAPOUT                                                  
OPTION PROMPT                                                                   
EXTDMPX MAXADDR,NOTSA                                                           
FILES 220                                                                       
BUFFERS 3                                                                       
CATALOG CATALOG                                                                 
$IFF ABORT END                                                                  
$DEFN NOCAT                                                                     
$NOTE  SOURCE MODULE SJ.CATL ABORTED                                            
$GOTO EOJ                                                                       
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  THE MACRO ASSEMBLER (ASSEMBLE) IS NOW BEING REBUILT                      
$NOTE  WITH THE UPDATED VERSIONS OF CATALOG AND ASSEMBLE.                       
$NOTE                                                                           
$VOLMGR CREATE F @SYSTEM(OBJECT)OJ.ASSM SIZE=68 REPL=Y                          
$IFT %NOPRINT EQ PRINT YPRINT                                                   
$OPTION 1 4                                                                     
$DEFNAME YPRINT                                                                 
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.ASSM BLOC=Y                                    
$AS BO TO @SYSTEM(OBJECT)OJ.ASSM BLOC=Y                                         
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                       
$ASSEMBLE                                                                       
$IFT ABORT NOCAT                                                                
$ALLOCATE 34000                                                                 
$AS SGO TO @SYSTEM(OBJECT)OJ.ASSM BLOC=Y                                        
$OPTI 15                                                                        
$CATALOG                                                                        
AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                        
AS BO TO SBO                                                                    
AS LO TO SLO                                                                    
AS SI TO SYC                                                                    
AS GO TO SGO                                                                    
AS UT1 TO TEMP BLOC=Y SIZE=800                                                  
AS UT2 TO TEMP BLOC=N SIZE=400                                                  
BUFFERS 6                                                                       
FILES 10                                                                        
OPTION 5 PROMPT                                                                 
ENVIRONMENT MULTICOPY,NOMAPOUT                                                  
EXTDMPX MAXADDR,NOTSA                                                           
ALLOCATE A000                                                                   
CATALOG ASSEMBLE                                                                
$IFF ABORT END                                                                  
$DEFN NOCAT                                                                     
$NOTE  SOURCE MODULE SJ.ASSM ABORTED                                            
$GOTO EOJ                                                                       
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  THE DATAPOOL EDITOR (DPEDIT) IS NOW BEING BUILT.                         
$NOTE                                                                           
$VOLMGR CREATE F @SYSTEM(OBJECT)OJ.DPED SIZE=24 REPL=Y                          
$IFT %NOPRINT EQ PRINT YPRINT                                                   
$OPTION 1 4                                                                     
$DEFNAME YPRINT                                                                 
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.DPED BLOC=Y                                    
$AS BO TO @SYSTEM(OBJECT)OJ.DPED BLOC=Y                                         
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                       
$ASSEMBLE                                                                       
$IFT ABORT NOCAT                                                                
$ALLOCATE 20000                                                                 
$AS SGO TO @SYSTEM(OBJECT)OJ.DPED BLOC=Y                                        
$OPTI 15                                                                        
$CATALOG                                                                        
AS SYC TO SYC                                                                   
AS LO TO LFC=UT                                                                 
AS ER TO LFC=LO                                                                 
AS U1 TO TEMP BLOC=N                                                            
AS XU1 TO LFC=U1                                                                
OPTION PROMPT                                                                   
FILES 6                                                                         
BUFFERS 5                                                                       
ENVIRONMENT MULTICOPY,NOMAPOUT                                                  
EXTDMPX MINADDR,NOTSA                                                           
CATALOG DPEDIT                                                                  
$IFF ABORT END                                                                  
$DEFN NOCAT                                                                     
$NOTE  SOURCE MODULE SJ.DPED ABORTED                                            
$GOTO EOJ                                                                       
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  THE TEXT EDITOR (EDIT) IS NOW BEING BUILT.                               
$NOTE                                                                           
$VOLMGR CREATE F @SYSTEM(OBJECT)OJ.EDIT SIZE=98 REPL=Y                          
$IFT %NOPRINT EQ PRINT YPRINT                                                   
$OPTION 1 4                                                                     
$DEFNAME YPRINT                                                                 
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.EDIT BLOC=Y                                    
$AS BO TO @SYSTEM(OBJECT)OJ.EDIT BLOC=Y                                         
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                       
$ASSEMBLE                                                                       
$IFT ABORT NOCAT                                                                
$ALLOCATE 20000                                                                 
$AS SGO TO @SYSTEM(OBJECT)OJ.EDIT BLOC=Y                                        
$OPTI 15                                                                        
$CATALOG                                                                        
FILES 10                                                                        
BUFFERS 8                                                                       
OPTION CPUO LOWER                                                               
ENVI SHARED,NOMAPOUT                                                            
EXTDMPX MINADDR,NOTSA                                                           
AS TIN TO LFC=UT                                                                
AS TOT TO LFC=UT                                                                
CATALOG EDIT                                                                    
$IFF ABORT END                                                                  
$DEFN NOCAT                                                                     
$NOTE  SOURCE MODULE SJ.EDIT ABORTED                                            
$GOTO EOJ                                                                       
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  THE SUBROUTINE LIBRARY EDITOR (LIBED) IS NOW BEING BUILT.                
$NOTE                                                                           
$VOLMGR CREATE F @SYSTEM(OBJECT)OJ.LIBED SIZE=42 REPL=Y                         
$IFT %NOPRINT EQ PRINT YPRINT                                                   
$OPTION 1 4                                                                     
$DEFNAME YPRINT                                                                 
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.LIBED BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.LIBED BLOC=Y                                        
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                       
$ASSEMBLE                                                                       
$IFT ABORT NOCAT                                                                
$ALLOCATE 20000                                                                 
$AS SGO TO @SYSTEM(OBJECT)OJ.LIBED BLOC=Y                                       
$OPTI 15                                                                        
$CATALOG                                                                        
AS LLO TO LFC=UT                                                                
AS CTL TO SYC                                                                   
AS LGO TO SGO                                                                   
BUFFERS 7                                                                       
FILES 7                                                                         
OPTION PROMPT                                                                   
EXTDMPX MINADDR,NOTSA                                                           
ENVIRONMENT MULTICOPY,NOMAPOUT                                                  
CATALOG LIBED                                                                   
$IFF ABORT END                                                                  
$DEFN NOCAT                                                                     
$NOTE  SOURCE MODULE SJ.LIBED ABORTED                                           
$GOTO EOJ                                                                       
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  THE MACRO LIBRARY EDITOR (MACLIBR) IS NOW BEING BUILT.                   
$NOTE                                                                           
$VOLMGR                                                                         
CREATE F @SYSTEM(OBJECT)OJ.MACLE SIZE=20 REPL=Y                                 
CREATE F @SYSTEM(OBJECT)OJ.MACLS SIZE=20 REPL=Y                                 
CREATE F @SYSTEM(SYSTEM)MAC.LIB REPL=Y                                          
CREATE F @SYSTEM(SYSTEM)MAC.DIR REPL=Y                                          
$IFT %NOPRINT EQ PRINT YPRINT                                                   
$OPTION 1 3 4                                                                   
$DEFNAME YPRINT                                                                 
$OPTION 13 15 17                                                                
$AS SI TO @SYSTEM(UTILINSTALL)SJ.MACLE BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.MACLE BLOC=Y                                        
$%FORT52NH                                                                      
$IFT ABORT NOCAT                                                                
$IFT %NOPRINT EQ PRINT NPRINT                                                   
$OPTION 1                                                                       
$DEFNAME NPRINT                                                                 
$OPTION 14 15                                                                   
$AS SI TO @SYSTEM(UTILINSTALL)SJ.MACLS                                          
$AS BO TO @SYSTEM(OBJECT)OJ.MACLS                                               
$ASSEMBLE                                                                       
$IFT ABORT NOCAT                                                                
$AS LGO TO @SYSTEM(OBJECT)OJ.MACLS                                              
$AS LIB TO @SYSTEM(SYSTEM)MAC.LIB                                               
$AS DIR TO @SYSTEM(SYSTEM)MAC.DIR                                               
$OPTION 1                                                                       
$LIBED                                                                          
$IFT ABORT NOCAT                                                                
$ALLOCATE 16000                                                                 
$AS SGO TO @SYSTEM(OBJECT)OJ.MACLE BLOC=Y                                       
$NOTE                                                                           
$NOTE    LIBRARIES FOR NATIVE MODE SERVICE                                      
$NOTE                                                                           
$AS LIS TO @SYSTEM(SYSTEM)%SRTL52NH BLOC=N                                      
$AS LID TO @SYSTEM(SYSTEM)%SRTD52NH BLOC=N                                      
$AS LIB TO @SYSTEM(SYSTEM)MAC.LIB                                               
$AS DIR TO @SYSTEM(SYSTEM)MAC.DIR                                               
$OPTION 15                                                                      
$CATALOG                                                                        
ENVIRONMENT MULTICOPY,NOMAPOUT                                                  
AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                        
AS DIR TO SYC                                                                   
AS SI TO SYC                                                                    
AS LO TO LFC=UT                                                                 
BUFFERS 4                                                                       
FILES 6                                                                         
EXTDMPX MINADDR,NOTSA                                                           
OPTION PROMPT                                                                   
CATALOG MACLIBR                                                                 
$IFF ABORT END                                                                  
$DEFN NOCAT                                                                     
$NOTE  SOURCE MODULE SJ.MACLE ABORTED                                           
$GOTO EOJ                                                                       
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  THE MEDIA CONVERSION UTILITY (MEDIA) IS NOW BEING BUILT.                 
$NOTE                                                                           
$VOLMGR CREATE F @SYSTEM(OBJECT)OJ.MEDIA SIZE=18 REPL=Y                         
$IFT %NOPRINT EQ PRINT YPRINT                                                   
$OPTION 1 4                                                                     
$DEFNAME YPRINT                                                                 
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.MEDIA BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.MEDIA BLOC=Y                                        
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                       
$ASSEMBLE                                                                       
$IFT ABORT NOCAT                                                                
$ALLOCATE 20000                                                                 
$AS SGO TO @SYSTEM(OBJECT)OJ.MEDIA BLOC=Y                                       
$OPTI 15                                                                        
$CATALOG                                                                        
ENVIRONMENT MULTICOPY,NOMAPOUT                                                  
EXTDMPX MINADDR,NOTSA                                                           
AS *IN TO SYC                                                                   
AS *OT TO LFC=UT                                                                
OPTION PROMPT                                                                   
CATALOG MEDIA                                                                   
$IFF ABORT END                                                                  
$DEFN NOCAT                                                                     
$NOTE  SOURCE MODULE SJ.MEDIA ABORTED                                           
$GOTO EOJ                                                                       
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  THE SOURCE UPDATE UTILITY (UPDATE) IS NOW BEING BUILT.                   
$NOTE                                                                           
$VOLMGR CREATE F @SYSTEM(OBJECT)OJ.UPDAT SIZE=24 REPL=Y                         
$IFT %NOPRINT EQ PRINT YPRINT                                                   
$OPTION 1 4                                                                     
$DEFNAME YPRINT                                                                 
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.UPDAT BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.UPDAT BLOC=Y                                        
$AS MAC TO @SYSTEM(SYSTEM)M.MPXMAC BLOC=N                                       
$ASSEMBLE                                                                       
$IFT ABORT NOCAT                                                                
$ALLOCATE 20000                                                                 
$AS SGO TO @SYSTEM(OBJECT)OJ.UPDAT BLOC=Y                                       
$OPTI 15                                                                        
$CATALOG                                                                        
FILES 8                                                                         
BUFFERS 8                                                                       
ENVIRONMENT MULTICOPY,NOMAPOUT                                                  
EXTDMPX MINADDR,NOTSA                                                           
AS SYC TO SYC                                                                   
AS UTY TO TEMP BLOC=Y                                                           
AS LO TO LFC=UT                                                                 
OPTION PROMPT TEXT                                                              
CATALOG UPDATE                                                                  
$IFF ABORT CATGOOD                                                              
$NOTE                                                                           
$NOTE CATALOG FAILED                                                            
$GOTO EOJ                                                                       
$DEFN CATGOOD                                                                   
$NOTE                                                                           
$NOTE  CATALOG COMPLETED NORMALLY                                               
$NOTE                                                                           
$NOTE  CREATE AS.ERR USER/PRODUCT ERROR FILE                                    
$VOLMGR                                                                         
CREATE @SYSTEM(OBJECT)OJ.AS.ER SIZE=20 ZERO=Y REPL=Y                            
EXIT                                                                            
$NOTE                                                                           
$NOTE  ASSEMBLE                                                                 
$OPTI 1 4                                                                       
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.AS.ER BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.AS.ER BLOC=Y                                        
$ASSEMBLE                                                                       
$IFF ABORT ASGOOD                                                               
$NOTE                                                                           
$NOTE  ASSEMBLY FAILED                                                          
$GOTO END                                                                       
$DEFN ASGOOD                                                                    
$NOTE                                                                           
$NOTE  ASSEMBLY COMPLETED NORMALLY                                              
$NOTE                                                                           
$NOTE  CATALOG AS.ERR                                                           
$OPTI 15                                                                        
$AS SGO TO @SYSTEM(OBJECT)OJ.AS.ER BLOC=Y                                       
$CATALOG                                                                        
CATALOG AS.ERR                                                                  
$IFF ABORT CATGOOD                                                              
$NOTE                                                                           
$NOTE  CATALOG FAILED                                                           
$GOTO EOJ                                                                       
$DEFN CATGOOD                                                                   
$NOTE                                                                           
$NOTE  CATALOG COMPLETED NORMALLY                                               
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  CREATE CT.ERR USER/PRODUCT ERROR FILE                                    
$VOLMGR                                                                         
CREATE @SYSTEM(OBJECT)OJ.CT.ER SIZE=20 ZERO=Y REPL=Y                            
EXIT                                                                            
$NOTE                                                                           
$NOTE  ASSEMBLE                                                                 
$OPTI 1 4                                                                       
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.CT.ER BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.CT.ER BLOC=Y                                        
$ASSEMBLE                                                                       
$IFF ABORT ASGOOD                                                               
$NOTE                                                                           
$NOTE  ASSEMBLY FAILED                                                          
$GOTO EOJ                                                                       
$DEFN ASGOOD                                                                    
$NOTE                                                                           
$NOTE  ASSEMBLY COMPLETED NORMALLY                                              
$NOTE                                                                           
$NOTE  CATALOG CT.ERR                                                           
$OPTI 15                                                                        
$AS SGO TO @SYSTEM(OBJECT)OJ.CT.ER BLOC=Y                                       
$CATALOG                                                                        
CATALOG CT.ERR                                                                  
$IFF ABORT CATGOOD                                                              
$NOTE                                                                           
$NOTE  CATALOG FAILED                                                           
$GOTO EOJ                                                                       
$DEFN CATGOOD                                                                   
$NOTE                                                                           
$NOTE  CATALOG COMPLETED NORMALLY                                               
$DEFN END                                                                       
$NOTE  CREATE DP.ERR USER/PRODUCT ERROR FILE                                    
$VOLMGR                                                                         
CREATE @SYSTEM(OBJECT)OJ.DP.ER SIZE=20 ZERO=Y REPL=Y                            
EXIT                                                                            
$NOTE                                                                           
$NOTE  ASSEMBLE                                                                 
$OPTI 1 4                                                                       
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.DP.ER BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.DP.ER BLOC=Y                                        
$ASSEMBLE                                                                       
$IFF ABORT ASGOOD                                                               
$NOTE                                                                           
$NOTE  ASSEMBLY FAILED                                                          
$GOTO EOJ                                                                       
$DEFN ASGOOD                                                                    
$NOTE                                                                           
$NOTE  ASSEMBLY COMPLETED NORMALLY                                              
$NOTE                                                                           
$NOTE  CATALOG DP.ERR                                                           
$OPTI 15                                                                        
$AS SGO TO @SYSTEM(OBJECT)OJ.DP.ER BLOC=Y                                       
$CATALOG                                                                        
CATALOG DP.ERR                                                                  
$IFF ABORT CATGOOD                                                              
$NOTE                                                                           
$NOTE  CATALOG FAILED                                                           
$GOTO EOJ                                                                       
$DEFN CATGOOD                                                                   
$NOTE                                                                           
$NOTE  CATALOG COMPLETED NORMALLY                                               
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  CREATE ED.ERR USER/PRODUCT ERROR FILE                                    
$VOLMGR                                                                         
CREATE @SYSTEM(OBJECT)OJ.ED.ER SIZE=20 ZERO=Y REPL=Y                            
EXIT                                                                            
$NOTE                                                                           
$NOTE  ASSEMBLE                                                                 
$OPTI 1 4                                                                       
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.ED.ER BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.ED.ER BLOC=Y                                        
$ASSEMBLE                                                                       
$IFF ABORT ASGOOD                                                               
$NOTE                                                                           
$NOTE  ASSEMBLY FAILED                                                          
$GOTO EOJ                                                                       
$DEFN ASGOOD                                                                    
$NOTE                                                                           
$NOTE  ASSEMBLY COMPLETED NORMALLY                                              
$NOTE                                                                           
$NOTE  CATALOG ED.ERR                                                           
$OPTI 15                                                                        
$AS SGO TO @SYSTEM(OBJECT)OJ.ED.ER BLOC=Y                                       
$CATALOG                                                                        
CATALOG ED.ERR                                                                  
$IFF ABORT CATGOOD                                                              
$NOTE                                                                           
$NOTE  CATALOG FAILED                                                           
$GOTO EOJ                                                                       
$DEFN CATGOOD                                                                   
$NOTE                                                                           
$NOTE  CATALOG COMPLETED NORMALLY                                               
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  CREATE LE.ERR USER/PRODUCT ERROR FILE                                    
$VOLMGR                                                                         
CREATE @SYSTEM(OBJECT)OJ.LE.ER SIZE=20 ZERO=Y REPL=Y                            
EXIT                                                                            
$NOTE                                                                           
$NOTE  ASSEMBLE                                                                 
$OPTI 1 4                                                                       
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.LE.ER BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.LE.ER BLOC=Y                                        
$ASSEMBLE                                                                       
$IFF ABORT ASGOOD                                                               
$NOTE                                                                           
$NOTE  ASSEMBLY FAILED                                                          
$GOTO EOJ                                                                       
$DEFN ASGOOD                                                                    
$NOTE                                                                           
$NOTE  ASSEMBLY COMPLETED NORMALLY                                              
$NOTE                                                                           
$NOTE  CATALOG LE.ERR                                                           
$OPTI 15                                                                        
$AS SGO TO @SYSTEM(OBJECT)OJ.LE.ER BLOC=Y                                       
$CATALOG                                                                        
CATALOG LE.ERR                                                                  
$IFF ABORT CATGOOD                                                              
$NOTE                                                                           
$NOTE  CATALOG FAILED                                                           
$GOTO EOJ                                                                       
$DEFN CATGOOD                                                                   
$NOTE                                                                           
$NOTE  CATALOG COMPLETED NORMALLY                                               
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  CREATE MD.ERR USER/PRODUCT ERROR FILE                                    
$VOLMGR                                                                         
CREATE @SYSTEM(OBJECT)OJ.MD.ER SIZE=20 ZERO=Y REPL=Y                            
EXIT                                                                            
$NOTE                                                                           
$NOTE  ASSEMBLE                                                                 
$OPTI 1 4                                                                       
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.MD.ER BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.MD.ER BLOC=Y                                        
$ASSEMBLE                                                                       
$IFF ABORT ASGOOD                                                               
$NOTE                                                                           
$NOTE  ASSEMBLY FAILED                                                          
$GOTO EOJ                                                                       
$DEFN ASGOOD                                                                    
$NOTE                                                                           
$NOTE  ASSEMBLY COMPLETED NORMALLY                                              
$NOTE                                                                           
$NOTE  CATALOG MD.ERR                                                           
$OPTI 15                                                                        
$AS SGO TO @SYSTEM(OBJECT)OJ.MD.ER BLOC=Y                                       
$CATALOG                                                                        
CATALOG MD.ERR                                                                  
$IFF ABORT CATGOOD                                                              
$NOTE                                                                           
$NOTE  CATALOG FAILED                                                           
$GOTO EOJ                                                                       
$DEFN CATGOOD                                                                   
$NOTE                                                                           
$NOTE  CATALOG COMPLETED NORMALLY                                               
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  CREATE ME.ERR USER/PRODUCT ERROR FILE                                    
$VOLMGR                                                                         
CREATE @SYSTEM(OBJECT)OJ.ME.ER SIZE=20 ZERO=Y REPL=Y                            
EXIT                                                                            
$NOTE                                                                           
$NOTE  ASSEMBLE                                                                 
$OPTI 1 4                                                                       
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.ME.ER BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.ME.ER BLOC=Y                                        
$ASSEMBLE                                                                       
$IFF ABORT ASGOOD                                                               
$NOTE                                                                           
$NOTE  ASSEMBLY FAILED                                                          
$GOTO EOJ                                                                       
$DEFN ASGOOD                                                                    
$NOTE                                                                           
$NOTE  ASSEMBLY COMPLETED NORMALLY                                              
$NOTE                                                                           
$NOTE  CATALOG ME.ERR                                                           
$OPTI 15                                                                        
$AS SGO TO @SYSTEM(OBJECT)OJ.ME.ER BLOC=Y                                       
$CATALOG                                                                        
CATALOG ME.ERR                                                                  
$IFF ABORT CATGOOD                                                              
$NOTE                                                                           
$NOTE  CATALOG FAILED                                                           
$GOTO EOJ                                                                       
$DEFN CATGOOD                                                                   
$NOTE                                                                           
$NOTE  CATALOG COMPLETED NORMALLY                                               
$DEFN END                                                                       
$NOTE                                                                           
$NOTE  CREATE UD.ERR USER/PRODUCT ERROR FILE                                    
$VOLMGR                                                                         
CREATE @SYSTEM(OBJECT)OJ.UD.ER SIZE=20 ZERO=Y REPL=Y                            
EXIT                                                                            
$NOTE                                                                           
$NOTE  ASSEMBLE                                                                 
$OPTI 1 4                                                                       
$OPTI 14 15                                                                     
$AS SI TO @SYSTEM(UTILINSTALL)SJ.UD.ER BLOC=Y                                   
$AS BO TO @SYSTEM(OBJECT)OJ.UD.ER BLOC=Y                                        
$ASSEMBLE                                                                       
$IFF ABORT ASGOOD                                                               
$NOTE                                                                           
$NOTE  ASSEMBLY FAILED                                                          
$DEFN ASGOOD                                                                    
$NOTE                                                                           
$NOTE  ASSEMBLY COMPLETED NORMALLY                                              
$NOTE                                                                           
$NOTE  CATALOG UD.ERR                                                           
$OPTI 15                                                                        
$AS SGO TO @SYSTEM(OBJECT)OJ.UD.ER BLOC=Y                                       
$CATALOG                                                                        
CATALOG UD.ERR                                                                  
$IFF ABORT CATGOOD                                                              
$NOTE                                                                           
$NOTE  CATALOG FAILED                                                           
$GOTO EOJ                                                                       
$DEFN CATGOOD                                                                   
$NOTE                                                                           
$NOTE  CATALOG COMPLETED NORMALLY                                               
$DEFN END                                                                       
$IFT %NOSCR EQ SCR SKIP                                                         
$GOTO ENDIT                                                                     
$DEFN SKIP                                                                      
$VOLMGR                                                                         
DELETE @SYSTEM(UTILINSTALL)SJ.ASSM                                              
DELETE @SYSTEM(UTILINSTALL)SJ.CATL                                              
DELETE @SYSTEM(UTILINSTALL)SJ.DPED                                              
DELETE @SYSTEM(UTILINSTALL)SJ.EDIT                                              
DELETE @SYSTEM(UTILINSTALL)SJ.FMGR                                              
DELETE @SYSTEM(UTILINSTALL)SJ.LIBED                                             
DELETE @SYSTEM(UTILINSTALL)SJ.MACLE                                             
DELETE @SYSTEM(UTILINSTALL)SJ.MEDIA                                             
DELETE @SYSTEM(UTILINSTALL)SJ.UPDAT                                             
DELETE @SYSTEM(UTILINSTALL)SJ.AS.ER                                             
DELETE @SYSTEM(UTILINSTALL)SJ.CT.ER                                             
DELETE @SYSTEM(UTILINSTALL)SJ.DP.ER                                             
DELETE @SYSTEM(UTILINSTALL)SJ.ED.ER                                             
DELETE @SYSTEM(UTILINSTALL)SJ.FM.ER                                             
DELETE @SYSTEM(UTILINSTALL)SJ.LE.ER                                             
DELETE @SYSTEM(UTILINSTALL)SJ.MD.ER                                             
DELETE @SYSTEM(UTILINSTALL)SJ.ME.ER                                             
DELETE @SYSTEM(UTILINSTALL)SJ.UD.ER                                             
DELETE @SYSTEM(OBJECT)OJ.ASSM                                                   
DELETE @SYSTEM(OBJECT)OJ.CATL                                                   
DELETE @SYSTEM(OBJECT)OJ.DPED                                                   
DELETE @SYSTEM(OBJECT)OJ.EDIT                                                   
DELETE @SYSTEM(OBJECT)OJ.FMGR                                                   
DELETE @SYSTEM(OBJECT)OJ.LIBED                                                  
DELETE @SYSTEM(OBJECT)OJ.MACLE                                                  
DELETE @SYSTEM(OBJECT)OJ.MEDIA                                                  
DELETE @SYSTEM(OBJECT)OJ.UPDAT                                                  
DELETE @SYSTEM(OBJECT)OJ.AS.ER                                                  
DELETE @SYSTEM(OBJECT)OJ.CT.ER                                                  
DELETE @SYSTEM(OBJECT)OJ.DP.ER                                                  
DELETE @SYSTEM(OBJECT)OJ.ED.ER                                                  
DELETE @SYSTEM(OBJECT)OJ.FM.ER                                                  
DELETE @SYSTEM(OBJECT)OJ.LE.ER                                                  
DELETE @SYSTEM(OBJECT)OJ.MD.ER                                                  
DELETE @SYSTEM(OBJECT)OJ.ME.ER                                                  
DELETE @SYSTEM(OBJECT)OJ.UD.ER                                                  
DELETE D @SYSTEM^UTILINSTALL                                                    
EXIT                                                                            
$NOTE                                                                           
$NOTE  ALL THE OBJECT, SOURCE FILES AND UTILINSTALL DIRECTORY HAVE              
$NOTE  BEEN REMOVED FROM THE SYSTEM.                                            
$NOTE                                                                           
$DEFNAME ENDIT                                                                  
$NOTE ------------------------------------------------------------------        
$NOTE |                                                                |        
$NOTE |       MPX-32 UTILITIES 3.2 SOURCE PROCESSING COMPLETED         |        
$NOTE |                                                                |        
$NOTE |                  INSTALLATION SUCCESSFUL !!!                   |        
$NOTE |                                                                |        
$NOTE ------------------------------------------------------------------        
$GOTO END                                                                       
$DEFN EOJ                                                                       
$NOTE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>        
$NOTE                                                                           
$NOTE               SOURCE PROCESSING ABORTED !!!                               
$NOTE                                                                           
$NOTE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>         
$DEFN END                                                                       
$EOJ                                                                            
$$                                                                              
