executing two designer programs sequentially

[terry terry]

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