On pxplus 15.10 debian version the below select statement does not return values from the record.
Pxplus 15.10 redhat version works properly.
What gives?
0010 open (hfn)"data/SO/SORSOH"; sorsoh=lfo
0020 select a0$,a5$,*,c5$,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,a4$ from sorsoh begin %a0$ end %a0$+%lc$
0030 print "Select returned '"+a0$+a5$+c5$+a4$+"'"
0040 print len(a0$+a5$+c5$+a4$)
0050 break
0060 next record
0100 read (sorsoh,key=%a0$,dom=*next)
0110 read (sorsoh,end=EOF)a0$,a5$,*,c5$,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,a4$
0120 print "Read returned '"+a0$+a5$+c5$+a4$+"'"
0130 print len(a0$+a5$+c5$+a4$)
0140 EOF:stop
-;
-;run
Select returned ''
0
Read returned '01033482IDBNN NNNN '
38
-;
Pxplus 15.10 redhat version works properly.
What gives?
0010 open (hfn)"data/SO/SORSOH"; sorsoh=lfo
0020 select a0$,a5$,*,c5$,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,a4$ from sorsoh begin %a0$ end %a0$+%lc$
0030 print "Select returned '"+a0$+a5$+c5$+a4$+"'"
0040 print len(a0$+a5$+c5$+a4$)
0050 break
0060 next record
0100 read (sorsoh,key=%a0$,dom=*next)
0110 read (sorsoh,end=EOF)a0$,a5$,*,c5$,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,*,a4$
0120 print "Read returned '"+a0$+a5$+c5$+a4$+"'"
0130 print len(a0$+a5$+c5$+a4$)
0140 EOF:stop
-;
-;run
Select returned ''
0
Read returned '01033482IDBNN NNNN '
38
-;