If you only need a unique reference id, then I would format your 12 byte field 
something like:

1. Region id (4 bytes - unique to each CICS) 
2. Date-time (4 bytes - bits 0 - 31 of TOD, I'd use use STCKF)
3. Counter (4 bytes - local to each CICS, no need for remote access)


|--STCKE--|     |---TOD---|     |-----------Step Value----------|
Byte    Bit     Byte    Bit     Days    Hours   Mins    Seconds
1       8       0       0       26062   11      56      53.685248
1       9       0       1       13031   5       58      26.842624
1       10      0       2       6515    14      59      13.421312
1       11      0       3       3257    19      29      36.710656
1       12      0       4       1628    21      44      48.355328
1       13      0       5       814     10      52      24.177664
1       14      0       6       407     5       26      12.088832
1       15      0       7       203     14      43      6.044416
2       16      1       8       101     19      21      33.022208
2       17      1       9       50      21      40      46.511104
2       18      1       10      25      10      50      23.255552
2       19      1       11      12      17      25      11.627776
2       20      1       12      6       8       42      35.813888
2       21      1       13      3       4       21      17.906944
2       22      1       14      1       14      10      38.953472
2       23      1       15      0       19      5       19.476736
3       24      2       16      0       9       32      39.738368
3       25      2       17      0       4       46      19.869184
3       26      2       18      0       2       23      9.934592
3       27      2       19      0       1       11      34.967296
3       28      2       20      0       0       35      47.483648
3       29      2       21      0       0       17      53.741824
3       30      2       22      0       0       8       56.870912
3       31      2       23      0       0       4       28.435456
4       32      3       24      0       0       2       14.217728
4       33      3       25      0       0       1       7.108864
4       34      3       26      0       0       0       33.554432
4       35      3       27      0       0       0       16.777216
4       36      3       28      0       0       0       8.388608
4       37      3       29      0       0       0       4.194304
4       38      3       30      0       0       0       2.097152
4       39      3       31      0       0       0       1.048576

Don Williams

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to