/*
 * $VER: CallNumber.gms 1.0 (16.11.94)
 *
 */

options results
signal on error
signal on syntax

parse arg gms_line gms_number

if( ~show( 'l', "gms_mailer_rexx.library" ) ) then
do
   if( ~addlib( "gms_mailer_rexx.library", 0, -30, 0 ) )then
   do
      say "Could not open gms_mailer_rexx.library"
      exit 10
   end
end

if gms_number == '' then signal Usage
if gms_line   == '' then gms_line = 0

call GMS_Mailer_Mailer_Alloc(mailer, gms_line)

call GMS_Mailer_Call_Node(mailer, gms_number)

call GMS_Mailer_Mailer_Free(mailer)

call GMS_Mailer_FreeScriptData()
exit 0

Usage:

say 'Usage: CallNode.gms <line num> <phone number>'

call GMS_Mailer_FreeScriptData()
exit 0

error:
syntax:

error_text = GMS_Mailer_LastError()

if error_text = '' then error_text = rc ErrorText( rc )

say '| ***BREAK: error at' sigl error_text

call GMS_Mailer_FreeScriptData()
exit rc