Re: QSH scripting -- MIDRANGE-L

AFAIK, only by running in batch. Is PASE an option? With that you can CALL QP2SHELL instead of QP2TERM and run the shell script - might need to add #/bin/sh or whatever that thing is that tells Unix what shell to use.

HTH
Vern

At 07:05 PM 2/11/2004 -0600, you wrote:

Here's the update. We created a directory under /usr named as400check. The
unix programmer created his routine in that directory. Here's what it
looks like:

#Bill Vanderveen
#February 11, 2004
#This is a QSH script that will wrap to call to AS400CheckClient
#
# parameters:  1 - directory (of file being printed)
#              2 - filename (of file being printed)
#              3 - document type to be printed by Optio
if $# < 3
then
   echo "usage: optio directory filename doctype"
else
   java -Djava.security.policy=java.policy -classpath .:./public
app.rbc.as400CheckClient.AS400CheckClient ${1} ${2} ${3}
fi

He gave me the exact command to push the check spool file to the unix box,
and I was able to create a CL program around it. I had to use EDTF to
create the source, since this customer does not have PDM on the
machine(what a pain). Forgive the appearance, as I pulled the blank lines
out of the source code.

Does anybody know how to end the QSH interpreter? When I run this program
interactively, I end up at a command prompt telling me to press enter to
exit out of QSH.

PGM
CPYSPLF     FILE(APP032) TOFILE(CHECKS) +
JOB(696254/TKELSEY/AP_CHK_PRT) CTLCHAR(*NONE)

CPYTOSTMF   FROMMBR('/QSYS.LIB/qgpl.LIB/checks.FILE/checks.MBR') +
TOSTMF('/usr/as400check/checks.txt') STMFOPT(*REPLACE) +
STMFCODPAG(*STDASCII)

QSH CMD('java -Djava.security.policy=/usr/as400check/java.policy
-classpath
/usr/as400check:usr/as400check/public
app.rbc.as400CheckClient.AS400CheckClient
/usr/as400check checks.txt textpcl')
ENDPGM


Paul Nelson
Arbor Solutions, Inc.
708-670-6978  Cell
pnelson@xxxxxxxxxx
_______________________________________________
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: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.