ICC$BUF (IBUF)

This is program 'icc$buf'...
IccBuf buf1                          dal= 0 dl= 0 E+I []
IccBuf buf2(50)                      dal=50 dl= 0 E+I []
IccBuf buf3(30,fixed)                dal=30 dl= 0 F+I []
IccBuf buf4(sizeof(AStruct),&aStruc) dal=24 dl=24 F+E [!Some text for aStruc]
IccBuf buf5("A String Literal")      dal=19 dl=19 E+I [Some data somewhere]
IccBuf buf6(buf5)                    dal=19 dl=19 E+I [Some data somewhere]
buf1 = "Some XXX data for buf1"      dal=22 dl=22 E+I [Some XXX data for buf1]
buf2.assign(strlen(data),data)       dal=50 dl=19 E+I [Some data somewhere]
buf1.cut(4,5)                        dal=22 dl=18 E+I [Some data for buf1]
buf5.insert(5,more,5)                dal=24 dl=24 E+I [Some more data somewhere]
buf5.replace(4,xtra,5)               dal=24 dl=24 E+I [Some xtra data somewhere]
buf2 << ".ext"                       dal=50 dl=23 E+I [Some data somewhere.ext]
buf3 = buf4                          dal=30 dl=24 F+I [!Some text for aStruc]
(buf3 == buf4) returns true (OK).
buf3 = "garbage"                     dal=30 dl= 7 F+I [garbage]
(buf3 != buf4) returns true (OK).
Program 'icc$buf' complete: Hit PF12 to End
[[ Contents Previous Page | Next Page Index ]]