This is in RPG
I worked out what the problem wad but would still no how to capture the error in rpg
Sent via the Samsung GALAXY S® 5, an AT&T 4G LTE smartphone
-------- Original message --------
From: William Hartill <WHartill@xxxxxxxx>
Date: 1/9/2016 5:36 PM (GMT-05:00)
To: Alan Shore <ashore@xxxxxxxx>, Stephen Pennachio <SPennachio@xxxxxxxx>
Cc: rpg400-l@xxxxxxxxxxxx, Linda Buonasera <LindaBuonasera@xxxxxxxx>, Rinku nair <Rinkunair@xxxxxxxx>, Senthil Jayaraj <Senthil_Jayaraj@xxxxxxxxxxx>, Vinoth Kumar Srinivasan02 <Vinoth_Srinivasan02@xxxxxxxxxxx>
Subject: Re: capturing errors in RPG from using QSH commands
Stephen and i had the same issue. He can share the clp
Bill Hartill
On Jan 9, 2016, at 1:22 PM, Alan Shore <ashore@xxxxxxxx<mailto:ashore@xxxxxxxx>> wrote:
Hi everyone
Before I forget, we are on V5r4
Here is my predicament
We are using QSH within RPGILE
For example
Monitor;
Pcmd = 'QSH CMD('+#Q+'cat ' +
%Trim(IfsPathNm) +
' | Rfile -wbQ -c ' +
#DQ + 'ovrprtf qsysprt ' +
' SAVE(*YES)' +
' OUTQ(' + %Trim(OutQNm) + ')' +
' splfname' +
'('+%Trim(OutQFileNm)+')' + #DQ +
' qsysprt' + #Q + ')';
PLength =%Len(%Trim(PCmd));
QCmdExc(PCmd:PLength);
On-Error;
OutErr = 'Yes';
EndMon;
Using debug, the contents of Pcmd is
QSH CMD('cat /Metapack/ZPL/Decoded/DMC3WT13S503L.BIN | Rfile -wbQ -c "ovrprtf qsysprt SAVE(*YES) OUTQ(IWPZEB10) splfname(C3WT13S503)" qsysprt')
What I am trying to do is move a label to an outq to be printed to a zebra label printer
Again, when in debug, the On-error is NOT touched – but the command does not work, when the profile running this program is *USER
But cutting and pasting this command to the command line as *PGMR, the command DOES work
So I am thinking there is some type of authorization problem – but why is it NOT being captured by the monitor end-mon
Is this the correct thing to use with Qsh?
A second piece of information
The program uses qsh commands elsewhere, in the same manner, and those commands are successful and show up in the users joblog
This one dosent
Alan Shore
E-mail : ASHORE@xxxxxxxx<mailto:ASHORE@xxxxxxxx>
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill
midrange.com
