*COMDECK ZEXBUSR1 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*                       NTS USER1 TIP                                 * 
*                                                                     * 
*       EDIT STATEMENTS TO INITIALIZE THE USER1 WORKLIST CONTROL      * 
*       BLOCK AND TIP TYPE TABLE.  THIS USER TIP IS USED TO TEST      * 
*       BISYNC TIP.                                                   * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
_ 
* * * *  WORKLIST CONTROL BLOCK FOR BSC USER1 TIP 
? 
*IF DEF,BSCCF1
_ 
* * * *  WLCB TO TEST BSC MAIN LEVEL TIP
? 
      BYWLCB[ B0L2BSC ].BYPRADDR  := /ENTRY(PU1BSCNTS); 
      BYWLCB[ B0L2BSC ].BYPAGE    := /PGNUM(PU1BSCNTS); 
      BYWLCB[ B0L2BSC ].BYWLINDEX := B0L2BSC; 
      BYWLCB[ B0L2BSC ].BYMAXCNT  := 1; 
      BYWLCB[ B0L2BSC ].BYINC     := 3; 
      BYWLCB[ B0L2BSC ].BYWLREQ   := /TRUE; 
*ENDIF
*IF DEF,BSCCF2
_ 
* * * *  WLCB TO TEST BSC LEVEL 2 
? 
      BYWLCB[ B0MLBSC ].BYPRADDR  := /ENTRY(PU1BSCNTS); 
      BYWLCB[ B0MLBSC ].BYPAGE    := /PGNUM(PU1BSCNTS); 
      BYWLCB[ B0MLBSC ].BYWLINDEX := B0MLBSC; 
      BYWLCB[ B0MLBSC ].BYMAXCNT  := 1; 
      BYWLCB[ B0MLBSC ].BYINC     := 3; 
      BYWLCB[ B0MLBSC ].BYWLREQ   := /TRUE; 
*ENDIF
_ 
* * * *  WLCB INDEX FOR LEVEL 2 INPUT STATE PROGRAM 
? 
      SNTX1  := BYWLCB + ( /BYWSIZE * ( B0L2BSC - 1 ) );
      SNTX2  := BYWLCB + ( /BYWSIZE * ( B0L2BSC - 1 ) );
_ 
* * * *  TIP TYPE TABLE FOR THE NTS USER1 TIP 
? 
      BJTIPTYPT [N0NTS1TT].BJOBT          := /TRUE; 
      BJTIPTYPT [N0NTS1TT].BJBZL          := /FALSE;
      BJTIPTYPT [N0NTS1TT].BJTCBSIZE      := /B0TS5;
      BJTIPTYPT [N0NTS1TT].BJQTYPE        := /B0QNEXTSEG; 
*IF DEF,BSCCF1,1
      BJTIPTYPT [N0NTS1TT].BJLISTIX       := B0L2BSC; 
*IF DEF,BSCCF2,1
      BJTIPTYPT [N0NTS1TT].BJLISTIX       := B0MLBSC; 
      BJTIPTYPT [N0NTS1TT].BJDFTC         := N0M33; 
      BJTIPTYPT [N0NTS1TT].BJJAT [N1CON]  := /ASYCSAT;
      BJTIPTYPT [N0NTS1TT].BJAT           := /ASYLCBAT; 
      BJTIPTYPT [N0NTS1TT].BJIVTSIZE      := BSLFIDLES - BSPGWIDTH + 1; 
  
