what's mean in rpg?

[v5r2]

Fout020 CF E WORKSTN KINFDS INFDS
IINFDS DS
I* ** CURRENT RRN
I B 378 3790SFPG#

what's mean of first "INFDS"? what 's meanning of all above?
(sorry,my english is poor) [QUOTE]

[jamief]

what is infds

English is fine....

check this out first

click here


its a datastructure that is automatically loaded when the file that it is attached to is opened.

It(INFDS) gives information to your program that you can use for many different things.

One example is you can get error messages and then correct them in the program.

The page above will show you all that is available from the INFDS.


***The code you supplied returns from a subfile the relative record number and the subfile page.

This keeps the subfile on the same page when you roll down and hit the enter key.

     FZLUKWHSD  CF   E             WORKSTN INFDS(INFDS)
     F                                     SFILE(SUB01:RRN1)



     C*
     C                   Exfmt     SUB01CTL
     C*
     C                   If        CURREC <> *Zeros
     C                   Eval      RRN1    =  CURREC
     C                   Eval      SCRRN   =  CURREC
     C                   Endif

DDS looks like this

     A*========================================
     A*  Control for subfile number one
     A*       Select Command to Run
     A*========================================
     A          R SUB01CTL                  SFLCTL(SUB01)
     A                                      SFLSIZ(0016)
     A                                      SFLPAG(0010)
     A                                      WINDOW(FMT1)
     A                                      CF03(03)
     A N80                                  CF06(06)
     A                                      CF12(12)
     A                                      PAGEDOWN(33)
     A                                      CF21(21)
     A                                      CF23(23)
     A                                      RTNCSRLOC(&#REC &#FLD)
     A                                      BLINK
     A  99                                  ALARM
     A                                      RTNDTA
     A                                      OVERLAY
     A                                      SFLCSRRRN(&WHERE)
     A  50                                  SFLDSP
     A  51                                  SFLDSPCTL
     A  52                                  SFLCLR
     A            SCRRN          4S 0H      SFLRCDNBR
     A            #REC          10A  H
     A            #FLD          10A  H
     A            WHERE          5S 0H
     A                                  2  1DATE
     A                                      EDTCDE(Y)
     A                                      COLOR(BLU)
     A                                  1  1TIME
     A                                      COLOR(BLU)
     A            C1DAY         10A  O  3  1COLOR(BLU)
     A                                  1 11'Roland Corporation U.S.'
     A                                      DSPATR(HI)
     A                                  2 13'Warehouse selection'
     A                                  1 36USER
     A                                      COLOR(BLU)
     A                                  2 36SYSNAME
     A                                      COLOR(BLU)
     A                                  4  1'Place Cursor on product, press  key'
     A                                      COLOR(BLU)
     A                                  5  2'WHS'
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A                                  5  7'Warehouse Description         '
     A                                      DSPATR(HI)
     A                                      DSPATR(UL)
     A            C1WHS          3A  B  6  2DSPATR(HI)

hope that helps
Jamie

[v5r2]

how can i know use "378 to 379" ? but "005 to 006" or "10003 to 10040" or "500 to 600" and so on?

[jamief]

click the link

Scroll down till you see INFDS then you can see how to tell
what position the data starts and stops in

click here

     D* Display
     D DSP_FLAG1             367    368            * Display flags
     D DSP_AID               369    369            * AID byte
     D CURSOR                370    371            * Cursor location
     D DATA_LEN              372    375I 0         * Actual data len
     D SF_RRN                376    377I 0         * Subfile rrn
     D MIN_RRN               378    379I 0         * Subfile min rrn
     D NUM_RCDS              380    381I 0         * Subfile num rcds
     D ACT_CURS              382    383            * Active window
     D*                                            *  cursor location
     D DSP_MAJOR             401    402            * Major ret code
     D DSP_MINOR             403    404            * Minor ret code

jamie

[v5r2]

Re: click the link

sorry,mine inattention.
tks!