/* REXX */
parse arg control loadmod list options

if source='' then
do
   say 'Usage : ld2 control loadmod list options'
   exit 2
end

x=bpxwdyn("alloc fi(syslin) path('"control"') pathopts(ordonly) msg(2)")
x=x+bpxwdyn("alloc fi(sysprint) path('"list"')",
            "pathopts(owronly,ocreat,otrunc) pathmode(sirwxu) msg(2)")
x=x+bpxwdyn("alloc fi(syslmod) path('"loadmod"')",
            "pathopts(owronly,ocreat,otrunc) pathmode(sirwxu) msg(2)")
x=x+bpxwdyn("alloc fi(syslib) dsn('"CEE.SCEELKED"') shr msg(2)")
x=x+bpxwdyn("alloc fi(sysut1) new space(10,10) tracks unit(sysallda) msg(2)")

if x<>0 then
do
   x=bpxwdyn("free fi(syslin)")
   x=bpxwdyn("free fi(sysprint)")
   x=bpxwdyn("free fi(syslmod)")
   x=bpxwdyn("free fi(syslib)")
   x=bpxwdyn("free fi(sysut1)")
   exit 4
end

parm=""options""

address attchmvs 'LINKEDIT parm'
rrc=rc

x=bpxwdyn("free fi(syslin)")
x=bpxwdyn("free fi(sysprint)")
x=bpxwdyn("free fi(syslmod)")
x=bpxwdyn("free fi(syslib)")
x=bpxwdyn("free fi(sysut1)")

if rrc>4 then
do
    'rm 'loadmod''
end

exit rrc
