PERFORM DUMP

1 PERFORM DUMP DUMPCODE(data-value)
2? 
2 TITLE(data-area)  TITLELENGTH(data-value)
3? 
3 CALLER(data-value)  CALLERLENGTH(data-value)
4? DUMPID(data-area)