Intermate AS/400, i5, iSeries manual User exit program, Detail lines

User exit program

From the reformat finishing definition you can call a user exit program in order e.g. to extract certain information from the spooled file, transfer that to the program, where you e.g. calculate other values which then are placed back into the new spooled file.

When you select this option you will see a screen like this (if you press Enter a couple of times):

Work with	reformat definition		RFM300D
Definition name .	. . . . : DEMO_REFOR
Description . . .	. . . . : Reformat the Demo spooled file
User exit program	. . . . :	__________	*NONE
Library . . . .	. . . . :	__________	Name, *LIBL

Exit fields from 1st head in level to user exit program

Field-1 linenbr __ position ___ length ___

Field-2 linenbr __ position ___ length ___

Field-3 linenbr __ position ___ length ___

Is user exit program to be		called when processing 1st head
in level . . . . . . . . . : ____ *NO, *YES
Placing of return fields in output head
Field-1	linenbr __	position ___
Field-2	linenbr __	position ___
Field-3	linenbr __	position ___
F3=Exit		F12=Cancel

On the top you can enter a user exit program. This program must be owned by QSECOFR (like all InterForm400 exit programs). On the middle of this screen you can specify if you want the reformat definition to call the program each time a new header is made or not. If you state *YES, then the up to 3 fields specified in the top of the screen will be transferred to the user exit program when called. The program can return up to 3 fields, that are placed as stated in the bottom of the screen above.

For an example of such a user exit program look in member RFMEXIT in source file APF3812/APISRC. This program must be owned by QSECOFR (like all user exit programs called by InterForm400).

Note, that the same program can be called when handling each detail line later. The parameter &CALLID will indicate if the program is called from a header or detail line.

M WARNING M

Do NOT place any programs or other objects in the APF3812 library as these objects will not be copied over to the new version in case of an upgrade of InterForm400.

Detail lines

Select this option and you will get to the screen below:

User’s Manual for InterForm400® 223