11.04.2013 Views

UniBasic Commands Reference - Rocket Software

UniBasic Commands Reference - Rocket Software

UniBasic Commands Reference - Rocket Software

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

This next example compiles and runs only with null value handling turned on. The<br />

program segment replaces the third element with three asterisks. This program<br />

segment calls the externally cataloged subroutine PRINT.SETUP, which converts the<br />

null value and UniData delimiters to printable characters, and then prints the<br />

converted string.<br />

1-324 <strong>UniBasic</strong> <strong>Commands</strong> <strong>Reference</strong><br />

PRT.STR = ''<br />

A<br />

="123":@AM:"ABC":@AM:"456":@VM:"DEF":@VM:@NULL:@AM:"012":@VM:@NULL<br />

:@VM:"GHI"<br />

SUB = "***"<br />

GROUPSTORE SUB IN A USING 3,1,@VM<br />

STR = A<br />

CALL PRINT.SETUP(STR,PRT.STR)<br />

PRINT "A = ":PRT.STR<br />

This program segment prints:<br />

A = 123@AMABC@AM456@VMDEF@VM***@VM@NULL@VMGHI

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!