1 MARK
2 %records_group
3? COUNT(data-ref)
4? 
4 INTO(data-area)  LENGTH(data-ref)
5? RESET
6 RESULT(cpsm-token)  THREAD(cpsm-token)  RESPONSE(data-ref)  REASON(data-ref)

records_group

1! CURRENT
1?
1 ALL
1 FILTER(cpsm-token)
1 NOTFILTER(cpsm-token)
1 POSITION(data-value)
1 PARM(data-area)  PARMLEN(data-value)