Ü  SFLCLR

 

·         This keyword is used to clear the records in the subfile records format.

·         When there are some active records on the subfile and we want to clear that to write a new record then we can issue an output operation on the screen with SFLCLR on and then can write the new records.

·         An indicator can control this keyword.

 

Example

 


0029.00      A          R EXPD_SFL                  SFL
0030.00      A  56                                  SFLNXTCHG
0031.00      A            S_ORG          3S 0O  8 12
0032.00      A            S_ACC         12A  O  8 28
0033.00      A            S_CCY          3A  O  8 49
0034.00      A          R EXPD_CTL                  SFLCTL(EXPD_SFL)
0035.00      A                                      TEXT('Y')
0036.00      A                                      OVERLAY
0037.00      A  52                                  SFLDSP
0038.00      A  51                                  SFLDSPCTL
0039.00      A  50                                  SFLCLR
0040.00      A  45                                  SFLEND(*MORE)
0041.00      A                                      SFLSIZ(0006)
0042.00      A                                      SFLPAG(0005)
0043.00      A            FIRSTRRN       4S 0H      SFLRCDNBR(CURSOR)
0044.00      A                                  6 12'ORG CODE'
0045.00      A                                  6 27'ACCOUNT NUMBER'
0046.00      A                                  6 48'CURRENCY'

 

 

 

 

 

 

 
0076.00 C*_______________CLEAR SUBFILE_____________________
0077.00 C*_________________________________________________
0078.00 C     CLRSFL        BEGSR
0079.00 C                   EVAL      RRN=0
0080.00 C                   SETON                                        50
0081.00 C                   WRITE     EXPD_CTL
0082.00 C                   SETOFF                                       50
0083.00 C                   ENDSR
0084.00 C*_________________________________________________

 





User Comments:





Copyright © Go4as400.com, 2013-2017. Copyright notice