Re: QSH scripting

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>]

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.