RE: Issues compiling FREE pgm

The prototype doesn't define the variables. You don't even need them.

D qcmdexc PR ExtPgm('QCMDEXC')
D 500A options(*varsize)
D 15P 5 Const

Kevin Bucknum
Senior Programmer Analyst
MEDDATA/MEDTRON
Tel: 985-893-2550

-----Original Message-----

From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf
Of MichaelLange@xxxxxxxxxx
Sent: Thursday, February 8, 2018 1:27 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Issues compiling FREE pgm




Sorry if you get this twice sent the first time to the wrong address.


So I'm trying to compile this pgm with a call to LWNORD09R1

/FREE
// Parameter list for SAB16R.
D SAB16R PR EXTPGM('SAB16R')
D RUNDTE 8 0
D SAB16R PI
D RUNDTE 8 0
// Call to LWNORD09R1 to get list and net for order.
D GETNET PR EXTPGM('LWNORD09R1')
D XORD# 8 0
D XSUFX 2 0
D XTLST 13 2
D XTNET 13 2

But its not compiling for reasons of ....

The name or indicator XORD# is not defined.
The name or indicator XSUFX is not defined.
The name or indicator XTLST is not defined.
The name or indicator XTNET is not defined.

They look defined to me.

Also...

The prototype for the call is not defined.


What am I missing.
Trying to find a previous pgm that I coded with a call but haven't

found it yet.

Regards
Michael Lange
Loewen Windows
Steinbach, MBThis e-mail message, including any attachments, is for

the sole

use of the person to whom it has been sent, and may contain

information

that is confidential or legally protected. If you are not the intended

recipient

or have received this message in error, you are not authorized to

copy,

distribute, or otherwise use this message or its attachments. Please

notify

the sender immediately by return e-mail and permanently delete this
message and any attachments. Loewen makes no warranty that this e-mail

is

error or virus free.
Please think green before printing this email.
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx 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: http://amzn.to/2dEadiD