David,
This is exactly what I needed to know.
I also look for this for a successful SSH SFTP.
What is now appearing on a successful SSH SFTP?
0060.00 CRTPF FILE(QTEMP/SFTPLOG) RCDLEN(136)
0061.00 MONMSG MSGID(CPF0000)
0062.00
0063.00 CPYSPLF FILE(QPRINT) TOFILE(QTEMP/SFTPLOG) +
0064.00 JOB(&JOBNUM/&JOBUSER/&JOBNAME) +
0065.00 SPLNBR(*ONLY) CTLCHAR(*PRTCTL)
0066.00
0067.00 CALL PGM(SFTPLOG) PARM(&OK)
0001.00 **************************************************************************
0002.00 H/TITLE SFTPLOG - Check SFTP log for success/failure
0003.00 H DATEDIT(*YMD)
0004.00 H* Program Name : SFTPLOG - Check SFTP log for success/failure
0005.00 H* Date Written : 01/21/2011
0006.00 H* Written By : Paul Steinmetz
0007.00 H* Company : Pencor Service Inc.
0008.00 H* Copyright : *NONE
0009.00 **************************************************************************
0010.00 Fsftplog ipe f 136 disk
0011.00 **************************************************************************
0012.00
0013.00 dsearchfor s 10
0014.00 dpos s 4s 0
0015.00 **************************************************************************
0016.00 * Input Parameters
0017.00 isftplog AA 01
0018.00
0019.00 * Record type
0020.00
0021.00 i 1 136 irec
0022.00 **************************************************************************
0023.00 C *ENTRY PLIST
0024.00 C PARM OK 1
0025.00
0026.00 c eval searchfor = 'Uploading'
0027.00 c exsr search
0028.00
0029.00 c if pos <> 0
0030.00 c eval ok = 'Y'
0031.00 c endif
0031.01
0031.02 c eval searchfor = 'Fetching '
0031.03 c exsr search
0031.04
0031.05 c if pos <> 0
0031.06 c eval ok = 'Y'
0031.07 c endif
0032.00
0033.00 **************************************************************************
0034.00 C search begsr
0035.00 **************************************************************************
0036.00
0037.00 /free
0038.00
0039.00 pos = %scan(searchfor: irec :1);
0040.00
0041.00 /end-free
0042.00
0043.00 c endsr
0044.00
****************** End of data *********************************************
Paul
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of David Hunter
Sent: Wednesday, January 07, 2015 1:14 PM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: Possible issue with PTF SI55522
Paul,
What we've found is that we no longer see the word "Uploading" when we do a 'put,' we no longer see "Fetching" when we do a 'get,' and we no longer see "Removing" when we do an 'rm.' We still see these words when we go into QP2TERM and run an interactive session, but when we submit our command to Qshell, we no longer see them in the output. We look for a few things to note a successful session, but the absence of these words makes our application believe the action isn't being taken in the session.
David
--
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.
midrange.com
