Guardian Programmer's Guide

Table Of Contents
Formatting and Manipulating Character Data
Guardian Programmer’s Guide 421922-014
19 - 40
Editing a Character String
?INSPECT,SYMBOLS,NOMAP,NOCODE
?NOLIST, SOURCE $SYSTEM.SYSTEM.ZSYSTAL;
?LIST
!Global literals and variables:
INT TERM^NUM; !open terminal file number
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 FILEID[0:3];
END;
STRUCT OUTFILE;
BEGIN
INT VOLUME[0:3];
INT SUBVOL[0:3];
INT FILEID[0:3];
END;
STRING PARAM[0:529];
END;
LITERAL MAXFLEN = ZSYS^VAL^LEN^FILENAME;
LITERAL ABEND = 1;
?NOLIST
?NOLIST, SOURCE $SYSTEM.SYSTEM.EXTDECS0(WRITEX,WRITEREADX,
? FILE_OPEN_,FIXSTRING,PROCESS_STOP_,INITIALIZER,
? SHIFTSTRING,OLDFILENAME_TO_FILENAME_)
?LIST