Mike,

PROG1 is consuming a record from the stdin each time it is run. If you
have any lines after the showclock it will have consumed them each time
it looped.

The following will work:

!echo MARY > progparm
!while var1 > 0 do
!  pause 1
!  PROG1 < progparm
!endwhile
!showclock


regards, 
  
Robert W.Mills 
Systems Development Manager 
Pinnacle Arvato 
(020) 8309 3604 


-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Michael Caplin
Sent: 25 June 2007 13:06
To: [log in to unmask]
Subject: [HP3000-L] WHILE LOOP

I have a while loop that runs a program and the program inside of the
while accepts input (cobol accept).

The first time thru, VAR1 = 1 so it pauses and then runs PROG1, which
accepts MARY, and then starts over again.  The 2nd time thru, VAR1 is
still = 1.  PROG1 runs but it accepts the next command after the end
while (SHOWCLOCK).

!WHILE VAR1 > 0
!      PAUSE 1
!      RUN PROG1
MARY
!ENDWHILE 

!SHOWCLOCK

My WHILE experiance is limited.  Any Ideas?

Mike

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *