*DECK DBSLNXCTX 
USETEXT DBTEXT
PROC NXTCTXT; 
*CALL DEBUGVARS 
*CALL CTEXT 
*CALL CTXTVALS
#THIS PROCEDURE READS THE NEXT CTEXT ATOM GROUP AND SETS UP 
THE GLOBAL VARIABLES -
      STARTDNAT 
      ENDDNAT 
      SELAPTR 
# 
START("NXTCTXT")
ITEM ENDCTXT I;              #FLAG FOR CALLING -GETCTXT-# 
XREF BEGIN
PROC GETCTXT; 
PROC IERR$; 
END 
SETO("ENDCTXT",ENDCTXT,0)    #-GETCTXT- WILL NOT ABORT ON MISMATCH# 
GETCTXT(CTDNREF,STARTDNAT,ENDCTXT); #READ STARTDNAT WITH ENDFLAG# 
IF ENDCTXT NQ 0 
  THENB("NXT CTXT NOT CTDNREF - ASSUME END")
    IF SELAPTR EQ 0 
      THENB("NO DATABASE CTXT") 
      IERR$(L22,ABORT); 
      ELSEB("SOME CTXT READ") 
      SELAPTR=0;
      QUIT
    ENDIF 
ENDIF 
GETCTXT(CTLITERAL,SELAPTR,L25); 
GETCTXT(CTDNREF,ENDDNAT,ENDCTXT);  #MAY BE DNAT PTR OR 88 ITEM INDICATR#
IV$($SET$,"STARTDNAT",STARTDNAT)
IV$($SET$,"ENDDNAT",ENDDNAT)
OV$($SET$,"SELAPTR",SELAPTR)
FINIS("NXTCTXT")
TERM
