Go4AS400-Image

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



Ü  SFLDROP

 

·         This keyword is used at record level to display the subfile in truncated form i.e. the subfile records are truncated to fit on one display line.

·         We assign a CA (command attention) or CF (command function) key to control the truncated and folded behavior of subfile by pressing the function key.

·         By default the display mode be truncated one but when the user presses the function key it goes to folded mode.

·         The operator presses the specified CF or CA key to switch from truncated form to folded form or from folded form to truncated form. It is used along with the keyword SFLMODE and SFLFOLD.

 

Ü SFLFOLD

 

·         This keyword is used at record level to display the subfile in folded form by default.

·         We assign a CA (command attention) or CF (command function) key to control the truncated and folded behavior of subfile by pressing the function key.

·         By default the display mode is folded one but when the user presses the function key it goes to truncated mode.

·         The operator presses the specified CF or CA key to switch from folded form to truncated form or from truncated form to folded form. It is used along with the keyword SFLMODE and SFLDROP.

 

 

Ü SFLMODE

·         This keyword is used at record level to set the mode of the subfile i.e. to control if the subfile is to be displayed in folded or truncated form.

·         We use a hidden variable as a parameter of this keyword to control the behavior of the subfile by setting the value of the hidden variable.

·         The operator presses the specified CF or CA key to switch from truncated form to folded form or from folded form to truncated form. By default the display mode be truncated one.

·         It is used along with the keyword SFLDROP and SFLFOLD.

 

 

Example

Columns . . . :    1  71           Browse                        AMIT/QRPGLESRC

 SEU==>                                                               EDTDSPCCC

 FMT DP .....AAN01N02N03T.Name++++++RLen++TDpBLinPosFunctions++++++++++++++++++

0003.00      A          R EXPD_CTL                  SFLCTL(EXPD_SFL)           

0003.10      A  43                                  SFLDSP                     

0003.20      A  42                                  SFLDSPCTL                  

0003.30      A  41                                  SFLCLR                     

0003.40      A  45                                  SFLEND(*MORE)              

0003.50      A                                      SFLSIZ(9999)               

0003.60      A                                      SFLPAG(0005)               

0003.61      A                                      SFLMODE(&MODE)             

0003.63      A  77                                  SFLDROP(CF11)              

0003.64      A N77                                  SFLFOLD(CF11)              

0003.65      A            MODE           1A  H                                  

0003.70      A                                  8  5'OPT   PARTY NAME     PARTY

0003.80      A                                      COLOR(BLU)                 

0003.90      A                                  8 45'PARTY ADDRESS'             

0004.00      A                                      COLOR(BLU)                 

0004.20       *                                                                

0004.30      A          R FOOTER                    OVERLAY                    

                                                                               

 

Here, to control the mode option indicator 77 is used. By pressing F11 we can toggle from SFLDROP state to SFLFOLD mode.

 

 

0008.03 C                   SELECT

0008.04 C     S_OPT         WHENEQ    '1'

0008.05 C                   EXSR      OPTION1

0008.06 C     S_OPT         WHENEQ    '2'

0008.07 C                   EXSR      OPTION2

0008.08 C     S_OPT         WHENEQ    '4'

0008.09 C                   EXSR      OPTION4

0008.10 C     S_OPT         WHENEQ    '5'

0008.11 C                   EXSR      OPTION5

0008.12 C                   OTHER

0008.13 C                   EXSR      VALIDATE

0008.14 C                   ENDSL

0008.15 C                   READC     EXPD_SFL

0008.16 C                   ENDDO

0008.18 C                   EVAL      MODE='1'

0009.00 C                   ENDSR

0010.00  *______________________________________________

0011.00  *___DSPLY SUBROUTINE BEGINS HERE_______________

0012.00 C     DSPLY         BEGSR

0012.01 C                   EXSR      CLRSFL

0012.02 C                   EXSR      FILSFL

0012.03 C                   EXSR      DSPSFL

0013.00 C                   ENDSR

 

 

0015.00 C     DSPSFL        BEGSR

0015.02 C                   SETON                                        4243

0015.03 C                   IF        *INKJ=*ON

0015.04 C                   MOVE      MODE          *IN77

0015.05 C                   ENDIF

0015.06 C                   WRITE     EXPD_CTL

0015.07 C                   WRITE     HEADER

0015.08 C                   WRITE     FOOTER

0015.09 C                   READ      EXPD_CTL

0015.10 C                   SETOFF                                       4243

0016.00 C                   ENDSR

 

 

 

                                                                     

OUTPUT

 

The output will be displayed in the folded mode initially.

 

AJAISWAL               DISPLAY THE EDITABEL SUBFILE                 11/05/13  

                                                                      5/53/29  

                                                                               

                                                                               

    OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY        

                                                                                

                                                                               

    OPT   PARTY NAME     PARTY NUMBER       PARTY ADDRESS                      

          IROBO          P00000000001       CHENNAI                            

          00000000000000000001                                                 

          IROBO          P00000000002       EMPHAL                             

          00000000000000000002                                                  

          SHMANT         P00000000003       CHENNAI                            

          00000000000000000003                                                 

          AFTAB          P00000000007       HOMEIIEA                           

          00000000000000000004                                                 

          AMI            P00000000008       HELLY CORN                         

          00000000000000000005                                                  

                                                                        More...

                                                                               

                                                                                

                                                                               

  F3 = EXIT                                                                    

                                                                               

 

 

After we press F11, We go to the truncated mode as shown below:

 

AJAISWAL               DISPLAY THE EDITABEL SUBFILE                 11/05/13  

                                                                      5/53/29  

                                                                               

                                                                                

    OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY        

                                                                               

                                                                                

    OPT   PARTY NAME     PARTY NUMBER       PARTY ADDRESS                      

          IROBO          P00000000001       CHENNAI                            

          IROBO          P00000000002       EMPHAL                             

          SHMANT         P00000000003       CHENNAI                            

          AFTAB          P00000000007       HOMEIIEA                           

          AMI            P00000000008       HELLY CORN                         

          JPY            P00000000009       JEKINSAN                           

          SHANN          P00000000010       KUPUNUS                            

          HAPART         P00000000011       KOLINSA                            

                                                                               

                                                                               

                                                                         Bottom

                                                                               

                                                                               

                                                                                

  F3 = EXIT                                                                    

                                                                               


Comments:


Copyright © Go4as400.com, 2014. Copyright notice