.Addtopds/jcl
. Ken Kroninger
. May 1, 1983
.
. Syntax:
.    do addtopds (pds=pdsname,d=drive where files will be found
.
. Route will need to be changed if not Max80
. File/txt must not exist!
.
route *pr file/txt:5
dir #d# (p)
reset *pr
lbasic load"addtopds"
50 pds$="#pds#"
60 d$="#d#"
run
kill file/txt
pds (dir) #pds#
. end!
