Check the IBM reference book. Gives good examples. *************** Here's a quick example. Basically, you need to set up a prototype for the *Entry parameters, and refer back to the same program in the prototype. (I can't get this to format correctly, so the column positions may not line up when you view this.) <pre> D SomePrototype PR D 9A D 10A D N * these are the *Entry parameters D SomePrototype PI D Parameter1 9A D Parameter2 10A D Parameter3 N Or you can do the procedure section like this, where you can name it anything you want and just reference the program or module name via the EXTPGM keyword. D Main PR EXTPGM('SOMEPROGRAM') D 9A D 10A D N * *Entry parameters D Main PI D Parameter1 9A D Parameter2 10A D Parameter3 N </pre> CWC

Check the IBM reference book. Gives good examples. *************** Here's a quick example. Basically, you need to set up a prototype for the *Entry parameters, and refer back to the same program in the prototype. (I can't get this to format correctly, so the column positions may not line up when you view this.) <pre> D SomePrototype PR D 9A D 10A D N * these are the *Entry parameters D SomePrototype PI D Parameter1 9A D Parameter2 10A D Parameter3 N Or you can do the procedure section like this, where you can name it anything you want and just reference the program or module name via the EXTPGM keyword. D Main PR EXTPGM('SOMEPROGRAM') D 9A D 10A D N * *Entry parameters D Main PI D Parameter1 9A D Parameter2 10A D Parameter3 N </pre> CWC