BJGET.m

BJGET ;IHS/OTPHRM/PHXAO/PJH/POLLING ROUTINE [ 05/21/96  5:21 PM ]

 ;

 W !,"NOT AN ENTRY POINT",*7 Q  ;NOT AN ENTRY POINT

VARS1 ;;VARIABLES USED IN UNIX HOSTCMD CALL

 ;;

 ;;    AZCMD        -- UNIX COMMAND STRING

 ;;    X            -- FUNCTION VARIABLE FOR HOSTCMD

 ;;

VARS2 ;;VARIABLES USED IN GET FILE HOSTCMD   

 ;;    AZORDFN      -- FILENAME

 ;;    AZORDSN      -- SYSTEMID

SYSID ;;LOOP TO SET SYSTEMID

 F AZORDSN="PHXEL","PHXKC","PHXWR" D

 .S AZORDFN="EB*"

 .S AZORCMD="getfrom -i "_AZORDSN_" /usr/spool/uucppublic/"_AZORDFN

 .S X=$$TERMINAL^%HOSTCMD(AZORCMD)

 Q