Ü  SFLINZ and SFLRNA

 

·         These two keyword is used to initialize a subfile which is done in case we want to make a data entry screen.

·         After the entry is made to be the subfile then only it becomes active, before that it will be inactive. This is done by SFLRNA.

·         By using SFLINZ, the fields in each subfile record are initialized like as below:

CHARèBLANKS

NUMEèZEROS

FLOATèNULLS

 

 

Example


0018.00      A
0019.00      A          R ACC_SFL                   SFL
0019.01      A  66                                  SFLNXTCHG
0019.02      A            A_ORG          3Y 0B 05 02EDTCDE(4)
0019.03      A  81                                  DSPATR(RI)
0019.04      A  81                                  DSPATR(PC)
0019.05      A            A_ACC         12   B 05 09
0019.06      A  82                                  DSPATR(RI)
0019.07      A  82                                  DSPATR(PC)
0019.08      A            A_CCY         03   B 05 25
0019.09      A  83                                  DSPATR(RI)
0019.10      A  83                                  DSPATR(PC)
0019.11      A            A_MNGR        10   B 05 32
0020.00      A            A_CNTRY       10   B 05 46
0021.00       *
0022.00      A          R ACC_CTL                   SFLCTL(ACC_SFL)
0022.01      A                                      WINDOW(06 15 13 57)
0022.03      A                                      SFLPAG(0005)
0022.04      A                                      SFLSIZ(9999)
0022.05      A  63                                  SFLDSP
0022.06      A  62                                  SFLDSPCTL
0022.07      A  61                                  SFLCLR
0022.08      A  60                                  SFLINZ
0022.09      A                                      SFLRNA
0022.10      A  65                                  SFLEND(*MORE)
0023.00      A                                 01 02'ENTER NEW ACCOUNTS FOR PARTY'
0023.01      A                                      COLOR(BLU)
0024.00      A            A_PNUM        12   O 01 31
0025.00      A            A_PNAME       12   O 01 45
0026.00      A                                 03 02'ORG   ACCOUNT NUMBER   +
0027.00      A                                      CCY   ACC MANAGER    COUNTRY'
0027.01      A                                      COLOR(BLU)
0028.00       *
0029.00      A          R ACC_FOOTER
0029.02      A                                      WINDOW(ACC_CTL)
0029.03      A                                      OVERLAY
0031.00      A                                 12 02'F12 = CANCEL'
0032.00      A                                      COLOR(BLU)
****************** End of data ********************************************

                                                                                                                                   

                                                                                                                                    

                                                                                                                                   

                                                                                                                                    

                                                                                                                                   

                                                                                                                                    

                   


Columns . . . :    6  80                Browse                      AMITCCCCC/QRPGLESRC
SEU==>                                                                         EDTRPGCC
FMT *   *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
*************** Beginning of data *****************************************************
0001.00  *
0001.01 HOPTION(*NODEBUGIO)
0001.02 FPARTYD    UF A E           K DISK
0002.00 FACCSUBPF  UF A E           K DISK
0002.01 FEDTDSPCC  CF   E             WORKSTN
0002.02 F                                     SFILE(EXPD_SFL:RRN)
0002.03 F                                     SFILE(ACC_SFL:RRN1)
0002.04  *
0002.05 DRRN              S              4P 0 INZ(*ZEROS)
0002.06 DRRN1             S              4P 0 INZ(*ZEROS)
0002.07 DRRNMAX           S              4P 0 INZ(*ZEROS)
0002.08 D@ERROR           S              1A   INZ(*BLANKS)
0002.09 DOPNDT            DS
0002.10 DMM                              2
0002.11 DFILLER1                         1    INZ('-')
0002.12 DDD                              2
0002.13 DFILLER2                         1    INZ('-')
0002.14 DYY                              4
0002.15  *______________________________________________
0002.16 C                   SETOFF                                       414243
0002.17 C                   SETOFF                                       818283
0002.18 C                   SETOFF                                       455051
0002.19 C                   SETOFF                                       5666
0003.00 C                   DOW       *IN03=*OFF
0004.00 C                   EXSR      MAIN
0004.01 C                   EXSR      DSPLY
0004.02 C                   ENDDO
0005.00 C                   SETON                                        LR
0006.00  *______________________________________________
0007.00  *___MAIN SUBROUTINE BEGINGS HERE_______________
0008.00 C     MAIN          BEGSR
0008.01 C                   READC     EXPD_SFL
0008.02 C                   DOW       NOT %EOF()
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
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
0013.01  *___________________________________________
 
0017.13 C     OPTION1       BEGSR
0017.14 C                   SETOFF                                       12
0017.15 C                   EXSR      CLEARACC
0017.16 C                   EXSR      LOADACC
0017.17 C                   EXSR      DSPACC
0020.28  *- -  - - --  -- -  - --  - -- - - - - - - - - - -
0020.29 C     CLEARACC      BEGSR
0020.30 C                   SETON                                        6061
0020.31 C                   WRITE     ACC_CTL
0020.32 C                   SETOFF                                       6061
0020.33 C                   ENDSR
0020.34  * -- - - - - - - - - - - - - - - - - -- - - - - -
0020.06 C     LOADACC       BEGSR
0020.07 C                   EVAL      RRN1=0
0020.10 C     S_PNUM        SETLL     REC5
0020.11 C                   IF        %EQUAL()
0020.12 C     S_PNUM        READE     REC5
0020.13 C                   DOW       NOT %EOF(ACCSUBPF)
0020.14 C                   EVAL      A_ORG=ORG
0020.15 C                   EVAL      A_ACC=ACC
0020.16 C                   EVAL      A_CCY=CCY
0020.17 C                   EVAL      A_MNGR=ACCMNGR
0020.18 C                   EVAL      A_CNTRY=COUNTRY
0020.19 C                   EVAL      A_PNAME=S_PNAME
0020.20 C                   EVAL      A_PNUM=S_PNUM
0020.22 C                   EVAL      RRN1=RRN1+1
0020.23 C                   WRITE     ACC_SFL
0020.24 C     S_PNUM        READE     REC5
0020.25 C                   ENDDO
0020.26 C                   ENDIF
0020.27 C                   ENDSR
0020.28  *- -  - - --  -- -  - --  - -- - - - - - - - - - -
0020.35 C     DSPACC        BEGSR
0020.36 C                   SETON                                        6263
0020.37 C                   WRITE     ACC_CTL
0020.38 C                   WRITE     ACC_FOOTER
0020.39 C                   READ      ACC_CTL
0020.40 C                   EVAL      S_OPT=*BLANKS
0020.41 C                   ENDSR
0020.42  *- -  - - -- -  - - - - - - - - - - - - - - - --

 

 

 

 

 

 

 


AMIT                   DISPLAY THE EDITABEL SUBFILE                  9/04/13  
                                                                     11/59/03  
                                                                               
                                                                               
    OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY        
                                                                               
                                                                               
    OPT   PARTY NAME     PARTY NUMBER       PARTY ADDRESS                      
    1     IROBO          P00000000001       CHENNAI                            
          IROBO          P00000000002       EMPHAL                             
          SHMANT         P00000000003       CHENNAI                            
          AFTAB          P00000000007       HOMEIIEA                           
          AMI            P00000000008       HELLY CORN                         
                                                                        More...
                                                                                
                                                                   
                                                                               
  F3 = EXIT                                                                    

 

 

 

 

 

 


AMIT                   DISPLAY THE EDITABEL SUBFILE                  9/04/13  
                                                                     11/59/03  
                                                                               
                                                                               
    OPTION: 1 = NEW A/C ENTRY FOR PARTY, 2=EDIT, 4 = DELETE, 5 =DISPLAY        
                 _________________________________________________________      
                | ENTER NEW ACCOUNTS FOR PARTY P00000000001  IROBO        |       
    OPT   PAR   |                                                         |       
    1     IRO   | ORG   ACCOUNT NUMBER   CCY   ACC MANAGER    COUNTRY     |      
          IRO   |                                                         |      
          SHM   | 195    A00000000006    TRY    APPRINA       SOUTN       |      
          AFT   | ___    ___________     ___    _______       _____       |      
          AMI   | ___    ___________     ___    _______       _____       |      
                | ___    ___________     ___    _______       _____       |   ...
                | ___    ___________     ___    _______       _____       |      
                |                                                  More...|      
                |                                                         |      
                | F12 = CANCEL                                            |      
                |_________________________________________________________|         
                                                                                
                                                                               
                                                                               
  F3 = EXIT                                                               

                                                                               





User Comments:





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