*COMDECK ZEXUSR 
_?
_*************************************
*                                    *
*  THE FOLLOWING IS THE SOURCE INPUT *
*  FOR APPLICATION UNIQUE STATEMENTS *
*  TO BE EXECUTED FOR THIS SYSTEM    *
*                                    *
*************************************?
_?
*CALL ZAPBLK
*CALL ZEXBIP
*IF DEF,HIP,1 
*CALL ZXHIP 
*CALL SVMZAP
*IF DEF,OLDSYS
*CALL ZETOLD
*ENDIF
*IF DEF,BSC 
*CALL BSCC3 
*ENDIF
*IF DEF,MODE4,1 
*CALL ZEXMD4
*IF DEF,HASPTIP,1 
*CALL ZEXHASP 
*IF DEF,3270TIP,1 
*CALL 3270ZEX 
*CALL,ZEXSYNA 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                   * 
*              COMMON ASYNCHRONOUS TERMINAL CLASS TABLES            * 
*              FOR ASYNCTIP AND X25 PAD SUBTIP                      * 
*                                                                   * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
_ 
*  IVT TERM CHARACTERISTICS FOR TERM CLASS N0M33
? 
      NJTECT[ N0M33   ].NJPGWAIT    := /FALSE;
      NJTECT[ N0M33   ].NJPGWIDTH   := 72;
      NJTECT[ N0M33   ].NJPGLENGTH  :=  0;
      NJTECT[ N0M33   ].NJCANCHAR   := /I31CANCHR;
      NJTECT[ N0M33   ].NJCNTRLCHAR := /I31CNTRLCHR;
      NJTECT[ N0M33   ].NJUSR1      := /I31UB1; 
      NJTECT[ N0M33   ].NJUSR2      := /I31UB2; 
      NJTECT[ N0M33   ].NJXCHAR     := /I31XCHAR; 
      NJTECT[ N0M33   ].NJMXCHAR    := /I31MXCHAR;
      NJTECT[ N0M33   ].NJBSCHAR    := /I31BSCHAR;
      NJTECT[ N0M33   ].NJELCHAR    := /I31ELCHAR;
      NJTECT[ N0M33   ].NJEBCHAR    := /I31EBCHAR;
      NJTECT[ N0M33   ].NJCPEL      := /I31ELPC;
      NJTECT[ N0M33   ].NJCPEB      := /I31EBPC;
      NJTECT[ N0M33   ].NJCURPOS    := /TRUE; 
      NJTECT[ N0M33   ].NJABTBLK    := /I31ABTBLK;
      NJTECT[ N0M33   ].NJXPT       := /FALSE;
      NJTECT[ N0M33   ].NJXCNT      := 2043;
      NJTECT[ N0M33   ].NJCRIDLES   := 2; 
      NJTECT[ N0M33   ].NJLFIDLES   := 1; 
      NJTECT[ N0M33   ].NJINDEV     := B8KEYBOARD;
      NJTECT[ N0M33   ].NJOUTDEV    := B8PRNTR; 
      NJTECT[ N0M33   ].NJXDBCHAR   := /TRUE; 
      NJTECT[ N0M33   ].NJIBFCD     := DATA;
_ 
*  IVT TERM CHARACTERISTICS FOR TERM CLASS N0713
? 
      NJTECT[ N0713   ].NJPGWAIT    := /FALSE;
      NJTECT[ N0713   ].NJPGWIDTH   := 80;
      NJTECT[ N0713   ].NJPGLENGTH  := 24;
      NJTECT[ N0713   ].NJCANCHAR   := /I31CANCHR;
      NJTECT[ N0713   ].NJCNTRLCHAR := /I31CNTRLCHR;
      NJTECT[ N0713   ].NJUSR1      := /I31UB1; 
      NJTECT[ N0713   ].NJUSR2      := /I31UB2; 
      NJTECT[ N0713   ].NJXCHAR     := /I31XCHAR; 
      NJTECT[ N0713   ].NJMXCHAR    := /I31MXCHAR;
      NJTECT[ N0713   ].NJBSCHAR    := /I31BSCHAR;
      NJTECT[ N0713   ].NJELCHAR    := /I31ELCHAR;
      NJTECT[ N0713   ].NJEBCHAR    := /I31EBCHAR;
      NJTECT[ N0713   ].NJCPEL      := /I31ELPC;
      NJTECT[ N0713   ].NJCPEB      := /I31EBPC;
      NJTECT[ N0713   ].NJCURPOS    := /TRUE; 
      NJTECT[ N0713   ].NJABTBLK    := /I31ABTBLK;
      NJTECT[ N0713   ].NJXPT       := /FALSE;
      NJTECT[ N0713   ].NJXCNT      := 2043;
      NJTECT[ N0713   ].NJCRIDLES   := 0; 
      NJTECT[ N0713   ].NJLFIDLES   := 0; 
      NJTECT[ N0713   ].NJINDEV     := B8KEYBOARD;
      NJTECT[ N0713   ].NJOUTDEV    := B8DISPLAY; 
      NJTECT[ N0713   ].NJXDBCHAR   := /TRUE; 
      NJTECT[ N0713   ].NJIBFCD     := DATA;
_ 
*  IVT TERM CHARACTERISTICS FOR TERM CLASS N0721
? 
      NJTECT[ N0721   ].NJPGWAIT    := /FALSE;
      NJTECT[ N0721   ].NJPGWIDTH   := 80;
      NJTECT[ N0721   ].NJPGLENGTH  := 30;
      NJTECT[ N0721   ].NJCANCHAR   := /I31CANCHR;
      NJTECT[ N0721   ].NJCNTRLCHAR := /I31CNTRLCHR;
      NJTECT[ N0721   ].NJUSR1      := /I31UB1; 
      NJTECT[ N0721   ].NJUSR2      := /I31UB2; 
      NJTECT[ N0721   ].NJXCHAR     := /I31XCHAR; 
      NJTECT[ N0721   ].NJMXCHAR    := /I31MXCHAR;
      NJTECT[ N0721   ].NJBSCHAR    := /I31BSCHAR;
      NJTECT[ N0721   ].NJELCHAR    := /I31ELCHAR;
      NJTECT[ N0721   ].NJEBCHAR    := /I31EBCHAR;
      NJTECT[ N0721   ].NJCPEL      := /I31ELPC;
      NJTECT[ N0721   ].NJCPEB      := /I31EBPC;
      NJTECT[ N0721   ].NJCURPOS    := /TRUE; 
      NJTECT[ N0721   ].NJABTBLK    := /I31ABTBLK;
      NJTECT[ N0721   ].NJXPT       := /FALSE;
      NJTECT[ N0721   ].NJXCNT      := 2043;
      NJTECT[ N0721   ].NJCRIDLES   := 0; 
      NJTECT[ N0721   ].NJLFIDLES   := 0; 
      NJTECT[ N0721   ].NJINDEV     := B8KEYBOARD;
      NJTECT[ N0721   ].NJOUTDEV    := B8DISPLAY; 
      NJTECT[ N0721   ].NJXDBCHAR   := /TRUE; 
      NJTECT[ N0721   ].NJIBFCD     := DATA;
_ 
*  IVT TERM CHARACTERISTICS FOR TERM CLASS N02741 
? 
      NJTECT[ N02741  ].NJPGWAIT    := /FALSE;
      NJTECT[ N02741  ].NJPGWIDTH   := 132; 
      NJTECT[ N02741  ].NJPGLENGTH  := 0; 
      NJTECT[ N02741  ].NJCANCHAR   := /I34CANCHR;
      NJTECT[ N02741  ].NJCNTRLCHAR := /I34CNTRLCHR;
      NJTECT[ N02741  ].NJUSR1      := /I34UB1; 
      NJTECT[ N02741  ].NJUSR2      := /I34UB2; 
      NJTECT[ N02741  ].NJXCHAR     := $2D; 
      NJTECT[ N02741  ].NJMXCHAR    := $2D; 
      NJTECT[ N02741  ].NJBSCHAR    := /I31BSCHAR;
      NJTECT[ N02741  ].NJELCHAR    := /I31ELCHAR;
      NJTECT[ N02741  ].NJEBCHAR    := /I31ELCHAR;
      NJTECT[ N02741  ].NJCURPOS    := /FALSE;
      NJTECT[ N02741  ].NJABTBLK    := /I34ABTBLK;
      NJTECT[ N02741  ].NJXPT       := /FALSE;
      NJTECT[ N02741  ].NJXCNT      := 0; 
      NJTECT[ N02741  ].NJCRIDLES   := 8; 
      NJTECT[ N02741  ].NJLFIDLES   := 1; 
      NJTECT[ N02741  ].NJINDEV     := B8KEYBOARD;
      NJTECT[ N02741  ].NJOUTDEV    := B8PRNTR; 
      NJTECT[ N02741  ].NJXDBCHAR   := /TRUE; 
      NJTECT[ N02741  ].NJIBFCD     := DATA;
_ 
*  IVT TERM CHARACTERISTICS FOR TERM CLASS N0M40
? 
      NJTECT[ N0M40   ].NJPGWAIT    := /FALSE;
      NJTECT[ N0M40   ].NJPGLENGTH  := 0; 
      NJTECT[ N0M40   ].NJPGLENGTH  := 24;
      NJTECT[ N0M40   ].NJCANCHAR   := /I31CANCHR;
      NJTECT[ N0M40   ].NJCNTRLCHAR := /I31CNTRLCHR;
      NJTECT[ N0M40   ].NJUSR1      := /I31UB1; 
      NJTECT[ N0M40   ].NJUSR2      := /I31UB2; 
      NJTECT[ N0M40   ].NJXCHAR     := /I31XCHAR; 
      NJTECT[ N0M40   ].NJMXCHAR    := /I31MXCHAR;
      NJTECT[ N0M40   ].NJELCHAR    := /I31ELCHAR;
      NJTECT[ N0M40   ].NJEBCHAR    := /I31EBCHAR;
      NJTECT[ N0M40   ].NJCPEL      := /I31ELPC;
      NJTECT[ N0M40   ].NJCPEB      := /I31EBPC;
      NJTECT[ N0M40   ].NJCURPOS    := /TRUE; 
      NJTECT[ N0M40   ].NJABTBLK    := /I31ABTBLK;
      NJTECT[ N0M40   ].NJXPT       := /FALSE;
      NJTECT[ N0M40   ].NJXCNT      := 2043;
      NJTECT[ N0M40   ].NJCRIDLES   := 1; 
      NJTECT[ N0M40   ].NJLFIDLES   := 3; 
      NJTECT[ N0M40   ].NJINDEV     := B8KEYBOARD;
      NJTECT[ N0M40   ].NJOUTDEV    := B8DISPLAY; 
      NJTECT[ N0M40   ].NJXDBCHAR   := /TRUE; 
      NJTECT[ N0M40   ].NJIBFCD     := DATA;
_ 
*  IVT TERM CHARACTERISTICS FOR TERM CLASS N0H2000
? 
      NJTECT[ N0H2000 ].NJPGWAIT    := /FALSE;
      NJTECT[ N0H2000 ].NJPGWIDTH   := 74;
      NJTECT[ N0H200  ].NJPGLENGTH  := 27;
      NJTECT[ N0H2000 ].NJCANCHAR   := /I31CANCHR;
      NJTECT[ N0H2000 ].NJCNTRLCHAR := /I31CNTRLCHR;
      NJTECT[ N0H2000 ].NJUSR1      := /I31UB1; 
      NJTECT[ N0H2000 ].NJUSR2      := /I31UB2; 
      NJTECT[ N0H2000 ].NJXCHAR     := /I31XCHAR; 
      NJTECT[ N0H2000 ].NJMXCHAR    := /I31MXCHAR;
      NJTECT[ N0H2000 ].NJBSCHAR    := /I31BSCHAR;
      NJTECT[ N0H2000 ].NJELCHAR    := /I31ELCHAR;
      NJTECT[ N0H2000 ].NJEBCHAR    := /I31EBCHAR;
      NJTECT[ N0H2000 ].NJCPEL      := /I31ELPC;
      NJTECT[ N0H2000 ].NJCPEB      := /I31EBPC;
      NJTECT[ N0H2000 ].NJCURPOS    := /TRUE; 
      NJTECT[ N0H2000 ].NJABTBLK    := /I31ABTBLK;
      NJTECT[ N0H2000 ].NJXPT       := /FALSE;
      NJTECT[ N0H2000 ].NJXCNT      := 2043;
      NJTECT[ N0H2000 ].NJCRIDLES   := 0; 
      NJTECT[ N0H2000 ].NJLFIDLES   := 3; 
      NJTECT[ N0H2000 ].NJINDEV     := B8KEYBOARD;
      NJTECT[ N0H2000 ].NJOUTDEV    := B8DISPLAY; 
      NJTECT[ N0H2000 ].NJXDBCHAR   := /TRUE; 
      NJTECT[ N0H2000 ].NJIBFCD     := DATA;
_ 
*  IVT TERM CHARACTERISTICS FOR TERM CLASS N0X364 
? 
      NJTECT[ N0X364  ].NJPGWAIT    := /FALSE;
      NJTECT[ N0X364  ].NJPGWIDTH   := 80;
      NJTECT[ N0X364  ].NJPGLENGTH  := 24;
      NJTECT[ N0X364  ].NJCANCHAR   := /I31CANCHR;
      NJTECT[ N0X364  ].NJCNTRLCHAR := /I34CNTRLCHR;
      NJTECT[ N0X364  ].NJUSR1      := /I31UB1; 
      NJTECT[ N0X364  ].NJUSR2      := /I31UB2; 
      NJTECT[ N0X364  ].NJXCHAR     := /I31XCHAR; 
      NJTECT[ N0X364  ].NJMXCHAR    := /I31MXCHAR;
      NJTECT[ N0X364  ].NJBSCHAR    := /I31BSCHAR;
      NJTECT[ N0X364  ].NJELCHAR    := /I31ELCHAR;
      NJTECT[ N0X364  ].NJEBCHAR    := /I31EBCHAR;
      NJTECT[ N0X364  ].NJCPEL      := /I31ELPC;
      NJTECT[ N0X364  ].NJCPEB      := /I31EBPC;
      NJTECT[ N0X364  ].NJCURPOS    := /TRUE; 
      NJTECT[ N0X364  ].NJABTBLK    := /I31ABTBLK;
      NJTECT[ N0X364  ].NJXPT       := /FALSE;
      NJTECT[ N0X364  ].NJXCNT      := 2043;
      NJTECT[ N0X364  ].NJCRIDLES   := 0; 
      NJTECT[ N0X364  ].NJLFIDLES   := 0; 
      NJTECT[ N0X364  ].NJINDEV     := B8KEYBOARD;
      NJTECT[ N0X364  ].NJOUTDEV    := B8DISPLAY; 
      NJTECT[ N0X364  ].NJXDBCHAR   := /TRUE; 
      NJTECT[ N0X364  ].NJECHOPLEX  := /TRUE; 
      NJTECT[ N0X364  ].NJRGLIN     := /TRUE; 
      NJTECT[ N0X364  ].NJRGLOUT    := /TRUE; 
      NJTECT[ N0X364  ].NJIBFCD     := DATA;
_ 
*  IVT TERM CHARACTERISTICS FOR TERM CLASS N0T4014
? 
      NJTECT[ N0T4014 ].NJPGWAIT    := /FALSE;
      NJTECT[ N0T4014 ].NJPGWIDTH   := 74;
      NJTECT[ N0T4014 ].NJPGLENGTH  := 35;
      NJTECT[ N0T4014 ].NJCANCHAR   := /I31CANCHR;
      NJTECT[ N0T4014 ].NJCNTRLCHAR := /I31CNTRLCHR;
      NJTECT[ N0T4014 ].NJUSR1      := /I31UB1; 
      NJTECT[ N0T4014 ].NJUSR2      := /I31UB2; 
      NJTECT[ N0T4014 ].NJXCHAR     := /I31XCHAR; 
      NJTECT[ N0T4014 ].NJMXCHAR    := /I31MXCHAR;
      NJTECT[ N0T4014 ].NJBSCHAR    := /I31BSCHAR;
      NJTECT[ N0T4014 ].NJELCHAR    := /I31ELCHAR;
      NJTECT[ N0T4014 ].NJEBCHAR    := /I31EBCHAR;
      NJTECT[ N0T4014 ].NJCPEL      := /I31ELPC;
      NJTECT[ N0T4014 ].NJCPEB      := /I31EBPC;
      NJTECT[ N0T4014 ].NJCURPOS    := /TRUE; 
      NJTECT[ N0T4014 ].NJABTBLK    := /I31ABTBLK;
      NJTECT[ N0T4014 ].NJXPT       := /FALSE;
      NJTECT[ N0T4014 ].NJXCNT      := 2043;
      NJTECT[ N0T4014 ].NJCRIDLES   := 0; 
      NJTECT[ N0T4014 ].NJLFIDLES   := 0; 
      NJTECT[ N0T4014 ].NJINDEV     := B8KEYBOARD;
      NJTECT[ N0T4014 ].NJOUTDEV    := B8DISPLAY; 
      NJTECT[ N0T4014 ].NJXDBCHAR   := /TRUE; 
      NJTECT[ N0T4014 ].NJIBFCD     := DATA;
*IF DEF,ASYNC,1 
*CALL ZEXASYNC
*IF DEF,X25,2 
*IF DEF,X25DEBUG,1
*CALL ZEXNTS
*IF DEF,X25,5 
*CALL ZEXX25
*IF DEF,X25PAD,3
*IF -DEF,L3DEBUG,2
*IF -DEF,L2DEBUG,1
*CALL ZEXPAD
*IF DEF,BSC,2 
*IF DEF,BSCDEBUG,1
*CALL ZEXDBGNTS 
*IF DEF,BSC,2 
*IF DEF,BSCDEBUG,1
*CALL ZEXUBSC 
*IF DEF,BSC,2 
*IF DEF,BSCDEBUG,1
*CALL ZEXBUSR1
*IF DEF,HLIP,1
*CALL ZEXHLIP 
*ENDIF
*IF DEF,UTIP1,1 
*CALL UT1ZEX
*IF DEF,UTIP2,1 
*CALL UT2ZEX
*IF DEF,UTIP3,1 
*CALL UT3ZEX
_**********************************************************************?
_*END APPLICATION UNIQUE EXECUTION STATEMENT SOURCE*? 
_**********************************************************************?
