Guardian Programmer's Guide

Table Of Contents
Formatting and Manipulating Character Data
Guardian Programmer’s Guide 421922-014
19 - 57
Sample Program
?INSPECT,SYMBOLS,NOMAP,NOCODE
?NOLIST, SOURCE $SYSTEM.ZSYSDEFS.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
?SOURCE $SYSTEM.SYSTEM.EXTDECS0(WRITEX,WRITEREADX,
? FILE_OPEN_,FIXSTRING,PROCESS_STOP_,INITIALIZER,
? SHIFTSTRING,MBCS_CODESETS_SUPPORTED_,MBCS_TRIMFRAGMENT_,
? MBCS_REPLACEBLANK_,OLDFILENAME_TO_FILENAME_)
?LIST