Das Programm nochmal lesbar:

HDEBUG(*INPUT : *DUMP : *XMLSAX) DFTACTGRP(*NO) ACTGRP(*CALLER)
FHDSTAM IF E K DISK
DXHDSTAM E DS occurs(1)
DXHDNR S 6S 0
DXFILIAL S 4S 0
C *ENTRY plist
C parm XHDNR
C parm XFILIAL
C*
C key_hd klist
C kfld XHDNR
C kfld XFILIAL
C key_hd chain HDSTAMF
C if %found
C 1 occur XHDSTAM
C/exec sql
C+ set result sets array :XHDSTAM for 1 rows
C/end-exec
C else
C/exec sql
C+ set result sets none
C/end-exec
C end
C DUMP(A)
C RETURN
C SETON LR