|
Send MIDRANGE-L mailing list submissions to
midrange-l@xxxxxxxxxxxx
To subscribe or unsubscribe via the World Wide Web, visit
http://lists.midrange.com/mailman/listinfo/midrange-l
or, via email, send a message with subject or body 'help' to
midrange-l-request@xxxxxxxxxxxx
You can reach the person managing the list at
midrange-l-owner@xxxxxxxxxxxx
When replying, please edit your Subject line so it is more specific
than "Re: Contents of MIDRANGE-L digest..."
*** NOTE: When replying to this digest message, PLEASE remove all text unrelated to your reply and change the subject line so it is meaningful.
Today's Topics:
1. RE: iSeries Navigator alternatives? (Ketzes, Larry)
2. Re: dynamic sql query and variable substituion (Ashish Kulkarni)
3. Re: iSeries Navigator alternatives? (davidson_l)
4. RE: iSeries Navigator alternatives? (rob@xxxxxxxxx)
5. RE: How to get only 1 record from a group of common records
(DeLong, Eric)
6. Re: Server Hung (rob@xxxxxxxxx)
7. Re: SAVxxx TAPES: undoubtfully identifying NOT-local origin
(e.g. jury Court room) (Antonio Fernandez-Vicenti)
----------------------------------------------------------------------
message: 1
date: Fri, 16 Apr 2010 08:19:09 -0500
from: "Ketzes, Larry" <Larry.Ketzes@xxxxxxxxx>
subject: RE: iSeries Navigator alternatives?
Vern
Version 5.4 of Navigator. XP on Windows.
Thanks, Larry
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Vern Hamberg
Sent: Friday, April 16, 2010 9:13 AM
To: Midrange Systems Technical Discussion
Subject: Re: iSeries Navigator alternatives?
Larry
What version of Navigator? What versions of Windows?
Just askin'
Vern
Ketzes, Larry wrote:
Actually, price is not the issue. We've been having serious installation
and upgrade problems with the software and IBM support has not been much
help. We are getting a number of messages halting installation and so far
no consistent solution.
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Thursday, April 15, 2010 4:35 PM
To: Midrange Systems Technical Discussion
Subject: Re: iSeries Navigator alternatives?
iSeries Nav is only a small subset of IBM System i Access for windows. It
is a no charge part of that product. The part you pay for is 5250--
emulation and the file transfer. I haven't heard anything from Rumba in
quite awhile - used to use it. There are a plethora of alternative 5250
products out there.
What's your beef? Price?
Rob Berendt
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.
------------------------------
message: 2
date: Fri, 16 Apr 2010 09:58:54 -0400
from: Ashish Kulkarni <ashish.kulkarni13@xxxxxxxxx>
subject: Re: dynamic sql query and variable substituion
Hi
Thanks, this works perfect
Ashish
On Fri, Apr 16, 2010 at 2:17 AM, Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx>wrote:
Hi,
SELECT ... INTO is not allowed with dynamic SQL, but VALUES INTO is!
MyStatement = 'Values(select date(JOTSTP), time(JOTSTP) +
From %TrimR(templib) + '/' + %TrimR(tempfile) +
ORDER BY JOTSTP desc +
fetch first 1 row only) into ?, ?';
Exec SQL Prepare DynSQL from :MyStatement;
Exec SQL Execute DynSQL Using :Date1, :Time1;
Mit freundlichen Gr??en / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
-----Urspr?ngliche Nachricht-----
Von: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] Im Auftrag von Dennis Lovelady
Gesendet: Thursday, 15. April 2010 23:59
An: 'Midrange Systems Technical Discussion'
Betreff: RE: dynamic sql query and variable substituion
> Where i can pass templib and tempfile from other program, all the
> tables
> will have these 2 columns
>
> dtemplib s 10a inz('QTEMP')
> dtempfile s 10a inz('myfile')
> d date1 s d
> d time1 s t
>
> MyStatement = 'select (date(JOTSTP)), (time(JOTSTP)) '
> + 'into :date1 , :time1 from '
> + %TrimR(templib) + '/' + %TrimR(tempfile)
> + ' ORDER BY JOTSTP desc fetch first 1 row only ';
>
> Exec SQL
> Execute Immediate :MyStatement;
>
> This is not working for me at all
Define "is not working for me." I strongly suspect that you're getting an
error about returning too many rows, which would make perfect sense to me.
What are the values of SQLCOD and SQLSTATE when it "doesn't work for you?"
Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"The income tax has made more liars out of American people than golf has."
-- Will Rogers
--
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.
--
Ashish
www.ayurwellness.com
www.mysoftwareneeds.com
------------------------------
message: 3
date: Fri, 16 Apr 2010 11:32:57 -0400
from: "davidson_l" <DAVIDSON_L@xxxxxxxxxxxxxxxx>
subject: Re: iSeries Navigator alternatives?
Surveyor/400, a Linoma product, may be an option for you to
check out.
2. iSeries Navigator alternatives? (Ketzes, Larry)
message: 2
date: Thu, 15 Apr 2010 15:56:07 -0400
from: "Ketzes, Larry" <Larry.Ketzes@xxxxxxxxx>
subject: iSeries Navigator alternatives?
Hello everyone,
I have a question for the group. Is there any
reasonable alternatives to iSeries Navigator software for
gui based iSeries services such as emulation, file transfer
, working with schemas, etc.
I believe Rumba used to be a player in this area.
Thanks, Larry
------------------------------
message: 4
date: Fri, 16 Apr 2010 10:47:18 -0400
from: rob@xxxxxxxxx
subject: RE: iSeries Navigator alternatives?
I don't see any third party replacements for iSeries Navigator. Nice to
see a shop that actually has that many users using iNav. Most shops use
the 5250 part of system i access for windows and that's about it. Some
may use the file transfer. Not a lot roll out iNav though. Sorry you are
having issues with it. On 6.1 or higher they changed
//mysystemi:2001 to default to more than the web admin of old. Much of
that might work as a replacement for iNav.
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
From: "Ketzes, Larry" <Larry.Ketzes@xxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date: 04/16/2010 09:24 AM
Subject: RE: iSeries Navigator alternatives?
Sent by: midrange-l-bounces@xxxxxxxxxxxx
Vern
Version 5.4 of Navigator. XP on Windows.
Thanks, Larry
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Vern Hamberg
Sent: Friday, April 16, 2010 9:13 AM
To: Midrange Systems Technical Discussion
Subject: Re: iSeries Navigator alternatives?
Larry
What version of Navigator? What versions of Windows?
Just askin'
Vern
Ketzes, Larry wrote:
Actually, price is not the issue. We've been having seriousinstallation
and upgrade problems with the software and IBM support has not been muchfar
help. We are getting a number of messages halting installation and so
no consistent solution.It
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: Thursday, April 15, 2010 4:35 PM
To: Midrange Systems Technical Discussion
Subject: Re: iSeries Navigator alternatives?
iSeries Nav is only a small subset of IBM System i Access for windows.
is a no charge part of that product. The part you pay for is 5250
emulation and the file transfer. I haven't heard anything from Rumba in
quite awhile - used to use it. There are a plethora of alternative 5250
products out there.--
What's your beef? Price?
Rob Berendt
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.
------------------------------
message: 5
date: Fri, 16 Apr 2010 09:49:31 -0500
from: "DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>
subject: RE: How to get only 1 record from a group of common records
Peter,
Wow... Just to be sure I understand the issue, you may have multiple
ship-release records for each line on the order. You want to sum up the
ship-release amounts by order line, before you join into the other
tables... Right?
Easy! Use the "With" syntax to pre-group your ship-release file, then
use the summarized version in your primary join in place of the MBADREP
table.
With ShpRls as
( Select order, lineNo, Item, sum(shpQty)
FROM MBADREP
GROUP BY order, lineNo, Item)
SELECT CDAITX AS ITNBR,
ADDRNB AS LINE_ITEM,
CDAAYY AS CUSTNUM,
CDCVNB AS ORDERNO,
...
FROM ... LEFT JOIN ShpRls on ()
Sorry I can't work up a better example right now...
Hth,
-Eric DeLong
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
Peter_Vidal@xxxxxxxx
Sent: Friday, April 16, 2010 8:06 AM
To: midrange-l@xxxxxxxxxxxx
Subject: SQL: How to get only 1 record from a group of common records
Hi list!
I need to find a way to sum the results of more than one child record
(shipment release file) for each parent (order item header) so the table
does not return more than one line for each ordered line item.
The code we have so far is the following:
SELECT CDAITX AS ITNBR,
ADDRNB AS LINE_ITEM,
CDAAYY AS CUSTNUM,
CDCVNB AS ORDERNO,
ADDZVA AS ORDER_QTY,
DDARQT AS SHIP_QTY,
CDDTVA AS UNIT_PRICE,
CONCAT(SUBSTR(CDALDT,4,2),CONCAT('/',CONCAT(SUBSTR(CDALDT,6,2),CONCAT('/
',SUBSTR(CDALDT,2,2)))))
AS ORDER_DATE,
CONCAT(SUBSTR(C.ADBIDT,4,2),CONCAT('/',CONCAT(SUBSTR(C.ADBIDT,6,2),CONCA
T('/',SUBSTR(C.ADBIDT,2,2)))))
AS PROMISE_DATE
FROM ((AMFLIB1.MBC6REP A
LEFT JOIN AMFLIB1.MBCDREP B ON A.C6AENB = B.CDAENB AND A.C6DCCD =
B.CDDCCD
AND A.C6CVNB = B.CDCVNB)
LEFT JOIN AMFLIB1.MBADREP C ON A.C6AENB = C.ADAENB AND A.C6DCCD =
C.ADDCCD
AND A.C6CVNB = C.ADCVNB AND B.CDFCNB = C.ADFCNB )
LEFT JOIN AMFLIB1.MBBFREP D ON A.C6AENB=D.COMNO AND A.C6CANB = D.CUSNO
LEFT JOIN AMFLIB1.MBDEREP F ON A.C6B9CD = F.DEB9CD AND A.C6AENB =
F.DEAENB
AND F.DECANB = A.C6CANB
LEFT JOIN AMFLIB1.ITEMBL G ON B.CDAITX=G.ITNBR
LEFT JOIN AMFLIB1.MBDDREP H ON A.C6AENB = H.DDAENB AND A.C6CVNB =
H.DDCVNB
AND C.ADDRNB = H.DDABDD
WHERE A.C6AENB = 24 AND CDA3CD = 'BA1' AND CDAITX <> ' ' AND G.HOUSE =
'BA1'
AND A.C6DCCD = '1' AND A.C6FNST <> '50' AND CDH3ST <> '50' AND
C.ADBIDT < 1100319 AND CDCVNB = 435605
Just for your information:
1) MBC6REP = Sales Order - Header File
2) MBCDREP = Sales Order - Line Item File
3) MBADREP = Sales Order - Releases File
4) MBBFREP = Customer Master File
5) MBDEREP = Ship-To file
6) ITEMBL = Item Inventory Balance File
7) MBDDREP = Shipment Releases
Can you use a select statement within a select statement using SUM and
returning results as a column value in the original table? I do not
know,
I am just guessing.
Any help is highly appreciated.
TIA,
PETER VIDAL
PALL CORPORATION | SR SYSTEM ANALYST @ WH APPLICATION DEVELOPMENT GROUP
10540 RIDGE RD., SUITE 203, NEW PORT RICHEY, FL 34654-5111
727-815-3104 ||| FAX: 727-815-3120 ||| WWW.PALL.COM
"Imagination is more important than knowledge..."
Albert Einstein (1879 - 1955)
------------------------------------------------------------------------
--------
Attention:
This communication may contain information that is confidential,
privileged and/or exempt from disclosure under applicable law.
If you are not the intended recipient, please notify the sender
immediately and delete the original, all attachments, and all
copies of this communication.
------------------------------------------------------------------------
--------
--
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.
------------------------------
message: 6
date: Fri, 16 Apr 2010 10:53:09 -0400
from: rob@xxxxxxxxx
subject: Re: Server Hung
What job was hung in QSYSWRK?
This is what I fear. The job would not end with ENDJOB, ENDSBS or any
such combination. Your remaining alternatives are ENDJOBABN or IPL. In
general, ENDJOBABN should not be something you code into a CL program to
automatically try 5 minutes after the failure of ENDJOB or ENDSBS. Note:
Read the help on ENDJOBABN. It does require a 5 minute delay between
ENDJOB and ENDJOBABN and will enforce that.
If you find that job, then a google search on it may show you something.
Could be anything from:
get this ptf
to
do this function to end the job politely prior to shutdown
Time to start thinking about moving to a supported version of the OS.
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
From: Sneha Verma <snehaverma001@xxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date: 04/16/2010 08:54 AM
Subject: Re: Server Hung
Sent by: midrange-l-bounces@xxxxxxxxxxxx
Hello Rob,
I have analysed the logs and found that the subsystem QSYSWRK could not
be killed prior to the start of backup.There was a job QSYSWRK running in
the susbsytem QSYSWRK which could not be killed due to which the QSYSWRK
sbs could not be ended.
This prevented the system from entering the restricted state.The system
logs suggest the follwong:
Message . . . . : *SAVSYS bypassed for control group SAVALL.
Cause . . . . . : The save system (*SAVSYS) was bypassed for control
group
SAVALL because restricted state could not be reached. The end of all
subsystems would not bring the system down due to activity in progress
on
the system. Processing will continue within the control group.
Since the system could not come to restricted state ,it could not pop up
after the backup was over.Please can you or anyone suggest how we can
prevent this from happening again.
Also is my analysis correct on system not coming up after backup.
Please advice asap.
Will it be worthwhile to schedule a job which would end the QSYSWRK
subsystem 5 minutes prior to start of backup.
I am also attaching the details of the control group SAVALL thru which the
daily backup runs.:
Regards
Sneha
--- On Fri, 16/4/10, rob@xxxxxxxxx <rob@xxxxxxxxx> wrote:
From: rob@xxxxxxxxx <rob@xxxxxxxxx>
Subject: Re: Server Hung
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Date: Friday, 16 April, 2010, 12:25 PM
I assume that this is a BRMS version of GO SAVE 21, right? Otherwise, why
would you need restricted state?
Anyway, can you find the joblog that brings it out of restricted state and
see if there's any abnormality?
Just as a matter of habit whenever I go into restricted state I always IPL
to get out of it. However I believe that a STRSBS SBS(see value of system
value QCTLSBSD) should also work to get your system out of restricted
state. If you have an HMC you should also have a console on there,
(unless, for some silly reason you still use twinax as a console). That
device should have been able to do a STRSBS.
Sample: On a system with QCTLSBSD set to QCTL you do an ENDSBS *ALL
*CNTRLD DELAY(120). After the two minutes (and change) your system is in
restricted state. You do a WRKACTJOB and you will see QCTL with a status
of END and your system console job will be in there. END basically means
that no new job (other than the system console job) will start. Now, you
do a STRSBS QCTL and it brings it out of END state and runs any autostart
job entries associated with that subsystem. One of these will be the job
QSTRUPJD. This utilizes system value QSTRUPPGM to start your system up.
Find that joblog.
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
From: Sneha Verma <snehaverma001@xxxxxxxx>
To: midrange-l@xxxxxxxxxxxx
Date: 04/16/2010 01:04 AM
Subject: Server Hung
Sent by: midrange-l-bounces@xxxxxxxxxxxx
Hi,
We have BRMS installed on the AS400.Last night the backup completed and
after that the system could not come up after restricted state and went to
hung state.I had to give the restart from HMC after which the system could
come up.
I have been checking the log for potential problem of server hang.But the
logs do not suggest anything about the hang.They just show that the backup
completed .
Please can anyone suggest where I could find the reason for the hang or
what can be the reason for this hang.We are on V4R5.
RegardsSneha
Send free SMS to your Friends on Mobile from your Yahoo! Messenger.
Download Now! http://messenger.yahoo.com/download.php
--
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.
Send free SMS to your Friends on Mobile from your Yahoo! Messenger.
Download Now! http://messenger.yahoo.com/download.php[attachment
"SAVALL.txt" deleted by Rob Berendt/DEKKO] -- 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.
------------------------------
message: 7
date: Fri, 16 Apr 2010 17:49:41 +0200
from: Antonio Fernandez-Vicenti <afvaiv@xxxxxxxxxxxxxx>
subject: Re: SAVxxx TAPES: undoubtfully identifying NOT-local origin
(e.g. jury Court room)
Thanks to all who answered.
I just has a meeting with customer, and in the light of all your
comments we're going to consider alternatives you suggested.
Nevertheless, we (customer a myself) are quite surprised:
AS/400, iSeries, i5 ... such a powerful beast... Journals of all kinds,
HA programs (MIMIX, etc) and so many good things, ...
and something so "basic" as to identify the System's SYSNAME /
MachineSerialNo when you do a SAVxxx is not kept anywhere!!!
As mentioned, we shall reconsider checksum, hash, php, ... but this
should be "in addition to"...
Anybody can give me a reason why writing SYSNAME/Machine SerialNo. to
the first few tape blocks would be a bad idea?
So many years since S/38 was born, I had never thought tapes were ALL
UNidentified , as per their origin!
TIA
El 14/04/2010 18:05, Antonio Fernandez-Vicenti escribi?:
Assume you have several iSeries systems.
Some has stolen one of your tapes with LIBxxx objects (files, etc).
Restores it to a different system. Modifies some / much of the data,
then does a SAVLIB.
If the case arrives, ... Can you positively, strictly, identify that
tape as being NOT-one-of-ours-for-sure?
e.g., by means of dumping control blocks at the beginnig of the tape, or
any other similar ways.
I guess System's SYSNAME or SerialNo. are not kept in the tape's data
control blocks.
And, even if it is, can you strictly prove "it-is-NOT-our-tape"?
TIA
--
Antonio Fern?ndez-Vicenti
afvaiv@xxxxxxxxxxxxxx
------------------------------
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) digest 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.
End of MIDRANGE-L Digest, Vol 9, Issue 662
******************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
midrange.com
