RE: IFS CL Program

PGM

DCLF FILE(JACQRYLIB/DTMOUT8)

START:

LOOP:
RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(THEEND))
IF (&TYPEOBJ *EQ *STMF) THEN(GOTO CMDLBL(EXPORT))

/* CPY OBJ(&OBJECT) TOOBJ('&PATHDIR CONCAT +
&NAMEOBJ') TOCCSID(37) DTAFMT(*TEXT) */

EXPORT: EXPDTMDOC DOC(%trim(&NAMEOBJ)) DIR(%trim(&PATHDIR)) TOFMT(*CSV) +
NEWOBJ(%trim(&object) *CAT '.CSV') +
TODIR('/DTMDIR/EXPDOCS')
GOTO LOOP

THEEND:
ENDPGM

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Rob Berendt
Sent: Wednesday, March 13, 2019 11:27 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: IFS CL Program

OMG, we overlooked the obvious. You forgot the RCVF. This is the file "read".

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of John Candidi
Sent: Wednesday, March 13, 2019 11:23 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: IFS CL Program

How do I make variable equal to a variable in the declared file or is it necessary to do that?

I want to name the OBJ the same as the exiting object but with the .CSV or .??? but the log always comes back showing blanks for the Declared file variables.. can I display the result of each step?


John A. Candidi | IT Systems, Applications and Support Manager
2250 Chapel Avenue West, Suite 200, Cherry Hill, NJ 08002

Office: 856-779-6915
Cell: 484-645-5598
Fax: 856-779-0719
Email: jacandidi@xxxxxxxxxxxxxxxxx
Web: www.aeiginsurance.com




-----Original Message-----
From: MIDRANGE-L [mailto: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 Confidentiality Notice: This message and any attachments contain confidential, proprietary, or privileged information and is intended only for the intended recipients. If you are not an intended recipient, you should not disseminate, distribute, or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. E-mail transmission cannot be guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late, or incomplete, or contain viruses. The sender therefore does not accept liability for any errors or omissions in the contents of this message, which arise as a result of e-mail transmission. If verification is required, please request a hard-copy version.
--
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
--
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