Go4AS400-Image

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



Ü  SFLDSPCTL

 

·         This keyword is used at record level to display the fields in the subfile control record format.

·         The option indicator must be turned on before displaying the subfile fields.

 

 

Example

 

0028.00      A          R EXPD_SFL                  SFL

0029.00      A  56                                  SFLNXTCHG

0030.00      A            S_ORG          3S 0O  8 12

0031.00      A            S_ACC         12A  O  8 28

0032.00      A            S_CCY          3A  O  8 49

0033.00      A          R EXPD_CTL                  SFLCTL(EXPD_SFL)

0034.00      A                                      OVERLAY

0035.00      A  52                                  SFLDSP

0036.00      A  51                                  SFLDSPCTL        >>>>>>>>>>>

0037.00      A  50                                  SFLCLR

0038.00      A  45                                  SFLEND(*MORE)

0039.00      A                                      SFLSIZ(0006)

0040.00      A                                      SFLPAG(0005)

0041.00      A            S_RECNO        4S 0H      SFLRCDNBR

0042.00      A                                  6 12'ORG CODE'

0043.00      A                                  6 27'ACCOUNT NUMBER'

0044.00      A                                  6 48'CURRENCY'

 

 

 

               

0077.00 C     DSPSFL        BEGSR

0078.00 C                   SETON                                        5152

0079.00  * - - - Handle session device error if RRN<=0 i.e. no data in the buffer

0080.00 C                   IF        RRN<=0

0081.00 C                   SETOFF                                       52

0082.00 C                   ENDIF

0083.00  *

0084.00 C                   WRITE     HEADER

0085.00 C                   WRITE     FOOTER

0086.00 C                   EXFMT     EXPD_CTL

0087.00 C                   EVAL      S_RECNO=RECNO

0088.00 C                   SETOFF                                       5152

0089.00 C                   ENDSR


Comments:


Copyright © Go4as400.com, 2014. Copyright notice