FIeld/Object Property names are being truncated in Symbols.subitems.

[bobcozzi]

If you look at this debug dump of the symbols.struct.subitems array, you'll see that several attribute IDs have their first character truncated.
INZ for date fields is NZ
VARYING for CHAR fields is ARYING
DATFMT for DATE fields is ATFMT

[[Prototype]] =
Object
struct.subItems[0].keyword
{CHAR: '10', INZ: "'SeaGrapes'"}
CHAR =
'10'
INZ =
"'SeaGrapes'"
[[Prototype]] =
Object
struct.subItems[1].keyword
{PACKED: '7:2'}
PACKED =
'7:2'
[[Prototype]] =
Object
struct.subItems[3].keyword
{IND: true}
IND =
true
[[Prototype]] =
Object
struct.subItems[4].keyword
{DATE: true, ATFMT: '*ISO'}
ATFMT =
'*ISO'
DATE =
true
[[Prototype]] =
Object
struct.subItems[5].keyword
{DATE: true, ATFMT: '*MDY'}
ATFMT =
'*MDY'
DATE =
true
[[Prototype]] =
Object
struct.subItems[6].keyword
{CHAR: '20', ARYING: true}
ARYING =
true
CHAR =
'20'
[[Prototype]] =
Object
struct.subItems[7].keyword
{TIME: true}
TIME =
true
[[Prototype]] =
Object
struct.subItems[8].keyword
{TIMESTAMP: '0'}
TIMESTAMP =
'0'
[[Prototype]] =
Object
struct.subItems[9].keyword
{CHAR: '100', ARYING: '4'}
ARYING =
'4'
CHAR =
'100'

[worksofliam]

@bobcozzi can you share a piece of RPGLE code that I can use to recreate this?

[bobcozzi]

I had this structure, but also saw it in others.
I am wondering if the issue is actually a syntax highlighting issue related to cut/pasting code from other editors.
Meaning, it may have compressed the space between the subfield lengths and the keywords, due to that one blank/reserved space in column 43. So it wasn't that the typescript was populating incorrectly, but the actual RPG "D" Spec may have been shifted. I loaded it back into SEU and formatted it. Then reloaded it into VS CODE. I will report any miss-direction / compression and then we can close this out. Standby.

     D sName           DS
     D  char1                        10A   INZ('SeaGrapes')
     D  packed72                      7P 2
     D  zoned60                       6S 0
     D  dateISO                        D    DATFMT(*ISO)
     D  dateMDY                        D    DATFMT(*MDY)
     D  varch20                      20A    Varying
     D  TIME1                          T
     D  DTS                            Z
     D  VarchLong                   100A   VARYING(4)

[worksofliam]

@bobcozzi

Standby.

What's the status here?

[bobcozzi]

It was the syntax. So we can cancel or close it.