executing two designer programs sequentially
Deskin, Bob
Bob.Deskin@Cognos.COM
Wed, 2 Jun 2004 11:11:37 -0400
Okay. There are a number of issues here. First of all, you have both PUSH UPDATE and PUSH UPDATE STAY in 88. The result of this will be that AFTER the execution of 88 completes, QUICK will do an Update (U), followed by an Update Stay (US). Depending on the context QUICK is in (data or action) after the Update, you may get an error or unexpected results, possibly not even noticeable.
Next, if you need to do a complete update before doing the QUIZ and QTP processes in 88, then break those out into a separate named designer procedure (named DOIT for example) and have PUSH UPDATE STAY, DESIGNER DOIT at the end of 88 as in:
PROCEDURE DESIGNER 88
BEGIN
...
PUSH UPDATE STAY, DESIGNER DOIT
END
PROCEDURE DESIGNER DOIT NODATA
BEGIN
<< QUIZ and QTP runs from 88 >>
END
And last, the question still remains exactly how the execution of 89 relates to 88. Once 88 is complete, I gather the user can run 89. Do they have to do a find first? Is there data on the screen? The comments say that a date is needed from 88. I gather that the Update in 88 updates the file that provides the date in 89. If that's the case, the problem is probably the PUSH UPDATE. This would be confirmed if the user must do a find before running 89. If that is the case, then removing the PUSH UPDATE should solve the problem.
Bob Deskin
Product Manager, Application Development Tools
Cognos Inc. 3755 Riverside Drive, Ottawa ON K1G 4K9 CANADA
bob.deskin@cognos.com (613) 738-1338 ext 7268
-----Original Message-----
From: powerh-l-admin@lists.sowder.com
[mailto:powerh-l-admin@lists.sowder.com]On Behalf Of terry terry
Sent: June 2, 2004 10:49 AM
To: powerh-l@lists.sowder.com
Subject: RE: executing two designer programs sequentially
Hi Bob,
This is the actual source code:
PROCEDURE DESIGNER 88 ;created 2004/05 to automate dates /procedure 89
created in 2002
BEGIN
IF VERIFY-STATUS="V" AND VERIFY-ID NE ""
THEN ERROR "CLAIM IS ALREADY VERIFIED/NO DATA MAY BE CHANGED"
ELSE
BEGIN
LET EMPLOYEE-NIN OF MBX-SB-C = EMPLOYEE-NIN OF BEN-SB
LET DATE-OF-APPLICATION OF MBX-SB-C = DATE-OF-APPLICATION OF BEN-SB
LET DATE-OF-SICKNESS OF MBX-SB-C = DATE-OF-SICKNESS OF BEN-SB
LET BENEFIT-YEAR OF MBX-SB-C = BENEFIT-YEAR OF BEN-SB
LET BENEFIT-MONTH OF MBX-SB-C = BENEFIT-MONTH OF BEN-SB
LET BENEFIT-TYPE OF MBX-SB-C = BENEFIT-TYPE OF BEN-SB
LET NUM-DAYS OF MBX-SB-C = DAYS-SICK OF BEN-SB
PUT MBX-SB-C
PUSH UPDATE
RUN COMMAND "QTP AUTO=CUST-SB-HOL-TABLE-START.QTC" CLEAR SCREEN
RUN COMMAND "QUIZ AUTO=CUST-SB-CALC-DAYS1.QZC" CLEAR SCREEN
RUN COMMAND "QUIZ AUTO=CUST-SB-CALC-DAYS2.QZC" CLEAR SCREEN
RUN COMMAND "QTP AUTO=CUST-SB-CALC-DAYS-UPDATE.QTC" CLEAR SCREEN
RUN COMMAND "QTP AUTO=CUST-SB-HOL-TABLE-END.QTC" CLEAR SCREEN
PUSH UPDATE STAY
END
END
PROCEDURE DESIGNER 89 ;created in 2002/12 REQUIRES DATE-BENEFIT-STARTED FROM
88 TO PROCESS
BEGIN
IF VERIFY-STATUS="V" AND VERIFY-ID NE ""
THEN ERROR "CLAIM IS ALREADY VERIFIED/NO DATA MAY BE CHANGED"
ELSE
BEGIN
LET EMPLOYEE-NIN OF BEN-SBMBX = EMPLOYEE-NIN OF BEN-SB
LET DATE-BENEFIT-STARTED OF BEN-SBMBX = DATE-BENEFIT-STARTED OF BEN-SB
LET DATE-OF-APPLICATION OF BEN-SBMBX = DATE-OF-APPLICATION OF BEN-SB
PUT BEN-SBMBX
RUN COMMAND "QUIZ AUTO=BEN-SB-CONT-UPDATE-2-DEC2002.QZS NOLIST" CLEAR
SCREEN
;this quiz contains about 15 programs including qtps and
quizs
END
END
_________________________________________________________________
Tired of spam? Get advanced junk mail protection with MSN 8.
http://join.msn.com/?page=features/junkmail
= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.sowder.com
Subscribe: "subscribe" in message body to powerh-l-request@lists.sowder.com
Unsubscribe: "unsubscribe <password>" in message body to powerh-l-request@lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
This message may contain privileged and/or confidential information. If you have received this e-mail in error or are not the intended recipient, you may not use, copy, disseminate or distribute it; do not open any attachments, delete it immediately from your system and notify the sender promptly by e-mail that you have done so. Thank you.