The LMS sample exit

Sample code for the LMS user exit is provided in FMN.SFMNSAM1. There are two sample members: FMNCRAEX and FMNCRACJ.

FMNCRAEX contains the working COBOL code for the sample exit. Although the function performed by FMNCRAEX is not very useful (File Manager can use it to access members of a PDS as if they were in a library management system) it serves as a working model of an exit. To demonstrate the sample exit using FMNCRAEX, the PDS must be defined as FB 80 and must contain a member named $$FMN$$ in order to be validated as a supported library.

FMNCRACJ contains JCL which compiles two COBOL programs (FMNCRAEX and TEST) and then runs TEST. TEST is the main program and it calls the sample COBOL exit, FMNCRAEX. You can use TEST, to demonstrate the exit and to verify your own exit prior to making it available to File Manager. You do not have to have any LMS library available to run the demonstration. Refer to the prolog to FMNCRACJ for information about the changes you need to make.