QU3 
.PROC,QU3*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMX1 
*CALL COMXOPL 
*CALL COMPROC 
. 
  
* QU3 - QUERY UPDATE 3.4
*CALL     PSRLEV
* 
  
.*****  QU3 
.*
.*   QU V3.4 IS ALWAYS INSTALLED WITH THE SORT5 INTERFACE.
.*
  
  
.*
.*  START QU3 VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,QU3,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        QU3. 
EXIT. 
REVERT(ABORT)  QU3. 
  
  
.DATA,ZZZPROC 
.PROC,QU3.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=QU31,#PN=PN,#PR=PR,DISK=0)
SKIPEI(USER)
NOTE(USER,NR);*IDENT NOS;*DEFINE,NOS
NOTE(USER,NR);*PURGE SORT5
NOTE(USER,NR);*IDENT SORT5;*DEFINE SORT5
PACK(USER)
BEGIN(PRDAUX,INSTALL,PRDNAME=DDL3,#PNO=PN1,#PRO=PR1)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=QU3,NUMAUX=1)
RFL(77000)
NOTE(IN);*COMPILE,SYNGEN
UPDATE(P=AUXPL,Q,C=SYNG,I=IN) 
BEGIN(PRDAUX,INSTALL,PRDNAME=OPL,#PNO=PN99,#PRO=PR99) 
RENAME(OPL=AUXPL) 
SYMPL(ET=T,I=SYNG,B=SYNGE,L=LIST) 
COMPASS(A,I=SYNG,S=PSSTEXT,S=IOTEXT,B=SYNGE,L=LIST) 
BEGIN(GETULIB,INSTALL,DMSLIB,BAMLIB,SYMLIB,SRT5LIB,FORTRAN,SYSLIB)
LDSET(OMIT=QDUMMY)
LDSET(LIB=BAMLIB,ERR=ALL,PRESET=ZERO) 
LOAD(SYNGE) ABSOLUTE WRITTEN TO SYNGEN
NOGO(SYNGEN)
RETURN(SYNG,SYNGE)
*     COMPILE SYMPL TEXTS 
SYMPL(ET=T,I,B=TXT1,L=LIST) 
SYMPL(ET=T,I,Y=TXT1,B=TXT2,L=LIST)
REWIND(TXT1,TXT2) 
COPYL(TXT1,TXT2,NEWTXT,,AR) 
RETURN(TXT1,TXT2) 
REWIND(NEWTXT)
COMPASS(A,I,S=PSSTEXT,S=NOSTEXT,S=SYSTEXT,S=IPTEXT,S=IOTEXT,S=LDRTEXT,
,S=CPUTEXT,L=LIST)
SYMPL(ET=T,I,Y=NEWTXT,L=LIST) 
RETURN(NEWTXT)
REDUCE(-) 
SYNGEN(I=COMPILE,O=OUT,C=11,L=0)
SYMPL(ET=T,I=OUT,L=LIST)
COMPASS(A,I,S=CPUTEXT,B=QUGEN,L=LIST) 
QUGEN(IMAGE)
REWIND(IMAGE,LGO) 
COPYLM(IMAGE,LGO,REL) 
*      ACQUIRE DBU BINARIES 
ATTACH(DBUBIN)
GTR(DBUBIN,LIBX,,NR,S)REL/DF$LOG-REL/DF$PMSG
GTR(DBUBIN,DFRCV,,NR,S)ABS/DFRCV
UNLOAD(DBUBIN)
REWIND(LIBX,DFRCV)
LIBGEN(F=LIBX,P=DBULIB,N=DBULIB,NX=1) 
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(REL) 
NOGO(QU)
RETURN(DBULIB)
RETURN(REL,LGO) 
COMPASS(A,I,S=IOTEXT,S=CPUTEXT,B=LIB,L=LIST)
REWIND(QU)
GTR(QU,LIB,,NR,S)CAP/*
REWIND(QU)
GTR(QU,LGO,,NR,S)ABS/*,OVL/*
GTR(DFRCV,LGO,,NR,S)ABS/* 
RETURN(COMPILE) 
REDUCE. 
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=DMSLIB) 
BEGIN(GENDIR,INSTALL,LIB=47)
BEGIN(SAVELGO,INSTALL,PRDNAME=QU31) 
BEGIN(PRDOUT,INSTALL,PRDNAME=QU31,#PNO=PNO,#PRO=PRO)
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  QU3. 
EXIT. 
REVERT(ABORT)  QU3. 
*WEOR 
