; ******************************************************************************************************************************** ; Created: 3-MAR-2004 13:03:02 by OpenVMS SDL EV1-60 ; Source: 26-FEB-2004 14:39:53 DISK$SYSMAN:[LAISHEV.WORK.SLFAX]GFAXDEF.SDL;20 ; ******************************************************************************************************************************** .MACRO $GFAXDEF,$GBL $DEFINI GFAX,$GBL ; ; *++ ; * ; * Gold-Fax flags ; * ; *-- ; $EQU GF_M_COURIER_12PT <^X1> $EQU GF_M_COURIER_10PT <^X2> $EQU GF_M_DRAFT <^X4> $EQU GF_M_HP <^X8> $EQU GF_M_IGNORE_PROFILE <^X10> $EQU GF_M_LANDSCAPE <^X20> $EQU GF_M_LINEPRINTER_8PT <^X40> $EQU GF_M_MAIL_FAIL <^X80> $EQU GF_M_MAIL_SUCCESS <^X100> $EQU GF_M_NOTIFY <^X200> $EQU GF_M_ONCOVER <^X400> $EQU GF_M_OVERRIDE <^X800> $EQU GF_M_PAPERSIZE_A4 <^X1000> $EQU GF_M_PAPERSIZE_LEGAL <^X2000> $EQU GF_M_PAPERSIZE_LETTER <^X4000> $EQU GF_M_PORTRAIT <^X8000> $EQU GF_M_PS <^X10000> $EQU GF_M_SIGNAL <^X20000> $EQU GF_M_TRUNCATE <^X40000> $EQU GF_M_URGENT <^X80000> $EQU GF_M_VERTRES_FINE <^X100000> $EQU GF_M_VERTRES_STANDARD <^X200000> $EQU GF_S_gf_flags 3 $EQU GF_V_COURIER_12PT 0 $EQU GF_V_COURIER_10PT 1 $EQU GF_V_DRAFT 2 $EQU GF_V_HP 3 $EQU GF_V_IGNORE_PROFILE 4 $EQU GF_V_LANDSCAPE 5 $EQU GF_V_LINEPRINTER_8PT 6 $EQU GF_V_MAIL_FAIL 7 $EQU GF_V_MAIL_SUCCESS 8 $EQU GF_V_NOTIFY 9 $EQU GF_V_ONCOVER 10 $EQU GF_V_OVERRIDE 11 $EQU GF_V_PAPERSIZE_A4 12 $EQU GF_V_PAPERSIZE_LEGAL 13 $EQU GF_V_PAPERSIZE_LETTER 14 $EQU GF_V_PORTRAIT 15 $EQU GF_V_PS 16 $EQU GF_V_SIGNAL 17 $EQU GF_V_TRUNCATE 18 $EQU GF_V_URGENT 19 $EQU GF_V_VERTRES_FINE 20 $EQU GF_V_VERTRES_STANDARD 21 ; ; *++ ; * ; * Gold-Fax statuses ; * ; *-- ; $EQU GFS_M_PENDING <^X1> $EQU GFS_M_HOLDING <^X2> $EQU GFS_M_PROCESSING <^X4> $EQU GFS_M_SENDING <^X8> $EQU GFS_M_ABORTED <^X10> $EQU GFS_M_RETRY <^X20> $EQU GFS_M_SUCCESS <^X40> $EQU GFS_M_FAILURE <^X80> $EQU GFS_M_WARNING <^X100> $EQU GFS_M_ERROR <^X200> $EQU GFS_M_DELETED <^X400> $EQU GFS_S_gfs_flags 2 $EQU GFS_V_PENDING 0 $EQU GFS_V_HOLDING 1 $EQU GFS_V_PROCESSING 2 $EQU GFS_V_SENDING 3 $EQU GFS_V_ABORTED 4 $EQU GFS_V_RETRY 5 $EQU GFS_V_SUCCESS 6 $EQU GFS_V_FAILURE 7 $EQU GFS_V_WARNING 8 $EQU GFS_V_ERROR 9 $EQU GFS_V_DELETED 10 ; ; *++ ; * ; * GFAX API Routines declataion section ; * ; *-- ; ; ; *++ ; * ; * The GFAX_SEND_DIAL routine send a fax to a phone number and ; * returns the Gold-Fax ID number of the submtited fax. ; * ; *-- ; .MACRO GFAX_SEND_DIAL_G ARGPTR .GLOBL gfax_send_dial CALLG ARGPTR,G^gfax_send_dial .ENDM GFAX_SEND_DIAL_G .MACRO GFAX_SEND_DIALDEF $OFFDEF FAX_SEND_DIAL, .ENDM GFAX_SEND_DIALDEF .MACRO GFAX_SEND_DIAL pullID=0,pdFileName=0,pdDial=0,pdTo=0,- pdCompany=0,pdAdress=0,pdSubject1=0,pdSubject2=0,pdFrom=0,- pdCoverPage=0,ulFlags=0,pdAfterTime=0,pdUser1=0,pdUser2=0,- pdForm=0,pdCvrFaxNumber=0,pdCvrPhoneNumber=0,pdIdString=0,- pdMailAdress=0,pulIndent=0,pulPSSize=0,pdDraftQueueName=0 GFAX_SEND_DIALDEF .LONG 22 .ADDRESS pullID .ADDRESS pdFileName .ADDRESS pdDial .ADDRESS pdTo .ADDRESS pdCompany .ADDRESS pdAdress .ADDRESS pdSubject1 .ADDRESS pdSubject2 .ADDRESS pdFrom .ADDRESS pdCoverPage .ADDRESS ulFlags .ADDRESS pdAfterTime .ADDRESS pdUser1 .ADDRESS pdUser2 .ADDRESS pdForm .ADDRESS pdCvrFaxNumber .ADDRESS pdCvrPhoneNumber .ADDRESS pdIdString .ADDRESS pdMailAdress .ADDRESS pulIndent .ADDRESS pulPSSize .ADDRESS pdDraftQueueName .ENDM GFAX_SEND_DIAL .MACRO GFAX_SEND_DIAL_S pullID,pdFileName,pdDial,pdTo,pdCompany,- pdAdress,pdSubject1,pdSubject2,pdFrom,pdCoverPage,ulFlags,- pdAfterTime,pdUser1,pdUser2,pdForm,pdCvrFaxNumber,pdCvrPhoneNumber,- pdIdString,pdMailAdress,pulIndent,pulPSSize,pdDraftQueueName .GLOBL gfax_send_dial $PUSHADR pdDraftQueueName,CONTEXT=Q $PUSHADR pulPSSize $PUSHADR pulIndent $PUSHADR pdMailAdress,CONTEXT=Q $PUSHADR pdIdString,CONTEXT=Q $PUSHADR pdCvrPhoneNumber,CONTEXT=Q $PUSHADR pdCvrFaxNumber,CONTEXT=Q $PUSHADR pdForm,CONTEXT=Q $PUSHADR pdUser2,CONTEXT=Q $PUSHADR pdUser1,CONTEXT=Q $ASNPUSH pdAfterTime,ulFlags $PUSHADR pdCoverPage,CONTEXT=Q $PUSHADR pdFrom,CONTEXT=Q $PUSHADR pdSubject2,CONTEXT=Q $PUSHADR pdSubject1,CONTEXT=Q $PUSHADR pdAdress,CONTEXT=Q $PUSHADR pdCompany,CONTEXT=Q $PUSHADR pdTo,CONTEXT=Q $PUSHADR pdDial,CONTEXT=Q $PUSHADR pdFileName,CONTEXT=Q $PUSHADR pullID CALLS #22,G^gfax_send_dial .ENDM GFAX_SEND_DIAL_S ; ; *++ ; * ; * The GFAX_SEND_NAME routine send a fax using or more Gold-Fax ; * phonebook names and returns the Gold-Fax ID number of the submited fax ; * ; *-- ; .MACRO GFAX_SEND_NAME_G ARGPTR .GLOBL gfax_send_name CALLG ARGPTR,G^gfax_send_name .ENDM GFAX_SEND_NAME_G .MACRO GFAX_SEND_NAMEDEF $OFFDEF FAX_SEND_NAME, .ENDM GFAX_SEND_NAMEDEF .MACRO GFAX_SEND_NAME pullID=0,pdFileName=0,pdName=0,pdSubject1=0,- pdSubject2=0,pdFrom=0,pdCoverPage=0,ulFlags=0,pdAfterTime=0,- pdUser1=0,pdUser2=0,pdForm=0,pdCvrFaxNumber=0,pdCvrPhoneNumber=0,- pdIdString=0,pdMailAdress=0,pulIndent=0,pulPSSize=0,pdDraftQueueName=0 GFAX_SEND_NAMEDEF .LONG 19 .ADDRESS pullID .ADDRESS pdFileName .ADDRESS pdName .ADDRESS pdSubject1 .ADDRESS pdSubject2 .ADDRESS pdFrom .ADDRESS pdCoverPage .ADDRESS ulFlags .ADDRESS pdAfterTime .ADDRESS pdUser1 .ADDRESS pdUser2 .ADDRESS pdForm .ADDRESS pdCvrFaxNumber .ADDRESS pdCvrPhoneNumber .ADDRESS pdIdString .ADDRESS pdMailAdress .ADDRESS pulIndent .ADDRESS pulPSSize .ADDRESS pdDraftQueueName .ENDM GFAX_SEND_NAME .MACRO GFAX_SEND_NAME_S pullID,pdFileName,pdName,pdSubject1,- pdSubject2,pdFrom,pdCoverPage,ulFlags,pdAfterTime,pdUser1,- pdUser2,pdForm,pdCvrFaxNumber,pdCvrPhoneNumber,pdIdString,- pdMailAdress,pulIndent,pulPSSize,pdDraftQueueName .GLOBL gfax_send_name $PUSHADR pdDraftQueueName,CONTEXT=Q $PUSHADR pulPSSize $PUSHADR pulIndent $PUSHADR pdMailAdress,CONTEXT=Q $PUSHADR pdIdString,CONTEXT=Q $PUSHADR pdCvrPhoneNumber,CONTEXT=Q $PUSHADR pdCvrFaxNumber,CONTEXT=Q $PUSHADR pdForm,CONTEXT=Q $PUSHADR pdUser2,CONTEXT=Q $PUSHADR pdUser1,CONTEXT=Q $ASNPUSH pdAfterTime,ulFlags $PUSHADR pdCoverPage,CONTEXT=Q $PUSHADR pdFrom,CONTEXT=Q $PUSHADR pdSubject2,CONTEXT=Q $PUSHADR pdSubject1,CONTEXT=Q $PUSHADR pdName,CONTEXT=Q $PUSHADR pdFileName,CONTEXT=Q $PUSHADR pullID CALLS #19,G^gfax_send_name .ENDM GFAX_SEND_NAME_S ; ; *++ ; * ; * The GFAX_STATUS_JOB routine allows you to obtain the status of a submited fax ; * based on a passed ID string. ; * ; *-- ; .MACRO GFAX_STATUS_JOB_G ARGPTR .GLOBL gfax_status_job CALLG ARGPTR,G^gfax_status_job .ENDM GFAX_STATUS_JOB_G .MACRO GFAX_STATUS_JOBDEF $OFFDEF FAX_STATUS_JOB, .ENDM GFAX_STATUS_JOBDEF .MACRO GFAX_STATUS_JOB pdUsername=0,ulID=0,pulStatusFlags=0,- pdDateTime=0,pdAdress=0,pdSubject1=0,pdSubject2=0,pdFrom=0,- pulSuccess=0,pulFail=0,pulWarning=0,pulRetry=0,pdUser1=0,- pdUser2=0,pdIDSrting=0 GFAX_STATUS_JOBDEF .LONG 15 .ADDRESS pdUsername .ADDRESS ulID .ADDRESS pulStatusFlags .ADDRESS pdDateTime .ADDRESS pdAdress .ADDRESS pdSubject1 .ADDRESS pdSubject2 .ADDRESS pdFrom .ADDRESS pulSuccess .ADDRESS pulFail .ADDRESS pulWarning .ADDRESS pulRetry .ADDRESS pdUser1 .ADDRESS pdUser2 .ADDRESS pdIDSrting .ENDM GFAX_STATUS_JOB .MACRO GFAX_STATUS_JOB_S pdUsername,ulID,pulStatusFlags,- pdDateTime,pdAdress,pdSubject1,pdSubject2,pdFrom,pulSuccess,- pulFail,pulWarning,pulRetry,pdUser1,pdUser2,pdIDSrting .GLOBL gfax_status_job $PUSHADR pdIDSrting,CONTEXT=Q $PUSHADR pdUser2,CONTEXT=Q $PUSHADR pdUser1,CONTEXT=Q $PUSHADR pulRetry $PUSHADR pulWarning $PUSHADR pulFail $PUSHADR pulSuccess $PUSHADR pdFrom,CONTEXT=Q $PUSHADR pdSubject2,CONTEXT=Q $PUSHADR pdSubject1,CONTEXT=Q $PUSHADR pdAdress,CONTEXT=Q $PUSHADR pdDateTime,CONTEXT=Q $PUSHADR pulStatusFlags PUSHL ulID $PUSHADR pdUsername,CONTEXT=Q CALLS #15,G^gfax_status_job .ENDM GFAX_STATUS_JOB_S $DEFEND GFAX,$GBL,DEF .ENDM