Intermate iSeries User Manual

User’s Manual for InterForm400®   

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

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