*COMDECK ZARRUSR
_*************************************
*                                    *
*  THE FOLLOWING IS THE SOURCE INPUT *
*  FOR APPLICATION UNIQUE ARRAY      *
*  DEFINITION FOR THIS SYSTEM        *
*                                    *
*************************************?
_?
*CALL SVMZAPA 
*IF DEF,MODE4,1 
*CALL ZARMD4
*IF DEF,ASYNC,1 
*CALL ZARASYNC
*IF DEF,3270TIP,1 
*CALL 3270ZARR
*IF DEF,X25 
*CALL ZARX25
*IF DEF,X25PAD,3
*IF -DEF,L3DEBUG,2
*IF -DEF,L2DEBUG,1
*CALL ZARPAD
*ENDIF
*IF DEF,BSC 
*CALL BSCC1 
*ENDIF
*IF DEF,UTIP1,1 
*CALL UT1ZARR 
*IF DEF,UTIP2,1 
*CALL UT2ZARR 
*IF DEF,UTIP3,1 
*CALL UT3ZARR 
_**********************************************************************?
_*END APPLICATION UNIQUE ARRAY SOURCE*? 
_**********************************************************************?
