RE: IFS CL Program

Barbara is right, with one slight modification.
EXPORT: EXPDTMDOC DOC(&NAMEOBJ) DIR(&PATHDIR) TOFMT(*CSV) +
NEWOBJ(%trim(&OBJECT) *CAT '.' *CAT 'CSV') +
TODIR('/DTMDIR/EXPDOCS')
And you might as well simplify it to
EXPORT: EXPDTMDOC DOC(&NAMEOBJ) DIR(&PATHDIR) TOFMT(*CSV) +
NEWOBJ(%trim(&OBJECT) *CAT '.CSV') +
TODIR('/DTMDIR/EXPDOCS')

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Barbara Morris
Sent: Wednesday, March 13, 2019 11:18 AM
To: midrange-l@xxxxxxxxxxxxxxxxxx
Subject: Re: IFS CL Program

On 2019-03-13 8:07 AM, John Candidi wrote:

PGM

DCL VAR(&PATHDIR) TYPE(*CHAR) LEN(35)
DCL VAR(&OBJECT) TYPE(*CHAR) LEN(15)
DCLF FILE(JACQRYLIB/DTMOUT8)
...
/* CPY OBJ(&OBJECT) TOOBJ('&PATHDIR CONCAT +
&NAMEOBJ') TOCCSID(37) DTAFMT(*TEXT) */
... > EXPORT: EXPDTMDOC DOC(&NAMEOBJ) DIR(&PATHDIR) TOFMT(*CSV) +
NEWOBJ('OBJECT' *CAT '.' *CAT 'CSV') +
TODIR('/DTMDIR/EXPDOCS')

The NEWOBJ parameter of EXPDTMDOC will always be 'OBJECT.CSV'. I'm guessing it should be &OBJECT instead of 'OBJECT'.

EXPORT: EXPDTMDOC DOC(&NAMEOBJ) DIR(&PATHDIR) TOFMT(*CSV) +
NEWOBJ(&OBJECT *CAT '.' *CAT 'CSV') +
TODIR('/DTMDIR/EXPDOCS')

--
Barbara

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com