; ******************************************************************************************************************************** ; Created: 3-MAR-2004 12:58:22 by OpenVMS SDL EV1-60 ; Source: 17-FEB-2004 13:24:21 DISK$SYSMAN:[LAISHEV.WORK.SLFAX]SLFAXDEF.SDL;9 ; ******************************************************************************************************************************** .MACRO $SLFAXDEF,$GBL $DEFINI SLFAX,$GBL ; ; *++ ; * ; * StarLet Fax command codes used by LIB$TPARSE stuff. ; * ; * ; * Command ID codes ; *-- ; $EQU SLF_CMD$K_LOGIN 1 $EQU SLF_CMD$K_LOGOUT 2 $EQU SLF_CMD$K_STATUS 3 $EQU SLF_CMD$K_SEND 4 $EQU SLF_CMD$K_CAPABILITY 5 $EQU SLF_CMD$K_HELP 6 ; ; *++ ; * Command ARGument codes ; *-- ; $EQU SLF_ARG$K_USER 1 $EQU SLF_ARG$K_PASS 2 $EQU SLF_ARG$K_PHONE 3 $EQU SLF_ARG$K_ID 4 $EQU SLF_ARG$K_FORMAT_PS 5 $EQU SLF_ARG$K_FORMAT_HPPCL 6 $EQU SLF_ARG$K_FORMAT_G3 7 $EQU SLF_ARG$K_FORMAT_TIFF 8 $EQU SLF_ARG$K_FORMAT_TEXT 9 $EQU SLF_ARG$K_NOTIFY_ERROR 10 $EQU SLF_ARG$K_NOTIFY_SUCCESS 11 $EQU SLF_ARG$K_EVENING 12 $EQU SLF_ARG$K_NIGHT 13 $EQU SLF_ARG$K_NOW 14 $EQU SLF_ARG$K_MORNING 15 ; ; *++ ; * SL-FAX Gateway default TCP port number ; *-- ; $EQU SL$K_PORT 1358 $DEFEND SLFAX,$GBL,DEF .ENDM