Data Definition Language (DDL) Reference Manual

SPI Tokens
Data Definition Language (DDL) Reference Manual—529431-004
7-12
Standard SPI TOKEN-CODE Definitions
The value of the pTAL or TAL representation of the token code is in Example 7-11 on
page 7-12 identical to the value generated for COBOL source-code output from the
same TOKEN-CODE statement.
The generated value in Example 7-12 on page 7-12 is identical to the value of a pTAL
or TAL literal or a COBOL data item generated from the same TOKEN-CODE
statement.
The value of the TOKEN-CODE statement generated in Example 7-13
on page 7-12 is
the same as that generated for COBOL, pTAL, TAL, or TACL.
The value of the TOKEN-CODE statement generated in Example 7-14
on page 7-12 is
the same as that generated for the other host languages.
Example 7-11. TAL Source Code Generated for Example 7-9 on page 7-11
Literal ASSN^TKN^MY^STATUS = 11D '<<' 24 + 2D '<<' 16 + 101D;
Literal ASSN^TKN^STAT^REPLY = 11D '<<' 24 + 2D '<<' 16 + 102D;
Example 7-12. TACL Source Code Generated for Example 7-9 on page 7-11
?Section ASSN^TKN^MY^STATUS Struct
BEGIN
INT2 TOKEN^CODE VALUE 184680549;
END
?Section ASSN^TKN^STAT^REPLY Struct
BEGIN
INT2 TOKEN^CODE VALUE 184680550;
END
Example 7-13. C Source Code Generated for Example 7-9 on page 7-11
#pragma section assn_tkn_my_status
#define ASSN_TKN_MY_STATUS 184680549LU
#pragma section assn_tkn_stat_reply
#define ASSN_TKN_STAT_REPLY 184680550LU
Example 7-14. Pascal Source Code Generated for Example 7-9 on page 7-11
?Section ASSN_TKN_MY_STATUS
CONST ASSN_TKN_MY_STATUS = 184680549;
?Section ASSN_TKN_STAT_REPLY
CONST ASSN_TKN_STAT_REPLY = 184680550;