OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide

TAL Program Example
OSI/MHS Gateway Programmatic Interface (GPI) Programming Guide—424822-001
A-4
?nolist, source GPIExt
?list
-- Include the Guardian procedure prototype declarations
?nolist, source extdecs( abend
? , close
? , debug
? , myterm
? , numout
? , open
? , read
? , writex
? )
?list
?page
---------------------------------------------------------------------------
-- Function Name: gpiex_init --
-- --
-- Arguments: none --
-- --
-- Description: This procedure reads the startup message and opens --
-- the output file. --
---------------------------------------------------------------------------
PROC gpiex_init ;
BEGIN
INT receive;
INT .receive_name[0:11] := ["$RECEIVE "];
STRUCT .startup;
BEGIN
INT msg_code;
INT default_vol[0:7];
INT input_file_name[0:11];
INT output_file_name[0:11];
STRING params[0:131];
END;
-- Open $receive
CALL OPEN (receive_name, receive );
IF <> THEN
BEGIN
CALL MYTERM (startup.output_file_name );
CALL OPEN (startup.output_file_name, output_fn);
outline ':=' "$RECEIVE OPEN error." -> @outptr;
outlen := $INT(@outptr - @outline);
CALL WRITEX ( output_fn, outline, outlen);
CALL ABEND;
END;
-- Read the startup message
CALL READ (receive, startup, $LEN (startup) );
IF <> THEN
BEGIN
CALL MYTERM (startup.output_file_name );
CALL OPEN (startup.output_file_name, output_fn);
outline ':=' "$RECEIVE READ error." -> @outptr;
outlen := $INT(@outptr - @outline);
CALL WRITEX ( output_fn, outline, outlen);
CALL ABEND;
END;