Go4AS400-Image

The Web Ask Go4AS400
Share  
Homepage
See Sitemap
as400_FAQ
See Videos here
Contact me



Ü  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*_________________________________________________

 

 


Comments:


Copyright © Go4as400.com, 2014. Copyright notice