C* 他のJOBにソケットをあたえる ----------------------*
C CALL 'SKGIVE'
C PARM SD 4
C PARM RC 1
C PARM 'SOKBCH 'APLID 8
C*------------------------------------------------------*