I miss UniData's reporting of unassigned variables at compile time so
I've been using the (x) option for compiling. Sorting the bsym file I
find weird control-char item ids of 0x02, 0x03, 0x04 up to 0x09 and
then a jump to 0x0c. These control characters are not in my source
code, I wrote a control char finder progam to check.
So what gives?

Jeremy Thomson

Can I see a sample?

Mark Brown

<panzerboy (AT) gmail (DOT) com> wrote

Jeremy,

Do you use any of the @whatever constructs?

I'll think the 0x0c might be an @ff. Another thought
might be whether you are using any EQU statements.

If you are doing AccuTerm programming, and you
do an EQU STX TO CHAR(XXX) something like 001
or 002, might it show up as 0x02?

Larry Hazel

<panzerboy (AT) gmail (DOT) com> wrote

Ah ha!
The line refs match my external subroutine calls.
It is interesting that the value of the control char item id matches
the number of subroutine parameters. 0x0c matches two lines (215,217)
with different subroutine names but the same number of parameters (12).
Now that I know what these are I guess it 'could' be usefull.

For Mark who wanted to see a sample...

:ED DICT BSYM 1 HEX
1
001 A
002 1
003 Line Refs
....
009 L
010 10
HEX
001 S
002 0
....
008 MX
009 L
010 40
:SORT BSYM 1 HEX
BSYM................ Line Refs. HEX.

0034 02
0095
0096 03
0114
0097 04
0101 05
0116
0215 07
0217
0072 09
0073
0075
0076
0077
0078
0079
0080
0081
--page break--
0212 0C
....

:ED BP AHMRF9.SR2
top
..L9999/CALL/
034 CALL RFTEST.SR(COLOFF,ROWOFF)
072 CALL BLDSCNFLD(SCNF,SHDR ,"Put Away after Replenishment",0,0
,'' ,'' ,' ','')
073 CALL BLDSCNFLD(SCNF,SSCNPRD,"Scan Product: " ,0,1
,'E','N',' ','L#7')
075 CALL BLDSCNFLD(SCNF,SSCNBLK,TXT ,0,2
,'E',1 ,3 ,'L#6')
076 CALL BLDSCNFLD(SCNF,SRPCD ,"Reps Code: " ,0,
5,'D','N',' ','')
077 CALL BLDSCNFLD(SCNF,SDES1 ,"Description: " ,0,
6,'D','N',' ','')
078 CALL BLDSCNFLD(SCNF,SDES2 ,"" ,0,
7,'D','N',' ','')
079 CALL BLDSCNFLD(SCNF,SFRPKLC,"From: PICK Isle location: " ,0,
9,'D', 1 ,1 0,'L#5')
080 CALL BLDSCNFLD(SCNF,SQTPUT ,"Qty putaway: "
,0,12,'D','N',' ','R#7')
081 CALL BLDSCNFLD(SCNF,SCMPLT ,"Complete movement Y/N): "
,0,14,'E','N','
','L#1')
095 CALL RFTEST.SR(COLOFF,ROWOFF)
096 CALL DISPPROMPTS(SCNF,SHDR,SQTPUT)
097 CALL DISPFLDS(SCNF,SCDT,SRPCD,SQTPUT)
101 CALL GETNEXTFLD(SCNF,SCFX,SSCNPRD,SSCNBLK,ANS)
114 CALL DISPPROMPTS(SCNF,SCMPLT,SCMPLT)
116 CALL GETNEXTFLD(SCNF,SCFX,SCMPLT,SCMPLT,ANS)
212 CALL
STOCK.TRANSFER(PRODMV,LOC.ID,LOC.ID,PREREPBIN,SCDT <SSCNBLK>,QTYMV,
"T","REPLENISH",UID,"","","Y")
215 CALL B511.SRF(MVPRODS,MVSRCBINS,MVQTYS,UID,'','AHMRF9.S R2',"")
217 CALL B512.SRF(MVPRODS,MVDESTBINS,MVQTYS,UID,'','AHMRF9. SR2','')

You might want to use "Aisle" instead of "Isle".

It's 212 that has the 12 (x'0c') parameters.

panzerboy (AT) gmail (DOT) com wrote: