Products Downloads


French version


 

To work with the fill-in of subfiles in dynamic mode, you must not use the ROLL_UP instruction, since it is only valid for an automatic fill-in of a subfile (MANAGE_SFL, UPD_SFL, END_MANAGE_SFL).

 

You must:

  • Check the "Dynamic pagination" box for view *1 or enter 2 in the type of pagination (in Adelia/400).

  • Not specify a guide file for the load.

  • Create a view 01 (for example), with *1 as file origin.

    • The view mode is set to update with creation of records.

    • Access is by key, with WRAN01 as key.

    • The guide word for this view could be: LINE_SF1.

  • If necessary, create a view to work with the file to be displayed (update, etc.).

  • Define a new variable in the prototype:

field = WRAN01 GW = WRAN01 Ln = 4 Dec = 0 Ref = *NODEF

  • Create a procedure to load a page of the subfile:

BEGIN_PROCEDURE LODSF1

LODSF1 is the procedure name

*NBL01 = 0

Resets the number of records

*IN08 = '0'

loaded in the page.

DO_WHILE check outcome of read operation and *NBL01 < *NBLS1

screen fields = file fields

Replaces the PRESENT instruction

*NBL01 = *NBL01 + 1

+ 1 in the number of records

 

of the current page.

*DEL01 = *DEL01 + 1

) Replaces

WRAN01 = *DEL01

) the UPD_SFL

CREATE LINE_SF1

) instruction

read next record

 

REDO

 

*IN07 = '0'

 

IF next record DOES_NOT_EXIST

 

*IN07 = '1'

) Erases the "+" continuation sign

END

 

END_PROCEDURE

 

  • Enter in the INITIALIZATION section:

**********************

INITIALIZATION aa

aa = transaction number

**********************

CLEAR 1

Initializes subfile

read the first record of file

PROCESS_PROC LODFG1

Loads first page

  • Enter in the TRANSACTION section:

**********************

TRANSACTION aa

aa = transaction number

**********************

IF *ROLLUP

 

PROCESS_PROC LODSF1

 

*RANPA1=0

) Allows to force the redisplay of the

PROCESS aa

) loaded page, if *SAME_PAGE = '1'.

END

) Otherwise,the current page is being

 

redisplayed.

 

Note: The MANAGE_SFL and END_MANAGE_SFL instructions are used in the VERIFICATION and VALIDATION sections the same way they are used when the subfile is filled in automatically.

 

Reserved words used

WRAN0n

is the variable generated by Adelia to work with the SFLRCDNBR keyword (number of the subfile control format).

 

*DEL0n

is the Adelia reserved word which contains the total number of records loaded in the subfile.

The assignment WRAN01 = *DEL01 allows to display the last page loaded in the subfile.

 

*NBLSn

is the Adelia reserved word which contains the number of records contained in the subfile page when the subfile is loaded in dynamic mode.

 

*NBL0n

is the Adelia reserved word which contains the number of records already loaded in the current page of the subfile.

 

*IN07

is the indicator associated with the use of the SFLEND keyword (continuation character) for subfile *1.

This indicator is defined in the generation standards.

It is set to 1 when the fill-in of the subfile is done.

 

*IN08

is the indicator associated with the use of the SFLNXTCHG keyword. This indicator is set to '0' so that the created lines be active only if modified.

 

Click here for the detailed explanation of the reserved words.

 

↑ Top of page

  • Aucune étiquette