RE: Protocol for displaying subfile after deleting a record

[Joe Giusto <jgiusto@xxxxxxxxxxxxxx>]

I normally just clear that subfile record and protect the selection field
for that subfile record by moving a x'A0' (that a zero, not an O) to the
program to system field that I define for the display attribute of the
selection field.

D @DSPATR_NORMPR  C                   CONST(X'A0')
NORMAL PROTECT  
* DELETE RECORD                                        
C                   IF        SELECT = '4'              
C     @DBRRN        DELETE    WHFDSCTBL                 
C                   CLEAR                   WHD00101    
C                   EVAL      PSSELECT = @DSPATR_NORMPR 
C                   ENDIF                               
C                                                       
C                   EVAL      SELECT = ' '              
C                   UPDATE    WHD00101                  
C                   EVAL      PSSELECT = ' '            
C                   ENDIF                               

Joe Giusto II
Programmer/Analyst
Ritz Camera
Beltsville, MD
301-419-3209 x347
410-813-2812 x347

 -----Original Message-----
From:   JMBauman@xxxxxxxxxxxxxxxx [mailto:JMBauman@xxxxxxxxxxxxxxxx] 
Sent:   Thursday, August 14, 2003 11:52 AM
To:     rpg400-l@xxxxxxxxxxxx
Subject:        Protocol for displaying subfile after deleting a record





Hi all

I was wondering if any of you would share how you display a subfile after a
user deletes a record.  Do you totally reload and display from the
beginning, leave the record blank?  I am reloading and would like to think
there is a better way.  Thanks
John M. Bauman
Project Manager - Lead Programmer/Analyst
Ward Trucking
Second Avenue & Seventh Street, Greenwood
Altoona, PA 16603

Direct Voice (814) 947-1284
Fax (814) 944-5470
www.wardtrucking.com