Guardian Programmer's Guide

Communicating With a TACL Process
Guardian Programmer’s Guide — 421922-014
8 - 7
Processing the Startup Message
The main procedure can then access the Startup information in the global data area
and open the IN and OUT files identified in the Startup message. Recall, however, that
theses file names are in C-series format and must be converted to D-series format
using the OLDFILENAME_TO_FILENAME_ procedure before you can pass these
names to the FILE_OPEN_ procedure.
? INSPECT, SYMBOLS
!Global variables:
STRUCT .CI^STARTUP; !Startup message
BEGIN
INT MSGCODE;
STRUCT DEFAULT;
BEGIN
INT VOLUME[0:3];
INT SUBVOLUME[0:3];
END;
STRUCT INFILE;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FNAME[0:3];
END;
STRUCT OUTFILE;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FNAME[0:3];
END;
STRING PARAM[0:529];
END;
? NOLIST
? NOLIST,SOURCE $SYSTEM.SYSTEM.EXTDECS(INITIALIZER)
? LIST
PROC START^IT(RUCB,START^DATA,MESSAGE,LENGTH,MATCH) VARIABLE;
INT .RUCB,
.START^DATA,
.MESSAGE,
LENGTH,
MATCH;
BEGIN
!Copy the Startup message into the CI^STARTUP structure:
CI^STARTUP.MSGCODE ':=' MESSAGE[0] FOR LENGTH/2;
END;
PROC INITIAL MAIN;
BEGIN
CALL INITIALIZER(!rucb!,
!passthru!,