Guardian Programmer's Guide

Table Of Contents
Manipulating File Names
Guardian Programmer’s Guide 421922-014
13 - 37
Manipulating File Names: An Example
!------------------------------------------------------------
! Procedure to write a file name to the output file.
!------------------------------------------------------------
PROC PRINT^NAME(NAME,LENGTH);
INT LENGTH;
STRING .NAME;
BEGIN
CALL WRITEX(OUTNUM,NAME,LENGTH);
IF <> THEN
BEGIN
CALL FILE_GETINFO_(OUTNUM,ERROR);
CALL FILE^ERRORS(ERROR);
END;
END;
!------------------------------------------------------------
! Procedure to save the Startup message in a global
! structure.
!------------------------------------------------------------
PROC START^IT(RUCB,START^DATA,MESSAGE,LENGTH,MATCH) VARIABLE;
INT .RUCB,.START^DATA,.MESSAGE,LENGTH,MATCH;
BEGIN
CI^STARTUP.MSGCODE ':=' MESSAGE FOR LENGTH/2;
PARAM^LEN := LENGTH - 66;
END;