Home	The Company	Publications	Products	Links	Tips

How can I program a moving status bar on a 3270 screen?

0010 	DEFINE DATA LOCAL                                     
0020 	1 #STRING (A50)                                       
0030 	1 #LOOP (N5)                                          
0040 	1 #DELAY (I2) INIT <1>                                
0050 	END-DEFINE                                            
0060 	FOR #LOOP = 1 TO 50                                   
0070 	  SET CONTROL 'N'          
0080 	  CALL 'CMROLL' #DELAY                                
0090 	  MOVE '*' TO SUBSTRING (#STRING,#LOOP,1)             
0100 	  WRITE #STRING (CD=YE AD=V DY=*N%)                   
0110 	  RESET #STRING                                       
0120 	  NEWPAGE                                             
0130 	END-FOR                                               
0140 	END                                                   

Top Page

Back to NATURAL Tips, Tricks, Techniques -- Overview