Ü  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-2016. Copyright notice