Ü  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



 

 







User Comments:



Subscribe

  Email:



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