Posted by Grant Foraker on March 20, 2007 at 12:23:28:
7.01 and all latest. Two problems with following code that have driven me nuts all morning.
1) Print to SP1 doesn't happen. No error.
2) MERGE of **TASSET** shows zero amount. CHECKING, SAVINGS, OASSETS, and RECEIVABLES merge and properly.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
LET TASSET = CHECKING + SAVINGS + OASSETS + RECEIVABLES
OPEN (15) 'SP1'
PRINT (15) '------------------------'
PRINT (15) 'CHECKING';CHECKING
PRINT (15) 'SAVINGS';SAVINGS
PRINT (15) 'OTHER';OASSETS
PRINT (15) 'RECEIVABLES';RECEIVABLES
PRINT (15) 'TOTAL';TASSET
PRINT (15) '------------------------'
5000!=============== DISPLAY STATISTICS ============================
LET CGIDATA$ = STR(CHECKING)
WRITE (1,CGIDATA) KEY = '**CHECKING**'
LET CGIDATA$ = STR(SAVINGS)
WRITE (1,CGIDATA) KEY = '**SAVINGS**'
LET CGIDATA$ = STR(OASSETS)
WRITE (1,CGIDATA) KEY = '**OTHERA**'
LET CGIDATA$ = STR(RECEIVABLES)
WRITE (1,CGIDATA) KEY = '**RECEIVABLES**'
LET CGIDATA$ = STR(TASSET)
WRITE (1,CGIDATA) KEY = '**TASSET**'
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~