× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. MIDRANGE-L
  3. February 2012

Re: SPTP Problem when running in Batch

Thanks John,
I tried that, but it still does not work,
I have found what appears to be the issue, but do not understand it.
When running in Batch, the program receives the following message
QSH0002 Escape 40 03/02/12 19:32:41.592481
QZSHQSHC QSHELL *STMT IOMMSBLDCX R37MODS *STMT
From module . . . . . . . . :
QZSHQSHC
From procedure . . . . . . :
SendMsg__FPcT1Pvi
Statement . . . . . . . . . :
2
To module . . . . . . . . . :
IOMMSBLDCX
To procedure . . . . . . . :
IOMMSBLDCX
Statement . . . . . . . . . :
16300
Message . . . . : Error found with
QSH session, reason code 4, errno 3489.
Cause . . . . . : The system
detected an error with a QSH session, reason
code 4, errno 3489. The reason
codes and their meanings are as follows: 1 -
Error found when starting a new QSH
session. 2 - Error found when running
an existing QSH session. 3 - Error
found when ending an existing QSH
session. 4 - Error found when
running a command. 5 - Unexpected error
found. Errno is a value that
indicates the type of the failure. Recovery .
. . : Correct the errors and then
try the request again.

When I run the same program in the Interactive mode, it works fine.
Where can I find the errno that the message in Batch is referring to?

Any idea why it works interactive but not in batch?

Thanks,



On Fri, Feb 3, 2012 at 6:47 PM, John McKee <jmmckee@xxxxxxxxxxxxxx> wrote:

Here is the code to get the retrun code from sftp back to CL:

0022.00 DCL VAR(&RETURNCODE) TYPE(*INT) LEN(4)



0019.00 DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(4)



0023.00 DCL VAR(&RC) TYPE(*CHAR) LEN(5)



0115.00 MONMSG MSGID(QSH0005 QSH0006 QSH0007) EXEC(DO)

0117.00 RCVMSG MSGTYPE(*LAST) RMV(*NO)
MSGDTA(&MSGDTA)

0118.00 CHGVAR VAR(&RETURNCODE) +

0119.00 VALUE(%BIN(&MSGDTA 1 4))

0120.00 CHGVAR VAR(&RC) VALUE(&RETURNCODE)

0121.00 ENDDO



John McKee

On Fri, Feb 3, 2012 at 5:25 PM, Jeff Young <jyoung0950@xxxxxxxxx> wrote:
John,
The program is run under the same user both ways.
Regarding the additional environment variables, I would appreciate it if
you would send them.

Thanks,


On Fri, Feb 3, 2012 at 6:16 PM, John McKee <jmmckee@xxxxxxxxxxxxxx>
wrote:

The example I sent to you also included an environment variable that
causes *ESCAPE messages to be sent. I can't remember if what I sent
also included code to return the return code from the sftp command
running in PASE. If you don't have that piec of code, I will post
that.

Is the program running under the same user profile when it is running in
batch?

John McKee

On Fri, Feb 3, 2012 at 4:51 PM, Jeff Young <jyoung0950@xxxxxxxxx>
wrote:
John,
I am not sure what they are for, but in all the examples that I have
seen,
the && is used.
Regardliess, the program functions properly when run Interactive and
does
not send any data when Batch with no changes at all.
There is always some data to be sent.

I am looking for some explanation as to why that might be happening
and
how
I can find out what is happening.

Thanks,

On Fri, Feb 3, 2012 at 5:32 PM, John McKee <jmmckee@xxxxxxxxxxxxxx>
wrote:

I am puzzled by the syntax on the CHGVAR used to build the &CMD
variable. Specifically /BIN && sftp.

You might want to do a DMPCLPGM and check the variables to see if
they
are formatted as you need.

John McKee

On Fri, Feb 3, 2012 at 3:00 PM, Jeff Young <jyoung0950@xxxxxxxxx>
wrote:
All,
I have finally gotten SFTP to work and was able to create a
program to
transmitt data to the vendor.
When I run the program Interactivly, it works just fine. I get my
sftplog.txt file that i specified in my environment variable with
no
problems.
However, when I run it in the batch with the same user id, the
data is
not
sent, and the sftplog.txt file is not created.
How can I findout what is happening differently when I run it in
batch vs
interactive?


RTVDTAARA DTAARA(IOMMSFTPIP) RTNVAR(&FTP_IP)

ADDENVVAR ENVVAR(SFTP_HOST) VALUE(&FTP_IP) +
REPLACE(*YES)

ADDENVVAR ENVVAR(QIBM_QSH_CMD_OUTPUT) +
VALUE('FILEAPPEND=/tmp/sftplog.txt') +
REPLACE(*YES)
ADDENVVAR ENVVAR(QIBM_QSH_CMD_ESCAPE_MSG) VALUE('Y') +
REPLACE(*YES)


ADDENVVAR ENVVAR(SFTP_USER) VALUE(&MMSFTPUSR)
+

REPLACE(*YES)


CHGVAR VAR(&CMD)
VALUE('PATH=$PATH:/QOPENSYS/BIN&&
sftp
-b +
/FACEYMMS/MMS_SCRIPT.FTPS -oPort=2222
+
$SFTP_USER@$SFTP_HOST')



QSH
CMD(&CMD)


-
CPYFRMSTMF FROMSTMF('/tmp/sftplog.txt') +
TOMBR('/QSYS.LIB/' || &LIB || +
'.LIB/SFTPLOG.FILE/' || &MEMBER |<
'.MBR') +
MBROPT(*ADD)

When I run in batch, this command fails with an object not found
message.

All help will be appreciated.

Thanks,


Jeff Young
Sr. Programmer Analyst
--
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.

--
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.




--
Jeff Young
Sr. Programmer Analyst
--
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.

--
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.




--
Jeff Young
Sr. Programmer Analyst
--
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.

--
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.





As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.