Description

SQL / SQLSELECT: jbase_agent failure when initializing COMMON from a dictionary subroutine

Fix issues with newpick(12) not getting populated from a dictionary subroutine.

Previous Release Behavior

newpick(12) would not be populated via subroutine call.

DICT SQLTEST:

*A0................. D/CODE... A/AMC.... S/NAME... V/CONV... V/CORR... V/TYPE... V/MAX

QTY                  A         1                   MR0,                R             6
RUNNING_TOTAL        A         1                   MD0,      CALL runn R            10
                                                             ing_total

DATA SQLTEST:

SQLTEST....... QTY...

1               1,111
2               2,222
3               3,333

0001     SUBROUTINE running_total
0002     COMMON /running_total_common/ running_total
0003     INCLUDE qbasiccommonpick
0004     EQU item_count TO access(4)
0005     EQU attribute_number TO access(5)
0006     IF item_count = 1 THEN running_total = 0
0007     running_total += access(3)<attribute_number>
0008     newpick(12) = running_total
0009     RETURN

jsh home ~ -->SQLSELECT QTY,RUNNING_TOTAL FROM SQLTEST
Invalid or uninitialised variable -- ZERO USED ,
Var (UNKNOWN) , Line    84 , Source SQLSELECT.b
Trap from an error message, error message name = (UNKNOWN)
Line 2 , Source qbasiccommonpick
jBASE debugger->

Current Release Behavior

newpick(12) is populated, e.g.

jsh home ~ -->SQLSELECT QTY,RUNNING_TOTAL FROM SQLTEST
QTY    RUNNING_TO
------ ----------
 1,111      1,111
 2,222      3,333
 3,333      6,666

Selected 3 rows.