You can do it in REXX. The example creates a member in a PDS.
fname = 'MY.PDS.DATASET'
outmem = 'MEM'!!substr(rundatjj,3,2)!!'M'!!rundatmm
outdsn = fname!!'('!!outmem!!')'
r = fopen(outdsn)
....
fopen: parse arg dsn
"ALLOC FI("out") DA('"dsn"') OLD"
if rc<>zero then do
say '*** Error ALLOC, rc='!!rc
exit(ex)
end
return(zero)
Albert
VERLAGSGRUPPE WELTBILD GMBH
Sitz der Gesellschaft: Augsburg
Handelsregister Augsburg HRB 6035
Ust-ID-Nr: DE 127501299
Geschäftsführung:
Carel Halff (Vorsitzender), Dr. Klaus Driever, Werner Ortner, Herbert Zoch
Vorsitzender des Aufsichtsrates:
Dr. Klaus Donaubauer
