Re: IFS CL Program -- MIDRANGE-L

Subject: Re: IFS CL Program
From: Barbara Morris <bmorris@xxxxxxxxxx>
Date: Wed, 13 Mar 2019 11:18:28 -0400
List-archive: <https://archive.midrange.com/midrange-l/>
List-help: <mailto:midrange-l-request@lists.midrange.com?subject=help>
List-id: Midrange Systems Technical Discussion <midrange-l.lists.midrange.com>
List-post: <mailto:midrange-l@lists.midrange.com>
List-subscribe: <https://lists.midrange.com/mailman/listinfo/midrange-l>, <mailto:midrange-l-request@lists.midrange.com?subject=subscribe>
List-unsubscribe: <https://lists.midrange.com/mailman/options/midrange-l>, <mailto:midrange-l-request@lists.midrange.com?subject=unsubscribe>

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')

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

RE: IFS CL Program , John Candidi
RE: IFS CL Program , Rob Berendt

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.