iSeries / AS400 FAQ : Programming : RPG : How do I replace *ENTRY PLIST in /free?
Q. I’m learning to use /free, but can’t figure out the exact way to replace *ENTRY PLIST. A. Yup – use a PI (procedure interface) to replace the *Entry PList. The following is a slightly modified version of a PI/PR combo that has appeared a few times on the list today. I’ve lost track of whose code it was! D getlast pr extpgm(‘PRR353’) d like(ssno) d like(last) D getlast pi d ssnox like(ssno) d best like(last) The important thing is to make sure that the EXTPGM keyword is specified and points to the actual program name. Using a different name on the prototype means you can have a more meaningful name than PRR353 on an RPG CallP. Since CL doesn’t understand protos, it doesn’t help when you call from CL but …. For others who may follow behind me, on the comment section on the far right of the PI, I put *ENTRY PLIST. That way they can scan, (unless they scan position specific – tough for them).
