K_DBGTBL - Debug Table

File Name . . . . K_DBGTBL
  Library . . . .   K3S_5DTA
Format Descr. . . Debug Table
Format Name . . . RK_DBGTBL
File Type . . . . PF            Unique Keys-  N

Field Name FMT Start Lngth Dec Key Field Description
DB_UID      A      1     1         Unique Identifier
DB_COUNT    A      2    10         Arbitrary Counter
DB_PROGRAM  A     12    10         Program Name
DB_SEQUENC  A     22     3         Sequence
DB_USER     A     25    10         User Name
DB_TIMESTP  Z     35    26         Current Timestamp
DB_TIMGAP   T     61    20   6     Time Since Last Entry
DB_TIMEFLG  A     81     1         Time Calculation Flag
DB_FLD1     A     82    32         Additional Information 1
DB_FLD2     A    114    32         Additional Information 2
DB_FLD3     A    146    32         Additional Information 3
DB_FLD4     A    178    32         Additional Information 4
DB_FLD5     A    210    32         Additional Information 5
DB_FLD6     A    242    32         Additional Information 6
DB_FLD7     A    274    32         Additional Information 7
DB_FLD8     A    306    32         Additional Information 8
DB_FLD9     A    338    32         Additional Information 9
DB_FLD10    A    370    32         Additional Information 10

Note: Engineers and developers may use this table to log debug information. Access to this table is provided via the AR_DEBUG API.

AR_DBGMISC(count:program:sequence:user:timeFlg:fld1:fld2:fld3:fld4:fld5:fld6:fld7:fld8:fld9:fld10);

Example with sample data

Dcl-S count Char(10)     inz('231);       // Marker for debug info (line number, etc.)
Dcl-S program Char(10)   inz('K3S0001');  // Program name
Dcl-S sequence Char(3)   inz('SAP');      // Sequence
Dcl-S user Char(10)      inz('CHUK');     // User name
Dcl-S timeFlg Char(1)    inz('1');        // Time flag (whether to track time gap)
Dcl-S fld1 Char(32)      inz('Field 1');  // Additional information. Can store variable values, etc.
Dcl-S fld2 Char(32)      inz('Field 2');  // Additional information. Can store variable values, etc.
Dcl-S fld3 Char(32)      inz('Field 3');  // Additional information. Can store variable values, etc.
Dcl-S fld4 Char(32)      inz('Field 4');  // Additional information. Can store variable values, etc.
Dcl-S fld5 Char(32)      inz('Field 5');  // Additional information. Can store variable values, etc.
Dcl-S fld6 Char(32)      inz('Field 6');  // Additional information. Can store variable values, etc.
Dcl-S fld7 Char(32)      inz('Field 7');  // Additional information. Can store variable values, etc.
Dcl-S fld8 Char(32)      inz('Field 8');  // Additional information. Can store variable values, etc.
Dcl-S fld9 Char(32)      inz('Field 9');  // Additional information. Can store variable values, etc.
Dcl-S fld10 Char(32)     inz('Field 10'); // Additional information. Can store variable values, etc.

AR_DBGMISC(count:program:sequence:user:timeFlg:fld1:fld2:fld3:fld4:fld5:fld6:fld7:fld8:fld9:fld10);