*DECK DA$IO 
          IDENT  DE$IO
          ENTRY  DE$OPEN
          ENTRY  DE$GET 
          ENTRY  DE$CLSB
          ENTRY  DE$FTSB
          ENTRY  DE$EOI 
          EXT    DE$ERR 
          EXT    SST
DE$OPEN   DATA   0
          SX4    A1 
          BX6    X4 
          SA6    PARAM
          SA4    A1+1 
          STORE  DE$FTSB,FWB=X4 
          SA1    PARAM
          SA1    X1 
          SA3    A1+2 
          SA3    X3 
          STORE  DE$FTSB,BFS=X3 
          SA1    PARAM
          SA1    X1 
          SA2    X1 
          BX6    X2 
          SX7    1
          BX6    X7+X6
          SA6    DE$FTSB
          SA6    NAMSTOR
          FETCH  DE$FTSB,OC,X4     FETCH OPEN/CLOSE FIELD FROM FIT
          SX5    1                 VALUE OF OPEN STATUS 
          IX5    X5-X4
          NZ     X5,OPENSB         IF NOT OPEN,JUMP 
          RJ     DE$CLSB           FILE STILL OPEN, CLOSE FILE
*OPEN THE SUBSCHEMA FILE
OPENSB    OPENM  DE$FTSB,INPUT,R
          SA2    STSPARM
          BX6    X2 
          SA6    STSPAR 
          SYSTEM STS,RECALL,STSPAR,3S6 CALL STS, FUNCTION 3 
          SA1    STSPAR+2    PICK UP PRU COUNT
          LX1    6           MULTIPLY BY 64 
          BX6    X1 
          SA6    DE$EOI 
          EQ     DE$OPEN
DE$CLSB   DATA   0
          CLOSEM DE$FTSB
          EQ     DE$CLSB
DE$GET    DATA   0
          SA2    A1+2 
          SA3    X2 
          SA4    A1+1 
          SA2    X4 
          SA1    X1 
          SX5    X2 
          LX2    3
          LX5    1
          IX2    X5+X2
          GET    DE$FTSB,X1,X2,,X3
          EQ     DE$GET 
 DE$FTSB  FILE   LFN=SBFILE,LT=UL,RT=U,FO=WA,MRL=100000,EX=DE$ERR,FWB=PA
,RAM,DX=DE$ERR,BFS=1
* 
*    FWB,BFS AND OC SET PRIOR TO OPEN VIA A1 PARAM LIST 
* 
 PARAM    DATA   0
DE$EOI    BSSZ   1
 STSPARM  VFD    24/2,36/0
 STSPAR   BSS    1
NAMSTOR   DATA   0
          DATA   0
          END 
