Filter
Top Products
User’s Manual for InterForm400® 223
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: